var
   MonoVideo  : video absolute $0B000:$0000;
   ColrVideo  : video absolute $0B800:$0000;
   screen1,
   save_image : video;
   image1     : array[0..4095] of byte;
   image2     : array[0..4095] of byte;
   adapter    : vid_type;

   key, qkey  : char;

   default_file : string[24];

   hour,
   min,
   sec,
   sec100,
   this_second,
   year,
   month,
   day,
   dow,
   time_zone : word;

   contacts : array[0..10] of integer;
   total_contacts,
   my_mult, score    : integer;

   x, y,
   old_x, old_y,
   curs_x, curs_y,
   line_nbr         : integer;

   x_y : array[0..4,0..14] of integer;

   op_mode : mode;
   band    : hamband;

   callsign : string[6];

   fd_file : TEXT;

   escape,
   make_backup,
   auto_section,
   tunes : boolean;