---

DEF create_test( )
  DECL INT handle, ret
  DECL STATE_T stat
  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_fputs", handle, "1909.056 -22.432 0.300 180.0 0.0 180.0\n", ret)
    CWRITE($FCT_CALL, stat, "krl_fclose", handle, ret)
    MsgNotify("Test file created on D:\")
  ELSE
    MsgNotify("Could not create test file, ret=" << ret)
  ENDIF
END