---

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

  CWRITE($FCT_CALL, stat, "krl_fopen", handle, "D:\test.txt", "r", ret1)

  IF (ret1 == 0) THEN
    CWRITE($FCT_CALL, stat, "krl_fgets", handle, line, 255, ret2, ret3)
    IF (ret2 > 0) THEN
      MsgNotify("File OK, line: " << line)
    ELSE
      MsgNotify("Open OK but read failed, ret2=" << ret2 << " ret3=" << ret3)
    ENDIF
    CWRITE($FCT_CALL, stat, "krl_fclose", handle, ret1)
  ELSE
    MsgNotify("Open FAILED, ret1=" << ret1 << " stat=" << stat)
  ENDIF
END