ZXTape! 0Created with Ramsoft MakeTZXinst ~  1:1:6: /10 ,0;" STOP TAPE" :y=17:x=17:.1}L,x:x:y: "  FIVE DICE ": "The game of FIVE DICE can be played by 1,2,3 or 4 players. Each player rolls the dice 3 times and then places the combination of numbers on the dice against one of the fourteenpositions available on the scorecard to obtain the highest scorepossible.": ("You may however wish to forgo scoring on certain combinations of the dice and under certain circumstances you can do this, but as each player only has 14 turns,it is not advisable unlessabsolutely necessary.": 2+" PRESS ANY KEY TO CONTINUE " <=""60< F :"  SCORING ": P"ONES :- Total value of all ones showing. TWOS :- Total value of all twos showing. THREES :- Total value of all threes showing. FOURS :- Total value of all fours showing. FIVES :- Total value of all fives showing. SIXES :- Total value of all sixes showing. BONUS :- Scores 35 if above scores total 65 or more." Z':"  PRESS ANY KEY TO CONTINUE " d=""100d n!:"  SCORING " x "PAIR**=Total of all dice,as long as two of them are the same. PRILE***=Total of all dice, as long as three of them are the same." "FOUR****=Total of all dice,as long as four of them are the same. FULL HOUSE=50 points,as long as there is a pair and a prile showing together." ':"  PRESS ANY KEY TO CONTINUE " =""160 :"  SCORING "  "SHORT RUN=35 points if any four dice run in sequence, i.e. 1,2,3,4. LONG RUN=50 points if any five dice run in sequence, i.e. 1,2,3,4,5." ȫ"FIVE DICE=100 points every time you get all five dice with the same numbers showing. CHANCE=Total value of all dice." ':"  PRESS ANY KEY TO CONTINUE " =""220 #:"  PRESS PLAY ON TAPE " "" (x=0491:"inst"10 :x 1) dice ~ kY ;6:6:6:17,0;" ":"":"" (x=0491:"dice"10 :x 1 @ _ ||4pp<130 #.05|L,7 (p$(pp,10 ) 2^x=1pp:10 ,0;"NAME OF PLAYER ";x;" ? ":p$(x):.05|L,7:x k=114  8000@ 0,7;p$(1)  1900l  250  9000(# 8000@:1900l 1sel:.05|L,7:sel=11150~ sel=21161 $sel=31168 )sel=41175 .sel=51182 3sel=61189 8sel=71196 =sel=81210 >sel=9 1225 Bsel=10 1135o Gsel=11 1235 Lsel=12 1245 Qsel=13 1260 Vsel=141265 osho1>01050 p$zzz=0:z=0:zz=0 q8x=14:a=xb=xc=xd=xe=xz=z+1:x r:x=25:a=xb=xc=xd=xe=xzz=zz+1:x s<x=36:a=xb=xc=xd=xe=xzzz=zzz+1:x tz4sho1=30 uzz4sho1=30 vzzz4sho1=30 w 1800 ~one1>01050 a=1one1=one1+1 b=1one1=one1+1 c=1one1=one1+1 d=1one1=one1+1 e=1one1=one1+1  1800 two1>01050 a=2two1=two1+2 b=2two1=two1+2 c=2two1=two1+2 d=2two1=two1+2 e=2two1=two1+2  1800 thre1>01050  a=3thre1=thre1+3  b=3thre1=thre1+3  c=3thre1=thre1+3  d=3thre1=thre1+3  e=3thre1=thre1+3  1800 four1>01050  a=4four1=four1+4  b=4four1=four1+4  c=4four1=four1+4  d=4four1=four1+4  e=4four1=four1+4  1800 five1>01050  a=5five1=five1+5  b=5five1=five1+5  c=5five1=five1+5  d=5five1=five1+5  e=5five1=five1+5  1800 six1>01050 a=6six1=six1+6 b=6six1=six1+6 c=6six1=six1+6 d=6six1=six1+6 e=6six1=six1+6  1800 tw1>01050 %zz=a+b+c+d+e:a+b=a*2tw1=zz a+c=a*2tw1=zz a+d=a*2tw1=zz a+e=a*2tw1=zz b+c=b*2tw1=zz b+d=b*2tw1=zz b+e=b*2tw1=zz c+d=c*2tw1=zz c+e=c*2tw1=zz d+e=d*2tw1=zz  1800 th1>01050 zz=a+b+c+d+e:b=ac=ath1=zz b=ad=ath1=zz b=ae=ath1=zz c=ad=ath1=zz c=ae=ath1=zz d=ae=ath1=zz c=bd=bth1=zz c=be=bth1=zz d=be=bth1=zz d=ce=cth1=zz  1800 fo1>01050 #zz=a+b+c+d+e:b=ac=ad=afo1=zz b=ac=ae=afo1=zz b=ad=ae=afo1=zz c=ad=ae=afo1=zz c=bd=be=bfo1=zz  1800 1z=0:zz=0:lon1>01050 8x=15:a=xb=xc=xd=xe=xz=z+1:x :x=26:a=xb=xc=xd=xe=xzz=zz+1:x z5lon1=502 zz5lon1=502  1800 ful1>01050 $a+b+c=a*3d=eful1=502 $a+b+d=a*3c=eful1=502 $a+b+e=a*3c=dful1=502 $a+c+d=a*3b=eful1=502 $a+c+e=a*3b=dful1=502 $a+d+e=a*3b=cful1=502 $b+c+d=b*3a=eful1=502 $b+c+e=b*3a=dful1=502 $b+d+e=b*3a=cful1=502 $c+d+e=c*3a=bful1=502  1800 &a=bb=cc=dd=eyah1=yah1+150  1800 cha1>01050 cha1=a+b+c+d+e  1800 :one1+two1+thre1+four1+five1+six165Abon1=35#  1900l  250 pp12000 k:7000X l11 ,17;bon1;5,17;one1;6,17;two1;7,17;thre1;8,17;four1;9 ,17;five1;10 ,17;six1;12 ,17;tw1;13 ,17;th1;14,17;fo1;15,17;sho1;16,17;lon1;17,17;ful1;18,17;yah1;19,17;cha1:tot1=one1+bon1+two1+thre1+four1+five1+six1+tw1+th1+fo1+sho1+lon1+ful1+yah1+cha1:20,17;tot1 v  8000@ 0,7;p$(2)  2900T  250 $9000(#:8000@:2900T 1sel:.05|L,7:sel=12150f sel=22161q  sel=32168x sel=42175 sel=52182 sel=62189  sel=72196 %sel=82210 &sel=9 2225 *sel=10 2135W /sel=11 2235 4sel=12 2245 9sel=13 2260 >sel=142265 Wsho2>02050 X$zzz=0:z=0:zz=0 Y8x=14:a=xb=xc=xd=xe=xz=z+1:x Z:x=25:a=xb=xc=xd=xe=xzz=zz+1:x [<x=36:a=xb=xc=xd=xe=xzzz=zzz+1:x \z4sho2=30 ]zz4sho2=30 ^zzz4sho2=30 _ 2800 fone2>02050 ka=1one2=one2+1 lb=1one2=one2+1 mc=1one2=one2+1 nd=1one2=one2+1 oe=1one2=one2+1 p 2800 qtwo2>02050 ra=2two2=two2+2 sb=2two2=two2+2 tc=2two2=two2+2 ud=2two2=two2+2 ve=2two2=two2+2 w 2800 xthre2>02050 y a=3thre2=thre2+3 z b=3thre2=thre2+3 { c=3thre2=thre2+3 | d=3thre2=thre2+3 } e=3thre2=thre2+3 ~ 2800 four2>02050  a=4four2=four2+4  b=4four2=four2+4  c=4four2=four2+4  d=4four2=four2+4  e=4four2=four2+4  2800 five2>02050  a=5five2=five2+5  b=5five2=five2+5  c=5five2=five2+5  d=5five2=five2+5  e=5five2=five2+5  2800 six2>02050 a=6six2=six2+6 b=6six2=six2+6 c=6six2=six2+6 d=6six2=six2+6 e=6six2=six2+6  2800 tw2>02050 %zz=a+b+c+d+e:a+b=a*2tw2=zz a+c=a*2tw2=zz a+d=a*2tw2=zz a+e=a*2tw2=zz b+c=b*2tw2=zz b+d=b*2tw2=zz b+e=b*2tw2=zz c+d=c*2tw2=zz c+e=c*2tw2=zz d+e=d*2tw2=zz  2800 th2>02050 zz=a+b+c+d+e:b=ac=ath2=zz b=ad=ath2=zz b=ae=ath2=zz c=ad=ath2=zz c=ae=ath2=zz d=ae=ath2=zz c=bd=bth2=zz c=be=bth2=zz d=be=bth2=zz d=ce=cth2=zz  2800 fo2>02050 #zz=a+b+c+d+e:b=ac=ad=afo2=zz b=ac=ae=afo2=zz b=ad=ae=afo2=zz c=ad=ae=afo2=zz c=bd=be=bfo2=zz  2800 1z=0:zz=0:lon2>02050 8x=15:a=xb=xc=xd=xe=xz=z+1:x :x=26:a=xb=xc=xd=xe=xzz=zz+1:x z5lon2=502 zz5lon2=502  2800 ful2>02050 $a+b+c=a*3d=eful2=502 $a+b+d=a*3c=eful2=502 $a+b+e=a*3c=dful2=502 $a+c+d=a*3b=eful2=502 $a+c+e=a*3b=dful2=502 $a+d+e=a*3b=cful2=502 $b+c+d=b*3a=eful2=502 $b+c+e=b*3a=dful2=502 $b+d+e=b*3a=cful2=502 $c+d+e=c*3a=bful2=502  2800 &a=bb=cc=dd=eyah2=yah2+150  2800 cha2>02050 cha2=a+b+c+d+e  2800 :one2+two2+thre2+four2+five2+six265Abon2=35# 2900T 250 pp23000 k:7000X T11 ,17;bon2;5,17;one2;6,17;two2;7,17;thre2;8,17;four2;9 ,17;five2;10 ,17;six2;12 ,17;tw2;13 ,17;th2;14,17;fo2;15,17;sho2;16,17;lon2;17,17;ful2;18,17;yah2;19,17;cha2:tot2=one2+bon2+two2+thre2+four2+five2+six2+tw2+th2+fo2+sho2+lon2+ful2+yah2+cha2:20,17;tot2 ^ 8000@ 0,7;p$(3) 3900< 250 $9000(#:8000@:3900< 1sel:.05|L,7:sel=13150N sel=23161Y sel=33168` sel=43175g sel=53182n sel=63189u sel=73196| sel=83210 sel=9 3225 sel=10 3135? sel=11 3235 sel=12 3245 !sel=13 3260 &sel=143265 ?sho3>03050 @$zzz=0:z=0:zz=0 A8x=14:a=xb=xc=xd=xe=xz=z+1:x B:x=25:a=xb=xc=xd=xe=xzz=zz+1:x C<x=36:a=xb=xc=xd=xe=xzzz=zzz+1:x Dz4sho3=30 Ezz4sho3=30 Fzzz4sho3=30 G 3800 None3>03050 Sa=1one3=one3+1 Tb=1one3=one3+1 Uc=1one3=one3+1 Vd=1one3=one3+1 We=1one3=one3+1 X 3800 Ytwo3>03050 Za=2two3=two3+2 [b=2two3=two3+2 \c=2two3=two3+2 ]d=2two3=two3+2 ^e=2two3=two3+2 _ 3800 `thre3>03050 a a=3thre3=thre3+3 b b=3thre3=thre3+3 c c=3thre3=thre3+3 d d=3thre3=thre3+3 e e=3thre3=thre3+3 f 3800 gfour3>03050 h a=4four3=four3+4 i b=4four3=four3+4 j c=4four3=four3+4 k"d=4four3=four3+4 l e=4four3=four3+4 m 3800 nfive3>03050 o a=5five3=five3+5 p b=5five3=five3+5 q c=5five3=five3+5 r d=5five3=five3+5 s e=5five3=five3+5 t 3800 usix3>03050 va=6six3=six3+6 wb=6six3=six3+6 xc=6six3=six3+6 yd=6six3=six3+6 ze=6six3=six3+6 { 3800 |tw3>03050 }%zz=a+b+c+d+e:a+b=a*2tw3=zz ~a+c=a*2tw3=zz a+d=a*2tw3=zz a+e=a*2tw3=zz b+c=b*2tw3=zz b+d=b*2tw3=zz b+e=b*2tw3=zz c+d=c*2tw3=zz c+e=c*2tw3=zz d+e=d*2tw3=zz 3800 th3>03050 zz=a+b+c+d+e:b=ac=ath3=zz b=ad=ath3=zz b=ae=ath3=zz c=ad=ath3=zz c=ae=ath3=zz d=ae=ath3=zz c=bd=bth3=zz c=be=bth3=zz d=be=bth3=zz d=ce=cth3=zz 3800 fo3>03050 #zz=a+b+c+d+e:b=ac=ad=afo3=zz b=ac=ae=afo3=zz b=ad=ae=afo3=zz c=ad=ae=afo3=zz c=bd=be=bfo3=zz 3800 1z=0:zz=0:lon3>03050 8x=15:a=xb=xc=xd=xe=xz=z+1:x :x=26:a=xb=xc=xd=xe=xzz=zz+1:x z5lon3=502 zz5lon3=502 3800 ful3>03050 $a+b+c=a*3d=eful3=502 $a+b+d=a*3c=eful3=502 $a+b+e=a*3c=dful3=502 $a+c+d=a*3b=eful3=502 $a+c+e=a*3b=dful3=502 $a+d+e=a*3b=cful3=502 $b+c+d=b*3a=eful3=502 $b+c+e=b*3a=dful3=502 $b+d+e=b*3a=cful3=502 $c+d+e=c*3a=bful3=502 3800 &a=bb=cc=dd=eyah3=yah3+150 3800 cha3>03050 cha3=a+b+c+d+e 3800 :one3+two3+thre3+four3+five3+six365Abon3=35#  3900<  250 pp34000 k:7000X <11 ,17;bon3;5,17;one3;6,17;two3;7,17;thre3;8,17;four3;9 ,17;five3;10 ,17;six3;12 ,17;tw3;13 ,17;th3;14,17;fo3;15,17;sho3;16,17;lon3;17,17;ful3;18,17;yah3;19,17;cha3:tot3=one3+bon3+two3+thre3+four3+five3+six3+tw3+th3+fo3+sho3+lon3+ful3+yah3+cha3:20,17;tot3 F  8000@ 0,7;p$(4)  4900$  250 $9000(#:8000@:4900$ 1sel:.05|L,7:sel=141506 sel=24161A sel=34168H sel=44175O sel=54182V sel=64189] sel=74196d sel=84210r sel=9 4225 sel=10 4135' sel=11 4235 sel=12 4245  sel=13 4260 sel=144265 'sho4>04050 ($zzz=0:z=0:zz=0 )8x=14:a=xb=xc=xd=xe=xz=z+1:x *:x=25:a=xb=xc=xd=xe=xzz=zz+1:x +<x=36:a=xb=xc=xd=xe=xzzz=zzz+1:x ,z4sho4=30 -zz4sho4=30 .zzz4sho4=30 / 4800 6one4>04050 ;a=1one4=one4+1 <b=1one4=one4+1 =c=1one4=one4+1 >d=1one4=one4+1 ?e=1one4=one4+1 @ 4800 Atwo4>04050 Ba=2two4=two4+2 Cb=2two4=two4+2 Dc=2two4=two4+2 Ed=2two4=two4+2 Fe=2two4=two4+2 G 4800 Hthre4>04050 I a=3thre4=thre4+3 J b=3thre4=thre4+3 K c=3thre4=thre4+3 L d=3thre4=thre4+3 M e=3thre4=thre4+3 N 4800 Ofour4>04050 P a=4four4=four4+4 Q b=4four4=four4+4 R c=4four4=four4+4 S d=4four4=four4+4 T e=4four4=four4+4 U 4800 Vfive4>04050 W a=5five4=five4+5 X b=5five4=five4+5 Y c=5five4=five4+5 Z d=5five4=five4+5 [ e=5five4=five4+5 \ 4800 ]six4>04050 ^a=6six4=six4+6 _b=6six4=six4+6 `c=6six4=six4+6 ad=6six4=six4+6 be=6six4=six4+6 c 4800 dtw4>04050 e%zz=a+b+c+d+e:a+b=a*2tw4=zz fa+c=a*2tw4=zz ga+d=a*2tw4=zz ha+e=a*2tw4=zz ib+c=b*2tw4=zz jb+d=b*2tw4=zz kb+e=b*2tw4=zz lc+d=c*2tw4=zz mc+e=c*2tw4=zz nd+e=d*2tw4=zz q 4800 rth4>04050 szz=a+b+c+d+e:b=ac=ath4=zz tb=ad=ath4=zz ub=ae=ath4=zz vc=ad=ath4=zz wc=ae=ath4=zz xd=ae=ath4=zz yc=bd=bth4=zz zc=be=bth4=zz {d=be=bth4=zz |d=ce=cth4=zz ~ 4800 fo4>04050 #zz=a+b+c+d+e:b=ac=ad=afo4=zz b=ac=ae=afo4=zz b=ad=ae=afo4=zz c=ad=ae=afo4=zz c=bd=be=bfo4=zz  4800 1z=0:zz=0:lon4>04050 8x=15:a=xb=xc=xd=xe=xz=z+1:x :x=26:a=xb=xc=xd=xe=xzz=zz+1:x z5lon4=502 zz5lon4=502  4800 ful4>04050 $a+b+c=a*3d=eful4=502 $a+b+d=a*3c=eful4=502 $a+b+e=a*3c=dful4=502 $a+c+d=a*3b=eful4=502 $a+c+e=a*3b=dful4=502 $a+d+e=a*3b=cful4=502 $b+c+d=b*3a=eful4=502 $b+c+e=b*3a=dful4=502 $b+d+e=b*3a=cful4=502 $c+d+e=c*3a=bful4=502  4800 &a=bb=cc=dd=eyah4=yah4+150  4800 cha4>04050 cha4=a+b+c+d+e  4800 :one4+two4+thre4+four4+five4+six465Abon4=35#  4900$  250 k:7000X $11 ,17;bon4;5,17;one4;6,17;two4;7,17;thre4;8,17;four4;9 ,17;five4;10 ,17;six4;12 ,17;tw4;13 ,17;th4;14,17;fo4;15,17;sho4;16,17;lon4;17,17;ful4;18,17;yah4;19,17;cha4:tot4=one4+bon4+two4+thre4+four4+five4+six4+tw4+th4+fo4+sho4+lon4+ful4+yah4+cha4:20,17;tot4 . X b44,0;p$(1);" YOUR SCORE = ";tot1 l@pp28,0;p$(2);" YOUR SCORE = ";tot2 vApp312 ,0;p$(3);" YOUR SCORE = ";tot3 App=416,0;p$(4);" YOUR SCORE = ";tot4  100d 020,0;"ANOTHER GAME YES OR NO ???" %="".05|L,7:7070 #="y".05|L,7:1 ="n".05|L,7:  7070 @1:1:6: Of2,2;" 1 ONES  2 WOS  3 THREES  4 FOURS  5 FIVES  6 SIXES   BONUS " T12 ,2;" 7 PAIR ** DICE 1=";a;"  8 RILE *** DICE 2=";b;"  9 FOUR **** DICE 3=";c;" 10 SHORT RUN DICE 4=";d;" 11 LONG RUN DICE 5=";e;" 12 FULLHOUSE 13 FIVE DICE 14 CHANCE   TOTAL  "  #(H:d$=" ":e$=" ":a$="":b$=" ":c$=" " #-B0,2;"DICE 1";0,13 ;"DICE 2";0,24;"DICE 3";2,2;" " #. 10 ,7;"DICE 4";10 ,19;"DICE 5";12 ,7;" " #0<aa=0:bb=0:cc=0:dd=0:ee=0 #1Hy=13:20,0;" " #2x=07 #3$aa=0a=(*6)+1 #4$bb=0b=(*6)+1 #5$cc=0c=(*6)+1 #6$dd=0d=(*6)+1 #7$ee=0e=(*6)+1 #