Array concatenation: Difference between revisions
Applesoft BASIC
(Applesoft BASIC) |
|||
Line 901:
=={{header|BASIC}}==
==={{header|Applesoft BASIC}}===
<lang gwbasic> 10 LET X = 4:Y = 5
20 DIM A(X - 1),B(Y - 1),C(X + Y - 1)
30 FOR I = 1 TO X:A(I - 1) = I: NEXT
40 FOR I = 1 TO Y:B(I - 1) = I * 10: NEXT
50 FOR I = 1 TO X:C(I - 1) = A(I - 1): NEXT
60 FOR I = 1 TO Y:C(X + I - 1) = B(I - 1): NEXT
70 FOR I = 1 TO X + Y: PRINT MID$ (" ",1,I > 1)C(I - 1);: NEXT</lang>
==={{header|BaCon}}===
<lang bacon>DECLARE a[] = { 1, 2, 3, 4, 5 }
Line 954 ⟶ 961:
160 : PRINT C(I);
170 NEXT</lang>
=={{header|BASIC256}}==
| |||