From a3f240270dd7e85772adb747c76375fcac14d8e2 Mon Sep 17 00:00:00 2001
From: PJM-NCC-70511 <90409979+PJM-NCC-70511@users.noreply.github.com>
Date: Thu, 9 Sep 2021 12:46:06 -0400
Subject: [PATCH] Add files via upload

This is Atari Casino Black Jack for the Atari 8-bit computer. This requires the Atari Fast Basic Compiler to be set up on the client computer to compile the programming.
---
 BLACKJACKFB.XEX      |  Bin 0 -> 18101 bytes
 BLACKJACK_ML_DAT.asm |  368 ++++++++
 BlackJackFB.bas      | 1916 ++++++++++++++++++++++++++++++++++++++++++
 make_blackjack.bat   |   19 +
 4 files changed, 2303 insertions(+)
 create mode 100644 BLACKJACKFB.XEX
 create mode 100644 BLACKJACK_ML_DAT.asm
 create mode 100644 BlackJackFB.bas
 create mode 100644 make_blackjack.bat

diff --git a/BLACKJACKFB.XEX b/BLACKJACKFB.XEX
new file mode 100644
index 0000000000000000000000000000000000000000..c38ac01c2bb94254076eefa23db5d7426fe3d98f
GIT binary patch
literal 18101
zcmch93s_X=wdiJM7zPAHLdXQk?q(Ps0+B%!w-YiBBjA9@8zqR_0b~MpL_+Xcg2-hE
zAz?Dwoy|)PQK1Z%^lDD;IW;yZNfVEzwwYMdnxtv%xrxU-nv$B6q-k2tTL0cN42Vh3
zx%azU_Tyjw`qx_jTI*l`bDWu>m?PG*n9VU;Vz$TB#I(d5jCmqPi21je%Q5f7T#b1>
z=93tu=A#(7W{F0piPO|+_G*r4hBW_Mb6%s5T^+kJHb3^U*x}gcW1o$!h}{zVud%<3
zjnc+wleF*0rfVCtd$fnNPieoeJ)s@fKCAsFts>4GR~~mN?tjKTANQ-cx8g$L_3^9Y
zSH<VXuZypYpN#)w{O9pi340U1pD>i*Ncg9O=M#RG@J7N%312116XOzfiT5WynRqnu
z2Z?rjcQ^AV#??IG3O;6%Gn?M)Wj_dWe`+7GAGbekr|e_Q#`x#EpK&GHoi3Gqw4jR`
zJgDd${DI=U)8eAWc>7b`!U@VX66Ex|VejuA7=6k<sIKp~KQ%ro*oW!|?851^OYh76
zcwKgS*$CCEt{<`w4cs`@KON|nogeBsJm~)GYwpi2!!5g7T5_2EExUHsZyX*8IjfIh
zK8@=M`(o^wA<H!?OwQ=zfHyqV`#Tio-u>f>iH3qsY7HjVNQt{KakrG{`)Q)<#S@88
z2*o<vp|B6WIIid(I^j1$o#}sLaN6Igc<s#KYxdz+hNnX=5YT^|@N>#e%v^UCT#7m6
z>}B3(T+{@zg%7_I6nu@lKks$l6hR|?XY3O_XY8l!Q-8m3q04@n5#cAOXYAMQ)8UXB
zq1aLT#6xzwy?3nJDZAcHU=wHT;{sI>q?tex_ESK^ezN!Q$%4;g?8Dth0eEs+WgqG}
zbJ9L&85Itn>=}LP@X3J_eg!iOW73=%K0G)+9e}SM_g|1Fzy|I8>W7A%GS|%ELH7Or
z=^Nvt{p$Kb`=IkT*N0C3ig_f#@k5QnrE#3mOuRtNxaGg|oB16zgQYKPMu*3aYLAIZ
z?nJ=YkoH*fr=Z^v>RN}>f20Exk812XcFGB=1Vx7V1L*uQB5#<BvJZ_7Oy8p%jz5|d
zKQ!@b|LD;B15T(z@B94|*N1z1-0xY&`lo+S5Kb#z?RP5P@4r6W<Nm|~x<%pE#X53h
z$6xfDIZK2Zp$?zCfGPp`-e-DPr~2%K!hZB@r@}rg3ZNRHoO0L9#6!b}hs_sy@iozK
z%6Z;-AyF5u{!53V_b=m$;w8EzXu?kFEeY@^-Jggl3B>(b?*ros_b1cuK(_nWB;lU^
z{dFgJ0O;XrY}eDo>d(f#XMR@up4k;_PqLh_9NQpYHk}uJEMIOmyR>H4T_f^i+46>C
zIdJE}ZI%y+ZRrHn^)%F=Oh3#tYhA(a4^EwU;;*t37WcKW<1WfP65xIvKK!8|;JZ42
z2$XeEKm;1%3ubxO(|rg1r-P<?rj-La`7aOpyAGc4N0l^dyN|;=2(Agss9oJCGmmyR
z0!7IsySwdn$S)|1$@9y1elTip^mG34diUuM)^sSKW_f;)c{lkqpY2fe-PE2PSM+_R
zJ$p#eH?2MEQuKYQZMZQ$eQ%F?=d>0;r{%x=R6D@#yr~6TNPMOp$eS4lQw>rx7u;Wb
z@~QTd&$O?(KPk8v>uGJn*xHVwXN-j94p{r0i`4bQ6Qf5l0Q6dic31({<Njc@e{29G
zQs>Py`k8y-Nli3Z9EEY{q(t}2<P+0(jL2U&8h7t?nfj5Vajy!e6$R#)@xH0VzJM#w
zrplK6pL?E;>r0hAagTc-WS4B&OMSa!KY1qZiI);b!1#ldyC>``sPC6wQ_;a4M)WL5
z*~?$-P;^(Ikeh%%N{w-0I@mr4u>fMvD}(OO0S~+npPyp%8Gj*PZcln)z1;jluG~Ce
zaWP#(W5+KJyA>mTT_eoz<GP+cHFSO?OyLT&k61>i?tu$aVM*}=VPD$&e;9Q6z5Zu|
zF53s+A2|Kz-rT_*J?^i@27xMA=(MuI-rYb<25rH9vilUkM*>jz%OJdksflOy!~^VF
zhsuee(0--+O=jXP<&{M16$^9y>iL@^)P*xQ!~VML;NhE4k;6AfZ;pLtvES_eY=r9i
z^O>9DVX~2fuHnHB|1&px!oDmhdHWirTQd#e!hRHV;9maXAw_rpi!KETmE%1pW}X?a
z58pV`f9#<DE5oP#FT8iu`Kd#4z>BdbsOdikjrS%^41iFKGoJBJa4JT^iMKP)ymRK}
z#pLObi}$*Nn579SkT=nCp=$^lBC7e!%{<-3Ap78G|LNEZ*P>2G2gMJ-AM_dhz4Zgi
z{-lZ1fun=<{m#ob+^@5iSB9qls<zk%yN6IUl9?c~nZZo;L(mC;0FNY~zNj-0cHIzU
z$9U|GpnIB_4q#@O(ZR7HGb!%)UkQ$hgo%b@)XeD6F+Yrc$}727;5B+BufvWXOl~4$
zd3)>%la~mc0AouW@jqi9yh4G}u$?LGc4rtgq+rCezU@@F<aTW0m`r@9;L`-<6;<vP
z=JH#o6=QFLBS7xx6*CZPNF;^>R5K850E@zB_uuSaLyGBpS0eGw+dzW(=XXzyULQT{
zR@kqcy{fRkdG?yZ{_C?h6!zboomSYdp8Zl`f6H=y^wj9+l|i>+^v%JmiqT&WUQ>+z
zX7Gk$^y=WWV)U)SFBO)tlc!EGKX@0b0ut_tCvw0iYH_Z{NBaTnM^RL?OmTz~`~(@j
zl2_0Q-k(++QARkFomzEa5o0PUtSDnP=ark8)vH%C;*~_pNPcnF17%FQJ}reQtH>*7
zR_fC{`HCX}5srXcNMx*LeMn&bZAl0!Auy5;5*E=)K3E75LWRY&>PT3GBdk*!QdF43
z6c=PYkW&ieP#Of5Z!VI6We8M=Kyzu12e&MVRuW)tQAMd26)^cFk$kvthY&%x9J#YA
zQX41<31lK1cXs-wf!92MVjdtmO?Koie5mnpcXX}dNE97*WGS6>BpU8};HHJ|08>VY
z5i~-qpcUeTcp*VZ6qX4|Lb8w|+$$^>QUOCJq|re~R?th1q{F?E_CI}O6+SX(|0Ap6
zX5n5#mmJZ<eIMMJfPFvQ23m3Y$l5NWmP+c%!iNbS!a5;a0DTHMM5DQ=QDMDc7V?CA
zD6>H*5EQ~jp-?F5DyClvP3kJ4FTk^uz6j4U+6~Wg`VDwi(3j!4iT)KlH`7<(SxLVc
znj}0RR0&&zYGJFu3ER3X$g)PL73zfTLcL%W9uyjcMq!8WUBM>o6q<xxLbLFY&>}o6
zv<kbs_5eD22VYdxTv_#0C0i73c`T*srF*L;Hqn)x(NpI#=|}bnsa18QRkg)zYPh8{
zMM$ptHyxX-k1$&PIl1cSDt5Ia*`|@1xZ}x)wxg)}hshGmz`2qm9m#w$LFXP#hO!&k
zs@LylBh)5+ghp<%a(*eG@V!;PsEE)gTC|Ch2Nbu|Km0IL)?8Cp&$RAh*6nI)ZEV_I
z@AZ%2R^U~@XS3NFi&3Ag`JSPci%x+QqvEr>jBIvj5^LO}^<%<J$U&?MO4S+B3^nSi
zi^`-G>Rbz#5*>8TQ3p`AuGeAc1Z|kPyp()IU=sjgPYPy4W$@e0+>VrdHbI|g040Ea
z*wiQ^*Obf_>BCK2adKB3L%B1fL)=hk90~zRGxu~#enb<kEQ~0p7Rlrae`SCw5JwV=
z7JE~{A)$+?(z5c3O`9tpD5=^~T>`N|yo%vf!g*4ZIlq9~=1t{o*ho#iWLo#itGVmT
z5c(!QD)I3)^~$SMHDy{yy$dJ^nR8vZ2+4wt9vGleB3kZx_$n;&Jbw3kiYiB}xA3tE
zAMYUIZ;|{~ieMvf_ImB-@O|kQ9>8rWb5IRopRivzAbhW@4Rj7BiPp(Fqtmu$(!udl
zGI+d%kC*ZBGa0Rj-zB5@_*Z0fQv9p3i1_m|Iy?SfW%T9v3$kb}6#U)x%xDVUf2+^*
z`0Z4D=oMNXuX4j95FbJKSmdT>;)C7v;`k7JgyLf{KEg0#i8~_x9=F#!+LkZi9S<(g
zXXBU@Kcha5*(n3RduloT86QJ0<uw4e$q*ha2l%tg=`R5uP2fRtgx^5;`Q_1SKggg-
z#=pyr+|}jLMuafD2ICW}(6A=%Ps{1m{P*Zkeq(ibDu7m+I9V#44xkVZNN3{0Q|VLy
z1@jwOh2DRMTE!Qz1)4||pU6V{GU|02e`77TIu(G?02C6s_Je0{RI9*EccijQ9s4`k
zgyu*`0-wNc)C8OK`!y<4EoV(7ATyVnnhzoJkx2dkDOdo--b!Wn>o=|pxAdn936YLR
z_(#}BfE5SHM}T00jjxM7lj5ke@$KwgNWZ-~`lnJ_EvDJK;SEKb+5OPCI_a5AiQOZq
z`K*FZ5a5YA_&62o-_@YbWS0QvyLId;eZy&G=kY9T8`LD5AtptSn>2G@q~^B?2Zavd
zkWkCAq`8Z+NN(WP=pd(7N}9L=9UZ_Q1bs^&g^Amy19k^#6<^y`r$3m<9@MAnlO456
zo0913SsmM<*Xxrt5jz}p0OUK^*_39HiF4^99f$ZsgfTvBY9$1LJ-U4M5X6dK>qt~N
zL}<MUv@~}bxi|0~q~bfw+{=KslJM(fJDS^sPT_wDU33`VMgN^|rf2wvA{|LQHWdhc
zq!wx;7m@}NcM*qO3<`=(V^@-BX6Dps`CXl0>IeY8oZi&{0S`Yb(?I4<tU-ekquzZ!
z2{Wfp%V#?=TuZS~ikKcv0{H&Uh)i~ksMz!<M=~Lju2D!|$t08`w@6?XlFl+3e|^Ia
zCI0}sj;~^q!!4K7*ao$UyOdUCT*W5v@zrmpRjF5sPxdZ-0tQ>9jbA3IR-X=PR4O~!
zWhg7E-V0HCkek`exjA>w<|KpSzgWRGgj?(@*pP5b-U=Tk&D975X|}Ckz0`OSiai?S
z-Ua@wS!Cc2&Bp+PG?SVDb)fr<FWrZ#e=E}c7vEA|C}eubUY(Bswtk3h)<0xIsj<I`
zY$obviDION3OeazQ8C27egH-jO+m|=*;!ja`!{gw(;*JXOrRebG;3ozcE`2V8`9a?
z7sj|+k)9?Xs2Po9O|M$2s~*QEyArKz)7)v|oKT85MrgTyMH*u&$Xd4{AMPZ;lyYR{
z`Xuoa95LC}odWKJojZLe^zI}hqm>@sXXaAV@*{Z|9IPaiWh-eJpA2I>Z&D6P`D{`F
zNrg8V=~%)iM~KPx2!|dlWNIhCHnz&~0B;wy#cySo>bF9u0)MK9kh9gMR`v4MX#aa1
zR-2|Hh_8uo*gK<tk>aSg>1%>PxsZCtlZyTTzrrn#uB1yagOqBfOTFKq{5BCu!<o3B
zuO!7uAtVNsfkIz+sC@$s5mO>B_a#p+!_+Lvq&Xy6t43kqG^+?{x{xqM>F6T-Y@<8$
zH7dU5Ho2mnqQ|#KIqVum1AJ%_y<f%NuYKf8(rWai2Yb?s4PO#Ad`Z|sw~&Ii##n)|
zYL!0uv~nC`HNK7-xbv&T+{jGU55|F#g9RBpUyF>^TJ9qsBy?a2D{wB>k_;~?kDnU!
zWI!s1A|xz<gBfbAoQbX4T0U>YSeS9^h|vrqMn0p;v4%7-4Rq%+{T<MBzBkJWTORhU
zG8p;Q0<u>G9C4OG`N7qZd<wQZBYcV-j?BQ#5JVVbl13s5Y2e<Kpi(>QPO1K*7b40J
zjYw>EN~Wwlt1vsI+Dp{L<*k-7eOn%BvEE{VVzIVzy+nwW6a&0Gl;kM%w^EWXL}Q+C
zWZ0b@1`!7wAR~NxEq8gfX!=gc1CASI*k4aff|5~B#8bc*P<!Q25H+I)#okz5b#?=R
zRsb{?l}%zlMl#XHIQmLq(NJReQb6z`0V=SpqO>%pFgvF-2{|C;60nP&g%p{dRp;O*
zn*y<ad{rAv{$^(&+4VKH`WEj@<8~jzt+c;`5&N~OChW>;*?2wy`ZBf_UQ2aid@^t)
zYuH8LLEI}Wfh;j_A3@_=Q~i-Q{RXBzC6<_?9IP!025mQd!C^*jQY;W@;Fhh4z`2UD
zyr?{@Ko4_eLnqSiP9b2)-g$-VQ>yDqzX>ydF;$e6=YU5cUOLX=qQt0L%YAdnpxNk;
zg>jSuJxV9ss7TS}q4)U_w4x|SC&b@|>Wgb6u!)0D?4}5O?g#<Z=V=)quMr*<YO80Y
za?qG&*1(YMQ8Hw^b)?{U)H_=99WKlTdwY4$m|<?V&%i+(`GH@FBR~lD;vkvysxRri
zQXbc1|A`JrT3s_p{DzbZ62BqlszD;LW41M;_<%CM6zOU)u)v@&HB%%HK_mLU1zM#j
zlDC0-&B%uHDb=svClxk&17M`F7H8YgS{nZWa{k0CQhbT2eP|hwmJIw87>TXz_Mt~b
zNG%vOh?QZC1yn$4Nu541n}`f-+P{^_H$^3>E^Qut5;a&kE^`5@9<5gM3+2v@sSEQY
z9fQ&&MyU{!RUfQTLLggl|2+2pu@D0fdr7jzOa`+qt2CQgXU-}u$jeEoUVi@qLeCXT
z$*jv*P}`_tBAve^T`-Z(-vs&<En$#Ub9f;xx5&0?o@}ozRO%MlR^3jvHlYWmJC8wo
z?-d?r*GAzKPny%QYt?g78rj^W+$Y)92@^$}<vh0mr!he6QE`|IlT!ofCSb<1R^RJe
zWGhUJlu%@k!84hA)Uj0w0hntMi-;6(B3EX}XM4jf-3F<z<{xK!p#uTZQilqF$8n%M
znky<B+*_9=Y-JY%)@q|POL063qiGn>h;tT_QouUcRYRm>D~wn@V6}2C8c8Ff-&zrI
zD-hvY*Gl!7-?xIG+a-(Eu9f`ePVb0ajNS~hxv0=PUKfXFp3eD)q+i|u5xv*3Aw#Xq
ztX^$|ns}sBLJ#d*16;`)k_7YMpu|2{qymWdvTp@e8Na;(vBv**71$bX(PgorK5{8-
z-in}z&|ZK356E=ZBU2<U!RKVp_J`l3)l*{3_EjrLBYLFQf_}KRF>z{a(#M7|S&|AC
z&)RT7>q&)g;UhXE4D+V*gvVGFIArcRu&1<sfi4+f;;OSm*YZG#$pGFu53Z4+b3#U+
zl(7|-a=GIsANQE6Q*X*g*@OsaJHzBt&mfaj&oD`?Wb<PoH&u`^Br0^C`oxUMNd7V6
zyFMPAyUvGGi-*%<WFc<1ET~aAVFc}A9v=~Y8$O;k;8S1XT;HGweJB~>K1OC6b40yo
zoyYi+Qeg7Eps3=w`c_e;@%F7MVFRHdJcfhxOF47B0eZ1HUZ8~j!UGV^4-l?z-CTzu
zUg5=)+-H8l04R9=)`F^e996e)1PC`H6(k-<=lr)k?zwCqKj_Yul)DtQDk&KE%Osar
zP|>1~-Kyx@``)D-AD(~q@Vo<g`Y>C_(f{lI2fY4o{cn!ACvzkf-8t)j-_T(G>s|;R
zD2|!rMk@p;_Hmqr7{#dwKuU6bbeEnh2@^nOKa98kdfYo6R*J2|GustAw)w`IL^3{s
zSY(Rv(TCahznz&1Cy2!rWoA!+@C;n4u_8E{&tC6CF>SplKKpn#Y!6B?|A$Ge304#g
z+@C%CLZz7*!xR*i!Nk2faXmpXaS;*$ZHNbD7DF74FCrOIL5Z8mBb~%?XcEQ45n+^p
zoA4E|&qIHScMc7`8{y$u*_$&`II%zoCLVC&)R@TSaScpaC2sm)gJfzI%tp4FeKeD4
zW`i~UCQfCR3>-0ckhxIE1Eb;)n}f1q-6Q4>nr~BPP9&f22*hr49FX`XN^a%eG0*J=
zeEaB29w9vQa<8Q&Pt@MdF&Fei;{K7KrN{EvAhkF#UjqGQsjq{s&66swD9_7TpeY1+
z97vL7;kE#F0w$scze)Io++1uo2CuYp+RwFbrTUKwNJiQ*8^lF5c#Fa=H1ovS!?@H4
zj~cn0d<j?1Z1ygI5gd#NzPJXiWfr$!F7Cj5WE1zK2U*4xdknnrv=C=7J`(-LQ*e$%
zh=WXgaSfcpQ&TzPBN5^diF}bw+^kwaB09kFDF3K;az`e4IDIf}fTi}{>fQ|`3$~Ep
z3nw)jBKcn2GBh9nmT@q<6E+lXUAz}_<jp_>Nr7dIT%rM1c{^cVCBDW*&5nrG8G(&C
z#*k08ui9|G%Ck&F*nPes0{0|*w<+G+K(;Bwjfu!+@`fc8*b2dFz}VGZ*wvs3$fQGH
z;+9n48O3^bw8#b>Ntn6d0?>Ap5%xcn(3B1o&RuSjN@@adhe;gX;Go5`)g;1a*Nku@
zl1vtle<RNh;E8LJ;?@nUea&4dymjdccy`WiOL>;22-J5)3g^>ERNCSZ)zL}In{^2u
zjf!;;<@WON5EQ{a6g|tAYS_EL4d7Xmiwlw-OM?&i0%Xl_utm=3^w@)m9F?&6NPua2
zc>Ac5fc>G1T<w#Af_MtBzHk+R!wMPMGm_z+kqP&U$nvb%_7e)FP$sVTcPB~B+pkS(
zgr3PbtZpAD#Kp)3<C;_&g~lKPGJ6-r=j~NNGEfqOoaZ5?g@yskp2Qt-E>Bt)%x&Aj
zEknhP)*ls0S`ar{&D_bte3sECt5y2%>`-cWrT#l($JgE^&SI2&4I87^M8QU>v>Od`
z`<Nn$f@n7%_w@SV-5wMV6IGGd^(2|vJw!rheO!ZjZU$LZViU5=CsQPmp;gVEr85(^
zs#uH<e<|{Ko2c147FZ(p*a9&!)SB>~BwCK=d%|zQg?03~dxO4#;L{@59K)T;zZZ!c
zm(ttgm|}#$ZO>c#gL#`LGKQI5Wt5r;sD!Mv!!9Rreb_(1c1tgAu3oAW`UHp2(Dfvq
zr*aC1$$>86h>%Jk5%JTqE{C+*^rK?dA$lySqf85RQlRgy(mOD!i#wi<;{2{YsYFdF
zAqQOh@IaDu(kd7=w7A%Yhn`IJtq&7jwX)@{TL0aRt;>g7**<Z3{SMygWo|5yn6rI)
zM>dyPLK8B9rkrv;5&&7kP?ii|Sr(P#OSDAnAix$a1L%tZom7%uyRYlXO-byNHjTo_
zIZL{pWS>-P6g>dhqg5b2?5Q9a&yWF#g5=o}JSC>b`YqYG`{7n5r>PZoQwn$QtgUZJ
zs@9hxBH4`jWl1ETO8fJD02ET$C!gRCvxhZ-M*U&t16->93i6$znlki#*tHxUn?wSK
z;TVmPixyeb>}%Y)dnc+(pQh947{cPPCdj}^GBh?d?yRv%2q1D2n}w2Qb0wvMla55y
zWTAoJ+`CDis)io&>tZuERSf4y9K!dz9MTbr;&RpzZn;z{*(w4}6(DXEfn6MA*J<H~
zK=KHN)DVcfBb01~R~G<fVpgOH9^ru1L6`}Y3bk6lVj$g((p9IHNm(W?stmH^<}~0-
zI?&Xz2#8PsSuxx?iwC<1Wg?91mk@q7%^e2rY?;^;7j)BacOI#(5u&@yeWr++-%?qk
ztEjmpeN*$OsC$x#win_!+)A>rD#VgL4USf!iC`BPJUR$9>(c;;i;Gf<ZL_5`UovbY
zH0(BkC+8vs2ZjZhm`MR1hffE~1-|+aJXnb2yrXLmTap6EayW(yZ*~(V{Bf5Sq7B3(
z*a5Y?P!1Wzn4v7HFcsuTaR}UvtjMFUzXvE<MOkq{9unD%xPE|!d!8cFoGs7D3d}D<
z)JjBENqe18A`J#dI>=^AF(a@L=5Ses>yV}I&K&qxIXQ31mbKES9m)I9!}d$tcF^<e
z7c)y*=`)yx?!`jlIZSwWO4&U&O|*e~xk8)xk8hb0OYA|Vw-I+2KiR$EmUk;83sj%l
z#O?*<h#OX6o4^Kp$>dlj9ZA((fYs<zQi5^%k(5*f_ob5N;<0<NhZd=Ao26FbAy6sv
zCCA7ma$+H*_dO4$mldvd9`-<`^1ud8ka@*II&@_Qzpf2V=6a6eHo#%rMmU=LlpqNG
zbE1Ce^5ta>yRBARW7C7nA<~nRVg-(T7~lS76FGs3hvdxM$D8tLe~scmuae)+7U;LH
zj54Yn_}0j>Yo#x__e+rtVRRFm`NPw!BDHOs#q+G1856ff{DuR7aMsna9f~{hSMmvP
z3~VzV`g^eJK`7=AB7D4AqyV2UZAL-|fP0;OJ4FAv$)~-^?c~sGJ&W&7k!7Y>54Ila
zabR;k`ylx04T&<T>Aw?sC=a@s`}O90Gq(#+{Wbmu?(5AE$*k3jD<K(R;1*TFW-un{
zAl@p}A#o}L&iP2kbwNJsO5l)ONxpEiB%?CYQO5(O9;#sEmQ>EsOl75+E3eEKBVed+
zK!QHBEs~G$oYRLh`yr7$9FxaW-Q-L+p6Hedxoy%h>{)XU2!qjn=Q`QJW?@Je7LE$X
zgyWI?mPoz<yyEGI#8NoH3TIh^;83f0mi03@!)l?L$zfOu&a~p$)@kW%>yo)=TO;DB
za}n`==P+VLM76-VKyrFIt30bT4|eCu^59nlo{MZ6FnCsrKp<?YXU|%Dkg}NdH9KMC
zv7aff$38oMIkT~Te|?J-WXAz7yT0zbOj+ZBdi}82qZ7!(@S`g!1ehCJG37~?Hv%U7
zkPe14-(~XQftb5?*V^jgwYNz>T+vjEgM@;{osF%CS=MZ8Y-LJ!+ekU4Y<Ejbebe^(
z7R)0*gfQ)D+D$l!%ckBGtijo8Kv>9wuHcRqZG2h1t-h`mPmgD9-&4~BV=B0cnp+!p
zHIXCb4K+;<)|1X5qD6bBbl|+TriBzS)j!zS1c%JuuZsST8@4*KxmT*#fpE)D#WXBa
zou~rK+W5gp#~?q*4r&$|xq&LLxvPIHB0`{mFGSo@)yV-lTHpt&&sXX2Aq)`WuzuB8
zMH}(B@?39dqeHOcQfPE=&UcG8Y9%Y~x@PCB+fbGWhvS<XA8ue)q%DJff7=%Eh_D{;
zR;`$W*ILuGy{2XRG8_wvcr2WFL_BG+Or)1v)6`n?@P0tUF=L3vzXjSEgtUWOv?1h&
z8w8CId2S12f!ITkRhC!DNI6KKWT{NtbC8vjx87VXWfGFg7IqOtdSGoXD#$KliVB&u
z)l5+-v$3c&2hBsMe+Bv3IavkpBNKC8c^Okylv|E?Qa*?l(830VTjHv<Q8;cb%_*-a
zEzHSYPL^Spd+@4FkY7+#RF=a4RtmGeD5s1mF9LaxG?7Qu!iI)hnyR%+@fSCq<BZbE
ze^x;O{Kf{yR6nW44MR=<JX`?x!6d(;SwVh&BjI73`3WLsZOmcT6%|0`7#}QBL#P3C
zsD9y=KU8ZYvI-vnso)$B0}P8c!&)n<@xHBiG>(&P)kdW0P(x{Hpsj)jyp=-)<fR3S
zH7QJ*E@ciDA)$?^D258B6K{au=8%h2Jg7xnH??lns?mVH2MypyM}>e46b?adZr&!S
zhtD|#F`H0X)Pg5pC%0;&aO6_XU{#8<@<3SK{fYT0B`F)wGpDzbBeuWtqUBU(tt%H1
zC7F=fG~|O7BueYRRz4SD7u>?;hFg|$1W)=El6Q?-L<Tx6<a;z}&ML@7<9l6%&<SZ_
zRXD^h;#gI$LrF&AV3N=lHW0y9jt%T}1bD!UTi`^23VRJWZP|{!OBl&&6PrIf7;br*
zgR`j$UI8s|wXvPn@rpKf5Ulqv9L!$*d4FgufdGe}cmW)Zc8SAwaFL7T7qtnC5D0PN
z4;(u6?*JIoCIlf68s8UOq$89MWkWSGW4jQFP>4Mt+aeu)ydQc1K>ZL3tuYRu!F(`U
z7P$HI!3c*<+WP<=!iTUS1Um$w&_Ii~p*A;ei{zo-%0*zHiL2kns=_U`093UJDg*|Z
zxC7hRz;Mf600y=Rfe0k0Z6o*yn13jY?a(#0xgNChu9r_FGS4x#AY9Y<|8}Y2qSO>+
zwOR>J>x>otD7C?oscb{IO|7%$QqdXF>@Mql6k_8QtcKa5I+%hx7`_27b0!lhsMYNf
z3VuTd)sFb&!VD!~TZ~ku)!MYjnn|fy6d)7RkkJlrWv~+9!8V(%Jvf+Zw^-URooThS
zS>fHT1a?3c@bM4d24ygdynJsRvQY;sfi19yKMSOQF`-ZDn`v!ovKS~e5NL<0w^^<D
zhkPs+pu5io3bE}Y{4JJt>20A57E2SbM0G(iE0u}jgZwn8!DeFtZo{G!P=TwRs@r?;
zyLEMS0N>LN1yNqOG6_FG5Yx5{lE!ktKU0bIBy`othv17ZH3hW3dvGt(%S6#JA4NdD
zK=q)aG!~>O%7`_F`tQT^K8jLBXVgh%pr{!ta|W)pi{;Z_!!<oc$rmq9pP5OQQ&UsA
zufNtodM(MPrT~NFLpoEwSWHt>6jfYNv3F|)MMadCw_YjtTXN^-t&#U^roxKLuN1q>
z<*)y2=J&t(VurdD{Pl0E+rIwr!|NY@_@|_x$w}Mf<i{f&!RdGfQ=m4ysNi&Yuuiv@
zyyXCwL+)C+oLZ~XWnwxwU6+aY01F00NT=f;z8A~onG`&r2uZ_BPNk=3W<mj=4|L#-
zrPfY?*igS|;P*-Pxg~g0RHo7Z_N2hi(EgAHvt)vw0vO?7k#<anstuq>NF!L;CgNMc
z=O`BKPbr~<Qke;GbN~vW1Ws8Gf(Jl3AP@FJdT4)=ZUYAp=_xS{i~&v>9?(S(2!%8j
zLpiV*@(24HGBAw}Ai@p7VBmJre!!vI+d&@Wju+LwudT_dq*Q8lAFEbTVd`i)S{+6;
zPp_Xk7Z4_s$vXale_7P_W@?(so;s&cbWxp@;<hhYR@(Nd8)2-a=k!%7v3TFeg=w|1
z!TIBBDqUsA__=dGA=eAy^&+``iWhj}g4Z>;ppukxyK{R(gZ;Gz`_JKZ0q%=%Pgy)L
z`=ti^FFZLG*WdamnXA6fPv)ZfsB;Ci@41%Dfjlcar*8DSm<j(21=S}*1oMEo*E}gZ
zcY-?mQvDM_SNbB|7p5S8gt~F<JI;?>1)lPw5zE5z^Ya6P`{d^uCK|>Yj8JrvI(NzM
zoV&!erw@v%-OtL;_1%TfJQ)J+a{qVV7oMQbxq^_^c^S|p?0{o~k%gl$@QcR$%Bt$B
zh8?yY`wp}n=;?i;cVOt~(D=mU#E+l<$@3RpyY$-Cw}1QgjSoNm@XN2h{z@Gc9hI1r
zk^};~C=gkc^=#0&@###Lu8(q0$(-q~>^?vDl-!x*s_c`wrxeZ@m#t6kp7M99UCus*
z+cnVV@19aRgIuTjly28#Ux51)kdZ_ESV7}NMAu~y7Ip6iVn7B6Kv5_NMWDc}eMnuP
gI`G#?eV@ASoLm_${xrVp$OvVlm}{~>$e!HxpH8*inE(I)

literal 0
HcmV?d00001

diff --git a/BLACKJACK_ML_DAT.asm b/BLACKJACK_ML_DAT.asm
new file mode 100644
index 0000000..2646c9c
--- /dev/null
+++ b/BLACKJACK_ML_DAT.asm
@@ -0,0 +1,368 @@
+PMBANK                                  =$1800                                        
+VARBANK                                 =$0600                                                                                                                                       
+SCREEN_ADDR                             =$BC00                                         
+GAME_SCREEN_ADDR                        =$BC00                                        
+
+_RTCLOCK                                =$12
+_PMBANK_HI                              = >_PMBANK   
+
+_M0		        	          	            =$C0
+_M1		        	          	            =$C1
+_M2		        	          	            =$C2
+_M3		        	          	            =$C3
+_M4		        	          	            =$C4
+_M5		        	          	            =$C5
+_M6		        	          	            =$C6
+_M7		        	          	            =$C7
+_M8		        	          	            =$C8
+_M9		        	          	            =$C9
+_NDX0									                  =$CA
+_NDX1									                  =$CB
+_NDX2									                  =$CC
+_NDX3									                  =$CD
+_HOLDX									                =$CE
+_HOLDY									                =$CF
+              
+                                      ;PLAY_SOUNDS                                      =SOUND_COMMANDER + $0000	    
+                                      ;START_SOUND                                      =SOUND_COMMANDER + $009F      
+                                      ;GET_NEXT_MUSIC_NOTE                              =SOUND_COMMANDER + $00F6      
+                                      ;STOP_SOUND                                       =SOUND_COMMANDER + $0189      
+                                      ;SILENCE                                          =SOUND_COMMANDER + $019E      
+
+_SPRITENUM	                                     =_PMBANK+$0180
+_SETSP0COLOR                                     =_PMBANK+$0190
+_SETSP1COLOR                                     =_PMBANK+$01A0
+_SETSPWIDTH                                      =_PMBANK+$01B0
+_SPRITENHOZ                                      =_PMBANK+$01C0
+_SPRITENVRT                                      =_PMBANK+$01E0
+_SPHOZNEXT                                       =_PMBANK+$01F0
+
+_SPRHZ0	                            	           =_PMBANK+$0200 
+_SPRHZ1	                            	           =_PMBANK+$0210 
+_SPRHZ2	                            	           =_PMBANK+$0220 
+_SPRHZ3	                            	           =_PMBANK+$0230 
+_SPZONT                                          =_PMBANK+$0240
+_SPZONB                                          =_PMBANK+$0250
+_SPSRC0                                          =_PMBANK+$0260 
+_SPSRC1                                          =_PMBANK+$0278
+_SPSRC2                                          =_PMBANK+$0290
+_SPSRC3                                          =_PMBANK+$02A8
+_SPSRC4                                          =_PMBANK+$02C0
+_SPRITEUSE                                       =_PMBANK+$02D8
+                                            
+_MIBANK                                          =_PMBANK+$0300
+_PMBNK0                                          =_PMBANK+$0400
+_PMBNK1                             	           =_PMBANK+$0500
+_PMBNK2                                          =_PMBANK+$0600
+_PMBNK3                             	           =_PMBANK+$0700
+            
+_character_px                                    =_VARBANK + $020
+_character_py                                    =_VARBANK + $021
+_character_status                                =_VARBANK + $022
+_prior_py                                        =_VARBANK + $024
+_stick_read                                      =_VARBANK + $026 
+_character_frame                                 =_VARBANK + $027
+_prior_rt_clock                                  =_VARBANK + $02C
+_menu_selection                                  =_VARBANK + $02D
+_find_option                                     =_VARBANK + $02E
+_bombs_on_option                                 =_VARBANK + $02F
+_walls_on_option                                 =_VARBANK + $030
+_shooters_option                                 =_VARBANK + $032
+_mind_color                                      =_VARBANK + $034
+_show_countdown                                  =_VARBANK + $036
+_minds_found                                     =_VARBANK + $038
+_minds_under                                     =_VARBANK + $03A
+_titlephase                                      =_VARBANK + $03C
+_score                                           =_VARBANK + $03E
+_lives                                           =_VARBANK + $040
+_level                                           =_VARBANK + $041
+_topMem                                          =_VARBANK + $042;
+_chbase1                                         =_VARBANK + $044;
+_row_addr                                        =_VARBANK + $046; 
+_exit_cx  	                                	   =_VARBANK + $048;
+_exit_cy  	                                		 =_VARBANK + $049; 
+_exit_p0  	                                		 =_VARBANK + $04A;
+_exit_p1  	                                		 =_VARBANK + $04B; 
+_SOUND_COMMANDER_VARIABLE_AREA                   =_VARBANK + $060;
+
+
+
+      .export PMBANK
+      .export VARBANK                                        
+      .export SCREEN_ADDR                                         
+      .export GAME_SCREEN_ADDR
+      .export PMBANK_HI
+
+            
+_CHARSET_GAME:
+  .incbin         "CARD2.FNT"
+_CHARSET_TITLE:
+;  .incbin         "MIND FIELD TITLE.FNT"
+_TITLE_DATA:
+;  .incbin         "Mind Field Title Screen.txt"
+
+      _CHARSET_GAME_HI = > _CHARSET_GAME
+      _CHARSET_TITLE_HI = > _CHARSET_TITLE
+
+      
+      .export _CHARSET_GAME
+      .export _CHARSET_TITLE
+      .export _CHARSET_GAME_HI 
+      .export _CHARSET_TITLE_HI
+      .export _TITLE_DATA
+
+
+_GAME_VBI:
+      .export _GAME_VBI 
+		lda #<_GAME00_DLI
+		sta VDSLST+0
+		lda #>_GAME00_DLI
+		sta VDSLST+1
+		lda #$22
+		sta COLBAK
+		lda _mind_color
+		sta COLPF3		
+  ;//  inc_RTCLOCK
+  ;//bne no_inc_other_clock
+  ;//inc RTCLOCK+1
+  ;//no_inc_other_clock:
+      
+	  	LDA _prior_py
+	  	STA _NDX2
+	  	LDA #>_PMBNK0
+	  	STA _NDX3
+	  	
+	  	LDA #0
+	  	LDY #13
+Clear_Character_Prior_Loop:
+      STA (_NDX2),Y
+      DEY
+      BPL Clear_Character_Prior_Loop   	
+      	
+      LDA _character_py
+      STA _NDX2
+      LDA #>_PMBNK0
+      STA _NDX3
+        
+      LDY _character_frame  
+        
+             
+      LDA _SPRITEADDR_PLY0LO,Y
+      STA _NDX0
+        
+      LDA _SPRITEADDR_PLY0HI,Y
+      STA _NDX1
+        	
+      LDY #13
+Copy_Character_Image_Loop:
+		LDA (_NDX0),Y
+		STA (_NDX2),Y
+		DEY
+		BPL Copy_Character_Image_Loop
+		
+		LDA _character_px
+		STA HPOSP0   	
+    
+    LDA _character_py 
+		STA _prior_py 
+
+
+		jmp XITVBV	
+
+
+_TITLE_VBI:
+      .export _TITLE_VBI 
+		lda #<_TITLE00_DLI
+		sta VDSLST+0
+		lda #>_TITLE00_DLI
+		sta VDSLST+1
+		lda #$22
+		sta COLBAK
+		lda #$36
+		sta COLPF3				
+		inc _RTCLOCK+2
+		jmp XITVBV
+
+
+_PAUSE_VBI:
+      .export _PAUSE_VBI
+
+		jmp XITVBV
+
+_TITLE00_DLI:
+      .export _TITLE00_DLI 
+	pha	
+	lda #$D8
+	sta WSYNC
+	sta COLPF0
+	lda #$06
+	sta COLPF1
+	lda #$AA
+	sta COLPF1
+	lda #>_CHARSET_TITLE
+	sta CHBASE
+	lda #<_TITLE01_DLI
+	sta VDSLST+0
+	lda #>_TITLE01_DLI
+	sta VDSLST+1
+	pla
+	rti
+
+_TITLE01_DLI:
+      .export _TITLE01_DLI 
+	pha	
+	lda #142
+	sta WSYNC
+	sta COLPF0
+	lda #216
+	sta COLPF1
+	lda #56
+	sta COLPF2
+	lda #>_CHARSET_GAME
+ 	sta CHBASE
+	lda #<_TITLE00_DLI
+	sta VDSLST+0
+	lda #>_TITLE00_DLI
+	sta VDSLST+1
+	pla
+	rti
+
+_TITLE02_DLI:
+      .export _TITLE02_DLI 
+	PHA
+  PLA
+  RTI
+
+
+_TITLE03_DLI:
+      .export _TITLE03_DLI 
+	PHA
+  PLA
+  RTI
+
+
+_GAME00_DLI:
+      .export _GAME00_DLI 
+	PHA
+  PLA
+  RTI
+
+_GAME01_DLI:
+      .export _GAME01_DLI 
+	PHA
+  PLA
+  RTI
+
+_GAME02_DLI:
+      .export _GAME02_DLI 
+	PHA
+  PLA
+  RTI
+
+_GAME03_DLI:
+      .export _GAME03_DLI 
+	PHA
+  PLA
+  RTI
+
+_GAME04_DLI:
+      .export _GAME04_DLI 
+	PHA
+  PLA
+  RTI
+
+
+
+
+
+
+;     _CHARSET_TITLE_HI         = .hibyte(_CHARSET_TITLE)
+;     _CHARSET_GAME_HI          = .hibyte(_CHARSET_GAME)
+;     .export _CHARSET_TITLE_HI
+;     .export _CHARSET_GAME_HI
+      
+display_list_title:
+     .byte $70,$70,$47
+     .byte <_SCREEN_ADDR
+     .byte >_SCREEN_ADDR
+     .byte $07,$10
+     .byte $02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$02,$10,$41
+     .byte <display_list_title 
+     .byte >display_list_title
+    
+display_list_game:
+     .byte $70,$70,$42
+     .byte <_SCREEN_ADDR
+     .byte >_SCREEN_ADDR
+     .byte $02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$41
+     .byte <display_list_game 
+     .byte >display_list_game
+      
+      .export display_list_title
+      .export display_list_game
+
+
+_SCRREN_ROW_LOW:
+    .byte <(_GAME_SCREEN_ADDR +   0),<(_GAME_SCREEN_ADDR +   40), <(_GAME_SCREEN_ADDR +  80), <(_GAME_SCREEN_ADDR + 120), <(_GAME_SCREEN_ADDR + 160)
+    .byte <(_GAME_SCREEN_ADDR + 200), <(_GAME_SCREEN_ADDR + 240), <(_GAME_SCREEN_ADDR + 280), <(_GAME_SCREEN_ADDR + 320), <(_GAME_SCREEN_ADDR + 360)  
+  	.byte <(_GAME_SCREEN_ADDR + 400), <(_GAME_SCREEN_ADDR + 440), <(_GAME_SCREEN_ADDR + 480), <(_GAME_SCREEN_ADDR + 520), <(_GAME_SCREEN_ADDR + 560)
+  	.byte <(_GAME_SCREEN_ADDR + 600), <(_GAME_SCREEN_ADDR + 640), <(_GAME_SCREEN_ADDR + 680), <(_GAME_SCREEN_ADDR + 720), <(_GAME_SCREEN_ADDR + 760)
+    .byte <(_GAME_SCREEN_ADDR + 800), <(_GAME_SCREEN_ADDR + 840), <(_GAME_SCREEN_ADDR + 880), <(_GAME_SCREEN_ADDR + 920), <(_GAME_SCREEN_ADDR + 960)
+    .byte <(_GAME_SCREEN_ADDR + 1000) 
+    
+_SCRREN_ROW_HIGH:
+	  .byte >(_GAME_SCREEN_ADDR +   0), >(_GAME_SCREEN_ADDR +  40), >(_GAME_SCREEN_ADDR +  80), >(_GAME_SCREEN_ADDR + 120), >(_GAME_SCREEN_ADDR + 160)
+  	.byte >(_GAME_SCREEN_ADDR + 200), >(_GAME_SCREEN_ADDR + 240), >(_GAME_SCREEN_ADDR + 280), >(_GAME_SCREEN_ADDR + 320), >(_GAME_SCREEN_ADDR + 360)
+  	.byte >(_GAME_SCREEN_ADDR + 400), >(_GAME_SCREEN_ADDR + 440), >(_GAME_SCREEN_ADDR + 480), >(_GAME_SCREEN_ADDR + 520), >(_GAME_SCREEN_ADDR + 560)
+  	.byte >(_GAME_SCREEN_ADDR + 600), >(_GAME_SCREEN_ADDR + 640), >(_GAME_SCREEN_ADDR + 680), >(_GAME_SCREEN_ADDR + 720), >(_GAME_SCREEN_ADDR + 760)
+  	.byte >(_GAME_SCREEN_ADDR + 800), >(_GAME_SCREEN_ADDR + 840), >(_GAME_SCREEN_ADDR + 880), >(_GAME_SCREEN_ADDR + 920), >(_GAME_SCREEN_ADDR + 960)
+  	.byte >(_GAME_SCREEN_ADDR + 1000)  
+
+      .export _SCRREN_ROW_LOW
+      .export _SCRREN_ROW_HIGH
+
+
+
+
+P000:
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+     .byte %11111111; $FF  255
+
+     
+_SPRITEADDR_PLY0LO:
+      .byte <P000
+_SPRITEADDR_PLY0HI: 
+      .byte >P000
+     
+_SPRITEADDR_PLY0W:
+      .word P000
+
+
+      .export _SPRITEADDR_PLY0LO      ; Makes Sprite Address Table available to C compiled program
+      .export _SPRITEADDR_PLY0HI      ; Makes Sprite Address Table available to C compiled program
+      .export _SPRITEADDR_PLY0W       ; Makes Sprite Address Table available to C compiled program
+
diff --git a/BlackJackFB.bas b/BlackJackFB.bas
new file mode 100644
index 0000000..6d8bc91
--- /dev/null
+++ b/BlackJackFB.bas
@@ -0,0 +1,1916 @@
+'REM PROJECT: BLACK JACK ATARI FAST BASIC. PORTED FROM DARK BASIC VERSION.
+'REM CREATED: FRIDAY, AUGUST 10, 2012
+'REM ***** MAIN SOURCE FILE *****
+
+'REM **** Conversion in Progress ****
+DATA BLACKJACKVALUE()  BYTE = 011,002,003,004,005,006,007,008,009,010,010,010,010,011
+DATA POKERVALUE()      BYTE = 015,002,003,004,005,006,007,008,009,010,012,013,014,011
+DATA CARDCHARACTER1()  BYTE = 000,082,083,084,085,086,087,088,089,081,090,091,092,081  '92
+DATA CARDCHARACTER2()  BYTE = 000,000,000,000,000,000,000,000,000,080,000,000,000,081
+DATA CARDCHARACTER3()  BYTE = 094,000,000,000,000,000,000,000,000,000,072,074,076,000
+DATA CARDCHARACTER4()  BYTE = 095,000,000,000,000,000,000,000,000,000,073,075,077,000
+
+
+
+DATA SUITSHOW0()       BYTE = 192,193,066,067,196,197,070,071 
+
+DATA CARDSHOW1()       BYTE =  83,00,00,00,00,    213,00,00,00,00,   88,00,00,00,00, 218,00,196,197,00,    92,00,66,67,00,   221,00,192,193,00
+DATA CARDSHOW2()       BYTE =  00,00,00,00,00,     00,00,00,00,00,   00,00,00,00,00,  00,200,201,00,00,    00,76,77,00,00,    00,000,000,00,00
+DATA CARDSHOW3()       BYTE =  00,66,67,00,00,   00,192,193,00,00,   00,70,71,00,00,    00,78,79,00,00,    00,78,79,00,00,    00,222,223,00,00
+DATA CARDSHOW4()       BYTE =  84,00,00,00,00,    217,00,00,00,00,   86,00,00,00,00, 219,00,192,193,00, 220,00,196,197,00,    93,00,070,071,00
+DATA CARDSHOW5()       BYTE =  00,00,00,00,00,     00,00,00,00,00,   00,00,00,00,00,  00,202,203,00,00,  00,204,205,00,00,    00,000,000,00,00
+DATA CARDSHOW6()       BYTE =  00,66,67,00,00,   00,192,193,00,00,   00,70,71,00,00,    00,78,79,00,00,    00,78,79,00,00,    00,094,095,00,00
+
+
+DIM OLDORDER(512) WORD
+
+DBL_DOWN_SET = 0
+DBL_DOWN_3UP = 0
+DECKSIZE = 52
+NUMBER_OF_DECKS = 4
+                                          
+DIM BONUS_777_OPTION_SHOW$(1)   
+BONUS_777_OPTION_SHOW$(0) =    "NO BONUS WITH 777       "
+BONUS_777_OPTION_SHOW$(1) =    "PAYS 3:1, SUIT 4:1      "
+
+DIM BONUS_678_OPTION_SHOW$(1)   
+BONUS_678_OPTION_SHOW$(0) =    "NO BONUS WITH 678       "
+BONUS_678_OPTION_SHOW$(1) =    "PAYS 3:1, SUIT 4:1      "
+BONUS777 = 0
+BONUS678 = 0
+ 
+DEALERTIEWINS = 1
+
+DEALERSOFT17HIT = 0
+'DIM UNBUSTED_OPTION_SHOW$(1)
+CARDCHARLIEWINSET = 6
+
+SPLITSET = 0                      
+'BLACKJACK_BONUS_OPTION_SHOW$(3) = "                                 "
+SUIT21BONUS = 0
+COLOR21BONUS  = 0 
+
+DIM NUMBER_OF_PLAYERS_OPTION_SHOW$(3)
+NUMBER_OF_PLAYERS_OPTION_SHOW$(0) = "ONE PLAYER   "            
+NUMBER_OF_PLAYERS_OPTION_SHOW$(1) = "TWO PLAYERS  "
+NUMBER_OF_PLAYERS_OPTION_SHOW$(2) = "THREE PLAYERS"
+NUMBER_OF_PLAYERS_OPTION_SHOW$(3) = "FOUR PLAYERS "
+
+
+
+MAXPLAYERS = 4
+TRUE = 1
+FALSE = 0
+LASTPLAYER = 0
+DIM CARDIMAGE$(56) 
+CARDBACKIMAGE$ = "         "
+CARDIMAGE$(0) = "         "
+CARDIMAGE$(1) = "         "
+CARDIMAGE$(2) = "         "
+DIM BJCARDVALUE(56 * 10) BYTE
+DIM PKCARDVALUE(56 * 10) BYTE
+DIM CARDSUITVALUE(56 * 10) BYTE
+DIM CARDORDER(56 * 10) WORD
+DIM SUIT_CHARACTER(15) BYTE
+DIM MODE_RES_X(64)  BYTE
+DIM MODE_RES_Y(64)  BYTE
+DIM MODE_BITDEPTH(64)  BYTE
+DISPPLAYERSPACING = 0
+DISPPLAYERLEFT = 4
+DISPPLAYERTOP = 0
+DISPPLAYERVERTICAL = 0
+SELECTED_BITDEPTH = 0
+SELECTED_RES_X = 0
+SELECTED_RES_Y = 0
+DEALERHIDDEN = 0
+CARDNO = 0
+RESHUFFLENO = 0
+NEWCARDVALUE = 0
+ROUNDSPLAYED = 0
+PLAYERNO = 0
+GONEXTPLAYER = 0
+ALLOWSPLIT = 0
+ALLOWINSURANCE = 0
+EXITGAME = 0
+NUMBEROFDECKS = 4
+INSURANCE_STATUS = 0
+DIM PLAYERNNAME$(4) 
+DIM PLAYERNDRAWN(16) BYTE
+DIM PLAYERNTOTAL(16) BYTE
+DIM PLAYERNCASH%(4) 
+DIM PLAYERNBET%(4) 
+DIM PLAYERNSPLIT(4) BYTE
+DIM PLAYERNACES(4) BYTE
+DIM PLAYERNSPLITCARD(4) BYTE
+DIM PLAYERBJCARDVAL(80)  BYTE
+DIM PLAYERPKCARDVAL(80)  BYTE
+DIM PLAYERSUCARDVAL(80)  BYTE
+DIM PLAYERNDOUBLEUSED(4) 
+DIM PLAYERNMESSAGE$(4) 
+DIM HANDREWARD%(3) 
+KEYPRESSED$=""
+ERRORMESSAGE$ = ""
+TEMPMESSAGE$ = ""
+PLAYER_SECTION_ADDRESS = 0
+LASTKEYPRESSED = 0
+DEALERTIEWINS = 0
+DEALERSOFT17HIT = 0 ' IF DEALER HAS ONE ACE
+DEALERNOHIDDEN = 0
+CARDCHARLIEWINSET = 6
+ALLOWSURRENDER = 0 ' PLAYER GETS BACK HALF BET
+SUIT21BONUS = 0
+COLOR21BONUS = 0
+SUITEDAJBONUS = 0 ' ACE + JACK PAY IN SAME SUIT 2:1
+JOKERBETRETURN = 0 
+JOKERSPECIALACE = 0
+JOKERSPRESANT = 0
+DIM PLAYERNWINS(4) 
+TOTALCARDS = 0
+DECKSIZE = 0
+SUITSIZE = 0
+SS = 0   
+END_PROGRAM = 0
+
+INVD$=CHR$(196) '[D]ouble
+INVH$=CHR$(200) '[H]it 
+INVI$=CHR$(201) '[I]nsurance
+INVP$=CHR$(208) 
+INVQ$=CHR$(209) '[Q]uit
+INVR$=CHR$(210)
+INVS$=CHR$(211) '[S]tand
+INVT$=CHR$(212) 'Spli[T]
+INVU$=CHR$(213) 'S[U]rrender
+DRAWCARD_X = 0
+DRAWCARD_Y = 0
+A=0
+B=0
+C=0
+D=0
+E=0 
+F$="" 
+G=0 
+H=0 
+I=0 
+J=0 
+K=0 
+L=0
+M=0
+N=0
+O=0
+P=0
+Q=0
+R=0
+S=0
+T=0
+U=0
+SPLITCHECK1 = 0
+SPLITCHECK2 = 0
+W=0
+X=0
+Y=0
+Z=0
+GAME_COMMAND$ = ""
+END_PROGRAM = FALSE 'Program will loop until END_PROGRAM is non zero, and return to title screen. 
+
+REPEAT
+    EXEC INIT_DEFAULTS
+    EXEC TITLE_SCREEN
+    IF END_PROGRAM = 0
+        EXEC INIT_GAME
+       'EXEC SHOW_ALL_CARDS
+        EXEC SHUFFLEDECKS    
+        DPOKE 88,@SCREEN_ADDR
+        CLS                
+        EXITGAME = 0
+        REPEAT            
+            EXEC SHOWSTATS
+            EXEC GETBETS
+            IF EXITGAME = 0
+                PLAYERNO = 0
+                '**  EXEC SHOW_ALL_SPRITES
+                EXEC PERFORM_DEAL
+                IF PLAYERNO <= LASTPLAYER
+                    REPEAT
+                        EXEC PERFORM_PLAYER_INPUT                    
+                        IF PLAYERNSPLIT(PLAYERNO) = 2
+                            EXEC SHOWSTATS 
+                            EXEC PERFORM_NEXTHAND                        
+                        ELSE                         
+                            IF PLAYERNSPLIT(PLAYERNO) <= 1 
+                              'EXEC PERFORM_NEXTHAND 
+                            ENDIF
+                            PLAYERNO = PLAYERNO + 1
+                        ENDIF
+                    UNTIL PLAYERNO > LASTPLAYER    
+                ENDIF
+                PLAYERNO = 0 
+                EXEC PERFORM_DEALER
+                EXEC PERFORM_REWARDS
+                IF LASTPLAYER = 1 OR LASTPLAYER = 3
+                  SECTION_NUMBER = 4
+                  EXEC SET_PLAYER_SCREEN_SECTION
+                  POSITION 0,4
+                  PRINT "       Press Space to Continue         "                                
+                ENDIF
+                REPEAT
+                      EXEC SHOWSTATS
+                      GET LASTKEYPRESSED
+                      IF LASTKEYPRESSED>96 AND LASTKEYPRESSED<123 THEN LASTKEYPRESSED = LASTKEYPRESSED - 32 
+                      KEYPRESSED$=CHR$(LASTKEYPRESSED)        
+                UNTIL KEYPRESSED$ = " " 
+                DPOKE 88,@SCREEN_ADDR
+                PLAYERNSPLIT(PLAYERNO) = 0
+                CLS                
+                FOR I=0 TO 4
+                    POKE @NUMCARDS+I,0
+                    PLAYERNMESSAGE$(I) = ""                    
+                NEXT I
+                FOR I = 0 TO CARDNO 
+                    J = CARDORDER(I) 
+                    '***  ' ****   SPRITEJ+1, -200, -200, CARDIMAGE(J)
+                NEXT I
+                IF CARDNO >= RESHUFFLENO THEN EXEC SHUFFLEDECKS
+            ENDIF
+        UNTIL EXITGAME >= 1
+    ENDIF
+UNTIL END_PROGRAM = TRUE
+
+  FOR I = $D000 TO $D00D
+    POKE I,0
+  NEXT I
+  GRAPHICS 0
+
+END
+
+PROC INIT_GAME
+        'Initialize Game Variables to Default Values
+        'Set Game Colors and set Player / Missile Registers. 
+
+        DECK = 0        
+        CARDPLACE = 0
+        IMAGEGET = 0
+        LASTCARD = 0
+        FILENUMBERSTRING$ = ""
+        CLS
+        DPOKE 560,@DISPLAY_LIST_GAME
+        POKE 704,12
+        POKE 705,12
+        POKE 706,12
+        POKE 707,12
+        POKE 623,4      
+        POKE 708,148
+        POKE 709,42
+        POKE 710,0
+        POKE 711,68
+        POKE 712,210
+        DPOKE $0224,@GAME_VBI
+        DPOKE $0200,@GAME00_DLI
+        DPOKE 88,@SCREEN_ADDR
+        POKE $D40E,192
+        POKE $D008,3
+        POKE $D009,3
+        POKE $D00A,3
+        POKE $D00B,3
+        POKE $D00C,255
+        POKE $D00D,15
+        POKE $D00E,15
+        POKE $D00F,15
+        POKE $D010,15
+        POKE $D011,255
+        POKE $D01D,0
+
+        FOR I=0 TO 4
+            POKE @NUMCARDS+I,0
+            PLAYERNMESSAGE$(I) = ""
+        NEXT I
+      
+        IF SELECTED_RES_Y > 300 AND SELECTED_RES_Y < 621
+            DISPPLAYERTOP = 244
+            DISPPLAYERVERTICAL = 27
+        ENDIF
+        IF SELECTED_RES_Y > 620 AND SELECTED_RES_Y < 780 
+            DISPPLAYERTOP = 248
+            DISPPLAYERVERTICAL = 28
+        ENDIF
+        IF SELECTED_RES_Y >= 779 AND SELECTED_RES_Y < 1000 
+            DISPPLAYERTOP = 280
+            DISPPLAYERVERTICAL = 30
+        ENDIF
+        IF SELECTED_RES_Y > 999
+            DISPPLAYERTOP = 320
+            DISPPLAYERVERTICAL = 32
+        ENDIF
+        DISPPLAYERLEFT = 4
+        IF DECKSIZE = 56
+            LASTCARD = 55
+            SUITSIZE = 14
+         ELIF DECKSIZE = 52
+            LASTCARD = 51            
+            SUITSIZE = 13
+         ELIF DECKSIZE = 48
+            LASTCARD = 47
+            SUITSIZE = 12
+         ENDIF
+        TOTALCARDS = DECKSIZE * NUMBER_OF_DECKS - 1        
+        RESHUFFLENO = TOTALCARDS - 22
+        IF LASTPLAYER >= 4 AND NUMBEROFDECKS >=6 THEN RESHUFFLENO = TOTALCARDS - 28
+        CARDNO = 0
+        FOR CARDPLACE = 0 TO SUITSIZE - 1
+          SUIT_CHARACTER(CARDPLACE) = CARDNO
+          CARDNO = CARDNO + 1 
+          IF SUITSIZE = 12 AND CARDPLACE = 8 THEN CARDNO = CARDNO + 1 
+        NEXT CARDPLACE        
+        
+        CARDNO = 0 
+        CARDSUIT = 0
+        IMAGEGET = 1
+        FOR CARDPLACE = 0 TO TOTALCARDS
+            IF (CARDPLACE MOD SUITSIZE) = 0
+               CARDNO = 0
+               CARDSUIT = CARDSUIT + 1
+               IF CARDSUIT >=4 THEN CARDSUIT = 0
+            ENDIF
+            I = SUIT_CHARACTER(CARDNO) 
+            V =  BLACKJACKVALUE(I)
+            BJCARDVALUE(CARDPLACE) = V
+            V =  POKERVALUE(I)
+            PKCARDVALUE(CARDPLACE) = V
+            CARDSUITVALUE(CARDPLACE) = 1 + CARDSUIT
+            CARDORDER(CARDPLACE) = 255
+            CARDNO = CARDNO + 1 
+        NEXT CARDPLACE
+        CARDNO = DECKSIZE
+        JOKERSPRESANT = 0
+        IF DECKSIZE = 56 THEN SUITSIZE = 14
+        FOR N = 1 TO MAXPLAYERS
+            PLAYERNCASH%(N) = 5000
+            PLAYERNBET%(N) = 0
+        NEXT N        
+ENDPROC
+
+PROC CALCTOTAL
+    FROM = 0
+    TOTAL = 0
+    ACES = 0
+    H = 0
+    PLAYERNACES(PLAYERNO) = 0
+    IF PLAYERNSPLIT(PLAYERNO) <= 2
+        FROM = 0
+        H = 0
+    ENDIF
+    IF PLAYERNSPLIT(PLAYERNO) = 3
+        FROM = 7
+        H = 4
+    ENDIF
+    IF PLAYERNSPLIT(PLAYERNO) = 4
+        FROM = 14
+        H = 8
+    ENDIF
+    FOR I = FROM TO FROM + PLAYERNDRAWN(PLAYERNO + H) - 1
+        TOTAL = TOTAL + PLAYERBJCARDVAL(PLAYERNO*20+I)
+        IF PLAYERBJCARDVAL(PLAYERNO*20+I) = 11 
+            ACES = ACES + 1
+            PLAYERNACES(PLAYERNO) = PLAYERNACES(PLAYERNO) + 1
+         ENDIF
+    NEXT I
+    ' CHECK IF THERE ARE ANY ACES WHEN A TOTAL IS MORE THAN 21, IF SO, SUBRACT 10 UNTIL NO MORE ACES OR LESS THAN 22.
+    IF ACES > 0
+        FOR I = 0 TO ACES - 1 
+            IF TOTAL > 21 THEN TOTAL = TOTAL - 10
+        NEXT I
+    ENDIF
+    PLAYERNTOTAL(PLAYERNO+H) = TOTAL
+ENDPROC
+
+PROC PERFORM_DEAL
+    PLAYERNUMBER = 0
+    USEIMAGE = 0
+    CARDSPACING = 0 
+    CARDSPACING = 16
+    SPLITCHECK1 = 254
+    SPLITCHECK2 = 255
+    ROUNDSPLAYED = ROUNDSPLAYED + 1
+    CLS
+    EXEC SHOWSTATS
+    IF PLAYERNSPLIT(PLAYERNO) >= 2 THEN CARDSPACING = 14
+    FOR I = 0 TO 15
+        PLAYERNTOTAL(I) = 0
+    NEXT I
+    FOR PLAYERNUMBER = 0 TO LASTPLAYER
+        FOR N = 0 TO 20
+            PLAYERBJCARDVAL(PLAYERNUMBER*20+N) = 0
+            PLAYERPKCARDVAL(PLAYERNUMBER*20+N) = 0
+        NEXT N
+        PLAYERNO = PLAYERNUMBER
+        PLAYERNMESSAGE$(PLAYERNO) = ""
+        PLAYERNSPLIT(PLAYERNO) = 0
+        PLAYERNACES(PLAYERNO) = 0
+        PLAYERNDOUBLEUSED(PLAYERNO) = 0
+        PLAYERNSPLITCARD(PLAYERNO) = 0
+        PLAYERNDRAWN(PLAYERNO+0) = 0
+        PLAYERNDRAWN(PLAYERNO+4) = 0   
+        SECTION_NUMBER = PLAYERNO
+        EXEC SET_PLAYER_SCREEN_SECTION
+        FOR N = 0 TO 1
+             DRAWCARD_X = DISPPLAYERLEFT + 5 * N                 
+             DRAWCARD_Y = PLAYER_SECTION_ADDRESS
+             IF PLAYERNO = 0 
+                 IF N = 1
+                    EXEC DISPLAY_BACK 
+                    DEALERHIDDEN = CARDNO
+                 ELSE
+                    EXEC DISPLAY_CARD
+                 ENDIF
+             ELSE                 
+                 EXEC DISPLAY_CARD                 
+             ENDIF                          
+                
+                 
+             NEWCARDVALUE = BJCARDVALUE(CARDORDER(CARDNO))
+             PLAYERBJCARDVAL(PLAYERNO*20 + PLAYERNDRAWN(PLAYERNO)) = NEWCARDVALUE
+             PLAYERPKCARDVAL(PLAYERNO*20 + PLAYERNDRAWN(PLAYERNO)) = PKCARDVALUE(CARDORDER(CARDNO))
+             PLAYERSUCARDVAL(PLAYERNO*20 + PLAYERNDRAWN(PLAYERNO)) = CARDSUITVALUE(CARDORDER(CARDNO))
+             
+             IF PLAYERNO > 0              
+                IF N = 0                                 
+                    IF SPLITSET = 0
+                            SPLITCHECK1 = BJCARDVALUE(CARDORDER(CARDNO))
+                    ELIF SPLITSET = 1
+                            SPLITCHECK1 = PKCARDVALUE(CARDORDER(CARDNO))
+                    ELIF SPLITSET = 2
+                            IF BJCARDVALUE(CARDNO) < 11 
+                                SPLITCHECK1 = PKCARDVALUE(CARDORDER(CARDNO))
+                            ELSE
+                                SPLITCHECK1 = 255
+                            ENDIF
+                    ENDIF
+                 ENDIF
+                 IF N = 1 
+                    IF SPLITSET = 0     
+                        SPLITCHECK2 = BJCARDVALUE(CARDORDER(CARDNO))
+                    ELIF SPLITSET = 1
+                            SPLITCHECK2 = PKCARDVALUE(CARDORDER(CARDNO))
+                    ELIF SPLITSET = 2
+                            IF BJCARDVALUE(CARDNO) < 11 
+                                SPLITCHECK2 = PKCARDVALUE(CARDORDER(CARDNO))
+                            ELSE
+                                SPLITCHECK2 = 254 ' 255 WILL NOT EQUAL 254
+                            ENDIF
+                     ENDIF 
+                     IF SPLITCHECK1 = SPLITCHECK2 
+                        PLAYERNSPLIT(PLAYERNO) = 1
+                        PLAYERNSPLITCARD(PLAYERNO) = CARDORDER(CARDNO)
+                     ENDIF
+                       
+                     ' *** Temporary Override for checking                   
+                     '  PLAYERNSPLIT(PLAYERNO) = 1
+
+
+
+                 ENDIF
+             ENDIF
+              CARDNO = CARDNO + 1
+              PLAYERNDRAWN(PLAYERNO) = PLAYERNDRAWN(PLAYERNO) + 1
+        NEXT N
+        PLAYERNDRAWN(PLAYERNO+0) = 2
+        PLAYERNDRAWN(PLAYERNO+4) = 0
+        IF LASTPLAYER < 3
+            IF LASTPLAYER = 2 AND PLAYERNO = 2
+                H = PLAYERNO + 1
+            ELSE
+                H = PLAYERNO
+            ENDIF
+        ELSE    
+            H = PLAYERNO
+        ENDIF
+        POKE @NUMCARDS + H,(PLAYERNDRAWN(PLAYERNO) & 7) 
+        IF PLAYERNO = 0 
+             EXEC CALCTOTAL
+             '' PLAYERNMESSAGE$(PLAYERNO) = "TOTAL:"
+'             PLAYERNMESSAGE$(PLAYERNO) = STR$(CARDORDER(0))
+'             PLAYERNMESSAGE$(PLAYERNO) =+" "
+'             PLAYERNMESSAGE$(PLAYERNO) =+ STR$(CARDORDER(1))
+'             PLAYERNMESSAGE$(PLAYERNO) =+" "
+'             PLAYERNMESSAGE$(PLAYERNO) =+ STR$(CARDORDER(2))
+'             PLAYERNMESSAGE$(PLAYERNO) =+" "
+'             PLAYERNMESSAGE$(PLAYERNO) =+ STR$(CARDORDER(3))
+'             PLAYERNMESSAGE$(PLAYERNO) =+" "
+'             PLAYERNMESSAGE$(PLAYERNO) =+ STR$(CARDORDER(4))
+'             PLAYERNMESSAGE$(PLAYERNO) =+" "
+'             PLAYERNMESSAGE$(PLAYERNO) =+ STR$(CARDORDER(5))
+'             PLAYERNMESSAGE$(PLAYERNO) =+" "
+'             PLAYERNMESSAGE$(PLAYERNO) =+ STR$(CARDORDER(6))
+              
+        ELSE
+             EXEC CALCTOTAL        
+             IF PLAYERNTOTAL(PLAYERNO+0) = 21 
+                PLAYERNMESSAGE$(PLAYERNO) = "T:21 BLACKJACK"               
+             ELSE
+                 PLAYERNMESSAGE$(PLAYERNO) = "T:" 
+                 PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO))
+             ENDIF
+        ''    EXEC SHOWSTATS
+
+'             I=CARDSUITVALUE(CARDORDER(0))
+'             PLAYERNMESSAGE$(PLAYERNO) = STR$(I)
+'             PLAYERNMESSAGE$(PLAYERNO) =+" "
+'             I=CARDSUITVALUE(CARDORDER(1))
+'             PLAYERNMESSAGE$(PLAYERNO) =+ STR$(I)
+'             PLAYERNMESSAGE$(PLAYERNO) =+" "
+'             I=CARDSUITVALUE(CARDORDER(2))
+'             PLAYERNMESSAGE$(PLAYERNO) =+ STR$(I)
+'             PLAYERNMESSAGE$(PLAYERNO) =+" "
+'             I=CARDSUITVALUE(CARDORDER(3))
+'             PLAYERNMESSAGE$(PLAYERNO) =+ STR$(I)
+'             PLAYERNMESSAGE$(PLAYERNO) =+" "
+'             I=CARDSUITVALUE(CARDORDER(4))
+'             PLAYERNMESSAGE$(PLAYERNO) =+ STR$(I)
+'             PLAYERNMESSAGE$(PLAYERNO) =+" "
+'             I=CARDSUITVALUE(CARDORDER(5))
+'             PLAYERNMESSAGE$(PLAYERNO) =+ STR$(I)
+'             PLAYERNMESSAGE$(PLAYERNO) =+" "
+'             I=CARDSUITVALUE(CARDORDER(6))
+'             PLAYERNMESSAGE$(PLAYERNO) =+ STR$(I)
+'             PLAYERNMESSAGE$(PLAYERNO) =+" "
+'             I=CARDSUITVALUE(CARDORDER(7))
+'             PLAYERNMESSAGE$(PLAYERNO) =+ STR$(I)
+'             PLAYERNMESSAGE$(PLAYERNO) =+" "
+'             I=CARDSUITVALUE(CARDORDER(8))
+'             PLAYERNMESSAGE$(PLAYERNO) =+ STR$(I)
+'             PLAYERNMESSAGE$(PLAYERNO) =+"  "
+'             I=TOTALCARDS
+'             PLAYERNMESSAGE$(PLAYERNO) =+ STR$(I)
+
+
+        ENDIF
+            SECTION_NUMBER = PLAYERNUMBER
+            EXEC SET_PLAYER_SCREEN_SECTION
+            POSITION 21,4
+            PRINT PLAYERNMESSAGE$(PLAYERNO)
+        
+    NEXT PLAYERNUMBER
+    PLAYERNO = 1
+    IF PLAYERNTOTAL(1+0) = 21 
+        PLAYERNO = 2
+        IF PLAYERNTOTAL(2+0) = 21 
+            PLAYERNO = 3
+            IF PLAYERNTOTAL(3+0) = 21 
+                PLAYERNO = 4
+                IF PLAYERNTOTAL(4+0) = 21 THEN PLAYERNO = MAXPLAYERS + 1
+            ENDIF
+        ENDIF
+    ENDIF
+    IF PLAYERNTOTAL(0) = 21 
+        IF PLAYERBJCARDVAL(0) = 11 THEN PLAYERNO = MAXPLAYERS + 1
+    ENDIF
+ENDPROC
+
+PROC DISPLAY_CARD
+  CARD_TOPLEFT = DRAWCARD_Y + DRAWCARD_X
+  C = CARDORDER(CARDNO)
+  K = SUIT_CHARACTER(C MOD SUITSIZE)
+  L = (CARDSUITVALUE(C) - 1) * 2
+  G = (SUITSHOW0(L) & 128)
+  
+
+  POKE CARD_TOPLEFT+0,CARDCHARACTER1(K)!G   
+  POKE CARD_TOPLEFT+1,CARDCHARACTER2(K)!G
+  IF CARDCHARACTER3(K) = 0 
+    POKE CARD_TOPLEFT+81,SUITSHOW0(L) + 0   
+    POKE CARD_TOPLEFT+82,SUITSHOW0(L) + 1
+  
+  ELIF CARDCHARACTER3(K) = 94
+    POKE CARD_TOPLEFT+01,CARDCHARACTER3(K)!G  
+    POKE CARD_TOPLEFT+02,CARDCHARACTER4(K)!G  
+    POKE CARD_TOPLEFT+81,SUITSHOW0(L) + 0   
+    POKE CARD_TOPLEFT+82,SUITSHOW0(L) + 1
+  ELSE
+    POKE CARD_TOPLEFT+02,SUITSHOW0(L) + 0   
+    POKE CARD_TOPLEFT+03,SUITSHOW0(L) + 1
+    POKE CARD_TOPLEFT+41,CARDCHARACTER3(K)!G  
+    POKE CARD_TOPLEFT+42,CARDCHARACTER4(K)!G
+    IF L < 4
+      POKE CARD_TOPLEFT+81,78!G  
+      POKE CARD_TOPLEFT+82,79!G
+    ELSE
+      G = 128 - G
+      POKE CARD_TOPLEFT+81,78!G  
+      POKE CARD_TOPLEFT+82,79!G
+    ENDIF      
+  ENDIF 
+ENDPROC
+
+PROC DISPLAY_BACK
+    CARD_TOPLEFT = DRAWCARD_Y + DRAWCARD_X
+    MOVE @CARDBACKLINE,CARD_TOPLEFT + 00,4
+    MOVE @CARDBACKLINE,CARD_TOPLEFT + 40,4
+    MOVE @CARDBACKLINE,CARD_TOPLEFT + 80,4
+    MOVE @CARDBACKLINE,CARD_TOPLEFT + 120,4 
+ENDPROC
+
+PROC DISPLAY_FRONT
+    CARD_TOPLEFT = DRAWCARD_Y + DRAWCARD_X
+    MOVE @CARDFRONTLINE,CARD_TOPLEFT + 00,4
+    MOVE @CARDFRONTLINE,CARD_TOPLEFT + 40,4
+    MOVE @CARDFRONTLINE,CARD_TOPLEFT + 80,4
+    MOVE @CARDFRONTLINE,CARD_TOPLEFT + 120,4 
+ENDPROC
+
+
+PROC PERFORM_PLAYER_INPUT 
+    KEYUP = 0
+    GONEXTPLAYER = 0
+    PLAYERNDOUBLEUSED(PLAYERNO) = 0
+    REPEAT         
+        EXEC SHOWSTATS
+        IF PLAYERNCASH%(PLAYERNO) < PLAYERNBET%(PLAYERNO) THEN PLAYERNDOUBLEUSED(PLAYERNO) = 1
+        IF DBL_DOWN_SET = 1 AND (PLAYERNTOTAL(PLAYERNO+0) <=9 OR PLAYERNTOTAL(PLAYERNO+0)>=12) THEN PLAYERNDOUBLEUSED(PLAYERNO) = 1
+        IF DBL_DOWN_SET = 2 AND (PLAYERNTOTAL(PLAYERNO+0) <=8 OR PLAYERNTOTAL(PLAYERNO+0)>=12) THEN PLAYERNDOUBLEUSED(PLAYERNO) = 1
+        IF (PLAYERNTOTAL(PLAYERNO+0) < 21 OR (PLAYERNSPLIT(PLAYERNO) = 3) AND PLAYERNTOTAL(PLAYERNO+4) <21)
+            EXEC SHOWCOMMANDS
+            
+            GET LASTKEYPRESSED
+            IF LASTKEYPRESSED>96 AND LASTKEYPRESSED<123 THEN LASTKEYPRESSED = LASTKEYPRESSED - 32 
+            KEYPRESSED$=CHR$(LASTKEYPRESSED)
+            IF KEYPRESSED$ = "H" 
+                EXEC PERFORM_HIT
+                IF PLAYERNDRAWN(PLAYERNO) >=3 AND DBL_DOWN_3UP = FALSE THEN PLAYERNDOUBLEUSED(PLAYERNO) = 1
+                IF PLAYERNDRAWN(PLAYERNO) >=4 AND DBL_DOWN_3UP = TRUE THEN PLAYERNDOUBLEUSED(PLAYERNO) = 1
+            ENDIF
+            IF KEYPRESSED$ = "S" 
+                GONEXTPLAYER = 1
+                IF LASTPLAYER >= 3
+                  IF PLAYERNSPLIT(PLAYERNO) <= 1 
+                      PLAYERNMESSAGE$(PLAYERNO) = "T:"
+                      IF PLAYERNSPLIT(PLAYERNO) <= 2
+                        PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+0))
+                      ELSE
+                        PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+4))
+                      ENDIF
+                      PLAYERNMESSAGE$(PLAYERNO) =+" STAND"                
+                  ELIF PLAYERNSPLIT(PLAYERNO) = 2                             
+                      PLAYERNMESSAGE$(PLAYERNO) = "T:"
+                      PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+0)) 
+                      PLAYERNMESSAGE$(PLAYERNO) =+ " STAND|T:" 
+                      PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+4))
+                  ELIF PLAYERNSPLIT(PLAYERNO) = 3
+                      PLAYERNMESSAGE$(PLAYERNO) = "T:"
+                      PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+0)) 
+                      PLAYERNMESSAGE$(PLAYERNO) =+ "|T:" 
+                      PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+4)) 
+                      PLAYERNMESSAGE$(PLAYERNO) =+ " STAND"
+                  ENDIF
+                ENDIF
+            ENDIF
+            IF KEYPRESSED$ = "D" AND PLAYERNDOUBLEUSED(PLAYERNO) = 0
+                PLAYERNBET%(PLAYERNO) = PLAYERNBET%(PLAYERNO) * 2
+                EXEC PERFORM_HIT
+                GONEXTPLAYER = 1
+                PLAYERNDOUBLEUSED(PLAYERNO) = 1
+            ENDIF
+            IF KEYPRESSED$ = "T" AND PLAYERNSPLIT(PLAYERNO) = 1 
+                EXEC PERFORM_SPLITDEAL
+            ENDIF
+            IF KEYPRESSED$ = "U" AND ALLOWSURRENDER = TRUE AND PLAYERNDRAWN(PLAYERNO) = 2 AND PLAYERNSPLIT(PLAYERNO) <= 1 
+                PLAYERNDRAWN(PLAYERNO) = - PLAYERNDRAWN(PLAYERNO)                
+                PLAYERNMESSAGE$(PLAYERNO) = "SURRENDER"
+                GONEXTPLAYER = 1
+            ENDIF
+            IF KEYPRESSED$ = "Q" 
+                GONEXTPLAYER = 1
+            ENDIF
+            KEYPRESSED$ = ""
+          ELSE
+             GONEXTPLAYER = 1
+          ENDIF          
+    UNTIL GONEXTPLAYER = 1
+ENDPROC
+
+PROC PERFORM_DEALER
+    PLAYERNO = 0    
+    SECTION_NUMBER = 0
+    EXEC SET_PLAYER_SCREEN_SECTION
+    POSITION 0,4
+    PRINT "Dealer                                 "    
+    DRAWCARD_X = DISPPLAYERLEFT + 5 * 1                 
+    DRAWCARD_Y = PLAYER_SECTION_ADDRESS
+    EXEC DISPLAY_FRONT
+    H = CARDNO
+    CARDNO = DEALERHIDDEN
+    EXEC DISPLAY_CARD 
+    CARDNO = H
+    EXEC CALCTOTAL
+    IF PLAYERNTOTAL(0+0) < 21 
+        REPEAT 
+            IF DEALERSOFT17HIT = FALSE     
+                IF PLAYERNTOTAL(0+0) <= 16 THEN EXEC PERFORM_HIT 
+            ELSE
+                IF PLAYERNTOTAL(0+0) <= 16 THEN EXEC PERFORM_HIT 
+                EXEC CALCTOTAL
+                IF PLAYERNTOTAL(0+0) = 17 AND PLAYERNACES(0) > 0 THEN EXEC PERFORM_HIT
+                EXEC CALCTOTAL
+            ENDIF                
+        UNTIL PLAYERNTOTAL(0+0) >= 17
+        IF PLAYERNTOTAL(0+0) <=21 
+            PLAYERNMESSAGE$(0) = "TOTAL:" 
+            PLAYERNMESSAGE$(0) =+ STR$(PLAYERNTOTAL(0)) 
+            PLAYERNMESSAGE$(0) =+ " STANDING"
+        ELSE
+            PLAYERNMESSAGE$(0) = "TOTAL:" 
+            PLAYERNMESSAGE$(0) =+ STR$(PLAYERNTOTAL(0)) 
+            PLAYERNMESSAGE$(0) =+ " BUSTED"
+        ENDIF        
+    ELIF PLAYERNDRAWN(0) = 2 AND PLAYERNTOTAL(0) = 21  
+        PLAYERNMESSAGE$(0) = "TOTAL:" 
+        PLAYERNMESSAGE$(0) =+ STR$(PLAYERNTOTAL(0)) 
+        PLAYERNMESSAGE$(0) =+ " BLACKJACK"
+    ENDIF
+    EXEC SHOWSTATS
+ENDPROC
+
+PROC PERFORM_HIT 
+    CARDSPACING = 16    
+    PLAYERNUMBER = PLAYERNO
+    SECTION_NUMBER = PLAYERNO
+    EXEC SET_PLAYER_SCREEN_SECTION        
+    IF PLAYERNSPLIT(PLAYERNO) <=2
+        N = PLAYERNDRAWN(PLAYERNUMBER + 0)
+    ELIF PLAYERNSPLIT(PLAYERNO) = 3
+        N = PLAYERNDRAWN(PLAYERNUMBER + 4)
+    ENDIF    
+    DRAWCARD_X = DISPPLAYERLEFT + 5 * N
+    DRAWCARD_Y = PLAYER_SECTION_ADDRESS
+    EXEC DISPLAY_CARD
+    
+    IF PLAYERNSPLIT(PLAYERNO) <=2
+        SPLITBASE = 0
+        H = 0
+    ELIF PLAYERNSPLIT(PLAYERNO) >=3        
+        SPLITBASE = 7
+        H = 4
+    ENDIF
+    NEWCARDVALUE = BJCARDVALUE(CARDORDER(CARDNO))
+    PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE+PLAYERNDRAWN(PLAYERNO + H)) = NEWCARDVALUE
+    PLAYERPKCARDVAL(PLAYERNO*20+SPLITBASE+PLAYERNDRAWN(PLAYERNO + H)) = PKCARDVALUE(CARDORDER(CARDNO))
+    PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE+PLAYERNDRAWN(PLAYERNO + H)) = CARDSUITVALUE(CARDORDER(CARDNO))
+    PLAYERNDRAWN(PLAYERNO + H) = PLAYERNDRAWN(PLAYERNO + H) + 1
+    CARDNO = CARDNO + 1
+    IF LASTPLAYER < 3
+        IF PLAYERNSPLIT(PLAYERNO) <=2            
+            POKE @NUMCARDS + PLAYERNO + 0,PLAYERNDRAWN(PLAYERNO + 0)
+            H = 0
+        ELIF PLAYERNSPLIT(PLAYERNO) >=3
+            POKE @NUMCARDS + PLAYERNO + 1,PLAYERNDRAWN(PLAYERNO + 4)
+            H = 4
+        ENDIF
+    ELSE    
+        POKE @NUMCARDS + PLAYERNO,PLAYERNDRAWN(PLAYERNO + 0)
+        H = 0
+    ENDIF    
+    EXEC CALCTOTAL      
+    IF PLAYERNTOTAL(PLAYERNO) >= 22 
+        IF PLAYERNSPLIT(PLAYERNO) < 2 
+            PLAYERNMESSAGE$(PLAYERNO) = "T:" 
+            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+H)) 
+            PLAYERNMESSAGE$(PLAYERNO) =+ " BUSTED"
+            GONEXTPLAYER = TRUE
+        ELIF PLAYERNSPLIT(PLAYERNO) >= 3 AND PLAYERNTOTAL(PLAYERNO+4) > 22 AND LASTPLAYER <= 2
+            PLAYERNMESSAGE$(PLAYERNO) = "T:" 
+            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+H)) 
+            PLAYERNMESSAGE$(PLAYERNO) =+ " BUST"
+            GONEXTPLAYER = TRUE
+        ELIF PLAYERNSPLIT(PLAYERNO) >= 2 AND PLAYERNTOTAL(PLAYERNO+4) < 22 AND LASTPLAYER >= 3
+            PLAYERNMESSAGE$(PLAYERNO) = "T:" 
+            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+0)) 
+            PLAYERNMESSAGE$(PLAYERNO) =+ " BUST|T:"  
+            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+4))       
+            IF PLAYERNSPLIT(PLAYERNO) = 2 THEN GONEXTPLAYER = TRUE
+        ENDIF
+        IF PLAYERNSPLIT(PLAYERNO) = 3 AND PLAYERNTOTAL(PLAYERNO+4) >= 22 AND LASTPLAYER >= 3
+            PLAYERNMESSAGE$(PLAYERNO) = "T:" 
+            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+0)) 
+            PLAYERNMESSAGE$(PLAYERNO) =+ "|T:"  
+            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+4)) 
+            PLAYERNMESSAGE$(PLAYERNO) =+ " BUST"
+        ENDIF
+    ELSE
+        IF PLAYERNSPLIT(PLAYERNO) < 2 OR LASTPLAYER < 3
+            PLAYERNMESSAGE$(PLAYERNO) = "T:" 
+            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+H))
+        ELSE
+            PLAYERNMESSAGE$(PLAYERNO) = "T:" 
+            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+0)) 
+            PLAYERNMESSAGE$(PLAYERNO) =+ "|T:"  
+            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+4))
+        ENDIF
+        IF (PLAYERNDRAWN(PLAYERNO) = 6 OR PLAYERNDRAWN(PLAYERNO) = 13) AND CARDCHARLIEWINSET = 6
+            IF PLAYERNSPLIT(PLAYERNO) < 2 OR LASTPLAYER < 3
+                PLAYERNMESSAGE$(PLAYERNO) = "T:" 
+                PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+H)) 
+                PLAYERNMESSAGE$(PLAYERNO) =+ " 6 CARD CHARLIE"
+            ELSE
+                PLAYERNMESSAGE$(PLAYERNO) = "T:" 
+                PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+0)) 
+                PLAYERNMESSAGE$(PLAYERNO) =+ " C6|T:"  
+                PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+4))
+            ENDIF
+            GONEXTPLAYER = TRUE
+        ENDIF
+        IF (PLAYERNDRAWN(PLAYERNO) = 5 OR PLAYERNDRAWN(PLAYERNO) = 12) AND CARDCHARLIEWINSET = 5
+            IF PLAYERNSPLIT(PLAYERNO) < 2 OR LASTPLAYER < 3
+                PLAYERNMESSAGE$(PLAYERNO) = "T:" 
+                PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+H)) 
+                PLAYERNMESSAGE$(PLAYERNO) =+ " 5 CARD CHARLIE"
+            ELSE
+                PLAYERNMESSAGE$(PLAYERNO) = "T:" 
+                PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+0)) 
+                PLAYERNMESSAGE$(PLAYERNO) =+ " C5|T:"  
+                PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+4))
+            ENDIF
+            GONEXTPLAYER = TRUE
+        ENDIF
+    ENDIF
+ENDPROC
+
+PROC PERFORM_REWARDS
+    SPLITREWARD = 0
+    PLAYERNUMBER = 0
+    BONUSREWARD = 0
+    SPLITBASE = 0   
+    HANDNUMBER = 0             
+    HANDTOTAL = 0
+    HANDREWARD%(0) = 0
+    HANDREWARD%(1) = 0
+    HANDREWARD%(2) = 0
+    HANDREWARD%(3) = 0
+    FOR PLAYERNUMBER = 1 TO LASTPLAYER
+        PLAYERNO = PLAYERNUMBER
+        HANDNUMBER = 0
+        SPLITBASE = 0
+        REPEAT
+            IF PLAYERNDRAWN(PLAYERNO) >= 2
+                PLAYERNDRAWN(PLAYERNO) = 0
+                HANDREWARD%(HANDNUMBER) = 0
+                FOR C = 0 TO 6
+                    IF PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE + C) > 0 THEN PLAYERNDRAWN(PLAYERNO) = PLAYERNDRAWN(PLAYERNO) + 1
+                NEXT C
+                IF HANDNUMBER = 0 THEN HANDTOTAL = PLAYERNTOTAL(PLAYERNO+0)
+                IF HANDNUMBER = 1 THEN HANDTOTAL = PLAYERNTOTAL(PLAYERNO+4)
+''               IF HANDNUMBER = 2 THEN HANDTOTAL = PLAYERNTOTAL(PLAYERNO+8)
+            ENDIF
+            IF HANDTOTAL = 21 
+                IF PLAYERNDRAWN(PLAYERNO) = 2 
+                    C = 0
+                    IF COLOR21BONUS = 1 
+                        IF PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  0) = 2 OR PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  0) = 4 THEN C = C + 1
+                        IF PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  1) = 2 OR PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  1) = 4 THEN C = C + 1
+                        IF C = 2 
+                            HANDREWARD%(HANDNUMBER) = PLAYERNBET%(PLAYERNO) * 2
+                            IF HANDNUMBER = 0 OR LASTPLAYER <=2 
+                               PLAYERNMESSAGE$(PLAYERNO) = "BLACKJACK BLACK  WON:" 
+                               PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNBET%(PLAYERNO) * 2)
+                            ENDIF
+                            PLAYERNWINS(PLAYERNO) = PLAYERNWINS(PLAYERNO) + 1
+                        ELSE
+                            C = 0
+                            IF PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  0) = 1 OR PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  0) = 3 THEN C = C + 1
+                            IF PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  1) = 1 OR PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  1) = 3 THEN C = C + 1
+                            IF C = 2 
+                                HANDREWARD%(HANDNUMBER) =PLAYERNBET%(PLAYERNO) * 2
+                                IF HANDNUMBER = 0 OR LASTPLAYER <=2
+                                    PLAYERNMESSAGE$(PLAYERNO) = "BLACKJACK BLACK  WON:" 
+                                    PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNBET%(PLAYERNO) * 2)
+                                ENDIF
+                                PLAYERNWINS(PLAYERNO) = PLAYERNWINS(PLAYERNO) + 1
+                            ELSE
+                                C = 0
+                            ENDIF
+                        ENDIF
+                    ENDIF
+                    IF C = 0 
+                        IF SUIT21BONUS = 1 AND PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  0) = PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  1) 
+                            HANDREWARD%(HANDNUMBER) = PLAYERNBET%(PLAYERNO) * 2
+                            IF HANDNUMBER = 0 OR LASTPLAYER <=2
+                                PLAYERNMESSAGE$(PLAYERNO) = "SUITED BLACKJACK  WON:" 
+                                PLAYERNMESSAGE$(PLAYERNO) =+ STR$(INT(PLAYERNBET%(PLAYERNO) * 2))
+                            ENDIF
+                            PLAYERNWINS(PLAYERNO) = PLAYERNWINS(PLAYERNO) + 1
+                        ELSE
+                            HANDREWARD%(HANDNUMBER) = INT(PLAYERNBET%(PLAYERNO) * 1.5)
+                            IF HANDNUMBER = 0 OR LASTPLAYER <=2 
+                              PLAYERNMESSAGE$(PLAYERNO) = "BLACKJACK  WON:" 
+                              PLAYERNMESSAGE$(PLAYERNO) =+ STR$(INT(PLAYERNBET%(PLAYERNO) * 1.5))
+                            ENDIF
+                            PLAYERNWINS(PLAYERNO) = PLAYERNWINS(PLAYERNO) + 1
+                        ENDIF
+                    ENDIF
+                ENDIF             
+                IF PLAYERNDRAWN(PLAYERNO) = 3            
+                    BONUSREWARD = 0           
+                    IF BONUS777 = 1                               
+                        C  = 0
+                        IF PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE +  0) = 7 THEN C = C + 1
+                        IF PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE +  1) = 7 THEN C = C + 1
+                        IF PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE +  2) = 7 THEN C = C + 1                
+                        IF C = 3
+                            IF PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  0) = PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  1) AND PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  0) = PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  2) 
+                                IF HANDNUMBER = 0 OR LASTPLAYER <=2 
+                                    PLAYERNMESSAGE$(PLAYERNO) = "SUITED 777  WON:" 
+                                    PLAYERNMESSAGE$(PLAYERNO) =+ STR$(INT(PLAYERNBET%(PLAYERNO) * 4))
+                                ENDIF
+                                HANDREWARD%(HANDNUMBER) =PLAYERNBET%(PLAYERNO) * 4
+                                BONUSREWARD = 1
+                                PLAYERNWINS(PLAYERNO) = PLAYERNWINS(PLAYERNO) + 1
+                            ELSE
+                                IF HANDNUMBER = 0 OR LASTPLAYER <=2 
+                                    PLAYERNMESSAGE$(PLAYERNO) = "777 BONUS  WON:" 
+                                    PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNBET%(PLAYERNO) * 3)
+                                ENDIF    
+                                HANDREWARD%(HANDNUMBER) = PLAYERNBET%(PLAYERNO) * 3
+                                BONUSREWARD = 1
+                                PLAYERNWINS(PLAYERNO) = PLAYERNWINS(PLAYERNO) + 1
+                            ENDIF
+                        ELSE
+                            IF PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  0) = PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  1) AND PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  0) = PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  2) AND SUIT21BONUS = TRUE AND BONUSREWARD = FALSE
+                                IF HANDNUMBER = 0 OR LASTPLAYER <=2 
+                                    PLAYERNMESSAGE$(PLAYERNO) = "SUITED 21  WON:"
+                                    PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNBET%(PLAYERNO) * 2)
+                                ENDIF
+                                HANDREWARD%(HANDNUMBER) =PLAYERNBET%(PLAYERNO) * 2
+                                BONUSREWARD = 1                    
+                                PLAYERNWINS(PLAYERNO) = PLAYERNWINS(PLAYERNO) + 1
+                            ENDIF
+                        ENDIF                
+                    ENDIF 
+                    IF BONUS678 = 1 AND BONUSREWARD = 0
+                        C  = 0
+                        IF PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE +  0) = 6 OR PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE +  1)  = 6 OR PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE +  2)  = 6 THEN C = C + 1
+                        IF PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE +  0) = 7 OR PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE +  1)  = 7 OR PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE +  2)  = 7 THEN C = C + 1
+                        IF PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE +  0) = 8 OR PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE +  1)  = 8 OR PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE +  2)  = 8 THEN C = C + 1
+                        IF C = 3 
+                            IF PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  0) = PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  1) AND PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  0) = PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  2) 
+                                IF HANDNUMBER = 0 OR LASTPLAYER <=2 
+                                    PLAYERNMESSAGE$(PLAYERNO) = "21  SUITED 678 BONUS   WON:" 
+                                    PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNBET%(PLAYERNO) * 4)
+                                ENDIF
+                                HANDREWARD%(HANDNUMBER) = PLAYERNBET%(PLAYERNO) * 4
+                                BONUSREWARD = 1
+                                PLAYERNWINS(PLAYERNO) = PLAYERNWINS(PLAYERNO) + 1
+                            ELSE  
+                                IF HANDNUMBER = 0 OR LASTPLAYER <=2
+                                    PLAYERNMESSAGE$(PLAYERNO) = "21  678 BONUS  WON:" 
+                                    PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNBET%(PLAYERNO) * 3)
+                                ENDIF
+                                HANDREWARD%(HANDNUMBER) = PLAYERNBET%(PLAYERNO) * 3
+                                BONUSREWARD = 1
+                                PLAYERNWINS(PLAYERNO) = PLAYERNWINS(PLAYERNO) + 1
+                            ENDIF
+                        ELSE
+                            IF PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  0) = PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  1) AND PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  0) = PLAYERSUCARDVAL(PLAYERNO*20+SPLITBASE +  2) AND SUIT21BONUS = TRUE AND BONUSREWARD = FALSE
+                                IF HANDNUMBER = 0 OR LASTPLAYER <=2 
+                                    PLAYERNMESSAGE$(PLAYERNO) = "SUITED 21 BONUS  WON:" 
+                                    PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNBET%(PLAYERNO) * 2)
+                                ENDIF
+                                HANDREWARD%(HANDNUMBER) = PLAYERNBET%(PLAYERNO) * 2
+                                BONUSREWARD = 1                 
+                                PLAYERNWINS(PLAYERNO) = PLAYERNWINS(PLAYERNO) + 1
+                            ENDIF
+                        ENDIF
+                    ENDIF 
+                    IF BONUSREWARD = 0 OR PLAYERNDRAWN(PLAYERNO) >=4 
+                        IF (HANDTOTAL > PLAYERNTOTAL(0) OR PLAYERNTOTAL(0) >= 22)  
+                            IF HANDNUMBER = 0 OR LASTPLAYER <=2 
+                                PLAYERNMESSAGE$(PLAYERNO) = "TOTAL :" 
+                                PLAYERNMESSAGE$(PLAYERNO) =+ STR$(HANDTOTAL) 
+                                PLAYERNMESSAGE$(PLAYERNO) =+ "  WON:" 
+                                PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNBET%(PLAYERNO))
+                            ENDIF
+                            HANDREWARD%(HANDNUMBER) = PLAYERNBET%(PLAYERNO) 
+                            PLAYERNWINS(PLAYERNO) = PLAYERNWINS(PLAYERNO) + 1
+                        ENDIF
+                        IF HANDTOTAL = PLAYERNTOTAL(0) 
+                            IF HANDNUMBER = 0 OR LASTPLAYER <=2 
+                                PLAYERNMESSAGE$(PLAYERNO) = "TOTAL :" 
+                                PLAYERNMESSAGE$(PLAYERNO) =+ STR$(HANDTOTAL) 
+                                PLAYERNMESSAGE$(PLAYERNO) =+ "    PUSH"
+                            ENDIF
+                            HANDREWARD%(HANDNUMBER) = 0
+                        ENDIF
+                    ENDIF            
+                 ENDIF
+            ELIF HANDTOTAL >= 22 
+                  IF HANDNUMBER = 0 OR LASTPLAYER <=2
+                        PLAYERNMESSAGE$(PLAYERNO) = STR$(HANDTOTAL)
+                        TEMPMESSAGE$ = STR$(PLAYERNBET%(PLAYERNO)) 
+                        IF LEN(TEMPMESSAGE$) <= 2 
+                          PLAYERNMESSAGE$(PLAYERNO) =+" BUSTED  LOST:"
+                        ELIF LEN(TEMPMESSAGE$) = 3
+                          PLAYERNMESSAGE$(PLAYERNO) =+" BUSTED LOST:"
+                        ELSE
+                          PLAYERNMESSAGE$(PLAYERNO) =+" BUST LOST:"
+                        ENDIF 
+                        PLAYERNMESSAGE$(PLAYERNO) =+ TEMPMESSAGE$
+                  ENDIF 
+                  HANDREWARD%(HANDNUMBER) =- PLAYERNBET%(PLAYERNO) 
+            ELIF PLAYERNDRAWN(PLAYERNO) <= -1 
+                  IF HANDNUMBER = 0 OR LASTPLAYER <=2 
+                        PLAYERNMESSAGE$(PLAYERNO) = "SURRENDERED LOST:" 
+                        PLAYERNMESSAGE$(PLAYERNO) =+ STR$(INT(PLAYERNBET%(PLAYERNO)/2))
+                  ENDIF
+                  HANDREWARD%(HANDNUMBER) = - INT(PLAYERNBET%(PLAYERNO) / 2)
+            ELIF HANDTOTAL < 22 
+                IF PLAYERNDRAWN(PLAYERNO) >= CARDCHARLIEWINSET AND PLAYERNDRAWN(PLAYERNO) <= 7
+                    IF HANDNUMBER = 0 OR LASTPLAYER <=2
+                        IF CARDCHARLIEWINSET = 5 
+                            PLAYERNMESSAGE$(PLAYERNO) = "5 CARD CHARLIE  WON:" 
+                            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNBET%(PLAYERNO))
+                        ENDIF
+                        IF CARDCHARLIEWINSET = 6
+                            PLAYERNMESSAGE$(PLAYERNO) = "6 CARD CHARLIE  WON:" 
+                            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNBET%(PLAYERNO))
+                        ENDIF
+                    ENDIF
+                    HANDREWARD%(HANDNUMBER) = PLAYERNBET%(PLAYERNO) 
+                    PLAYERNWINS(PLAYERNO) = PLAYERNWINS(PLAYERNO) + 1
+                ELSE
+                    IF (HANDTOTAL > PLAYERNTOTAL(0) OR PLAYERNTOTAL(0) >= 22 OR PLAYERNDRAWN(PLAYERNO) >= CARDCHARLIEWINSET)
+                        HANDREWARD%(HANDNUMBER) = PLAYERNBET%(PLAYERNO) 
+                        IF HANDNUMBER = 0 OR LASTPLAYER <=2
+                            PLAYERNMESSAGE$(PLAYERNO) = "TOTAL:" 
+                            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(HANDTOTAL) 
+                            PLAYERNMESSAGE$(PLAYERNO) =+ "  WON:" 
+                            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNBET%(PLAYERNO))
+                        ENDIF
+                        PLAYERNWINS(PLAYERNO) = PLAYERNWINS(PLAYERNO) + 1
+                    ENDIF
+                    IF HANDTOTAL = PLAYERNTOTAL(0) AND PLAYERNTOTAL(0) < 22                      
+                        IF DEALERTIEWINS = 1 AND PLAYERNTOTAL(0) = 17                     
+                            IF HANDNUMBER = 0 OR LASTPLAYER <=2  
+                                PLAYERNMESSAGE$(PLAYERNO) = "TIE:" 
+                                PLAYERNMESSAGE$(PLAYERNO) =+ STR$(HANDTOTAL) 
+                                PLAYERNMESSAGE$(PLAYERNO) =+ "  LOST:" 
+                                PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNBET%(PLAYERNO))
+                            ENDIF
+                            HANDREWARD%(HANDNUMBER) =- PLAYERNBET%(PLAYERNO) 
+                        ELSE                            
+                            PLAYERNMESSAGE$(PLAYERNO) = "TOTAL:"                             
+                            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(HANDTOTAL) 
+                            PLAYERNMESSAGE$(PLAYERNO) =+ "  PUSH"
+                            HANDREWARD%(HANDNUMBER) = 0
+                        ENDIF
+                    ENDIF                        
+                    IF HANDTOTAL < PLAYERNTOTAL(0) AND PLAYERNTOTAL(0) < 22
+                        IF HANDNUMBER = 0 OR LASTPLAYER <=2  
+                            PLAYERNMESSAGE$(PLAYERNO) = "TOTAL:" 
+                            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(HANDTOTAL) 
+                            PLAYERNMESSAGE$(PLAYERNO) =+ "  LOST:" 
+                            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNBET%(PLAYERNO))
+                        ENDIF
+                        HANDREWARD%(HANDNUMBER) =- PLAYERNBET%(PLAYERNO) 
+                    ENDIF
+                ENDIF
+            ENDIF
+            
+            IF HANDNUMBER = 1 
+                IF LASTPLAYER >=3
+                  PLAYERNMESSAGE$(PLAYERNO) = "T:" 
+                  PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+0))
+                  IF HANDREWARD%(0) > 0 
+                      PLAYERNMESSAGE$(PLAYERNO) =+ " W:" 
+                      PLAYERNMESSAGE$(PLAYERNO) =+ STR$(HANDREWARD%(0))
+                  ENDIF
+                  IF HANDREWARD%(0) < 0 
+                    PLAYERNMESSAGE$(PLAYERNO) =+ " L:" 
+                    PLAYERNMESSAGE$(PLAYERNO) =+ STR$(ABS(HANDREWARD%(0)))
+                  ENDIF
+                  IF HANDREWARD%(0) = 0
+                      PLAYERNMESSAGE$(PLAYERNO) =+ " P"
+                  ENDIF
+                  PLAYERNMESSAGE$(PLAYERNO) =+ "|T:" 
+                  PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+4))
+                  IF HANDREWARD%(1) > 0  
+                      PLAYERNMESSAGE$(PLAYERNO) =+" W:" 
+                      PLAYERNMESSAGE$(PLAYERNO) =+STR$(HANDREWARD%(1))
+                  ENDIF
+                  IF HANDREWARD%(1) < 0
+                      PLAYERNMESSAGE$(PLAYERNO) =+" L:" 
+                      PLAYERNMESSAGE$(PLAYERNO) =+STR$(ABS(HANDREWARD%(1)))
+                  ENDIF
+                  IF HANDREWARD%(1) = 0
+                      PLAYERNMESSAGE$(PLAYERNO) =+ " P"
+                  ENDIF
+                ELSE
+                ENDIF
+            ENDIF
+            
+            SPLITBASE = SPLITBASE + 7
+            IF PLAYERNSPLIT(PLAYERNO) <=1 OR PLAYERNSPLIT(PLAYERNO) =4 
+                    HANDNUMBER = 2
+            ELIF PLAYERNSPLIT(PLAYERNO) >= 2
+                    IF HANDNUMBER = 0 
+                        HANDNUMBER = 1
+                        IF LASTPLAYER <= 2 
+                          SECTION_NUMBER = PLAYERNO
+                          PLAYERNSPLIT(PLAYERNO) = 2
+                          EXEC SET_PLAYER_SCREEN_SECTION
+                          POSITION 21,4
+                          PRINT PLAYERNMESSAGE$(PLAYERNO)         
+                          PLAYERNSPLIT(PLAYERNO) = 3
+                        ENDIF
+                    ELSE
+                        HANDNUMBER = 2
+                    ENDIF
+'           ELIF PLAYERNSPLIT(PLAYERNO) =5
+'                   HANDNUMBER = HANDNUMBER + 1
+            ENDIF
+        UNTIL HANDNUMBER >=2
+        PLAYERNCASH%(PLAYERNUMBER) = PLAYERNCASH%(PLAYERNUMBER) + HANDREWARD%(0) + HANDREWARD%(1)
+    NEXT PLAYERNUMBER
+    ' BLACKJACKFORM.COMMANDDEAL.VISIBLE = TRUE
+    ROUNDSPLAYED = ROUNDSPLAYED + 1
+ENDPROC
+
+PROC PERFORM_SPLITDEAL 
+    CARDSPACING = 14
+    SECTION_NUMBER = PLAYERNO
+    EXEC SET_PLAYER_SCREEN_SECTION
+    IF LASTPLAYER < 3
+        H = PLAYERNO + 0
+        IF LASTPLAYER = 2 AND PLAYERNO = 2 
+            H = PLAYERNO + 1
+        ENDIF
+        POKE @NUMCARDS + H + 0,1
+        POKE @NUMCARDS + H + 1,1
+    ENDIF
+            
+    IF PLAYERNSPLIT(PLAYERNO) = 1    
+        FOR N = 7 TO 13
+            PLAYERBJCARDVAL(PLAYERNO*20+N) = 0
+            PLAYERPKCARDVAL(PLAYERNO*20+N) = 0
+        NEXT N
+        IF PLAYERNO >= 1 AND PLAYERNO <= 5
+            DRAWCARD_X = DISPPLAYERLEFT + 5 * N 
+            DRAWCARD_Y = PLAYER_SECTION_ADDRESS 
+            PLAYERBJCARDVAL(PLAYERNO*20+7) = PLAYERBJCARDVAL(PLAYERNO*20+1)        
+            PLAYERPKCARDVAL(PLAYERNO*20+7) = PKCARDVALUE(CARDORDER(CARDNO))
+            FOR N = 1 TO 6 
+                PLAYERBJCARDVAL(PLAYERNO*20+N) = 0
+                PLAYERPKCARDVAL(PLAYERNO*20+N) = 0
+            NEXT N
+            PLAYERNDRAWN(PLAYERNO) = 1
+            N = PLAYERNSPLITCARD(PLAYERNO)        
+            DRAWCARD_X = DISPPLAYERLEFT + 5 * 1
+            DRAWCARD_Y = PLAYER_SECTION_ADDRESS
+            EXEC DISPLAY_FRONT
+            NEWCARDVALUE = BJCARDVALUE(CARDORDER(CARDNO))
+            PLAYERBJCARDVAL(PLAYERNO*20+1) = BJCARDVALUE(CARDORDER(CARDNO))
+            PLAYERSUCARDVAL(PLAYERNO*20+1) = CARDSUITVALUE(CARDORDER(CARDNO))                            
+            PLAYERNDRAWN(PLAYERNO + 0) = 1
+            PLAYERNDRAWN(PLAYERNO + 4) = 1
+            PLAYERNSPLIT(PLAYERNO) = 3        
+            CARDNO = CARDNO - 1
+            SECTION_NUMBER = PLAYERNO
+            EXEC SET_PLAYER_SCREEN_SECTION                        
+            PLAYERBJCARDVAL(PLAYERNO*20+7) = BJCARDVALUE(CARDORDER(CARDNO))
+            PLAYERSUCARDVAL(PLAYERNO*20+7) = CARDSUITVALUE(CARDORDER(CARDNO))                        
+            DRAWCARD_X = DISPPLAYERLEFT 
+            DRAWCARD_Y = PLAYER_SECTION_ADDRESS
+            EXEC DISPLAY_CARD
+            CARDNO = CARDNO + 1
+            PLAYERNSPLIT(PLAYERNO) = 2
+            EXEC SET_PLAYER_SCREEN_SECTION
+            EXEC PERFORM_HIT
+            EXEC CALCTOTAL
+            PLAYERNSPLIT(PLAYERNO) = 3
+            EXEC SET_PLAYER_SCREEN_SECTION
+            EXEC PERFORM_HIT
+            EXEC CALCTOTAL           
+            PLAYERNSPLIT(PLAYERNO) = 2
+            
+            TEMPMESSAGE$ = " 0:"
+            TEMPMESSAGE$ =+ STR$(PLAYERBJCARDVAL(PLAYERNO*20+0)) 
+            TEMPMESSAGE$ =+ " 1:"
+            TEMPMESSAGE$ =+ STR$(PLAYERBJCARDVAL(PLAYERNO*20+1))
+            
+            TEMPMESSAGE$ =+ "   7:"
+            TEMPMESSAGE$ =+ STR$(PLAYERBJCARDVAL(PLAYERNO*20+7)) 
+            TEMPMESSAGE$ =+ " 8:"
+            TEMPMESSAGE$ =+ STR$(PLAYERBJCARDVAL(PLAYERNO*20+8))  
+            SECTION_NUMBER = 4
+            EXEC SET_PLAYER_SCREEN_SECTION
+            POSITION 2,4
+            PRINT TEMPMESSAGE$ 
+            SECTION_NUMBER = 0
+            EXEC SET_PLAYER_SCREEN_SECTION            
+            IF LASTPLAYER >= 3 
+              PLAYERNMESSAGE$(PLAYERNO) = STR$(PLAYERNTOTAL(PLAYERNO+0)) 
+              PLAYERNMESSAGE$(PLAYERNO) =+ "|" 
+              PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+4))
+            ELSE
+              EXEC SET_PLAYER_SCREEN_SECTION
+              PLAYERNMESSAGE$(PLAYERNO) = "TOTAL:"
+              PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+0))
+              TEMPMESSAGE$ = "T:"
+              TEMPMESSAGE$ =+ STR$(PLAYERNTOTAL(PLAYERNO+4))
+              POSITION 21,4
+              PRINT PLAYERNMESSAGE$(PLAYERNO)
+              POSITION 21,9
+              PRINT TEMPMESSAGE$
+              TEMPMESSAGE$ = ""               
+            ENDIF
+        ENDIF
+        PLAYERNDRAWN(PLAYERNO) = 2
+        EXEC SHOWSTATS
+     ELIF PLAYERNSPLIT(PLAYERNO) = 2 OR PLAYERNSPLIT(PLAYERNO) = 3
+            FOR N = 14 TO 20
+                PLAYERBJCARDVAL(PLAYERNO*20+N) = 0
+            NEXT N
+            G = DISPPLAYERLEFT + (PLAYERNO - 1) * DISPPLAYERSPACING + 148 + INT(DISPPLAYERSPACING * .17) 
+            H = DISPPLAYERTOP + DISPPLAYERVERTICAL * 0 
+            IF PLAYERNSPLIT(PLAYERNO) = 2
+                PLAYERBJCARDVAL(PLAYERNO*20+7) = PLAYERBJCARDVAL(PLAYERNO*20+1)        
+                FOR N = 1 TO 6 
+                    PLAYERBJCARDVAL(PLAYERNO*20+N) = 0
+                NEXT N
+                PLAYERNDRAWN(PLAYERNO) = 1
+            ENDIF     
+            IF PLAYERNSPLIT(PLAYERNO) = 3
+                PLAYERBJCARDVAL(PLAYERNO*20+14) = PLAYERBJCARDVAL(PLAYERNO*20+8)        
+                FOR N = 8 TO 13
+                    PLAYERBJCARDVAL(PLAYERNO*20+N) = 0
+                NEXT N
+                PLAYERNDRAWN(PLAYERNO) = 8
+            ENDIF   
+     ENDIF
+ENDPROC
+
+PROC PERFORM_NEXTHAND    
+    IF PLAYERNSPLIT(PLAYERNO) = 2 
+        IF LASTPLAYER < 3
+            SECTION_NUMBER = PLAYERNO
+            EXEC SET_PLAYER_SCREEN_SECTION
+'            PLAYERNMESSAGE$(PLAYERNO) = "T:"
+'            PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+4))
+             PLAYERNMESSAGE$(PLAYERNO) =+ "                   "
+             PLAYERNMESSAGE$(PLAYERNO) = PLAYERNMESSAGE$(PLAYERNO)[1,18]
+            POSITION 3,4
+            PRINT "                 "
+            POSITION 21,4
+            PRINT PLAYERNMESSAGE$(PLAYERNO)                                
+            IF LASTPLAYER = 2 AND PLAYERNO = 2
+                H = PLAYERNO + 2
+            ELSE
+                H = PLAYERNO + 1
+            ENDIF
+        ELSE    
+            H = PLAYERNO + 1
+        ENDIF
+        PLAYERNSPLIT(PLAYERNO) = 3
+        POKE @NUMCARDS + H,2
+        PLAYERNMESSAGE$(PLAYERNO) = "T:"
+        PLAYERNMESSAGE$(PLAYERNO) =+ STR$(PLAYERNTOTAL(PLAYERNO+4))
+        PLAYERNMESSAGE$(PLAYERNO) =+ "  "                                                                   
+    
+    ENDIF
+    IF PLAYERNSPLIT(PLAYERNO) = 3 AND PLAYERBJCARDVAL(PLAYERNO*20+14) > 0
+        PLAYERNSPLIT(PLAYERNO) = 4
+        PLAYERNDRAWN(PLAYERNO) = 15
+    ENDIF
+    EXEC CALCTOTAL
+ENDPROC
+
+PROC GETBETS    
+    GetBetPlayerNumber = 0
+    DisplayBetPlayerNumber = 0
+    N = 0
+    BETIN$ = ""
+    BETOK = 0
+    BETVAL = 0
+    ERRORMESSAGE$ = ""     
+    QUITBOXLEFT = 0
+    EXITGAME = 0
+    BETIN$ = ""   
+    POKE 752,0    
+    FOR DisplayBetPlayerNumber = 1 TO LASTPLAYER
+        SECTION_NUMBER = DisplayBetPlayerNumber 
+        EXEC SET_PLAYER_SCREEN_SECTION
+        POSITION 3,4:PRINT "$"
+        POSITION 4,4:PRINT PLAYERNCASH%(DisplayBetPlayerNumber)                
+    NEXT DisplayBetPlayerNumber
+    
+    
+    FOR GetBetPlayerNumber = 1 TO LASTPLAYER        
+        ERRORMESSAGE$ = ""
+        PLAYERNSPLIT(GetBetPlayerNumber) = 0
+        DPOKE 88,@SCREEN_ADDR
+        POSITION 12,4:PRINT "Place Bets     ";INVQ$;"uit."              
+        SECTION_NUMBER = GetBetPlayerNumber 
+        EXEC SET_PLAYER_SCREEN_SECTION
+        REPEAT
+            BETOK = FALSE            
+            FOR DisplayBetPlayerNumber = 1 TO LASTPLAYER
+                SECTION_NUMBER = DisplayBetPlayerNumber 
+                EXEC SET_PLAYER_SCREEN_SECTION
+                IF GetBetPlayerNumber <> DisplayBetPlayerNumber                 
+                    POSITION 12,4:PRINT "BET:    "
+                    POSITION 16,4:PRINT PLAYERNBET%(DisplayBetPlayerNumber)
+                ENDIF
+            NEXT DisplayBetPlayerNumber            
+            SECTION_NUMBER = GetBetPlayerNumber 
+            EXEC SET_PLAYER_SCREEN_SECTION
+            POSITION 12,4:PRINT "BET      "
+            POSITION 15,4
+            BETIN$ = ""            
+            INPUT BETIN$
+            IF LEN(BETIN$) > 4 
+                 BETIN$ = BETIN$[1,4] 
+                 IF BETIN$ = "    " THEN BETIN$ = "" 
+            ENDIF       
+            IF BETIN$="" 
+              IF EXITGAME = 0
+                  ERRORMESSAGE$ = "Must Enter Number"
+              ENDIF
+            ELSE                
+              IF BETIN$="Q" 
+                  EXITGAME = 1
+                  GetBetPlayerNumber = 5
+              ELSE
+                EXITGAME = 0
+                BETVAL = VAL(BETIN$)
+                IF BETVAL > 9 AND BETVAL<1001 
+                  BETOK = 1
+                  ERRORMESSAGE$ = ""
+                  PLAYERNBET%(GetBetPlayerNumber) = BETVAL                
+                ELIF BETVAL>1000 
+                     ERRORMESSAGE$ = "Maximum Bet:1000 "
+                ELIF BETVAL<10 
+                    ERRORMESSAGE$ = "Minimal Bet:10   "
+                ENDIF
+              ENDIF
+            ENDIF
+            IF ERRORMESSAGE$ <> "" 
+                BETOK = 0
+                POSITION 22,4
+                PRINT ERRORMESSAGE$
+            ENDIF                        
+        UNTIL BETOK = 1 OR EXITGAME = 1
+    NEXT GetBetPlayerNumber
+ENDPROC
+
+PROC SHOWSTATS
+    DisplayBetPlayerNumber = 0
+    DISPDEALERLEFT = 0
+    ' TEXT 2, 2,  "CARDNO : " + STR$(CARDNO) + " / " + STR$(TOTALCARDS)
+    FOR DisplayBetPlayerNumber = 0 TO LASTPLAYER        
+        IF DisplayBetPlayerNumber = 0 
+            DPOKE 88,@SCREEN_ADDR
+            POSITION 0,4
+            PRINT "Dealer"
+            PLAYERNMESSAGE$(DisplayBetPlayerNumber) =+ "                   "
+            PLAYERNMESSAGE$(DisplayBetPlayerNumber) = PLAYERNMESSAGE$(DisplayBetPlayerNumber)[1,18]
+            POSITION 21,4
+            PRINT PLAYERNMESSAGE$(DisplayBetPlayerNumber)
+        ELSE
+ 
+            'PLAYERNMESSAGE$(DisplayBetPlayerNumber) = ""
+            'PLAYERNMESSAGE$(DisplayBetPlayerNumber) =+ STR$(PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE+0)) 
+            'PLAYERNMESSAGE$(DisplayBetPlayerNumber) =+ " "
+            'PLAYERNMESSAGE$(DisplayBetPlayerNumber) =+ STR$(PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE+1)) 
+            'PLAYERNMESSAGE$(DisplayBetPlayerNumber) =+ " "
+            'PLAYERNMESSAGE$(DisplayBetPlayerNumber) =+ STR$(PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE+2)) 
+            'PLAYERNMESSAGE$(DisplayBetPlayerNumber) =+ " "
+            'PLAYERNMESSAGE$(DisplayBetPlayerNumber) =+ STR$(PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE+3)) 
+            'PLAYERNMESSAGE$(DisplayBetPlayerNumber) =+ " "
+            'PLAYERNMESSAGE$(DisplayBetPlayerNumber) =+ STR$(PLAYERBJCARDVAL(PLAYERNO*20+SPLITBASE+4)) 
+
+
+
+            SECTION_NUMBER = DisplayBetPlayerNumber 
+            EXEC SET_PLAYER_SCREEN_SECTION
+            POSITION 0,4            
+            IF PLAYERNSPLIT(DisplayBetPlayerNumber) <=1
+              H = 0
+              PRINT "P";STR$(DisplayBetPlayerNumber)
+            ELIF PLAYERNSPLIT(DisplayBetPlayerNumber) = 2 
+              H = 0
+              PRINT "H1"
+              IF LASTPLAYER <=2 
+                  POSITION 0,9
+                  PRINT "H2"
+              ENDIF
+            ELIF PLAYERNSPLIT(DisplayBetPlayerNumber) >= 3
+              PRINT "H2"
+              H = 4
+            ENDIF            
+                        
+            IF LEN(PLAYERNMESSAGE$(DisplayBetPlayerNumber)) <= 18
+              POSITION 3,4:PRINT "$"
+              POSITION 4,4:PRINT PLAYERNCASH%(DisplayBetPlayerNumber)                
+              POSITION 12,4:PRINT "BET:    "
+              POSITION 16,4:PRINT PLAYERNBET%(DisplayBetPlayerNumber)
+              PLAYERNMESSAGE$(DisplayBetPlayerNumber) =+ "                    "
+              PLAYERNMESSAGE$(DisplayBetPlayerNumber) = PLAYERNMESSAGE$(DisplayBetPlayerNumber)[1,18]
+              POSITION 21,4
+              PRINT PLAYERNMESSAGE$(DisplayBetPlayerNumber)              
+            ELSE
+              PLAYERNMESSAGE$(DisplayBetPlayerNumber) =+ "                          "
+              PLAYERNMESSAGE$(DisplayBetPlayerNumber) = PLAYERNMESSAGE$(DisplayBetPlayerNumber)[1,24]
+              POSITION 0,4:PRINT "                   "
+              POSITION 0,4:PRINT "$"
+              POSITION 1,4:PRINT PLAYERNCASH%(DisplayBetPlayerNumber)
+              POSITION 8,4:PRINT "B:"
+              POSITION 10,4:PRINT PLAYERNBET%(DisplayBetPlayerNumber)
+              POSITION 15,4              
+              PRINT PLAYERNMESSAGE$(DisplayBetPlayerNumber)
+            ENDIF 
+        ENDIF
+    NEXT DisplayBetPlayerNumber
+    DPOKE 88,@SCREEN_ADDR
+    POKE 752,1
+ENDPROC
+
+PROC SHOWCOMMANDS    
+    SPLITEXTRALEFT = 0
+    GAME_COMMAND$ = ""
+    DisplayBetPlayerNumber = 0
+    IF PLAYERNSPLIT(PLAYERNO) = 3 OR PLAYERNSPLIT(PLAYERNO) = 4 
+        SPLITEXTRALEFT = 0
+    ELSE
+        SPLITEXTRALEFT = 0
+    ENDIF
+    DisplayBetPlayerNumber = PLAYERNO - 1
+    GAME_COMMAND$ =+ INVH$ 
+    GAME_COMMAND$ =+ "IT "
+    GAME_COMMAND$ =+ INVS$ 
+    GAME_COMMAND$ =+ "TAND "
+        
+    IF PLAYERNDOUBLEUSED(PLAYERNO) = 0 
+        GAME_COMMAND$ =+ INVD$ 
+        GAME_COMMAND$ =+ "OUBLE "
+    ENDIF    
+    IF PLAYERNSPLIT(PLAYERNO) = 1 AND PLAYERNDRAWN(PLAYERNO) <= 2
+        GAME_COMMAND$ =+ "SPLI"
+        GAME_COMMAND$ =+ INVT$ 
+        GAME_COMMAND$ =+ " "
+    ENDIF    
+    IF ALLOWSURRENDER = TRUE AND PLAYERNDRAWN(PLAYERNO) = 2 AND PLAYERNSPLIT(PLAYERNO) <= 1
+        GAME_COMMAND$ =+ "S"
+        GAME_COMMAND$ =+ INVU$ 
+        GAME_COMMAND$ =+ "RRENDER "
+    ENDIF
+    IF INSURANCE_STATUS = 1 
+        GAME_COMMAND$ =+ INVI$ 
+        GAME_COMMAND$ =+ "NSURANCE "    
+    ENDIF
+    SECTION_NUMBER = PLAYERNO
+    EXEC SET_PLAYER_SCREEN_SECTION
+    IF PLAYERNSPLIT(PLAYERNO) <=1
+        POSITION 0,4
+        PRINT INVP$;CHR$(176+PLAYERNO)
+    ELIF PLAYERNSPLIT(PLAYERNO) = 2
+        POSITION 0,4
+        PRINT INVH$;CHR$(177)
+        POSITION 0,9
+        PRINT INVH$;CHR$(178)        
+    ENDIF
+    SECTION_NUMBER = 0
+    EXEC SET_PLAYER_SCREEN_SECTION
+    POSITION 0,4
+    IF LEN(GAME_COMMAND$) < 28      
+      PRINT "Dealer                                 "
+      POSITION 10,4
+      PRINT GAME_COMMAND$
+    ELSE
+      POSITION 0,4
+      PRINT GAME_COMMAND$
+    ENDIF
+ENDPROC
+
+PROC SET_PLAYER_SCREEN_SECTION      
+      IF SECTION_NUMBER = 0
+          DPOKE 88,@SCREEN_ADDR + 000
+      ELIF SECTION_NUMBER = 1 AND LASTPLAYER < 3
+          IF PLAYERNSPLIT(SECTION_NUMBER) < 3
+              DPOKE 88,@SCREEN_ADDR + 200
+          ELSE
+              DPOKE 88,@SCREEN_ADDR + 400
+          ENDIF
+      ELIF SECTION_NUMBER = 1 AND LASTPLAYER >= 3
+          DPOKE 88,@SCREEN_ADDR + 200 
+      ELIF SECTION_NUMBER = 2 AND LASTPLAYER < 3
+          IF PLAYERNSPLIT(SECTION_NUMBER) < 3
+              DPOKE 88,@SCREEN_ADDR + 600
+          ELSE
+              DPOKE 88,@SCREEN_ADDR + 800
+          ENDIF
+      ELIF SECTION_NUMBER = 2 AND LASTPLAYER >= 3          
+          DPOKE 88,@SCREEN_ADDR + 400
+      ELIF SECTION_NUMBER = 3
+          DPOKE 88,@SCREEN_ADDR + 600
+      ELIF SECTION_NUMBER = 4
+          DPOKE 88,@SCREEN_ADDR + 800
+      ENDIF
+      PLAYER_SECTION_ADDRESS = DPEEK(88)
+ENDPROC
+
+PROC SHUFFLEDECKS
+    B = 0
+    I = 0
+    J = 0
+    K = 0
+    L = 0
+    N = 0
+    M = 0
+    O = 0
+    ' ****   F AS FLOAT
+    H = 0
+    G0 = 0
+    G1 = 0
+    G2 = 0
+    DPOKE 88,@SCREEN_ADDR
+    
+    POSITION 12,4
+    PRINT "..Shuffling.."
+ 
+    ' ****   DIS$ = ""
+    
+    ' ****   DIS$ = MID$(GET DATE$,5) + MID$(GET DATE$,4) + MID$(GET DATE$, 2) + MID$(GET DATE$,8) 
+    ' ****   J = VAL(DIS$)
+    
+    ' ****   G1 = SELECTED_RES_Y * .2 + 24
+    ' ****   F = (SELECTED_RES_X * 0.6) / TOTALCARDS
+    FOR I = 0 TO TOTALCARDS + JOKERSPRESANT
+        CARDORDER(I) = 255
+        ' ****   SPRITEI+1, SELECTED_RES_X * .18 + F * I  , G1 , CARDBACKIMAGE
+    NEXT I
+    REPEAT
+        J = 5 + RAND(4) * 2
+    UNTIL (TOTALCARDS MOD J) > 0 AND ((TOTALCARDS + 1) MOD J) <> 2 AND ((TOTALCARDS + 1) MOD J) <> 3 AND ((TOTALCARDS + 1) MOD J) <> 4
+    CARDNO = 0
+    FOR I = 0 TO TOTALCARDS + JOKERSPRESANT
+        IF CARDORDER(I) = 255
+            CARDORDER(I) = CARDNO 
+            CARDNO = (CARDNO + J) MOD (TOTALCARDS + 1 + JOKERSPRESANT)
+        ENDIF
+    NEXT I
+    CARDNO = 0
+    M = 0
+    FOR M = 0 TO NUMBER_OF_DECKS
+        FOR I = 0 TO TOTALCARDS            
+            J = RAND(TOTALCARDS + JOKERSPRESANT)
+            IF I = J THEN J = RAND(TOTALCARDS + JOKERSPRESANT)
+            IF I = J THEN J = RAND(TOTALCARDS + JOKERSPRESANT)
+            K = CARDORDER(J)
+            CARDORDER(J) = CARDORDER(I)
+            CARDORDER(I) = K            
+        NEXT I
+        IF M = 1 
+            FOR I = 0 TO TOTALCARDS + JOKERSPRESANT
+                OLDORDER(I) = CARDORDER(I)
+            NEXT I    
+        ENDIF
+    NEXT M
+    IF NUMBER_OF_DECKS <= 4
+        L = 4
+    ELIF NUMBER_OF_DECKS <= 6
+        L = 7
+    ELSE
+        L = 10
+    ENDIF  
+    ' ****   G2 = SELECTED_RES_Y * .8 
+    ' ****   G1 = SELECTED_RES_Y * .6
+    ' ****   G0 = SELECTED_RES_Y * .4
+    I = 0 
+   REPEAT
+       K = OLDORDER(I)
+       J = CARDORDER(I)
+       IF (I MOD L) = 1
+           ' ****   SPRITEK+1, SELECTED_RES_X * .36 + F * K * .5 , G0 , CARDBACKIMAGE
+       ENDIF
+       IF (I MOD L) = 2
+           ' ****   SPRITEK+1, SELECTED_RES_X * .36 + F * J * .5  , G1 , CARDBACKIMAGE
+       ENDIF
+       ' ****   SPRITEK+1, SELECTED_RES_X * .18 + F * J  , G2 , CARDBACKIMAGE
+       ' **** SET    SPRITEPRIORITY K+1,J+1      
+       I = I + 1
+   UNTIL I > TOTALCARDS + JOKERSPRESANT
+    CARDNO = 0
+   FOR I = 0 TO  TOTALCARDS + JOKERSPRESANT
+      ' ****   SPRITEI+1, -200, -200, CARDIMAGE(I)
+   NEXT I
+    
+    POSITION 12,4
+    PRINT "             "
+    
+ENDPROC
+
+PROC INIT_DEFAULTS
+    LASTPLAYER = 1
+    DECKSIZE = 52    
+    NUMBER_OF_DECKS = 4
+    DBL_DOWN_SET = 0
+    SPLITSET = 0
+    BONUS777 = 1
+    BONUS678 = 0
+    DEALERTIEWINS  = 0
+    DEALERSOFT17HIT = 0
+    CARDCHARLIEWINSET = 6
+    SUIT21BONUS  = 0    
+    COLOR21BONUS  = 0    
+    DBL_DOWN_3UP = 0           
+    ALLOWSURRENDER = 0   
+ENDPROC
+
+
+PROC TITLE_SCREEN             
+   A = 0
+   B = 0
+   C = 0
+   I = 0
+   J = 0
+   K = 0   
+   L = 0   
+   N = 0
+   CONSOL_DOWN = 0
+   SELECTED = 0
+   POKE @DLIV1,SELECTED   
+   MOUSECLICK = 0
+   BUTTONUP = 0
+   SELECTED_MODE = 0
+   MX = 0
+   MY = 0
+   ' SET WINDOW OFF
+   ' SET DISPLAY MODE 1024,768,32
+   ' SELECTED_BITDEPTH=32
+   ' **** EMPTY CHECKLIST
+   ' **** PERFORM CHECKLIST FOR DISPLAY MODES
+    A = 1
+    N = 1
+    B = 0 
+    
+'   SET WINDOW ON
+'   REPEAT
+      RESET_TITLE = 0
+      POKE 82,0
+      POKE 710,210:POKE 709,10:POKE 712,210
+      POKE 756,@CHARSET_GAME_HI
+      DPOKE 560,@display_list_title
+      DPOKE $0224,@TITLE_VBI
+      DPOKE $0200,@TITLE00_DLI
+      DPOKE 88,@SCREEN_ADDR
+      POKE $D40E,192
+      POKE @DLIV0,0
+      POKE @DLIV1,0
+      POKE 752,1
+      POSITION 0,0
+      CLS
+      PRINT "   ATARI CASINO         BLACK JACK     "
+      POSITION 0,1      
+      PRINT "               A Game By Peter J. Meyer"
+
+
+      POSITION 0,4
+      PRINT "   Deck Size:"
+      'POSITION 0,5
+      PRINT "Number Decks:"
+      'POSITION 0,6
+      PRINT " Dealer Hits:"     
+      'POSITION 0,7     
+      PRINT "  Dealer Tie:"
+      'POSITION 0,8
+      PRINT "  Black Jack:"
+      'POSITION 0,9 
+      PRINT " Double Down:"
+      'POSITION 0,10
+      PRINT "Unbust Limit:"
+      'POSITION 0,11
+      PRINT "  Split Rule:"
+      'POSITION 0,12
+      PRINT "   Surrender:"
+      'POSITION 0,13
+      PRINT "   777 Bonus:"
+      'POSITION 0,14
+      PRINT "   678 Bonus:"
+      'POSITION 0,15
+      PRINT "     Players:"
+                                                                                            
+      POSITION 1,19
+      PRINT "Select to Advance    Option to Change"
+      POSITION 10,20
+      PRINT "Press Start to Begin"
+
+     EXEC SHOW_OPTIONS
+     
+     REPEAT
+        IF PEEK($D01F) <> 7 
+          IF CONSOL_DOWN = 0
+            IF PEEK($D01F) = 5 
+              SELECTED=PEEK(@DLIV1)
+              SELECTED = SELECTED + 1
+              IF SELECTED>11 THEN SELECTED=0
+              POKE @DLIV1,SELECTED              
+            ELIF PEEK($D01F) = 3
+               A=PEEK(@DLIV1)
+               EXEC Change_Game_Option
+               EXEC SHOW_OPTIONS
+            ENDIF          
+            CONSOL_DOWN = 150
+          ELSE
+            CONSOL_DOWN = CONSOL_DOWN - 1 
+          ENDIF
+        ELSE
+          CONSOL_DOWN = 0
+        ENDIF   
+     UNTIL PEEK($D01F) = 6
+     POKE $D40E,064
+     POKE 710,210:POKE 709,10:POKE 712,210      
+
+''    UNTIL SELECTING=2 OR SELECTING=3
+    
+   'REM GET IMAGE 255,0,0,640,480
+   'REM SAVE IMAGE "TITLE SCREEN SHOT.BMP",255
+ENDPROC
+
+PROC SHOW_OPTIONS
+      POSITION 13,4
+      'Deck size can be 48 or 52 cards, 56 Deck Size disabled
+      IF DECKSIZE = 48
+        PRINT "48 CARD DECKS(Spanish 21)"
+      ELIF DECKSIZE = 52
+        PRINT "52 CARD DECKS(Standard)  "
+      ELIF DECKSIZE = 56
+        PRINT "56 CARD DECKS(Fantasy)   "
+      ENDIF
+      
+
+      POSITION 13,5
+      'Number of Decks can 4,6,or 8 Decks
+      IF NUMBER_OF_DECKS = 4
+        PRINT "FOUR DECKS  "
+      ELIF NUMBER_OF_DECKS = 6
+        PRINT "SIX DECKS   "
+      ELIF NUMBER_OF_DECKS = 8
+        PRINT "EIGHT DECKS "
+      ENDIF
+
+      
+
+      POSITION 13,6
+      IF DEALERSOFT17HIT = 0
+        PRINT "HOLDS ON 17 OR MORE      "
+      ELSE
+        PRINT "DEALER HITS SOFT 17      "
+      ENDIF
+
+
+      POSITION 13,7
+      IF DEALERTIEWINS = 0
+        PRINT "BET RETURNED. PUSH.      "
+      ELSE
+        PRINT "LOOSE BET, GOES TO DEALER"
+      ENDIF
+     
+      POSITION 13,8 
+      IF SUIT21BONUS = 0
+          PRINT "NO BLACKJACK BONUS ALL 3:2"
+      ELIF SUIT21BONUS = 1
+          PRINT "SUIT BLACKJACK PAYS 2:1   "
+      ELIF SUIT21BONUS = 2                    
+          PRINT "SAME COLOR  PAYS 2:1      "
+      ENDIF
+
+
+      POSITION 13,9 
+      IF DBL_DOWN_SET = 0
+         PRINT "ANY TOTAL ALLOWED  "
+      ELIF DBL_DOWN_SET = 1
+         PRINT "10 OR 11 ONLY      "
+      ELIF DBL_DOWN_SET = 2
+         PRINT "9, 10, OR 11 ONLY  "
+      ELSE  
+         PRINT "UPTO 3 CARDS       "
+      ENDIF
+
+     
+    
+     POSITION 13,10
+     IF CARDCHARLIEWINSET = 6 
+          PRINT "SIX CARD CHARLIE WINS  "
+     ELSE  
+          PRINT "FIVE CARD CHARLIE WINS "
+     ENDIF
+
+
+      POSITION 13,11
+      IF SPLITSET = 0
+          PRINT "SPLIT ANY PAIR 10=(J,Q,K)"
+      ELIF SPLITSET = 1
+          PRINT "SPLIT EXACT PAIR         "
+      ELSE  
+          PRINT "NO SPLIT ACES            "
+      ENDIF
+
+
+
+     POSITION 13,12
+     IF ALLOWSURRENDER = 0
+        PRINT "NO PLAYER SURRENDER      "
+     ELSE
+        PRINT "ALLOWED HALF BET RETURNED"
+     ENDIF  
+  
+
+
+
+     POSITION 13,13
+     IF BONUS777 < 2 
+        PRINT BONUS_777_OPTION_SHOW$(BONUS777)
+     ENDIF
+
+  
+
+     POSITION 13,14  
+     IF BONUS678<2
+        PRINT BONUS_678_OPTION_SHOW$(BONUS678)
+     ENDIF
+
+     POSITION 13,15
+     I = LASTPLAYER - 1 
+     IF I < 4
+           PRINT NUMBER_OF_PLAYERS_OPTION_SHOW$(I)
+     ENDIF
+ENDPROC
+
+PROC Change_Game_Option
+    SELECTED=PEEK(@DLIV1)
+    IF SELECTED = 0 
+        'Deck size can be 48 or 52 cards. 56 Card Deck Disabled.
+        DECKSIZE = DECKSIZE + 4
+        IF DECKSIZE >=56 THEN DECKSIZE = 48      
+    ELIF SELECTED = 1
+        'Number of Decks can 4,6,or 8 Decks
+        NUMBER_OF_DECKS = NUMBER_OF_DECKS + 2
+        IF NUMBER_OF_DECKS >= 10 THEN NUMBER_OF_DECKS = 4 
+    ELIF SELECTED = 2
+        'A soft hit is when dealer has 17 with an Ace, be able to hit again, and if over 21, Ace becomes 1.
+        IF DEALERSOFT17HIT = 0 
+          DEALERSOFT17HIT = 1
+        ELSE
+          DEALERSOFT17HIT = 0
+        ENDIF    
+    ELIF SELECTED = 3
+        'Some Casino's have a push rule, if tie, bet is returned.
+        IF DEALERTIEWINS = 0
+            DEALERTIEWINS = 1
+        ELSE
+            DEALERTIEWINS = 0
+        ENDIF
+    ELIF SELECTED = 4
+        'Blackjack on opening deal. If two hards are same suit or color, 2x bet is paid out'
+        SUIT21BONUS = SUIT21BONUS + 1
+        IF SUIT21BONUS >=3 THEN SUIT21BONUS = 0
+    ELIF SELECTED = 5
+        DBL_DOWN_SET = DBL_DOWN_SET + 1
+        IF DBL_DOWN_SET >=3 THEN DBL_DOWN_SET = 0    
+    ELIF SELECTED = 6
+        CARDCHARLIEWINSET = CARDCHARLIEWINSET + 1
+        IF CARDCHARLIEWINSET >=7 THEN CARDCHARLIEWINSET = 5
+    ELIF SELECTED = 7
+         SPLITSET = SPLITSET + 1
+         IF SPLITSET>=3 THEN SPLITSET = 0
+    ELIF SELECTED = 8
+       IF ALLOWSURRENDER = 0
+          ALLOWSURRENDER = 1
+       ELSE
+          ALLOWSURRENDER = 0
+       ENDIF      
+    ELIF SELECTED = 9
+        IF BONUS777 = 0
+            BONUS777 = 1
+        ELSE
+            BONUS777 = 0
+        ENDIF
+    ELIF SELECTED = 10
+       IF BONUS678 = 0
+          BONUS678 = 1
+       ELSE
+          BONUS678 = 0
+       ENDIF    
+    ELIF SELECTED = 11
+      LASTPLAYER = LASTPLAYER + 1
+      IF LASTPLAYER >=5 THEN LASTPLAYER = 1    
+    ENDIF    
+      
+
+
+ENDPROC
+
+
+
+     
+    
+
+  
+
+
+
diff --git a/make_blackjack.bat b/make_blackjack.bat
new file mode 100644
index 0000000..98c3a16
--- /dev/null
+++ b/make_blackjack.bat
@@ -0,0 +1,19 @@
+set PATH=..\fastbasic;..\bin
+
+rem -c:fastbasic_custom.cfg
+
+fb ..\Fast_Basic_Projects\BlackJackFB.bas ..\Fast_Basic_Projects\BLACKJACKFB_ML_DAT.asm
+
+rem fastbasic-fp BlackJackFB.bas BlackJackFB.asm 
+
+rem ca65 -t atari -o BLACKJACKFB_ML_DAT.o BLACKJACKFB_ML_DAT.asm -l BLACKJACKFB_ML_DAT.txt
+
+rem ca65 -t atari -o BlackJackFB.o BlackJackFB.asm -l BlackJackFB.txt
+
+rem cl65 -t atari -C fastbasic.cfg BlackJackFB.o fastbasic-fp.lib BLACKJACKFB_ML_DAT.o -o BlackJackFB.XEX
+
+rem ld65      -C fastbasic.cfg BlackJackFB.o BLACKJACKFB_ML_DAT.o -o BlackJackFB.XEX fastbasic-fp.lib 
+
+
+
+pause