ZXTape! 0Created with Ramsoft MakeTZXDOMINOES ~~ 6Dominoes - D.G. Cross 1983 Phipps Associates 23733\<12810 ,10 ;1;"OH DEAR!"''0;"This is the 48K version and you only have a 16K machine! Turn the tape over and try the other side, please.":  65367W d6:0:0: n-#1;"Please wait: Program loading. " x"" '"DOMINOES"1 )DOMINOESI @ 00<?0000300000000 00300000000000030000000 @B|DDD8~88D <x8BB@DxxBD D@B><<<@D8@@xBxx88< n ::\< ( ((R;;! v THIS PROGRAM IS PROTECTED  1983 PHIPPS ASSOCIATES"E#ll# <@TQ''0 '\\]  Â\&xbhX!!@@P!!00' eSW!\"\ PM@@ K SR P%r()=(>(28-no)/(36$-no)) 34:.5,8:.25~,5:.5,6:.25~,3:.5,8:.25~,5:.5,1:.25~,1:.5,3:.25~,5:.25~,6:.25~,5:.25~,3:.5,8:.25~,5:.75@,1  9990' 6:0::10 ,0;6;0;1;"********************************" M11 ,0;6;0;1;"*";11 ,31;"*" m12 ,0;6;0;1;"*";0;"Please wait:I am getting ready";1;"*" V13 ,0;6;0;1;"*";13 ,31;1;"*" 14,0;6;0;1;"********************************" 9040P#:9000(#:9019;#:1150~::6:5,0;0;1;" Do you want the instructions? " /9 ,11 ;"(y or n)":1,8 n=110000'  =121y8000@ =110n20 n #502::5,0;"NOW IT IS TIME TO DECIDE WHO IS TO START. ":20:.73333,10 :.73333,6:.73333,8:.73333,1:.73333,1:.73333,8:.73333,10 :.73333,6:5 c4,0;" A coin is going to be tossed 5 times. ",," You may call heads or tails. ",,"If you succeed with 3 calls thenyou may start the game: if you are correct less than three times then the computer starts. ",,,,"Good luck: press any key to start the toss. " =""25 : 3502::num=0:hum=0:com=0 !?20,0;1;"Do you want heads or tails? " "Z21,0;6;0;" (enter h or t) ":.5,8 #-=""(=104hů=116t)35# $$="h"human=1:comp=0 %$="t"human=0:comp=1 &f20,0;,,,,:6:num=num+1:0,10 ;6;0;"TOSS NO ";num '70F,136,12 :222,136,12 :126~,88X,12 :10 ,15;" ";11 ,15;" " (|human=14,8;6;0;"";4,27;"";5,8;"";5,27;"" )|human=04,8;6;0;"";4,27;"";5,8;"";5,27;"" *4,3;"You";4,18;"Computer";10 ,8;"Result";13 ,13 ;1;"Score";16,5;0;"You = ";hum;16,19;"Computer = ";com +o=(*2) ,n=112 -110 ,15;"";11 ,15;"" .n/2:.05|L,1 / n=12 o=1513 0110 ,15;"";11 ,15;"" 1n/2:.05|L,8 2n 4human=ohum=hum+1 5humanocom=com+1 6E16,5;"You = ";hum;16,19;"Computer = ";com 7#hum=3com=3579 8 33! 9hum=320,0;1;" You have won and may start ":.5,4:.5,4:.25~,1:.5,6:.5,4:1500 :com=320,0;1;"I have won and will start. ":.5,4:.5,4:.25~,1:.5,6:.5,4:1300 j=e(1)+e(2) 'e(1)=e(2)j=j+e(1) 'e(3)=e(4)j=j+e(4) p=0 %j/3=(j/3)p=j/3 'j/5=(j/5)p=p+j/5  x=((*7)+1) y=((*7)+1) a(x,y)0200 .1}L,i-9  a(x,y)=02830 ,Q11 ,0;6;0;1;"YOUR DOMINOES" 6n=13 19 @<n,0;1;" " Jn T620,0;"" Y?16,0;1;"------------------------" ^i=18 _ t=0 `z=w(i)-1 b 520 hz=v(i)-1 r t=1 w)12 ,(i-1)*4+2;i | 520 i  b=13 19 c=14  b,((i-1)*4)+c;" " c b i  @z313 +4*t,(i-1)*4+1;"" @z413 +4*t,(i-1)*4+3;"" &Jz=2z=614+4*t,(i-1)*4+1;"" +Jz=2z=614+4*t,(i-1)*4+3;"" 0Mz/2ɺ(z/2)14+4*t,(i-1)*4+2;"" :@z415+4*t,(i-1)*4+1;"" D@z315+4*t,(i-1)*4+3;"" N X012 ,(i-1)*4-2;0 b!b,(i-1)*4;0 l#b,(i-1)*4+c;0 v*20,(i-1)*4+c;0 *16,(i-1)*4+c;0 (20,(i-1)*4;0  e=b$  el=1 e(1)=b$(1) e(2)=b$(2) e(3)=b$(e-1) e(4)=b$(e)  g=0 e<3g=8 e<3800  e<5g=4 e<5840H M7,4;1;" I ";3;" ";0;" I " M8,4;1;" I ";3;" ";0;" I " M9 ,4;1;" I ";3;" ";0;" I " N10 ,4;1;"";3;"";0;""  880p  (7,11 ;1;"I " !(8,11 ;1;"I " "(9 ,11 ;1;"I " #)10 ,11 ;1;"" % 880p H.7,8;1;" I I " I.8,8;1;" I I " J.9 ,8;1;" I I " K/10 ,8;1;"" p f=0 ze=2f=2 i=14-f  ff=0 !i>2e=4ff=0 !i>2e>4ff=1 He(i)=2e(i)=67,1+8*ff+4*i+g;"" 3e(i)47,8*ff+4*i+g;"" ;e(i)37,2+8*ff+4*i+g;"" Me(i)/2((e(i)/2))8,1+8*ff+4*i+g;"" 3e(i)39 ,8*ff+4*i+g;"" He(i)=2e(i)=69 ,1+8*ff+4*i+g;"" ;e(i)49 ,2+8*ff+4*i+g;"" i  g=0  ~ h=8 i=116  200 i8a(x,y)=1 i8a(y,x)=1 i8w(i)=x i8v(i)=y i9 a(x,y)=2 i9 a(y,x)=2 i  no=16   :mover=0 x=((*7)+1) y=((*7)+1) (a(x,y)21300 2x$=(x-1) <y$=(y-1) F b$=x$+y$ P%a(1,7)=2b$="06" Z%a(4,4)=2b$="33" d%a(5,7)=2b$="46" n%a(2,6)=2b$="15" s%a(5,6)=2b$="45" x@a(7,7)=2a(7,4)=2b$="66"  700  85004!  1700 6a(b$(1)+1,b$(2)+1)=3 6a(b$(2)+1,b$(1)+1)=3  300, j=b$(1)+b$(2)  165  8700!  sc=0  2780 :mover=1  300, {21,0;1;"You start:enter number of domino"::n=18:.1}L,-8:.1}L,5:n =""1521 %<491ů>5681521 h= !h<1h>81530 621,0;" " x=w(h) y=v(h) y$=(y-1) "x$=(x-1) 6 b$=x$+y$ J j=x$+y$ T 165 ra(w(h),v(h))=3 |a(v(h),w(h))=3  1700  3237 e=b$  tt=0 $0,0;"Dominoes used:"; x=2e2 tt=tt+1 6(152+b$(x-1));(152+b$(x));" "; x qno<283,0;4;0;" dominoes unassigned ";3,1;28-no no=283,0;6;0;1;" No more dominoes unassigned ":150:no=29:3,0;0;" "  a(x,y)=3 a(y,x)=3 st=12150f x=17  y=x7 a(x,y)=02090*  y x  st=0 * 200 4a(x,y)=1 >a(y,x)=1 Hw(8)=y Rv(8)=y \ 300, fmover=0:21,0;1;"";0;1;" I am thinking of my move ";1;"":.3,-20 gx=17 h y=x7 ia(x,y)=22160p jy kx l p=5 n 9350$ qx=17 z y=x7 {a(x,y)22190 _(x-1=b$(1)x-1=b$(e)y-1=b$(1)y-1=b$(e))2230 y x mo=mo+1  fi=0 mo=29200#  28706  mo=0  q=-2 x=17  y=x7 a(x,y)22390V Чx=7y=7ưb$(1)=6(a(b$(e)+1,4)=3a(b$(e)+1,4)=2)r()p=-1:mz=1:2520 :2390V ѭx=7y=7ưb$(e)=6(a(b$(1)+1,4)=3a(b$(1)+1,4)=2)r()p=-1:mz=2:2520 :2390V Ҡx=4y=b$(e)+1ưb$(1)=6(a(7,7)=3a(7,7)=2)r()p=-1:mz=4:2520 :2390V ӧx=6y=6ưb$(1)=5(a(b$(e)+1,6)=3a(b$(e)+1,6)=2)r()p=-1:mz=1:2520 :2390V ԭx=6y=6ưb$(e)=5(a(b$(1)+1,6)=3a(b$(1)+1,6)=2)r()p=-1:mz=2:2520 :2390V ՠx=6y=b$(1)+1ưb$(e)=5(a(6,6)=3a(6,6)=2)r()p=-1:mz=3:2520 :2390V ֠x=6y=b$(e)+1ưb$(1)=5(a(6,6)=3a(6,6)=2)r()p=-1:mz=4:2520 :2390V 9,x-1=b$(1)j=y-1+b$(e) ;:x-1=b$(1)ưb$(e)=b$(e-1)j=j+b$(e) =0x-1=b$(1)mz=1:2500 >,x-1=b$(e)j=y-1+b$(1) @>x-1=b$(e)ưb$(1)=b$(2)j=j+b$(1) B*x-1=b$(e)mz=2:2500 C,y-1=b$(1)j=x-1+b$(e) E:y-1=b$(1)ưb$(e)=b$(e-1)j=j+b$(e) G0y-1=b$(1)mz=3:2500 L,y-1=b$(e)j=x-1+b$(1) N>y-1=b$(e)ưb$(1)=b$(2)j=x+b$(1) Q*y-1=b$(e)mz=4:2500 Vy `x 2600( p=0 %j/3=(j/3)p=j/3 'j/5=(j/5)p=p+j/5 p>qx1=x:m1=mz:y1=y:q=p q+co=72H2600(  (x$=(x1-1) 2y$=(y1-1) 5682971 h= !h<1h>82970 212 ,2+(h-1)*4;1;h 21,0;5;0;"Added to right or left of line? ":o=120:.01z# =,o:.01z# =,o-8:o =""3001 *(=114rů=108l)3001 'p$=:21,31;8;p$; 1 >p$="r"(v(h)=b$(e)+1w(h)=b$(e)+1)3020 Jp$="l"(v(h)=b$(1)+1w(h)=b$(1)+1)3020 S21,0;1;" Move impossible; enter again ":.2~L,-25 200 512 ,2+(h-1)*4;h:28706 u21,0;" Move is being made ":o=120:.01z# =,40(:.01z# =,30:o mo=0 p$=108l31200 "w(h)-1=b$(e)3100 $z$=(w(h)-1)+(v(h)-1)  b$=b$+z$  3170b !$z$=(v(h)-1)+(w(h)-1) & b$=b$+z$ + 3170b 0(v(h)-1=b$(1)3130: 5$z$=(w(h)-1)+(v(h)-1) 6 b$=z$+b$ 7 3170b ?$z$=(v(h)-1)+(w(h)-1) @ b$=z$+b$ be=b$ g 5000 a(w(h),v(h))=3 a(v(h),w(h))=3 v(h)=9 w(h)=9 212 ,2+(h-1)*4;0;h po=0 700 %no=283500 :3420\ (9190#:x3500 :3420\ J200:w(h)=x:v(h)=y:a(x,y)=1:a(y,x)=1:no=no+1 4000 t=0 *z=w(h)-1 . 4500 > t=1 Hz=v(h)-1 R 4500 \ 8800`" a 1700 bhu=72H250 chu=72H9500% fRpo=0:i=18:po=po+v(i):i:po=72Hp=5:9300T$ 2150f b=12 20 b,(h-1)*4;" " b  b=13 19 &b,(h-1)*4+1;"" b /16,(h-1)*4;1;"---"  tz313 +4*t,(h-1)*4+1;"";15+4*t,(h-1)*4+3;"" #20,4*(h-1);"" tz413 +4*t,(h-1)*4+3;"";15+4*t,(h-1)*4+1;"" ~z=2z=614+4*t,(h-1)*4+1;"";14+4*t,(h-1)*4+3;"" Mz/2ɺ(z/2)14+4*t,(h-1)*4+2;""   j=0  p=0 e=b$ j=b$(1)+b$(e) -b$(1)=b$(2)j=j+b$(1) #b$(e)=b$(e-1)j=j+b$(e) %j/3=(j/3)p=j/3 'j/5=(j/5)p=p+j/5  P'j=2*b$(1)+2*b$(e) Z ? @)0,11 ;1;" DOMINOES " |y2,0;"In this game you will be playing",,"against me. We will both be ",,"given eight dominoes and then we",,"take turns to place them on the ",,"table end to end. A piece may ",,"only be played if one of the end",,"numbers is the same as one of ",,"the ends of pieces already ",,"played. ",,"(Press any key to continue) " }=""8061} ~ 0,0;"If one player cannot play a ",,"piece then the other player ",,"takes a turn. When a piece is ",,"played a replacement piece is ",,"taken from the unassigned pieces",,"if any exist. ",,"The number of points awarded ",,"when a piece is played is calcul",,"ated by adding the two end ",,"dominoes. ",,,,"(Press any key to continue.) " =""8064 :3,0;"Both ends of a double domino ",,"count towards the total. For ",,"points to be scored this total ",,"must be exactly divisible by 3 ",,"or 5. The number of points is ",,"the dividend.",,,,,,"Press any key for an example of ","the scoring." =""8066 :b$="544555"  708 0,0;"Total of end dominoes = 5+5+5 = 15",,,"(Note: both ends of double ",,"dominoe count.)" 15,0;"Points scored = 15/3 + 15/5 = 8",,,,,"(Press any key for another example.)" =""8126 :b$="5442":708 43,0;"Total of end dominoes = 5+2 = 7" 15,0;"7 is not exactly divisible by 3 nor 5. Therefore no points are scored.",,,,,,,"(Press any key to continue.)" =""8130 ̀:0,0;"The winner is the first player ",,"to score exactly 72 points. ",,"Points over 72 are deducted from",,"72. For example; 71 +4 =69 ",,"If neither player can play a ",,"domino, a new set is started. ",,"A player using all the pieces ",,"is awarded 5 points before a new",,"set is given to both players ",,,,,,"Press any key to start the game." =""8145  20 !4 ha=0 !5x=17 !6 y=x7 !7a(x,y)=2ha=ha+1 !8y !9x !AL4,0;5;0;"I have ";ha;" dominoes in my hand. " !B !V5,0;1;"My score";0;" = ";co;16;" Your score = ";hu ! zz=1 "p=08790V" " o=1p " co=co+zz "K.25~,15+((p/2)*2-p)*5:5,11 ;co " 502 "$co=72Hp>0zz=-1 "$o "V 100d "XJ5,0;0;"My score = ";co;16;" Your score = ";hu "Z#co=72H502:9600% "[ p=0 "_ "`Y5,0;"My score = ";co;16;" ";1;"Your score";0;" = ";hu "jp=08880" "o zz=1 "t o=1p "~ hu=hu+zz "K.25~,15+((p/2)*2-p)*5:5,30;hu " 502 "$hu=72Hp>0zz=-1 "o "Y5,0;"My score = ";co;16;" ";0;"Your score";0;" = ";hu "$hu=72H100d:9505!% " p=0 " #' #( 90102# #)6x=07:.01z# =,8:a:""+x,a:x #*7x=07:.01z# =,10 :a:""+x,a:x #+7x=07:.01z# =,12 :a:""+x,a:x #,7x=07:.01z# =,14:a:""+x,a:x #-7x=07:.01z# =,16:a:""+x,a:x #.7x=07:.01z# =,18:a:""+x,a:x #/7x=07:.01z# =,20:a:""+x,a:x #07x=07:.01z# =,22:a:""+x,a:x #1 #20,11 ,31,31,27,535,127,31,31,11 ,31,31,31,3,3,3 #30,192,224,240,248,248,568,184,568,248,240,224,192,192,192,192 #40,579,43+,41),41),8,31,15,15,15,31,63?,127,127,127,127 #50,192,64@,192,192,224,224,224,224,224,224,224,240,248,252,254 #7x=07:.01z# =,28:a:""+x,a:x #?7x=07:.01z# =,30:a:""+x,a:x #@7x=07:.01z# =,32 :a:""+x,a:x #A7x=07:.01z# =,34":a:""+x,a:x #B7x=07:.01z# =,36$:a:""+x,a:x #C7x=07:.01z# =,38&:a:""+x,a:x #F255,255,255,255,255,255,255,255,255,255,255,231,231,255,255,255,255,231,231,255,255,231,231,255 #G255,159,191,231,231,253,249,255,255,153,153,255,255,153,153,255 #H255,153,189,231,231,189,153,255,255,165,165,255,255,165,165,255 #IQ255,255,231,195,195,231,255,255 #J #P(.2~L,-20:a(7,7) #Q .2~L,-15:w(8) #R .2~L,-10 :v(8) #S.2~L,-5:e(4) #T.2~L,0:x1=0 #U.2~L,5:y1=0 #V.2~L,10 :co=0 #W.2~L,15:hu=0 #X.2~L,20:st=0 #Y*.2~L,25:g=0:fi=0 #Z.2~L,30:h=1 #[ #n #Gx=17:y=17:a(x,y)0y:x:x=0 # #=0,0;1;" NO MORE MOVES ARE POSSIBLE " # 9400$ $T.2~L,-30:0,0;1;" You have no dominoes left ";21,0;"":100d $U 9400$ $.2~L,20:0,0;1;" I have no dominoes left ";21,0;"":100d $ 9400$ $Cp8,13 ;1;"BONUS":8700!+mover*100d $21,0;"";1,0;1;" WAIT A NEW GAME IS STARTING " $`o=-1:x=110 :o=o*q:.1}L,0:x:" " $ mo=0 $b$="" $x=17 $y=17 $a(x,y)=0 $y $x $ 1150~ $ ff=0 $ $ 8427 $fi=11305 $ 1500 % %!0,0;1;" WELL DONE YOU HAVE WON " %">.5,8:.25~,6:.5,5:.25~,5:.25~,5:.25~,3:.25~,5:.75@,6:.5,5:.25~,5:.5,3:.25~,3:.25~,3:.25~,1:.25~,3:.75@,5:.5,1 %$;o=421:"":o %& 9800H& %~0,0;1;" BAD LUCK: I HAVE WON " %;o=421:"":o %5.75@,11 :.75@,11 :.25~,11 :.25~,8:.25~,16:.25~,11 :.25~,8:.25~,4:.75@,9 :.75@,9 :.25~,9 :.25~,6:.25~,8:.25~,9 :.25~,8:.25~,6 &R19,0;"";1;1;"*";0;"*";0;" Another game?(y or n) ";1;1;"*";0;"*";0;"" &\=""9820\& &f="n"9850z& &p ="y" &u 9820\& &z &10 ,0;6;0;1;"********************************" &M11 ,0;6;0;1;"*";11 ,31;"*" &m12 ,0;6;0;1;"*";0;" THANK YOU AND GOODBYE ";1;"*" &M13 ,0;6;0;1;"*";13 ,31;"*" &14,0;6;0;1;"********************************" & 0: '"" '9991' '4#1;0;1,10 ;"Press a key"; ' ñ9993 ' '  'R"DOMINOESI"16384@,23641Y\+256*23642Z\-16383?:1 x[