%> "YAHTZEE"d ,, :: ();();()n > (: ();();()2 ,"DO YOU NEED INSTRUCTIONS? PRESS [Y] FOR YES"ϋ<ANS$$()F ANS$"Y"  : : PP ,,"NUMBER OF PLAYERS ?";#ZNP ($())d NP NP : "":,,"TOO MANY PLAYERS":,,"MAXIMUM OF SIX PLAYERS":,,"PRESS ANY KEY TO CONTINUE": xn D : (x K NPŒK$(K)Ȍ茖,, "ENTER #"K$"'S NAME"; NAM$NAM$(K)NAM$ K+ SCORE$(),SCORE (NP,)[ K NP: J :SCORE(K,J): J: K((($,))((($,,))))P$() R  K NPčYAHTZEE ΍ MSG$()("HAVE "NAM$(K))"MSG$()"PRESS ANY KEY"',MSG$()"TO ROLL THE DICE"16  B@ I TJ "" r\T I^MSG$()"YOU ARE SLOW!":MSG$()"TRY AGAIN...":MSG$()NAM$(K)Ǝh J : *, ::  : @Ԏr J ߎ|C(J)玆 J T  YAHTZEE  ~ J /XJ:YL YAHTZEE  T: c C(J)  C(J)((())):E(J)C(J) T  t JЏ YAHTZEE   : F SCORE(K, )2 YAHTZEE : & : &} T MSG$()"USE ARROWS TO CHOOSE DIE":MSG$()"PRESS SPACE BAR TO DISCARD":MSG$()"PRESS RETURN TO REROLL":   I  : C(I)C(I) : &YAHTZEE ϐ > : : & F *0**"REROLL"**:J DX2(J)NXJ:Y-X X2,,: P$@b J MlAC(J)sv A ,,,,,,X1X:Y1Y ^I$$()ё (I$) X2,,: " ": *, : ᑨJJ:  (I$) X2,,: " ": *, : JJ/ J J? J JI Dd I$" " :  I$"M" ,<:FD: X2,,: " ":  I$( ) Ò X2,,: " "˒  TӒFݒ  * l4F > R SCORE(K,)SCORE(K,)SCORE(K,)(H K0R R9\HIIf LO NPqp SCORE(HI,)SCORE(LO,) HILOzz LO: I  NP,,NAM$(I)"`S SCORE =";SCORE(I,)瓢,, NAM$(HI);" WINS With";SCORE(HI,)퓬 **"ERASE DOTS"**FLAG t$C(J)/FLAG9 D?W "*DICE GRAPHICS*"u (X,(Y))((X),(Y))(,)(,)$(,). (X,Y)(X,Y)Ɣ8(,)ՔB(,)L(,)V(,)`(,)j+t C(J) ,,,,x,,:~ "#6 DIE"LX1X:Y1YV iX1X :Y1Ys y TY1Y  TY1Y Tĕ "#5 DIE"֕X1X:Y1Y  FX1X :Y1Y F(X1X:Y1Y 2 T <*F T6PY1Y@Z TFdUn "#4 DIE"gxX1X:Y1Yq FX1X :Y1Y F "#3 DIE" Q  ˖X1XQ:Y1YQՖ Tݖ Q "#2 DIE"X1X:Y1Y T"X1X :Y1Y, T2A" "#1 DIE"T,X1X:Y1Y ^6 Td@qJ "DOTS"T FLAG  ^ (X1,Y1)h (X1,Y1)r (X1,Y1)Ǘ| (X1,Y1)͗ "ERASE DOTS" (X1,Y1) (X1,Y1) (X1,Y1)  (X1,Y1)&8:SCORE CARDG P  SCORE(K,P) v : SCORE$(P)()()() P P ۘ SCORE(K,P)   : SCORE$(P)()()() Pa ,: ) "[1]ONES ";()SCORE$()()"[A]3 OF A KIND";()SCORE$()()"LEFT TOTAL ";()SCORE$() ) "[2]TWOS ";()SCORE$()()"[B]4 OF A KIND";()SCORE$()()1& ) "[3]THREES";()SCORE$()()"[C]FULL HOUSE ";()SCORE$()()"BONUS ";()SCORE$()0 ) "[4]FOURS ";()SCORE$()()"[D]SM STRAIGHT";()SCORE$( )(): ) "[5]FIVES ";()SCORE$()()"[E]LG STRAIGHT";()SCORE$( )()"RIGHT TOTAL";()SCORE$()\D ) "[6]SIXES ";()SCORE$()()"[F]YAHTZEE ";()SCORE$( )()֛N ) "SUBTOTAL ";()SCORE$()()"[G]CHANCE ";()SCORE$( )()"GRAND TOTAL";()SCORE$()ܛXb ,IlMSG$()"PRESS CORRESPONDING [#]":MSG$()"OR [LETTER] KEY":MSG$()"TO SCORE YOUR ROLL":  \v F u J :D(J): J J :QC(J):D(Q)D(Q): JOPT$ OPT$"" ֜ F  ,:  *** MISTAKE ROUTINE*** J :XJ: FD C(J)E(J)< C(J)  : F tN JaJ:FD: D (OPT$) (OPT$) H OPT$"A"   OPT$"B"  ̝  OPT$"C" Z  OPT$"D"   OPT$"E"  * OPT$"F"  (4 OPT$"G"  2> lKH:*** LEFT SIDE ***kR TURN(K) SCORE(K,)\ TURN(K) MSG$()"LEFT SIDE COMPLETE":MSG$()"TRY AGAIN":  : v˞fDIE(OPT$)p DIE z,,,,,zDIE$"ONES": DIE$"TWOS": 3DIE$"THREES": JDIE$"FOURS": aDIE$"FIVES": xDIE$"SIXES": П SCORE(K,DIE) MSG$()("YOU'VE SCORED "DIE$):MSG$()"TRY AGAIN":  : v YAHTZEE  . D(DIE) ROLE$DIE$HSCORE(K,DIE)(DIED(DIE)):SCORE(K,)SCORE(K,)SCORE(K,DIE) SCORE(K,)? SCORE(K,) : SCORE(K,)#SCORE(K,)SCORE(K,)SCORE(K,)Ϡ SCORE(K,)SCORE(K,)SCORE(K,) TURN(K)TURN(K) TURN(K)   :***3 OF A KIND**8 ROLE$"THREE OF A Kind":ROU$ SCORE(K,RO) X o. YAHTZEE  ` }8 J B D(J) ` L JV  ` J šj ROLEROLEC(J)͡t Jס~  :***4 OF A KIND*** ROLE$"FOUR OF A KIND":RO. SCORE(K,RO) X F YAHTZEE  T J i D(J)  q J{  J  ROLEROLEC(J) J  â :***YAHTZEE***ݢ ROLE$"YAHTZEE":RO  SCORE(K,RO) X  J ( D(J) F %2 J/<  ;F ROLE2EP  ]Z :***FULL HOUSE***yd ROLE$"FULL HOUSE":ROn SCORE(K,RO) X x YAHTZEE   J ӣ D(J)  ۣ J壠  J  D(J)   J  ' ROLE 1  J :***SM STRAIGHT***p ROLE$"SMALL STRAIGHT":RO :ST SCORE(K,RO) X  ,  :***LG STRAIGHT***֤ ROLE$"LARGE STRAIGHT":RO :ST" SCORE(K,RO) X , STR6 YAHTZEE  r %@ J GJ D(J) STR : STRSTR\T STRST r d^ Jnh  r ST ROLE : ROLE(|  :***CHANCE***ť ROLE$"CHANCE":RO ⥕ SCORE(K,RO) X ROLE J  ROLEROLEC(J) J1 :***SCORE ROUTINE***F SCORE(K,RO)ROLEn SCORE(K,)SCORE(K,)ROLE:ROLE SCORE(K,)SCORE(K,)SCORE(K,) SCORE(K,)SCORE(K,)SCORE(K,) SCORE(K,) SCORE(K,)SCORE(K,) SCORE(K,) SCORE(K,)SCORE(K,)$ = :*** ZERO SCORE***S , : r, MSG$() "SCORE 0 IN ":MSG$()ROLE$"?":MSG$()" Y=YES"   ANS$$()֧ ANS$"Y" ANS$"y" l& RO  SCORE (K,RO): 0 : ***DELAY ROUTINE***7D DEL$: DEL$"" D =N ^X MSG$()"YOU ALREADY SCORED"b MSG$()ROLE$:MSG$()"TRY AGAIN":  l vv : 2 DIGIT FORMAT C$(SCORE(K,P))ި SCORE$(P)" "((C$,))䨔 :**3 DIGIT FORMAT**# SCORE(K,P) SCORE$(P)" 0"J SCORE(K,P) C$(SCORE(K,P))r SCORE(K,P) SCORE$(P)(C$,)x ***MESSAGE*** I ǩ ,(I): " "ͩ ۩ I  ,(I): MSG$(I):MSG$(I)""  . ,: "ARROWS TO CHOOSE DICE"U* ,: "SPACE BAR TO THROW AWAY"w4 ,: "RETURN TO REROLL":> I H A(I),B(I)R \ f L p I A(L)ʪz X,Y (X),Y: (B(L));: (I (dL)), ""   : G 9,89,16,65,16,72,11,84,15,90,15,69,15,69z 20,1,21,2,22,3,22,4,22,5,22,6,22,7,23,2,24,1Ы 28,7,28,6,28,5,28,4,28,3,28,2,29,1,30,1,31,2,31,3,31,4,31,5,31,6,31,7,29,4,30,4& 35,1,35,2,35,3,35,4,35,5,35,6,35,7,38,1,38,2,38,3,38,4,38,5,38,6,38,7,36,4,37,4c 44,1,44,2,44,3,44,4,44,5,44,6,44,7,42,1,43,1,45,1,46,1 49,1,50,1,51,1,52,1,53,1,53,2,52,3,51,4,50,5,49,6,49,7,50,7,51,7,52,7,53,7 60,1,59,1,58,1,57,1,57,2,57,3,57,4,57,5,57,6,57,7,58,7,59,7,60,7,58,4,59,4V 67,1,66,1,65,1,64,1,64,2,64,3,64,4,64,5,64,6,64,7,65,7,66,7,67,7,65,4,66,4`  YAHTZEE  : :: : $ DELAY : YAHTZEE   ­ "" $ȭѭ$: .MSG$()"YOU HAVE YAHTZEE":MSG$()("SCORE "(C())" IN "DIE$"?")E8MSG$()" Y=YES"OB  ^LANS$$()V ANS$"Y" ANS$"y" l`SCORE(K,DIE)C():SCORE(K,)SCORE(K,)SCORE(K,DIE)ԮjTURN(K)TURN(K)ޮt ~ I   ((()2)),((()))#0 ,= ],J I,W &,c ,i: "*MAXIMUM OF SIX PLAYERS"ݯ "*YOU GET THREE ROLLS AND ALL MUST BE TAKEN BEFORE YOU CAN SCORE YOUR ROLL"' "*IF YOU DISCARD A DIE BY MISTAKE, PRESS [M] TO GET YOUR ROLL BACK"` "*YOU MUST FILL EVERY CATEGORY ON YOUR SCORE CARD"  "*IF YOU SCORE TWO YAHTZEE`S AND DIDN`T TAKE A ZERO IN YAHTZEE, YOU CAN USE IT"հ ,"IN ANY BLANK CATEGORY" "[PRESS ANY KEY TO CONTINUE]"(ANS$2 ANS$ "" (!<'FC