CLEAR,20000,30000
SCREEN 1,320,200,3,1
WINDOW 2,,,0,1
GOSUB Cdown
ON MENU GOSUB Checkmenu
  MENU 1,0,1,"Esci"
  MENU 1,1,1,"Esci"
  MENU 2,0,1," "
  MENU 2,1,1," "
  MENU 3,0,1,"Truffa"
  MENU 3,1,1,"Truffa"
  MENU 4,0,1,"Cambio"
  MENU 4,1,1,"Totale"
  MENU 4,2,1,"Puntata"
DIM Puptoes(65)
DIM Hearts(65)
DIM Dimonds(65)
DIM Spades(65)
DIM Cards(52)
False = 0
True = 1
Grubstake = 300
Cmx = True 
Asp = .84
GOSUB Drawit
  GET (3,2)-(17,17),Puptoes
GOSUB Dimonds
  GET (3,2)-(17,17),Dimonds
GOSUB Spades
  GET (3,3)-(17,17),Spades
GOSUB Hearts
  GET (3,2)-(17,17),Hearts
  CLS
GOSUB title
GOSUB Pat
GOSUB Cup
GOSUB Shuffel
Bet = 10
GOSUB Printgrub
MENU ON
 
 
Rand:
  RANDOMIZE TIMER
  x = INT(RND*53)
  IF x = 0 GOTO Rand
  IF Cards(x) = 1 GOTO Rand
  Cards(x) = 1
  Numcard = Numcard + 1
  Cardcount = Cardcount + 1
  IF x < 53 THEN
    Suit$ = "Puptoes"
    Card = x - 39
    Subtotal = Card
  END IF
  IF x < 40 THEN 
    Suit$ = "Dimonds"
    Card = x - 26
    Subtotal = Card
  END IF
  IF x < 27 THEN 
    Suit$ = "Spades"
    Card = x - 13
    Subtotal = Card
  END IF
  IF x < 14 THEN 
    Suit$ = "Hearts"
    Card = x
    Subtotal = Card
  END IF
  GOTO Drawcard


Drawcard:
  COLOR 4,4
  GOSUB Wherecard
  IF Numcard > 13 THEN GOTO Checkmouse
  SOUND 440,.2,100,0
  IF Numcard = 3 THEN
    Holdcard = Card
    COLOR 4,3
    LINE (Locx,Locy)-(Locx+65,Locy+83),7,bf
    GOTO Continue
  END IF
  LINE (Locx,Locy)-(Locx+65,Locy+83),4,bf
  IF Suit$ = "Puptoes" THEN PUT (Locx+22,Locy+30),Puptoes,PSET
  IF Suit$ = "Hearts" THEN PUT (Locx+22,Locy+30),Hearts,PSET
  IF Suit$ = "Dimonds" THEN PUT (Locx+22,Locy+30),Dimonds,PSET
  IF Suit$ = "Spades" THEN PUT (Locx+22,Locy+30),Spades,PSET
  IF Suit$ = "Spades" OR Suit$ = "Puptoes" THEN COLOR 5,4
  IF Suit$ = "Hearts" OR Suit$ = "Dimonds" THEN COLOR 3,4
  LOCATE Cy,Cx
  IF Card = 1 OR Card = 11 OR Card = 12 OR Card = 13 THEN
    IF Card = 1 THEN PRINT " A"
    IF Card = 11 THEN PRINT " J"
    IF Card = 12 THEN PRINT " Q"
    IF Card = 13 THEN PRINT " K"
  ELSE
    PRINT Card
  END IF
  COLOR 5,5
  LINE (Locx,Locy)-(Locx+65,Locy+83),5,b
  COLOR 4,4
  Continue:
  IF Dbl = True THEN Stand = True
  COLOR 4,5
  IF Numcard < 4 AND Hit = False THEN GOTO Rand
  GOSUB Printtotal

  IF Numcard = 13 THEN
    Text1$ = "Gioca"
    Text2$ = "Punta"
    GOSUB Whowins
    GOTO Drawbox
  END IF
  IF Numcard = 7 AND Yourtotal < 22 THEN
    Text1$ = "Gioca"
    Text2$ = "Punta"
    GOSUB Whowins
    GOTO Drawbox
  END IF
  IF Yourtotal > 21 THEN GOSUB Whowins
  IF Numcard = 4 AND Yourtotal = 21 THEN
    Text1$ = "Gioca"
    Text2$ = "Punta"
    GOSUB Whowins
    GOTO Drawbox
  END IF
  IF Stan = True AND Dealertotal < 17 THEN GOTO Rand
  IF Stan = True AND Dealertotal > 16 OR Loose = True OR Win = True THEN 
    Text1$ = "Gioca"
    Text2$ = "Punta"
    GOSUB Whowins
    GOTO Drawbox
  END IF
  IF Stan = False THEN
    Text1$ = " Vai "
    Text2$ = "Resta"
    Text3$ = " x 2 "
  END IF
  GOTO Drawbox

