loader t6:2:6  d,1,5;"" n,2,5;"" x,3,5;""  3 "x=32511 ,8,x;"" 69 ,x;"" @10 ,x;"" J11 ,x;"" Tx | 1 x=81911 10 ,x;"" 11 ,x;"" 12 ,x;"" 13 ,x;"" x  0 '18,7;"" '19,7;" " '20,7;" software" '21,7;"" N 2 XO15,0;1;"LOADING";0;16,0;"please wait" lE15,15;"Written by:-";16,15;" R&D Strang"  6 4,0;"";  "YATZEE"  YATZEE \Z\ OPTIONS  62500$ FLAG=0 %N$(4,4):C(6) -D(3,13 ):A(5):S(6) 'C$(6):D$(6):E$(6) T(3):G$(5) 4P(3,7):W(3,7):U(3)  V(3) d FLG=0 fQFLG=0 I=13 (J=113 :D(I,J)=-1:J I 6: v:0:10 ,5;"Do you want instructions ?";12 ,10 ;"(Y)es, or";14,10 ;"(N)o" =""252 ="y"Ŧ="Y"9300T$ ,SETUP .GAME=1 1 223658j\,8 6&"Enter No. of (human) players ?";NOP ;8NOP<0NOP>3"Too many players":3106 @S I=1NOP:20,3;"Player ";I;" (Initials )":N$(I):I E 10 JF:10 ,0;"Do you wish to play"'" the SPECTRUM Y or N ?" T=""340T Y=="Y"Ŧ="y"NOP=NOP+1:FLAG=1:N$(NOP)=" ZX" ^,NOP>3"Too many players":3106 ` 20 c:9 ,0;"Do you wish to play :-";12 ,0;"a fixed No. of games PRESS F";14,0;"first to a points value PRESS P";16,0;"leave unspecified PRESS U" d)NGAME=1000:NPOINTS=1000000t$ h=""360h m="F"GFL=1:368p n="P"GFL=2:370r oGFL=3:400 p("No.of games you wish to play ?";NGAME q 400 r"Points value ?";NPOINTS  display J=1NOP (I=113 :D(J,I)=-1:I J  6 I1::7:I=1NOP:0,I*5+12 ;N$(I):I 0,2;"OPTIONS" %6:1,1;"1. Aces" 2,1;"2. Twos" 3,1;"3. Threes" 4,1;"4. Fours" 5,1;"5. Fives" 6,1;"6. Sixes" #7:7,1;"Bonus" ,6:8,1;"7. 3 of KIND" #9 ,1;"8. 4 of KIND" #10 ,1;"9. Full House" #11 ,1;"10. 5 of KIND" #12 ,1;"11. Short Run" "13 ,1;"12. Long Run"  14,1;"13. Chance" $7:15,1;"TOTAL" V7:I=13022041):I,175:1;0,-125}:I ?1;14,0;"________________________________" ?1;15,0;"________________________________" >1;0,0;"________________________________" >1;6,0;"________________________________" >1;7,0;"________________________________"  Z 6:0:I=1621:I,0;" ":I %FLG=19655% *7I=15:X=I*6-4:8600!:I MAIN PROGRAM THROW=1  LK=1NOP QG1:1:7:0,K*5+12 ;N$(K):0 V T=1 [H6:3:21,0;N$(K);" - Throw " ] FLAG=1K=NOP1120` ^'21,15;"Press any key " _=""1119_ ` j 20 ~ 7000X T=31500 821,0;T;" A B C D E"  FLAG=1K=NOP5000  "Dice to be held,0,I or Q?";D$ D$(1)=" "D$(1)="I"D$(1)="Q"D$(1)="0"D$(1)="A"D$(1)="B"D$(1)="C"D$(1)="D"D$(1)="E"1195  1190 D$(1)="0"1500 D$(1)="I"9300T$ D$(1)="Q"9800H& C=1:FLAG=1K=NOPC=0:1:21,0;T;21,4;"A";21,10 ;"B";21,16;"C";21,22;"D";21,28;"E" I=15:C(I)=C:I @C=0:D=1:FLAG=1K=NOPC=1:D=0 D I=15 0D$(I)="A"C(1)=C:21,4;"A" 1D$(I)="B"C(2)=C:21,10 ;"B" 1D$(I)="C"C(3)=C:21,16;"C" 1D$(I)="D"C(4)=C:21,22;"D" 1D$(I)="E"C(5)=C:21,28;"E" I  0 T=T+1:1120`  WHICH ITEM  FLAG=1K=NOP5000 621,0;"Which option (1-13) to score ? " SN $SN0SN>13 1520 WD(K,SN)021,0;"ILLEGAL ENTRY  - INPUT AGAIN ":1530 SN63000 "SN=721004 $SN=821004 ,SN=9 1700 1SN=10 1800 6SN=11 1900l ;SN=12 1900l @SN=13 3100 J[0:7:0,K*5+12 ;N$(K):0,168:255,0 TK ^THROW=THROW+1 `iFLAG=1K=NOP6;1;21,0;"ZX chose option ";SN;" ":200 coFLAG=1K=NOP0:7:0,K*5+12 ;N$(K):0,168:255,0 hTHROW13 1050 r 2500 SN=9  4000 &L=0:SCORE=0:L2=0 J=16 S(J)=3L=1 S(J)=2L2=1 S(J)=5SCORE=25 J &L=1L2=1SCORE=25  3050  SN=10 I=0:SCORE=0  4000 &J=16 0S(J)=5I=1 :J DI=1SCORE=502 N 3050 X l RUNS qSCORE=0 v 4000  4100 3SN=11 M4SCORE=30:3050 3SN=12 M=5SCORE=40(:3050 SCORE=03050  4SN=7/8 >"L=4:SN=7L=3 H 4000 RI=0:SCORE=0 \J=16 fS(J)LI=1 pJ zI=03050 I=13100  music M=(*3+1) M=12210 M=22240 M=32260  2213 i=14 a,b I.25~,14,.75@,6,.25~,7,.5,9 a*.5,b i ;i=13:12 :.5*.5,9 :i 12 :2220 i=17 a,b }1.5@,9 ,.5,11 ,1,9 ,.25~,14,.75@,6,.25~,7,.5,9 a*.5,b i  2227 i=14  12 a,b D.5,9 ,.5,7,.5,1,2,2 a*.5,b i  2505  2243 i=15 a,b Z.25~,10 ,.75@,8,.25~,7,.5,5,.5,5  a/2,b i !1.75`*25:2249 i=15 a,b Y.25~,5,.75@,3,.25~,2,.5,0,.5,0  a/2,b i !1.75`*25:2255 i=111 a,b .25~,10 ,.75@,8,.25~,7,.5,5,1,5,.5,5,.75@,5,.25~,5,.75@,3,.25~,5,2,7  a/2,b i  2505  2263 i=116 a,b .4L,0,.4L,2,.2~L,3,.2~L,2,.4L,0,.4L,0,.4L,2,.2~L,3,.2~L,2,.4L,0,.4L,3,.4L,5,.8L,7,.4L,3,.4L,5,.8L,7 a,b i  2505 TOTALS 2200 K=0:L2=0 51:1:7:7,1;"BONUS" %J=1NOP:W(J,GAME)=0:J I=1NOP T(I)=0 J=16 D(I,J)<02550 T(I)=T(I)+D(I,J) J QFLG=12600( <T(I)<63?7,I*5+14;"0":2600( T(I)=T(I)+35# "7,I*5+13 ;"35" (15,1;"TOTAL" 2J=713 7D(I,J)<02630F <T(I)=T(I)+D(I,J) FJ P#15,I*5+13 ;T(I) Z!T(I)>KL=I:K=T(I):2670n dT(I)=KL2=1 nI xJ=1721 zJ0:6:7:J,0;" " |J ~QFLG=0 L2>02720 FLAG=1L=NOP1;3;18,2;"Hard luck !!";0;1;19,5;N$(L);" won":W(L,GAME)=1:2760 ;1:3;18,2;"CONGRATULATIONS" j0:19,5;1;N$(L);0;" - You won this game":W(L,GAME)=1:2760 H0:1:18,2;"A DRAW  between":0 J=1NOP ?T(J)=K19,J*10 -8;N$(J):W(J,GAME)=1 J CALC & PRINT RUNNING TOTALS "J=1NOP:P(J,GAME)=T(J):J 300, k7::0,8;1;"Running totals";1;0,8;"______________";0 >4:J=1NOP:2,J*5+12 ;N$(J):J J=1GAME I=1NOP 0:5 'J+4,0;1;"GAME ";J "W(I,J)=12:1 &J+4,I*5+12 ;P(I,J) I J 0 SS=GAME+6:S,0;1;"TOTAL POINTS";S+2,0;"GAMES WON" I=1NOP U(I)=0:V(I)=0 J=1GAME U(I)=U(I)+P(I,J) V(I)=V(I)+W(I,J) J ?S,I*5+12 ;U(I);S+2,I*5+12 ;V(I) I GAME=GAME+1 $GAME>NGAMEGFL=12850" GFL22830 I=1NOP U(I)>NPOINTS2900T I 91:18,0;"PRESS Y to start next game" %19,0;"PRESS E to exit" I20,0;"PRESS C to clear scores and "'" start again" =""2836 ="Y"400  ="E" ="C"5  2830 "K=-1:L2=0 #I=1NOP $!V(I)>KL=I:K=V(I):2856( &V(I)=KL2=1 (I *L2>028706 ,FLAG=1L=NOP1;3;18,2;"Hard luck !!";0;1;19,5;N$(L);" won":2950 .;1:3;18,2;"CONGRATULATIONS" 0N0:19,5;1;N$(L);0;" - You won ":2950 6H0:1:18,2;"A DRAW  between":0 8J=1NOP :,V(J)=K19,J*10 -8;N$(J) <J T K=0 ^I=1NOP `U(I)>KL=I:K=U(I) bI dFLAG=1L=NOP1;3;18,2;"Hard luck !!";0;1;19,5;N$(L);" won":2950 f;1:3;18,2;"CONGRATULATIONS" hN0:19,5;1;N$(L);0;" - You won ":2950 121,0;"PRESS Y to start, E to exit" =""2952 ="E" ="Y"5 2950 SN6 SCORE=0 I=15 A(I)=SNSCORE=SCORE+SN I L=SN:SN>6L=SN+1 1 5D(K,SN)=SCORE:6;L,K*5+13 ;SCORE  ADD &SCORE=0 0(I=15:SCORE=SCORE+A(I):I : 3050 D CHECK 2,3,4,5,6 J=16 S(J)=0 I=15 A(I)=JS(J)=S(J)+1 I J   TEST RUN M=0:S=0 J=16 "(S(J)0 S=S+1:4160@ , M6T<35300 I=55800 I=46000p  I=362008 L=26500d M=45600 I=26600 PC$="ABCDE":D$=" " ZT=36800 d=D(NOP,12 )<0D(NOP,11 )<05250 nD$=C$:1200 J=15 (A(J)=1A(J)=6D$(J)=C$(J) J  1200 FLG2=1 J=713  D(NOP,J)<0FLG2=0 J FLG2=05110 3I2D(NOP,DS)<0DKEEP=DS:5345 J=61-1 'D(NOP,J)<0DKEEP=J:5345 J D$=" ":C$="ABCDE" J=15 A(J)DKEEPD$(J)=C$(J) J  1200 |LONG RUN M=5 >D(NOP,12 )<0SN=12 :1900l:1630^ >D(NOP,11 )<0SN=11 :1900l:1630^ T=36800  D$="ABCDE"  1200  SHORT RUN /D(NOP,12 )<0T<35650 >D(NOP,11 )<0SN=11 :1900l:1630^ T=36800 D$="ABCDE":1200 FIND DIE AND THROW I=25750v  L2=0 &J=15 0A(J)=5L2=1 5A(J)=2L2=2 :J DJ=15 NL2=1A(J)=1L3=J XL2=2A(J)=6L3=J bJ l#D$="ABCDE":D$=D$(L3):1200 vC$="ABCDE":D$=" " xJ=15 z"A(J)=DSD$(J)=C$(J):1200 |J I=5 >D(NOP,10 )<0SN=10 :1800:1630^ $D(NOP,8)05870 DS45850 THROW>75850  5860 $SN=8:21004:1630^ 2D(NOP,DS)<0SN=DS:3000 :1630^ $D(NOP,7)05920  DS45910 THROW>75910  5920  $SN=7:21004:1630^  =DS5D(NOP,DS)<0SN=DS:3000 :1630^ *<D(NOP,9 )<0SN=9 :1700:1630^ 42D(NOP,DS)<0SN=DS:3000 :1630^ >T=36800 HD$="ABCDE":1200 pI=4 zSN=8:6100 SN=86040 SN=7:6100 1SN=DS:DS3D(NOP,DS)<06080 .D(NOP,9 )<0T<36120 #T<3D$="ABCDE":1200  6800 #T=33000 :1630^  6120 *D(NOP,SN)<0DS46115 -D(NOP,SN)<0THROW>76115  6020 #T=321004:1630^  D$="ABCDE" J=16 S(J)=1L=J J -L4SN=6T=3:6115 J=15 A(J)=LD$=D$(J)  J  1200 8I=3 :FIND OTHER DIE BC$="ABCDE":D$=" " L#L1=0:L2=0:P=0 `J=16 jS(J)=2P=J tS(J)=1L1=0L1=J ~S(J)=1L10L2=J J J=15 A(J)=PD$(J)=C$(J) A(J)=L1D$(J)=C$(J) A(J)=L2D$(J)=C$(J) J VD(NOP,9 )<0L=1SN=9 :SCORE=25:3050 :1630^ 8D(NOP,9 )<0L<1T<31200 $D(NOP,7)06440( &DS<4THROW<66440( /T=3SN=7:3100 :1630^ $D(NOP,8)<01200  !P<4P>01200 L1+L2<81200 $SN=7:3100 :1630^ (9D(NOP,8)<0T<3DS41200 -)D(NOP,DS)0T=36800 2+D(NOP,DS)0D$="ABCDE":1200 <"DS3T<31200 F+DS3SN=DS:3000 :1630^ P#T<3D$="ABCDE":1200 Z 6800 d TWO PAIRS i DS1=0 nJ=16 sS(J)=2JDSDS1=J xS(J)=1P=J }J <G$=" ":C$="ABCDE":D$=" ":E$=" ":F$=" " J=15 A(J)=PG$(J)=C$(J) A(J)=DSE$(J)=C$(J) A(J)=DS1F$(J)=C$(J) J T=36580 +D(NOP,9 )<0D$=G$:1200 YD(NOP,DS)<0D(NOP,7)<0D(NOP,8)<09000(#:1200 ,D(NOP,DS1)<09050Z#:1200 D$="ABCDE":1200  6800  ONE PAIR T=36800 $DS<4D$="ABCDE":1200 $G$=" ":D$=" ":C$="ABCDE" J=16 S(J)=2P=J J J=15 A(J)PD$(J)=C$(J) J "MD(NOP,DS)<0D(NOP,7)<0D(NOP,8)<01200 ,D$="ABCDE":1200  LAST CHOICE GI2DS3D(NOP,DS)<0SN=DS:3000 :1630^ SCORE=0 J=15 SCORE=SCORE+A(J) J MSCORE20D(NOP,13 )<0SN=13 :3100 :1630^ J=13 0D(NOP,J)<0SN=J:3000 :1630^ J >D(NOP,12 )<0SN=12 :1900l:1630^ >D(NOP,11 )<0SN=11 :1900l:1630^ >D(NOP,10 )<0SN=10 :1800:1630^ <D(NOP,8)<0SN=8:21004:1630^ <D(NOP,7)<0SN=7:21004:1630^ J=46 0D(NOP,J)<0SN=J:3000 :1630^ J >D(NOP,13 )<0SN=13 :3100 :1630^ X DIE THROW bT>17050 l$I=15:C(I)=1:I   0 J=15 C(J)=07280p X=J*6-4  I=14 %)0.1}L,-5:0.1}L,-10 *A(J)=(*6+1) /A(J)=18100 4A(J)=28200 >A(J)=38300l HA(J)=48400 RA(J)=585004! \A(J)=68600! fI pJ u 17,X;" " 18,X;" " 19,X;" " 20,X;""   17,X;" " 18,X;" " & 19,X;" " 020,X;"" : v 17,X;" " 18,X;" " 19,X;" " 20,X;""  17,X;" " 18,X;" " 19,X;" " 20,X;"" ! !> 17,X;" " !H18,X;" " !R 19,X;" " !\20,X;"" !f ! 17,X;" " ! 18,X;" " ! 19,X;" " !20,X;"" ! #(J=15 #-G$(J)=" "D$(J)=F$(J) #2F$(J)=" "D$(J)=G$(J) #<J #P #ZJ=15 #_E$(J)=" "D$(J)=G$(J) #dG$(J)=" "D$(J)=E$(J) #iJ #n $T:0:"In this game you have 5 dice."''"Each player (max. of 3) takes"'"his turn at throwing the dice."''"At the end of each throw the"'"player decides how many dice"'"A,B,C,D,E ,if any, he wishes to"'"keep." $^''"HE then throws the remaining"'"dice and again decides which"'"are to be kept. If necessary"'"repeating this for a third time." $h=20,0;"Press any key for more "'"instructions." $r=""9330r$ $|:"Each player has 13 options to"'"score. Each option must be used "'"once (and only once)."''"At the end of his turn the"'"player must decide which option"'"to score."''"At the end of the game the "'"player with the highest points"'"score is the winner." $=20,0;"Press any key for more "'"instructions." $=""9360$ $Z:"The first six options are:- "''"OPTION POINTS"'"1. Add the 1's in the 5 dice" $ "2. Add the 2's in the 5 dice" $ "3. Add the 3's in the 5 dice" $ "4. Add the 4's in the 5 dice" $ "5. Add the 5's in the 5 dice" $ "6. Add the 6's in the 5 dice" $ր'''"If at the end of the game the"'"total points for the first six"'"options is 63, then a bonus"'"of 35 points is awarded." $=20,0;"Press any Key for more "'"instructions." $=""9460$ %m:"OPTION 7 - 3 of a KIND"'"You must have 3 dice the same."''"The points value is the sum of"'"all 5 dice." %n'''"OPTION 8 - 4 of a KIND"'"You must have 4 dice the same."''"The points value is the sum of"'"all 5 dice." %=20,0;"Press any key for more "'"instructions." %=""9496% %l:"OPTION 9 - FULL HOUSE"'"You must have a triplet (3 dice"'"the same) AND a pair."''"POINTS value = 25" %&^'''"OPTION 10 - 5 of a KIND"'"You must have ALL 5 dice the "'"same."''"POINTS value = 50" %0=20,0;"Press any key for more "'"instructions." %5=""95255% %:~:"OPTION 11 - SHORT RUN"'"You must have a RUN with at "'"least 4 dice. i.e. 1234, or 2345"'"or 3456"''"POINTS value = 30" %D^'''"OPTION 12 - LONG RUN"'"You must have a RUN with all "'" 5 dice. "''"POINTS value = 40" %N=20,0;"Press any key for more "'"instructions." %S=""9555S% %XW:"OPTION 13 - CHANCE"'"NO conditions required"''"POINTS value = SUM of all 5 dice" %b<20,0;"Press any key for more"'"instructions." %g=""9575g% %l=:"INPUT INFORMATION"''"When asked:"'" 'Which dice to be held ?'"''"Press"'" if no dice are to be "'"held"''"The appropriate (CAPITAL)letters"'"A,B,C,D,E in a single string,"'"then to hold the "'"corresponding dice"''"'0' {zero} then if you"'"wish to hold all dice and go to"'"input option" %m;20,0;"Press any key for more"'"instructions" %n=""9582n% %o:"INPUT INFORMATION (CONT'D)"''"Press I then if you"'"wish instructions."''"Press Q then if you "'"wish to quit the game." %v,21,0;"Press any key to start" %{=""9595{% %|D$(1)="I"9650% % 300, %FLG=1:405 %FLG=0:0 %J=15 %X=J*6-4 %A(J)=18100 %A(J)=28200 %A(J)=38300l %A(J)=48400 %A(J)=585004! %A(J)=68600! %J %Z=1NOP %J=113 %D(Z,J)<09730& %L=J %J>6L=J+1 %01;6;L,Z*5+13 ;D(Z,J) &J &Z & G1:7:1;0,K*5+12 ;N$(K):0 &0:1170 &HQUIT &M 10 &R321,0;"Do you wish to quit Y or N ? " &\=""9820\& &f="Y"9850z& &p 1170 &zQFLG=1:2500 la ! !     nnlfl am