4,1:%:CD7& "":MO10000.41500: 4KD(52),F(8),R(8,8)YYY2:PP0"":0,40,23,"AVAILABLE CASH ":"$######.##";MO:MO00,10,15,"MY FRIEND, YOU ARE FLAT BROKE.":"PLAY AGAIN (Y/N)";A$:A$"Y" A$"N"1500:" BYE!":E"HOW MUCH DO YOU WANT TO BET";BT:BTMO1700:192RMOMOBT"":0,40,23,"AVAILABLE CASH ":"$######.##";MOI18J18R(I,J)0JI:780:P1910"0,0,1,"THE HOUSE CARD IS A"1$CA0:990:1400::CA6:C20: 1: 1400:d%0,0,CD5,"TOTAL OF HOUSES HAND":R(1,1): 1j@:rJP2}TI12^910h0,40,0I,"#":I;" CARD FOR YOU IS A";jCA34(I6)r990t1400:PP0PP1: 1|IXIJ1220:F(P)21X30,43,CD6,"****BLACKJACK****":MOMO(BT2):1750:710F(P)21X50,43,CD6,"*****FIVE CARD*****":MOMO(BT2):1750:7100,40,CD5,"YOU HAVE A TOTAL OF":F(P);" IN YOUR HAND F(P)210,43,CD6,"***SORRY YOU ARE BUSTED***":700D 0,40,CD7,"DO YOU WANT ANOTHER CARD (Y/N)":W A$:A$""405 0,40,CD7," " A$"N"470 910 0,40,X,"#":X;" CARD FOR YOU IS A";:XX1 CA34((X1)6) 990 1400!390 !:!1220T!0,40,CD4,"YOU STAND PAT. TOTAL POINTS = ":F(P);:" "Z!k!F(P)21170q!:w!:}!:!&P1!0910!:0,0,YY,"NEXT HOUSE CARD IS A":YYYY1!<CA(YY2)6!D990 "N1400:0,0,CD5,"TOTAL OF HOUSES HAND":R(1,1) "SR(P,2)R(2,2)6209"XR(P,2)17: 1:560?"b:I"l1220"v0,0,CD4,"HOUSE STANDS PAT. TOTAL POINTS = ":F(P)":"F(1)21700"F(1)21680"F(1)F(2)0,3,CD6,"**A TIE, DEALER WINS**":1770:710"F(1)F(2)7003#0,47,CD6,"******WINNER*****":1750:MOMO(BT2)<#710e#0,7,CD6,"******WINNER*****":1770k##0,15,CD10," WOULD YOU LIKE TO PLAY AGAIN (Y/N)":#A$""#A$: A$""740#$A$"N"1500:0,20,20,"":"ARE YOU SURE YOU WANT TO QUIT(Y/N)";C$@$C$"Y""GOODBYE! SAMSOC":W$C$"N"A$"":190a$1290g$ :m$:s$ :y$*:$4N90$>I14$HJ1 13$RN9N91$\D(N9)J$fJ$pI$zN52$$:$:$:$K(1((0)N))%CD(K)%D(K)D(N)%NN1%%%:+%:1%:7%:F%C101120Z%R(P,1)R(P,1)Ch%C11090|%$R(P,2)R(P,2)C%.C%8%B"N ACE"%LR(P,2)R(P,2)11%V%`C111150%j" JACK"%t1190%~C121180%" QUEEN"&1190&" KING"$&R(P,1)R(P,1)109&R(P,2)R(P,2)10?&E&:]&R(P,1)R(P,2)1270q&R(P,2)211270&F(P)R(P,2)&&F(P)R(P,1)&& "":190&xC$(48C)&yC1C$"A"&zC10C$"10"&{C11C$"J"&|C12C$"Q"'}C13C$"K" '~C20C$"?">'"":0,CA,CD, "":X'0,CA,CD1,"":t'0,CA,CD2,"**":'0,CA,CD3,"":'0,CA,CD4,""::1700'"":0,CA1,CD1,"":C$'C100,CA3,CD3,"":C$:1490(0,CA4,CD3,"":C$ (<(" "f(" "(" "("    ߟ "("     "")"    "T)"    ߟ ")""    ")'"     "),"     "*6" ">*@" "j*J" ARTS SOFTWARE, INC. "*T" "*^" PRESENTS "*h" "+r0,50,10,"CASINO BLACKJACK":$+|0,57,11,"BY":=+0,55,12,"SAMSOC":[+0,53,14,"AUGUST 1987":a++2,10100,10,00,3000,100,2++3,10000,90,1,1000,500,2+0,15,CD11,"**YOU HAVE WON:":"$######.##**";BT2:0,20,CD12,""+YQ((.)8)1-,YQ1754,1755,1756,1757,1758,1759,1760,1761e,"******YOU LIKE WINNING, DON'T YOU********":1762,"********THATS YOUR LAST LUCKY HAND*******":1762,"*********YOU'LL NEED A BODY GUARD********":1762 -"STOP IT, WILL YOU YOUR BREAKING THE BANK" :1762E-"**IF YOU KEEP WINNING I'LL LOOSE MY JOB**":1762}-"****NICE JOB, BUT DON'T GET EXCITED******":1762-"*ENOUGH IS ENOUGH, HOUSE IS GETTING MAD*" :1762-"*****YOU MUST HAVE YOUR RABBITS FOOT*****":1762- 5:.0,20,CD12," "@.].3,10000,25,1,5000,100,1c.