10 S=8191
20 F=8192
40 C=0
50 FOR I=2 TO S
60 POKE I+F,1
70 NEXT I
80 FOR I=2 TO S
90 IF PEEK(I+F)=0 GOTO 170
100 PRINT I
110 K=I
120 GOTO 140
130 POKE K+F,0
140 K=K+I
150 IF K<=S GOTO 130
160 C=C+1
170 NEXT I
180 PRINT "Count",C
LIST
                    
RUN