	
 SOURCE UNKNOWN:  REVISED BY D. KURLAND  111675 	 ()PF: () 
 THIS IS THE GAME OF CRAZY EIGHTS *
( AZJ
2 A(4),D(4),G(4),H(4) e
< T(4),S(4),V(4)   
F Z(4),U$(),C$(
)  
P U$(),U$(),U$(),U$()
Z I  
   
d C$(I)  
n I  
x I  4   
 Z(I)   
 I   CLUBS,DIAMONDS,HEARTS,SPADESW 2,3,4,5,6,7,8,9,10,JACK,QUEEN,KING,ACE   } 2,3,4,5,6,7,50,9,10,10,10,10,1  2,3,4,5,6,7,50,9,10,10,10,10,1  2,3,4,5,6,7,50,9,10,10,10,10,1  2,3,4,5,6,7,50,9,10,10,10,10,1  DO YOU KNOW HOW TO PLAY; A$F (A$,(A$))  (YES,(A$))  T\ I    :: I WHEN ASKED WHICH CARD YOU WISH TO PLAY, YOUR ANSWER SHOULD BE OF THE FORM:  CARD,SUIT  .  ANY EIGHT MAY BE
 PLAYED AT ANY TIME REGARDLESS OF SUIT TO CHANGE THE SUIT.   a
 IF YOU ARE UNABLE OR UNWILLING TO PLAY, YOU WILL BE GIVEN   
 ANOTHER CARD FROM THE DRAW STACK.  IF ALL CARDS HAVE BEEN   
, DRAWN, ANY PERSON WHO IS ABLE TO PLAY MUST DO SO.   (6 AT THE END OF THE GAME, THE PERSON HOLDING CARDS HAS POINTS i@ SCORED AGAINST HIM AS FOLLOWS:  EIGHTS=50, ACE=1, FACE  J CARD=10, INDEX VALUE FOR EACH OTHER CARD.   T :  GAME WILL START SHORTLY...;^L :  I  h J  
   rLL   |S(L)I  V(L)J   J  ' I  0N19N2BN3KS1TS2wRA(W,MAKEPOINTER(@,))SA(W,MAKEPOINTER(B,))A(W,MAKEPOINTER(RA,SA)) (A) I  4   G(I)  H(I)  A(I)  .;0 I  :W1*DB13NP1<XP2EbJ SlM1OCev I  4   | A(I)M1  M1A(I) I1I .; I  JJ   D(J)I1 A(I1)OC  J4  l I  	G(D(4I))H(D(4I))( I  9T()D()  BT1SPS(T())   \ H1e*H2r4D1   > n  H   R W1  \ B1  f   p W1  z B1   > t  	 YOUR SCORE IS;C1 MY SCORE IS;C2  7 C2C1    T YOU WON THAT HAND.  aN1N1 k  I WON THAT HAND.N2N2    N3N3  DO YOU WISH TO PLAY AGAIN;   A$ (A$,(A$))  (YES,(A$))    
   2$ OUT OF;N3;HANDS YOU WON;N1g. YOUR TOTAL SCORE IS;S1;: MINE IS;S2;.   z8 S1S2  B LOOKS LIKE YOU'RE HIGH SCORER.  L V LOOKS LIKE I AM THE HIGH SCORER. BYE.jtC1   C2    H2      < CARDS LEFT IN MY HAND  M I  4   H(I)   C$(V(I)););OF ;U$(S(I))   C1C1Z(I)  I  H1  P   I  4   G(I)  C2C2Z(I)  I 
 C1  P   C1C2  <$C2C2C1   0(C1   <2 P  L<C1C1C2   XFC2   hPS1S1C1   xZS2S2C2   d n  x YOUR HAND IS    I  4   G(I)   C$(V(I)););OF ;U$(S(I))    I    THE LAST CARD PLAYED WAS THE ; I C$(V(T(T1))); OF ;U$(S(T(T1))) d V(T(T1))      THE SUIT CALLED FOR IS ;U$(P)    DO YOU WISH TO PLAY A CARD; A$   AZ$(A$,) AZ$Y  AZ$N   (Y OR N) PLEASE  ; :  $ AZ$Y  r7 D1  6 o ALL THE CARDS HAVE BEEN DEALTYOU ARE BLOCKED{,   6ID(D1)@D1D1JH1H1TG(I) ^ YOUR NEW CARD IS THE ;C$(V(I)); OF ;U$(S(I)) h   r WHICH OF YOUR CARDS DO YOU WISH TO PLAY;   | X$,Y$: F
 k V9   :  UNKNOWN CARD, TRY AGAIN;v |  	  S9   :  UNKNOWN SUIT, TRY AGAIN; |  V9     S9P     V9V(T(T1))      THAT IS NOT A LEGAL PLAY.  .   ? I  4  R G(I)  i V(I)V9     S(I)S9  :    I  YOU DO NOT HAVE THAT CARD. 0   :G(I) DH1H1NT1T1XT(T1)Ib V9   l WHAT SUIT DO YOU WISH; (v Y$   3 	 d S9   :  UNKNOWN SUIT, TRY AGAIN;o v {PS9   P1    H1   W1     P2   B1   P1    I5   II  
 H(I)  4 V(I)  40  S(I)P  K* V(I)V(T(T1))   ^4 I     o> I  4  H V(I)  \   R H(I)     \ I f D1  	  pID(D1)zD1D1 V(I)   S(I)P   V(I)V(T(T1))    H2H2   .H(I) : f  FH(I) RH2H2^T1T1jT(T1)IvPS(I)  V(I)  	    J     	Y(J) 	K1
(J)  	K2
J$	 KK1  K2 .	 H(I)  B	8	Y(J)Y(J)B	 K L	 J V	P)	 J     @j	 Y(J)Y(P)  	Ht	PJQ	 J ]	P2   p	 H2  	 |	W1   	 	 P1  	 	B1   	P2   	 	 I0    	 (Y$,(Y$))(U$(I0),(Y$))  2
 	 I0	S9   6
 (Y$,(Y$))(CLUBS,(Y$))  S9g

 (Y$,(Y$))(DIAMONDS,(Y$))  S9
 (Y$,(Y$))(HEARTS,(Y$))  S9
 (Y$,(Y$))(SPADES,(Y$))  S9(
 2
S9  I0<
 F
 I0    
   P
 (X$,(X$))(C$(I0),(X$))  
 *Z
 I06d
V9   gn
 (X$,(X$))(JACK,(X$))  V9
   x
 (X$,(X$))(QUEEN,(X$))  V9   
 (X$,(X$))(KING,(X$))  V9   
 (X$,(X$))(ACE,(X$))  V9
    
 
 
V9  I0 
  
$_:u^:bu^
sEP<:FFHN;w^FsF<?]UQQtFHN;wFs amZPP6kF9Ft8tFHN;wFs_]UQ^^
9Fu9FuP<u amu^.FFHN;w