Nextgame:
  MENU ON
  COLOR 0,0
  LINE (0,0)-(249,90),0,bf
  LINE (0,115)-(249,200),0,bf
  LINE (0,90)-(120,110),0,bf
  Numcard = 0
  Yourtotal = 0
  Dealertotal = 0
  Hit = False
  Stan = False
  Win = False
  Loose = False
  DealerA = 0
  YourA = 0
  Gs = False
  IF Dbll = True THEN Bet = Bet*.5
  Db = False
  Dbl = False
  Dbll = False
  IF Cardcount > 20 THEN GOSUB Shuffel
  GOSUB Printgrub
  IF Grubstake < 1 THEN GOTO Seeyou
  GOTO Rand
  
END

Wherecard:
  IF Subtotal > 10 THEN Subtotal = 10
  IF Subtotal = 1 THEN Subtotal = 11
  IF Stan = True THEN
    IF Numcard > 9 THEN
      Locx = Locx + 40
      Cx = Cx + 5
      IF Subtotal = 11 THEN DealerA = DealerA + 1
      Dealertotal = Dealertotal + Subtotal
      IF Dealertotal > 21 AND DealerA > 0 THEN
        Dealertotal = Dealertotal - 10
        DealerA = DealerA - 1
      END IF  
    ELSE
      Locx = 50
      Locy = 2
      Cx = 7
      Cy = 2
      IF Numcard < 10 THEN Numcard = 10
      Card = Holdcard
      Hit = False
    END IF
  END IF
  IF Hit = True THEN
    IF Numcard = 5 THEN
      Locx = 90
      Locy = 115
      Cx = 12
      Cy = 16
      IF Subtotal = 11 THEN YourA = YourA + 1
      Yourtotal = Yourtotal + Subtotal
      IF Yourtotal > 21 AND YourA > 0 THEN
        Yourtotal = Yourtotal - 10
        YourA = YourA - 1
      END IF
    ELSE
      Locx = Locx + 40
      Cx = Cx + 5
      IF Subtotal = 11 THEN YourA = YourA + 1
      Yourtotal = Yourtotal + Subtotal
      IF Yourtotal > 21 AND YourA > 0 THEN
        Yourtotal = Yourtotal - 10
        YourA = YourA - 1
      END IF  
    END IF
  END IF
  IF Numcard = 1 THEN
    Locx = 0
    Locy = 2
    Cx = 1
    Cy = 2
    IF Subtotal = 11 THEN DealerA = DealerA + 1
    Dealertotal = Subtotal
    IF Dealertotal > 21 AND DealerA > 0 THEN 
      Dealertotal = Dealertotal - 10
      DealerA = DealerA - 1
    END IF
  END IF
  IF Numcard = 2 THEN
    Locx = 0
    Locy = 115
    Cy = 16
    IF Subtotal = 11 THEN YourA = YourA + 1
    Yourtotal = Subtotal
    IF Yourtotal > 21 AND YourA > 0 THEN
      Yourtotal = Yourtotal - 10
      YourA = YourA - 1
    END IF
  END IF
  IF Numcard = 3 THEN
    Locx = 50
    Locy = 2
    IF Subtotal = 11 THEN DealerA = DealerA + 1
    Dealertotal = Dealertotal + Subtotal
    IF Dealertotal > 21 AND DealerA > 0 THEN
      Dealertotal = Dealertotal - 10
      DealerA = DealerA - 1
    END IF
  END IF
  IF Numcard = 4 THEN
    Locx = 50
    Locy = 115
    Cx = 7
    Cy = 16
    IF Subtotal = 11 THEN YourA = YourA + 1
    Yourtotal = Yourtotal + Subtotal
    IF Yourtotal > 21 AND YourA > 0 THEN
      Yourtotal = Yourtotal - 10
      YourA = YourA - 1
    END IF
  END IF
  RETURN
  
