I5427254296:I,0:;54296,15:VD1:TI$"000000"D299PK115h53280,K:L110:LoKuN((TI)131) S((TI)41) CNS CD0K1 CC(CD)C8 CDCC(K)C:KK1T)"Ϸ" T)""! T)""6 T)""K T)""` T)""u T)"" T)"" T)"̯"  S1S$"":"" S2S$"":"" S3S$"":"" S4S$"":"" N143 N251 N359' !N4673 "N575? #N683K $N791W %N899d &N9107r 'N10115 (N11123 )N12131 *N13139 +T1)"A " ,T1)" " -T1)" " .T1)" ";S$;" " /T1)" " 0T1)" " 1T1)" A"% 27 3T1)"2 "I 4T1)" "` 5T1)" ";S$;" "r 6T1)" " 7T1)" ";S$;" " 8T1)" " 9T1)" 2" : ;T1)"3 " <T1)" " =T1)" ";S$;" " >T1)" ";S$;" " ?T1)" ";S$;" ". @T1)" "@ AT1)" 3"F BX CT1)"4 "j DT1)" " ET1)" ";S$;" ";S$;" " FT1)" " GT1)" ";S$;" ";S$;" " HT1)" " IT1)" 4" J KT1)"5 " LT1)" " MT1)" ";S$;" ";S$;" "5 NT1)" ";S$;" "Q OT1)" ";S$;" ";S$;" "c PT1)" "u QT1)" 5"{ R ST1)"6 " TT1)" ";S$;" ";S$;" " UT1)" " VT1)" ";S$;" ";S$;" " WT1)" "XT1)" ";S$;" ";S$;" "YT1)" 6"Z/[T1)"7 "K\T1)" ";S$;" ";S$;" "b]T1)" ";S$;" "~^T1)" ";S$;" ";S$;" "_T1)" "`T1)" ";S$;" ";S$;" "aT1)" 7"bcT1)"8 "dT1)" ";S$;" ";S$;" " eT1)" ";S$;" "%fT1)" ";S$;" ";S$;" "<gT1)" ";S$;" "XhT1)" ";S$;" ";S$;" "jiT1)" 8"pjkT1)"9";S$;" ";S$;" "lT1)" "mT1)" ";S$;" ";S$;" "nT1)" ";S$;" "oT1)" ";S$;" ";S$;" "pT1)" "qT1)" ";S$;" ";S$;"9"!r=sT1)"1";S$;" ";S$;" "TtT1)"0 ";S$;" "puT1)" ";S$;" ";S$;" "vT1)" "wT1)" ";S$;" ";S$;" "xT1)" ";S$;" 1"yT1)" ";S$;" ";S$;"0"z{T1)"J "|T1)" J " }T1)" A ")~T1)" ";S$;" ";S$;" ";T1)" C "MT1)" K "dT1)" J":N10j|T1)"Q "T1)" Q "T1)" U "T1)" ";S$;"E";S$;" "T1)" E "T1)" N "T1)" Q":N10T1)"K "!T1)" K "3T1)" I "OT1)" ";S$;" ";S$;" "aT1)" N "sT1)" G "T1)" K":N10D((TI)61)D1155D2163D3171D4179D5187D6195147 T)" ""T)"  "7T)"  "LT)"  "aT)"  "vT)"  "T)" "T)" "T)"  "T)"  "T)"  "T)"  " T)"  "T)" "$7T)" "LT)"  "aT)"  "vT)"  "T)"  "T)"  "T)" "T)" "T)"  "T)"  " T)"  " T)"  "5T)"  "HT)" "NaT)" "vT)"  "T)"  "T)"  "T)"  "T)"  "T)" "T)" " T)"  " T)"  "5T)"  "JT)"  "_T)"  "rT)" "x:T1)" "T1)" "T1)" "T1)" "T1)" "T1)" "T1)" "501"":T1)" "0T1)" "BT1)" "VT1)" "hT1)" "zT1)" "T1)" """:T1)" "T1)" "T1)" "T1)" "T1)" "T1)" "T1)" "6"":T1)" "JT1)" "\T1)" "pT1)" "T1)" "T1)" "T1)" "" PLACE YOUR BET (1-9) ";A$:A$""237A$"1"B1:244A$"2"B2:244-A$"3"B3:244BA$"4"B4:244WA$"5"B5:244`265|27)" BET:";B;" "TL0:Q0L15:PP(L,I)10PP(L,I)10PP(L,I)1QQ1:TLTL10TLTLPP(L,I)LTL21Q0TLTL10:QQ1:251#TL0CL13:PP(L,I)9PP(L,I)0UTLTLPP(L,I)hTL9TLTL10oLuV0:HN:""H10VV1:HH10:261L0V:"":LK4H4:N10KK1K)""N;" ": TC 518,538,477,614 A$"6"B6:244$ A$"7"B7:2449 A$"8"B8:244N A$"9"B9:244W 237iN((TI)38)s""N2""N4""N6""N8""N10""N11""N13""N15""N17""N20""N24""/N26""?N28""ON29""_N31""oN33"" N35""!N22"""N0""#N37""$""%I13:29)" ":&""'N3730)"00": (N929)"";N:!)N1030)"";N:'*K+CC(53),M(25),P(5,3):MM50:XX0T,308b-"":T20y.16:"":D1212/D22200D32281D32032I1500:I3&1453280,2:53281,1:"":3185A$:A$"1"3286A$"2"6937A$"3"431"8A$"4"78729A$"5"893B:A$"6"988S;A$"7"1157f<A$"8"&12000r=4:309>" YOU ARE IN LAS VEGAS, WITH $";MM?:" WHAT WILL YOU DO?"@::" 1. PLAY THE SLOT MACHINES" A:" 2. PLAY BLACKJACK"*B:" 3. PLAY KENO"IC:" 4. PLAY POKER"oD:" 5. PLAY CHUCK-A-LUCK"E:" 6. PLAY BACCARAT"F:" 7. GO HOME "G309H"";:53280,8:- SLOTS II111:" ":B JI4044040:55295I,8:1023I,224:I:O0b KI13:T10I4:"":16:Ir LI1500:I M" PAYOFF" N" " O"  = 100" P" " Q"" !R" "%!S"  = 50"B!T""^!U"  = 20"{!V""!W!X" ANY BARS = 10"!YI114:J40I:55715J,8:1443J,224:I!Z"":T6:"":220!["":T16:"":203"\"":T26:"":228A"]"":20)"TO PLAY HIT ANY KEY"b"^"":25)"TOTAL: 0"u"_A$:A$""351"`I13:"":T10I4:16:I:S0"aOO1:"":25)"TOTAL:";O;" "#b"":20)" 98 PERCENT PAYOUT"#c J11200:J3#dI13:T10I4:""H#eR((TI)2421)a#fR100D0:203:363y#gR50D1:212:362#hR10D2:220:362#iD3:228#j505#kSSD10(I1):J1600:J#lI#mS111P0:394#nS111P20:394 $oS222P50:394 $pS122P10:3945$qS123P10:394J$rS121P10:394_$sS131P10:394t$tS132P10:394$uS133P10:394$vS211P10:394$wS212P10:394$xS231P10:394$yS221P10:394$zS223P10:394%{S232P10:394%|S233P10:3941%}S311P10:394F%~S312P10:394[%S313P10:394p%S321P10:394%S322P10:394%S323P10:394%S331P10:394%S332P10:394%S333P100:394%S112P10:394&S113P10:394&S213P10:394!&P04&OOP:P1404?&J1PF&4S&53280,8&"":24)"PAYOFF:";J;" "&""&25)"TOTAL:";OPJ;" "&TD1:481&J&53280,8'"":24)"PAYOFF:";P;" "'"")'25)"TOTAL:";O;" "Y'"":21)"TO QUIT - HIT 'Q'"l'A$:A$""408'A$"Q"MMMMO:308'MMO0MMMMO:1127'352'53280,2:53281,1'"";(14)'" F YOU HAVE RECEIVED A  COPY OF"-(" THIS PROGRAM FROM A FRIEND, OR OTHER"\(" SOURCE, AND YOU ENJOY THIS GAME, THEN"(" SEND A CONTRIBUTION OF $5.00 TO:"(" ETER . UDMAN"(" 3745 OODVALE OAD"(" IRMINGHAM, 35223"')"  'M SURE YOU'LL AGREE THAT $5.00 IS"V)" A SMALL COMPENSATION FOR ALL THE TIME")" AND EFFORT WHICH 'VE PUT IN TO DEVEL-")" OP THIS PROGRAM.")" HANK YOU.")" ETER . UDMAN"*I118000:*(142):TI$"000000"&*3089*A$:A$""430E*- KENOe*"":53280,15:53281,1:O0*" KENO":" ----"*" WOULD YOU LIKE TO SEE ":*" THE PAYOFF TABLES?"+A$:A$""436 +A$"Y"6670+A$"N"4409+436Y+" KENO"+:" 1 2 3 4 5 6 7 8 910"+:"11121314151617181920"+:"21222324252627282930"%,:"31323334353637383940"X,:"41424344454647484950",:"51525354555657585960",:"61626364656667686970",:"71727374757677787980" -I020:CC(I)0:I:Z0<-" HOW MANY NUMBERS":j-" WILL YOU GUESS?"::" (1 TO 9)"}-A$:A$""452-A$"1"A1:463-A$"2"A2:463-A$"3"A3:463-A$"4"A4:463-A$"5"A5:463-A$"6"A6:463.A$"7"A7:463%.A$"8"A8:463:.A$"9"A9:463C.452]."".I16:" ":I.""."ENTER YOUR NUMBER";.N$.""&/I16:" ":I2/N(N$)D/N1N80463M/514/54277,1:54278,240:54273,51:54272,97:54276,17/ SS1100:/54276,16/536/54277,1:54278,240:54273,34:54272,75:54276,17/ SS1100:054276,16 0541?054277,1:54278,240:54273,34:54272,75:54276,17O0 SS150:]054276,16054277,1:54278,240:54273,38:54272,126:54276,170 SS150:054276,16054277,1:54278,240:54273,43:54272,52:54276,170 SS150:154276,16=154277,1:54278,240:54273,45:54272,198:54276,17M1 SS150:[154276,16154277,1:54278,240:54273,51:54272,97:54276,171 SS150:154276,161TI7200050014121TD402,588,747,779,739,882,976,1095,6+254277,1:54278,240:54273,34:54272,75:54276,17<2 SS1100:J254276,16S2211254277,1:54278,240:54273,51:54272,97:54276,172 SS1100:254276,162363254277,1:54278,240:54273,51:54272,97:54276,17254276,16+354277,1:54278,240:54273,34:54272,75:54276,179354276,16@36K3I0Z\3NCC(I)463c3Iv3"":TC1:2603CC(Z1)N3ZZ1:ZA52134633 6183 M0:P0:OO13 "":" TOTAL:";O;" ";4 L121:M(L)04 R(((TI)80)1)%4M(L)R:L.4L21B4K120:JK20V4XM(K):YM(J1)d4XY534}4M(J1)(80(TI)1)4YM(J1)45304J:K4I120:Q1150:Q4J1A4M(I)CC(J)NCC(J):"":TC2:260 5M(I)CC(J)II1:MM1:TD2:4735J.5NM(I):"":TC3:26055IF5A1M1P3X5A2M2P12i5 A3M2P1{5!A3M3P425"A4M2P15#A4M3P35$A4M4P1205%A5M3P15&A5M4P95'A5M5P8005(A6M3P16)A6M4P46*A6M5P88-6+A6M6P1490>6,A7M4P2P6-A7M5P20c6.A7M6P350w6/A7M7P700060A8M5P961A8M6P9062A8M7P149063A8M8P2000064A9M5P465A9M6P4466A9M7P300 77A9M8P4000"78A9M9P22000,79OOP97:P0579R7;""7<I17:" ":I7=" ";7>""7?" THERE ARE NO WINNERS":#8@" YOU CAUGHT";M;"OUT OF";A::8A" TOTAL:";O;" "C8B589\8C""8DI17:" ":I8E" ";8F""9G" YOU WIN! YOUR PAYOFF IS $";P:29H" YOU CAUGHT";M;"OUT OF";A:I9I" TOTAL:";O;" "\9JWP:W50W50t9KI1W:4:TD2:481{9LI9MI12000:I:OMM011279N""9OI16:" ":I:P""2:Q" DO YOU WANT TO PLAY AGAIN? "E:RA$:A$""594^:SA$"N"MMMMO:308n:TA$"Y"598w:U593:V"":W" DO YOU WANT THE SAME NUMBERS?":XA$:A$""600:YA$"N"433:ZA$"Y"604:[600;\""6;]:" 1 2 3 4 5 6 7 8 910"j;^:"11121314151617181920";_:"21222324252627282930";`:"31323334353637383940"x665>y:16)"2 - 1"3>z16)"3 - 42"<>{665T>|:16)"2 - 1"j>}16)"3 - 3">~16)"4 - 120">665>:16)"3 - 1">16)"4 - 9">16)"5 - 800">665>:16)"3 - 1"?16)"4 - 4"?16)"5 - 88"1?16)"6 - 1490";:?665R?:16)"4 - 2"h?16)"5 - 20"~?16)"6 - 350"?16)"7 - 7000";?665?:16)"5 - 9"?16)"6 - 90"?16)"7 - 1490"?16)"8 - 20000";@665@16)"5 - 4".@16)"6 - 44"D@16)"7 - 300"Z@16)"8 - 4000"q@16)"9 - 22000";z@665@522@691 @"   PAYOFF TABLES":" -------------"A" GUESS PULL PAY   GUESS PULL PAY";A" "nA" 1 1 3   7 4 2"A" 5 20"A" 2 2 12  6 350"B" 7 7000"8B" 3 2 1   "kB" 3 42  "B" 8 5 9"B" 4 2 1   6 90"C" 3 3   7 1490"7C" 4 120   8 20000"jC"  "C" 5 3 1  "C" 4 9   9 5 4"D" 5 800   6 44"6D"  7 300"iD" 6 3 1   8 4000"D" 4 4   9 22000"D" 5 88   "E" 6 1490   HIT ANY KEY"EA$:A$""689E440/EA$:A$""6918E440jEO0:K1:53280,5:53281,1:"";: - BLACKJACKEI124:" ":E" "FI40100040:55295I,5:1023I,224:IFI153:CC(I)0:I:K1(F2363FI15>FJ13LFPP(I,J)0VFJ:IF"":T0:16:"":16:I1200:IF"":8:26:PP(1,2)NFT8:"":16:"":16:I1300:IF"":8:26:PP(2,1)NG"":8:26:PP(2,2)N#G8:PP(1,1)N;GI2:246:TL21776SGI1:246:TL21780[GJ2G" HIT, STAND, DOUBLE?  ":I2GA$:A$""713GA$"H"718GA$"S"724GA$"D"725G713GI2:JJ1:J5748&HTJ88:"":16:M1300:MVHTJ88:"":8:26:PP(J,2)NjH246:TL21729~HJ5PTTL:748H712H246:PTTL:748HJ2712HB2B:T16:"":16:8:PP(3,2)NIM1300:M:"":26I246:PTTL:748)I- PLAYER BUSTnIOOB:" OVER 21 - YOU LOSE  TOTAL:";O;" "}IPTTL:748I- DEALER STANDSIPTDTOOB:736IDTPTOOB:740IDTPT742J" YOU WIN WITH";PT;"   TOTAL:";O;" "]J" YOU WIN WITH";PT;"   TOTAL:";O;" "wJ4:53280,5:TD5:481J785J" DEALER WINS WITH";DT;"  TOTAL:";O;" "J785K" PUSH - NO WINNER   TOTAL:";O;" "K785+K- DEALER BUSTSqKOOB:" DEALER OVER - YOU WIN!  TOTAL:";O;" "K4:53280,5:TD3:481K759K- PLAYER STANDSKT0:"":NPP(1,1):26KI1:246:DTTL:PT21785KDT17732KJ3LTJ88:"":16:M1400:M=LTJ88:"":8:26:PP(J,1)NWL246:DTTL:DT21744gLDT17732tLJ5732LJJ1:753LI11500:I:OMM01127L" PLAY AGAIN?  "LA$:A$""761LA$"Y"765MA$"N"MMMMO:308M761#MI15,M""7MJ19PM8I8)" "WMJcM""nMJ19M8I8)" "MJMIM697MOO2BM " YOU HAVE BLACKJACK!  TOTAL:";O;" "N 4:53280,5:TD4:481N 759N OOB3N "":T0:NPP(1,1):26tN" DEALER HAS BLACKJACK  TOTAL:";O;" "}N759N759N759NA$:A$""786N"";:53280,5:- POKERNI112:" ":(OI4048040:55295I,5:1023I,224:I:O0cO" PAYOFF TABLE":" ------------"O" ROYAL FLUSH 300":" STRAIGHT FLUSH 50"O" FOUR OF A KIND 25":" FULL HOUSE 9"P" FLUSH 6":" STRAIGHT 4"QP" THREE OF A KIND 3":" TWO PAIR 2":" ONE PAIR 0.5"vP I15:T8I8:"":16:I:PY0P"12345"P"":25)"DRAW POKER":25)"----------"Q22)"TO DISCARD ENTER":22)"THE CARD NUMBER"6Q22)"TO DRAW/HOLD HIT":22)" "^Q I13:21)" ":IQ!OO1:26)"TOTAL:";O;" ":K1Q"I15:PP(I,1)0:IQ#I15:T8I8:8:PP(I,1)N:PP(I,2)S:"":26:I:P1Q$A$:A$""804Q%A$" "813!R&A$"1"PP(1,1)0:"":T0:16:PP1JR'A$"2"PP(2,1)0:"":T8:16:PP1tR(A$"3"PP(3,1)0:"":T16:16:PP1R)A$"4"PP(4,1)0:"":T24:16:PP1R*A$"5"PP(5,1)0:"":T32:16:PP1R+P5813R,804R- I15R.PP(I,1)0817S/IS08201S18:PP(I,1)N:PP(I,2)S:TI88>S2"":26GS3815MS4iS5I015:CC(I)0:I:PY0tS6I15S7PP(I,1)1CC(1)CC(1)1S8PP(I,1)2CC(2)CC(2)1S9PP(I,1)3CC(3)CC(3)1S:PP(I,1)4CC(4)CC(4)1T;PP(I,1)5CC(5)CC(5)1"T<PP(I,1)6CC(6)CC(6)1?T=PP(I,1)7CC(7)CC(7)1\T>PP(I,1)8CC(8)CC(8)1yT?PP(I,1)9CC(9)CC(9)1T@PP(I,1)10CC(10)CC(10)1TAPP(I,1)11CC(11)CC(11)1TBPP(I,1)12CC(12)CC(12)1TCPP(I,1)13CC(13)CC(13)1UDIUEI113:CC(I)4PY25#UFI=UGI113:CC(I)3852DUHI^UII113:CC(I)2859eUJI~UKI19:CC(I)1868ULIUMI25UNPP(I,2)PP(1,2)871UOIUPPY4PY50:850UQPY6:871URCC(13)1PY300US871UTJ0I1VUCC(J)2PY9:VVJ(VWJI114""n?M18o@" "oAMOoB" CONGRATULATIONS,"{oC"YOU'VE WON!"oDOOBoE"TOTAL:";O;" "oF4:53280,6:TD8:481oG1104 pH" "pI"" pJM18PpK" "WpLMpM" PUSH - NO WINNER"pN"TOTAL:";O;" "pO1104pPM11000:MqQ" "BqR" "xqS" PLAY AGAIN? "qTA$:A$""1108qUA$"Y"1112qVA$"N"MMMMO:308qW1108qX""qYI122rZ" " r[I,r\20)" ";5r]993Ir^A$:A$""1118Rr_993r`"YOU HAVE A NATURAL"ra8:"":T3:PP(1,1)N:26:M1500:Mrb8:"":T11:PP(2,1)N:26:M1500:MrcI1:254:DTTL$sd"DEALER HAS:";DT4seM1600:M>sf1072Ysg"":53280,8:53281,3esh""si" Ϸ"sj" FRIENDLY FINANCE COMPANY "sk" "tl" (LET THE BORROWER BEWARE) "=tm" ̯"atnI11000:I:MMMMO:XX11143to" CAN I BE OF HELP TO YOU?":" YOU OWE $";MMtpI11000:I:tq" WOULD YOU LIKE TO BORROW $ 50?"trA$:A$""1138usA$"Y"1142utA$"N"1157#uu1138@uvXX0MMMM50:XX1:308[uw"":53280,0:53281,0ux" YOU'VE ALREADY LOST YOUR $ 50":uyI11000:Iuz:" THEN YOU LOST MY $ 50":::u{I11500:I v|" NOW YOU'RE BROKE AND OWE ME $ 100":v}I12000:IMv~"  GET OUT OF HERE!! WHILE YOU CAN!"^vI13000:Ihv1157|vA$:A$""1153v308vA$:A$""1155v993v"":53280,14:53281,6