25 lines
527 B
Plaintext
25 lines
527 B
Plaintext
100 LET U1 = 3
|
|
105 LET U2 = 4
|
|
110 ARRAY A$
|
|
120 DATA "The","quick","brown","fox"
|
|
130 FOR I = 0 TO U1 : READ A$(I) : NEXT I
|
|
140 ARRAY B$
|
|
150 DATA "jumped","over","the","lazy","dog"
|
|
160 FOR I = 0 TO U2 : READ B$(I) : NEXT I
|
|
170 rem Sub ConcatArrays
|
|
180 LET X = U1 + 1
|
|
190 LET Y = U2 + 1
|
|
200 LET Z = X + Y
|
|
210 ARRAY C
|
|
220 FOR I = 0 TO X-1
|
|
230 LET C$(I) = A$(I)
|
|
240 NEXT I
|
|
250 FOR I = 0 TO Y-1
|
|
260 LET C$(U1 + I + 1) = B$(I)
|
|
270 NEXT I
|
|
280 rem
|
|
290 FOR I = 0 TO Z-1
|
|
300 PRINT C$(I);" ";
|
|
310 NEXT I
|
|
320 END
|