DOMINOESZ(dominoes by S.Brooks  Jan 83 vers 5#7  """a": int=zb:6:zb:za: n1=zb:r=za:lf=za:rf=za:v(13 ):u(13 ):n(13 ):n(1)=9 :r7=za:int=09100#:250 <&:9100#:int=0250 F3,zc;"In this game you play ";zb;zb;"ME";za;za;".";zc;"The winner is the first one to use up all his dominoes": P zc;"We play with 26 different";zc;"dominoes - 13 each - and";zc;"although obviously I know";zc;"your dominoes because I";zc;"generate them I do forget";zc;"them - ";zb;zb;"honestly!": Zzc;"I will display your dominoes and then play the ";5;"";6;" to get us started. You then use";zc;"2 digits to tell me which";zc;"domino you want to play - one half of it must match one of the ends of the chain." =a$="000102030405061112131415162223242526333435364445465556" t=zb:z=524za-zc x=((*z)/zc)*zc+zb r=zac$(t)=a$(xx+zb) "r=zbp$(t)=a$(xx+zb) ,#a$(x)=a$(z+zb):a$(x+zb)=a$(z+zc) @r=r:t=t+(r=za):z VNint=zb21,4;zb;zc;"Press ENTER to continue":=""342V Yint=za370r ^$:zb,zc;"e.g If these dominoes had";zc;"been played"::5;5;"";6;:::,"then you must";zc;"find a domino which has";zc;"either a ";5;"";6;" or a ";5;"";6;". If you";zc;"haven't got one then input 00 and I go." h:zc;"After specifying your domino then tell me if you want it on the right or left of the chain with the letters 'r' or 'l'" r 9030F# |int=za:5000   9100# ir=za:r1=za:x=zb:14,zb;zb;zb;"Your dominoes:"::i=zb13 :i$=i:i<10 i$="0"+i 5x;i$;" ";5;q$(i);:x=x+8:.05|L,i x=29x=zb: i #3,14;5;"" Jlx=10 :ly=3:rx=18:ry=3:ld=6:rd=6 &r3=za:20,za;l$;l$;20,za;1;" Choose your domino ( 2 digits";7;"- 00 for can't go) ";:k=za:n=zbzc 0- i$=:i$<480ůi$>5795600 1^.05|L,8+zc*n:k=k*10 +i$:21,28;1;k:i=zb25:i:n Fk>13 595S Ik=za7000X Nu(k)=za600X Sq9160#:1;"Cheating again !!":i=zb10 :.05|L,i*3:.05|L,i*5:i:550& Xri=zb35#:i:9160#:1;"Which side, right or left? (r/l)";:" for your domino number - ";zb;k bk1=za c&i$=:i$=""i$"r"i$"l"611c g4.06|u\,14:9160#:o$=p$(k):n$=q$(k) li$="r"750 vWld=(o$(zb))n$=n$(34)+n$(12):o$=o$(zc)+o$(zb):640 {ldɰ(o$(zc))595S ^.06|u\,14:ly+(lf-zb)+(lf=za),lx;1;n$:lf=zbly-zc,21;"left cont'd" @1:100d:ly+(lf-zb)+(lf=za),lx;5-(lf=zc);n$ .1}L,6 lxzclx30670 8ly=3+(ly6)*4:lx=30:lf=lf+zb lx=lx-4 ld=(o$(1)) r3=zau(k)=-zb r3=zbv(k)=-zb $i=zb13 :v(i)-zb730 i r9150#:20,zc;"I WON!!!!":i=2040(:t=zb9 3:.01z# =,i+t:t:i:9000(# $i=zb13 :u(i)-zb735 i i9150#:20,4;zb;"YOU BEAT ME!":i=-30za:.01z# =,i*2+-i:i:9000(# r3=zb550& Q(k/4.3 )+16,((k-zb)-((k/4.1333)*4))*8+zb;" "  1000 frd=(o$(2))n$=n$(34)+n$(12):o$=o$(2)+o$(1):760 rdɰ(o$(1))595S Y.06|u\,14:ry+(rf-zb)+(rf=za),rx;1;n$:rf=zbry-zc,zb;"right cont'd" @1:100d:ry+(rf-zb)+(rf=za),rx;5-(rf=zc);n$ .1}L,6 rx26800   3ry=7+(ry6)*4:rx=-zc:rf=rf+zb  rx=rx+4 4rd=(o$(2)) > 705 (20,zc;"Hold on I'm thinking !!" r3=zb:r2=za d=za:i=zb13 v(i)=-zbd=d+zb:1070.  t=zbn1 9(c$(i,1))n(t)ư(c$(i,2))n(t)1070. o$=c$(i):n$=d$(i) 6 (c$(i,1))ldư(c$(i,2))ld1050 2000:630v 6 (c$(i,1))rdư(c$(i,2))rd1060$ 2000:750 $t .i Li=zb13 Qv(i)=-zb1130j To$=c$(i):n$=d$(i) V5rdɰ(c$(i,1))rdɰ(c$(i,2))1120` [2000:750 `5ldɰ(c$(i,1))ldɰ(c$(i,2))1130j e2000:630v ji:d=13 85004! <9160#:4;zb;"I CAN'T GO!":.5,-10 i=zb100d:i:9160# k1=za1180  85004!  540 k=i:o$=c$(k):n$=d$(k):  r=za i=zb14 r=zbi=14 r=zb5040 0x$=c$(i,1):y$=c$(i,2):5050 $x$=p$(i,1):y$=p$(i,2) u=za  5102 j=za6 a$ uzaŰx$j5080 u$=a$:u=1:5051 uzbŰy$j5100 v$=a$:5110 j % "","","","","","","" r=zad$(i)=u$+v$ r=zbq$(i)=u$+v$ i r=zb:5010 X'c1=za:c2=za:i=zbn1:n(i)=ldc1=zb bk1=zb  9160# n(i)=rdc2=zb i c1=zb7100 n(n1)=ld:n1=n1+zb c2=zb1000  n(n1)=rd:n1=n1+zb:1000 !4 9160# !>,c=za:i=113 :u(i)=-zbc=c+zb !Mi !R>9150#:19,za;"You used ";c;" dominoes,I used ";d !\820,za;: d>c"I am the CHAMPION!!":9000(# !f$ c>d"You won again.":9000(# !p12 ;"We Drew." #(Jn=zb200:n:9150#:19,4;" another game? (y/n)" #2'i$=:i$=""i$"y"i$"n"90102# #7-:i$="y"int=0:9030F#:10 #<i$="n":n=115:.1}L,n/2:.07}\(,n:10 ,6;"Thanks for the game";20,5;"Press ENTER to finish":13 n:9020<# #= #F]18,zc;zb;zb;"Please wait a moment while I";19,8;"deal the dominoes": #5z$="":g$="":w$="DOMINOES" #Gzb,za;7;1;z$;0;6;w$;1;7;g$ #`n=zb32 :2,n-1;"=":.05|L,n*(n16)+(32 -n)*(n>16):n: #(n=2114-zb:n,za;l$:n: #.20,0;l$;l$;20,0;: ' '."DOMINOES"0:"Spots""a",112p nar! #x u kd#1122152625562435054503331402 #16015506461344231236340400 A A L O35NX0Y6UVID D D Z G WDOMINOESA6020202140414343336361436363523243335333435364445465556tSpots pXZer~