ÿ b �************************* GAMMON **************************************b� Ib� FOR HEATH H-8 OR H-89 WITH H-19pb#� REQUIRES MICROSOFTvb(�™b2� By: R. WildÅb7� OSO11 Nepil Ave.õb<� Wheaton, Ill. 60187ûbF�)cP� Idea by Cursor Magazine/cZ�}c_�************************************************************************‡cd’ è‘cÈ� (#Êcð† B(),D(),DA$(),DI$(,),US(),P(),PR(),M$()Õc† T()äcBK$ðÿ˜(&)0d,M$()ð"HIT YOUR BLOT AT ":M$()ð"COVERED MY BLOT AT ":M$()ð"MOVED TO "md@M$()ð"MOVED BLOT TO SAFETY AT ":M$()ð"CAN'T MAKE MOVE"˜dTM$()ð"BEARING OFF FROM ":FR$ð" FROM "ÍdhA$ð"":DA$()ð"q":DA$()ð" ":DA$()ð"*":ER$ðA$ò""e|AA$ðÿ–()ò"Y"òÿ–(ò)òÿ–(!):AL$ð"XWVUTSRQPONMLKJIHGFEDCBA"2e†A$ðÿ–()ò"Y"òÿ–(ò )òÿ–(!)Je�‚ Ið Î  :‡ P(I):ƒ€e¤„ .31,.33,.39,.42,.42,.47,.17,.17,.14,.08,.06,.08˜e¸‚ Ið Î :‡ PR(I):ƒ¶eÌ„ 0,.03,.11,.25,.44,.69,1Àeà� @ìe€CMð:Fð:Sð:HMð:HBð:CBð:XCð:XHð*f”‘ LC$;ERAS$;CN$;"Difficulty (1 easy, 10 hard)? ";:± … IN$4f™‘ CO$Of¨TTð(ÿ”(IN$)õ ):‘ GRA$if¼‹ TT ï ø TTñð Ï ”ŽfБ ERAS$:AðTT:‹ ÿˆ()ñ€ Ï Fðžfä� |:� lºfø� : :‹ D()ðD() Ï øòf NPð: ‘ AA$;" MINE YOURS":‚ Ið Î ô:ƒg� X :‚ Ið Î ô:ƒ:� ä7g4‘ A$;:‹ D()ïD() Ï NPðó:‘ "YOU";UgH‹ D()ñD() Ï NPð:‘ "I";hg\‘ " GO FIRST!"�gp‚ Lð Î è:ƒ:‘ AA$;BK$:TUð:‰ Ô§g„D()ð:D()ð:� 4»g˜‹ NPðó Ï � XÙg¬TUð:� : :D()ðD()òD()hÀ‹ D()ðD()Ï D()ðD():D()ðD():TUð:PYðÿˆ(ódôÿˆ())$hÔ� 4:� ä\hèMVð:Yð:‚ Ið Î TU:YðYòD(I):US(I)ð:ƒ:‹ NPð Ï < ohüXHðXHòY:IN$ð""}hIð:‰ 8˜h$IN$ð"":‚ Jð Î è:ƒ J¾h8‹ ÿ’(IN$)ï Ï IN$ðÿƒ(IN$,):‰ `ühL� ä:‘ A$;CN$;" MOVE";I;"? ";:� `:‘:‘:‹ IN$ð"" Ï „i`‹ ÿ’(IN$)ï Ï Ä:it‹ IN$ïð"A" ÷ IN$ñð"F" Ï IN$ð"="òIN$biˆ‹ IN$ïð"S" ÷ IN$ñð"X" Ï IN$ðIN$ò"-"xiœ‹ ÿ’(IN$)ï Ï Ä�i°‘"BAD MOVE.":‰ $¥iÄ‹ ÿ’(IN$)ï Ï °ÛiØ‹ ÿƒ(IN$,,)ð"," Ï IN$ðÿ�(IN$,)òÿƒ(IN$,):‰ ØìiìF$ðÿ�(IN$,)j‹ F$ïð"A" ÷ F$ñð"X" Ï FMðYóÿ•(F$):‰ (=jFMð:‹ F$ñï"=" ÷ F$ñï"-" Ï °Pj(T$ðÿƒ(IN$,,)sj<‹ T$ð"=" ø T$ð"-" Ï TMð:‰ x�jP‹ T$ñ"A" ø T$ï"X" Ï °´jdTMðYóÿ•(T$):Nð:MðFMóTM:Kð:Lðñjx‹ FMð ÷ B()ð Ï ‘"YOU HAVE NO MEN ON THE BAR.":‰ $kŒ‹ FMñTM Ï ‘"WRONG DIRECTION.":‰ $Tk ‹ B()ñ ÷ FMñï Ï ‘"YOU HAVE MEN ON THE BAR.":‰ $‰k´‹ B(FM)ïð Ï ‘"YOU HAVE NO MEN ON ";F$;".":‰ $škÈ‹ TMð Ï €ÃkÜLð:‚ Jð Î TU:‹ US(J) Ï KðKò:‰ âkðLðLò:NðNòD(J):‹ NðM Ï ,ÿk‹ D(J)ðM Ï KðJ:Lð:‰ ,%lƒ J:‘"YOU CAN'T MOVE";M;".":‰ $Wl,‹ B(TM)ï Ï ‘"POINT ";T$;" IS BLOCKED.":‰ $wl@‹ Lð Ï � ø:US(K)ð:‰  ªlT‹ B()ñó Ï ‘"YOU HAVE MEN ON THE BAR.":‰ $»lh‹ TUð Ï àÛl|‹ B(FMóD())ñð Ï Mð:‰ ¸ûl�‹ B(FMóD())ñð Ï Mð:‰ ¸m¤‘ "THE PATH IS BLOCKED.":‰ $Pm¸NðTM:TMðFMóD(M):� ø:FMðTM:TMðN::� ø:IðIòZm̉  hmà‚ Nð Î Lƒmô‹ B(FMóD()ôN)ï Ï ¤‹mƒ N™m‚ NðK Î J¶m0TMðFMóD(N):US(N)ð:� øÊmDIðIò:FMðTM:ƒ NÚmXIðIó:‰  âmlƒ Kn€‚ Jð Î :‹ B(J)ñ Ï ‘ "YOU CAN'T CHEAT!!":‰ $ n”ƒ J_n¨TMð:‚ Jð Î TU:‹ US(J)ð ÷ FMðD(J) Ï � ø:US(J)ð:‰  gn¼ƒ JxnЋ FMð Ï  Žnä‚ Jð Î FMò Ñ óÇnø‹ B(J)ñ Ï ‘ "YOU CAN'T BEAR OFF FROM ";F$;".":‰ $Ïn ƒ Jo Kð:D(K)ð:‚ Jð Î TU:‹ US(J)ð ÷ D(J)ïFM ÷ D(J)ïD(K) Ï KðJo4ƒ JCoH‹ Kð Ï ‘ "YOU CAN'T MOVE";FM;".":‰ $lo\‘ "ASSUMING USE OF";D(K);".":US(K)ð|op� ø:‰  ‘o„‹ B()ïð Ï èŸo˜‚ Jð Î Êo¬‹ JðD(TU) ÷ US(TU)ð ÷ B(óJ)ñ Ï  ùoÀ‹ JðD(TUó) ÷ US(TUó)ð ÷ B(óJ)ñ Ï  pÔƒ J:‰ ( pè‚ Jð Î  Ñ ó/pü‹ B(J)ïð Ï 8 gp ‹ JóD(TUó)ï Ï ‹ US(TUó)ð ÷ B(JóD(TUó))ñ Ï  ™p$ ‹ JóD(TU)ï Ï ‹ US(TU)ð ÷ B(JóD(TU))ñ Ï  ¡p8 ƒ JÄpL ‚ Jð Î  Ñ ó:‹ B(J)ñ Ï ( Ìp` ƒ Jîpt ‹ US(TU)ð ÷ B(D(TU))ñ Ï  qˆ ‹ US(TUó)ð ÷ B(D(TUó))ñ Ï  3qœ ‹ US(TU) Ï DðD(TUó):‰ Ä dq° DðD(TU):‹ US(TUó)ð ÷ DñD(TUó) Ï DðD(TUó)tqÄ ‹ Dð Ï  “qØ ‚ Jð Î Dò:‹ B(J)ñ Ï  ¡qì ƒ J:‰ ( Áq ‘ "YOU CAN TOO MOVE!":‰ $Ùq IðIò:‹ IñðTU Ï 8èq( NPð:‰ Töq< MOð:B9ðrP XCðXCòY rd Kð*rx KðKò:‹ B()ð ø KïTU Ï ð BrŒ ‹ B(D(K))ñïó Ï x Vr  US(K)ð:MOðMOòmr´ FMð:TMðD(K):� ø›rÈ ‘ "OFF BAR AND HIT BLOT AT ";ÿƒ(AL$,TM,)¥rÜ ‰ x ­rð KðÍr KðKò:‹ B()ð ø KïTU Ï | ír ‹ B(D(K))ñ ø US(K)ï Ï  s, US(K)ð:MOðMOòs@ FMð:TMðD(K):� ø9sT ‘ "OFF BAR TO ";ÿƒ(AL$,TM,)Csh ‰  ^s| ‹ B()ð ÷ MOñTU Ï ¸ £s� ‹ MOñTU Ï ‚ Ið Î ô:ƒ :‘ A$;"CAN'T GET OFF BAR":‚ Ið Î ô:ƒ ­s¤ ‰ @¾s¸ ‹ CMï Ï 4 æsÌ ‚ Jð Î TU:LðóD(J):‹ B(L)ñ Ï ô tà FMðL:TMð:� ø:‘ M$();ÿƒ(AL$,L,):MOðMOò:‰ ä %tô KðKt YðóK:‹ B(LóK)ñ ø B(Y)ñó Ï X bt ‹ B(Y)ðó Ï B(Y)ðxt0 FMðLóK:TMðY:� ø§tD ‘ M$();ÿƒ(AL$,Y,);FR$;ÿƒ(AL$,FM,):‰ ä ¿tX ‹ Kï Ï KðKó:‰  Çtl KðÚt€ ‹ LòKï Ï Ð ït” ‹ B(LòK)ñ Ï Ð u¨ MOðMOò:FMðLòK:TMð:� øBu¼ ‘ M$();ÿƒ(AL$,FM,);" WITH ROLL OF";D(J):‰ ä ZuÐ ‹ Kñ Ï KðKò:‰ € ouä ‹ B()ð Ï T�uø ‹ TUðMO Ï @‰u ƒ J“u ‰ @¥u4 ‹ TUðMO Ï @¹uH ‹ TUóMOñ Ï ˆÊu\ ‹ HBð Ï ˆÒup Jðçu„ ‹ B(J)ñïó Ï tv˜ J1ðJóD():J2ðJóD():‹ J1ñ ø J2ñ Ï t3v¬ ‹ D()ðD() ÷ B(J1)ð Ï tQvÀ ‹ B(J1)ñ ø B(J2)ñ Ï tbvÔ ‹ TUð Ï ~vè ‹ J1ï ÷ B(J1)ð Ï tšvü ‹ J2ï ÷ B(J2)ð Ï tÃvMVðMVó:TMðJ:FMðJ1:� ø:FMðJ2:� øàv$‘ M$();ÿƒ(AL$,J,);FR$;w8‘ ÿƒ(AL$,J1,);" AND ";ÿƒ(AL$,J2,):MOðMOò:HBðHBó5wL‹ TUð Ï US()ð:US()ð?w`‰ 4 Xwt‹ Jñ Ï JðJò:‰ „ fwˆTRYð:Yðzwœ‹ US(Y)ð Ï „w°� «wÄ‹ Yñï ø MOñï ø TUð ø BMð Ï <ËwØS1ðBS:F1ðFM:M1ðBM:Yð:� ïwìS2ðBS:F2ðFM:M2ðBM:Yð:Gð:� xGð:‹ BSïS1òS2 Ï YðTM:TMðFMòD(Y):‰ <Ix‹ S2ïS1 Ï FMðF2:Yð:TMðF2òD(Y):BMðM2:‰ <hx(FMðF1:Yð:TMðF1òD(Y):BMðM1zx<‹ BMñï Ï ´‘xP‹ Fñï Ï Fð:‰ °¦xd‹ TRYñTUò Ï Ôxx‚ Jð Î :‹ B(J)ï ø B9 Ï ‘ M$();:‰ @çxŒƒ J:B9ð:‰ Ì ñx ‰ y´‹ BMð Ï HBðHBó0yÈMOðMOò:US(Y)ð:‹ HMñóCM Ï BMð:Að:yÜ� øeyð‘ M$(BM);ÿƒ(AL$,TM,);FR$;ÿƒ(AL$,FM,)wy‹ MOðTU Ï @ŽyYðYò:‹ YïTU Ï Yð˜y,‰ œ¢y@NPðó¬yT‰ TÇyh‘ M$(MN);ÿƒ(AL$,TM,);ôy|‘ ERAS$;:Hð:L$ð" 2 ":M$ð" 2 ":R$ð" 2"9z�ESC$ðÿ–():GR$ðESC$ò"F":LC$ðESC$ò"G":RV$ðESC$ò"p":RVO$ðESC$ò"q"Pz•DA$()ðGR$ò"^"òLC$kzšERAS$ðESC$ò"E":‘ ERAS$¦z¤‘ Ð');ESC$;"p";" A B C D E F = G H I J K L ";RVO$¶z¸‚ Ið Î êzÌ‘ Ð');GR$;"i ` ` ` iii ` ` ` i":ƒ úzà‚ Ið Î 2{ô‘ Ð');GR$;"i iii i";LC$:ƒ B{‚ Ið Î {{‘ Ð');GR$; "i ` ` ` iii ` ` ` i";LC$:ƒ ³{0‘ Ð');ESC$;"p X W V U T S R Q P O N M ";RVO$½{D‰ € ô{X‘ ÿ‚(" "òÿ“( óI),);"&";Ð);"&";ÿƒ(ÿ“(Iò ),):Ž |l‚ Ið Î :B(I)ð:ƒ :B()ðó:B()ðC|€B()ð:B()ðó:B()ðó:B( )ði|”B( )ðó:B()ð:B()ð:B()ðó�|¨‚ Ið Î :NðB(I):TMðI:FMðò(Nñ)»|¼B(I)ð:‹ Nñï Ï ‚ Jð Î ÿ†(N):� ø:ƒ Â|Ѓ Ì|ä‘ A$;ã|ø‚ Lð Î :‘ BK$:ƒ é| Ž<}4‘ ESC$"Y";ÿ–(ò);ÿ–(!ò);" ";:‘ TEMP$;ÿƒ("YOUR MY ",òNPòNP,);:‘ " ROLL "F}>‘ RO$P}H� X V}\Žv}pPPð:J6ð:‹ Kñ Ï J6ðKò �}„‚ IðK Î J6:‹ B(I)ñ Ï PPðPPòP(IóK)¾}˜ƒ I:‹ Kï Ï PPðPPòP(óK)ôÄ}¬ŽÒ}ÀMSð:CSðí}ÔQ4ðôPR(BH)ô(òPR(BH))~èQ5ðôPR(BC)ô(òPR(BC))'~üKðP5:� p:CZðPPô(P5òQ4)ôA?~KðP5òRL:� p:PZðPPV~$CWðPZô(P5òRLòQ4)ôAo~8‹ B(P5)ð Ï CSðCSóCZ–~L‹ B(P5)ð ÷ B(K)ï Ï CSðCSòCZ:MSðÊ~`‹ B(K)ðó Ï CSðCSòóKòQ5:MSð:‹ Kï Ï CSðCSóÞ~t‹ B(K)ñï Ï °ü~ˆCSðCSòCW:‹ B(P5)ï Ï MS𜉠ì+°SMð:Jð:NNðKòR1:‹ NNñ Ï JðNNYÄ‚ IðK Î J:‹ B(I)ðó Ï SMðSMòP(IóK)ô(óI)t؃ I:CSðCSóCWò(óPZ)ôSMz쎟BSðóç:BMð:FMð:TMð:TRYðTRYò‚ Lð Î  Ñ ó:‹ B(L)ñ Ï @â(RLðD(Y):RðLòRL:‹ Rï Ï @ý<‹ RñF ÷ B(R)ñïó Ï @€P‹ B(R)ñó Ï @"€d‹ Gñï Ï ´O€xQð:L1ðLòD():L2ðLòD():‹ B(L1)ïó Ï Qðd€Œ‹ B(L2)ïó Ï Qðt€ ‹ Qð Ï @ƒ€´P5ðL:� À”€È‹ Gñï Ï ¿€ÜMSð:‹ B(L1)ðó Ï Qð:CSðCSòóL1:MSðå€ð‹ B(L2)ðó Ï Qð:CSðCSòóL2:MSðí€KðQÿ€‹ CSñBS Ï @�,BSðCS:FMðL:TMðK:BMðMS)�@ƒ L:� ä:ŽO�T‹ B()ðó Ï X$ð"YOU":XðCP:‰ ¨r�h‹ B()ð Ï X$ð"I":XðHP:‰ ¨£�|HMð:CMð:JMð:HPð:CPð:HBð:CBð:BCð:BHð²��‚ Ið Î Ó�¤‹ B(I)ñ Ï HPðHPóB(I)ôI:HMðIü�¸‹ B(I)ï Ï CPðCPòB(I)ô(óI):JMðóI‚Ì‹ JMïCM Ï CMðJM(‚à‹ B(I)ðó Ï HBðHBò@‚ô‹ B(I)ðò Ï CBðCBò^‚‹ Iñ ÷ B(I)ñó Ï BHðBHò|‚‹ Iï ÷ B(I)ï Ï BCðBCòƒ‚0ƒ �‚DXXðCP:‹ HPñXX Ï XXðHPÊ‚XYð(CPóHP)õXX:‹ YïÍÌL~ Ï Sð:Fð:AðÍÌL}è‚l‹ YñóÍÌL} Ï Sð:Fð:AðTTƒ€‹ Sð ÷ HMñ Ï FðHM ƒ”‰ „/ƒ¨‘ ER$A$;X$;" WON BY";X;"POINTS."9ƒ²‘ CN$†ƒ¼‘ "TOTAL POINTS ROLLED";XH;DA$();XC;DA$():‘ :… "WANT TO PLAY AGAIN";X$ŸƒÐ‹ ÿ�(X$,)ð"Y" Ï €«ƒä‘ CN$:�ÛƒøPTðFM:� ¬:Pðÿ„(B(FM)):� ¬:B(FM)ðB(FM)óP„ ‹ FMð ø FMð Ï ‘ GR$;"i";LC$:‰ 4D„ ‹ FMñ Ï ‘ GR$;ÿƒ(" `",ò(( ÷ PT)ð ø ÿ†(B(PT))ï),);LC$Z„4‹ B(TM)ñïóP Ï \‡„HPTðóô(Pï):B(PT)ðB(PT)óP:� ¬:B(TM)ð©„M‹ Pðó Ï ‘ DA$() :¢ ‘ DA$()Ü„\B(TM)ðB(TM)òP:PTðTM:‹ TMñ Ï � ¬:‘ DA$(òP)ð„p‹ MVñðó Ï MVð…„‘ A$:MVðMVò…˜Ž…¬‹ PTï Ï Ž0…À‹ PTð ø PTð Ï $T…ÔVTðÿ†(B(PT)):‹ PTñ Ï VTðóVT~…èTBðÿ†(H„óPT)ôò:‹ TBï Ï TBðTBò‹…üTBðóTB•…‰ Lµ…$VTðóB(PT):‹ VTñ Ï VTðòVT¿…8TBðê…L‘ ESC$;"Y";ÿ–(òòVT);ÿ–(ò(òTB);:Žö…`± … IN$†j‘ A$;CO$; †tŽ.†XSIðÿ�( é):LNðSI ÷ þ:� é,LN8†b� ä_†Š‘ A$;" ";"Press any key to roll."e†¼�o† � : ††„‹ ÿ�( è)ð Ï ¼•†è� é,SI:ލ†@� DICE ROUTINEÀ†rE$ðÿ–(›):H$ðE$ò"H"Ö†|ER$ðE$ò"E":‘ ER$;놆RO$ðE$ò"q":‘ RO$‡�EG$ðE$ò"G":‘ EG$‡šRV$ðE$ò"p"‡¤TEMP$ðRV$8‡®COF$ðE$ò"x"ò"5":‘ COF$K‡¸CN$ðE$ò"y"ò"5"U‡Â‘ ER$~‡Ö‚ Ið Î :‚ Jð Î :‡ DI$(I,J):ƒ J,I¨‡à„ " "," ^","^ ","^ ^","^ ^","^^^"чê„" ^ "," "," ^ "," "," ^ "," "ú‡ô„" ","^ "," ^","^ ^","^ ^","^^^"#ˆþ„" ","^ "," ^","^ ^","^ ^","^ ^"Lˆ „" ^ "," "," ^ "," "," ^ ","^ ^"uˆ „" "," ^","^ ","^ ^","^ ^","^ ^"{ˆ މˆ: ‚ Ið Î ͈D FXðÿ…(ÿˆ()ôò):T(I)ðô(ÿˆ()ï€)ò:CT(FX)ðCT(FX)ò:D(I)ðFXÕˆN ƒ IÛˆS ŽöˆX ‘ H$;GR$;:‚ Ið Î :‘ ‰[ ‚ Jð Î 7‰] ‹ DI$(IòT(J),D(J))ð"" Ï DI$(IòT(J),D(J))ð" "i‰b ‘ ÐôJò);"} "òDI$(IòT(J),D(J))ò" | ";:ƒ J,I~‰l ‘ ÿ–();"G";:‘ „‰v ޳‰€ ‘ H$;E$ò"F";:‘ Ð);" {{{{{ {{{{{ "Ú‰Š ‚ Ið Î :‘ Ð);"} | } |"ቔ ƒ ý‰ž ‘ Ð );"zzzzz zzzzz"Š£ ‘ LC$ Ѝ ŽCŠ(#‘ ÿ–();"E":± … "Do you want instructions? ";IN$\Š2#‹ ÿ�(IN$,)ñï"Y" Ï ŽjŠ<#• ¨ ‰ È#€ŠF#¿"I",#,"DOC.TXT" ŠP#‚ Ið Î :± …#,A$:ƒ :‰  #¸ŠZ#‹ ÿ¯() Ï Ã#:‰ ¾#ÅŠd#± …#,A$׊n#‹ A$ð"" Ï –#íŠx#‹ ÿ’(A$)ñ Ï Œ#‹‚#‹ ÿƒ(A$,,)ð" " Ï Œ# :¢ ‘ ÿ�( A$,F)$‹Œ#‰ Z#U‹–#‘ :‘ "Press any key to continue...":S$ð…$()f‹ #‘ ÿ–();"E"v‹ª#‘ :‘ :‘ :‘ €‹´#‰ Z#†‹¾#Ž´‹È#‘ :‘ "File not found as SY0:DOC.TXT in";ÖÔ‹Ò#‘ "I'll continue anyway..."í‹Ü#‚ Ið Î X:ƒ :© ¾# :‘ €‹´#‰ Z#†‹¾#Ž´‹È#‘ :‘ "File not found as SY0:DOC.TXT in";ÖÔ‹Ò#‘ "