ext/ply/example/BASIC/dim.bas

   1 5 DIM A(50,15)
   2 10 FOR I = 1 TO 50
   3 20 FOR J = 1 TO 15
   4 30   LET A(I,J) = I + J
   5 35 REM  PRINT I,J, A(I,J)
   6 40 NEXT J
   7 50 NEXT I
   8 100 FOR I = 1 TO 50
   9 110 FOR J = 1 TO 15
  10 120   PRINT A(I,J),
  11 130 NEXT J
  12 140 PRINT
  13 150 NEXT I
  14 999 END