******************1* FILL OR BUST 64*I* BY CHESSDUDE *Oc VA(54),PO(54) 53281,15:53280,15:PT0:P1 C1$"Ϸ":C4$" " C2$" ":D1$"Ϸ" C3$"̯":D3$"̯":D2$" " 6000:2000D 310:B0:E1$"":E2$" ":E3$" ":7000p "SHUFFLING....":200: SHUFFLE CARDS #220:500:8020 (P1 ) SC(P)GL8000 *""NA$(P)" ":BB1:B545000" +""17)" ":""17)"POINTS:"PT(P)" ":DD0j ,VA(B)400,420,440,160,120,100,170,140:VA(B)8XP(P)PT(P):PT(P)0 -""12)" ":""12)54B:3000:VA(B)72100 .VA(B)450 /""17)"NO DICE!! " 0I11000:I* 1""17)" ":PT(P)0:70L 2Z76:550: INITIAL DICE ROLLo 7700: INITIAL POINTS DECISION} 8Z7065 9PT(P)PT(P)PO(B):""17)"POINTS:"PT(P)" ":8200:VA(B)51000 :I11000:I ;""17)"TRY FOR MORE POINTS ?", <Q$:Q$""60D =Q$"Y"Q$"N"60 >Q$"N"SC(P)SC(P)PT(P):""17)" ":PT(P)0:""17)" ":70 ?Q$"Y"Z76:""17)" ":41 AZ0PT(P)0:70I B820:VA(B)6SC(P)SC(P)PT(P):PT(P)0] CPT(P)0:XP(P)0f EZ76z FSC(P)GL8000 GPP1:B545000 HPNPP1:41 I41 P40 d: MUST BUST CARD eC1$ fI12:" ":I gC2$&h" MUST ":C2$:" BUST! "/jC2$PkI12:" ":IYlC3$_mtx: FILL 100 CARDyC1$:C2$:C2$z" FILL "{" 1000 "|" FILL "}" 1000 "~I13:C2$:I:C3$: DOUBLE TROUBLE CARD$C1$:C2$EI12:" ":IY"DOUBLE!"n"TROUBLE""DOUBLE!"I12:" ":IC2$:C3$: NO DICE CARDC1$I19:"NO DICE":IC3$:: VENGEANCE CARDC1$?I13:" ":IU" SCREW "k" THE  "" LEADER"I13:" ":IC3$: SHUFFLE CARDSI1100A1((0)53)1:A2((0)53)1AVA(A1):VA(A1)VA(A2):VA(A2)A"I/I1100TA1((0)15)1:A2((0)15)39xAVA(A1):VA(A1)VA(A2):VA(A2)AII154VA(I)1PO(I)300VA(I)2PO(I)400VA(I)8PO(I)0VA(I)3PO(I)500VA(I)4PO(I)0VA(I)5PO(I)1000'VA(I)6PO(I)0<VA(I)7PO(I)0CIIR300[""oI111:C4$:Iu,"----------------------------------------";-" FILL OR BUST! "; ."----------------------------------------";16"""7300E8"HOW MANY PLAYERS (5 MAX)"j9"";NP:NP0NP5"":313;NP(NP)0"":313<""@I1NPA"PLAYER"I"'S NAME"B"";NA$(I)CID: BONUS 300 CARDC1$+I13:C2$:IA" BONUS "W" 300 "m" BONUS "I13:C2$:IC3$: BONUS 400 CARDC1$I13:C2$:I" BONUS "" 400 "" BONUS "I13:C2$:IC3$%;: BONUS 500 CARDDC1$WI13:C2$:Im" BONUS "" 500 "" BONUS "I13:C2$:IC3$""L10J13LL7:""L)D1$I13:L)D2$:I#L)D3$*J<L10:""GJ13[LL7:""gL)D1$}I13:L)D2$:IL)D3$J&I1Z7'DV(I)((1)6)1:DV(I)7551(I."":G180I1Z71DV(I)16002DV(I)2610!3DV(I)362034DV(I)4630E5DV(I)5640W6DV(I)6650n7I3G11:""x8GG79I:CC1CC0::J$:J$""580;"":G18<I16=G)E3$""E3$""E3$"">I3G11:""?GG7@I:CC1550A550*DCC1:571>XG)""E1$""D]]bG)E1$""E1$""cglG)E1$""E1$""E1$""qvG)E1$""E1$""E1$""E1$""{G)E2$""E1$""E2$""G)E2$""E2$""E2$"": POINTS DECISION@Z10:Z20:Z30:Z40:Z50:Z60:Z0Z""fI1Z7{DV(I)1Z1Z11II1Z7DV(I)2Z2Z21II1Z7DV(I)3Z3Z31II1Z7DV(I)4Z4Z41II1Z7DV(I)5Z5Z51"I.I1Z7CDV(I)6Z6Z61JIZ11Z21Z31Z41Z51Z61PT(P)PT(P)1500:Z6:""17)"SCORE:"PT(P):Z7Z7Z:8100Z70Z10750Z1217)"KEEP THE 3 ONES ? "Z13741Q$:Q$""737(Q$"Y"Q$"N"737]Q$"Y"PT(P)PT(P)1000:Z1Z13:ZZ3:Z10750kZ1373517)"KEEP ANY ONES ? "Q$:Q$""742Q$"Y"Q$"N"742Q$"N"Z10:750PT(P)PT(P)100:ZZ1:Z11750Z1217)"BOTH ONES ? ".Q$:Q$""747GQ$"Y"Q$"N"747iQ$"Y"PT(P)PT(P)100:ZZ1""Z50770Z5217)"KEEP THE 3 FIVES ? "Z53758Q$:Q$""754Q$"Y"Q$"N"754"Q$"Y"PT(P)PT(P)500:Z5Z53:ZZ3:7512Q$"N"758S17)"KEEP ANY FIVES ? "fQ$:Q$""759Q$"Y"Q$"N"759Q$"Y"PT(P)PT(P)50:ZZ1:Z51770Q$"N"770Z5217)"BOTH FIVES ? "Q$:Q$""764Q$"Y"Q$"N"764/Q$"Y"PT(P)PT(P)50:ZZ1I""WZ23780Z2217)"KEEP THE 3 TWOS ? "Q$:Q$""773Q$"Y"Q$"N"773Q$"Y"PT(P)PT(P)200:Z2Z23:ZZ3Q$"N"Z2Z23 Z23772 Z20 "") Z33790RZ3217)"KEEP THE 3 THREES ? "eQ$:Q$""783~Q$"Y"Q$"N"783Q$"Y"PT(P)PT(P)300:Z3Z33:ZZ3Q$"N"Z3Z33Z33782""Z43800 Z4217)"KEEP THE 3 FOURS ? "- Q$:Q$""793F Q$"Y"Q$"N"793p Q$"Y"PT(P)PT(P)400:Z4Z43:ZZ3 Q$"N"Z4Z43 Z43792 "" !Z63810 "Z6217)"KEEP THE 3 SIXES ? " #Q$:Q$""803!$Q$"Y"Q$"N"8038!%Q$"Y"PT(P)PT(P)600:Z6Z63:ZZ3L!&Q$"N"Z6Z63Z!'Z63802!*""17)"POINTS:"PT(P)" ":Z7Z7Z!+""!,17)" "!-Z017)"BUSTED!!.Z0816!/I11000:I"017)" "$"1?"4: ROLL AGAIN DECISIONY"9""p":VA(B)4900:835">17)"ROLL AGAIN ?""?Q$:Q$""831"@Q$"Y"Q$"N"831$#AQ$"N"SC(P)SC(P)PT(P):17)" ":""17)" ":PT(P)0:Z76:5#BQ$"Y"900@#CZ0S#DZ70Z76:57\#E825~#17)" "#I1Z7#DV(I)((1)6)1:DV(I)7911#I#"":G18#I16#G)E3$""E3$""E3$"" $I3G11:""$GG7$I0$"":G18<$I1Z7N$DV(I)1600`$DV(I)2610r$DV(I)3620$DV(I)4630$DV(I)5640$DV(I)6650$I3G11:""$GG7$I$CC1CC0:935$J$:J$""934%910%CC1:910&%: POINTS DECISION/%7005%L%VA(B)6Z76:900s%VA(B)6Z0SC(P)SC(P)PT(P):67%VA(B)6Z708200:1000%VA(B)6Z0900:1001%VA(B)71020%VA(B)81100%: VENGEANCE RESULT%I1NP&SC(I)LDSC(I)SC(I)2500*&SC(I)0SC(I)01&IO&SC(P)SC(P)PT(P):PT(P)0]&3000:59i&LDDDD1&QDD1""17)"FIRST FILL DONE!"&RDD11120&VDD2SC(P)SC(P)2PT(P)XP(P):PT(P)0:XP(P)0:59&`I1500:I'a""17)" ":50'I112&'VA(I)1-'I:'I1322F'VA(I)2M'IZ'I2330f'VA(I)3m'Iz'I3138'VA(I)4'I'I3944'VA(I)5'I'I4548'VA(I)6'I'I4952'VA(I)7'I'I5354(VA(I)8 (I(4(4: DECISION ON VEGEANCE CARDi(5""17)" "(6""17)"WANT THIS CARD ?"(9Q$:Q$""2105(:Q$"Y"Q$"N"2105 );Q$"Y"""17)" ":2110:N)<Q$"N"""17)" ":41[)>LDSC(1)g)?J2NP~)@SC(J)LDLDSC(J))AJ)C) "") I1NP) " ") I) ""* I1NP&* ""NA$(I)10)"SCORE:"SC(I)-* I6* ""<* a*"SHUFFLING....":PNPP1m*I111v*C4$}*I*""17)" ":""17)"TIME OUT!!!":200*" "+""NA$(P)" "?+B1:""17)" "E+K+x+p300:"WANT TO SEE THE RULES ? (Y/N)"+qQ$:Q$""6001+rQ$"Y"Q$"N"6001+sQ$"N"+tQ$"Y"""+u300;,z"THE GAME CONSISTS OF 6 DICE AND 54 DRAW CARDS. THE OBJECT OF THE GAME IS TO BE THE HIGHEST SCORER.",{""20)"YOU CAN PLAY TO A GOAL OF ANY NUMBER, FOR EXAMPLE, 5000 OR10000 POINTS. THE WINNER WILL BE THE FIRST TO REACH THE GOAL.",|"THERE ARE 6 DICE AND 54 DRAW CARDS:"-}" 12-300 PT. BONUS CARDS"6-~" 10-400 PT. BONUS CARDS"X-" 8-500 PT. BONUS CARDS"t-" 8-NO DICE CARDS"-" 6-FILL 1000 CARDS"-" 4-MUST BUST CARDS"-" 4-SCREW THE LEADER CARDS"-" 2-DOUBLE TROUBLE DOUBLE CARDS"*." ">.Q$:Q$""6022."RULE 1: YOU MUST TURN OVER A CARD BEFORE EACH TURN AND AFTER EACH 'FILL'.";."RULE 2: YOU MUST SCORE EVERY TIME YOU TOSS THE DICE."8/"RULE 3: AFTER EACH TOSS YOU MUST REMOVE SOME OR ALL OF THE SCORING DICE."/"IF YOU CAN CONTINUE TO SCORE ON EVERY TOSS OF THE DICE, AND YOU EVENTUALLY SETASIDE ALL SIX DICE, YOU HAVE SCORED A FILL."=0"AFTER SCORING A 'FILL', YOU CAN DECIDE TO TAKE THE POINTS SCORED DURING THAT TURN AND ADD THEN TO YOUR SCORE, ENDING"0"YOUR TURN. OR, YOU CAN TAKE A CHANCE ANDTRY TO SCORE MORE POINTS BY TURNING OVER"0"ANOTHER DRAW CARD AND START BY TOSSING ALL SIX DICE AGAIN."'1"THERE IS NO LIMIT TO THE NUMBER OF FILLSTHAT MAY BE SCORED IN A TURN.";1Q$:Q$""6032}1"IF ON ANY TOSS YOU DO NOT SCORE, THAT TOSS IS A 'BUST'.1"WHEN YOU BUST DURING A TURN, YOU LOSE ALL THE POINTS YOU SCORED IN THAT TURN. YOU DO NOT LOSE ANY POINTS THAT WERE"2"ALREADY ADDED TO YOUR SCORE."D2"AFTER A BUST, YOUR TURN ENDS."2" 1 FIVE = 50 PTS. 1 ONE = 100 PTS."2" 3 ONES = 1000 PTS. 3 TWOS = 200 PTS. 3 THREES = 300 PTS."g3" 3 FOURS = 400 PTS. 3 FIVES = 500 PTS. 3 SIXES = 600 PTS."3" STRAIGHT = 1500 PTS."3"A STRAIGHT IS A 1,2,3,4,5,6 ON A SINGLE TOSS."3Q$:Q$""6042T4"BONUS 300,400,500: YOU WILL RECEIVE THATAMOUNT OF POINTS ONLY IF YOU SCORE A FILL. YOU HAVE THE OPTION TO STOP BEFORE";4"MAKING THE FILL BUT YOU DON'T COLLECT THE BONUS POINTS."4"WHEN YOU DRAW A 'NO DICE' CARD YOU LOSE YOUR TURN. IF YOU DRAW THIS CARD AFTER A";D5"FILL DURING THAT SAME TURN THEN YOU LOSEALL THE POINTS COLLECTED THAT TURN."5"FILL 1000: YOU MUST SCORE A FILL. IF YOUSCORE A FILL THEN YOU RECEIVE 1000 PTS." 6"MUST BUST: YOU KEEP TOSSING THE DICE TILYOU BUST. YOU RECEIVE ALL THOSE POINTS AND YOUR TURN ENDS."h6"DOUBLE TROUBLE DOUBLE: YOU MUST SCORE 2 CONSECUTIVE FILLS. NO OPTION TO STOP. IF";6"YOU SUCCEED THEN YOU SCORE DOUBLE THE POINTS YOU COLLECTED THAT TURN. YOU MAY";6" CONTINUE YOUR TURN WITHOUT LOSING THOSE POINTS." 7Q$:Q$""60527"SCREW THE LEADER: YOU HAVE THE OPTION TOPLAY THIS CARD.YOU MUST SCORE A FILL. IFYOU SUCCEED THEN THE LEADER IS DEDUCTED"7"2500 PTS. IF THE LEADER'S SCORE FALLS BELOW 0 THEN IT BECOMES 0. ANYONE TIED"H8"WITH THE LEADER IS ALSO AFFECTED. YOU MAY CONTINUE WITHOUT LOSING THE POINTS YOU SCORED."8"NOTE: THE LUCK OF THE TOSS IS NOT THE ONLY FACTOR IN DETERMINING THE WINNER.";9"YOU MAY WANT TO REFUSE LOW SCORES LIKE 50 AND KEEP ONLY 100'S OR YOU MAY THINK";x9" ABOUT 'BURNING' CARDS TO GET TO THE SCREW CARD. THERE ARE A LOT OF STRATEGIES.";9" I HOPE YOU ENJOY THE GAME."::" CHESSDUDE"9"WANT TO REREAD THE RULES ? (Y/N)":Q$:Q$""6066":Q$"Y"Q$"N"60664:Q$"Y"6005B:Q$"N"Y:X"SCORE GOAL ";GLn:YGL0"":7000:ZGL(GL)0"":7000:[:@8300:AJ110:B"GAME OVER! "NA$(P)" WON!!! ":CI175:I;D" "-;EI1300:I4;FJ;J""17)"PLAY AGAIN ? (Y/N) ":""17)" ":""17)NA$(P)" WON!!!";KQ$:Q$""8011;LQ$"Y"Q$"N"8011;MQ$"Y";NQ$"N""":