"":2950""PMO1000:110GZB$7)"--- PRESS SPACE BAR ---"ZdW$:W$""100gnMOMO10x835,0:834,0:836,0D(MO256):835,D:834,MOD256:836,BE"":A$""B$(A$,11)C$(A$,8)# D$" "; QQ$"A234567890JQK"J VV$""[ Z$""~ MO256(835)(834):BE(836) MOMO10 B$" "(34)"...SHUFFLE.....SHUFFLE..."(34) 870 280 " DEAL THE HAND, 4 CARDS" ""! SB03100 "QA219606 ,r 6FB0:SB0:SM0:SR0:DBJ0:E0:F0:G0:H0:DO1BEBE2 @J0:K0:L0:M0:N0:P0:DO0:QQ0:QA0:MO50002140 JI3490 TA$""D$ ^G$(MO):B$"YOU HAVE $"G$", PLACE YOUR BET. "BE h26(G$)):"";BE% r2040X |""A$"YOU HOLD $"SH", YOUR BET IS $"BE^  T0:A$;:970:1120:ANU:1200  1090:"";:970:1120;:1200:BNU:1090 T6:""A$;:970:1120:1200:CNU:QQC%(I)  1090:"";:970:1120:DNU:ZZC%(I):1090# 490G " CHECK DEALER FOR BLACKJACK"k ""z B11620 B1D9DBJ1 D1B9DBJ1 550 " CHECK PLAYER FOR BLACKJACK " "" &A1C9620 0C1A9620 :600E D" IF ONE OR BOTH HAVE BLACKJACK"l N"" XDBJ01090:710 bC$"DEALER BLACKJACK":2230:670 lDBJ1660 vQA1" BLACKJACK":1090:SB1:FB1:2310:1790$QA2" BLACKJACK":SB2:1090:2310:1890P" PLAYER BLACKJACK":1090:2310:670m" PUSH--NO WINNERS!!"w2820280" DECISION ON HIT OR HOLD"""QA0750 AC A9 C9 B$"DO YOU WANT TO SPLIT? (S)"7B$"YOU WANT ONE CARD FOR DOUBLE? (D)"=hB$"DO YOU WANT A CARD? (SPACE BAR)"B$"DO YOU HOLD? (H)"W$:W$""770 W$" "1240W$"H"1430 W$"D"T12QA02270*W$"S"ACA9C9QA021904770> BEGIN ALL SUBROUTINES:H""WR" SHUFFLE THE DECK"u\" "f CK(52),C%(52)pI150zR%52(0)1CK(R%)0890C%(I)R%:CK(R%)1I0:"":""II1*NUMBERC%(I)ONUMBER39SUIT4:NUNU39:1050tNUMBER26SUIT3:NUNU26:1050NUMBER13SUIT2:NUNU13:1050SUIT1:1050""N$(QQ$,NU,1)$S$(VV$,SU,1):.8""*BQ1200::0L6VG`T)""XjT)" "itT)" "z~T)" "T)" "T)"":N$"0"N$"10":T)""N$S$;:Z$S$N$:T)""N$;" ";S$;:Z$;:S$;:" "N$:HB$""D$:B$D$:B$""D$:B$""D$:iTT6:T28TT1:T351430r970T12ENUT18FNU T24GNUT29HNUT34JNU(1120:1200:27202TTACEFGHJ<TT21"YOU HAVE"TT"YOU LOSE":1370'FDO114300P750AZQA12230PdQA11790enQA2TA221890zx2820:1090:280B$""D$:B$D$:B$""D$:B$""D$2720TTACEFGHJ AA(A1)10:1560:CC(C1)10:1560:EE(E1)10:1560JFF(F1)10:1560:GG(G1)10:1560:HH(H1)10:1560aJJ(J1)10:1560t"YOU HAVE"TTQA11790QA2189028202350RACEFGHJ"R22SMR,SMTTTTSM6@JTA1C9^C1A91hB$"INSURANCE ? (Y/N)"ErW$:W$""1650Z|W$"Y"B$D$:SHBE2B$D$"SORRY, NO CREDIT."SHBE2W12000::B$D$:D9B$D$:MOMOBE:MOMOBE2:B$D$"NO BLACKJACK, YOU LOSE $"BE2A$""D$8A$"YOU HOLD $"SHBE2", YOUR BET IS $"BEPW12000::B$D$:V\zA$;:Q16:6)" ":A$"":970:1120:1200T6:CNU:QA1:B$""D$B$""D$55020)"FIRST HAND" B$"--- PRESS KEY FOR SECOND HAND ---"8TATT:TT0:QA2:E0:F0:G0:H0:J0:SM0:LW$:W$""1820T&B$f0Q111:D$:l:DT0:A$"":NUQQ:990:1120:1200:ANUNT6:A$"":970:1120:1200:CNUX550b20)"SECOND HAND"l2820vSB2FB1310SB2TA211970#SB1TT213108TA21TT21280B2350PSB1310`TA212010DTTAB$"YOU HAVE"TA"PUSH FIRST HAND":310DTTADT222010B$"YOU HAVE"TA"YOU WIN FIRST HAND":2100:310B$"YOU HAVE"TA"YOU LOSE FIRST HAND":2230:310#3BE((BE))iMO0""C$"SORRY, YOUR BROKE.RUN80":BE200""C$"SORRY, $200 BETTING LIMIT.":340 BEMO""C$"SORRY, NO CREDIT.":340SHMOBE:380 *4MOMOBE>HR\Q11000:A$:Mf""B$"CONGRATULATIONS YOU HAVE BROKE THE BANK."|p11)"THIS TABLE IS CLOSED.RUN 80":zMOBE2B$"SORRY NOT ENOUGH MONEY, NO SPLIT":7701750MOMOBE6MOBE2B$"SORRY, NOT ENOUGH MONEY, NO DOUBLE.":770MDO1:BEBE2:1240SYh MOMOBE2n t z$ . 28508 DTBDKLMNPB DT21C$"DEALER HAS"DT:2650L DT16C$"DEALER HAS"DT:2610V BB(B1)10:2550:DD(D1)10:2550:KK(K1)10:2550X` LL(L1)10:2550:MM(M1)10:2550:NN(N1):2550oj PP(P1)10:2550t DT16C$"DEALER HAS"DT:2610~ BB(B11)10:DD(D11)10:KK(K11)10:LL(L11)10 MM(M11)10:NN(N11)10:PP(P11)10 TT6:T28TT1:T352610' 9706 T12KNUE T18LNUT T24MNUc T29NNUr T34PNU "":1120:1200:1090:1090:2350   UBDKLMNP U22SRU SRDTDTSR  ( 2 TT211960 < SB22680*F DTTTA$12)"PUSH":280TP DTTTA$12)"YOU LOSE":2230:280dZ TT211960sd SB22000}n 2690x TA211960 A$12)"YOU WIN":2100:280 *** *** A9A10 C9C10 E9E10 F9F10 G9G10 H9H10' J9J10- 8 ***C ***o  NUZZ:T6:990:"":1200:1090:z  ***  *** " B9B10 , D9D10 6 K9K10 @ L9L10 J M9M10 T N9N10 ^ P9P10 h r ***!| ***!! 53280,0:53281,0:(155)Q! ""7)"ɝݑ"|! 7)"ݝ BLACKJACK ݝݑ"! 7)"ݝ"! 10)" BY T.P.U.G."! 5)"DO YOU WANT INFORMATION? (Y/N)"" Q$:Q$""3010" Q$"Y"3040" 80C" "RULES DIFFER AMONG CASINOS, THE"r" "FOLLOWING ARE THE MOST POPULAR. YOU CAN"" "GO 'DOWN FOR DOUBLES' WITH ANY NUMBER."" "YOU CAN SPLIT ANY PAIR. YOU CAN ONLY SPLIT ONCE. YOU CANNOT";# " GO 'DOWN FOR DOUBLES' ON A SPLIT, OR";,# " BLACKJACK."[# "DEALER MUST HIT 16, AND STAND ON 17."{# "BLACKJACK PAYS 1.5 TO 1."# "CARD COUNTING WORKS. AT THE END OF A"#& "HAND, IF THE DEALER HAS LESS THAN 18"$+ "CARDS LEFT, THE DECK WILL BE SHUFFLED."-$0 "YOU MAY WATCH A HAND BY BETTING 0."L$: 10)"(PRESS SPACE BAR)"`$D Q$:Q$""3140$N "IF YOU WIN $5000 YOU HAVE 'BROKE THE TABLE' AND THE TABLE";$X " WILL CLOSE."$b "MAXIMUM BET IS $200, MINIMUM IS $1.")%l "FOR EASE OF PLAYING, YOU CAN REPEAT YOURPREVIOUS BET BY ";?%v "HITTING ."u%{ "OTHER-WISE, ENTER THE AMOUNT YOU WISH TOBET.";% "IF THE DEALER HAS AN ACE UP, YOU MAYBUY INSURANCE AGAINST";% " A DEALERS BLACKJACK FOR 1/2 YOUR BET."& "YOU HAVE $1000 TO START, GOOD LUCK."9& 10)"(PRESS SPACE BAR)"M& Q$:Q$""3240U& 80`& ***k& ***v& ***& ***& ***