4H#5 55>F >þÿÿ~ F(%5=  »:ª  Œ A(8),D(12),E(24),V(12) ! ·:± 21,1:ƒ"***** EUCHRE *****" ( ± 15,5:ƒ"PLEASE WAIT ..." - ± 1,10 2 Š Q=193 ™ 221:ƒ ß$(Q);:‹ Q < ’ 10000:’ 15000 F ·:’16000 d ¡ i J=¼(Ì*2) n ± 20,9 x „ J=1 ‰ ƒ "MY";: 140 ‚ ƒ "YOUR"; Œ ƒ " DEAL, HIT RETURN >"; ‘ A(3)=0:A(7)=0 – ’ 19000   ’ 1900 ª ’ 2000:’ 2200 ´ ’ 2400:’ 2600 ¾ „ J=1 ‰ 7000 È „ P>36 ‰ 515 Ò$ U=0:Š Q=1 ™ 5:W=¼(Í(D(Q)-1)/13)+1 Ü „ W=T ‰ U=U+1 æ ‹ Q ð „ (U>2) ³ (P>31) ‰ 515 ú ± 25,9:ƒ "I PASS":’ 1800 - ± 15,9:ƒ "PICK UP (P) OR PASS (RETURN) ?";  ’ 19000  ’ 1900 ,! „ A0$="P" ‰ K=0:’ 2100: 530 6 X=2:Y=7:’ 1530 @ F=0:G=0:X=T J Š Y=1 ™ 4 T „ Y=X ‰ 370 ^ T=Y:’ 2600:Y=T h! „ P>31 ‰ K=1:’ 2100:‹* Y 575 r ‹ Y:T=X |! ± 20,9:ƒ "I PASS AGAIN":’ 1800 † ’ 1900 1 ± 15,9:ƒ "PASS (RETURN) OR TRUMP (S,D,H,C) ?"; š ’ 19000:’ 1900 ¤1 „ A0$="S" ´ A0$="C" ´ A0$="D" ´ A0$="H" ‰ 440 © „ A0$<>" " ³ Å(A0$)<>13 ‰ 490 ® 7245 ¸ „ A0$="S" ³ T=1 ‰ 490  „ A0$="D" ³ T=2 ‰ 490 Ì „ A0$="H" ³ T=3 ‰ 490 Ö „ A0$="C" ³ T=4 ‰ 490 à 6000 ê$ ± 25,9:ƒ "SUIT NO GOOD !":’ 1800 ô ’ 1900: 400 þ ¡ CCII2110  K=1:’ 2100  ± 20,9:ƒ "I ORDER YOU UP !"   ’ 1800:’ 1800 % ’ 1900:± 25,9:ƒ "DISCARD (1-5) ?";  ’ 19000:Q=Å(A0$)-48:’ 1900  „ Q>0 ³ Q<6 ‰ 555 ! ± 22,9:ƒ "DISCARD NO GOOD!" & ’ 1800:’ 1900: 530 + D(5+Q)=F:V(Q+5)=G 0 X=Q*7+8:Y=13:C=F:N=Q:’ 1000 5 X=2:Y=7:’ 1530 : 6030 ? ¡ CCII2320 D K=1:F=0:G=0:’ 2600 I ± 20,9:ƒ "I SET TRUMP TO "; N ’ 2165:’ 1800 S ’ 1900:’ 6030 X „ H>4 ´ I>3 ‰ 650 ] ± 25,9:ƒ "LEAD (1-5) ?"; b ’ 19000:Q=Å(A0$)-48 g ’ 1900:„ Q>0 ³ Q<6 ‰ 630 l ± 20,9:ƒ "LEAD NO GOOD !" q ’ 1800:’ 1900: 605 v „ D(Q+5)=0 ‰ 620 { U=Q:’ 3000:Q=U … M=0: 6450 Š# Š Q=1 ™ 5:„ D(Q+5)<>0 ‰ ‹* Q 635  ‹ Q:ƒ "ERROR655":‘ è+ ¡ DISPLAY CARD C0 AT X,Y WITH N ABOVE IT ò ± X,Y ü S=¼(Í(C-1)/13):R=C-S*13-9  „ R<0 ‰ R=5  ƒ ß$(193+R);ß$(220); % „ N<>0 ‰ ƒ ß$(204+N); ˆ ƒ ß$(220); $ ƒ [A2 220]; . ’ 1310 8( R+1 ’ 1110,1140,1170,1170,1170,1220 B ƒ ß$(199+R); L • V Š Q=1 ™ 2:ƒ [A3 212+S]; ` ’ 1300:‹ Q j ƒ [A3 212+S];:• t+ Š Q=1 ™ 2:ƒ ß$(216+S);ß$(221);ß$(216+S); ~ ’ 1300:‹ Q ˆ# ƒ ß$(212+S);ß$(221);ß$(212+S);:• ’# ƒ ß$(216+S);ß$(212+S);ß$(216+S); œ ’ 1300 ¦! ƒ ß$(216+S);ß$(221);ß$(216+S); ° ’ 1300 º ƒ [A3 212+S];:• Ä ƒ [A3 221];:’ 1300 Î ƒ ß$(221);ß$(212+S);ß$(221); Ø ’ 1300:ƒ [A3 221];:•  ƒ ß$(221);  ƒ ß$(10); ( ƒ [A5 8];ß$(221);:• Ü' ¡ DISPLAY/BLANK BACK OF CARD AT X,Y æ Q=32:W=32:¡ BLANK ð 1540 ú Q=210:W=211  ± X,Y  ƒ [A5 Q]  Š Q=1 ™ 3:± X,Y+Q " ƒ [A5 W]; , ‹ Q:± 1,1:•  ¡ DELAY LOOP  Š A1=1 ™ 500:‹A1:• l ¡ CLEAR COMMAND LINE v ± 10,9:ƒ [A42 32]:• Ð ¡ PRINT WHOSE DEAL Ú „ J=0 ‰ 2050 ä ± 51,1:ƒ"MY DEAL " î ± 51,16:ƒ " "; ø •  ± 51,16:ƒ "YOUR DEAL";   ± 51,1:ƒ" "  • 4 ¡ DISPLAY SET TRUMP MESSAGE > „ K=0 ‰ 2140 H ± 51,5:ƒ "SET TRUMP" R ± 51,12:ƒ" ": 2160 \ ± 51,12:ƒ "SET TRUMP" f ± 51,5:ƒ" " p ± 51,10 u ¡ PRINT SUIT$(T) z T 2175,2180,2185,2190 | ƒ "ERROR2170":‘  ƒ " SPADES ":• „ ƒ "DIAMONDS":• ‰ ƒ " HEARTS ":• Ž ƒ " CLUBS ":• ˜ ¡ SHUFFLE DECK ¢# Š Q=1 ™ 24:E(Q)=¼(Ë(Í(E(Q)))):‹Q ¬ Š Q=1 ™ 11 ¶ W=¼(Ì*23)+1:„ E(W)<0 ‰ 2230 À D(Q)=E(W):E(W)=0-E(W) Ê ‹ Q:• ` ¡ DISPLAY CARDS ˆ F=D(11):N=1:T=¼(Í(F-1)/13)+1 ’ Š X=15 ™ 43 š 7 œ Y=1:’ 1530 ¡$ Y=13:C=D(¼(Í((X-15))/7)+6):’ 1000 ¦ N=N+1:‹ X ° X=2:Y=7:C=F:N=0:’ 1000 Ä • ( ¡ EVALUATE CARDS 2 P=0:Š Q=1 ™ 10 < R=¼(Í(D(Q)-1)/13)+1 F S=D(Q)-(R-1)*13 d „ D(Q)=0 ‰ V(Q)=0: 2720 n „ R=T ‰ ’ 2750: 2720 x „ S=1 ‰ V(Q)=6: 2720 ‚ V(Q)=S-8 Œ „ S<>11 ‰ 2720 – „ T+R=5 ‰ V(Q)=12   „ Q<6 ‰ P=P+V(Q) ª ‹ Q:’ 2800 ´ • ¾ „ S=9 ´ S=10 ‰ V(Q)=S-2:• È „ S=12 ´ S=13 ‰ V(Q)=S-3:• Ò „ S=1 ‰ V(Q)=11:• Ü V(Q)=13:• ð ¡ EVALUATE TOP CARD ú „ F=0 ‰ G=0:•  R=¼(Í(F-1)/13)+1:S=F-(R-1)*13  „ S=9 ´ S=10 ‰ G=S-2:•  „ S=12 ´ S=13 ‰ G=S-3:• " „ S=1 ‰ G=11:• , G=13:• ¸ ¡ PLAY USER'S CARD Â. D(11)=D(Q+5):V(11)=V(Q+5):D(Q+5)=0:V(Q+5)=0 Ì X=Q*7+8:Y=13:’ 1500 Ö X=34:Y=8:C=D(11):N=0: 1000  ¡ PLAY COMPUTER'S CARD && D(12)=D(Q):V(12)=V(Q):D(Q)=0:V(Q)=0 0 X=Q*7+8:Y=1:’ 1500 : X=24:Y=6:C=D(12):N=0: 1000 p ¡ CCII2700 u „ A0$="S" ‰ T=1: 6025 z „ A0$="D" ‰ T=2: 6025  „ A0$="H" ‰ T=3: 6025 „ T=4 ‰ ’ 2600:’ 2100 Ž ¡ CCII2790 “ M=1:H=H+1:„ H<5 ‰ 6190 ˜" Š Q=1 ™ 5:„ D(Q)<>0 ‰ ‹* Q 6050  ‹ Q ¢ „ D(Q)=F ‰ F=0:G=0 § ’ 3100 ¬$ Š Q=1 ™ 5:„ D(Q+5)<>0 ‰ ‹* Q 6185 ± ‹ Q ¶ ¡ CCII2970 » ± 20,11:ƒ"PLAY (1-5)?"; À ’ 19000:Q=Å(A0$)-48 Å ± 20,11:ƒ [A13 32] Ê „ Q>0 ³ Q<6 ‰ 6110 Ï ± 20,11:ƒ"PLAY NO GOOD!" Ô ’ 1800:± 20,11:ƒ[A14 32] Ù 6070 Þ „ D(Q+5)=0 ‰ 6095 ã X=¼(Í(D(12)-1)/13)+1 è Y=¼(Í(D(Q+5)-1)/13)+1 í" U=0:Š W=1 ™ 5:„ V(W+5)=0 ‰ 6145 ò; „ (V(12)=12) ³ (¼(Í(D(W+5)-1)/13)+1=T) ‰ U=1:‹* W 6150 ÷* „ (X=T) ³ (V(W+5)=12) ‰ U=1:‹* W 6150 ù, Z=¼(Í(D(W+5)-1)/13)+1:„ V(W+5)=12 ‰ Z=T ü „ V(12)<>12 ³ X=Z ‰ U=2  ‹ W  U+1 6185,6155,6180   „ V(Q+5)=12 ‰ 6185  „ Y=T ‰ 6185  ± 20,11:ƒ"FOLLOW SUIT!"  ’ 1800:± 20,11:ƒ [A13 32]  6070 $ „ Y<>X ‰ 6165 ) ’ 3000: 6300 . ¡ CCII6190 3 Š Q=1 ™ 5 8 „ V(Q)=13 ‰ ‹* Q 6275 = ‹ Q B Š Q=1 ™ 5 G „ V(Q)=12 ‰ ‹* Q 6275 L ‹ Q Q Š Q=1 ™ 5 V „ V(Q)=6 ‰ ‹* Q 6275 [ ‹ Q ` „ H=1 ³ ¼(Ì*3)=1 ‰ 6260 e X=0:Š Q=1 ™ 5 j „ V(Q)>X ‰ X=V(Q):Y=Q o ‹ Q:„ X>6 ‰ Q=Y: 6275 t X=0:Š Q=1 ™ 5 y „ V(Q)>X ‰ X=V(Q):Y=Q ~ ‹ Q:Q=Y ƒ ’ 3100: 6070 œ ¡ CCII3730 ¡ I=I+1 ¦ „ M=0 ‰ 6365 «! „ (V(11)>6) ³ (V(12)>6) ‰ 6355 ° „ V(12)>6 ‰ 6390 µ „ V(11)>6 ‰ 6340 º2 Z=¼(Í(D(11)-1)/13):„ ¼(Í(D(12)-1)/13)<>Z ‰ 6390 ¿ „ V(12)>=V(11) ‰ 6390 Ä ± 40,11:ƒ "YOUR TRICK" É- ’ 1800:± 40,11:ƒ [A10 32]:A(7)=A(7)+1:S4=0 Î 6420 Ó „ V(12)>V(11) ‰ 6390 Ø 6340 Ý! „ (V(11)>6) ³ (V(12)>6) ‰ 6410 â „ V(11)>6 ‰ 6340 ç „ V(12)>6 ‰ 6390 ì2 Z=¼(Í(D(12)-1)/13):„ ¼(Í(D(11)-1)/13)<>Z ‰ 6340 ñ „ V(11)>=V(12) ‰ 6340 ö ± 14,7:ƒ"MY TRICK" û A(3)=A(3)+1:S4=1  ’ 1800:± 14,7:ƒ [A8 32];  6420   „ V(11)>V(12) ‰ 6340  6390  X=24:Y=6:’ 1500  X=34:Y=8:’ 1500  ± 50,2:ƒ A(3)  ± 50,13:ƒ A(7)  „ H=5 ‰ 6700 # „ S4=1 ‰ 6030 ( 600 2 H=H+1:„ H<>5 ‰ 6470 7" Š Q=1 ™ 5:„ D(Q)<>0 ‰ ‹* Q 6465 < ‹ Q:ƒ "ERROR6460":‘ A ’ 3100: 6300 F „ V(11)<7 ‰ 6560 K! Š Q=1 ™ 5:„ V(Q)>6 ‰ ‹* Q 6510 P ‹ Q U X=53:Š Q=1 ™ 5 Z „ V(Q)=0 ‰ 6500 _ „ V(Q)V(11) ‰ ‹* Q 6535 s ‹ Q x! X=53:Š Q=1 ™ 5:„ V(Q)>6 ‰ 6530 } ‹ Q:Q=Y: 6465 ‚- „ V(Q)6 ‰ 6550 ‘ ‹ Q:Q=Y: 6465 – „ V(Q)6 ‰ ‹* Q 6615 ´ ‹ Q: 6485 ¹ X=0:Š Q=1 ™ 5 ¾ „ D(Q)=0 ‰ 6600 Ã0 Z=¼(Í(D(Q)-1)/13):„ ¼(Í(D(11)-1)/13)=Z ‰ 6605 È ‹ Q:Q=Y: 6465 Í „ V(Q)>X ‰ X=V(Q):Y=Q Ò 6600 × X=53:Š Q=1 ™ 5 Ü „ V(Q)=0 ‰ 6635 á „ V(Q)<7 ‰ 6635 æ „ V(Q)A(7) ‰ S1=1: 6715 1 ± 30,9:ƒ"YOU WIN!" 6 ’ 1800:’ 1900:H=0:I=0: 6725 ; ± 30,9:ƒ"I WIN!" @ 6710 E& „ K=1 ³ S1=0 ‰ A(6)=A(6)+2: 6765 J& „ K=0 ³ S1=1 ‰ A(2)=A(2)+2: 6765 O" „ A(3)=5 ‰ A(2)=A(2)+2: 6755 T" „ A(7)=5 ‰ A(6)=A(6)+2: 6755 Y' „ S1=1 ‰ A(4)=1:A(2)=A(2)+1: 6775 ^ A(8)=1:A(6)=A(6)+1: 6775 c ± 30,9:ƒ"MARCH" h ’ 1800:’ 1900: 6775 m ± 30,9:ƒ"EUCHRE!" r ’ 1800:’ 1900 w ± 50,3:ƒ A(2) | ± 50,14:ƒ A(6)  ± 51,2:ƒ"0" † ± 51,13:ƒ"0" ‹+ „ A(5)>1000 ‰ ƒ "STOP CHEATING DAG!!" • „ A(2)>10 ‰ 6830 š „ A(6)>10 ‰ 6840 Ÿ A(3)=0:A(7)=0 ¤ „ J=1 ‰ J=0: 110 © J=1: 110 ®( ± 25,9:ƒ"I WIN THE GAME":A(1)=A(1)+1 ³ 6845 ¸+ ± 25,9:ƒ"YOU WIN THE GAME!":A(5)=A(5)+1 ½ ’ 1800:’ 1800:’ 1900 ¿ ± 50,4:ƒ A(1):± 51,3:ƒ "0 " À ± 50,15:ƒ A(5):± 51,14:ƒ"0 "  A(2)=0:A(6)=0: 100 X ¡ COMPUTER DEALING LOGIC ]1 ± 15,9:ƒ "ORDER IT UP (U) OR PASS (RETURN) ?"; b ’ 19000:’ 1900 l „ A0$="U" ‰ 7165 q T1=Í(T):T2=Í(F):T3=Í(G):X=0 v Š W=1 ™ 5 {. T4=Í(D(W)):T5=Í(V(W)):D(W)=¼(T2):V(W)=¼(T3) € ’ 2600:„ P>X ‰ X=P:Y=W … D(W)=¼(T4):V(W)=¼(T5) Š# ‹ W:„ X>33 ‰ K=1:’ 2100: 7060  7080 ” D(Y)=F:V(Y)=G ™ U=Y:X=U*7+8:Y=1:’ 1530 ž X=2:Y=7:’ 1530 £ 600 ¨ ± 25,9:ƒ "I PASS!" ­' F=0:G=0:X=2:Y=7:’ 1530:’ 1800:’ 1900 ²2 ± 15,9:ƒ "TRUMPS (S,D,H,C) OR PASS (RETURN) ?"; · ’ 19000:’ 1900 ¼! „ Å(A0$)=32 ´ Å(A0$)=13 ‰ 7215 Á5 K=0:„ A0$="S" ´ A0$="H" ´ A0$="D" ´ A0$="C" ‰ 7120 Æ ± 25,9:ƒ"SUIT NO GOOD!" Ë ’ 1800:’ 1900: 7090 Ð „ T=1 ³ A0$="S" ‰ 7110 Õ „ T=2 ³ A0$="D" ‰ 7110 Ú „ T=3 ³ A0$="H" ‰ 7110 ß „ T=4 ³ A0$="C" ‰ 7110 ä „ A0$="S" ‰ T=1 é „ A0$="D" ‰ T=2 î „ A0$="H" ‰ T=3 ó „ A0$="C" ‰ T=4 ø ’ 2600:’ 2100: 600 ý! Š Q=1 ™ 5:„ V(Q)>6 ‰ ‹* Q 7190  ‹ Q ) X=53:Š Q=1 ™ 5:„ V(Q)0 ‰ 7185  7175 % „ V(Q) „ P>X ‰ X=P:Y=W C ‹ W:T=Y H „ P>31 ‰ 7255 M ± 25,9:ƒ"PASS AGAIN!" R ’ 1800:’ 1900: 6795 W# K=1:’ 2100:± 25,9:ƒ"TRUMPS ARE"; \ ’ 2165:’ 1800:’ 1900: 600 ' ¡ READ IN PCG CHARACTERS ' ˜ 10000 ' B=64528 '$ Š Q=0 ™ 5 '. Š W=0 ™ 7 '8 “ X 'B Ÿ B+W+Q*16,0 'L Ÿ B+W+(Q+6)*16,255 'V Ÿ B+8+W+Q*16,X '` Ÿ B+8+W+(Q+6)*16,X 'j ‹ W:‹ Q 't$ ” 227,156,156,224,252,156,227,255 '~$ ” 255,128,243,243,243,243,243,255 'ˆ$ ” 252,252,252,252,252,156,227,255 '’$ ” 231,153,153,137,129,153,228,255 'œ$ ” 159,156,156,153,135,153,152,255 '¦$ ” 247,231,201,156,128,156,156,255 '° Š Q=0 ™ 4 'º Š W=0 ™ 7 'Ä “ X 'Î Ÿ B+W+(12+Q)*16,X 'Ø Ÿ B+W+16*(12+Q)+8,255 'â ‹W:‹ Q 'ì ” 24,24,24,24,24,24,24,0 'ö ” 62,99,67,6,60,96,127,0 ( ” 62,99,3,30,3,99,62,0 (  ” 14,30,54,102,127,6,6,0 ( ” 127,96,126,3,3,99,62,0 ( Š Q=0 ™ 3 (( “ X (2 Ÿ B+17*16+Q,0:Ÿ B+17*16+4+Q,0 (<# Ÿ B+17*16+Q+8,X:Ÿ B+17*16+Q+12,X (F Ÿ B+18*16+Q,X:Ÿ B+18*16+Q+4,X (P# Ÿ B+18*16+Q+8,X:Ÿ B+18*16+Q+12,X (Z ‹ Q (d ” 136,68,34,17 (n Š Q=0 ™ 3 (x Š W=0 ™ 7 (‚ “ X (Œ Ÿ B+(19+Q)*16+W,X (– Ÿ B+(19+Q)*16+W+8,255 (  Ÿ B+(23+Q)*16+W,X (ª Ÿ B+(23+Q)*16+W+8,X (´ ‹ W:‹ Q (¹$ ” 247,227,193,128,128,227,227,227 (È$ ” 247,227,193,128,193,227,247,255 (Ò$ ” 255,136,128,128,193,227,247,255 (Ü$ ” 231,195,231,129,129,231,231,255 (æ Š Q=0 ™ 7 (ð& Ÿ B+(27*16)+Q,0:Ÿ B+(27*16)+Q+8,255 (ú( Ÿ B+(28*16)+Q,255:Ÿ B+(28*16)+Q+8,255 ) ‹ Q:• ) · )$ Š Q=193 ™ 193+28:ƒ ß$(Q);" ";:‹ Q :˜ ¡ INIIALISE EUCHRE PACK :¢ E(1)=1 :¬ ŠW=0™2:Š Q=0 ™ 5 :¶ E(W*6+Q+2)=9+Q+13*W :À ‹ Q:‹ W :Ê Š Q=48 ™ 52:E(Q-28)=Q:‹ Q :Ô • >€ ¡ DISLAY MAIN TITLE PAGE >Š ± 1,1:ƒ"EUCHRE" > ± 51,2:ƒ"0 TRICKS" >” ± 51,3:ƒ"0 POINTS" >™ ± 51,4:ƒ"0 GAMES" >ž ± 51,13:ƒ"0 TRICKS" >£ ± 51,14:ƒ"0 POINTS" >¨ ± 51,15:ƒ"0 GAMES" >­ ± 1,2:ƒ"BY: G.EPPS" >² ± 5,3:ƒ"D.BADHAM" >· ± 5,4:ƒ"J.BADHAM" >¹ ± 50,8:ƒ"TRUMPS ARE:" >¼ • J8 ¡ GET A0$ ROUTINE J= Ÿ 263,255 JB! A0$=Þ$:A1=Ì*1:„ A0$="" ‰ 19010 JL3 A2=Í(Å(A0$)):„ A2>90 ‰ A0$="":A0$=ß$(¼(A2)-32) JV • ÿÿEUKER€RS.MWB€ go any further.":26