19 lines
426 B
Text
19 lines
426 B
Text
10 LET N$="01110110101010100100"
|
|
20 LET G=1
|
|
30 PRINT N$
|
|
40 LET O$=N$
|
|
50 LET N$=""
|
|
60 PRINT AT 0,28;G
|
|
70 LET N=0
|
|
80 FOR I=1 TO LEN O$
|
|
90 IF I=1 THEN GOTO 120
|
|
100 LET N=VAL O$(I-1)
|
|
110 IF I=LEN O$ THEN GOTO 130
|
|
120 LET N=N+VAL O$(I+1)
|
|
130 IF N=0 THEN LET N$=N$+"0"
|
|
140 IF N=1 THEN LET N$=N$+O$(I)
|
|
150 IF N=2 THEN LET N$=N$+STR$ NOT VAL O$(I)
|
|
160 PRINT AT 0,I-1;N$(I)
|
|
170 NEXT I
|
|
180 LET G=G+1
|
|
190 IF N$<>O$ THEN GOTO 40
|