{                                 C A R P

    A keyboard terminal program for use with the Kantronics KAM (tm) all
    mode interface in the Cw Ascii Rtty Packet modes.  This program is the
    product of W1HKJ, suggestions for improvements are welcomed and should
    be sent to the below address.

    (c) Copyright  Dave Freese, W 1 H K J
                   c/o Clermont Computer Consultants
                   29 N. Ravenwood Drive
                   Cape May Court House, NJ  08210
                   (609) 625 0076
}
program KAM;

{$R-}    {Range checking off}
{$N-}    {No numeric coprocessor}

Uses
  Crt,
  Dos,
  DBF4,         { .            }
  INDEX4,       {   .          }
  SAYGET4,      {     .        }
  BROWSE4,      {  TOPAZ UNITS }
  TIMEDATE,     {         .    }
  PICK,         {           .  }
  VIDPOP;       {             .}

procedure chk_kbd; forward;
procedure sho_status; forward;
procedure halt_xmt; forward;

{$I KAM-TYP.PAS}
{$I KAM-CON.PAS}
{$I KAM-VAR.PAS}
{$I KAM-CLR.PAS}
{$I KAM-DOS.PAS}
{$I KAM-LOG.PAS}
{$I KAM-IO.PAS}
{$I KAM-VID.PAS}
{$I KAM-AUX.PAS}
{$I KAM-HLP.PAS}
{$I KAM-XMT.PAS}
{$I KAM-RCV.PAS}
{$I KAM-SET.PAS}
{$I KAM-KBD.PAS}

begin
  check_video;
{  CheckBreak := false; }
  save_entry_screen;
  initialize;
  clear_screen;
  repeat
    disp_time;
    case state of
      transmit   : xmtg;
      receive    : rcvg;
      transceive : begin
                     xmtg;
                     rcvg;
                   end;
    end;
    chk_kbd;
  until quit_flag = TRUE;
  CloseDataBases;
  reset_date_time;
  reset_kam;
  restore_entry_screen;
end.
