ISaGRAF. Version 3.4


F_EOF


:

ID INT : F_ROPEN F_WOPEN

ok BOO

TRUE

FM_READ , -

:

. ISaGRAF.

(*FBD , *)

(* ST : *)

file_id := F_ROPEN('data.bin');

WHILE not(F_EOF(file_id))

VAL := FA_READ(file_id);

END_WHILE;

MESSAGE := 'last val = ' + msg(VAL);

ok := F_CLOSE(file_id);

(* IL : *)

LD 'data.bin'

F_ROPEN

ST file_id

LD file_id

F_EOF

JMPC END_OF_FILE

NOT_EOF: LD file_id

FA_READ

ST VAL

LD file_id

F_EOF

JMPNC NOT_EOF (* eof, *)

END_OF_FILE: LD VAL

MSG

ST val_msg (* VAL *)

LD 'last val = '

ADD val_msg

ST MESSAGE

LD file_id

F_CLOSE

ST ok