10 PRINT" **********************":PRINT" ****  BRIDGE 2.0  ****"
12 PRINT" **********************":REM1223 * BR2APL *
14 PRINT" (C) 1979 BY DYNACOMP":PRINT"    WEBSTER, NY 14580"
20 PRINT:CLEAR480:DIMC(52),P(52),V(4,5),Y(4,5),F(4,13),T9(4),X(4),G(4)
30 DIMT$(104),E$(56),A$(13),Z$(26),D$(13)
40 A$="23456789TJQKA":B$="XCDHS":N$="1234567"
110 PRINT"ENTER ANY POSITIVE NUMBER":INPUTX:R=RND(-X)
140 R9=R9-4*INT(R9/4)+1:K1=0:K=R9:PRINT"SHUFFLING";:FORI=1TO52:P(I)=I
220 NEXT:FORJ=52TO1STEP-1:R=INT(RND(1)*J+1):C(J)=P(R):P(R)=P(J):NEXT
250 FORI=1TO4:T9(I)=13:M=I*13-13:FORJ=1TO13:F(I,J)=C(J+M):NEXT:NEXT
285 PRINT:PRINT"DEALING";:FORI=1TO4
300 T1=0
310 FORJ=2TO13:IFF(I,J-1)>F(I,J)THEN340
330 T2=F(I,J):F(I,J)=F(I,J-1):F(I,J-1)=T2:T1=1
340 NEXTJ:IFT1=1THEN300
360 NEXT:T$="":FORL=1TO4:FORI=1TO13:J=F(L,I)-13*INT(F(L,I)/13)
430 M=INT((F(L,I)-.1)/13):IFJ=0THENJ=13
450 Z$=MID$(A$,J,1)+MID$(B$,M+2,1):T$=T$+Z$:NEXT:NEXT
700 R=1:H=0:PRINT:PRINT"SORTING":GOSUB6000:K=1:L5=4
773 PRINT"YOUR HAND (SOUTH):":GOSUB4900:E$="":S$="1A":K=R9-1
800 IFK>0THEN1000
802 PRINT"YOU ARE THE DEALER,":PRINT"WHAT DO YOU BID?"
810 K=1:K1=K1+1:PRINT"SOUTH";
812 INPUTZ$:IFZ$=""THEN838
813 IFLEFT$(Z$,1)<>"P"THEN818
814 C(K1)=1
816 E$=E$+"00":IFK1<4THEN1000
817 GOTO1160
818 IFMID$(Z$,2,1)="N"THENZ$=LEFT$(Z$,1)+"X"
820 IFLEFT$(Z$,1)<>"D"THEN836
822 IFC(K1-1)=0THEN830
824 IFC(K1-2)=1THEN830
826 PRINT"YOU CANNOT DOUBLE YOUR":PRINT"OWN PARTNER'S BID!":GOTO838
830 C(K1)=0:E$=E$+"DB":IFK1<4THEN1000
832 GOTO1160
836 IFZ$>S$THEN840
838 PRINT"ILLEGAL BID, TRY AGAIN.":GOTO 812
840 C(K1)=0:IFK1>4THEN895
850 FORI=1TO5:IFMID$(Z$,2,1)=MID$(B$,I,1)THENX(1)=6-I
852 NEXT
895 E$=E$+Z$:S$=Z$
1000 K=K+1:IFK>4THEN810
1002 GOSUB2000:IFC(K1)=0THEN1180
1100 GOSUB6600:IFK=3THEN1130
1108 T1=LEN(E$):IFT1<5THEN1130
1109 Z$=MID$(E$,T1-1,T1):IFZ$="00"THEN1120
1110 Z$=MID$(E$,T1-1,2):IFZ$="00"THEN1120
1112 IFZ$="DB"THEN1130
1114 GOTO1122
1120 IFMID$(E$,T1-3,2)<>"00"THEN1130
1122 GOSUB8700:IFF1<>2THEN1130
1125 PRINTF$;": DOUBLE":E$=E$+"DB":IFK1<4THEN1000
1128 GOTO1160
1130 PRINTF$;": PASS":E$=E$+"00"
1160 IFK1<4THEN1000
1162 IFMID$(E$,2*K1-5,6)="000000"THEN3000
1164 GOTO1000
1180 GOSUB8500:IFF1=1THEN1100
1192 S$=D$:E$=E$+S$:IFMID$(S$,2,1)="X"THEND$=MID$(S$,1,1)+"NT"
1200 GOSUB6600:PRINTF$;": ";D$:GOTO1000
2000 K1=K1+1:C(K1)=0:L=K-2:IFL<=0THENL=K+2
2030 IFK1>4THEN2240
2032 IFK1>2THEN2080
2045 IFP(K)>23THEN2170
2048 IFP(K)>12THEN2070
2060 C(K1)=1:RETURN
2063 GOSUB8200:RETURN
2070 GOSUB8000:RETURN
2080 IFC(K1-2)=1THEN2045
2082 IFP(K)>5THEN2120
2084 IFP(L)>23THEN2070
2104 IFC(K1-1)=0THEN2060
2106 IFMID$(E$,2*K1-5,1)<>"D"THEN2060
2108 GOTO2070
2120 IFP(K)>9THEN2170
2122 IFV(K,X(K))<5THEN2130
2126 IFMID$(B$,6-X(K),1)>MID$(S$,2,1)THEN2070
2130 IFX(L)=5THEN2070
2131 IFV(K,X(L))>3THEN2230
2132 IFV(K,X(L))<2THEN2060
2134 IFY(K,X(L))=0THEN2150
2136 GOTO2230
2150 IFS$>="1X"THEN2060
2152 D$="1X":RETURN
2170 IFP(K)<14THEN2070
2172 IFP(K)>18THENL=K:GOTO2063
2222 IFV(K,X(L))<4THEN2070
2224 IFV(K,X(K))<5THEN2070
2226 IFY(K,X(K))<4THEN2070
2228 GOTO2063
2230 GOSUB8100:RETURN
2240 IFP(K)>5THEN2250
2242 IFP(K)+P(L)>25THEN2328
2250 IFV(K,X(K))>4THEN2260
2252 IFP(K)>16THEN2260
2254 IFC(K1-2)=1THEN2060
2256 IFP(K)<10THEN2130
2258 IFK1<8THEN2418
2259 GOTO2328
2260 IFC(K1-2)=0THEN2310
2280 IFP(K)<14THEN2060
2282 IFV(K,X(K))<5THEN2060
2284 GOTO2070
2310 IFMID$(E$,2*(K1-1)-2,1)="X"THEN2380
2316 IFK1>7THEN2328
2318 IFMID$(S$,1,1)>"2"THEN2328
2320 IFV(K,X(K))<5THEN2328
2322 IFP(K)>9THEN2070
2324 IFMID$(B$,6-X(K),1)>MID$(S$,2,1)THEN2070
2326 GOTO2131
2328 IFX(L)=0THEN2070
2330 M1=Y(K,X(K))+V(K,X(K))+Y(L,X(K))+V(L,X(K))
2340 M2=Y(K,X(L))+V(K,X(L))+Y(L,X(L))+V(L,X(L))
2350 IFM1>=M2THEN2070
2352 IFV(K,X(L))<2THEN2070
2354 X(K)=X(L):GOTO2230
2380 IFP(K)<6THEN2060
2382 IFMID$(E$,2*(K1-1)-3,2)="3X"THEN2060
2410 F1=0:FORI=1TO4:IFV(K,I)>4THENF1=1
2414 NEXT:IFF1=1THEN2070
2415 IFK1>4THEN2418
2416 IFP(K)>12THEN2063
2418 GOSUB8300:RETURN
3000 I2=LEN(E$)-7:T1=6:IFMID$(E$,I2,1)<>"D"THEN3018
3008 IFMID$(E$,I2-4,4)="0000"THENT1=12
3010 T1=8
3018 X=(K1*2-T1)/2+(R9-1):W8=X-4*INT(X/4):IFW8=0THENW8=4
3030 T4=W8-2:IFT4<1THENT4=W8+2
3050 K=0:T1=K1*2-2:I=0
3070 I=I+2:K=K+1:IFMID$(E$,I,1)<>MID$(S$,2,1)THEN3125
3100 K1=(K+(R9-1))-4*INT((K+(R9-1))/4):IFK1=0THENK1=4
3110 IFK1=W8ORK1=T4THEN3130
3125 IFI<T1THEN3070
3128 PRINT"EVERYONE PASSES, REDEAL.":GOTO140
3130 FORI=1TO5:IFMID$(S$,2,1)=MID$(B$,6-I,1)THENX=I
3134 NEXT
3170 IFX=5THENS$=MID$(S$,1,1)+"NT"
3174 IFMID$(E$,I2,1)="D"THENS$=S$+" (DBL)"
3180 PRINT:PRINT"THE CONTRACT IS: ";S$:K=K1:GOSUB6600
3190 PRINT"THE DECLARER IS: ";F$:PRINT:K2=K1+2:IFK2>4THENK2=K1-2
3250 R=0:W8=0:T4=0:PRINT"REVIEW OF THE BIDDING:":PRINT
3304 PRINT"SOUTH  WEST   NORTH  EAST":T1=R9*7-7:PRINTTAB(T1);
3310 I=-1:T2=R9-1:T3=LEN(E$)
3312 I=I+2:IFI>T3THEN3340
3314 D$=MID$(E$,I,2)+"  ":T2=T2+1:IFT2>4THENPRINT:T2=1
3322 IFMID$(E$,I+1,1)="X"THEND$=MID$(E$,I,1)+"NT "
3324 IFMID$(E$,I,2)="DB"THEND$="DBL "
3326 IFMID$(E$,I,2)="00"THEND$="PASS"
3330 PRINTD$;"   ";:GOTO3312
3340 PRINT:PRINT:PRINT"READY TO PLAY";:INPUTD$
4000 H=H+1:IFH=5THEN4840
4002 K=K+1:IFK>4THENK=1
4008 L=K-2:IFL<1THENL=K+2
4012 M1=K+1:IFM1=5THENM1=1
4014 M2=M1+2:IFM2>4THENM2=M1-2
4020 IFH>1THEN4134
4022 G2=0
4030 IFR=13THEN7200
4032 R=R+1:PRINT:PRINT"ROUND:";R:PRINT"********"
4036 PRINTS$;"     WE:";W8;"   THEY:";T4:K3=K
4057 IFK1-2*INT(K1/2)=0THEN4080
4058 L5=5:K=3:PRINT" NORTH:"
4077 GOSUB4900:GOTO4115
4080 K=K1+2:IFK1=4ANDR=1THEN4115
4082 IFK>4THENK=K1-2
4090 L5=5:IFK1=2THENL5=15
4100 GOSUB6600:PRINTTAB(L5-4);F$;":":GOSUB4900
4115 K=1:L5=5:IFK1<>4THEN4120
4116 L5=15
4120 PRINTTAB(L5-4);"SOUTH:":GOSUB4900:K=K3
4134 IFK>1THEN4176
4136 K2=K:GOSUB5500:GOSUB6600
4142 PRINTF$;" PLAYS";:INPUTD$:IFLEN(D$)<2THEN4162
4144 IFH=1THEN4152
4148 IFMID$(D$,2,1)=MID$(B$,6-N,1)THEN4152
4149 IFV(K,N)=0THEN4152
4150 PRINT"RENEGE, TRY AGAIN.":GOTO4142
4152 F1=0:FORI=1TOT9(K)*2-1:IFD$=MID$(Z$,I,2)THENF1=1
4158 NEXT:IFF1=1THEN4167
4162 PRINT"ERROR IN LEAD, TRY AGAIN.":GOTO 4142
4167 GOSUB4850:IFG(K)<G2THEN4000
4168 G2=G(K):GOTO4000
4176 IFK<>3THEN4180
4177 IFK1-2*INT(K1/2)=0THEN4180
4178 K2=K:GOSUB5500:GOSUB6600:GOTO4142
4180 IFH>1THEN4700
4182 GOSUB6300:IFT1=4THEN4202
4200 IFVAL(MID$(S$,1,1))>7-RTHEN4244
4202 IFV(K,X(L))=0THEN4244
4203 IFX(L)<>XTHEN4208
4204 IFK=K1ORL=K1THEN4208
4206 GOTO4330
4208 K2=K:GOSUB5500:T1=0:FORI=1TOX(L):T1=T1+V(K,I):NEXT
4228 D$=MID$(Z$,2*T1-1,2)
4230 GOSUB4850:G2=G(K):GOSUB6600:PRINTF$;" PLAYS: ";D$:GOTO4000
4244 IFV(K,X)=0THEN4262
4246 IFK=K1ORL=K1THEN4250
4248 GOTO4262
4250 IFV(M1,X)+V(M2,X)=0THEN4262
4252 K2=K:K$=MID$(B$,6-X,1):GOSUB6850:G3=G(K):K2=L:GOSUB6850
4253 IFG3>G(K)THEN4258
4254 K2=K:GOSUB5500:T1=0:FORI=1TOX:T1=T1+V(K,I):NEXT
4256 D$=MID$(Z$,2*T1-1,2):GOTO4230
4258 K2=K:GOSUB6850:GOTO4230
4262 J=0
4263 J=J+1:IFV(M1,J)>0THEN4266
4264 IFV(M1,X)>0THEN4290
4266 IFV(M2,J)>0THEN4268
4267 IFV(M2,X)>0THEN4290
4268 IFJ=XTHEN4290
4270 K$=MID$(B$,6-J,1):K2=K:GOSUB6850:T2=G(K)
4278 K2=M1:GOSUB6850:IFG(K)>T2THEN4290
4284 K2=M2:GOSUB6850:IFG(K)<T2THEN4310
4290 IFJ<4THEN4263
4292 IFV(K,X(L))=0THEN4330
4294 GOTO4208
4310 K2=K:GOSUB6850:GOTO4230
4330 K2=K:GOSUB5500:T1=300:T2=1:FORI=1TO27-2*RSTEP2:D$=MID$(Z$,I,2)
4346 IFMID$(D$,2,1)=MID$(S$,2,1)THEN4356
4348 GOSUB7000:IFG(K)>T1THEN4356
4352 T1=G(K):T2=I
4356 NEXT:D$=MID$(Z$,T2,2):GOSUB4850:IFG(K)>G2THENG2=G(K)
4360 GOSUB6600:PRINTF$;" PLAYS: ";D$:GOTO4000
4468 T1=0:FORI=1TON:T1=T1+V(K,I):NEXT:K2=K:GOSUB5500
4480 D$=MID$(Z$,2*T1-1,2)
4490 GOSUB4850:IFG(K)>G2THENG2=G(K)
4514 GOSUB6600:PRINTF$;" PLAYS: ";D$:GOTO4000
4560 IFV(K,X)=0THEN4330
4562 G3=G2
4570 IFH<4THEN4620
4572 IFG(L)=G2THEN4330
4575 T1=0:IFX=1THEN4584
4578 FORI=1TOX-1:T1=T1+V(K,I)*2:NEXT
4584 K2=K:GOSUB5500:T2=T1+2*V(K,X)-1
4592 I=T1-1
4594 I=I+2:D$=MID$(Z$,I,2):GOSUB7000:IFG(K)>G3THEN4602
4599 IFI=T1+1THEN4330
4600 GOTO4760
4602 IFI<T2THEN4594
4604 IFG(K)>G3THEN4764
4606 GOTO4330
4620 IFH=3THEN4642
4622 IFV(L,N)>0THEN4632
4624 IFV(L,X)>0THEN4330
4626 G(L)=0:GOTO4642
4632 K2=L:K$=MID$(B$,6-N,1):GOSUB6850:G(L)=G(K)
4642 K2=M1:IFV(M1,N)>0THEN4660
4644 IFV(M1,X)=0THENG4=0:GOTO4666
4652 K$=MID$(B$,6-X,1):GOSUB6850:G4=G(K):GOTO4666
4660 K$=MID$(B$,6-N,1):GOSUB6850:G4=G(K)
4666 IFG4>G3THENG3=G4
4668 IFG(L)<G3THEN4575
4669 GOTO4330
4700 IFV(K,N)=0THEN4560
4702 IFV(K,N)=1THEN4468
4704 G3=G2:IFH<4THEN4770
4710 IFG(L)=G2THEN4468
4714 T1=0:IFN=1THEN4724
4716 FORI=1TON-1:T1=T1+V(K,I)*2:NEXT
4724 T2=T1+1+V(K,N)*2-2:K2=K:GOSUB5500:I=T1-1
4734 I=I+2:D$=MID$(Z$,I,2):GOSUB7000:IFG(K)>G3THEN4744
4736 GOTO4748
4744 IFI<T2THEN4734
4748 IFI=T1+1THEN4764
4749 IFG(K)>G3THEN4764
4750 D$=MID$(Z$,I-2,2):GOSUB7000:IFG(K)>G3THEN4760
4754 IFH<>3THEN4760
4756 GOSUB5600:IFF1=1THEN4490
4760 D$=MID$(Z$,I-2,2):GOTO4490
4764 D$=MID$(Z$,T2,2):GOTO4490
4770 K2=L:IFH=3THEN4800
4772 IFV(L,N)>0THEN4790
4774 IFV(L,X)>0THEN4780
4776 G(L)=0:GOTO4800
4780 K$=MID$(B$,6-X,1):GOSUB6850:G(L)=G(K):GOTO4800
4790 K$=MID$(B$,6-N,1):GOSUB6850:G(L)=G(K)
4800 K2=M1:IFV(M1,N)>0THEN4824
4806 IFV(M1,X)>0THEN4814
4808 G4=0:GOTO4830
4814 K$=MID$(B$,6-X,1):GOSUB6850:G4=G(K):GOTO4830
4824 K$=MID$(B$,6-N,1):GOSUB6850:G4=G(K)
4830 IFG4>G3THENG3=G4
4832 IFG(L)>=G3THEN4468
4834 IFH<>3THEN4714
4836 GOSUB5600:IFF1=1THEN4490
4838 GOTO4714
4840 T3=0:FORK=1TO4:IFG(K)>T3THENT3=G(K):T1=K
4845 NEXT:IFT1-2*INT(T1/2)=1THENW8=W8+1:GOTO4848
4846 T4=T4+1
4848 H=0:K=T1-1:GOTO4000
4850 T3=N:FORI=1TO4:IFMID$(D$,2,1)<>MID$(B$,6-I,1)THEN4865
4860 V(K,I)=V(K,I)-1:N=I
4865 NEXT:T2=(111-8*R)-2*(H-1):I=-1
4867 I=I+2
4868 IFD$=MID$(T$,I,2)THEN4872
4869 IFI<T2THEN4867
4872 IFI=T2THEN4882
4873 IFI>1THEN4878
4874 T$=MID$(T$,3,104):GOTO4885
4878 T$=MID$(T$,1,I-1)+MID$(T$,I+2,104):GOTO4885
4882 IFT2=1THEN4885
4883 T$=MID$(T$,1,T2-1)
4885 T9(K)=T9(K)-1:IFH=1ORN=T3THEN4897
4892 IFN=XTHEN4896
4894 N=T3:G(K)=0:RETURN
4896 N=T3
4897 GOSUB7000
4898 RETURN
4900 D$="":T1=(28-2*R)*(K-1)+1:Z$=MID$(T$,T1,2*(14-R)-1)
4905 FORI=1TO27-2*RSTEP2:D$=D$+MID$(Z$,I,1):NEXT
4910 IFV(K,1)=0THEN4915
4912 PRINTTAB(L5);"S: ";MID$(D$,1,V(K,1)):GOTO4920
4915 PRINTTAB(L5);"S:"
4920 IFV(K,2)=0THEN4925
4922 PRINTTAB(L5);"H: ";MID$(D$,V(K,1)+1,V(K,2)):GOTO4930
4925 PRINTTAB(L5);"H:"
4930 IFV(K,3)=0THEN4935
4932 T1=V(K,1)+V(K,2):PRINTTAB(L5);"D: ";MID$(D$,T1+1,V(K,3)):GOTO4937
4935 PRINTTAB(L5);"D:":IFV(K,4)=0THEN4945
4937 IF V(K,4)=0 THEN 4945
4941 T1=V(K,1)+V(K,2)+V(K,3):PRINTTAB(L5);"C: ";MID$(D$,T1+1,V(K,4))
4942 RETURN
4945 PRINTTAB(L5);"C:":RETURN
5500 T5=0:IFK2=1THEN5550
5502 FORI=1TOK2-1:T5=T5+2*T9(I):NEXT
5550 Z$=MID$(T$,T5+1,2*T9(K2)):RETURN
5600 K2=K:GOSUB5500:T1=0:IFN=1THEN5608
5602 FORI=1TON-1:T1=T1+V(K,I)*2:NEXT
5608 T2=T1+1+V(K,N)*2-2
5610 K$=MID$(B$,6-N,1):GOSUB6850:I=T1-1:IFG(K)>G3THENF1=0:RETURN
5620 IFG2=G(L)THEND$=MID$(Z$,T2,2):F1=1:RETURN
5624 I=I+2
5628 D$=MID$(Z$,I,2):GOSUB7000:IFG(K)>G2THEN5640
5630 GOTO5644
5640 IFI<T2THEN5624
5644 IFI<>T1+1THEN5652
5646 D$=MID$(Z$,T2,2):F1=1:RETURN
5652 D$=MID$(Z$,I-2,2):F1=1:RETURN
6000 FORI=1TO4:P(I)=0:FORJ=1TO5:V(I,J)=0:Y(I,J)=0:NEXT:NEXT
6025 FORI=1TO4:FORJ=1TO13:T2=F(I,J)-13*INT(F(I,J)/13)
6040 T1=5-(INT((F(I,J)-.9)/13)+1):IFT2=0THENT2=13
6060 IFT2<10THEN6090
6062 T2=T2-9:Y(I,T1)=Y(I,T1)+T2
6090 V(I,T1)=V(I,T1)+1:NEXT:NEXT
6125 FORI=1TO4:FORJ=1TO4:T1=3-V(I,J):IFT1<=0THENT1=0
6150 P(I)=P(I)+Y(I,J)+T1:F(I,J)=V(I,J)+(2*(V(I,J)-4)+Y(I,J))
6190 IFV(I,J)<4THENF(I,J)=0
6200 NEXT:NEXT:I=0
6222 I=I+1:IFI>4THENRETURN
6224 T1=-1:FORJ=1TO4:IFF(I,J)<=T1THEN6264
6260 T1=F(I,J):T2=J
6264 NEXTJ
6266 IFF(I,1)+T2>1THEN6270
6268 X(I)=5:GOTO6274
6270 X(I)=T2
6274 IFP(I)<16THEN6295
6276 FORJ=1TO4:IFY(I,J)<2THEN6295
6280 IFV(I,J)<3THEN6295
6290 NEXT:X(I)=5:V(I,5)=5:Y(I,5)=7:F(I,5)=42
6295 GOTO 6222
6300 GOSUB6700:IFT1>0THENRETURN
6302 K2=L:GOSUB5500:T2=0
6315 FORJ=1TO4:T3=1+T2:F(L,J)=0:FORI=T3TOT3+V(L,J)-1
6340 D$=MID$(Z$,2*I-1,2):GOSUB7000:N2=N2-9:IFN2<0THENN2=0
6360 F(L,J)=F(L,J)+N2:NEXT:T2=T2+V(L,J):NEXT
6380 IFMID$(S$,2,1)="X"THEN6410
6382 IFV(L,X)=0THEN6410
6384 FORJ=1TO4:IFV(L,J)>0THEN6388
6386 IFV(K,J)=0THEN6388
6387 GOTO6390
6388 NEXT
6389 IFV(L,4)>0THEN6410
6390 F(L,J)=10
6410 T2=-1:FORJ=1TO4:IFF(L,J)<=T2THEN6450
6412 T2=F(L,J):F1=J
6450 NEXT:X(L)=F1:RETURN
6500 GOSUB5500:T3=0:IFN=1THEN6532
6520 FORI=1TON-1:T3=T3+V(K2,I):NEXT
6532 IFT3=14-RTHENT3=T3-1
6535 D$=MID$(Z$,2*T3+1,2):GOSUB7000:RETURN
6600 IFK=1THENF$="SOUTH"
6602 IFK=2THENF$=" WEST"
6630 IFK=3THENF$="NORTH"
6632 IFK=4THENF$=" EAST"
6650 RETURN
6700 J=0
6710 J=J+1:K$=MID$(B$,6-J,1):IFJ=XTHEN6800
6712 K2=L:GOSUB6850:T1=G(K)
6760 K2=M1:GOSUB6850:IFG(K)>T1THEN6800
6762 K2=M2:GOSUB6850
6790 IFG(K)<T1THEN6820
6800 IFJ<4THEN6710
6802 T1=0:RETURN
6820 IFV(K,J)=0THEN6800
6822 IFX=5THEN6840
6824 IFV(M1,J)>0THEN6836
6834 IFV(M1,X)>0THEN6800
6836 IFV(M2,J)>0THEN6840
6838 IFV(M2,X)>0THEN6800
6840 X(L)=J:T1=4:RETURN
6850 GOSUB5500:I=0:F1=14-R
6870 I=I+1:IFMID$(Z$,2*I,1)=K$THEN6900
6890 IFI<F1THEN6870
6892 G(K)=0:RETURN
6900 D$=MID$(Z$,2*I-1,2):GOSUB7000:RETURN
7000 N1=0:IFMID$(D$,2,1)=MID$(S$,2,1)THENN1=13
7080 FORI2=9TO13:IFMID$(D$,1,1)=MID$(A$,I2,1)THENN2=I2
7090 NEXT:IFMID$(D$,1,1)=""THENG(K)=0:RETURN
7100 IFD$=""THENG(K)=0:RETURN
7130 IFMID$(D$,1,1)<"A"THENN2=VAL(MID$(D$,1,1))-1
7140 G(K)=N1+N2:RETURN
7200 T1=VAL(MID$(S$,1,1)):IFK1-2*INT(K1/2)=1THEN7250
7202 T3=T4-6-T1
7220 IFT3=0THEN7236
7222 IFT3>0THEN7240
7231 PRINT:PRINT"YOUR OPPONENTS WERE":PRINT"SET";ABS(T3);"TRICKS."
7232 GOTO7300
7236 PRINT:PRINT"YOUR OPPONENTS MADE":PRINT"THEIR CONTRACT (";S$;")."
7238 GOTO7300
7240 PRINT:PRINT"YOUR OPPONENTS MADE THEIR":PRINT"CONTRACT (";S$;")"
7244 PRINT"PLUS";T3;"OVERTRICKS.":GOTO7300
7250 T3=W8-6-T1:IFT3=0THEN7270
7252 IFT3>0THEN7275
7266 PRINT:PRINT"YOU WERE SET";ABS(T3);"TRICKS.":GOTO7300
7270 PRINT:PRINT"YOU MADE YOUR CONTRACT (";S$;").":GOTO7300
7275 PRINT:PRINT"YOU MADE YOUR CONTRACT (";S$;")"
7277 PRINT"PLUS";T3;"OVERTRICKS."
7300 PRINT"CONTINUE":INPUT D$:IFLEN(D$)=0THEN7315
7310 IFMID$(D$,1,1)="N"THENSTOP
7315 X=RND(5):GOTO140
8000 FORI=1TO7:Z$=MID$(N$,I,1)+MID$(B$,6-X(K),1):IFZ$<=S$THEN8050
8040 D$=Z$:RETURN
8050 NEXT:RETURN
8100 FORI=1TO7:Z$=MID$(N$,I,1)+MID$(B$,6-X(L),1):IFZ$<=S$THEN8160
8150 D$=Z$:RETURN
8160 NEXT:RETURN
8200 FORI=1TO7:Z$=MID$(N$,I,1)+MID$(B$,6-X(L),1):IFZ$<=S$THEN8260
8250 D$=MID$(N$,I+1,1)+MID$(B$,6-X(L),1):RETURN
8260 NEXT:RETURN
8300 FORI=1TO7:Z$=MID$(N$,I,1)+MID$(B$,1,1):IFZ$<=S$THEN8360
8340 D$=Z$:RETURN
8360 NEXT:RETURN
8500 T2=P(K)+P(L):IFK-2*INT(K/2)=0THENT2=T2-2
8520 F1=0:IFMID$(S$,1,1)<"2"THENRETURN
8522 IFMID$(Z$,1,1)="3"THEN8600
8540 IFMID$(Z$,1,1)="4"THEN8610
8542 IFMID$(Z$,1,1)="5"THEN8620
8560 IFLEFT$(Z$,1)="6"THEN8630
8562 IFLEFT$(Z$,1)="7"THEN8636
8600 IFT2<23THEN8640
8602 GOTO8650
8610 IFT2<26THEN8640
8611 T1=LEN(E$):IFMID$(E$,T1-3,2)="3X"THEN8640
8612 IFMID$(Z$,2,1)="X"THEN8640
8614 GOTO8650
8620 IFT2<29THEN8640
8622 IFT2>30THENRETURN
8624 T1=LEN(F$)
8626 IFMID$(E$,T1-3,2)="4S"THEN8640
8628 IFMID$(E$,T1-3,2)="4H"THEN8640
8629 GOTO8650
8630 IFT2<33THEN8640
8632 GOTO8650
8636 IFT2<37THEN8640
8638 IFS$=MID$(E$,2*(K1-1)-3,2)THEN8640
8639 RETURN
8640 F1=1:C(K1)=1:RETURN
8650 IFT2>30THENRETURN
8655 FORI2=1TO5:IFMID$(Z$,2,1)<>MID$(B$,I2,1)THEN8672
8664 T1=VAL(MID$(Z$,1,1)):I=I2
8672 NEXT:IFI=1THEN8680
8674 IFI>3THEN8690
8677 IFT1>5THEN8640
8678 RETURN
8680 IFT1>3THEN8640
8682 RETURN
8690 IFT1>4THEN8640
8692 RETURN
8700 F1=0:IFMID$(E$,T1-5,6)="DB0000"THENRETURN
8710 T2=P(1)+P(3):I=3*VAL(MID$(S$,1,1))+13:IFI>=T2THENF1=2
8740 RETURN
Ok