b ************************* GAMMON **************************************b Ib FOR HEATH H-8 OR H-89 WITH H-19pb# REQUIRES MICROSOFTvb(b2 By: R. Wildb7 OSO11 Nepil Ave.b< Wheaton, Ill. 60187bF)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"2eA$()"Y"( )(!)Je I  : P(I):e .31,.33,.39,.42,.42,.47,.17,.17,.14,.08,.06,.08e I : PR(I):e 0,.03,.11,.25,.44,.69,1e @eCM:F:S:HM:HB:CB:XC:XH*f LC$;ERAS$;CN$;"Difficulty (1 easy, 10 hard)? ";: IN$4f CO$OfTT((IN$) ): GRA$if TT  TT f ERAS$:ATT: () Ff |: lf : : 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: gD():D(): 4g NP XgTU: : :D()D()D()h D()D() D()D():D()D():TU:PY(d())$h 4: \hMV:Y: I TU:YYD(I):US(I):: NP < ohXHXHY:IN$""}hI: 8h$IN$"": J : Jh8 (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$,): iF$(IN$,)j F$"A" F$"X" FMY(F$): (=jFM: F$"=" F$"-" Pj(T$(IN$,,)sj< T$"=" T$"-" TM: xjP T$"A" T$"X" jdTMY(T$):N:MFMTM:K:Ljx FM B() "YOU HAVE NO MEN ON THE BAR.": $k FMTM "WRONG DIRECTION.": $Tk B() FM "YOU HAVE MEN ON THE BAR.": $k B(FM) "YOU HAVE NO MEN ON ";F$;".": $k TM kL: J TU: US(J) KK: kLL:NND(J): NM ,k D(J)M KJ: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(FMD()) M: l B(FMD()) M: m "THE PATH IS BLOCKED.": $PmNTM:TMFMD(M): :FMTM:TMN:: :IIZm  hm N Lm B(FMD()N) m Nm NK Jm0TMFMD(N):US(N): mDII:FMTM: NmXII:  ml Kn J : B(J) "YOU CAN'T CHEAT!!": $ n J_nTM: J TU: US(J) FMD(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) KJo4 JCoH K "YOU CAN'T MOVE";FM;".": $lo\ "ASSUMING USE OF";D(K);".":US(K)|op :  o B() o J o JD(TU) US(TU) B(J)  o JD(TU) US(TU) B(J)  p J: ( p J  /p B(J) 8 gp JD(TU) US(TU) B(JD(TU))  p$ JD(TU) US(TU) B(JD(TU))  p8 JpL J  : B(J) ( p` Jpt US(TU) B(D(TU))  q US(TU) B(D(TU))  3q US(TU) DD(TU):  dq DD(TU): US(TU) DD(TU) DD(TU)tq D  q J D: B(J)  q J: ( q "YOU CAN TOO MOVE!": $q II: ITU 8q( NP: Tq< MO:B9rP XCXCY rd K*rx KK: B() KTU  Br B(D(K)) x Vr US(K):MOMOmr FM:TMD(K): r "OFF BAR AND HIT BLOT AT ";(AL$,TM,)r x r Kr KK: B() KTU | r B(D(K)) US(K)  s, US(K):MOMOs@ FM:TMD(K): 9sT "OFF BAR TO ";(AL$,TM,)Csh  ^s| B() MOTU  s MOTU I : : A$;"CAN'T GET OFF BAR": I : s @s CM 4 s J TU:LD(J): B(L)  t FML:TM: : M$();(AL$,L,):MOMO:  %t KKt YK: B(LK) B(Y) X bt B(Y) B(Y)xt0 FMLK:TMY: tD M$();(AL$,Y,);FR$;(AL$,FM,):  tX K KK:  tl Kt LK  t B(LK)  u MOMO:FMLK:TM: Bu M$();(AL$,FM,);" WITH ROLL OF";D(J):  Zu K KK:  ou B() Tu TUMO @u Ju @u4 TUMO @uH TUMO u\ HB up Ju B(J) tv J1JD():J2JD(): J1 J2 t3v D()D() B(J1) tQv B(J1) B(J2) tbv TU ~v J1 B(J1) tv J2 B(J2) tvMVMV:TMJ:FMJ1: :FMJ2: v$ M$();(AL$,J,);FR$;w8 (AL$,J1,);" AND ";(AL$,J2,):MOMO:HBHB5wL TU US():US()?w` 4 Xwt J JJ:  fwTRY:Yzw US(Y) w w Y MO TU BM <wS1BS:F1FM:M1BM:Y: wS2BS:F2FM:M2BM:Y:G: xG: BSS1S2 YTM:TMFMD(Y): <Ix S2S1 FMF2:Y:TMF2D(Y):BMM2: <hx(FMF1:Y:TMF1D(Y):BMM1zx< BM xP F F: xd TRYTU xx J : B(J) B9 M$();: @x J:B9:  x y BM HBHB0yMOMO:US(Y): HMCM BM:A:y ey M$(BM);(AL$,TM,);FR$;(AL$,FM,)wy MOTU @yYY: YTU Yy, y@NPyT Tyh M$(MN);(AL$,TM,);y| ERAS$;:H:L$" 2 ":M$" 2 ":R$" 2"9zESC$():GR$ESC$"F":LC$ESC$"G":RV$ESC$"p":RVO$ESC$"q"PzDA$()GR$"^"LC$kzERAS$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 :NB(I):TMI:FM(N)|B(I): N J (N): : | | A$;| L : BK$: | <}4 ESC$"Y";();(!);" ";: TEMP$;("YOUR MY ",NPNP,);: " ROLL "F}> RO$P}H X V}\v}pPP:J6: K J6K } IK J6: B(I) PPPPP(IK)} I: K PPPPP(K)}}MS:CS}Q4PR(BH)(PR(BH))~Q5PR(BC)(PR(BC))'~KP5: p:CZPP(P5Q4)A?~KP5RL: p:PZPPV~$CWPZ(P5RLQ4)Ao~8 B(P5) CSCSCZ~L B(P5) B(K) CSCSCZ:MS~` B(K) CSCSKQ5:MS: K CSCS~t B(K) ~CSCSCW: B(P5) MS +SM:J:NNKR1: NN JNNY IK J: B(I) SMSMP(IK)(I)t I:CSCSCW(PZ)SMzBS:BM:FM:TM:TRYTRY L  : B(L) @(RLD(Y):RLRL: R @< RF B(R) @P B(R) @"d G OxQ:L1LD():L2LD(): B(L1) Qd B(L2) Qt Q @P5L:  G MS: B(L1) Q:CSCSL1:MS B(L2) Q:CSCSL2:MSKQ CSBS @,BSCS:FML:TMK:BMMS)@ L: :OT B() X$"YOU":XCP: rh B() X$"I":XHP: |HM:CM:JM:HP:CP:HB:CB:BC:BH I Ӂ B(I) HPHPB(I)I:HMI B(I) CPCPB(I)(I):JMI JMCM CMJM( B(I) HBHB@ B(I) CBCB^ I B(I) BHBH| I B(I) BCBC0 DXXCP: HPXX XXHPʂXY(CPHP)XX: YL~ S:F:AL}l YL} S:F:ATT S HM FHM  / ER$A$;X$;" WON BY";X;"POINTS."9 CN$ "TOTAL POINTS ROLLED";XH;DA$();XC;DA$(): : "WANT TO PLAY AGAIN";X$ (X$,)"Y"  CN$:ۃPTFM: :P(B(FM)): :B(FM)B(FM)P  FM FM GR$;"i";LC$: 4D  FM GR$;(" `",(( PT) (B(PT))),);LC$Z4 B(TM)P \HPT(P):B(PT)B(PT)P: :B(TM)M P DA$() : DA$()܄\B(TM)B(TM)P:PTTM: TM : DA$(P)p MV MV A$:MVMV PT 0 PT PT $TVT(B(PT)): PT VTVT~TB(HPT): TB TBTBTBTB L$VTB(PT): VT VTVT8TBL ESC$;"Y";(VT);((TB);:` IN$j A$;CO$; t.XSI( ):LNSI : ,LN8b _ A$;" ";"Press any key to roll."eo  :  ( )  ,SI:@ DICE ROUTINErE$():H$E$"H"ֆ|ER$E$"E": ER$;놆RO$E$"q": RO$EG$E$"G": EG$RV$E$"p"TEMP$RV$8COF$E$"x""5": COF$KCN$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$(IT(J),D(J))"" DI$(IT(J),D(J))" "ib J);"} "DI$(IT(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";ԋ# "