Data update
This commit is contained in:
parent
9817d9b99b
commit
07c7092a52
140 changed files with 2712 additions and 241 deletions
|
|
@ -0,0 +1,7 @@
|
|||
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
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
(map str "abc" "ABC" "123")
|
||||
["aA1" "bB2" "cC3"]
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
(map str ["a" "b" "c"] ["A" "B" "C"] ["1" "2" "3"])
|
||||
["aA1" "bB2" "cC3"]
|
||||
|
|
@ -13,7 +13,7 @@ columns
|
|||
120 IF l <= szb THEN READ b$(l): PRINT b$(l);
|
||||
130 IF l <= szc THEN READ c$(l): PRINT c$(l);
|
||||
140 PRINT: REM newline
|
||||
150 NEXT l
|
||||
145 NEXT l
|
||||
150 PRINT "The arrays are shown in columns."
|
||||
160 PRINT "A$ runs down the left hand side,"
|
||||
170 PRINT "and C$ runs down the right."
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue