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