ZXTape! DIX CCtE?"DMC":61826:61871:19,0:"DM" ADMC #%D> = !.= !.= !.:Ro^#V#FP:\F#NO"# !0͵  !"@:\o6, $ > o #N#Fͺ$! mS:\2}\#~2~\͕͕͕͕͕͕͕͕͕͕`# %%%%"""        E ]#O%)9]=Pw]##$$##$$%'*%'*))++%'*##$$%'**##$$##$$%'))++)+##$$##$$%'**##$$##$$%'())++*""##""###('""##""###')&(&(""##""##')(&(""##('#(')(&(#"#"#!"!"**"#"#!"!")-(,'-"#"#!"!")-'-*"#"#+)*)-'-*!X 60#!X68#!Y68#>o>o68#!@6,$!H6,$> o!Y:_G 64#>o>g:|g> !H'< ! P< !+P< !KP < !kP!P}:(G6,$%o:(&( (((((%>2 }:Go&$1-:H\2: _C{2 :x\2X2X2Y2Y2X2X2Y2Y<`>!@w#>!Xw#>!X^#1Y^#HIJNOPSWhkotv$(+,-0489:;DEGHLPTXdfhlptxyz !6#!> << #!F!5~4#!F:2R>2\2\ͥ(s:2R>(2\>2\ͥ([:2R>P2\> 2\ͥ(C:2R>x2\>2\ͥ(+:2R>2\>2\ͥ(:2R>2\>2\ͥ,:8 !B\6#6#6: !B\65#6#6!>V #!B\6#6#6!> !B\6#6#6#: !>  > #4!>  > > Î#ý!(#p{ !> 6!6#!> > #!>(!> > q{  #!>( +(!B\p#6#6 !6#00000ll$$~$$~$>(> >bd&F(*D:0  >>> ~ffff~xX|~f~`~~f f~``ll~ ~`~F~|`~bb~~~f>~fx):q=plays+y"3e3" I:plr=(plr"1e4""5804" e "59869",zx iYװ".01","35":r=yf:23681\,5*(r-1):60013m:r:sb>x"109" jkzxm$"t"f+y,("11"-l(plr)/z);"Your turn ";P$(plr,l(plr));".";b+b,a*a;"Press any key.":װ".1",x:x k2zxdice=ff+y,a*a;"It's my turn.":װ".1",x:cc n:dice=xdice=f xZx:59885,dice:t=x:D(f):r=yf:D(r)=((*f)+y)*(rdice):(59885+r),D(r):r Lq(plr,"15")=q(plr,"15")+y:q(plr,f+y)=q(plr,f+y)+dice:pd:װ".01","35" (r=ydice:q(plr,D(r))=q(plr,D(r))+y:r 7c=x:23695\,58::61980:62021E 61980:62310f r=yf  (D(r)=yD(r)=e)285  r !59870>0285 0c=cc:(pydice>y)n=zy/z,-a*5:"625" zxnpm:(c=ccn=x)dice=xf+y,a*a;"Throw or pass.":err=y:mm 3c=ccn=yf+y,e;"You must throw again.":װ".1",x zdice=y(n=yn=z)(D(y)=yD(y)=e)f+y,b+b;"Bonus score ";d*e*cc:y,z*e:q(plr,"13")=q(plr,"13")+y:cc/z:m$="1":b*cc  dice=yn=yn=z:x:cc "?p=yf+y,f+y;"You may throw,pass";b+b,"11";" or take.":mm 'Ef+y,"11"-(l(plr)/z)-(l(plr)b);"Your move ";P$(plr,yl(plr));"." (װ".1",x+z*plr:m$ ,)m$="p"((p=yn=x)(dice=fp=y))"7e2" 1 m$="t"p=y(dice>ydice=x)cc 2%m$="t"n=xdice=yn=n+y:d=d+y:cc 5m$="t"dice=yn=n+y:cc 6!c=ccp=yer=f:"6050":"285" ;m$>y"410" @$(m$<"1"m$>"6")er=a:"6050":mm E(D(m$)=y)(D(m$)=e)"4e2" Jer=b:"6050":mm "6e2" "440" Nm$>am$(y)<"1"m$(y)>"6"m$(z)>"6"m$(z)<"1"m$(y)=m$(z)er=e:"6050":mm 6sum=D(m$(y))+D(m$(z)):sa=D(m$(y)):sbb=D(m$(z)) &m$=z(sum=z(sum=e+esa=e))"6e2" "m$=zsum=f(sa=ysbb=y)"6e2" )m$=z(sa=ysa=e)(sbb=ysbb=e)"440" m$=zer=e:"6050":mm @m$(a)<"1"m$(a)>"6"m$(y)=m$(a)m$(z)=m$(a)er=e:"6050":mm esc=D(m$(a)):((sum+sc=f+y)(sum+sc=f+e))(((sa=ysa=e)(sbb=ysbb=e))(sc=ysc=e))"606":"440" ^(D(m$(y))D(m$(z))D(m$(y))D(m$(a))D(m$(z))D(m$(a)))D(m$(y))=xer=e:"6050":mm "6e2" $62522::r=y̱m$:D(m$(r))=x K23681\,5*(m$(r)-1):60013m:.01z# =,35#:r dice=dice-m$:n=x:"61452" p=y:dice=xzx*"525"+"285" "200" zq(plr,e+e)=q(plr,e+e)+y:#x;f+y;y;y;y;y,b+b;" FOUR TWOS! ":װ".3",-z*e:zxf+y,f;"I lose all my score!":"505" 5f+y,f;"Sorry! You lose all";b+b,z*e;"your score." p"150":61619,h(s(plr)):61620,l(s(plr)):61702:s(plr)=x:plr+14,24;" " 8e+e,"17";" ":#x;y;y;y,b+b;" " "705" hװ".3",z*e:q(plr,f+f)=q(plr,f+f)+y:zxf+y,f+y;"Very good. I have";b+b,"14";"1-6":cc:pm:"520" Df+y,f;"Very good. You have";b+b,"14";"1-6.":cc:pm:521  Gװ".1",x+z*plr:f+y,a*a;"I get 3000 and";b+b,"13";"6 dice.":"522"  ?װ".1",x+z*plr:f+y,b+b;"You get 3000 and";b+b,f+f;"6 dice."  8cc:m$="t":sb=sb+"3e3":e+e,"17";sb:"61452":cc Qq(plr,a*a)=q(plr,a*a)+y:pm:f+y,f+y;"Good! Three pairs.":װ".3",z*e:cc:pm 6װ".1",z:zxf+y,e;"I get 1500 and 6 dice.":"540" 2f+y,b+b;"You get 1500 and";b+b,"13";"6 dice." ? m$="t":cc:sb=sb+"15e2":e+e,"17";sb:"61452":pm:cc 5Iװ".3",z*e:q(plr,f+e)=q(plr,f+e)+y:f+y,b+b;"Good! Six ones.":cc:pm :/װ".1",x:zxf+y,a*a;"I score 2000.":"575" ;f+y,b+b;"You score 2000." ?8cc:sb=sb+"2e3":e+e,"17";sb:"61452":m$="t":cc Xnm$=ysb=sb+(D(m$)=e)*"50"+(D(m$)=y)*cc+d*e*cc*(n>x):q(plr,"24"-(D(m$)=e))=q(plr,"24"-(D(m$)=e))+y YVzxn>xf+y,b+b;"Bonus score ";d*e*cc:װ".2",f+f:q(plr,"13")=q(plr,"13")+y:cc/z Zm$=zsb=sb+(sum=z)*z*cc+(sum=f)*"150"+(sum=e+e)*cc:q(plr,b*f)=q(plr,b*f)+(sum=f)+z*(sum=z):q(plr,"23")=q(plr,"23")+(sum=f)+z*(sum=e+e) ]xm$=at4=ysb=sb+(D(m$(y))y)*D(m$(y))*cc+(D(m$(y))=y)*"1e3":q(plr,b*b+D(m$(y)))=q(plr,b*b+D(m$(y)))+y:"610" ^m$=azxsb=sb+((sum+sc)=f+y)*"250"+((sum+sc)=f+e)*"200":q(plr,b*f)=q(plr,b*f)+(sum+sc=e+f)+z*(sum+sc=e+f):q(plr,"23")=q(plr,"23")+z*(sum+sc=e+f)+(sum+sc=f+y) _Rm$=at4=xsb=sb+cc*z+((D(t(1))+D(t(2))+D(t(3)))=e+z)*cc/z be+e,"17";sb:pm g(sb+s(plr))cc*cc"5804" l<zxr=y̱m$:(59869+r),x:(59885+m$(r)),x:r m q1zxsb>xf+y,f+y;"I've lost my score.":"630" s1sb=xf+y,f+y;"Too bad, no score.":cc:"630" u3f+y,f;"You lose your score.";b+b,"13";"Sorry!" vCq(plr,"14")=q(plr,"14")+y:cc:sb=x:e+e,"17";" ":"705" q(plr,b*b)=q(plr,b*b)+y:s(plr)=s(plr)+sb:"14"+plr,"27"-(s(plr)>"50")-(s(plr)>"999")-(s(plr)>"9999");s(plr):"61619",h(s(plr)):"61620",l(s(plr)):"61621" Oh(plr)=h(plr)*(sbh(plr))+sb*(sb>h(plr)):f;x;plr+"14",y;p$(plr,yl(plr)) 6pm:m$="s":dice=f:sb=x:e+e,"17";" ":"70" Cm$=(t(1)*cc+t(2)*z*e+t(3)):t4=x:805% Qm$=(t(1)*z*e+t(2)):sum=D(t(1))+D(t(2)):805% m$=(t(1)):805%  Em$=(t(1)*cc+t(2)*z*e+t(3)):t4=y:805% %?װ".1",x+z*plr:n"6e3")):rr=*z*cc 92(dice=y(sb<(a*cc+rr+pb)))n=n+y:d=d+y:"835" =(((dice=xsb(f*cc+e*rr+pb))(dice=zsb(z*cc+rr/b+pb))(dice=asb(z*cc+rr/a+pb))(dice=bsb<(a*cc+rr/b+pb))(dice=esb(d*cc+rr+pb)))sb<("1e3"+rr))"835" >'f+y,e+f;"I'll pass.":cc/z:"7e2" C-f+y,e+e;"I'll throw.":cc/z:"61452":cc :pd="61785":m$="s":q$="ZEDX":mm="296":c8=800 :cc=100d:y=1:x=y-y:z=y+y:a=y+z:b=a+y:e=b+y:f=e+y:y:f+y:x : flg=x:"5999" flg=x :xxx=x:"61420":f+y,y;"";f+y,"29";"";f+z,y;"";f+z,"29";"":r=xe*ee:x,a+r;y+r/e:r:f+f,y;"Player";f+f,"24";"Total":flg>x"985" >f+y,f+y;"Number of players";b+b,f+f;"please.":װ".1",x:g$ 7:(g$>yůg$<"49")(g$>"54")er=y:"6050":"932"  plays=g$ 1"61535",plays:q(plays,"24"):h(plays):err=x Jf+y,e;"Now tell me your names":װ".1",x:P$ (plays,b+b):l(plays)  r=yplays  plr=r:a$  a$>f+zer=z:"6050":"976" 4װ".2",x:l(r)=a$:p$(r)=a$:w$=P$(plr,l(plr)):r Er=yplays:f;r+"14",y;p$(r,l(r));f+y;r+"14","24";" ":r s(plays):h(x )=(x/c8)*((x/c8)12 )+12 *((x/c8)>12 ):l(x )=(x-(x/c8)*c8)*((x/c8)12 )/cc+7*((x/c8)>12 ) e+e,e+f;"Score" sb=x:plr=x:q=x:"70" +v=yplays:x;f;f;"14"+v,"30";" ":v &xxx=x:n=yplays:s(n)xxxxxx=s(n) n:n=yplays -xxx>xs(n)=xxxy;b;f;"14"+n,"30";"" n: sm=x:r=yplays s(r)>smsm=s(r):plr=r r pm:;x;y;y+f,e+e;" GAME OVER ":y,f+f:z*cc:װ".1",x:"61826":"23606","69":"23607","243":p$(plr,b)="ZEDX"y;b+b,e+e;" I HAVE WON ";f+f,f;" MY SCORE WAS ";s(plr);" ":"3005" y;b+b,b+b;" CONGRATULATIONS ";e+e,("30"-l(plr))/z;" ";p$(plr,l(plr));" ";f+f,a*a;" YOU HAVE WON ";a*e,e;" YOUR SCORE WAS ";s(plr);" " +y;a*f,z;" PRESS ANY KEY FOR THE MENU " x:װ".1",x:"6005" "6010" Zzx#x;x;f+y;y;y,f;"I have scored ";sb+s(plr):h=ya:װ".2",x:װ".2",z*f:h:"5806" O#x;y;f+y;y;y,e;"You have scored ";sb+s(plr):h=ya:װ".2",x:װ".2",z*f:h *#x;y;x;y,e;" ": o-236066\,69E:236077\,243 pn"61826":װ".4",x:y;f,a*a-y;" STOP THE TAPE ":X("57"):r=y̰"57":dat:X(r)=dat:r:200:װ".1",x qX9900&:61826:װ".1",x:x;"9",f+y;" A GAME OF DICE ":200:װ".1",x u8y:"23606","69":"23607","243":p1="23681":p2="23728":p3="59986":pt="60069":pc="60013":ps="59898"::bep="8999":a,"13";"MENU";f,e;"Press the number of";f+y,a*a;"your choice.";e+e,a;"1. Short demonstration.";f+f,a;"2. New game.";"14",a;"3. Another game.";b*b,a;"4. Statistics." z^"23606",x:"23607","60":"988"*(="4")-"5100"*(="2")+"2990"*(="1")+e*(="3")+"6010" plays=x"6995" s(plays):err=x:q(plays,b*f):ll=l(y):v$=P$(y,b+b):r=yplays-y:l(r)=l(r+y):p$(r,b+b)=p$(r+y,b+b):r:l(plays)=ll:p$(plays,b+b)=v$:flg=y:"930" ^#0;y;y;f+y;y,b+b;"NOT ACCEPTABLE": y,-z*b:cc/z:#x;x;y;y,b+b;" " Oer=y#x;y;x,b;"Number of players must be";y,b+b;" between 1 and 6.":cc: Uer=z#x;y;x,b;"Sorry, name is too long;";y,b;"8 letters maximum please.":cc: Uer=ap=x#x;y;x,a;"You must take scoring dice";y,b+b;" at this point. ":cc: :er=bdice>x#x;y;x,b;"That was not a 1 or a 5.":cc: Z(er=eƱm$>a)dice>x#x;y;x,f;"Please take no more ";y,f;"than 3 dice at once.":cc: Ner=edicex#x;y;x,a*a;"That was not a";y,f;"scoring combination!":cc: j(er=fer=a)dice=x#x;y;x,a;"Press and enter p for PASS";y,b+b;"or t for THROW":cc:era"6200" [dicexװ".1",x:#x;y;x,a;" or enter scoring dice ";y,b+b;" numbers. ":"6200" 8cc: W:236066\,69E:236077\,243:װ".1",x:plays=xy;y;a*a,y;" Only available after a game. ";x;x;b*e,a;"Press any key for the menu.":x:װ".1",x:"6005" X^:"63","171":x,"-167":a,"153":"247",x:a,a:"247",x:x,"167":"-247",x:x,"-167" ]Ly;y,"17";"Player";y,y;"Dice":n=yf:z,e+b*n;n;n+z,b;n;n+a*a,b;n:n bFe+e,z;"3*";"17",z;"6*1";a*f,z;"1-6";"19",y;"3prs";b*e,z;"4*2" ln=yf:r=yplays:n+z,e+b*r;q(r,n);n+a*a,e+b*r;q(r,n+b*b);"17",e+b*r;q(r,e+f);a*f,e+b*r;q(r,f+f);"19",e+b*r;q(r,9 );b*e,e+b*r;q(r,e+e):r:n q8#x;y,x;"Press any key for the next page.":x:װ".1",x v_:"63","171":x,"-92":a,"153":"251",x:a,"79":"251",x:x,"92":"-251",x:x,"-92" {y;y,b*b;"Player":n=yf:z,e+b*n;n:n:b,b;"a";f,b;"b";b+b,b;"c";e+e,b;"d";"13",y;"a-Bonus scores : b-Lost scores";a*e+y,a;"c-Total number of throws";"18",a;"d-Total number of passes" |1n=yb:r=yplays:z*n+z,e+b*r;q(r,n+f+f):r:n 8#x;y,x;"Press any key for the next page.":x:װ".1",x :8,168:0,-136:240,0:0,136:-240,0:8,136:240,0:88X,168:0,-136 2,2;"Player";2,13 ;"Highest";2,24;"Final";3,14;"score";3,24;"score" r=yplays:4+2*r,2;p$(r,8);4+2*r,19-h(r);h(r);4+2*r,29-s(r);s(r):r <#x;y,x;"Press any key for the menu.":x:װ".1",x:"6005" #'cc*z:װ".1",x: #(>"23606","69":"23607","243":f+y:bep="8999"::װ".1",x #9װ".1",x::r=xe*ee:x,a+r;y+r/e:r:e+e,y;"Suppose the first player throws6 dice.":cc:r=16:p1,X(3*r-2):p2,X(3*r-1):p3,X(3*r):pt:r #:bep:"13",y;"He scores 200 by taking the","dice numbered 1,4 and 5.":cc*z:r=02:p1,X(19+r):pc:.01z# =,35#:r #;"150":װ".1",x:b*b,x;"The remaining dice may now be","thrown again.":cc/z:r=xz:p1,X("22"+r):pc:װ".01","35":r:cc:r=13:p1,X(3*r+22):p2,X(3*r+23):p3,X(3*r+24):pt:r #<cc:.1}L,x:19,z;"Dice 1 and 3 may now be taken","for an additional score of 200.":cc*z:r=01:p1,x(34"+r):pc:.01z# =,35#:r #=kcc*z:ps:װ".1",x:e+e,y;"The first player may now pass","and 6 dice are thrown for the","next player." #>cc:p1,X(36$):pc:װ".01","35":cc/z:r=16:p1,X(3*r+34"):p2,X(3*r+35#):p3,X(3*r+36$):pt:r #?Pcc*z:װ".1",x:"14",z;"He now scores 1000 by taking","dice 1,2 and 5.":cc*z #@/r=xz:p1,X(557+r):pc:װ".01","35":r #Aocc*z:װ".1",x:"17",z;"And a further 100 is scored","by taking dice 6.":cc:p1,25:pc:װ".01","35" #Bcc:װ".1",x:ps:e+e,z;"The second player may now","either throw, and risk losing","his score of 1100, or pass and","have 1100 added to his total." #C^cc:װ".1",x:b*b,b;"Press any key to return";"17",e+e;"to the menu.":x:װ".1",x:"6005" &COPYRIGHT &V"T",31:"T"+1,63?:"T"+2,112p:"T"+3,224 &^"T"+4,224:"T"+5,112p:"T"+6,63?:"T"+7,31 &R"U",0:"U"+1,15:"U"+2,15:"U"+3,3 &\"U"+4,1:"U"+5,0:"U"+6,127:"U"+7,127 &V"S",0:"S"+1,254:"S"+2,254:"S"+3,128 &`"S"+4,192:"S"+5,224:"S"+6,240:"S"+7,240 &0:7: & "61826" &C2,6;" PUBLISHED BY ";2,22;1;"" &!3,22;1;"" &65,4;1;"  1984 G.W.Lewthwaite. " &(9 ,6;" COPYRIGHT WARNING " &13 ,0;"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the ":"copyright, of DIX MILLE. ":"Please note unauthorised copying":"hiring, and lending of this ":"software is strictly prohibited." &:1;21,2;" PRESS ANY KEY TO CONTINUE." &=""9965& &7:0: & 'kx,x,f+f,e,40(,a,e+e,80P,a*a,15,120x,12 ,20,160,x,e*e,cc*z,f,x,a*e,20,e,10 ,25,x,x,x,e,40(,15,10 ,80P,x,x,10 ,e,x,x,x,e,40(,x,10 ,80P,15,15,120x,f,20,160,x,25,cc*z,x,x,e,20,25,10 ,15,x,x,12 ,e,40(,a ,layYMsQZEDX( dyxzabefl 9 ( P x  ( P ( Px:9pa