solo H(("d"+7)16"suits""a"  1   W2,0;"1";4,0;"2";6,0;"3";8,0;"YOU" z(524,1) c(4) w(13 ) t=(*4)+1 x(524,1)  n=0  j=1 tr=(*4)+1 a(13 ,4)  k(1,1):l(1) l(1)=535  qq=0  ss=0 (a$="23456789JQKA" - b$="" .tr<3491 /$0,23;"TRUMPS ";b$(tr) 0 502 152;1;0,23;"TRUMPS";b$(tr) 2w(1)=1:w(2)=2:w(3)=3:w(4)=4:w(5)=1:w(6)=2:w(7)=3 6K5,17;"No2";11 ,10 ;"No1";11 ,24;"No3" 740,0;"PLAYER";1,4;"SCORE" 191,88X:2000 ? 135,40(:2000 @923,32 :216,0:0,-32 Aj=2321516 Bj,32 :0,-32 Dj Zq=14 dj=113 ni=(*524)+1 xz(i,1)=i110n z(i,1)=i x(i,1)=i j j=1 f=0 g=1524 #x(g,1)>0f=f+1 +x(g,1)>0a(f,q)=x(g,1) x(g,1)=0 g $14,1;"PRESS ENTER AT" "15,1;"END OF TRICK" ,1;2;1;"Dealing cards" q i14,1;" ";15,1;" ";16,1;" " i=4 #t=1t=4k=5250 t=2k=5300 t=3k=5350 s=5 y=0:d=1 'r=1:p=i:c=0:5000 m=113 s=14 p=w(t) p=i5900  p=i516 s13106 j=(*13 )+1 a(j,p)>0290"  275 " n=a(j,p) '#d=((n-1)/13 )+1 (y=d * c=n-1 +x=p , 5000 6s=4380| @j=13 1-1 Jc=a(j,p)-1 T$(c/13 )+1d360h Yd=trc+535>n5000 ^c+1>n5000 hj r 430 |j=113 c=a(j,p)-1 $(c/13 )+1d420 d=trc+535>n5000 c+1>n5000 j j=113  c=a(j,p) c=0470 #b=((c-1)/13 )+1 b=y480 ss>0470 b=trc+524>nss=1 ss>0qq=j ss>0470 +c-((b-1)*13 )nd=yn=c c=c-((d-1)*13 ) /d=trc+((d-1)*13 )+524>nx=p Od=trc+((d-1)*13 )+524>nn=c+((d-1)*13 )+524 5s=1d=trn=c+((d-1)*13 )+524 s=1d=trx=p pi5200P %18,1+(g*2);a$(c) d<35115 %19,1+(g*2);b$(d)  5118 72;1;19,1+(g*2);b$(d) !21,1+(g*2);g g  r=0  240 Pk 8,10 ;a$(c) k=5300 d<35260 9 ,10 ;b$(d)  510 +2;1;9 ,10 ;b$(d)  510 2,17;a$(c) k=5350 d<35340 3,17;b$(d)  510 +2;1;3,17;b$(d)  510 18,24;a$(c);9 ,24;b$(d) k=5250 d<35390 9 ,24;b$(d)  510 +2;1;9 ,24;b$(d)  510  ?0.5,15:1;"YOUR CARD No 1-13 ";v$:v$="" Vv=(v$(1)-480)*(10 Ʊv$>1)+v$(1+(v$>1))-480 q"v>13 v<15900  ra(v,i)<15900  s(h=((a(v,i)-1)/13 )+1 t15,6;" " u!u=a(v,i)-((h-1)*13 ) wh<36010z x314,17;a$(u);15,17;b$(h) y 6012| zE14,17;a$(u);2;1;15,17;b$(h) | c=a(v,i) }s16020 s=1n=c s=1d=h s=1y=d s=1x=p s=16125 h=yc>nx=p h=yc>nn=c h=y6080 b=113 )tt=((a(b,i)-1)/13 )+1 +tt=y1;15,6;"REVOKE" tt=y5900  b h=tr6125 a(v,i)=0 h=trc+524>nx=p d=trs=1n=c+524 !h=trc+524>nn=c+524 #18,1+(v*2);" " #19,1+(v*2);" " 8 tn dZi/f4kydrpcx vhuobV7 4 "$%&/3D  4"$%&/3   5A 23456789JQKABesuits XĪ>BB<DHpHDB@@@@@~BfZBBBBbRJFB 191,88X:2000 ? 135,40(:2000 @923,32 :216,0:0,-32 Aj=2321516 Bj,32 :0,-32 Dj Zq=14 dj=113 ni=(*524)+1 xz(i,1)=i110n z(i,1)=i x(i,1)=i j j=1 f=0 g=1524 #x(g,1)>0f=f+1 +x(g,1)>0a(f,q)=x(g,1) x(g,1)=0 g $14,1;"PRESS ENTER AT" "15,1;"END OF TRICK" ,1;2;1;"Dealing cards" q i14,1;" ";15,1;" ";16,1;" " i=4 #t=1t=4k=5250 t=2k=5300 t=3k=5350 s=5 y=0:d=1 'r=1:p=i:c=0:5000 m=113 s=14 p=w(t) p=i5900  p=i516 s13106 j=(*13 )+1 a(j,p)>0290"  275 " n=a(j,p) '#d=((n-1)/13 )+1 (y=d * c=n-1 +x=p , 5000 6s=4380| @j=13 1-1 Jc=a(j,p)-1 T$(c/13 )+1d360h Yd=trc+535>n5000 ^c+1>n5000 hj r 430 |j=113 c=a(j,p)-1 $(c/13 )+1d420 d=trc+535>n5000 c+1>n5000 j j=113  c=a(j,p) c=0470 #b=((c-1)/13 )+1 b=y480 ss>0470 b=trc+524>nss=1 ss>0qq=j ss>0470 +c-((b-1)*13 )nd=yn=c c=c-((d-1)*13 ) /d=trc+((d-1)*13 )+524>nx=p Od=trc+((d-1)*13 )+524>nn=c+((d-1)*13 )+524 5s=1d=trn=c+((d-1)*13 )+524 s=1d=trx=p pi5200P %18,1+(g*2);a$(c) d<35115 %19,1+(g*2);b$(d)  5118 72;1;19,1+(g*2);b$(d) !21,1+(g*2);g g  r=0  240 Pk 8,10 ;a$(c) k=5300 d<35260 9 ,10 ;b$(d)  510 +2;1;9 ,10 ;b$(d)  510 2,17;a$(c) k=5350 d<35340 3,17;b$(d)  510 +2;1;3,17;b$(d)  510 18,24;a$(c);9 ,24;b$(d) k=5250 d<35390 9 ,24;b$(d)  510 +2;1;9 ,24;b$(d)  510  ?0.5,15:1;"YOUR CARD No 1-13 ";v$:v$="" Vv=(v$(1)-480)*(10 Ʊv$>1)+v$(1+(v$>1))-480 q"v>13 v<15900  ra(v,i)<15900  s(h=((a(v,i)-1)/13 )+1 t15,6;" " u!u=a(v,i)-((h-1)*13 ) wh<36010z x314,17;a$(u);15,17;b$(h) y 6012| zE14,17;a$(u);2;1;15,17;b$(h) | c=a(v,i) }s16020 s=1n=c s=1d=h s=1y=d s=1x=p s=16125 h=yc>nx=p h=yc>nn=c h=y6080 b=113 )tt=((a(b,i)-1)/13 )+1 +tt=y1;15,6;"REVOKE" tt=y5900  b h=tr6125 a(v,i)=0 h=trc+524>nx=p d=trs=1n=c+524 !h=trc+524>nn=c+524 #18,1+(v*2);" " #19,1+(v*2);" " 8 tn dZi/f4kydrpcx vhuobV7 4 "$%&/3D  4"$%&/3   5A 23456789JQKABesuits XĪ>BB<DHpHDB@@@@@~BfZBBBBbRJFB