L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u` L ` -+ [..E0 - +f \$8L$f$På8噅 L" 0"ƚ0`L&H$ 0"h80 $LX$H Z#h #EL d$0L e q80L~$>nk'nk(X (%vu8 # +%L=-^^ %^^`` i#` L *` y#I*L F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL#J8$  `)F `ɠ #I* Z#i ` Z#G" "L`" !v i#8坅 "Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L"@ (L"L bcdeL% ^_^^^^ ^`, i#^_^1r y#LH$! )! ]" ! ! S'.! h $3! !L! "bcde ! ! ! ! !L"L J eeededcecbebfbfcfdfefJ`^_^^^^E ^`e0,iLI `I0hhLE L̆i `eeeeeL i&&&&8坰IiBfffff`IIIIII `EL ai0vvvvvj`^Vy dv88; 5454h`` j I Lɑ #PQ`PHQH IPhQhPL =P` =  CPE%`[&L !IEL < !LJ#8$Ii0ǨV $W8Ie J SRS` H hhhL! ьHH  hhe^^_ L! ILW )   ʊH񌰸Iš hhhhhhhHH` L ` ^LL j L LE ^e^`_a`H` A$Ŝ䛐^_e^^__`)Jeiop ȥ敥ȑLHH c ohhqL      !LHȱȱh^_ H^qheqqr` o^_ ,^Hȱ^ȱ^h(po Heooph^_`TSR`FHI8eopnm opqrh`M0 {hЦstopmnU^_R ij^_lk 󅔆nmLY^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ ^05ȱ^0ȱ^+ȱ^ȱ^poHH L   Lm :HH  mhhȱ𙅄ȱH "#HHȱHH jhh Lhhhhȑhȑhȑhȑ` m /hh I`" ȱ "e膮  R^L 8m因n圑bȱhhћȊћLL ȥ e^eʅʥʆd ee`^de *& edeeƙ`  {8ompnL#$8vС,L :    m  HHHhhhHH ,҄ hh)klnm?Łћȱeȱeעk,5L x8` ћLD*L  ȥʆȑ $PhihiȑȊ ^e]eR mn殤ƕƮ敊 8(L$0pijlk"ћћliA[8`hH`klmniȅ ȅklȥȑȑȑȑȑiȅ` ieȅ` j0 ɐ  #~L#GHHHHH HH hHLB h Lm ,L p % #LƉ  80 ў*%L#  L   `  vL  v v$%0ЩHHl^h#d mhJhhhhhhE` LA$ vd.U"i L48,LLMҐL  ~),(,,ѸLL hhL ` ȱLL" ) q L H ϐ  ~  ohH  # #8 uvLi ,  ~$8$0`L ƹƸ$HH c 8ϐ*IEʼna L,{iweLi^ e^hٲg mH hV_F*ƹƸٲHٹHH LLh^^h_H i#HHHgh7ijk<[/xf ijkijkijk}f ijk[UVW X6 dedeMY[UVWYfUVW ghUVWdYYUVWYUVdeMVq`$`[UVWPY_Q`qUVWY[UVWYUVW de/?2rdeMY[fijkijk#ijk(f -ghgh2ghUVW2YYUVWY'f ijkijk\xUVWYUVWUVW2Y\\UVW2Y\xY5 q.?6@rd6?e`$UVWY_LUVWYQdelmnlmnfijkijkf ghf ijkijkghghghghfghgh\UVWY \fUVWijkٱ 7>i jk ijk i jk ijk CUVWHf`8r%fMlm nRYWUV W\f`8r%f aghgh Y fqkUV$W'pf`8r%f uqzijkY"f eȱe  . ,` &/L. &/L].=?P<Ȅ> sʆ>PHt?QnL tp=hso< LeP>eQ? <=`@ L ʊ( (H hL/$`L-%eЅԐ ,e҅Ր ,JJJ`JJJJӊ)-I-ȄҤѢԆզ8eЅԐ ,e҅Ր ,JJJ` j IQPHH,   hh`L * .`*U . S,  .L6- ` ` hH8HӰ hIiHӅхhЅhIi҄f8Ъх a,8e҅ԥձ&E%0Q&&bӰ ,eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`JJJJӊ)-I-ȄҤѢԆզ8'#i媽,0J(` ,Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',-"&,,i8i#H&ii&hif&i'`'i,-&i,-&iPII&if&HߚLLij  `a,  PQ ``aiśj地a`ʈjiL VSL@TL9 /ʅPQ /L / PȱQL /L,U,R@ ,T,SWP z,)`H)&JJ&&h' &' &' f&')(L *,(ʤL *(L( Ld ʊL[ I`8f`?2`@ j IPmQnL PsoQtp` j IPsQtPiQj֥PiQjLl 8fإuv Lަߥuڥvۥyܥzݥ􅸥uv @Lڅuۅv܅݅ z*L  )򊅤TH UR0PQQPIPPIPPPQ)stop0ghgghgh K=< l j IlP L L 0,  0,-`L ),-  0` )S' # ' ' " Y(L]"HL(IڢIڢ-(h#5ᆥ](IڢʥH &HɁ ! ]"Š( S'hɁ]( hL&` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv)  &נ& i'h "` # v! m'Lv! #Ș殅 v!iȅ ƣ`5Dzh(F y#0ɠ "穝' v!'  % ɠL"#](  Z#b( U" Z# $ g( H 0 I &g( h &l(LE/8 i:`  Z#[& "pLG "# $ # L#H 8! v! 'hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ1rҠ& v!iP q# ]#Ɉ "" $ i8H$șȩ0LN& % v!% #% # 0"ƙ L"  #i 0 i8.ș0șyc&yb&ya&y`&00ڊIi i/ȄȪ)ƙ.șI)$Ъ0.ȩ+.8嚪-ԠȠҮŠŠ)a(Ӡ̠ƠӠӠӠ)a(ӠŠҮ)cq@a(ɧ͠Šէ̠ĠԠ)a(ҠէŠĠŠҠϮ)a(٠Š٬ǠŠ)iEa(ҠԠɠͬɠΠŠ)a(ԠɠРө)\cPI-a(Ҡ)\cPa(Ӡȩ)c\1\$M6t6cca(ŠԠӠϠŠҠ)a(ΠҠؠĮɠ)a(ϠŠŮΠŠŠ)k;a(ǧԠŠ)a(Ҡ)E@GS(ٯΩ)&@`@9()%[@d"eM6ca(ЬҠӠΠӠϬ)f"a(ӠΠĠŮԠӠĠΠ)a(ؠĠƠӮȠ)a(ӠҠӺ)#UVW Y6,ccPa(²a()\oPHa()G\Pa()\oP a()G\a()GP#\a()G \a() d2eUVWYCM6oPa(ŠŠ)oP a( ԠԠ̠ŠӠȠɠ)ccc S(ԠӠҠſ)&@cca(ϠՠPa()GPa()MPa()GP a()GP"a()Pa()GPa()GPa()AoP&a()EPa()GPa()Pa()Pa()oPa()\(#N\oPa()\oPa()\oPa()GPa()ZP a()GPa()GPa()GPa()GPa()GPa()GP"a()G\P%a()P a()GPa()GPa()GPa()GPa()GPa()PP a()cPa()Pa()G)GP a()Pa()GTP a()GPa()GPa()Pa()QPa()GPa()GPa()GPa()GPa()GPa()PPa()GPa()GPa()GPa()GP-r -r%-rq! `-r%-rq-rY\[<]ŠϠנ M6d2e?ccccccUcPa()Pa()GP#a()P a()GPa()GP"a()P a()GWPa()GP a()P a()GPa(rq-rq-rqY[ ]ԠĠ! UVW PobGY% UVW o PbGY! UVW Po bGY% UVW oPbGY c [N UVWc`-r-r-r-rd#e d ed!e+qoPqq_]ĠŠ5d2e?od"ed#e d ed!e3 qq q o P_ ]٠7 UVWc-rq-ӠӠӠRKa(ӠŠɠΡ)\a(נɧ̠נ)a(ŠĮ)\ w_@R`-r$8-rq-rq\\\\UVWLY$SԲqԲ`Բ%qT[]ŠŧӠ5d2e?od"e#eoP$>d"e ca(ԠҠӿȯͩ)?`.?6@r$?q.?6@r6@d6?e`$?`$H`$R_>LH`-r$8-rq Աqq-rq \\\PqIUVWXY`%["J]Šՠſ)q/9qa(٠ӠӠ)F E()F E()n:d"ed#e d ed!ed2eo8  rP8 r`-r%a()G`-r%a()G,;`-r%a()G`-r%a()Gd2e1=d ed!ed"e d;q/?r`$qԱ`c$_)q`$q_4+`-r$`$4_97q`-r$`$9_4"4qq/?dr`-r$45_9&8a(Š(ՠԠ̡͠)a(էŠԠ١)w_!]ŧӠ٠Ҡ]ԱԲ`$4_/?r?q/?r`$q Ա`c$_?q/?r`$q Ա`c$_WX6 f`%f ghUVWdYY[T}dede0dededededed ed e_}d ed ed ededededeLdedede`[ٿ)a()[x(#dede0dededede ded ed ed ed ed edeT)#dedededededeLdedede`q4#-rq'-rqr]Ša(ĠΠԡ)[%a(٠ͧӠӠ)a(Ӡӡ)[,a(Ƞ̬ɧ̠)a(ՠԠš)[a(ϡ)[a(ɧ͠Ԡԡ)[4a(̠ɠΠ)a(Ӡՠ)a(ˠԡ)[Da()a(ԠΠɠ)a(ӿ)[La(٠Э)a(ĠՠҠ)a(Ԡ)a(ǿ)[#a(ŠԠ)a(ĭάҡ)[-a(ŧŠԠҡ)a(٠ӡ)[Ba(٠Р)a(ŠԠԠɧ)a(ΠӠҠԡ)[_/?a(ΧԠŠРԡ)[2a(ŧŠԡ)a(ҠǠ)a(ҡ)[|_}/?rB}a(ȠϡŠ)a(٠)Gd2e?a(С)d2e[6~a(Рԡ)a(ҠҠ)a(ġ)[Ea(٠ЧӠԡŠŠӠΧ)a(ҡ)[Ba(ΡŠ)a(ˠԠ)a(ΠҠҡ)[;a(Š)E@a(ӠǠ)a(ԠƠŠ)[Ka(šҧӠԡ)d2ePa()d2e[7a(ԡ)a(ΠŬ)ŧŠ)d2ea()d2e[;a(ɠĠ)a(Ġ)a(ŠҠš)[5a(ԡ)a(٠ԧ)a(Ǡˡ)[_/?r'a(ԠԠ)a(٠ҡ)[Ga(٠ЧӠԡ)a(էŠΧ)a()a(Ҡ)E@[Ya()[_/?r$a(ŠΠ)a(ҡ)[9a(Ƞϡ)a(ŠƠ)a(Ӡ)a(ǡ)[0a(ԠŠ)E@a(ԧӠȡ)[(a(ԠԠɠĮ٠Ԯ)[Da(ΠŠӡ)a((ՠ׮)a(ԧӠ̡)[Ta(ɠԠš)['Ud2ea(ˠ)d2e[gVd2e?UVWa(ˡ)q.?6?r.?6?r.?6?r.?6?rUVW^YYd2e[,Wa(٠Ӡ̠Ϡՠǡ)["Xa(էŠĠ4a(ՠĠŠՠǠӿ)[+a(ŠՠĠ)a(נҠԡ)[ P_Q/? r]ŠԠ2Qa(٠͠ӠǠҠ̠Šš)[6Ra(̠ɠΠ٠)a(ՠ)a(ˠԡ)[9Sa(ԧӠԠˬ)a'd2ePa(ġ)d2e[5a(ՠҠԠҠӠĠҠ)E@[Ia(ŠՠԠƠǠΠŠǠԿ)[Gd2e?\a(ġ)\a(ġ)\a(ġ)d2e[a(Ġͬ)E@[?6?r.?6?r[&$oa(ԠŠҠϠ)G %`.?6@r$%d6?e[[]ĠӠΠc]_/? r;a(Ƞ͠Š)a(է̠Ҡ)a(Šҡ)[-a(ՠΧԠԠŠŠƠ)[SeKdTedUedVe]dWedXedYedZed[e`[]ŠԠUVWM@ Y[\]ŠϠŠ`UVW+aq6?q.?r.?r.?r.?r.?r.?rbYf[&UVW,Yq.?a(Ġˡ)d2eV\$^d"e[]Š͠ҠԠ]d@edAedBedCe\dDedEedFe\dGedHedIe]dJedKedLe]dMedNedOe0dPedQedRedŠȠ٠Š)a(ĠŠĮ)S\$M6pTo a(Š̠ŬΠ)a(ΠȧҠͧӠŬ)a(ԠӠԠ٠ϠԠΧ)lUa(ҬՠԠԠΠ)a(ǠӮ)oPd2eՠŠĠҠӬ)a(Ҡ͠ΠĠ)cRPP a(ŮǮĠŠ)P a(ΠĠΠϠ)P a(Ԯ)caQa(ҠԬҠ)cP a(֠)P a(Ƞ)P a(Ġ)>Rca(ϠϠԠԮ)ca(ɠϠ٠٠ԠȮ)\$eJM6cca(ŠԠǠŧ̠Ϡ)a(ҠҠӠӠΠ)a(ŠӮ)LKca(Ӡՠ̠ŬҠĠ)a(ΠŠͮŠӠΠŠЮ)L\$SOM6cca(1MOVE$LASTMOVEMOVE*$MAXPERNTS0:@$ *** MUGWUMP ***N$R(50,50)X$::$"WHO DARES HUNT THE DREADED MUGWUMP?!":"TYPE YOUR NAME IF YOU'RE NOT":"TOO SCARED!!";:N$$:"DO YOU WANT THE RULES, ";N$;:Z$$R(Z$,1)"Y"2400%\ NTSBPERNTS%#jPERNTSPERNTSHPERNTSG#kHPERNTS0:APERNTS0:BPERNTS0f#l ** STORE THE 'BEST' MOVE|#n(X$,1)"N"1905#o21);Y;" - ";PERNTS#qPERNTSMAXPERNTS1915#sMAXPERNTSPERNTS:MOVEY#{PERNTS0:Y# ** MAKE THE 'BEST' MOVE$RTRIAL(T)TRIAL(T1)11895="PTRIAL(T2)TRIAL(T1)11875^"QBPERNTSBPERNTSP51.5:1880u"SBPERNTSBPERNTSP5"XQ16"]TRIAL(1Q)TRIAL(1)Q1895"bBPERNTSBPERNTSP51.5"dQ"gAPERNTSBPERNTS1897"hHPERNTSAPERNTS:1898 #iHPERT1)11850.!TRIAL(T2)TRIAL(T1)11820O!APERNTSAPERNTSP51.5:1825f!APERNTSAPERNTSP5q!!Q16!&TRIAL(QQ)TRIAL(1)Q1850!+APERNTSAPERNTSP51.5!0Q!21895!:T29!?TRIAL(1T)1TRIAL(1)1870!DT!I1900"N775" PERNTSPERNTSP91.5:17657 PERNTSPERNTSP9B T16` TRIAL(1T)PLACE11900y PERNTSPERNTSP91.5 T 1900  ** FIND THE POTENTIAL PAIRINGS T29 TRIAL(1T)1TRIAL(1)1815 T 1850 !TRIAL(T)TRIAL((1) AND TRIAL(2) WOULD BE THE 8 9 PAIR1Q38FTRIAL(Q)91725MQW1790 ** SEE HOW MANY NUMBERS ARE PAIRED WITH THE "9"P17QP11755PLACEQPTRIAL(QP)9P1755PTRIAL(1)PLACE1790 PLACE81TRIAL(1Q)LPLACEQ19000PERNTSPERNTSPP7QA1900 ** CHECK FOR POTENTIAL ...7 8 9 PAIRING ** FIND THE "9"& ** NOT Q=3 TO 9 BECAUSE TRIAL(9) WAS ALREADY CHECKED FOR NUMBERS IN PLACE; NOT Q=2 TO 8 BECAUSE IF TRIAL(2)=9 THEN TRIAL1 ,P11650(@PERNTSPERNTSI03EP27CJQP11650]OTRIAL(QP)9P1650rTPERNTSPERNTSI0yYP^1650r ** CHECK FOR NUMBERS THAT WILL BE IN PLACE (.....7 8 9)wTRIAL(1)LPLACE1700|PERNTSPERNTSPPQ18ECK FOR ...7 8 9...INSIDE THE ROW (NOT AT END) ** FIND THE "9" FIRSTOQ28dTRIAL(Q)91545kQu1650 TRIAL(Q1)81600TRIAL(Q1)81650PERNTSPERNTSI0P27QP91650"TRIAL(QP)9P1650'PERNTSPERNTS1)1İ7500Q6 ** CHECK FOR NUMBERS IN PLACECLPLACE9QQ911gTRIAL(Q)Q1520{LPLACELPLACE1PERNTSPERNTSN0Q ** IF COMPUTER GETS THROUGH LOOP, THAT'S THE WINNING MOVE, SO MAKE ITMOVEY:1940D ** CHX19:TRIAL(X)B%(X):X[K1(Y2):ZTRIAL(K):TRIAL(K)TRIAL(YK1):TRIAL(YK1)ZbK ** EVALUATE THE NEW POSITION ** 1--LOOK FOR PAIRSY9TRIAL(9)9PERNTSPERNTS6Q18TRIAL(Q)TRIAL(Q1)1İ7000 TRIAL(Q)TRIAL(Q S16336:X110:B(S)(S)(S)(S)(S)(S):HW110:NY32000x ** SUBR: COMPUTER MAKES THE MOVES!! ** GET A WORKING COPY OF POSITION ** MAKE A MOVE, GET NEW POSITIONY29:YLASTMOVE1915Y9B%(9)91915 ":3 SUBROUTINE: PRINTS RULES:"TWO PLAYERS COMPETE TO REARRANGE":"THEIR LISTS SO THAT THE NUMERICAL ORDER":"IS FROM LEFT TO RIGHT.":"TO MOVE, TELL ME HOW MANY NUMBERS,""COUNTING FROM THE LEFT, TO REVERSE."1110:!8K1N:A%(K);" ";:K5VE21E111180D[E211160O`24);ijK1N:B%(K);" ";:KtPT01T1T0PT11:E11E201172" MOVE "P" ";24):P91175" MOVE "P" ":1180 " MOVE "P"Z#M_#`$d#UVWdYd#Y'[#-rq -rq-rq#-rq-rq-rq- rq - rqq5#-rq-rq-rqx-rq-rqx-rq-rq-rq- rq- rq7#UVW  <#de-r F#de-r P#de4$Y%B%36804.Y%B%3660348B$"GO UP":3690J4LB$"GO DOWN":3690T4`B$""d4jZ%C%3750t4tZ%C%37304~C$"GO FARTHER AWAY":37604C$"COME CLOSER":37604C$""4TT1432604320004 ** SUBROUTINE:SET UP AXES **5((X%A%)2(Y%B%)2(Z%C%)2)E3 ** ROUND TO 1 DECIMAL PLACE **Y3 D(10D.5)10f3 R(T,3)D3 "YOU ARE ";D;" UNITS FROM THE":"VILLAINOUS MUGWUMP, ";N$3 X%A%36103 X%A%35903 A$"GO RIGHT":36203A$"GO LEFT":36203A$""OUND HIM IN ";T;" GUESSES!":"DO YOU WANT TO GO BACK AND PLAY":"THE TWO-DIMENSIONAL GAME";:C$:w2p (C$,1)"Y"20102z "I THINK YOU NEED MORE PRACTICE,":N$;" --- PLAY AGAIN";:Z$::(Z$,1)"N"32002 320002 ** DISTANCE TO MUGWUMP ** 3 D33301 6000@1 :"NEED A HINT, ";N$;:Q$:(Q$,1)"Y"3330Z1 :A$;" ";B$;" ";C$1 :"WHAT IS YOUR GUESS";:X%,Y%,Z%1 R(T,0)X%:R(T,1)Y%:R(T,2)Z%1 ** NOT FOUND? GOTO 31301* X%A%351014 Y%B%35101> Z%C%3510a2H "YOU FELL YOU HOW FAR,":"IN A DIRECT LINE, YOUR GUESS":"IS FROM WHERE THE NASTY MUGWUMP":"IS HIDING."h0b 0l ** HIDE MUGWUMP AT A%,B%,C%0 A%(10(1)):B%(10(2)):C%(10(3))0 :"MUGWUMP IS HIDING ... TRY TO FIND HIM, ":N$;"!!":T11 T1 YOU PLAY THIS ONE!"}/& :"IF YOU THINK THE TREACHEROUS":"MUGWUMP IS 8 TO THE RIGHT OF":"HOMEBASE, 3 ABOVE HOMEBASE, AND"/0 "2 AWAY FROM HOMEBASE, YOU ENTER":"8,3,2 AS YOUR GUESS AND THEN PRESS":"THE 'RETURN' KEY. AFTER"b0: "YOU GUESS, I WILL T**p. "THIS TIME THE MUGWUMP IS HIDING":"IN A THREE-DIMENSIONAL CUBE!":"NOW YOU WILL HAVE TO SPECIFY THREE,". "NOT JUST TWO, NUMBERS TO FIND":"THE ELUSIVE MUGWUMP. IF YOU":"THOUGHT THE TWO-DIMENSIONAL GAME":"WAS HARD, ";N$/ "JUST WAIT UNTIL0 - A$""- Y%B%2890+- Y%B%2870@-" B$"GO UP":2900W-6 B$"GO DOWN":2900a-J B$""q-T TT1:2450|-h 32000- ** 3-DIMENSIONAL MUGWUMP **- - 936- :"WANT THE RULES, ";N$;:Z$:(Z$,1)"Y"3200. ** HERE ARE THE RULES (10D.5)10", D1.4Ġ9:27497, D2.8Ġ1:2749M, D5.7Ġ11:2749b, D8.5Ġ7:2749x, D11.3Ġ6:2749, 2, 4500, "YOU ARE ";D;" UNITS FROM MUGWUMP.", X%A%2820, X%A%2800, A$"GO RIGHT":2830- A$"GO LEFT":283B$+F (B$,1)"Y"3010#+P 2660Q+Z "I THINK YOU NEED MORE PRACTICE,":N$"."+d "DO YOU WANT TO PLAY AGAIN";:Z$::(Z$,1)"N"2400+ 32000+ ** DISTANCE TO MUGWUMP **+ D((X%A%)2(Y%B%)2)+ ** ROUND TO ONE DECIMAL PLACE , D;:X%,Y%&* ** NOT FOUND? GOTO 25007* X%A%2720H* Y%B%2720V* 13:4500* "YOU FOUND HIM IN ";T;" GUESSES!!":T42650+( "YOU SEEM TO KNOW YOUR STUFF, ":N$;". WOULD YOU LIKE TO PLAY A MORE":"DIFFICULT THREE-DIMENSIONAL":"VERSION";:HIDE BEAST AT RANDOM A%,B%s)` A%(10(1)):B%(10(2))::"MUGWUMP IS HIDING ... TRY TO FIND":"HIM, ";N$;"!!!"y)~ ) T1) T1İ4000) T12520) "NEED A HINT, ";N$;:Q$) (Q$,1)"Y"2520) A$;" ";B$;" ";* "YOUR GUESS (X,Y)"T AND 3 ABOVE":"HOMEBASE, YOU ENTER 8,3 AS YOUR"("GUESS AND THEN PRESS THE 'RETURN' KEY.":"AFTER YOUR GUESS, I WILL TELL YOU HOW":"FAR, IN A DIRECT LINE, YOUR GUESS IS"("FROM WHERE MUGWUMP IS HIDING."(B :"PRESS 'RETURN'.";:X$)L *** LS HOW FAR TO THE RIGHT"'"OF HOMEBASE YOU THINK MUGWUMP IS HIDING":"AND THE SECOND NUMBER TELLS HOW FAR":"ABOVE HOMEBASE YOU THINK MUGWUMP"'"IS HIDING. (HIT 'RETURN'.);'V$:3("FOR EXAMPLE, IF YOU THINK THAT MUGWUMP":"IS 8 TO THE RIGH:"THE GRIDPOINTS. HOMEBASE IS POINT":"0,0 IN THE LOWER LEFT HAND CORNER":"OF THE ENTIRE GRID."i&&"PRESS RETURN TO CONTINUE THE RULES.";:V$&':"YOUR GUESS SHOULD BE A PAIR OF NUMBERS":"SEPARATED BY A COMMA. THE FIRST":"NUMBER TEL*** HERE ARE THE RULES ***#%a100b%f"A MUGWUMP IS HIDING IN A GRID,":"LIKE THE ONE BELOW.":k%p165%zK901:K;" . . . . . . . . . .":K:%" 0 1 2 3 4 5 6 7 8 9":%::::::%34,14c&"THE MUGWUMP WILL BE HIDING AT ONE OF"ĠӠŠŮ)Xca(ŠǠӠ̠ŠǧӧԠŠ͠ƠŠή)Xa(ǠӠĠ٠ҮӨũŠϠŻӠӠӺ)GZca(ҠӠשӠŠˠĠ̮)GZca(̠ƠŠΠӠŠΠ٠ŧĠ٠)GVa(ƠӠӮՠ̠ŠΠӠҠŮǠҠ)Va(ԠΠӠŠ̬Ӡ̠ӠŠ) oP a(ӠٯΩ)!\ `$`$~\$Xa(̠Ӡ̭ŠƠ̠ŮԠӠŠ)GXa(ӠĠàӠƠŠϠŠԠŠƠ)Ta()/"a() hoP'ra(ŠɠàˠΠ) |oP'a(Ԡjkijkijkijk[ ]Ԡ٠ qK q.?6@r`.?6?r.?6?r%qq`$  d6?e[ ]Kd2eM6oTa(fijkijkijkijk [4]Ϡqֲֲqֲq M`$TR\M_WTq\MWq`%q\`-r$f_*] q-r\d&ed$eHd%ed'ed,eM -r$_$Y*qq-r\`-r$_n$Y._P-UVW-rq-r-rY zUVW`-r%_$Y qUVW`-r$q_Y`$P!UVWX6`-r$q_Y`$,UVW`-r)GYoP[~[̠ӠΠԬĠӠԠ٠)GVa(ΠΠĠήӠҠάҠӮҠΠΠԮ))ca(Ԡ٠٠ϠԠŮ)G\ `$d2e_~]$d2e?oPUVWa(ӽ)G#lca(̠̠Ӻ)Xvca(Ӡ٩ӠҠРƠŠԠŠӠϠˠ̠Ӯ)Ta(ҠԠӠЬҠԠӠϮԠ٠̮źӮ)Zca(ҠΩӠӠӺ)RNca(ӠԠŠ̠Ԡ͠ΠĠٮ)XXa(ӠРҠǠԬԠƠ̠ӠԠӠө)GXba(̠ӠӠӠΠԬӠ̠ӠϠҠΠ)GX&a(Ӡ˩ӮӮ̠ĩӠӫΠ)G'0ca(Ԡ٠٠ϠŮ)G:\ `$:\$RDa(ΠΠϠǬŠŠ̠ӬB(20((A$)2)):B0B1( B:A$:)  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASICd(4);"BRUNMENU" CENTER STRING A$   ԍñò΍ [ $D*\a(ŠӠ)Fʱc_r$v*Y *q0*q`88rr%q@*UVWXq.?r`-r$*Y_6)*-rq(_D*%*UVW@-rq-rY[+ +qʱdq8ʱ r qʱ \a(ŠŠӠ׮)G_'X(UVWIXq-r-r-r-r` $)Y )\*_' )q")UVW_*6)Yq_")9*UVWq.?r`-r$v*-rq(:*q.?r\d(-'UVWL`-r$*`-r+$*Y'\*'_p&'Q\d(UӱVWLͱqӱ̱q-.?ͱrr-.?ͱrr-.?ͱrr-.?ͱrrx(-ӱrq̱Yӱ[*(UVW@`-r$(-rq(_h$=(Ya(ŠΧԠŇ)c(*'UڱVW`--ڱrr$.'Yڱ_(.'q-ڱr-rq(_h$ZV'UVWLͱq̱q-.?ͱrr-.?ͱrr-.?ͱrr-.?ͱrrj'`̱ $'`̱P$*7~'UVWq.?r`-r%-rq'Y 'Yrq(_h$f&YZp&UVWLͱq̱q-.?ͱrr-.?ͱrr-.?ͱrr-.?ͱrr&`̱$&`̱$*;&UVWq.?r`-r%-rqY &Y\d(2&UVWL`-r$*`-r $*Y_Y_'1%`-rx%q`-r%qY`$&q:%UVWq.?r`-r$ &-rq(\F&a(ŠӠϠ)FʱE()c\ +a(ĠӠӠӠ)G_X% &Y&`$V'q:*&UVWq.?r`-r$f&-$q˱˲˳`-r$%a(ԠŠӠά٠ή)c_|$%-rqq\ +3%q\d(qqUVWL`-r $%4D%a(Ӡ)ca(ՠΠӠӠ)G8X%UVWq.?r\a()FʱG9()$|$`@9()$%)^$a(ŠŠӧҠϧ)c_#"h$\a(ŠӠϠ)Fʱcr$\ +=|$S(ҠŠ)'ʱ\*˱qʱd˲q8ʱ r ˳qʱ V$`˱˱˲˲˳˳$$a(̠Ŭ٠ή)c_|$Tr8r\xZUӳVWذqرٰqٱӳ\Lذqز\رqر8ӳrزqز8ӳrYӳ[.ʱqn8r8r<[((#oa(ӠӠŠŠƠî)cK#S(ϠՠԠϠŠԠ)&@`@9()$^$`@#[ԍ΍ Lذqذٰqٰ\YZ_(#M6Md,e[/Ld eذd!eذd"eٰM[/d eذd!eذd"eٰM[xdeUd,eU[]رq8r8r8r زqرٱq8?rɲq/?rɳq/?rI2UVWq8ɱɲr-rq.?ɳr-rq.?ɳrY<UVW@-rqYd\PnUVWUVWذqٰq\Lذqذ\Lذqٰq\]]à]]ĠҠŠŠ]٠Š]6 q q qqqq!O4@rD4LrD4rC@"r4qq q(q q(qq -(ɱq/q R R q q qq6 q q qqqq!O4@rD4LrD4rC6 q 6 q q 6 q66 6 q q qqq6 q q R q q qR R R R R R q q qqqqqSR q q R q R q R P,@1% 2&3'4(#4'8 +< /@1"5&9* =.+@&1*= '414 =@'&*+  !"#$%&'()*+,-./0123456789:;<=>?@!1"2#3$4%5&6'7(8 )9 *: +; ,< -=.>/? 0@ !%)-159= "&*.26:> #'+/37;?  $(,048<@  !&+016;@ -*'$=:74)=*>+?U @ QJJJ`ŴxaI1S-Q/ ? QJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! & #` L # !" #`#&/'$% #`E%0Q&&S [ TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00', "&, i8i#H&ii&hif&i'`'i, &i, &iPII&.if&JJJJS)PIȄR-QTU/T8ePT ? UeR .WSP.)`*()H)&JJ&&h' &' &' f&') .'#i-| 0J, i` @ & Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+-  8TeRTUU+5& ˲ ˳  = ! ' - ر4 {ز; ٱB ӳI ӱP MͱW -̱^ d j p Mv ڱ}    ڱ  Ӳ } =@1 4*&'+@ @(  ( (  ɱ ɲ ɳ A ذ ٰ ʱ ˱   %,3(W               `%qPF*رq-rdq-rٱq-rdq'\ֱqd\ֲqd=q.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r#q-rq-rq-r\ Mq q ;*qֱq ֱqֱ8Ӡ)F-rE()F-rE()F-rE()F-rE()F-rd,eU<S(̠ҠԠΠ٩)''qdV`^$MMca(ҠΠנԠ)a(ԠŠȠԡ)_\pdY7cca(Š٠ƠǠӠĠ)\,6q/?dr2a(ĠԠ)F\XUVWYqαqcq8rca(Ҡ)FE()F-rE()F-rE()F-rE()F-rE()F-r[a(ŠӠ)F-rE(Ϡ)F-rc@0q6PFqPF8سرrȹq-rıqرqس2DUVWq\-rqȹıdY*HqqPF8زسrȹq-rIJGJqسqزUVWq\-rqȹIJrزqP/?(r-rq /?ر r-rqز/?xزr1ȹq/?:rUVWر-rqȹYq\1ȹq/?:rUVزW-rqȹYq\Wسqر/?زرr -سrq2/?drıq8-سr-rrIJq8-سr-rr3+ca(Š[]ΠŠq(#\q6[ ,]ŠŠŠ96d,eUVWXqq-r\M@q\MY[Dd6?eMoa(ŠˠҠȠƠծ)αqHرq/?٠]٠ŠGO4 rD4 rD4rD4rD4rD4 rD4 rD4 r_(#]ŠŠUq1?r̰q̱q̰q-̰r-̱rq88̰rrd'qq-̰r,X[Ycӻa(荠ęAHƈR-_Nη@@Ӡ)BM\NH)$+,<qd2(Ɏ@IF,X9VGΉֱBq3q8B=a(4Z@)F](Ƞ)F))-LLrE8))-JZ(F)rE(`)FY)-ӚIr8ir[6Za(ዌU @ QJJJ`ŴxaI1S-Q/ ? QJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! & #` L # !" #`#&/'$% #`E%0Q&&S [ TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00', "&, i8i#H&ii&hif&i'`'i, &i, &iPII&.if&JJJJS)PIȄR-QTU/T8ePT ? UeR .WSP.)`*()H)&JJ&&h' &' &' f&') .'#i-| 0J, i` @ & Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+-  8TeRTUU+5&   α ر ز cȹ Y! ' . Rس5 Qı< IJC K >Q X ` Pg >̰n ̱u ~  b  Z ٱ * ֱ ֲ ] l  y|||||||||||||||||||||||||||||||||||||||||Z wd  d^L2     `4P qqqqqqqqqqqqqqqqqqqqqqqqqqqqqpppooonmlkjihfedbb_^\ZYXVTSQPNLKIGFDCAA?>=;;:9877666578;>BFKPV[afkosv              0`_ H_U m8??,-- ???8880-E)!!!!$# 8J %ccU| (!5}hldd--   `\-"  z#????Xǰ   ٮà îàҮʰ à*ՠɠŠ Š!Р"ñ ò Š ϲŠůР7Ƞ Š̭ϠӠӠ  ϠӠ٠ӠԠUӠŠŠĠ Ԡ Р1$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00      ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ    0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ٠)GUVW Yc%KM6@p()a@E(Πϲ)Qk ijk ijkijk 7lmnlmnlmnlmnVfijkijkijkijkijk ijk doa(ՠŠӠ٠)cP a(ˠF dM6nLVxfl m nl m nl m nl m nl m nl m nlmn Ql mnl mnl mnl mnlmnlmnlmn lmnIfijk ij  $1$P 膸 ": ,i  4 }LuH0h A$ e ,Lt 3 LL Ȫ*ȱ_ȱ{ȱȅ| L.LUL=`?EXTRA IGNORED ?REENTER   e i` "  L Z  ^ _ LG ,? ɠ )H h`0{|uvLh$L* =yz` @ `" ;  @L ] , , Le ]L, }~,  $P )0 ]  ^eQQP&QPe PQ L  HH ~h* ph i# ȥ`L#hpoj iL   ,ȱȱ` @ #(:5,;F ~$0 +% L _I`$ #i)$ )L(ʊ$vHuHH @L  vQ 8egh ` e ɰ ,ZL LhhB;uhvhh e`:,  "hhh` ~ ɫ   L@L* HɰɫЉơhL, ,h`PQ/ Q^ԥP &^ &^ePP@ HHLLH:L8gh}~`Ƀ` S $L*?`gh<=ij>?`v(Le lL7 HH枱`8Є .0 _ .0 _ _ И H e ihh eHiHvHuH  m j %^_L# ! "  j y# HHH ZvyzW4ȱuȱve$v# _uv % Z *Lb-逐 Pћ `gȑggiihij ,stopijklmn KURhhz`gihi` ,   ,Ђ hhPQPQD Z ȱȱQP- % ) _$! $ȱȱж _L3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕ 8ɀA N4O0Ťș98:I8xІș Нƹ`ghȥQћ =v %  . F v Y Lij  Y  D_i^aeii`jij圪8iae^_^`_a8stopiejȄ PQmnij egh^_^ ijL< ȱ^Șe^^_iȑ^^_ҢLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` mn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H {h0hhpo`M$L*  ]` H _h PCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫANOҾSGINABUSFRSCRNPDPOSQRNLOEX//m/s*u*y*}**U*l\****+++h*G?J"loz qiH#$#  &'8!'''1(([=Q}yy{x!{_"}&PWFQ&dgENFONEXDATINPUDEDIREAGTEXPRINCALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMRO٠)2ca(̠Ӡ)9<de de,dedeLdede)-FdBedCed>e.?Lrd?e.?Mr;Pd<e8.?rrd=e.?r8.?r0rMqg7+++)))+*8*G*++..a/g//W)J KM6a()GP(a()GP(Ka(Ԡ۠ǠԠà)GPa(̠)GP(0a()M(ca(ԠŠҬî)ca(               ٳqٳٴqٴ$f gرhٱgزhٲgسhٳgشhٴUVWYY5q.?6@rd6?e`$UVWY_ LM6 qf UV W# `8r$/%`$*q_/ *q/ijk4Y9fi!j#k l mn"!de/?drdeMY;رq ٱq زqٲqسqٳqشq"ٴq UVW $fgرhٱgزhٲgسhٳgشhٴ` $+رqرزqزسqسشqش+ٱqٱٲqٲ2òq`2$`8r8r%òq/?r,óq`2$`8r%óq/?r2ôq`2$`8r8r%ôq/?r!fñi j k l m n fòijklmnfóijklmn!fghgh?ghghDYIYN\XUV%WX6]f lmnbUVW YgflmnlYqUVWxvdedeM{YUVW2,ñq`2$`8r%ñq/?rLM6\UV&WX6fghfgh UVWYY q*UVWX6f`8r8r%f!UVW &UVWY+`8r8r$5 0de deM5ghgh:jkijkijkijk7i"j#ki!j$ki j%kij&k *i j%k i!j$k i"j#k UVWde-rde-rMY5q.?6@rd6?e`$UVWY__ |UVWX6fghg'h`$fghg&h`$f ghg%h`$f ghg$h`$f ghg#hq`$YfDijkirqxE-rq-rqJ-rq-rq!OfUVWij'kY!TfUVW'ij'kY Yq^f UVW' cqhijkmY=rflmnlmnlmnfgh wq- rq-rq-rqx-rq-rq<-rq-rq<"-rq-rqx'-rq-rqx,-rq-rqx1-rq-rq<6-rq-rq<;-rq-rqx@-rq-rqj-rqx-rq-rq<-rqx-rq<-rqj-rqx-rqd-rqx-rq-rq- rqx- rq- rq- rq- rq- rq - rq- rq- rqVW Y}fghYUVWdedeMYY\L5q.?6@rd6?e`$UVWY_&fUVWij'kY_< LM6-rq-rq-rqd-rq-mnFghghKghghghPfUVWUijkY)Zfghghgh*_fijkijkdf ghi`%\LnUVW X6sfghxUՠŠϠ)'/`$`$`$`$ de2deM_LM6fUVWij'kY#UVW'(f`8r%f  -ghY2f UV W'7ij'kY<UVWAflŠ)a(ҠӠՠ٠ŠϠ׺) o U a(ŠŠ)a(ҠŠ)a()a(Š)T oa(ϠĠ٠Π٠ĠԬ)a(ԠΠ٠Ǡٮ)1 oS(Ƞ٠Ġ d6?e]Šɠ]Үˠ̠8]ŠŠɠή̠ҠŠ\}O4rD4r KM6P a(Šɠ) oPa(٠Ү)V oa(ҠҠԬ     7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ)j'_P#)Π)FE(ӡ) 'ccP $'a(ŠǺ)G/.'d2e`%a(á)d2e%8'`%a(٠ġ)B'`%a()L'`%a()V'` %a(٠)`'` %a(Šˡ?6?r.?6?r.?6?r.?6?rTY^[(#KM6o P 2#a(ՠנԡ)0<#ccPa(ŠĠӠΠġ)A#UVWY F#ccP a(͠ԠΩ)!P#±q.?6?r`±$ _P#A'KM6o a(ՠŠĠŠıWX6fUVW UVWgh'gh'Y&UVWq.?6?r.?6?rY$Y6)UVWq.?6?r.?6?r.?6?r.?6?rY.Y1`$83` $(#8[@UVW .Jq.?6?r.Ӡġ) qa()E()E()E()G\_'M6fgh'_Z",M6a(ԠŠŬġ)6q \@_`1?r$` $,;M6\`1?r%a(ŬԠԠŠ)_dUVf ghqq`'$`=>r$fgh`/? r%\_xq/?r` '%[fgh'f gh' q[` $,)a(ՠԠԧŠ*ZM6a(ԧӠǬԠԧ)_q /?r`f gh'dq2?rg`/?r%\7i`.?6?r$dq\@oPbjqq'kqq'nqq xq q qN@" r Lf q qUVW'lŰm'nYij'k'fg h'g h&(fi j k%)i j k$g h# -M6 2qJ 3q6<oPa(ԣ)FE(Ơ)d"ed#e     ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*HE NUMBER OF INVESTMENT DAYS IS ";X)818F0<8X1EC8Yb8Y28ĭ(L4)(L4)0Y29l8FFYs8Xy8$8.8K1500:K:9,7D DETERMINE NUMBER OF DAYS FROM 0 TO ENDd7N:"WHAT IS THE INVESTMENT END DATE (M,D,Y)?";J,K,Ll7XEJv7b10007lFFK7vNFL3657 CALCULATE AND ADD LEAP YEARS7O(L1900)4:U(C1900)4:WOU7X(NG)W17X(X1)1#8:"TC."+6T:"DO YOU WANT TO STOP? (Y/N) ";E$<6^E$"N"ī130B6hh6 SUBROUTINE FOR CALCULATING DAYS6 0,31,28,31,30,31,30,31,31,30,31,30,316:"WHAT IS THE INVESTMENT START DATE"6"(M,D,Y)?";A,B,C6EA6&100060FFB6:GFC365 5F2000E5G:"YOU HAVE LOST $";Z;" COMPARED":"TO SAVINGS!":335[5HZ(Z100.5)100e5I20005J:"YOU HAVE EARNED $";Z;" BETTER THAN":"SAVINGS!"5OAAVH5PAA(AA100.5)1005Q:"THE BREAK-EVEN POINT IS $";AA6R"PER SHARE, BAR, ET RECALCULATE THE INVESTED AMOUNT, ENTER A 0)"44 HA4H01304:"WHAT IS THE PRESENT VALUE OF EACH SHARE, BAR, ETC? ";M420004"QHM4,:"YOUR INVESTMENT IS WORTH $";Q:"AT THE PRESENT TIME."46ZVQ4AZ0ī3285EZ(Z100.5)100:"THE TOTAL INTEREST IS $";T)32000V3:"THE VALUE OF $";P;" AFTER ";D;" DAYSo3"AT ";R;"% IS $";BBy320003 COMPARE PRESENT VALUE OF INVESTMENT TO SAVINGS3:"HOW MANY SHARES, BARS, OUNCES, ETC. DO":"YOU OWN?"-4"(IF YOU WANT TOD WANT TO FIND OUT ENTER 0. ";D.2D0İ500;2D0160w2:" .....PATIENCE! ... I'M CALCULATING THE ANSWER...."2SR36500:VP2 CALCULATE INTEREST AND ADD TO PRINCIPAL2X1D2IVS:VVI:TTI:X2T(T100.5)1002BBPT30:F0:G0:H0:I0:J0:K0:L0:M0:N0:O0:P0:Q0:R0:S0:T0:U0:V0:W0:X0:Y0:Z01:"WHAT IS THE DOLLAR AMOUNT INVESTED?";P1:"WHAT IS YOUR REGULAR SAVINGS INTEREST RATE (%)? ";R 2:"HOW MANY DAYS ARE INVOLVED? IF YOU DON'T KNOW AN 0KD(4)50d936:3:10:"INVESTMENT EVALUATION"0n:"THIS PROGRAM COMPARES AN INVESTMENT WITH PUTTING THE SAME AMOUNT OF MONEY IN A"0o" SAVINGS ACCOUNT WHERE IT EARNS DAILY":" INTEREST."0}::"WHAT IS YOUR NAME?";A$U1A0:B0:C0:D0:E     _0>'ca(ŠLJ١ՠ٠ĠԠԡ)_0\/\\ca(ՠ٠ԠŠӮŠҠΡ)UVW Y\_ 0UVWY\`%[l]ՠΡn\"oM6a(ՠΡ)8qccaa()Gd2ed eZd ed!ed#eoP`-r$`-r$/-rq\\\UVWLY\[,`- r- r%qNq- r`- r$'- rqc\\d-8r rqY_+a(ԠΠӠΠ)_\[]ԠҧӠ M6S(Ҡ)'' `  $ qq d"ed#e d ed!ed2eo P8 r`- r$Y)UVW- rqY_8` $UVW`- r$Y)UVW- rqY_H`  $UVW`-8r r$Y/UVWЭ)Gq\Za(ҭ)Gq\$[a(Ԡҭ)Gq\$\a(Ġҭ)Gq\[?T'S(֬ȬҠĩ)&@`@9()$`@9()$`@9()$ a(ĠŠ)_8` $UVW-rq Y_$q/?Nr` -r$UVWX -rq Y_Y2>qUVWc`-r%qY`%[(?UVWc-rqY_x]@]ԠҧӠԠTa(ҠԠ)!Ya()q/?Cr` $`-r$UVW!X -rq Y_UVW]Ϡ_/?r$q/?Pr` -r$UVWX -rq Y_$q/?br` -r$UVWq Y_q/?8r` $UVW,X -rq Y__/?r ]q/?Fr`-r$UVWX -rq Y_)q/?ar` $`-r$UVW-rq Y_ %cY-ud ed!ed"e d#eM6 vd2ew[x]ԠРŧӠ'}_/?r ]Ԭڬ q/?<r]ԠРUVW(X -rq Y_q/?dr` $UVW-re d#ed ed!eo PqUVW UVW `- r %a()G`- r%a()GE`- r%a()G`- r%a()G`- r%a()G`- r%a()G`$ua()GY``- r%a()G`- r%a()GE`- r%a()G`- r%a()G`- r%a()G`$a()GY` %cY-d ed!ed"e d#eM6 d2e[]נĠ5d2e?d"Y a(٠ή)\$_cQEccS(٠οٯΩ)&@`@9()$ M6cca(ˠ)Q]נĠ5d2e?od"ed#e d ed!eoqUVW UVW `- r %a()GӽҽӽԽӽˠĽ KM6\ qq \ \\\@6a(נɧ̠ԠРΠӮ)\xUVWXY$M6o a(ˠԧӠή)UVW Y\cUVWԠҠРҠ[]ŧӠ٠ӠŨЩĠԲҨͩĠQ]ŠϠӠөԠҠ͠Ġn]ԽҠԠԽŠ-/Y>O4crD4crD4crD4crC@"rD4 rD4 rC@"rM6M6\\<M6S]ӺŧӠΠнҧӠΠĽР٠ǽŧӠt]נĠģРŧӠΠ               J?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ"TAX RATE PLEASE REFER TO YOUR DIRECTORY"I:"OR CALL THE OPERATOR.":::"DO YOU WISH TO MAKE ANOTHER CALL (Y/N) ";Y$:$Y$:.Y$"Y"ī28:8T9MIN2:SEC60T:1000/9MINPD2:SEC60To94:"YOUR CALL LASTED ";MIN;" MINUTES AND ";SEC:"SECONDS."9TTC(M100)9::"THE TOTAL CHARGE FOR THE CALL WILL ":"BE $";TT;", PLUS EXCISE TAX."9:"FOR INFORMATION REGARDING THE EXCISE",:600D8:"HIT RETURN TO INPUT THE TIME AND CHARGE DATA .... ";C$L828R8d8XZ1900:Z:n8936{8P39258MINPD2:SEC60T:10008D09908T1209608T6097089808MIN0:SEC180T:10008MIN1:SEC120T:1000600J7:"35% DISCOUNT: 5PM-11PM SUNDAY-FRIDAY":13:"8AM-11PM HOLIDAYSS76007:"60% DISCOUNT: 11PM-8AM EVERY NIGHT":13:"8AM-11PM SATURDAY":13:"8AM-5PM SUNDAY"76007:"RATES CHARGED ARE BASED UPON THE TIME AT THE CALLING POINT."8LY LISTED IN THE FRONT OF THE PHONE BOOK .... OR .... CALL THE OPERATOR FOR THE RATES."c6m6006r:"DO YOU WANT INFORMATION ON DISCOUNT PERIODS? ";B$6wB$"N"28693662:"THERE ARE TWO DISCOUNT RATES IN THE CONTINENTAL U.S.A."7NUTE AFTER INITIAL PERIOD-5O6005T:"IF YOU USE AN OPERATOR TO ASSIST YOU, THE INITIAL TIME PERIOD IS 3 MINUTES. DIRECT DIAL IS 1 MINUTES."5^600::"THE CHARGES ARE BASED ON THE DESTINATION CALLED."5c600Z6h:"THESE ARE USUAL8:11:T4TT1!4T1200*4225c4,936:2:"YOUR CHARGES ARE BASED UPON THREE THINGS"464:"(1) INITIAL TIME PERIOD (1 OR 3":8:"MINUTES)"4@4:"(2) INITIAL CHARGE (FOR THE INITIAL PERIOD)"$5J4:"(3) ADDITIONAL CHARGE PER MI::"THE TOTAL TIME CHARGED IS NOW ";PD;" MINUTES."P316:"THE CHARGE IS $"V3e316:15:Ck3z3T59:DD13CC(M100)3X1670:X3K(16384):K12890038:"THERE ARE SECONDS TO THE NEXT":"ADDITIONAL CHARGE." 42=Y$\2F936:2:"THE INITIAL COST FOR THE FIRST ";P;" MINUTE(S) IS ";I;" CENTS."2P:"THE ADDITIONAL COST PER MINUTE IS ";M:"CENTS."2Z22:"HIT 'RETURN' AGAIN WHEN YOU HANG UP!"2dCI100:D12T582P3T1782221253IZER"E1:"WHAT IS THE INITIAL TIME PERIOD (1 OR 3 - MINUTES)? ";Pu1(:"WHAT IS THE INITIAL CHARGE (CENTS)? ";I12:"WHAT IS THE ADDITONAL CHARGE PER MINUTE (CENTS)? ";M1<:"WHEN THE PARTY AT THE OTHER END PICKS UP THE RECEIVER, HIT RETURN." 0 :0936703:8:"TELEPHONE TOLL TOTALIZER"^06:"COPYRIGHT 1978 FRED BLECHMAN"03:"CONVERTED TO APPLESOFT II BY L. HALL"0:"DO YOU WANT SPECIFIC INSTRUCTIONS (Y/N)? ";A$0A$"Y"3000:93612:8:"TELEPHONE TOLL TOTAL     $% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4 eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pԠŠҠî)(QǠԠΠ٠ˠԠŠҠî)(QE6@rd6?e`$-`%Qq8rG2@p()`=>r%@p()UVW'de=>r=>rY%<ca@E(ɬϬ)a@E@E(Π)E@y]ӠΠ ԠΠ٠ˠ# N@"(r1 @p()Ka@E(ɬϬ)M6a@E()(q`=>r $qqoPa()qqf8rghf8rgh`=>r $(a(ȠϠՠ)GG-q.?  OF "G" GAMES.">N2$" HAS WON "(V1G100)" % OF THE TIME."DS"AGAIN ";[Z$q(Z$,1)"N"1040z170"I SINCERELY HOPE YOU ENJOYED THE GAME!":"GOOD-BYE FOR NOW. SEE YOU SOON!":1300 SUBROUTINE: PRINTS LISTS A&B$E11V11 950VV1:LN$" HAS A "(((CG)10.5))10" MOVE AVERAGE"x" AND HAS WON "V" OUT OF "G" GAMES."N$" HAS WON "(VG100)" % OF THE TIME."N2$" HAS A "(((C1G)10.5))10" MOVE AVERAGE"" AND HAS WON "V1" OUT N$" WON IN "T0" MOVES!!!"( E116*E21870A4K1NS>B%(K)K390ZHKiJE11846oLyN1260O1260RN2$" WON IN "T1" MOVES!!!"W\E21fE11390pE21390zGG1T0T1950T0T1940V1lA%(K)A%(RK1)!vA%(RK1)Z(K6E21710GK1(R12)SZB%(K)hB%(K)B%(R1K1)yB%(R1K1)ZK1050 CHECK FOR A WIN BY EITHER PLAYERE11810K1NA%(K)K810K12602ND LIST "; (Q$,1)"N"5105R1MOVE:R1:570=R1CV R1(R1)550iR11R19550r570&"OOPS! "N2$",":"I CAN ONLY REVERSE A NUMBER FROM 1 TO 9."0500:T1T11DC1C11NE11650XK1(R2)bZA%(K)0/"REVERSE HOW MANY IN THE 1ST LIST?8R:IR(R)450ZR1RN450c470"OOPS! "N$:"I CAN ONLY REVERSE A NUMBER FROM 1 TO 9."410T0T01CC1E21590E11500 "REVERSE HOW MANY IN THE RS 6E10@E207J PRINT ORIGINAL LIST & BEGIN=Tb^"HERE WE GO ... THE LISTS ARE:"hcqhT00{rT10w|1050255E11(Q$,1)"N"İ1400E11(Q$,1)"N"490E11490E21ī400(Q$,1)"N"İ140A%(I)A%(K)B%(I)B%(K)*A%(K)T7B%(K)T1>"IG&300'A%(1)8:A%(2)9:A%(3)1:A%(4)2:A%(5)3:A%(6)4:A%(7)5:A%(8)6:A%(9)7:B%(1)8:B%(2)9:B%(3)1:B%(4)2:B%(5)3:B%(6)4:B%(7)5:B%(8)6:B%(9)7, E1 & E2 ARE END OF GAME MARKETO SEE THE BRAIN'S":"CALCULATION ";:X$3:160R"THE SECOND PLAYER: ";N2$w MAKE A RANDOM LIST OF NUMBERSLASTMOVE0:MAXPERNTS0:PERNTS0I1NA%(I)IB%(I)IIIN21K(I(1))1TA%(I)T1B%(I)OGRAM BETTER OR WORSE)";:Z$5 :(Z$,1)"Y"İ5000 "I WOULD LIKE TO KNOW YOUR NAMES.":"PLEASE TYPE IN THE NAME OF ... ":"THE FIRST PLAYER: ";N$ (Q$,1)"N"155("THE SECOND PLAYER: THE APPLE BRAIN!":N2$"THE APPLE BRAIN"::"DO YOU WANT THE COMPUTER ";:Q$:(Q$,1)"N"150 "THE COMPUTER WILL PLAY A VERY GOOD GAME":"BASED ON A HEURISTIC EVALUATION ":"PROGRAM WRITTEN BY CHARLES SULLIVAN." "WOULD YOU LIKE, HOWEVER, TO ALTER":"THE EVALUATION PROGRAM'S VARIABLES TO":"MAKE THE PR;::" DOUBLE REVERSE ";:::> 4 BY CHARLES SULLIVAN, JR.[ FA%(20),B%(20),TRIAL(20) P N=NUMBER OF NUMBERS (1 THRU N) ZN9 dC0:C10 x"DO YOU WANT THE RULES"; Z$ (Z$,1)"Y"146 1190% "DO YOU WISH TO CHALLENGEP04.8:N05.2:I0.5:PP3.3:P91:P5.93 :::] "SELECT THE GAME YOU WISH TO PLAY":z "1 DOUBLE REVERSE": "2 MUGWUMP": "TYPE THE NUMBER OF THE GAME YOU WANT";:A0% A0%22000 #A0%1A0%225 0936 2"THIS IS "OW(NOT AT THE END OF THE ROW); PP=FOR #'S THAT ON THE NEXT MOVE WILL BE IN PLACE; P9=FOR #'S THAT ON THE NEXT MOVE CAN PAIR WITH 7,8,9 INSIDE THE ROW(NOT AT THE END)  ** P5=FOR A # THAT ON THE NEXT MOVE WILL PAIR UP INSIDE THE ROW (EXCLUDING 7,8,9)' 5= DOUBLE REVERSE & MUGWUMP BY CHARLES SULLIVAN, JR ** YOU CAN CHANGE THE EVALUATION PROGRAM'S VARIABLES AT LINE 5. P0=#'S ALREADY PAIRED; N0=#'S ALREADY IN PLACE LOOKING FROM THE END OF THE LIST  ** I0=FOR 7,8,9 TOGETHER INSIDE THE R                    we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::- ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us and" GAMES IS "V:K"HOW ABOUT ANOTHER GAME?(1=YES,0=NO)": Q: Q 1 160hQV2:Q(Q): Q1 Q1x Q8 Q8:"YOUR PERFORMANCE RATING WAS";: R$(Q):"BYE"@DP$(5,4);" ";P$(4,4);" ";P$(3,4);" ";P$(2,4);" ":"----------"P$(5,5);" ";P$(4,5);" ";P$(3,5);" ";P$(2,5);" ";P$(1,5): "NUMBER OF MISSES=";N1: N525 240"YOU GOT IT.": GG1:TTN1:VTG"AVERAGE NUMBER OF MISSES AFTER ";G; 260. TF(D,C)1: I 1 5: A(C,I)D 350G YP$(C,I)(D):N5N51a ^ I: N9N5 N1N11w h Q 1 1000: Q m5:P$(3,1);" ";P$(2,1);" ";P$(1,1): r7:P$(2,2);" ";P$(1,2):"----------"|3:P$(4,3);" ";P$(3,3);" ";P$(2,3);" ";P$(1,3):03008 :" PREVIOUS GUESSES BY COLUMN": I 1 5g "COL.";I":";" ";:J09:F(J,I)1ĺJ;" ";} " J:: I:: 260 , D9 D0 C5 C0 250 6N9N5 ?N5N9 @ F(D,C)0 340 E"YOU ALREADY GUESSED THAT DUMBO" JM10(I1): J 3 57 QN(J)M:A(I,J)(Q.001): Jm J 3 5:N(J)N(J)A(I,J)M:N(J)(N(J).9): J I:A(1,4)999:A(5,3)999:B$" ":N10:N57: 360 N1N11: 260 "YOUR INPUT IS NO GOOD,TRY AGAIN" "DIGIT?,COLUMN?":D,C:D0C J 1 5:F(I,J)0: J,I:A(1,1)(10(1))e A(2,1)(10(1)):A(3,1)(9(1)1):A(1,2)(10(1)) A(2,2)(9(1)1):N(1)100A(3,1)10A(2,1)A(1,1) N(2)10A(2,2)A(1,2):N(3)A(1,2)N(1):N(4)A(2,2)N(1)10  N(5)N(1)N(2): I5 1 1:PLAY AT LEAST 3 GAMES TO GET AN ACCURATE PERFORMANCE RATING."} :"ENTER DIGIT...COMMA...COLUMN, STARTING FROM THE RIGHT." :"PLEASE ENTER A RANDOM NUMBER ";Q:Q(Q):Q(Q) G0:T0 I15:J15:P$(I,J)"*":A(I,J)999:J,I* I0 9:d::5:102n"****** HANGMATH ******":10px R$(8),F(9,5),A(5,5),P4(5,5),N(5): I 1 8: R$(I): Iz EXCELLENT,VERY GOOD,GOOD,ABOVE AVERAGE,ABOUT AVERAGE,BELOW AVERAGE,FAIR,POOR"HANGMATH,A GAME OF SKILL,LUCK AND DEDUCTION.":= "     1 N1 J 1 NI#1A$A$(J)21B$A$(J1)D1 A$B$ 190Q1A$(J)B$`1A$(J1)A$j1 J,Ip11 I 1 N1 A$(I)1 I11 401Q0:10:100A$(100)80 "*** ALPHABETIZE ***">0I015:6l0 "TO END THE PROGRAM ENTER 0"x0#20:100("NUMBER OF ITEMS";" ";02 N0< N0 2700K:50P I 1 N0Z"ITEM";" ";I;" ";0d A$(I)0i0n I1x I  lm nijkijk"f ij kij k"flm nlm n'" flmnlmn'"f l m nl m n"f ijkijk<$f i j k i j k ijk`$Z_]àIflm'nij&klmnlmnlm'n'7l"m'nl"m'nl"m'n#l"m'n$7l"m#nl"m#nl"m#n%l"m#n&Qlm nlm nlm nk'ij"k'oP `$`$-a(ҠŠ)FE()G_)a(ŠŠ)FG_a(̠Ġ)G?UVWY`%qPM6a(ŠР)G&\ `$l m nl m n`=>r$fUVWijkYHqqf ijkijk\X`=>"r$d<fl"m#nl"m#nl"m#n%l"m#n&"l&m'nl&m'n_dFfijgh`$d_-Xq.?6?r.?6?r.?6?r.?6?r.?6?r4boPbE()GPbE()GP(b[ `.?6?r.?6?r$daq/?r/?rq6q/?r /? r q'flm nlm n'Sf_dDq'`#=>r$q6fghq=>r\X- `$d`%аqбqа? `%q8r`%q`"%q6_dfghq=>rfghBqqUVW\XYf\XYQq/?r/?rq6fghqqfq=>rgh_d'q0?rq0?r`7=>r$?fghq0?rq0?rq=>rfghqq?q=>rq=>r`7%q6`7%q6\XdAqf l m nl m n`=>r$&fUVWijkY_+q/?r/?r`/?r%q6q\X_dAq/?rUVWfghq/?rq/?rq!fghql"m#nl"m#n%l"m#n&"l&m'nl&m'n_<f l"m#n%l"m#n&l&m'nl&m'nq _Efq8rijkijkq6q%qq \X_$&^fUVWijkY_hq_C|q `d$q` %q a()G0qfl m nl m nq5f ijkijk`=>"r$<fl"m#nfghqqfq=>rgh_d<,fl"m#nl"m#nl&m'nl&m'n6q _3@qfl m nl m n_WTq fl m nl m nflm nq`=>r_Qqf l m nl m nflm n`=>r$&fUVWijkY_Aq/?rUVWfghq/?rq/?rq!fghq\XYQ"q/?r/?rq6аq2?rfijk'fiаjаk';nбq2?rfij"k'fiбjбk'Tx`$qqqq`%q`%q`'%q'`&$5fghq=>rfgh`$d_a(Ҡ)GUVWY+>\\ `$F\`$F"@\ `$>`%\ F]MZqqqqqM6oa(ź)GPa(Ӻ)G9_P"a(̺)oP a(Ƞź)FE()G\X;d= ]̠î ]q<()rq<()r\L\M6:(ca(̠ӠٯΩ)oUVWY\ "2Pa(Ӡ)GUVWY+4\L\ `$<\4`$<"6\ `$4`%\L$<P              ?a(q.Ġ̨̐պQccyw`aXXϘŠѿԠؤŠؠա/jY(ա/jY(a(٠ǠŠԠҮ)ch_1rcca(źϠϠӠŠŠŮ)c_a(ՠԠԠ)c qqqcS(Π)&@`@9()$~`@*#r:()$~ M6 a(ՠԠ)FE(ԠƠ)FQUVW`-r-r%qYP`$`$UVWa(Ϡ)GY`$,UVWa(ɠ)GY ,`$@6a()G @ccYBJca(ŠҠɠĠΠĠӺ)F-rF-rF-rE()T_0^c*#r$( YPa(Ԡ)c_(-rq2Y2<`-r-r-r-r-r-r$rFqqPUVWZ`-r-r%qn`-r-r%qY`-r-r%q`-r-r%q)&@ ~M6UVW-rq/? r`$UVW`-r-r$YY%a(ɠŠҠΠĮ)ccUVW a(Ӡ)FE()GR@`;@r$^ o.?%rUVWUVW `@*#r9@ҠɠŠΠ)[a(Ġɠ̠̠պ)cc/`a(ϠŠԠӠΠŠǠ)/ja(ɠŠԠӠΠŠԠ)/ta(ӠŠƠŠӠŠԠ)vca(ՠ٠ŠӮ))yccS(ӠΠϠŮN@" rC@" rD4rD4r@p()qqq$M6a(Ӡ)c$.S(ĠՠŠŠӠ)&@8`@9()$~B`@*#r9()$~1Lca(ɠ͠ǠƠŠԠҮ)/Va(ՠΠӠԠX ]Ӡ]]ϭɭӠ#]Š٠ĮˠЮ(]î٠ŠӠ-]Š֮Ơ2]Š̬ٮ<]d]ˠŠɠàήn]٠