âîçâðàò åñëè ðàâíî
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
Ñîäåðæàíèå Íàçàä Âïåðåä