RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/Applesoft-BASIC/loop-over-multiple-arrays-simultaneously.basic

8 lines
271 B
Text
Raw Permalink Normal View History

2023-07-22 21:42:12 -07:00
REM DEFINE THE ARRAYS AND POPULATE THEM
0 SIZE = 3: DIM A$(SIZE),B$(SIZE),C(SIZE): FOR I = 1 TO SIZE:A$(I) = CHR$ (96 + I):B$(I) = CHR$ (64 + I):C(I) = I: NEXT
REM LOOP OVER MULTIPLE ARRAYS SIMULTANEOUSLY
1 FOR I = 1 TO SIZE
2 PRINT A$(I)B$(I)C(I)
3 NEXT I