:59468,12B BJACK COPYRIGHT (C) 1979 JOHN MELISSA, JR.a CURSOR #6, JANUARY, 1979 BOX 550, GOLETA, CA. 93017: AS OF 9 APR 80PCR$(13)ZPG$"BJACK":NM$"6":62000dX(13),Y(13),D(52),B$(5),A$(14)nI15:B$(I):Is"","","",""," "2xI114:A$(I):IT}A,2,3,4,5,6,7,8,9,10,J,Q,K,?CR$(13):BL$" "PR$"HOW MUCH IN CHIPS? ":IN500:9600:B2INB1B1B2B0240230J1500::B1.0190002"";15);"ENTER BET FOR NEXT HAND.";RPR$"BET? ":INB:9600:BINb"BET ";BrB.259100BB1300"YOU ONLY HAVE"B1:"GET MORE CHIPS!"":100,6F10:F20@J152JD(J)1TJX(13)14 Y(13)51000'X(1)C13Y(1)C2DC110C110MMC1W1000cX(7)C1oY(7)C2C110C110NC11000&X(2)C10Y(2)C21C110C1103MMC151000:X(8)C1?Y(8)C2@C110C110ANNC1D""!I"DEALER"'N3XJ7:P1=]2000JbJ13:P2Tg2000h""v"""PLAYER"J1:P1:2000J2:P2:2000M10X(1)1X(2)1M11N102200:F11X(7)1X(8)1N11 I90:F11  X(7)180003 N11N113000A I90810~ %"INSURANCE LOSES $";B2:B1B1B2 *J2 /M11M115500 1M8M127000 4M205000 >M11M115000 H"" R"DO YOU WANT A HIT? ";- \YN1:9500@ fYN4000:820J p5000S z840] 9000p C((1)521) D(C)11000 D(C)0 C1(C4) C2CC14 C1C11 C21C2C24:C1C11 K  P77); "";- "ݝݝ˝ʝݝݝݝݝ";A HA$(X(J));"";T MX(J)10"";c RB$(Y(J));} f"";B$(Y(J));""; k(A$(X(J)))1""; pA$(X(J));""; F10  M2M M11M12M2M10 "=";M2   F20  N2N2  N11N12N2N10H $ " =";N2N T ` ""h P2p J8z 2000 I913100 M11M115600 "HAS 21 -- YOU LOSE" B1B1B  200  N0:M11M115620 0 "HAS 21 -- COVERED BY INSURANCE"' : 2001 JJ1? J66000I 1000Z C110C110i C11M11t MMC1 ""; PJ X(J)C1 Y(J)C2 2000 0 "" J8:P2:F21 2000 M215400 JJ1 N165600'N12N11N1017560011000= X(J)C1IY(J)C2ZC110C110i#C11N11t(NNC1~2PJ6<""A2000BI1400:F5090"""" ***** BUSTED *****",B1B1B6"CHIP BALANCE IS $"B1;"{200(|4""@J8:P2J2000ZB1B1B1.5x""" BLACKJACK!!""CHIP BALANCE IS $";B1;200M12M11MM10N12N11NN10 ""N21N0)MN57007MN5800T" STAND-OFF"z"CHIP BALANCE REMAINS AT $";B1;C 200DB1B1BX"YOU WIN, CHIP BALANCE IS $";B1l200B1B1B"YOU LOSE, CHIP BALANCE IS $";B1 200$p"SIX CARDS LESS THAN 21 IS A WINNER!"0B1B1B9200WX""yb"DO YOU WANT TO DOUBLE? ";l9400:YN0BB2"BET ";B40005000@"";15);"INSURANCE? ";J9400:YNI91T(#"">-#"YOU ARE BROKE. "m.#" "2#"WOULD YOU LIKE TO PLAY AGAIN? ";:60000<#(IN$,1)"N"9100M#B0P#"":130#"HOPE YOU ENJOYED THE GAME."#"GOODBYE."# $YN0%ZC2:ZM0.&%Z$:Z$""9550>0%TIZM9510]:%(" ",ZC,1);"";:ZC3ZCpD%ZMTI30:9510N%Z$"Y"Z$"N"Z$CR$9520X%Z$CR$YNZ$"Y"b%("YN",2(YN0),1)l%%BL$:"";%CR$"":PR$;:60000:IN$"""";IN:9640%%:Z1(IN$):Z$(IN$,Z,1)=%Z$"0"Z$"9"9650N%Z:IN(IN$)^%CR$(13):y%"NO ";Z$;"'S PLEASE."%Z12000:Z%"";BL$:"";%9600`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010JZ(Z$):ZL(IN$):(Z127)32" ";:60110zFL(Z127)64(Z127)91Z$((Z128)255)ZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010%Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000060010@(PN060250\2"PRESS RETURN TO ";y0"";9); "CURSOR #6 BJACK"j5"COPYRIGHT (C) 1979 BY JOHN MELISSA"v6 60500:"LAS VEGAS-STYLE BLACKJACK"D"WANT DIRECTIONS? ";:60000N(IN$,1)"Y""";:XLP1:60200b 60500"FIRST,YOU MUST ENTER HOW MANY CHIPS"K"YOU WANT.EACH HAND, YOU WILL BE ASKEDt"TO MAKE A BET.BET ZERO TO END THE"GAME. IF YOU WISH TO PLACE THE SAME BET"AS THE LAST HAND, YOU MAY JUST PRESS"RETURN IN RESPONSE TO'BET?'. WHEN THE)"CIRCUMSTANCES ARISE, YOU WILL BE ASKEDT"IF YOU WANT TO DOUBLE DOWN OR TO BUY{"INSURANCE. THE QUESTIONS WILL BE"PRINTED INBLACK ON WHITE." YOU MAY NOT BET MORE THAN YOU HAVE "IN CHIPS EXCEPT TO DOUBLEDOWN. IF YOU%*"TRY TO DO SO,YOU WILL BE ASKED TO BUY74"MORE CHIPS.f>"DOUBLE: YOU DOUBLE YOUR BET AND GET ONE{H" CARD ONLY.R"INSURANCE: COSTS HALF YOUR BET AND PAYS\" TWO TO ONE IF DEALER HAS BLACKJACK.a 60500f 60200