2 BJACK COPYRIGHT (C) 1979 JOHN MELISSA, JR.Q CURSOR #6, JANUARY, 1979r BOX 550, GOLETA, CA. 93017x:PCR$(13)ZPG$"BJACK":NM$"6":62000dX(13),Y(13),D(52),B$(5),A$(14)nI15:B$(I):Is"","","",""," " xI114:A$(I):I/}A,2,3,4,5,6,7,8,9,10,J,Q,K,?kCR$(13):BL$" "PR$"HOW MUCH IN CHIPS? ":IN500:9600:B2INB1B1B2B0240230J1500::B1.019000 "";15);"ENTER BET FOR NEXT HAND.";-PR$"BET? ":INB:9600:BIN="BET ";BMB.259100\BB1300u"YOU ONLY HAVE"B1:"GET MORE CHIPS!"":100,6F10:F20@J152JD(J)1TJX(13)14Y(13)51000X(1)C1Y(1)C2C110C110(MC121000>X(7)C1JY(7)C2[C110C110dNC1n1000z&X(2)C10Y(2)C21C110C1103MMC151000:X(8)C1?Y(8)C2@C110C110ANNC1D""I"DEALER"NXJ7:P1]2000%bJ13:P2/g2000C""Q""_"PLAYER"qJ1:P1:2000J2:P2:2000M10X(1)1X(2)1M11N102200:F11X(7)1X(8)1N11I90:F11 X(7)18000N11N113000 I90810Y%"INSURANCE LOSES $";B2:B1B1B2a*J2u/M11M1155001M8M1270004M205000>M11M115000H""R"DO YOU WANT A HIT? ";\YN1:9500fYN4000:820%p5000.z84089000KC((1)521)]D(C)11000hD(C)0vC1(C4)C2CC14C1C11 C21C2C24:C1C11KP77);"";"ݝݝ˝ʝݝݝݝݝ";HA$(X(J));"";/MX(J)10"";>RB$(Y(J));Xf"";B$(Y(J));"";qk(A$(X(J)))1"";pA$(X(J));"";F10M2MM11M12M2M10"=";M2 F20 N2N  N11N12N2N10#$ " =";N2) / ; ""C P2K J8U 2000d I913100x M11M115600 "HAS 21 -- YOU LOSE" B1B1B 200 N0:M11M1156200 "HAS 21 -- COVERED BY INSURANCE": 200 JJ1J66000$10005C110C110DC11M11OMMC1g"";oPJ{X(J)C1Y(J)C220000""J8:P2:F212000M215400JJ1N165600N12N11N10175600 1000 X(J)C1$Y(J)C25C110C110D#C11N11O(NNC1Y2PJ6e<""oA2000~BI1400:F5090"""" ***** BUSTED *****",B1B1B6"CHIP BALANCE IS $"B1;{200|""J8:P2%20005B1B1B1.5S""u" BLACKJACK!!""CHIP BALANCE IS $";B1;200M12M11MM10N12N11NN10""N21N0MN5700MN5800/" STAND-OFF"U"CHIP BALANCE REMAINS AT $";B1;_C 200kDB1B1BX"YOU WIN, CHIP BALANCE IS $";B1l200B1B1B"YOU LOSE, CHIP BALANCE IS $";B1 200p"SIX CARDS LESS THAN 21 IS A WINNER!" B1B1B2002X""Tb"DO YOU WANT TO DOUBLE? ";fl9400:YN0pBB2"BET ";B40005000@"";15);"INSURANCE? ";J9400:YNI91T(#""-#"YOU ARE BROKE. "H.#" "u2#"WOULD YOU LIKE TO PLAY AGAIN? ";<#R$:R$""9020F#R$"":R$"Y"9100K#:PRINT"BET ";BM#B0:P#100#"HOPE YOU ENJOYED THE GAME."#"GOODBYE."#$YN0%ZC2:ZM01&%Z$:Z$""9550A0%TIZM9510`:%(" ",ZC,1);"";:ZC3ZCsD%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"9650Q %Z:IN(IN$)a %CR$(13):| %"NO ";Z$;"'S PLEASE." %Z12000:Z %"";BL$:""; %9600 `IN$" ":ZTTI:ZC2:ZD$(20) jZ$:Z$""60070!tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15!~60010M!Z(Z$):ZL(IN$):(Z127)32" ";:60110}!FL(Z127)64(Z127)91Z$((Z128)255)!ZL25460010!IN$IN$Z$:Z$;ZD$;Z$;!Z13IN$(IN$,2):CR$;:!Z20ZL1IN$(IN$,ZL1):"";:60010("Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:600003"60010C"(PN060250_"2"PRESS RETURN ";|""DOUBLE: YOU DOUBLE YOUR BETAND GET ONEz&H" CARD ONLY&R"INSURANCE: COSTS HALF YOUR BET AND PAYS&\" TWO TO ONE IF DEALER HAS BLACKJACK.&f 60200