ack/lang/basic/test/test16.b

12 lines
197 B
Brainfuck
Raw Normal View History

1985-01-24 11:27:36 +00:00
100 rem two dimensional array
110 dim table(3,3)
120 for i=0 to 3
130 for j=0 to 3
135 print i,j
140 table(i,j)= i*j
150 next j,i
160 print "filled"
170 for i=0 to 3
180 print table(i,i)
190 nexti