A0:B0:C0:D0:E0:F0:G0:H0:I0:J0:K0:L0:M0:N0:A10:A20:A30:A40:A50:O2:X10:X20:X30:X40:X50:X60:X70:X80:Z0:XX0P10:P20:P30:P40:P50:P60:P70:P80:Q10:Q20:Q30:Q40:Q50:Q60:Q70:Q80:R10:R20:R30:R40:R50:R60:R70:R80S10:S20:S30:S40:S50:S60:S70:S80:T10:T20:T30:T40:T50:T60:T70:T80:U10:U20:U30:U40:U50:U60:U70:U80V10:V20:V30:V40:V50:V60:V70:V80:W10:W20:W30:W40:W50:W60:W70:W80:0,13:5,7R16:3,1:0,5:4,16:%:7600:0,7:5,16:4,160,1:5,16:0,7:1,7,10,"*************************":1,7,14,"*************************":1,7,11,"* *"1,7,13,"* *":1,7,12,"* HOW MANY PLAYERS? *":(7):A$ A$""7:ՋA$(13)71 P(A$):P4 P07:%:0,16:4,5K 0,1:5,12:(27)"M"v1,5,1,"1 2 3 4 5"1,3,2,"î î î î î"1,3,3,"        " (1,3,4,"         "2 21,3,5,"         "s <1,3,6,"ý ý ý ý ý":1500:1600:7000 A1500:1800 FA15:100: P1900:2000:A$""!ZA10:A20:A30:A40:A50:OO1:1900:2000:A10:A20:A30:A40:A50:O2:A$"":3000![N1X1X11%!\N2X2X216!]N3X3X31G!^N4X4X41[!_N1 X185700o!`N2 X285700!aN3 X385700!bN4 X485700!c65!d A 200,300,400,500,600!B((1)6)1:GB:X4:Y3:H((1)4)1:MH:710:8001",C((1)6)1:GC:X11:Y3:I((1)4)1:MI:720:800l"D((1)6)1:GD:X18:Y3:J((1)4)1:MJ:740:800"E((1)6)1:GE:X25:Y3:K((1)4)1:MK:760:800"XF((1)6)1:GF:X32:Y3:L((1)4)1:ML:780:800"M15,11#M25,15#M35,8#M45,6"#+#700=#BC MI200O#BD MJ200a#BE MK200s#BF ML200y##700#CD MJ300#CE MK300#CF ML300#CB MH300##700#DE MK400#DF ML400$DC MI400!$DB MH400'$0$700B$EF ML500T$ED MJ500f$EC MI500x$EB MH500~$$ 700$FE MK600$FD MJ600$FC MI600$FB MH600$$ G1900$*G21000$4G31100 %>G41200%HG51300(%RG61400Y%1,X,Y," ":1,X,Y1," ":1,X,Y2," ":%1,X,Y," ":1,X,Y1," ":1,X,Y2," ":%L1,X,Y," ":1,X,Y1," ":1,X,Y2," ":%1,X,Y," ":1,X,Y1," ":1,X,Y2," ":&1,X,Y," ":1,X,Y1," ":1,X,Y2," ":N&x1,X,Y," ":1,X,Y1," ":1,X,Y2," ":&5,12:1,4,3," ":1,4,4," ":1,4,5," "&1,11,3," ":1,11,4," ":1,11,5," "&1,18,3," ":1,18,4," ":1,18,5," "!'1,25,3," ":1,25,4," ":1,25,5," "W'1,32,3," ":1,32,4," ":1,32,5," ":'@1,0,7,"òòò"'J1,0,8," PLAYER #1PLAYER #2PLAYER #3PLAYER #4"'T1,0,9,""0(^1,0,10," STRT STRT STRT STRT "g(h1,0,11," FLUSH- FLUSH- FLUSH- FLUSH- "(r1,0,12," FOUR - FOUR - FOUR - FOUR - "(|1,0,13," HOUSE- HOUSE- HOUSE- HOUSE- " )1,0,14," FLUSH- FLUSH- FLUSH- FLUSH- "C)1,0,15," STRT - STRT - STRT - STRT - "z)1,0,16," THREE- THREE- THREE- THREE- ")1,0,17," 2PAIR- 2PAIR- 2PAIR- 2PAIR- ")1,0,18," FREE - FREE - FREE - FREE - "*1,0,19," SUB T- SUB T- SUB T- SUB T- "V*1,0,20," BONUS- BONUS- BONUS- BONUS- "*1,0,21," TOTAL- TOTAL- TOTAL- TOTAL- "*1,0,22,"ñññ"**NN1:NPN1* 5,8:&*N15,8:1810+N25,6:1810&+N35,11:18100+5,15l+1,1,24,"PLAYER"(N)", HIT ANY KEY TO ROLL THE DICE."+(7):A$:A$""1820:ՋA$(13)1820+&+lN15,8:1905+mN25,6:1905+nN35,11:1905+o5,157,q 1:1,1,24,"WHAT DICE FOR THROW"(O)"?"" ":X25:Y24:(7)M,v A$(13):A$i,:A$"1"A16:1,X,Y,A$,:A$"2"A212:1,X,Y,A$,:A$"3"A324:1,X,Y,A$,:A$"4"A448:1,X,Y,A$,:A$"5"A596:1,X,Y,A$,A$"0"1905-(A$)51905 -:XX2:-(-AA1A2A3A4A53-A0O-A62500: .95:200:l-A122600: .95:300:-A242700: .95:400:-A482800: .95:500:-A962900: .95:600:- A182500:2600: .9:200: .9:300:.A302500:2700: .9:200: .9:400:G. A542500:2800: .9:200: .9:500:t.*A1022500:2900: .9:200: .9:600:.4A362600:2700: .9:300: .9:400:.>A602600:2800: .9:300: .9:500:.HA1082600:2900: .9:300: .9:600:%/RA722700:2800: .9:400: .9:500:R/\A1202700:2900: .9:400: .9:600:/fA1442800:2900: .9:500: .9:600:/pA422500:2600:2700: .9:200: .9:300: .9:400:/zA842600:2700:2800: .9:300: .9:400: .9:500:40A1682700:2800:2900: .9:400: .9:500: .9:600:q0A1262500:2700:2900: .9:200: .9:400: .9:600:0A1142500:2600:2900: .9:200: .9:300: .9:600:0A662500:2600:2800: .9:200: .9:300: .9:500:'1A1562600:2800:2900: .9:300: .9:500: .9:600:d1A1502500:2800:2900: .9:200: .9:500: .9:600:1A1322600:2700:2900: .9:300: .9:400: .9:600:1A782500:2700:2800: .9:200: .9:400: .9:500:*2A1622500:2600:2800:2900: .9:200: .9:300: .9:500: .9:600:w2A1802600:2700:2800:2900: .9:300: .9:400: .9:500: .9:600:2A902500:2600:2700:2800: .9:200: .9:300: .9:400: .9:500:3A1742500:2700:2800:2900: .9:200: .9:400: .9:500: .9:600:]3A1382500:2600:2700:2900: .9:200: .9:300: .9:400: .9:600:3 A1862500:2600:2700:2800:2900: .9:200: .9:300: .9:400: .9:500: .9:600:3 5,12:1,4,3," ":1,4,4," ":1,4,5," ":/4( 5,12:1,11,3," ":1,11,4," ":1,11,5," ":k4 5,12:1,18,3," ":1,18,4," ":1,18,5," ":4 5,12:1,25,3," ":1,25,4," ":1,25,5," ":4T 5,12:1,32,3," ":1,32,4," ":1,32,5," ":4 N15,8:3005 5 N25,6:3005 5 N35,11:3005*5 5,15j5 1:1,1,24,"HOW DO YOU WANT IT SCORED? ":(7)z5 Z119::5 26);:A$5 A$"FREE"32005 A$"2"33005 A$"3"34005 A$"S"35005 A$"F"36005 A$"H"37006 A$"4"38006 A$"SF"39006N 3000-6 N13220;6 N23240I6 N33260W6 N43280f6 P1140006 X7:P11:T1BCDEF6 T110XX16 1,X,18,(T1):4820: 1:6 Q1140006 X17:Q11:U1BCDEF6 U110XX17 1,X,18,(U1):4820: 1:7 R11400027 X27:R11:V1BCDEFC7 V110XX1a7 1,X,18,(V1):4820: 1:p7 S1140007 X37:S11:W1BCDEF7 W110XX17 1,X,18,(W1):4820: 1:7 N133207 N233407 N333607 N433808 P214000!8 X7:P21:T2BCDEF:410008 P203000A8 T210XX1f8 1,X,17,(T2):T204820: 1:r8 4810:8 Q2140008 X17:Q21:U2BCDEF:41008 Q2030008 U210XX18 1,X,17,(U2):U204820: 1:8 4810:9 R214000#9% X27:R21:V2BCDEF:410029& R203000C9* V210XX1h9/ 1,X,17,(V2):V204820: 1:t90 4810:94 S21400099 X37:S21:W2BCDEF:41009: S2030009> W210XX19C 1,X,17,(W2):W204820: 1:9D 4810::H N13420:M N23440:R N33460-:W N43480<:\ P314000\:a X7:P31:T3BCDEF:4200k:b P303000|:f T310XX1:k 1,X,16,(T3):T304820: 1::l 4810::p Q314000:u X17:Q31:U3BCDEF:4200:v Q303000:z U310XX1"; 1,X,16,(U3):U304820: 1:.; 4810:=; R314000^; X27:R31:V3BCDEF:4200m; R303000~; V310XX1; 1,X,16,(V3):V304820: 1:; 4810:; S314000; X37:S31:W3BCDEF:4200; S303000; W310XX1$< 1,X,16,(W3):W304820: 1:0< 4810:>< N13520L< N23540Z< N33560h< N43580w< P414000< X7:P41:T4BCDEF10:4300< P403000< T410XX1< 1,X,15,(T4):T404820: 1:< 4810:< Q414000= X17:Q41:U4BCDEF10:4300-= Q403000>= U410XX1c= 1,X,15,(U4):U404820: 1:o= 4810:~= R414000= X27:R41:V4BCDEF10:4300= R403000= V410XX1= 1,X,15,(V4):V404820: 1:= 4810:> S414000&>X37:S41:W4BCDEF10:43005>S403000F>W410XX1k> 1,X,15,(W4):W404820: 1:w> 4810:>N13620>N23640>N33660>N43680>$P514000>)X7:P51:T5BCDEF25:4400>*P503000?.T510XX1&?31,X,14,(T5):T504800: 1:2?44810:A?8Q514000e?=X17:Q51:U5BCDEF25:4400t?>Q503000?BU510XX1?G1,X,14,(U5):U504800: 1:?H4810:?LR514000?QX27:R51:V5BCDEF25:4400?RR503000 @VV510XX1.@[1,X,14,(V5):V504800: 1::@\4810:I@`S514000m@eX37:S51:W5BCDEF25:4400|@fS503000@jW510XX1@o1,X,14,(W5):W504800: 1:@p4810:@tN13720@yN23740@~N33760@N43780AP614000(AX7:P61:T6BCDEF50:45007AP603000HAT610XX1mA1,X,13,(T6):T604800: 1:yA4810:AQ614000AX17:Q61:U6BCDEF50:4500AQ603000AU610XX1A1,X,13,(U6):U604800: 1:A4810: BR6140000BX27:R61:V6BCDEF50:4500?BR603000PBV610XX1uB1,X,13,(V6):V604800: 1:B4810:BS614000BX37:S61:W6BCDEF50:4500BS603000BW610XX1B1,X,13,(W6):W604800: 1:C4810:CN13820!CN23840/CN33860=CN43880LCP714000fCX6:P71:T7100:4600uCP703000CT710XX2C1,X,12,(T7)C5,12:1,6,12,"-":T704800: 1:C4810:CQ714000CX16:Q71:U7100:4600DQ703000D U710XX2)D1,X,12,(U7)SD5,12:1,16,12,"-":U704800: 1:_D4810:nDR714000DX26:R71:V7100:4600DR703000DV710XX2D#1,X,12,(V7)D$5,12:1,26,12,"-":V704800: 1:D%4810:E(S714000E-X36:S71:W7100:4600*E.S703000;E2W710XX2ME71,X,12,(W7)wE85,12:1,36,12,"-":W704800: 1:E94810:E<N13920EAN23940EFN33960EKN43980EPP814000EUX6:P81:T8250:4700EVP803000FZT810XX2F_1,X,11,(T8)?F`5,12:1,6,11,"-":T804900: 1:KFa4810:ZFdQ814000uFiX16:Q81:U8250:4700FjQ803000FnU810XX2Fs1,X,11,(U8)Ft5,12:1,16,11,"-":U804900: 1:Fu4810:FxR814000G}X26:R81:V8250:4700G~R803000'GV810XX29G1,X,11,(V8)cG5,12:1,26,11,"-":V804900: 1:oG4810:~GS814000GX36:S81:W8250:4700GS803000GW810XX2G1,X,11,(W8)G5,12:1,36,11,"-":W804900: 1:H4810:HN15,8:4030)HN25,6:4030>HN35,11:4030HH5,15H1,1,24,"YOU CAN'T USE THAT AGAIN ! ":1,1000,30,,,,2,50: 1:3000HBC BD BE BF CD CE CF DE DF EF4110H 5000HBC BD BE IBC BD BFIBD BE BF4IBC BE DFIICD CE CFYIBC DEiIBC DFyIBC EFIBD CEIBD CFIBD EFIBE CDIBE CFIBE DFIBF CDIBF CE JBF DEJBF DF)J CD EF9J!CE DFIJ"CF DESJ#5000JhBC BD BE BF CD CE CF DE DF EF4210Jm5100JrBC BDJsBC BEJtBC BFJuBD BEJvBD BFJwBE BFKxCD CEKyCD CF(KzCE CF8K{DE DFBK|5100}KBC BD BE BF CD CE CF DE DF EF5200KBCDEF15KBCDEF20K5200K0HI HJ HK HL IJ IK IL JK JL KLK55300,LBC BD BE BF CD CE CF DE DF EF45106L5400KLBC BD EF`LBC BE DFuLBC BF DELBD BE CFLBD BF CELBE BF CDLCD CE BFLCD CF BELCE CF BDMDE DF BCM5400'MBC BD BE, OR SCORE 0 ? "P(7):A$:A$""5010:ՋA$(13)5010PA$"Y"5050QA$"N"5030:5010#QN1T20:3QN2U20:CQN3V20:SQN4W20:cQN1P20:sQN2Q20:QN3R20:QN4S20:R1,1,24,"YOU DO NOT HAVE THREE OF A KIND ! ":1,1000,30,,,,2,50: 1:1,1,24,"TRY AGAIN , OR SCORE 0 ? "=R(7):A$:A$""5110:ՋA$(13)5110NRA$"Y"5150eRA$"N"5130:5110uR N1T30:RN2U30:RN3V30:RN4W30:RN1P30:R(N2Q30:R2N3R30:R<N4S30:dSP1,1,24,"YOU DO NOT HAVE A STRAIGHT ! ":1,1000,30,,,,2,50: 1:1,1,24,"TRY AGAIN , OR SCORE 0 ? "SZ(7):A$:A$""5210:ՋA$(13)5210SdA$"Y"5250SiA$"N"5230:5210SnN1T40:SsN2U40:SxN3V40:S}N4W40:TN1P40:TN2Q40:'TN3R40:7TN4S40:T1,1,24,"YOU DO NOT HAVE A FLUSH ! ":1,1000,30,,,,2,50: 1:1,1,24,"TRY AGAIN , OR SCORE 0 ? "T(7):A$:A$""5310:ՋA$(13)5310TA$"Y"5350 UA$"N"5330:5310UN1T50:)UN2U50:9UN3V50:IUN4W50:YUN1P50:iUN2Q50:yUN3R50:UN4S50:V1,1,24,"YOU DO NOT HAVE A FULL HOUSE ! ":1,1000,30,,,,2,50: 1:1,1,24,"TRY AGAIN , OR SCORE 0 ? "3V"(7):A$:A$""5410:ՋA$(13)5410DV,A$"Y"5450[V1A$"N"5430:5410kV6N1T60:{V;N2U60:V@N3V60:VEN4W60:VJN1P60:VTN2Q60:V^N3R60:VhN4S60:ZW|1,1,24,"YOU DO NOT HAVE FOUR OF A KIND ! ":1,1000,30,,,,2,50: 1:1,1,24,"TRY AGAIN , OR SCORE 0 ? "W(7):A$:A$""5510:ՋA$(13)5510WA$"Y"5550WA$"N"5530:5510WN1T70:WN2U70:WN3V70:WN4W70:WN1P70: XN2Q70:XN3R70:-XN4S70:X1,1,24,"YOU DO NOT HAVE A STRAIGHT FLUSH ! ":1,1000,30,,,,2,50: 1:1,1,24,"TRY AGAIN , OR SCORE 0 ? "X(7):A$:A$""5610:ՋA$(13)5610XA$"Y"5650XA$"N"5630:5610YN1T80:YN2U80:/YN3V80:?Y N4W80:OYN1P80:_YN2Q80:oY&N3R80:Y0N4S80:YDN15800YXN25900YlN36000Y6100ZX1T1T2T3T4T5T6T7T8:X11005,12:1,7,19,(X1):4820: 1:5,8:58151Z5,12:1,6,19,(X1):1,6,19,"-":4820: 1:Z5,8ZX11501,1,24,"CONGRATULATIONS, PLAYER"(N)" ! ":4800: 1:1,1,24,"YOU WIN A BONUS ROUND ! ":5810Z5,8:5815;[(7): 2:1500:1805:A15:100::1900:2000:A$"":A10:A20:A30:A40:A50:OO1:1900:2000:5850j[5820:5,11:X50:1,8,20,(X5):5,12:4810[X5X5X1:X51001,7,21,(X5):5,8:4820: 1:5831[1,6,21,(X5):1,6,21,"-":5,8:4820: 1:5,8:5831Y\1,1,24,"SORRY, PLAYER"(N)" ! ":4810: 1:1,1,24,"YOU DON'T WIN A BONUS ROUND THIS TIME !":(7)\ 2:1,1,24,"BETTER LUCK NEXT TIME, KIDDO ! ":(7)\ 2:\P16700:65\A10:A20:A30:A40:A50:O2:A$""\X5(BCDEF)5:5,11!]X51001,7,20,(X5):4800: 1:5863O]1,6,20,(X5):5,12:1,6,20,"-":4800: 1]5,12:X5X5X1:1,6,21,(X5):1,6,21,"-":4820: 2]5,8]P16700:65] X2U1U2U3U4U5U6U7U8:X21005,12:1,17,19,(X2):4820: 1:5,6:5915 ^ 5,12:1,16,19,(X2)+^1,16,19,"-":5,6:4820: 1^X21501,1,24,"CONGRATULATIONS, PLAYER"(N)" ! ":4800: 1:1,1,24,"YOU WIN A BONUS ROUND ! ":5910^5,6:5915,_(7): 2:1500:1805:A15:100::1900:2000:A$"":A10:A20:A30:A40:A50:OO1:1900:2000:5950\_5920:5,11:X60:1,18,20,(X6):5,12:4810_X6X6X2:X61001,17,21,(X6):5,6:4820: 1:5931_1,16,21,(X6):1,16,21,"-":5,6:4820: 1:5,6:5931N` 1,1,24,"SORRY, PLAYER"(N)" ! ":4810: 1:1,1,24,"YOU DON'T WIN A BONUS ROUND THIS TIME !":(7)`% 2:1,1,24,"BETTER LUCK NEXT TIME, KIDDO ! ":(7)`* 2:`+P26200:65`>A10:A20:A30:A40:A50:O2:A$""`HX6(BCDEF)5:5,11aIX61001,17,20,(X6):5,12:4800: 1:5963SaJ1,16,20,(X6):5,12:1,16,20,"-":5,12:4800: 1oaKX6X6X2:1,16,21,(X6)aL1,16,21,"-":4820: 2aM5,6:P26200:65apX3V1V2V3V4V5V6V7V8:X31005,12:1,27,19,(X3):4820: 1:5,11:6015 bq5,12:1,26,19,(X3)-br1,26,19,"-":5,11:4820: 1bsX31501,1,24,"CONGRATULATIONS, PLAYER"(N)" ! ":4800: 1:1,1,24,"YOU WIN A BONUS ROUND ! ":6010bt5,11:6015/cz(7): 2:1500:1805:A15:100::1900:2000:A$"":A10:A20:A30:A40:A50:OO1:1900:2000:6050_c6020:5,11:X70:1,28,20,(X7):5,12:4810cX7X7X3:X71001,27,21,(X7):5,11:4820: 1:6031c1,26,21,(X7):1,26,21,"-":5,11:4820: 1:5,11:6031Td1,1,24,"SORRY, PLAYER"(N)" ! ":4810: 1:1,1,24,"YOU DON'T WIN A BONUS ROUND THIS TIME !":(7)d 2:1,1,24,"BETTER LUCK NEXT TIME, KIDDO ! ":(7)d 2:dP36200:65dA10:A20:A30:A40:A50:O2:A$""dX7(BCDEF)5:5,11#eX71001,27,20,(X7):5,12:4800: 1:6063Se1,26,20,(X7):5,12:1,26,20,"-":4800: 1oeX7X7X3:1,26,21,(X7)e1,26,21,"-":4820: 2e5,11:P36200:65eX4W1W2W3W4W5W6W7W8:X41005,12:1,37,19,(X4):4820: 1:5,15:6115 f5,12:1,36,19,(X4).f1,36,19,"-":5,15:4820: 1fX41501,1,24,"CONGRATULATIONS, PLAYER"(N)" ! ":4800: 1:1,1,24,"YOU WIN A BONUS ROUND ! ":6110f5,15:61150g(7): 2:1500:1805:A15:100::1900:2000:A$"":A10:A20:A30:A40:A50:OO1:1900:2000:6150`g6120:5,11:X80:1,38,20,(X8):5,12:4810gX8X8X4:X81001,37,21,(X8):5,15:4820: 1:6131g1,36,21,(X8):1,36,21,"-":5,15:4820: 1:5,15:6131Uh1,1,24,"SORRY, PLAYER"(N)" ! ":4810: 1:1,1,24,"YOU DON'T WIN A BONUS ROUND THIS TIME !":(7)h 2:1,1,24,"BETTER LUCK NEXT TIME, KIDDO ! ":(7)h 2:h6200hA10:A20:A30:A40:A50:O2:A$""hX8(BCDEF)5:5,11iX81001,37,20,(X8):5,12:4800: 1:6163Li1,36,20,(X8):5,12:1,36,20,"-":4800: 1hiX8X8X4:1,36,21,(X8)i1,36,21,"-":4820: 2i8X8X7 X8X6 X8X55,15:6300iLX7X6 X7X55,11:6400i`X6X55,6:6500ieP16600ij 2:6700uj5,15:1,1,24,"CONGRATULATIONS, PLAYER #4 ! ":4900: 1:1,1,24,"YOU WIN THE GAME ! ":(7)j 2:6700j5,11:1,1,24,"CONGRATULATIONS, PLAYER #3 ! ":4900: 1:1,1,24,"YOU WIN THE GAME ! ":(7) k2 2:6700kd5,6:1,1,24,"CONGRATULATIONS, PLAYER #2 ! ":4900: 1:1,1,24,"YOU WIN THE GAME ! ":(7)k 2:6700l5,8:1,1,24,"CONGRATULATIONS, PLAYER #1 ! ":4900: 1:1,1,24,"YOU WIN THE GAME ! ":(7)l 2:6700_l, 1:1,1,24,"DO YOU WANT TO PLAY ANOTHER GAME ?":(7)l6A$:A$""7610:ՋA$(13)6710l@A$"Y"R1:1lAA$"N"6725:6710lE1,1,24," SO BE IT ! ! ! ":(7): 2mJ0,1:X140mTY((1)15)1)m^Z((1)20)10009mh0,Y:4,Y1fmr1,Z,1::1,20000,15,,,,3:0,1:4,1:5,1lm|zmXP17100mlP27200mP37300m7400m5,8:X1:7500m5,8:1,9,8,"1":5,12mX19:Y1121:1,X,Y,"0": nX29:Y1121:1,X,Y,"0":*nX39:Y1121:1,X,Y,"0":0nCn 5,8:X1:7500Wn*5,8:1,9,8,"1"knR5,6:X11:7500n\5,6:1,19,8,"2":5,12nfX29:Y1121:1,X,Y,"0":npX39:Y1121:1,X,Y,"0":nzn5,8:X1:7500n5,8:1,9,8,"1"o5,6:X11:7500o5,6:1,19,8,"2"/o5,11:X21:7500Ko5,11:1,29,8,"3":5,12joX39:Y1121:1,X,Y,"0":poo5,8:X1:7500o5,8:1,9,8,"1"o5,6:X11:7500o5,6:1,19,8,"2"o5,11:X21:7500o5,11:1,29,8,"3"p$5,15:X31:7500p85,15:1,39,8,"4"pBppL1,X,8,"PLAYER #":1,X,10,"STRT":1,X,11,"FLUSH":1,X,12,"FOUR":1,X,13,"HOUSE"pV1,X,14,"FLUSH":1,X,15,"STRT":1,X,16,"THREE":1,X,17,"2PAIR":1,X,18,"FREE":5,11:1,X,20,"BONUS":7q7670:1,2:1,8,22,"WRITTEN BY LOUIS AVANZI":1,5,23,"RELEASED TO THE PUBLIC DOMAIN": 3Kq&:1,15:X19q X 7700,7800,7900,8000,8100,8200,8300,8400,8500q 1:0,1:5,16:0,15"r1,4,10,"*********************************":1,4,11,"* *":1,4,13,"* *"Rr1,4,14,"*********************************"r1,4,12,"* DO YOU NEED INSTRUCTIONS? *":(7):A$rA$""7635:ՋA$(13)7635rA$"N"rA$"Y"8600:7635rY16:X2410828s1,12:1,X,Y,X23,Y63s1,X2,Y4,X21,Y59/s1,X1,Y1,1:EsY96:X1212428Zs1,X,Y,X23,Y63ss1,X2,Y4,X21,Y59s1,X1,Y1,1:sY24:X2811228s1,X,Y,X15,Y47,,1:sY104:X1612828s1,X,Y,X15,Y47,,1:sEt1,7,3,"":1,7,4,"°":1,7,5,"":1,7,6,"":1,7,7,"­":1,7,8,""Yt1,36,34,1:50qt#"V1O6T9QB#AA#G":tx1,14,3,"î":1,14,4,"":1,14,5," ":1,14,6," ":1,14,7,"":1,14,8,"ý"t1,64,34,1t"V1O5T9QB#AA#G":Tu1,21,3,"":1,21,4,"":1,21,5,"­":1,21,6,"°":1,21,7,"":1,21,8,""cu1,92,34,1{u"V1O6T9QB#AA#G":u@1,28,3,"î":1,28,4,"°ý":1,28,5,"­ ":1,28,6,"° ":1,28,7,"­î":1,28,8,"ý"uJ1,120,34,1vO"V1O5T9QB#AA#G":_v1,4,13,"":1,4,14,"°":1,4,15,"­":1,4,16,"°":1,4,17," ":1,4,18," "v1,24,114,1:"V1O6T9WCV2O5T9WCV3O4T9WC":v 1,11,13,"":1,11,14,"":1,11,15,"":1,11,16,"":1,11,17,"":1,11,18,""!w 1,52,114,1:"V1O6T9WDV2O5T9WDV3O4T9WD":wl 1,18,13,"":1,18,14," ":1,18,15," ":1,18,16," ":1,18,17," ":1,18,18,""wv 1,77,11977,12381,111w 1,77,13677,13181,144w 1,85,11179,12785,144x 1,75,120,1:"V1O6T9WEV2O5T9WEV3O4T9WE":lx 1,25,13,"î":1,25,14,"°ý":1,25,15,"­ ":1,25,16,"° ":1,25,17,"­î":1,25,18,"ý"x 1,108,114,1:"V1O6T9WFV2O5T9WFV3O4T9WF":y4!1,32,13,"":1,32,14,"°":1,32,15,"­":1,32,16,"°":1,32,17," ":1,32,18,""y>!1,141,144139,132(yH!1,136,114,1XyR!1,140,144,1:"V1O6T9WGV2O5T9WGV3O4T9WG":by\!7620y!0,1:0,12:4,12:%:X55296:8650y!X1024:8675y!X56256:8650y!X1984:8675y!Y3:X553365621640:X,Y:X39,Yy!YY1:8651: z!X1064194440z!X,160"z!X39,1601z!:&:8700Xz!Y4:ZXX39:Z,Y:YY1:8651::hz!Y5Y14:xz!Y15Y3:z!Y4Y5:z!Y6Y13:z!Y14Y8:z!Y9Y7:z!Y8Y4:z!ZXX39z!Z,160z!:7{!5,9:1,9,4,"DICE POKER IS A 1 TO 4":5,8:1,8,5,"PLAYER GAME THAT COMBINES"{"5,14:1,7,6,"THE STRATEGY OF DRAW POKER":5,6:1,5,7,"WITH THE LUCK OF A DICE THROW."{"5,4:1,4,8," IN A 1 PLAYER GAME, YOU DO":5,15:1,5,9,"NOT PLAY AGAINST THE COMPUTER."T|"5,5:1,3,10,"THE OBJECT IS TO BETTER YOUR SCORE":5,15:1,6,11,"BY STRATEGY RATHER THAN LUCK."|$"5,4:1,7,12,"THIS SAME LOGIC HOLDS TRUE":5,6:1,6,13,"FOR THE 2 TO 4 PLAYER GAMES."}."5,14:1,9,14,"A LUCKY THROW DOES NOT":5,8:1,8,15,"ALWAYS INSURE A VICTORY!"a}8"5,9:1,5,16,"YOU MUST USE STRATEGY AS WELL.":5,2:1,8,20,"HIT ANY KEY TO CONTINUE.":(7)}B"A$:A$""8770:ՋA$(13)8770}L"5,9:1,9,4," BEFORE THE START OF ":5,8:1,7,5,"THE GAME YOU WILL BE ASKED,"4~V"5,14:1,7,6," 'HOW MANY PLAYERS?'. ":5,6:1,5,7," ENTER A NUMBER FROM 1 TO 4 "~`"5,4:1,7,8," BUT DO NOT HIT ! ":5,15:1,2,9," THE GAME CONSISTS OF "j"5,5:1,3,10," 8 TURNS FOR EACH PLAYER. ":5,15:1,5,11,"PLAYERS, IN TURN, ROLL THE DICE"`t"5,4:1,4,12,"WITH THE OPTION TO REROLL TWICE.":5,6:1,6,13," EACH TURN COUNTS, WHETHER "~"5,14:1,5,14,"YOU HAVE A SCORING HAND OR NOT!":5,8:1,3,15,"YOU ONLY GET 1 FREE SCORE PER GAME.")"5,9:1,5,16,"STRATEGY IS THE KEY TO VICTORY!":1,5,17,"-------- -- --- --- -- --------":5,2w"1,8,20,"HIT ANY KEY TO CONTINUE.":(7):A$:A$""8850:ՋA$(13)8850Ӏ"5,9:1,7,4,"DURING GAME PLAY, THERE ARE":5,8:1,5,5,"4 MAIN PROMPTS AND 1 SECONDARY." "5,14:1,4,6,"THE FIRST PROMPT WILL TELL YOU TO":5,6a"1,5,7,"'HIT ANY KEY TO ROLL THE DICE.'":5,4:1,8,8,"HIT A KEY AND THE 5 DICE"Á"5,15:1,6,9,"AT THE TOP OF THE SCREEN WILL":5,5:1,4,10,"DISPLAY THE RESULTS FOR ROLL # 1."'"5,5:1,5,11," THE SECOND PROMPT WILL ASK, ":5,15:1,4,12," 'WHAT DICE FOR THROW 2?' ""5,4:1,3,13," YOU CAN REROLL ALL 5, NONE, OR":5,6:1,2,14," ANY COMBINATION OF DICE. ""5,14:1,3,15," ENTER 1, 2, 3, 4, AND/OR 5 ":5,8:1,3,16," AND HIT . IF YOU "_"5,9:1,2,17," WANT NONE, JUST HIT . ":5,2:1,8,20,"HIT ANY KEY TO CONTINUE":(7)"A$:A$""8930:ՋA$(13)8930"5,9:1,4,4," THE THIRD PROMPT WILL ASK, ":5,8:1,2,5," 'WHAT DICE FOR THROW 3?' FOLLOW "O#5,14:1,3,6,"THE SAME INSTRUCTIONS FOR ROLL #2.":5,6:1,4,7," THE FOURTH PROMPT WILL ASK, " #5,4:1,4,8," 'HOW DO YOU WANT IT SCORED?' ":5,15:1,4,9," ASSUMING YOU UNDERSTAND "#5,5:1,4,10," THE RULES OF POKER, IF YOU ":1,4,11," HAVE A STRAIGHT FLUSH, TYPE IN "w#5,15:1,4,12," 'SF', HIT , ":5,4:1,3,13," AND THE COMPUTER WILL AWARD YOU "ޅ(#5,6:1,4,14," 250 POINTS. IF YOU HAVE ":5,14:1,4,15," FOUR OR A KIND, TYPE IN '4', "B2#5,8:1,4,16," HIT , AND THE COMPUTER ":5,9:1,4,17," WILL AWARD YOU 100 POINTS. "<#5,2:1,8,20,"HIT ANY KEY TO CONTINUE.":(7):A$:A$""9020:ՋA$(13)9020F#5,9:1,3,3,"IF YOU HAVE A FULL HOUSE, TYPE IN":5,8:1,3,4," 'H', HIT , AND THE "aP#5,14:1,3,5,"COMPUTER WILL AWARD YOU 50 POINTS+ ":5,4:1,3,7," IF YOU HAVE A FLUSH, TYPE IN "U#5,6:1,3,6,"THE TOTAL FACE VALUE OF THE DICE. "Z#5,15:1,3,8," 'F', HIT , AND THE ":5,15:1,3,9,"COMPUTER WILL AWARD YOU 25 POINTS+ "fd#5,5:1,3,10,"THE TOTAL FACE VALUE OF THE DICE.":5,5:1,3,11," IF YOU HAVE A STRAIGHT, TYPE IN "шn#5,15:1,3,12," 'S', HIT , AND THE ":5,15:1,3,13,"COMPUTER WILL AWARD YOU 10 POINTS+ "9x#5,4:1,3,14,"THE TOTAL FACE VALUE OF THE DICE.":5,6:1,3,15,"IF YOU HAVE THREE OF A KIND, TYPE "#5,14:1,3,16," IN '3', HIT , AND THE ":5,8:1,3,17," COMPUTER WILL AWARD YOU "#5,9:1,3,18,"THE TOTAL FACE VALUE OF THE DICE.":1,8,20," ":(7)L#5,2:1,8,21,"HIT ANY KEY TO CONTINUE.":A$:A$""9100:ՋA$(13)9100#5,9:1,3,3," IF YOU HAVE TWO PAIR, TYPE IN ":5,8:1,3,4," '2', HIT , AND "#5,14:1,3,5," THE COMPUTER WILL AWARD YOU THE ":5,6:1,3,6," TOTAL FACE VALUE OF THE DICE. "#5,4:1,3,7," KEEP IN MIND, YOU CAN ONLY SCORE ":5,15:1,4,8," ONCE FOR EACH HAND PER GAME, "㋴#1,3,9," WHETHER YOU MAKE A HAND OR NOT! ":5,5:1,3,10," FOR THIS REASON, EACH PLAYER "G#1,3,11," IS GIVEN ONE FREE SCORE. ":5,15:1,3,12," YOU CAN USE YOUR FREE SCORE "#1,3,13," WHENEVER YOU LIKE, BUT IT'S BEST ":5,4:1,3,14," TO WAIT UNTIL YOU ABSOLUTELY "#5,6:1,3,15," NEED IT. TO USE YOUR FREE SCORE, ":5,14:1,3,16,"TYPE IN 'FREE', HIT , AND "{#5,8:1,3,17," THE COMPUTER WILL AWARD YOU ":5,9:1,3,18,"THE TOTAL FACE VALUE OF THE DICE. "#(7):A$:A$""9190:ՋA$(13)9190#1,3,3," ":5,9:1,3,4," ONCE YOU USE YOUR FREE SCORE "m#5,8:1,3,5," AND YOU CAN'T SCORE A HAND, ":5,14:1,3,6," YOU MUST TAKE A '0' SCORE "ӎ$5,6:1,3,7," SOMEWHERE ON YOUR SCORECARD. ":5,4:1,3,8," JUST TYPE IN THE APPROPRIATE ";$5,15:1,3,9," KEYWORD ACCORDING TO THE ":5,5:1,3,10," PREVIOUS INSTRUCTIONS AND THE "$5,15:1,3,11," COMPUTER WILL RESPOND WITH, ":5,4:1,3,12," 'TRY AGAIN , OR SCORE 0 ?' ""$5,6:1,3,13," THE 'TRY AGAIN' FEATURE IS FOR ":5,14:1,3,14," YOUR PROTECTION IN CASE OF ERROR. "w,$5,8:1,3,15," HIT , AND THE COMPUTER WILL ":5,9:1,3,16," PLACE A '0' ON YOUR SCORECARD. "Ր6$1,3,17," ":1,3,18," "$@$5,2:1,8,20,"HIT ANY KEY TO CONTINUE.":1,8,21," "OJ$(7):A$:A$""9290:ՋA$(13)9290T$5,9:1,3,4," AT THE END OF THE GAME, THE ":5,8:1,3,5," COMPUTER WILL ADD UP THE SCORES "^$5,14:1,3,6," AND GIVE YOU A SUBTOTAL 'SUB T'. ":5,6:1,3,7," IF YOUR SUBTOTAL EXCEEDS "h$5,4:1,3,8," 150 POINTS, YOU WILL ":5,15:1,3,9," BE GIVEN A BONUS TURN. "r$5,5:1,3,10," THIS TURN SCORES AS 5 TIMES THE ":5,15:1,3,11," TOTAL FACE VALUE OF THE DICE. "T|$5,4:1,3,12," THE COMPUTER WILL THEN ANNOUNCE ":5,6:1,3,13," THE WINNER OF THE GAME "$5,14:1,3,14," ( 2-4 PLAYER GAMES ONLY ), ":5,8:1,3,15,"AND GIVE A PROMPT FOR A NEW GAME. ""$5,9:1,3,16," GOOD LUCK, KIDDO !!! ":5,2:1,5,20,"HIT ANY KEY TO START THE GAME."M$(7):A$:A$""9370:ՋA$(13)9370S$