ack/lang/basic/test/test14.b

12 lines
174 B
Brainfuck
Raw Normal View History

1985-01-24 11:27:36 +00:00
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