class Card
    var card : int

    %===========================returnValue========================
    function returnValue : int
        result card mod 13 + 1
    end returnValue

    %============================ReturnSuit========================
    function returnSuit : int
        result (card mod 4) + 3
    end returnSuit
    %==========================ReturnCard===========================
    function returnCard : int
        result card
    end returnCard
    %==========================SetCard==============================
    procedure setCard (intCard : int)
        if intCard >= 1 and intCard <= 52 then
            card := intCard
        end if
    end setCard
    %============================PointValue=========================
    function pointValue : int
        var x : int
        if returnValue = 12 then
            x := 10
        elsif returnValue = 11 then
            x := 10
        elsif returnValue = 13 then
            x := 10
        elsif returnValue = 1 then
            x := 11
        else
            x := returnValue
        end if
        result x
    end pointValue
    %=============================toString=======================
    function toString : string
        var Suit : char
        Suit := chr (returnSuit)
        if returnValue = 1 then
            result "A " + Suit
        elsif returnValue = 11 then
            result "J " + Suit
        elsif returnValue = 12 then
            result "Q " + Suit
        elsif returnValue = 13 then
            result "K " + Suit
        end if
        result intstr (pointValue) + " " + chr (returnSuit)
    end toString

end Card

%--------------------------------------------------------------------------------------------
class Deck

    var card : array 1 .. 52 of int
    var deck : array 1 .. 52 of boolean
    var topCard : int
    var deckCount := 0

    function emptyDeck : boolean
        if deckCount = 52 then
            result true
        else
            result false
        end if
    end emptyDeck

    procedure initializeDeck
        for i : 0 .. 52
            deck (i) := true
        end for
        for x : 0 .. 52
            card (x) := shuffleDeck
        end for
    end initializeDeck

    function shuffleDeck : int
        var x : int
        loop
            x := Rand.Int (1, 51)
            exit when deck (x)
        end loop
        deck (x) := false
        result x
    end shuffleDeck

end Deck