10 PRINT" **********************":PRINT" ****  BRIDGE 2.0  ****"
12 PRINT" **********************":REM 1223 * BR2APL *
14 PRINT" (C) 1979 BY DYNACOMP":PRINT"    WEBSTER, NY 14580"
20 PRINT:CLEAR 480:DIM C(52),P(52),V(4,5),Y(4,5),F(4,13),T9(4),X(4),G(4)
30 DIM T$(104),E$(56),A$(13),Z$(26),D$(13)
40 A$="23456789TJQKA":B$="XCDHS":N$="1234567"
110 PRINT"ENTER ANY POSITIVE NUMBER":INPUT X:R=RND(-X)
140 R9=R9-4*INT(R9/4)+1:K1=0:K=R9:PRINT"SHUFFLING";:FOR I=1 TO 52:P(I)=I
220 NEXT:FOR J=52 TO 1 STEP-1:R=INT(RND(1)*J+1):C(J)=P(R):P(R)=P(J):NEXT
250 FOR I=1 TO 4:T9(I)=13:M=I*13-13:FOR J=1 TO 13:F(I,J)=C(J+M):NEXT:NEXT
285 PRINT:PRINT"DEALING";:FOR I=1 TO 4
300 T1=0
310 FOR J=2 TO 13:IF F(I,J-1)>F(I,J)THEN 340
330 T2=F(I,J):F(I,J)=F(I,J-1):F(I,J-1)=T2:T1=1
340 NEXT J:IF T1=1 THEN 300
360 NEXT:T$="":FOR L=1 TO 4:FOR I=1 TO 13:J=F(L,I)-13*INT(F(L,I)/13)
430 M=INT((F(L,I)-.1)/13):IF J=0 THEN J=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":GOSUB 6000:K=1:L5=4
773 PRINT"YOUR HAND (SOUTH):":GOSUB 4900:E$="":S$="1A":K=R9-1
800 IF K>0 THEN 1000
802 PRINT"YOU ARE THE DEALER,":PRINT"WHAT DO YOU BID?"
810 K=1:K1=K1+1:PRINT"SOUTH";
812 INPUT Z$:IF Z$=""THEN 838
813 IF LEFT$(Z$,1)<>"P"THEN 818
814 C(K1)=1
816 E$=E$+"00":IF K1<4 THEN 1000
817 GOTO 1160
818 IF MID$(Z$,2,1)="N"THEN Z$=LEFT$(Z$,1)+"X"
820 IF LEFT$(Z$,1)<>"D"THEN 836
822 IF C(K1-1)=0 THEN 830
824 IF C(K1-2)=1 THEN 830
826 PRINT"YOU CANNOT DOUBLE YOUR":PRINT"OWN PARTNER'S BID!":GOTO 838
830 C(K1)=0:E$=E$+"DB":IF K1<4 THEN 1000
832 GOTO 1160
836 IF Z$>S$THEN 840
838 PRINT"ILLEGAL BID, TRY AGAIN.":GOTO 812
840 C(K1)=0:IF K1>4 THEN 895
850 FOR I=1 TO 5:IF MID$(Z$,2,1)=MID$(B$,I,1)THEN X(1)=6-I
852 NEXT
895 E$=E$+Z$:S$=Z$
1000 K=K+1:IF K>4 THEN 810
1002 GOSUB 2000:IF C(K1)=0 THEN 1180
1100 GOSUB 6600:IF K=3 THEN 1130
1108 T1=LEN(E$):IF T1<5 THEN 1130
1109 Z$=MID$(E$,T1-1,T1):IF Z$="00"THEN 1120
1110 Z$=MID$(E$,T1-1,2):IF Z$="00"THEN 1120
1112 IF Z$="DB"THEN 1130
1114 GOTO 1122
1120 IF MID$(E$,T1-3,2)<>"00"THEN 1130
1122 GOSUB 8700:IF F1<>2 THEN 1130
1125 PRINT F$;": DOUBLE":E$=E$+"DB":IF K1<4 THEN 1000
1128 GOTO 1160
1130 PRINT F$;": PASS":E$=E$+"00"
1160 IF K1<4 THEN 1000
1162 IF MID$(E$,2*K1-5,6)="000000"THEN 3000
1164 GOTO 1000
1180 GOSUB 8500:IF F1=1 THEN 1100
1192 S$=D$:E$=E$+S$:IF MID$(S$,2,1)="X"THEN D$=MID$(S$,1,1)+"NT"
1200 GOSUB 6600:PRINT F$;": ";D$:GOTO 1000
2000 K1=K1+1:C(K1)=0:L=K-2:IF L<=0 THEN L=K+2
2030 IF K1>4 THEN 2240
2032 IF K1>2 THEN 2080
2045 IF P(K)>23 THEN 2170
2048 IF P(K)>12 THEN 2070
2060 C(K1)=1:RETURN
2063 GOSUB 8200:RETURN
2070 GOSUB 8000:RETURN
2080 IF C(K1-2)=1 THEN 2045
2082 IF P(K)>5 THEN 2120
2084 IF P(L)>23 THEN 2070
2104 IF C(K1-1)=0 THEN 2060
2106 IF MID$(E$,2*K1-5,1)<>"D"THEN 2060
2108 GOTO 2070
2120 IF P(K)>9 THEN 2170
2122 IF V(K,X(K))<5 THEN 2130
2126 IF MID$(B$,6-X(K),1)>MID$(S$,2,1)THEN 2070
2130 IF X(L)=5 THEN 2070
2131 IF V(K,X(L))>3 THEN 2230
2132 IF V(K,X(L))<2 THEN 2060
2134 IF Y(K,X(L))=0 THEN 2150
2136 GOTO 2230
2150 IF S$>="1X"THEN 2060
2152 D$="1X":RETURN
2170 IF P(K)<14 THEN 2070
2172 IF P(K)>18 THEN L=K:GOTO 2063
2222 IF V(K,X(L))<4 THEN 2070
2224 IF V(K,X(K))<5 THEN 2070
2226 IF Y(K,X(K))<4 THEN 2070
2228 GOTO 2063
2230 GOSUB 8100:RETURN
2240 IF P(K)>5 THEN 2250
2242 IF P(K)+P(L)>25 THEN 2328
2250 IF V(K,X(K))>4 THEN 2260
2252 IF P(K)>16 THEN 2260
2254 IF C(K1-2)=1 THEN 2060
2256 IF P(K)<10 THEN 2130
2258 IF K1<8 THEN 2418
2259 GOTO 2328
2260 IF C(K1-2)=0 THEN 2310
2280 IF P(K)<14 THEN 2060
2282 IF V(K,X(K))<5 THEN 2060
2284 GOTO 2070
2310 IF MID$(E$,2*(K1-1)-2,1)="X"THEN 2380
2316 IF K1>7 THEN 2328
2318 IF MID$(S$,1,1)>"2"THEN 2328
2320 IF V(K,X(K))<5 THEN 2328
2322 IF P(K)>9 THEN 2070
2324 IF MID$(B$,6-X(K),1)>MID$(S$,2,1)THEN 2070
2326 GOTO 2131
2328 IF X(L)=0 THEN 2070
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 IF M1>=M2 THEN 2070
2352 IF V(K,X(L))<2 THEN 2070
2354 X(K)=X(L):GOTO 2230
2380 IF P(K)<6 THEN 2060
2382 IF MID$(E$,2*(K1-1)-3,2)="3X"THEN 2060
2410 F1=0:FOR I=1 TO 4:IF V(K,I)>4 THEN F1=1
2414 NEXT:IF F1=1 THEN 2070
2415 IF K1>4 THEN 2418
2416 IF P(K)>12 THEN 2063
2418 GOSUB 8300:RETURN
3000 I2=LEN(E$)-7:T1=6:IF MID$(E$,I2,1)<>"D"THEN 3018
3008 IF MID$(E$,I2-4,4)="0000"THEN T1=12
3010 T1=8
3018 X=(K1*2-T1)/2+(R9-1):W8=X-4*INT(X/4):IF W8=0 THEN W8=4
3030 T4=W8-2:IF T4<1 THEN T4=W8+2
3050 K=0:T1=K1*2-2:I=0
3070 I=I+2:K=K+1:IF MID$(E$,I,1)<>MID$(S$,2,1)THEN 3125
3100 K1=(K+(R9-1))-4*INT((K+(R9-1))/4):IF K1=0 THEN K1=4
3110 IF K1=W8 OR K1=T4 THEN 3130
3125 IF I<T1 THEN 3070
3128 PRINT"EVERYONE PASSES, REDEAL.":GOTO 140
3130 FOR I=1 TO 5:IF MID$(S$,2,1)=MID$(B$,6-I,1)THEN X=I
3134 NEXT
3170 IF X=5 THEN S$=MID$(S$,1,1)+"NT"
3174 IF MID$(E$,I2,1)="D"THEN S$=S$+" (DBL)"
3180 PRINT:PRINT"THE CONTRACT IS: ";S$:K=K1:GOSUB 6600
3190 PRINT"THE DECLARER IS: ";F$:PRINT:K2=K1+2:IF K2>4 THEN K2=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:PRINT TAB(T1);
3310 I=-1:T2=R9-1:T3=LEN(E$)
3312 I=I+2:IF I>T3 THEN 3340
3314 D$=MID$(E$,I,2)+"  ":T2=T2+1:IF T2>4 THEN PRINT:T2=1
3322 IF MID$(E$,I+1,1)="X"THEN D$=MID$(E$,I,1)+"NT "
3324 IF MID$(E$,I,2)="DB"THEN D$="DBL "
3326 IF MID$(E$,I,2)="00"THEN D$="PASS"
3330 PRINT D$;"   ";:GOTO 3312
3340 PRINT:PRINT:PRINT"READY TO PLAY";:INPUT D$
4000 H=H+1:IF H=5 THEN 4840
4002 K=K+1:IF K>4 THEN K=1
4008 L=K-2:IF L<1 THEN L=K+2
4012 M1=K+1:IF M1=5 THEN M1=1
4014 M2=M1+2:IF M2>4 THEN M2=M1-2
4020 IF H>1 THEN 4134
4022 G2=0
4030 IF R=13 THEN 7200
4032 R=R+1:PRINT:PRINT"ROUND:";R:PRINT"********"
4036 PRINT S$;"     WE:";W8;"   THEY:";T4:K3=K
4057 IF K1-2*INT(K1/2)=0 THEN 4080
4058 L5=5:K=3:PRINT" NORTH:"
4077 GOSUB 4900:GOTO 4115
4080 K=K1+2:IF K1=4 AND R=1 THEN 4115
4082 IF K>4 THEN K=K1-2
4090 L5=5:IF K1=2 THEN L5=15
4100 GOSUB 6600:PRINT TAB(L5-4);F$;":":GOSUB 4900
4115 K=1:L5=5:IF K1<>4 THEN 4120
4116 L5=15
4120 PRINT TAB(L5-4);"SOUTH:":GOSUB 4900:K=K3
4134 IF K>1 THEN 4176
4136 K2=K:GOSUB 5500:GOSUB 6600
4142 PRINT F$;" PLAYS";:INPUT D$:IF LEN(D$)<2 THEN 4162
4144 IF H=1 THEN 4152
4148 IF MID$(D$,2,1)=MID$(B$,6-N,1)THEN 4152
4149 IF V(K,N)=0 THEN 4152
4150 PRINT"RENEGE, TRY AGAIN.":GOTO 4142
4152 F1=0:FOR I=1 TO T9(K)*2-1:IF D$=MID$(Z$,I,2)THEN F1=1
4158 NEXT:IF F1=1 THEN 4167
4162 PRINT"ERROR IN LEAD, TRY AGAIN.":GOTO 4142
4167 GOSUB 4850:IF G(K)<G2 THEN 4000
4168 G2=G(K):GOTO 4000
4176 IF K<>3 THEN 4180
4177 IF K1-2*INT(K1/2)=0 THEN 4180
4178 K2=K:GOSUB 5500:GOSUB 6600:GOTO 4142
4180 IF H>1 THEN 4700
4182 GOSUB 6300:IF T1=4 THEN 4202
4200 IF VAL(MID$(S$,1,1))>7-R THEN 4244
4202 IF V(K,X(L))=0 THEN 4244
4203 IF X(L)<>X THEN 4208
4204 IF K=K1 OR L=K1 THEN 4208
4206 GOTO 4330
4208 K2=K:GOSUB 5500:T1=0:FOR I=1 TO X(L):T1=T1+V(K,I):NEXT
4228 D$=MID$(Z$,2*T1-1,2)
4230 GOSUB 4850:G2=G(K):GOSUB 6600:PRINT F$;" PLAYS: ";D$:GOTO 4000
4244 IF V(K,X)=0 THEN 4262
4246 IF K=K1 OR L=K1 THEN 4250
4248 GOTO 4262
4250 IF V(M1,X)+V(M2,X)=0 THEN 4262
4252 K2=K:K$=MID$(B$,6-X,1):GOSUB 6850:G3=G(K):K2=L:GOSUB 6850
4253 IF G3>G(K)THEN 4258
4254 K2=K:GOSUB 5500:T1=0:FOR I=1 TO X:T1=T1+V(K,I):NEXT
4256 D$=MID$(Z$,2*T1-1,2):GOTO 4230
4258 K2=K:GOSUB 6850:GOTO 4230
4262 J=0
4263 J=J+1:IF V(M1,J)>0 THEN 4266
4264 IF V(M1,X)>0 THEN 4290
4266 IF V(M2,J)>0 THEN 4268
4267 IF V(M2,X)>0 THEN 4290
4268 IF J=X THEN 4290
4270 K$=MID$(B$,6-J,1):K2=K:GOSUB 6850:T2=G(K)
4278 K2=M1:GOSUB 6850:IF G(K)>T2 THEN 4290
4284 K2=M2:GOSUB 6850:IF G(K)<T2 THEN 4310
4290 IF J<4 THEN 4263
4292 IF V(K,X(L))=0 THEN 4330
4294 GOTO 4208
4310 K2=K:GOSUB 6850:GOTO 4230
4330 K2=K:GOSUB 5500:T1=300:T2=1:FOR I=1 TO 27-2*R STEP 2:D$=MID$(Z$,I,2)
4346 IF MID$(D$,2,1)=MID$(S$,2,1)THEN 4356
4348 GOSUB 7000:IF G(K)>T1 THEN 4356
4352 T1=G(K):T2=I
4356 NEXT:D$=MID$(Z$,T2,2):GOSUB 4850:IF G(K)>G2 THEN G2=G(K)
4360 GOSUB 6600:PRINT F$;" PLAYS: ";D$:GOTO 4000
4468 T1=0:FOR I=1 TO N:T1=T1+V(K,I):NEXT:K2=K:GOSUB 5500
4480 D$=MID$(Z$,2*T1-1,2)
4490 GOSUB 4850:IF G(K)>G2 THEN G2=G(K)
4514 GOSUB 6600:PRINT F$;" PLAYS: ";D$:GOTO 4000
4560 IF V(K,X)=0 THEN 4330
4562 G3=G2
4570 IF H<4 THEN 4620
4572 IF G(L)=G2 THEN 4330
4575 T1=0:IF X=1 THEN 4584
4578 FOR I=1 TO X-1:T1=T1+V(K,I)*2:NEXT
4584 K2=K:GOSUB 5500:T2=T1+2*V(K,X)-1
4592 I=T1-1
4594 I=I+2:D$=MID$(Z$,I,2):GOSUB 7000:IF G(K)>G3 THEN 4602
4599 IF I=T1+1 THEN 4330
4600 GOTO 4760
4602 IF I<T2 THEN 4594
4604 IF G(K)>G3 THEN 4764
4606 GOTO 4330
4620 IF H=3 THEN 4642
4622 IF V(L,N)>0 THEN 4632
4624 IF V(L,X)>0 THEN 4330
4626 G(L)=0:GOTO 4642
4632 K2=L:K$=MID$(B$,6-N,1):GOSUB 6850:G(L)=G(K)
4642 K2=M1:IF V(M1,N)>0 THEN 4660
4644 IF V(M1,X)=0 THEN G4=0:GOTO 4666
4652 K$=MID$(B$,6-X,1):GOSUB 6850:G4=G(K):GOTO 4666
4660 K$=MID$(B$,6-N,1):GOSUB 6850:G4=G(K)
4666 IF G4>G3 THEN G3=G4
4668 IF G(L)<G3 THEN 4575
4669 GOTO 4330
4700 IF V(K,N)=0 THEN 4560
4702 IF V(K,N)=1 THEN 4468
4704 G3=G2:IF H<4 THEN 4770
4710 IF G(L)=G2 THEN 4468
4714 T1=0:IF N=1 THEN 4724
4716 FOR I=1 TO N-1:T1=T1+V(K,I)*2:NEXT
4724 T2=T1+1+V(K,N)*2-2:K2=K:GOSUB 5500:I=T1-1
4734 I=I+2:D$=MID$(Z$,I,2):GOSUB 7000:IF G(K)>G3 THEN 4744
4736 GOTO 4748
4744 IF I<T2 THEN 4734
4748 IF I=T1+1 THEN 4764
4749 IF G(K)>G3 THEN 4764
4750 D$=MID$(Z$,I-2,2):GOSUB 7000:IF G(K)>G3 THEN 4760
4754 IF H<>3 THEN 4760
4756 GOSUB 5600:IF F1=1 THEN 4490
4760 D$=MID$(Z$,I-2,2):GOTO 4490
4764 D$=MID$(Z$,T2,2):GOTO 4490
4770 K2=L:IF H=3 THEN 4800
4772 IF V(L,N)>0 THEN 4790
4774 IF V(L,X)>0 THEN 4780
4776 G(L)=0:GOTO 4800
4780 K$=MID$(B$,6-X,1):GOSUB 6850:G(L)=G(K):GOTO 4800
4790 K$=MID$(B$,6-N,1):GOSUB 6850:G(L)=G(K)
4800 K2=M1:IF V(M1,N)>0 THEN 4824
4806 IF V(M1,X)>0 THEN 4814
4808 G4=0:GOTO 4830
4814 K$=MID$(B$,6-X,1):GOSUB 6850:G4=G(K):GOTO 4830
4824 K$=MID$(B$,6-N,1):GOSUB 6850:G4=G(K)
4830 IF G4>G3 THEN G3=G4
4832 IF G(L)>=G3 THEN 4468
4834 IF H<>3 THEN 4714
4836 GOSUB 5600:IF F1=1 THEN 4490
4838 GOTO 4714
4840 T3=0:FOR K=1 TO 4:IF G(K)>T3 THEN T3=G(K):T1=K
4845 NEXT:IF T1-2*INT(T1/2)=1 THEN W8=W8+1:GOTO 4848
4846 T4=T4+1
4848 H=0:K=T1-1:GOTO 4000
4850 T3=N:FOR I=1 TO 4:IF MID$(D$,2,1)<>MID$(B$,6-I,1)THEN 4865
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 IF D$=MID$(T$,I,2)THEN 4872
4869 IF I<T2 THEN 4867
4872 IF I=T2 THEN 4882
4873 IF I>1 THEN 4878
4874 T$=MID$(T$,3,104):GOTO 4885
4878 T$=MID$(T$,1,I-1)+MID$(T$,I+2,104):GOTO 4885
4882 IF T2=1 THEN 4885
4883 T$=MID$(T$,1,T2-1)
4885 T9(K)=T9(K)-1:IF H=1 OR N=T3 THEN 4897
4892 IF N=X THEN 4896
4894 N=T3:G(K)=0:RETURN
4896 N=T3
4897 GOSUB 7000
4898 RETURN
4900 D$="":T1=(28-2*R)*(K-1)+1:Z$=MID$(T$,T1,2*(14-R)-1)
4905 FOR I=1 TO 27-2*R STEP 2:D$=D$+MID$(Z$,I,1):NEXT
4910 IF V(K,1)=0 THEN 4915
4912 PRINT TAB(L5);"S: ";MID$(D$,1,V(K,1)):GOTO 4920
4915 PRINT TAB(L5);"S:"
4920 IF V(K,2)=0 THEN 4925
4922 PRINT TAB(L5);"H: ";MID$(D$,V(K,1)+1,V(K,2)):GOTO 4930
4925 PRINT TAB(L5);"H:"
4930 IF V(K,3)=0 THEN 4935
4932 T1=V(K,1)+V(K,2):PRINT TAB(L5);"D: ";MID$(D$,T1+1,V(K,3)):GOTO 4937
4935 PRINT TAB(L5);"D:":IF V(K,4)=0 THEN 4945
4937 IF V(K,4)=0 THEN 4945
4941 T1=V(K,1)+V(K,2)+V(K,3):PRINT TAB(L5);"C: ";MID$(D$,T1+1,V(K,4))
4942 RETURN
4945 PRINT TAB(L5);"C:":RETURN
5500 T5=0:IF K2=1 THEN 5550
5502 FOR I=1 TO K2-1:T5=T5+2*T9(I):NEXT
5550 Z$=MID$(T$,T5+1,2*T9(K2)):RETURN
5600 K2=K:GOSUB 5500:T1=0:IF N=1 THEN 5608
5602 FOR I=1 TO N-1:T1=T1+V(K,I)*2:NEXT
5608 T2=T1+1+V(K,N)*2-2
5610 K$=MID$(B$,6-N,1):GOSUB 6850:I=T1-1:IF G(K)>G3 THEN F1=0:RETURN
5620 IF G2=G(L)THEN D$=MID$(Z$,T2,2):F1=1:RETURN
5624 I=I+2
5628 D$=MID$(Z$,I,2):GOSUB 7000:IF G(K)>G2 THEN 5640
5630 GOTO 5644
5640 IF I<T2 THEN 5624
5644 IF I<>T1+1 THEN 5652
5646 D$=MID$(Z$,T2,2):F1=1:RETURN
5652 D$=MID$(Z$,I-2,2):F1=1:RETURN
6000 FOR I=1 TO 4:P(I)=0:FOR J=1 TO 5:V(I,J)=0:Y(I,J)=0:NEXT:NEXT
6025 FOR I=1 TO 4:FOR J=1 TO 13:T2=F(I,J)-13*INT(F(I,J)/13)
6040 T1=5-(INT((F(I,J)-.9)/13)+1):IF T2=0 THEN T2=13
6060 IF T2<10 THEN 6090
6062 T2=T2-9:Y(I,T1)=Y(I,T1)+T2
6090 V(I,T1)=V(I,T1)+1:NEXT:NEXT
6125 FOR I=1 TO 4:FOR J=1 TO 4:T1=3-V(I,J):IF T1<=0 THEN T1=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 IF V(I,J)<4 THEN F(I,J)=0
6200 NEXT:NEXT:I=0
6222 I=I+1:IF I>4 THEN RETURN
6224 T1=-1:FOR J=1 TO 4:IF F(I,J)<=T1 THEN 6264
6260 T1=F(I,J):T2=J
6264 NEXT J
6266 IF F(I,1)+T2>1 THEN 6270
6268 X(I)=5:GOTO 6274
6270 X(I)=T2
6274 IF P(I)<16 THEN 6295
6276 FOR J=1 TO 4:IF Y(I,J)<2 THEN 6295
6280 IF V(I,J)<3 THEN 6295
6290 NEXT:X(I)=5:V(I,5)=5:Y(I,5)=7:F(I,5)=42
6295 GOTO 6222
6300 GOSUB 6700:IF T1>0 THEN RETURN
6302 K2=L:GOSUB 5500:T2=0
6315 FOR J=1 TO 4:T3=1+T2:F(L,J)=0:FOR I=T3 TO T3+V(L,J)-1
6340 D$=MID$(Z$,2*I-1,2):GOSUB 7000:N2=N2-9:IF N2<0 THEN N2=0
6360 F(L,J)=F(L,J)+N2:NEXT:T2=T2+V(L,J):NEXT
6380 IF MID$(S$,2,1)="X"THEN 6410
6382 IF V(L,X)=0 THEN 6410
6384 FOR J=1 TO 4:IF V(L,J)>0 THEN 6388
6386 IF V(K,J)=0 THEN 6388
6387 GOTO 6390
6388 NEXT
6389 IF V(L,4)>0 THEN 6410
6390 F(L,J)=10
6410 T2=-1:FOR J=1 TO 4:IF F(L,J)<=T2 THEN 6450
6412 T2=F(L,J):F1=J
6450 NEXT:X(L)=F1:RETURN
6500 GOSUB 5500:T3=0:IF N=1 THEN 6532
6520 FOR I=1 TO N-1:T3=T3+V(K2,I):NEXT
6532 IF T3=14-R THEN T3=T3-1
6535 D$=MID$(Z$,2*T3+1,2):GOSUB 7000:RETURN
6600 IF K=1 THEN F$="SOUTH"
6602 IF K=2 THEN F$=" WEST"
6630 IF K=3 THEN F$="NORTH"
6632 IF K=4 THEN F$=" EAST"
6650 RETURN
6700 J=0
6710 J=J+1:K$=MID$(B$,6-J,1):IF J=X THEN 6800
6712 K2=L:GOSUB 6850:T1=G(K)
6760 K2=M1:GOSUB 6850:IF G(K)>T1 THEN 6800
6762 K2=M2:GOSUB 6850
6790 IF G(K)<T1 THEN 6820
6800 IF J<4 THEN 6710
6802 T1=0:RETURN
6820 IF V(K,J)=0 THEN 6800
6822 IF X=5 THEN 6840
6824 IF V(M1,J)>0 THEN 6836
6834 IF V(M1,X)>0 THEN 6800
6836 IF V(M2,J)>0 THEN 6840
6838 IF V(M2,X)>0 THEN 6800
6840 X(L)=J:T1=4:RETURN
6850 GOSUB 5500:I=0:F1=14-R
6870 I=I+1:IF MID$(Z$,2*I,1)=K$THEN 6900
6890 IF I<F1 THEN 6870
6892 G(K)=0:RETURN
6900 D$=MID$(Z$,2*I-1,2):GOSUB 7000:RETURN
7000 N1=0:IF MID$(D$,2,1)=MID$(S$,2,1)THEN N1=13
7080 FOR I2=9 TO 13:IF MID$(D$,1,1)=MID$(A$,I2,1)THEN N2=I2
7090 NEXT:IF MID$(D$,1,1)=""THEN G(K)=0:RETURN
7100 IF D$=""THEN G(K)=0:RETURN
7130 IF MID$(D$,1,1)<"A"THEN N2=VAL(MID$(D$,1,1))-1
7140 G(K)=N1+N2:RETURN
7200 T1=VAL(MID$(S$,1,1)):IF K1-2*INT(K1/2)=1 THEN 7250
7202 T3=T4-6-T1
7220 IF T3=0 THEN 7236
7222 IF T3>0 THEN 7240
7231 PRINT:PRINT"YOUR OPPONENTS WERE":PRINT"SET";ABS(T3);"TRICKS."
7232 GOTO 7300
7236 PRINT:PRINT"YOUR OPPONENTS MADE":PRINT"THEIR CONTRACT (";S$;")."
7238 GOTO 7300
7240 PRINT:PRINT"YOUR OPPONENTS MADE THEIR":PRINT"CONTRACT (";S$;")"
7244 PRINT"PLUS";T3;"OVERTRICKS.":GOTO 7300
7250 T3=W8-6-T1:IF T3=0 THEN 7270
7252 IF T3>0 THEN 7275
7266 PRINT:PRINT"YOU WERE SET";ABS(T3);"TRICKS.":GOTO 7300
7270 PRINT:PRINT"YOU MADE YOUR CONTRACT (";S$;").":GOTO 7300
7275 PRINT:PRINT"YOU MADE YOUR CONTRACT (";S$;")"
7277 PRINT"PLUS";T3;"OVERTRICKS."
7300 PRINT"CONTINUE":INPUT D$:IF LEN(D$)=0 THEN 7315
7310 IF MID$(D$,1,1)="N"THEN STOP
7315 X=RND(5):GOTO 140
8000 FOR I=1 TO 7:Z$=MID$(N$,I,1)+MID$(B$,6-X(K),1):IF Z$<=S$THEN 8050
8040 D$=Z$:RETURN
8050 NEXT:RETURN
8100 FOR I=1 TO 7:Z$=MID$(N$,I,1)+MID$(B$,6-X(L),1):IF Z$<=S$THEN 8160
8150 D$=Z$:RETURN
8160 NEXT:RETURN
8200 FOR I=1 TO 7:Z$=MID$(N$,I,1)+MID$(B$,6-X(L),1):IF Z$<=S$THEN 8260
8250 D$=MID$(N$,I+1,1)+MID$(B$,6-X(L),1):RETURN
8260 NEXT:RETURN
8300 FOR I=1 TO 7:Z$=MID$(N$,I,1)+MID$(B$,1,1):IF Z$<=S$THEN 8360
8340 D$=Z$:RETURN
8360 NEXT:RETURN
8500 T2=P(K)+P(L):IF K-2*INT(K/2)=0 THEN T2=T2-2
8520 F1=0:IF MID$(S$,1,1)<"2"THEN RETURN
8522 IF MID$(Z$,1,1)="3"THEN 8600
8540 IF MID$(Z$,1,1)="4"THEN 8610
8542 IF MID$(Z$,1,1)="5"THEN 8620
8560 IF LEFT$(Z$,1)="6"THEN 8630
8562 IF LEFT$(Z$,1)="7"THEN 8636
8600 IF T2<23 THEN 8640
8602 GOTO 8650
8610 IF T2<26 THEN 8640
8611 T1=LEN(E$):IF MID$(E$,T1-3,2)="3X"THEN 8640
8612 IF MID$(Z$,2,1)="X"THEN 8640
8614 GOTO 8650
8620 IF T2<29 THEN 8640
8622 IF T2>30 THEN RETURN
8624 T1=LEN(F$)
8626 IF MID$(E$,T1-3,2)="4S"THEN 8640
8628 IF MID$(E$,T1-3,2)="4H"THEN 8640
8629 GOTO 8650
8630 IF T2<33 THEN 8640
8632 GOTO 8650
8636 IF T2<37 THEN 8640
8638 IF S$=MID$(E$,2*(K1-1)-3,2)THEN 8640
8639 RETURN
8640 F1=1:C(K1)=1:RETURN
8650 IF T2>30 THEN RETURN
8655 FOR I2=1 TO 5:IF MID$(Z$,2,1)<>MID$(B$,I2,1)THEN 8672
8664 T1=VAL(MID$(Z$,1,1)):I=I2
8672 NEXT:IF I=1 THEN 8680
8674 IF I>3 THEN 8690
8677 IF T1>5 THEN 8640
8678 RETURN
8680 IF T1>3 THEN 8640
8682 RETURN
8690 IF T1>4 THEN 8640
8692 RETURN
8700 F1=0:IF MID$(E$,T1-5,6)="DB0000"THEN RETURN
8710 T2=P(1)+P(3):I=3*VAL(MID$(S$,1,1))+13:IF I>=T2 THEN F1=2
8740 RETURN

8700 F1=0:IF MID$(E