{***************************************************}
{  TAHOE5 -- Tahoe 5 Card Poker                     }
{            Main program                           }
{            for palmtops including Atari Portfolio }
{            Copyright (c) 1992 M. Zack Urlocker    }
{            04/01/92                               }
{***************************************************}

Program Tahoe5;

{ This program plays 5 card video poker.  It consists of four
  different units, each handling a separate part of the game:
    Cards      -- defines generic objects for cards and deck
    Poker      -- defines a poker hand object for dealing, evaluating
    T5APCrt    -- defines a display object that controls the game
                  handles user interaction and displays the cards.
                  On an Atari Portfolio it will use 8x40 otherwise, 16x40.
    Sounds     -- unit used for sounds on Atari Portfolio
}

{$M 4096,0,0}        { Doesn't use any heap }
{$IFDEF Final}       { Remove debug code for final version }
{$D-,I-,L-,R-,S-}
{$ELSE}
{$D+,I+,L+,R+,S+}
{$ENDIF}
 
uses Cards, Poker, T5APCrt;

var Key : Char;
    Display : TDisplay;

begin
 Title;
 Key := GetKeyH;
 Display.Init;       { Display manages the game }
end.