ZXTape!Dominoes 2 2]7:7::a(568):c(20):m(20):n=1568:b:a(n)=b:n P0,0,0,1,0,2,0,3,0,4,0,5,0,6,1,1,1,2,1,3,1,4,1,5,1,6,2,2,2,3,2,4,2,5,2,6,3,3,3,4,3,5,3,6,4,4,4,5,4,6,5,5,5,6,6,6 x}n=120:c(n)=10 :m(n)=10 :n:n=1192:21,8+n;(n+1)/2:n gn=111 2:9000(#:9100#:9150#:9000(#:9200#:9250"$:n ,^ct=6:mt=6:t=16:h=32 :g=32 :5,16;"16 doms left" 6>.5400 @i=1:640 ^<9650%:a=m(w-1):b=m(w):9600%:1210 W0,0;" My move ":v=0:j=1:7000X ;a=c(n):b=c(n+1):9600%:9700%:600X Xi=0:v=0 ].n=120:m(n)=xm(n)=y640 ln:800  50,0;" Your move. Enter number. " =q:w=2*q:q>10 m(w-1)=10 640 i=1350^ 8m(w-1)=xm(w)=ym(w-1)=ym(w)=x700 n=w-1:1000 50,0;" Which end is it to go, X or Y " 9700+502*(="x"Ŧ="X")+70F*(="y"Ŧ="Y") 1000+10 *(m(w)=x) 1020+10 *(m(w)=y)  !t=0v=25000 %@0,0;" Your go, but you are knocking! ":150 *ct=0v20,0;" No more dominoes left, so my go":v=v+1:2005 >[0,0;"You will now get another domino ":150:mt=mt+1:9000(# f[n=1192:m(n)=10 9100#:9150#:9500%:2000 pn (m(w-1)=x2450 :2500 Km(w)=xz=m(w):m(w)=m(w-1):m(w-1)=x:2450 :2500 (m(w-1)=y2450 :2600( Km(w)=yz=m(w):m(w)=m(w-1):m(w-1)=z:2450 :2600(  640  9650% >mt>0m(w-1)=10 :m(w)=10 :2000 S0,0;1;1;" Well done. You have won. ":6000p v=0:j=0 !t=0v=25000 50,0;" My move " v=18000@ ct=24000 ct>17000X n=1192  c(n)=x2400` :2500  c(n)=y2400` :2600( n:n=2202 Xc(n)=xn=n-1:z=c(n):c(n)=c(n+1):c(n+1)=z:2400` :2500  Xc(n)=yn=n-1:z=c(n):c(n)=c(n+1):c(n+1)=z:2400` :2600( 48n:0,0;" I am knocking " >x150:t=0v20,0;"No more dominoes left. Your go. ":150:v=v+1:605] R[ct=ct+1:0,0;" I will now take another domino ":100d:9000(# pZn=1192:c(n)=10 9200#:9250"$:9500%:600X n `%a=c(n):b=c(n+1):l=1: %a=m(w-1):b=m(w):l=2: cg>07;0;10 ,g-1;a;10 ,g-2;b:10 ,g-4;"x" pg=07;0;9 ,2;a;8,2;b:7,3;"x";10 ,0;" " ag<07;0;7,-g;a;7,1-g;b;0:7,3-g;"x" Ag=g-2:x=b:2900T *(l=1)+1200*(l=2) (ch>07;0;13 ,h-1;a;13 ,h-2;b:13 ,h-4;"y" 2sh=07;0;14,2;a;15,2;b:16,3;"y";13 ,0;" " 0600X rS0,0;1;1;" Hard luck. I have won. ":6000p  q=0 &z=y:d=x:n=1192 Re=1:c(n)=xx=c(n+1):4500:2020+2010*(l=0) Gc(n)=yy=c(n+1):4500:2025+2015*(l=0) Re=0:c(n+1)=xx=c(n):4500:2050+2000*(l=0) Gc(n+1)=yy=c(n):4500:2060 +2000*(l=0) n:q=1 q=1:4010 Mm=1n-22:c(m)10 4600+502*(q=1) Qm:m=n+2192:c(m)10 4600+502*(q=1) m:l=0:4610 Ic(m)=xc(m+1)=yc(m)=yc(m+1)=xl=1:n=n+(e=0)  x=d:y=z: *Uc(m)=xc(m)=yc(m+1)=xc(m+1)=yl=1:n=n+(e=0):4610 4l=0:4610 @150:0,0;"We both cannot go. Add up spots." *c=0:m=0:n=120 m(n)10 m=m+m(n) |c(n)10 c=c+c(n):n/2ɺ(n/2)7;0;2,8+n;c(n);3,8+n;c(n+1) Mn:200:5,0;"My total = ";c;" Your total = ";m;" " Fc=m0,0;" We have drawn ":6000p 2930r -1710*(c>m) p51,0;" Press Y to go again, N to stop " z="y"Ŧ="Y"6040 ="n"Ŧ="N"10000'  6010z  XMm=0:s=0:n=1192:c(n)=10 7060 l^x(7):p=17:x(p)=0:p:c=0:j=17600:7060 {c(n)=c(n+1)7500L 9c(n)=xc(n)=yc(n+1)=xc(n+1)=y7600 n:m=021004 n=m:j=1420 c(n)=x2020 c(n)=y2025 !n=n+1:c(n)=x2050 c(n)=y2060  Lv=1c(n)=x2020 Vv=1c(n)=y2025 ` Iq=1n-1:7800x:q:q=n+220:7800x:q Bu=17:c=c+x(u):u:c=c+.5*(c(n)=c(n+1)) c>sm=n:s=c c=sc>07900  x1u=17:c(q)=u-1x(u)=1 u: ,c(n)+c(n+1)>c(m)+c(m+1)m=n: 'c(n)+c(n+1)c(m)+c(m+1) @n=1192 J#c(n)=xc(n+1)=y8040h TNc(n)=yc(n+1)=xz=c(n):c(n)=c(n+1):c(n+1)=z:8040h ^n: rIr=0:z=0:q=120:r=r+(c(q)=x):z=z+(c(q)=y):q r>zn=n+1:2060  zrz>12500  #(!r=2*(*28)+1 #2>a(r)=10 r=r+2-568*(r>546):90102# #< #7m(n)=a(r):m(n+1)=a(r+1):a(r)=10 : #O7;0;18,8+n;m(n);19,8+n;m(n+1): #7c(n)=a(r):c(n+1)=a(r+1):a(r)=10 : $"12,8+n;"";3,8+n;"": %/t=t-1:t>9 5,16;t: %&'t<10 5,16;" ";t: %x7;0;11 ,31;a;12 ,31;b:10 ,30;"x";13 ,30;"y":x=a:y=b: %t18,7+w;" ";19,7+w;" ":mt=mt-1:h=h-2*(h=2):g=g-2*(g=2): %2,8+n;" ";3,8+n;" ":ct=ct-1:h=h-2*(h=2):g=g-2*(g=2):c(n)=10 :c(n+1)=10 :