5H¹8 Ø7³8ó~>F >öÿÿ~ <Í7¦.  · A ± 520:ƒ "DO YOU WANT TO BE ABLE TO SEE MY CARDS (cheat) Y/N ?"  O=0 - A1$=Þ$: „ A1$="" ‰ 30 ˆ „ A1$="Y" ‰ O=1 ( „ A1$="y" ‰ O=1 Z Ÿ156, 15:Ÿ157, 2:· d »:ª n Œ A(8),D(12),E(24),V(12) x! ·:± 21,1:ƒ"***** EUCHRE *****" ‚ ± 15,5:ƒ"PLEASE WAIT ..." Œ ± 1,10 – Š Q=193 ™ 221:ƒ ß$(Q);:‹ Q   ’ 4150:’ 4690 ª ·:’4760 ´ ¡ ¾ J=¼(Ì*2) È ± 20,9 É Ÿ156, 12 Ò „ J=1 ‰ ƒ "MY";: 230 Ü ƒ "YOUR"; æ$ ƒ " DEAL, HIT RETURN >";:Ÿ156, 15 ð A(3)=0:A(7)=0 ú ’ 4890  ’ 1350  ’ 1370:’ 1590  ’ 1650:’ 1730 " „ J=1 ‰ 3630 , „ P>36 ‰ 620 6$ U=0:Š Q=1 ™ 5:W=¼(Í(D(Q)-1)/13)+1 @ „ W=T ‰ U=U+1 J ‹ Q T „ (U>2) ³ (P>31) ‰ 620 ^ ± 25,9:ƒ "I PASS":’ 1330 h? Ÿ156, 12:± 15,9:ƒ "PICK UP (P) OR PASS (RETURN) ?";:Ÿ156, 15 r ’ 4890 | ’ 1350 †! „ A0$="P" ‰ K=0:’ 1450: 650  X=2:Y=7:’ 1270 š F=0:G=0:X=T ¤ Š Y=1 ™ 4 ® „ Y=X ‰ 460 ¸ T=Y:’ 1730:Y=T Â! „ P>31 ‰ K=1:’ 1450:‹* Y 740 Ì ‹ Y:T=X Ö! ± 20,9:ƒ "I PASS AGAIN":’ 1330 à ’ 1350 êC Ÿ156, 12:± 15,9:ƒ "PASS (RETURN) OR TRUMP (S,D,H,C) ?";:Ÿ156, 15 ô ’ 4890:’ 1350 þ1 „ A0$="S" ´ A0$="C" ´ A0$="D" ´ A0$="H" ‰ 540  „ A0$<>" " ³ Å(A0$)<>13 ‰ 590  4110  „ A0$="S" ³ T=1 ‰ 590 & „ A0$="D" ³ T=2 ‰ 590 0 „ A0$="H" ³ T=3 ‰ 590 : „ A0$="C" ³ T=4 ‰ 590 D 2050 N$ ± 25,9:ƒ "SUIT NO GOOD !":’ 1330 X ’ 1350: 490 b ¡ CCII2110 l K=1:’ 1450 v ± 20,9:ƒ "I ORDER YOU UP !" € ’ 1330:’ 1330 Š% ’ 1350:± 25,9:ƒ "DISCARD (1-5) ?"; ” ’ 4890:Q=Å(A0$)-48:’ 1350 ž „ Q>0 ³ Q<6 ‰ 700 ¨ ± 22,9:ƒ "DISCARD NO GOOD!" ² ’ 1330:’ 1350: 650 ¼ D(5+Q)=F:V(Q+5)=G Æ X=Q*7+8:Y=13:C=F:N=Q:’ 900 Ð X=2:Y=7:’ 1270 Ú 2110 ä ¡ CCII2320 î K=1:F=0:G=0:’ 1730 ø ± 20,9:ƒ "I SET TRUMP TO ";  ’ 1520:’ 1330   ’ 1350:’ 2110  „ H>4 ´ I>3 ‰ 880  - Ÿ156, 12:± 25,9:ƒ "LEAD (1-5) ?";:Ÿ156, 11 * ’ 4890:Q=Å(A0$)-48 4 ’ 1350:„ Q>0 ³ Q<6 ‰ 850 > ± 20,9:ƒ "LEAD NO GOOD !" H ’ 1330:’ 1350: 800 R „ D(Q+5)=0 ‰ 830 \ U=Q:’ 1970:Q=U f M=0: 2930 p# Š Q=1 ™ 5:„ D(Q+5)<>0 ‰ ‹* Q 860 z ‹ 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 š Ÿ156, 15 À „ S=0 ‰ Z=0: 1000 Ê „ S=1 ‰ Z=9: 1000 Ô „ S=2 ‰ Z=9: 1000 Þ „ S=3 ‰ Z=0: 1000 è Ÿ157, 2:ƒ ß$(193+R);ß$(220); é. Ÿ157, 2:„ N<>0 ‰ ƒ ß$(204+N); ˆ ƒ ß$(220); ê Ÿ157, 2:ƒ [A2 220]; ë Ÿ157, Z ò ’ 1210 ü( R+1 ’ 1060,1090,1120,1120,1120,1170 ý Ÿ157, 2  ƒ ß$(199+R);  Ÿ156, 15  • $ Š Q=1 ™ 2:ƒ [A3 212+S]; . ’ 1200:‹ Q 8 ƒ [A3 212+S];:• B+ Š Q=1 ™ 2:ƒ ß$(216+S);ß$(221);ß$(216+S); L ’ 1200:‹ Q V# ƒ ß$(212+S);ß$(221);ß$(212+S);:• `# ƒ ß$(216+S);ß$(212+S);ß$(216+S); j ’ 1200 t! ƒ ß$(216+S);ß$(221);ß$(216+S); ~ ’ 1200 ˆ ƒ [A3 212+S];:• ’ ƒ [A3 221];:’ 1200 œ ƒ ß$(221);ß$(212+S);ß$(221); ¦ ’ 1200:ƒ [A3 221];:• ° ƒ ß$(221); º ƒ ß$(10); Ä ƒ [A5 8];ß$(221);:• Î' ¡ DISPLAY/BLANK BACK OF CARD AT X,Y Ø Q=32:W=32:¡ BLANK â 1280 ì C=D(¼(Í((X-15))/7)+1):’ 900:• ö Q=210:W=211  ± X,Y  Ÿ156, 9  ƒ [A5 Q]  Š Q=1 ™ 3:± X,Y+Q  ƒ [A5 W]; ( ‹ Q:± 1,1:Ÿ156, 15:• 2 ¡ DELAY LOOP < Š A1=1 ™ 500:‹A1:• F ¡ CLEAR COMMAND LINE P ± 10,9:ƒ [A42 32]:• Z ¡ PRINT WHOSE DEAL [ Ÿ156, 0 d „ J=0 ‰ 1420 n ± 51,1:ƒ"MY DEAL " x ± 51,16:ƒ " "; y Ÿ156, 15 ‚ • Œ ± 51,16:ƒ "YOUR DEAL"; – ± 51,1:ƒ" " — Ÿ156, 15   • ª ¡ DISPLAY SET TRUMP MESSAGE « Ÿ156, 0 ´ „ K=0 ‰ 1490 ¾ ± 51,5:ƒ "SET TRUMP" È ± 51,12:ƒ" ": 1510 Ò ± 51,12:ƒ "SET TRUMP" Ü ± 51,5:ƒ" " æ ± 51,10 ð ¡ PRINT SUIT$(T) ú$ Ÿ156, 1: T 1550,1560,1570,1580  ƒ "ERROR2170":‘  ƒ " SPADES ":Ÿ156, 15:•  ƒ "DIAMONDS":Ÿ156, 15:• " ƒ " HEARTS ":Ÿ156, 15:• , ƒ " CLUBS ":Ÿ156, 15:• 6 ¡ SHUFFLE DECK @# Š Q=1 ™ 24:E(Q)=¼(Ë(Í(E(Q)))):‹Q J Š Q=1 ™ 11 T W=¼(Ì*23)+1:„ E(W)<0 ‰ 1620 ^ D(Q)=E(W):E(W)=0-E(W) h ‹ Q:• r ¡ DISPLAY CARDS | F=D(11):N=1:T=¼(Í(F-1)/13)+1 † Š X=15 ™ 43 š 7 8 „ O=1 ‰ L=N:N=0:Y=1:C=D(¼(Í((X-15))/7)+1):’ 900:N=L • „ O=0 ‰ Y=1:’ 1270 š# Y=13:C=D(¼(Í((X-15))/7)+6):’ 900 ¤ N=N+1:‹ X ® X=2:Y=7:C=F:N=0:’ 900 ¸ •  ¡ EVALUATE CARDS Ì P=0:Š Q=1 ™ 10 Ö R=¼(Í(D(Q)-1)/13)+1 à S=D(Q)-(R-1)*13 ê „ D(Q)=0 ‰ V(Q)=0: 1830 ô „ R=T ‰ ’ 1860: 1830 þ „ S=1 ‰ V(Q)=6: 1830  V(Q)=S-8  „ S<>11 ‰ 1830  „ T+R=5 ‰ V(Q)=12 & „ Q<6 ‰ P=P+V(Q) 0 ‹ Q:’ 1900 : • D „ S=9 ´ S=10 ‰ V(Q)=S-2:• N „ S=12 ´ S=13 ‰ V(Q)=S-3:• X „ S=1 ‰ V(Q)=11:• b V(Q)=13:• l ¡ EVALUATE TOP CARD v „ 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:’ 1230 Ð X=34:Y=8:C=D(11):N=0: 900 Ú ¡ PLAY COMPUTER'S CARD ä& D(12)=D(Q):V(12)=V(Q):D(Q)=0:V(Q)=0 î X=Q*7+8:Y=1:’ 1230 ø X=24:Y=6:C=D(12):N=0: 900  ¡ CCII2700   „ A0$="S" ‰ T=1: 2100  „ A0$="D" ‰ T=2: 2100   „ A0$="H" ‰ T=3: 2100 * T=4 4 ’ 1730:’ 1450 > ¡ CCII2790 H M=1:H=H+1:„ H<5 ‰ 2440 R" Š Q=1 ™ 5:„ D(Q)<>0 ‰ ‹* Q 2150 \ ‹ Q f „ D(Q)=F ‰ F=0:G=0 p ’ 2010 z$ Š Q=1 ™ 5:„ D(Q+5)<>0 ‰ ‹* Q 2430 „ ‹ Q Ž ¡ CCII2970 ˜, Ÿ156, 12:± 20,11:ƒ"PLAY (1-5)?";:Ÿ156, 11 ¢ ’ 4890:Q=Å(A0$)-48 ¬ ± 20,11:ƒ [A13 32] ¶ „ Q>0 ³ Q<6 ‰ 2270 À ± 20,11:ƒ"PLAY NO GOOD!" Ê ’ 1330:± 20,11:ƒ[A14 32] Ô 2190 Þ „ D(Q+5)=0 ‰ 2240 è X=¼(Í(D(12)-1)/13)+1 ò Y=¼(Í(D(Q+5)-1)/13)+1 ü" U=0:Š W=1 ™ 5:„ V(W+5)=0 ‰ 2350 ; „ (V(12)=12) ³ (¼(Í(D(W+5)-1)/13)+1=T) ‰ U=1:‹* W 2360 * „ (X=T) ³ (V(W+5)=12) ‰ U=1:‹* W 2360 , Z=¼(Í(D(W+5)-1)/13)+1:„ V(W+5)=12 ‰ Z=T $ „ V(12)<>12 ³ X=Z ‰ U=2 . ‹ W 8 U+1 2430,2370,2420 B „ V(Q+5)=12 ‰ 2430 L „ Y=T ‰ 2430 V ± 20,11:ƒ"FOLLOW SUIT!" ` ’ 1330:± 20,11:ƒ [A13 32] j 2190 t „ Y<>X ‰ 2390 ~ ’ 1970: 2620 ˆ ¡ CCII6190 ’ Š Q=1 ™ 5 œ „ V(Q)=13 ‰ ‹* Q 2610 ¦ ‹ Q ° Š Q=1 ™ 5 º „ V(Q)=12 ‰ ‹* Q 2610 Ä ‹ Q Î Š Q=1 ™ 5 Ø „ V(Q)=6 ‰ ‹* Q 2610 â ‹ Q ì „ H=1 ³ ¼(Ì*3)=1 ‰ 2580 ö X=0:Š Q=1 ™ 5  „ V(Q)>X ‰ X=V(Q):Y=Q  ‹ Q:„ X>6 ‰ Q=Y: 2610  X=0:Š Q=1 ™ 5  „ V(Q)>X ‰ X=V(Q):Y=Q ( ‹ Q:Q=Y 2 ’ 2010: 2190 < ¡ CCII3730 F I=I+1 P „ M=0 ‰ 2750 Z! „ (V(11)>6) ³ (V(12)>6) ‰ 2730 d „ V(12)>6 ‰ 2800 n „ V(11)>6 ‰ 2700 x2 Z=¼(Í(D(11)-1)/13):„ ¼(Í(D(12)-1)/13)<>Z ‰ 2800 ‚ „ V(12)>=V(11) ‰ 2800 Œ ± 40,11:ƒ "YOUR TRICK" –- ’ 1330:± 40,11:ƒ [A10 32]:A(7)=A(7)+1:S4=0   2860 ª „ V(12)>V(11) ‰ 2800 ´ 2700 ¾! „ (V(11)>6) ³ (V(12)>6) ‰ 2840 È „ V(11)>6 ‰ 2700 Ò „ V(12)>6 ‰ 2800 Ü2 Z=¼(Í(D(12)-1)/13):„ ¼(Í(D(11)-1)/13)<>Z ‰ 2700 æ „ V(11)>=V(12) ‰ 2700 ð ± 14,7:ƒ"MY TRICK" ú A(3)=A(3)+1:S4=1  ’ 1330:± 14,7:ƒ [A8 32];  2860  „ V(11)>V(12) ‰ 2700 " 2800 , X=24:Y=6:’ 1230 6 X=34:Y=8:’ 1230 @ ± 50,2:ƒ A(3) J ± 50,13:ƒ A(7) T „ H=5 ‰ 3310 ^ „ S4=1 ‰ 2110 h 790 r H=H+1:„ H<>5 ‰ 2970 |" Š Q=1 ™ 5:„ D(Q)<>0 ‰ ‹* Q 2960 † ‹ Q:ƒ "ERROR6460":‘  ’ 2010: 2620 š „ V(11)<7 ‰ 3150 ¤! Š Q=1 ™ 5:„ V(Q)>6 ‰ ‹* Q 3050 ® ‹ Q ¸ X=53:Š Q=1 ™ 5  „ V(Q)=0 ‰ 3030 Ì „ V(Q)V(11) ‰ ‹* Q 3100 ô ‹ Q þ! X=53:Š Q=1 ™ 5:„ V(Q)>6 ‰ 3090  ‹ Q:Q=Y: 2960 - „ V(Q)6 ‰ 3130 0 ‹ Q:Q=Y: 2960 : „ V(Q)6 ‰ ‹* Q 3260 v ‹ Q: 3000 € X=0:Š Q=1 ™ 5 Š „ D(Q)=0 ‰ 3230 ”0 Z=¼(Í(D(Q)-1)/13):„ ¼(Í(D(11)-1)/13)=Z ‰ 3240 ž ‹ Q:Q=Y: 2960 ¨ „ V(Q)>X ‰ X=V(Q):Y=Q ² 3230 ¼ X=53:Š Q=1 ™ 5 Æ „ V(Q)=0 ‰ 3300 Ð „ V(Q)<7 ‰ 3300 Ú „ V(Q)A(7) ‰ S1=1: 3340 ø ± 30,9:ƒ"YOU WIN!"  ’ 1330:’ 1350:H=0:I=0: 3360  ± 30,9:ƒ"I WIN!"  3330 & „ K=1 ³ S1=0 ‰ A(6)=A(6)+2: 3440 *& „ K=0 ³ S1=1 ‰ A(2)=A(2)+2: 3440 4" „ A(3)=5 ‰ A(2)=A(2)+2: 3420 >" „ A(7)=5 ‰ A(6)=A(6)+2: 3420 H' „ S1=1 ‰ A(4)=1:A(2)=A(2)+1: 3460 R A(8)=1:A(6)=A(6)+1: 3460 \ ± 30,9:ƒ"MARCH" f ’ 1330:’ 1350: 3460 p ± 30,9:ƒ"EUCHRE!" z ’ 1330:’ 1350 „ ± 50,3:ƒ A(2) Ž ± 50,14:ƒ A(6) ˜ ± 51,2:ƒ"0" ¢ ± 51,13:ƒ"0" ¬+ „ A(5)>1000 ‰ ƒ "STOP CHEATING DAG!!" ¶ „ A(2)>10 ‰ 3560 À „ A(6)>10 ‰ 3580 Ê A(3)=0:A(7)=0 Ô „ J=1 ‰ J=0: 200 Þ J=1: 200 è( ± 25,9:ƒ"I WIN THE GAME":A(1)=A(1)+1 ò 3590 ü+ ± 25,9:ƒ"YOU WIN THE GAME!":A(5)=A(5)+1  ’ 1330:’ 1330:’ 1350  ± 50,4:ƒ A(1):± 51,3:ƒ "0 "  ± 50,15:ƒ A(5):± 51,14:ƒ"0 " $ A(2)=0:A(6)=0: 180 . ¡ COMPUTER DEALING LOGIC 8C Ÿ156, 12:± 15,9:ƒ "ORDER IT UP (U) OR PASS (RETURN) ?";:Ÿ156, 15 B ’ 4890:’ 1350 L „ A0$="U" ‰ 3950 V T1=Í(T):T2=Í(F):T3=Í(G):X=0 ` Š W=1 ™ 5 j. T4=Í(D(W)):T5=Í(V(W)):D(W)=¼(T2):V(W)=¼(T3) t ’ 1730:„ P>X ‰ X=P:Y=W ~ D(W)=¼(T4):V(W)=¼(T5) ˆ# ‹ W:„ X>33 ‰ K=1:’ 1450: 3740 ’ 3780 œ D(Y)=F:V(Y)=G ¦* U=Y:X=U*7+8:Y=1:„ O=1 ‰ ’ 1260 ˆ ’ 1270 ° X=2:Y=7:’ 1270 º 790 Ä ± 25,9:ƒ "I PASS!" Î' F=0:G=0:X=2:Y=7:’ 1270:’ 1330:’ 1350 ØD Ÿ156, 12:± 15,9:ƒ "TRUMPS (S,D,H,C) OR PASS (RETURN) ?";:Ÿ156, 15 â ’ 4890:’ 1350 ì! „ Å(A0$)=32 ´ Å(A0$)=13 ‰ 4050 ö5 K=0:„ A0$="S" ´ A0$="H" ´ A0$="D" ´ A0$="C" ‰ 3860  ± 25,9:ƒ"SUIT NO GOOD!"   ’ 1330:’ 1350: 3800  „ T=1 ³ A0$="S" ‰ 3840  „ T=2 ³ A0$="D" ‰ 3840 ( „ T=3 ³ A0$="H" ‰ 3840 2 „ T=4 ³ A0$="C" ‰ 3840 < „ A0$="S" ‰ T=1 F „ A0$="D" ‰ T=2 P „ A0$="H" ‰ T=3 Z „ A0$="C" ‰ T=4 d ’ 1730:’ 1450: 790 n! Š Q=1 ™ 5:„ V(Q)>6 ‰ ‹* Q 4000 x ‹ Q ‚) X=53:Š Q=1 ™ 5:„ V(Q)0 ‰ 3990 ´ 3970 ¾ „ V(Q)X ‰ X=P:Y=W ú ‹ W:T=Y  „ P>31 ‰ 4130  ± 25,9:ƒ"PASS AGAIN!"  ’ 1330:’ 1350: 3500 "# K=1:’ 1450:± 25,9:ƒ"TRUMPS ARE"; , ’ 1520:’ 1330:’ 1350: 790 6 ¡ READ IN PCG CHARACTERS @ ˜ 4150 J B=64528 T Š Q=0 ™ 5 ^ Š W=0 ™ 7 h “ X r Ÿ B+W+Q*16,0 | Ÿ B+W+(Q+6)*16,255 † Ÿ B+8+W+Q*16,X  Ÿ B+8+W+(Q+6)*16,X š ‹ W:‹ Q ¤$ ” 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 0 ” 62,99,3,30,3,99,62,0 : ” 14,30,54,102,127,6,6,0 D ” 127,96,126,3,3,99,62,0 N Š Q=0 ™ 3 X “ X b Ÿ B+17*16+Q,0:Ÿ B+17*16+4+Q,0 l# Ÿ B+17*16+Q+8,X:Ÿ B+17*16+Q+12,X v Ÿ B+18*16+Q,X:Ÿ B+18*16+Q+4,X €# Ÿ B+18*16+Q+8,X:Ÿ B+18*16+Q+12,X Š ‹ Q ” ” 136,68,34,17 ž Š Q=0 ™ 3 ¨ Š 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 4 ‹ Q:• > · H$ Š Q=193 ™ 193+28:ƒ ß$(Q);" ";:‹ Q R ¡ INIIALISE EUCHRE PACK \ E(1)=1 f ŠW=0™2:Š Q=0 ™ 5 p E(W*6+Q+2)=9+Q+13*W z ‹ 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:"  •  ¡ GET A0$ ROUTINE $ Ÿ 263,255 . A0$=Þ$:A1=Ì*1:„ A0$="" ‰ 4910 83 A2=Í(Å(A0$)):„ A2>90 ‰ A0$="":A0$=ß$(¼(A2)-32) B • ÿÿÀ"%™Qÿÿ & %3( ÿ2÷ÿ õÿ óÿòÿèÿåÿ#ÜÿÛÿÚÿ'Øÿ