setscreen ("graphics:819,619")
var font1 : int
var x, y, button : int := 0
var a : int
var cardOne : int := Pic.FileNew ("2-spades.bmp")
var cardTwo : int := Pic.FileNew ("3-clubs.bmp")
var cardThree : int := Pic.FileNew ("4-hearts.bmp")
var cardFour : int := Pic.FileNew ("5-diamonds.bmp")
var cardFive : int := Pic.FileNew ("6-spades.bmp")
var cardSix : int := Pic.FileNew ("7-clubs.bmp")
var cardSeven : int := Pic.FileNew ("8-hearts.bmp")
var cardEight : int := Pic.FileNew ("9-diamonds.bmp")
var cardNine : int := Pic.FileNew ("10-spades.bmp")
var cardTen : int := Pic.FileNew ("jack-clubs.bmp")
var cardEleven : int := Pic.FileNew ("queen-hearts.bmp")
var cardTwelve : int := Pic.FileNew ("king-diamonds.bmp")
var cardThirteen : int := Pic.FileNew ("ace-spades.bmp")
var table : int := Pic.FileNew ("blackjack_table.bmp")
font1 := Font.New ("serif:25:bold")
assert font1 > 0
Pic.Draw (table, 0, 0, picCopy)
loop
    mousewhere (x, y, button)
    drawfillbox (0, maxy, 100, 575, black)
    Font.Draw ("Hit", 25, maxy - 30, font1, white)
    drawfillbox (110, maxy, 210, 575, black)
    Font.Draw ("Stand", 120, maxy - 30, font1, white)
    randint (a, 1, 13)
    case a of
        label 1 :
            Pic.Draw (cardOne, 200, 10, picCopy)
            delay (100)
        label 2 :
            Pic.Draw (cardTwo, 400, 10, picCopy)
            delay (100)
        label 3 :
            Pic.Draw (cardThree, 200, 10, picCopy)
            delay (100)
        label 4 :
            Pic.Draw (cardFour, 400, 10, picCopy)
            delay (100)
        label 5 :
            Pic.Draw (cardFive, 200, 10, picCopy)
            delay (100)
        label 6 :
            Pic.Draw (cardSix, 400, 10, picCopy)
            delay (100)
        label 7 :
            Pic.Draw (cardSeven, 200, 10, picCopy)
            delay (100)
        label 8 :
            Pic.Draw (cardEight, 400, 10, picCopy)
            delay (100)
        label 9 :
            Pic.Draw (cardNine, 200, 10, picCopy)
            delay (100)
        label 10 :
            Pic.Draw (cardTen, 400, 10, picCopy)
            delay (100)
        label 11 :
            Pic.Draw (cardEleven, 200, 10, picCopy)
            delay (100)
        label 12 :
            Pic.Draw (cardTwelve, 400, 10, picCopy)
            delay (100)
        label 13 :
            Pic.Draw (cardThirteen, 200, 10, picCopy)
    end case
    exit when Time.Elapsed > 2000
    if x > 0 and x < 100 and y < maxy and y > 575 and button = 1 then
        cls
    elsif x > 110 and x < 210 and y < maxy and y > 575 and button = 1 then
        cls
    end if
end loop