%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Solution to A3: A Card Trick,  CSC148H, Summer96
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%   Main code for the 21-card trick
%     written by Phil Edmonds, Jun 20, 1996
%
import
    Trick in "trick.t",
    DeckOfCards in "deck.t",
    Graphics in "graphics.t"

%========================================================

const ITERATIONS := 3

var col : int

% initialize the layout
Trick.Init
Trick.SetUp

locate(23,1)
put "Pick a card, any card..."
for i : 1 .. ITERATIONS

    Trick.LayOut ()

    put ""
    locate (24, 1)
    put "Which column is it in (1,2,3):" ..
    get col

    Trick.PickUp (col)

end for

var foundcard : DeckOfCards.cardType := Trick.FindCard (11)

setscreen ("nocursor")
cls
locate (4, 32)
put "Your card is:"

var where : Graphics.coord
where.x := 300
where.y := 300
DeckOfCards.DisplayCard (foundcard, where)