home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / packet / kam300 / kam.pas < prev    next >
Pascal/Delphi Source File  |  1988-04-09  |  1KB  |  63 lines
  1. {                           K A M - - C A R
  2.  
  3.     A keyboard terminal program for use with the Kantronics KAM (tm) all
  4.     mode interface in the Cw Ascii Rtty modes.  This program is the  pro-
  5.     duct of W1HKJ, suggestions for improvements are welcomed and should
  6.     be sent to the below address.
  7.  
  8.     (c) Copyright  Dave Freese, W 1 H K J
  9.                    c/o Clermont Computer Consultants
  10.                    29 N. Ravenwood Drive
  11.                    Cape May Court House, NJ  08210
  12.                    (609) 625 0076
  13. }
  14. program KAM;
  15.  
  16. {$R-}    {Range checking off}
  17. {$N-}    {No numeric coprocessor}
  18.  
  19. Uses
  20.   Crt,
  21.   Dos;
  22.  
  23. procedure chk_kbd; forward;
  24. procedure sho_status; forward;
  25. procedure halt_xmt; forward;
  26.  
  27. {$I KAM-TYP.PAS}
  28. {$I KAM-CON.PAS}
  29. {$I KAM-VAR.PAS}
  30. {$I KAM-CLR.PAS}
  31. {$I KAM-FRM.PAS}
  32. {$I KAM-DOS.PAS}
  33. {$I KAM-IO.PAS}
  34. {$I KAM-VID.PAS}
  35. {$I KAM-AUX.PAS}
  36. {$I KAM-LOG.PAS}
  37. {$I KAM-HLP.PAS}
  38. {$I KAM-XMT.PAS}
  39. {$I KAM-RCV.PAS}
  40. {$I KAM-SET.PAS}
  41. {$I KAM-KBD.PAS}
  42.  
  43. begin
  44.   check_video;
  45.   CheckBreak := false;
  46.   save_entry_screen;
  47.   initialize;
  48.   clear_screen;
  49.   repeat
  50.     disp_time;
  51.     if (auto_switch = TRUE) AND (inp_ptr <> out_ptr) then state := transmit;
  52.     case state of
  53.       transmit : xmtg;
  54.       receive  : rcvg;
  55.     end;
  56.     chk_kbd;
  57.   until quit_flag = TRUE;
  58.   update_log;
  59.   reset_date_time;
  60.   reset_kam;
  61.   restore_entry_screen;
  62. end.
  63.