JasxO? .Ks6XD:\ < ~ B<<<|<|B~BB>B<<x @< |B  DBB@ (BBBBBBB@ffbB@D8D8D8BBBBB@BBJNBDDDD xDD xDx Dx8 | x88D J  BB @ BBBBBB@BBFBBDD~ B><<<|<|B~BB>B<<x888 <88 < D< 8 p=14:s=117:s(p,s)=-1:s:p 7: 0:7 "d(5):e(5)::p="e" i=07:a:p+i,a:i D236099\,100d:23658j\,8:8000@:85004! (b$=" ":i=16:b$=b$+b$:i V:i=14:b(i)=-1:i:0,11 ;" "  0,0;" Players ->"'" 1 Aces"'" 2 Twos"'" 3 Threes"'" 4 Fours"'" 5 Fives"'" 6 Sixes"'" Bonus"'"UPPER TOTAL"'" 7 3/Kind"'" 8 4/Kind"'" 9 Fl.House"'"10 Sm.Strt"'"11 Lg.Strt"'"12 Yahtzie"'"13 Chance"'"LOWER TOTAL"''"GRAND TOTAL" Ki=1v:0,13 +(i-1)*4;6;0;i:i 88X,24:0,143:0,35#:225,0:0,23:227,0:0,152 278:8:0,24:0,151 1370r a$(1)="S"380| a$(1)"R"190 a$>1270 2000:21,0;7;0;"Enter which dice to re-roll":5000:d$=l$:2000:d$=0250  a$=a$+d$ a$=a$(2) /i=1̱a$:a$(i)<"1"a$(i)>"5"190 Hi:i=1̱a$:j=a$(i):k(j)=k(j)+1:k(j)>1190 i i=1̱a$ "'d=a$(i):d(d)=7:9000(#:i 'i=1̱a$ ,4d=a$(i):d(d)=1+(*6):9000(#:i @z Jt2000:20,0;7;0;"Enter P for possibilities, S to score. " T75000:a$=l$:2000:a$=0330J ^a$="P"6000p ha$(1)"S"330J r)a$>1a$=a$(2):400 |B21,0;7;0;"Which category (1 to 13) ?" 75000:a$=l$:2000:a$=0380| (a$(1)="P"6000p:330J ,a$(1)<"1"a$(1)>"9"330J Pj=0:i=1̱a$:a$(i)<"0"a$(i)>"9"j=1:z=2330J j=1190 i ,"":c=a$:c<1c>13 380| c7c=c+2  3000 3s(p,c)=-1p(c)=0.75@,-20 as(p,c)=-1p(c)=502.07}\(,13.3T:.07}\(,12.5H:.25~,14.5h )s(p,c)=-1s(p,c)=p(c):500 c2000:20,0;0;7;1;"That category has been used":380| i=116 i=7i=9 Cs(p,i)=-1i,13 +(p-1)*4;" ";:530 Fi,13 +(p-1)*4;s(p,i);:a$=" ":a$(((s(p,i)))); i =up=0:i=16:s(p,i)0up=up+s(p,i) !i &Gs(p,7)=up:up63?s(p,7)=up+35#:b(p)=35# 0A7,13 +(p-1)*4;:b(p)0570: 51;"35" :48,13 +(p-1)*4;s(p,7) D>lo=0:i=9 15:s(p,i)0lo=lo+s(p,i) Ni X=16,13 +(p-1)*4;lo:s(p,16)=lo b$gr=up+lo:b(p)0gr=gr+b(p) l+18,13 +(p-1)*4;gr vs(p,17)=gr p r  V2000:21,0;"press ENTER to see series totals":5000 4:0,0;" Game and series totals ":i=14:k(i)=0:i:p=1v:m$(p)=n$(p):k(p)=t(p)+s(p,17):t(p)=t(p)+s(p,17):d(p)=s(p,17):p 9E3,10 ;"Game";3,15;"Series" :j=0:i=1v ;k(i)k(i+1)830> <t=k(i+1):t$=m$(i+1):d=d(i+1):k(i+1)=k(i):m$(i+1)=m$(i):d(i+1)=d(i):k(i)=t:m$(i)=t$:d(i)=d = j=1 >i:j0826: C p=1v Hp+5,0;m$(p); R3p+5,11 ;d(p);p+5,16;k(p) \p fg5920 pZ20,0;"Press 'Y' for another game press 'N' to stop. " z2="Y".1}L,15:g=g+1:950 ="N"920  890z X2000:11 ,0;6;"Congratulations, ";m$(1)'".you WON." R16,0;"PRESS ENTER FOR ANOTHER SERIES, OR ANY OTHER KEY TO END." ""924 =""925 =13  >p=14:i=117:s(p,i)=-1:i:p g<715  !20,0;7;b$: !i=15:z(i)=d(i):i j=0:i=14 d(i)d(i+1)3050 , t=d(i+1):d(i+1)=d(i):d(i)=t j=1 i:j03010 *p$="":i=15:p$=p$+d(i):i %i=117:p(i)=0:i i=15 j=16 p(j)=p(j)+(d(i)=j)*j &j:i :i=61-1 DMp(i)/i3j=16:p(9 )=p(9 )+p(j):j:i=1 Ni Xi=61-1 bOp(i)/i4j=16:p(10 )=p(10 )+p(j):j:i=1 li qd(1)=d(2)d(4)=d(5)(d(3)=d(2)d(3)=d(4))p(11 )=25 j=0 Zp(1)1p(2)1p(3)1p(4)1j=j+1 Zp(2)1p(3)1p(4)1p(5)1j=j+1 Zp(3)1p(4)1p(5)1p(6)1j=j+1 6p(12 )=30j=1p(13 )=40( !j1p(12 )=30 !j=2p(13 )=40( i=16 &p(i)/i=5p(14)=502 i 4i=16:p(15)=p(15)+p(i):i #i=15:d(i)=z(i):i: !l=0:e=0:q=0 %"":#0;2;"First Roll." 0d=15:d(d)=7:9000(#:d :j=0:i=16:s(p,i)0j=j+s(p,i)  s(p,i)=-1j=j+3*i  i:x(p)=j =d=15:d(d)=1+(*6):9000(#:d ;a$="First":l1a$="Second":l2a$="Third" 0"":#0;2;a$;" Roll. ":3000 p(14)=502s(p,14)<0s(p,14)=502:.07}\(,13.3T:.07}\(,12.5H:.25~,14.5h:q=1:4900$ !p(11 )=04040 Sb(p)>0s(p,11 )<0s(p,11 )=25:q=1:4900$ Wi=16:p(i)>0s(p,i)<0s(p,7)+p(i)63?4040 i Fs(p,11 )<0s(p,11 )=25:q=1:4900$ b(p)04042 l<24046 ʃ(p(10 )>15(p(10 )>0b(p)0))s(p,10 )<0s(p,10 )=p(10 ):q=1:4900$ ˋe=0:p(10 )>0s(p,10 )0e=1:i=16:p(i)/i4s(p,i)<0s(p,i)=p(i):e=2 e=1i:4049 "e=2q=1:4900$ _i=16:p(i)/i3s(p,i)0(l<2s(p,9 )<0)4049 i:4050 ш(p(9 )>20(b(p)0p(9 )>0))s(p,9 )<0l>1s(p,9 )=p(9 ):q=1:4900$ [p(13 )=40(s(p,13 )<0s(p,13 )=40(:q=1:4900$ }p(12 )=30s(p,12 )<0(s(p,13 )0l=2)s(p,12 )=30:q=1:4900$ 9s(p,12 )0s(p,13 )04100 ,l=2p(12 )=304900$ !p(12 )=04100 #p$="12346"u=6:4090 #p$="13456"u=1:4090 3i=16:p(i)/i>1u=i:i=6 i gd=15:d(d)=ud(d)=7:9000(#:d(d)=1+(*6):9000(#:d=5 'd:l=l+1:l24030  4940L l=24900$ <j=-1:i=16:s(p,i)<0j=j+1 Vi:f=6:t=1:s=-1:(13 -r)=jf=1:t=6:s=1  l=l+1:e=0:j=31-1:i=fts:(p(i)/i)j(s(p,i)<0(b(p)0(s(p,9 )<0s(p,10 )<0s(p,11 )<0s(p,14)<0s(p,15)<0)))e=1:d=15:d(d)id(d)=7 ;e=1d:d=15:d(d)=79000(# Ve=1d:d=15:d(d)=7d(d)=1+(*6):9000(# e=1d e1i "{e1j:d=15:d(d)=7:9000(#:d:d=15:d(d)=1+(*6):9000(#:d , 4030 $q=1"": )j=20-1 .i=16 8=p(i)/i>js(p,i)<0s(p,i)=p(i):q=1:4900$ Bi:b(p)0j Cpi=16:p(i)>0s(p,i)<0s(p,7)+p(i)63?s(p,i)=p(i):q=1:4900$ Di Ggi=16:s(p,i)<0x(p)-(3*i-p(i))63?s(p,i)=p(i):q=1:4900$ Hi LYp(9 )>0s(p,9 )<0s(p,9 )=p(9 ):q=1:4900$ U 4990~ Vi [(s(p,i)<0s(p,i)=p(i):q=1 `q14950V e#p(i)=0.75@,-20 j 4900$ ~o15,14,10 ,13 ,11 ,12 ,9 ,1,2,3,4,5,6 "":#0;"_";:l$="" ""5005 k$=:k$=""5006 9(k$>"Z"k$<"0")(k$12 k$13 )5006 .02{# =,25  k$=12 l$=""5000 k$=13 "": l$>205000  l$=l$+k$:"":#0;l$;"_"; Bk$=12 ƱL$>1l$=l$(̱l$-2):k$="":5030  5005 p 3000 i=115 i=7i=9 s(p,i)06050 0i,13 +(p-1)*4;1;p(i); i W @:1,13 ;"YAHTZIE"''"  1983 BOB HEMMINGS.":'" Do you require the rules ?";7,9 ;" Press Y or N" E_0,175:255,0:0,-80P:-255,0:0,80P J="Y"8030^ T"N"8010J U""8021U Y ^#:1,13 ;"YAHTZIE" h'" Yahtzie is a popular oriental game in which each of up to fourplayers scores the value of his five dice in one of thirteen categories." i'" You begin your turn by rollingall five dice. If you wish, youcan re-roll any or all of the 5 dice up to twice more, before selecting one of the thirteen categories to score in. Any usedcategory cannot be scored again." m 8400 r`:'"All of the thirteen categories have a special rule for scoring."'"They are shown below:"' |'"UPPER SECTION"' ^'"1.Aces - Sum of all 'ones'"'"2.Twos - Sum of all 'twos'"'"3.Threes- Sum of all 'threes'" ^"4.Fours - Sum of all 'fours'"'"5.Fives - Sum of all 'fives'"'"6.Sixes - Sum of all 'sixes'" \''"If the total for the UPPER section is 63 or more, a bonus of 35 points is added."  8400 :"LOWER SECTION" '"7. 3/Kind - If you have three of a kind then sum all dice. 8. 4/Kind - If you have four of a kind then sum all dice." „"9. Full - With 3 of one dice house and 2 of another (or 5 of a kind) then score 25 pts." ̗ "10.Small - With a sequence of straight 4 dice,score 30. 11.Long - With a sequence of straight 5 dice,score 40." b"12.Yahtzie - If you have 5 of a kind, score 50. 13.Chance - Sum of all dice."  8400 :''" After each turn, a player MUST choose one of these categories -even if it scores a zero."'' " The computer will advise you ofthe possible scoring categories if you desire." ''" The game continues until all the categories are filled."'' " A series consists of six games,but you may play any number."  8400 e:''"To save time, you can enter yourrolls as: R134 if you wanted to,say, roll dice 1,3 and 4." >''"To score in, say, category 5 then you may type S5" ' " If you make a mistake when you are typing in, either hold down CAPS SHIFT and press 0 to delete 1 letter, or just type E beforepressing the ENTER key." C''"Do NOT press BREAK or you will have to re-LOAD the game." ^20,0;"Press 'R' to re-read the rulEs, press ENTER to start the game. " ="R"8030^ =13 & 8210 H21,0;" Press ENTER for more details. ":5000: !4v=1:: "Type in the players names,"''"pressing ENTER after each one."''"Hit ENTER on it's own when done."''"Type one or more names beginning"''"with ZX if you wish the computer"''"to also play." !>5000:n$(v)=l$ !H/n$(v)=" "v=v-1:8540\! !Mv48540\! !Rv=v+1:8510>! !\2v1n$(1)=" "85004! !av=18800`" !f(:" Player order selection: " !p9i=1v:i+2,0;n$(i);" press ENTER"; !r"n$(i)(2)="ZX"8566v! !u 5000 !v0d=15:d(d)=7:9000(#:d !z>d=15:d(d)=1+(*6):n(i)=n(i)+d(d) !9000(#:d !)i+2,13 ;n(i);" " !i ! j=0:i=1v-1 !n(i)n(i+1)8640! !\t=n(i+1):t$=n$(i+1):n(i+1)=n(i):n$(i+1)=n$(i):n(i)=t:n$(i)=t$ ! j=1 !i:j08600! "`=18,0;" Press ENTER to begin. ":5000 "~ #({c=29:di=d*4-4:dv=d(d):9000(#+dv*10 :dv<7j=15:.015zu\,5-j:j #)dv=75 #* #2di,c; "" #3di+1,c;"" #4di+2,c;"" #6 #<di,c; "" #=di+1,c;"" #>di+2,c;"" #@ #Fdi,c; "" #Gdi+1,c;"" #Hdi+2,c;"" #J #Pdi,c; "" #Qdi+1,c;"" #Rdi+2,c;"" #T #Zdi,c; "" #[di+1,c;"" #\di+2,c;"" #^ #ddi,c; "" #edi+1,c;"" #fdi+2,c;"" #h #ndi,c; " " #odi+1,c;" " #pdi+2,c;" " ' gx   avB@@  dT S zcLK5 0 5 0 XVY"" Jwyahtzee C? P MMM43233-Ks}x >fff~fff~~ xflxlf```bf8ll8ff|``8lvff|lf