ZXTape! BACK Q 60000` 4:4:  "BACKPIC" #+23739\,82R:23740\,0 ( "GCODE" 2 "GAMMON" BACKPIC @?>?>???~?????????????????|?????>?>???~??????????x????????<|?????~?~???~??????????x?????????y9~?????~?~???~????????<?????????y|????~<?~?~??|?~????????~<??????????qx~????~<????|????????~????????q8~?????x~????>????????>?????????<~?>?>???x~?~?~??>????????>????????߀@@@$`|?>0;;Sb  `P???|x?~?1q>la  pG<|q!Z`~?@0  ?s~>8?8#'o>>@? `>@  w9g_&Lq8?>`|0 @ ?x;3Ü8>8_$p0p> s ?0wpy g` `> ~>y @@ a?`8?< 0`@  $h6` `4  ? @zL`H?@`@ ``  ?,00``0p 60@?6p0 ?0 ,,`0  @ ` /p? \lA@@ǀ ``(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((//////////////////////////////((//////////////////////////////((//////////////////////////////((//////////////////////////////(0000000000000000000000000000000002222222222222222222222222222220022222222222222222222222222222200666222262222222226666222222222002222222222222222662262222222220022222222222222222226622222222200222222222222220222666222222222002222062222222226226222222222220066622222222222622622226222222200222222222222222222222222222222000000000000000000000000000000000  GCODE (                                       :!(~(#:!T(~(#!P~(#          !~(#        !p~(#                        4120x 8LE=LE+1:A$="Rolling for first move":2060  -1650r:D(3)-99c140 N0:6:d(1)< d(2)a$="PLAYER moves first":170 $7:a$="COMPUTER moves first" $2070:2050:FM=1 0 ;D(1)< D(2)1640h:1140t:210 1640h 480:2050 CM>01140t "CM0HM0210 Q3:7:A$=" ":I=614:I,7;A$:I "CM=0330J:270  380| 76:S=19 ,9 ;"Standard stake" -S=29 ,10 ;"Gammon stake" "0S=39 ,8;"Backgammon stake" ,,0:11 ,10 ;"POINTS SCORE" 6,7:13 ,8;"YOU - ME -" @B6:13 ,14;HS:13 ,22;CS:430 J7,12 ;" I WIN !" T#HM<15S=1:370r ^#LH<20S=2:370r h S=3 r CS=CS+S: |7,12 ;"YOU WIN !" #CM<15S=1:420 "LC>7S=2:420  S=3  HS=HS+S: #A$="Another game Y/N":2060  523658j\,8:K$=:K$"Y"K$"N"440 K$="Y"70F 0:0:0:  470 FM=01640h  CG=0 DC=1:DF=0 17:0:A$="Thinking....":2070  640 oS(2)=-9999'CG=1:A$="I can't move !":2060 :.5,15:2050:610b 37:0:A$="My move: ":2070 &-21,18;(B+64@);" ";D(BD); 08B(B)=B(B)-1:I=B:1510:.05|L,10 :'BT>25CM=CM-1:600X DlB(BT)=-1B(26)=B(26)-1:B(BT)=0:I=26:15906:.05|L,22 N;B(BT)=B(BT)+1:I=BT:15906:.05|L,14 XD(BD)=-D(BD) b91820:HM0CG=0AU=0500 l FM=0 v 1DC=DC+1:DF=DF+1:S(DC)=-9999' Z(DF)=1 D(Z(DF))<0870f D(Z(DF))=-D(Z(DF)) F(DF)=1 B(F(DF))<1840H nT(DF)=F(DF)-D(Z(DF)):T(DF)>25LL=2:LU=19:LI=1:18400:EL=0830> RT(DF)>26U=F(DF)-1:DX=-D(Z(DF)):1860D:LM=1830> .T(DF)<26B(T(DF))<-1830> +R(DF)=B(F(DF)):B(F(DF))=B(F(DF))-1 T(DF)>25780  #X(DF)=B(T(DF)):Y(DF)=B(26) CX(DF)=-1B(26)=B(26)-1:B(T(DF))=0 B(T(DF))=B(T(DF))+1  41820:DC=LEAU=1910:800   640  B(F(DF))=R(DF) *3T(DF)<26B(T(DF))=X(DF):B(26)=Y(DF) 4US(DC+1) > S(DC)S(DC)=S(DC+1):DC=2B=F(DF):BT=T(DF):BD=Z(DF) >$B(1)>0F(DF)=26 H0F(DF)=F(DF)+1:F(DF)<26690 RD(Z(DF))=-D(Z(DF)) \%D(3)>-99cZ(DF)=5 f/Z(DF)=Z(DF)+1:Z(DF)<5660 p?S(DC)=-9999'DC>2910:S(DC)=S(DC+1) zDC=DC-1:DF=DF-1  #AD=0:BL=0:M=0  10808 I=225 O=B(I):O=01040 O<01010 0AD=AD+O*(I-31+(I-20)*(I>20)) O>1M=M+I:990 I19O>1M=M+1  1040 .AD=AD+O*(26-I+(7-I)*(I<7)) (O<-1M=M+I-26:1040 %I>LCBL=BL+((26-I)/8) I LH7))-B(LC)-B(LH)+BL*6+M*7-31*B(26)-61=*(B(26)<-1)+((*2)+1) . 81LC=0:TB=B(25):B(25)=1 B*LC=LC+1:B(LC)>01090B LB(25)=TB V1LH=27:TB=B(2):B(2)=-1 `*LH=LH-1:B(LH)<01120` jB(2)=TB: tFM=01640h ~?N=0:6:0:A$="Your move: ":2070 1820:6:0  N=1 D=14 D(D)<01270 F=262-1 <B(F)>-1(B(26)<0F26)1260 _T=F-D(D):T<2LL=8:LU=25:LI=-1:18400:EL=01260 FT<1LL=F+1:DX=D(D):1910v:LM=11260 %T>1B(T)>11260 !N=0:F=1:D=5 F D YN=1A$="You can't move !":2060 :.5,15:2050:1440  10808 -6:0:21,19;" "; $1980:F=32 2090* (W21,19;K$;" ";:B(F)0(B(26)<0F26)1470 252020:K$;:1960:LD=01470 <]T=F-DN:T<2LL=8:LU=25:LI=-1:18400:EL=01470 FDT<1LL=F+1:DX=DN:1910v:LM=11470 P%T>1B(T)>11470 Z1K$=:K$(13 )K$(12 )1370Z dK$=(12 )1300 n8B(F)=B(F)+1:I=F:1510:.05|L,10 x&T<2HM=HM-1:1430 fB(T)=1B(1)=B(1)+1:B(T)=0:I=1:15906:.05|L,22 8B(T)=B(T)-1:I=T:15906:.05|L,14 D(FD)=-99c 91820:HM0N=0AU=01160  FM=0  S7:2:1:A$="** ILLEGAL MOVE **":2070:.5,15 2050:0 46:0:A$="Your move: ":2070  1300 &1530:B(I)015906  0:1710 1800:1760 !I=1I=26Z=1 .Z>61710:1720:Z=6 "X=15Y,X;" ": ,7Y,X;(144+Z*2);(145+Z*2);: 60:1710 @#B(I)>07:1620T J 6 T+1720:Z=(B(I)):Z>73 ^ Y,X;"": hA$="Rolling....":2060  r I=06+(*9 ) |aD(1)=(*6)+1:D(2)=(*6)+1:.07}\(,10 +D(1) C60920,D(1):60921,D(2):A=60928:I ,D(3)=-99c:D(4)=-99c ED(1)=D(2)D(3)=D(1):D(4)=D(2)  Y=20*(I>13 ):X=(I+(27-I-I)*(I>13 )+2*(I>7I<20)+7*(I=1I=26))*2-2+(I=1I=26): !Z=(B(I)):Z>7Z=7 I>13 Y=Y-Z:1750 Y=Y+Z  !Z=(B(I)):Z>7Z=7 )I>13 Y=(Y-Z)-1:1790 Y=(Y+Z)+1  #I/2=(I/2)1:  2: DAU=1:X=14:D(X)>0AU=0:X=5 &X: 0>EL=1:X=LLLU:B(X)*LI>0EL=0:X=26 :X: DLM=0:X=20U NB(X)<11900l X'DX26-XLM=1:1900l bB(X+DX)>-2LM=1 lX: v#LM=0:B=7LL-1 B(B)>-11950 DXBLM=1:1950 B(B-DX)<2LM=1 B: :LD=0:I=14:D(I)=DNFD=I:LD=1 I: 23658j\,8:K$= K$=" "F=32 : K$<"A"K$>"Z"1980 F=(K$)-64@: 23658j\,8:K$= K$<"1"K$>"6"2020 DN=(K$)-480: D=090Z:D:  1:7 521,1;" ";  /A=(A$):21,(32 -A)/2;A$;: */A$="You wish to change level Y/N":2060  4623658j\,8:K$=:K$"Y"K$"N"21004 >K$="Y"70F H 1490 5 5 !*5 5 5 5 a hgntyz_mobAYour move: K