15 lines
297 B
Text
15 lines
297 B
Text
LET i$ = "1"
|
|
FOR z = 1 TO 15
|
|
PRINT i$
|
|
LET o$ = ""
|
|
FOR i = 1 TO LEN(i$)
|
|
LET c = 1
|
|
DO WHILE (i$)[i:i+1-1] = (i$)[i+c:i+c+1-1]
|
|
LET c = c+1
|
|
LOOP
|
|
LET o$ = o$ & CHR$(c+48) & (i$)[i:i+1-1]
|
|
LET i = i+c-1
|
|
NEXT i
|
|
LET i$ = o$
|
|
NEXT z
|
|
END
|