) 1100: 1000: 2700: 1300: 100004  2000E  TP4 70l # X,12: Y,30: PLT: "NO BIDS"; ( X,13: Y,28: PLT: "HAND DUMPED"; 2 1400: I0 4: X,19: Y,I52: PLT: EC$;: 3DL NP(DL): X,7: Y,12: PLT: EC$; 7 1900: 257 F X,12: Y,30: PLT:"TRUMP: "CO$(TP)S$(TP);p KX,13:Y,29:PLT:"BIDDER:";: BD0 "YOU";: 90 P" P"((BD),1); Z "";: KU0 135 d DL 0 125 s X,15: Y,28: PLT: "PICK DISCARD"; y 2200: X,15: Y,28: PLT:" ";: 130 } 2300= C(DL,F)KC:S(DL,F)KS: 1220[ X,7: Y,12: PLT: EC$; 2500: 3000: (PW(0)9) (PW(1)9) 300 X,21: Y,31: PLT:N0: 1465 X,21: Y,35: PLT:N0: 1465 X,7: Y,31: PLT:NPW(0): 1465 X,7: Y,35: PLT:NPW(1): 14659 DL NP(DL): 1355: 25W ,WT0: PW(1) 10 WT1~ 1 X,7: Y,29WT6: PLT:N1: 1465 6 X,7: Y,31WT6: PLT:NPW(WT)10: 1465 ; DE1 2000: @ 1450: X,13: Y,30: PLT:"YOU"; A WT0 " WIN!"; B WT1 " LOSE";E E X,15: Y,11: PLT: "PLAY AGAIN?";h JLO11:HI12:XP15:YP23: 1910x T AN11 ^ "";   53281,15: 53280,6: SETSCR  "";  I1 24: " ";: " ";; 28)"î";W 28)" EUCHRE ";q 28)"ý"; 28)" "; 28)" POINTS ";  28)" YOU COMP "; 28)"Ϸ"; I1 4: 28)" ";:$ 28)"";> 28)"";Z 28)" TRICKS ";w$ 28)" YOU COMP ";) 28)"Ϸ";. I1 3: 28)" ";:3 28)" ";8 2023,32: 56295,6!9 X,7: Y,31: PLT: 1465: X,7: Y,35: PLT: 1465Y: X,21: Y,31:PLT: 1465: X,21: Y,35:PLT: 1465_BL C1$(7),C2$(7),S$(3),DC(23),DS(23),C(3,4),S(3,4),CO$(3),CX(3),CY(3)M OB(6),OU(6),PU(6),MS(6,3),GA(6),ME$(15),PX(3),PY(3),NM$(9,2),NF(6)N CL(7,3) TX(TI)+U I0 3: S$(I),CO$(I):QV "","","","","","","",""yW I0 6: NF(I):: 4,0,1,2,3,4,0[ I0 7: C1$(I),C2$(I):` "9 "," 9","1O","1O","J "," J","Q "," Q","K "," K","A "," A"e "J "," J","J "," J"j I251 254: Q: I,Q:'o 24,76,240,255[tPLT251:X781:Y782:SX53248:BL$" "yEC$" ":EC$""EC$EC$EC$EC$EC$""~ J0 3: I0 5DC(J6I)I:DS(J6I)J I: J I0 3: PX(I),PY(I):: 13,12,7,7,1,12,7,17! I0 3: CX(I),CY(I):= 17,11,10,4,3,11,10,21d I0 2: J0 9: NM$(J,I):: " ",""," "," ",""," "," "," "," "," " " ",""," "," ",""," "," ","  "," "," "( " ",""," "," "," "," "," ","  "," "," "M NP(X)((X1)4((X1)4))4t I0 5: CP(I):: 1,1,8,1,2,-1 I0 13: ME$(I): "PASS ","ORDER UP","PASS ","PICK UP"," PASS " " DIAMONDS"," CLUBS "," HEARTS "," SPADES ","NORMAL "7 "AGGRESSIVE","YES","NO ","YES"e I1 3: MX(I),MY(I):: 7,2,1,10,7,19I06: OB(I),OU(I),PU(I),MS(I,0),MS(I,1),MS(I,2),MS(I,3),GA(I): 99,99,99,99,99,99,99,99 99,99,99,99,99,99,99,99 99,99,14,14,14,13,13,99$ 20,12,08,08,08,08,07,19B 14,00,00,00,00,00,00,16` 00,00,00,00,00,00,00,14~ 00,00,00,00,00,00,00,00 (STP) (C6) SS2:S(S4(S4))4 CO$(S)C1$(C)" "S$(S)"   "S$(S)" "C2$(C);  "";4 U0 4: X,19: Y,U52: PLTUCC(0,U):SS(0,U): 1200: U[w I0 23:J((1)24)TDC(I):DC(I)DC(J):DC(J)TTDS(I):DS(I)DS(J):DS(J)T J0 3: I0 4C(J,I)DC(J5I):S(J,I)DS(J5I):::KCDC(20):KSDS(20)8 1450: X,12: Y,28: PLTO "FIRST BLACK";g X,13: Y,29: PLT{# "JACK DEALS";( 1250:DL0:CC0- X,CX(DL): Y,CY(DL): PLT2CDC(CC):SDS(CC): 12003 DE1 500:7 (DC(CC)2) ((DS(CC) 253)1) 1355/8 X,CX(DL): Y,CY(DL): PLTB9 DE1 100:h< EC$;:CCCC1:DL NP(DL): 1325K 1450:"";: X,12: Y,29: PLTL DL0 1370P " PLAYER"DL;R X,13: Y,31: PLTU "DEALS";: 1375Z "YOUR DEAL";_ 1400&` X,CX(DL): Y,CY(DL): PLT: EC$;,dDx X,15: Y,28: PLTl} 6000: " HIT BUTTON ";: 198,0 WT$: (WT$ (13)) ((56320) 111) 1410 "";: 1450 R12 16: X,R: Y,28: PLT " ";:* "";: I0 2: NM$(N,I)"";::"";0^ I0 3:SP(P,I)FC(P 253):NS(P,I)0: I0 4:SS(P,I):CC(P,I):SP(P,S)SP(P,S)CP(C):NS(P,S)NS(P,S)1 C2 SS2:S(S4(S4))4:SP(P,S)SP(P,S)6:NS(P,S)NS(P,S)1 C5 J0 3:SP(P,J)SP(P,J)4:J  ISSS0: I0 4: NS(P,I)0 SP(P,I)0:SSSS1x: I0 3:SP(P,I)SP(P,I)SS: P DL 1550 KC5 SP(P,KS)SP(P,KS)4 SP(P,KS)SP(P,KS)CP(KC):NS(P,KS)NS(P,KS)1@LO0:HI1:XP13:YP10: 1910E AN1 TPKSJGO X,13: Y,10: PLT:"LONEHAND?";oPLO12:HI13:XP13:YP20: 1910:LH0R AN13 LH1: X,MX(BD)2: Y,MY(BD): PLT:"LONEHAND";S X,13: Y,10: PLT:" ";TYLH0: SP(P,TP) GA(NS(P,TP)) LH1 ^:r NP( NP(P)) DL 1625:FLH: 1685RvF0: KC2 1660tw SP(P,KS)OU(NS(P,KS)) F1| SP(P,KS)OB(NS(P,KS)) F1 (F0) (P NP(DL)) 1685SBCP(KC): KC5 SB3  I0 3: IKS SP(P,I)(SP(P,KS)SB) F0$ F1 TPKS*KLO2:HI3:XP13:YP11: 1910^ AN3 TPKSd SP(P,KS)PU(NS(P,KS)) TPKSLO4:HI8:XP13:YP9: 1910  AN5KS 1800  AN4 TPAN5 :DF0: I0 3: IKS 1865' ? SP(P,I)MS(NS(P,I),PS)DF 1865J DDFSP(P,I)MS(NS(P,I),PS):TPIP IV N l I13: J02:X,MX(I)J:Y,MY(I): PLT:" "; q::""; s v 198,0:ANLO {X1XP:Y1YP: ILO HI: "";  IAN 1925! (ANLO) (HILO1) "";: 1925,! CO$(ILO1);X! X,X1: Y,Y1: PLT: ME$(I);:X1X11:! R$:DR(56320): ((R$"") (DR126)) 1940!ANAN1: AN LO ANHI! ((R$"") (DR125)) 1950!ANAN1: ANHI ANLO" ((R$(13)) (DR111)) 1915>"X1XP:Y1YP: "";: ILO HIu" X,X1: Y,Y1: PLT: (BL$,(ME$(LO)));:X1X11:" "";:" 1250: 1220:P NP(DL):TP4:BD0:KU0" X,7: Y,12: PLT:CKC:SKS: 1200 # DL0 X,MX(DL): Y,MY(DL)1: PLT:"DEALER"# 15002# P0 1600: 2040J# (PDL)2 2020k# 1625: LH1 TPKS: 2025v# 1650# X,MX(P): Y,MY(P): PLT: "";# TP4 " PASS": 2040#BDP:"ORDER UP";#P NP(P): (PDL) (TP4) 2010$PDL: 1500: TP4 21051$ DL0 1700: 2070`$ 1750: X,MX(DL): Y,MY(DL): PLT: "";$  TP4 " TURNEDDOWN";: 2070$BDP:" PICKEDUP";$ DE1 2000:$ (BD0) (TP4) 2105% X,7:Y,12: PLT: EC$;: TP4 2105% 1900:PS0#%P NP(P)=%  P0 1800: 2090i%% 1850: X,MX(P): Y,MY(P): PLT: "";|%& DE1 600:%( TP4 " PASS";: 2090%)BDP: (ME$(TP5),8);%* (PDL) (TP4) PSPS1: 2075%4 2109&9KU1: (BD0) (DL2) LH1: 2120%&= TP4 2140C&> (LH1) (BD0) 2120^&? BD0 1615: 2140i&@ 1625{&C LH0 2140&H X,MX(BD)2: Y,MY(BD): PLT: "LONEHAND";&\ "";: DE1 2000:&a 1900&f& 198,0:F1'FF1: C(0,F) 1 22057'GF: SX1,214: SX,(F53)822: 53269,1X' SX1,214: SX,(F53)822' R$:DR(56320): (R$"") (DR127) 2220'GF: ((R$"") (DR123)) 2250'FNF(F): C(0,F)0 2230' 2215( ((R$"") (DR119)) 2275 (FNF(F2): C(0,F)0 2255+( 2215R( ((R$(13)) (DR111)) 2215X(( I0 4: (S(P,I)TP) (C(P,I)2) C(P,I)7: 2310( ((S(P,I) 253)(TP 253)) (C(P,I)2) C(P,I)6:S(P,I)TP( ) I0 4: J0 3: S(P,J)S(P,J1) 2331B) S(P,J)S(P,J1) C(P,J)C(P,J1) 2331j) TC(P,J):C(P,J)C(P,J1):C(P,J1)T) TS(P,J):S(P,J)S(P,J1):S(P,J1)T) ) I0 4:PT(I)0: S(P,I)TP PT(I)C(P,I)10: 2350)$ C(P,I)5 PT(I)9: 23503*) (S(P,I)S(P,NF(I))) (S(P,I)S(P,NF(I2))) PT(I)19*. d*3 L99: I0 4: PT(I)L FI:LPT(I)l*8 :* I0 3: J0 3:NS(I,J)0:: J0 4:C(I,J)22515* S(I,J)TP C(I,J)7: 2515* (S(I,J)TP)2 C(I,J)6:S(I,J)TP+ NS(I,S(I,J))NS(I,S(I,J))1:: + V+ "PARTNER?";:LO9:HI10:XP2:YP12: 1910t+ FC(0)0: AN10 FC(0)2+ "OPPONENTS?";:LO9:HI10:XP2:YP14: 1910+ FC(1)0: AN10 FC(1)2+ " ";:, I0 7: J0 3:CL(I,J)0:::CL(2,TP 253)16, I0 3:SL(I)0:i, LD NP(DL):DM4:TR(0)0:TR(1)0: LH0 3015, BD2 I0 4: X,19: Y,I52: PLT: EC$;: , DM NP( NP(BD)), LH1 LDDM LD NP(LD) - TK0 4:PLD:PS0:TL0: DMP P NP(P),- 3500:WPP: LH1 PSPS1A- SL(S(P,PC(P)))1\- S(P,PC(P))TP TL1- I1 3:P NP(P): PDM 3060- PSPS1: 3500: TL0 3050- S(P,PC(P))TP C(P,PC(P))C(WP,PC(WP)) WPP- 3060 . S(P,PC(P))TP WPP:TL1: 3060L. S(P,PC(P))S(WP,PC(WP)) C(P,PC(P))C(WP,PC(WP)) WPPa. : DE1 400:. SX3,(PX(WP)1)852:SX2,(PY(WP)1)819: 53269,2. DE1 3000::LDWP:WTWP 253:TR(WT)TR(WT)1 / X,21: Y,314WT: PLT:NTR(WT): 1465: 53269,0C/ I03:X,PX(I):Y,PY(I):PLT:EC$;:C(I,PC(I))1::u/ X,MX(BD)2: Y,MY(BD): PLT:" ";/ BTBD 253: X,15: Y,28: PLT/ "";: TR(BT)3 3108/ TR(BT)5 3097/ PW(BT)PW(BT)2LH20 BT0 " YOU WONALL TRICKS";: 3200W0 BT1 "COMPUTER WONALL TRICKS";: 3200k0 PW(BT)PW(BT)10 TR(0)2 "YOU WON HAND";: 32000! TR(1)2 " COMPUTERWON HAND";: 32000$ PW(1BT)PW(1BT)21& TR(0)3 "YOU'VE BEENEUCHRED!":3200P1+ TR(1)3 " COMPUTEREUCHRED!";:d1/ DE1 4000:1 DE1 4000:: "";1 1 P0 35091 X,15: Y,28: PLT1 " YOUR PLAY ";: 22002 LSS(LD,PC(LD)): (PS0) (S(P,F)LS) (NS(P,LS)0) 3507"2 2215: 3503U2 53269,0: X,19: Y,F52: PLT: EC$;: 3530~2 X,15: Y,28: PLT: " "2 53269,0: X,19: Y,F52: PLT: EC$;: 35302 TK5 35152 K0 4: C(P,J)1 F12 : 35303 (PS1) 4000,4100,4200,4200S3 PC(P)F: X,PX(P): Y,PY(P): PLT:CC(P,F):SS(P,F): 12003 NS(P,S(P,F))NS(P,S(P,F))1:CL(C(P,F),S(P,F))13 3 (NS(P,TP)5TK) 40153SPTP: 5200: F1 51503 51603 ((LH1) (BDP)) 40304 NS(P,TP)0 SPTP: 5150%4 5050U4 5000: (F1) ((BDP)2) SPTP: 5150~4 5250: ((F1) (PBD)) 50504 5200: F1 SPTP: 51504 NS(P,TP)2 SPTP: 51604 50504 NS(P,S(LD,PC(LD)))0 41155  5300:SPS(LD,PC(LD)): F1 51505 5160A5 NS(P,TP)5TK SPTP: 5160Y5 NS(P,TP)0 5100}5 C(LD,PC(LD))5 SPTP: 51605" BDP SPTP: 51605' 5250: F1 SPTP: 51605, 51005h NS(P,S(LD,PC(LD)))0 42355iSPS(LD,PC(LD))6m (SPTP) (TL1) 5160/6r (WPP)2 4225W6w 5300: F1 5350: F0 5150b6| 5160z6 5300: F1 51506 51606 NS(P,TP)5TK 42706SPTP: (WPP)2 51606 TL0 51606 5300: F1 54006 5160 7 NS(P,TP)0 5100%7 (WPP)2 4310B7 (TL1) (PS3) 5100^7 C(WP,PC(WP))5 51007 C(WP,PC(WP))4 SPTP: 51607 5250: F1 SPTP: 51607 51007 TL0 SPTP: 51607 5300: F1 SPTP: 54007 51008F0: A0 4: C(P,A)5 F18:^8F1: A0 4: (SL(S(P,A))0) (S(P,A)TP) C(P,A)5FAr8: F1 50708LC1: A0 4: S(P,A)TP C(P,A)LC LCC(P,A):FA888 NS(P,TP)0 51258SP1: A0 4(9 S(P,A)TP (C(P,A)5) (NS(P,S(P,A))1) SPS(P,A)=9: SP1 5160H9 5180_9V4:F1: A0 4v9 S(P,A)TP 51359  (NS(P,S(P,A))1) (SL(S(P,A))1) 51359  (C(P,A)0) (C(P,A)V) VC(P,A):FA9: F1 51809: PS3 5400;:V1: A0 4: S(P,A)SP C(P,A)V VC(P,A):FAC:#:V:(V10: A0 4:) S(P,A)SP (C(P,A)0) (C(P,A)V) VC(P,A):FA:-::<V10: A04:S(P,A)TPC(P,A)1C(P,A)V VC(P,A):FA:A::PHT8:F0;UHTHT1: HT0 CL(HT,TP)1 5205+;Z HT0 5240Y;_ A0 4: S(P,A)TP C(P,A)HT F1_;de;x;F1: A0 4: C(P,A)1 (S(P,A)TP) (C(P,A)5) F0;:;F0: A0 4: S(P,A)S(WP,PC(WP)) C(P,A)C(WP,PC(WP)) F1;:@<F0: A0 4: S(P,A)S(WP,PC(WP)) C(P,A)C(WP,PC(WP))1 F1H<:[<D10: A0 4<S(P,A)S(WP,PC(WP))EC(P,A)C(WP,PC(WP)):(ED)(E0)DE:FA<":D' 253,128,27,255,0,13,255,0%>E' 15,255,0,7,254,0,3,254?>F' 0,1,252,0,0,252,0,0W>G' 252,0,0,0,0,0,0,0m>H' 0,0,0,0,0,0,0,0>I' 0,0,0,0,0,0,0,190>L' 10,170,168,10,149,168,10,85>M' 104,9,89,88,9,106,152,9>N' 153,88,9,153,88,9,153,88?O' 9,153,88,9,106,88,9,89?P' 152,9,89,152,9,89,152,9=?Q' 89,152,9,170,88,9,89,88_?R' 10,85,104,10,149,168,10,170w?S' 168,0,0,0,0,0,0,0