Shuffel:
COLOR 4,0
  LOCATE 8,10
  PRINT "M E S C O L O"
  COLOR 5,0
  LOCATE 9,11
  PRINT "M E S C O L O"
  FOR x = 0 TO 52
    SOUND 400,.08,100,0
    Cards(x) = 0
    FOR ss = 1 TO 10
    NEXT ss
  NEXT x
  Cardcount = 0
  COLOR 0,0
  LINE (0,0)-(249,90),0,bf
  LINE (0,115)-(249,200),0,bf
  LINE (0,90)-(128,110),0,bf

RETURN

Drawbox:
  IF Numcard < 5 AND Newgame = False THEN
    Newgame = True
    COLOR 5,5
    LINE (255,97)-(311,185),5,bf
    COLOR 2,2
    LINE (250,92)-(306,180),2,bf
    COLOR 3,3
    LINE (250,92)-(306,180),3,b
    COLOR 5,5
    LINE (251,93)-(305,93),5
    LINE (251,93)-(251,179),5
  END IF
  Bx = 253
  By = 102
  C = 3
  GOSUB Box
  LOCATE 14,33
  PRINT Text1$
  By = 126
  GOSUB Box
  LOCATE 17,33
  PRINT Text2$
  IF Db = False THEN
    Db = True
    By = 150
    GOSUB Box
    LOCATE 20,33
    PRINT Text3$
  END IF
  COLOR 4,4
  GOSUB Checkmouse

RETURN

Box:
  COLOR 5,5
  LINE (Bx+5,By+5)-(Bx+50,By+16),5,bf
  COLOR C,C
  LINE (Bx,By)-(Bx+45,By+11),C,bf
  COLOR 7,7
  LINE (Bx,By)-(Bx+45,By+11),7,b
  COLOR 5,5
  LINE (Bx+1,By+1)-(Bx+44,By+1),5
  LINE (Bx+1,By+1)-(Bx+1,By+10),5
  COLOR 7,3
RETURN

Checkmouse:
  GOSUB Trashit
  Mx = 0
  My = 0
  B1x = 248
  B1y = 102
  B2x = 248
  B2y = 127
  B3x = 248
  B3y = 150
  IF Dbl = True AND Loose = False THEN GOTO DoubleDown
  IF MOUSE(0)=0 THEN Checkmouse
  Mx = ABS(x-MOUSE(1))
  My = ABS(y-MOUSE(2))
  IF Mx > B1x AND Mx < B1x + 45 AND My > B1y AND My < B1y + 11 THEN
    SOUND 400,1,100,0
    Bx = 544
    By = 102
    C = 7
    GOSUB Box
    GOSUB Trashit
    IF Stan = True OR Loose = True OR Win = True THEN GOTO Nextgame
    GOTO Hitme
  END IF
  IF Mx > B2x AND Mx < B2x + 45 AND My > B2y AND My < B2y + 11 THEN
DoubleDown:  
    SOUND 400,1,100,0
    Dbl = False
    IF Stan = True OR Loose = True THEN GOTO Changebet
    Bx = 544
    By = 126
    C = 7
    GOSUB Box
    GOSUB Trashit
    GOTO Stand
  END IF  
  IF Mx > B3x AND Mx < B3x + 45 AND My > B3y AND My < B3y + 11 AND Numcard < 5 AND Yourtotal <21 THEN
    SOUND 400,1,100,0
    Dbll = True
    Dbl = True
    Bet = Bet + Bet
    GOTO Hitme
  END IF
  GOSUB Trashit
  GOTO Checkmouse
  
Trashit:
  FOR x = 1 TO 5
  trash = MOUSE(0)
  trash = ABS(x-MOUSE(1))
  trash = ABS (y-MOUSE(2))
  NEXT x
  RETURN
  
