RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/Run-BASIC/loop-over-multiple-arrays-simultaneously.run
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

9 lines
121 B
Text

for i = 1 to 3
a$(i) = chr$(i+96)
b$(i) = chr$(i+64)
c(i) = i
next i
for i = 1 to 3
print a$(i);b$(i);c(i)
next