ZX81 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 1 | REM "READ DATA" or 2. LET N=3 | |
|---|---|---|
| 2 | INPUT N | |
| 3 | LET A$="42.75.6.33.A.b." | |
| 4 | LET X=1 | |
| 5 | LET Y=1 | |
| 6 | FOR I=1 T0 N | |
| 7 | LET Y=Y+1 | |
| 8 | IF A$(Y)<>"." THEN GOTO 7 | |
| 9 | LET K$=A$(X TO Y-1) | |
| 10 | LET X=Y+1 | |
| 11 | NEXT I | |
| 12 | PRINT K$ | |
| OR | ||
| 1 | REM "READ DATA" | |
| 2 | INPUT N | |
| 3 | PRINT "O42075006333029"(3*(N-1-1) TO 3*(N-1+3) | |