---

DEF io_a( )
  DECL INT handle, ret
  DECL STATE_T stat
  DECL MODUS_T mode
  DECL CHAR line[256]
  mode = #SYNC

  ; Write
  CWRITE($FCT_CALL, stat, mode, "krl_fopen", "D:/test.txt", "w", handle, ret)
  IF stat.RET1 == #DATA_OK THEN
    CWRITE($FCT_CALL, stat, mode, "krl_fputs", handle, "123 456 789\n", ret)
    CWRITE($FCT_CALL, stat, mode, "krl_fclose", handle, ret)
    MsgNotify("A: Write OK")
  ELSE
    MsgNotify("A: Write Fail")
    RETURN
  ENDIF

  ; Read
  CWRITE($FCT_CALL, stat, mode, "krl_fopen", "D:/test.txt", "r", handle, ret)
  IF stat.RET1 == #DATA_OK THEN
    CWRITE($FCT_CALL, stat, mode, "krl_fgets", handle, line, 255, ret, ret)
    MsgNotify("A: Read: " + line)
    CWRITE($FCT_CALL, stat, mode, "krl_fclose", handle, ret)
  ELSE
    MsgNotify("A: Read Fail")
  ENDIF
END



DEF io_b( )
  DECL INT handle, ret
  DECL STATE_T stat
  DECL MODUS_T mode
  DECL CHAR line[256]
  mode = #SYNC

  ; Write
  CWRITE($FCT_CALL, stat, mode, "krl_fopen", handle, "D:/test.txt", "w", ret)
  IF stat.RET1 == #DATA_OK THEN
    CWRITE($FCT_CALL, stat, mode, "krl_fputs", handle, "123 456 789\n", ret)
    CWRITE($FCT_CALL, stat, mode, "krl_fclose", handle, ret)
    MsgNotify("B: Write OK")
  ELSE
    MsgNotify("B: Write Fail")
    RETURN
  ENDIF

  ; Read
  CWRITE($FCT_CALL, stat, mode, "krl_fopen", handle, "D:/test.txt", "r", ret)
  IF stat.RET1 == #DATA_OK THEN
    CWRITE($FCT_CALL, stat, mode, "krl_fgets", handle, line, 255, ret, ret)
    MsgNotify("B: Read: " + line)
    CWRITE($FCT_CALL, stat, mode, "krl_fclose", handle, ret)
  ELSE
    MsgNotify("B: Read Fail")
  ENDIF
END