10 S=8190: DIM F(8191):N=0

   20 FOR I=0 TO S:F(I)=1: NEXT I

   30 FOR I=0 TO S: IF F(I)=0 THEN

      80

   40 P=I+I+3:K=I+P

   50 IF K>S THEN 70

   60 F(K)=0:K=K+P: GOTO 50

   70 N=N+1: PRINT P;" ";

   80 NEXT I

   90 PRINT : PRINT N;" PRIMES": END