       10 // APPEND sample program
       20 //
       30 PROC deliet EXTERNAL "deliet.sq"
       40 //
       50 deliet("ofile6")
       60 //
       70 OPEN FILE 1, "ofile6", WRITE 
       80 schrijf(1)
       90 //
      100 OPEN FILE 1, "ofile6", APPEND 
      110 schrijf(1)
      120 //
      130 OPEN FILE 1, "ofile6", READ 
      140 WHILE NOT(EOF(1)) DO
      150   READ FILE 1: a#
      160   READ b#
      170   SYS assert, a#=b#
      180 ENDWHILE
      190 //
      200 CLOSE
      210 deliet("ofile6")
      220 //
      230 PRINT "Ok"
      240 //
      250 PROC schrijf(n#) CLOSED
      260   FOR f#:=-5 TO 5 DO WRITE FILE n#: f#
      270   CLOSE FILE 1
      280 ENDPROC schrijf
      290 //
      300 DATA -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5
