---

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

  ; --- Write file (FileName, Mode, Handle, Error) ---
  CWRITE($FCT_CALL, stat, mode, "krl_fopen", "D:/test.txt", "w", handle, 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("V1: Write OK")
  ELSE
    MsgNotify("V1: Write FAIL, ret=" << ret)
    RETURN
  ENDIF

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