12 lines
208 B
Text
12 lines
208 B
Text
10 LET T$="0"
|
|
20 PRINT "T0=";T$
|
|
30 FOR I=1 TO 7
|
|
40 PRINT "T";I;"=";
|
|
50 FOR J=1 TO LEN T$
|
|
60 IF T$(J)="0" THEN GOTO 90
|
|
70 LET T$=T$+"0"
|
|
80 GOTO 100
|
|
90 LET T$=T$+"1"
|
|
100 NEXT J
|
|
110 PRINT T$
|
|
120 NEXT I
|