       10 // EOF() sample program
       20 //
       30 PROC deliet EXTERNAL "deliet.sq"
       40 //
       50 deliet("ofile3")
       60 //
       70 OPEN FILE 1, "ofile3", WRITE 
       80 FOR f#:=1 TO 100 DO PRINT FILE 1: 2*f#
       90 CLOSE FILE 1
      100 //
      110 OPEN FILE 1, "ofile3", READ 
      120 i#:=1
      130 WHILE NOT(EOF(1)) DO
      140   INPUT FILE 1: f#
      150   SYS assert, f#=i#*2
      160   i#:+1
      170 ENDWHILE
      180 CLOSE FILE 1
      190 //
      200 PRINT "Ok"
