BACKGAMMON;'V7¿; 5 480*1024-4 O10 ,1;1;"Wait: program is still loading"''':"":"":""  9000(#  CC=480*1024 MOVECHECK=CC-3 FF=60<*1024 MOVESELECT=FF-3 T(2,2) B(26):A(26) C(26):D(26) P(16):Q(16) R(16):S(16)   0 (2-2,0,0,0,0,5 220,3,0,0,0,-5 <25,0,0,0,-3,0 F2-5,0,0,0,0,2 P 0 ZW=126 dB(W) nW rCOUNTP=15 tCOUNTC=15 vTURN=1 w 6700, xT$="O" 6900 <DIE1=(*6)+1:DIE=DIE1:T=1:7000X <DIE2=(*6)+1:DIE=DIE2:T=2:7000X 7 A=DIE1:B=DIE2 TURN>1AB200 7"Press ENTER to roll dice again ";A$:7300 130 TURN=1A>BT$="X" TURN=TURN+1 T$="X"1000 MOVE=1 MOVES=2+2*(A=B) &MOVE=2MOVE=4240 W=126 CC+W-1,B(W) W CC+26,COUNTP CC+27,DIE1 CC+28,DIE2 49991G,COUNTP T=MOVECHECK #T(1,1)=(CC+87W) #T(1,2)=(CC+88X) #T(2,1)=(CC+89Y) #T(2,2)=(CC+90Z) (MOVE=1MOVE=3)(T(1,1)T(1,2))(MOVE=2MOVE=4)(T(2,1)T(2,2))740 'MOVE=1MOVE=37500L P0.01z# =,5:3:0.02{# =,5:10 :0.015zu\,5 5"Your move ? ";A$:A$="quit"A$="QUIT"2770 &7300:3000 :T320@ 246 M=M+96`+(M=25)  8"You have no men at point """;M;""" ";A$:7300  246 M=ARR+95_ 8"You cannot move to point """;M;""" ";A$:7300 " 246 ,("You cannot bear off ";A$:7300 1 246 62"You cannot bear off like that ";A$:7300 8 246 :5"You must use the throw of ";N;" ";A$:7300 < 246 =*"Illegal move (rule 4) ";A$:7300 > 246 @DEP=M+1 J ARR=DEP-D T&MɺMM<1M>25250 ^DADB250 hB(DEP)<1260 rW=262-1 |B(W)>0400 W  HIGHEST=W INNER=HIGHEST<8 $B(26)M25250 INNERDM300, $ARR<1HIGHESTDEP3106 &MOVE=2MOVE=4452  7500L ?MOVE=1MOVE=3MOVE1DMOVE1N=MOVE1:314: COUNT=COUNTP W=126  D(W)=B(W) W ;E(4):P(4):F(4):Q(4):N=1 wARR<2E(N)=1:P(N)=DEP-1:F(N)=1:Q(N)=D(DEP):N=N+1:D(DEP)=D(DEP)-1:480 D(ARR)<-1280 _E(N)=1:P(N)=DEP-1:F(N)=1:Q(N)=D(DEP):N=N+1:D(DEP)=D(DEP)-1 D(ARR)=-1E(N)=1:P(N)=ARR-1:F(N)=-1:Q(N)=D(ARR):N=N+1:D(ARR)=0:E(N)=0:P(N)=0:F(N)=-1:Q(N)=D(1):N=N+1:D(1)=D(1)-1 lARR>1E(N)=0:P(N)=ARR-1:F(N)=1:Q(N)=D(ARR):N=N+1:D(ARR)=D(ARR)+1 "ARR<2COUNT=COUNT-1 -MOVE=2MOVE=4COUNT487 %MOVE2=A*(DA)+B*(DB):A=BMOVE2=A  DIE=MOVE2  7700 6T(T(2,1)T(2,2))317= "A$=(M+96`+(M=25))+D %15+MOVE,28;1;A$ Y=1N-1 ,E=E(Y):P=P(Y):F=2*F(Y):6300 Y W=126  B(W)=D(W) W COUNTP=COUNT COUNTP2740 MOVE=MOVES570: DA540 A=B  550& B=A &MOVE=MOVE+1 0 210 :T$="X" D 130 N T=0 XB(26)630v bB(26-DIE)<-1 l 720 v!W=252+DIE-1 ,B(W)>0B(W-DIE)>-2720 W  INNER  HIGHEST-DIE<2720 W=72-1 (B(W)>0W-DIE=1720 W   T=1  T$="X" 5"You cannot move. Press ENTER ";A$:7300  130  1270 I=125 D(I)<01040 I  HIGHEST=I INNER=HIGHEST>19 $ ` T=0 jD(1)1160 tD(1+DIE)>1 ~ 1250 I=225-DIE ,D(I)<0D(I+DIE)<21250 I  INNER "HIGHEST+DIE>251250 I=2125 *D(I)<0I+DIE=261250 I   T=1  TT=1   TT=0  LP=16 MOVES=2+2*(A=B) W=126  D(W)=B(W)  W  1010 DIE=A  1120` (S=T 2TDIE=B:1120` <ST1530 F8TT"I cannot move. Press ENTER ";A$:7300 K:TT"I cannot move any more. ENTER ";A$:7300 PT$="O" U*I=1619:I,28;" ":I Z 130  C=0 I=125 D(I)<0C=C+1 I Q(1)=C  C=2 I=251-1 D(I)01510 Q(C)=I  C=C+1 I  W=126 "B(W)>-1FF+W-1,B(W) +B(W)<0FF+W-1,128-B(W) W "FF+26,DIE1 ,FF+27,DIE2 6FF+179,COUNTC @T=MOVESELECT JBESTSCORE=(FF+219) TBESTCANTA=(FF+186) ^BESTCANTB=(FF+187) hBESTPOINT1=(FF+190) rBESTPOINT2=(FF+191) |BESTDIE1=(FF+175) BESTDIE2=(FF+176) L(BESTCANTABESTCANTB)BESTPOINT1>1BESTPOINT2=11720  2484 TCANT=BESTCANTA TPOINT=BESTPOINT1 TDIE=BESTDIE1 BESTCANTA=BESTCANTB BESTPOINT1=BESTPOINT2 BESTDIE1=BESTDIE2 BESTCANTB=TCANT BESTPOINT2=TPOINT BESTDIE2=TDIE CANTA=BESTCANTA CANTB=BESTCANTB 7LP=16I=1619:I,28;" ":I CANTA2560 DEP=BESTPOINT1 ARR=DEP+BESTDIE1 5A$=(DEP+95_+25*(DEP=1))+BESTDIE1 )LP,28;1;A$:LP=LP+1 IE=1:P=DEP-1:F=-1:6300:B(DEP)=B(DEP)+1 1ARR>25COUNTC=COUNTC-1:2560 B(ARR)=1E=1:P=ARR-1:F=1:6300:B(ARR)=0:E=0:P=25:F=1:6300:B(26)=B(26)+1 IE=0:P=ARR-1:F=-1:6300:B(ARR)=B(ARR)-1 COUNTC2720 CANTB2640P DEP=BESTPOINT2 ARR=DEP+BESTDIE2 !5A$=(DEP+95_+25*(DEP=1))+BESTDIE2 %)LP,28;1;A$:LP=LP+1 (IE=1:P=DEP-1:F=-1:6300:B(DEP)=B(DEP)+1 21ARR>25COUNTC=COUNTC-1:2640P <B(ARR)=1E=1:P=ARR-1:F=1:6300:B(ARR)=0:E=0:P=25:F=1:6300:B(26)=B(26)+1 FIE=0:P=ARR-1:F=-1:6300:B(ARR)=B(ARR)-1 ZCOUNTC2720 nMOVES=22700 xMOVES=2 1280 TURN=TURN+1 .07}\(,30 E(CANTACANTB)"Press ENTER to roll the dice ";A$:7300 ACANTACANTB"I cannot move : press ENTER ";A$:7300 *I=1619:I,28;" ":I 120x ,"I win! Another game (y/n) ? ";A$ A$="" #A$(1)"N"A$(1)"n"  2"You win! Another game (y/n) ? ";A$ 2723 "Another game (y/n) ? ";A$ 2723 T=0 A$2 ?A$(1)>"@"A$(1)<"["A$(1)=(A$+32 ) HA$(2)>"@"A$(2)<"["A$(2)=(A$(2)+32 ) -A$(1)<"a"A$=A$(2)+A$(1) #A$(1)<"a"A$(1)>"z" #A$(2)<"1"A$(2)>"6" T=1 M=A$-96` A$(1)="z"M=25 A$(1)="y"M=0 D=A$(2)  8&0:7::i=50150: S=(P<13 )-(P>12 ) ,Q=P*(P<13 )+(25-P)*(P>12 ) PN=B(P+1) LL=(S>0)*(20-B(P+1))+(S<0)*(B(P+1)+1) bF=2F=-2F=F:L=(S>0)*(20-Q(Y))+(S<0)*(Q(Y)+1):PN=Q(Y) sC=(QQ=25)*13 +(Q>0Q<7)*(27-2*Q)+(Q>6Q<25)*(25-2*Q) PN+(E)>56400  EL=L+S I=14 HL,C;(7*(F=1));2+2*(C=13 );""E;" "E HL,C;(7*(F=1));2+2*(C=13 );""E;" "E I HL,C;(7*(F=1));2+2*(C=13 );""E;" "E  PN+(E)>9 6500d  2EA$=(PN+1):B$=PN:PN=5B$="" 1EA$=(PN-1):B$=PN:PN=6A$="" L=10.5(+9.5*S I=14 (>L,C;(7*(F=1));2+2*(C=13 );A$ 2>L,C;(7*(F=1));2+2*(C=13 );B$ <I F>L,C;(7*(F=1));2+2*(C=13 );A$ P dA$="1" nC$="1" xzEB$=(PN-9 ):E$=(PN-10 +10 *(PN=9 )):PN=9 C$=E$:E$="":S=1F$=C$:C$=E$:E$=F$ vEB$=(PN-11 +10 *(PN=10 )):E$=(PN-10 ):PN=10 A$="":S=-1F$=A$:A$=B$:B$=F$ OL=10 +9 *S:IN=7*(F=1):PA=2+2*(C=13 ) I=14 L,C;IN;PA;A$ L+1,C;IN;PA;B$ L,C;IN;PA;C$ L+1,C;IN;PA;E$ I L,C;IN;PA;A$ L+1,C;IN;PA;B$  , 62008 1 E=0 6W=126 @B(W)6800 E P=W-1 JT=B(W) TB(W)=0 ^F=T hV=1̽T r 6300 | B(W)=B(W)+F V W )21,0;7;7;" "  I=713 I=10 I=11 I,28;5;" " I  XL=7+4*(T=2) b0:5 l7020l+10 *DIE vL+1,29;"": +L,28;"";L+2,30;"": CL,28;"";L+1,29;"";L+2,30;"": ;L,28;D$(2);L+2,28;D$(2): SL,28;D$(2);L+1,29;"";L+2,28;D$(2): ;L,28;D$(1);L+2,28;D$(1):  (21,0)=63?   6700, !DIE=DIE1:T=1:7000X !DIE=DIE2:T=2:7000X  7: LMOVE1=0 `OS=T(1,1)+T(1,2)+T(2,1)+T(2,2) j,S=1T(1,1)MOVE1=DIE1: t,S=1T(1,2)MOVE1=DIE2: ~\S=2T(1,1)T(1,2)MOVE1=DIE1*(DIE1>DIE2)+DIE2*(DIE2>DIE1): ,S=2T(1,1)MOVE1=DIE1: ,S=2T(1,2)MOVE1=DIE2: -S=3T(2,1)MOVE1=DIE2: -S=3T(2,2)MOVE1=DIE1:   T=0 W=262-1 D(W)>07706 W  HIGHEST=W INNER=HIGHEST<8 D(26)7740< (D(26-DIE)<-1 2 7830 0D(X-DIE)>-27830 PX Z INNER d!HIGHEST-DIE<27830 nX=72-1 x)D(X)>0X-DIE=17830 X   T=1  #' #()9000(#:7:0::7 #-|3:6;"********************":6;"* BACKGAMMON *":6;"********************" #/&0:" Pi Software  1983" #2D0,0,568,568,568,0,0,0 #\:a,0:a+1,0:3 6t  A kovechecoveselecSSSSountounturepfhsqlc>mc1 Yf !~u/Ɓw#xk!W6#6#6#6>2e:2d!!7Gý!1:_ʆ>2[O2d!:[O!F ~2c:_s:e !V 6:cO! 5:b...5!5EO! >D64:T<2_]:2dH!X:em :_w:G2e:G:2x2:2dò:G:!W~w~w!~ #xy2^q6#px!6~(+x# x2ay2`>2_!6~S¯G:dOB~:d2\>2]5ʁbkG:dOB~:\G:]=2]c:`:dG:a!#~ʿ:d+x¯>2_>2_:dG:c2b:6:c:`:dG:c:b:cG:a:bAAA:bO! ~AA>2_ 1:G2:7mc2 y      U!P~ #!q#hp#!P~#xx2>2:>2|A}AGOPHe.PxAOɯWGR]SɯoW)hcɯ22:_:g^|2:_:g^:_"Ҡ>2:_:g^T]*"Ҿ:<2:_:g^T]*"!P !j>22222<2:j<22>2!>2!i:O :2uR:RF:R>2:ee>2:u>2DMÜ:_~ʗʗ>2`iN! 5>©6ê:O ~6!54:G:2:!:O 64::=2:!i:O ~2:22<2!P !z:z<2:2:2!62!yG:O :2ʅ:ʅF:…>2:ʘ>2^:¨>2^DMø:_~>2^`iN!5 5>6:O ~6!O4:G:2:!5:O 64:(:=2:^!i:O ~2!y:O ~2:2:222!6P!:G:2:6G:2˿˸2:©::LL:L:L::22222::L:L!:w>222>2!5:O ~ K:<2 : 2``>22:<2!5:O ~:G:2: Ú:G> 2:ʝ´:<2Á:G:G:?2!5O T]>2:ObkB~:Obk ~:==2:G:=G:ʁ<2:G:?2!5O T]>2:OGbkB#~jj:Obk ~jj:==2:G:G:ʁ<2:!5:O ~ʝ:=2:G:2:g:_oW)Һµ$WGR:2:G:<2k:o&$1y2g:=_^<":<2,:Oʜ!I~22 #&>F!"Ya^&$1y2o&D_1`i""":<2{:<2m*":O22m**"o2>2:g<*:WR:W:_:W:_R"**R:L:G:::G:LL:L*"!i:_~2!y:_~2:2:2:2:2:[=2=:j=2 :ʛ:›:G:ʛ>2:O:2y2:ʗ!z:!ì:!5í:!5!P :mc3 24@!B]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~hx8x<|88DDDD蓸~~~~~~~~~~~~~~~~~~~~~~~~TDDDD @DDT(H~~~~~~~~~~~~<<<<<<<<<<<<TDDDD 8D(THB~~~~~~~~~~~~<<<<<<<<<<<<TDDx< D(T(J T@~~~~~~~~~~~~<<<<<<<<<<<<TD8@ |x 8(DE*~~~~~~~~~~~~<<<<<<<<<<<<@T@~~~~~~~~~~~~<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~~~~~~~~~~~<<<<<<<<<<<<<<<<<<<<<<<<~~~~~~~~~~~~<<<<<<<<<<<<<<<<<<<<<<<<~~~~~~~~~~~~<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~~~~~~~~~~~<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~~~~~~~~~~~<<<<<<<<<<<<~~~~~~~~~~~~~~~~~~~~~~~~<<<<<<<<<<<<~~~~~~~~~~~~~~~~~~~~~~~~<<<<<<<<<<<<~~~~~~~~~~~~ @  (@<D8 800xDDD< <0DDDxD "<(D<<@D "D $$8D<<<<88;8888888888888888888888888;;;;;;2222222222222 2222222222222;;;;;2222222222222 2222222222222;;;;;2222222222222 2222222222222;;;;;2222222222222 2222222222222;;;;;2222222222222 2222222222222;;;;;2222222222222 2222222222222888882222222222222 22222222222228***82222222222222 22222222222228***82222222222222 22222222222228***82222222222222 2222222222222888882222222222222 22222222222228***82222222222222 22222222222228***82222222222222 22222222222228***82222222222222 2222222222222888882222222222222 2222222222222;;;;;2222222222222 2222222222222;;;;;2222222222222 2222222222222;;;;;2222222222222 2222222222222;;;;;2222222222222 2222222222222;;;;;2222222222222 2222222222222;;;;;;8888888888888888888888888;;;;;;8888888888888888888888888888888888888888888888888888888888888888