       10 // RESTORE test program
       20 //
       30 base:=1
       40 lees
       50 RESTORE
       60 base:=1
       70 lees
       80 RESTORE aap
       90 base:=3
      100 lees
      110 //
      120 PRINT "Ok"
      130 //
      140 DATA 1, 2
      150 aap:
      160 DATA 3, 4
      170 //
      180 PROC lees
      190   WHILE NOT(EOD) DO
      200     READ a
      210     SYS assert, a=base
      220     base:+1
      230   ENDWHILE
      240 ENDPROC lees
