       10 // RANDOM file access test program
       20 //
       30 PROC deliet EXTERNAL "deliet.sq"
       40 //
       50 deliet("ofile7")
       60 //
       70 OPEN FILE 1, "ofile7", RANDOM 18
       80 FOR f#:=1 TO 50 DO PRINT FILE 1,f#: 2*f#,2*f#+1
       90 CLOSE FILE 1
      100 //
      110 OPEN FILE 1, "ofile7", RANDOM 9
      120 FOR f#:=100 DOWNTO 1 STEP 2 DO
      130   READ FILE 1,f#: b#
      140   READ FILE 1,f#-1: a#
      150   SYS assert, a#=f# AND b#=a#+1
      160 ENDFOR f#
      170 CLOSE FILE 1
      180 //
      190 PRINT "Ok"
