@b
810:ANS,VNZ:db	"1 OR 2 PLAYERS";P:PV1SPT2
20c	"1 OR 2 DECKS";D:DV1SDT2
308c(GUDO52:2"ENTER";P;"PLAYERS INITIALS":PU2:	B$Jc2	A$::
A(111)pcn
XU0=DN1:
YU1=52:A(XO52MY)UY:Y,Xcx:200::
1000NcH2@0,"SHUFFLING":
LU1=104:XU^(G):YU^(G):HUA(X):A(X)UA(Y):A(Y)UH::JU1:nc,
SU(A(J)N1)P13:RUA(J)NSO13:d
2000:2030:/dh2A$:
XU1=P:	"PLACE BET";T(XM1):XU1RPU22B$Ad:1045:
1200Yd:
NU1=2:
MU1=3L3NPdMVT3SNVT1J1100::KUJ:300:A(0)UA(J):JUJM1:RT9RU10 d.RU1RU10018d82000:A(GM7)UR:M,NUdL400:A(GMMM4)UA(GMMM4)MR`dVM,N:yd0XU0:YU0:RU1001
1210e5A(GM7)U1011
1240e7
1300_e:2@0,A$;<20);"INSURANCE 1=YES/2=NO";:	X:PU22@0,B$;"  ";:2@41,;:	YveNA(GM7)VT1011
1280$eXHUJ:JU0:NU1:MU3:2030:2@AM19,"BLACKJACK";7ebJUH:XU1T(2)U0FelYU1T(3)U0Pev
2610me2@0,"NO BLACKJACK":9001f
XU1T(0)UT(0)NT(2)O.5!fYU1T(1)UT(1)NT(3)O.54f
MU1=2L3NP:NU3Rf(2@367,A$;:2@879,"DEALER";|f22@0,A$;:LU2:MU2LU3:2@623,B$;:2@0,B$;>f72"'S TURN";w(30):2"1=HIT,2=STAND,3=DOUBLE,4=REVIEW CARDS";:	XafFQUMMGM4:!X
1400,1500,1600,1800kfP
1330gx400:A(Q)UA(Q)MRgA(Q)V1000RA(Q)T21
1490BgA(Q)N(X(A(Q)P1000)O1000)T21
1490[gNUNM1:OU99OU0:
1500eg
1330~gR2@AM10,"BUST";:BUBM1Dg\NU3RA(Q)U1011T(MM3)U1:T(MM1)UT(MM1)O1.5:2@158MMO192,"BLACKJACK";UgfTUJ:M:
2600dg@NVT3
1330gJOU99:T(L)UT(L)O2:
1400hJVKSKV4J1330)h

XUGM5=GM7:A(X)U0:Ph:WUJ:JU0:
SU0=3:AUSO16M10:2100:ah2@128,"ACE";h&XU2:
YU192=704L64:2@Y,X:XUXM1:1h02@768,"JACK":2@832,"QUEEN":2@896,"KING"Ch:
JU1=KNP:300YhDEUSO32M20:FU3ORM4mhNF(E,F)(EM2,F)iX(E,F)::9001ib:JUKNP:1045:MU1:NU3+ilJUTJMU2:NU39ivJUWJ1320bi400:A(GMMM4)UA(GMMM4)MR:NUNM1:
1900iPXU(NN1)O14:IUXM14:YU(MN1)O12M11:HUYM9.iZ
XUX=I:(X,Y):(X,H)::XUIN14Kid
YUY=H:(X,Y):(I,Y)::pin300:AU((MN1)O256)M((NN1)O7)M257jRU1RU1001:2@A,"ACE";:
21000jRU112@A,"JACK";:RU10:
2100QjRU122@A,"QUEEN";:RU10:
2100zj RU132@A,"KING";:RU10:
2100::2@A,R;j4AUAM64:SU02@A,"HEART";:
22007j>SU12@A,"D'MND";:
2200RjHSU22@A,"SPADE";:
2200gjRSU32@A,"CLUBS";jJUJM1:JTG200k"k(
NU1:MU3:WUJ:JU0:2030:JUW9k2
VUA(GM7):NU3:BUP
2660]k<
WUVP1000:VUVNWO1000:XU0:WT0XU1lkF
VT16
2660kP
XT0RVM10T16RVM10V22VUVM10:
26603kZ
400:VUVMRMWO1000:NUNM1:
2620]kd

XU1=P:UUA(GMXM4):YUUP1000:UUUNYO1000ukn
YT0RUM10V22JUUUM10lx
UT21.5JUU0l
T(XM3)U1JUU21.54l
BUGMX:HUBM2:VT21JVU1Dl
AU256OXM175#l 
VUUJ2@A,"PUSH";::VTUJ2@A,"LOSE";:T(XN1)UT(XN1)NT(XM1)::2@A,"WIN";:T(XN1)UT(XN1)MT(XM1)2lTT(3MX)U0:_l89001::
XUGM3=GM7:A(X)U0::BU0:XU0:2A$;mL2" HAS ";:T(X)V0J2"LOST";:2"WON";*m`2T(X):PU2RXU0XUXM1:2B$;:
30206mj2:
1000Hm)#
XU1=2500::PLETED YOUR COINS. PRESS ENTER FOR MORE";:
N1U1=50:N1:2@384,D(63,32);:
N1U1=25:N1:IP$U""J260: