YAHTZI aCwAcC YAHTZ1  GARY KENNEDY  Y$="N"  N$(1) 23658j\,8 236099\,100d 23561 \,0  6000p  5000 ,&2,21;" PLAYER= ";pl;" " 6!3,21;"-----------" @)4,21;" THROW = ";throw;" " ^ 4000 throw=throw+1 +4,30;0;4;throw Vthrow20,0;1;7;" PRESS: S IF YOU WISH TO STOP "  7 throw=3choice +4,30;0;4;throw 74,21;4;0;" THROW = ";throw G1,0;1;7;" USE KEYS 1 TO 5 TO HOLD DICE " $x=15:h(x)=0:x MX=0150:X:1,0;" " ="S"choice =2:="1"1,0;"":h(1)=1 4="2"1,4;"":h(2)=1 &4="3"1,8;"":h(3)=1 05="4"1,12 ;"":h(4)=1 :5="5"1,16;"":h(5)=1 1:6,0;" Select :(1,2,3-T,F,H... etc.) " d(1)=d(2)d(2)=d(3)d(3)=d(4)d(4)=d(5)y(pl).56,0;" YAHTZI::YAHTZI::YAHTZI ":900:790 a2,21;" ENTER THE ";3,21;" OPTION OF ";4,21;"YOUR CHOICE" "OPTION?:";s$ ȷS$"Y"S$"1"S$"2"S$"3"S$"4"S$"5"S$"6"S$"T"S$"F"S$"H"S$"L"S$"S"S$"C".5,-10 :6,0;" ERROR... Please choose again ":502:choice R(20,0)"X"s$="Y"20,0;"X":y(pl)=.5:790 700+(s$) (7,0)"X"6,0;" SELECTION = ACES ":x=15:s=s+(d(x)=1):x:7,18;"=";s:a(pl)=s+.5:790:1's  (8,0)"X"S$="2"6,0;" SELECTION = TWOS ":X=15:s=s+2*(D(X)=2):X:8,18;"=";s:b(pl)=s+.5:790:2's  (9 ,0)"X"S$="3"6,0;" SELECTION = THREES ":X=15:s=s+3*(d(X)=3):X:9 ,18;"=";s:c(pl)=s+.5:790:3's  (10 ,0)"X"S$="4"6,0;" SELECTION = FOURS ":X=15:s=s+4*(d(X)=4):X:10 ,18;"=";s:e(pl)=s+.5:790:4's  (11 ,0)"X"S$="5"6,0;" SELECTION = FIVES ":X=15:s=s+5*(d(X)=5):X:11 ,18;"=";s:f(pl)=s+.5:790:5's  (12 ,0)"X"S$="6"6,0;" SELECTION = SIXES ":X=15:s=s+6*(d(X)=6):X:12 ,18;"=";s:g(pl)=s+.5:790:6's  !S$="1"S$="2"S$="3"789 !S$="4"S$="5"S$="6"789 (21,0)"X"S$="C"6,0;" SELECTION = CHANCE ":x=15:s=s+d(x):x:21,18;"=";s:n(pl)=s+.5:790:Chance  S$="C"789 (16,0)"X"S$="F"6,0;" SELECTION = FOUR OF A KIND ":1200:s=20s=12 s=13 s=0.2~L:x=15:s=s+d(x):x:16,18;"=";s:j(pl)=s+.5:790:Four of a kind  US$="F"ƪ(16,0)"X"j(pl)=0.5:16,18;"=0":790 (17,0)"X"S$="H"6,0;" SELECTION = FULL HOUSE ":1200:s=9 s=817,18;"=25":k(pl)=25.5L:790 a(17,0)"X"S$="H"s=0:k(pl)=0.5:17,18;"=0 ":790 (18,0)"X"S$="L"6,0;" SELECTION = LOW STRAIGHT ":1000:SEQ318,18;"=30":l(pl)=30.5t:790:Low straight   `(18,0)"X"S$="L"s=0:18,18;"=0":l(pl)=0.5:790 (19,0)"X"s$="S"6,0;" SELECTION = STRAIGHT ":1000:SEQ419,18;"=40":m(pl)=40.5":790:Straight  (15,0)"X"s$="T"6,0;" SELECTION = THREE OF A KIND ":1200:s=8s=6S=12 S=13 S=7s=0:x=15:s=s+d(x):x:15,18;"=";s:i(pl)=s+.5:790:Three of a kind  n(15,0)"X"s$="T"i(pl)=0s=0:i(pl)=.5:15,18;"=";s:790 b(19,0)"X"s$="S"m(pl)=0m(pl)=.5:19,18;"=0":790 c(17,0)"X"s$="H"k(pl)=0k(pl)=.5:17,18;" =0":790 S$"1"S$"2"S$"3"S$"4"S$"5"S$"6"S$"T"S$"F"S$"H"S$"L"S$"S"S$"C".5,-10 :6,0;" ERROR... Please choose again ":100d:choice `.5,-10 :6,0;" You have used '";s$;"' already ":502:choice !pl=pl+1:pl>npl=1 {r=r+1:r=(n*13 )63119:0,0;" THE GAME IS OVER ":100d:9100#  0 s=0:throw=0 $x=15:h(x)=0:x G=630306 0:5510  300,  YAHTZI 0X=16:X:63089q:X:0 :y(pl)=0y(pl)=502:20,17;"50": Ly(pl)=y(pl)+100d:6,0;" You may choose any section " "Which section? ";s$ 900+s$  100d  790 (7,0)"X"6,0;" Selection= Ace's ":X=15:S=S+1*(D(X)=1):X:7,18;"=";s:a(pl)=s+.5: (8,0)"X"S$="2"6,0;" Selection= Two's ":X=15:S=S+2*(D(X)=2):X:8,18;"=";s:b(pl)=s+.5: (9 ,0)"X"S$="3"6,0;" Selection= Three's ":X=15:S=S+3*(D(X)=3):X:9 ,18;"=";s:c(pl)=s+.5: (10 ,0)"X"S$="4"6,0;" Selection= Fours's ":X=15:s=s+4*(d(X)=4):X:10 ,18;"=";s:e(pl)=s+.5::4's  (11 ,0)"X"S$="5"6,0;" Selection= Fives's ":X=15:s=s+5*(d(X)=5):X:11 ,18;"=";s:f(pl)=s+.5::5's  (12 ,0)"X"S$="6"6,0;" Selection= Sixe's ":X=15:s=s+6*(d(X)=6):X:12 ,18;"=";s:g(pl)=s+.5::6's  ǰ(21,0)"X"S$="C"6,0;" Selection= Chance ":x=15:s=s+d(x):x:21,18;"=";s:n(pl)=s+.5::Chance  ʸ(16,0)"X"S$="F"6,0;" Selection= Four of a kind ":x=15:s=s+d(x):x:16,18;"=";s:j(pl)=s+.5::Four of a kind  ̃(17,0)"X"S$="H"6,0;" Selection= Full House ":17,18;"=25":k(pl)=25.5L: Ж(18,0)"X"S$="L"6,0;" Selection= Low Straight ":18,18;"=30":l(pl)=30.5t::Low straight  ג(19,0)"X"s$="S"6,0;" Selection= Straight ":19,18;"=40":m(pl)=40.5"::Straight  ظ(15,0)"X"s$="T"6,0;" Selection=3 of a kind ":x=15:s=s+d(x):x:15,18;"=";s:i(pl)=s+.5::Three of a kind  ܗS$"1"S$"2"S$"3"S$"4"S$"5"S$"6"S$"T"S$"F"S$"H"S$"L"S$"S"S$"C"6,0;" ERROR... Please choose again ":100d: ޓ6,0;" You already have that ":.5,-10 :100d:6,0;" ":930   CHECK  !X=15:X(X)=D(X):X QD(1)>D(2)D(2)=D(1):D(1)=X(2):1000 QD(2)>D(3)D(3)=D(2):D(2)=X(3):1000 QD(3)>D(4)D(4)=D(3):D(3)=X(4):1000 QD(4)>D(5)D(5)=D(4):D(4)=X(5):1000 SEQ=0:Y=1 $[D(1)=1D(2)=2D(3)=3D(4)=5SEQ=-1 )HD(1)=1D(2)=2D(3)=4SEQ=-1 .DX=14:Y=Y+1:D(X)=D(Y)-1SEQ=SEQ+1 8X B  CHECK 2   S=0 &x=15:y=15 d(x)=d(y)xys=s+1 Y X   DICE THROW  :x=15 )h(x)=0d(x)=(*6)+1 X 0:4  h(1)=14130"  xx=0  Gc=05:4500+(5*((*6))):4530:c +((d(1)-1)*5)+4500 " h(2)=14155; , xx=4 1Gc=05:4500+(5*((*6))):4530:c 6+((d(2)-1)*5)+4500 ; h(3)=14185Y @ xx=8 JGc=05:4500+(5*((*6))):4530:c T+((d(3)-1)*5)+4500 Y h(4)=14215w ^ xx=12 hGc=05:4500+(5*((*6))):4530:c r+((d(4)-1)*5)+4500 wh(5)=1 | xx=16 Gc=05:4500+(5*((*6))):4530:c -((d(5)-1)*5)+4500  7 63208  2,xx;"" 3,xx;"" 4,xx;"" 5,xx;""  2,xx;"" 3,xx;"" 4,xx;"" 5,xx;""  2,xx;"" 3,xx;"" 4,xx;"" 5,xx;""  2,xx;"" 3,xx;"" 4,xx;"" 5,xx;""  2,xx;"" 3,xx;"" 4,xx;"" 5,xx;""  2,xx;"" 3,xx;"" 4,xx;"" 5,xx;""  2,xx;"" 3,xx;"" 4,xx;"" 5,xx;""  =0,0;" YAHTZI   WORK FORCE 1983 " 56,0;" " 0q=721:q,0;4;" ":q 4:9 B7,1;"(1) ACES.........= ";7,19;a(pl) %a(pl)07,0;"X" B8,1;"(2) TWOS.........= ";8,19;b(pl) %b(pl)08,0;"X" B9 ,1;"(3) THREES.......= ";9 ,19;c(pl) %c(pl)09 ,0;"X" D10 ,1;"(4) FOURS........= ";10 ,19;e(pl) &e(pl)010 ,0;"X" D11 ,1;"(5) FIVES........= ";11 ,19;f(pl) &f(pl)011 ,0;"X" D12 ,1;"(6) SIXES........= ";12 ,19;g(pl) &g(pl)012 ,0;"X" 1t(pl)=a(pl)+b(pl)+c(pl)+e(pl)+f(pl)+g(pl) f13 ,0;7;" TOP PART SO FAR: =";:T(PL)<10 1;t(pl);" (BONUS=35) " .T(PL)10 1;t(pl);"(BONUS=35) " R14,0;2;" YOU REQUIRE ";(63?-T(PL));" FOR YOUR BONUS " 8(63?-T(PL))<10 14,31;" " IT(PL)63?14,0;" YOU HAVE A BONUS OF 35 POINTS " D15,1;"(T) 3 OF A KIND..= ";15,19;i(pl) &i(pl)015,0;"X" D16,1;"(F) 4 OF A KIND..= ";16,19;j(pl) &j(pl)016,0;"X" D17,1;"(H) FULL HOUSE...= ";17,19;k(pl) &k(pl)017,0;"X" D18,1;"(L) LOW STRAIGHT.= ";18,19;l(pl)  &l(pl)018,0;"X" D19,1;"(S) STRAIGHT.....= ";19,19;m(pl) &m(pl)019,0;"X" b20,0;1;7;" (Y) YAHTZI (50 or 100)";20,17;y(pl) !*y(pl)020,0;"X" &D21,1;"(C) CHANCE.......= ";21,19;n(pl) +&n(pl)021,0;"X" D!7,21;"(SCORE 1's)" N!8,21;"(SCORE 2's)" X!9 ,21;"(SCORE 3's)" b"10 ,21;"(SCORE 4's)" l"11 ,21;"(SCORE 5's)" q"12 ,21;"(SCORE 6's)" "15,21;"(ALL DICE) " "16,21;"(ALL DICE) " "17,21;"(25 POINTS)" "18,21;"(30 POINTS)" "19,21;"(40 POINTS)" "21,21;"(ALL DICE) "  p0:0:7: q!C=(*7):A$=" YAHTZI " rX=110 s'10 ,9 +X;C;9 ;A$(X) t.1}L,X+10 uX vy$"Y"12 ,3;" Please wait a moment...","  Loading sound effects ":""63000:236077\,249 xz12 ,3;" A game of skill for ","  two to six players. ";15,0;" " z!"HOW MANY PLAYERS? (2 to 6)";n$ |'n$<502ůn$>5466010z  n=n$: throw=0  s=0  pl=1 choice=700  r=0 check=1000  d(5)  h(5) a(n) b(n) c(n) e(n) f(n) g(n) i(n) j(n) $k(n) .l(n) 8m(n) Bn(n) Ly(n) Vt(n) `w(n) j S$(1) t X(5) $x=15:h(x)=0:x W #(F"YAHTZI"1:.5,20:"YAHTZI"63000,2000 #) #630306:END OF GAME # x=1n #7pl=x:t(pl)=a(pl)+b(pl)+c(pl)+e(pl)+f(pl)+g(pl) #X # x=1n #>pl=x:w(pl)=i(pl)+j(pl)+k(pl)+l(pl)+m(pl)+n(pl)+y(pl) #x # X=1n #pl=x # 5000 # 0 #Dv=16:v,0;" ":v #2y=121:y,21;" ":y #=0,0;" SCORE DISPLAY PLAYER NUMBER ";pl;" " #.3,0;" Press ENTER for next" #.4,0;" Players score card.." #'6,21;"PLAYER No.";x; #!8,21;"TOP SECTION" #$10 ,22;"SCORE= ";t(pl) #jt(x)>62>12 ,22;"BONUS= 35";14,0;" *BONUS 35 POINTS*  " #ht(x)62>12 ,22;"BONUS= 00";14,0;"  " #&t(pl)63?t(pl)=t(pl)+35# #"13 ,21;"-----------" #"15,21;"LOW SECTION" #$17,22;"SCORE= ";w(pl) #M20,21;" TOTAL= ";8;8;8;t(pl)+w(pl) $630306 $ 0:x $ 0 $ $ MAX=0 $ax=1n:0+x*2,0;" PLAYER NUMBER ";x;" SCORED.....";t(x)+w(x);" ":x $-17,6;" IF YOU WOULD LIKE " $-18,6;" ANOTHER GAME " $-19,6;" PRESS 'Y' " $DX=1N:PL=X:(T(PL)+W(PL))>MAXWINNER=PL:MAX=(T(PL)+W(PL)) $X $g14,0;" THE WINNER IS PLAYER NUMBER ";WINNER;" WITH A SCORE OF ";MAX;" " $"Y"9239$ $y$="Y" $" 5 nhroshoicrhecg6YN2A YAHTZI                 wYAHTZI >!͵Z} !͵Z} !͵Z} !U͵Z} !_͵Z} !͵Z} !͵Z} !͵Z} !͵Z} MF$F M P P P 3iMOO\GWq !Pv>>BB<DHpHDB@@@@@~BfZBBBBbRJFB>BB<DHpHDB@@@@@~BfZBBBBbRJFB>BB<DHpHDB@@@@@~BfZBBBBbRJFB(> >bd&F(*D:  >>> ~fjjr~x~~~`~~>~``d~~``~~~``~b~~~b~bb~~bb~ >>fpf|~bbbbb~bbbb4jjjjj~fffffbbb~~ 0`~ @ pp8T"x ~8