       10 // DIM test program
       20 //
       30 DIM b$(3)
       40 //
       50 FOR f:=1 TO 3 DO
       60   b$(f):="Number = "+STR$(f)
       70 ENDFOR f
       80 //
       90 FOR f:=1 TO 3 DO
      100   READ a$
      110   IF a$<>b$(f) THEN SYS assert, FALSE
      120 ENDFOR f
      130 //
      140 PRINT "Ok"
      150 //
      160 DATA "Number = 1", "Number = 2", "Number = 3"
