Rb
:{BACCARAT   VER 1.0   04/13/79yb:{COPYRIGHT (C) 1979, TANDY CORP.c
 IN$,W$,WL,WL%,WD,WS,FL:
210Nc(IN$U"":W1$UI:WDU0:BU0:WSUWD:WL%UWD:FLUWDJFLU1sc22D(Y(FL),w(136));D(Y(FL),w(24));Gc<2w(14);:
W%U1=25:W1$UI:W1$VT""J70::2w(15);:
W%U1=25:W1$UI:W1$VT""J70::
60ncFW1$VTw(13)J90:2D(Y(FL)NWL%," ");dP2w(15);:W%U25::.dZ2w(14);:W1$Uw(24)J2D(WL%,w(24));:
40qddW1$VTw(8)J140:WL%U0J60:2w(24);:FLT0J120:e(16418)U44J130+dne(16418)U46JWDU0:
120:e(16418)U43Se(16418)U45JWSU0CdxIN$Ux(IN$,s(IN$)N1)`dWL%UWL%N1:116418,136:
60eY(FL)UWL%J60:FLT0JW1$TU" "RW1$VU"Z"J190,eW1$U"."RWDU0JWDU1:
190Ne W1$U","J2W1$;:WL%UWL%M1:
200ze*(W1$U"-"SW1$U"+")RWSU0RWL%U0JWSU1:
190e4W1$V"0"SW1$T"9"J602e>2W1$;:IN$UIN$MW1$:WL%UWL%M1FeHY(FL)U1J80:60`fR:81500::BND,FNZ:EU30:S,D:
A(12),A1(12),PB(12),DB(12),DN(12),SN(12),ST(14),S(9,5),S!(416),DE(52),SX(13),M(52):PA(1)U243:PA(2)U755:PA(3)U491:SFU"C"_f\:2w(23):2@4,"*  B  A  C  C  A  R  A  T  *":2@448,"YOUR TRS-80 WILL BE BUSY FOR ONE";:2"MINUTE SETTING UP GRAPHIC ARRAYS";
gf
NU0=9:
N1U1=5:
N2U1=8:RD:S(N,N1)US(N,N1)Mw(RD):N2,N1,N:S1UD(10,32):S2Uw(143)Mw(143):
NU1=14:RD:ST(N)Uw(RD)::
NU1=11:RD:SRUSRMw(RD)::SPU"$$###,###.##+".hp
NU1=13:SX(N)::SUw(157)Mw(174):
NU1=4:S3US3MS::SHUw(191)Mw(140)Mw(140)Mw(191):SGUw(179)Mw(140)Mw(179):SW(1)USGM" WON "MSG:SW(2)USW(1):
NU1=17:RD:SW(3)USW(3)Mw(RD):PhSB(1)UD(11,32):SB(2)USB(1):SB(3)UD(17,32):S4Uw(179)MD(2,140)Mw(179):
NU1=12:PB(N)::
NU1=12:DB(N)U" ":A(N)U0::S7US2:
NU1=8:RD:S7US7Mw(32)Mw(RD)Mw(32)MS2:mi

NU1=13:DE(N)USX(N)M"  CLUBS"::
NU1=13:DE(NM13)USX(N)M" HEARTS"::
NU1=13:DE(NM26)USX(N)M" SPADES"::
NU1=13:DE(NM39)USX(N)M" D'MNDS"::
NU1=8:SE(N):!i
AAUZ(AA$)::2<11)"*  B  A  C  C  A  R  A  T  *"xi
FLUN2:2@75,"HOW MANY PLAYERS  (1 TO 12)  ";:40:PXUu(IN$):PXV1SPXT12J280:
NU1=PX=j"
FLU8:2:2<11)"ENTER NAME OF PLAYER NUMBER ";N;"  ";:40:SN(N)UIN$Mj,
:AAUZ(AA$)[j6
940:
670ej@
 910tjJ
GUGM1:SIUI0jT
COUCOM1:x(DE(S!(CO)),1)U"A"JC(2)U1:C(2)Uu(DE(S!(CO)))xj^
PU0:
NU1=5:2@578MP,S(C(2),N);:PUPM64::2@898,DE(S!(CO));:
NU1=300:4kh
COUCOM1:x(DE(S!(CO)),1)U"A"JC(1)U1:C(1)Uu(DE(S!(CO)))kr
PU0:
NU1=5:2@66MP,S3;:PUPM64::2@386,w(140);" BACK ";w(140);:SM(1)UDE(S!(CO)):
NU1=300:Mk|
COUCOM1:x(DE(S!(CO)),1)U"A"JC(4)U1:C(4)Uu(DE(S!(CO)))l
PU0:
NU1=5:2@591MP,S(C(4),N);:PUPM64::2@911,DE(S!(CO));:
NU1=300:Ql
COUCOM1:x(DE(S!(CO)),1)U"A"JC(3)U1:C(3)Uu(DE(S!(CO))).l
PU0:
NU1=5:2@79MP,S3;:PUPM64::2@399,w(140);" BACK ";w(140);:SM(3)UDE(S!(CO)):
NU1=300:Nl$
BAUC(1)MC(3):BAT9JBAUBAN10nl.
PLUC(2)MC(4):PLT9JPLUPLN10m8
BAT7J2@371,w(143);" NATURAL ";w(143);:
630ImB
PU0:
NU1=5:2@618MP,S(PL,N);:PUPM64::PLU9J2@1005,w(143);" LA GRANDE ";w(143);:
630:PLU8J2@1005,w(140);" LA PETITE ";w(140);:
630:PLT52@1005,S2;" MUST STAND ";S2;BnL
PLV5J2@1005,S2;" MUST HIT ";S2;:PLU5RSFU"C"J2@1005,S2;" MUST HIT ";S2;:PLU5J2@1005,S2;" HIT OPTIONAL ";S2;:
490
nV
SIU"":SIUI:2@500,SG;:
NU1=200::2@500,D(3,32);:
NU1=75::SIU""J470:n`
2@1005,SB(3);:PLVT5J500I:PLU5RSFU"C"J500oj
SIU"":SIUI:2@734,SH;:
NU1=200::2@734,D(4,32);:
NU1=75::SIU""J490:SIUw(13)J530:SIVT"H"J4902ot
PLV6JPU0:530no~
COUCOM1:x(DE(S!(CO)),1)U"A"JC(6)U1:C(6)Uu(DE(S!(CO)))Ao
NU1=5:2@604MP,S(C(6),N);:PUPM64::2@924,DE(S!(CO));:PLUPLMC(6):PLT9JPLUPLN10ZoBAU7J2@222,S4;:
630pBAU6RC(6)U6SBAU6RC(6)U7J600:BAU6J2@222,S4;:
630yp&BAU5RC(6)UN1J600:BAU5RC(6)U4J590:BAU5RC(6)U5SBAU5RC(6)U6SBAU5RC(6)U7J600:BAU5J2@222,S4;:
630[p0BAU4RC(6)UN1J600:BAU4RC(6)U0SBAU4RC(6)U1SBAU4RC(6)U8SBAU4RC(6)U9J2@222,S4;:
630:BAU4J600
q:BAU3RC(6)U8J2@222,S4;:
630:BAU3RC(6)U9J590qD
600ZqNSFU"C"J600:2@424,D(9,93);" HIT OPTIONAL ";:VU^(100):VT50J630qXCOUCOM1:x(DE(S!(CO)),1)U"A"JC(5)U1:C(5)Uu(DE(S!(CO)))4qbBAUBAMC(5):BAT9JBAUBAN10{qlPU0:
NU1=5:2@92MP,S(C(5),N);:PUPM64::2@412,DE(S!(CO));:
NU1=300:ervPU0:
NU1=5:2@66MP,S(C(1),N);:PUPM64::2@386,SM(1);:PU0:
NU1=5:2@79MP,S(C(3),N);:PUPM64::2@399,SM(3);3rPU0:
NU1=5:2@106MP,S(BA,N);:PUPM64::PU0:
NU1=5:2@618MP,S(PL,N);:PUPM64:Sr
BAUPLJQU3:BATPLJQU1:QU2 sSIU"":SIUI:2@PA(Q),SW(Q);:
NU1=200::2@PA(Q),SB(Q);:
NU1=75::SIU""J660)sSIUI=s(C(6)UN1JC(6)U0Ds2:2@11,S7:2D(64,140):2@961,w(140);" H = HOUSE TOTALS ";w(140);" R = REPLACE ";w(140);" N = NEW PL. ";w(140);" C = CANCEL ";w(140);Ys<CKUN1JCKU0:
760'tFGU0J760:BATPLJW1UW1M1:W$U"B":PLTBAJW2UW2M1:W$U"P":W$U"":PUSHUPUSHM1tPW$U""J760:W$U"B"J740:W$U"P"J
NU1=PX:DB(N)UW$JA1(N)UA1(N)MA(N):E(2)UE(2)MA(N):A1(N)UA1(N)NA(N):E(3)UE(3)MA(N)*tZ:
760.ud
NU1=PX:DB(N)UW$JA1(N)UA1(N)M(A(N)N(A(N)O.05)):E(1)UE(1)MA(N)N(A(N)O.05):E(5)UE(5)M(A(N)O.05):A1(N)UA1(N)NA(N):E(4)UE(4)MA(N)4unvuxPU0:
NU1=12:2@192MP,S2;:2?"##";N;:2w(32);SN(N);<15)w(133);" ON ";DB(N);" FOR $";A(N)<48)w(138)<62)S2;:PUPM64::2@242,"GAME #";G;:2@306,"BANKER";W1;:2@370,"C 1  =";C(1);:2@434,"C 2  =";C(3);4v2@498,"C 3  =";C(5);:
NU1=PX:2@PB(N)M35,"";:2?SP;A1(N);:Gv2@562,"PLAYER";W2;:2@626,"C 1  =";C(2);:2@690,"C 2  =";C(4);:2@754,"C 3  =";C(6);:2@818,"PUSH =";PUSH;:2@882,"WINNER ";W$;:2@946,"NEXT G";GM1;tvC(5)U0:C(6)UN1:DMU"":2@128,w(30);S2;" ";Ew FLU1:40:IN$U""J880:IN$U"C"JDMU"":MAU0:
790:IN$U"D"J1010:IN$U"N"J1050Bw*IN$U"I"J1170:IN$U"R"J1070:IN$U"H"J1130:IN$U"B"Ru(DM)T0J830:IN$U"P"Ru(DM)T0J840:v(IN$)T57Sv(IN$)V48JDMU"":
7909x4u(DMMIN$)V1Su(DMMIN$)T12JDMU"":
790:DMUDMMIN$:2@128,S2;" PLAYER ";DM;w(30);:KCUN1:NUu(DM):NTPXJDMU"":
790:
800^x>DMU"":DN(N)UDB(N):DB(N)U"B":
850xHDMU"":DN(N)UDB(N):DB(N)U"P":
850?xRFLUN4:40:IN$U""J860:IN$U"0"JDMU"":MAU0:
790:DMUIN$y\DCU"":MAUu(DM):DMU"":MAT2000SMAV20JMAU0:DB(N)UDN(N):DCU"C":
870:A(N)UMA:2@143,A(N);:DMU""%yf2@PB(N)M27,A(N);" ";:2@PB(N)M20,DB(N);:2@128,w(30);S2;:KCU0:DCU"C"J2@164,S2;w(94);" VERIFY BET ON PLAYER";N;:2@128,S2;:
800:800:ypKCUN1JKCU0:
790KyzCOT410J940Yy910:
330jz:2w(188);D(10,140);w(188)<13)w(188);D(10,140);w(188)<26)w(188);D(10,140);w(188):
NU1=14:2w(191);S1;w(191)<13)w(191);S1;w(191)<26)w(191);S1;qz2w(191)::2D(12,131)<13)D(12,131)<26)D(12,131);:2@448,D(12,131)<13)D(12,131)<26)D(12,131);:2@167,S2;:2@295,S2;:2@679,S2;:2@807,S2;p{"2@512,w(188);D(10,140);w(188)<13)w(188);D(10,140);w(188)<26)w(188);D(10,140);w(188);:PU0:
NU1=14:2@127MP,ST(N);:PUPM64::M{,COU0:PPU0::2@11,S7:2D(64,191):2:2<9)S2;" WE WILL NOW SHUFFLE EIGHT DECKS OF CARDS ";S2;v{62@448,D(64,131);D(128,32);D(64,176);>|@P1U0:PU0:
N1U1=8:2@512,D(128,32);:2@985,S2;" DECK #";N1;S2;:
NU1=52j|JMU^(52):M(M)UN1J970:S!(NMP)UM:M(M)UN1M|T2@512MP1,DE(S!(NMP));:2@512MP1N8,D(8,32);:2@504,D(8,131);:P1UP1M8:P1U128JP1U0:2@631,D(9,143);!}^N:PUPM52:
N2U1=52:M(N2)U0:N2:2@768MPP,w(140);" FINISHED #";N1;:PPUPPM16:N1:E}h2@128,SB(3);:DMU"":SIU"":MAU0:+}r:2@11,S7:2"ENTER DECK YOU WOULD LIKE TO REVIEW ( 1-8 )";:2@977,R2;" PRESS ENTER TO RETURN  ";S2;B~|SIU"":SIUI:2@977,"  ";:2@1004,"  ";:
NU1=75::2@977,S2;:2@1004,S2;:
NU1=150::SIU""J1020:SIUw(13)JCKUN1:
670:v(SI)T56Sv(SI)V49J1020:XXUu(SI)E~2@117,"DECK #";XX;:XXU1JXXU0:XXU2JXXU52:XXU3JXXU104:XXU4JXXU156:XXU5JXXU208:XXU6JXXU260:XXU7JXXU312:XXU8JXXU364:2@128,"";:2w(31):2@128,"";:
NU1=52:2?"##";N;:2w(94);w(32);DE(S!(XXMN)),::2@979," PRESS ENTER TO RETURN ";:
1020PXU12J790::2@11,S7:2D(64,191):2:2"ENTER NAME OF NEW PLAYER  ";:FLU8:40:PXUPXM1:SN(PX)UIN$Q$CKUN1:SN(PX)U""JSN(PX)U"PLAYER"Mt(PX):
670:670<.X5$U""::2@11,S7;:
NU1=PX:2@PB(N),S2;:2?"##";N;:2w(32);SN(N);::2@978,S2;" PRESS ( E ) TO ESCAPE ";S2;,8FLU2:2@128,S2;"  ENTER PLAYER NUMBER TO BE REPLACED  ";:40:IN$U"E"JCKUN1:
670:X5Uu(IN$):X5TPXSX5V1J1080YB2@296,S2;" REMOVED ";S2;:2@960,D(55,32);o
L2@360,S2;X5;SN(X5);:2@424,S2;" BALANCE ";S2;:2@488,S2;:2?SP;A1(X5);:2@552,S2;" SETTLE WITH BANKER";:2@PB(X5)M2,SB(3);:DB(X5)U" ":A(X5)U0:A1(X5)U0Z
V2@128,w(30);:2@850,S2;" ENTER NAME OF NEW PLAYER  ";:FLU8:40:SN(X5)UIN$:IN$U""JSN(X5)U"PLAYER"Mt(X5)`2@PB(X5)M2,X5;SN(X5);:
NU1=2000::CKUN1:X5U0:
1070Kj:E(6)UE(3)NE(1):E(7)UE(4)NE(2):E(8)UE(6)ME(7):E(9)UE(1)ME(2):E(10)UE(3)ME(4):E(0)UE(6)ME(7):2@11,S7:2D(64,191);:
NU1=8:2@PB(N),S2;" ";D(24,95);w(94);:2?SP;E(N);:2D(20,95);" ";S2;:nt2D(64,140);:
NU1=8:2@PB(N)M3,SE(N);::2@PB(2)M45,"ST=";:2?SP;E(9);:2@PB(4)M45,"ST=";:2?SP;E(10);:2@PB(7)M44,"ST=";:2?SP;E(0);:2@833,"GAMES PLAYED TO DATE ";G;@~2@869,"CARDS LEFT IN SHOE -> ";416NCO;:2@978,S2;" PRESS ENTER TO RETURN ";S2;ISIU"":SIUI:
NU1=8:2@PB(N),"  ";:2@PB(N)M62,"  ";:
N1U1=20:N1:2@PB(N),S2;:2@PB(N)M62,S2;:N:SIU""J1160:SIUw(13)JCKUN1:
670::1160	:2@11,S7;:2@256,S2;" BANKERS  HAND  =  B   /   PLAYERS  HAND  =  P  .":2:2S2;" MINIMUM BET  $  20.00  /   MAXIMUM  $  2,000.00.":2:2S2;" EXAMPLE: PLAYER # 2 BETS ON THE BANKER FOR $ 50.".2S2;" ENTER  ->  /  2B50  /  THATS ALL THERE IS TO IT.":2:2S2;" PRESS <ENTER> TO RETURN (ENTER <O> FOR HIT OPTION) ";:	SI:CKUN1:SIU"O"JSFU"O":
670:SFU"C":
670*&190,191,159,143,143,175,191,189,191,191,32,32,32,32,191,191,191,191,32,32,32,32,191,191,191,191,32,32,32,32,191,191,175,191,189,188,188,190,191,159,32,32,138,191,191,32,32,32,32,32,32,191,191,32,32,32,32,32,32,191,191,32,32,32,32,32,32,191,191,320 32,32,32,32,188,191,191,188,32,32,159,143,143,143,143,175,191,189,32,32,32,32,32,160,191,191,190,191,159,143,143,143,143,135,191,191,32,32,32,32,32,32,175,191,189,188,188,188,188,190,170,143,143,143,143,175,191,189,32,32,32,32,32
: 160,191,191,32,32,32,143,143,175,191,183,32,32,32,32,32,32,191,191,189,188,188,188,188,190,191,159,191,191,32,32,32,32,191,191,191,191,144,32,32,32,191,191,139,143,143,143,143,143,191,191,32,32,32,32,32,32,191,191,32,32,32,32,32,160,191,159	D 190,191,159,143,143,143,143,175,191,191,144,32,32,32,32,32,139,143,143,143,143,175,191,189,32,32,32,32,32,32,191,191,189,188,188,188,188,190,191,159,190,191,159,143,143,143,143,175,191,191,144,32,32,32,32,32,191,191,159,143,143,175,191j
N 189,191,191,32,32,32,32,191,191,175,191,189,188,188,190,191,149,159,143,143,143,143,175,191,189,32,32,32,32,32,32,191,191,32,32,32,32,32,32,191,191,32,32,32,32,32,32,191,191,32,32,32,32,32,160,191,159,190,191,159,143,143,175,191eX 189,191,191,144,32,32,160,191,191,187,191,159,143,143,175,191,183,191,191,32,32,32,32,191,191,175,191,189,188,188,190,191,159,190,191,159,143,143,175,191,189,191,191,32,32,32,32,191,191,175,191,189,188,188,190,191,191,32,32,32,32,32,130,191,191Xb 189,188,188,188,188,190,191,159,66,65,78,75,69,82,32,32,80,76,65,89,69,82,82,65,68,73,79,32,83,72,65,67,75,A,2,3,4,5,6,7,8,9,T,J,Q,K,140,32,80,32,140,32,85,32,140,32,83,32,140,32,72,32,140,192,256,320,384,448,512,576,640,704,768,832,896l 66,65,67,67,65,82,65,84,PD'OUT/BANKER WINS,PD'OUT/PLAYER WINS,R'CPTS/BANKER LOSS,R'CPTS/PLAYER LOSS,5% COLMISSION,W/L TO BANKER,W/L TO PLAYER,HOUSE  PROFITo adjust your video screen$There is nothing wrong with your computer$We contro