Pijâ»ÏY¤ÉÍÚNÕNÏLASÔÃÄHÉRESÔØÑÁ€ SIEVE PRIME FINDER›DENIS DeVRIES›$$(c)1988, ANTIC PUBLISHING INC.›MOVE MEMTOP DOWN› 1AAD+1AR@!(!( SUPER-SIEVE%-BE’BP"‚!‚% (&(&(Test a number for prime (1)2&(&(Find a prime by number (2)<((Return to BASIC (3)F&(&(What is your choice numberP'ƒAAH'6ƒ-ƒ&@Z!!ƒ )ƒ!@@pdƒ"@A™™n#((What is your number#„xƒ"@A‚„ @A0Œ„!CwrA@‘GET LAST DIGIT›–*6…-„'@"6…-P:…,$@*6†-„&… __†%@A€A0ApA0A€A€A€A0A€A0ª2„"@6‡-@((>:A%,2 A´2„"@6‡-@((>:A%,2 A¾;(>:A%,(;( Your number, „, is NOT a prime.È @@Ò2„"@6Œ-@((>:A%,2 A Ü„!CI)gA@æ$6‰-P:„'BU6,$6Š-„&BU6$‰ëSCREEN OFF, ATRACT ON›ð'AY'@wA(õ Aú6‹-?:BE’<‰<Š<ƒ,886Œ-F:A,%F:A,$AV%F:A,$BU6886‡-F:AB,%F:AC,$AV%F:AD,$BU64(>:A%,"@w4AY@4"ƒ"@A ,„ ŒA`1GREEN SCREEN›6AA’@*(*( Your number, „ , IS a prime!J++( It is number ‡ in the series ofT""(primes beginning with two.^ @@cRED SCREEN›hA@2r.(.( Your number, „, is NOT a prime.|''(The next higher prime is Œ.†++( It is number ‡ in the series of""(primes beginning with two.š @@¤1('( Prime number „ is Œ.1 @@®8!(Your number is too small..(>:AS,8 @@¸8!(Your number is too large..(>:AS,8 @@ô*AY@4'@w*è((104,216,169,0,168,153,0,55,136,208›é&&250,153,0,56,136,208,250,153,0,6›ê++136,208,250,133,206,133,207,169,1,153›ë&&0,54,136,208,250,104,104,141,2,6›ì%%104,141,1,6,104,141,0,6,104,104›í''133,208,169,2,133,205,141,6,6,160›î##1,185,0,54,201,1,240,3,76,206›ï((57,152,24,10,133,205,230,205,144,9›ð&&169,1,133,206,192,0,208,1,96,165›ñ((208,208,18,165,205,205,0,6,165,206›ò$$237,1,6,165,207,237,2,6,144,22›ó 96,173,6,6,205,0,6,173,7,6›ô!!237,1,6,173,8,6,237,2,6,144›õ&&1,96,165,206,201,2,240,65,152,24›ö++101,205,133,203,165,206,105,0,133,204›÷''208,24,169,0,166,203,157,0,54,165›ø,,205,24,101,203,133,203,144,240,165,206›ù**101,204,133,204,176,30,165,205,174,6›ú''6,157,0,56,165,206,157,128,56,165›û))203,157,0,55,165,204,157,128,55,169›ü##0,133,204,238,6,6,169,1,153,0›ý%%54,200,192,0,240,3,76,61,57,238›þ$$3,6,160,2,185,0,56,133,205,185›ÿ))128,56,133,206,169,0,133,207,56,185›))0,55,233,255,133,203,185,128,55,233›((0,133,204,208,22,169,0,166,203,157›))0,54,165,205,24,101,203,133,203,165›,,206,101,204,133,204,240,234,153,128,55›))165,203,153,0,55,200,192,98,208,190›$$173,3,6,24,105,254,141,3,6,173›!!4,6,105,1,141,4,6,144,3,238›""5,6,160,1,185,0,54,201,1,208›&&91,152,24,10,133,205,169,0,105,0› ))133,206,165,205,109,3,6,133,205,165› %%206,109,4,6,133,206,169,0,109,5› **6,133,207,165,208,208,18,165,205,205› %%0,6,165,206,237,1,6,165,207,237› !!2,6,144,22,96,173,6,6,205,0›6,173,7,6,237,1,6,173,8,6›""237,2,6,144,1,96,238,6,6,208›""16,238,7,6,208,11,238,8,6,24›$$144,5,169,1,153,0,54,200,192,0›208,148,76,222,57›'AA`+€ D2:SIEVE.BAS€ˆÐú™8ˆÐú™ˆÐú…Î…Ï©™6ˆÐúhh;6‹7@ƒ<@…,. 86‹7@†,.€7@w