' +JJJJ ?\>m0M='+l> /+l  ӍԠ٠Ġٮčɭ0LL Լ ռ ռ ռ`HJ>݌h Hh݌`S6`LxQɿu  ة֩JJJJIЅ֠],LWH鷎JJJJx  f5巬 췌`GG FGx (`(8`z𷭷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)*++`FG8`0($ p,&"ԠĠٮ  !"#$%&'()*+,-./0123456789:;<=>?+ 0+ 0+824+82<<+ 0+ 0*#8*!6*?!5*#<"0#<)#=*4!5(.-:::20 $=-/"0(,&#:-#=-"**'>' -*-#<-*#8- -/"0 +9-+9---+;-"(::3;-#;-3<-38-47!)("4?94=9/,  +-#<-*#<-+--?#:-**$24>:-->--?;680^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED f $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`  cpq` [` Y Y LCFG8`0($ p,&" L鷭  d@LҦ{|LFBBbL`y".Q`pNФbptťܥm2<(-Py0\|66e< L鷭巬 췌`x (`(8`z𷭷I`B` ` `Ӝu`y".Q`pNФbptťܥm2<(-Py0\|66e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( 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 yz a`` L̦̀_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n{ y `@-eff z L }f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\yzL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NСyz `A@` LL`  \ ޿0 \  ȟ Q ^\lZl^?cqH şch`f}h~j@OAP`u@`@g&`QR`E Ls  @DAE@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@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-XϠٿԠŠˠĠ@yy`\ m ͭ \6\ 8 ЊL5`H h L~̮ `{|Jmmjnnnۭ}m~mm`"L 8H (Y`  d̠֠Y)xꪽ)' `LV0^*^*>&` aI꽌ɪVLɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`%$666 =/666/=-I166?6666$, 666--4666$$$& 666$ 666$$$v&$$4-)u66?$$ 6666$$$-u?7)u6 $$L?666$$$-u?)u?v-?N--?66666v- $$4 66 $$6666 4$$$-vd 4v6&$ 4916M-16$L6&$166&,?--7&$$4>?- 66$/56?-6>/5&-------------->?????????????7--------------c------>?????????????7--------------8------------5??????????????.-------------5??????????????.-------------5??????????????.-------------5??????????????.-------------5??????????????.-------------5??????????????.-------------5??????????????.-------------5??????????????.-------------5???????????..%%56>$>?''6.-->?5....>=>>>&''''%%%.>>..&$%6.$>>>>..&-6>-'$-&%%'''>>.%.>?')------------??????????????.-------------5??????????????.-------------5??????????????.-------------5??????????????.-------------5??????????????.-------------5??????????????.-77?7--,5/.>>??'<.6---.6'46???$<65.--%?77575/.,.,.,$$??/-,5566757=???7---%76666.$$$$$M2666..-%%$$$<7>7./.5.5'<'<$7-476?<6%--,6'?667/-=<I.667777<<<<$$%.:7*Jn$Is/M7777666%$$4.--%$<<4/555666'$????77%--,.457=7=?.=?.=?.?.>'6----??<><657---5???---5757=???7---%-->??<>4757---55757=><><><&'%'%/---??.--,.,6777777   666$,e$? u66$$666$, u -=?-?/- 666$$=/u6ve $666 $-66 $$&- 6ve $66?-----/------.-= 6/?7 I--??q - &)u6'4$46v-=$ u$66$>46666$ u66 -?6- I166&$ -66" ->?7--'du66& -6&$6M??666$ u6&66&/I66?6666$-  6666&$ & 6&66$, u6& -6?$- 666 TO SELECT MENU ITEM"S 6HELP$(2)"PRESS TO REVISE ITEM" @HELP$(3)"PRESS TO RETURN TO PRIOR MENU" EHELP$(4)"PRESS TO SELECT DISPLAY TYPE" JHELP$(5)"PRESS TO CONFIRM REVISION")OHELP$CE" M3NU$(6):MNUSIZE(3)6K M3NU$(1)"REVIEW/REVISE PLAYER STRATEGY"x M3NU$(2)"-----------------------------" M3NU$(3)"PLAYING" M3NU$(4)"INSURANCE" M3NU$(5)"BETTING SPREAD" M3NU$(6)"MINIMUM BET" ,HELP$(18)$ 1HELP$(1)"PSE GAME RULES"6 M2NU$(2)"------------------------"K M2NU$(3)"DECKS"k M2NU$(4)"DECKS AT SHUFFLE" M2NU$(5)"DOUBLE DOWN" M2NU$(6)"DOUBLE DOWN AFTER SPLITS" M2NU$(7)"DEALER HITS SOFT 17" M2NU$(8)"SURRENDER" M2NU$(9)"INSURANCTICE COUNTING"7 M1NU$(6)"PRACTICE DIFFICULT HANDS"W M1NU$(7)"PRACTICE BETTING" M1NU$(8)"REVIEW/REVISE GAME RULES" M1NU$(9)"REVIEW/REVISE STRATEGY" M1NU$(10)"REVIEW/REVISE DISPLAY" M2NU$(9):MNUSIZE(2)9 M2NU$(1)"REVIEW/REVIDNCURSER$(21):UPCURSER$(8):BEEP$(7)7 nCHANGES0Q MNUSIZE(4),MENU$(10)n M1NU$(10):MNUSIZE(1)10 M1NU$(1)"ADVANCED BLACKJACK" M1NU$(2)"------------------" M1NU$(3)" " M1NU$(4)"PLAY BLACKJACK" M1NU$(5)"PRA+ PROGRAM MENU((CD$(4):670012CD$X<CD$;"OPEN MONITOR.RULES.STRATEGY"FCD$;"READ MONITOR.RULES.STRATEGY"PTV%:I18:R(I)::I15:P%(I):ZCD$;"CLOSE MONITOR.RULES.STRATEGY") dESCAPE$(27):RETERN$(13):SPACEBAR$(32):                  5:CHANGES1(:ACROSS2:DOWN:868=CURSERFIRSTLN:c3********** COUNTING PRAC *******4NAME$"COUNTING PRACTICE">2400********** DIFFICULT HANDS *****NAME$"DIFFICULT HANDS"2400********** BETTING PRAC ********OLUMN::TEMPTV%5)vACROSS:DOWN:760PACROSS2:DOWN:ANSWER$:16368,0kANSWER$RETERN$ī1980ANSWER$ESCAPE$ī1990ANSWER$SPACEBAR$ANSWER$UPCURSER$ANSWER$DNCURSER$ī1920TEMPTEMP1:TEMP1TEMP01910 TV%TEMP********* PRINT "HELP" MENU ****9DOWN21:ACROSS1ZIHELPHELP2:DOWN:ACROSSHELP$(I);:ACROSS(HELP$(I))41Č868&DOWNDOWN1:0DOWNCURSER:k********* REVISE MONITOR *******lHELP4:1800qDOWNCURSER:ACROSSRTCERN$ANSWER((DOWNFIRSTLN)2)1:CURSERDOWN:sANSWER$SPACEBAR$ANSWER$DNCURSER$ANSWER$UPCURSER$ī1510ANSWER$UPCURSER$DOWNDOWN2:1570DOWNDOWN2"DOWNLIMITDOWNDOWNFIRSTLN:1510,DOWNFIRSTLNDOWNLIMITDOWN61510$350<"1 TO ";P%(3)?FDOWNDOWN2:ACROSS:DOWN:"$";P%(4)EPk********** GET MENU CHOICE *****DOWNCURSER:ACROSSMARGIN2ACROSS:DOWN:ANSWER$:16368,0I9(78):I9(I9):I9(1)ANSWER$ESCAPE$ANSWER0:/ANSWER$RET"YES" 4********* PRINT CURRENT STRATEGY **UDOWNFIRSTLN:ACROSSRTCOLUMNACROSS:DOWN:TEMPP%(1):710:DOWNDOWN2: BASIC, ZEN OR ADV ZEN(ACROSS:DOWN:TEMPP%(2):730:DOWNDOWN2: BASIC OR ZEN2ACROSS:DOWN:P%(3)1ĺ"FLAT":1R "ANY 2 CARDS"M~ACROSS:DOWN:TEMPR(4):700:DOWNDOWN2: "NO" OR "YES"ACROSS:DOWN:TEMPR(5):700:DOWNDOWN2: "NO" OR "YES"ACROSS:DOWN:TEMPR(6):750:DOWNDOWN2: "NO" OR "LATE" OR "EARLY"ACROSS:DOWN:TEMPR(7):700: "NO" OR ACROSS:DOWN:R(1):DOWNDOWN2[`TEMPR(2)8:TEMP8TEMPR(2)44:TEMP12TEMPR(2)28meACROSS:DOWNjR(2)1ĺ(FRACSHUN$,5TEMP2,3):1140o(FRACSHUN$,5TEMP4,5)tDOWNDOWN2:ACROSS:DOWN:TEMPR(3):740:DOWNDOWN2: "10,11 ONLY" O$(2)LMENU1ACROSS(40(MENU$(3)))2:ACROSS:DOWN2:MENU$(3):F1RST4kDOWNFIRSTLN:ACROSSMARGIN$IF1RSTMNUSIZE(MENU):ACROSS:DOWN:MENU$(I):DOWNDOWN2:.K********* PRINT CURRENT RULES ***LDOWNFIRSTLN:ACROSSRTCOLUMNV868:'("1246",(TEMP2)1,1);:s ("FLAT1 TO 41 TO 8",1(TEMP2)4(TEMP3)6,4(TEMP2)2);:868:********** PRINT MENU ***********::ACROSS(40(MENU$(1)))2:F1RST3ACROSS:DOWN:MENU$(1)ACROSS:DOWN1:MENUEMP),TEMP3(TEMP2)(TEMP)5);:868:X("BASICZEN",TEMP51,TEMP25);:868:("10,11 ONLYANY 2 CARDS",TEMP101,TEMP10);:868:("NOLATEARLY",TEMP21(TEMP2),TEMP2((TEMP2)3));:868:("B&WCOLOR",TEMP31,TEMP23);:CHOICE!HOLDANSWER)&ANSWER0ī540X0ANSWER6500,2100,2200,2300,3200,4800,1900m?CHANGES1İ2600~DHOLD7ī530N500******** RULE & STRAT STRINGS ****("NOYES",TEMP21,TEMP2);:868:)("ADV ZENBASIC",(TEMP2)41(T****=RTCOLUMN33:FIRSTLN7:CURSERFIRSTLN:MARGIN9:DOWN2dLIMITDOWNFIRSTLN2(MNUSIZE(1)4)MENU1:I1MNUSIZ(MENU):MENU$(I)M1NU$(I):: LOAD CURRENT MENU 1000: PRINT MENUHELP16:1800: PRINT HELP MENU1500: GET MENU "7HELP$(17)"PRESS TO SELECT MENU ITEM"mHELP$(18)"PRESS TO CONFIRM SELECTION"FRACSHUN$" 1/8 1/4 3/8 1/2 5/8 3/4 7/81 1 1/41 1/21 3/42 2 1/23 3 1/24 4 1/25 5 1/2"********** MAIN PROGRAM *****RESS TO CONFIRM REVISION"XmHELP$(12)"PRESS TO CANCEL REVISION"rHELP$(13)"PRESS TO SELECT NEW VALUE"wHELP$(14)"PRESS TO CONFIRM REVISION"|HELP$(15)"PRESS TO CANCEL REVISION"HELP$(16)"(6)"PRESS TO CANCEL REVISION"XTHELP$(7)"PRESS TO REVISE ITEM"YHELP$(8)"PRESS TO CONFIRM REVISION"^HELP$(9)"PRESS TO CANCEL REVISION"cHELP$(10)"PRESS TO REVISE ITEM"$hHELP$(11)"PSWER)TEMP:CHANGES1:57005-ANSWER$ESCAPE$ī5700y-&ANSWER$SPACEBAR$ANSWER$DNCURSER$ANSWER$UPCURSER$ī5640-0TEMPTEMP1:TEMP1TEMP0-:5620-D:RTCOLUMN2:CURSER:868-NTEMPP%(ANSWER):RTCOLUMN:CURSER-X730.bCURSERCUR0: GET MENU CHOICE#,ANSWER0ıC,ANSWER4600,5600,6200,5800M,$4830t, ******** INSURANCE-BASIC/ZEN **,HELP7:1800,TEMPP%(ANSWER):,RTCOLUMN:CURSER,730,RTCOLUMN2:CURSER:ANSWER$:16368,0-ANSWER$RETERN$P%(AN*******0+RTCOLUMN28:FIRSTLN5:CURSERFIRSTLNg+MARGIN5:DOWN2:LIMITDOWNFIRSTLN2(MNUSIZE(3)3)+MENU3:I1MNUSIZE(MENU):MENU$(I)M3NU$(I):: LOAD CURRENT MENU+1000:1300: PRINT MENU +HELP1:1800: PRINT HELP MENU,1501:TEMP2TEMP0*>46109*HANSWER$UPCURSER$ī4620X*RTEMPTEMP1:TEMP0TEMP2b*\4610*f:RTCOLUMN2:CURSER:868*pRTCOLUMN:CURSER:ANSWER6TEMPR(6):750:4730*uTEMPP%(1):710*zCURSERCURSER2:+********* STRATEGY MENU *RSER:ANSWER6İ750:4620")710M) RTCOLUMN2:CURSER:ANSWER$:16368,0i)ANSWER$RETERN$ī4640)CHANGES1:ANSWER1P%(1)TEMP:4710)R(6)TEMP:4710) ANSWER$ESCAPE$ī4710)*ANSWER$SPACEBAR$ANSWER$DNCURSER$ī4680*4TEMPTEMP:ANSWER3İ700:4520(740L(CURSERCURSER2:ANSWER7CURSERFIRSTLNR(x(******* SURRENDER/PLAY STRAT ***(TEMPR(6):ANSWER1TEMPP%(1):HELP7:1800(( ANSWER=6 FOR SURRENDER( ANSWER=1 FOR PLAYER STRATEGY)RTCOLUMN:CU3'XANSWER$RETERN$R(ANSWER)TEMP:CHANGES1:4490N'bANSWER$ESCAPE$ī4490'lANSWER$SPACEBAR$ANSWER$DNCURSER$ANSWER$UPCURSER$ī4430'vTEMPTEMP1:TEMP1TEMP0'4410':RTCOLUMN2:CURSER:868(TEMPR(ANSWER):RTCOLUMN:CURSER)1ĺ(FRACSHUN$,5TEMP2,3):4380?&(FRACSHUN$,5TEMP4,5)^&ANSWER1CURSERCURSER2d&&&/********** RULES-YES/NO & DD ***&0TEMPR(ANSWER):&:RTCOLUMN:CURSER:ANSWER3İ700:4430&D740&NRTCOLUMN2:CURSER:ANSWER$:16368,0TEMPTEMP1:TEMP7(R(1)2)4TEMP11%4210O%ANSWER$UPCURSER$ī4220z%TEMPTEMP1:TEMP1TEMP7(R(1)2)4%4210%:RTCOLUMN2:CURSER:868%TEMPR(2)8:TEMP8TEMPR(2)44:TEMP12TEMPR(2)28%RTCOLUMN:CURSER"&R(2N$,5TEMP4,5);:868@$|RTCOLUMN2:CURSER:ANSWER$:16368,0\$ANSWER$RETERN$ī4260$R(2)(TEMP8)2:R(2)2R(2)(TEMP4)4:R(2)1R(2)TEMP8$CHANGES1:4330$ANSWER$ESCAPE$ī4330$ANSWER$SPACEBAR$ANSWER$DNCURSER$ī4300'%#:RTCOLUMN2:CURSER:868:#RTCOLUMN:CURSER:R(1)N#CURSERCURSER2p#"R(1)R(2)R(2)R(1)2:4330v#,#g********* SHUFFLE-PT-RULES *****#hTEMPR(2)8:TEMP8TEMPR(2)44:TEMP12TEMPR(2)28#m$rRTCOLUMN:CURSER:(FRACSHUR$RETERN$R(1)TEMP:CHANGES1:4110?"ANSWER$ESCAPE$ī4110p"ANSWER$SPACEBAR$ANSWER$DNCURSER$ī4080"TEMPTEMP1:TEMPTEMP(TEMP3):TEMP6TEMP1"4010"ANSWER$UPCURSER$ī4020"TEMPTEMP2:TEMP1TEMP(TEMP5)1"4010ER4000,4200,4400,4400,4400,4600,4400P! DECKS, SHUFFLE PT, YES/NO, SURRENDERZ! 3230!********** DECKS FOR RULES *****!TEMPR(1):!RTCOLUMN:CURSER:" ";:770:RTCOLUMN2:CURSER:" "!RTCOLUMN2:CURSER:ANSWER$:16368,0$"ANSWEURSERFIRSTLND MARGIN3:DOWN2:LIMITDOWNFIRSTLN2(MNUSIZE(2)3) MENU2:I1MNUSIZE(MENU):MENU$(I)M2NU$(I):: LOAD CURRENT MENU 1000:1100: PRINT MENU HELP1:1800 1500: GET MENU CHOICE ANSWER0ı HELP10:1800%! ANSW( CD$.2 CD$;"OPEN MONITOR.RULES.STRATEGY"V< CD$;"WRITE MONITOR.RULES.STRATEGY"_F TV%rP I18:R(I):Z I15:P%(I):d CD$;"CLOSE MONITOR.RULES.STRATEGY"n CHANGES0: ********* RULES MENU *********** RTCOLUMN30:FIRSTLN5:CNAME$"BETTING PRACTICE"$ 2400J_ ********** LOAD NEW PROG *******_` CHANGES1İ2600oj ::12:10t "PLEASE STAND BY"~ CD$ CD$;"NOMON C,I,O":(37):868 CD$ CD$;"RUN ";NAME$ ' ******** WRITE STATE VECTOR ********HR(1)D1:P%(3)BETSPRED(HCD$OHCD$;"OPEN MONITOR.RULES.STRATEGY"wHCD$;"WRITE MONITOR.RULES.STRATEGY"HTV%:I18:R(I):I:I15:P%(I):IHCD$;"CLOSE MONITOR.RULES.STRATEGY"HCHANGES0:TTAL0:RIGHT0HI********* PRIN*"PLEASE STAND BY"G,CD$AG.CD$;"NOMON C,I,O":(37):868JG0CD$^G2CD$;"RUN MENU"dG4GDHOLDANSWER:ANSWER6000,3000,4000: PRACTICE, REVISE DECKS, BETSPREDGFCHANGES1İ700GIHOLD1ī500GN525H********** SAVE STATE VECTOR ********** MAIN PROGRAM **********>FFIRSTLN6:CURSERFIRSTLNdFLIMITDOWN10:MARGIN3:RTCOLUMN28{F1000: PRINT MENUF HELP1:1800: HELP MENUF1500: MENU CHOICEFANSWER0ī580F&CHANGES1İ700: WRITE STATE VECTORF(::12:10GBET (UNITS)":EHELP$(14)"PRESS TO CONFIRM BET"qEHELP$(15)"PRESS TO RETURN TO PRIOR MENU"EHELP$(16)" "E HELP$(17)"PRESS TO CONTINUE PRACTICE"EHELP$(18)"PRESS TO RETURN TO PRIOR MENU"E1:0!F*ISION"9DHELP$(9)"PRESS TO CANCEL REVISION"lDHELP$(10)"PRESS TO ENTER TRUE COUNT"DHELP$(11)"PRESS TO CONFIRM TRUE COUNT"DHELP$(12)"PRESS TO RETURN TO PRIOR MENU" EHELP$(13)"PRESS TO ENTER U"7CHELP$(4)"PRESS TO SELECT NEW NUMBER"kCHELP$(5)"PRESS TO CONFIRM REVISION"CHELP$(6)"PRESS TO CANCEL REVISION"CHELP$(7)"PRESS TO SELECT NEW VALUE"DHELP$(8)"PRESS TO CONFIRM REVRACTICE".BMENU$(4)"REVISE NUMBER OF DECKS"SBMENU$(5)"REVISE BETTING SPREAD"bBHELP$(18)BHELP$(1)"PRESS TO SELECT MENU ITEM"BHELP$(2)"PRESS TO CONFIRM SELECTION"CHELP$(3)"PRESS TO RETURN TO MAIN MEN1):BETSPREDP%(3)kAdESCAPE$(27):RETERN$(13):SPACEBAR$(32):DNCURSER$(21):UPCURSER$(8):BEEP$(7)AnCHANGES0:TTAL0ADECKS$"1246":DECKS(D12)1AMENU$(5)AMENU$(1)"PRACTICE BETTING"AMENU$(2)"----------------"BMENU$(3)"PP"@CD$(4):552M@#CD116:SB14:SM52:CR8: ADDRESSES FOR SHAPE TABLESV@2CD$}@<CD$;"OPEN MONITOR.RULES.STRATEGY"@FCD$;"READ MONITOR.RULES.STRATEGY"@PTV%:I18:R(I):I:I15:P%(I):I@ZCD$;"CLOSE MONITOR.RULES.STRATEGY"A_D1R(                       N1:868:P%(4)&3CURSERCURSER2:L3d********** LOAD BLACKJACK ******b3nNAME$"BLACKJACK"l3x24003,********** RUN MENU ON ERR ****36CD$:CD$;"RUN MENU": 26230'2ANSWER$UPCURSER$ī6240F2TEMPTEMP1:TEMP1TEMP3P26230y2CHANGES1:P%(3)(TEMP1)4(TEMP1)2:RTCOLUMN2:CURSER:8682RTCOLUMN:CURSER:TEMP1(P%(3)4):7803P%(3)P%(4)1000P%(4)1000P%(3):CURSER2:RTCOLUMELP7:1800: HELP FOOTNOTE31LTEMP1(P%(3)4):N1VRTCOLUMN:CURSER:780y1`RTCOLUMN2:CURSER:ANSWER$:16368,01jANSWER$ESCAPE$ī63301tANSWER$RETERN$ī63201~ANSWER$DNCURSER$ANSWER$SPACEBAR$ī62901TEMPTEMP1:TEMP3TEMP1ī5850%04(TEMP$)1TEMP$"":5835C0>TEMP$(TEMP$,(TEMP$)1)[0BTEMP$"0"TEMP$""e0D58350H:RTCOLUMN2:CURSER:8680RRTCOLUMN:CURSER:"$";P%(4)0pCURSERFIRSTLN:08********** BETSPRED P%(3) ******0= BETSPRED=1, 4 OR 81BHESCAPE$ī5960K/ANSWER$RETERN$TEMP$""P%(4)(TEMP$):CHANGES1:5960n/ANSWER$"0"ANSWER$"9"ī5930/ANSWER$"0"TEMP$""ī5850/ TEMP$TEMP$ANSWER$/(TEMP$)(1000P%(3))TEMP$(TEMP$,1)/ 59540*ANSWER$UPCURSER$(TEMP$)0SER2 .l4. ********* MINIMUM BET P%(4) ****F.HELP13:1800S.TEMP$""i.RTCOLUMN:CURSER~.:"$ ":5850.RTCOLUMN1:CURSER:" ";.RTCOLUMN5(TEMP$):CURSER:TEMP$.RTCOLUMN2:CURSER:ANSWER$:16368,0 /ANSWER$5,I274,I:: CLR ALL FROM RC# OVER & DOWNNXD20ī7335: CLR OLD DISCARDSX232,CD:233,SB:DX17:DY79:I1D24:20DX,DY:DYDY3:XTEMP$"TRUE COUNT":DX91:DY88:10700:TEMP$"BET":DX140:DY104:10700XYK********* SET UP NEW DATA ***107003WDX70:DY72:TEMP$"RUNNING COUNT":10700WTTAL1DX91:DY137:TEMP$"SCORE = "((RIGHTTTAL100))" %":10700WW******** CLEAR OLD DATA ********WW0:I6471:210,I260,I:: CLEAR "CORRECT" OF ANSWERS+XI72110:17DY12:: DRAW BORDERVlDX,DY:DX,DY1DX33,DY1:TEMP$"DISCARDS":DY10:DX48:232,SM:233,CR:X1(TEMP$):TEMP((TEMP$,X,1)):TEMP65TEMP90TEMPTEMP64VvTEMPDX,DY:DYDY9:: PUT UP DISCARD PILEWDX70:DY32:TEMP$(D1)" DECK GAME":ANSWER$RETERN$İ7300:6020: CLEAR OLD DATA, START AGAINTU.ANSWER$ESCAPE$đ:^U86170UW******** SET UP PRACTICE SCRN ***UXU]232,CD:233,SB:3Vb1,1278,1278,1561,1561,1:2,2277,2277,1552,1552,2:DX15:DY10:I16:19DX,DY:DYT7500: PUT UP NEW DATAQ6TEMPTEMP1:TEMP1TEMP3HQJ4050tQOCHANGES1:BETSPRED(TEMP1)4(TEMP1)QT:ACROSSRTCOLUMN:ACROSS2:DOWN:868Q^ACROSS:DOWN:TEMP1(BETSPRED4)Qh3900RrCURSERFIRSTLN:DOWNCURSER:ACROSSMARGIN2URSER:ACROSSRTCOLUMN0PTEMP1(BETSPRED4):HPACROSS:DOWN:3900qPRTCOLUMN2:DOWN:ANSWER$:16368,0PANSWER$ESCAPE$ī4180PANSWER$RETERN$ī4175PANSWER$DNCURSER$ANSWER$SPACEBAR$ī4140PTEMPTEMP1:TEMP3TEMP1Q405DECKS4O0 3030@O: :ACROSS2:DOWN:868:ACROSS:DOWN:D1rOD CURSERCURSER2:DOWNCURSER:ACROSSMARGIN2:O<("FLAT1 TO 41 TO 8",1(TEMP2)4(TEMP3)6,4(TEMP2)2);:868:O********** REVISE BET SPREAD ***OHELP7:1800PDOWNC6368,0,N ANSWER$ESCAPE$DECKSTEMP:3130iN ANSWER$RETERN$D1((DECKS$,DECKS,1)):CHANGES1:3130N ANSWER$SPACEBAR$ANSWER$DNCURSER$ī3100N DECKSDECKS1:DECKS4DECKS1N 3030N ANSWER$UPCURSER$ī3040O& DECKSDECKS1:DECKS168M"DOWNDOWN1:I5M&DOWNCURSER:ACROSSMARGIN2DM+HELP9Ģ1JM0pM ********** REVISE # OF DECKS ***M HELP4:1800M DOWNCURSER:ACROSSRTCOLUMNM :TEMPDECKSM DOWN:ACROSS:" ";(DECKS$,DECKS,1);" "N ACROSS2:DOWN:ANSWER$:122:21:"CONFIRM SELECTION";:868IL@DOWNLIMITDOWNDOWNFIRSTLN:1510jLJDOWNFIRSTLNDOWNLIMITDOWNtLT1510zL^L********** PRINT HELP MENU *****LDOWN21:ACROSS1LIHELPHELP2:DOWN:ACROSS:HELP$(I);M ACROSS(HELP$(I))41Č8((DOWNFIRSTLN)2)1:CURSERDOWN:1630kKANSWER$UPCURSER$ANSWER$DNCURSER$ANSWER$SPACEBAR$ī1510KANSWER$UPCURSER$DOWNDOWN2:1580K"DOWNDOWN2K,HELP1DOWNFIRSTLNDOWNLIMITDOWNĢ22:21:"REVISE ITEM";:868:1600"L6HELP1Ģ:DOWN:D1(JBDOWNDOWN2:ACROSS:DOWNFJLBETSPRED1ĺ"FLAT":1120\JV"1 TO ";BETSPREDbJ`J********* GET MENU CHOICE ******JHELP1ī1580JACROSS:DOWN:ANSWER$:16368,0JANSWER$ESCAPE$ANSWER0:1630'KANSWER$RETERN$ANSWERT MENU ***********I:!I:FIDOWN2:ACROSS(40(MENU$(1)))2bIACROSS:DOWN:MENU$(1)IACROSS:DOWN1:MENU$(2)IDOWNFIRSTLN:ACROSSMARGINI$I35:ACROSS:DOWN:MENU$(I):DOWNDOWN2:II.DOWNFIRSTLN2:ACROSSRTCOLUMN J8ACROSS8D D(DlCH(222):CH4ī2050D:10:10:"DISK WRITE PROTECTED":12:4:"PLEASE CORRECT AND REINSERT DISK":14:5:"THEN PRESS ANY KEY TO CONTINUE"DCH(16384):16368,0:CH127ī2010D:15DE:10:15:"DISK ERROR":12:10:"PLEA060 C:15 50:89112,110LCTEMP$"IOTA SYSTEMS":DX128:DY110:1000{CTEMP$"COPYRIGHT 1983":DX108:DY120:1000CD$CCD$;"RUN MENU"CCX1(TEMP$)CTEMP((TEMP$,X,1))64CTEMP1TEMPTEMP64DTEMPDX,DY:DXDX PRESS ANY KEY TO CONTINUE"D CH(16384):16368,0:CH127ī2010N :15 :10:15:"DISK ERROR":12:10:"PLEASE CHECK DISK AND REINSERT":14:5:"THEN PRESS ANY KEY TO CONTINUE" CH(16384):16368,0:CH127ī2060 :15 P:CH127ī2CHARACTERS,A$834"4 2D$;"BLOAD CARD SYMBOLS,A$E74"C <:3:0:1P ?49234,0e @D$;"BLOAD PIX1"m D$ D$;"RUN MENU" lCH(222):CH4ī2050 :10:10:"DISK WRITE PROTECTED":12:4:"PLEASE CORRECT AND REINSERT DISK":14:5:"THEN  LOGOD$(4)768,32:769,234:770,3:771,32:772,251:773,218:774,32:775,102:776,213: RESET=RUN CURRENT PROGRAM1900D$:D$;"OPEN WRITEST":D$;"WRITE WRITEST":1:D$;"CLOSE WRITEST"216,0D$ (D$;"BLOAD SMALL     (TEMP$,X,1)):TEMP65TEMP90TEMPTEMP64Hb)TEMPDX,DY:DXDX7:XNb*NTEMPDX,DY:DXDX7:Xr**X,DY:DXDX7:Xb*BDXDX7:Xb*DY137:DX147:0:10700:3Ka#TTAL1DX91:DY137:TEMP$"SCORE = ":10700a#DX147:DY137:TEMP$((RIGHTTTAL100))" %":10700a#HELP16:1800a#a) NEED HCOLOR,DY,DX,TEMP$a)232,SM:233,CRa)(TEMP$)0ī10760-b)X1(TEMP$):TEMP(:9110R`P#TEMP$"CORRECT":DX210:DY64:10700:TEMP$"ANSWERS":DX210:DY74:10700`x#TEMP$(T):DY88:DX217(287(TEMP$)):10700: DISPLAY TRUE COUNT`#TEMP$(U):DY104:DX217(287(TEMP$)):10700: DISPLAY BET UNITSa#OLD$""TEMP$OLD$:(TMP$)-_!TEMP$"?":DX161:DY104:0:107005_!:[_'#********* CHECK ANSWERS ********b_(#3_-#OLD$"":TTAL1OLD$((RIGHT(TTAL1)100))" %": OLD SCORE_2#((T1T)(U1U))ī9040_<#RIGHTRIGHT1`F#DX217:DY88:TEMP$"CORRECT!":3:10700"0"ANSWER$"9")ī86208^!(ANSWER$"0"TMP$"")ī8540N^!TMP$TMP$ANSWER$o^!(TMP$)9999TMP$(TMP$,1)^!TMP$"0"TEMP$""^!8520^!(ANSWER$UPCURSER$(TMP$)0)ī8540^!(TMP$)1TMP$"":8520^!TMP$(TMP$,(TMP$)1):8520_!U1:10700]C!TMP$"":OLD$TMP$T]H!TEMP$OLD$:DY104:DX175(287(TEMP$)):0:10700b]M!OLD$TMP$]R!TEMP$TMP$:DY104:DX175(287(TEMP$)):3:10700]\!ANSWER$:16368,0]f!ANSWER$ESCAPE$ī8650]p!ANSWER$RETERN$TMP$""ī8640^z!(ANSWER$0+\(ANSWER$UPCURSER$(TMP$)0)ī8040H\(TMP$)1TMP$"":8020i\TMP$(TMP$,(TMP$)1):8020x\T1(TMP$)\TEMP$"?":DX161:DY88:0:10700\:\3!********* GET USER UNITS BET ****\4!HELP13:1800]>!TEMP$"BET?":DX140:DY104:3MP$"-"ī81606[TMP$""ANSWER$"-"TMP$"-":8020^[(ANSWER$"0"ANSWER$"9")ī8130[(ANSWER$"0"(TMP$"0"TMP$"-"))ī8040[TMP$TMP$ANSWER$:(TMP$)1(TMP$,1)"0"TMP$(TMP$,1)[(TMP$)999(TMP$)9999TMP$(TMP$,1)\802 COUNT?":DX91:DY88:3:107004ZOTMP$"":OLD$TMP$jZTTEMP$OLD$:DY88:DX175(287(TEMP$)):0:10700xZYOLD$TMP$Z^TEMP$TMP$:DY88:DX175(287(TEMP$)):3:10700ZhANSWER$:16368,0ZrANSWER$ESCAPE$ī8170[|ANSWER$RETERN$TMP$""T*** YL3OY`TEMP$(R1):DY72:DX175(287(TEMP$)):10700: PUT UP NEW RCtYtD20ī7570: PUTUP NEW DISCARDSY~232,CD:233,SB:DX17:DY79:I1D24:20DX,DY:DYDY3:YY?********** GET USER COUNT ******Y@HELP10:1800ZETEMP$"TRUE((DOWNFIRSTLN)2)1:CURSERDOWN:gMANSWER$SPACEBAR$ANSWER$DNCURSER$ANSWER$UPCURSER$ī1510MANSWER$UPCURSER$DOWNDOWN2:1570MDOWNDOWN2M"DOWNLIMITDOWNDOWNFIRSTLN:1510M,DOWNFIRSTLNDOWNLIMITDOWNM61510N********2)!LDOWNFIRSTLN:ACROSSMARGINRL$I37:ACROSS:DOWN:MENU$(I):DOWNDOWN2:XL.~L******** GET MENU CHOICE *******LDOWNCURSER:ACROSSMARGIN2LACROSS:DOWN:ANSWER$:16368,0LANSWER$ESCAPE$ANSWER0:#MANSWER$RETERN$ANSWERTEGY"KCHANGES0KAK******** DECK & CARDS STRINGS ****aK ("1246",(TEMP2)1,1);:{K4("1234R",TEMP,1);:K********** PRINT MENU ***********K:KACROSS(40(MENU$(1)))2KACROSS:DOWN:MENU$(1)LACROSS:DOWN1:MENU$(RJNHOLD3ī520JX500BJ********** SAVE STATE VECTOR ****]JR(1)DECKS:R(8)NCARDSfJCD$JCD$;"OPEN MONITOR.RULES.STRATEGY"JCD$;"WRITE MONITOR.RULES.STRATEGY"JTV%:I18:R(I)::I15:P%(I):KCD$;"CLOSE MONITOR.RULES.STRA575,I&CHANGES1İ700: WRITE STATE VECTOR TO RETURN TO PRIOR MENU"FH********* MAIN PROGRAM **********xHRTCOLUMN35:FIRSTLN7:CURSERFIRSTLN:MARGIN3HDOWN3:LIMITDOWNFIRSTLN8H1000: PRINT MENUHHELP1:1800: PRINT "HELP" MENUH1500: GET MENU CHOICEIANSWER0ī TO SHOW RUNNING COUNT"NGHELP$(20)"PRESS TO DISPLAY ANOTHER HAND"GHELP$(21)"PRESS TO RETURN TO PRIOR MENU"GHELP$(22)"PRESS TO ENTER HAND COUNT"GHELP$(23)"PRESS TO CONFIRM COUNT"HHELP$(24)"PRESS TO RETURN TO PRIOR MENU"{FHELP$(16)"PRESS TO ENTER RUNNING COUNT"FHELP$(17)"PRESS TO CONFIRM COUNT"FHELP$(18)"PRESS TO RETURN TO PRIOR MENU"GHELP$(19)"PRESS 9)"PRESS TO CANCEL REVISION"^EHELP$(10)"PRESS TO SELECT NEW NUMBER"EHELP$(11)"PRESS TO CONFIRM REVISION"EHELP$(12)"PRESS TO CANCEL REVISION"EHELP$(13)" "FHELP$(14)"PRESS TO CONT TO SHOW RUNNING COUNT"RDmHELP$(5)"PRESS OR TO CHANGE SPEED"DrHELP$(6)"PRESS TO RETURN TO PRIOR MENU"DwHELP$(7)"PRESS TO SELECT NEW STRATEGY"D|HELP$(8)"PRESS TO CONFIRM REVISION"(EHELP$(NUMBER OF CARDS"=CMENU$(7)"REVIEW/REVISE NUMBER OF DECKS"LCTHELP$(24)CYHELP$(1)"PRESS TO SELECT MENU ITEM"C^HELP$(2)"PRESS TO CONFIRM SELECTION"CcHELP$(3)"PRESS TO RETURN TO MAIN MENU""DhHELP$(4)"PRESS(7)BnCHANGES0 BMENU$(7)ABMENU$(1)"PRACTICE COUNTING"bBMENU$(2)"-----------------"BMENU$(3)"ENTIRE SHOE WITH AUTO DEALING"BMENU$(4)"ENTIRE SHOE WITH PLAYER DEALING"BMENU$(5)"SMALL GROUPS OF CARDS"CMENU$(6)"REVIEW/REVISE MONITOR.RULES.STRATEGY"?AFCD$;"READ MONITOR.RULES.STRATEGY"gAPTV%:I18:R(I)::I15:P%(I):AZCD$;"CLOSE MONITOR.RULES.STRATEGY"A_NCARDSR(8):DECKSR(1)BdESCAPE$(27):RETERN$(13):SPACEBAR$(32):DNCURSER$(21):UPCURSER$(8):BEEP$&@CD$(4):552@CARDS%(1)1:CARDS%(2)1:CARDS%(3)1:CARDS%(4)2:CARDS%(5)2:CARDS%(6)2:CARDS%(7)1:CARDS%(8)0:CARDS%(9)0:CARDS%(10)2@#D%(312,2):CD116:SB14:SM52:CR8: CD-SB=CARDS SYMBOLS, SM-CR=SMALL CHARACTERS@2CD$A<CD$;"OPEN                   SE CHECK DISK AND REINSERT":14:5:"THEN PRESS ANY KEY TO CONTINUE"mE CH(16384):16368,0:CH127ī2060wE:15 D:15 DENU&]rC9R(8):R(8)5C9((1)4)1@]|6400: DISPLAY CARDS[]6600: GET USER COUNTt]ANSWER$ESCAPE$đ:]T8MPR3ī8110]BEEP$:8070]6200:C4C5ī8050: CLR SCREEN & CONTINUE]1:21:958:8030^ ********* MANUAL DEALING ********* SMALL GROUPS PRACTICE ***4\@:C6312:C5260=\J:3\T1,1278,1278,1561,1561,1:2,2277,2277,1552,1552,2: DRAW BORDER\^6100: SHUFFLING\hTEMP$"SHUFFLING":DX104:DY70:0:6000: CLEAR "SHUFFLING"]mHELP22:6300: PRINT HELP M1)([hDXXD:0:6000: CLEAR OLD VALUE_[jDXXD:3:TEMP$T8MP$" ":6000: DISPLAY NEW VALUEi[r6630[*********** DISPLAY RC *********[ NEED R1 AND HCOLOR[DX130:DY20[TEMP$"RUNNING COUNT= "(R1)[6000: DISPLAY RC[ \?**$"9")ī6730%Z"T8MP$T8MP$ANSWER$UZ,(T8MP$)1(T8MP$,1)"0"T8MP$(T8MP$,1)Z6(T8MP$)999(T8MP$)9999T8MP$(T8MP$,1)Z@6760ZJ(ANSWER$UPCURSER$(T8MP$)0)ī6630ZTT8MP$"-"(T8MP$)1T8MP$"":6760[^T8MP$(T8MP$,(T8MP$)6000: CLEAR OLD VALUE$YT8MP$"";YANSWER$:16368,0RYANSWER$ESCAPE$ıYANSWER$RETERN$T8MP$""T8MP$"-"T8MP(T8MP$):YT8MP$""ANSWER$"-"T8MP$"-":6760Y(ANSWER$"0"(T8MP$"0"T8MP$"-"))ī6630 Z(ANSWER$"0"ANSWER SHOVE THE DECK DOWN5XC3C31:C4C41:C210C210xXR1R1CARDS%(C2):R3R3CARDS%(C2): RUNNING COUNT & HAND COUNTXJXX********* GET USER COUNT ********X3:DX102:DY100:XD151XTEMP$"COUNT? ":6000YTEMP$T8MP$" ":DXXD:0:OM CARD IN THE DECK/W(C1D%(K,2): CARD SUITMW2C2D%(K,1): CARD VALUE _W< DRAW A CARDrWF0:18DX1,DYWP3:18DX,DYWU0:C12C13ĒTVWZC2DX7,DY3WdC113DX8,DY16WnDXDX20XxD%(K,2)D%(C6C41,2):D%(K,1)D%(C6C41,1):Y CARDS *********'V NEED C9,C6,C4AV232,CD:233,SB:0:1oV C31:R30: # CARDS ON SCREEN, HAND COUNTVDY50:DX(280(C9208))2VJ1C9VK((1)(C6C4))1: C6-C4=# OF CARS IN THE SHOEV# C9=# OF CARDS TO SHOW W$ K= A RANDOUNT? "(T8MP)8U`DX102:DY100:0:6000: CLEAR COUNTHUeDW0ī6260fUj0:6800:DW0: CLEAR RClUtU********** PUT UP HELP MENU ****UDOWN21UIHELPHELP2:DOWN:1UHELP$(I);:868UDOWNDOWN1:U1:V********* DISPLA: # OF CARDS DEALT, RUNNING COUNT)TOT7********* CLEAR BOARD **********kT8232,CD:233,SB: CARDSTBDX(280(C9208))2(C91)20:DY50:0:1:0TGI1C9:18DX,DY:DXDX21:: CLEAR CARDSTL232,SM:233,CRTQHOLD3ī6245UVTEMP$"C$STEMP65TEMP90TEMPTEMP64?STEMPDX,DY:DXDX7:XESkS********* SHUFFLING ************STEMP$"SHUFFLING"SDX104:DY70:3S6000: PRINT TEMP$SL0:I1C652:J14:K113:LL1:D%(L,1)K:D%(L,2)J:K:J:I#TC41:R10TEMP2:TEMP1TEMP(TEMP5)1*R4010JR:RTCOLUMN2:CURSER:868]RCURSERFIRSTLNcR"Ro********* PRINT A STRING *******Rp NEED HCOLOR,TEMP$,DX,DYRr232,SM:233,CR: SMALL CHARACTERSRu1:0SzX1(TEMP$):TEMP((TEMP$,X,1))UMN2:CURSER:ANSWER$:16368,0PQANSWER$RETERN$DECKSTEMP:CHANGES1:4110kQANSWER$ESCAPE$ī4110QANSWER$SPACEBAR$ANSWER$DNCURSER$ī4080QTEMPTEMP1:TEMPTEMP(TEMP3):TEMP6TEMP1Q4010QANSWER$UPCURSER$ī4020 RTEMPR$UPCURSER$ī30202P TEMPTEMP1:TEMP1TEMP5 TO SELECT MENU ITEM"E^HELP$(2)"PRESS TO REVISE ITEM"EcHELP$(3)"PRESS TO RETURN TO PRIOR MENU"EhHELP$(4)" "!FmHELP$(5)"PRE(1)"REVIEW/REVISE GAME RULES"FDM2NU$(2)"------------------------"fDM2NU$(3)"PLAYING STRATEGY"{DM2NU$(4)"DECKS"DM2NU$(5)"DECKS AT SHUFFLE"DM2NU$(6)"DOUBLE DOWN"DM2NU$(7)"DOUBLE DOWN ON SPLITS"DM2NU$(8)"DEALER HITS SOFT 17""CM1NU$(4)"HARD TOTALS"7CM1NU$(5)"SOFT TOTALS"XCM1NU$(6)"HARD DOUBLE DOWNS"yCM1NU$(7)"SOFT DOUBLE DOWNS"CM1NU$(8)"PAIR SPLITTING"CM1NU$(9)"SURRENDER"CM1NU$(10)"REVIEW/REVISE GAME RULES"CM2NU$(10):MNUSIZE(2)10DM2NU$CAPE$(27):RETERN$(13):SPACEBAR$(32):DNCURSER$(21):UPCURSER$(8):BEEP$(7)aBnCHANGES0{BMNUSIZE(2),MENU$(10)BM1NU$(10):MNUSIZE(1)10BM1NU$(1)"PRACTICE DIFFICULT HANDS"BM1NU$(2)"------------------------"CM1NU$(3)"ALL HANDSATEGY"-AFCD$;"READ MONITOR.RULES.STRATEGY"UAPTV%:I18:R(I)::I15:P%(I):}AZCD$;"CLOSE MONITOR.RULES.STRATEGY"A\CD$A^CD$;"OPEN HANDSTEXT"A_CD$;"READ HANDSTEXT"A`I1200:J14:H1%(I,J):J:IAbCD$;"CLOSE HANDSTEXT"SBdES7@CD$(4):570"@SNAME$""e@ S1%(28,5),S2%(9,5),S3%(10,10),S4%(13,10),S5%(8,10),S6%(10,10)@"H1%(200,4),H2%(200,4),H3%(1,4)@#H11:H241:H396:H4121:H5161:H6191:H7201@(CD116:SB14:SM52:CR8@2CD$A<CD$;"OPEN MONITOR.RULES.STR               P$"CORRECT!":DYDY14:DX112:6000:9000Qf"TEMP$"RUNNING COUNT= "(R1):6000cf(#HELP13:6300zf2#ANSWER$:16368,0f<#ANSWER$ESCAPE$đ:fF#ANSWER$RETERN$ī9010fP#8600fZ#(4):(4);"NEW"(8830 et"V=e~"6200:C4C5ī8645: CLEAR SCREEN & CONTINUEOe"HELP16:6300ce"3:DY70:XD179e"DX74:TEMP$"RUNNING COUNT?":6000e"TEMP$" ":T8MP$"":6630: GET USER RCe"ANSWER$ESCAPE$đ:e"DX74:3:DYDY14e"R1T8MPī8910)f"TEMV891VELVELV8`d."P%(5)(VELV81)V8:CHANGES1:24:15:"SPEED = ";:868:P%(5);:1:8820xd8"ANSWER$"C"ī8820dB"3:6800:HELP13:6300:DW1: DISPLAY RC, NEW HELPdL"ANSWER$:16368,0dV"ANSWER$ESCAPE$đ:d`"ANSWER$RETERN$ī8780ej"C9((1)4)1)c!6400: DISPLAY CARDS6c!V1VEL{c!ANSWER(16384)128:16368,0:ANSWER1ANSWER$(ANSWER):8690c!ANSWER$""c!ANSWER$ESCAPE$đ:c!ANSWER$"F"ī8730c"VELV81VELVELV8c"8750c"ANSWER$"S"ī8760d$"VEL,1552,2: DRAW BORDER.b!6100: SHUFFLINGlb!TEMP$"SHUFFLING":DX104:DY70:0:6000: CLEAR SHUFFLINGb!HELP4ī8650: HELP-4 FTNOTE ALREADY UPb!HELP4:6300:24:15:"SPEED = ";:868:P%(5);:1: PRINT HELP FTNOTE & SPEEDc!C9R(8):R(8)50a*!ANSWER$:16368,01a4!ANSWER$ESCAPE$đ:Ma>!ANSWER$RETERN$ī8490WaH!8200}a!******** AUTO DEALING **********a!:C6DECKS52:C5C6C64a!16368,0:V810:VEL(P%(5)1)V81a!:3b!1,1278,1278,1561,1561,1:2,2277,2277,1552179*` DX74:TEMP$"RUNNING COUNT?":6000S` TEMP$" ":T8MP$"":6630: GET COUNTl` ANSWER$ESCAPE$đ:` DX74:3:DYDY14` R1T8MPī8390` TEMP$"CORRECT!":DYDY14:DX112:6000:8480` TEMP$"RUNNINT COUNT= "(R1):6000a !HELP13:630R(8)5C9((1)4)11_D 6400: DISPLAY CARDSH_N ANSWER$:16368,0a_X ANSWER$ESCAPE$đ:_b ANSWER$"C"Ē3:DW1:6800:8270: DISPLAY RC_l ANWER$RETERN$ī8270_v 6200:C4C5ī8250: CLR SCREEN & CONTINUE_ HELP16:6300` 3:DY70:XD*****"^ :C6DECKS52:C5C6C64+^ :3x^ 1,1278,1278,1561,1561,1:2,2277,2277,1552,1552,2: DRAW BORDER^& 6100: SHUFFLING^0 HELP19:6300: PRINT HELP MENU^5 TEMP$"SHUFFLING":DX104:DY70:0:6000: CLEAR "SHUFFLING"_: C9R(8):PR(1):BURTCOLUMN:CURSER:" ";:770:RTCOLUMN2:CURSER:" "mURTCOLUMN2:CURSER:ANSWER$:16368,0UANSWER$RETERN$R(1)TEMP:CHANGES1:4110UANSWER$ESCAPE$ī4110UANSWER$SPACEBAR$ANSWER$DNCURSER$ī4080VTEMPTEMP1:TEMPTET 1500T ANSWER0ıGT ANSWER3HELP$(10)HELP$(10)"RULE":3285gT HELP$(10)HELP$(10)"VALUE"T ANSWER5600,4000,4200,4400,4400,4400,4600,4400T HELP$(10)(HELP$(10),27)T 3230T******** DECKS FOR RULES ********UHELP10:1800:TEMITOR.RULES.STRATEGY"$Sn CHANGES0:KS ********** RULES MENU ***********tS RTCOLUMN29:FIRSTLN4:CURSERFIRSTLNS MARGIN3:DOWN1:LIMITDOWNFIRSLTN2(MNUSIZE(2)3)S MENU2:I1MNUSIZE(MENU):MENU$(I)M2NU$(I):S 1000:1100S HELP1:1800(HELP$(I))41Č868'R&DOWNDOWN1:7R0DOWNCURSER=R:dR' ********* WRITE STATE VECTOR ****mR( CD$R2 CD$;"OPEN MONITOR.RULES.STRATEGY"R< CD$;"WRITE MONITOR.RULES.STRATEGY"RF TV%RP I18:R(I):RZ I15:P%(I):Sd CD$;"CLOSE MONWNDOWN2:1570QDOWNDOWN2FQ"DOWNLIMITDOWNDOWNFIRSTLN:1510gQ,DOWNFIRSTLNDOWNLIMITDOWNqQ61510Q**********PRINT HELP MENU ******QDOWN21:ACROSS1QIHELPHELP2:DOWN:ACROSS:HELP22IHELPČ868:1830RHELP$(I);:ACROSSDOWNCURSER:ACROSSMARGIN2BPACROSS:DOWN:ANSWER$:16368,0bPANSWER$ESCAPE$ANSWER0:PANSWER$RETERN$ANSWER((DOWNFIRSTLN)2)1:CURSERDOWN:PANSWER$SPACEBAR$ANSWER$DNCURSER$ANSWER$UPCURSER$ī1510QANSWER$UPCURSER$DO:ACROSS:DOWN:TEMPR(3):740:DOWNDOWN2VO~ACROSS:DOWN:TEMPR(4):700:DOWNDOWN2OACROSS:DOWN:TEMPR(5):700:DOWNDOWN2OACROSS:DOWN:TEMPR(6):750:DOWNDOWN2OACROSS:DOWN:TEMPR(7):700OO********** GET MENU CHOICE *****PTCOLUMN5NQACROSS:DOWN:TEMPP%(1):710:DOWNDOWN2YNVACROSS:DOWN:R(1):DOWNDOWN2N`TEMPR(2)8:TEMP8TEMPR(2)44:TEMP12TEMPR(2)28NeACROSS:DOWNNjR(2)1ĺ(FRACSHUN$,5TEMP2,3):1140No(FRACSHUN$,5TEMP4,5))OtDOWNDOWN2:#MACROSS(40(MENU$(1)))2?MACROSS:DOWN:MENU$(1)]MACROSS:DOWN1:MENU$(2)|MDOWNFIRSTLN:ACROSSMARGINM$I3MNUSIZE(MENU):ACROSS:DOWN:MENU$(I):DOWNDOWN2:M.MK******** PRINT CURRENT RULES ****NLDOWNFIRSTLN:ACROSSRP2)41(TEMP),TEMP3(TEMP2)(TEMP)5);:868:pL("10,11 ONLYANY 2 CARDS",TEMP101,TEMP10);:868:L("NOLATEARLY",TEMP21(TEMP2),TEMP2((TEMP2)3));:868:L("1246",(TEMP2)1,1);:L******** PRINT MENU *************MAND BY"KDCD$4KNCD$;"NOMON C,I,O":(37):868=KXCD$QKbCD$;"RUN MENU"WKlKvANSWER5800,5810,5820,5830,5840,5850,5860,3200K500K******** R & S STRINGS **********K("NOYES",TEMP21,TEMP2);:868:5L("ADV ZENBASIC",(TEM***,JRTCOLUMN30:FIRSTLN4:CURSERFIRSTLNcJMARGIN9:DOWN1:LIMITDOWNFIRSTLN2(MNUSIZE(1)3)JMENU1:I1MNUSIZE(MENU):MENU$(I)M1NU$(I):J1000JHELP16:1800J1500J&CHANGES1İ2600J0ANSWER0ī630K:::12:10:"PLEASE STPLAY":IHELP$(21)"PRESS TO END THIS PRACTICE"lIHELP$(22)" PRESS TO CONTINUE"IFRACSHUN$" 1/8 1/4 3/8 1/2 5/8 3/4 7/81 1 1/41 1/21 3/42 2 1/23 3 1/24 4 1/25 5 1/2"J********** MAIN PROGRAM ******THIS PRACTICE"CHHELP$(16)"PRESS TO SELECT MENU ITEM"yHHELP$(17)"PRESS TO CONFIRM SELECTION"HHELP$(18)"PRESS TO RETURN TO MAIN MENU"HHELP$(19)"ENTER PLAY DECISION"IHELP$(20)"PRESS TO CONFIRM "PRESS TO REVISE "SGHELP$(11)"PRESS TO CONFIRM REVISION"GHELP$(12)"PRESS TO CANCEL REVISION"GHELP$(13)"ENTER PLAY DECISION"GHELP$(14)"PRESS TO CONFIRM PLAY"HHELP$(15)"PRESS TO END SS TO CONTINUE PRACTICE"TFrHELP$(6)"PRESS TO END THIS PRACTICE"FwHELP$(7)"PRESS TO SELECT NEW STRATEGY"F|HELP$(8)"PRESS TO CONFIRM REVISION"FHELP$(9)"PRESS TO CANCEL REVISION"GHELP$(10)z#    ǠŠ(ԠӠ9 ˠ<Ԡ à2 ر" Ԡ ӱ ӱڠ ӱڠ ՠ- ǠŠ$ ϠϠ ͮĠԠ̠Ӡ ĠӠРҮӮ٠:DY20eL8DX,DY:DXDX70eVTEMP$"IT":6350Te`DX14:DYDY8:19DX,DY:DXDX7kejTEMP$"TAND":6350etDX14:DYDY8:4DX,DY:DXDX7e~TEMP$"OUBLE":6350eDX7:DYDY8:83DX,DY:DXDX7:16DX,DY:DXDX7eTEMP$"LIT":6350&fDX7:DYDYOR "(A)" OUT OF "(A1)" HANDS"Ad10:20(TEMP$)2:TEMP$ad12:12:"PLAYED CORRECTLY"vdHELP22:1800:1d16384,128:ANSWER$((16384)128):16368,0dd7********** PLAY CHOICES ********d8232,SM:233,CRd=1:0:3eBDX14NAME$c:3cA0:A10ic1,1278,1278,1561,1561,1:2,2277,2277,1552,1552,2: DRAW BORDERc6200: PLAY CHOICESc8000: PRACTICEc:cA10ī6170cTEMP$"SCORE "((AA1100))" %"c8:20(TEMP$)2:TEMP$#dTEMP$"FbRCD$;"READ ";SNAME$;b\I128:J15:S1%(I,J):J:I]bfI19:J15:S2%(I,J):J:IbpI110:J110:S3%(I,J):J:IbzI113:J110:S4%(I,J):J:IbI18:J110:S5%(I,J):J:IbI110:J110:S6%(I,J):J:IcCD$;"CLOSE ";S14:H2%(I,J)H1%(F11I,J):J:Sa*TEMP$"S123456":P%(1)1TEMP$TEMP$"Z":5940qa/P%(1)2TEMP$TEMP$"AZ"a4TEMP$SNAME$ī6050a>SNAME$TEMP$aC::8:10:"LOADING STRATEGY TABLES":12:12:"PLEASE STAND BY"aHCD$bMCD$;"OPEN ";SNAME$900 `E92:F1H6:F2H71:5900=`E93:F1H3:F2H41:5900Z`E96:F1H4:F2H51:5900w`E94:F1H2:F2H31:5900`E95:F1H1:F2H21`  LOAD FILES`F3F2F11`F350ė::13:10:"LOADING HANDS":12:12:"PLEASE STAND BY" a I1F3:JSWER$UPCURSER$ī56405_>TEMPTEMP1:TEMP0TEMP2?_@5620__D:RTCOLUMN2:CURSER:868_NTEMPP%(1):RTCOLUMN:CURSER_X710_bCURSERCURSER2_v_******** SET UP PRACTICE *******_E97:F1H1:F2H71:5900`E91:F1H5:F2H61:5PP%(1):^RTCOLUMN:CURSER(^710S^RTCOLUMN2:CURSER:ANSWER$:16368,0^ANSWER$RETERN$P%(1)TEMP:CHANGES1:5700^ANSWER$ESCAPE$ī5700^&ANSWER$SPACEBAR$ANSWER$DNCURSER$ī5692^0TEMPTEMP1:TEMP2TEMP0^:5620_<ANMP1:TEMP2TEMP0]>4610;]HANSWER$UPCURSER$ī4620Z]RTEMPTEMP1:TEMP0TEMP2d]\4610]f:RTCOLUMN2:CURSER:868]pTEMPR(6):RTCOLUMN:CURSER:750]zCURSERCURSER2:]********* STRAT-BASIC/ZEN/ADVZEN**]HELP7:1800 ^TEMURRENDER-RULES ******3\HELP10:1800:TEMPR(6):N\RTCOLUMN:CURSER:750y\ RTCOLUMN2:CURSER:ANSWER$:16368,0\ANSWER$RETERN$R(6)TEMP:CHANGES1:4710\ ANSWER$ESCAPE$ī4710\*ANSWER$SPACEBAR$ANSWER$DNCURSER$ī4680]4TEMPTE$ANSWER$DNCURSER$ANSWER$UPCURSER$ī5530L[vTEMPTEMP1:TEMP1TEMP0V[4410v[:RTCOLUMN2:CURSER:868[TEMPR(ANSWER1):RTCOLUMN:CURSER:ANSWER4İ700:4520[740[CURSERCURSER2:ANSWER8CURSERFIRSTLN[\********* SES-YES/NO & DD ****8Z0HELP10:1800:TEMPR(ANSWER1):dZ:RTCOLUMN:CURSER:ANSWER4İ700:4430mZD740ZNRTCOLUMN2:CURSER:ANSWER$:16368,0ZXANSWER$RETERN$R(ANSWER1)TEMP:CHANGES1:4490ZbANSWER$ESCAPE$ī4490-[lANSWER$SPACEBAR4 Y4210+Y:RTCOLUMN2:CURSER:868hYTEMPR(2)8:TEMP8TEMPR(2)44:TEMP12TEMPR(2)28~YRTCOLUMN:CURSERYR(2)1ĺ(FRACSHUN$,5TEMP42,3):4380Y(FRACSHUN$,5TEMP4,5)YANSWER2CURSERCURSER2Y&Z/********* RULR(2)(TEMP4)4:R(2)1R(2)TEMP87XCHANGES1:4330RXANSWER$ESCAPE$ī4330XANSWER$SPACEBAR$ANSWER$DNCURSER$ī4300XTEMPTEMP1:TEMP7(R(1)2)4TEMP1X4210XANSWER$UPCURSER$ī4220YTEMPTEMP1:TEMP1TEMP7(R(1)2)SHUFFLE-PT RULES ****`WhHELP10:1800:TEMPR(2)8:TEMP8TEMPR(2)44:TEMP12TEMPR(2)28fWmWrRTCOLUMN:CURSER:(FRACSHUN$,5TEMP4,5);:868W|RTCOLUMN2:CURSER:ANSWER$:16368,0WANSWER$RETERN$ī4260#XR(2)(TEMP8)2:R(2)2MP(TEMP3):TEMP6TEMP1%V4010CVANSWER$UPCURSER$ī4020lVTEMPTEMP2:TEMP1TEMP(TEMP5)1vV4010V:RTCOLUMN2:CURSER:868VRTCOLUMN:CURSER:R(1)VCURSERCURSER2V"R(1)R(2)R(2)R(1)2:4330V,Wg*********** 8S1%(E6,E7)u!E8100ī8630*u!E54:?u!E21E27ī8720Vu!E312E317ī8720mu!E7E25:E21E71}u!E40ī8680u!E6E321:8690u!E6E311u!E8S2%(E6,E7)u!E8100ī8720u"E54:u"E7E2u"E40ī8790v$"E6E32:E66E613t*!.t3!******* EVALUATE HAND **********4t4!>t>!E7E2NtH!E12ī8860`tR!R(6)0ī8720rtW!R(6)1ī8630t\!E21E27ī8720tf!E318E318ī8630tp!E7E25:E21E71tz!E40ī8590t!E613E32:8600t!E6(E3)10:E30E6E33 u!E#s E00:E2H3%(1,4):E210E210,s E307s I13Os H3%(1,I)1E0E01os H3%(1,I)10E3E310:8450s E3E3H3%(1,I)s!Is !E00E312E3E310s!E40:H3%(1,1)H3%(1,2)E41s!H3%(1,1)10H3%(1,2)10E41t !E12:H3%(1,3)0E18290rN E8E81000rS 8290.rX T1$T1$"G"@rb T1$T1$(E8)^rd TEMP$"ANSWER="T1$:7100srg HELP22:1800:1rl ANSWER$:16368,0rq ANSWER$ESCAPE$đ:rv ANSWER$RETERN$ī8300r 6400r Mr r ********* HAND TOTALS *********s J14:H2%(K,J)H2%(F3M1,J):JNq3:DY130:DX118:TEMP$"CORRECT!":7100nq AA1:Z1100:JJ:Z:8330q BEEP$:MM1q 3:DY130:DX118q& T1$("HSPDU",E51,1)q0 E8100ī8292q: (E8)1000ī8280qD T1$T1$"L"rI E81000E8E81000: p6800"pANSWER$ESCAPE$đ:SpJ15:(T2$,1)("HSPDU",J,1)F4J1:8120ZpJup(T2$)1F5100:8160pF5((T2$,3))p(T2$,2,1)"L"F50F5F51000:8160p(T2$,2,1)"L"F50F5F51000pA1A11pE5F4E8F5ī8210"qo,o?************ PRACTICE **********8o@M1F3UoBHELP19:P%(1)1HELP13boE1800:1{oJK((1)(F3M1))1oTJ14:H3%(1,J)H2%(K,J):Jo^H3%(1,1)0ī8060ohJ14:H2%(K,J)H2%(F3M1,J):Jor8340o|8400o8500o6600:7050nT2$(T2$,(T2$)1)1nDXXD:0:7100RnDXXD:3:TEMP$T2$" ":7100jn(T2$)16840,6890tn6930n******** DISPLAY PLAY **********nX1(TEMP$):TEMP((TEMP$,X,1))nTEMP65TEMP90TEMPTEMP64oTEMPDX,DY:DXDX7:X,3)"-"))ī69307mD(ANSWER$"0"ANSWER$"9")ī7030KmNT2$T2$ANSWER$mX((T2$,3))1((T2$,3),1)"0"T2$(T2$,2)(T2$,1)mb((T2$,3))999((T2$,3))9999T2$(T2$,2)(T2$,1)ml7050mvANSWER$UPCURSER$ī7080n(T2$)1T2$""$ī7040,lANSWER$"L"ANSWER$"G"ī6850KlT2$(T2$,1)ANSWER$:7050blANSWER$:16368,0ylANSWER$ESCAPE$ıl&ANSWER$RETERN$(T2$,3)""(T2$,3)"-"ıl0(T2$,3)""ANSWER$"-"T2$T2$"-":7050m:(ANSWER$"0"((T2$,3)"0"(T2$0kDX118:DY140:XD1603kTEMP$"PLAY? ":7100HkTEMP$" ":T2$""_kANSWER$:16368,0vkANSWER$ESCAPE$ıkZ15kANSWER$("HSDPU",Z,1)T2$ANSWER$:7050kZ:6840kANSWER$:16368,0kANSWER$RETERN$ılANSWER$UPCURSER8))2jI1C3%jC1((1)4)15jC2H3%(1,I)Hj0:18DX1,DYYj3:18DX,DYoj"0:C12C13ĒTVj'C2DX7,DY3j,C113DX8,DY16j1DXDX20j6Ij@j************ GET PLAY *********j232,SM:233,CR:1:0:3k16368,i<+i********** DISPLAY CARDS *******?i232,CD:233,SBLi3:0:1_iC1((1)4)1tiC2H3%(1,4):C31iDY20:DX126:18DX,DYi0:C12C13ĒTViC2DX7,DY3iC113DX8,DY16iC32:H3%(1,3)0C33jDY80:DX(280(C320*** CLEAR BOARD ********,h232,CD:233,SB9h 0:1:0ThDY20:DX126:18DX,DY}hDY80:DX(280(C3208))2(C31)20h(I1C3:18DX,DY:DXDX21:: CLEAR PLAYER CARDSh248:DX108:DY150:18DX,DY:DXDX38:18DX,DYh7DXDX10:18DX,DY":DX202:7100:DYDY8:TEMP$"THAN -2":DX202:7100YgDX118:DY10:TEMP$"DEALER":7100gDX118:DY70:TEMP$"PLAYER":7100gg*********PRINT SMALL CHARS******gX1(TEMP$):TEMP((TEMP$,X,1))gTEMPDX,DY:DXDX7:gh********8:83DX,DY:DXDX7:21DX,DY:DXDX7@fTEMP$"RRENDER":6350fTEMP$"EXAMPLES:":DX188:DY20:7100:DYDY11:TEMP$"P = SPLIT":DX188:7100:DYDY11:TEMP$"SG-2 = STAND":DX188:7100:DYDY83gTEMP$"IF COUNT":DX202:7100:DYDY8:TEMP$"IS GREATERBEEP$:DX165:DY50:0:TEMP$"INSURANCE? "G1$:10700:P1(12)P1(12)1:TEMP$"WRONG PLAY":12300:4634L4DX165:DY50:0:TEMP$"INSURANCE? "G1$:0:10700:H(2,4)21ī4674L8E51D5D5P1(18)2L<4700LBLDE50D5D5P1(18) MFH(2,1)21D5:DX242:DY50:10700:ANSWER(16384)128:16368,0:ANSWER27HOLDHELP:9500K"I1300:XX:I:ANSWER(16384)128:16368,0:ANSWER27HOLDHELP:9500K&4660K(G2$"YN":HELP7:10800:10900:11700:E50:G1$"Y"E51K,E5E9P1(3)2ī4660eL.2:C1C5(2,4):C2C4(2,4):C32:DX120:DY6:7700:7600:5760@JVJC4(1,4)1ī4700hJR(7)0ī4700JE90:C3(3)M1P%(2)1E91JE5E9JTEMP$"INSURANCE? ":DX165:DY50:3:10700:P1(2)1ī4648JTEMP$"N":E51TEMP$"Y"NKG1$TEMP$:30:11700:E50:G1$"Y"E514IE5E9P1(3)2ī4580IBEEP$:DX165:DY50:0:TEMP$"SURRENDER? "G1$:10700:P1(12)P1(12)1:TEMP$"WRONG PLAY":12300:4554IDX165:DY50:0:TEMP$"SURRENDER? "G1$:0:10700:E51ī4590I4600I:JD5P1(16)HTEMP$"N":E51TEMP$"Y"{HG1$TEMP$:3:DX242:DY50:10700:ANSWER(16384)128:ANSWER0Ĺ16368,0:HOLDHELP:9500HI1500:XX:I:ANSWER(16384)128:ANSWER0Ĺ16368,0:HOLDHELP:9500H4580IG2$"YN":HELP7:10800:10900:DX242:DY5C4(1,4)10ī46009GH(2,1)18H(2,1)18E8100:4545RGE75:C4(1,4)1E71uGH(3,1)1E613H(2,1)2:4540GE6H(2,1)3:H(2,1)0E6(H(2,1))10GE8S1%(E6,E7)G8100:E5E9GTEMP$"SURRENDER? ":DX165:DY50:3:10700:P1(2)1ī456814:J14:H(I,J)0:J:I:F10:I520:P1(I)0:I:P1(19)1000:P1(20)1:P1(4)P%(4):D10:D20:D30:D40:D50:D60:D70:D80:D90:I14:H(1,I)0:I:6500FF6000FHELP1:P1(2)0HELP13F10800:7000:7200:P31:R(6)2ī4600GC4(1,4)1EVALUATE PLAY"EmHELP$(10)"PRESS TO RESUME PLAY":HELP$(11)"PRESS TO START A NEW GAME":HELP$(12)"PRESS TO RETURN TO MAIN MENU":HELP$(13)"PRESS TO QUIT AND EVALUATE PLAY"E16368,0:16368,0EF1:0:I'BLE,S

LIT,SR'NDER":HELP$(5)"PRESS & TO ENTER PLAY"EJHELP$(6)"PRESS TO QUIT & EVALUATE PLAY":HELP$(7)"PRESS ES OR O FOR ANSWER":HELP$(8)"PRESS TO CONFIRM ANSWER":HELP$(9)"PRESS TO QUIT & I18:J110:S5%(I,J):J:ICI110:J110:S6%(I,J):J:I:CD$;"CLOSE ";TEMP$:HELP$(13):HELP$(1)"PRESS TO ENTER BET"ND6HELP$(2)"PRESS TO CONFIRM BET":HELP$(3)"PRESS TO QUIT & EVALUATE PLAY":HELP$(4)"IT,TAND,P$(7):TEMP$"S123456":P%(1)1TEMP$TEMP$"Z":120SBsP%(1)2TEMP$TEMP$"AZ"CxCD$:CD$;"OPEN ";TEMP$:CD$;"READ ";TEMP$:I128:J15:S1%(I,J):J:I:I19:J15:S2%(I,J):J:I:I110:J110:S3%(I,J):J:I:I113:J110:S4%(I,J):J:I:6:SB14:SM52:CR8:cA(CD$:CD$;"OPEN MONITOR.RULES.STRATEGY":CD$;"READ MONITOR.RULES.STRATEGY"5BPTV%:I18:R(I):I:I15:P%(I):I:CD$;"CLOSE MONITOR.RULES.STRATEGY":ESCAPE$(27):RETERN$(13):SPACEBAR$(32):DNCURSER$(21):UPCURSER$(8):BEE9@CD$(4):20000@ C1%(10):C1%(1)1:C1%(2)1:C1%(3)1:C1%(4)2:C1%(5)2:C1%(6)2:C1%(7)1:C1%(8)0:C1%(9)0:C1%(10)2:M15:D%(312,2),S1%(28,5),S2%(9,5),S3%(10,10),S4%(13,10),S5%(8,10),S6%(10,10):C3(10),H(4,4),C4(10,4),C5(10,4),P1(20)A#CD11                   w"E318ī8950!w"E321ī8960Iw"E34E311E316E312ī8970hw"E6E311:E30E6(E3)10zw"E8S5%(E6,E7)w"E51:E8100E50w"E50E8100w"w"E8100:E51:w#E55:E8100:w #E50:E8100:3v."E8S3%(E6,E7),v8"R(4)1E8S6%(E6,E7)?vB"E8100ī8790JvL"E52:bvV"E320E311ī8860zv`"E37E312ī8860vj"R(3)0E310E311ī8860vt"E6(E3)7:E36E6E36v~"E8S4%(E6,E7)v"E8100ī8860v"E53:v"E317E321ī8950DX,DY:DYDY3:I:D80:D70\zTEMP$"SHUFFLING":DX120:DY50:3:TX3:10700:L0:I1R(1):J14:K113:LL1:D%(L,1)K:D%(L,2)J:K:DX120:DY50:TX(TX)3:TX:10700:J:I:I110:C3(I)0:I:D1R(1)52:D20:D3D1(R(2)52)]DX120:DY50:0:TEMP$"S128:16368,0:ANSWER27HELPHOLD:9500w[I1300:XX:I:ANSWER(16384)128:16368,0:ANSWER27HOLDHELP:9500[0:DX120:DY50:TEMP$G1$:10700:7800:D2D3ī4000[4030[p[rDX12:DY74:D80ī6010\t232,CD:233,SB:0:I1D7:208)P1(13)P1(13)P1(8)5ZP1(8)P1(14)P1(14)P1(8)XZP1(17)P1(8)P1(7)100:7833:pZD50G1$"WE PUSH"ZD50G1$"YOU WIN $"(D5)ZD50G1$"YOU LOSE $"((D5)))[DX120:DY50:3:TEMP$G1$:10700:HELP13:10800:10900:ANSWER(16384)H(2,4))D5D5H(4,M):5750!YvM'YiYP1(5)P1(5)1:P1(7)P1(7)P1(18):P1(18)P1(19)P1(19)P1(18)YP1(6)P1(7)P1(5):P1(18)P1(20)P1(20)P1(18)YP1(8)P1(8)D5:D50P1(9)P1(9)1YD50P1(11)P1(11)1YD50P1(10)P1(10)1ZP1(500:7600:C3H(1,4):DX120:DY6:7700:C4(H(1,4),4)C2:C5(H(1,4),4)C1:7900:5640WXDXNM1D4:H(2,M)21D5D5H(4,M):5750XXH(2,4)21D5D5H(4,M):5750X](H(2,M))(H(2,4))ī5750Xb(H(2,M))(H(2,4))D5D5H(4,M):5750Yg(H(2,M))(00:4950-WE33P3D4P3P31:12500:49507W4950WP34:C1C5(2,4):C2C4(2,4):C32:DX120:DY6:7700:7600:T10:M1D4:H(2,M)21T11WM:T10ī5700WW H(2,4)17H(2,4)18ī5700W R(5)0H(2,4)17ī5700QXH(1,4)H(1,4)1:7D42P31DY80,Vz0:10700:E35ī4590N.P31:D41DNVbN`G2$"":E20:P1(3)2E21ND41H(1,1)2R(6)0ī5100NG2$G2$"U":E21ī5100NC4(1,4)1C4(1,4)7ī5100NH(2,1)18H(2,1)11ī5100NC4(1,4)1E71OC4(1,4D5P1(18)GMJC1C5(2,4):C2C4(2,4):C32:DX120:DY6:7700:7600:5760MM\dMfH(2,4)21ī4800MpH(2,1)21D5D5P1(18)MzC1C5(2,4):C2C4(2,4):C32:DX120:DY6:7700:7600:5760MMH(2,1)21ī4900*ND5D51.5P1(18):C1C5(2,4):C2C4(1,D4)C4(2,P3):C5(1,D4)C5(2,P3):DX10:DY116:D43DY126le$3:TEMP$"$"(H(4,D4)):10700:232,CD:233,SB:0:DX120:DY112:P31D42DY86:9324lk$P31D43DY60ll$18DX,DY:18DX18,DY:18DX,DY1:DX120:DY86:D41P3D4DY112:9328mo$DX17:DY106(P31)10:TEMP$(H(4,P3)):10700:7500:7600:C3H(1,P3):C4(C3,P3)C2:C5(C3,P3)C1k$DX120:DY86:D41P3D4DY112:9247k$D42P31DY60k$7700:7900:kT$=lX$D4D41:H(4,D4)H(4,D41):P1(18)P1(18)H(4,D4):H(1,P3)1:H(1,D4)1:1,P3)1:7500:7600:C3H(1,P3):C4(C3,P3)C2:C5(C3,P3)C1:DX120:DY86:D41P3D4DY112:9170tj#D42P31DY60j#7700:7900:j#_k$P1(18)P1(18)H(4,P3):H(1,P3)H(1,P3)1:0:DX17:DY106(P31)10:TEMP$(H(4,P3)):10700:H(4,P3)H(4,P3)2:3:3,P3)0:C4(1,P3)C4(2,P3)C4(1,P3)10C4(2,P3)10H(3,P3)1Di6Ji]iE8100E91:qiE8100E90:i(E8)1000ī8175iT1E81000:E80T1E81000iE90:C3(3)E8E91iiiE90:C3(3)E8E91ii#^j#H(1,P3)H(+hTEMP$"$"(H(4,M)):10700:DYDY10:M1h7hwhH(2,P3)0:T10:I1H(1,P3):T2C4(I,P3):C4(I,P3)10T210hH(2,P3)H(2,P3)T2:T21T11hI:T10ī7960hH(2,P3)11H(2,P3)H(2,P3)10hhH(1,P3)2H(3,P3)0:7990:>i"H(H(1,M):18DX,DY:DXDX18:C3lgM:DX120:DY6:M1H(1,4):18DX,DY:DXDX18:M:DX12:DY74:D8D7ī7832gD70D8D7:7832g3:I1D7:20DX,DY:DYDY3:I:D8D7gD41:D50:I14:H(1,I)0:I:gh0:DY106:M13:DX10:H(1,M)0ī7846YDY:18X1,Y:18X,Y1:3:18X,Y:0:C12C13ĒTV%Xf<C2X7,Y3:C113X8,Y16:vfn2:XDX18:YDY:18X,Y:|fxfz232,CD:233,SB:0:M13:DX120:H(1,M)0ī7822fM1D41DY60:7814f(M2M3)D4MDY112:7814fDY86gC3152):D6TEMP((D152TEMP)2.5).5:7630eeR(1)1TEMP(D152):D6TEMP((D152TEMP)4.5).25eD60R(1)6D6R(1)4:7640eD60D61eD7((R(1)D6)4):C3(3)(C3(2)D6.5):ee232,CD:233,SB:0:C30ī77906f(XDX(C31)18:C2:C5(M,1)C1:M:H(1,1)2:!dLdQK((1)(R(1)52D2))1:C2D%(K,1):C1D%(K,2):D%(K,1)D%(R(1)52D2,1):D%(K,2)D%(R(1)52D2,2):D2D21:ddT1C2:C210T110dC3(2)C3(2)C1%(T1):D1D11:R(1)3D6(D152.5):7630*eR(1)2TEMP(D1LP:9500cP1(18)P1(16):"c c$P31:7250:7900:7500:C4(1,4)C2:C5(1,4)C1:DX120:DY6:C30:7700:DX120:DY6:C31:7700c47600:7500:C4(2,4)C2:C5(2,4)C1:H(1,4)2:P34:7900:P31:cRdTM12:7500:7600:C3M:DX120:DY86:7700:C4(M,1)):P1(16)H(4,1):P1(3)2ī7110YbP1(16)P1(15).5P1(4)P1(16)P1(15).5P1(4)ī7110bBEEP$:HELP13:10800:10900:TEMP$"BEST BET= $"(P1(15)):12300cTEMP$"BET?":DX10:DY98:0:10700:P1(2)0ANSWER(16384)128:ANSWER0Ĺ16368,0:HOLDHE:DX10:DY98:3:10700:TEMP$"$":DX10:DY106:10700:P1(2)1ī7080aH(4,1)P1(15):P1(16)P1(15):TEMP$(P1(15)):DX17:DY106:3:10700:I1100:XX:I:ANSWER(16384)128:16368,0:ANSWER27HOLDHELP:9500a7110b16368,0:11000:H(4,1)(G1$`X`gIC3(3):1`lI2P%(3)1T11:7030E`qP%(3)4ī7028``rT1(I2)2:T14T14j`s7030`tT1(I2.25):T14T12T1:7030`uT18`vP1(15)T1P1(4):P1(15)1000P1(15)1000`}HELP1:P1(2)0HELP13Ca~10800:10900:TEMP$"BET?"40u_1:20:958:22:1:" DO YOU WANT ME TO TELL YOU IF":1:23:" YOU MAKE A MISTAKE ";::"(Y OR N)?":_,1:ANSWER$:16368,0:ANSWER$ESCAPE$ī20000_6ANSWER$"Y"ANSWER$"N"ī6700_JP1(3)2:ANSWER$"Y"P1(3)1`T1:20:958:8:11900:1:20:958:1:22:" DO YOU WANT ME TO PLAY";:1:23:" FOR YOU ";::"(Y OR N)?":^1:ANSWER$:16368,0:ANSWER$ESCAPE$ī20000^ANSWER$"Y"ANSWER$"N"ī6630^P1(2)1:ANSWER$"Y"P1(2)0_P1(2)0P1(3)1:67HUFFLING":10700:]d]i::232,CD:233,SB:3:1,1278,1278,1561,1561,1:2,2277,2277,1552,1552,2:DX10:DY5:3:X16:19DX,DY:DYDY12:X:DX,DY:DX,DY1DX33,DY1:TEMP$"DISCARDS"o^3:DY5:DX43:PX9:11900:DX108:DY5:TEMP$"DEALER":PX| ]Ӡ]Kc (M6*2a(ӠΠ)1<ca(ŠɠĠ͠)F] P]ŠŠĠUZdededededeHdedededeh  :MENU":::(37):868:CD$:CD$;"RUN MENU":D$;"RUN MENU":0I12:C2C4(I,P3):C1C5(I,P3):C3I:DX120:DY86:D41P3D4DY112:12520by0D42P31DY60qy07700:I:y N::12:10:"PLEASE STAND BY":0:I0159:0,I279,I::CD$:CD$;"RUN MENU":1159:0,I279,I::CD$:CD$;"RUN MENU":D$;"RUN MENU"MP90TEMPTEMP641x.TEMPDX,DY:DYDYPX:X:7x 0x0232,SM:233,CR:3:DX165:DY50:10700:AN(16384)128:16368,0:AN27HOLDHELP:9500x40I1300:XX:I:AN(16384)128:16368,0:AN27HOLDHELP:9500x>00:DX165:DY50:10700:x0LyHOLDHELP:9500:11730-w-ANSWER$RETERN$ıXw-X1(G2$):ANSWER$(G2$,X,1)ī11780mw-X:BEEP$:11730w.TEMP$G1$:G1$ANSWER$:0:DXT8MP:10700:TEMP$G1$:3:DXT8MP:10700:11730x|.232,SM:233,CR:X1(TEMP$):TEMP((TEMP$,X,1)):TEMP65TER$UPCURSER$G1$"")ī110308vp+(G1$)1G1$"":11140Pvz+G1$(G1$,(G1$)1)v+DXT8MP:0:TEMP$T8MP$" ":10700:DXT8MP:3:TEMP$G1$" ":10700:T8MP$G1$:11030v-v-232,SM:233,CR:3:T8MPDX:G1$" "w-ANSWER$:16368,0:1:ANSWER$ESCAPE$ľANSWER$:16368,0:1:ANSWER$ESCAPE$HOLDHELP:9500:11030\u*+ANSWER$RETERN$G1$""ıu4+(ANSWER$"0"ANSWER$"9")ī11110u>+(ANSWER$"0"G1$"")ī11030uH+G1$G1$ANSWER$:(G1$)1000G1$(G1$,1)u\+G1$"0"G1$""ua+11140vf+(ANSWE((P1(8))100):10940Bt*T3MP$(T3MP$,(T3MP$)2)"."(T3MP$,2)qt*P1(8)0T3MP$"TOTAL LOSS $"T3MP$:10960t*T3MP$"TOTAL WIN $"T3MP$t*DOWN24:ACROSS(40(T3MP$))2:DOWN:868:ACROSS:T3MP$;:868:1:t*t+T8MPDX:G1$"":T8MP$""=u+LP2:DOWN:1:HELP$(Z);:40(HELP$(Z))1Č868^sN*HELP13ZHELP2:1:22:868:23:868vsX*DOWNDOWN1:Z:1:|s*s*P1(8)100(P1(8)100)P1(8)(P1(8)100)100s*T3MP$((P1(8)100)):P1(8)0T3MP$"0":10940t*(P1(8))1T3MP$"."D BY":0:I0159:0,I279,I::1000_r>&ANSWER$SPACEBAR$HELPHOLD:10800:10900:16304,0:irH&9584or)r)232,SM:233,CR:X1(TEMP$):TEMP((TEMP$,X,1)):TEMP65TEMP90TEMPTEMP64r)TEMPDX,DY:DXDX7:X:r0*1s:*DOWN21:ZHELPHE>>>> ";P1(12):" CURRENT RUNNING COUNT>>>>>> ";C3(2):" CURRENT TRUE COUNT>>>>>>>>> ";(C3(3).5):" CURRENT # OF DECKS IN SHOE> ";D6qp%16384,128:ANSWER$((16384)128):16368,0:ANSWER$ESCAPE$ī20000$r4&ANSWER$RETERN$ė:12:10:"PLEASE STAN(13):" LOWEST BALANCE>>>>>>>>>>>>> $";P1(14)p]%" PERCENT ADVANTAGE>>>>>>>>>> ";(P1(17)100)100:" NUMBER OF HANDS WON>>>>>>>> ";P1(9):" NUMBER OF HANDS LOST>>>>>>> ";P1(10):" NUMBER OF HANDS PUSHED>>>>> ";P1(11)qn%" NUMBER OF MISTAKES MADEEST BET PLACED>>>>>>>> $";P1(19):" AVERAGE BET SIZE>>>>>>>>>>> $";(P1(7)P1(5)100)100:" LARGEST BET PLACED>>>>>>>>> $";P1(20).pB%" TOTAL DOLLARS BET>>>>>>>>>> $";P1(7):" CURRENT $ BALANCE>>>>>>>>>> $";P1(8):" HIGHEST BALANCE>>>>>>>>>>>> $";P13H(1,P3):C4(C3,P3)C2:C5(C3,P3)C1:M1F11İ7700Mn$7900:M:F11P3T3Sn$Yn%pn&%::P1(5)0ī1000n+%HELP10:10800:16368,0:1:11:"ADVANCED BLACKJACK":2:12:"PLAYING SUMMARY":4:1o:%" NUMBER OF HANDS PLAYED>>>>> ";P1(5):" SMALLD42P31DY60Ump$C31:C1C5(1,P3):C2C4(1,P3):7700:7900:T3P3:H(2,P3)11F11km$M12:M2P3D4m$H(1,P3)H(1,P3)1:DX120:DY86:D41P3D4DY112:9358m$D42P31DY60m$M2F11C31:C2C4(1,P3):C1C5(1,P3):77003n$7500:7600:ChL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơe$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱv Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $_^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІșh0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^ DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H ANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTE0oeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCAL                ]"`.?r$6P,a(ŠĠԠŠ)a(̠Š͠ӠĮ)6a(Π)Π)}d?ed@e`M`.?r$]]ƠŬĠ]2o a(ǠԠϠŠĩ)a(Ġìİ)]ŠԠŠq.?6~?r]ð_6]]ϠĠҠΧԠUnd$ed%ed&ed'e d(ed)ed*ed+ed,eUsd-ed.ed/ed0ed1ed2ed3ed4ed5eUxd6ed7ehd8ed9ed:ed;ed<ed=ed>eU_d eHd ed ed ed ede#dededeUddededededededededeUidededededeJd ed!ed"ed#eE ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompn` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊLL(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4`J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--& W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*Uf&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hizݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥ~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, c # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:ƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~u q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ) 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$~?@3333333 3ՊՊ|? D DPx??|@ A`8 p!""Ŀ?gg"DA"@""""~g"""""ŨՊЀՂ~?`????;???3?3?ՊՂ~?x`G |0p?@A   E"ğ?`BCp`aCxq|>>">~A"">`ŨՊЀՂ ~??p3?3?3?ՊՂ~? D DP          b@Ll  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f~?}x p333? 3?ŨՊЀՊ~q?gg"DxQ"@"~q?" DA"D""6"~~g""""􏐿‡( Պ~??u?;3?;??? 3?Ѐ~{?gg"D1"@@8p@ 8 p#"~{?"dA"@ ">> |~g"" ""􇰿dՊ~~?`3?333 ?Ѐxp#Dp~?Os "DP"D@ A D  D~j?ggbxA0"*"~g">"$Պ~?@??3 ?ՊՊ D "D~?xD BC@A @  ">@?gg"A" """"~g"""""h Պ>@?`"("D~?x~ANc?@A@"D `F䟈`~?x@B (ŨՊЀՊ~`?gg"D#@~?}p`!xA@8""">~~g?~@8pp"8xq#>">䏘