13 lines
219 B
Text
13 lines
219 B
Text
|
10 DEFINT A-Z: I$="1"
|
||
|
|
20 FOR Z=1 TO 15
|
||
|
|
30 PRINT I$
|
||
|
|
40 O$=""
|
||
|
|
50 FOR I=1 TO LEN(I$)
|
||
|
|
60 C=1
|
||
|
|
70 IF MID$(I$,I,1)=MID$(I$,I+C,1) THEN C=C+1: GOTO 70
|
||
|
|
80 O$=O$+CHR$(C+48)+MID$(I$,I,1)
|
||
|
|
90 I=I+C-1
|
||
|
|
100 NEXT I
|
||
|
|
110 I$=O$
|
||
|
|
120 NEXT Z
|