*?e6X':\%612345&MF)>53185q 'L(MF)=1CF>12 7040 P Q=CP+213 -1:Q,X;4;TC;(40(+Q);(502+Q) 2CC;4;Q-1,X;"OP";Q-2,X;"MN"  .1}L,10 :Q % CX=CT:CT>12 CX=25-CT CF>12 CF=25-CF CF>CX3110& "Q=CFCX-1:11 ,X(Q);4;" ";12 ,X(Q);" ";11 ,X(Q+1);CC;4;"MN";12 ,X(Q+1);"OP":.1}L,10 :Q:3115+ &Q=CFCX+1-1:11 ,X(Q);4;" ";12 ,X(Q);" ";11 ,X(Q-1);CC;4;"MN";12 ,X(Q-1);"OP":.1}L,10 :Q ++M=3: ( RETURN IF BEARING OFF ) -eCP=((L(MT)*2)+1):NC=L(MT):CX=X(CT):TC=0:CT/2=(CT/2)TC=5 / CT>12 3132< 1L(MT)53240 2Q=10 CP-1 4=Q+2>10 Q+2,CX;4;" ":31288 68Q+2,CX;4;TC;(34"+Q);(44,+Q) 8,4;CC;Q,CX;"MN";Q+1,CX;"OP" :".1}L,10 :Q:3144H <L(MT)53210 >0Q=11 21-CP:Q=203146J @5Q-1<12 Q,CX;4;" ":3140D B0Q,CX;4;TC;(40(+Q);(502+Q) D4CC;4;Q+1,CX;"MN";Q+2,CX;"OP" F.1}L,10 :Q H'L(MT)0CT12 3164\ J Q=2122 LKCOLOUR,(32 +TC):COL,CX:ROW,(Q-2):ASC,(38&+Q):A=PRINT P,COL,CX+1:ASC,(480+Q):A=PRINT R?COLOUR,(32 +CC):ROW,Q-1:ASC,(78N):A=PRINT T#:COL,CX:ASC,(77M):A=PRINT V":ROW,Q:ASC,(79O):A=PRINT X*COL,CX+1:ASC,(80P):A=PRINT Z.1}L,10 :Q \ 3329 bz NC10 CC;4;1+((NC-5)*2)-2,X;"MN";2+((NC-5)*2)-2,X;"OP" giNC>10 CC;4;1+((NC-10 )*2),X;"UV";2+((NC-5)*2),X;"WX" l 3102 qvNC10 NC>6CC;4;23-((NC-5)*2),X;"MN";24-((NC-5)*2),X;"OP" v]NC=6AS1=77M:AS2=78N:AS3=79O:AS4=80P:CP=21:7000X {lNC>11 CC;4;23-((NC-10 )*2),X;"UV";24-((NC+10 )*2),X;"WX" R NC=11 AS1=85U:AS2=86V:AS3=87W:AS4=88X:7000X 3102 =NC=NC+1:4;11 ,CX;" ";12 ,CX;" " y NC10 NC>6CC;4;23-((NC-5)*2),CX;"UV";24-((NC-5)*2),CX;"WX" oNC=6X=CX:CP=21:AS1=85U:AS2=86V:AS3=87W:AS4=88X:7000X:3164\ nNC>11 CC;4;23-((NC-10 )*2),CX;"QR";24-((NC-10 )*2),CX;"ST" WNC=11 AS1=81Q:AS2=82R:AS3=83S:AS4=84T:X=CX:7000X 3164\ 4;11 ,CX;" ";12 ,CX;" ": NC10 CC;4;1+((NC-5)*2),CX;"UV";2+((NC-5)*2),CX;"WX" lN>10 CC;4;1+((NC-10 )*2),CX;"QR";2+((NC-10 )*2),CX;"ST" 3164\ OFF !M2 L(MF)=L(MF)-1 L(MT)=L(MT)+1 + L(MT)=0L(MT)=1:3440p % L(MF)=0MF=E(PL)6000p R r3 MT=25-E(3-PL)E(3-PL)=6 z& B(3-PL)=B(3-PL)+1 ON:7010b:OFF  BT4 A$CC=7:PL=2CC=2 BCF=1:ON:3100 j ~ O(PL)=O(PL)+1  MF=BO:MT=1:x=x(BO)  3045 D 4;4;11 ,25;" ";12 ,25;" "  L(BO)=L(BO)-1   X=2 # D(1)=D(2)X=1  MAX=-10  J=1X  I=124-D(J)  MF=I:MT=I+D(J)  L(MF)<14230  L(MT)<-14230 ) A1=MF-D(3-J):B1=MF+D(3-J) ) C1=MT-D(3-J):D1=MT+D(3-J)  SC=0  A1<1A1=1  B1>24B1=1   C1<1C1=1   D1>24D1=1 y L(MF)=1SC=SC+1.5@:MF>18SC=SC+1:(B(3-PL)>0L(24)<0)SC=SC+2 w L(MT)=1SC=SC+2:MT>18SC=SC+1:(B(3-PL)>0L(24)<0)SC=SC+2 "; L(MF)=2SC=SC-2:MF>18SC=SC-1 ,G L(MF)=2N>1(L(A1)=1L(B1)=1)SC=SC+2 6I L(MF)=2N>1(L(A1)>2L(B1)>1)SC=SC+1.5@ @; L(MT)=0SC=SC-1:MT<7SC=SC+.5 JG L(MT)=0N>1(L(C1)=1L(D1)=1)SC=SC+2 TI L(MT)=0N>1(L(C1)>2L(D1)>1)SC=SC+1.5@ ^> L(MT)=-1SC=SC+2:MT<12 SC=SC+0.5 hH L(MT)=-1N>1(L(C1)=1L(D1)=1)SC=SC+2 rH L(MT)=-1N>1(L(C1)>2L(D1)>1)SC=SC+2 s* N>1L(D1)=-1SC=SC+2 t3 I<18 O(3-PL)>0SC=SC+2 u) L(MF)=4N=4SC=SC+1 v) L(MF)=3N=3SC=SC+1 w> L(MF)=2MF>1X=1N=2SC=SC+4 x3 B(3-PL)>0MT<19SC=SC+2 yA L(MT)=1B(3-PL)>0MT>18SC=SC+2 {a MT>25-E(3-PL)MF<19SC=SC+1:MF>25-E(3-PL)SC=SC+2 |! SC>MAXMAX=SC:MOV=I:DM=D(J)  I  J MF=MOV:MT=MF+DM &DM=D(1)D(1)=D(2) &DM=D(2)D(2)=D(1)   LEG=1 ? L(D(1))<-1L(D(2))<-1LEG=0: ) D(1)=D(2)BT=D(1): ) S(1)=0:S(2)=0  J=12  DD=L(D(J))  DD<-14630  DD=0S(J)=1  DD>1S(J)=2  DD=1S(J)=6  DD=-1S(J)=4  PT=D(J)-D(3-J)  PT<0PT=0  Z B(PL)=1(L(PT+1)=1L(D(J)+D(3-J))=1)S(J)=S(J)+3.5`  J   BT=D(1) *' S(2)>S(1)BT=D(2) 4' BT=D(1)D(1)=D(2) >' BT=D(2)D(2)=D(1) H 1 D1=25-D(1):D2=25-D(2) * L(D1)<1L(D2)<14850  L(D1)>1BO=D1  L(D2)>1BO=D2  L(D1)=1BO=D1  L(D2)=1BO=D2  BO=D1D(1)=D(2)  BO=D2D(2)=D(1)   I=1924  L(I)<14900$  ID1D(1)=D(2):BO=I: & I>D2D(2)=D(1):BO=I: $I . " O(1)=155060 " O(2)=155110   I=10 60<2  0.05|L,I:(*8)  I:7  I=1100d:I 0:0: :OFF 9M$="I WON . ":CL=7:UP=5:1975 j M$="DO YOU WANT ANOTHER GAME ? ":UP=2:CL=4:1975:M$="ANSWER Y OR N . ":1975 ="Y"Ŧ="y"502 ="N"Ŧ="n"  5095  I=10 60<2  0.05|L,I:(*8)  I:7  I=1100d:I 0:0: :OFF 9M$="YOU WON . ":CL=5:UP=5:1975  5090 z I=MF+1MT  L(I)>06040  I  E(PL)=I  WU  - print a counter at lines 21,22 X&COLOUR ,(32 +CC):COL,X:ROW,CP ZASC,AS1:A=PRINT \"COL,X+1:ASC,AS2:A=PRINT ^#ROW,CP+1:ASC,AS4:A=PRINT `COL,X:ASC,AS3:A=PRINT: d$BC=2:PL=2BC=7 f&BY=-1:PL=2BY=11 hNB=B(3-PL) jNB>57024p l-BP=BY+(NB*2):BP=217028t n<BC;0;BP,13 ;"MN";BP+1,13 ;"OP": pgNB<11 BP=BY+((NB-5)*2):BC,0;BP,13 ;"UV";BP+1,13 ;"WX": r[BP=BY+((NB-10 )*2):BC,0;BP,13 ;"QR";BP+1,13 ;"ST": v'CC=-30:X=13 :CP=21 xRNB=5AS1=77M:AS2=78N:AS3=79O:AS4=80P:7000X: zSNB=10 AS1=85U:AS2=86V:AS3=87W:AS4=88X:7000X: |FAS1=81Q:AS2=82R:AS3=83S:AS4=84T:7000X: PCP=19:COL,X:COLOUR,(32 +TC):ROW,22:ASC,62>:A=PRINT hCOL,X+1:A=PRINT:20,X;4;CC;"MN";21,X;"OP":.1}L,10 :3092 /NB=B(PL):BY=1:PL=1BY=13 NB>57058 BP=BY+(NB*2)-2:COL,13 :ROW,BP:COLOUR,112p:ASC,76L:A=PRINT:COL,14:A=PRINT:ROW,BP+1:A=PRINT:COL,13 :A=PRINT:7064 NB10 CP=BY+((NB-5)*2)-2:AS1=77M:AS2=78N:AS3=79O:AS4=80P:X=12 :7000X:7064 NB>10 CP=BY+((NB-10 )*2)-2:AS1=85U:AS2=86V:AS3=87W:AS4=88X:X=12 :7000X:7064  CF=1: A %1 236066\,248:236077\,248: %-236066\,0:236077\,60<: M OASIS BACKGAMMON""  IrI \MM3L3e3j26e3-b v> ????????$????????$8888oooo8888o???o?o????o888ooo88  3333oooo3333o???o?o????o333ooo33  oooo3333o???o?o????o3???3?3????3ooo333oo oooo8888o???o?o????o8???8?8????8ooo888oo ???????? ????????  oo88oo 88oo88oo33oo 33oo3333oo33 oo33oo88oo88 oo88oo  ~????????@~  ????????@ oo888ooo8???8?8????88o???o?o????o@8888oooo oo333ooo3???3?3????3o???o?o????o@3333oooo  33ooo333o???o?o????o3333`oooo3333  88ooo888o???o?o????o88888oooop8888~????????' Ð???????? ~< p7777p"" %% '' pp'' %% %%""p7777p"" %% '' pp'' %% %%""p7777p"" %% '' pp'' %% %%""p7777p"" %% '' pp'' %% %%""p7777p"" %% '' pp'' %% %% p7777p"" %% '' pp'' %% %% p7777p"" %% %% pp'' %% %% p7777p"" %% %% pp'' %% %% p7777p"" %% %% pp'' %% %% p7777p"" %% %% pp'' %% %% p7777p pp p7777p pp p7777p''%% %% %%pp""%% %% %%p7777p''%% %% %%pp""%% %% %%p7777p''%% %% %%pp""%% %% %%p7777p''%% %% %%pp""%% %% %%p7777p''%% %%""%%pp""%% %% %%p7777p''%% %%""%%pp""%% %% %%p7777p''%% %%""%%pp""%% %% ''p7888p''%% %%""%%pp""%% %% ''p7888p''%% %%""%%pp""%% %% ''p7888p''----""--pp""----''p?888p8???\K <&:o)))[6\~#* N: w>OxG!@ }l&)oX!@  ?           ?  3oo8oo383ol86;lo3683ol86;lo3v88~@@@@`8' ~~  <p ~  P P P 88 MMZ8ZLWq !v>>BB<DHpHDB@~BfZBBBBbRJFB<|<<|B M$=" PRESS S TO START ":CL=4:UP=2:1975 A$ M$=" OR ":CL=5:1975 B? M$=" PRESS C FOR COMPUTER TO START ":CL=6:1975 C$ M$=" OR ":CL=5:1975 D6M$=" PRESS D FOR DEMO GAME ":CL=7:1975 F K$= P' K$="C"K$="c"PL=1:100d U4 K$="D"K$="d"PL=1:DEM=1:100d Z' K$="S"K$="s"PL=2:100d c 70F et0:7:7:0::63582^:ON:0;1;2;1;0,25;"KK"  0,28;" " ECOLOUR,63?:ROW,23:ASC,32 :COL,29:A=PRINT COL,31:A=PRINT \ PL=10,27;1;0;7;1;"":0.5,30 \ PL=20,27;1;0;2;1;"":0.5,30  I=112  S=L(25-I) L(25-I)=L(I)*-1  L(I)=S*-1  I - PL=1800 :**** COMPUTERS MOVE DEM=1800   K$= ' K$="T"K$="t"340T:THROW DICE * K$="I"K$="i"1040:instructions  K$="r"K$="R"GAME SCREEN J 250  T 1700  ^ 1900l h M>1510 r 2000 |, K$="U"K$="u"MF=LOC:0.1}L,10 7 K$="D"K$="d"MT=LOC:0.1}L,10 :420  K$="Q"K$="q"730 . K$="P"K$="p".5,20:8204  370r  2500 : CHECK LEGALITY  LEG =1490  2900T  370r  3000  700  M=3600X  2000 8 K$="B"K$="b"BT=LOC:0.1}L,10 :540  K$="Q"K$="q"730  K$="P"K$="p"8204  520  2600( & LEG=1580D 0 2900T : 520 D 3600 N 700 X 2000 b7 K$="O"K$="o"BO=LOC:0.1}L,10 :640 l4 K$="U"K$="u"K$="D"K$="d"M=1:380| p K$="Q"K$="q"730 r K$="P"K$="p"8204 v 600X  2700  LEG=1680  2900T  600X  3700t  N=N-1  5000  N>0350^  PL=1  0.1}L,1  140 * 1700 4 1900l > M>1880p H 4000 R MAX=-10 960 \ 3000 f 945 p M=3930 z 4500  LEG=0960  3600  945  4750  M=1840H  3700t  N=N-1  5000  N>08204  0.1}L,10  PL=3-PL  140 ' 0:1:7:0: @CL=4: M$=" WELCOME TO":UP=2:1975 + M$=" OASIS BACKGAMMON":1975 KCL=5:M$=" PLAYER IS COMPUTER IS ":UP=1:1975 ?CL=7: M$="_":1975 M$="":1975 3 M$="RED PLAYING WHITE PLAYING":1975 $;UP=2: M$="ANTICLOCKWISE CLOCKWISE":1975 L@ CL=6:M$=" STACKED PIECES INDICATED BY :- ":1975 VF M$="2 STACKED - 2 INSIDE PIECE":UP=1:CL=5:1975 `: UP=2:M$="3 STACKED - 3 INSIDE PIECE":1975 t? M$=" ILLEGAL MOVES REJECTED .":UP=1:1975 ~3 M$=" EITHER COLOUR MAY START .":1975 r M$=" COMPUTER WILL PLAY YOUR SHOT ":1975:M$=" ON REQUEST . ":UP=2:1975 B UP=1:CL=6:M$="* PRESS ANY KEY . ":1975 =""1166 !M$=" ":UP=21:1975 W CL=6:UP=2:M$=" * CONTROL KEYS * ":1975:CL=5  ?UP=1: M$="(T) THROW DICE .":1975 3 M$="(5) MOVE CURSOR LEFT .":1975 (4: M$="(8) MOVE CURSOR RIGHT .":1975 *4: M$="(U) LIFT UP POSITION .":1975 +3 M$="(D) SET DOWN POSITION .":1975 ,? M$="(B) BAR TO POSITION .":UP=1:1975 -3 M$="(O) BEAR-OFF POSITION .":1975 .2M$="(P) PASS SHOT TO COMPUTER .":1975 /?UP=4: M$="(Q) UNABLE TO MOVE .":1975 2KUP=4: CL=4:M$="* PRESS ANY KEY .":1975 < =""1340< F$M$=" ":UP=21:1975: x SET UP ARRAYS zON=9600%:OFF=9610% uD(2):B(10 ):O(10 ):E(10 ):S(10 ): L(24):X(24):Y(10 ):C(28,20,2) <DEM=0:MF=1:BW=0: H(14,14) lSCRN=63582^:COLOUR=63500 :COL=63501 :ROW=63502:ASC=63503:PRINT=63504  X=1  I=12 1-1  X(I)=X:X(25-I)=X  X=X+2  X=13 X=15 I  Y=20  I=110  Y(I)=Y  Y=Y-1  Y=12 Y=10  I J? L(1)=2:L(6)=-5:L(8)=-3 TA L(12 )=5:L(13 )=-5:L(17)=3 ^7 L(19)=5:L(24)=-2:M=1 h(B(1)=0:B(2)=0 r6 O(1)=0:O(2)=0:LOC=1 w) E(2)=1:E(1)=1 | A0: N=2:63502,23:63500 ,579 Q=170-1 ON 0;7;Q+1,29;" ";Q+1,31;" ":D(1)=(*6)+1:D(2)=(*6)+1:Q,29;(88X+D(1));Q,31;(88X+D(2)):0.1}L,(D(2)+D(1))*2 OFF K63501 ,29:63503,(480+(D(1))):A=63504 K63501 ,31:63503,(480+(D(2))):A=63504 Q # D(1)=D(2)N=4 OFF: v M=3  I=118  L(I)>0M=1  I  B(PL)>0M=2  $21,0;: W=1̱M$ K M$(WW)" "5;"";:0.01z# =,1:8;CL;M$(WW);:W 75;"_";:0.01z# =,-20:8;" ";:W ! C=1UP:3582 :C:  X=X(LOC)  Y=0 1 LOC>12 Y=23: = Y POS OF CURSOR  K$=   K$="I"K$="i"INSTRUCTIONS  K$="R"K$="r"game  =""2050  V=(K$)  M (LOC<13 V=535)(LOC>12 V=568)K=1:2120H *N (LOC>12 V=535)(LOC<13 V=568)K=-1:2120H > HON:63500 ,112p:63501 ,X:63502,Y:63503,75K:A=63504:63501 ,X+1:A=63504 R LOC=LOC+K \ LOC=25LOC=1 f LOC=0LOC=24 p X=X(LOC) z& Y=0:LOC>12 Y=23 63500 ,130:63501 ,X:63502,Y:63503,75K:A=63504:63501 ,x+1:A=63504 .1}L,LOC*2 OFF  2050  LEG =1 , L(MT)<-1L(MF)<1LEG=0 5 (MT-MFD(1))(MT-MFD(2))LEG=0  LEG=02560 * MT-MF=D(1)D(1)=D(2) * MT-MF=D(2)D(2)=D(1)  2 LEG=1 7+ BTD(1)BTD(2)LEG=0 < BT>6LEG=0 F L(BT)<-1LEG=0 K LEG=02660d P' BT=D(1)D(1)=D(2) Z' BT=D(2)D(2)=D(1) d  LEG=1 1 D1=25-D(1):D2=25-D(2)  L(BO)<1LEG=0: + BO=D1D(1)=D(2):2800 + BO=D2D(2)=D(1):2800  BOD1BO>D22810  BO>D2D(2)=D(1)  BO>D1D(1)=D(2)   I=19BO-1  L(I)>0LEG=0  I  2780 ^ I=14 c2:0.1}L,10 r7:0.1}L,502 | I   X1=MF:X=X(MF) RA=1 % PL=2BW=1RA=.8L & K1=L(MF)-5*(L(MF)/5.50) D (PL=1MF>12 )(PL=2MF<13 )K1=11 -K1 Y=Y(K1)  CF=MF:CT=MT ,PL=1CF=25-MF:CT=25-MT (ON:CC=7:PL=2CC=2 3 TC=0:CF/2=(CF/2)TC=5 NC=L(MF) DCP=1+((NC)*2):CF>12 CP=22-((NC)*2) CF>12 3090 L(MF)>53170b FQ=CP-210 :Q,X;4;TC;(32 +Q);(42*+Q) 2CC;4;Q+1,X;"MN";Q+2,X;"OP" ".1}L,10 :Q:3096 L(