1 POKE650,64:PRINTCHR$(142):GOTO9630
2 SYS49236:RETURN
3 N=FNB(K):T=PEEK(B+10+K):M=FNV(K):Q=PEEK(964+K):PR=PEEK(984+K):T2=13-PEEK(C+K):RETURN
4 FORT=1TO99:NEXT:RETURN
5 FORT=1TO2500:NEXT:RETURN
7 IFTB>ZTHENIFNOT((Z=3ORZ=4)ANDTB<8)THENZ=TB
8 GOTO3532
9 X=C%-(13*(D-1))+1:RETURN
10 GOSUB49:KX=T+K:KC=FNB(K):KD=FNV(K):GOSUB18:KY=T+K:DX=PEEK(853+K)
12 E=PEEK(849+K):PR=PEEK(980+K):Q=PEEK(960+K):JM=PEEK(839+K):RETURN
15 T=49700+(U-1)*17:RETURN
17 T=.-(U>.)*(6+(U-1)*8):RETURN
18 T=ABS(3-U)*2+968:RETURN
19 WS=PS:GOSUB8500:R=W+S:RETURN
20 POKE53281,1:POKE53280,6:RETURN
21 SYS49623:RETURN
22 G=T%-(WS-1)*13+1:GOSUB23:SYS50427:Z=PEEK(896):RETURN
23 POKE899,T%:POKE900,WS*13+1:RETURN
24 U=FNQ(GB):GOSUB63:RETURN
26 X=FNQ(Z):IFZTHENPRINT"[144]";:IFX=2ORX=3THENPRINT"";
27 RETURN
28 U=FNZ(U):GOSUB30:RETURN
30 V=B:GOSUB15:B=T:RETURN
31 PRINTTAB(11):GOSUB33:GOSUB92:GOSUB87:RETURN
33 PRINT"  [144][216][218]  ";:RETURN
34 GOSUB35:SYS51061:Y=PEEK(898):RETURN
35 SYS51192+(K-1)*11:POKE897,X:RETURN
36 GOSUB38:POKE900,K*13+1:POKE899,Y
37 SYS50435:W=PEEK(896):RETURN
38 POKE898,1:POKE897,3:RETURN
39 J=.:GOSUB2:SYS49353:X=13:T=49582:E=49500+(U-1)*X:IFR(.)=1ANDB%<>2THENRETURN
40 FORM=4TO1STEP-1:GOSUB56:S=X*(M-1):PRINT:PRINTTAB(O)Z$(M)" [144]";
41 D=.:IFJ<XTHEND=PEEK(E+J):IFD=.THEN45
42 IFD<=STHEN46
43 POKEA+4,129:IFPOS(.)>O+XTHENPRINTCHR$(X);:PRINTTAB(O+3);
44 POKET,D-S:SYST+20:POKEA+4,128
45 J=J+1:IFJ<XTHEN41
46 NEXT:GOSUB2:RETURN
49 T=972-ABS(U-3)*2:RETURN
50 U=OP:GOSUB148:GOSUB31:PRINTTAB(9)" IS DEALING THE HAND ":GOSUB143:RETURN
51 GOSUB2:POKEA+24,15:RETURN
52 POKE198,.:RETURN
53 GOSUB35:SYS51788:Y=PEEK(898):RETURN
55 GOSUB340:M=S
56 PRINTCHR$(144+116*(M=2ORM=3));:RETURN
57 X=U:GOSUB53:GOSUB36:RETURN
58 IFMSTHENO=MS+4:GOSUB181
59 RETURN
60 PRINT"";:IFDN=.THENPRINT:RETURN
61 PRINT" "Z$(5+DN):RETURN
62 PRINT"";:POKE214,Y-1:PRINT:RETURN
63 GOSUB99:PRINTCHR$(31-Q);:RETURN
65 POKEX,PEEK(X)ORFNX(K):RETURN
66 GOSUB67:GOTO8
67 Q=.:X=FNQ(GB):IFFNQ(O)=.THEN71
68 Q=INT(O/5)*5:O=O-Q:IFO>XTHENZ=((INT(GB/5)*5)+O)+Q:RETURN
69 Z=((INT(GB/5)+1)*5)+O:IFQTHENZ=Z+Q
70 RETURN
71 IFX=.THENZ=GB+5+O:RETURN
72 Z=((INT(GB/5)+1)*5)+O:RETURN
73 L=GB:GOSUB201:PL=Y:GOSUB209:RETURN
74 GOSUB157:GOTO158
76 Q=.:IFTRTHENIFFNB(TR)+PEEK(C+TR)<13THENRETURN
77 FORJ=1TO4:IFFNB(J)THENIFFNB(J)+PEEK(C+J)=13THENIFJ<>TRTHENQ=1
78 NEXT:RETURN
79 D=.:IFMSTHENIFKX>21ORKX=14ORKX=15THENIFKC>6OR(MS>2ANDKC>5)THEND=1
80 RETURN
81 GOSUB52:GOSUB967:RETURN
82 U=PL:GOSUB99:POKEC+5+Q,PEEK(C+5+Q)+14-PEEK(C):POKEC,13:FX=99:RETURN
83 GOSUB955:GOSUB55:POKE49582,C%-(M-1)*13:PRINTZ$(M);:SYS49581:GOSUB315:RETURN
84 T=49582:POKET,Y:SYST+28:RETURN
85 SL=99:GOSUB52:PRINT" NEW CONTRACT[146]  ";:GOSUB226
86 GB=Z:D=.:PRINT:PRINT" [149]DECLARER [146]  ";:GOSUB963:PL=D:DN=.:RETURN
87 PRINT"  [211][144][193]":RETURN
90 PRINTSPC(2);:FORU=5TO6:GOSUB92:NEXT:PRINT"=> *";:RETURN
91 POKE50106,Y:Y=TB:GOSUB62:GOSUB63:GOSUB17:PRINTTAB(O):RETURN
92 GOSUB63:GOSUB17:POKEC-19,T:SYSC-20:POKEC-11,.:RETURN
95 Y=32:GOSUB91:POKEC-19,T:SYS50097:GOSUB143:POKEC-11,.:RETURN
96 X=.:FORJ=1TO4:X=X+PEEK(I+J):NEXT:SX=R(.)-FX:IFXANDX>=SXTHENR=.:RETURN
97 R=SX-X:RETURN
98 GOSUB8300:D=.:GOSUB8360:RETURN
99 Q=(UAND1)AND1:RETURN
101 X=1:D=.:T=ASC(A$)+128
102 FORL=1TO4:IFT=ASC(Z$(L))THENX=.:D=L
103 NEXT:RETURN
104 GOSUB250:IFA$="@"THENPRINT"[157]"A$:GOSUB82:X=1
105 IFA$=CHR$(43)THENX=2
106 RETURN
107 D=14:GOSUB108:D=D+(D>.):RETURN
108 T=49566:POKET,D:POKE896,ASC(A$):SYST-1:D=PEEK(T):RETURN
109 L=PEEK(C+TR)+FNB(TR)+FNV(TR):RETURN
110 GOSUB776:TB=(T*(30+10*(F=1ORF=2))-10*(F=.))*2^DN:RETURN
113 TB=.:IFPB=.ORPB>35THENRETURN
114 X=GB:GB=PB:GOSUB110:GB=X:RETURN
115 L=49271:X=A+14:POKEX+5,48:POKEX+6,170:Y=6-U
116 FORJ=YTOY-1STEP-1:POKEX,PEEK(L+5+J):POKEX+1,PEEK(L+J):POKEX+4,33:GOSUB4:POKEX+4,32:NEXT:RETURN
117 GOSUB110:F=(DEAND1)AND1:IFTB+C%(3+F)<100ORC%(5+F)=.THEN8
118 GOSUB121:IFYTHENIFGB<11ORO>FNQ(GB)THEN4396
119 GOTO8
120 A%=1:POKE51578,0:GOSUB2107:GOSUB955:GOTO827
121 Y=.:S=PEEK(B+15):F=PEEK(B+16):IFSTHENO=S:Y=1:IFFTHENIFPEEK(B+S)>3ANDS>2THENRETURN
122 IFFTHENO=F:Y=1:IFSTHENIFPEEK(B+F)<5OR(PEEK(B+S)>=PEEK(B+F)ANDFNB(S)>6)THENO=S
123 RETURN
132 GOSUB30:GOSUB981:RETURN
133 X=.:IFGC=.OR(GC=2ANDDE=.)THENIFU=DBORU=PLTHENX=1:RETURN
134 IFGC=2THENIFDE=1THENIFU=4THENX=1:RETURN
135 IFGC=4THENIF(DE=.AND(U=2ORU=4ORU=1))OR(DEAND(U=1ORU=3ORU=4))THENX=1
136 RETURN
137 X=.:IFGC=.ORGC=4THENRETURN
138 IFDE=1THENIFU=DBORU=PLTHENX=1
139 RETURN
140 GOSUB955:POKE900,6-(UAND1):SYS51538:GOSUB827:SYS51522:RETURN
141 GOSUB2000:GOSUB83:RETURN
142 SYS51504:RETURN
143 GOSUB51:GOSUB115:GOSUB2:RETURN
146 GOSUB51:POKEA+1,Y:POKEA+5,43:POKEA+15,5:POKEA+4,20:POKEA+4,21:RETURN
148 Y=9:GOSUB62:RETURN
149 MS=.-(WT=LEORWT=PB):RETURN
151 GOSUB155:SYS49803:GOSUB152:RETURN
152 C%=PEEK(L-2):D=PEEK(L+2):RETURN
153 GOSUB155:POKE49900,T%:SYS49903:GOSUB152:RETURN
155 GOSUB205:POKEL+1,12+(U-1)*13:RETURN
156 GOSUB205:POKEL+1,(U-1)*13:RETURN
157 GOSUB156:SYS50003:GOSUB152:RETURN
158 POKE49500+PEEK(49801),.:RETURN
162 IFZANDZ<36THENGOSUB26:POKE49582,INT((Z-1)/5):SYS49581:PRINTZ$(FNQ(Z));:RETURN
163 PRINTZ$(5-1*(Z=36)-2*(Z=37));:RETURN
164 GOSUB5:GOSUB300:PRINT"":GOSUB776:S=PEEK(C+5+(PLAND1))-6-T
168 GOSUB894:IFS>=.THENPRINT"  OVERTRICKS [146][144]"S:GOTO170
169 PRINT"  DOWN [146][144]"ABS(S)
170 POKEC,.:GOSUB52:PRINT"[149]  DEAL HAND AGAIN? ";:GOSUB90:GOSUB967:A%=.:YX=.:IFU=5THEN184
172 IFCITHEN908
173 IFGBTHENIFB%=.ANDGCTHENON1+YXGOTO439,438
174 OP=FNY(OP):PRINT"[147]":GOTO9651
175 GOSUB180:PRINT"[147]":GOTO1005
180 PRINT" ";:U=OP:GOSUB92:PRINT"[149] DEALT.  WHO OPENS? [146]  ";:GOSUB963:OP=D:RETURN
181 IFMS<>PSANDMS<>PRTHENIFPEEK(B+MS)<5THENRETURN
182 IFPEEK(B+O)>4THENDB=DB+1+((PEEK(B+O)-5)*2)
183 W=V+DB:RETURN
184 PRINT"  REBID HAND? ";:GOSUB90:GOSUB81:IFA$="N"THENPOKEC,99:GOTO1005
185 IFGC=4THENPOKEC,98
186 IFCITHENGC=2:B%=.
187 GOTO175
188 GOSUB73:GOTO219
190 GOSUB370:GOSUB400:RETURN
191 FORJ=1TO4:IFFNB(J)=.ANDJ<>SXTHENX=X+1
192 NEXT:RETURN
193 WT=U:T%=C%:GOSUB340:SL=S:GOSUB400:WS=SL:RETURN
194 GOSUB212:N=.:K=TR:GOSUB12:T=960:IFHP<3THENGOSUB470:POKE861,.-(T2>.ORQ>=JM-X)
195 FORK=1TO4:H=PEEK(B+K):Y=.:IFMBORK=TRTHENH=PEEK(T+K):Y=1
196 IFHTHENIFH>=FNC(K)OR(PEEK(861)ANDH>=PEEK(839+K))THENH=FNB(K):IFYTHENH=PEEK(T-4+K)
197 POKE849+K,.-(PEEK(T-4+K)>H)*(PEEK(T-4+K)-H)
198 IFK=TRTHENIFFNB(K)THENIFFNV(K)THENGOSUB631:POKE864,L*FNZ(U)+(1-L)*U
199 IFK<>TRTHENIFT2=.ANDPEEK(861)=.THENY=PEEK(843+K):IFH>YTHENN=N+H-Y:H=Y
200 POKEI+K,H:NEXT:POKE870,N:RETURN
201 D=2:X=FNY(OP):IFDE=OPORDE=FNZ(OP)THEND=1:X=OP
203 FORJ=DTOESTEP2:Z=PEEK(I+J):IFZANDZ<36THENIFFNQ(L)=FNQ(Z)THENY=X:J=E
204 X=FNZ(X):NEXT:RETURN
205 L=49800:POKEL,K:RETURN
206 DX=.:IFSX=.ORSX=5THENRETURN
207 L=SX:GOSUB201:IFU=YTHENGOSUB58:DX=W:RETURN
208 WS=SX:GOSUB8500:DX=W+S:RETURN
209 LE=FNY(PL):DB=FNY(LE):PB=FNY(DB):TR=FNQ(GB):RETURN
210 X=.-(PEEK(998)=KANDU=PEEK(997)):RETURN
212 POKE860,.:POKE864,.:GOSUB18:N=T:POKEV,.:POKEB,.:GOSUB49
213 FORJ=1TO4:POKEV+J,PEEK(N+J):POKEV,PEEK(V)+PEEK(N+J):POKEB+J,PEEK(T+J):POKEB,PEEK(B)+PEEK(T+J):NEXT
214 D=4:POKE899,U:POKE900,FNZ(U):SYS52127:GOSUB28:GOSUB374:MB=G:POKE859,Q
215 GOSUB28:V(.)=.:GOSUB374:YX=G:POKE865,Q:SYS52545:POKEV+9,PEEK(898):POKEB+9,PEEK(899):RETURN
219 IFCITHENGOSUB896
221 GOSUB1700:FORJ=.TO4:V(J)=.:NEXT:G=.:POKE51578,32:GOSUB775
222 IFPEEK(C)<>99ANDGC=4THENIFPL=2ORPL=3THENU=PL:PRINT"[147]":GOSUB1070:O=5:GOSUB30:GOSUB1080
223 SYSC+20:SL=.:GOSUB891:GOSUB510:GOTO9000
225 GOSUB52:GOSUB901:PRINT"  ";
226 GOSUB250:IFSL>98THEN235
227 IFA$="@"THENPRINT"[157][157]";:GOTO3534
228 IFA$=CHR$(43)THENGOSUB63:PRINT"[157]->[146] ";:GOSUB259:GOSUB5:GOTO245
230 IFA$="P"ORA$="D"ORA$="R"THENGOSUB257:GOTO243
235 D=7:GOSUB108:IFD=.THEN226
239 H=VAL(A$):PRINT"[157][144]"A$;" ";
240 GOSUB250:IFA$=CHR$(20)THENPRINT"[157][157]  [157]";:GOTO226
241 D=.:GOSUB254:IFD=.THEN240
242 PRINT"[157]";:Z=(H-1)*5+D:GOSUB26:PRINTZ$(FNQ(D));
243 IFSL<98THEN3590
244 RETURN
245 GOSUB901:PRINT"       ";:Z=YX:GOTO225
250 GETA$:IFA$=""THENPRINT"[157][144][191]";:GOSUB4:PRINT"[157][146][191]";:GOSUB4:GOTO250
251 RETURN
254 GOSUB101:IFX=.THENRETURN
255 IFA$="N"THEND=5
256 RETURN
257 Z=.-36*(A$="D")-37*(A$="R")
259 PRINT"[157][144]";:GOSUB162:RETURN
266 X=.:IFTRTHENIF(FNX(K)ANDV(PL))ORFNB(K)+FNV(K)=13-PEEK(C+K)THENGOSUB109:IFL<13THENX=1
267 RETURN
268 X=1:GOSUB34:IF(YAND1)=.OR((UAND1)>.ANDPEEK(KX)>.)THENRETURN
269 POKE998,SL:Y=U:IFUAND1THENY=FNY(FNZ(U))
270 X=879-(Y=PB):K=SL:GOSUB65:RETURN
271 X=PEEK(879-(FNY(U)=PB))ANDFNX(K):RETURN
272 X=PEEK(879-(FNY(U)=LE))ANDFNX(K):RETURN
274 GOSUB15:Y=PEEK(T)+PEEK(T+9):RETURN
275 FORU=1TO4:O=4:IFU>2THENO=21:IFU=3THENPRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145]"
276 GOSUB1082:NEXT:PRINT:RETURN
283 GOSUB28:GOSUB153:GOSUB28:RETURN
284 PRINT"[147]   [149]E[146]NTER H[146]AND ";
285 PRINT"  [ *=SUIT  F1=MENU ]":RETURN
290 PRINT""TAB(14):GOSUB907:IFB%THENGOSUB292:RETURN
291 FORU=1TO4:GOSUB981:GOSUB95:GOSUB956:NEXT:RETURN
292 FORU=1TO4:GOSUB30:GOSUB981:GOSUB95:GOSUB39:GOSUB956:NEXT:RETURN
294 GOSUB146:GOSUB5:GOSUB2:RETURN
299 H=INT(H/2)+1:RETURN
300 GOSUB24:PRINT"[147]     CONTRACT[146] ";:Z=GB:GOSUB162:GOSUB60:PRINT"[149]";
301 PRINT"     DECLARER[146] ";:U=PL:GOSUB92:GOSUB307:RETURN
302 PRINT"[144]"TAB(165)PEEK(C+5)SPC(2)PEEK(C+6):RETURN
307 IFGCTHENGOSUB99:IFC%(5+Q)THENPRINT"(V)";
308 PRINT:RETURN
313 GOSUB51:POKEA+1,9:POKEA+5,10:POKEA+15,88:POKEA+4,23:GOSUB4:GOSUB2:RETURN
314 GOSUB51:M=1:D=12:GOSUB2102:GOSUB2:RETURN
315 GOSUB99:ONQ+1GOSUB313,314:RETURN
316 GOSUB51:POKEA+5,20:POKEA+6,175:POKEA+4,33:POKEA+1,40+RND(1)*M:GOSUB4:POKEA+4,32:GOSUB2:RETURN
317 PZ=.-2*(T=5OR(T>8ANDT<12)OR(T>16ANDT<24)):RETURN
334 Y=.:L=FNY(U):IFV(4+L)=16ANDV(4+FNZ(L))=16THENRETURN
335 T%=1:X=FNX(S):IF(V(4+L)ANDX)OR(V(4+FNZ(L))ANDX)THENY=1
336 RETURN
340 S=INT((C%-1)/13)+1:RETURN
341 X=.:IFZ<36THENX=FNQ(Z):IFXTHENX=FNX(X)
342 IFV(U+4)=16THENV(U+4)=X:RETURN
343 V(U+4)=V(U+4)ORX:RETURN
349 PZ=PEEK(KX)+1:IFPEEK(KX)=KCTHENPZ=.:RETURN
350 GOSUB361:D=K:GOSUB9:IF(PZ=.ANDDX=4ANDW=2ANDX>9)OR(PEEK(863)ANDFNX(K))THENPZ=2
351 IFPZ=2THENIFR>1ANDKC>2ANDKD>1THENIFPEEK(KY)=.ANDPEEK(KX)=1ANDJM>2THENGOSUB357
352 RETURN
353 PZ=.:IFQ=PEEK(KX)THEN349
354 IFQ=1THENGOSUB540:IFF=.THENRETURN
355 IFPEEK(KX)THEN349
356 PZ=1:GOSUB361:RETURN
357 GOSUB540:IFP=1THENPZ=3:GOSUB513:Y=C%:GOSUB36:IFW>2ORC%<T%THENPZ=2
358 RETURN
361 GOSUB513:Y=C%:GOSUB36:IFW>1THENPZ=.
362 RETURN
370 GOSUB340:IFTR=.ORTR=SLORWS=TRORS<>TRTHEN372
371 T%=C%:WS=S:WT=U:RETURN
372 IFS=WSTHENIFC%>T%THENT%=C%:WT=U
373 RETURN
374 G=.:Q=.:D=.-4*(D=.)
375 FORK=1TO4:E=FNX(K):IFPEEK(B+K)THENIFK<>TRANDFNV(K)=.THENV(.)=K
377 IFFNV(K)THENIFTRTHENIFFNB(TR)ANDFNB(K)=.THENQ=Q+E:G=FNX(TR)ORG
378 IFPEEK(1000+D+K)THENG=EORG
379 NEXT:RETURN
392 FORX=YTO7:GOSUB395:M=29-4*X:D=32-4*X:POKEA+24,15:GOSUB2102:NEXT:RETURN
393 GOSUB51:Y=2:GOSUB392:GOSUB2:GOSUB4:GOSUB20:RETURN
394 X=3:IFPLAND1THENX=12+PL
395 POKE53280,X:RETURN
400 D=S:POKE900+C%,.:POKE976+U,D:IFHP>1ANDD<>SLTHENV(U)=FNX(SL)ORV(U)
402 POKEC+D,PEEK(C+D)+1:GOSUB2326:IFHP>1THENIFU=LEORU=PBTHENIFD<>SLTHENGOSUB2325
405 IFUAND1ORB%<>2THENPOKEB+D+4,PEEK(B+D+4)-1:GOSUB9:IFX>9THENPOKEB+10+D,PEEK(B+10+D)-2^(X-10)
406 IFHP=4THENGOSUB2312:POKE997,FNY(U)
407 IFHP=4ANDGC=2THENIF1ANDWTTHENIFWS=SLANDK=WSTHENGOSUB2085:IFWTHENGOSUB268
408 RETURN
410 IFFNB(TR)THENIFPEEK(864)<>UTHENRETURN
411 FORJ=1TO4:X=X-(PEEK(964+J)>.ANDFNV(J)=1ANDJ<>TRAND(PEEK(865)ANDFNX(J))=.):NEXT:RETURN
418 L=PEEK(843+K):Z=.-((FNX(K)ANDV(FNY(U)))>.ANDFNC(K)>.):H=Q+35+13*(L-1)+T2*7
425 IFRORPEEK(881)THENH=H-2*H*(PEEK(858)>.ANDPEEK(864)=FNZ(U))-300*(Z>.ORR(TR)=2)
426 IFQTHENIFRTHENX=.:GOSUB410:H=H+5*Q+X*3000
428 IFR=.ANDT2=.THENIFPEEK(V+9)ANDL=.THENGOSUB470:IFZ=.ANDX=.THENGOSUB299
429 IFLTHENIFPRANDQ=.THENH=H+30*(PR-1):GOSUB210:IFXTHENH=H*2
430 IFT2=.ANDPEEK(864)=.ANDFNV(TR)=1THENGOSUB561:IFL=.ORQ=.THENH=14+Q
433 RETURN
436 X=.:IFPEEK(864)=FNZ(U)THENIFPEEK(B+TR)>=FNC(TR)ORPEEK(V+TR)<FNV(TR)THENX=1
437 RETURN
438 GOSUB73:GOSUB1700
439 Q=PEEK(2)AND1:C%(1+Q)=C%(1+Q)+PC:U=PL:GOSUB99:B=Q:K=C%(1+B):IFYXTHEN452
440 GOSUB776:L=C%(5+B):S=PEEK(C+5+B)-6-T:IFS<.THEN460
442 IFGB>25THENX=1+INT(GB/31):PC=500*X+(L*250*X):K=K+PC:A$=" SLAM":GOSUB1715
447 IFDNTHENK=50+K+((((1+C%(5+B))*100)*S)*DN):GOTO452
449 K=K+20*S:IFF=.ORF>2THENK=K+10*S
452 C%(1+B)=K:GOSUB110:C%(3+B)=C%(3+B)+TB:IFC%(3+B)<100THEN480
455 C%(5+B)=C%(5+B)+1:IFC%(5+B)=2THENC%(1+B)=C%(1+B)+700-(C%(6-B)*200)
458 GOTO480
460 J=C%(2-B):S=ABS(S):IFDNTHENJ=J+((100*(1+L))*DN)+(((S-1)*(2+L)*100)*DN):GOTO463
462 J=J+((50*(1+L))*S)
463 C%(2-B)=J:GOTO480
464 C%(.)=C%(.)+1:PRINTSPC(11)" RUBBER [146]"C%(.)" IS OVER [146]":C%(1)=C%(1)+C%(3)
465 Y=19:GOSUB294:GOSUB5:C%(2)=C%(2)+C%(4):FORJ=3TO6:C%(J)=.:NEXT:GOTO492
470 X=.:IFPEEK(835+K)=.OR(FNX(K)ANDV(FNY(U)))OR(FNX(K)ANDV(FNY(FNZ(U))))THENRETURN
471 IFPEEK(843+K)ORFNC(K)=2THENX=1
472 RETURN
474 J=.:GOSUB470:IFQ>=JM-XTHENJ=1:IFK=TRTHENH=42:IFR=.ANDT2=.THENH=H*2
475 IFJANDK<>TRTHENIFETHENH=H+5*X:IFT2THENIFRANDE>=RTHENH=H*2
476 IFJTHENIFT2=.ANDK=TRANDPEEK(KX)=QTHENIF(PEEK(858)=.AND(KD=.ORMB=.))THENH=400
477 IFRTHENIFT2ORK=TRTHENIFDX=4THENIFQ>=JM-1ANDFX>.THENIFE>RAND(KD=.ORMB=.)THENH=310
479 RETURN
480 PRINT"[147]"TAB(168):GOSUB33:PRINT"    SCORE    [146]";:GOSUB87
481 PRINT""TAB(253):U=1:FORN=1TO4:U=FNY(U):GOSUB92:PRINTSPC(5-(N=2)*21):NEXT:PRINT:GOSUB2120
482 PRINT" PREMIUM"TAB(14)C%(1)TAB(24)C%(2):PRINT"":GOSUB21:PRINT
483 PRINT" GAME"TAB(14)C%(3)TAB(24)C%(4):PRINT:GOSUB21:PRINT:J=1
484 PRINT" TOTAL"TAB(14)C%(3)+C%(1)TAB(24)C%(4)+C%(2):PRINT"":GOSUB485:ONJGOTO490,464
485 IFC%(5)=2ORC%(6)=2THENJ=2:RETURN
486 POKE897,2:POKE896,127+C%(5)*19+C%(6)*38:SYS49936:RETURN
490 GOSUB4:GOSUB4:IFC%(3+B)>=100THENFORT=1TO2:C%(T)=C%(T)+C%(T+2):C%(T+2)=.:NEXT
492 GOSUB496:GOTO174
496 GOSUB517:SYS52624:GOSUB20:RETURN
500 GOSUB1150:ON1+PEEK(I)GOTO74,718
507 POKE900,K*13+1:POKE899,C%:SYS50427:X=PEEK(896):RETURN
508 GOSUB157:GOSUB507:RETURN
509 V=PEEK(B):DB=PEEK(B+9):W=V+DB:LE=PEEK(B+10):RETURN
510 POKEC,PEEK(C)+1:R(.)=14-PEEK(C):RETURN
513 GOSUB156:S=.
514 SYS50003:S=S+1:IFS=PZTHENGOSUB152:S=.-(C%>T%):RETURN
515 POKEL+1,PEEK(L+1)+1:GOTO514
517 GOSUB52:GOSUB51:Y=5:GOSUB392:GOSUB2:X=1:GOSUB395:RETURN
518 T2=.-2*(TR=.ORFNC(TR)=.):POKE895,ABS(FX):RETURN
525 FORJ=1TO4:IFJ=PSORJ=PRORJ=MSTHENY=Y-J:X=X+1
526 NEXT:RETURN
530 IFRORYX=.THENIFK<>TRTHENIFFNX(K)ANDPEEK(859)THENGOSUB536
533 IFRORT2OR((MBANDFNX(K))=.AND(PEEK(859)ANDFNX(K))=.)THENRETURN
534 IFFNB(TR)=.THENIFYXOR(PEEK(861)ANDFNV(TR)-PEEK(V+TR)+PEEK(V)>=R(.)-FX)THENX=1
535 RETURN
536 IFQTHENGOSUB410:GOSUB561:X=.-((PEEK(843+K)=.ANDX=.ANDT2=.ANDL=.)ORPEEK(864)=FNZ(U))
538 IFQ=.ANDPR<2THENGOSUB210:X=1-X:IFX=.THENIFPR=.THENX=1
539 RETURN
540 F=.:P=.:POKE893,.:X=3:IFQ>1ORQ>=JMTHENRETURN
542 GOSUB1450:IFFNV(K)>1THENIFP>1ORPEEK(893)THENF=PEEK(893)+2*P-1
543 RETURN
550 GOSUB564:IFSTHENH=H*3:IFK=TRTHENPOKE860,1:H=H*2
551 IFKC>2ANDPR=.THENIFJM>2ANDR>1THENIFDX=4ORK=TRTHENGOSUB556
552 RETURN
556 X=3:GOSUB34:IFY<>FNZ(U)THENRETURN
557 X=4:GOSUB34:IF(YAND1)=.THENX=5:GOSUB34:IFY=FNZ(U)THENH=225:X=863:GOSUB65
558 RETURN
559 S=FNX(K):POKE999,.-FNZ(U)*(PEEK(871)>.AND(PEEK(862)ANDS)=.AND(PEEK(KX)<KCORMB=S)):GOTO582
561 L=.-(FNC(TR)=PEEK(964+TR)):RETURN
564 S=.:IFR=.ORFX<1ORDX<>4ORJM<3ORKD<2ORKC<2ORE=1ORPEEK(KX)<>1THENRETURN
565 GOSUB540:IFPEEK(893)THENIFMB+(PEEK(858)>.)*FNX(TR)=.ORP=1THENS=1
566 RETURN
570 K=SL:IFHP=4ORPEEK(999)=UTHENIFPEEK(B+K)=KCTHENIFKDTHENIFE=.THENIFKC<=KDTHEN74
572 GOSUB153:IFDTHEN158
580 K=SL
582 GOSUB151:IFDTHEN158
586 GOSUB1350:IFK<>TRORR(K)=1THEN582
590 GOSUB10:GOSUB675:IFX=3THEN603
596 IFV(FNZ(FNY(U)))ANDFNX(SL)THENIFFNC(SL)THEN601
599 IFPEEK(881)ANDHP<4THENIFPEEK(B+K)THENGOSUB1510:IFPEEK(881)THEN74
600 IFHP<4THENIFFNB(K)>1THENGOSUB610:IFX=2THEN605
601 GOSUB675:ONXGOTO582,158
603 R(K)=1:GOSUB1331:GOTO582
605 PZ=2:IFPEEK(KX)THENIFPEEK(KX)+PEEK(KY)>FNC(TR)OR(FX=.ANDQ>JM)THEN74
606 IFPEEK(KX)THENGOSUB349:IFPZ=.THENPZ=2
607 IFWS=TRTHENGOSUB513:IFT%>C%THEN74
608 GOTO613
610 X=.:L=V(FNY(U)):IF(FNX(SL)ANDL)ORFNC(SL)=.THENX=1:IFT2=.AND(LANDFNX(TR))=.THENX=2
611 RETURN
613 GOSUB513:GOSUB158:RETURN
615 Z=.:D=.:M=B:N=V:IFFNV(K)>FNB(K)THENM=V:N=B
617 FORK=1TO4:IFK=TRTHEN619
618 GOSUB10:S=PEEK(M+K+4)-PEEK(N+K+4):GOSUB624:IFS>.THENIFETHENIFJM>QTHENGOSUB621
619 NEXT:K=TR:GOSUB10:IFDTHENPOKE858,D:IFD<PEEK(N+K+4)THENPOKE858,.
620 POKE867,.-(Z>.)*Z:RETURN
621 IFQ=1ANDE>1THENGOSUB540:IFFTHENIFP>1THENE=E-P+1:IFE<1ORP>FNC(K)THENE=1
622 IFQ=.ANDE>1THENIFPR>1THENE=E-PR+1:IFE<1ORPR>FNC(K)THENE=1
623 D=D+S+(S>E)*(S-E):RETURN
624 Z=Z-(S>.ANDE>.)*S+(E=.)*ABS(S):RETURN
625 X=.-(T2OR((PEEK(864)ORFNB(TR)=.)ANDPEEK(861)ANDFNV(TR)-PEEK(V+TR)+PEEK(V)<R(.)-FX)):RETURN
626 X=.:Y=PEEK(B+TR)+PEEK(V+TR)-PEEK(960+TR):N=PEEK(867):IFY=.THENRETURN
627 IF(N>=YANDY>=R(.)-FX-PEEK(960+TR))OR(R>.ANDY>=RANDN>=R)THENX=1
628 RETURN
631 L=.:F=FNB(K):IFFNV(K)=<FTHENF=FNV(K):L=1
632 RETURN
638 X=DB:GOSUB1480:J=Y:X=U:GOSUB53:X=.-(J>Y):RETURN
642 GOSUB785:GOSUB507:GOSUB1490:IFC%<T%THENONMS+1GOTO717,718
644 GOSUB784:IFDTHENX=U:GOSUB53:ON2+(Y=C%)GOTO655,158
645 GOSUB638:IFXTHEN718
646 S=.:PZ=P+1:GOSUB783:GOSUB514:E=C%:GOSUB787:GOSUB1460
647 IFDTHENIFMS=.ORE>T%THENIFPZ=2ANDY<>C%ANDC%>T%THEN158
648 IFMS=.ANDW<=2THENON1+(HP=2)*(N>=MORK=TR)GOTO717,718
652 IF(HP=3ANDMS=.)OR(HP=2AND(V(FNZ(U))ANDFNX(K))>.)THEN717
653 GOTO718
655 IFFXANDQ=1THENGOSUB1150:IFPEEK(I)THEN718
656 GOTO158
660 GOSUB266:IFTR=.OR(X=.AND(M>.ORFNV(TR)=.))THENMB=MB-(TR>.)-Q*(TR=.)
661 IFMB>FXTHENH=200:RETURN
665 GOSUB1150:IFPEEK(I)OR(Q=1ANDPEEK(C+K)<2)THENH=12-M
666 RETURN
667 GOSUB631:L=.-L*(PEEK(KY)>.ANDQ>F):IFHP=2ANDL=.THENIFPEEK(KY)THENGOSUB803:IFFTHENN=1
668 RETURN
670 IFMTHENGOSUB689:X=C%:GOSUB283:IFABS(X-C%)=1ORFTHEN580
671 GOTO613
675 X=1:IFWS<>TRTHENRETURN
676 GOSUB153:X=3-D:RETURN
683 GOSUB688:GOSUB631:IFT2=.ORRTHENRETURN
684 H=H-(90-(S=.)*20)*((Q>FANDPEEK(KY)>.)OR(PEEK(I+K)>KCANDPEEK(1000+K)=.)):RETURN
688 X=FNZ(U):GOSUB1480:GOSUB36:S=W:GOSUB57:L=.-(S=W):RETURN
689 Y=C%:GOSUB36:S=W:X=FNZ(U):GOSUB53:GOSUB36:F=.-(S=W):RETURN
690 IF(R=.ANDPEEK(861))OR(K=TRANDPS=FXAND(PS>=PEEK(956+K)ORR-PEEK(870)>E))THENRETURN
692 IFPR<2ORPS>=PEEK(956+K)OR(YX=.ANDKD<2)THEN872
693 H=31+PR-9*(PEEK(KY+20)>.):IFDX<4ANDK<>TRTHENRETURN
694 H=H*2:GOSUB210:Y=.-(PR-1)*(PR<=E)-(E-1)*(PR>E)
695 IFRTHENIFXORY>=ROR(Y+1>=JMANDE>=PR)THENIFT2ORPEEK(843+K)>1ORK=TRTHENH=188
696 H=H-(K=TR):RETURN
700 DX=.-(FNY(U)=DB):POKE893,U:SYS51309:IFSL=.THEN1250
701 GOSUB7220:IFXTHEN718
702 K=SL:GOSUB22:GOSUB3:GOSUB149:IFN=.THEN725
703 GOSUB153:IFD=.THEN718
704 IFHP<4THENIF(FNX(K)ANDV(FNY(U)))OR(DXANDM=.)THENGOSUB266:GOTO765
705 ONHPGOTO1,706,740,760
706 IFDXTHEN642
708 GOSUB157:GOSUB1465:E=W:GOSUB786:IFPZ>1THENIFE<2ORPZ>ETHENGOSUB513:ON1+SGOTO717,158
709 IFQ=1THEN500
710 IFK<>TRANDHP=2THENIF(FNX(K)ANDV(FNZ(U)))>.ORN=T2THEN74
711 IFE=.ORPR>1OR(G=11ANDT=5)OR(G=12ANDT>9)THEN74
712 IFHP=2ANDDX=.ANDK<>TRTHENIFG>9ANDPEEK(V+K+10)=.THENIFM+2>=NTHEN717
713 IFHP=2ANDQ=.THENIFPR=.OR(PR=1AND(N>=MORK=TR))THEN718
715 IFG<10THENIFT<4ORT=6ORT=7OR(HP=3ANDPEEK(C)=1)THEN74
716 GOSUB317:IFPZTHENGOSUB513:IFSTHEN158
717 GOSUB153:IFDTHEN158
718 K=SL:GOSUB508:GOSUB1495:IFP=FNB(K)THEN74
720 GOSUB151:IFDTHEN158
725 GOSUB1300:IFK<>TRORR(K)=1THEN720
726 GOSUB675:ON2+(HP=4ORX=3)GOTO732,729
727 IF(ZANDHP=2)OR(MSANDHP=3)THEN735
728 GOSUB3:ON2+(T=.ORPR>1OR(T<16ANDN<3))GOTO74,732
729 IFDXTHENIFFNV(TR)ANDFNV(SL)=.THENGOSUB784:IFX=1OR(X=2ANDC%>T%)THENOND+1GOTO727,158
730 IFDX=.THENK=SL:GOSUB266:K=TR:IFXTHEN736
731 IFDX=.THENIFWS<>TRTHENK=SL:GOSUB266:K=TR:GOSUB3:IFXTHENIFT=.ORN<3THEN74
732 GOSUB675:ONXGOTO582,158
735 R(K)=1:GOSUB1331:GOTO720
736 IFHP<3ANDFNV(SL)<13-PEEK(C+SL)THENGOSUB1460:IFWTHEN735
737 GOSUB3:GOSUB508:IFQ=.THENIFX=NANDN>1THEN735
738 GOTO731
740 IFPEEK(C)=1ANDTR=.THENIFU=PBANDN=2THENIFFNV(K)<3THEN74
741 IFDXORMS=.THEN706
743 GOSUB1460:E=W:GOSUB1465:H=E-W:IFE=.THENGOSUB76:ONQ+1GOTO718,74
752 IFE=1ANDQ=1ANDFX>.THENIF(MANDN>=M)OR((TR=.ORM>.)ANDG>10ANDPEEK(C+K)<4)THEN718
754 GOSUB786:IFPZ>1ANDX<3THENIFX=1OR(E>1ANDX=2)THENGOSUB513:IFSTHEN158
755 IFQ=1THEN500
756 IFPR=1THENIFN>MANDK=TRTHEN718
757 GOSUB157:GOSUB1465:IFW=.ORH>2OR(G<9AND(H>.ORE>1))THEN74
758 GOTO718
760 IFMSTHENGOSUB76:ONQ+1GOTO720,717
761 IFFXANDDX=.THENIFQ=1ANDN<MTHENGOSUB1460:IFW=.THENX=2:GOSUB1490:IFP>1THEN718
762 GOTO717
765 IFHP=2THENIF(FNX(K)ANDV(FNZ(U)))ORTR=.OR(DXANDFNV(TR)=.)OR(X=.ANDDX=.)THEN717
766 IFHP=3ANDMS=.THEN717
767 IFHP=2THENY=FNY(FNZ(U)):IF(Y=PEEK(997)ANDPEEK(976+Y)=K)OR(M=.ANDDX=.)ORZ=1THEN717
768 MS=1:ONHP-1GOTO718,760
775 GOSUB776:FX=7-T:RETURN
776 T=INT(GB/5)+1:F=FNQ(GB):T=T+(F=.):RETURN
780 X=.-(SX>.ANDSX<5ANDPS<>SX):RETURN
783 GOSUB205:POKEL+1,(DB-1)*13:RETURN
784 GOSUB785:GOSUB787:RETURN
785 GOSUB783:SYS50003:GOSUB152:RETURN
786 GOSUB508:POKE896,U:P=DB:GOSUB1455:PZ=PEEK(893):RETURN
787 POKE49900,C%:GOSUB155:SYS49903:GOSUB152:RETURN
790 H=99:IFMS=.OR(ZANDHP<4ANDDX=.)THENRETURN
791 IFHP=4ORDX=.THEN795
792 IFFNV(WS)THENK=WS:GOSUB785:K=TR:IFC%<T%THEN798
793 IFFNV(WS)=.THENGOSUB638:IFXORFNV(TR)=.THENH=1:IFX=.THEN798
794 RETURN
795 IFHP<4THENIFZ=.THENH=1:RETURN
798 GOSUB76:IFQ=.THENH=1
799 RETURN
800 GOSUB28:PS=.:IFKDTHENIFPEEK(KX)ANDPEEK(984+K)=1THENGOSUB540:PS=F
801 IFPSTHENX=871:GOSUB65:IFMBANDK=TRTHENIFP+1>=JMTHENH=11
802 GOSUB28:RETURN
803 IFROR(K=TRANDT2=.)THENGOSUB540:IFFTHENGOSUB1110
804 IFRTHENIFF=.ANDQ=2ANDJM>2THENX=4:GOSUB542:F=.-F*(PEEK(KX)=.ORPEEK(893)>.):IFFTHENGOSUB1110
805 IFFTHENX=862:GOSUB65:IFK=TRTHENPOKE860,1:H=H*2
806 RETURN
808 IFTRTHENIFRANDK<>TRTHENIFKDANDKC<>KDTHENGOSUB920
809 RETURN
810 GOSUB610:IFX<2THENIFFNV(WS)THENS=K:K=WS:GOSUB283:K=S:IFDTHENIFPEEK(V+WS)ORX=1THENH=1
811 IFRANDPEEK(864)=UANDH=1THENGOSUB28:GOSUB436:GOSUB28:IFXTHENIFPEEK(849+WS)THENH=40
812 IFFNV(TR)ANDFNV(WS)=.THENGOSUB436:IFXTHENH=1
813 RETURN
815 IFMSORPEEK(999)=UTHENRETURN
816 GOSUB2085:IFHP=4OR(T2ANDW=.)THENH=1:RETURN
818 GOSUB610:GOSUB561:IFX=1OR(W=.AND(X=.OR(X=2AND(Q<JM+1ORL>.))))THENH=1:RETURN
820 IFRANDW=1THENIFPEEK(881)=.THENIF(FNX(WS)ANDV(4+FNY(U)))=.THENGOSUB853
821 RETURN
827 GOSUB52:X=.:PRINT"  [157]";:IFB%<>2THENIFSLTHENIFFNB(SL)THEND=SL:GOTO830
828 GOSUB104:ONXGOTO106,120:IFA$=CHR$(133)THENSYS53125:PRINT"[157]";:GOTO827
829 X=.:GOSUB101:IFXOR(B%<>2ANDFNB(D)=.)THENPRINT"[157]";:GOTO827
830 M=D:GOSUB56:PRINT"[157]"Z$(D)" ";:E=D:IFB%<>2THENIF(GC<4ORU=DB)ANDFNB(D)=1THEN840
831 D=.:GOSUB104:ONXGOTO106,120
832 IFA$=CHR$(20)THENPRINT"[157][157]";:GOTO827
833 GOSUB107:IFD=.THEN831
834 GOSUB839:IFX=.THEN837
835 GOSUB158:GOSUB55:Y=D:GOSUB84:RETURN
837 IFB%=2THENU=FNZ(U):GOSUB839:U=FNZ(U):IFXTHEN835
838 GOTO831
839 K=E:C%=13*(K-1)+D:GOSUB155:POKE49900,C%:SYS50083:X=PEEK(49802):RETURN
840 K=E:GOSUB151:GOSUB158:Y=C%-(K-1)*13:GOSUB84:RETURN
841 POKE848,SL:D=SL:GOSUB9:POKE849,.-(X>10):RETURN
847 IFPEEK(858)THENIFRTHENIFQANDPEEK(860)=.THENGOSUB299:IFMBTHENGOSUB299
848 IFPEEK(858)=.THENIFPEEK(1000+K)ORPEEK(861)THENH=H*4:IFE>=RANDPEEK(881)=.THENRETURN
849 IFPEEK(859)ORPEEK(858)THENIF(YX=FNX(K)ANDPEEK(865))ORMB=FNX(K)THENGOSUB859
851 RETURN
853 IF(V(FNZ(FNY(U)))ANDFNX(WS))THENIFFX=.ORDX<4ORPEEK(864)=UORFNV(WS)=.THENRETURN
854 IFFNC(WS)=1THENIFPEEK(998)<>WSORPEEK(997)<>FNZ(U)THENRETURN
855 IFPEEK(980+WS)ANDPEEK(960+WS)=.THENH=1:RETURN
858 H=25+7*(DX=4)-30*(KC<=KD):RETURN
859 X=PEEK(881):IFPEEK(860)ORPEEK(864)=.THENRETURN
860 IFX=.THENIFPEEK(861)THENIFPEEK(858)=.OR(R=.AND(PEEK(V+9)ORPEEK(V)=.))THENRETURN
863 H=3:IFXTHENIFPEEK(859)THENIFPEEK(865)ORFNZ(U)=PEEK(864)THENH=2:IFT2=.THENPOKE999,PEEK(859)
864 RETURN
870 X=1+((FNB(TR)>.ANDL=.)OR(L=1ANDFNV(TR)>.)):RETURN
871 X=PEEK(864):X=.-((X=UANDL=.)OR(L=1ANDX=FNZ(U))):RETURN
872 IFPRTHENIFKD>1ANDK=TRTHENIFPEEK(858)=.ANDPEEK(KX+20)=.THENH=315:RETURN
873 IFPRTHENIFPEEK(KX+20)THENIFMBORK=TRTHENRETURN
874 IFTRTHENGOSUB631:GOSUB870:IFX=.THENH=26-F:IFDX=4ANDFX>=FTHENIFPEEK(858)THENGOSUB871:IFXTHENH=H*2
876 IFPEEK(KY+20)ANDKD>1THENH=25+E:X=4:GOSUB1450:H=H+P*5:IFDX=4THENH=H+30
877 IFFX>=2ANDPS=2THENIFE>3THENX=3:GOSUB1450:H=H-16*(P>2)-30*(P>=JM)
879 RETURN
888 GC=2:PRINT"  PLAY NORTH ALSO? ";:GOSUB90:GOSUB81:IFA$="Y"THENB%=2:X=.
889 RETURN
891 GOSUB394:GOSUB300:GOSUB24:PRINT"      TRICKS ";TAB(28)"[145]TRICK BOARD"
892 PRINT"     N/S[149][168][168]E/W[144]":GOSUB302:RETURN
894 IFCITHENPRINTTAB(10)"[151] DEAL NUMBER->[146]"CI;
895 PRINT:RETURN
896 GC=2:B%=.:GOSUB300:GOSUB148:IFPL=2ORPL=4THENX=1:GOTO898
897 PRINT"  PLAY DECLARER? ";:GOSUB90:GOSUB81:GC=.:X=1:IFA$="N"THENGOSUB888
898 IFXTHENPRINT" [149] SHOW ALL HANDS? ";:GOSUB90:GOSUB81:IFA$="Y"THENB%=1
899 RETURN
901 Y=TR:GOSUB62:POKE211,(U-INT(U/4)*4)*10:RETURN
902 H=1-2*(PEEK(1000+K)>.AND((PEEK(V)-PEEK(V+K)>.)OR(KC>1ANDPEEK(865)>.))):RETURN
903 IFGB>10ORPS=.ORPR=.ORPS=PRORMS=.ORV>18THEN4555
904 Y=10:X=.:GOSUB525:IFX=3THENIFFNB(Y)>3ANDPEEK(B+Y)>3THENO=Y:GOTO66
905 GOTO4555
906 GOSUB33:GOSUB907:GOSUB87:RETURN
907 PRINT" BRIDGEBRAIN [146]";:RETURN
908 CLR:GOTO9630
909 SYS52091:GOTO175
910 X=.:GOSUB121:IFYTHENZ=O:X=1
911 RETURN
914 GOSUB149:IFMSTHENFX=FX-1:IFFX+1=.THENX=2:Y=9:GOSUB919:Y=21:GOSUB294:GOSUB142
915 IFMS=.THENIFFX=13-PEEK(C)THENX=5:Y=18:GOSUB919:GOSUB2120:GOSUB5:GOSUB142
916 RETURN
919 J=50471:POKEJ+15,X:POKE900,Y:SYSJ:RETURN
920 POKEI,.:PS=PEEK(843+K):GOSUB631:IFPEEK(956+K)=PEEK(960+K)ORQ+1<FTHEN927
921 IFT2=.AND(Q>=PS-(HP>1))ANDF>QTHENIFPEEK(881)=.THEN927
922 IFQ=F-1THENIFDX<4ORF>=PSORFX=.THENRETURN
923 GOSUB870:IFXOR(HP=3ANDQ=FANDL>.)ORQ<FTHENRETURN
924 POKEI,1:H=H+9*PS:IFQ=FANDF=PSTHENIFPEEK(881)THENGOSUB871:IFX=.THENH=90
925 IFF<PS-(PEEK(881)>.)THENGOSUB871:IFXTHENH=H*2:X=869:GOSUB65
926 RETURN
927 IFQ>1ANDQ>=PSTHENIFFANDF<PSTHENH=H*2
928 RETURN
930 G=.:YX=1:GOSUB52:SYS52298:POKE52326,.:POKE897,GB
931 GOSUB939:IFJ=.THEN931
932 PRINT:ONJGOTO908,933,934,909,9400,938,185,188,172
933 GOSUB275:GOTO930
934 GOSUB4:GOSUB73:GOSUB300:G=99:GOSUB292:PRINT"":SYS52469:POKE52326,5:GOSUB52
935 GOSUB939:IFJ<6THEN935
936 IFJ>7THENONJ-7GOTO188,172
937 GOSUB300:PRINT"":IFJ=7THEN185
938 GOSUB85:GOSUB209:GOTO219
939 GOSUB250:POKE898,ASC(A$):SYS52325:J=PEEK(899):RETURN
950 PRINT"":FORJ=1TO4:PRINTTAB(29);:GOSUB92:PRINT"    ":PRINT:U=FNY(U):NEXT:RETURN
955 Y=HP*2:GOSUB62:POKE211,35:RETURN
956 Y=96:GOSUB91:POKEC-19,T+1:SYS50105:RETURN
960 D=.:GOSUB250:FORU=XTOY:GOSUB17:D=D-U*(ASC(A$)=PEEK(49401+T)):NEXT:IFD=.THEN960
961 U=D:PRINT"[157]";:GOSUB92:GOSUB4:RETURN
963 X=1:Y=4:GOTO960
967 X=5:Y=6:GOSUB960:PRINT:RETURN
970 PRINT:FORJ=.TO4:PRINTTAB(O)"              ":NEXT:RETURN
980 Y=TB:GOSUB62:GOSUB970:GOSUB956:GOSUB39:RETURN
981 IFU=DBORU=PLTHENV=49700+(FNZ(U)-1)*17:GOTO983
982 S=U:U=DB:GOSUB15:V=T:U=S
983 T=49649:IFB%ORG=99THENT=49657
984 IF(U=LE)THENGOSUB988:RETURN
985 IFU=DBTHENT=T+2:GOSUB988:RETURN
986 IFU=PBTHENT=T+4:GOSUB988:RETURN
987 T=T+6:IFB%=.ANDG<99THENIFGC=4OR(GC=2AND(PLAND1)AND(UAND1))THENTB=21:O=14:RETURN
988 TB=PEEK(T):O=PEEK(T+1):RETURN
997 SX=.-SX*(SX<5):RETURN
998 X=.-((KD=2ANDKY>3)ORKD>2):RETURN
999 X=.-((KD>2ANDKY>1)ORKD>3):RETURN
1000 POKEC,.:T=767:D=714
1002 FORL=1TO52:S=INT((52-L)*RND(X))+1:POKET,PEEK(D+S):POKED+S,PEEK(T-L):POKET-L,PEEK(T):NEXT
1005 SYS50151:U=4:IFGC=.ORPEEK(C)>97THEN1092
1008 O=6:PRINT"[147]":IFGC=2THENGOSUB1090:PRINT:GOTO1053
1033 GOSUB1070:GOSUB1080:U=1:GOSUB1070
1053 GOSUB1080:GOTO1092
1070 GOSUB148:PRINT"   DISPLAY [146]";:GOSUB31:PRINTTAB(16)" HAND? ":GOSUB496:PRINT"[147]":RETURN
1080 GOSUB1082:IFGC=4THENGOSUB496:PRINT"[147]"
1081 RETURN
1082 GOSUB39:PRINT:GOSUB274:POKEC-11,146:GOSUB63:PRINTTAB(O)" ";:GOSUB92:PRINT"   ->[144]";Y:RETURN
1090 PRINT"[147]";:IFCI>.ORGC=.THENPRINTTAB(6):GOSUB906:RETURN
1091 GOSUB485:PRINT:RETURN
1092 IFGC<>2ANDPEEK(C)<>99THENGOSUB1090:PRINT""
1095 IFPEEK(C)=99THENGOSUB209:GOTO219
1099 GOTO2990
1100 X=FNZ(U):GOSUB53:GOSUB38:GOSUB23:POKE899,Y:GOSUB37:RETURN
1101 GOSUB920:IFPEEK(881)=.THENIF(FNX(K)ANDPEEK(869))=.THENIFFNX(K)ANDPEEK(862)THENPOKEI,.
1102 RETURN
1110 IFFNX(K)ANDV(FNY(U))THEN1120
1115 GOSUB272:H=H+F*20-200*(X>.OR(FNX(K)ANDV(FNY(FNZ(U))))>.):IFPEEK(893)ANDMB=.THENH=H*2
1117 RETURN
1120 F=.:IFP>1THENX=879-(U=DB):GOSUB65
1121 RETURN
1123 IFMTHENIFHP=2THENN=.:GOSUB667:IFLORNORPEEK(KY)THENPOKEI,2
1124 ON1-(PEEK(I)=2)GOTO74,2017
1150 POKEI,.:X=2:GOSUB1490:IFFX=.ORK=TRTHENRETURN
1151 J=T2-M-N:IFP>1THENIFINT(J/2)ANDP>=N+(HP>1)THENPOKEI,1:RETURN
1155 IFP=.ANDHP=2THENX=3:GOSUB1490:IFPANDM>PTHENIFINT(J/2)>1OR(M>NANDP>=N-1+DX)THENPOKEI,1
1160 RETURN
1248 H=9-5*(T2>9)+3*(PR=1)-5*(KX>1)+(KX=1)-(P=1ANDY=DB)*20*DX:RETURN
1250 MB=.:JM=976:KD=V(FNZ(U))
1252 FORK=1TO4:GOSUB1254:IFHANDK=TRTHENIF(FNX(K)ANDKD)=.THENIFN+M<>T2THENGOSUB299
1253 R(K)=H:NEXT:GOSUB1331:GOTO1280
1254 H=.:GOSUB3:IFN=.THENRETURN
1255 IFK<>TRTHENIF(FNX(K)ANDKD)ORN+M=T2THENH=8-30*(PR>1)-90*(N=T2):GOSUB7280:RETURN
1256 IFTRANDK<>TRTHENGOSUB266:IFXTHENH=3+(1-DX)*2:GOSUB1287:RETURN
1257 IFTRTHENIFFNV(TR)ANDM=.THENGOSUB7289:H=1+2*Q-50*(X>.ANDN=T2+1ANDPEEK(V+10+TR)<4):RETURN
1261 IFTRANDK<>TRTHENIFN+M+1=T2THENIFQ=.ORN=1THENGOSUB7283:IFH=89THENH=79:RETURN
1263 J=FNX(K):IFQOR((JANDV(PL))AND(JANDV(DB)))THENH=78+2*Q:GOSUB660:RETURN
1265 GOSUB508:GOSUB1495:KX=P:X=1:GOSUB1490:IFPR>1THENH=40+N-20*(PR>2):RETURN
1269 IFPTHENX=3:GOSUB34:GOSUB1248:GOTO1278
1272 GOSUB1314:IFK<>TRTHENX=2:GOSUB1490:H=H-8*(T2>11)+(P=1)*(10-20*DX)-3*P
1276 IFK<>TRANDK=PEEK(U+JM)THENIFU=PEEK(997)ORFNZ(U)=PEEK(997)THENH=H+20
1277 IFK<>TRTHENH=H-8*(K=PEEK(FNZ(U)+JM))-25*((FNX(K)ANDV(4+FNZ(U)))>.)
1278 IFU=PBANDK=PEEK(848)THENIF(FNX(K)ANDV(LE))=.THENIFPEEK(849)ORTR=.ORPEEK(C)=2THENH=H+30
1279 RETURN
1280 GOSUB638:IFXTHEN582
1282 GOSUB3:IF(Q>.AND((FX<3-(TR>.))ORR(K)>49))ORPR>1ORQ>1ORT=6ORT=7ORT=3THEN1997
1283 GOSUB317:ON1-(K<>TRANDPZ=2)GOTO582,613
1287 X=1:GOSUB34:IFMORFNV(TR)=.THENIFY<>DBTHENH=4-(Q=.)*13
1288 RETURN
1300 FORK=1TO4:GOSUB1303:R(K)=H:NEXT:GOSUB1331:RETURN
1303 H=.:GOSUB3:IFN=.THENRETURN
1306 IFK=TRTHENGOSUB790:RETURN
1308 IFTRTHENGOSUB266:IFXTHENGOSUB508:IFX<>NORN>MTHENH=30:RETURN
1310 IFTRTHENIFFNV(TR)ANDM=.THENIFQ<>NANDPR+1<>NTHENH=25:RETURN
1311 IFN=T2THENH=35:RETURN
1312 IFQTHENH=1+N+9*(N-Q):RETURN
1314 IFPRANDT2-N>1THENH=3+N:RETURN
1324 GOSUB508:H=N+20+(X=N)*15-9*(T2-N<3*X)+5*(X=N+1):RETURN
1331 GOSUB142:K=1
1333 FORJ=2TO4:IFR(J)>R(K)THENK=J
1334 NEXT:RETURN
1350 FORK=1TO4:GOSUB1353:R(K)=H:NEXT:GOSUB1331:RETURN
1353 H=.:IFFNB(K)=.THENRETURN
1354 GOSUB10:IFK<>TRTHEN1357
1355 IF(MS=.ANDWS=TRANDTR<>SL)OR(HP=2ANDFNV(TR)=R(.))THENH=1:RETURN
1356 H=99:ON1-(HP>2)GOSUB810,815:RETURN
1357 IFT2ANDFNC(K)=.THENH=4-(YX>.)-KC*(KD=.):RETURN
1358 IFPEEK(KX)=KCTHENH=5+KC+(KD>.)*3-80*(PEEK(KY)>=JMANDKD>KCANDMB=.):RETURN
1359 Y=.-(KC<E-(Q=.)):IFYTHENIFTRTHENIFFNB(TR)THENIFKC<=KDORKD=.THENH=51-KC:GOTO1375
1362 IFQ=.THENX=PEEK(KX+20):IFXTHENIFRANDKC>1ANDKC<=X+1THENH=4+X:RETURN
1373 H=12+E+Y*9:IFPEEK(KX)THENH=14+2*E+(R=.ANDE=.)*9
1375 IFPEEK(864)=FNZ(U)THENIFPEEK(859)ANDFNX(K)THENGOSUB299
1380 RETURN
1450 POKE896,FNZ(U):P=U:GOSUB1455:P=P+(P>E)*(P-E):RETURN
1455 GOSUB34:POKE895,P:SYS52573:P=PEEK(894):RETURN
1460 POKE898,U:POKE897,DB:GOSUB23:GOSUB37:RETURN
1465 POKE898,U:POKE897,DB:GOSUB23:POKE899,C%:GOSUB37:RETURN
1480 POKE899,13*(K-1)+1:POKE900,13*K+1:POKE897,X:SYS51760:Y=PEEK(898):RETURN
1490 POKE896,.:P=DB:GOSUB1455:RETURN
1495 POKE896,.:P=U:GOSUB1455:RETURN
1500 V(.)=.:IFPEEK(C)<13THENX=5-((R>.ANDPEEK(881)=.)ORFX<.):Y=.:GOSUB919:GOSUB194:GOSUB96
1502 K=.:IFTRTHENK=TR-1
1504 GOSUB1525:IFHTHENGOSUB800:IFK=TRTHENGOSUB847
1505 R(K)=H:SL=SL+1:ON1-(SL>3)GOTO1504,1974
1510 POKE881,.-(PEEK(KX)>.ANDPEEK(KY)>.)*PEEK(881):RETURN
1525 K=FNY(K):GOSUB10:H=.:IFKC=.THENRETURN
1526 IFK=TRTHENGOSUB1510:IFKDTHENGOSUB615:IFPEEK(881)=.THENGOSUB626:POKE881,X
1528 IFT2THENIFK<>TRTHENIFFNC(K)=.ANDKD=.THENH=500:RETURN
1530 IFFNX(K)ANDPEEK(859)THENGOSUB418:RETURN
1535 IFK=TRTHENIFT2THENGOSUB902:RETURN
1550 IFQ=.THENH=3+E+2*PR:PS=PEEK(964+K):GOSUB690:GOTO1565
1560 H=16+Q-(K=TR):GOSUB683:GOSUB474:GOSUB808:IFFX>.ANDPEEK(KY)=.THENGOSUB550
1565 IFT2=.THENIFK<>TRANDPEEK(843+K)=.THENGOSUB561:IFL=.THENGOSUB299:RETURN
1570 F=PEEK(1000+K):IFFTHENH=H+5+F+9*(KD=1ANDYX=FNX(K)):IFPEEK(KX)<KCTHENF=.:GOSUB803
1590 RETURN
1700 U=1:PC=.:POKE2,.:A$=" HONORS"
1702 GOSUB15:X=PEEK(T+10+TR):IF(TRANDX=31)OR(TR=.ANDX=4)THENPC=150:POKE2,U:GOTO1715
1705 IFTRTHENIFX=15ORX=23ORX=27ORX>28THENPC=100:POKE2,U:GOTO1715
1710 U=U+1:IFU>4THENRETURN
1712 GOTO1702
1715 PRINT"[147]":GOSUB148:PRINTTAB(12)A$" POINTS [146][144]"PC:PRINT:GOSUB31:GOSUB2100:GOSUB5:RETURN
1800 Z=.:FORK=1TO4:GOSUB1806:R(K)=H:NEXT:GOSUB1331:L=.:GOTO1820
1806 H=.:GOSUB3:IFN=.THENRETURN
1807 IFGB>20THENIFT>15ANDK<>TRTHENIFT>23ORT<20THENZ=K
1809 IFTRANDK=TRTHENH=2:RETURN
1810 IFT>23OR(T>11ANDT<16)ORT=3ORT=6ORT=7THENH=6+INT(T/10):RETURN
1813 IFN=1ANDT<8THENH=9:RETURN
1814 IFT>7ANDN<3THENH=1:RETURN
1815 IFT>3ANDN<4THENH=4:RETURN
1817 H=5+2*(T>15):RETURN
1820 IFZTHENK=Z:GOTO74
1824 FORN=1TO4:IFV(4+FNZ(U))ANDFNX(N)THENIFFNB(N)THENK=N:L=1
1825 NEXT:IFLORTRTHEN1828
1826 K=1:FORJ=2TO4:IFFNB(J)>FNB(K)OR(FNB(J)=FNB(K)ANDPEEK(B+J+10)>PEEK(B+K+10))THENK=J
1827 NEXT
1828 GOSUB3:IFR(K)>5ORN=2OR(L=1ANDT>7)THENPZ=1:GOTO613
1860 IFTR=.ANDN>4THENGOSUB317:IFPZ=2THEN613
1870 IFTR=.ANDN>3THENPZ=4:GOTO613
1875 GOTO582
1973 K=V(.):GOSUB142:GOTO1997
1974 GOSUB1331:GOSUB10:GOSUB688:SL=S:T%=W:X=.-(R=.ANDV(.)>.):IFKD=.THENSL=99
1975 IFXTHENIFYX=FNX(K)ANDKC=1THENIFT2OR(K=TRANDPEEK(1000+TR))THEN1973
1976 IFXTHENIFYX=.THENIFK<>TRORKC=1THENGOSUB625:IFXTHEN1973
1980 X=PEEK(999)ANDFNX(K):POKE999,.-(X>.)*FNZ(U):X=.:IFTRTHENGOSUB530
1981 IFXORKC=1OR(PEEK(863)ANDFNX(K))OR(PEEK(V+K+10)ANDPEEK(964+K)>1)THEN582
1982 J=PEEK(1000+K):IFPEEK(999)=FNZ(U)THENIFJOR(FNX(K)ANDPEEK(859))THEN582
1986 GOSUB564:IFSTHEN582
1990 GOSUB470:IFPEEK(KY+20)ANDQ=.THENGOSUB631:ON1-(PR>=FANDPR>=JMANDL=.)GOTO582,1997
1991 IFJTHENIFQ>PEEK(KY)ANDKD<=J+1ANDKC>KDTHENIFJM-X<=QANDKD>1THENPOKE999,FNZ(U):GOTO582
1992 IFPEEK(KX)ANDSL>1THENIFFNX(K)ANDPEEK(862)THENPZ=2:GOSUB513:Y=C%:GOSUB36:IFW=1THEN1999
1993 IFJTHENGOSUB540:IFT%=1ANDP=1ANDPEEK(893)=.THEN582
1994 IFJTHENIF(T%=.ANDYXANDR>.)OR(T2ANDK=TR)THEN559
1995 IFT%>1OR(T%ANDPEEK(KY)=KDANDKD>.)OR(Q=.ANDPEEK(KX+20)=1)THEN582
1996 GOSUB667:IF(L=1ANDSL=.ANDPEEK(KX)<FNC(K))OR(T%ANDT%=SLANDKC>KD)OR(Q=.ANDSL=1)THEN582
1997 GOSUB157:GOTO158
1999 PZ=2+(KC=2):GOTO613
2000 SYS51342:GOSUB518:POKE897,TR:SYS51387:IFSL=.THEN1500
2001 GOSUB7220:IFXTHENFORX=1TO1-12*(U=PL):GOSUB4:NEXT:GOTO580
2002 GOSUB194:IFHP=2THENGOSUB96
2003 K=SL:GOSUB10:GOSUB22:GOSUB149:IFKC=.THEN586
2005 GOSUB153:IFD=.THEN580
2006 IFHP<4THENIFFNX(K)ANDV(FNY(U))ORFNC(K)=.THENONMS+1GOTO2090,2080
2007 IFHP>2THEN2045
2008 M=.:IFKDTHENGOSUB283:M=D:IFMTHENGOSUB688:IF(LANDR>.)ORS=.OR(S=1ANDQ=.)THEN580
2009 IFMTHENN=.:GOSUB667:IFLORNTHENON1-(PEEK(KX)=.ANDPEEK(893)<PANDN>.)GOTO580,74
2010 IFMTHENIFRANDPEEK(KX)=1THENGOSUB1100:IFW=1THENIFTR=.ORKD>1THEN580
2012 IFRTHENIFPEEK(KX)ANDHP=3THENGOSUB271:IFXTHENGOSUB349:IFPZTHENGOSUB513:IFSTHEN158
2013 X=PEEK(B+K+10):IF(PEEK(KX)>.AND(R=.ORE=.))OR(HP=2ANDKC=2ANDX>.ANDX<8)THEN74
2015 POKEI,.:IFRTHENIFTRANDK<>TRTHENIFPEEK(KX)THENGOSUB1101:IFPEEK(I)THEN1123
2017 IFRTHENIFQANDQ<JMANDHP=2THENGOSUB353:IFPZTHENGOSUB513:IFSTHEN670
2018 IFPEEK(I)THEN580
2019 IFHP=2THENX=PEEK(KX):Y=PEEK(KX+20):IF(X=.AND((YANDY=PR)ORY>1))OR(XANDX=Q)THEN74
2026 IFRTHENIFPEEK(KX)ORPEEK(863)THENIFQ<JMANDHP=3THENGOSUB349:IFPZTHENGOSUB513:IFSTHEN158
2027 IFHP=3THENGOSUB2085:IFW>1THENS=W:GOSUB57:IFW<2ORS-W>.THEN74
2029 X=.-((MS>.ANDHP=3)OR(HP=2ANDM=.)):IFXTHENIFPEEK(KX)ANDQ>=JMTHEN74
2030 ONX+1GOTO580,570
2045 IFMSTHENONHP-2GOTO2012,570
2047 J=.:GOSUB2095:IFXTHENONHP-2GOTO74,570
2050 GOSUB2085:GOSUB271:IFHP=4ORW=.OR(R>.ANDW=1ANDX>.)THEN580
2051 IFRTHENIFXTHENIFPEEK(KX)=1ANDQ=<JMTHENPZ=2:GOSUB513:IFSTHEN613
2053 GOSUB272:IFXOR(R=.AND(T2ORK<>TR))ORQ>=JMORE=.OR(FX=.ANDW>1)THEN74
2062 IFW=1OR(W=2ANDG>9)THENIFKDOR(Q=.ANDW=1)ORK=TRORTR=.THEN580
2066 GOTO2015
2080 IFHP=3OR(HP=2ANDKD=.)THEN570
2081 GOSUB283:OND+1GOTO570,580
2085 GOSUB38:GOSUB23:GOSUB37:RETURN
2090 J=1:GOSUB2095:ONX+1GOTO580,570
2095 T=.-(MB>.ORPEEK(B)>=R(.)-FX):X=.:IF(R=.ANDYX=.ANDV(.)>.)ORPEEK(999)=UTHENX=1
2096 IFR=.ANDKD=.ANDK=TRTHENIFTTHENIFQ>FNC(K)THENX=1
2097 IFT2ANDYX=.ANDPEEK(KX)>=FNC(K)+JTHENX=1
2098 RETURN
2100 GOSUB51:M=1:D=24:GOSUB2102:GOSUB2:RETURN
2102 L=49247:SYS50521
2103 FORJ=MTODSTEP4:POKEA+1,PEEK(L+J):POKEA,PEEK(L+J+1):POKEA+8,PEEK(L+J+2):POKEA+7,PEEK(L+J+3)
2104 GOSUB4:IFPEEK(L+J)=50THENGOSUB4:GOSUB4
2105 NEXT:RETURN
2107 PRINT"":FORM=4TO1STEP-1:GOSUB56:PRINTZ$(M);"[144]";PEEK(C+M);CHR$(13):NEXT:RETURN
2120 GOSUB51:M=17:D=24:GOSUB2102:GOSUB2:RETURN
2150 IFDNTHEN8
2151 IFGB>20THENGOSUB3400:IFQ>2OR(GB>25ANDQ>1.5)THENZ=36
2152 IFGB>15THENX=FNQ(GB):IFXTHENIF(A%<>1ORPC=2)ORGB>25THENIFFNB(X)>4THENZ=36
2153 ON1-(MB=37)GOTO8,118
2300 T=ABS(4-U)*2+827:RETURN
2310 FORJ=1TO4:T=PEEK(49721+J)+PEEK(49755+J):D=T-INT(T/2)+(T>.):X=T+(T>.)-D*2
2311 T=827+J:POKET,D:POKET+4,D:POKET+8,X:NEXT:POKE879,.:POKE880,.:POKE881,.
2312 SYS52613:POKE998,.:POKE999,.:RETURN
2325 GOSUB2300:POKET+SL,.:T=831-ABS(U-4)*2:POKET+SL,FNC(SL):RETURN
2326 IFU=DBORU=PLTHENRETURN
2327 GOSUB2300:IFPEEK(T+D)THENPOKET+D,PEEK(T+D)-1
2328 RETURN
2800 IFPB=15THEN2847
2803 IFPB=10THEN2846
2805 IFPB=6THEN2852
2806 IFPB<MB+5ANDW>17THENIFKD>2ANDKY>2THENZ=PB+5:GOTO8
2820 IFPB<MB+5ORGTHEN8
2821 IFKY>2THENIF(PS>2ANDKD>2)ORKD>3THENZ=PB+5:GOTO8
2823 Z=15:GOTO8
2846 IFV>17THENZ=15
2847 IFV>26THENSX=.:GOTO5080
2850 GOTO8
2852 A%=2:O=.:GOSUB4377:Z=7:IFOTHENZ=O+5
2855 GOTO8
2900 IFPSTHENIFPS<PRANDPB=GBTHENIFFNB(PS)+1<FNB(PR)THENO=PR:GOTO66
2902 GOTO8
2990 Y=10:GOSUB62:PRINTSPC(12)"[151] THE AUCTION [146]":POKE900,6:GOSUB21:SYS50017
3000 PC=-1:FX=.:SYSC+20:FORJ=1TO4:POKEC+J,5:V(J)=.:V(J+4)=16:NEXT:A%=.:PRINT"";
3001 GOSUB2100:GOSUB21:E=.:GB=.:U=OP:DN=.:TR=14:GOSUB901
3002 Z=.:E=E+1:V(U)=V(U)+1:GOSUB20:IFU=4ANDE>1THENTR=TR+1
3003 T%=.:SX=PEEK(C+U):GOSUB30:GOSUB509:MS=.:MB=.:PS=.:PB=.:GOSUB3050:IFE>2THENIFPBTHEN3007
3006 GOTO8000
3007 J=2:WS=.:SL=1:IFMBANDMB<36THENIFPTHENIFMB>P+5THENSL=.
3008 J=J+2:IFE>JTHENIFPEEK(I+E-J)THENWS=WS+1:GOTO3008
3009 T=.-(PB=20)-2*(MB=20)-3*(PB=25ORMB=25):ONTGOTO5100,4350,4325
3010 IFPB=37ORMB=37THENON1-(DE=UORDE=FNZ(U))GOTO2153,8
3011 IFPB=36THEN4390
3012 IFMB=36THEN4380
3013 IFPB>20ANDA%=1THEN8
3014 IFWS=.THEN3600
3015 GOSUB3061:ONWSGOTO3990,4500,6000
3016 X=WS-2*(INT(WS/2)):ONX+1GOTO7000,7100
3050 IFE-2>.THENPB=PEEK(I+E-2):IFPB<36THENPS=FNQ(PB):KY=PEEK(B+PS+10):KD=FNB(PS)
3051 IFE-4>.THENMB=PEEK(I+E-4):IFMB<36THENMS=FNQ(MB):KX=PEEK(B+MS+10):KC=FNB(MS)
3053 PR=.:P=.:IFE-6>.THENP=PEEK(I+E-6):IFP<36THENPR=FNQ(P)
3054 T2=.:IFE-8>.THENX=PEEK(I+E-8):IFX<36THENT2=FNQ(X)
3055 GOSUB334:GOSUB113:G=.-(TB>=100):RETURN
3061 IFGC=.ORPB<>GBORG=1THENRETURN
3062 GOSUB99:IF(PSANDKD>1)OR(SX<5ANDPS=SX)THENIFTB+C%(3+Q)>=100THENG=1:GOSUB517
3064 RETURN
3080 L=FNZ(U):IF(SXANDSX<5)ORV(4+U)=16ORV(4+L)=16THENRETURN
3082 FORJ=1TO4:X=FNX(J):IF(V(4+U)ANDX)AND(V(4+L)ANDX)THENSX=J
3083 NEXT:RETURN
3400 Q=.:FORJ=1TO4:T=PEEK(B+J+10):Q=Q-(T<12ANDFNB(J)>1ANDT>7)*.5
3402 Q=Q-(T>11)-(T>19)*.5-(T>23)*.5:NEXT:RETURN
3460 O=.:IFPSTHENIF(KY>2ANDKD>2)OR(PS>2ANDKD>3)THEN3474
3462 IFDB<3ANDV>20THENGOSUB98:IFD=.THEN3495
3467 GOSUB7290:IFOTHEN4168
3468 IFPB=5ANDV<14THEN8
3473 IFPS=.ORKD<3THEN3495
3474 GOSUB19:IFKD>3ANDR>23THENSX=PS:GOTO5080
3476 IFPS>2ANDR>19THENZ=PS+15:GOTO8
3477 IFR>16THENZ=PS+10:GOTO8
3478 IFR>12+(PS>2)*2ANDKD>2THENZ=PS+5:GOTO8
3495 O=.:IFV>18THENO=5
3496 IFV>20THENZ=15:GOTO8
3497 GOTO66
3498 O=MS:IFW<19THEN66
3499 O=MS+5:IFPB=5ORPB<>GBTHENGOSUB79:IFDORGB>PB+5THENX=MS:GOTO5095
3502 IFDB<3THENGOSUB98:IFD=.THEN3496
3503 GOTO66
3520 IFE<3ORZ>GBTHEN8
3522 IFLE>.THENS=1:GOSUB8137
3523 IFPC=2ANDZ=.THENIFGBTHEN117
3532 GOSUB7050:IFZ<=GBTHENZ=.
3533 IFB%<3THENIF(GCANDU=4)OR(GC=4ANDU=1)THENYX=Z:POKE900,6-(UAND1):SYS51632:GOTO225
3534 IFZ<=GBORZ>37THENZ=.
3535 GOSUB901:GOSUB63:PRINT" ";:GOSUB26:GOSUB162:M=Z*2+(4-X)*35:GOSUB316:SYS51522
3536 POKEC+U,SX:SX=5:PRINT"[144]";:IFZ>35THENDN=Z-35
3537 IFZTHENGOSUB341:IFV(U)=1THENPOKEC+6+U,1
3538 IFZ>GBANDZ<36THENGB=Z:DN=.:DE=U
3542 U=FNY(U):POKEI+E,Z:IFZTHENPC=.:GOTO3002
3546 PC=PC+1:IFPC=3THENA%=.:PRINT:PRINT" [149] ALL PASS [146]";:GOSUB894:GOTO930
3550 GOTO3002
3590 IFZTHENIFZ<=GBORZ>37OR(Z>35ANDGB=.)OR(Z=37AND(DN<>1ORPB=36))OR(Z=36ANDDN)THEN245
3592 IFGBANDGB=PBTHENIF(Z=37ANDDN<>1)ORZ=36THEN245
3593 IFZ<>YXTHENSX=PEEK(C+U)
3594 GOTO3535
3600 IFE-6>.THENIFP=.ORP>35THEN8
3602 IFPB=15THEN8480
3606 IFPB>10OR(PB<>GBANDGB>10ANDW<11)ORGTHEN8
3607 IFPB=5THEN3700
3609 IFPB<5THEN3800
3610 IFE-8>.THENIFPEEK(I+E-8)=.THEN8
3611 IFE-6>.THENIFPB=P+5ANDMB=.THEN8
3612 IFPB=10THEN3616
3615 GOTO3900
3616 SX=.:O=.:X=PEEK(B+15):IFX>2THENIFPEEK(B+X)>1THENO=X
3617 IFO=.ANDV<4THEN8
3640 IFW>9THENGOSUB4375:IFOTHEN66
3642 IFV>8THENO=5
3644 GOTO66
3700 O=.:GOSUB121:IFO>2THENIFW>6ANDV<15THENZ=O+15:GOTO8
3701 IFOTHENIFW<8THENON2+(O=1)GOTO8,66
3705 IFDBTHENIFO=.ORW<12THENGOSUB4377:IFW>7ANDO>2THENZ=6:GOTO8
3706 O=.:GOSUB121:IFOANDW>9THENO=O+5:GOTO66
3720 Y=.:FORJ=1TO4:Y=Y+PEEK(B+J):NEXT:IFY<8THEN8
3721 Z=10:IFY>9THENZ=15
3722 IFY>15THENZ=20:SX=.
3723 GOTO8
3800 TB=.:IFKD<3THEN3850
3811 IFPS=1THENIFKD<4OR(PEEK(B+1)<4ANDKD=4)THEN3850
3817 GOSUB19:IFR<7THEN3850
3820 IFKY>1ORKD>3OR(PS>2ANDKY>.)THENTB=PS+5
3821 IFE<5THEN3823
3822 IFMB=.THEN3827
3823 IFR>12THENIF(KD>3ANDPS>1)ORKD>4THENTB=PS+10:IFR>18THENSX=PS:GOTO5080
3825 GOTO3844
3827 IFPS>2ANDR>10ANDKD>3THENTB=PS+10-5*(R>13)
3844 IFTB>=PB+10THEN7
3850 IF(PEEK(I+E-1)ANDW<9)ORW<6THEN7
3860 GOSUB121:IFYTHENZ=O:IFZ>GBORDB>3THEN3871
3870 O=.:GOSUB7290:Z=O:IFZ=.THEN3886
3871 IFZ>GBTHEN3892
3872 IFZ=PSTHEN7
3873 IFZ=GBANDDN=.THENZ=36:GOTO8
3875 IFZTHENIFW<16-FNB(Z)THEN3885
3880 Z=Z+5:GOTO3892
3885 IFPEEK(B+15)>2ANDPEEK(B+PEEK(B+15)+4)>6THENIFV>6THEN3880
3886 Z=5:GOSUB98:IFDTHEN7
3887 IFV>12THENZ=10:IFDB<2ANDV>15THENZ=15:IFV>18THENZ=20:SX=.
3889 IFZ=5ORZ=.THEN7
3890 GOTO8
3892 MS=FNQ(Z):IFW>11THENKC=FNB(MS):KX=PEEK(B+MS+10):GOSUB79:IFDTHENSX=MS
3893 IFW>18THENZ=Z+5
3894 GOTO8
3900 S=.:IFPSTHENIFKD>2OR(KD=2ANDKY>2)THENSX=PS:GOSUB19
3902 R=W+S:GOSUB3400:IFQ=.ORR<7OR(Q<1ANDR<8)THENZ=10:SX=5:GOTO8
3905 IFPSTHENIFKD>2ANDR>9THEN5090
3906 IFPSTHENIFKD>2OR(KD>1ANDKY>2)THEN5092
3907 IFDB<2ANDR<10THENZ=15:GOTO8
3912 FORJ=1TO4:IFJ<>PSTHENIFFNB(J)>3ANDPEEK(B+J)>2THENZ=J+5:IFJ<PSTHENZ=J+10
3913 NEXT:IFZ>GBTHEN3918
3916 Z=10:GOTO8
3918 IFR>9THENZ=Z+5
3919 GOTO8
3990 HP=1:IF(MB=1ANDPEEK(B+5)<4AND(PB=5ORPB=6))OR(PB<>GBANDGB>9ANDW<16)THEN8
3994 IFMB=5THEN2800
3999 IFMB>5ANDPB<MB+5THENON2+(PB=10)GOTO4600,4604
4000 IFMB>5THENIFGTHENIFPS=MSOR(MB>9ANDPB>25)THEN8
4002 IFPB=MB+10THEN7500
4004 IFPB>MB+5THEN5000
4005 IFGTHEN8
4010 GOSUB79:IFDTHEN3498
4012 GOSUB7204:IFDTHEN3498
4026 IFPB<6THEN3460
4100 TB=.:H=.-(PS>2):IFKD<3OR(KD=3ANDKY<2)THEN4120
4117 GOSUB19:IFR>14-HTHENTB=PS+10:IFHTHENIFR>18THENZ=PS+15:GOTO8
4120 O=.:IFHANDW<16THEN7
4167 GOSUB7290:IFO=.THEN4170
4168 GOSUB67:IFZ>GBTHEN3893
4169 IFZANDW>16THENZ=Z+5:GOTO3893
4170 Z=.
4180 IFZ<GBTHENZ=10:IFV>17THENZ=15
4190 GOTO7
4196 O=MS:IFV>15ANDDB<1THENO=.:IFV>18THENO=5
4198 IFMS>2THENIFKC>5ANDW>21THENSX=MS:GOTO5080
4199 GOTO66
4320 FORJ=1TO4:T=PEEK(B+J+10):IFT>23OR(T<16ANDT>7)THENK=K+1
4324 NEXT:RETURN
4325 K=.:GOSUB4320:IFPB=25THENZ=26-(K<4)*K:GOTO8
4326 IF(K=.ANDPB=26)OR(K+PB-26=4)THENZ=30+SX-(SX=.)*5:GOTO8
4328 GOTO4363
4350 IF(LE=.ANDPB=21)OR(PB-21+LE=4)THENK=.:GOSUB4320:Z=25-SX*(SX=1ORSX=2ORK=.):GOTO8
4361 IFSX=5ORSX=.THENZ=30:GOTO8
4363 GOSUB997:IFSXANDMB=20THENX=.:GOSUB191:IFX+PB-21+LE>3THEN5083
4364 IFSX=PSTHEN8
4365 O=SX:GOTO66
4375 O=.:GOSUB121:IFYTHENRETURN
4377 FORT=3TO4:IFPEEK(B+4+T)>3ANDPEEK(B+T)>2THENO=T
4379 NEXT:RETURN
4380 GOSUB121:IFYTHENIFO=<PSANDPB=GBTHENIFKD>2OR(KD=1ANDKY>3)OR(PB>10ANDW<18)THEN8
4381 IFYTHENS=O:GOSUB334:ONY+1GOTO4396,8
4382 IFPS=.ANDV>17THENO=.:GOTO4396
4383 IFPSANDV>17THENGOSUB999:IFXTHENS=PS:GOSUB334:IFY=.THENO=PS:GOTO4396
4384 GOSUB98:IFDORPB=GBOR(PB<>GBANDFNQ(GB)=.)THEN8
4385 O=.:IFV>17ANDGB<10THENO=5
4386 IFV>20THEN5080
4387 GOTO66
4390 IFPEEK(I+E-1)>.ANDV<6THEN8
4391 IFV(FNZ(U))>1ORW<5ORGB>15OR(GB>9ANDW<10)THEN8
4395 GOSUB4375:S=O:GOSUB334:IF(O=.ANDW<9)OR(YANDW<13)THEN8
4396 IFPB<>GBTHENIF(FNQ(GB)=O)OR(GB>10ANDW<18)OR(GB>15ANDW<23)THEN8
4397 GOTO66
4500 HP=2:GOSUB3080:IFSXANDSX<5THENIFPB<MB+6THEN6030
4501 IFPB<>GBTHENIFGB>10ANDW<11THEN8
4502 IFSX=.ANDPB<=MB+5THEN4550
4503 IFP=5ANDMB=6THENIFPB<10THEN4800
4504 IFPB<=MB+5THEN4520
4505 IFPB=P+10ORPB=MB+10THEN7500
4512 IFT%ANDP=36THENIFW<11THEN8
4514 GOTO5000
4520 GOSUB79:IFDTHEN4567
4521 IFPS=.ANDPB=15THENIFV<17THEN8
4522 IFPSTHENON1-(PS=PR)GOSUB999,998:IFXTHENGOSUB19:IFR>10THEN4543
4524 IF(GANDW<19ANDPS>.ANDKD>1)ORW<9THEN2900
4525 GOSUB98:IFD=.THEN903
4537 IFPS=.THEN4547
4538 IFPR>2THENX=FNB(PR):IFX>3OR(PEEK(B+PR)>.AND((PS=PRANDX>1)ORX>2))THENWS=PR:GOTO4593
4541 O=.:GOSUB7290:IFO>FNQ(GB)ANDGB<15THEN66
4542 GOTO4547
4543 SX=PS:Z=PB+5:IFR>18THEN5080
4544 ON1-(R>13)GOTO8,5092
4547 IFPR>2THENIF(FNB(PR)>2ANDPEEK(B+PR)>1)OR(PR>2ANDFNB(PR)>3)THENWS=PR:GOTO4592
4548 IFMSTHENS=MS:GOSUB334:IFY=.THENIFKC>4ANDPEEK(B+MS)>3THEN4568
4549 O=.:GOSUB7290:IFOTHENIFW>13THEN66
4550 GOSUB780:IFXTHEN4365
4551 IFV>10THENIF(PB=10ANDMB=5)OR(HP=2ANDGB<5)THEN4555
4552 IF(GB<5ANDW>9)ORW>12THENGOSUB98:IFDTHENIFV<13ORD>1OR(D=1ANDGB>10)THEN8
4553 IFW<13THEN8
4555 O=.:IFV>18THEN5080
4556 IFE-6>.THENIFMB=P+10ANDPB=MB+5THENIFW<19THENO=PS
4557 GOTO66
4567 GOSUB58:IFW>18ANDPEEK(B+MS)>4THEN4570
4568 IFMS>2THENIFW>14ANDKC>6THENZ=15+MS:GOTO8
4569 IFW<10THEN8
4570 IFW>18THENSX=MS:GOTO5080
4577 O=MS:GOTO66
4592 IFE-6>.THENIFMB=P+10ANDPB=MB+5THENIFW<19THENO=PS:GOTO66
4593 GOSUB8500:R=W+S:IFR<10THEN4550
4594 O=PR:IFPR<>PSTHENIFR>13THENO=O+5:IFPR>2ANDPB>10THENO=PR
4595 IFR>18THENSX=PR:GOTO5080
4596 GOTO66
4600 GOSUB7204:X=.-((PEEK(B+15)ORD)>.)*MS:GOTO5095
4604 GOSUB79:IFD=.THENIFMS<3ANDPS>2ANDKD>3ANDKY>3THENSX=PS:ON1-(V>21)GOTO5092,5080
4605 GOTO4600
4800 O=.:IFPB=8ANDPEEK(B+7)<3THENIFPEEK(B+8)>3THENIFPEEK(B+4)THENO=4
4802 IFPB>7THENIFKD>3THENO=PS+5
4803 IFO=.THENGOSUB121:IFO=.THENIFV<10ANDKD>2THEN8
4812 GOTO66
5000 IFPS=.THENON1-(PB=20)-2*(PB=10)-3*(PB=15)GOTO8,5100,5203,5211
5002 IFPS=PROR(PANDPR=.)THENIFGANDV<18THEN8
5003 IFPS=PRORPS=MSTHEN7500
5005 GOSUB7204:IFDTHEN5030
5008 ON1-(HP=3)GOTO5016,5050
5013 IFSX=5THENSX=PS
5014 IFV>15THEN5080
5015 O=PS:GOTO66
5016 O=.:GOSUB999:IFXTHEN5013
5022 GOSUB7290:IFV>15THENO=O+5
5023 IFO=.THENGOSUB121:IFO<FNQ(PB)THENO=.
5026 GOTO66
5030 GOSUB58:IFW>20THENSX=MS:GOTO5080
5032 O=MS:GOTO66
5050 IFPSTHENX=I+E-8:IFX>.THENIFPS=FNQ(PEEK(X))THEN5060
5051 IFGANDW<20THEN8
5052 IFKD>3ANDKY>3THEN5013
5053 IFW>18THEN5080
5054 IFMSTHENIFKC>5THEN5030
5056 O=.:GOTO66
5060 IFW>18THENSX=PS:GOTO5080
5061 IFGANDW<20THEN8
5068 GOTO5014
5080 GOSUB3080:GOSUB997:IFGB<20THEN5085
5083 Z=SX+25-(SX=.)*5:GOTO8
5085 L=FNZ(U):D=.:IFT%THEN5091
5086 FORJ=1TO4:Q=PEEK(B+J+10):IFQ>15OR((FNX(J)ANDV(4+L))>.)THEN5088
5087 IFFNB(J)>1THENIF(FNB(J)=2ANDQ<12)ORQ<8THEND=D+1
5088 NEXT:IFD>1OR(D=1AND(SX<3ORFNB(SX)<3))THEN5091
5090 Z=20:GOTO8
5091 IFGTHENIFFNQ(GB)=SXTHEN8
5092 X=SX
5095 Z=15-(X>.)*(X-(X<3)*5):GOTO8
5100 A%=1:Z=21-(LE<4)*LE:GOTO8
5203 IFW<19THENO=.:ON2+(V<6)GOTO8,66
5205 Z=30-(V>17)*5:GOTO8
5208 IFV>12THENZ=20:SX=.:IFV>18THENZ=35
5209 GOTO8
5211 IFHP=2THEN5208
5214 IFMSTHENGOSUB58:IFW>20THENSX=MS:GOTO5080
5216 GOTO8
6000 HP=3:H=.:GOSUB3080:IFPSTHENIFPS<>PRANDSX=5THENH=1
6001 IFGANDH=.THENIFV<20OR(PB=15ANDSL=.AND(SX<3ORSX=5))THEN8
6002 IFSXANDSX<5THENIFPB<MB+6THEN6030
6003 IFSX=.THEN6080
6006 IFPB>MB+5THEN5000
6012 IFPSANDPS=PRTHENGOSUB998:IFXTHENGOSUB19:IFR>WOR(PS>2ANDR>W-3)ORR>15THEN6070
6021 GOSUB79:IFDTHENGOSUB58:GOTO6050
6022 GOSUB98:IFD=.THENIFGB<15ORV>18THEN7580
6023 IFT2>2ANDT2<>MSTHENIFFNB(T2)>4ANDPEEK(B+T2)>3THENIFW>16THENMS=T2:GOTO6050
6024 IFPSTHENON1-(PS=PR)GOSUB999,998:IFXTHEN6070
6026 IFPRANDA%<2THENIFFNB(PR)>2ANDPEEK(B+PR)>.THENPS=PR:GOTO6070
6028 IFH=.THENIFPSANDV<14THEN8
6029 GOTO7580
6030 GOSUB206:IF(V>20ANDT%=.)OR(SX>.ANDSX<5ANDDX>19-2*(PEEK(C+6+FNZ(U))=.))THENIFSLTHEN5080
6031 IFPS<>SXTHENIFPB=GBTHEN6034
6032 IF(HP=2ANDDX<11)OR(HP<>2ANDDX<15)ORGTHEN8
6034 O=SX:IF(SX>2AND(HP<>2ORDX>10))ORSX=PEEK(B+15)THEN5092
6035 GOTO66
6050 O=MS:GOSUB79:IFDORW>20THENSX=MS:GOTO5092
6052 GOTO66
6070 GOSUB19:O=.:IFR>13THENO=PS:IFR>20THENIFSLTHENSX=PS:GOTO5080
6073 IFR>16THENIFPS>2ANDPB<13THENO=PS+5
6075 IFO=.OR(W<16ANDGB>10ANDPS<2ANDSX=5)THEN6028
6076 GOTO66
6080 IFW<16ORGTHEN8
6083 O=.:GOTO66
7000 HP=2:IFGTHENIFPB>MB+5ORPS=PRTHEN8
7001 GOSUB3080:IFSXANDSX<5THENIFPB<MB+6THEN6030
7002 IFPB=5ORPB=10OR(PS>2ANDPS=PRANDPS<>MSANDPS<>T2)THEN7020
7003 GOSUB780:IFXTHEN4365
7004 IFE-10>.ANDPS=PRTHENIFPR=FNQ(PEEK(I+E-10))AND(KY>3ORKD>2)THENO=PS:GOTO66
7005 IFSX<5THENIFG=.ANDW>11THEN4365
7006 IFW<14ORGTHEN8
7007 IFMS>2ANDKC>5THENO=MS:GOTO66
7020 WT=.:IFE-10>.THENWT=FNQ(PEEK(I+E-10)):IFPRTHENIFPR=WTTHENX=PR:GOTO7022
7021 GOTO7025
7022 F=FNB(X):IFF>2OR(X>2ANDF>1ANDPEEK(B+X)>1)THENWS=X:GOSUB8500:IFW+S>10THENO=PR:GOTO66
7025 GOSUB98:IFDTHEN8
7026 GOTO4555
7050 IF(DNANDZ=36)OR(DN=.ANDZ=37)THENZ=.:RETURN
7054 IFE-2>.THENIFPB=GBANDPEEK(I+E-1)=.THENIFZ>35THENZ=.
7055 IFDN=1ANDE>4THENIFGBANDGB=MBTHENIFZ=GB+5THENZ=37
7056 RETURN
7100 HP=3:GOSUB3080:IFGTHENIFPS=SXANDW<24THEN8
7108 IFW>21THENIFSXANDSX<5THEN5083
7109 IFGB=PBANDPB<>15THENGOSUB780:IFXTHEN4365
7111 IFGTHEN8
7113 GOSUB997:IFGB>14THENIF(SX=.ANDV<18)OR(SXANDW<18)THEN8
7115 GOTO4365
7204 D=.:IFMSANDKC>4THENIFKX>21OR((MS>2ORMS=PEEK(B+15))ANDKX>9)OR(KX<16ANDKX>11)THEND=1
7206 RETURN
7220 Y=FNB(SL):X=.-((YANDWS=TRANDTR<>SL)ORY=1):RETURN
7280 IFQTHENGOSUB660:IFQ=1ANDN>QTHENPZ=2:GOSUB513:GOSUB507:IFX>NANDT2-N>1THENGOSUB299
7283 IFTRTHENIF(FNX(TR)ANDKD)=.THENGOSUB109:IFL<13THENGOSUB7289:H=89-70*X
7285 RETURN
7289 X=.-(PEEK(C+TR)>8+(FNB(TR)>.)):RETURN
7290 FORJ=1TO4:IF(FNX(J)ANDV(U+4))OR(FNX(J)ANDV(FNZ(U)+4))THEN7294
7292 IF(FNB(J)>3ANDPEEK(B+J)>3)ORJ=PEEK(B+15)ORJ=PEEK(B+16)THENO=J
7294 NEXT:RETURN
7500 GOSUB3080:GOSUB7700:IFPS=MSANDMS<>PRTHEN7538
7510 GOSUB7204:IF(DANDKD<3ANDMS>PS)ORKD=.OR(KD=1ANDKY<4)OR(KD=2ANDKY<2ANDLE=.)THEN7550
7515 GOSUB19:IFGTHENIFW<PZOR(MS=PRANDMB=P+10)THEN8
7520 SX=PS:IFR>=PZTHENIFSLTHEN5080
7525 IFG=.THENIFR>=PZ-4OR(PS>2ANDR>6)THEN5092
7535 GOTO8
7538 GOSUB58:X=.:GOSUB191:IFW>=PZOR(W+2>=PZANDX+LE>2)THENIFSLTHEN5080
7539 IFGTHEN8
7540 GOTO5092
7550 IF(GANDW<PZ)ORW<10THEN8
7551 IFW>=PZTHENIFSLTHENIFSX<>5THEN5080
7553 GOSUB121:IFYTHENIFO>PSORW>12THENX=MS:GOSUB79:ON1+DGOTO66,5095
7555 GOSUB98:IFDORPB<>GBANDGB>14THEN8
7580 O=.:IFSLTHENIF(SXANDSX<5ANDW>18)OR((SX=5ORSX=.)ANDV>18ANDT%=.)THEN5080
7581 IFHP=3ANDSX=.THENIFPSTHENIFPB=GBANDGB<10THENO=5
7582 Z=.:ON2+(GB>15)GOTO8,66
7700 PZ=17+4*(HP=2ANDPS=PRANDKD>1):IFHP=3OR(HP=1ANDP=.ANDV(FNZ(U))=2ANDPS=MS)THENPZ=23
7707 RETURN
8000 WT=.:IFGBTHENIFDE=UORDE=FNZ(U)THENWT=1
8001 IFGB=.THENGOSUB8125:GOTO3520
8003 IFWTTHENIFDN=1ANDW>17THENGOSUB79:IFDORGB<15THENZ=37
8005 IFWTTHEN8
8006 IFV(U)>2OR(V(U)=2ANDGB>15)THEN2150
8007 GOSUB8125:IFZ=.ORZ>GBTHEN3520
8008 IF(Z<GBANDV(U)=1ANDGB<8)ORZ=GBTHENZ=36:GOTO8
8009 IFW>17THENGOSUB121:IFYTHEN4396
8010 GOTO2150
8125 IFDBTHEN8130
8129 IFV>15THEN8310
8130 GOSUB3400:IFW>13OR(W=13ANDQ>1.9)THEN8141
8132 S=.:IFE<3OR(V>10ANDV(U)=1)ORLE=.THENRETURN
8137 FORJ=5TO8:IFPEEK(B+J)>7-STHENZ=J+6:IFJ>6THENGOSUB99:IFC%(3+Q)=.THENIFS=.ORLE>1THENZ=Z+5
8139 NEXT:IFZTHENS=FNQ(Z):GOSUB334:IFYTHENZ=.
8140 RETURN
8141 GOSUB910:Y=.:IFXTHENX=.:IFFNB(Z)>5ORPEEK(B+Z)>3THEN8210
8160 FORJ=1TO4:IF(FNB(J)>3ANDPEEK(B+J)>3)ORFNB(J)>4THENZ=J:X=X+1:Y=Y+(2^J)
8170 NEXT:IFGB=.ANDX>1THENZ=1-3*(Y=24ORY=28)-2*(Y=12ORY=14)-1*(Y=6ORY=20ORY=22)
8205 IF(Z=.ANDV>15ANDDB=1)OR(V>21ANDDB<2)THEN8310
8206 Z=Z-(Z=.)
8210 O=Z+4:GOSUB182:IFW>24THENZ=Z+5
8220 RETURN
8300 FORJ=1TO4:T=FNB(J):X=PEEK(B+J+10):R(J)=.-((T<2ANDX<16)OR(T=2ANDX<8)OR(T>=3ANDX<6))
8309 NEXT:RETURN
8310 GOSUB8300:X=.:FORJ=1TO4:X=X+R(J):NEXT:IFX>1THEN8206
8312 Z=5:IFV>21THENZ=10:SX=.:IFV>24ANDX=.THENZ=15
8316 RETURN
8360 FORJ=1TO4:IFR(J)THENIF(FNX(J)AND(V(4+FNZ(U))ORV(4+U)))=.THEND=D+1
8365 NEXT:IFD=.ANDSX=5THENIFV(U)>1THENSX=.
8366 RETURN
8480 O=.:GOSUB121:IFOTHENIFPEEK(B+O)>2THENZ=25+O
8482 IFO=.THENIFV>9THENZ=30
8483 GOTO8
8500 S=.:X=PEEK(B+WS):IFXANDX<4THENS=S+1
8501 FORJ=1TO4:D=FNB(J):IFJ<>WSTHENIFD<2THENS=S+1:IFD=.THENS=S+2
8502 NEXT:IFFNB(WS)<4THENS=S-1
8503 IFPEEK(B+9)=.ANDFNB(WS)<4THENS=S-1
8504 RETURN
9000 GOSUB2:SYS51013:GOSUB2310:HP=1:DE=.+(PLAND1):GOSUB290:IFB%THEN9005
9001 IFGC=.OR(GC=2ANDDE=.)THENU=PL:GOSUB132:GOSUB980:GOTO9005
9002 IFGC=2THENU=4:GOSUB132:GOSUB980
9005 U=LE:GOSUB132:GOSUB950:GOSUB95:IF(GCANDLE=4)OR(GC=4ANDLE=1)ORB%=2THEN9008
9006 GOSUB1800:GOSUB83:GOTO9010
9008 GOSUB140:IFFX=99THEN9066
9010 GOSUB956:GOSUB193:GOSUB841:IFB%OR(GC=2ANDLE=4)THENGOSUB980
9020 HP=2:U=DB:GOSUB132:GOSUB95:IFB%=.THENGOSUB39
9024 IFGC=2ANDDE=1THENGOSUB141:GOTO9027
9025 GOSUB140:IFFX=99THEN9066
9027 GOSUB956:GOSUB190:GOSUB980:HP=3:U=PB:GOSUB132:GOSUB95:GOSUB955
9030 IFB%<3THENIF(GCANDPB=4)OR(GC=4ANDPB=1)ORB%=2THENGOSUB140:ON1-(FX=99)GOTO9036,9066
9032 GOSUB700:GOSUB83
9036 GOSUB956:GOSUB190:IFB%OR(GC=2ANDPB=4)THENGOSUB980
9043 HP=4:U=PL:GOSUB132:GOSUB95:IFGC=2THENIFDE=1THENGOSUB141:GOTO9046
9044 GOSUB140:IFFX=99THEN9066
9046 GOSUB956:GOSUB190:IFB%ORGC=.OR(GC=2ANDDE=.)THENGOSUB980
9050 U=WT:GOSUB99:POKEC+5+Q,PEEK(C+5+Q)+1:SL=.
9066 POKE49665,207+PEEK(C):SYS51111:GOSUB302:GOSUB914:IFA%THENGOSUB2107
9073 GOSUB510:IFPEEK(C)>13THENGOSUB393:GOTO164
9100 SYS52867:HP=1:U=WT:WT=.:GOSUB950:GOSUB955
9102 GOSUB132:GOSUB95:IFB%<3THENGOSUB133:IFXOR(B%=2ANDU=2)THEN9120
9104 GOSUB137:ONX+1GOSUB700,2000
9106 GOSUB83:GOSUB9130:IFB%ORU=DBTHENGOSUB980
9110 GOSUB956:U=FNY(U):HP=HP+1:IFHP>4THEN9050
9115 GOTO9102
9120 GOSUB140:IFFX=99THEN9066
9125 GOSUB9140:IFXTHENGOSUB980
9127 GOSUB9130:GOTO9110
9130 ON1-(HP=1)GOSUB190,193:RETURN
9140 X=.:IFB%ORU=DBOR(GC=.ANDU=PL)OR(GC=2ANDDE=1ANDU=4)THENX=1
9141 IFGC=2ANDDE=.ANDU=PLTHENX=1
9142 RETURN
9200 U=1:OP=.:SYS51705
9201 SYS51733:POKE900,U:GOSUB284:GOSUB31:L=1:K=5:SL=1:GOSUB9410:IFL<14THEN9201
9220 O=5:GOSUB39:PRINT"Y[146]ES/NO  ";:H=U:GOSUB81:U=H:IFA$="N"THEN9201
9221 U=U+1:T=51744:POKET,.:SYST-11:POKET,5:IFU<4THEN9201
9230 SYS51716:PRINT"[147]":GOSUB148:GOSUB180:GOTO1005
9300 PRINT"[147]"TAB(6);:GOSUB906:PRINTTAB(126)"DEAL NUMBER";:INPUTA$:CI=VAL(A$):IFCI<=.THEN9300
9302 Y=RND(-CI):X=1:GOTO1000
9400 SL=.:K=5:GOSUB285:C%=.:GOSUB9410:IFC%=.THEN930
9401 POKE898,C%:PRINT" WITH  ";:K=5:C%=.:GOSUB9410:IFC%=.THEN930
9402 POKE899,C%:PRINT:SYS52509:GOTO175
9410 K=K-1:IFK<1THENK=4:IFSLTHENRETURN
9412 M=K:GOSUB56:PRINTTAB(4)Z$(K)"[144] ";
9414 GOSUB250:IFA$=CHR$(133)THENPRINT"[157]M[146]ENU":ON2+(SL=.)GOTO9432,908
9416 IFA$="*"THENPRINT"[157][157]";:GOTO9410
9418 D=.:GOSUB107:IFD=.THEN9414
9420 C%=13*(K-1)+D:Y=D:GOSUB84:IFSL=.THENRETURN
9425 IFPEEK(900+C%)<>5THENPRINT"[129] ERROR[146]";:GOSUB5:PRINT"[157][157][157][157][157][157][157][157][157]         [145]":GOSUB52:GOTO9412
9430 PRINT:POKE900+C%,U:Y=((U-1)*13)+L-1:POKE715+Y,C%:POKEY+49500,C%:L=L+1:IFL<14THEN9412
9432 RETURN
9630 A=54272:I=679:GOSUB9700:PRINT"[147]";CHR$(8):GOSUB20:DB=.:GOSUB52
9635 DEFFNC(J)=PEEK(952+J):DEFFNY(T)=T+1-INT(T/4)*4:DEFFNQ(T)=T-(INT(T/5)*5)
9639 DEFFNZ(T)=T+2-INT(T/3)*4:DEFFNB(X)=PEEK(B+X+4):POKE896,255:SYS51810
9643 SYS52955:DEFFNX(J)=2^(J-1):DEFFNV(J)=PEEK(V+J+4):OP=4:GOSUB52:SYS52826:T=PEEK(898)
9645 PRINT"[147]":GC=.-2*(T>1)-2*(T=4):IFT=3ORT=5THENCI=1:ON2+(T=5)GOTO9300,9200
9651 GOSUB50:X=.:GOTO1000
9700 DIMV(8),R(4),Z$(7),C%(6):C=49320:POKEC,.
9713 FORD=.TO7:READZ$(D):NEXT:DATA"NT","[216]","[218]","[211]","[193]","PASS","DBLE","REDB":RETURN