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