WRITTEN BY GREG W. DAVIS? SPRITE DICE ROLL ROUTINE^ WRITTEN BY RICHARD DAVIS OK TO COPY BUT NOT TO BE SOLD ALL RIGHTS RESERVED 1984 READ IN SPRITE DATAH(12),Q(378):H4$"4":H6$"6":H8$"8":H1$"10"53280,0 (646,15 2"PLEASE WAIT READING SPRITE DATA"B <S0377O FQ(S):S^ P200:1470o Z TIME DELAY dT11500:T1: n REMOVE LINE BETS xI410:L(I)0:I: REMOVE PLACE BETS I410:P(I)0:I: CHECK BET FOR LIMITS$ "INIMUM BET IS $"U", AGAIN---":Q "ABLE LIMIT IS $"T". GAIN, PLEASE!":z "OO MUCH. VAILABLE NOW: $"NBET: DICE ROLL NM12 N(NM)((1)6)1:NM SPRITE DICE ROLL (147) N(1)1S062:832S,Q(S):S:300 S1(N(1)1)631 S062( S1S119 832S,Q(S1)@ "Sh ,N(2)1S062:896S,Q(S):S:360} 6S1(N(2)1)631 @S062 JS1S11 T896S,Q(S1) ^S h""; r(142) |V53248 2040,13 2041,14 V40,1 V39,1 530 T1120 # / T1155 ; H T1140N T b 1154,127k 500x &1154,32 01194,255 :500 D1194,32 N1234,127 X500 b1234,32 l1274,255 v500 1274,32 1313,208 500 1313,32 1314,32# 1353,2081 1354,208: 500G 1353,32T 1354,32b 1392,208p 1395,208y 500 1392,32 1395,32 1432,160 1435,160 *500 41432,32 >1435,32 H1471,160 R1476,160 \500f1471,32p1476,32z1511,160-1516,1606500C1511,32P1516,32^1550,160l1557,160u5001550,321557,321590,2271597,2274701590,1971597,1974701590,196$1597,196.470 81590,192B1597,192#L4701V1590,195?`1597,195Hj470Vt1590,198d~1597,198m470{1590,2101597,2104701590,981597,984401590,321597,32V21,3V,62V1,170V2,127  V3,170T11100 *(V,7072V1,185D<V2,127QFV3,175]PV23,3iZV29,3|dT112000:T1nV21,0x KEEP TRACK OF HITSDN(1)N(2)H(D)H(D)1(14);"" BEGIN GAME(14)""13)"Ҡ"110)"T'S GAMBLING TIME!!"W7)",LOSER,LET'S PLAY !"o SET ALL BETS TO 0A%0:B%0:C%0:F%0:H%0:L%0:S%0BET0:H0:L0:W0:N0I410:P(I)0:L(I)0:I DEFAULT VALUES FOR TABLE LIMITST500B11000:NB1"U5 ,O50006D$"SINGLE"P@ SET YOUR OWN TABLE LIMITSJ"O YOU WISH TO SET YOUR OWN LIMITS (Y/N)"TA$^A$""1620hA$"N"1720rA$"Y"1620w""11)" ԠŠӠ"|"HAT TABLE LIMIT";T.T2000" ET SERIOUS ADDY ARBUCKS!!":1660R"HAT'S YOUR BANKROLL";B1:NB1B1100000" F YOU HAD THAT MUCH MONEY YOU WOULDN'T BE HERE!":1670"ABLE MINIMUM";U"HAT IS YOUR WIN OBJECTIVE";OU2000" EAH, SURE, AHUH!! GAIN PLEASE!!":16907"INGLE OR OUBLE ODDS (S/D)";O$OO$"D"D$"DOUBLE"h RECAP TABLE LIMITS"  NSTRUCTIONS AND ABLE LIMITS ""ABLE LIMIT IS $";T"OUR BANKROLL IS $";B1"OUR MINIMUM BET IS $";U "OUR WIN OBJECTIVE IS $";'OE"OU MAY TAKE OR LAY ";N&D$;a0" FREE ODDS.":"REE ODDS MAY BE ROUNDED-UP"D"TO A CORRECT RATIO."N"OU MAY BET BEFORE THE COMEOUT"X"ON 'PASS' OR 'DON'T PASS.'"b"FTER THE COMEOUT,"'l"YOU MAY TAKE OR LAY THE ODDS"Kv"PLACE INDIVIDUAL BETS ON THE"m"LINE, BET ACROSS-THE-LINE,""PLACE ONE-TIME BETS, HARD""BETS THAT RIDE TO DECISION""AND FIELD BETS."6);"RESS ANY KEY TO CONTINUE"A$:A$""19802010:22103 LIST PAYOFFS AND ODDSW""11)" AYOFFS AND DDS "m"Š:""6 AND 8 PAY 7:6""5 AND 9 PAY 7:5""4 AND 10 PAY 9:5" "-Š:""NAKE-EYES PAY 30:1" "OXCARS PAY 30:1"6*"RAPS (3 & 11) PAY 15:1"^4"IG ED (ANY SEVEN) PAYS 4:1"s>"Ġ:"H" HARD 4 OR 10 PAY 10:1"R" HARD 6 OR 8 PAY 8:1"\"Ġ:"f"3,4,9,10 & 11 PAY EVEN MONEY" p"2 PAYS 2:1""z"12 PAYS 3:1"I" RESS ANY KEY TO CONTINUE"]A$:A$""2190c SET VALUES TO 0 FOR COMEOUTF0:F10D20BETBET(U%O%)U%0:U10O%0NOB16770N06840 BET ON PASS/DON'T PASS5"HEY'RE COMING OUT.ET YOUR BET, PLEASE-"Z "O PLACE BETS ON THE COMEOUT." "HICH,PLEASE-- PASS OR DON'T PASS (P/D)?" C$$ C$""2330. C$"P"P$"PASS":23808 C$"D"2330B P$"DON'T PASS" L "OW MUCH MONEY ON THAT LINE";U1V U%U1M` U1(U1)"HAT'LL BE";U%;"--WHOLE UNITS, PLEASE."bj U%U160:2380wt U%T170:2380~ U%NBET180:2380 BETBETU% "OU'RE ON! HEY'RE ROLLING..." 100 200 D1D CHECK COMEOUT FOR WIN/LOSE/ODDS C$"D"2680. GET ODDS ON PASSC D17D1113920] D12D13D1124090s "OUR POINT IS";{ D1 "OU HAVE $"; U%; "BACKING IT." "F YOU WISH TO TAKE THE ODDS,"( "HOW MUCH";O%2 O%03440< O%NBET180:O%0:2590#F D16D1828607P D15D192960LZ D14D1103060Vd 3420sn GET ODDS ON DON'T PASSx D112"HEY SAY 12. T'S A WASH ON THE LINE.":100:2210 D12D133920 D17D1114090 "OUR POINT IS "; D1  "OU HAVE $"; U%;) "AGAINST IT."L "F YOU WISH TO LAY THE ODDS"_ "HOW MUCH";O%n O%03440 O%NBET180:O%0:2760 D14D1103140 D15D193220 D16D183330 3420 CHECK ODDS FOR CORRECT MULTIPLES" TAKE PASS ODDSN, U%3"INE BET TOO SMALL FOR ODDS ON 6 OR 8.":O%0:2640l6 D$"SINGLE"F1(U%3)5@ D$"DOUBLE"F1(U%3)10J O%F1"OO MUCH.":2590T FO%5^ FF6h F(F)"LEASE CHOOSE GOOD ODDS--MULTIPLES OF 5":2590 r "DDS MAY BE AS MUCH AS $";% | F1/ 2640\ U%2(U%2)D$"SINGLE"F1U%1:2990{ D$"DOUBLE"F1U%2:2990 F1U% O%F1"OO MUCH.":2590 O%2(O%2)"OO LITTLE FOR A GOOD PAYOFF.":2590 F3O% FF2! "HESE ODDS MAY BE AS MUCH AS $";!! F1+! 26505! F1U%N! D$"DOUBLE"F1U%2Y! F2O%! O%F1"OO MUCH. AGAIN--":2590! D$"SINGLE""DDS HERE MAY BE THE LINE BET:$"F1!& D$"DOUBLE""OUBLE ODDS,UP TO DOUBLE THE LINE BET,OR$"F1!0 3420": LAY DON'T PASS ODDS%"D F12U%>"N D$"DOUBLE"F14U%l"X O%F1"OO MUCH! HINK ABOUT IT!":2760w"b FO%2"l F(F)"HESE ODDS MUST BE EVEN,PLEASE":2760"v "DDS MAY BE AS MUCH AS $";" F1" 2810" T7U%" F13T72# F1(F1)T7T71:3230-# D$"DOUBLE"F13U%8# F2O%B# FF3q# O%F1"OO MUCH.EMEMBER, 3 TO 2.":2760# F(F)"ORRECT ODDS ARE MULTIPLES OF 3":2760# "DDS MAY BE UP TO $";# F1# 2820$ U%3"HERE'S NO WAY TO GET GOOD ODDS HERE!":O%0:3420$$ F1(U%3)6=$ D$"DOUBLE"F1F12[$ O%F1"OO MUCH.":2760$* O%6(O%6)"HESE LAY ODDS NEED MULTIPLES OF 6.":2760$4 "OU MAY LAY UP TO $";$> F1$H F5O%$R FF6:3420$\ BETBETO%%f PLACE/CHANGE/REMOVE BETS%p "OU HAVE $";$%z U%;7% "ON THE LINE"T% O%0"AND $"O%" ODDS."% "O YOU WANT TO PLACE OR CHANGE BETS (Y/N)?"% A$% A$""3490% A$"N"3730% A$"Y"3490% 3550% 100& "HOOSE ONE OF THE FOLLOWING:"&& "1) NDIVIDUAL PLACE-BETS"L& " 2) LACE-BET ACCROSS THE LINE"e& " 3) NE-TIME BETS"z&" 4) ARD BETS"&" 5) IELD BET"&" 6) EVIEW BETS"&$" 7) EVIEW PAYOFFS"&." 8) OLL DICE"&8A$:A$""3640&BA$"1"4700 'LA$"2"5120'VA$"3"5350.'`A$"4"5600?'jA$"5"5760P'tA$"6"4250h'~A$"7"2010:3550z'A$"8"3640' ROLL DICE AFTER COMEOUT'"OLLING...LOOKING FOR";D1'100'200'D2D' CHECK ROLLS AFTER COMEOUT(D27C$"P"D2D1C$"D"4090:(D27C$"D"D2D1C$"P"3920M(2"HEY SAY"D2W(<5890a(F3480~(P PASS/DON'T PASS WINNER(ZMU%F:NNM(dWW1(n"HEY SAY ";(xD("OU HAVE A ";(P$;(" LINE WINNER."("OUR GAIN IS $";)M)"URRENT ANKROLL $";$)N.)5890U)" RESS ANY KEY TO CONTINUE"i)A$:A$""4070s)2220) PASS/DON'T PASS LOSER)MU%O%:NNM)LL1)"HEY ROLLED ";)"D),"OU HAVE A ";)6P$;)@" LINE LOSER."*J"OUR LOSS IS $";*TM1*^"URRENT ANKROLL $"N;*h5890b*|" RESS ANY KEY TO CONTINUE"v*A$:A$""4230*2220* REVIEW CURRENT BETS*""12)" Ǡ "*"URRENT BETS ARE AS FOLLOWS:"*C$"P"4340 +"OU HAVE $";+U%;)+"AGAINST POINT";1+D1;+4380R+"OU HAVE $";[+U%;q+"BACKING POINT";y+D1+O%0"AND $";:O%;:"ODDS"+0P(4)0P(5)0P(6)0P(8)0P(9)0P(10)04480+:"LACE BETS ARE:"+DI410,NI7I",XP(I)0"$"P(I)"ON"I),bI8,L%04520O,"OU HAVE $";X,L%;p,"ACCROSS-THE-LINE",C%0S%0B%0A%04580,"NE TIME BETS ARE:",C%0"$"C%"ON CRAPS",S%0"$"S%"ON SNAKE-EYES" -B%0"$"B%"ON BOXCARS"9-A%0"$"A%"ON IG ED (ANY SEVEN)"f-H40"OU HAVE $"H4"ON A HARD "H4$-H60"OU HAVE $"H6"ON A HARD "H6$-H80"OU HAVE $"H8"ON A HARD "H8$-H10"OU HAVE $"H1"ON A HARD "H1$-F%04670. "OU HAVE $";.*F%;0.4"ON THE FIELD"M.>"OU HAVE $";NBET;g.H"LEFT TO BET.":3480.R INDIVIDUAL PLACE BETS.\"<>LACE OR <>EMOVE PLACE BETS ?".fA$:A$""4710.pA$"P"4830.zA$"R"4710.I410:P(I)0P1:I/P1P0:4770>/" OU HAVE NO LACE-BETS !":100:3550^/"EMOVE LACE-BETS (Y/N)?"r/A$:A$""4780/A$"N"3550/A$"Y"4780/"LACE-BETS REMOVED"/BETBET(P(4)P(5)P(6)P(8)P(9)P(10)):140:100:3550/1400I4100I7I0P(I)04920O0" OU HAVE"P(I)"ON"I". HANGE BET (Y/N)?"c0A$:A$""4880t0A$"Y"49200$A$"N"48800.503008"OW MUCH PLACE-BET ON"I;:PB0BPB050300LPBNBET180:49200VPBUPB0160:4920 1`PBT170:49201jI6 I85000>1tPB5(PB5)5090:4920H1~5010g1PB6(PB6)5060:49201"OU HAVE $";PB;"PLACED ON"I1BETBETPB:P(I)PB:PB01I1"LACE-BETS ACCEPTED":35401 CHECK PLACE BET MULTIPLES2"LEASE USE CORRECT RATIO--"/2"A MULTIPLE OF SIX UNITS"52W2"LEASE USE CORRECT RATIO--"y2"A MULTIPLE OF FIVE UNITS":2 PLACE/REMOVE BET ACCROSS THE LINE2"<>LACE OR <>EMOVE BETS CCROSS-THE-INE"2 A$3A$""51303A$"P"5190)3(A$"R"5130Z32L%0"OU HAVE NO MONEY ON THE LINE":35403<120:"INE BET REMOVED":BETBETL%:L%0:35403F"OW MUCH BET ON THE LINE";L%3PL%UL%0160:51903ZL%T170:51903dL%NBET180:51904nD14D15D19D110LI27/4xD16D18LI26j4L%LI(L%LI)"ULTIPLES OF"LI"ONLY,PLEASE.":5190y4BETBETL%4"CCROSS-THE-LINE BET ACCEPTED"4L(4)(L%275)4L(5)(L%275)4L(9)(L%275)4L(10)(L%275)5L(6)(L%266)5L(8)(L%266):354085 PLACE ONE TIME BETSX5"OU MAY PLACE BETS ON:"r5"1) NAKE-EYES (2)"5"2) OXCARS (12)"5"3) RAPS (3 OR 11)"5"4) IG ED (ANY SEVEN)"5"5) INISHED WITH ONE TIME BETS"5"A$6,A$""5410#66A$"1"OT$"NAKE-EYES":5490C6@A$"2"OT$"OXCARS":5490a6JA$"3"OT$"RAPS":54906TA$"4"OT$"IG ED":54906^A$"5"54106h35506r"OW MUCH BET ON "OT$;:OT6|OTUOT0160:54906OTT170:54907OTNBET180:54907A$"1"S%OT+7A$"2"B%OT=7A$"3"C%OTO7A$"4"A%OT^7BETBETOT7"NE-TIME BET ACCEPTED":100:53507 PLACE HARD BET7" ARD BETS AVAILABLE ARE:"7" 4 - 6 - 8 - 10 - ĒONE"7A$8A$""5630"8A$"4"5680:H4H%:5600@8A$"6"5680:H6H%:5600^8&A$"8"5680:H8H%:56008+A$"1"A$"10":5680:H1H%:56008,A$"D"H%0:35508-563080" OW MUCH BET ON HARD "A$;:H%8DH%UH%0160:56808NH%T170:56809XH%NBET180:5680$9bBETBETH%G9l" ARD BET ACCEPTED":100:]9v PLACE FIELD BET9"<>LACE/CHANGE OR <>EMOVE FIELD BET"9A$9A$""57709A$"R"F%0BETBETF%:F%0:"IELD BET REMOVED":35409A$"P"5770 :F%0BETBETF%:F0*:"OW MUCH BET ON FIELD";F%E:F%UF%0160:5820Z:F%T170:5820s:F%NBET180:5820:BETBETF%:"IELD BET ACCEPTED":3540: PLACE BET WINNERS:D276070:D24P(4)0M1P(4)9:M1(M15):NNM1:59600; D25P(5)0M1P(5)7:M1(M15):NNM1:5960c;D26P(6)0M1P(6)7:M1(M16):NNM1:5960; D28P(8)0M1P(8)7:M1(M16):NNM1:5960;*D29P(9)0M1P(9)7:M1(M15):NNM1:5960;4D210P(10)0M1P(10)9:M1(M15):NNM1:5960 <>59702L%0NNL%:"INE BET LOSER: ANKROLL NOW $";N:BETBETL%E>L%0"AND YOU'RE OFF THE INE":L%0:120Q>I410]>I7In>P(I)06130{>I:6160>NNP(I):BETBETP(I):P(I)0>"LACE-BET LOSER:ANKROLL $";N:"AND YOU'RE OFF"I:6120> ONE TIME BET WINNER?A%0S%0B%0C%06380*?D22S%0NS%30No?$D22S%0"NAKE-EYES!! WINNER! ANKROLL $"N:BETBETS%:S%0?.D212B%0NB%30N?8D212B%0"OXCARS!! WINNER! ANKROLL $"N:BETBETB%:B%0?BD211C%0D23C%0NC%15N:BETBETC%;@LD211C%0D23C%0"RAPS!! WINNER! ANKROLL $"N:C%0d@VD27A%0A%A%5:NNA%:BETBETA%@`D27A%0"IG ED!! WINNER!! ANKROLL$"N:A%0@j ONE TIM BET LOSER@tA%0NNA%:6310@~S%0NNS%:6310@B%0NNB%:6310AC%0NNC%:6310A6320CA"NE-TIME BET LOSER: ANKROLL $";N:]ABETBET(C%S%B%A%)fAS%0oAB%0xAC%0AA%0A HARD BET WINNERAD276420AN(1)N(2)6420AH40D24H%H4:6470AH60D26H%H6:6450 BH80D28H%H8:6450(B H10D210H%H1:64702B6630`B(D27H40)(D24H40)H%H4:6560:H40B(D27H60)(D26H60)H%H6:6560:H60B(D27H80)(D28H80)H%H8:6560:H80B#(D27H10)(D210H10)H%H1:6560:H10B(6630C2H%10H% C<6480CFH%8H%#CPNNH%9CZ"ND YOUR HARD";BCdD2;dCn"! WINNER! ANKROLL NOW $";kCxNqCC HARD BET LOSERCD27" SOFT"D2CNNH%C"ARD BET LOSER: ANKROLL $";CNCBETBETH%:H%0: D FIELD BET CHECK FOR WINNERDF%0BDD23D24D29D210D211NNF%:6730aDD22FIF%2:NNFI:6730DD212FIF%3:NNFI:6730D FIELD BET LOSERDNNF%D""IELD-BET LOSER: ANKROLL $";ND,BETBETF%D6F%0:D@ FIELD BET WINNEREJ"IELD-BET WINNER: ANKROLL $";$ETN/E^D20:KEh WINNER-MADE OBJECTIVE|Er"!OU MADE YOUR OBJECTIVE!"E|"UIT WHILE YOU'RE AHEAD!"E"RESS ANY KEY FOR SUMMARY"EA$EA$""6800E(147)E6860F LOSER-WENT BROKEF"ORRY, YOU'RE BROKE!";F SUMMARY OF POINTS HIT\F"":"E SAW THESE--"rF"OINTS ITS"~FI212FI,FH(I)FIF"OU WON ";FW;F&" DECISIONS, LOST ";F0LF:"OUR BANKROLL WAS $";FDB1 GN"OUR NET IS $";GXN=GbN0"ETTER LUCK NEXT TIME!"::7050dGl"ICE WORK. OW DO IT FOR MONEY."jGvtG7050G"LAY AGAIN (Y/N)"GA$GA$""7060GA$"Y"(147):1470GA$"N"6930GG SPRINT DATA*H0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,255,192,1,254,96,1,255,240,1oH127,248,1,115,252,1,255,255,1,255,255,1,191,255,1,191,255,1,255H255,1,223,159,0,223,159,0,127,255,0,63,255,0,31,255,0,15,255,0H0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,255,192,1,255,224,1,252,240,1,127=I248,1,127,252,1,255,254,1,223,255,1,223,249,1,127,249,1,127,255I1,223,255,0,223,255,0,127,255,0,57,255,0,25,255,0,15,255,0,0,0I 0,0,0,0,0,0,0,0,0,0,0,0,1,255,192,1,255,224,1,252,240,1,255,248 J1,255,252,1,255,254,1,223,255,1,223,249,1,127,249,1,127,255,1MJ 255,159,0,255,159,0,127,255,0,57,255,0,25,255,0,15,255,0,0,0,0J*0,0,0,0,0,0,0,0,0,0,0,1,255,192,1,62,96,1,255,240,1,207,152,1J4255,252,1,243,230,1,223,255,1,217,249,1,121,249,1,127,255,1,255K>255,0,255,255,0,127,255,0,57,249,0,25,249,0,15,255,0,0,0,0,0,0]KH0,0,0,0,0,0,0,0,0,1,255,192,1,158,96,1,255,240,1,255,248,1,243KR204,1,255,254,1,255,255,1,185,249,1,185,249,1,255,255,1,255,159K\0,255,159,0,127,255,0,57,249,0,25,249,0,15,255,0,0,0,0,0,0,0,0*Lf0,0,0,0,0,0,0,1,255,192,1,158,96,1,255,240,1,121,248,1,127,252mLp1,243,230,1,255,255,1,185,153,1,185,153,1,255,255,1,223,255,0Lz223,255,0,127,255,0,57,153,0,25,153,0,15,255