MP Hp6X'D:\"6>D12345> d 3950n iGI$="euchred!":EUCHRE=1ZZ=2:OPTION>0ZZ=4 nQEUCHRE=1S(TR+2)=S(TR+2)+ZZ:S(TR+8)=ZZ:I(TR)=1 oEUCHRE=2ZZ>0S(TR+4)=S(TR+4)+ZZ:S(TR+8)=ZZ:I(TR)=1:TRCAS(CA+4)=S(CA+4)+ZZ:S(CA+8)=ZZ:I(CA)=1 peAT=(11 ,16):6;0;1;11 ,(12 -((I$-6)/2));I$ sZ=1150:Z x+I$(1)="M"I$(1)="S"BEEP1:PRINT UPDATE }!I$(1)="E"BEEP2:PRINT UPDATE BEEP3 L$"C"EUCHRE=2CA>0OPTION17;1,5;(CA+96`);" had the highest ";Q$(3̱Q$-3) tL$"C"EUCHRE=2CA=0OPTION17;1,5;"no-one had a ";Q$(3̱Q$-3) zNW=0:EUCHRE=2G=58:S(G)>9 P=58:G=PS(G)>S(P)P:NW=1:3974 EUCHRE=2G G=0:NW=1S(3)>9 S(4)>9 11 ,9 ;" ";2;7;1;"game won";1;0;" ":3978:Z=1200:Z:G=1: PNP=0Z<201L$=""1;7;11 ,10 ;" ,";7;0;",,, ";AT-568;" ";1;7;"< " PNP0Z<201L$=""1;7;11 ,10 ;" ,";7;0;",, ";ٰC$(2);" ";1;7;"< " bEUCHRE=1S(9 )>02;7;1;Y+3,30;"+";S(9 ) dEUCHRE=1S(10 )>02;7;1;Y+5,30;"+";S(10 ) EUCHRE=1Z=1200:Z:1;7;Y+3,28;S(3);" ";Y+5,28;S(4);" ":.05|L,5:.05|L,20 oEUCHRE=2Z=9 12 :S(Z)>02;7;1;Y+(Z-7),30;"+";S(Z) EUCHRE=2Z EUCHRE=2Z=1200:Z:7;Y+2,28;S(5);" ";Y+3,28;S(6);" ";Y+4,28;S(7);" ";Y+5,28;S(8);" ":.05|L,5:.05|L,20  ="n"1340< .="t"EUCHRE=14080:2080  u="t"EUCHRE=24080:9240$:CALL=1:K$=Z$:4105 :Q$=Z$:Z$=K$:9250"$:2080  /="a"4080:OPTION=1:2080   4000 ROUND=1M$=T$(3) ROUND=14140, OROUND=26;0;21,3;"name any suit except ";K$  cCALL=16;0;21,3;"call any suit except ";Z$(3̱Z$-2) uM$=:M$"h"M$"s"M$"d"M$"c"M$=T$(6)ROUND=2CALL=0M$=Z$(3)CALL=14120 ,q1020:N=14:Z$:M$=Z$(3)1;21,3;" ": 6M$=Z$(2) @N E 4120 h28750.":X=X1+1:DR=1:4300 rW="s"(X+1)(X1+S)DR=14280:X=X+1:4300:4210r |S="s"(X-1)>X1DR=24280:X=X-1:4300:4220| /="p"(X-X1)QQ=P(Z,NO):CA=Z D>A=1A=2PNP=D$(1)WIN=A:L=A:4440X NUP$(Z,NO,6)R$(L)N=1(S):P$(Z,N,6)=R$(L)L$=L$+P$(Z,N,6) SP$(Z,NO,6)R$(L)N XNP(Z,NO)>R(WIN)P$(Z,NO,6)=R$(WIN)P$(Z,NO,6)=T$(3)WIN=A Z-WIN=AR(A)=P(Z,NO):R$(A)=P$(Z,NO,6) N=ZZ:3110& ;4;0;0,10 ;"next deal coming up" w(10 ,12 )8Z=13 8-1:1;Z,8;" ":.003xD,Z-9 :Z DE=8:Z=D:8750."  8020T 61607  *54001:DEMO=154043 236077\,251 *6="2"DEMO=0AD=2D=49130# /o="3"4800:6;0;14,12 ;"shuffle";15,11 ;"over-ride"::9100# 4A="2"DEMO=0AD2D4CS=1:9000(# >="1"9000(# H[="4"4780:6;0;1;16,8;"repeat deal":4700\ Ob="2"DEMO=1DEMO=0:63373,0:54075;:VP=54193:4650* R\="5"4790:6;0;1;18,8;"abandon game":4760 Z 4650* \6CARD=CARD-21:CARD<0CARD=32 +CARD ^1REP=1D=D-1:4800:100d a@4;0;1;18,8;"choose dealer" fI""D=:D>96`D<101eD=D-97a:4800:100d k 4710f $Z=1100d:Z:5150 GS>8GS=8:4;0;1;8,0;"the deck could do with a shuffle":Z=1502:.009ztj,20:Z:4620  I1;1;8,0;" ": I54031:1;1,5;" ": f:52760,100d+(*100d):52769!,((52760)/3):52756:1 &AD=0:SH=0:60259c  /53089a,0:53088`,23673y\ ?53090b,0:63372,1:63373,0 62969  90Z \EUCHRE=2N=1S:P$(Z,N,3)=Q$(Q$-1)P(Z,N)=14C(Z)=1 EUCHRE=2N KS=6U$(Z,6)=P$(Z,6,6):U(Z,6)=P(Z,6) ~60670,Z:60672,Z$(Z$-1):60673,Z$(Z$):60694,1:60674,S+1:60709%,S 60700  +DEMO=0Z=VPREP=04200h -S=6U(Z,ZZ)=P(Z,6)ZZ=2 N=1S:U(Z,ZZ)=P(Z,N)U$(Z,ZZ)=P$(Z,N,6)NO=N:ZZ1I=S+1:8030^:6340 L#S=18020T:6340 `&NO=SC$=P$(Z,S-1):6320 t&NO=S-1C$=P$(Z,S):6320 N=NOS-2:C$=P$(Z,N+1,1)+P$(Z,N+1,3):I=01:7;ٰP$(Z,N+1,2);B+I,BB+(N-1);C$(I+1);" ":I:N  C$=P$(Z,S) )60100,B:60101,BB+S-2 G60103:7;ٰC$(2);B,BB+S-2;C$(1);B+1,BB+S-2;C$(3);B+2,BB+S-1;"";B+3,BB+S;C$(5);B+4,BB+S;C$(4);1;B,BB+S+2;" ";B+1,BB+S+2;" ";B+2,BB+S+2;" ";B+3,BB+S+2;" ";B+4,BB+S+2;" " :S>27;0;B+4,BB+S-2;"/"  C$=P$(Z,NO) MNO557((BB+(I-1))*8)+7,175-((B+2)*8):1;0,-22:1;1,-1 (BB+(I+3))*8,175-((B*8)+1):7;0,-37%:.002xn,-5:.005y# =,0 D jI=40-1:1;B+I,BB-1;" ":.003xD,I:I:ROUND=3Z=PNP h60000`,(88X+(B/8)):60001a,((B-(((60000`)-88X)*8))*32 )+BB !GN=60002b60006f:N,P$(Z,N-60001a,2)+568:N ! v1;B,BB;P$(Z,1,1);P$(Z,2,1);P$(Z,3,1);P$(Z,4,1);P$(Z,5,1);" ";B+1,BB;P$(Z,1,3);P$(Z,2,3);P$(Z,3,3);P$(Z,4,3);P$(Z,5,3);" ";B+2,BB;",,,, ";B+3,BB;",,,, ";P$(Z,5,5);B+4,BB;"`.../ ";P$(Z,5,4) ! 60007g !%\((BB+I+1)*8)-1,175-(B*8)-1:7;0,-37% !'Z(BB+(I+8))*8,175-((B*8)+1):7;0,-37% !*+.002xn,-5:.005y# =,0: ! Z=D$(A) ".NB=(60520h+((Z-1)*2)+1)+DE:BB=B+1:B=B:BB=BB "3 "LAA=A+14:TRɰD$(A)DɰD$(A)8700!:8400 "QA: "XYP$(Z,N,3)=Z$(Z$-1)ZZ=(P(Z,N)+34"):P(Z,N)=11 ZZ=ZZ+5 "[6P$(Z,N,3)=Z$(Z$)P(Z,N)=11 ZZ=491 "\ "DE=16:Z=O$(1,(D$(A)+4)-1):8750.":0;7;B,BB;(96`+O$(1,(D$(A)+4)-1)):8700!:1;7;1;B,BB;(96`+D$(A)): "&7;8,11 ;"result@" "PM=0:DEMO=0A=14:D$(A)VPưD$(A)PNPC$=P$(D$(A),1):8700!:8020T:I=0:8200 :S=3C$=P$(D$(A),2):I=1:8200 "6DEMO=0A:.2~L,0:.5,10 "gL$""P=1̱L$:S=3P$(VP,2,6)=L$(P)P$(VP,1,6)=L$(P)9350$ " L$""P "7A=14:D$(A)PNP8700!:8020T "-A:8,11 ;" ":S=1: #( 4800 #*DEMO=1SH=0 #.'6;9 ,12 ;"shuffle@" #0<Z=14:VP=ZCS=1CS=0:90113# #2DEMO=0VP=Zź(*20)<7EUCHRE=1I(O$(3,Z))=1EUCHRE=2I(Z)=17;10 +Z,11 ;(Z+96`);" says no!":502:90157# #3U7;10 +Z,11 ;(Z+96`);" says yes!":SH=SH+1:502 #4.AD=2D=4SH=2:9020<# #7Z #<^SH>14790:6;0;1;9 ,12 ;"shuffling":5000 #F4800:100d #6;8,0;"shuffle@ yes or no_press y or n";1;14,11 ;" ";6;0;"shuffle";1;" ";6;0;15,11 ;"over-ride" #Z="y"6;0;1;14,11 ;"shuffling":5000:9105# #R="n"8,0;" ":4800:100d # 9100# #b6;0;12 ,9 ;"shuffling";2;" ":5000:4800:100d #REP>09250"$ #/.05|L,10 ::ZZ=(*4)+1 #H1020:P=14:Q$:ZZ=PQ$Z$Q=0:9250"$ $P:9200# $AD=0:7;ٰZ$(1);1;0,21;Z$(2̱Z$-1):61352,Z$(2):61360: $">.05|L,20:61352,Q$(2):61366: $TL4;0;0,10 ;"dealinghands";1;" ": $^L4;0;0,10 ;"endhand";1;" ": $1020:A=14:T$:L$(P)=T$(T$-1)4;0;8,0;"so you had a ";T$(3̱T$-3);" after all!" $A ${L$="C":Z=1502:.009ztj,40(:Z:0;7;8,0;"failure to follow_lose 4 points!" $2DTR=VP:EUCHRE=1VP>2VP=VP-2 $5EUCHRE=1S(VP+2)=S(VP+2)-4 $5EUCHRE=2S(VP+4)=S(VP+4)-4 $ S(VP+8)=-4:VP=DTR ${3980:REP=1:1;8,0;" ":8910":9310^$:4600 $W0;7;Y,1;"tricks";Y,25;"game";Y+1,24;"points" $ֱEUCHRE=11;7;Y+2,2;"ac_";0;Y+4,2;"bd_";0;Y+3,25;"ac_";S(3);Y+5,25;"bd_";S(4): $-1;7;Y+2,2;"a_ ";0;Y+3,2;"b_ ";0;Y+4,2;"c_ ";0;Y+5,2;"d_ ";0;Y+2,25;"a_ ";S(5);Y+3,25;"b_ ";S(6);Y+4,25;"c_ ";S(7);Y+5,25;"d_ ";S(8): %k0:3::EUCHRE=16;0;0,0;" cut for partners and 1st deal! " %IEUCHRE=26;0;0,6;" cut for 1st deal " %;R(4):I=0:B=2:BB=22:8000@ % 9690% %BZ=14:9690%+Z:ZZ=Z:9696%:9690%:Z % 9700% %7;2,13 ;"VWX";2,17;"YZ[";2;7;4,3;"player one";9 ,3;"player two";14,1;"player three";19,10 ;"you": %36;0;4,3;"player one": %36;0;9 ,3;"player two": %66;0;14,1;"player three": %.6;0;19,10 ;"you": %>N=14:NZR(N)=A(ZZ)ZZ=ZZ+1:9696% %~N:C$=A$(ZZ):R(Z)=A(ZZ):BB=27:8202 :P=125:P:P=BB+4:P,26;" ":P:B=B+5 %A7;0;Z*4+(Z-1),14;C$(1): &N:Z &61314 & XZ=14:2;7;1;Z*4+(Z-1),18;R(Z):Z &2VP=R(4)-96`:Z=1100d:Z: &L" "52001!,135354 &M"EUCHRE"1 '  #4-handed euchrecall ace euchre playauto        З8082K0J2926A2K0Q072J0A2Q072Q2J0A20J2Q20J2Q0906A2} 0  .  2 0} 2 ..10222 ,,,0uchremdqal  inxyar z 'aountrtptioR,lwtT K2K0Q072Q2Q20808272J0A2J0A20J2Q0906K0J2926A0702K280926A0708290628e123412343412341234343434c#shuffle deck_ sp l a y mode_ pMsQ 0clubs  I solo march!TK0sKspadesa1Z 2diamonds? =LD2341B4123C926""  e(_ MMM±33±3MMMPWMP+-e3Y Rv>:`O:y\($2`:a<2a 8x2H\>2>gNx2H\@W>G^>2e>2b!l"f:b(R8K>G 1:d 5:b(!x"f>2b>2e>2d#>2b>2d_:d(<2d:b(:c< ^:e(9_P*f#"f~ !l:b(!xo&<))) ~#{2e!P> w$%,>2e>2c:Z(>2N.ONE OF WHICH MAY BE YOUSOME OF THE FEAURES AR. EUCHRE IS A GAME FOR 4 PLAYERS .ONE OF WHICH MAY BE YOUSOME OF THE FEATURES ARE. 4-HANDED OR CALL-ACE RULES P L A Y AND A U T O M O D E S FULL ON-SCREEN INSTRUCTIONS HELP OPTION;REPEAT DEAL OPTION F A S T S H U F F L E PARTNERSHIPS/SOLO PLAY .SOME TERMS USED ARE.'RIGHT BOWER':JACK OF TRUMPSUIT 'LEFT BOWER':JACK OF SAME COLOUR'EUCHRED':TRUMPMAKER LOSES.'MARCH':TRUMPMAKER WINS 5 TRICKS 'POINT':TRUMPMAKER WINS 3 OR 4 'LEADCARD':1st PLAYED IN A TRICK PRESS T OR A TO BE TRUMPMAKER... IF YOU PRESS A, YOU PLAY ALONE PRESS N TO PASS PRESS S TO SELECT CARD PRESS P TO PLAY CARD OR DISCARD TO SHUFFLE THE DECK .WITHOUT PERMISSION.SELECT THE 'OVER-RIDE' OPTION... 'ENTER'= HELP ON/OFF AUTO MODE MAY BE USED TO LEARN..8!ø!Oø!qø!ø!-ø!ø!cø!ø!ø y mode _2 >2b:_:=!G#}2`|2a!͸!͸!c͸>G(>g(>_( >W({2>2b!ø^#V#S6\~#N#@8 H8P_N#n&K6\))) ~#XzH(P(PyHzX(PY(XP{(#~8#(F{ zW#> resume game _1'shuffle deck _2'over-ride _3'repeat deal _4'abandon game _5call-ace euchre0auto mode4-handed euchre0play mode4-handed euchre0auto modecall-ace euchre0play mode           0which player6will you;be9a b c or d @ p l a y mode _2 :_:=!G#}2|2?5'???? '  ??? ???? -?? ? ?(6 ??????? ?? -  ??!* +??* +? ?? (6??? ??  ? ?  - ?????  ??? ?  (6- ?.  ?? -??? ? ? (6 / #"!???/ #"!??/  #"!??/  #"!?6? ? ???  ??? ? ?65?5? ??????????(?? ? ??? ?? ?(? ??? ? (? ?'?-??? ???-??? ??0 ? '-?    ? ? ? ? ?? ?  (6.? ?? ????????? ?? ? ????' ? ? (?? -'? ? ?? ?? ??? - ?  ?? ? ????  ?? ? (? ? ?-???? ???*??+(?? ? ??-??? ? ?? ?*?+-????(???5?5 ? ? ?? ??-??? ?  ???????? ?*????+(? ??  (6 . ?? ?? * ??   ? ?    ? +? ??? ??  (?? ????  ? ? ??? ???? ?(6  .?? ? ??? - -?  -? ? (?? ? ? ?  -? ? ??'??? ?? 3 ? ?? -??   ?? ?? ???? (?65?5 ? ?? ???? ??  ??? ? ?? ? ?(?. ??? ? ??  ??? ? ?-? ?  ? ??? - ? ? ??? ?? ? ? ((((6 . ?   2? ???? ????  .? 0 ?  .? *% &+0 ????.? ? ?? ?*%&+(? ?   ?  .% &,?? 0%&,?? ??? (6?? ?? ?? ?I ?? ? ?? ( ????? -?  ? ?? (65?5 '. ?  ? ? ?? ? ???(((6?   ? ? ?? ?? ?  ?? (??  ?? ?? ? ? ? ? - ??   ????  ? ? ?? ((((6 ?? ??? ? ? ??? ? ?? ?? '  ? ?? ? ? -??? (6((?? ?? ? ??? ?? ????(()????6 '???? ?? ??   ' ? ? ??? 5? 5 .?? ?? ? ? ? ?????? ? ? ? ??2? ???? ? - ?? ? ?? ?? ? ?((((?? ???? ???? ?? ?????? ??  (?6 ? . ?  ?? ?? ???? ? ????? ?? (? ? -?-?-? ????  ( ?6? ? . ? ?????? ?? ??  ? (?? ? ??? (5?!5 4 ??  466,???? ?,???? ?? ? ,????*??? +?,??? ??? 3 ,??? ??  ?66? ? ?? ???? .?    ? ????? ?(?66((? ????* ? + ? '?-???? ?? 0 ??????? ? - ????? ?? ? ? ? (65-Y!8:`g:aoaw ,w ,68-68,68,w,68,68,w XL@: >X2:@<2>@2% >Y2: <2>H2 >Z2>P2:g:o6?,6?,6?,6T:g6$b,6 ,:g:o,,,6$,6{<, *K\+#~ #~ #~ #~ #~ #~ #~ #~ +"V*K\+#~ #~ #~ #~ #~ #~ ++"X2:Z2:<2>2:*G$#:G###:[G:G: "<2 :<2:  >12: <: 8:<2:(!:*++G#:G4>(+&###:( 1 :w~22:* G#:G#:[ G:G:w:&>W_: :=(Zz2{2 :* G#:G#:[ G: G0;~Owy:* G#:G#:[ G: G~Owy:W: _C*K\#~ #~ #~ #~ #+"#~ #~} #~ #~ +"#~ #~ #~ #~ ++" #~ #~} #~ #~ +" #~ #~ #~ #~ ##"a>*++# s=(PZͼ1ͼq:(8(,!X@"!XX"(!B@"!BX"!P"!Z" !P"!Z":( ((!"!"!"!"*#[~#*~*w##*#[~#*#>w#:!P8!@@ 6# +$% #8!Z!@X6 #>G(O(.W(C_(Xg(m>g!hX>~!X>0~>2!X>~!hX>0~>2!(Y> ~!Y>0~>2!Y> ~!(Y>0~>2>2Bw#>>!X w#!@@@P>!X!Z! X!?X~#+ {( <~#+ w#w #0NZMP!>!20!"&>2(>2)!X"*!8",͍>82)! X"*!@",͍>_(W:(<(2(*,} $",[&S&56 >20:0<20!(>18@o>g))) >[,S,~#**:)w#"*:0! <!Pw$$$>w %#:(!Z>:w#! Z w#$DD$ |"<"|"@@" |"""| >@ . @"@N$ ,2"Bll6H0"$(0(F "|4**""DXdBBBB$BB$|"| @$BJ$ |$<(&<@@8xx BBBBF:BBB"JJJJZ$D"bBF:D8~"|8D<x<|(~~@x"< ^B<~ >>!X w#!@F@F@oPo>!Xͅ!Zͅ! X͌!?X͌Ù~#+ {( <~#+ w#w #>02)!"&!gX"*!f@",*&#"&~**[,G#B("*S,͍>G(O(.W(C_(Xg(mg!hX>͆!X>0͆>2!X>͆!hX>0͆>2!(Y> ͆!Y>0͆>2!Y> ͆!(Y>0͆>2>?w#!Z>$@w#5Bw#x ~ ~ۙ~<~8DAAE9D " "^Q^QQ8D D8x<~? |<<~>pr$ %!%) sJJKJJsz<~? ??? ~<1JBCJ2QQQ]$*٪""Ǩz|>? ~<pr$ %%%=%%% rJsbRRQ  R\$$? "!"!"!"!UUUUDDDD ?~~<@@@<@~@@@>>@~@@@@"B@N"B$$<$$B  >H$" F(0($"B B|4JJJBBf&RRJJFb8DDDBB|X$"< @8DBRJD:x$$x0($>>|>>>! P P P 3\MR8R \Wq !Ov>8||8l|88||8888kk>>>6LRRRRL~<@B<~ @|>1! " " !   X  B  !UD !UD 8 B ! ?  $d| | B" |  " " D"$ $" B" | !   (~,DB">">B@,$> !UD !UD @D ~D@>>B@,$>"   ~2DB"@"@B@2<@ " " @D D@@@B@2<@!   "$B" " F""(  !UD !UD "$""$" F""( !   BB||:B& " " <||:B&!    !UD !UD " "" """   pxB4 !UD !UD!UD !UD!UD| B4 !UD   xH?$Bx$*$| ?" ""$ """" $F*$| "   DR$"(B@d@x|B"x$d@"$J@ۥp DBB*B"> !UD !UD!UDB B!UD!UD(| D:*B">!UD   B$B0xxB@$B@BB@BBJ~H <DBB"B"@ " ""~ @""~ D"B"@"   Bx@(B8 " """ "   !@ X8 &<< <!UD | B!!!UD <px <!UD  px <!<x>fBx>f<848x> ?$DRRB$"0B" " $F"""$"0BHD0B"  HD0B!@Bf@B@B@@@BBB@@ $$RD@D@B"$$@$BRDJDD@  "DRxBB8B!UD  | D:!!!UDBB8BpB8B!UD  pB8B!x>B$>B|f|x>!00 0  0 0 0!A! #  @龶\\\\»ƒν½½-\'N0uX@A![!HP! ! K SR P L.WILSON. 1985. ZA=(*60000`):60243S,(A/256):60242R,A-((60243S)*256) 2\53090b,0:53089a,10 :63373,1:52724:527906 ZJZZZ=1:CARD=1:GS=0:Y=2:D=4:S(12 ) [(EUCHRE=63372:DEMO=63373 \236077\,251 ]&VP=4:DEMO=09600% `1:1::6;0;10 ,2;"s h u f f l i n g d e c k":5000:10 ,2;" " b153090b,3:DEMO=152799? dvC(4):PM=0:Q=0:CA=0:CALL=0:L$="":X1=11 :S=6:WIN=0:PNP=0 iREP=0:OPTION=0 nVP=1X1=0 sVP=3X1=22 S(1)=0:S(2)=0:S(9 )=0:S(10 )=0:S(11 )=0:S(12 )=0:EUCHRE=2S(3)=0:S(4)=0 1Z=14:I(Z)=0:.05|L,Z:Z SH=0 #D=D+1:D=5D=1 61351,D (DC=Y:Y=2:D<3Y=15 <2;7;0,1;"dealer ";(D+96`) GS=055001 NDCYZ=DCDC+5:1;Z,1;" ";Z,23;" ":Z .05|L,10 ,9400$:.05|L,11 :9300T$ 0;7;11 ,10 ;"a";8,15;"b";11 ,20;"c";14,15;"d":.05|L,12 0CARD=CARD+1:CARD=33!CARD=1 HD$=O$(1,D+1D+4):B$=O$(2,D+1D+4) @I=0:DE=0:ZZZ=0N=32-1 ZZZ=1N=23 EA=14:8700!:E=1N:C$=A$(CARD):8000@ nP$(D$(A),I+1)=A$(CARD):P(D$(A),I+1)=A(CARD):CARD=CARD+1:CARD=33!CARD=1 ,(I=I+1:E:I=I-N:A:I=I+N:N . GS=1 0"53089a>9 5150 3REP=0ROUND=1 @|REP=0ROUND=1C$=A$(CARD):Z=D:DE=8:8750.":I=0:8000@:20:8200 :20 T&DE=0:T$=A$(CARD):VAL=A(CARD) h.VAL=VAL+34":VAL=45-VAL=502 |REP=0ROUND=1 ,DEMO=0Z=VP:8750.":8400 g5;0;0,21;"round ";1;ROUND:0,26;" ":A=14 i4;0;0,10 ;(D$(A)+96`);"Is option";1;" ":8880":DE=0 $ROUND=DEMO8700!:8400 /D$(A)=VPDEMO=04000:540 1000:COMPUTER CHOOSES A 0ROUND=ROUND+1:ROUND=2VAL=0:T$(6)=Z$(3):K$=Z$(3̱Z$-2):DE=8:Z=D:I=0:8750.":8000@:420 :e1;11 ,10 ;" ";8,15;" ";11 ,20;" ";14,15;" " ?*1;0,10 ;" " DIA=14:8700!:8400 :A:AD=AD+1:4600 6"2diamonds","2hearts","0spades","0clubs"  1020 $R(4):T(4) 8&E=14:T(E)=E:T=0 LeZ$:ROUND=1Z$(Z$-1)=T$(3)ROUND=2Z$(Z$-1)T$(3)1160 `+ROUND=2T$(3)=""1240 tE Z=D$(A):60670,Z:60672,Z$(Z$-1):60673,Z$(Z$):60694,0:60676,E:60709%,5 60700:R=R(E) GROUND=2E:2000:R=R(1):VAL=0:RANK RATINGS T=60675:MTS=0 T>1R>137ROUND=1R+VAL>180MTS=1:D$(A)DROUND=1EUCHRE=1ưB$(A)DEUCHRE=2R<160MTS=0 (BR+VAL>187ROUND=2ŰD$(A)=DŰB$(A)=DOPTION=1 -MTS=12062 <^0;7;0,10 ;(D$(A)+96`);" passes__":Z=1100d:Z: mN=13:Z=N+14:R(N)01020:Z=14:Z$:Z=T(1)T=2: Z    e1;11 ,10 ;" ";8,15;" ";11 ,20;" ";14,15;" " * TR=D$(A) 9 9240$ >$DEMO=0VP=D$(A)2120H @^ROUND=1EUCHRE=2OPTION1DEMO=0VPɰD$(A)DEMO=19200# H`OPTION=1I$=" plays solo":6160:.1}L,20:.5,30:PLAY ALONE MEUCHRE=1OPTION=1Z=B$(A):8750.":PNP=Z:8400 :ROUND=1D=PNPDE=8:8750.":I=0:8000@ R!ROUND=2D=PNP2410j p4D=D$(A)I$=" takes up ":6160:2220 CEUCHRE=1D=B$(A)I$=" assists ":6160:2220 I$=" orders up":6160 4DEMO=1DɰD$(A)Z=D:8750.":8400 DE=8:Z=D:8750.":I=0:8000@:Z=D:DE=0:8750.":I=5:C$=A$(CARD):DEMO=1Z=VP8200 :2280  8000@ 2Z=D:P$(Z,6)=T$:P(Z,6)=VAL-34" `06020:ZZ=1:6120:6180$ jT$(3)=Z$(Z$-1) ?A<4DEMO=1DE=0:ROUND=18780L" s0,10 ;" ";2;7;(TR+96`);" made it ";7;ٰZ$(1);Z$(2̱Z$-1) 7ROUND=261352,Z$(2):61360 ^ROUND=2EUCHRE=2OPTION1DEMO=1DEMO=0VPɰD$(A)9200# 6OPTION=1D$=O$(1,TR+1TR+4) S=51-1 !R(4):R$(4,1) CPM=0:A=14:PNP=D$(A)PM=1:31200  Z=D$(A) $ROUND=1ưD$(A)=D3090 S=56020 $DEMO=0ưD$(A)=VP4200h N3200 :EUCHRE=2U$(Z,N)=Q$(Q$-1)U(Z,N)>QQ=U(Z,N):CA=Z !#WIN=AR(A)=U(Z,N):R$(A)=U$(Z,N) &*ZZ=N:DEMO=1ŰD$(A)VP6120 +@6180$:BB=12 :B=9 :I=(A-1):8200 : -LDEMO=0ưD$(A)=VPL$""P=1̱L$:C$(6)=L$(P)9350$ .!DEMO=0ưD$(A)=VPL$""P 0BA:3800:S:3900<:G=0REP=0:4600 1G=0:5150 ?TR=D$(A)A=1A=2PNP=D$(1)N=S:WIN=A: 2A=1A=2PNP=D$(1)3300 ,EUCHRE=1(A-WIN)=23600 EUCHRE=2Z=TRCA=D$(WIN)Q=14C(Z)=1TR=D$(WIN)Q=14CAɰD$(WIN)TRɰD$(WIN)ZCAZTR3600 3400H 9WIN=A:L=A:N=S1-1:U$(Z,N)T$(3) N:N=S: HN=S1-1 \&U$(Z,N)=R$(L)U(Z,N)>R(WIN)WIN=A: p!N:N=1S:U$(Z,N)=R$(L) <N:N=1S:U$(Z,N)=T$(3)U(Z,N)>R(WIN)WIN=A: N:N=1: 1N=1S:U$(Z,N)=R$(L)U(Z,N)>R(WIN)WIN=A $U$(Z,N)=R$(L) 88N:N=1:U$(Z,N)=T$(3)U(Z,N)>R(WIN)WIN=A L 3W=D$(WIN):EUCHRE=1W>2W=W-2 uS(W)=S(W)+1:EUCHRE=17;Y+2,5;S(1);Y+4,5;S(2):3835 7;Y+2,5;S(1);Y+3,5;S(2);Y+4,5;S(3);Y+5,5;S(4) '.02{# =,5:.03{u\,10  LIFT TRICK *D$=O$(1,D$(WIN)̰D$(WIN)+3) $DTR=TR:TR>2DTR=TR-2 yEUCHRE=1S=2ƽ(S(1)-S(2))=2S=3S((DTR-(DTR*2))+3)=38900" EUCHRE=2OPTION=1S=2ƽ(S(TR)-((S(1)+S(2)+S(3)+S(4))-S(TR)))=2S=3S(TR)=08900" EUCHRE=2CATRQ=14S=2ƽ(S(TR)+S(CA)-((S(1)+S(2)+S(3)+S(4))-(S(TR)+S(CA))))=2S=3S(TR)+S(CA)=08900" {S>1Z=1100d:Z:Z=13 9 -1:1;Z,10 ;" ":.003xD,Z-9 :Z  < 9310^$ A PM=0 F*EUCHRE=1TR>2TR=TR-2 G&EUCHRE=1OPTION=1CA=TR H ZZ=0 P^EUCHRE=1S(TR)0EUCHRE=2TR=CAZZ=4:I$="solo march!"