       10 // PRINT FILE sample program
       20 //
       30 PROC deliet EXTERNAL "deliet.sq"
       40 //
       50 deliet("ofile10")
       60 //
       70 DIM a$(10)
       80 FOR f:=1 TO 10 DO a$(f):="Number "+STR$(f)
       90 //
      100 OPEN FILE 1, "ofile10", WRITE 
      110 TRAP
      120   PRINT FILE 1: a$  // PRINT FILE of array not allowed.
      130   SYS assert, FALSE
      140 HANDLER
      150   SYS assert, ERR=16
      160 ENDTRAP
      170 //
      180 FOR f:=1 TO 10 DO PRINT FILE 1: a$(f)
      190 CLOSE
      200 //
      210 a$:="Leeg"
      220 //
      230 OPEN FILE 1, "ofile10", READ 
      240 READ FILE 1: a$  // READ FILE of array is allowed.
      250 CLOSE
      260 //
      270 FOR f:=10 DOWNTO 1 DO
      280   SYS assert, a$(f)="Number "+STR$(f)
      290 ENDFOR f
      300 //
      310 deliet("ofile10")
      320 PRINT "Ok"
