-5=H@œÛ3 Ô3Õ3>F > ÿÿ~ –] d ¡ ########################### n! ¡ # C R A Z Y E I G H T S # x ¡ # By Otto Tipka, Dec.1983 # ‚ ¡ ########################### Œ ¡  ’ 25030: ¡ Title ô8 Ÿ156, 3: ± 16,15: ƒ "Do you want instructions? (Y/N)" þ Ÿ 257,1  Q0$=Þ: „ Q0$="" ‰ 520  „ Q0$="Y" ‰ ’ 21030: 600  „ Q0$="N" ‰ 600 ˆ 520 X Û 20: ’ 20000: ¡ Initialize b 5000: ¡ Start Game è$ ¡ ###### Display Face Card ###### ò0 „ F(1)=1 ‰ ’ 1480 ˆ R1$=Ý(F(1)):¡ Ace to 10 ü0 F(1)-10 ’ 1450,1460,1470: ¡ Jack,Queen,King 8 F(2) ’ 1410,1420,1430,1440: ¡ Heart,Diam,Club,Spade  ± 309: Ÿ156, 11  ƒ œ(4-À(R1$)/2);R1$;" "; $ ± 373 . ƒ œ(5-À(S1$)/2);S1$;" "; 8 ± 564: ƒ [A12 32]; B • L ¡ x) ¡ ###### Card Names For Display ###### ‚ S1$= "Hearts" : • Œ S1$="Diamonds": • – S1$= "Clubs" : •   S1$= "Spades" : • ª R1$= " Jack" : • ´ R1$= " Queen" : • ¾ R1$= " King" : • È R1$= " Ace" : • Ò ¡ Ü& ¡ ###### Add to Hand Display ###### æ R3$=P1$(;R(P),R(P)) ð „ R(P)=10 ‰ R3$="10" ú Ÿ156, 6: ± 3*R(P)+3,2*S(P)+7  ƒ R3$;  •  ¡ @+ ¡ ###### Remove Card from Display ###### J ± 3*R(Z)+3,2*S(Z)+7 T ƒ " "; ^ • h ¡  ¡ ###### Get Card ######  K=¼(Ì*Í(D)+1)  T=L(K) & L(K)=L(D): L(D)=0 0 D=D-1 : • D ¡ l* ¡ ###### Display the Suit Called ###### v F(2)=K € K ’ 1410,1420,1430,1440 Š# Ÿ156, 7: ± 564: ƒ "< ";S1$;" >"; ž • Ð ¡ ###### "C"-Fish ###### Ú „ D=0 ‰ •: ¡ blocked ä A=A+1: ’ 1810: ¡ getcard î C(A)=0(T)+1 : ¡ Suit ø B(A)=T-13*0(T): ¡ Rank & „ D1=0 ‰ •: ¡ Dealing Original Hand  * „ B(A)=8 ‰ H=1: Z=A: •: ¡ fished an 8 2 „ B(A)=F(1) ´ C(A)=F(2) ‰ H=2: Z=A: ¡ a match   • * ¡ ¸ ¡ ###### "P"-Fish ######  ¡ Ì P=P+1 Ö ’ 1810: ¡ Getcard à S(P)=0(T)+1: ¡ Suit ê R(P)=T-13*0(T): ¡ Rank ô& „ D1=0 ‰ •: ¡ Dealing Original Hand þ' S(P) ’ 1410,1420,1430,1440: ¡ Suit  „ R(P)=1 ‰ ’ 1480: ¡ Ace 0 R(P)-10 ’ 1450,1460,1470: ¡ Jack,Queen,King 3 „ R(P)>1 ³ R(P)<11 ‰ R1$=Ý$(R(P)): ¡ Rank 2-10 & Ÿ156, 6: ± 192 0, ƒ "You have drawn" R1$ " of " S1$;: Û 0,4 : • D ¡ ˆ ¡ ###### Start the game ##### ’ T1=0: ¡ Turn-marker œ ¡ *** Create the Deck *** ¡. D=52: N(1)=0: N(2)=0: D1=0: ¡ "Deal"-marker ¦ Š I=1 ™ D ° L(I)=I º ‹ I Ä ¡ *** Deal the cards *** É A=0 Î Š I=1 ™ 7 â ’ 2010: ¡ 7 Cards for "C" ì ‹ I ö ¡ *** Display "P" Hand ***  ¸  3 Ÿ156, 2: Ø 4,136 ™ 348,136 ™ 348,8 ™ 4,8 ™ 4,136  Ø 4,40 ™ 348,40  Ø 4,72 ™ 348,72 ( Ø 4,104 ™ 348,104 2* Ÿ156, 7: ± 513: ƒ "H:";: ± 641: ƒ "D:";  Ÿ156, 10: Ø 420,216 ™ 509,216 ™ 509,136 ™ 420,136 ™ 420,216 ª! Ÿ156, 7: ± 117: ƒ "FACE CARD"; ´ ’ 1810: ¡ Get Card ¾ F(2)=0(T)+1: ¡ Suit È F(1)=T-13*0(T): ¡ Rank Ò ’ 1010: ¡ and display it Ö Ÿ156, 7: ± 48,13: ƒ "SCORE"; Ø( Ÿ156, 6: ± 48,14: ƒ "Computer "W(1); Ù ± 48,15: ƒ "You "V(1); Ú5 „ T1 <0 ‰ ± 64: Ÿ156, 1: ƒ "I go first.";:Û 20;0,6 Û „ T1<>0 ‰ 6020 Ü ¡ *** Who goes first? *** æ5 Ÿ156, 1: ± 128: ƒ "Do you want to go first? (Y/N)" ð Q0$=Þ$: „ Q0$="" ‰ 5360 ú Ÿ156, 7: ± 128: ƒ B0$  „ Q0$="Y" ‰ T1=-1: 6010 4 „ Q0$="N" ‰ T1= 1: N(1)=F(1): N(2)=F(2): 6010  Û 20: 5350 " ¡ p ¡ ###### Whose Turn? ###### z T1= -T1: ¡ Toggle flag +/- }* „ A=0 ‰ ’ 16030: 5020 :¡ Computer won ( „ P=0 ‰ ’ 17030: 5020 :¡ Player won ‚1 „ B1=2 ‰ ’ 15030: ¡ both blocked - reshuffle!! „ „ T1 <0 ‰ 10030: ¡ "C"- Play Ž „ T1 >0 ‰ 12030: ¡ "P"- Play ' ¡ '+ ¡ ###### Conmputer to Play a Card ###### '$ ¡ '. E=0: H=0: Z=0 '3 Š I=1 ™ A '8* „ B(I)=8 ‰ E=1: 10160: ¡ = an 8 'B5 „ B(I)<>F(1) ³ C(I)<>F(2) ‰ 10170: ¡ = no match 'L& E=2: B(0)=0: C(0)=0: ¡ = a match 'V6 Š J=1 ™ A : ¡ Count Cards s!me '`0 „ B(I)=B(J) ‰ B(0)=B(0)+1 : ¡ Rank 'j5 „ C(I)=C(J) ³ B(I)<>8: C(0)=C(0)+1: ¡ & Suit 't7 ‹ J : ¡ i& Hand '~' E=E+B(0)-1: ¡ Add 1 for each Rank 'ˆK „ C(0)>1 ‰ E=E+C(0): ¡ and 1 for more than one in suit, +1 per card '’( ¡ N = last card player had to fish 'œ- „ B(I)=N(1) ‰ E=E+1: ¡ if Rank, add 1 '¦- „ C(I)=N(2) ‰ E=E+2: ¡ if Suit, add 2 '°- „ E>H ‰ H=E: Z=I: ¡ Best Card to play 'º ‹ I 'Ä, „ H<1 ³ D>0 ‰ ’ 10260: 10180: ¡ Fish! 'Éi „ H<1 ³ D<1: Ÿ156, 2: ± 64: ƒ "Deck empty, I am blocked!";: Û 1,3;0,9: B1=B1+1: ± 64: ƒ B0$;: 6010 'Î* „ H=1 ‰ ’ 10310: ¡ Play the EIGHT ??? 'Ø0 F(1)=B(Z): F(2)=C(Z): ’ 100: ¡ Play the Card 'Ý. „ B(Z)=8 ‰ ’ 11030: ¡ 8 played, call a suit 'â; B(Z)=B(A): C(Z)=C(A): A=A-1: B1=0: ¡ Remove it from Hand (6 Ÿ156, 6: ± 9: ƒ A " Cards. ";: ¡ update Hand Count ( * 6010: ¡ *** End of Computers Turn *** (& Ÿ156, 2: ± 64: ƒ "I have to fish."; ( ’ 2000 (#  2,0:ŠI=1™6: 2,64:‹ I: 2,0 ((( Ÿ156, 6: ± 9: ƒ A " Cards. ";: Û 0,6 (2 Ÿ156, 2: ± 64: ƒ B0$;: • (<$ ¡ *** Play the Eight or Fish? *** (F( „ 1.5=>(Ì*10) ´ P<3 ´ B1=1 ´ A>11 ‰ • (K „ D<1 ‰ • (P" ’ 10260: ¡ save the 8 for later (Z • *ø ¡ +& ¡ ###### Computer plays an 8 ###### +  ¡ +( Ÿ156, 2: ± 64: ƒ "I'll call a Suit."; +  Û 3,3 +* H=0 +4 Š J=1 ™ 4 : ¡ suits 1-4 +> E=0 +H Š I=1 ™ A +R2 „ C(I)=J ‰ E=E+1: ¡ Add value 1 per card +\ ‹ I +f2 „ E>1 ‰ E=E+2:¡ More then one card in suit +p3 „ J=N(2) ‰ E=E+2:¡ Player did not have suit +z, „ E>H ‰ H=E: K=J: ¡ Best Suit so far +„ ‹ J +Ž Û 15 +˜ ’ 1910 :¡ display Suit +¢ ± 64: ƒ B0$; +¬ • .à ¡ .ê( ¡ ###### Player to Play a Card ###### .ô ¡ .þ; Ÿ156, 7: ± 64: ƒ B0$: ± 128: ƒ "Which Card do you play?" / ± 192: ƒ B0$;: ± 192 / P0$=Þ$: „ P0$="" ‰ 12050 /\ „ P0$="F" ³ D>0:©20:Ÿ156, 3:ƒ ">><(FISH)>";:Û 0:©0:’ 12250: 12030: ¡ go fish and return /l „ P0$="F" ³ D<1: Ÿ156, 2: ± 128: ƒ"Deck empty, you are blocked!";:Û 7;0,12:B1=B1+1:± 128: ƒ B0$;: 12240 / „ P0$="1" ‰ ƒ "1";: 12050 /& R(0)= Á(P1$, P0$) /0> „ R(0)<1 ‰ Ÿ156, 1: ƒ "W H A T ?";: Û 4;1,2;16;0,6: 12030 /: ƒ P0$;" "; /D ’ 13100 :¡ Get Suit /b „ S(0)=<0 ‰ 12030 /l ¡ *** Check Hand *** /v Š I=1 ™ P /€0 „ R(0)=R(I) ³ S(0)=S(I) ‰ Z=I: ‹*I 12190 /Š ‹ I /”A Ÿ156, 1: ƒ" You dont have this card";: Û 1,6;0,10: 12030 /ž+ „ R(0)=F(1) ´ S(0)=F(2) ´ R(0)=8 ‰ 12210 /¨L Ÿ156, 1: ƒ" This is not a legal card";: Û 20,2;1;11,3;3,2;0,8: 12030 /²- ’ 1610: ¡ Legal, remove from hand display /¼3 F(1)=R(Z): F(2)=S(Z): ’ 1010: ¡ Change Face Card /Æ& „ R(Z)=8 ‰ ’ 13030: ¡ Call the suit /Ë: R(Z)=R(P): S(Z)=S(P): P=P-1: B1=0: ¡ Remove card played /ÐD ± 128:ƒ B0$;: ± 192: ƒ B0$;: 6010: ¡ *** End of Players turn *** /Ú. N(1)=F(1): N(2)=F(2): ’ 3020: ¡ Draw a card /ä& ’ 1510: ¡ Add it to display of hand /î • 2È ¡ 2Ò$ ¡ ###### Player plays an 8 ###### 2Ü ¡2æ, ± 128: ƒ "What Suit do you call it? " 2ð ± 192: ƒ B0$;: ± 192 2ú ’ 13100: ¡ Get Suit 3 „ S(0)<1 ‰ 13030 3! K=S(0): ’ 1910 : ¡ Display it 3 ¡ (forgosub) 3 • 3" ¡ 3' ¡ ###### Get Suit ###### 3, P0$=Þ$: „ P0$="" ‰ 13100 36 ƒ P0$;: P2$="HDCS" 3@ S(0)= Á(P2$, P0$) 3JO „ S(0)<1 ‰ Ÿ156, 1: ƒ " ..."P0$" is not a suit, try again;":Û 1,3;3;6,2;0,8 3T • 3^ ¡ :˜ ¡ :¢ ¡ ###### New Deck ###### :¬ ¡ :¶6 Ÿ156, 1: ± 128: ƒ "We are both blocked ...," :Û 0,4 :»/ Ÿ156, 2: ƒ "I'll reshuffle the Deck.": Û 0,4 :À D=52 :Ê Š I=1 ™ D :Ô L(I)=I :Þ ‹ I :è ¡ Remove cards in hand :ò ¡ Computers hand: :ü Š I=1 ™ A ;' T=B(I)+13*(C(I)-1): ¡ Card Number ; L(T)=0: ¡ remove card ; ‹ I ;$ ¡ Players hand ;. Š I=1 ™ P ;8 T=R(I)+13*(S(I)-1) ;B L(T)=0 ;L ‹ I ;V ¡ ..and face card ;` T=F(1)+13*(F(2)-1) ;j L(T)=0: ¡ Remove it ;t ± 128: ƒ B0$ \ B0$ ;~ B1=0: ¡ reset "blocked"-flag ;’1 ¡ **** Shorten new deck by cards removed ***** ;œ „ L(D)=0 ‰ D=D-1: 15260 ;¦ T = D ;° Š I=T ™ 1 š -1 ;º7 „ L(I)=0 ‰ L(I)=L(D): L(D)=0: D=D-1:  2,0: 2,64 ;¿  2,0:  2,64:  2,0 ;Ä ‹ I ;Î Û 0,4;24 ;Ø • >€ ¡ >Š ¡ ###### Computer wins ###### >” ¡ >ž" Ÿ156, 1: ± 64: ƒ "I W I N !" >£ Û 9,2;13;16,2;21,4: ƒ "By"; >¨ Š I=1 ™ P >² W(2)=W(2)+R(I) >¼2 „ R(I)=8 ‰ W(2)=W(2)+42: ¡ Eights count 50 >Æ< „ R(I)>10 ‰ W(2)=W(2)+(10-R(I)): ¡ 10 for face cards >Ð ‹ I >Ú Ÿ156, 7: ƒ W(2)" Points."; >ä W(1)=W(1)+W(2): W(2)=0 >î+ Ÿ156, 6: ± 58,14: ƒ W(1): ¡ update score >ø Û 0,20 ? ± 64: ƒ B0$ \ B0$ ?  • Bh ¡ Br ¡ ###### Player wins ###### B| ¡ B†' Ÿ156, 1: ± 128: ƒ "Y O U W I N !" B Û 21,2;16;13,2;9,4 Bš ƒ "By"; B¤ Š I=1 ™ A B® V(2)=V(2)+B(I) B¸ „ B(I)= 8 ‰ V(2)=V(2)+42 BÂ' „ B(I)>10 ‰ V(2)=V(2)+(10-B(I)) BÌ ‹ I BÖ Ÿ156, 7: ƒ V(2)" Points." Bà V(1)=V(1)+V(2): V(2)=0 Bê Ÿ156, 6: ± 58,15: ƒ V(1) Bô Û 0,20 Bþ ± 128: ƒ B0$ \ B0$ C • N  ¡ ###### Initialize ###### N* ¥: Ÿ 257,1 N4 A=0: P=0: D=52 N>6 Œ B(30),C(30),R(30),S(30),L(52),F(2),N(2),V(2),W(2) NH 0=(#-1)/13 NR0 B0$=" " NW ¡ ... 40 Spaces N\ P1$="A234567890JQK": ¡ Rank Nf P2$="HDCS": ¡ Suit Np • Nz ¡ R ¡ R ¡ ###### Instructions ###### R ¡ R& ·: Ÿ156, 2 R0F ƒ " A card played must match the ''FACE CARD'' in suit or in rank" R:E ƒ"(e.g. if the face card is a Six of Spades, any Spade or six may" RD8 ƒ "be played). This card becomes the new face card." RN6 ƒ " A card is played by typing its rank and suit." RX0 ƒ "Example : Ace of Hearts ..... type A H" Rb0 ƒ " 9 of Clubs ..... type 9 C" RlA ƒ "If you have no card that you can legally play, type to" Rv; ƒ "''FISH'' (draw a card from stack) until you get one." R€E ƒ "You can ''Fish'' even if you have a legal card but do not wish" RŠ ƒ "to play it." R”F ƒ " Eights are ''wild'' and can be played on any face card at any" RžB ƒ "time. When you play an eight you must declare the suit you" R¨A ƒ "want it to represent. The computer must play this suit or" R² ƒ"another eight next." R¼ ’ 21270 RÆ ·: Ÿ156, 2 RÐD ƒ " The player with no cards left in his hand wins. Points are" RÚC ƒ "scored by counting the value of the cards left in the losers" Rä ƒ "hand." Rî" ƒ " The values are: Ace = 1" Rø" ƒ " J,Q,K = 10" S" ƒ " Eight = 50" S C ƒ " all other cards count as their index value." S9 Ÿ156, 5: ± 30,16: ƒ "... hit any key to continue ..."; S  „ Þ ="" ‰ 21280 S* • a¨ ¡ a² ¡ ###### Title Display ###### a¼ ¡ aÆ · aÐ ¥: Œ P(4), D(4): E=56: F=32 aÚ P(1)=¼(Ì*63-3455) aä P(2)=¼(Ì*63-3647) aî P(3)=¼(Ì*63-3903) aø P(4)=¼(Ì*63-3647) b Š K=1 ™ 4 b  ˜ b Š J=1 ™ 4 b  Š I=1 ™ 4 b* “ D(I) b4 Š H=1 ™ 4 b> Ÿ P(I)+D(I),E bH Ÿ P(I),F bR P(I)=P(I)+D(I) b\ ‹ H bf ‹ I bp ‹ J bz( Ÿ156, 4: ± 25,7: ƒ " CRAZY EIGHTS " b„ ‹ K bŽ ” -63,-65, 65, 63 b˜ ” -63, 63, 65,-65 b¢ ” 65, 63,-63,-65 b¬ ” 65,-65,-63, 63 b¶ • ÿÿCRAZY8€>  ÿ>