Hitme:
  Hit = True
  COLOR 2,2
  LINE (253,150)-(303,166),2,bf
  GOTO Rand
  
Stand:
  Stan = True
  COLOR 2,2
  LINE (253,150)-(303,166),2,bf
  GOTO Drawcard
  
Whowins:
  IF Numcard = 13 AND Dealertotal < 22 THEN
    GOSUB Youloose
    Loose = True
    GOSUB Grubstuff
    RETURN
  END IF
  IF Numcard = 13 AND Dealertotal > 21 THEN
    GOSUB Youwin
    Win = True
    GOSUB Grubstuff
    RETURN
  END IF
  IF Numcard = 4 AND Yourtotal = 21 AND Dealertotal = 21 THEN
    GOSUB Youloose
    Loose = True
    GOSUB Grubstuff
    RETURN
  END IF
  IF Numcard = 7 AND Yourtotal < 22 THEN
    GOSUB Youwin
    Win = True
    Stan = True
    Dealertotal = 17
    GOSUB Grubstuff
    RETURN
  END IF
  IF Numcard = 4 AND Yourtotal = 21 AND Dealertotal < 21 THEN
    GOSUB Youwin
    Win = True
    Stan = True
    Numcard = 13
    Grubstake = Grubstake + (Bet/2)
    GOSUB Grubstuff
    RETURN
  END IF
  IF Stan = True AND Yourtotal = Dealertotal THEN
    GOSUB Youloose
    Loose = True
    GOSUB Grubstuff
    RETURN
  END IF
  IF Yourtotal > 21 THEN
    GOSUB Youloose
    Loose = True
    GOSUB Grubstuff
    RETURN
  END IF
  IF Yourtotal < 22 AND Dealertotal <22 AND Dealertotal > Yourtotal THEN
    GOSUB Youloose
    Loose = True
    GOSUB Grubstuff
  END IF
  IF Yourtotal < 22 AND Dealertotal > 21 THEN
    GOSUB Youwin
    Stan = True
    Win = True
    GOSUB Grubstuff
  END IF
  IF Yourtotal < 22 AND Dealertotal < 22 AND Dealertotal < Yourtotal THEN
    GOSUB Youwin
    Win = True
    Stan = True
    GOSUB Grubstuff
  END IF
RETURN

Grubstuff:
  IF Gs = False THEN
    IF Loose = True THEN Grubstake = Grubstake - Bet
    IF Win = True THEN Grubstake = Grubstake + Bet
    Gs = True
  END IF    
RETURN

Youwin:
    Winc = 7
    Loosec = 3
    Wintext$ = "Hai vinto!"
    GOSUB Printwin
RETURN

Youloose:
    Winc = 5
    Loosec = 2
    Wintext$ ="Hai perso"
    GOSUB Printwin
RETURN

Printgrub:
  IF Newgame = False THEN
    COLOR 5,5
    LINE (255,15)-(311,65),5,bf
    COLOR 2,2
    LINE (250,10)-(306,60),2,bf
    COLOR 3,3
    LINE (250,10)-(306,60),3,b
    COLOR 5,5
    LINE (251,11)-(305,11),5
    LINE (251,11)-(251,59),5
    COLOR 4,2
    LOCATE 3,33
    PRINT "Totale"
    LOCATE 6,33
    COLOR 4,2
    PRINT "Piatto"
  END IF
  COLOR 4,2
  LOCATE 4,33
  PRINT USING "$#####";Grubstake
  LOCATE 7,34
  PRINT USING "$###"; Bet
RETURN

