ZXTape! 0Created with Ramsoft MakeTZXYAHTZEE I ItK "YAHTZEE"  20,0;1;" "  "YAHTZEE" ( -YAHTZEE @ <B|~<B<B~~~B@BBBbDBB@@B|@BBR(B~|||@N~BJ>>>>>>>>>>>>>>>~B@@D@BB$FBB @@BB@BBB~~~<|@~<<~B<>BB>@~<>>>>>>>>>>>>>>|@@~@B~BB@@N~B@@B~B@@@BB@ZBZB@@BBB@@BBDB@~~B<~$B>$B>~~0,0;6;"" ,>1,0;6;"" 6>2,0;6;"" @j1,3;6;3;"*****";4;0;" Y A H T Z E E ";6;3;"*****" J14,1;7;1;"RESULT OF " TM5,1;7;1;"THROW No.";1;7;2;T ^24,21;9 ;1;"NAME: " h+5,21;9 ;1;A$(V) r DICE POSITIONS | Z=65A N=7234 !8,N;6;0;Z  Z=Z+1 N 45-,120x 163,0 0,-502 -163,0 0,502 "U=1U=0:3690j  FIRST THROW  COL=7  J=1 N=7234 X=(*6)+1  5770 &,.2~L,((X-X)-30)+(X*10 ) 0P(J)=x:R(J)=x : J=J+1 DN NK(V,G)=.01z# =P(1)=P(2)P(1)=P(3)P(1)=P(4)P(1)=P(5)4250:N=1419:N,0;" ":N:0620l XP(1)=P(2)P(1)=P(3)P(1)=P(4)P(1)=P(5)K(V,G)=5024250:1250:2840 bP(1)=P(2)P(1)=P(3)P(1)=P(4)P(1)=P(5)K(V,G)5024250:1250:2230 l SUBSEQUENT THROWS vQ=12  N=15 Z(N)=0  C$(N)="" N 814,12 ;1;1;6;"CHOOSE" -16,4;" LETTER (DICE) TO HOLD?" P18,5;"S=SCORE Z=ROLL N=STICK":19,9 ;"I=INSTRUCTIONS" '21,7;"BREAK=CANCEL HOLD" PTOTAL=0 *J=15:PTOTAL=PTOTAL+P(J):J N=15 =""0760 =" ".1}L,10 :J=15:10 ,((J-1)*4)+7;0;7;1;" ":11 ,((J-1)*4)+7;0;7;1;" ":Z(J)=0:C$(J)="":J:N=1:0760  8="S"Ŧ="s".1}L,10 :1250:3630. :="I"Ŧ="i".1}L,10 :INFO=1:4510  F="N"Ŧ="n".1}L,10 ::41506:1250:2230 *="A"Z(1)=0Ŧ="a"Z(1)=0C$(N)="A":.2~L,10 :1;1;10 ,7;7;3;" ":1;1;11 ,7;7;3;" ":Z(1)=1:N 4="B"Z(2)=0Ŧ="b"Z(2)=0C$(N)="B":.2~L,10 :1;1;10 ,11 ;7;3;" ":1;1;11 ,11 ;7;3;" ":Z(2)=1:N >="C"Z(3)=0Ŧ="c"Z(3)=0C$(N)="C":.2~L,10 :1;1;10 ,15;7;3;" ":1;1;11 ,15;7;3;" ":Z(3)=1:N H="D"Z(4)=0Ŧ="d"Z(4)=0C$(N)="D":.2~L,10 :1;1;10 ,19;7;3;" ":1;1;11 ,19;7;3;" ":Z(4)=1:N R="E"Z(5)=0Ŧ="e"Z(5)=0C$(N)="E":.2~L,10 :1;1;10 ,23;7;3;" ":1;1;11 ,23;7;3;" ":Z(5)=1:N \,="Z"Ŧ="z".2~L,10 :0880p f 0760 pE1;7;2;5,10 ;T+1:T=T+1 z514,0;" " 516,0;" " 518,0;" " 519,0;" " (10 ,7;" " (11 ,7;" " 521,0;" "  COL=4 L=15 0C$(L)="A"X=P(1):N=7:5770 1C$(L)="B"X=P(2):N=11 :5770 1C$(L)="C"X=P(3):N=15:5770 1C$(L)="D"X=P(4):N=19:5770 1C$(L)="E"X=P(5):N=23:5770 L  COL=7 N=7234 $X=(*6)+1 .r(10 ,N)=40(5770:.2~L,((X-X)-30)+(X*10 ):P((N/4))=X:R((N/4))=X 8N =PTOTAL=0 >*J=15:PTOTAL=PTOTAL+P(J):J BK(V,G)=.01z# =P(1)=P(2)P(1)=P(3)P(1)=P(4)P(1)=P(5)4250:N=1419:N,0;" ":N:1120` LP(1)=P(2)P(1)=P(3)P(1)=P(4)P(1)=P(5)K(V,G)=5024250:1250:2840 VP(1)=P(2)P(1)=P(3)P(1)=P(4)P(1)=P(5)K(V,G)5024250:1250:2230 `Q j 41506 t CALCULATE DICE TOTAL ~PTOTAL=0 N=15 PTOTAL=PTOTAL+P(N) N  PLACING RESULT I17,4;1;6;0;"PRESS 'S' FOR SCORESHEET" =""1210 8="S"Ŧ="s".1}L,10 :1250:2230  .5,-20:1210 "="N"Ŧ="n".1}L,10 :  SCORESHEET 2:5:0: =21,20;1;6;0;"PLEASE WAIT" 0,10 ;"ON YOUR LAST THROW":1,10 ;"YOU HAD ";6;P(1);",";P(2);",";P(3);",";P(4);",";P(5)  .0,1;0;4;"YAHTZEE" .1,1;0;6;"*******" 2,1;"1's" (1;"2's" 21;"3's" <1;"4's" F1;"5's" P1;"6's" Z1;1;"TOTAL" d1;"63?" n1;1;"TOTAL" x1;"3K" 1;"4K" 1;"FH" 1;"LS" 1;"HS" 1;"YZ" 1;"CH" 1;1;"TOTAL" 1;1;"UPTOT" 1;1;"GTOT=" 1;"RUNNING TOTAL=" 0,160 245,0 535,160 0,-151 n=16 n*32 +535,160 "0,-151 ,$0,8:245,0 6n @%0,88X:245,0 J%0,96`:245,0 T&0,104h:245,0 ^&0,112p:245,0 h%0,16:245,0 r%0,24:245,0 |%0,32 :245,0  PRINT SCORES  N=1G DO(V,N)0O(V,N).01z# =2,N*4+3;O(V,N) 6O(V,N)=.01z# =2,N*4+3;0 DT(V,N)0T(V,N).01z# =3,N*4+3;T(V,N) 6T(V,N)=.01z# =3,N*4+3;0 DH(V,N)0H(V,N).01z# =4,N*4+3;H(V,N) 6H(V,N)=.01z# =4,N*4+3;0 DF(V,N)0F(V,N).01z# =5,N*4+3;F(V,N) 6F(V,N)=.01z# =5,N*4+3;0 DV(V,N)0V(V,N).01z# =6,N*4+3;V(V,N) 6V(V,N)=.01z# =6,N*4+3;0 DS(V,N)0S(V,N).01z# =7,N*4+3;S(V,N) 6S(V,N)=.01z# =7,N*4+3;0 EQ(V,N)0Q(V,N).01z# =17,N*4+3;Q(V,N) 7Q(V,N)=.01z# =17,N*4+3;0 &ED(V,N)0D(V,N).01z# =11 ,N*4+3;D(V,N) 07D(V,N)=.01z# =11 ,N*4+3;0 :EE(V,N)0E(V,N).01z# =12 ,N*4+3;E(V,N) D7E(V,N)=.01z# =12 ,N*4+3;0 NEG(V,N)0G(V,N).01z# =13 ,N*4+3;G(V,N) X7G(V,N)=.01z# =13 ,N*4+3;0 bEI(V,N)0I(V,N).01z# =15,N*4+3;I(V,N) l7I(V,N)=.01z# =15,N*4+3;0 vEJ(V,N)0J(V,N).01z# =14,N*4+3;J(V,N) 7J(V,N)=.01z# =14,N*4+3;0 EK(V,N)0K(V,N).01z# =16,N*4+3;K(V,N) 7K(V,N)=.01z# =16,N*4+3;0 N  CALCULATE TOTALS :N=G:A(V,N)=(O(V,N)+T(V,N)+H(V,N)+F(V,N)+V(V,N)+S(V,N)) "A(V,N)63?B(V,N)=35# !A(V,N)<63?B(V,N)=0 C(V,N)=(A(V,N)+B(V,N)) <L(V,N)=(D(V,N)+E(V,N)+G(V,N)+I(V,N)+J(V,N)+K(V,N)+Q(V,N))  M(V,N)=(C(V,N)+L(V,N))+X(V,N) - CALCULATE RUNNING TOTALS N(V,1)=M(V,1) (N(V,2)=M(V,1)+M(V,2)  5N(V,3)=M(V,1)+M(V,2)+M(V,3) BN(V,4)=M(V,1)+M(V,2)+M(V,3)+M(V,4)  ON(V,5)=M(V,1)+M(V,2)+M(V,3)+M(V,4)+M(V,5) *xN(V,6)=M(V,1)+M(V,2)+M(V,3)+M(V,4)+M(V,5)+M(V,6):ADD=1ADD=0: 44 PRINT TOTALS AND RUNNING TOTAL > N=1G H#8,N*4+3;A(V,N) R#9 ,N*4+3;B(V,N) \$10 ,N*4+3;C(V,N) f$18,N*4+3;L(V,N) p$19,N*4+3;C(V,N) z$20,N*4+3;M(V,N) -21,15;7;2;N(V,N) N  PRINT PLAYER NAME 921,20;1;6;0;A$(V);" "  1 PLACE RESULT ON SCORESHEET *.1}L,10 :"ENTER RESULT? ";W$ W$"1"2300 O(V,G).01z# =2680x EO(V,G)=0B=15:P(B)=1O(V,G)=O(V,G)+P(B) 3B:O(V,G)=0.5,-10 :2230  3170b W$"2"2350. T(V,G).01z# =2680x ET(V,G)=0B=15:P(B)=2T(V,G)=T(V,G)+P(B) 3B:T(V,G)=0.5,-10 :2230 $ 3170b .W$"3"2400` 8H(V,G).01z# =2680x BEH(V,G)=0B=15:P(B)=3H(V,G)=H(V,G)+P(B) L3B:H(V,G)=0.5,-10 :2230 V 3170b `W$"4"2450 jF(V,G).01z# =2680x tEF(V,G)=0B=15:P(B)=4F(V,G)=F(V,G)+P(B) ~3B:F(V,G)=0.5,-10 :2230 3170b W$"5"2500 V(V,G).01z# =2680x EV(V,G)=0B=15:P(B)=5V(V,G)=V(V,G)+P(B) 3B:V(V,G)=0.5,-10 :2230 3170b W$"6"2550 S(V,G).01z# =2680x ES(V,G)=0B=15:P(B)=6S(V,G)=S(V,G)+P(B) 3B:S(V,G)=0.5,-10 :2230 3170b eW$="3K"D(V,G)=0W$="3k"D(V,G)=03900<:CHECK=1D(V,G)=PTOTAL:3170b eW$="4K"E(V,G)=0W$="4k"E(V,G)=03930Z:CHECK=1E(V,G)=PTOTAL:3170b gW$="FH"G(V,G)=0W$="fh"G(V,G)=04060:CHECK=1G(V,G)=25:3170b gW$="HS"I(V,G)=0W$="hs"I(V,G)=04100:CHECK=1I(V,G)=40(:3170b gW$="LS"J(V,G)=0W$="ls"J(V,G)=03960x:CHECK=1J(V,G)=30:3170b (eP(1)=P(2)P(1)=P(3)P(1)=P(4)P(1)=P(5)2620< 2 2650Z ^#1;6;0;1;" PRESS 'F' FOR FINAL RESUlT ":.1}L,10  H=""3400H R,="F"Ŧ="f".1}L,10 :3430f \ .5,-10 :3400H f2:5:0: p32,4;6;0;"FINAL RESULT" znumber=13540 J=1number-1 L=J+1number 'N(L,6)N(J,6)3520 T=N(L,6):W$=A$(L) (N(L,6)=N(J,6):A$(L)=A$(J) N(J,6)=T:A$(J)=W$ L J J=1number L 5+J,4;A$(J);" = ";N(J,6);5+J,22;" POINTS" J N19,1;6;0;1;"WOULD YOU LIKE TO PLAY AGAIN?" A20,7;6;0;1;"PRESS 'Y' OR 'N'" =""3590 :="Y"Ŧ="y".1}L,10 :INST=0:0060< ,="N"Ŧ="n".1}L,10 :3790 $ .5,-10 :3580 . 8H#1;6;0;1;" PRESS 'R' TO RETURN TO GAME " B=""3650B L,="R"Ŧ="r".1}L,10 :3680` V .5,-10 :3650B `U=1:0280 j F=7 t COL=7 ~RETURN=1 J=15 +X=P(J):N=(J*4)+3:5770 Z(J)=11;10 ,F;1;3;7;" ":1;11 ,F;1;3;7;" ":C$(J)=(64@+J)  F=F+4 RETURN=0 J  0690 5:5: <10 ,5;6;0;" THATS ALL FOLKS! " N=40(-20-1  .01z# =,N .01z# =,N+20 .01z# =,N-20  .01z# =,N+10 .01z# =,N-10 N (.1}L,20 2 < CHECK FOR 3K FTR(1)=R(3)R(2)=R(4)R(3)=R(5)CHECK=1: PCHECK=0: Z CHECK FOR 4K d>R(1)=R(4)R(2)=R(5)CHECK=1: nCHECK=0: x CHECK FOR LS L=15 J=16 'R(L)=JW(J)=W(J)+1:4010 J L J=13 ^W(J)0W(J+1)0W(J+2)0W(J+3)0CHECK=1: J CHECK=0:  CHECK FOR FH >R(1)=R(3)R(4)=R(5)CHECK=1: >R(1)=R(2)R(3)=R(5)CHECK=1: CHECK=0:  CHECK FOR HS J=12 R(J)=JR(J+1)=J+1R(J+2)=J+2R(J+3)=J+3R(J)=J+1R(J+1)=J+2R(J+2)=J+3R(J+3)=J+4CHECK=1: "J ,CHECK=0: 6* SORT ALTERNATIVE POSITION VARIABLES @J=1 4 JL=J+15 TR(L)R(J)4220| ^ TEMP=R(L) h R(L)=R(J) r R(J)=TEMP |L J   FLASH YAHTZEE N=1419 AN,0;4;2;"" N 621,0;" " X15,1;6;1;1;1;" " Y16,1;6;1;1;1;" " X17,1;6;1;1;1;" " X18,1;6;1;1;1;" " (UP=40(:DOWN=0:PM=-2 X=12 N=UPDOWNPM  .02{# =,N .03{u\,N+20 &N 0*UP=0:DOWN=40(:PM=2:X : D INSTRUCTIONS N0.2~L,10 :7,8;7;1;"'YAHTZEE' is a":8,3;7;1;"registered trade mark of":9 ,4;7;1;"Milton Bradley Company":10 ,7;7;1;"and is used with":11 ,10 ;7;1;"permission." X500:J=711 :.1}L,(*502):J,0;" ":.01z# =,(*30):J:INST=0 bA.2~L,10 :4,3;"Do you want instructions?" l/5,12 ;"Y or N":.1}L,10 v=""4470v ,="Y"Ŧ="y".1}L,10 :4510 "="N"Ŧ="n".1}L,10 :  .5,-10 :4470v 1:1:7: >0,0;0;" RULES AND PLAYING INSTRUCTIONS " G1,0;4;0;"--------------------------------" ?3,0;"YAHTZEE may be played by up to 6 players." Ɓ:"The object of the game is to achieve a higher score than thatof your opponent/s for one or more games (up to 6 games)." ^:"All scoring is calculated by thecomputer and all illegal result entries are not allowed." ]:"One player may play with the object of trying to get the highest possible score." C21,0;0;6;"Press any key for next page" 0:.1}L,10 :  "THE PLAY" :"The computer will request the number of and names of the players.The computer will also determine who is to roll first."  e:"Each player has a maximum of three rolls of the dice with theoption of sticking at any time." :"On the first roll, all the dice are rolled. On the second and third rolls any dice may be heldwith a view to scoring a particular result."  <:"After the third roll the player must score his result." *C21,0;0;6;"Press any key for next page" 40:.1}L,10 : >"SCORING THE RESULT" H:"Each player has his own scoring sheet and by using his own judgement enters his result. Each game consists of 13 positions where a single result must be placed. These are:-" R#:"1's, 2's, 3's, 4's, 5's, 6's," \"3K (3 of a kind),"'"4K (4 of a kind),"'"FH (Full House),"'"LS (Low Straight),"'"HS (High Straight),"'"YZ (YAHTZEE),"'"CH (Chance)." fC21,0;0;6;"Press any key for next page" p0:.1}L,10 : z"The player may on occasion find that his resultant roll cannot be entered. On these occasions aposition must be crossed off (See CROSSING OFF POSITIONS)" :"Any empty position may be crossed off at any time if the player considers this to be an advantage. The positions may be filled in any order." u:"The positions from 1's to 6's are known as the Upper Half and 3K to CH are known as the Lower Half positions." C21,0;0;6;"Press any key for next page" 0:.1}L,10 : "The Upper and Lower Half positions when added give the Grand Total for that game. Any YAHTZEE bonuses for the current game are automatically added to the Grand Total (See YAHTZEE BONUS)." i"A bonus of 35 points is awarded if the player manages to attain an Upper Half total of 63 or more." :"THE UPPER HALF" ʕ:"To score here the player must attempt to get as many 1's to 6's as possible with a view to getting enough points for a 35 point bonus." C21,0;0;6;"Press any key for next page" 0:.1}L,10 : "Example of result entry:-" ":"Final Roll Result= 1,2,5,5,5" Q:"Computer will ask Enter Result? """;1;"L";0;"""" :"If the player elects to enter his fives he must type 5 then . The computer will then score the sum of the 5's = 15." :"THE LOWER HALF" ::"3K and 4K is scored as the total of all 5 dice." $\:"FH i.e. any combination of threeof one number and two of anotheris scored as 25 points" .C21,0;0;6;"Press any key for next page" 80:.1}L,10 : B8"LS i.e. a run of 4 dice is scored as 30 points." L8"HS i.e. a run of 5 dice is scored as 40 points." VP:"YZ i.e. five dice all showing the same number is scored as 50 points." `>:"CH is scored as the total of all5 dice in any combinaton" j:"YAHTZEE BONUS" t:"A YAHTZEE bonus (100 points) is awarded for a player's second and subsequent YAHTZEE if and only if the first YAHTZEE was scored. If the position was previously crossed off no bonus is awarded in that game." ~C21,0;0;6;"Press any key for next page" 0:.1}L,10 : "YAHTZEE JOKER" _:"A YAHTZEE can be used as a jokerin the lower half if and only ifthe following hold true:-" ?:"A) A YAHTZEE has already been scored or crossed off." :"B) The position in the Upper Half that is used in the YAHTZEE has been filled. e.g. the player has a YAHTZEE in 6's and the 6's position is filled." C21,0;0;6;"Press any key for next page" 0:.1}L,10 : /"Used as a joker the YAHTZEE scores in exactly the same way as would the normal result e.g. A YAHTZEE of 6's scored in 3K would score 30, the total of all5 dice. If all the positions in the Lower Half are filled as well, the player must cross off a position of his choice in the Upper Half." X"If the YAHTZEE is scored in the Upper Half it is scored as the total of all 5 dice." a"A YAHTZEE bonus will be added tothe players Grand Total for thatgame if he is entitled to it." C21,0;0;6;"Press any key for next page" 0:.1}L,10 : "CROSSING OFF POSITIONS"  :"If at any stage during scoring the player wants or needs to cross off a position he must enter ""X"" whereby the computer will ask:-" 9:"Enter Which Position? """;1;"L";0;"""" :"The chosen position then enteredwill be scored as 0 points and will not be available for further result entries in that game." (P21,0;0;6;1;"View Instructions Again? Y or N" 2=""51702 <,="Y"Ŧ="y".1}L,10 :4510 Fq="N"INFO=1Ŧ="n"INFO=1.1}L,10 :INFO=0:2:5:0::3680` P"="N"Ŧ="n".1}L,10 : Z .5,-10 :51702 d n DIMENSION VARIABLES xO(number,6) T(number,6) H(number,6) F(number,6) V(number,6) S(number,6) A(number,6) B(number,6) C(number,6) D(number,6) E(number,6) G(number,6) I(number,6) J(number,6) K(number,6) L(number,6) M(number,6) "N(number,6) ,Q(number,6) 6A$(number,10 ) @ C$(5) J P(5) T G=1 ^ U=0 h Z(5) r Y(number) |C$=""  R(5)  W(6) D$(12 ,2) RETURN=1 X(number,6)  ADD=0  DICE GRAPHICS N=144154 M=07 A  (N)+M,A M N   DATA C0,0,0,24,24,0,0,0 C128,0,0,0,0,0,0,0 &C0,0,0,0,0,0,0,128 0A0,0,0,0,0,0,0,1 :A1,0,0,0,0,0,0,0 DC0,0,0,24,24,0,0,1 NE128,0,0,24,24,0,0,0 XE0,0,0,24,24,0,0,128 bC1,0,0,24,24,0,0,0 lD0,0,0,24,24,0,0,24 vD24,0,0,24,24,0,0,0   DICE PRINTING KX=110 ,N;COL;0;"":11 ,N;COL;0;"" KX=210 ,N;COL;0;" ":11 ,N;COL;0;" " KX=310 ,N;COL;0;"":11 ,N;COL;0;"" KX=410 ,N;COL;0;"":11 ,N;COL;0;"" KX=510 ,N;COL;0;"":11 ,N;COL;0;"" KX=610 ,N;COL;0;"":11 ,N;COL;0;""  nsnf X3