¢ÊÐýæFÐæG8éÐð`0($ p,&"–—š›žŸ¦§«¬­®¯²³´µ¶·¹º»¼½¾¿ËÍÎÏÓÖ×ÙÚÛÜÝÞßåæçéêëìíîïòóôõö÷ùúûüýþÿ³³ ೃų ೃų ೳŪ ‚³³Ū ‚ų³ªˆ‚ų³ªˆ‚Åij°ˆ   1 '"  (9"1 ( , $ °C ƒÊDQ &J€8½ŽÀ0^©ÿÀ݌ÀHh ü üÀ݌Àꈐ𩕠ռ©ª ռ©– ռ¥A ļ¥D ļ¥? ļ¥AEDE?HJ>ŒÀh ª Լ©Þ ռ©ª ռ©ë ռ½ŽŒÀ`HJ>À݌Àhêêê ªêêHhÀ݌À`ˆ¥葠”ˆ–葠”ˆ–‘‘ȔЖ‘‘ȔЖ‘£Ƞ¥…¤„H…I Œø Œø ±Hª ÑHðŠH±HªhH‘H½Ž½ŒÀ݌ÀÐhª½ŽŒ½ŒÀHhHhŽø݌ÀЈÐ±H™6 Ð<…G ±H ÑHð‘H(  k¾Nx`…* Ž¾¹x$50¹øx¥*$50™ø™xL ¹ŠJJJJ¨`H ±Hjf5 Ž¾h $50™ø™x` ±H…A©ª…> V© ¥EɐåÆEÆE`ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  “þ­ $ü©…$ »›ª ÌÏÁÄÉÎǠÌÁÎÇÕÁÇŠÃÁÒĠª è· ½aUÊÐ÷L¼©@¶ª¢ ½kUÊÐ÷8°­¶ªÐ© Ð ©L ²¥ Q¨© ¶ª¢ ½wUÊГªuªÊWª ԧ­³ªð H ¦h  ª½H½H­\ª`\ªŽZªŒ[ªºè莙ª¢½Sª•6Êø`®·ªðLxŸ®QªðɿðuÅ3ð'¢ŽRªͲªÐʎRªʎ]ª®]ª © ðhð(𠹄¨Ð֭ 0L ©] ©Г®cªðvcªŽ]ªÐܢ Ý@©ðÊÐø𶽊©0G ¨¥EÐ ¥DÙU©Œ¥EÙX© Ѓ¥DÙW©ÐĘJ¨¥E™gª¥D™fªL蠈©€ eªeªh) ° þ¡eDª© é0æÉ°⢄ þ¡ÊÐúD…DL¢¥DL•þ¥DL‹þ­^ª ­mªÐ©lª­lª½µ­mª¾µ ꢥEÐLȦ…A¥D…@ C§ N§ §­cª»µL¨¦­uªɠð% d§°: ü¢Lꢠ¯§Ð© ¤­ õ­ ĵ© »µ ¨¦`©@-eªð­fªÐ©þfª­ © ЩЩ ¥@…D¥A…EÐ젝±@ÙuªÐ㈐ö`8`­  %±@𠪈±@†A…@Š`  )ð ꢌЦ`8­ ª½ʪH½ɪH`Lc³ («L³ ܫ©㵮¾µ­½µÐà ªŽúµ` ¯ 4¯ ò©-յð! ÷¯© ª½檈½媈`Lg³L{³­­¼µÉ°î ª½򪈽񪈠 °ˆÐú¹§³ íý©  íý½紅D½贅E B®©  íýèè蠝½ƴ íý舐ö /® 0²§°žL³© íýΝ³Ð ý©³` © ®¼´Ð8`¬½´Ž—³Œ˜³© R°` E°®—³¬˜³©LR°­Ū𷭆ª񷠎췌Ð i ¨ ¯±BЭ»µÉð8` 4±L ±ֵȱB׵ ܯ­䵍൭嵍ᵠ¯¬浘`Œ³ D²¬³ȑB׵ˆ­񵑂ֵ ¯ ַ©À ÈÀÐ󮜳` 0²۰Ϭ³Ð³Ðï  ­ž³Ð7©ž³쳘i볍񵨊 ¨¢¹µð8© ¨ð¢½񵙶³™Ðó`­½µ浍국¾µ䵍뵩 Эŵ8ŵ© dÔÉÁÂÓÒÁ ÅÍÕÌÏ֠ÓÏÄȠ &' &' f&¥') ÉÀ¥I…`¥0 I€0ܩÈÀ(ߠ hIÿiH© ˆÐ8¥TeR…T¥Ué ¥')*& "¥'JJ) m% ªʥ0)èJÐü!Šm%î! `†„ªJJJJ…SŠ)ª¼ëфPIª¼ìÑȄR¬%¢ æ¨±eªȱm)¨h` ±JЈ±J`Ž# ±JªȱJ¨àéíLh ’ÓÉô`Ž# ñ ýþ© ¦>¥ „ æ ÐÚæ ÊÐÕ`…¥ E …¥ E ÅðçH¥ Úý¥ Š֥‘ ŠÖh Š֥ Úý¥ Š֥ ŠÖ -ÿ©Líý Úý© Líý„… ŠÖ -ÿ¥ ¨¹–ׅ ¨¹ÐH¹ &^ &^eP…P¥^eQ…QP&Q¥Pe e^¨hٲаg jÝH ýÝh¤‡ªðVÐ_FŠ*¦¸ÐƹƸ …‰Ð×ٲаHٹ´ÐH¹³ÐH ޥ‰L†ÝLÉޥ¢¾²Шh…^æ^h…_˜H r륡H¥ H¥ŸH¥žH¥Hl^ Hª ± 饤Ð ʠíý©% રЦØLŽýH„΢톏ÉQÆÏéPH±Ϊˆ±Îúàà 砂”x 熘ªæ3 QóÆ3Š¦ؕxµQ…εy…Ïèè ¼ᵎÕv°öN¨±δPÄ䐄 ƒÐÚöP崐Š‘ÚL#򵑅Ú8é…䵹…Ûé 0ˆ±þ0)ȆȘH¢ i¦ýȱþ)àÉ ðzµ¨…ȵх񈱾 úˆ°8 05´X„ÿ´€èÚ𳉾°"Ê )”€¤ÿ”X¤Ȕ¨¤񔑩¨¹—ñ ¨©v*…ÿÐÈȆý±þ0„РLàãÉ°ÃJ¦Èè½ Éßð†È äȈ¦ý±þˆ ϴX„ÿ´€豾)ŸÐ텲…󘈆ý´ЄÉ© …ù¢ dè ç ÿ成ú˜eѕxh$Ø0¨© 畸±ÐöxÈÐ÷ © 0µ ÿæ ç ÿ敠$ÔÊ ÿ氦É(Ð¥à 祡•x$Ô0 © ç© …×h¨¹€é)ªÅװ ˜H ë󥖐•¹ ©­ íý rçPՆϦÎ 妏` 祎…ȩ …􄵠 祎¤Ïò 結…ڵx…ۥΑÚȥÏLò`hh$Õ ŽýFÕ` ÿ„×` Íïð©%…ֈ„Ôè`¥ʤËÐZ A¥üÉ°^¨æü¥à™ ò쇯­·âøTMɅ‚"3J[NSJIfmzqÿ# [¶Ëÿÿûÿÿ$öNYP;ÿ#£o6#×"Š«#ÿÿ!0Ä …٢ © ‘äæ٦ΤÈ …Îȹ °ðÈȄȹ X{g¢¡´¶g´¡Œ®©¬¶g´¡Œ®©¬¨gŒ´¯¬°g²¯¬¯£gŒ¥«¯°°'´®©²°(´®©²°d¦©g¯´¯§x´¥¬k­¥²g¢µ³¯§´¥²~Œ9´¸¥®g°¥´³'¯´²¯¦7´µ°®©(´µ°®©*´µ°®©䮥 …%L"ü wLà㠻Ðù T⥚Ð¥ÛÐL~çÎ&Ï&æ&祦Åڥçåې …祦åڅææΈÐá`ÿÿÿÿÿÿ çlÎ i@ &N&OˆÐ򥎠祏• Lzâ 礎ÄJ¥ÏåK„L¥υML­å 礎ÄL¥ÏåM°„J¥υKèLËîÿÿÿÿÿÿÿÿ qáL¿ï …ȩ€ ¥ÌÅ䥍å吓Lk㱦‘äæäÐæåææÐæ祦ÅL¥çåM梾µ敎µÌõܕÌèÐ󦘠±L‘ΥÎÐÆÏÆΥLÐÆMÆLÅʥMåː䰐 礎ÀʥÏå˰¦„J¥υKL·冘 ñ ýþ¢ÿ8µMõϕÛèðÌÅڥÍå۰եÎÐ¥Ïð¥څʥۅË ,ñ ýþ¦Ø` :ÿL񠎄<Ȅ>  øÐ÷ %ôPêpĥù æøðu¢úvÿèÐû` 2ôeø âô „%􈐵F󐿸¢© 龉Á ¢ &B&CÊøÆ=ðô䢅 4´ùÐ 4öݺù𠽺ùðɤð¤4ˆ&DàÐ 5É °¦5ð €…D„4¹ ¥ûðæúÐæù`© `¤X¦W¥YH¥V(` Jÿh…h… ˜öL’öæÐæ©÷H  ªJQð †JJJ¨¹áöH`æÐæ½äöH¥J`hh ?ÿl ªµè` ªµ0á` ªµ ªµ ªµ ªµ &…&`¥0i)…0 0…0`J Gø±&(JJJJ)`¦:¤; –ý Hù¡:¨J j°ɢð )‡Jª½bù yøР€© 0lþ( Lÿh…:h…;lð ‚ø ÚúLeÿØ „þ /û “þ ‰þ­XZ]_ÿÏ,ÀØ :ÿ­óI¥ÍôЭòЩàÍóРŒòL (…(`ɇЩ@ ¨ü  ¨ü­0Ðõ`¤$‘(æ$¥$Å!°f`ɠ°塚ìɍðZɊðZɈÐÉÆ$襡…$Æ$¥"Å%° Æ%¥% Áûe …(`IÀð(iýÀðÚiý,ðÞiý\Ð餤¥%H $ü žü  àø :ÿèÐ©Ü íý Žý¥3 íý¢ŠðóÊ 5ýɕб(ÉЂ)ߝ ÖüÐú` &>&?Êø¥1е?•=•AèðóТ ÓiˆÉú°Í`©þH¹ãÿH¥1  ( PR# FOR //e 04MAR84JBM) BASE @ HEX : PR# DUP 0= IF 91 EMIT DROP ( IF FE93 CALL DROP FOR ][+ ) ELSE 0 36 C! C0 OR 37 C! ENDIF 3EA CALL CR ; BASE ! ;S . * . CR LOOP CR ; ;S ( SIEVE OF ERATOSTHENES BYTE JAN 1983 08MAR84JBM) FORTH DEFINITIONS DECIMAL 8190 CONSTANT SIZE 0 VARIABLE FLAGS SIZE ALLOT : PRIME FLAGS SIZE 1 FILL ( INIT ARRAY ) 0 ( INIT COUNT ) SIZE 0 DO FLAGS I + C@ IF I DUP + 3 + ( DUP . CR ) DUP I + BEGIN DUP SIZE < WHILE 0 OVER FLAGS + C! OVER + REPEAT DROP DROP 1+ THEN LOOP . ." PRIMES " CR ; : 10-TIMES 0 0 CR 10 0 DO PRIME LOOP CR ; ( IMPROVED SIEVE OF ERAT BY DAN WALLACE BYTE11/84 PG309 11/2/928192 CONSTANT SIZE 0 VARIABLE FLAGS SIZE : DO-PRIME.HI FLAGS SIZE 01 FILL 0 DO I FLAGS + C@ IF 3 I + I + DUP I + SIZE< IF SIZE FLAGS + OVER I + FLAGS + DO O I C! DUP +LOOP THEN DROP 1+ THEN LOOP . "PRIMES FOUND "; : 10-TIMES 0 0 !TIME CR 10 0 DO-PRIME.HI LOOP .T CR ; (THE END.) LOOP "BLANK" XYPLOT XYSTEP XRIGHT XLEFT YTOP Y @ YMAX > IF HITMIDDLE IF 10 SCORE +! YREVERSE ELSE HITLR IF 20 SCORE +! DEFLECT ELSE -5 SCORE +! NEWBALL THEN THEN PRINTSCORE THEN 0 UNTIL ;  ÃÁÒÌÏӬ Ã¹´°·°®ɠÄÉĠÉԠÐÕÒÅÌ٠ÆÏҠÆÕΠÁÎĠÏÆÆÅҠÉԍÇÒÁÔÉӠÔϠÁÌ̮  ÏÂÖÉÏÕÓÌ٬ ɠÃÁÎÎÏԍÇÕÁÒÁÎÔÅŠÉÔӠÃÏÒÒÅÃÔÎÅÓӻ ɠÈÁÖōÆÏÕÎĠÎϠÂÕÇӠÉΠÔÈŠÐÒÏÇÒÁ͠ÁÎĠÈÏÐōÙÏՠÅÎÊÏ٠ÉԠÁӠÍÕÃȠÁӠɠÈÁÖٍ     ÃÏÐÉÅӠÏÆÒÅÅꍍ  ÈÅؠÆÏÒÔȠÄÅÆÉÎÉÔÉÏÎӍ  º Ðң ÄÕР°½ ÉƠÆŹ³ ÃÁÌ̠ÄÒÏЍ    ÅÌÓŠ° ³¶ á ð ÏҠ³· á ÔÈÅ΍    ³ÅÃÁÌ̠ÃҠ»—                ÎÏÔō     ÔÈÉӠÖÅÒÓÉÏΠÏƠÆÉǭÆÏÒÔȠ×ÁӍÁÄÁÐÔÅĠÔϠÔÈŠÁÐÐÌŠÉɠÆÒÏ͠¶µ°²ÉÍÐÌÅÍÅÎÔÁÔÉÏΠÐÌÁÃÅĠÉΠÔÈŠÐÕÂÌÉÍÄÏÍÁÉΠÂÙ፠   ± ÈÔÅÍР«¡ ÌÏÏРÃҠ»  º ÄÕÍР° ÍÁÓˠ¡ ÄÕР¶° « Ó×ÁЍ    ­ÄÕÍР»—                Ðң     ÕÓŠÔÈÉӠÒÏÕÔÉΊÔϠÇÅԠÆÏÒÔȠÔύÏÕÔÐÕ Р  ® ª ® ÃҠÌÏÏРÃҠ»´ Р»Ӎ̍³µ ÌÏÁčÓÑÕÁÒÅӗ               ÄÕÍЍ     ÔÈÉӠÒÏÕÔÉΊÄÕÍÐӠÔϠÔÈŠÏÕÔÐÕÔӍÄÅÖÉʤ¶° ÂÙÔÅӠÏƠÒÁ͠ÂÅÇÉÎÎÉÎǠÁԍÔÏӮ  ÕÓŠÉԠÔϠÔÒ٠ÏÕԠÔÈŠÅÄÉÔÏҡ  ¨ ÄÕÍРÒÁ͠ÕÔÉÌÉÔ٠©  ÈÅؠÃÏÍÐÉÌŠÓÃÒÅÅΣÔÏӮ—     ÆÏҠÅØÁÍÐÌŬ ÔÈŠÆÏÌÌÏ×ÉÎǍËÅÙÓÔÒÏËÅӠ±© ÃÒÅÁÔŠÏΠÓÃÒÅÅΠ³µ ¢ÐÒÏÇÒÁ͢ ÔϠÌÉÓԠÔÈŠÆÉÒÓԠµ° ÉÎÔÅÇÅÒӍÁÎĠÔÈÅÉҠÓÑÕÁÒÅӬ ²© ÃÏÍÐÉÌŠÔÈō¢ÐÒÏÇÒÁ͢ ÁÎĠ³© ÅØÅÃÕÔŠÉԺÄÅÃÉÍÁ̍ÅÄÉÔÏҍ³µ ÃÌÅÁҍ° Р¨ ÓÑÕÁÒÅӠÏƠÆÉÒÓԠµ° ÉÎÔÅÇÅÒӠ© ×ÉÔȠÅÉÔÈÅҍ§­­¾§ ÏҠ§»ӧ ¨ÁÇÁÉΠ×ÉÔÈÏÕԠÔÈōÑÕÏÔÅө®  ÔÈÅÓŠÁÒŠÉÎÓÔÒÕÃÔÉÏÎӠÔύÔÈŠÃÏÍÐÉÌÅҮ  ÔÈŠÆÉÒÓԠÏΊÔÅÌÌӠÉԍÔϠÃÏÎÔÉÎÕŠ ÌÉÎٍ  Ơ­ ÆÉÎĠÆÉÒÓԠÏÃÃÕÒÅÎÊÏƠÆÏÌÌÏ×ÉÎǍ      ÔÅØԠÉΠÓÃÒÅÅή  ÍÏÖŠÔÈŠÃÕÒÓÏҍ      ÔϠÌÉŠÉÍÍÅÄÉÁÔÅÌ٠ÁÆÔÅҠÔÈÉӍ      ÔÅØԮ  Π­ ÆÉÎĠÎÅØԠÏÃÃÕÒÅÎÊÏƠÐÒÅÖÉÏÕÓÌٍ      ÓÐÅÃÉÆÉÅĠÔÅØԮ    ؠ­ ÄÅÌÅÔŠÌÕÓȠÉӠÁÕÔÏÍÁÔÉÃÁÌÌٍ          ÅØÅÃÕÔÅĠÂÅÆÏÒŠÒÅÁÄÉÎǍ          ÁÎÏÔÈÅҠÓÃÒÅÅΠÉÎÔϠÔÈō          ÂÕÆÆÅҠÉƠÔÈŠÃÕÒÒÅÎԠ          ÓÃÒÅÅΠÄÁÔÈÁĠÂÅÅΠÃÈÁÎÇÅč          ÉΠÁÎ٠×Áٮ—  ÔÏР­ ÈÏÍŠÅÄÉԭÃÕÒÓÏҠÔϠÔÏРÌÅÆԍ        ÏƠÓÃÒÅÅލ  ͠­ ÍÏÖŠÔÈÒÅÅΠÍÕÓԠÆÉÒÓԠŠ§ÌÉÓԧÅč      ÏҠ§ÃÌÅÁҧÅĠÂÅÆÏÒŠÔÈŠ§̧      ÃÏÍÍÁÎĠ×ÉÌ̠ÒÅÌÉÓԮ©  Ԡ­ ÔÙЊÌÉÎţÔÏӠÁÎĠÓÁÖŠÉΠÐÁĮ  …WIDTÈ9³ ‡WARNINÇB³ …FENCÅM³ ‚DÐZ³ ˆVOC-LINËe³ ƒBLËm³ ‚IÎ{³ ƒOUԄ³ ƒSCҌ³ †OFFSEԕ³ ‡CONTEXԞ³ ‡CURRENԪ³ "…STATŷ³ $„BASÅij &ƒDPÌϳ (ƒFLÄÙ³ *ƒCSÐâ³ ,‚R£ë³  µ  µ © pŠ8骔”ˆȱèÅæðù”±èД” á‰?TERMINAÌE í‚CÒM ÿ…CMOVÅ[ l © pÄæÐÆçLH±ꑨÈÐîæëæéLq ‚Uªb ‘ µ…攂µ…甃 66 É µ´” •µ´”*•©…æ668µõ £hhhhL̇(+LOOP©Ú è膵µÿHHµþºèè}h}h½½ý½ýLý„(DO© L µHµHµHµ 08éÉ 0 Ð#ÊÊʘie敂  …åµ      ÓÅÑÕÅÎÊÏƠ   ±°²´­ÂÙÔŠ§ÓÃÒÅÅÎӧ ÔÈÕӬ ÏΠÔÈÉӠÐÁҭ  ÔÉÃÕÌÁҠÄÉÓˬ ÓÃÒÅÅÎӠ°­±± ÁÒŠÄÏÓ)c@a(ÁÎĠÓÃÒÅÅÎӠ±²­²³ ÁÒŠÉÎÔÅÇÅҠÂÁÓÉî    ÓÃÒÅÅÎӠ²´­µ¹ ÁÒŠÆÒÅŠÆÏҠÙÏÕҠÆÏÒÔȠ  ÓÏÕÒÊÃÏĠÂ٠×ÉÌÌÉÁ͠Į ×ÕÒÚÅ̠ÏƠ×ÁÓÈÉÎÇÔÏΠÁÐÐÌŠÐɠÁÎĠÐÒÏÄÕÃÅĠÂÙ)9a(ÁÐÐÌŭÄÁÙÔÏά ÐϠÂÏؠ±¶¶¶¬ ÆÁÉÒÂÏÒά ÏȮ´µ³²´­·¶¶¶)c~a(ÆÏÒÔȠÉӠÎÏԠÃÁÓŠÓÅÎÓÉÔÉÖŠÁÎĠ×ÏÒËӠ  ×ÉÔȠ¸°­ÃÏÌÕÍΠÃÁÒÄӠÌÉËŠÖÉÄÅؠÁÎĠ¯¯ŮÃÈÁÎÇŠÌÉΊ±¹° ÏƠÔÈÉӠÐÒÏÇÒÁ͠ÔϠÔÕÒÎ))"a(ÙÔÕÒΠÏΠ¸° ÃÏÌÕÍÎӠÈÅÒÅ.È   Ç h¬ x B ñß Æ ¤… %x †FORGEÔ"B ‰ ‰BLOCK #å « Rx ˜8 q󑳈© h ωWASHINGTON APPLE PI` ` ` £ ‰FIG-FORTH V1.0` Æ ,! ` hω RELEASE 1.1` ` ` ` hωTHROUGH THE COURTESY OF` ` h ωFORTH INTEREST GROUP` h ω h ωSAN CARLOS, CA 94070` ` ` hωMODIFIED FOR APPLE ]‰[ BY` ` h ωWILLI ¦ @Âüÿ* ¸ Ž ¦ Ç ¸ x ƒUSÅš |~„PREÖ$š x}„+BUÆ.B ¸ x ‚M¯dB ¸ É / ùŽ ¸ ùŽ x ªB … x „/MOĨB ¦ ê¸ †x ¯´B »Ž … x ƒMOÄÇB »… x …*/MOÄÕB ¦ i¸ †x ‚*¯ãPxå lx ãA´  # „Ìå ß Â 2R„COLÄyœ ãŒs!t!©ÿ¢€ÊÐú­  ­ ! Ð ­…󭑈…‘󈐸©…暑…îةl…ðLf „S->ēB ¦ ô D x ‚+­ãB ô É[COMPILEݑB ñß Æ ¤… Zlx ÇLITERAÌýB Âh (ñx †CREATÅ`B  ¦Ö x …UPPEÒÍB … ÝÖå   ßå 4 … ß Â x …ERASÅcB Æ jx †BLANKӂB ç jx „HOLĒB .ÿÿµ å ! x ƒPAģB PhD x „WORļB Ph"›±񅯘¥ñiH¥òi ãøÿ£ Ö x ‡(;CODE©†B ¸ ;}Z x Å;CODśB ý2¥Hjx ‡