---

DEF file_io_test( )
  DECL INT handle, ret, ret2, ret3
  DECL STATE_T stat
  DECL CHAR line[256]

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

  ; --- Read test file ---
  CWRITE($FCT_CALL, stat, "krl_fopen", handle, "D:/test.txt", "r", ret)
  IF ret == 0 THEN
    CWRITE($FCT_CALL, stat, "krl_fgets", handle, line, 255, ret2, ret3)
    IF ret2 > 0 THEN
      MsgNotify("Read OK: " << line)
    ELSE
      MsgNotify("Read FAIL, ret2=" << ret2 << " ret3=" << ret3)
    ENDIF
    CWRITE($FCT_CALL, stat, "krl_fclose", handle, ret)
  ELSE
    MsgNotify("Open read FAIL, ret=" << ret)
  ENDIF
END