var
   state : machine_state;
   mode  : kam_mode;
   band  : BandType;

   capture : boolean;
   capture_file : file of char;
   capture_file_name : file_type;
   capture_pointer : integer;
   capture_buffer : array[0..2047] of char;

   xmt_wpm, rcv_wpm : str2;

   cw_off_delay,
   xmt_on_delay,
   xmt_off_delay,
   xmt_time_out,
   baud,
   shift,
   xmt_port,
   a_hold, b_hold,
   inp_ptr, out_ptr,
   xout, yout, xkbd, ykbd,
   index, nbr,
   xin, yin,
   curs_x, curs_y,
   int_wpm,
   kam_baud_rate,
   status_line,
   inp_start_line,
   inp_end_line,
   aux_line,
   out_start_line,
   out_end_line,
   lead_attr           : integer;

   packet_mark, packet_space : string;

   xmt_enabled,
   xmt_ON,
   auto_switch,
   rcv_interrupt,
   send_interrupt,
   invert,
   quit_flag,
   stop_flag,
   pause_flag,
   viewing_help,
   rcv_flag : boolean;

   key, qkey,
   out_chr,
   msg_nbr : char;
   kbd_buffer : array[0..buf_size] of char;

   SW_VHF, SW_HF : char;

   msg : array[0..9] of msg_type;
   msg_file_name,
   msg_file_0     : file_type;
   qso_nbr,
   time_zone : integer;
   rcv_buffer : array[0..max_rcv_buffers] of ^msg_type;
   tmpstr : string;
   rcv_cnt : integer;


   image,
   screen1,
   param_scr,
   help_scr,
   qsig_scr,
   rst_scr   : screen;
   mono_screen : screen absolute $0B000:$0000;
   color_screen : screen absolute $0B800:$0000;
   video : ^screen;

   attr_pos : integer;

   b_clr : array[0..5] of integer;
   f_clr : array[0..5] of integer;

   hour, min, year, month, day : integer;

   xmt_attrib,
   rcv_attrib,
   status_attrib,
   prompt_attrib,
   aux_attrib,
   help_attrib: byte;

   old_time : string[5];

   kam_log_file : file_type;

   station : string[30];

   WHERE : string;

   show_line : integer;
   line_count: integer;
   first : integer;
   nlines : integer;

   PKCall : string;