//
           Title: Text Card
            Name: ~CARD
   First version: March-ish 1998
         Version: v1.5 (May, 1998)
          Author: Bungeman (Ben Wagner)
           Email: bungeman@juno.com
         Webpage: http://members.tripod.com/~bungeman/casio
	   Model: 9850, 9950
     Description: This program draws a card in text on the graphics
                  screen. Drawing it in text allows enuf cards to be
                  drawn on the screen at one time for many games.
      Parameters: X,Y are the X and Y cords of card
                  C is the number (1-52) of the card to be drawn
            Uses: @ for the suit
                    1 spades
                    2 dimonds
                    3 hearts
                    4 clubs
                  r is the value of the card (1-13)
          Output: The widest card is 10pxls wide.
//

13Frac ((C-1)/13)+1->r
Int ((C-1)/13)+1->@
If @=1 Or @=4
Then If r>1 And r<10
 Then Text Y,X,r
 Else r=1=>Text Y,X,"A"
  If r=10
  Then Text Y,X,"10"  '[shift][log]
   X+2->X
  IfEnd
  r=11=>Text Y,X,"J"
  If r=12
  Then Text Y,X,"Q"
   X+1->X
  IfEnd
  r=13=>Text Y,X,"K"
 IfEnd
Else If r>1 And r<10
 Then Orange Text Y,X,r
 Else r=1=>Orange Text Y,X,"A"
  If r=10
  Then Orange Text Y,X,"10"  '[shift][log]
   X+2->X
  IfEnd
  r=11=>Orange Text Y,X,"J"
  If r=12
  Then Orange Text Y,X,"Q"
   X+1->X
  IfEnd
  r=13=>Orange Text Y,X,"K"
 IfEnd
IfEnd
X+4->X
@=1=>Text Y,X,"S"
@=2=>Orange Text Y,X,"D"
@=3=>Orange Text Y,X,"H"
@=4=>Text Y,X,"C"