Array concatenation: Difference between revisions
Content added Content deleted
mNo edit summary |
(Added Minimal Basic) |
||
Line 944: | Line 944: | ||
310 NEXT I |
310 NEXT I |
||
320 END</syntaxhighlight> |
320 END</syntaxhighlight> |
||
==={{header|Minimal BASIC}}=== |
|||
{{trans|Applesoft BASIC}} |
|||
{{works with|GW-BASIC}} |
|||
{{works with|Chipmunk Basic}} |
|||
{{works with|QBasic}} |
|||
{{works with|Quite BASIC}} |
|||
{{works with|MSX BASIC}} |
|||
<syntaxhighlight lang="qbasic">10 LET X = 4 |
|||
20 LET Y = 5 |
|||
30 DIM A(3) |
|||
40 DIM B(4) |
|||
50 DIM C(8) |
|||
60 FOR I = 1 TO X |
|||
70 LET A(I-1) = I |
|||
80 NEXT I |
|||
90 FOR I = 1 TO Y |
|||
100 LET B(I-1) = I*10 |
|||
110 NEXT I |
|||
120 FOR I = 1 TO X |
|||
130 LET C(I-1) = A(I-1) |
|||
140 NEXT I |
|||
150 FOR I = 1 TO Y |
|||
160 LET C(X+I-1) = B(I-1) |
|||
170 NEXT I |
|||
180 FOR I = 1 TO X+Y |
|||
190 PRINT C(I-1); |
|||
200 NEXT I |
|||
210 END</syntaxhighlight> |
|||
==={{header|MSX Basic}}=== |
==={{header|MSX Basic}}=== |