       10 // Checking whether an array bigger than 64K can be used.
       20 //
       30 nr#:=20000
       40 DIM a(nr#)
       50 //
       60 FOR f#:=1 TO nr# DO
       70   a(f#):=f#
       80 ENDFOR f#
       90 //
      100 FOR f#:=1 TO nr# DO
      110   SYS assert, a(f#)=f#
      120 ENDFOR f#
      130 //
      140 PRINT "Ok"