Changebet:
  MENU OFF
  COLOR 2,2
  LINE (252,120)-(304,175),2,bf
  COLOR 5,5
  LINE (70,62)-(210,91),5,bf
  LINE (70,62)-(205,110),5,bf
  LINE (70,106)-(210,143),5,bf
  COLOR 2,2
  LINE (50,52)-(190,133),2,bf
  COLOR 3,3
  LINE (50,52)-(190,133),3,b
  LINE (52,134)-(192,134),3
  LINE (54,135)-(194,135),3
  LINE (194,135)-(194,54),3
  LINE (191,133)-(191,53),3
  LINE (193,134)-(193,54),3
  LINE (192,134)-(192,53),3
  COLOR 5,5
  LINE (52,53)-(52,132),5
  LINE (52,53)-(189,53),5
  COLOR 7,7
  LINE (80,85)-(155,97),7,bf
  COLOR 3,3
  LINE (80,85)-(155,97),3,b
  COLOR 5,5
  LINE (82,98)-(157,98),5
  LINE (157,98)-(157,86),5
  LINE (81,86)-(154,86),5
  LINE (81,86)-(81,96),5
  LINE (105,67)-(127,77),5,bf
  LINE (95,115)-(137,125),5,bf
  COLOR 3,3
  LINE (100,62)-(122,72),3,bf
  LINE (90,110)-(132,120),3,bf
  COLOR 7,7
  LINE (100,62)-(122,72),7,b
  LINE (90,110)-(132,120),7,b
  COLOR 5,5
  LINE (101,63)-(121,63),5
  LINE (91,111)-(131,111),5
  LINE (101,63)-(101,71),5
  LINE (91,111)-(91,119),5
  COLOR 7,3
  LOCATE 9,14
  PRINT "SU"
  LOCATE 15,13
  PRINT "GIU'"
 Mmouse:
  COLOR 2,7
  IF Changetotal = False THEN
    LOCATE 12,12
    PRINT USING "$$###";Bet
  END IF
  IF Changetotal = True THEN
    LOCATE 12,12
    PRINT USING "$$#####";Grubstake
  END IF
  GOSUB Trashit
  IF MOUSE(0)=0 THEN Mmouse
  Mx = ABS(x-MOUSE(1))
  My = ABS(y-MOUSE(2))
  IF Mx > B1x AND Mx < B1x + 65 AND My > B1y AND My < B1y + 11 THEN
    COLOR 0,0
    Numcard = 0
    LINE (0,0)-(230,200),0,bf
    Cmx = True
    Changetotal = False
    GOSUB Printtotal
    GOTO Nextgame
  END IF
  IF Mx> 92 AND Mx < 120 AND My > 62 AND My < 72 THEN
    SOUND 440,.5,100,0
    IF Changetotal = False THEN
      Bet = Bet + 5
      IF Bet > 500 THEN Bet = 500
    END IF
    IF Changetotal = True THEN
      Grubstake = Grubstake + 10
      IF Grubstake > 5000 THEN Grubstake = 5000
    END IF
    GOTO Mmouse
  END IF
  IF Mx > 82 AND Mx < 130 AND My > 110 AND My < 120 THEN
    SOUND 440,.5,100,0
    IF Changetotal = False THEN
      Bet = Bet - 5
      IF Bet < 10 THEN Bet = 10
    END IF
    IF Changetotal = True THEN
      Grubstake = Grubstake - 10
      IF Grubstake < 10 THEN Grubstake = 10
    END IF
    GOTO Mmouse
  END IF
  GOTO Mmouse

Checkmenu:
  MenuId=MENU(0)
  MenuItem=MENU(1)
  IF MenuId = 4 AND MenuItem = 1 THEN
    Changetotal = True
    GOTO Changebet
  END IF
  IF MenuId = 4 AND MenuItem = 2 THEN GOTO Changebet
  IF MenuId = 3 AND MenuItem = 1 THEN
    Cheat = True
    GOTO Nextgame
  END IF
  IF MenuId = 1 AND MenuItem = 1 THEN 
    Endgame = True
    GOSUB Please
    SYSTEM
  END IF
  IF MenuId = 2 AND MenuItem = 1 THEN
Please:   
    WINDOW 3,,(0,0)-(245,80),0,1
    COLOR 2,2
    PAINT (1,1),2
    COLOR 7,2
    PRINT 
    GOSUB Trashit
    menumouse:
    IF MOUSE(0)=0 THEN GOTO menumouse
      WINDOW CLOSE 3
      IF Endgame = True THEN RETURN
      GOTO Nextgame
  END IF
  RETURN
  
