10 REM * ERATOSTHENES SIEVE›11 DIM FLAG$(8191)›12 POKE 559,0›13 POKE 19,0:POKE 20,0›14 COUNT=0›15 FOR I=1 TO 8191›16 FLAG$(I,I)="T"›17 NEXT I›18 FOR I=0 TO 8190›19 IF FLAG$(I+1,I+1)="F" THEN 27›20 PRIME=I+I+3›21 K=I+PRIME›22 IF K>8190 THEN 26›23 FLAG$(K+1,K+1)="F"›24 K=K+PRIME›25 GOTO 22›26 COUNT=COUNT+1›27 NEXT I›28 TIME=PEEK(20)+256*PEEK(19)›29 POKE 559,34›30 ? COUNT;" PRIMES IN"›31 ? TIME;" JIFFIESý"›