13 lines
294 B
Plaintext
13 lines
294 B
Plaintext
0010 DIM eck#(0:1000)
|
|
0020 FOR i#:=1 TO 999 DO
|
|
0030 j#:=i#-1
|
|
0040 WHILE j#>0 AND eck#(i#)<>eck#(j#) DO j#:-1
|
|
0050 IF j#<>0 THEN eck#(i#+1):=i#-j#
|
|
0060 ENDFOR i#
|
|
0070 ZONE 5
|
|
0080 FOR i#:=1 TO 10 DO PRINT eck#(i#),
|
|
0090 PRINT
|
|
0100 FOR i#:=991 TO 1000 DO PRINT eck#(i#),
|
|
0110 PRINT
|
|
0120 END
|