lang/basic/test/test16.b

   1 100 rem two dimensional array
   2 110 dim table(3,3)
   3 120 for i=0 to 3
   4 130 for j=0 to 3
   5 135 print i,j
   6 140 table(i,j)= i*j
   7 150 next j,i
   8 160 print "filled"
   9 170 for i=0 to 3
  10 180 print table(i,i)
  11 190 nexti