ZXTape! x~|apentzy TJRTPentzy  P.Erentz 1984 ""  T:0,3;"PENTZY BY P.A.ERENTZ";10 ,3;"Number of players? "; ""5 =""6 ?k$=:k$"1"k$"2"k$"3"k$"4"k$"5"k$"6"7 1k$:p=k$:P(p):p$(p,11 ):z$(p,11 ) i=1p Q:15,0;" Do you want the Spectrum to "'" play for player ";i;"? "; ""11 =""12 k$= k$"y"k$"n"13 k$="y"P(i)=1:"Yes" k$="n""No" U23658j\,8:" Enter player's name please (10 letters maximum)";p$(i) 23658j\,0 p$(i,11 )=(7-i) 19,0;" " i ,a$(6*p,2) .iw$(p,2):q$(p,2):f$(p,2):t$(p,2):h$(p,2):l$(p,2):c$(p,2) ?hi=0:lo=0 AT(p):n(p):m(p) Cd(5):v(5) E y(6) Ze=112 [ z=1p ^l=6*z-6 c 4900$ d d$="12345" h+19,0;0;7;"1st" i,20,0;0;7;"ROLL" jGi=15:17,i*5+1;7;0;i:i n 2008 sE19,0;0;7;" ";20,0;" " x%P(z)=16100:210 +P(z)=0"2nd throw,which dice?";d$ d$="0"260 i=1̱d$ Bd$(i)"1"d$(i)"2"d$(i)"3"d$(i)"4"d$(i)"5"200 i d$="0"260 @i=15:17,i*5+1;7;" ":i r=2 +19,0;0;7;"2nd" ,20,0;0;7;"ROLL" Ni=1̱d$:17,(d$(i))*5+1;7;0;d$(i):i 2000 <19,0;7;" ";20,0;" " %P(z)=16100:240 Gi=15:17,i*5+1;7;0;i:i +P(z)=0"3rd throw,which dice?";d$ d$="0"260 i=1̱d$ Bd$(i)"1"d$(i)"2"d$(i)"3"d$(i)"4"d$(i)"5"230 i d$="0"260 @i=15:17,i*5+1;7;" ":i r=3 +19,0;0;7;"3rd" ,20,0;0;7;"ROLL" Ni=1̱d$:17,(d$(i))*5+1;7;0;d$(i):i 2000 <19,0;7;" ";20,0;" " @i=15:17,i*5+1;7;" ":i "i=14:1600@:i  "i=13:1600@:i "i=12:1600@:i "i=11:1600@:i ;di=d(1)+d(2)+d(3)+d(4)+d(5) 0:7:1 %P(z)=17900:500 #"Where do you want to score?";s$ s$=""400 w$(z)" "419 Os$="q"d(1)=d(4)w$(z)="25":2,25;w$(z):500 Os$="q"d(2)=d(5)w$(z)="25":2,25;w$(z):500 8s$="q"w$(z)=" 0":2,25;w$(z):500 f$(z)" "429 ns$(1)="f"d(1)=d(2)d(3)=d(5)f$(z)="25":4,25;f$(z):500 ns$(1)="f"d(1)=d(3)d(4)=d(5)f$(z)="25":4,25;f$(z):500 As$(1)="f"f$(z)=" 0":4,25;f$(z):500 t$(z)" "438 s$(1)="s"d(1)=d(2)+1d(3)+1=d(2)d(4)+1=d(3)d(4)=d(5)+1t$(z)="25":6,25;t$(z):500 As$(1)="s"t$(z)=" 0":6,25;t$(z):500 h$(z)" "448 _s$(1)="h"hi=di:hi>21l$(z)=" "h$(z)=hi:8,25;h$(z):500 ^s$(1)="h"hi=di:hi>21hi>l$(z)h$(z)=hi:8,25;h$(z):500 As$(1)="h"h$(z)=" 0":8,25;h$(z):500 l$(z)" "459 s$(1)="l"lo=di as$(1)="l"h$(z,1)=" "lo>20l$(z)=lo:10 ,25;l$(z):500 ks$(1)="l"h$(z,1)" "lo20l$(z)=lo:10 ,25;l$(z):500 Bs$(1)="l"l$(z)=" 0":10 ,25;l$(z):500 c$(z)" "462 Ps$="p"d(1)=d(5)c$(z)="30":12 ,25;c$(z):500 9s$="p"c$(z)=" 0":12 ,25;c$(z):500 ;s$"1"s$"2"s$"3"s$"4"s$"5"s$"6"400 &s$="1"a$(1+l)" "400 &s$="2"a$(2+l)" "400 &s$="3"a$(3+l)" "400 &s$="4"a$(4+l)" "400 &s$="5"a$(5+l)" "400 &s$="6"a$(6+l)" "400 g=s$  3200  0 e12 1350F T(z)=0 i=16 $T(z)=T(z)+a$(z*6-6+i) &i + q$(z)=" 0" 0-T(z)>62>q$(z)="25":T(z)=T(z)+q$(z) :5T(z)=T(z)+w$(z)+f$(z)+t$(z)+h$(z)+l$(z)+c$(z) A?14,9 ;0;7;1;q$(z):150 B 4900$ C0:7 D+(T(z))=314,24;T(z) E+(T(z))=214,25;T(z) NJ19,2;0;7;"PRESS ANY KEY TO CONTINUE":0 Xzp1351G ] 7 b l*0,8;0;"FINAL SCORES" v*1,8;2;"____________"  i=1p Ti+2,2;7-i;9 ;p$(i,10 );7;0;" ";T(i)  z$(i)=p$(i) i p=11300  r=p-1 i=1p-1  j=1r oT(j)[i+12 ,2;ڰz$(i,11 );9 ;z$(i,10 );7;0;" ";T(i) Hi 6"Another game with the same players (y/n)?";r$ r$="y"44, r$="n":4  1300 F 150 xz e @>d(i)9 a$(l+g)=y(g) "y(g)<10 a$(l+g)=" "+y(g) 7g*2,9 ;0;7;1;a$(l+g) y(g)=0  18,x;"" 19,x;"" 20,x;"" " h18,x;"" r19,x;"" |20,x;""  18,x;"" 19,x;"" 20,x;""  018,x;"" :19,x;"" D20,x;"" N 18,x;"" 19,x;"" 20,x;""  18,x;"" 19,x;""  20,x;""  $ %7-z:9 )0,0;p$(z,10 );7;7-z;"";0,13 ;7-z;9 ;"PENTZY";7;7-z;"" -J1,0;"";7;7-z;"" .j=210 2 3 e$,g$,b$,m$ 9j,0;e$ ;!j,9 ;7;0;g$ =j,11 ;b$ ?Sj,25;7;0;m$;7-z;9 ;" ";7;7-z;"" BLj+1,0;" ";7;7-z;"" Gj L e$,g$,b$,m$ M12 ,0;e$ O(12 ,9 ;7;0;g$ Q12 ,11 ;b$ SZ12 ,25;7;0;m$;7-z;9 ;" ";7;7-z;"" VK13 ,0;" ";7;7-z;"" ` e$,g$,b$ a14,0;e$ c(14,9 ;7;0;g$ e14,11 ;b$ g]14,24;7;0;" ";7-z;9 ;" ";7;7-z;"" jK15,0;"";7;7-z;"" lH16,0;7;7-z;""  T(z)>0 i=5255 &21,i;7;2;"" +20,i+3;7;2;"" +19,i+3;7;2;"" +18,i+3;7;2;"" i  p2"ONE ",a$(l+1)," QUADZY ",w$(z) q2"TWO ",a$(l+2)," FULL ",f$(z) r2"THREE ",a$(l+3)," STRAIGHT ",t$(z) s2"FOUR ",a$(l+4)," HIGH ",h$(z) t2"FIVE ",a$(l+5)," LOW ",l$(z) u2"SIX ",a$(l+6)," PENTZY ",c$(z) v#"BONUS ",q$(z)," TOTAL " i=15  v(i)=d(i) i j=41-1  i=1j >v(i)27d$="0": C!w$(z)=" "6445-:d$"" D!f$(z)=" "6420:d$"" G!t$(z)=" "6460<:d$"" Ii=16 J#a$(i+l)=" "6520x:d$"" Ki L!f$(z)=" "6570:d$"" M!w$(z)=" "6580:d$"" N,t$(z)=" "l$(z)=" "6621:d$"" Pi=61-1 Q#a$(i+l)=" "6650:d$"" Ri S!t$(z)=" "6852:d$"" V,h$(z)=" "l$(z)" "6760h:d$"" X,h$(z)=" "l$(z)=" "6800:d$"" [,h$(z)" "l$(z)=" "6810:d$"" ]i=61-1 ^#a$(i+l)=" "7000X:d$"" _i `!c$(z)=" "7110:d$"" b!w$(z)=" "7160:d$"" c!t$(z)=" "7210*:d$"" e,c$(z)=" "f$(z)=" "7160:d$"" d$="12345": !v(1)=v(5)d$="0": -v(1)=v(4)v$="5":7800x: -v(2)=v(5)v$="1":7800x:  %i=v(1)i=v(5)d$="0": 1i=v(1)i=v(4)v$="5":7800x: 1i=v(2)i=v(5)v$="1":7800x:  7v(1)=v(3)v(4)=v(5)d$="0": 7v(1)=v(2)v(3)=v(5)d$="0": ( -!v(1)=v(4)d$="0": 2!v(2)=v(5)d$="0": 7 <v(1)=v(2)+1v(2)=v(3)+1v(3)=v(4)+1v(4)=v(5)+1d$="0": Avv(1)=5v(2)=5v(3)=4v(4)=3v(5)=2v$="2":7800x: Fvv(1)=5v(2)=4v(3)=4v(4)=3v(5)=2v$="2":7800x: Kvv(1)=5v(2)=4v(3)=3v(4)=3v(5)=2v$="3":7800x: Pvv(1)=5v(2)=4v(3)=3v(4)=2v(5)=2v$="4":7800x: Z x2i=v(1)i=v(3)v$="45":7800x: 2i=v(2)i=v(4)v$="15":7800x: 2i=v(3)i=v(5)v$="12":7800x:  Cv(1)=v(2)v(5)=v(4)v$="3":7800x: Cv(1)=v(2)v(3)=v(4)v$="5":7800x: Cv(3)=v(2)v(5)=v(4)v$="1":7800x: .v(1)=v(3)v$="45":7800x: .v(2)=v(4)v$="15":7800x: .v(3)=v(5)v$="12":7800x:  vv(1)=6v(2)=6v(3)=5v(4)=4v(5)=3v$="1":7800x: vv(1)=6v(2)=5v(3)=5v(4)=4v(5)=3v$="2":7800x: vv(1)=6v(2)=5v(3)=4v(4)=4v(5)=3v$="3":7800x: vv(1)=6v(2)=5v(3)=4v(4)=3v(5)=1v$="5":7800x:  3i=v(1)i=v(2)v$="345":7800x: 3i=v(2)i=v(3)v$="145":7800x: 3i=v(3)i=v(4)v$="125":7800x: 3i=v(4)i=v(5)v$="123":7800x:  h=vi>l$(z)v(5)>1vi-v(5)l$(z)v(5)=1v$="5":7800x: j6vi>l$(z)vi-v(5)Ȱl$(z)v$="5":7800x: kv(1)<5 l-v(2)<5v$="2345":7800x: m,v(3)<5v$="345":7800x: n+v(4)<5v$="45":7800x: p*v(5)<5v$="5":7800x: r *vi>20v(5)>1d$="0": *vi>21v(5)>2d$="0": *vi>22v(5)>3d$="0": #vi>20v$="5":7800x: v(1)<5 -v(2)<5v$="2345":7800x: ,v(3)<5v$="345":7800x: +v(4)<5v$="45":7800x:  5vi>20vi20vi20viȰh$(z)v$="45":7800x: v(1)<5 -v(2)<5v$="2345":7800x: ,v(3)<5v$="345":7800x: +v(4)<5v$="45":7800x: *v(5)<5v$="5":7800x:  v(1)=v(2)v$="1" "v(3)=v(2)v$=v$+"2" "v(3)=v(4)v$=v$+"3" "v(5)=v(4)v$=v$+"4"  v$>1v$="":6900 >v$=1v(1)-v(5)>4v$="":6900 v$=17800x: v$=""v$="5":7800x:  l'i=v(1)v$="2345":7800x: v'i=v(2)v$="1345":7800x: {'i=v(3)v$="1245":7800x: 'i=v(4)v$="1235":7800x: 'i=v(5)v$="1234":7800x:  .v(1)=v(3)v$="45":7800x: .v(2)=v(4)v$="15":7800x: .v(3)=v(5)v$="12":7800x: #c$(z)" "f$(z)" "7200  /v(1)=v(2)v$="345":7800x: /v(3)=v(2)v$="145":7800x:  /v(3)=v(4)v$="125":7800x: /v(5)=v(4)v$="123":7800x:   *i=13 4v(i)=v(i+1)7260\ >'v(i+1)=v(i+2)7260\ H'v(i)-v(i+2)>47260\ M"i=1v$="45":7800x: R"i=2v$="15":7800x: W"i=3v$="12":7800x: \i ^v(1)=v(2)v(3)=v(4)v(1)-v(5)<5v(1)>v(3)v(3)>v(5)v$="24":7800x: av(3)=v(2)v(5)=v(4)v(1)-v(5)<5v(1)>v(3)v(3)>v(5)v$="24":7800x: f xi=1̱v$ } o=v$(i) j=15 /d(j)=v(o)d$=d$+j:d(j)=0:7840 j i  c$(z)" "7910 ?d(1)=d(5)c$(z)="30":12 ,25;c$(z): t$(z)" "7925 d(1)=d(2)+1d(2)+1=d(3)+2d(3)+2=d(4)+3d(4)+3=d(5)+4t$(z)="25":6,25;t$(z): n(z)57940 #d(1)d(5)7940 #a$(d(1)+l)" "7940 i=02 6i*d(1)+m(z)>62>w$(z)="25":9001)#: i O3*d(1)>62>i=d(1):a$(i+l)=(5*i):9000(#: i=16 a$(i+l)" "7950  aa=3-((5*i))  Gi=1w$(z)=" "d(1)=d(5)w$(z)="25":9001)#:  Ji=d(1)i=d(5)a$(i+l,aa2)=(5*i):9000(#: i 9d(1)d(4)d(2)d(5)8000@ n(z)57980, #a$(d(3)+l)" "7980, w$(z)" "7980, i=02  6i*d(3)+m(z)>62>w$(z)="25":9001)#: "i ,k4*d(3)>62>3*d(3)<63?i=d(3):a$(i+l)=(4*i):9000(#: -i=d(3) .ab=3-((4*i)) /Fd(3)>3a$(i+l)=" "a$(i+l)=(4*i):9000(#: 1&w$(z)=" "w$(z)="25":9001)#: 6=a$(i+l)=" "a$(i+l,ab2)=(4*i):9000(#: h$(z)" "8140 3di>26h$(z)=di:8,25;h$(z): f$(z)" "8150 Ud(1)=d(2)d(3)=d(5)f$(z)="25":4,25;f$(z): Ud(1)=d(3)d(4)=d(5)f$(z)="25":4,25;f$(z): n(z)58170 i=16 a$(i+l)" "8169 j=13 Ti=d(j)i=d(j+2)m(z)+3*i<63?m(z)+4*i>62>8160 j  8170 <h$(z)=" "l$(z)=" "90102#:h$(z)" "l$(z)" " 1h$(z)=" "l$(z)" "9030F#:h$(z)" " 1l$(z)=" "h$(z)" "9050Z#:l$(z)" " &c$(z)=" "c$(z)=" 0":9006.#: i i=16 a$(i+l)" "8210 aa=3-((i*3)) j=13 Fi=d(j)i=d(j+2)a$(i+l,aa2)=(3*i):9000(#: j i 0<h$(z)=" "l$(z)=" "90102#:h$(z)" "l$(z)" " :1h$(z)=" "l$(z)" "9030F#:h$(z)" " D1l$(z)=" "h$(z)" "9050Z#:l$(z)" " Nn(z)58350 Qi=16 Sa$(i+l)" "8345 T u=0 Vj=14 Xhi=d(j)i=d(j+1)u=2*i:m(z)+2*d(j)<63?m(z)+3*d(j)>62>8330 Yj Zu=2*i8295g [j=15 ]Li=d(j)u=d(j):m(z)+d(j)<63?m(z)+3*d(j)>62>8330 bj cu=i8295g d?u=0:m(z)<63?m(z)+3*i>62>8330 gPm(z)+u<63?m(z)+4*i>62>c$(z)=" "c$(z)=" 0":9006.#: l%u>9 a$(i+l)=u:9000(#: q*u<10 a$(i+l)=" "+u:9000(#: &c$(z)=" "c$(z)=" 0":9006.#: &t$(z)=" "t$(z)=" 0":9003+#: &w$(z)=" "w$(z)=" 0":9001)#: &f$(z)=" "f$(z)=" 0":9002*#: &h$(z)=" "h$(z)=" 0":9004,#: &l$(z)=" "l$(z)=" 0":9005-#: 8300l i i=13 a$(i+l)" "8390 j=14 ?i=d(j)i=d(j+1)a$(i+l)=" "+(2*i):9000(#: j i18375 k=15 jd(k)=1a$(1+l)=" 1":2,9 ;a$(1+l):n(z)=n(z)+1:m(z)=m(z)+1: k hi=2a$(1+l)=" "a$(1+l)=" 0":2,9 ;a$(1+l):n(z)=n(z)+1: i i=13 a$(i+l)" "8460 ! j=15 &i=d(j)a$(i+l)=" "+i:9000(#: i>18450! ]a$(1+l)=" "a$(1+l)=" 0":2,9 ;a$(1+l):n(z)=n(z)+1: !j ! i !4i=12 !9a$(i+l)" "8520H! !>a$(i+l)=" 0":9000(#: !Hi !4c$(z)=" "c$(z)=" 0":12 ,25;c$(z): "3t$(z)=" "t$(z)=" 0":6,25;t$(z): ".i=46 "3a$(i+l)" "8790V" "6aa=3-((i*2)) "8j=14 "BFi=d(j)i=d(j+1)a$(i+l,aa2)=(2*i):9000(#: "Lj "Vi "`i=46 "ja$(i+l)" "8860" "tj=15 "~&i=d(j)a$(i+l)=" "+i:9000(#: "j "i "&w$(z)=" "w$(z)=" 0":9001)#: "3f$(z)=" "f$(z)=" 0":4,25;f$(z): "i=36 "a$(i+l)" "8950" "a$(i+l)=" 0":9000(#: "i #4l$(z)=" "l$(z)=" 0":10 ,25;l$(z): # 3h$(z)=" "h$(z)=" 0":8,25;h$(z): #(Ei*2,9 ;a$(i+l):n(z)=n(z)+1:m(z)=m(z)+a$(i+l): #)2,25;w$(z): #*4,25;f$(z): #+6,25;t$(z): #,8,25;h$(z): #-10 ,25;l$(z): #.12 ,25;c$(z): #23di>24h$(z)=di:8,25;h$(z): #<4di>20l$(z)=di:10 ,25;l$(z): #A #F>di>l$(z)di>20h$(z)=di:8,25;h$(z): #P #Z?di20l$(z)=di:10 ,25;l$(z): #d pj Z[l wxvorqdgSqu VtRn  1 62 5 Ky           !M E BONUS G B TOTAL D12345code X ?  ??@`px|~