ack/lang/basic/test/test14.b
1985-01-24 11:27:36 +00:00

12 lines
174 B
Brainfuck

100 dim a(13)
101 print "help",a(1)
102 a(1)=3: print "ok"
103 print a(1)
107 for i=0 to 13
108 a(i)=i*i
109 nexti
112 for i=0 to 13
113 print i, a(i)
114 nexti
115 a(-4)= 3