Printtotal:
  IF Numcard < 5 AND Cmx = True THEN
    Cmx = False
    COLOR 5,5
    LINE (140,97)-(245,110),5,bf
    COLOR 2,2
    LINE (135,92)-(240,105),2,bf
    COLOR 3,3
    LINE (135,92)-(240,105),3,b
    COLOR 5,5
    LINE (136,93)-(239,93),5
    LINE (136,93)-(136,104),5  
  END IF
  COLOR 4,2
  LOCATE 13,19
  PRINT "Tu hai" Yourtotal
  IF Cheat = True THEN
    LOCATE 11,34     '               DELETE THIS******
    PRINT Dealertotal'
  END IF
RETURN 

Printwin:
  COLOR 5,5
  LINE (17,97)-(115,110),5,bf
  COLOR Loosec,Loosec
  LINE (12,92)-(110,105),Loosec,bf
  COLOR 7,7
  LINE (12,92)-(110,105),7,b
  COLOR 5,5
  LINE (13,93)-(109,93),5
  LINE (13,93)-(13,104),5 
  COLOR Winc,Loosec
  LOCATE 13,4
  PRINT Wintext$
RETURN

Seeyou:
  COLOR 0,0
  CLS
  COLOR 4,0
  PRINT
  PRINT
  PRINT "        Hai finito tutti i soldi!"
  PRINT "        Il totale e'";
  PRINT USING "$####"; Grubstake
  PRINT "        Grazie di tutto!!!"
  COLOR 6,0
  PRINT
  PRINT "          B L A C K J A C K"
  PRINT
  COLOR 5,0
  PRINT "        Ritorna presto."
  FOR x = 1 TO 30000
  NEXT x
  Endgame = True
  GOSUB Please
  SYSTEM
title:
  PAINT (1,1),1
  LOCATE 3,4
  COLOR 4,1
  PRINT "B L A C K J A C K"
  LOCATE 4,5
  PRINT "B L A C K J A C K"
  LOCATE 11,10 
  LOCATE 20,9
  COLOR 6,1
  PRINT "Premere il tasto sinistro"
  LOCATE 21,9
  PRINT "del mouse per continuare.
  LOCATE 24,14 
  LINE (165,45)-(230,130),6,bf
  LINE (238,45)-(303,130),6,bf
  LOCATE 7,22
  COLOR 2,6
  PRINT "A"
  COLOR 0,6
  LOCATE 7,31
  PRINT "J"
  LINE (247,53)-(294,123),0,b
  LINE (262,54)-(285,57),2,bf
  LINE (284,58)-(282,62),0
  LINE (280,61)-(277,62),0 'eye
  LINE (277,62)-(280,63),0
  PSET (280,62),3
  LINE (282,62)-(286,66),0
  LINE (286,66)-(283,67),0
  LINE (283,67)-(282,70),0
  LINE (280,69)-(282,69),0 'mouth
  LINE (282,70)-(283,71),0
  LINE (283,71)-(281,73),0
  LINE (281,73)-(270,71),0
  FOR x = 0 TO 10
    LINE (262+x,58)-(260+x,74),5
  NEXT x
  LINE (278,73)-(286,78),3
  LINE (278,73)-(278,90),3
  LINE (278,90)-(280,90),3
  LINE (280,90)-(286,78),3
  PAINT (279,89),3
  LINE (265,75)-(265,90),3
  LINE (265,75)-(259,75),3
  LINE (265,90)-(263,90),3
  LINE (263,90)-(257,78),3
  LINE (257,78)-(259,75),3
  PAINT (260,80),3
  LINE (287,79)-(293,82),2
  LINE (293,82)-(293,86),2
  LINE (287,79)-(285,83),2
  LINE (285,83)-(293,86),2
  PAINT (290,84),2
  LINE (283,87)-(293,90),2
  LINE (281,91)-(293,94),2
  LINE (283,87)-(281,91),2
  LINE (293,90)-(293,94),2
  PAINT (290,92),2
  LINE (256,79)-(247,83),2
  LINE (256,79)-(258,83),2
  LINE (248,83)-(248,87),2
  LINE (248,87)-(258,83),2
  PAINT (250,85),2
  LINE (260,87)-(248,91),2
  LINE (262,91)-(248,95),2
  LINE (260,87)-(262,91),2
  LINE (248,91)-(248,95),2
  PAINT (250,93),2
  CIRCLE (272,82),3,0,,,Asp
  PAINT (272,82),0
  CIRCLE (272,82),2,7,,,Asp ' amulet
  LINE (262,92)-(281,94),0,bf
  LINE (262,95)-(281,120),3,b
  CIRCLE (268,110),3,0,,,Asp
  CIRCLE (276,110),3,0,,,Asp
  LINE (272,100)-(277,108),0
  LINE (272,100)-(267,108),0
  LINE (272,111)-(270,117),0
  LINE (272,111)-(274,117),0
  LINE (274,117)-(270,117),0
  PAINT (272,115),0
  PAINT (268,110),0
  PAINT (276,110),0
  PAINT (272,104),0
  LINE (198,77)-STEP(-8,8),2
  LINE STEP(0,0)-STEP(8,8),2
  LINE STEP(0,0)-STEP(8,-8),2
  LINE STEP(0,0)-STEP(-8,-8),2
  PAINT (200,80),2
  PALETTE 0,0,0,0
  PALETTE 1,.5,.5,.5
  PALETTE 2,.7,0,0
  PALETTE 3,0,0,1
  PALETTE 5,.7,.7,0
  PALETTE 6,1,1,1
  PSET (75,96),7
  PSET (76,96),7
