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