20 lines
399 B
Text
20 lines
399 B
Text
number$ = "1"
|
|
FOR i% = 1 TO 10
|
|
number$ = FNlooksay(number$)
|
|
PRINT number$
|
|
NEXT
|
|
END
|
|
|
|
DEF FNlooksay(n$)
|
|
LOCAL i%, j%, c$, o$
|
|
i% = 1
|
|
REPEAT
|
|
c$ = MID$(n$,i%,1)
|
|
j% = i% + 1
|
|
WHILE MID$(n$,j%,1) = c$
|
|
j% += 1
|
|
ENDWHILE
|
|
o$ += STR$(j%-i%) + c$
|
|
i% = j%
|
|
UNTIL i% > LEN(n$)
|
|
= o$
|