       10 // LOCAL sample program
       20 //
       30 a:=1
       40 b$:="Jos Visser"
       50 DIM reeks(3)
       60 reeks:=9
       70 aap
       80 //
       90 SYS assert, a=1 AND b$="Jos Visser"
      100 FOR f:=1 TO 3 DO
      110   SYS assert, reeks(f)=9
      120 ENDFOR f
      130 //
      140 PRINT "Ok"
      150 //
      160 PROC aap
      170   LOCAL a, b$, c$ OF 1, reeks(-10:-3)
      180   a:=99
      190   b$:="visser, jos"
      200   reeks:=-100
      210   SYS assert, a=99 AND b$="visser, jos"
      220   FOR f#:=-10 TO -3 DO SYS assert, reeks(f#)=-100
      230 ENDPROC aap
