---

DEF io_test_v2( )
  DECL INT handle, ret
  DECL STATE_T stat
  DECL MODUS_T mode
  mode = #SYNC

  ; --- Write file (Handle, FileName, Mode, Error) ---
  CWRITE($FCT_CALL, stat, mode, "krl_fopen", handle, "D:/test.txt", "w", ret)
  IF ret == 0 THEN
    CWRITE($FCT_CALL, stat, mode, "krl_fputs", handle, "1914.495 -14.041 0.300\n", ret)
    CWRITE($FCT_CALL, stat, mode, "krl_fclose", handle, ret)
    MsgNotify("V2: Write OK")
  ELSE
    MsgNotify("V2: Write FAIL, ret=" << ret)
    RETURN
  ENDIF

  ; --- Read file ---
  CWRITE($FCT_CALL, stat, mode, "krl_fopen", handle, "D:/test.txt", "r", ret)
  IF ret == 0 THEN
    DECL CHAR line[256]
    CWRITE($FCT_CALL, stat, mode, "krl_fgets", handle, line, 255, ret, ret)
    MsgNotify("V2: Read: " << line)
    CWRITE($FCT_CALL, stat, mode, "krl_fclose", handle, ret)
  ELSE
    MsgNotify("V2: Read open FAIL, ret=" << ret)
  ENDIF
END