' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  1 '&&*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL- ( l  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(` d£àĠz# u`Ѝٍ  ???-------------------------------------------5?????????????????????????????????????????????????????????????????????????????????????????7----------------------------------------------------------------------------------------5?????????????????????????????????????????????????????????????7-----------------------------------------------------------------------------------------5?????????????????????????????????????????????????????????????????????????????????????????7-------------------------------------------------------------5?????????????????????????????????????????????????????????????????????????????????????????7-----------------------------------------------------------------------------------------5?????????????????????????????????????????????????????????????7-----------------------------------------------------------------------------------------5?????????????????????????????????????????????????????????????????????????????????????????7--------------------------------------------------------------------------?????????????????????????????????????????????????????????????????????????????7-----------------------------------------------------------------------------------------5????????????????????????????????????????????????????????????????????????????????????????---------------------------------------------------------------5?????????????????????????????????????????????????????????????????????????????????????????7-----------------------------------------------------------------------------------------5?????????????????????????????????????????????????????????????7-----------------------------------------------------------------------------------------5?????????????????????????????????????????????????????????????????????????????????????????7-------------------------------------------------------------5?????????????????????????????????????????????????????????????????????????????????????????7-----------------------------------------------------------------------------------------5?????????????????????????????????????????????????????????????7-----------------------------------------------------------------------------------------5?????????????????????????????????????????????????????????????????????????????????????????7------------------------------------------------------$$$$$$$$$$$$$$$$$$$,--------------56666666666666666666666??????????????'$$$$$$$$$$$$$$$$$$$$$$$-----------------------------------------------------------------------------------------5????????????????????????????????????????????????????????????????????-5????>----5????>----5????>----5????>----5????>----5??----5????>----5????>----5????>----5????>----5????>----5????>----5??----5????>----5????>----5????>----5????>----5????>----5????>----5 ---------------566666666666666666666666???????????????'$$$6666666666666666666666666???????????????????'$$$$$$$$$$$$$$$$$$$$$$$$$$$--------------------------------5????>----5????>----5????>----5????>----5????>----5????>----5??----5????>----5????>----5????>----5????>----5????>----5????>----5??----5????>---??*----->????7)----???7)--?w-I-??.-m:?----->????7----?w ----???I?--???----???--???I)?--???----?????w- m----------------------5665%5%>.>.>.>.'7'7<,<,<,<,II5666?'''u-,$$$$ -??-M->.>.>?.666'$$7'7'766'$$,<,%/-mI??,.-$5%5557*->577'7'<I)5?7777--%$56576>$$???---5???757.,.,.7577'7''? -m'??7757-%5%7577'7'''%?6%,.,.,.77777757-.$%5%5557??7--5577'7''$76 -??575,.,%$56>.>>><><<76666.$$$$l%-------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7}2.$%5%5->.777777-,.,.???7-------------------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7------------???????????????????7-------------------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7-------------------5????????????????---------------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7-------------------5 0&Ff0P PpFc ^ -------------------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7-------------------5???????????????????7----              38381,2# :(4);"RUN MENU""11:8"BN;"30""BX-"15:86"NH;>"29F" ACR" 18:19^" EX;"%"j"$ NHNH1|". X(5(1)1)"8 BRBRX"B X(X)"L X0X1"V ACACX"[ K11000:"` "e AP(16384):AP128ė:2500"j (4);"RUN HELLO"# BET"!H17:15$!R"EXPECTATION"*!\T!fNH5107:AC10256:BN27:BX258:BR211!kE$" "!pI115!zEX(1000(BRAC))10!8:1:E$;!11:1:E$;!15:1:E$;!18:1:E$;!8:18!BR "****************************************";< K13000:I :7:12a "CURRENT BANKROLL"l 10:3 "MINIMUM BANKROLL"; 23:"MAXIMUM BANKROLL" 13:5 " NUMBER OF "; *26:" TOTAL " 45:"HANDS PLAYED";!>26:"AMOUNTOURS ?? *";"K12000:-23:1]"* PUT THEM TO THE TEST!!! *";mK12000:AP(16384):AP128ė:25001:1"****************************************";"* EVALUATING ADVANCED POINT COUNT *";, 384):AP128ī2500#IK12000:ZN21:1:"***************************************";uX22:1:"*";:39:"*";b23:1:"*";:39:"*";l24:1:"***************************************";vK12000:22:1"* YOUR SYSTEM OR K13000:C22:2:"YOUR PLAY IS SHOWN IN THE UPPER TABLE!";SK13000:Y23:1:"WHEN THE DEALER SHOWS SEVEN THROUGH ACE,";&K13000:024:2:"YOUR PLAY IS SHOWN IN THE LOWER TABLE!";:K13000:D34,0:FAP(16S ALWAYS";16:1C" H H H H H"t"----------------------------------------";K12000:AP(16384):AP128ė:250034,20K12000:21:2:"WHEN THE DEALER SHOWS TWO THROUGH SIX,"; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~AP128ė:25003:117"PLAYER HAS A HARD 12"A6:1t":" 2 ! 3 ! 4 ! 5 ! 6 ";,:7:16"----------------------------------------";@8:1:" ALWAYS ALWAYS 0 0 0"J9:1T" H 39:"*";"23:1:"*";:39:"*"R"***************************************";bK12000:22:1:"* STUDY OUR STRATEGY TABLES *"K12000:23:1:"* OR MAKE UP YOUR OWN!! *"K12000:AP(16384):2FJ(3(1))PK0J*ZX9844K>dCC((1)132)RnCP((1)415)Yx2`Ks1:0,0:3082zIK12000:AP(16384):AP128đ::2500::21:1"***************************************";22:1:"*";:24:1:"***************************************";C K12000:z22:1:"* YOU'LL QUICKLY LEARN TO COUNT CARDS *";K12000:(23:1:"* ... & LEARN TO COUNT CARDS QUICKLY! *";2K12000:7AP(16384):AP128đ::2500<I1123:33::"-1":@24:9:"ALL TENS ARE COUNTED -1";PK14000:\34,0:~AP(16384):AP128đ:25001:0,0:308221:1:"***************************************";22:1:"*";:39:"*"23:1:"*";:39:"*"3 ARE COUNTED +1";".K14000:58:23:17:"1"HB1:0,0:3082ZLCC8:CP18:2pV23:25::"0";:`24:10:"EIGHTS ARE COUNTED 0";jK14000:t:23:25:"0"~1:0,0:3082I03X54I44:CC10I:CP15I2128đ::2500K21:1:"2 3 4 5 6 7 8 9 10 ACE"}1:"--- --- --- --- --- --- --- --- --- ---"1:"1 1 1 1 1 0 0 0 -1 -1"34,23X120:Y52:CC6:CP15:223:17::"1";:$24:10:"SIXES*************************************";B22:1:"*";:39:"*";]23:1:"*";:39:"*";24:1:"***************************************";K12000:22:1:"* YOU'LL QUICKLY LEARN TO COUNT CARDS *";K14000:AP(16384):AP\22:18:"22"!f18:"16"1pK12000:Oq24:14:"DEALER BUSTS!";_rK12000:qs22:18:" "t18:" "z21:12:"$235";30:" "K11000:AP(16384):AP128đ::25001:0,0:3082'21:1:"**9:"REGARDLESS OF THE COUNT",K14000:2=21:1U"BANKROLL $215";j24:"BET $20""DEALER'S TOTAL ""PLAYER'S TOTAL " X30:Y10:CC11:CP16*24K1500:>X50:Y10:CC10:CP18H2RK11000:00:(AP(16384):AP128đ::2500.:21:17I"12 VS 2"_16:"ALWAYS HIT"9:"REGARDLESS OF THE COUNT"K14000:X50:Y70:CC4:CP172K11000:21:17"16 VS 2"15:"ALWAYS STAND" 2:1:"*";:39:"*";/p23:1:"*";:39:"*";fq24:1:"***************************************";vrK12000:s22:1:"* AT THE TOUCH OF A KEY, *";tK12000:u23:1:"* YOU CAN LEARN THE BEST PLAYS!! *";vK140:"BET "K1500:'X30:Y1052:1X,YL&0:19X,Y:22X,Ye0X10:Y70:CC2:CP16l:2DX10:Y10:CC2:CP18N2XX30:Y70:CC12:CP18b2lK1500:mn21:1:"***************************************";o2S WITH BLACKJACK!";# K13000:6 34,23::34,0K 21:12:"$215";T 768i 3:0:20207,51{ 22:18:" " 18:" " AP(16384):AP128đ::2500 21:24::"BET ? ";: " " K12000: 21:30:"$20"; 240:X30:Y10 1X,Y- 0:19X,Y:22X,Y; "X10:Y70K ,CC14:CP18R 62l @X10:Y10:CC10:CP15s J2 TX30:Y70:CC11:CP18 ^2 hK11000: rX30:Y10:CC7:CP16 |2 22:18 "17" 18:"21" 7 "PLAYER WIN*****************************";C AP(16384):AP128đ::2500S K14000:Y d 21:1| "BANKROLL $200"; 24:"BET $10" "DEALER'S TOTAL" "PLAYER'S TOTAL" 0:O:21266,3 3:I120 20207,72I 2:*****************";# _K12000:. d21:1^ n"***************************************";i s22:1 x"* YOU CAN PLAY BLACKJACK FOR FUN *"; zK12000: }23:1 "* WHILE YOU PLAY BLACKJACK TO WIN!! *"; 24:1 "**********:0:21266,3 3 I1201 20207,72I7 W (UX7:UY4:LX33:LY52:SY13g -K12000:r 221:1 <"***************************************"; F22:1:"*";:39:"*"; P23:1:"*";:39:"*"; U24:1 Z"********************** 214,255F(4);"BLOAD GREEN OUT":(4);"BLOAD HIRES.MAP":18W0:3:1X,Yf0:19X,Y~CS2(CP2(CP2))CS:CCXUX,YUYCPXUX,YUYSY32:CCXLX,YLYCPXLX,YLYSY 1:0,0:3082 0                  à٠ҠŠҍŠԠԍŠԠԍĠԠԍؠԍҍ  N**";BLW2:1:"*";(SP2));"LOADING ";PG$;SP(SP2));"*";yL\3:1:"****************************************";La34,3::34,0Lf(4);"RUN ";PG$ KR1:1:"****************************************";oW2:1:"*";(SP2));"LOADING ";PG$;SP(SP2));"*";\3:1:"****************************************";^A(0)a34,3::34,0d(4);"BSAVE POINTERS,A$95EC,L$14"f(4);"RUN ";PG$IW:240 16368,0.SBAP176=SB1ī805P SB3MXī815j%I120:A(16336):s*785y/1SB1820238380,035654PG$"STRATEGY DRILL"9SB3PG$"BLACKJACK">SB4PG$"COUNT DRILL"MSP30(PG$)5TURN TO MAIN MENU";14:1D"(2) STRATEGY REVIEW AND DRILL";O15:1j"(3) BLACKJACK GAME";u16:1CH1MX1:"(4) POINT COUNT DRILL";18:1"ENTER THE DESIRED PROGRAM NUMBER";IW14000AP(16384):AP128790845CHAP176 CH1ī6901CHNSī700KI120:A(16336):T652b38380,CHhr7:1SN$(CH);8:1"----------------------------------------";11:1"WHICH PROGRAM DO YOU WANT?"13:1"(1) RE OF THE PROGRAM";14NS:18"YOU WISH TO RUN ";GIW15000eAP(16384):AP128660mIWx:24016368,038381,0AP193AP19467538381,1PG$"STRATEGY EDITOR"AP194PG$"STRATEGY EVALUATOR":ATEGIES:";II1NS"N4I:1:S"(";I;") ";SN$(I);@XM]7NS:1~b"AS WELL AS TWO SPECIAL UTILITY PROGRAMS:";g9NS:1l"(A) STRATEGY EDITOR";q10NS:1v"(B) STRATEGY EVALUATOR";{13NS:1"ENTER THE NUMBER/LETTER16384):AP128460 IW4 PG$"DEMONSTRATION"? :845E S 16368,0` 38381,0y CH0(38381)0710 16303,0 MX0 16303,0 : 0 52:13 :"BREAK THE BANK!"; ?3:1 D"OFFERS A CHOICE OF BLACKJACK STR0 "WHICHEVER STRATEGY YOU CHOOSE TO LEARN.";; 20:6b "LEARN EFFECTIVE BLACKJACK PLAY";m 21:1 "AND YOU'LL ALWAYS PLAY BLACKJACK TO WIN!"; 24:1 "------ PRESS ANY KEY TO CONTINUE ------"; 16368,0 IW15000 AP(ATEGIES AND"; m13:2G r"ADD THEM TO THIS TUTORIAL IF YOU WISH.";R w15:4~ |"THROUGH STRATEGY REVIEWS AND DRILLS"; 16:1 "AND SIMULATED CASINO PLAY WITH GRAPHICS,"; 17:1 " 'BREAK THE BANK!' WILL HELP YOU MASTER"; 18:2* @"IN FOUR LEVELS OF BLACKJACK PLAY,";4 E8:3a J"FROM BEST PLAY WITHOUT CARD COUNTING";k O9:3 T"TO ADVANCED CARD COUNTING TECHNIQUES."; Y11:2 ^"SPECIAL UTILITY PROGRAMS ALLOW YOU TO"; c12:1 h"EVALUATE OTHER BLACKJACK STR************************";Q 2:1:"* WELCOME TO BREAK THE BANK! *"; 3:1:"* THE COMPLETE CARD COUNTING TUTORIAL *"; 4:1:"****************************************"; 16:2 6" 'BREAK THE BANK!' OFFERS TUTORIALS"; ;7:5 214,255 SN$(9)&34,0:416303,0X(4);"OPEN STRATEGY DIRECTORY"|(4);"READ STRATEGY DIRECTORY"#NS(I1NS:SN$(I):-(4);"CLOSE STRATEGY DIRECTORY"2CH(38380)7(38381)2460 1:1:"****************         G       Ѝٍ    ėaKY$"N"680%aKY$"Y"1210EaK120:A(16336)::1202Qa34,5:a"* FINISHED *";a"****************************************";a34,7::34,0a(4);"RUN MENU"dU `F300`HAP(16384)+`JAP1286809`K16303,0F`L34,20:T`N16368,0e`PAP2091200r`RTG1TG`TTG0ī680`U`V1:0,0:3082`Z680`23:1:">>>>>> ARE WE FINISHED? (Y-YES,N-NO) ";`TG1`KY$aKY$"N"KY$"Y"H2PT$(TL(1))" "(TL(2))._0TG0İ250:_1I1NHO_2TL(I)21ī1078__3BRBRBT(I)i_41088~_6TL(0)21ī1084_8BRBRBT(I)_:1088_<TL(I)TL(0)BRBRBT(I)_>TL(I)TL(0)BRBRBT(I)_@_BTG0İ262`DI1NH:ACACBT(I):HPNHī960!^ HP0:CCCD(0,0)2^ 0:X30:Y10Q^CP100(CC(CC)):CP(CP)^^CC(CC)m^TG0İ200~^CNCNPV(CC)^TL(1)21ī1060^ NH1ī1070^"TL(2)21ī1070^$I1STALL:^&TL(0)17ī960^.DT$(TL(0)):PT$(TL(1))_/NP)NA(HP)1]CNCNPV(CC)2]TL(HP)21ī1010F]NA(HP)0ī1010[]TL(HP)TL(HP)10o]NA(HP)NA(HP)1x]992]HP0ī1060]PL$"D"ī1030]PL$"P"ī1020]CD(0,1)14ī1030]820]TL(HP)21ī820]HPHP1:X10:PL$"P" ^HP2BT$B1$" "(BT(2))"D"/\TG0İ262H\XX20:Y10HP60:0Z\CP(NN(1))\CCDK(CP):DK(CP)DK(NN):DK(NN)CC:NNNN1\CP100(CC(CC)):CP(CP)\CC(CC)\TG0İ200\TL(HP)TL(HP)FV(CC)\NC(HP)NC(HP)1 ]CC14NA(HS%1"[NA(2)NA(1):TL(2)TL(1)28[NA(1)0TL(2)11H[TL(1)TL(2)\[NC(1)1:NC(2)1n[X10:Y130:0}[TG0İ200[X10[I1STALL:[960[TB2BT(1):HP2TBBT(1)2BT(2)[BT(HP)2BT(HP)[HP1B1$(BT(1))"D":BT$B1$ \Z>PL$"U"ī850#ZR0:X30:Y102ZUCCCD(0,0)QZVCP100(CC(CC)):CP(CP)^ZWCC(CC)mZXTB0İ200~Z_CNCNPV(CC)Z`BRBR0.5BT(0)ZaTL(1)0Zb1090ZBT$(BT(0))" "(BT(0))ZTG0İ262ZTG0Ĺ16302,0[NH2:BT(2)BT(1):F0:X30:Y10YCCCD(0,0):Y CP100(CC(CC)):CP(CP)GY!CC(CC)VY"TG0İ200sY)TL(0)TL(1)BRBRBT(0)Y*TL(1)TL(0)BRBR1.5BT(0)Y+CNCNPV(CC)Y,1090Y450Y6PL$"D"ī950Y8PL$"P"ī900Y:PL$"H"ī960Z<PL$"S"ī1030"ī795XTL(0)21ī792DXTG0Ģ24:11:"INSURANCE BET LOSES!";XXBRBR0.5BT(0)gXTG0İ250{X34,23::34,20X1:1:795XTG0Ģ24:11:"INSURANCE BET WINS!";X34,23::34,20XBRBRBT(0):796XTL(0)21TL(1)21ī820 YNPV(CC)WTG0İ200.WTL(J)TL(J)FV(CC)GWCC14NA(J)NA(J)1OW:ZWI01WNA(I)2TL(I)TL(I)10:NA(I)NA(I)1WWCD(1,0)14ī795WTG0Ģ24:1:"DO YOU WANT INSURANCE? (Y-YES,NO) ";W120W34,23::34,0XIN$"NI)0:VI01:J01*VCP(NN(1))XVCCDK(CP):DK(CP)DK(NN):DK(NN)CC:NNNN1jVNC(J)NC(J)1yVCD(I,J)CCVX10:Y1060J:IJX30VIJ0HI1VIJ0TG0İ200VCP100(CC(CC)):CP(CP)VCC(CC)VIJ0ī764WCNC695UCN0:NN52ND1'UTG0ī695:U2:0,0:3082MU1:0,0:3082VU250_U100xUBT(0)500BT(0)500UBT(0)1BT(0)1UBT$(BT(0)):PT$" ":DT$" ":B1$BT$UTG0İ262UNH1:HP1:BT(1)BT(0)VI02:TL(I)0:NA(I)0:NC(7T}:20:"Q-QUIT ANY OTHER KEY-SWITCH MODES";BT~34,20[TTG0Ē1:0,0:3082gTTG0ėuTBR0:AC0TPT$" ":DT$" ":BT$" "TFS%0:16301,0TTG0ī687T1:0,0:3082TPT$" ":DT$" ":BT$" "T250UNN8(ND1)26336)::624&StTG0đ:1:0,0:3082ISu::7:12:"CURRENT BANKROLL"iSv10:3:"MINIMUM BANKROLL";Sw23:"MAXIMUM BANKROLL"Sx13:5:" NUMBER OF ";Sy26:" TOTAL "Sz5:"HANDS PLAYED";S{26:"AMOUNT BET"T|17:15:"EXPECTATION"NN:DK(I):,Rk(4);"CLOSE STANDARD DECK"[Rl12:1:"WHICH DISPLAY MODE DO YOU WANT?";~Rm14:5:"(1) GRAPHIC DISPLAY";Rn16:5:"(2) SUMMARY PAGE";Ro18:1:"ENTER 1 OR 2: ";RpKY$RqTG32(KY$)RrTG1TG1ī628 SsK120:A(16******************************";*Qb34,5`Qc9:1:"HOW MANY DECKS DO YOU WANT? (ENTER 1-6)";iQdKY$wQeND(KY$)QfND1ND6ī616QgK120:A(16336)::612Qh:(4);"OPEN STANDARD DECK"Qi(4);"READ STANDARD DECK" RjNN52ND1:I0PTI1NL1:B(I):C(I):"PVRC+PXQI$566)O@EOBSP((30(SN$(SI)))2)mOD4:1:"*";SP);"LOADING ";SN$(SI);{OF40:"*";OH5:1:"****************************************";OJ34,5OLON(4);"OPEN ";SN$(SI)OP(4);"READ ";SN$(SI)ORNLN$*N&(4);"CLOSE STRATEGY DIRECTORY"`N(5:1:"THE FOLLOWING STRATEGIES ARE AVAILABLE:";hN*V6tN,I1NS~N-VV1N.V:5:"(";I;") ";SN$(I);N0IN2V2:1:"WHICH DO YOU WANT TO EVALUATE?";N6KY$N8SI(KY$)O:SI1SINSī576VIEW THE FINAL STATISTICS.";UMV18:1:"------ PRESS ANY KEY TO CONTINUE ------";cM16368,0MKY(16384):KY127534M16368,0M:M(4);"OPEN STRATEGY DIRECTORY"M(4);"READ STRATEGY DIRECTORY"MNSM I1NSM"SN$(I)LAY OF EACH HAND <<";?L V8:6:" AS IT IS BEING PLAYED";vL V10:3:">> SUMMARY PAGE OF STATISTICS ONLY <<";LV13:1:"TYPING ANY KEY BUT Q SWITCHES MODES.";LV15:1:"TYPING Q CAUSES THE PROGRAM TO PAUSE.";MV16:1:"YOU MAY THEN WS YOU TO";DKV1:1:"TEST BLACKJACK STRATEGIES STATISTICALLY.";}KV2:1:"THE EVALUATOR KEEPS TRACK OF THE RESULTS";KV3:1:"AS IT PLAYS FOR BOTH DEALER AND PLAYER.";KV5:7:"THERE ARE TWO DISPLAY MODES:";LV7:3:">> GRAPHIC DISP1(EX$)2:EX$JE!J34,0:XJ1:1:"****************************************";J2:1:"* STRATEGY EVALUATOR *";J3:1:"****************************************";J34,3JV5 KV:3:"THE STRATEGY EVALUATOR ALLOHN$(HN)I6AC$(AC)7I8EX$((BR1000AC)10)"%"GI98:1:ES$;`I:8:21(BR$)2:BR$qI;11:1:ES$;I<11:11(BN$)2:BN$;I>31(BX$)2:BX$I?15:1:ES$;I@15:11(HN$)2:HN$;IB32(AC$)2:AC$IC18:1:ES$;JD18:2:25:"BET ";BT$;6H22:1:"DEALER'S TOTAL ";ZH 22:1:"DEALER'S TOTAL ";DT$;H 23:1:"PLAYER'S TOTAL ";H 23:1:"PLAYER'S TOTAL ";PT$;H1HH,HNHN1H.BR$(BR)H0BR(BN$)BN$BR$H2BR(BX$)BX$BR$ I4XUX,YUYSYG32&GCCXLX,YLY;GCPXLX,YLYSYAGIG30qG21:1:"BANKROLL ";G21:1:"BANKROLL ";BR;G23:25:"COUNT ";G23:25:"COUNT ";(0.1(10TC));G21:25:"BET ";H21NL1FlTCC(K)BT(0)B(K)%FnK+Fp7FxIN$QI$FFzQI$"N"ıNF|30aF~TCUCIN$"N"gFnF0|FHI0210FHI0F2:1X,YF0:22X,YFF3:1X,YF0:19X,YFCS2(CP2(CP2))FCSFCCXUX,YUY GCPIP,ID),3),1)2ENSD$"1"SD$((ST$(IP,ID),3),1)XEOFD$"4"FD$((ST$(IP,ID),4),1)~EPSD$"4"SD$((ST$(IP,ID),4),1)EUCT(ST$(IP,ID))EVPL$HL$((FD$))EWFD$SD$ıEXTCCTPL$HL$((SD$))EZEdBT(0)1EfNL1ıEh30FjK172D9IP15FV((CD(0,1)))9D:FD$((ST$(IP,ID),2),1)QD;SD$(ST$(IP,ID),1)YDF85DHIPTL(HP)5:IP1FD$"2":SD$"2":86DINA(HP)0IPTL(HP)14DJFD$((ST$(IP,ID),2),1)DKSD$(ST$(IP,ID),1)DLNC(HP)2ī85 EMFD$"1"FD$((ST$(HL$(I):#C "P","D","H","S","U",C5007CKNN1JCRD(0.5K52)]C RH(0.5K26)mC!RC1TCCNC"RC2TCCNKC#RC3TCCNRDC$RC4TCCNRHC%C2IDFV((CD(1,0)))2C6FS%1ī72C7NC(1)2ī72D8(CD(0,1))(CD(1,1))"5-5","6-6","7-7","8-8","9-9","10-10","A-A"iB "A-2","A-3","A-4","A-5","A-6","A-7","A-8","A-9","A-10"BOP$(0)" SPLIT":OP$(1)"DOUBLE":OP$(2)" HIT":OP$(3)" STAND"BI09:DH$(I):B "2","3","4","5","6","7","8","9","10","ACE" CI04:RN(38383)256(38384)%A A(RN);A I210:FV(I)I:SAI1113:FV(I)10:aAFV(14)11yAI1014:PV(I)1:AI035:PH$(I):A "5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21"+B "2-2","3-3","4-4",!#@BT(2),CD(1,1),DK(311),FV(14)M@NA(2),NC(2),PV(14),TL(2),B(10),C(10)y@ST$(35,9),PH$(35),DH$(9),OP$(3),HL$(4)@1@UX7:UY4:LX33:LY52:SY13@HN0:BN$"0":BX$"0"@ STALL1000@ ES$" "A            ABBREVIATIONS:"8:" H-HIT S-STAND D-DOUBLE"X:" P-SPLIT U-SURRENDER"`:::"------ PRESS ANY KEY TO CONTINUE ------";:16368,0:KY(16384):KY1275102:16368,0::1020 UNDER A NEW NAME OF YOUR CHOICE."+9\9"THROUGHOUT THE EDIT SESSION, WHEN ASKED,";9"IDENTIFY INDIVIDUAL CARDS AS FOLLOWS:"9" 2,3,4,5,6,7,8,9,10,A"9"IDENTIFY HARD HANDS BY THEIR TOTALS 5-21";:"IDENTIFY PLAYS USING THE TRY.";78"FIRST, LOAD IN A SIMILAR EXISTING TABLE.";=8k8" YOU MAY THEN ALTER THE POINT VALUES,"8"BETTING STRATEGY, AND PLAYING STRATEGIES";8"FOR PAIRS, SOFT HANDS, AND HARD HANDS."8"THE EDITTED TABLE MAY BE STORED ON DISK"%9"C 7B QI$7C QI$"Y"ĺUC'7D I21427N PV(I)97X IE7b I035P7l J09^7v ST$(I,J)f7 :}7 (4);"CLOSE ";FF$7 34,0:7 :(4);"RUN MENU"77" THE EDITOR ALLOWS YOU TO ENTER OTHER"8"BLACKJACK SYSTEMS YOU MIGHT WANT TO ; 6 KY$6 46 (4);"OPEN STRATEGY DIRECTORY"Y6 (4);"WRITE STRATEGY DIRECTORY"a6 NEo6 I0NE1{6 SS$(I)6 6& (4);"CLOSE STRATEGY DIRECTORY"60 :(4);"OPEN ";FF$6: (4);"WRITE ";FF$6< NL6> I1NL1:B(I):C(I):7@ T,N-NO) ";5 DD$$5 DD$"N"260365 DD$"Y"3025P5 I120:A(16336):Z5 29905 :::">>> PRESS ANY KEY WHEN DISK IS READY <<<";5 KY$5 31205 IPNE5 NENE15 SS$(IP)FF$6 :::">>> PRESS ANY KEY WHEN DISK IS READY <<<" ONE. SELECT ONE OF THE FOLLOWING:";*4^ 54h I47N4r "(";I1;") ";SS$(I)T4| ]4 DD$n4 IP(DD$)484 IP5IP829504 30404 ::"THIS FILENAME IS ALREADY IN USE."4 "USING THIS NAME WILL DESTROY OLD FILE!!" 5 "IS THIS OK? (Y-YES NAME *"%3H 12:"* TRY AGAIN *"B3I 12:"*****************"R3K I13000:\3P 2603b3Z p3n I4NE13x SS$(I)FF$29603 3 NE830303 ::"THE STRATEGY DIRECTORY IS FULL"3 "TO SAVE THIS STRATEGY YOU MUST REPLACE"$4T "AN OLD2< I(FF$)130:" ";:C2= ::" IS THIS OK? (Y-YES,N-NO) ";L2> DD$_2? DD$"N"ī2603r2@ DD$"Y"ī26262A I120:A(16336)::26222B I032C SP30(FF$)2D SS$(I)FF$26502E ::2F 12:"*****************"3G 12:"* RESERVED, :" ENTER FILENAME FOR NEW STRATEGY TABLE"K1- :6::I130:" ";::R1. 6[1/ SS$i10 SS(SS$)11 SS65SS90260712 FF$SS$:SS$;13 I23114 SS$15 SS(SS$)16 SS13262017 SS32SS44261218 FF$FF$SS$:SS$;19 2: 260336)::217500420G0ID$"="ST$(I,J)(CT)"="ID$FD$SD$o0ID$"="ST$(I,J)(CT)"="FD$SD$y02135026000( 34,3:0) "* EDITING SESSION FINISHED *";0* "****************************************";0+ 34,5:.1z#     ͠Ӡ Ӡ ՠ ٠٠ Π ӭ ĠԠԠ  ٠̠3 Ԡ̠2 ΠԠ٠Ҡ4ԭ٠Ҡ# ŠԠԠ "Ϡ" ӮР"Π" ŠԠԠ  ˠ;à٠ҠŠҠ Ġˠ ER'S UP CARD? ";/H180-/MDD$(13)20157/RDUCDC/W34,9:i/\:"DEALER'S UP CARD IS ";NN$(DU)t/a34,12~/fID5/kJD2/p100/u315/z:"IS THIS OK? (Y-YES,N-NO) ";/DD$/DD$"Y"2110/DD$"N"2195 0K120:A(163PC212085. 20900.%(0):" ";:(0):2025:.*DE$;@./t.4"* PLAYER HAS A TOTAL OF ";PC;:40:"*";.9"****************************************";.>34,9:.@:24:3:" - SKIP TO NEXT PLAYER HAND";:.B10:1/C:"DEAL" - END EDIT SESSION";:+-8:1N-:"PLAYER HAS A TOTAL OF ? ";W-DD$k-DD$(13)2220|-DD(DD$)48-DD1DD92025-DD$;-DE$-DE$(13)PCDD:2075- DE(DE$)48-DE0DE92085-PC(DD$DE$) .PC5D$"="ST$(I,J)(CT)"="ID$FD$SD$N,DD$"="ST$(I,J)(CT)"="FD$SD$X,1890d,34,5:t,K12000:,"* EDIT HARD HANDS *";,"****************************************";,K12000:,34,7:!-:24:7: +b34,9:1+l:"DEALER'S UP CARD IS ";NN$(DU)<+q34,12F+vID25Y+wDE$"A"ID15c+{JD2l+100u+315+:"IS THIS OK? (Y-YES,N-NO) ";+DD$+DD$"Y"1860+DD$"N"1955+K120:A(16336):+1935++420&,D7*:"* PLAYER HAS AN ACE AND ";NN$(PC);:40:"*";h*?"****************************************";r*D34,9x*E*F:24:3:" - SKIP TO NEXT PLAYER HAND";:*G10:1*N:"DEALER'S UP CARD ? ";*S180*XDD$(13)1820*]DUCDNDS *";C)"****************************************";S)K12000:\)ZZ0h)34,7:):24:5:" - SKIP TO HARD HANDS";:)8:1)!:"PLAYER HAS AN ACE AND A ? ";)&180)+DD$(13)2000),DE$DD$)0PCCD*5100(3153(:"IS THIS OK? (Y-YES,N-NO) ";<(DD$N(DD$"Y"1635`(DD$"N"1725z(K120:A(16336):(1705((420(ST$(I,J)(CT)"="FD$SD$(1660(PF0( 34,5:(K12000:)"* EDIT SOFT HA***********";'c34,9:P'd:24:3:" - SKIP TO NEXT PLAYER HAND";:['e10:1y'h:"DEALER'S UP CARD ? ";'mX1594'r180'tDD$(13)ī1595'wDUCD'|34,9:':"DEALER'S UP CARD IS ";NN$(DU)'34,12'ID15'JD2(;34,7:&<ZZ1&@PF1L&A:24:5:" - SKIP TO SOFT HANDS";:V&B8:1x&E:"PLAYER HAS A PAIR OF ? ";&J180&LDD$(13)ī1800&OPCCD&T&Y"* PLAYER HAS A PAIR OF ";NM$(PC);" *"; '^"*****************************CHOOSE ONE OF THE ABOVE NUMBERS : ";-%DD$;%TC(DD$)O%TC0TC51525o%K120:A(16336)::1558{%634,5:%7K12000:%8"* EDIT PAIRS *";%9"****************************************";%:K12000: &--------------------------";@$:"IS THIS OK? (Y-YES,N-NO) ";I$KY$Z$KY$"Y"600l$KY$"N"1544$K120:A(16336)::1536$:$ :"HOW IS THE TRUE COUNT OBTAINED? "$ $K14$K3ĺ$"(";K;") ";XS$(K)$$%:"PV(II)#I+#I1113:PV(I)PV(10):6#216,0@#1318F#N#:~#:" CURRENTLY, THE TRUE COUNT IS OBTAINED"#8);"IN THE FOLLOWING MANNER: "#:"----------------------------------------";#:2);XS$(TC)$:"--------------(II) "<I"F:6"P"ARE THESE OK? (Y-YES,N-NO)";?"ZDD$Q"dDD$"Y"1525c"nDD$"N"1510"xI120:A(16336)::1370"::"ENTER NEW POINT VALUES"::"1524"I211"III:II11II14""HOW MUCH ARE ";NM$(I);" WORTH";#K12000:;! "* EDIT POINT VALUES *";l!""****************************************";|!#K12000:!$34,7!&::"CURRENT POINT VALUES ARE SHOWN BELOW:"!'!(I211!-III:II11II14"29:NM$(I);" ARE WORTH ";PVQI$ QI$"Y"ĄUC# I214. PV(I)5 IA I035L J09Z ST$(I,J)d J:I (4);"CLOSE ";SS$(VD)  "*";SP(SP2));SS$(VD);" LOADED ";(SP2));"*"; "****************************************"; 34,5: !16336)::1160%:SP30(SS$(VD))]"*";SP(SP2));"LOADING ";SS$(VD);(SP2));"*";"****************************************";:(4);"OPEN ";SS$(VD)(4);"READ ";SS$(VD)NLI1NL1B(I)C(I)ITC ILABLE STRATEGIES:":!LI1NE(V5A`"(";I;") ";SS$(I1)HjINoyt"WHICH STRATEGY DO YOU WISH TO EDIT?"v"ENTER CORRESPONDING NUMBER (Q-TO QUIT) ";NT$NT$"Q"3220VD(NT$)49VD0VDNE11210I120:A(DITOR *";J3:1:"****************************************";T34,3^5000:(4);"OPEN STRATEGY DIRECTORY"(4);"READ STRATEGY DIRECTORY"NEI0NE1$SS$(I).I8(4);"CLOSE STRATEGY DIRECTORY"B"AVAD$"."MC9LL4:DD$2DD$(13)994LK120:A(16336):SHe:" ";:lHu970BC0ı(VD$)VDVD(VD$):9871:1:"****************************************";2:1:"* STRATEGY E970UCVD917>H(0)1:VD$" ":MC12BC:LCBC3IL15]L2MC9MC10fDD$yDD$(13)994KKLCMCDD$VC$(KK)ī980KKK120:A(16336)::973VD$VD$DD$DD$;DD$"+"DD$"-"MC10 DCIDE"1" WHETHER OR NOT TO TAKE INSURANCE?"R:" ENTER Y-YES,N-NO : ";[QI$lQI$"N"917}QI$"Y"946K120:A(16336)::942:"ENTER THE COUNT FOR INSURANCE: ";32::" ";:32BC0:VD9999:12);"TAKE INSURANCE"D2);"IF TRUE COUNT IS GREATER THAN ";UCw:"----------------------------------------";:"IS THIS OK? (Y-YES,N-NO) ";KY$KY$"Y"1590QI$"N"QI$"Y":946:" IS THIS POINT COUNT USED TO DE";: BC332:970-B(NL1)(VD$)L32:" ";:32:B(NL1)U615[:"CURRENT STRATEGY FOR INSURANCE BETS:":"----------------------------------------";QI$"Y"925:10);"NEVER TAKE INSURANCE!"930KL1NBt9:C(KL);:191v:" ";::19:wBC0Cx970VzC(KL1)(VD$)v|19:" ";:19:C(KL1);~32::" ";:32BC3970B(KL)(VD$)32:" ";:32:B(KL)KL19:C(NL1);:32:" H15:"AND ";M26:"!"%OK@R" GREATER THAN ";MW26:"!"Z\26:"!"a"-------------------------+--------------";f15:19h:" ";::19iBC0j970lC(1)(VD$)n19:" ";:19:C(1)pNB0ī906r"-------------------------+--------------";\" IF TRUE COUNT IS ... ! THEN BET ..."; "-------------------------+--------------";%26:"!"*" LESS THAN ";/26:"! 1"4NBNL29NB0850>K1NBC"BETWEEN ";$"N"VD9999:7452K120:A(16336)::725Y::"ENTER NEW BETTING STRATEGY:"a11"ENTER NUMBER OF BETTING LEVELS (1-5) :";34,10DD$NL(DD$)NL1NL5780K120:A(16336)::760 NL1615+N ";C(K);!15:"AND ";C(K1);826:"! ";B(K)?Kb" GREATER THAN ";C(NL1);|26:"! ";B(NL1)26:"!""-------------------------+--------------";:"IS THIS OK? (Y-YES,N-NO) ";DD$DD$"Y"917DD------------------------+--------------";Z" IF TRUE COUNT IS ... ! THEN BET ...";"-------------------------+--------------";26:"!"" LESS THAN ";C(1);26:"! 1"NBNL2NB0ī700K1NB "BETWEE**************";g34,7*lK12000:Oq::"CURRENT BETTING STRATEGY:"Wr11esNL1635t"----------------------------------------";u:" ALWAYS BET 1 UNIT!"v:"----------------------------------------";w720){"- THEN? ";240SD$DS$,PF1550GFD$"1"SD$"1"550PDF1{:"IF DOUBLING NOT ALLOWED, THEN ? ";240ID$DS$&0WNL5X34,5:]"*";9);"EDIT BETTING STRATEGY";8);"*";b"**************************ID$"="410>"IF DOUBLING NOT ALLOWED THEN ";CT$((ID$))D^"ENTER NEW STRATEGY"dn560"CRITICAL COUNT? ";CT216,0"IF TRUE COUNT IS GREATER THEN? ";240FD$DS$FD$"4"ĺ "IF TRUE COUNT IS LESS <@FD$SD$3707J"THE CRITICAL COUNT IS ";CTiT"IF TRUE COUNT IS GREATER THEN ";CT$((FD$))^"IF TRUE COUNT IS LESS THEN ";CT$((SD$))h380r"REGARDLESS OF THE COUNT -- ";CT$((FD$))|FD$"1"SD$"1"410PF1410  DF1DD$"D"310+ ZZ0DD$"P"ī310@ DD$"P"DS$"0"U DD$"D"DS$"1"j DD$"H"DS$"2" "DD$"S"DS$"3" 'DD$"U"DS$"4" ,DS$"E"310 -DF0 .CT$((DS$)); / 6K120:A(16336)::250 ;:"PRESENT STRATEGY"(R3$,1)  DD$( DD$(13)ıB DD$"A"CD11:DD$:Z DD$"1"ĺDD$;:215k CD(DD$)48 CD2CD10ĺDD$: I120:A(16336): 180 DD$ DD$"0"CD10:DD$: (0):" ";:(0) 180 DS$"E" DD$E NUMBER OF 52-CARD DECKS REMAINING FOR PLAY." S "DIVIDE RUNNING COUNT BY THE NUMBER OF HALF DECKS REMAINING FOR PLAY." U1000 dIPCID nJDUJD xCT(ST$(I,J)) R3$(ST$(I,J),3) SD$(R3$,1) FD$((R3$,2),1) ID$N","AN ACE"! KI012:VC$(I):[ L "0","1","2","3","4","5","6","7","8","9",".","-","+"p PI14:XS$(I):3 R "THE RUNNING COUNT IS THE TRUE COUNT.","DIVIDE RUNNING COUNT BY THE NUMBER OF CARDS REMAINING FOR PLAY.","DIVIDE RUNNING COUNT BY TH"STAND" #CT$(4)"SURRENDER"4 (I211:NM$(I): 2 " TWOS","THREES"," FOURS"," FIVES"," SIXES","SEVENS","EIGHTS"," NINES"," TENS"," ACES" <I211:NN$(I): F "A TWO","A THREE","A FOUR","A FIVE","A SIX","A SEVEN","AN EIGHT","A NINE","A TE2214,25534,0:$34,30XS$(4)AB(10),C(10)^PV(14),ST$(35,9),SS$(7)sNM$(11),NN$(11)ES$" "VC$(12) ZZ0 CT$(0)"SPLIT"CT$(1)"DOUBLE"CT$(2)"HIT" CT$(3)               6* U Q٩(L`  "DO YOU WANT ANOTHER ROUND? (Y-YES,N-NO)";58KY$H81:0,0:3082T834,5:g8KY$"Y"ī1505m8{816303,0890 I (C) SLOWER ";716368,0<7KY(16384):KY1281690J716368,0j7KY193KY194KY195ī16977J120:A(16336):7169377KY193ī17057KY194RA%(RA%RL)27KY195RA%(RA%RU)2738382,RA%7722:1,856T6Y22:4@6^"THE LAST CARDS IN THE DECK ARE . . . ";Q6cI1STALL:]6hI0NNk6mX98I44{6rCC(DK(I))6wCP100(DK(I)CC)6|3056634,5:622:1:"SELECT DESIRED SPEED OF DEALER:";723:1:"(A) SAME (B) FASTER )5NS2(2NS)5 Y52'5I0NS55X9844IG5CP(NN(1))U5CCDK(CP)g5"DK(CP)DK(NN)u5$DK(NN)CC5'CP100(CC(CC)):CP(CP)5,CC(CC)51NNNN156CNCNPV(CC)5;3055@5EJ15RA%:5J1:0,0:30826ONN2ī1536384):KY1281465 416368,0,434,5:A4:1:0,0:3082R4RA%(38382)b4RU255:RL1m421:24"PRACTICE KEEPING A RUNNING COUNT ...";4I1STALL:422:24"... BY COUNTING EACH CARD AS IT'S SEEN!";4NN515NS(4(1)FC$;".";?320:2:"THIS ALLOWS YOU TO CHECK YOUR ACCURACY.";w321:1:"IF YOU ARE ACCURATE, YOU WILL BE ABLE TO";322:1:"PREDICT THE VALUES OF THE LAST FEW CARDS";324:1:"------ PRESS ANY KEY TO CONTINUE ------";316368,04KY(1NE TUNED";7214:5:"TO KEEP THE DRILL CHALLENGING";m215:2:"EVEN AS YOUR LEVEL OF SKILL INCREASES.";217:1:"FOR A FRESH DECK, THE COUNT STARTS AT 0.";2FC$(FC)2SP((6(FC$))2)318:1:SP);"WHEN FINISHED, THE COUNT MUST BE ";x34,5:41}8:7:"IN THIS DRILL, YOU MUST KEEP";k19:1:"A RUNNING COUNT OF THE TOTAL POINTS SEEN";110:2:"AS CARDS ARE DEALT FROM A 52-CARD DECK.";112:4:"EACH DEAL EXPOSES FROM 1 TO 3 CARDS."; 213:3:"THE DEALER'S SPEED MAY BE FIJ11.5STALL:0Q'0RKY(16384)C0SKY141Ĺ16368,0:1370J0TI]0Z1:0,0:3082h0[22:10\"SHALL WE DO THAT AGAIN? (Y-YES,N-NO) ";0]KY$0^KY$"Y"13280_KY$"N"13780`I120:A(16336):0a13730b16303,00c86 1):DK(CP)DK(NN):DK(NN)CC%/DNNNN1;/ECP100(CC(CC))Q/FCP(CP):CC(CC)r/GCNCNPV(CC):LS$LS$LB$(CC)|/HX142/I305/J22:1/K21(LS$));LS$;" ARE COUNTED ";/LPM$"+"/MCN0PM$" "/NCN0PM$"-"/O:PM$;(CN);:0PALUE!";.5J1STALL:.6(.7NN511.8Y52=.9I025O.:CP(NN(1))u.;CCDK(CP):DK(CP)DK(NN):DK(NN)CC.<NNNN1.=CP100(CC(CC)).>CP(CP):CC(CC).?CNPV(CC):LS$LB$(CC)" AND ".@X98.A300.BCP(NN(1))/CCCDK(CPY TO CONTINUE ------";+-,34,22:16368,0I--KY(16384):KY1281325]-.34,5:16368,0r-/1:0,0:3082:-0:1:0,0:3082-122:1:"LET'S DEAL DOWN A STANDARD DECK OF CARDS";-2J1STALL:.423:1:"RECITING ALOUD EACH PAIR'S POINT VT LEARN TO COUNT 10-7 AS ";PV(10)PV(7);4,$18:1e,%"THE EASIEST WAY TO LEARN THESE VALUES IS";p,&19:1,'"TO DEAL DOWN A DECK TWO CARDS AT A TIME";,(20:1,)"AND RECITE EACH PAIR'S NET POINT VALUE.";,*22:1-+"------ PRESS ANY KE LEARN!";+12:1E+"THE TRICK IS TO COUNT EACH PAIR OF CARDS";P+13:1+"SEEN AS A UNIT WITH ITS OWN POINT VALUE.";+15:1+ PM$"+":PV(7)0PM$"-"+!"FOR EXAMPLE, DON'T COUNT 10-7 AS ";PV(10);PM$;(PV(7));+"16:1),#"YOU MUSYES,N-NO) ";*KY$'*KY$"Y"ī9009*KY$"N"ī830S*I120:A(16336):\*830b*l*7:1*"COUNTING CARDS IN TWOS IS A GREAT TRICK:";*9:1*" IT MAKES THE RUNNING COUNT EASIER!";*10:1 +" AND IT ISN'T HARD TO )VD$(CN)#)CN0VD$"+"VD$3)K12000:9)F)34,20:s)21:1:"THE RUNNING COUNT IS NOW ";VD$;)1:0,0:3082)I)34,5:)22:7:"THAT'S THE END OF THE DECK!";)1:0,0:3082 *23:2:"SHALL WE DO THAT AGAIN? (Y-VD$"+"VD$(K12000:"(J(22:1:LB$(CC);" IS COUNTED ";VD$;U(34,22f(CNCNPV(CC)(23:1:"WHAT IS THE RUNNING COUNT NOW? ";(:" ";:(32(360(VD(VD$)(24:18(VDCNĺ"RIGHT!";(VDCNĺ"WRONG!";'CP(CP):CC(CC)'300I'22:1:LB$(CC);" IS WORTH HOW MUCH? ";[':" ";:g'(0)4p'360'VD$""Ĺ34,5::1269'VD(VD$)'24:18'VDPV(CC)ĺ"RIGHT!";'VDPV(CC)ĺ"WRONG!";'1'VD$(PV(CC)) (PV(CC)0 &24:18"&VDCNĺ"RIGHT!";9&VDCNĺ"WRONG!";@&1P&K12000:\&34,5:&21:1:"THE RUNNING COUNT BEGINS AT ";CN;&I051&NN51I&34,21:&CP(NN(1))&CCDK(CP):DK(CP)DK(NN):DK(NN)CC&CP100(CC(CC))1:"NOW IT'S YOUR TURN TO KEEP THE COUNT ...";G%K1STALL::34,5:}%23:1:"LET'S BREAK OUT A FRESH DECK OF CARDS!";%K1STALL:%34,5:%CN0%21:1:"WHAT IS THE STARTING COUNT? ";%:" ";:%29%360&VD(VD$);CN;$[:OP$;(PV(CC));:-$`J1STALL:8$e23:5d$jLB$(CC);" IS COUNTED ";PM$;(PV(CC));o$o24:5$t"THE COUNT IS NOW ";CN;OP$;(PV(CC));" = ";$yCNCNPV(CC)$~:CN;:$J1STALL:$1:0,0:3082$I$34,5:.%22:# "THE ";WS$;" COUNT IS ";##,#CN;8#24:23A#CN;G#$X#)J1STALL:c#.21:5#3"THE ";WS$;" COUNT IS ";CN;#824:23#=CN;#B23:5#GLB$(CC);" IS COUNTED ";#L:PM$;(PV(CC));:#Q24:5$V"THE COUNT IS NOW ""PV(CC)0PM$" + "."PV(CC)0PM$" - "<"OP$" + "S"PM$" - "OP$PM$^"23:5"LB$(CC);" IS COUNTED ";PM$;(PV(CC));"J1STALL:"24:5""THE COUNT IS NOW ";CN;OP$;(PV(CC));" = ";CNPV(CC);"J1STALL:"21:5ARTING"!21:54!"THE ";WS$;" COUNT IS ";CN;F!CP(NN(1))l!CCDK(CP):DK(CP)DK(NN):DK(NN)CC!CP100(CC(CC))!CP(CP)!CC(CC)!NNNN1!300!22:5!"THE ";WR$;" CARD IS ";LB$(CC);!J1STALL:!PM$" "6 22:1:"LET ME DEAL A FEW CARDS FOR YOU ... AND";m 23:1:"SHOW YOU HOW THE RUNNING COUNT CHANGES!"; K12STALL: NN51 CN0 X120:Y52 I04 34,5: WR$"NEXT" I0WR$"FIRST" WS$"PRESENT"!I0WS$"ST1:1:"THE RUNNING COUNT BECOMES ";PV(5)PV(8);"+";PV(10);"=";PV(5)PV(8)PV(10);nd22:5:"AND SO ON ...";f24:1:"------ PRESS ANY KEY TO CONTINUE ------";g16368,0hKY(16384):KY128872i16368,0:1:0,0:308234,5:A FIVE ...";H\17:1:"THE RUNNING COUNT BECOMES 0+";PV(5);"=";PV(5);}]18:1:"IF THE NEXT CARD SEEN IS AN EIGHT ...";^19:1:"THE RUNNING COUNT BECOMES ";PV(5);"+";PV(8);"=";PV(5)PV(8);a20:1:"IF THE NEXT CARD SEEN IS A TEN ...";Qb2CK, THE RUNNING COUNT IS ZERO. AS EACH";^W11:1:"CARD IS SEEN, ITS POINT VALUE IS ADDED";X12:1:"TO THE PREVIOUS RUNNING COUNT, GIVING";Y13:1:"THE NEW RUNNING COUNT.";Z15:5:"FOR EXAMPLE ..."; [16:1:"IF THE FIRST CARD SEEN IS 8309I120:A(16336):':8103>34,5:AC16303,0IH90ORS7:2:"THE RUNNING COUNT IS SIMPLY THE SUM OF";T8:1:"ALL POINTS SEEN DURING PLAY. BEFORE ANY";U9:1:"CARDS ARE SEEN AT THE START OF A FRESH";(V10:1:"DECNCNPV(CC)!24:83(FL1)GWD$(II);" ARE COUNTED ";PV(CC);XJ1STALL:q23:4II7:PV(CC);wKY(16384)KY141Ĺ16368,0:830 %"SHALL WE DO THAT AGAIN? (Y-YES,N-NO) ";*KY$/KY$"Y"ī6954KY$"N"ARD!";J1STALL:,NN51:CN08I051DNN51IxCP(NN(1)):CCDK(CP):DK(CP)DK(NN):DK(NN)CCCP100(CC(CC)):CP(CP)CC(CC)305IICCCC10CC14II10CC14II1123:4II7::PV(CC);: WD$(11);" ARE COUNTED ";PV(14);623:33:PV(10);K37::PV(14);:\J1STALL:m37:PV(14);:1:0,0:3082"LET'S GO THROUGH A DECK OF CARDS ...";I1STALL:J11000:"RECITING THE POINT VALUES OF EACH CNXX54!]1:0,0:3082/bCC1013CgCP15(4(1))Ll305WqXX44]vh{24:8WD$(10);" ARE COUNTED ";PV(10);23:29:PV(9);33::PV(10);:I1STALL:X120:Y52CP15(4(1))300!24:8::14"--- --- --- --- --- --- --- --- --- --- ";?34,23NX120:Y52Z!CC29n&CP15(4(1))w+300}058:WD$(CC);" ARE COUNTED ";PV(CC);:23?CC2ī580B4CC11:PV(CC1);D4CC7::PV(CC);:IJ1STALL::1:0,0:3082FL1%021:1a"LET'S REVIEW EACH CARD'S POINT VALUE ...";l22:1}I1STALL:"... BY FILLING IN THE FOLLOWING TABLE!"I1STALL:21:1 "2 3 4 5 6 7 8 9 10 ACE ";22CCXLX,YLY!YCPXLX,YLYSY'^4hH(0)1Bi16368,0MjVD$""XlK15anDD$oASK(DD$):AS43AS45370pDD$(13)ī376q(DD$)48(DD$)57366rDD$;tVD$VD$DD$vKxH:" ";zH:(VD$);|(4);"RUN MENU"%PT$"1"ī5007PT$"2"ī850JPT$"3"ī1300]PT$"4"ī1400wI120:A(16336):210,1:0,0:30821063:1X,Y;0:19X,Y@CP15CP17Ē2ECCXUX,YUYJCPXUX,YUYSYO32 TT$PT$"Q"ī240L"* FINISHED *";}"****************************************";RN1(255(1))38383,RNRN1(255(1))38384,RN34,7:::34,0(4);"BSAVE POINTERS,A$95EC,L$14"NG TWO CARDS AT ONCE IN PART 3."+19:1\"KEEP COUNTING SKILLS SHARP BY PRACTICING";g20:1"COUNTING DOWN THE DECK IN PART 4.";22:1"WHICH PART OF THE DRILL DO YOU WANT?";23:1"(ENTER Q TO QUIT THE DRILL) ";PPAIRS";13:42"(4) COUNT DOWN PRACTICE";=15:1m"STUDY PART 1 TO REVIEW THE POINT COUNT.";x16:1"LEARN TO KEEP A RUNNING COUNT IN PART 2.";17:1"THEN LEARN A TRICK TO MAKE COUNTING EASY";18:1 "BY COUNTI0TKY(16384):KY12884+U16368,01V;Z7:1k_" THE COUNT DRILL IS DIVIDED INTO FOUR";ud8:1i"SECTIONS:";n10:4s"(1) THE POINT VALUES";x11:4}"(2) THE RUNNING COUNT";12:4"(3) COUNTING CARDS IN D THE ";K20:1CL"LEVEL OF THE SIMPLE POINT COUNT SYSTEM,";NM21:1|N"THE COUNT WILL LET YOU CHANGE THE WAY";O22:1P"YOU PLAY EACH HAND FOR GREATER ACCURACY.";Q24:1R"------ PRESS ANY KEY TO CONTINUE ------";S16368,"THE REMAINDER OF THE DECK FAVORS YOU OR";5C15:1cD"THE DEALER. WHEN THE DECK FAVORS THE";nE16:1F"DEALER, MAKE SMALL BETS. WHEN THE DECK";G17:1H"FAVORS YOU, MAKE LARGE BETS.";I19:1J" AS YOUR SKILL INCREASES BEYONRN"; 79:1> 8"THE POINT VALUES OF EACH CARD. THEN YOU";I 910:1y :"LEARN TO KEEP A RUNNING COUNT OF TOTAL "; ;11:1 <"POINTS SEEN AS CARDS ARE DEALT FOR PLAY."; ?13:1 @" THE RUNNING COUNT TELLS YOU WHETHER"; A14:1*B) - .(4);"CLOSE ";SN$= /(4);"OPEN STANDARD DECK"\ 0(4);"READ STANDARD DECK"q 1I051:DK(I): 2(4);"CLOSE STANDARD DECK" 37:1 4" THIS DRILL WILL TEACH YOU TO COUNT"; 58:1 6"CARDS AT BLACKJACK. FIRST YOU MUST LEA;(SP2));SN$;SP(SP2));"*";W 5:1:"****************************************";a !34,5y ":(4);"OPEN ";SN$ #(4);"READ ";SN$ $NL %K1NL1:B:C: &TC 'QI$ (QI$"Y"ĄUC )FC0 *I214 +PV(I) ,FCFC4PV(I *";< 3:1:"****************************************";F 34,3V CH(38380)| :(4);"OPEN STRATEGY DIRECTORY" (4);"READ STRATEGY DIRECTORY" NS I1CH:SN$: (4);"CLOSE STRATEGY DIRECTORY" SP38(SN$) 4:1:"*"}  "A TWO","A THREE","A FOUR","A FIVE","A SIX","A SEVEN","AN EIGHT","A NINE","A TEN","A JACK","A QUEEN","A KING","AN ACE" 34,0: 16303,0 1:1:"****************************************"; 2:1:"* POINT COUNT DRILL 0214,2551DK(51),LB$(14),PV(14),WD$(11)@STALL3500VI211:WD$(I): " TWOS"," THREES"," FOURS"," FIVES"," SIXES"," SEVENS"," EIGHTS"," NINES","ALL TENS"," ACES"UX7:UY4:LX33:LY52:SY13 I214:LB$(I):                 :3082";::" -- FOR NEXT HAND";,23:8,!:"";::" -- FOR PREVIOUS HAND";,&24:5-+:"";:ER SHOWS TWO THROUGH SIX,";++K13000:6+22:2e+"YOUR PLAY IS SHOWN IN THE UPPER TABLE.";u+K13000:+34,20::34,5+23:1+"WHEN THE DEALER SHOWS SEVEN THROUGH ACE,";+K13000:+24:2,"YOUR PLAY IS SHOWN IN THE *IPLO*34,5:4*SS$"PLAYER HAS "PH$(IP)b*PT$"1"SS$"PLAYER HAS A HARD "PH$(IP)s*SP40(SS$)}*7:1*(SP2));SS$;*V9:SOP0*110*V15:SOP1*110*IPLOī1795*K12000:*21:2+"WHEN THE DEAL"THE TABLE ENTRIES ARE READ AS FOLLOWS:";:)K12000:H)ID2:V21[)SS$ST$(IP,ID)i)CT(SS$))FD$((SS$,2),1))SD$(SS$,1))350)24:1)"------ PRESS ANY KEY TO CONTINUE ------";)KY(16384):KY1281685*16368,01:"------ PRESS ANY KEY TO CONTINUE ------";L(KY(16384):KY1281509\(16368,0:(7:1:" A SAMPLE TABLE IS SHOWN BELOW FOR THE";(8:1:"HAND 'HARD 12' VS DEALER'S TWO - SIX.";(V11:SOP0:IP7(110(K12000:*)18:1:S ARE SHOWN IN THE TABLE,";Q'19:1:"THE CORRECT PLAY DEPENDS ON THE COUNT.";'20:1:"THE FIRST PLAY APPLIES IF THE TRUE COUNT";'21:1:"IS GREATER THAN THE NUMBER IN THE TABLE.";'22:1:"OTHERWISE, THE SECOND PLAY IS CORRECT.";.(24:S SUMMARIZING CORRECT PLAY AGAINST";\&12:1:"EACH POSSIBLE DEALER UP-CARD. THE TABLES";&13:1:"WILL USE THE FOLLOWING ABBREVIATIONS:";&15:6:"H-HIT S-STAND D-DOUBLE";&16:6:"P-SPLIT U-SURRENDER";'18:1:"WHEN TWO PLAYTF$%TF$"1"1490(%TF$"2"2500B%K120:A(16336):L%1465R%%7:4:"THIS TUTORIAL TAKES YOU HAND BY HAND";%8:1:"THROUGH THE STRATEGY FOR ";WP$(PT);".";%10:4:"FOR EACH PLAYER HAND, YOU WILL STUDY";$&11:1:"TABLE9:12$" YOU NOW HAVE A CHOICE OF TUTORIALS";=$10:1k$"TO TEACH YOU HOW TO PLAY ";WP$(PT);":";v$13:8$"(1) STRATEGY TABLE REVIEW";$15:8$"(2) FLASHCARD DRILLS";$18:1$"WHICH WOULD YOU PREFER? (ENTER 1 OR 2) ";%N MENU"#7PT(PT$)%#<PT113604#ALO0:HI15C#FLP4:HP12M#K1410]#PPT21380m#ULO17:HI26}#ZLP17:HP26#_1410#dPT31400#iLO27:HI34#nLP27:HP34#s1410#xPT43000#zK120:A(16336):#}1300#$ "6:1<"#"* FINISHED *";F"(7:1w"-"****************************************";"/34,7::34,0"0RN(256(1))"138383,RN"2RN(256(1))"338384,RN"4(4);"BSAVE POINTERS,A$95EC,L$16"#6(4);"RURTANCE!";!16:1B!"DO NOT ADVANCE TO THE HIGHER SECTIONS";M!17:1}!"UNTIL YOU HAVE MASTERED THE LOWER ONES!";!19:1!"ENTER THE NUMBER OF THE SECTION YOU WANT";!20:1!"OR TYPE Q TO QUIT:";!PT$!PT$"Q"1335"OGRESS THROUGH THESE SECTIONS:";+ 10:7O "(1) HOW TO PLAY HARD TOTALS";Z 11:7x "(2) HOW TO PLAY PAIRS"; 12:7 "(3) HOW TO PLAY SOFT TOTALS"; 13:7 "(4) GENERAL REVIEW"; 15:1 !"THESE ARE LISTED IN ORDER OF IMPOt(4);"CLOSE STANDARD DECK"<v(4);"OPEN PROBLEM HANDS"[w(4);"READ PROBLEM HANDS"qxI0179:HD(I):y(4);"CLOSE PROBLEM HANDS"~34,5:16303,07:1" LEARN THE RIGHT WAY TO PLAY EACH HAND";8:1 "AS YOU PRD ";SN$>NL,?I1NL1:B(I):C(I):I4@TC=AQI$NBQI$"Y"ĄUC`CI214:PV:lGI035wLJ09QST$(I,J)VJ[I`(4);"CLOSE ";SN$e(4);"OPEN STANDARD DECK"j(4);"READ STANDARD DECK"oI051:DK(I):READ STRATEGY DIRECTORY" NS3I1CH:SN$:X(4);"CLOSE STRATEGY DIRECTORY"i$SP38(SN$))4:1:"*";(SP2));SN$;SP(SP2));"*";.5:1:"****************************************";334,58:(4);"OPEN ";SN$=(4);"REA16303,0F1:1:"****************************************";}2:1:"* STRATEGY REVIEW AND DRILL *";3:1:"****************************************";34,3CH(38380) :(4);"OPEN STRATEGY DIRECTORY"(4);"SURRENDER";?16:3:"WHEN THE RIGHT PROMPT FLASHES, ENTER";j17:7:"THE CORRECT CRITICAL COUNT.";20:1:"------ PRESS ANY KEY TO CONTINUE ------";KY(16384):KY12895416368,0K120:A(16336):90034,0: NEITHER CRITICAL COUNT";P8:1:"NOR PROPER PLAY. YOU MUST PROVIDE BOTH!";10:3:"WHEN THE LEFT PROMPT FLASHES, ENTER";11:2:"THE APPROPRIATE PLAY AS SHOWN BELOW:";13:5:"H-HIT S-STAND D-DOUBLE"; 14:5:"P-SPLIT U-WN BELOW:";:14:5:"H-HIT S-STAND D-DOUBLE";_15:5:"P-SPLIT U-SURRENDER";18:1:"------ PRESS ANY KEY TO CONTINUE ------";KY(16384):KY12892816368,0DP$"3"95834,5:7:2:"THE CARDS GIVEER!...";K13000:0DP$"2"932<34,5:r7:1:"THE CARDS SHOW ONLY THE CRITICAL COUNT.";9:5:"YOU MUST GIVE THE PROPER PLAYS.";11:1:"WHEN THE FLASHING PROMPT APPEARS, ENTER"; 12:3:"THE APPROPRIATE PLAY AS SHOCORRECT STRATEGY IS ...";)JK12500:2LV22;M350KRK12000:QT[V34,5aWm\24:17~a"CORRECT!";fK11000:hkIm34,5pDP$DP$"1"91034,5:21:2:"LET'S READ THE FLASHCARDS TOGETHCN$DD$ 760CN(CN$)4I:33:" ";DI:33:CN;U23:33:CN;d CNCT860p%WCWC1~*WC1835/24:104"WRONG . . . TRY AGAIN!";9K11000::>742CK120:A(16336):H24:1:" WRONG ... THE K12000:34,5*24:17;"CORRECT!";KK11000:QcDP$"3"875tFD$SD$875I23875WC022:33:E5$;:23:33:" ";22:33CN$""DD$DD$;DD$(13)790CN$2KY(FD$)715'I23KY(SD$)7153NWNW1ANW1690M24:10l"WRONG . . . TRY AGAIN!";|K12000:580K120:A(16336):24:1:" WRONG ... THE CORRECT STRATEGY IS ...";K12500:V22350SS OF THE COUNT";!:I2222NE*?NW04DI:1BI:E9$;:IJ1RNKY$\SKY1nXKY$"P"KY0]KY$"D"KY1bKY$"H"KY2gKY$"S"KY3lKY$"U"KY4qKY0ī645vK120:A(16336):{590PL$(KY);I2" VS "DH$(ID)&SP((40(VS$))2)<21:1:SP);VS$;MFD$SD$550VNE1b22:10" IF COUNT GREATER THAN "; DP$"2"ĺCT; 23:10" IF COUNT IS LESS THAN ";DP$"2"ĺCT;570&NE0+22:105" REGARDLEdFD$SD$364CfV:1:PL$((FD$));" REGARDLESS OF THE COUNT";ShK12000:YjlV:1:PL$((FD$));" IF COUNT GREATER THAN ";CT;nV1:1:PL$((SD$));" IF COUNT IS LESS THAN ";CT;pK12000:r34,20::34,23VS$PH$(IP)15(4(1))8X142:55$<.>CC14B@CP15(4(1))KBX98SD55`FCCIP25pGCC1CC14HCP15(4(1))IX142J55L^34,21::34,23_VS$PH$(IP)" VS "DH$(ID)`SP((40(VS$))2)aV1:1:SP);VS$;D((UD1)(1))%CP15(4(1)).X986 55M!CSCC:CC10CS10\"CCIP5CSp$CP15(4(1))z&X142(55*,PT$"2"318.CCIP15/CC11CC140CC10CCCC(4(1))1CP15(4(1))2X98455 6CP1))LO(IPLPIPHPIP(UP(1))LO4CCID2ECC11CC14`CC10CCCC(4(1))tCP15(4(1)) X98:Y16 50Y84PT$"1"300D((IP7)2)D10D10UIP3U10U10U10UU(4(1))CC) V2:HTSP(SP2)# CT$;2 V3:HT3O PS$((FD$));PS$((SD$))X 157g V2:HT2v "ALWAYS"; V3:HT4 PS$((FD$)); V4:HT:"--------"; RR(12(1))2 ID(RR2)2 UPHILO1IP(UP(LYSY d nII04' pIDII5SOP: rSS$ST$(IP,ID)H tCT(SS$)^ vFD$((SS$,2),1)o xSD$(SS$,1)} zHT18II |V:HT ~ LW$(ID); V1:HT:"--------"; FD$SD$150 CT$(CT) CT0CT$"+"CT$ SP8(CT$","! ACE " E9$" "0 E5$" "M RN(38383)256(38384)Z A(RN)d 11000w 21:0,0:3082~ 70 <3:1X,Y A0:19X,Y FCP15CP17Ē2 KCCXUX,YUY PCPXUX,YUYSY U32 ZCCXLX,YLY _CPXLX,Y STAND","SURRENDER") I13:WP$(I):S  "HARD TOTALS","PAIRS","SOFT TOTALS"h I04:PS$(I):  "P","D","H","S","U" I09:LW$(I):  " 2 ","! 3 ","! 4 ","! 5 ","! 6 "," 7 ","! 8 ","! 9 ","! 10 ,"3-3","4-4","5-5","6-6","7-7","8-8","9-9","10-10","A-A"u "A-2","A-3","A-4","A-5","A-6","A-7","A-8","A-9","A-10" ID09:DH$(ID):  "2","3","4","5","6","7","8","9","10","ACE" I04:PL$(I):  " SPLIT"," DOUBLE"," HIT"," 0214,255,PH$(35),DH$(9),ST$(35,9)FPL$(5),PS$(5),WP$(3)fDK(51),HD(179),B(10),C(10)UX7:UY4:LX33:LY52:SY13 IP035:PH$(IP): "5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21"8 "2-2"                Ѝ΍     MENU"dKY$"N"1200&@K120:A(16336):0@1190C@R1((1)256)Q@38383,R1d@R2((1)256)r@38384,R2@RN256R2R1@A(RN)@@KY$"N"1220@16304,0@100@651@:(4);"BSAVE POINTERS,A$95EC,L$14"A(4);"RUN19:1:S1);"YOU PLAYED ";NR$;H$;P?20:1:S2);"YOUR BETS TOTALLED $";AC$;|?21:1:S3);DS$;" A NET SUM OF $";NW$;?22:1:S4);"ABOUT ";PC$;"% OF YOUR TOTAL WAGER";?24:1:"HOW ABOUT ANOTHER ROUND? (Y-YES,N-NO) ";?KY$ @KY$"Y"D":NR1H$" HANDS"$>AC0ī11882>AC$(AC)J>S2((20(AC$))2)W>NWBRBSh>NW$((NW))>PC100(NWAC):PC0.1(10PC)>PC$(PC)>DS$"YOU WON">NW0DS$"YOU LOST">S3((25(DS$)(NW$))2)>S4((12(PC$))2)#?HAT, OVER THE LONG RUN,";M=|13:2:"THE PLAYER'S WINNINGS SHOULD AVERAGE";=~14:2:"ABOUT 1 OR 2% OF THE TOTAL AMOUNT BET.";=16:11:"HOW WELL DID YOU DO?";=17:11:"--------------------";=NR$(NR)=S1((22(NR$))2)>H$" HAN, OVER THE LONG RUN,";IT7HPNHī960$7 HP0:CCCD(0,0)57 0:X30:Y10C7 3:1X,YR7 0:19X,Yq7CP100(CC(CC)):CP(CP)~7CC(CC)7CS2(CP2(CP2)):CS7CCXUX,YUY7CPXUX,YUYSY7327CCXLX,YLY7CPXLX,YLYSY8CNCNPV(CC(HP)1:AAAA16CNCNPV(CC)56TL(HP)21ī1010I6NA(HP)0ī1010^6TL(HP)TL(HP)10r6NA(HP)NA(HP)1{69926HP0ī10606PL$"D"ī10306PL$"P"ī10206CD(0,1)14ī103068206TL(HP)21ī8206HPHP1:X10:PL$"P" 53:1X,Y50:19X,Y;5CP100(CC(CC)):CP(CP)H5CC(CC)`5CS2(CP2(CP2))h5CSz5CCXUX,YUY5CPXUX,YUYSY5325CCXLX,YLY5CPXLX,YLYSY5TL(HP)TL(HP)FV(CC)5NC(HP)NC(HP)16CC14NA(HP)NARTBEE3:940"4BT(HP)2BT(HP)74BT$"$"(BT(1))X4FS%1BT$BT$" $"(BT(2))4HP2BT$"$"(BT(1))" $"(BT(2))421:24:"BET ";BT$;41:14XX20:Y10HP60:04CP(NN(1))4CCDK(CP):DK(CP)DK(NN):DK(NN)CC:NNNN1323CCXLX,YLY*3CPXLX,YLYSY33X10K3I1(0.5STALL):T3960b316301,0}324:1:ES$(EE);:1:13K12000:334,23::34,031:13EE0:FS%1Ĺ16302,038203TB2BT(1)BT(2):HP2TBBT(1)2BT(2)4B)221:24:"BET ";BT$;02FS%1:16302,0E2NH2:BT(2)BT(1)c2NA(2)NA(1):TL(2)TL(1)2y2NA(1)0TL(2)112TL(1)TL(2)2NC(1)1:NC(2)12X10:Y130:023:1X,Y20:19X,Y2CS2CCXUX,YUY2CPXUX,YUYSY31XCS2(CP2(CP2))1YCS11ZCCXUX,YUYF1[CPXUX,YUYSYN1\32`1]CCXLX,YLYu1^CPXLX,YLYSY1_CNCNPV(CC)1`BRBR0.5BT(0)1aTL(1)01bCC14AAAA11c10901BR2BT(0)EE3:9402BT$"$"(BT(0))" $"(BT(0)"S"ī10300=PL$"C"İ30,0>PL$"C"ī820=0?PL$"T"İ50O0@PL$"T"ī820a0APL$"A"İ150s0BPL$"A"ī8200PI120:A(16336):0Q8200R0:X30:Y100S3:1X,Y0T0:19X,Y0UCCCD(0,0)0VCP100(CC(CC)):CP(CP)0WCC(CC)24:2:"YOU AND THE DEALER TIE WITH BLACKJACK!";F/,K11.5STALL:W/.CNCNPV(CC)a//1090j/4PL$}/5NC(HP)2ī827/6PL$"D"ī950/7FS%1ī827/8PL$"U"ī850/9(CD(0,1))(CD(1,1))ī827/:PL$"P"ī900/;PL$"H"ī960 0<PL$P2(CP2)).#CS&.$CCXUX,YUY;.%CPXUX,YUYSYC.&32U.'CCXLX,YLYj.(CPXLX,YLYSY.)TL(0)TL(1)Ģ24:9:"DEALER HAS A BLACKJACK!";:BRBRBT(0).*TL(1)TL(0)Ģ24:9:"YOU WIN WITH BLACKJACK!";:BRBR1.5BT(0)1/+TL(0)TL(1)ĭCC14NA(J)NA(J)1-:'-I01Q-NA(I)2TL(I)TL(I)10:NA(I)NA(I)1W-m-CD(1,0)14İ350-TL(0)21TL(1)21ī820-0:X30:Y10-3:1X,Y-0:19X,Y-CCCD(0,0)- CP100(CC(CC)):CP(CP)-!CC(CC) ."CS2(CIJ0Ĕ22X,Y,,CP100(CC(CC)):CP(CP)9,CC(CC)I,IJ0ī764Z,CNCNPV(CC)n,CC14AAAA1,CS2(CP2(CP2)),CS,CCXUX,YUY,CPXUX,YUYSY,32,CCXLX,YLY,CPXLX,YLYSY,TL(J)TL(J)FV(CC)-1:HP1:BT(1)BT(0)8+I02:TL(I)0:NA(I)0:NC(I)0:J+I01:J01\+CP(NN(1))+CCDK(CP):DK(CP)DK(NN):DK(NN)CC:NNNN1+NC(J)NC(J)1+CD(I,J)CC+0+X10:Y1060J:IJX30+3:IJ0Ē2+1X,Y+0:19X,Y ,1:692*BT(0)VD10BT(0)-*LP1ĺ"$";D*LPLP1:DD$;:701Z*BT(0)1BT(0)BEr*BT(0)BREE3:692*BT(0)500EE2:692*EE0:BEBT(0)*BT$"$"(BT(0))*21:24:"BET ";*21:24:"BET ";BT$;*1:1+NH ":16368,0)DD$()DD$"Q"ī1127:)DD$"A"İ150L)DD$"A"ī699^)DD$"B"İ200p)DD$"B"ī699)DD$"C"İ30)DD$"C"ī699)VD(DD$)48)VD(DD$)48)DD$(13)ī718)LP3EE2:692)VD(DD$)48*VD0VD9EE ";?(22:1:"DEALER'S TOTAL ";w(23:1:"PLAYER'S TOTAL ";(EE0ī699(24:1:ES$(EE);(K12000:(34,23::34,0(21:24::"BET ? ";: )BT(0)0:BT(1)0:BT(2)0:LP1:BT$"0:FS%04'BR$"$"(BR):(BR$,2)".5"BR$BR$"0"['21:1:"BANKROLL ";z'21:1:"BANKROLL ";BR$;'21:24:"BET ";'BR1ī1127'NN8(ND1)26İ100'21:1:"BANKROLL ";BR$;(21:24:"BET NKROLL ? ";&$&BR0:AC0:NR07&LP1:16368,0@&DD$T&DD$(13)ī678c&LP5ī652t&VD(DD$)48&VD0ī652&VD9ī652&LP1ĺ"$";&BRVD10BR&LPLP1&DD$;&660&21:1:&BR0ī652&BSBR'EEOU NEED RULES? (Y-YES,N-NO) ";'%mKR$9%nKR$"N"ī648K%oKR$"Y"ī626e%pK120:A(16336):n%q621t%r%s16303,0%t300%1:0,0:3082%100%I2124:I:1:ES$;:%21:1:"BANKROLL ";%21:1: &"BACH:SN$:/$a(4);"CLOSE STRATEGY DIRECTORY"E$b(4);"OPEN ";SN$[$c(4);"READ ";SN$c$dNL$eI1NL1:B(I):C(I):$fRC$gQI$$hQI$"Y"ĄUC$iI214:PV(I):$jI035:J09:ST$(I,J)::$k(4);"CLOSE ";SN$%l24:1:"DO YAP"#(4);"BLOAD GREEN OUT">#X(4);"OPEN STANDARD DECK"]#Y(4);"READ STANDARD DECK"w#ZI052ND1:DK(I):#[(4);"CLOSE STANDARD DECK"#\CH(38380)#](4);"OPEN STRATEGY DIRECTORY"#^(4);"READ STRATEGY DIRECTORY"#_NS $`I1NY DECKS DO YOU WISH? (ENTER 1-6) ";-"ND$;"ND(ND$)N"ND0ND7519m"I120:A(16336)::515"SS$"A NEW DECK""ND1SS$ND$" NEW DECKS"" 23:1:"LET ME BREAK OUT ";SS$;" FOR YOU...";" 34,23::34,0# (4);"BLOAD HIRES.M!I2124:I:1:ES$;:"!Y527!I01:X98I44>!0L!3:1X,Y[!0:19X,Yq!143IXUX,YUY!18XUX,YUYSY!32!143IXLX,YLY!18XLX,YLYSY!!21:6:"WELCOME TO WINNING BLACKJACK!";$"22:1:"HOW MAT(0)/ t24:7:"NOW LET'S FINISH THIS HAND!";V u21:1:"BANKROLL ";u v21:1:"BANKROLL ";BR$; wI12STALL::34,23::34,0 x1:1: y24:11:"INSURANCE BET WINS!"; zK1STALL: {BRBRBT(0) | :2:30826336)::351"h34,23::34,0:14iIN$"N"ī372LjBR1.5BT(0)ī367`k24:1:ES$(3);qlK1STALL:m34,23::34,0:1n350oTL(0)21ī377p24:11:"INSURANCE BET LOSES!";qK12STALL:r34,23::3,0:1 sBRBR0.5B AKR$#B:16297,0:16304,0)C\^24:1:"DO YOU WANT INSURANCE? (Y-YES,N-NO)";h_IN$:1z`IN$"I"İ250aIN$"I"ī350bIN$"C"İ30cIN$"C"ī350dIN$"A"İ150eIN$"A"ī350fIN$"Y"IN$"N"ī360 gI120:A(116:16:"HELP KEYS";/<17:16:"---------";d=18:1:"A-ACE COUNT B-RECOMMENDED BET";>19:1:"C-RUNNING COUNT I-INSURANCE";?20:1:"Q-QUIT T-RECOMMENDED PLAY";@23:1:"------ PRESS ANY KEY TO CONTINUE ------";7:8:"DEALER STANDS ON ALL 17'S";H58:10:"BLACKJACK PAYS 3 TO 2";m69:10:"INSURANCE PAYS 2 TO 1";711:15:"PLAYING KEYS";812:15:"------------";913:5:"H-HIT S-STAND D-DOUBLE";:14:5:"P-SPLIT U-SURRENDER";;,0:-16303,01.1:13:"BLACKJACK RULES";P/2:13:"---------------";s03:11:"SPLIT ANY PAIR ONCE";14:7:"DOUBLE DOWN ON ANY TWO CARDS";25:8:"SURRENDER FIRST TWO CARDS";36:2:"ONLY ONE CARD EACH DEALT TO SPLIT ACES";#4TO CONTINUE ------";1$KI$5KI$"C"İ30GKI$"A"İ150^KI$"C"KI$"A"ısFS%1Ĺ16302,0y21:1:"BANKROLL ";BR$;24:"BET ";BT$; 22:1:"DEALER'S TOTAL";"23:1:"PLAYER'S TOTAL";$1&,34OTAL"; 1#:16301,05QI$"Y"ī258[22:11:"NEVER TAKE INSURANCE!";d268rUC$(UC)UC0UC$"+"UC$21:14:"TAKE INSURANCE"; 22:3:"IF THE TRUE COUNT IS GREATER THAN ";UC$; 23:1:"------ PRESS ANY KEY :1:"------ PRESS ANY KEY TO CONTINUE ------";61?KB$PKB$"C"İ30bKB$"A"İ150yKB$"C"KB$"A"ı:FS%1Ĺ16302,021:1:"BANKROLL ";BR$;21:25:"BET ";BT$;22:1:"DEALER'S TOTAL";23:1:"PLAYER'S T"+"TC$"S1(0.5(30(TC$)))+RB1:NL1ī230HK1NL1]TCC(K)RBB(K)dKzRB$(RB)" UNIT"S2(0.5(15(TC$)))RB1RB$RB$"S"21:1:S1);"BET ";RB$;22:1:S2);"THE TRUE COUNT IS ABOUT ";TC$;/23BT$;"22:1:"DEALER'S TOTAL";@23:1:"PLAYER'S TOTAL";G1M]:16301,0iKNNN1}RD(0.5KN52)RH(0.5KN26)RC1TCCNRC2TCCNKNRC3TCCNRDRC4TCCNRHTC$(0.1(10TC))TC0TC$A;" OF THE ORIGINAL ";4ND;" ACES.";h23:2:"EXPECTED NUMBER OF PLAYED ACES WAS ";(0.5CX13);".";24:1:"------ PRESS ANY KEY TO CONTINUE ------";1KA$FS%1Ĺ16302,021:1:"BANKROLL ";BR$;21:24:"BET ";1:0,0:3082'0:0:21266,39NK52NDNN1WDS(14NK52):DS0DS1cK1DSw3:20207,72K~K:16301,0CX52NDNN2VD$"B"CXCX121:8:CX;" CARDS HAVE BEEN PLAYED";$22:2:"INCLUDING ";AqI r1s20196,YS!t32u20196,YS1BvK1212JIw1^x20196,YS2K1ey3zz20196,YS2K1{K|J}I16~J11012021014I,692J32019614I,692JJII1500: bd1:0,0:30826eNN52ND1:CN0:AA0:DC1mf:22:"PLEASE WAIT WHILE I SHUFFLE THE DECK ...";wg3:0hI120:20112,482I:iJ110jYS482JkI13l1m208428I,YSn3o2011228I,YSpK110:Kİ150TKT$"C"KT$"A"ı7VI2124:I:1:ES$;:VX21:1:"BANKROLL ";BR$;pZ21:24:"BET ";BT$;\22:1:"DEALER'S TOTAL ";^23:1:"PLAYER'S TOTAL ";`FS%1Ĺ16302,0a1:1REATER THAN ";CT;LK23:1:OP$((SD$));" IF TRUE COUNT IS LESS THAN ";CT;TL80xM22:14:"ALWAYS ";OP$((FD$));N23:9:"REGARDLESS OF THE COUNT";P24:1:"------ PRESS ANY KEY TO CONTINUE ------";Q1:KT$RKT$"C"İ30SKT$"A"FD$((ST$(IP,ID),3),1)?DSD$"1"SD$((ST$(IP,ID),3),1)eEFD$"4"FD$((ST$(IP,ID),4),1)FSD$"4"SD$((ST$(IP,ID),4),1)GCT(ST$(IP,ID))H21:17:PH$(IP);" VS ";DH$(ID);IFD$SD$ī77J22:1:OP$((FD$));" IF TRUE COUNT G(CD(0,1)))(:FD$((ST$(IP,ID),2),1)@;SD$(ST$(IP,ID),1)H<69X=IPTL(HP)5>IP1Ģ21:17:"4 VS ";DH$(ID);:FD$"2":SD$"2":77?NA(HP)0IPTL(HP)14@FD$((ST$(IP,ID),2),1)ASD$(ST$(IP,ID),1)BNC(HP)2ī71CFD$"1" -21:24:"BET ";BT$;: .22:1:"DEALER'S TOTAL ";[ /23:1:"PLAYER'S TOTAL ";e 01:1k 1q 2 316301,0 4I2124:I:1:ES$;: 5IDFV((CD(1,0)))2 6FS%1ī61 7NC(1)2ī61 8(CD(0,1))(CD(1,1))ī61 9IP15FV("THERE ARE ";K;" CARDS REMAINING FOR PLAY";` #23:3:"(ABOUT ";RD;" STANDARD 52-CARD DECKS)"; $24:1:"------ PRESS ANY KEY TO CONTINUE ------"; %1:KC$ &KC$"A"İ150 'KC$"A"ı *FS%1Ĺ16302,0 + ,21:1:"BANKROLL ";BR$;:ES$(I):  " BETS MUST BE WHOLE DOLLAR AMOUNTS!"," THE HOUSE LIMIT IS $500!"," YOU DO NOT HAVE THAT MUCH MONEY!" 500 KNN1:RD(10K26)20 :16301,0 34,20::34,0 !21:8:"THE RUNNING COUNT IS ";CN;+ "22:1:","5-5","6-6","7-7","8-8","9-9","10-10","A-A"k  "A-2","A-3","A-4","A-5","A-6","A-7","A-8","A-9","A-10" OP$(0)" SPLIT":OP$(1)"DOUBLE":OP$(2)" HIT":OP$(3)" STAND" I09:DH$(I):  "2","3","4","5","6","7","8","9","10","ACE" I13 RN(38383)256(38384)' A(RN)= I210:FV(I)I:U I1113:FV(I)10:c FV(14)11{ I1014:PV(I)1: I035:PH$(I):  "5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21"-  "2-2","3-3","4-49214,2550BT(2),CD(1,1),DK(311),FV(14)ZNA(2),NC(2),PV(14),TL(2),B(10),C(10)ST$(35,9),PH$(35),DH$(9),OP$(3),ES$(3)1UX7:UY4:LX33:LY52:SY13EE0:BE1 STALL1000 ES$" "                    Ѝ΍       *U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz??/U*U*U*U*U*}*U/Uz]>U/u+}:U+WkU*U*U* U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}k]*W*_/_nU*o_nu._>U*U*U~wU*U*U*U*U*U*U*U*U*U.U*U*U*U*U*U*Uz>*O'U*U*]nu*u?]nu~w+Uz}~wn];W;]>U*u+U~W*_*U*U*U*U*U*}kUzU/}:]>}*U*U*U*U*U*U* U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz?o+UU*U*U*U*U*_/u{U*U/u{}~oW/}*U*Uza?*|'U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*wo+U*U:~_*U*]*Wnj]~W.Wo+W*U+k_jW*Uj~w/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uzs?*?~'U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U?w{};W*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz?*'U*U*T *A*U*U*(@P*U*(A **U*U*U*U*U*U*U*U*U*U*U*U*U*upwS}_[|U*U*U*U*U*}*_/u{U*U/u+}:UkWz}*U*Uz#b?*?$|'U*U*P  A*(*U*(*A(U*( P *U*U*U*U*U*U*U*U*U*U*U*U*U*Uw_}_U*U*U*U*U*}*_/Uz_>U/u+}>U/WkU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*W*_/U*U*_/U*U*U*U*U*U~w?U*U*U*U*U*}*_/Uzu?U/ukW*_*U*U*U*Uzsy?*'U*U*P (A*U**A(U*TPT P*U*U*U*U*U*U*U*U*U*U*U*U*U*UY}__[U*U*U*U*U*U*U*U*U*U.U*U*U*U*U*U*Uz>*O'U*U*]nu*u?]nu.w;Uz}zw}?W;]+U*u*UnW*W*U*U*U*U*U*}oU~w?;]>+U*U*U*U*U*Uz?*'U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uj?{+U*U*U*U*U*U*_/u{U*U/u{}~oW+}*U*Uz?*'U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u/*U*U*zW*U*]*Wnuk]._.Wj+W*Ukwk]jU*Uz~_/U*U*U*U*U*UUz_zU*U/U.W>UoWz}_*Uza?*|'U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u:?W*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uj/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uzsy?*a'U*U**P T*A*U*U*(@ U*U*A (Q **U*U*U*U*U*U*U*U*U*U*U*U*U*u`wY}_~U*U*U*U*U*}*_/u{U*U/u+}zukWz}*U*Uz@?*x'U*U**P  T*A*(*U*(*A U*U*A ( P T*U*U*U*U*U*U*U*U*U*U*U*U*U*Uwp_[U*U*U*U*U*}*_/UzW>U/u+}>U/WkU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*W*_/U*U*_/U*U*]*U*U*U~{w?U*U*U*U*U*}*_/Uzu>U/ukW*_*U*U*U*Uzcx?*'U*U*T@ U (A*U**A(U*U TU P*U*uou:W*+_.W*_/>u+_>U*U*UYM__[U*U*U*U*U*U*U*U*U*U.U*U*U*U*U*U*Uz<>*Og'U*U*}ou*u}o~w;Uz*w}?{_U*u_*U.W*U*U*U*U*U*U*]nU.U:W:].U+U*U*U*U*U*Uz?*'U*U*Uj_*U*Uj_*U*U*U*U*U*U*U*Uj?}{+U*U*U*U*U*U*_/u{*U/u+}>Uo/}?U*Uz?*'U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u.]*U*U*wjU*U*]:WnU;u.].WnU+W*UkU;u*W*U~__/U*U*U*U*U*uW~zU*U/U/_>UoWz}_*Uz@?*x'U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uj}.ow*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uj?U*U*U*U*U*U*U*UU{U>U/u+}*_*U*U*U*Uzsy?*@'U*U**Q T*A*U*U*(*A U*U*A*(Q **U*U*U*U*U*U*U*U*U*U*U*U*U*uQEwYMZU*U*U*U*U*uW~z?w+}zuk?}_*Uz`?*?|'U*U**A E T*A*(A*U*(*A U*U*A*( PU*U*U*U*U*U*U*U*U*U*U*U*U*U*Uw`_[U*U*U*U*U*}*_/UzW>U/u+}>U/WkU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*W*+U*U*_/U*U*]*U*U*U~{}?U*U*U*U*U*}z_/Uzu>U/ukU*_*U*U*U*Uz|?*'U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}ou~W*k.W*_o>u+_U*U*UQE__U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz<>*c'U*U*}ku*u{u+_zu.Uz~u>]/}:W>U*U*U?w*}U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*]nU~W?;].}+U*U*U*U*U*UzC?*O'U*U*Uj*U*Uj*U*U*U*U*U*U*U*Uj?u{+U*U*U*U*U*UW/u{*U/u+}>Uo?}?U*Uz?*'U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}>_ou;u._._oU+W*Ukw;u*W*U~__?U*U*U*U*U*uW~zU*U/U/_>UoW>}_*Uz??*p'U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uj?wo{+U*u/}kU*W.].}kU+W*U+j_zW*U*U*UjU*U*U*U*U*U*U*uW{U>U/u+}*_*U*U*U*Uzsy?*? 'U*U**A T*E*T*U*(*A U*U*A*P(EQ (*U*U*U*U*U*U*U*U*U*U*U*U*U*uYM_QE[U*U*U*U*U*uW~z?w+}jj?}_*Uzp?*~'U*U**A E T*A*(A*U*(*A U*U*A*( P*U*U*U*U*U*U*U*U*U*U*U*U*U*UwQE_~U*U*U*U*U*uW{W>w_>U/WU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*W*+U*U*_/U*U*U*U*U*U~{??U*U*U*U*U*}z_Wzu>U/uW*_*U*U*U*Uz~?*'U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*]nu.W*_ou.W*_ou>u+]jU*U*U`_wU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz<>*p'U*U*]*U*u{U*U*U*Uz}*U*U*U*U*U*U~+u*uU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*]nw.w*W;].W*U*U*U*U*U*Uz?*O'U*U*U*u*U*U*u*U*U*U*u*]*U*U*U*?uz+U*U*U*U*U*uU/u{*U/u+}>UoWz}*U*Uz?*'U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u/}k:u~W.}kU{*U+j]n_*U~__?U*U*U*U*U*}*_/u{U*U/U_>UoW>}*U*Uz>*`'U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uju/~/U*u/}kU*W.].}kU+W*U+j]zW*U*];wz];w*U*U*U*U*U*uW{U?U/u+_*_*U*U*U*Uzsy?*?'U*U**A T*E*T*U*(*A U*U*A*P(EP (*U*U*U*U*U*U*U*U*U*U*U*U*U*u_M_`[yU*U*U*U*U*UUz_z?w+}*_j/}_*Uzx?*'U*U**A A T*(P*U*(*A U*U*A* P *U*U*U*U*U*U*U*U*U*U*U*U*U*uwYM_|U*U*U*U*U*uW{W>w_>Uo_U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~o??U*U*U*U*U*}*UWz}>U/u_j*U*U*U*Uz?*'U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}ou.W*_ou.W*_o>u+]>U*U*Up~wU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz<>*?x'U*U*]*U*u{U*U*U*Uz}*U*U*U*U*U*U~Wk}.u?U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}o~w:{_.W+U*U*U*U*U*Uz>*O'U*U*]+_*u{u+_zw+Uz}zwn];}:]>U*/u_z*U*U*U*U*U*u*U/u{U*U/u+}>UoWz}*U*Uz?*'U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*u/}k:u~W.}kU{*U+j_~_*U~__?U*U*U*U*U*}*_/u{U*U/U_>UoW.}*U*Uz<*@'U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uzu.]/U*}>_oU*W._._oU+W*Ukw;u>_*U*~}*U*U*U*U*U*}*_/UzU?U/u+_*_*U*U*U*Uzx?*'U*U**A T*E*(P*U*(*A U*U*A*P(ET P *U*U*U*U*U*U*U*U*U*U*U*U*U*u_e_pZxU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz|?*C'U*U**Q A T*(P*U*(*A U*U*A*E P *U*U*U*U*U*U*U*U*U*U*U*U*U*uw_MZxU*U*U*U*U*UU{U>wW>Uo_kU*U*U*U*U*U*U*U*U*U*U*]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U~o??U*U*U*U*U*}*U/Uz]>U/u+}ju*U*U*U*Uz?*'U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*uou~W*_ou.W*_/>w;]+U*U*U_}~wU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz?*'U*U*]*U*uU*U*U*Uz}*U*U*U*U*U*U~Wk?u>U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*]k]zU/}:W?}*U*U*U*U*U*Uz<>*O'U*U*}/_*u{}o~w+Uz}~wn];;]U*+U_z_*U*U*U*U*U*}*U/u{U*U/u+}:UkWz}*U*Uz|?*C'U*U*T A*(*U*(*A(U*(U P *U*U*U*U*U*U*U*U*U*U*U*U*U*U~__U*U*U*U*U*}*_/u{U*U/u{}>UoW.}*U*Uz>*#b'U*U*U*U*U*U*U*U*U*U*U*U*U*U*U:?U*U{+U*]:WnU*W.W.WnU+W*U+U;u._*Uj~w*U*U*U*U*U*}*_/UzU?U/u+W*_*U*U*U*Uzx?*'U*U**P T* (P*U*(*A U*U*A T AT P *U*U*U*U*U*U*U*U*U*U*U*U*U*up__}|U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz?~?*g'U*U**P Q T*T*U*(*A U*U*A E (*U*U*U*U*U*U*U*U*U*U*U*U*U*u_}w_e[yU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uzo??U*U*U*U*U*}*U/Uz]>U/u+}zu+U*U*U*Uz?*'U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Un:W*_o~W*/u>w;_U*U*U_}~wU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz?*'U*U*]*U*u?U*U*U*Uz}*U*U*U*U*U*U.Wku:U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*];w.U*U*U*U*U*U*U*U*U*U*U*U?U*U*U*U*U*U*Uz<>*O'U*U*}ou*u;]nu.u+Uz}.wn];W;]jU*}+U~_j_*U*U*U*U*U*}*_/u{U*U/u+}:UkWz}*U*Uz?~?*g'U*U*P A*(*U*(*A(U*(U P *U*U*U*U*U*U*U*U*U*U*U*U*U*Uw_}_U*U*U*U*U*}*_/u{U*U/u{}~oW/}*U*Uzs?*?~'U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*/U*Uz*U*]*Wn*W~W.WoU+W*U+_k]*_*Uj~w+U*U*U*U*U*}*_/UzU?U/u+W*_*U*U*U*Uzsy?*'U*U*P  (A*U**A(U*T AT P*U*U*U*U*U*U*U*U*U*U*U*U*U*uS}__}_~U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz?*'U*U*T@ *A*T*U*(@P*U*(E (*U*U*U*U*U*U*U*U*U*U*U*U*U*u_}wp_[yU*U*U *U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz??/U*U*U*U*U*}*U/Uz]>U/u+}:U+WkU*U*U* U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}k]*W*_/_nU*o_nu._>U*U*U~wU*U*U""""""""!!! ! ! ! ! !!!!!!!!!     ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?" " "(RN) K15000: * 38381,2? (4);"RUN MENU" 34,0:35,24U_#0:1(5:1:"IN 1961, A COLLEGE PROFESSOR DISCOVERED";26:9:"EVERY GAMBLER'S DREAM --";<7:3:"A WAY TO BEAT THE GAME OF BLACKJACK"; F8:13:"SCIE 103,1:104,64:16384,0% 383798 34,20::34,0Q (4);"BLOAD SCREEN"a K14000: 16297,0:16300,0:16302,0:16304,0 (4);"BLOAD POINTERS" (4);"BLOAD SHAPES-3" (4);"BLOAD POINT-3" RN(38383)256(38384) ANTIFICALLY!";# P10:18:"* * *";N Z12:7:"NEVADA CASINOS WERE STUNNED"; d13:4:"AS HE BROKE THE BANK AT THE TABLES"; n14:1:"NOT JUST ONCE, BUT TWICE IN ONE EVENING!"; x16:18:"* * *"; 18:5:"NOW, YOU TOO CAN HAVE THE POWER!";A 10 16303,0& 16300,01 216,0O32,0:33,40:34,0:35,24U_#0:1(5:1:"IN 1961, A COLLEGE PROFESSOR DISCOVERED";26:9:"EVERY GAMBLER'S DREAM --";<7:3:"A WAY TO BEAT THE GAME OF BLACKJACK"; F8:13:"SCIE""" " "