WHISTLOAD v #0:0::"23739","o" ("WHIST$":47912(:Z=50877  "WHIST1" ( "WHISTUDG" 2 "WHIST" +WHIST$ ( x ATEQWUqWTUqTUUP ~_AE? ?U?~?W? aO??BƱk ? ??~?? ???B`EQTUEQU`EQTU _O? ??EQTUT 3`_???BkƱƱk ?? ???Ʊ ?? ???BUQTUGUEQTU O?? ~??EQUUT _W ??"? kƱk ?? ~Ʊ* ? ???"TEP5TUAUTUATUUP __AE? O?_? ~O?_ O5 ?"ư*k ? ?? ~??? * ?? ?  ???`??@ @8 ?   <  l< << ?8 8 p 3  ?  ? {8? گ{? گz"> 0brP"" n@ {> گ{ XU%peU ꄠ {> د; hU%p##~ D { ; hW%p!Q< $ y{  Xe"P"" @ ld`{"? 0  ```wFFFFFF FF88FF::8F8FF8::88F88::88 ::8 8 :8 :88 :88 :8 ::  :  :`x!@ *v\p#@w#z[ [v\RDMbk(>8x( #|[ *v\~w#p#w#z[ *v\N#@~( #z[ DM#F#~#$WHIST1 &&KKKKKKKKKKKKKKKK++++++++++++++++KKKKKKKKKKKKKKKK++++++++++++++++KKKKKKKKKKKKKKKKKKKKիիիիիիիիիիիիիիիիKKKKKKKKKKKKKKKKիիիիիիիիիիիիիիիիKKKKыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыիիիիիիիիիիիիիիիի իիիիիիիիիիիիիիիի իիիի իիիիիիիիիիիիիիիի իիիիիիիիիիիիիիիիHAHAU$="9":D$="8":F$="0" (23658j\,8 Z 8700! dTL=144 n 9000(# +64341U,10 :64340T,1 210 SELECT FIRST TILE 0 64000 X=64341U:Y=64340T .X=0Y>19Y<248000@ -X=0Y<20Y>23210 '(X,Y)=78900":210 8800`" Z=51-1 &B(FT,FT1,Z)0LE=Z:280 Z %FT1=1FT1=12 330J ")B(FT,FT1-1,LE)=0330J ,)B(FT,FT1+1,LE)=0330J 6 8950" ; 0 @ 210 JMARK FIRST TILE OQA=(FT*3)-2:A1=(FT1*2)+2:A2=LE:ST=FT:ST1=FT1:ST2=LE TSZ=AA+2:Z,A1;1;1;A2+1+(5*(A2=1));" ":Z Y.1}L,10 :0 ^SELECT SECOND TILE c64000 h4X=64341U:Y=64340T:.1}L,10 : m"X=08900":480 w'(X,Y)=78900":480 | 8800`" Z=51-1 &B(FT,FT1,Z)0LE=Z:420 Z %FT1=1FT1=12 500 )B(FT,FT1-1,LE)=0500 )ыыыыыыыыыыыыыыыыыыыыыыыыիիիիKKKKիիիիKKKKիիիիիիիիիիիիիիիի++++KKKK++++KKKK++++++++++++++++KKKKKKKKKKKKKKKK++++++++++++++++KKKKKKKKKKKKKKKK++++++++++++++++`KKKKKKKKKKKKKKKKիիիիիիիիիիիիիիիիKKKKKKKKKKKKKKKKիիիիիիիիիիիիիիիի`ыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыы`իիիիիիիիիիիիիիիի իիիիիիիիիիիիիիիի `իիիիիիիիիիիիիիիի իիիիիիիիիիիիիիիի`ыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыы`KKKKKKKKKKKKKKKKիիիիիիիիիիիիիիիիKKKKKKKKKKKKKKKK`KKKKKKKKKKKKKKKK++++++++++++++++KKKKKKKKKKKKKKKK`9999999999`x!@ *v\p#@w#z[ [v\RDMbk(>8x( #|[ *v\~w#p#w#z[ *v\N#@~( #z[ DM#F#~#!"eeeeee~ƐƐƐƐƐ}q"ccccccƐƐƐƐƐ}qggggggƐƐƐƐƐ<Eqgggggg̐̐̐̐̐~Eq"̐̐̐̐̐gggggg9q"ƐƐƐƐƐggggggq>ƐƐƐƐƐ<ccccccEq>ƐƐƐƐƐ~eeeeeeZE8 ?>?!?0 33 333033?>053 30 33 330Z  33 03?>3#333 33005 ; 30 3;Z  ?> 7?30303; 3305 7 30 37Z 3 36 33303037 >3053 33 33 333Z   33 33?30 333 63035 3  3Z I? 3 3?           i3?3?3z      ))))))~ c c c c c |      11111iiiiii< c c c c c |      11111 c c c c c D      0brP""r11111 3 3 3 3 3 D XU%peUr 3 3 3 3 3 111118hU%p##r< c c c c c 11111hW%p!Qr~ c c c c c iiiiiiD11111Xe"P""r c c c c c ))))))D0g! 9888 9888 9888 9888 98887FFEEDDD9::: 9::: 9::: 9::: 9::: 9x!@ *v\p#@w#z[ [v\RDMbk(>8x( #|[ *v\~w#p#w#z[ *v\N#@~( #z[ DM#F#~#wwlflfwwq  q  @  '@gqwp f<|  ?  ???>|   6 ???=    6 ???;   D???7   D???/   D????   D???   D???  - 2 2 2                )  ))88)) ))88))i))88))ii))88))i)i i ii-x!@ *v\p#@w#z[ [v\RDMbk(>8x( #|[ *v\~w#p#w#z[ *v\N#@~( #z[ DM#F#~#lll<<<~<>X<|0f8l8vv0 000 0 0f<f<0 0`0 ~~`0 0`fff~fff~~ xflxlf```bf8ll8ff|``8lvff|lfff>|`lvff8<ff<`flxl8<lfffffff<ll8lfff>|~ 0~p<~~<$~~~<8||88T|T8iWHISTUDG X1?WHIST 55@5 -236066\,96`:236077\,233 "J";1 4U$="O":CH=0:D$="K":L$="Z":R$="X":F$="P"  200 ( 2600( ZCA=7:CL=CA*2 _4R=(*2):W$=("M"R=0)+("P"R=1) d 9300T$ n 9000(# 9200# CT=0:PT=0 `CA=7T=(*4):T$=("}"T=0)+("|"T=1)+("~"T=2)+(""T=3) .CA<7CL=CA*2W$="M"9500% .CA<7CL=CA*2W$="P"9400$ 3I=2*(T$="}"T$="|")+0*(T$="~"T$="") "9 ,30;7;I;T$ W$="P"TURN=1 W$="M"TURN=2 TURN*1000 2600( #""ƿ310205 80:0:7:54994:Z=56996 $="1".3,10 :90Z %="2".3,10 :300, %="3".3,10 :500 *BE,BE1:BE=9992600( :BE,BE1 #BE=100d15:215 BE,BE1 " 215 1&Z=712 :Z,0;,,:Z 68,8;6;"1..INTERFACE II";10 ,8;4;"2..DEFINE KEYS";12 ,8;5;"3..RETURN TO MENU" ;M="1"U$="9":D$="8":L$="6":R$="7":F$="0":.3,10 :200 @%="3".3,10 :200 E%="2".3,10 :400  315; ""405 &Z=712 :Z,0;,,:Z +10 ,18;6;"DEFINE KEYS" 8,8;"UP.." ,U$=:U$=""U$=" "U$=13 420 )8,12 ;U$:.3,15 9 ,6;"DOWN.." 2D$=:D$=""D$=" "D$=13 D$=U$435 )9 ,12 ;D$:.3,15 10 ,6;"LEFT.." 8L$=:L$=""L$=" "L$=13 L$=U$L$=D$450 *10 ,12 ;L$:.3,15 11 ,5;"RIGHT.." >R$=:R$=""R$=" "R$=13 R$=U$R$=D$R$=L$465 *11 ,12 ;R$:.3,15 12 ,6;"FIRE.." DF$=:F$=""F$=" "F$=13 F$=U$F$=D$F$=L$F$=R$480 *12 ,12 ;F$:.3,15 '12 ,20;5;"OK Y/N?" ="Y"Ŧ="y"200 >="N"Ŧ="n"Z=812 :Z,0;,,:Z:400  492 0:0:7: "YOU AND YOUR OPPONENT ARE DEALT A HAND OF CARDS. ONE PLAYER PUTSDOWN A CARD ON THE TABLE AND THEOTHER PLAYER HAS TO TRY AND BEATIT."  s"THE SECOND PLAYER MUST ALWAYS FOLLOW SUIT IF HE CAN. ONLY IF THAT ISN'T POSSIBLY CAN ANOTHER SUIT BE PLAYED." "THE SUIT THAT IS TRUMPS WILL ALWAY WIN OVER ANY OTHER SUIT. AS ABOVE, TRUMPS CAN ONLY BE PLAYED IF THE PLAYER HAS NO CARDOF THE SUIT PLAYED." "THE GAME STARTS WITH EACH PLAYERHAVING 7 CARDS. THE NEXT HAND 6 CARDS AND SO ON. THE WINNER OF A HAND IS ALLOWED TO SELECT TRUMPS FOR THE NEXT HAND. THE WINNER IS THE PLAYER WHO WINS THE LAST HAND." 66;2;" PRESS ANY KEY " !=""545! & 200 N CP=Y e3,CP;4;0;"#";18,3;7;0;1;"PLEASE SELECT CARD" h=L$ſ31=2CP>Y3,CP;4;" ";3,CP-1;0;"#":CP=CP-1 u=R$ſ31=1CP<(Y+CA)-13,CP;4;" ";3,CP+1;0;"#":CP=CP+1 S=F$ſ31=16P((CP-Y)+1)>0.2~L,20:1035  L="1"P((CP-Y)+1)>0.2~L,20:CH=1:1035   1015  3,10 ;4;" ";18,1;7;" ":C=P((CP-Y)+1):C$=P$((CP-Y)+1) &CL/2=(CL/2)1100L $CH=1CH=0:1100L  2500 Q3I=2*(C$=""C$="")+0*(C$=""C$="") S0E=0:CL/2ɺ(CL/2)E=1 V}C=148,15+E;7;I;144;"";9 ,15+E;C$;"";10 ,15+E;"":1115[ Xi8,15+E;7;I;(C+143);"";9 ,15+E;C$;"";10 ,15+E;"" [2P((CP-Y)+1)=0:P$((CP-Y)+1)="" b;Z=46:Z,10 ;4;" ":Z eX=Y:Z=1CA j'P(Z)=0X=X+1:1150~ o?I=2*(P$(Z)=""P$(Z)="")+0*(P$(Z)=""P$(Z)="") qgP(Z)=144,X;7;I;144;"";5,X;P$(Z);"";6,X;"":1145y tU4,X;7;I;((P(Z)+143));"";5,X;P$(Z);"";6,X;"" y X=X+1 ~Z  V=C:V$=C$ CL=CL-1 2CL/2=(CL/2)FP=2:4000 :CL/2=(CL/2)HC=(*CA)+1:3000 CHE=0:C(CA) Z=1CA )M$(Z)=V$CHE=CHE+1:C(Z)=1 Z 2CHE=02200+(100d*(>.5))  HC=0 Z=1CA C(Z)=1M(Z)>HCHC=Z Z  TC=M(HC) TCVM(Z)0M$(Z)((T$)+33!)C(Z)=1:CHE=CHE+1 Z CHE=02300 HC=0:LT=15 Z=1CA &C(Z)=1M(Z)QW$="P":4100 VPT18,3;7;0;1;"COMPUTER WINS HAND":W$="M" PCTPT8,8;"THE COMPUTER HAS";9 ,11 ;"BEATEN YOU" ,12 ,9 ;6;"PRESS ANY KEY" ($=""ƿ31=05160( < 200 F #-4,11 ;4;0;"----------";5,13 ;"MIXING";6,14;"DECK";7,11 ;"----------";9 ,11 ;"----------" #.7W$="P"10 ,13 ;4;0;"PLAYER" #/9W$="M"10 ,12 ;4;0;"COMPUTER" #0S11 ,11 ;4;0;"GOES FIRST";12 ,11 ;"----------" #1423670v\,23672x\:23671w\,23673y\ #2oC$="1C2C3C4C5C6C7C8C9C:C;C1C$=C$(R-1)+C$(R+2) #^R=1C$=C$(R+2) #dNC=NC-1 #nZ #sC$=T$:T$="" #xNC=524:G #b$(524):A$(524) # CO=1:Z=1524 #yB$(Z)=C$(CO):A$(Z)=(""C$(CO+1)="D")+(""C$(CO+1)="H")+(""C$(CO+1)="S")+(""C$(CO+1)="C") #CO=CO+2 #Z # #OZ=414:Z,10 ;4;" ":Z:.2~L,25 #P$(CA):P(CA):M$(CA):M(CA) #CO=1:Z=1CA #SM(Z)=(B$(CO)-480):M$(Z)=A$(CO):CO=CO+1:m(z)=1M(Z)=14 $SP(Z)=(B$(CO)-480):P$(Z)=A$(CO):CO=CO+1:P(Z)=1P(Z)=14 $ Z $$Y=(32 -(CA+1))/2 $Z=1CA $?I=2*(P$(Z)=""P$(Z)="")+0*(P$(Z)=""P$(Z)="") $iP(Z)=144,Y;7;I;(144);"";5,Y;P$(Z);"";6,Y;"":9255'$ $"U4,Y;7;I;((P(Z)+143));"";5,Y;P$(Z);"";6,Y;"" $'Y=Y+1:Z $,Y=Y-CA $1Z=YY+CA-1 $6s12 ,Z;7;1;91[;92\;13 ,Z;93];94^;14,Z;95_;96` $;Z $@CO=Y:Z=1CA $FCO=CO+1:Z $J0A$=A$((CA*2)+1)+A$((CA*2)) $L0B$=B$((CA*2)+1)+B$((CA*2)) $O $^0:0:7 $h57030:Z=59966> $rX=8:Y=135 $wZ=1CA $|MX,Y:15,0:0,-7:-15,0:0,7 $VX+32 ,Y:15,0:0,-7:-15,0:0,7 $ Y=Y-8 $Z $ 9600% $ $K12 ,24;0;6;"SELECT";13 ,24;"TRUMPS" $̋15,26;7;2;"}";16,26;"|";17,26;0;"~";18,26;"":.2~L,20 $ T=15 $#T,27;7;0;"<" $Y=U$T>15T,27;7;0;" ";T-1,27;"<":T=T-1 $Y=D$T<18T,27;7;0;" ";T+1,27;"<":T=T+1 $%=F$.2~L,10 :9455$ $ 9435$ $HT$=("}"T=15)+("|"T=16)+("~"T=17)+(""T=18) $u12 ,24;" ";13 ,24;" ":Z=1518:Z,26;7;0;" ":Z $ % %!0CC=0:SC=0:DC=0:HC=0 %&Z=1CA %+M$(Z)=""CC=CC+1 %0M$(Z)=""DC=DC+1 %5M$(Z)=""HC=HC+1 %:M$(Z)=""SC=SC+1 %?Z %DCC>DCCC>HCCC>SCT$="": %IDC>CCDC>HCDC>SCT$="|": %NHC>CCHC>DCHC>SCT$="}": %SSC>CCSC>DCSC>HCT$="~": %XTT=(*4):T$=("}"T=0)+("|"T=1)+("~"T=2)+(""T=3) %v %2D1=((7-CA)*8)+81Q:Z=1CA %9650%+Z:D1=D1+8 %Z % % 32 ,D1:0,5: %f34",D1:-3,0:0,3:3,0:0,3:-3,0: %w31,D1:3,0:0,3:-3,0:3,0:0,3:-3,0: %34",D1+1:-1,0:0,2:0,-3:0,1:-2,0:0,5: %e31,D1:3,0:0,3:-3,0:0,3:3,0: %f31,D1:3,0:0,3:-3,0:0,3:0,-6: %234",D1:0,6:-3,0: UODKLZRXFPz@L̢e