ISaGRAF. Version 3.4


FA_WRIT- 2


ANA

ADD nb_written

LD (* delta_tim *)

ANA (* integer *)

ST ana_delta_tim

LD file_id

FA_WRITE ana_delta_tim

ANA

ADD nb_written

ST nb_written

F_CLOSE

ST ok

LD nb_written

EQ 4

RETC (* 4 *)

LD ERR_FILE (* *)

ST ERROR