) 1100: 1000: 2700: 1300: 10000 4 2000 E TP4 70 l # X,12: Y,30: PLT: "NO BIDS"; ( X,13: Y,28: PLT: "HAND DUMPED"; 2 1400: I0 4: X,19: Y,I52: PLT: EC$;: 3 DL NP(DL): X,7: Y,12: PLT: EC$; 7 1900: 25 7 F X,12: Y,30: PLT:"TRUMP: "CO$(TP)S$(TP); p K X,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): 1465 9 DL NP(DL): 1355: 25 W,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: 1910 x 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: 1465 Y: X,21: Y,31:PLT: 1465: X,21: Y,35:PLT: 1465 _B L 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 5 DC(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,21 d I0 2: J0 9: NM$(J,I):: " ",""," "," ",""," "," "," "," "," " " ",""," "," ",""," "," "," "," "," " ( " ",""," "," "," "," "," "," "," "," " M NP(X)((X1)4((X1)4))4 t 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,19 I06: 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,19 B 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: PLT UCC(0,U):SS(0,U): 1200: U [ w I0 23:J((1)24) TDC(I):DC(I)DC(J):DC(J)T TDS(I):DS(I)DS(J):DS(J)T J0 3: I0 4 C(J,I)DC(J5I):S(J,I)DS(J5I):::KCDC(20):KSDS(20) 8 1450: X,12: Y,28: PLT O "FIRST BLACK"; g X,13: Y,29: PLT {# "JACK DEALS"; ( 1250:DL0:CC0 - X,CX(DL): Y,CY(DL): PLT 2CDC(CC):SDS(CC): 1200 3 DE1 500: 7 (DC(CC)2) ((DS(CC) 253)1) 1355 /8 X,CX(DL): Y,CY(DL): PLT B9 DE1 100: h< EC$;:CCCC1:DL NP(DL): 1325 K 1450:"";: X,12: Y,29: PLT L DL0 1370 P " PLAYER"DL; R X,13: Y,31: PLT U "DEALS";: 1375 Z "YOUR DEAL"; _ 1400 &` X,CX(DL): Y,CY(DL): PLT: EC$; ,d Dx X,15: Y,28: PLT l} 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 I SSS0: I0 4: NS(P,I)0 SP(P,I)0:SSSS1 x: 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: 1910 E AN1 TPKS J GO X,13: Y,10: PLT:"LONEHAND?"; oPLO12:HI13:XP13:YP20: 1910:LH0 R AN13 LH1: X,MX(BD)2: Y,MY(BD): PLT:"LONEHAND"; S X,13: Y,10: PLT:" "; T YLH0: SP(P,TP) GA(NS(P,TP)) LH1 ^ :r NP( NP(P)) DL 1625:FLH: 1685 RvF0: KC2 1660 tw SP(P,KS)OU(NS(P,KS)) F1 | SP(P,KS)OB(NS(P,KS)) F1 (F0) (P NP(DL)) 1685 SBCP(KC): KC5 SB3 I0 3: IKS SP(P,I)(SP(P,KS)SB) F0 $ F1 TPKS * KLO2:HI3:XP13:YP11: 1910 ^ AN3 TPKS d SP(P,KS)PU(NS(P,KS)) TPKS LO4:HI8:XP13:YP9: 1910 AN5KS 1800 AN4 TPAN5 :DF0: I0 3: IKS 1865 ' ? SP(P,I)MS(NS(P,I),PS)DF 1865 J DDFSP(P,I)MS(NS(P,I),PS):TPI P I V 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 HI u" 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" # 1500 2# P0 1600: 2040 J# (PDL)2 2020 k# 1625: LH1 TPKS: 2025 v# 1650 # X,MX(P): Y,MY(P): PLT: ""; # TP4 " PASS": 2040 #BDP:"ORDER UP"; #P NP(P): (PDL) (TP4) 2010 $PDL: 1500: TP4 2105 1$ 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: 2090 i%% 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 2140 C&> (LH1) (BD0) 2120 ^&? BD0 1615: 2140 i&@ 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 2205 7'GF: SX1,214: SX,(F53)822: 53269,1 X' 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 +( 2215 R( ((R$(13)) (DR111)) 2215 X( ( 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) 2331 B) S(P,J)S(P,J1) C(P,J)C(P,J1) 2331 j) 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: 2350 3*) (S(P,I)S(P,NF(I))) (S(P,I)S(P,NF(I2))) PT(I)1 9*. 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: 1910 t+ 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)1 6, 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 PSPS1 A-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: 3060 L. S(P,PC(P))S(WP,PC(WP)) C(P,PC(P))C(WP,PC(WP)) WPP a.: 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,0 C/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)2LH2 0 BT0 " YOU WONALL TRICKS";: 3200 W0 BT1 "COMPUTER WONALL TRICKS";: 3200 k0PW(BT)PW(BT)1 0 TR(0)2 "YOU WON HAND";: 3200 0! TR(1)2 " COMPUTERWON HAND";: 3200 0$PW(1BT)PW(1BT)2 1& TR(0)3 "YOU'VE BEENEUCHRED!":3200 P1+ TR(1)3 " COMPUTEREUCHRED!";: d1/ DE1 4000: 1 DE1 4000:: ""; 1 1 P0 3509 1 X,15: Y,28: PLT 1 " YOUR PLAY ";: 2200 2 LSS(LD,PC(LD)): (PS0) (S(P,F)LS) (NS(P,LS)0) 3507 "2 2215: 3503 U2 53269,0: X,19: Y,F52: PLT: EC$;: 3530 ~2 X,15: Y,28: PLT: " " 2 53269,0: X,19: Y,F52: PLT: EC$;: 3530 2 TK5 3515 2 K0 4: C(P,J)1 F1 2 : 3530 3 (PS1) 4000,4100,4200,4200 S3 PC(P)F: X,PX(P): Y,PY(P): PLT:CC(P,F):SS(P,F): 1200 3 NS(P,S(P,F))NS(P,S(P,F))1:CL(C(P,F),S(P,F))1 3 3 (NS(P,TP)5TK) 4015 3SPTP: 5200: F1 5150 3 5160 3 ((LH1) (BDP)) 4030 4 NS(P,TP)0 SPTP: 5150 %4 5050 U4 5000: (F1) ((BDP)2) SPTP: 5150 ~4 5250: ((F1) (PBD)) 5050 4 5200: F1 SPTP: 5150 4 NS(P,TP)2 SPTP: 5160 4 5050 4 NS(P,S(LD,PC(LD)))0 4115 5 5300:SPS(LD,PC(LD)): F1 5150 5 5160 A5 NS(P,TP)5TK SPTP: 5160 Y5 NS(P,TP)0 5100 }5 C(LD,PC(LD))5 SPTP: 5160 5" BDP SPTP: 5160 5' 5250: F1 SPTP: 5160 5, 5100 5h NS(P,S(LD,PC(LD)))0 4235 5iSPS(LD,PC(LD)) 6m (SPTP) (TL1) 5160 /6r (WPP)2 4225 W6w 5300: F1 5350: F0 5150 b6| 5160 z6 5300: F1 5150 6 5160 6 NS(P,TP)5TK 4270 6SPTP: (WPP)2 5160 6 TL0 5160 6 5300: F1 5400 6 5160 7 NS(P,TP)0 5100 %7 (WPP)2 4310 B7 (TL1) (PS3) 5100 ^7 C(WP,PC(WP))5 5100 7 C(WP,PC(WP))4 SPTP: 5160 7 5250: F1 SPTP: 5160 7 5100 7 TL0 SPTP: 5160 7 5300: F1 SPTP: 5400 7 5100 8F0: A0 4: C(P,A)5 F1 8: ^8F1: A0 4: (SL(S(P,A))0) (S(P,A)TP) C(P,A)5FA r8: F1 5070 8LC1: A0 4: S(P,A)TP C(P,A)LC LCC(P,A):FA 8 8 8 NS(P,TP)0 5125 8SP1: A0 4 (9 S(P,A)TP (C(P,A)5) (NS(P,S(P,A))1) SPS(P,A) =9: SP1 5160 H9 5180 _9V4:F1: A0 4 v9 S(P,A)TP 5135 9 (NS(P,S(P,A))1) (SL(S(P,A))1) 5135 9 (C(P,A)0) (C(P,A)V) VC(P,A):FA 9: F1 5180 9 : PS3 5400 ;:V1: A0 4: S(P,A)SP C(P,A)V VC(P,A):FA C:#: 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 5240 Y;_ A0 4: S(P,A)TP C(P,A)HT F1 _;d e;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 F1 H<: [<D10: A0 4 <S(P,A)S(WP,PC(WP))EC(P,A)C(WP,PC(WP)):(ED)(E0)DE:FA <":