13 lines
234 B
Text
13 lines
234 B
Text
10 N$ = "0"
|
|
|
|
100 O$ = N$
|
|
110 PRINT O$
|
|
120 N$ = ""
|
|
130 C = 1
|
|
140 FOR I = LEN(O$) TO 1 STEP -1
|
|
150 N = VAL(MID$(O$, I, 1)) + C
|
|
160 C = N >= 8
|
|
170 N$ = STR$(N - C * 8) + N$
|
|
180 NEXT I
|
|
190 IF C THEN N$ = "1" + N$
|
|
200 GOTO 100
|