       10 // READ FILE sample program
       20 //
       30 PROC deliet EXTERNAL "deliet.sq"
       40 deliet("ofile11")
       50 //
       60 DIM a$(10)
       70 FOR f:=1 TO 10 DO a$(f):="Number "+STR$(f)
       80 //
       90 OPEN FILE 1, "ofile11", WRITE 
      100 WRITE FILE 1: a$()
      110 CLOSE FILE 1
      120 //
      130 a$:=""  // Assignment of array
      140 //
      150 OPEN FILE 1, "ofile11", READ 
      160 READ FILE 1: a$  // READ FILE of array()
      170 CLOSE
      180 //
      190 FOR f:=1 TO 10 DO SYS assert, a$(f)="Number "+STR$(f)
      200 //
      210 deliet("ofile11")
      220 PRINT "Ok"