Here:
  x = x + .01
  IF x > 1 THEN x = 0
  PALETTE 4,x,x,x
  PALETTE 7,RND,RND,RND
  IF MOUSE(0) = 0 THEN GOTO Here
  GOSUB Cdown
  COLOR 0,0
  CLS
RETURN
Drawit:
  '**********Puptoes**
  LINE (0,0)-(20,20),4,bf
  CIRCLE (10,5),3,5,,,Asp
  CIRCLE (6,10),3,5,,,Asp
  CIRCLE (14,10),3,5,,,Asp
  CIRCLE (10,9),2,5,,,Asp
  LINE (10,10)-(8,17),5
  LINE (8,17)-(12,17),5
  LINE (12,17)-(10,10),5
  PAINT (10,5),5
  PAINT (7,10),5
  PAINT (13,10),5
  PAINT (10,9),5
  PAINT (10,14),5
  RETURN
Dimonds:
  CLS
 '***********Dimonds**
  LINE (0,0)-(20,20),4,bf
  LINE (10,3)-(4,9),3
  LINE (10,3)-(16,9),3
  LINE (16,9)-(10,15),3
  LINE (4,9)-(10,15),3
  PAINT (8,10),3
RETURN
Spades:
  CLS
  '************Spades**
  LINE (0,0)-(20,20),4,bf
  CIRCLE (8,10),3,5,,,Asp
  CIRCLE (12,10),3,5,,,Asp
  LINE (10,10)-(8,17),5
  LINE (8,17)-(12,17),5
  LINE (12,17)-(10,10),5
  LINE (10,4)-(6,8),5
  LINE (10,4)-(14,8),5
  PAINT (8,10),5
  PAINT (12,10),5
  PAINT (10,15),5
  PAINT (10,5),5
  LINE (7,7)-(13,10),5,bf
RETURN
Hearts:
  CLS
 '***********Hearts
  LINE (0,0)-(20,20),4,bf
  CIRCLE (13,7),3,3,,,Asp
  CIRCLE (7,7),3,3,,,Asp
  LINE (4,9)-(10,15),3
  LINE (16,9)-(10,15),3
  PAINT (13,7),3
  PAINT (7,7),3
  PAINT (10,12),3 
RETURN
999 

Cdown:
  FOR x = 0 TO 13
  PALETTE x,0,0,0
  NEXT x
RETURN
  
Cup:
  PALETTE 4,1,.8,.8
  PALETTE 5,0,0,0
  PALETTE 3,1,0,0
  PALETTE 0,0,.3,0
  PALETTE 1,0,.3,0
  PALETTE 2,0,.5,.5
  PALETTE 7,1,1,0
   
RETURN

Pat:
  DIM area.pat%(3)
  area.pat%(0) = &H0
  area.pat%(1) = &H4040
  area.pat%(2) = &HE0E0
  area.pat%(3) = &H4040
  PATTERN &HFFF,area.pat%
RETURN