       10 // INPUT FILE test program
       20 //
       30 PROC deliet EXTERNAL "deliet.sq"
       40 //
       50 deliet("ofile12")
       60 DIM a$(10)
       70 FOR f:=1 TO 10 DO a$(f):="Number "+STR$(f)
       80 //
       90 OPEN FILE 1, "ofile12", WRITE 
      100 WRITE FILE 1: a$()
      110 CLOSE FILE 1
      120 //
      130 OPEN FILE 1, "ofile12", READ 
      140 FOR f:=1 TO 10 DO
      150   INPUT FILE 1: b$
      160   SYS assert, b$="Number "+STR$(f)
      170 ENDFOR f
      180 CLOSE FILE 1
      190 //
      200 a$:=""  // Assignment of array
      210 //
      220 OPEN FILE 1, "ofile12", READ 
      230 INPUT FILE 1: a$  // Surprising: Read first value and assign to entire array!
      240 CLOSE
      250 //
      260 FOR f:=1 TO 10 DO SYS assert, a$(f)="Number 1"
      270 //
      280 deliet("ofile12")
      290 PRINT "Ok"
