
 *NAME YAHTZEE V4.5 ô BY I D HUNNABLE (1850) î … åd^Hn( òinit:Û:ï1,—"B":ñŠ39,1)"YAHTZEE":ï1,—"B":ñŠ30,3)"HOW MANY PLAYERS? 1 OR 2":ñŠ42,5);:õ:A%=¦(0):ýA%=49„A%=502 çA%=49òpatience:‹ ògame< Û:ñ½1+"2+C":à
F ÝògameiP õ:Û:ï1,—"B":ñŠ39,1)"YAHTZEE":ï1,—"B":ñŠ39,3)"NAMES?":èŠ39,5)P$(1):èŠ39,6)P$(2):ý©(P$(1))<6€©(P$(2))<6Z ñ½1,"2-C"bd GC%=1:òscreen:õ:ãPLR%=1¸2:ògo(PLR%):í:GC%=GC%+1:ýGC%=14:òendgame:çAA$="Y"„AA$="y" òclear:åDd@n áx Ýòpatience,‚ ñŠ30,3)‰(35):ñŠ39,3)"YOUR NAME ";:èP$(1)Œ ñ½1+"2-C"$– GC%=1:òscreen:ãGC%=1¸13:ògo(1):í  ãX%=2¸4:ñŠ36,X%);‰(20):íTª ñŠ41,3)½1+"2+B"+"GO AGAIN?"+½1+"2-B":òans("Y","y","N","n"):çAA$="Y"Œòclear:åtV@´ á
¾ Ýòinit`È ÞD$(6),T%(5,1),SC%(17,4),SB$(14),P$(2),HOLD$(2):t1$=½1+"2+T":t2$=½1+"2-T":TH%=1:@%=&00000904£Ò SB$(1)=t1$+"ONES"+t2$:SB$(2)=t1$+"TWOS"+t2$:SB$(3)=t1$+"THREES"+t2$:SB$(4)=t1$+"FOURS"+t2$:SB$(5)=t1$+"FIVES"+t2$:SB$(6)=t1$+"SIXES"+t2$:SB$(7)=t1$+"BONUS"+t2$ÌÜ SB$(8)=t1$+"3 OF A KIND"+t2$:SB$(9)=t1$+"4 OF A KIND"+t2$:SB$(10)=t1$+"FULL HOUSE"+t2$:SB$(11)=t1$+"LOW STRAIGHT"+t2$:SB$(12)=t1$+"HIGH STRAIGHT"+t2$:SB$(13)=t1$+"YAHTZEE"+t2$:SB$(14)=t1$+"CHANCE"+t2$æ TAG1=0:TAG2=0:TAG3=0/ð L$=½1+½244:R$=½1+½245:D$=½1+½246:U$=½1+½247"ú HOLD$(2)=½1+½243:HOLD$(1)="  "0ï1,138,61,65,128,128,159,160,160,173,173,1600ï1,138,61,66,128,128,190,129,129,173,173,1290ï1,138,61,67,160,173,173,160,160,159,128,1280"ï1,138,61,68,129,173,173,129,129,190,128,1280,ï1,138,61,69,128,128,159,160,160,172,172,16106ï1,138,61,70,128,128,190,129,129,141,141,1610@ï1,138,61,71,161,172,172,160,160,159,128,1280Jï1,138,61,72,161,141,141,129,129,190,128,1280Tï1,138,61,73,128,128,159,160,160,166,166,1600^ï1,138,61,74,128,128,190,129,129,153,153,1290hï1,138,61,75,160,166,166,160,160,159,128,1280rï1,138,61,76,129,153,153,129,129,190,128,1280|ï1,138,61,77,128,128,159,160,160,160,160,1610†ï1,138,61,78,128,128,190,129,141,141,129,1610ï1,138,61,79,161,160,172,172,160,159,128,1280šï1,138,61,80,161,129,129,129,129,190,128,1280¤ï1,138,61,81,128,128,159,160,160,166,166,1600®ï1,138,61,82,128,128,190,129,129,129,129,1290¸ï1,138,61,83,160,160,160,160,160,159,128,1280Âï1,138,61,84,129,153,153,129,129,190,128,1280Ìï1,138,61,85,128,128,159,160,160,160,160,1610Öï1,138,61,86,128,128,190,129,129,129,129,1610àï1,138,61,87,161,129,129,129,129,190,128,1280êï1,138,61,88,161,160,160,160,160,159,128,1280ôï1,138,61,89,129,129,130,130,132,148,136,1280þï1,138,61,90,191,160,175,168,168,168,168,1680ï1,138,61,91,191,128,191,128,128,128,128,1280ï1,138,61,92,191,129,189,133,133,133,133,1330ï1,138,61,93,133,133,133,133,133,133,133,1330&ï1,138,61,94,168,168,168,168,168,175,160,19100ï1,138,61,95,128,128,128,128,128,191,128,1910:ï1,138,61,96,133,133,133,133,133,189,129,1910Dï1,138,61,97,168,168,168,168,168,168,168,168‘NCH$=½1+½130+"?":TL$=CH$+½90:TR$=CH$+½92:RS$=CH$+½93:BL$=CH$+½94:B$=CH$+½95:BR$=CH$+½96:LS$=CH$+½97:Top$=CH$+½91:BSD$=½8+½10:BS$=½8:CU$=½8+½11wXTROW$=TL$+Ä20,Top$)+TR$:RU$=RS$+BSD$+RS$+BSD$+RS$+BSD$+RS$:BROW$=BL$+Ä20,B$)+BR$:LU$=LS$+BSD$+LS$+BSD$+LS$+BSD$+LS$"bCH$=½1+½130+"?":BS2$=½8+½8+½10.lD$(6)=CH$+"A"+CH$+"B"+BS2$+CH$+"C"+CH$+"D".vD$(5)=CH$+"E"+CH$+"F"+BS2$+CH$+"G"+CH$+"H".€D$(4)=CH$+"I"+CH$+"J"+BS2$+CH$+"K"+CH$+"L".ŠD$(3)=CH$+"M"+CH$+"N"+BS2$+CH$+"O"+CH$+"P".”D$(2)=CH$+"Q"+CH$+"R"+BS2$+CH$+"S"+CH$+"T".žD$(1)=CH$+"U"+CH$+"V"+BS2$+CH$+"X"+CH$+"W"¨TICK$=CH$+"Y"
²òclear¼áÆÝògo(P%)ÐãN=1¸5:T%(N,0)=0:íÚñŠ40,4)‰(15);Š54,0)"1 "`äñŠ44,0);GC%;Š55+(19*(P%=2)),3)" ";Š55+(19*(P%=1)),3);½1+½(245+(P%=1));:òflush:õ:Z$=¾:ýZ$=" "&îTH%=0:õ:TH%=TH%+1:ñŠ54,0);TH%;" ";KøÑ=0:õ:WD%=³(5):çT%(WD%,0)<>1T%(WD%,1)=³(6):ñŠ36+(3*WD%),2)D$(T%(WD%,1))(ý‘>=500:ï7:ñŠ55,0)TICK$;:çTH%=3ŒTtC
òflush~õ:õ:H%=¥-48:ý(H%>0€H%<6)„H%+48=32„H%+48=83:çH%+48<>32€H%+48<>83T%(H%,0)=”(T%(H%,0)=0):ñŠ36+(H%*3),4)HOLD$(2+(T%(H%,0)=0)); ýH%+48=32„H%+48=83*çH%+48=83TH%=3:ï7
4ýTH%=3E>òscore(P%):òtotal(P%):òshowscore(P%):çP%=1òmover:‹ çGC%<>13òmovelHáRÝòscore(P%)S\AS%=0:ST%=0:TS%=0:ï1,—"R":ï1,—"T":ñŠ36,4)"SCORE AGAINST WHAT ?":ï1,—"T":ï1,—"R"
fòflushfpõ:A$=¾:ýA$="1"„A$="2"„A$="3"„A$="4"„A$="5"„A$="6"„A$="T"„A$="F"„A$="H"„A$="L"„A$="S"„A$="Y"„A$="C">zçA$="1"„A$="2"„A$="3"„A$="4"„A$="5"„A$="6"òcalcN(P%,»(A$))„çA$="T"òcalcK(P%,9)ŽçA$="F"òcalcK(P%,10)˜çA$="H"òcalcF(P%)¢çA$="L"òcalcL(P%)¬çA$="S"òcalcH(P%)¶çA$="Y"òcalcY(P%)ÀçA$="C"òcalcC(P%)ÊçAS%=1„ST%=0ï7:åD\CÔñŠ36,4)‰(20)Þá)èÝòcalcN(P%,N%):çSC%(N%,P%+2)=127AS%=1"òãX%=1¸5:çT%(X%,1)=N%TS%=TS%+N%üíOòoke(P%,SB$(N%),60+(60*(P%=1)),N%-1):çST%=1:SC%(N%,P%)=TS%:SC%(N%,P%+2)=127sçSC%(1,P%+2)=127€SC%(2,P%+2)=127€SC%(3,P%+2)=127€SC%(4,P%+2)=127€SC%(5,P%+2)=127€SC%(6,P%+2)=127SC%(7,P%+2)=127òchb(P%)$á).ÝòcalcK(P%,N%):çSC%(N%,P%+2)=127AS%=178A%=0:B%=0:C%=0:D%=0:E%=0:F%=0:G%=0:çN%=9K%=3 ‹ K%=4BãX%=1¸5!LçT%(X%,1)=1A%=A%+1:çA%=K%F%=1!VçT%(X%,1)=2B%=B%+1:çB%=K%F%=1!`çT%(X%,1)=3C%=C%+1:çC%=K%F%=1!jçT%(X%,1)=4D%=D%+1:çD%=K%F%=1"tçT%(X%,1)=5 E%=E%+1:çE%=K%F%=1!~çT%(X%,1)=6G%=G%+1:çG%=K%F%=1ˆí+’çF%=1ãX%=1¸5:TS%=TS%+T%(X%,1):í:‹ TS%=0Pœòoke(P%,SB$(5+K%),75+(60*(P%=1)),K%-3):çST%=1SC%(N%,P%)=TS%:SC%(N%,P%+2)=127¦á&°ÝòcalcF(P%):çSC%(11,P%+2)=127AS%=1)ºA%=0:B%=0:C%=0:D%=0:E%=0:F%=0:ãX%=1¸5ÄçT%(X%,1)=1A%=A%+1ÎçT%(X%,1)=2B%=B%+1ØçT%(X%,1)=3C%=C%+1âçT%(X%,1)=4D%=D%+1ìçT%(X%,1)=5 E%=E%+1öçT%(X%,1)=6 F%=F%+1 í
ãX%=1¸5:TWO=0:THR=0çA%=3THR=1:‹ çA%=2TWO=1çB%=3THR=1:‹ çB%=2TWO=1(çC%=3THR=1:‹ çC%=2TWO=12çD%=3THR=1:‹ çD%=2TWO=1<çE%=3THR=1:‹ çE%=2TWO=1FçF%=3THR=1:‹ çF%=2TWO=1PíZçTHR=1€TWO=1TS%=25:‹ TS%=0Kdòoke(P%,SB$(10),75+(60*(P%=1)),2):çST%=1SC%(11,P%)=TS%:SC%(11,P%+2)=127ná.xÝòcalcL(P%):PASS%=0:çSC%(12,P%+2)=127AS%=1H‚F%=0:òsort:S$=Ã(T%(1,1))+Ã(T%(2,1))+Ã(T%(3,1))+Ã(T%(4,1))+Ã(T%(5,1))hŒçÁS$,1,4)="1234"„ÁS$,1,4)="2345"„ÁS$,1,4)="3456"„ÁS$,2,4)="1234"„ÁS$,2,4)="2345"„ÁS$,2,4)="3456"F%=1–çF%=1„PASS%=1ådHE PASS%=1:ãX%=2¸3*ªçT%(X%,1)=T%(X%+1,1) T%(X%+1,1)=0:X%=3´í	¾åtBEÈçF%=1TS%=30:‹ TS%=0KÒòoke(P%,SB$(11),75+(60*(P%=1)),3):çST%=1SC%(12,P%)=TS%:SC%(12,P%+2)=127Üá&æÝòcalcH(P%):çSC%(13,P%+2)=127AS%=1Cðòsort:S$=Ã(T%(1,1))+Ã(T%(2,1))+Ã(T%(3,1))+Ã(T%(4,1))+Ã(T%(5,1))VúçÁS$,1,5)="12345"„ÁS$,1,5)="23456"„ÁS$,2,5)="12345"„ÁS$,2,5)="23456"TS%=40:‹ TS%=0Kòoke(P%,SB$(12),75+(60*(P%=1)),4):çST%=1SC%(13,P%)=TS%:SC%(13,P%+2)=127á.ÝòcalcY(P%):Types=1:çSC%(14,P%+2)=127AS%=1""çT%(2,1)<>T%(1,1)Types=Types+1",çT%(3,1)<>T%(1,1)Types=Types+1"6çT%(4,1)<>T%(1,1)Types=Types+1"@çT%(5,1)<>T%(1,1)Types=Types+1JçTypes=1TS%=50:‹ TS%=0KTòoke(P%,SB$(13),75+(60*(P%=1)),5):çST%=1SC%(14,P%)=TS%:SC%(14,P%+2)=127^á&hÝòcalcC(P%):çSC%(15,P%+2)=127AS%=1frãX%=1¸5:TS%=TS%+T%(X%,1):í:òoke(P%,SB$(14),75+(60*(P%=1)),6):çST%=1SC%(15,P%)=TS%:SC%(15,P%+2)=127|á(†Ýòtotal(P%):SC%(8,P%)=0:SC%(16,P%)=0,ãX%=1¸6:SC%(8,P%)=SC%(8,P%)+SC%(X%,P%):í.šçSC%(8,P%)>=63SC%(7,P%)=35:SC%(7,P%+2)=127!¤SC%(8,P%)=SC%(8,P%)+SC%(7,P%)/®ãX%=9¸15:SC%(16,P%)=SC%(16,P%)+SC%(X%,P%):í#¸SC%(17,P%)=SC%(8,P%)+SC%(16,P%)Âá9ÌÝòshowscore(P%):X1%=68+(60*(P%=1)):X2%=88+(60*(P%=1))MÖñŠX1%,0),SC%(1,P%);ŠX1%,1),SC%(2,P%);ŠX1%,2),SC%(3,P%);ŠX1%,3),SC%(4,P%);MàñŠX1%,4),SC%(5,P%);ŠX1%,5),SC%(6,P%);ŠX1%,6),SC%(7,P%);ŠX1%,7),SC%(8,P%);PêñŠX2%,0),SC%(9,P%);ŠX2%,1),SC%(10,P%);ŠX2%,2),SC%(11,P%);ŠX2%,3),SC%(12,P%);sôñŠX2%,4),SC%(13,P%);ŠX2%,5),SC%(14,P%);ŠX2%,6),SC%(15,P%);ŠX2%,7),SC%(16,P%);Š40,7),SC%(17,1);Š54,7),SC%(17,2);xþãX%=0¸6:ñŠ12,X%);½(SC%(X%+1,3));Š72,X%);½(SC%(X%+1,4));:í:ãX%=9¸15:ñŠ32,X%-9);½(SC%(X%,3));Š92,X%-9);½(SC%(X%,4));:íáÝòscreen<Û:ãPSC%=1¸7:ñŠ0,PSC%-1)SB$(PSC%);Š60,PSC%-1)SB$(PSC%);:ím&ñ½1+"2+T";Š0,7);"TOTAL";Š60,7)"TOTAL";½1+"2-T";:ãPSC%=8¸14:ñŠ15,PSC%-8)SB$(PSC%);Š75,PSC%-8)SB$(PSC%);:í 40ñ½1+"2+T";Š15,7);"TOTAL";Š75,7)"TOTAL";½1+"2-T";&:òshowscore(1):ñŠ0,0):òshowscore(2):DñŠ36,0)"ELEMENT 1   THROW 1";Š34,7);P$(1);Š48,7)P$(2);9NC=0:ãN=39¸51ˆ3:C=C+1:D%=³(6):ñŠN,2)D$(D%):T%(C,0)=0:í1XñŠ35,1)TROW$;Š35,2)LU$;Š56,2)RU$;Š35,5)BROW$;báxlÝòclear:ãX%=1¸17:ãY%=1¸2:SC%(X%,Y%)=0:í:í:ãX%=1¸7:SC%(X%,3)=32:SC%(X%,4)=32:í:ãX%=9¸15:SC%(X%,3)=32:SC%(X%,4)=32:í:á
vÝòsort\€ãI%=1¸4:ãJ%=I%+1¸5:çT%(J%,1)<T%(I%,1)T%(0,1)=T%(J%,1):T%(J%,1)=T%(I%,1):T%(I%,1)=T%(0,1)Ší:í”ážÝòmovel¨ê I%:I%=15²ñŠ55,3)R$:òw(150))¼ñŠ55,3)D$:òw(I%):ñŠ55,3)" ":ñŠ55,4)D$YÆòw(I%):ñŠ55,4)" ":ãMAL%=53¸37 ˆ -2:ñŠMAL%,4)L$:òw(I%):ñŠMAL%,4)" ":í:ñŠ36,3)U$:òw(I%)ÐáÚÝòmoveräê I%:I%=15îòw(150))øñŠ36,3)D$:òw(I%):ñŠ36,3)" ":ñŠ36,4)D$Sòw(I%):ñŠ36,4)" ":ãMAR%=38 ¸ 54 ˆ 2:ñŠMAR%,4)R$:òw(I%):ñŠMAR%,4)" ":í:ñŠ55,3)U$áÝòchb(P%): SSF%=0:HSP%=0:ãN=1¸6:çSC%(N,P%+2)<>127 HSP%=HSP%+(N*5)'*çSC%(N,P%+2)=127SSF%=SSF%+SC%(N,P%)4í >çHSP%+SSF%<63SC%(7,P%+2)=127Há&RÝòendgame:ãX%=2¸4:ñŠ36,X%);‰(20):í³\çSC%(17,1)>SC%(17,2)ï1,—"B":ñŠ41,2)P$(1);" WINS":ï1,—"B":‹ ç SC%(17,2)>SC%(17,1)ï1,—"B":ñŠ41,2)P$(2);" WINS":ï1,—"B":‹ ç SC%(17,1)=SC%(17,2)ï1,—"B":ñŠ42,2)"GAME DRAWN":ï1,—"B"Dfï1,—"B":ñŠ37,4)"ANOTHER GAME? Y/N":ï1,—"B":òans("Y","y","N","n")pá7zÝòoke(P%,E$,Q%,R%):ñ½1+"2+R":ñŠQ%,R%)E$;:ñ½1+"2-R";„çAS%=1òmes:åtbH^Žñ½1+"4+T+R":ñŠ36,4)‰(20);Š38,4)"SCORES ";TS%;" OK? Y/N";:ñ½1+"4-T-R":òans("Y","y","N","n")˜çAA$="Y"„AA$="y"ST%=1¢ñŠQ%,R%)E$;¬á=¶Ýòans(Q$,R$,S$,T$):õ:AA$=¾:ýAA$=Q$„AA$=R$„AA$=S$„AA$=T$:á ÀÝòflush:õ:FL%=¦(0):ýFL%=-1:áÊÝòw(TT%):Ñ=0:õ:ý‘>=TT%:áQÔÝòmes:ï1,—"T":ï1,—"R":ñŠ36,4)" YOU'VE SCORED THAT ":ï1,—"R":ï1,—"T":òw(250):áÞö:ñ" at line ";ž:ñ½1+"2+C" ÿÿ