+: "BYTE Sieve of Erastothenes test" F(8191): ~"000000" "1 iteration only..."(C~02 I~0 r 8191: F(I)~1: P I~0 r 8191Z F(I)~0 s 150dP~ItIt3: PRINT P, K~I r 8191 p P: F(K)~0: C~Ct12: C;"primes found at ";(,3,2);":";(,2)