var
   screen1,
   image : array[0..4095] of byte;
   pattern1 : array[0..1407] of byte;
   pattern2 : array[0..1663] of byte;
   old_x, old_y,
   curs_x, curs_y : integer;
   border_attribute : integer;
   mono_video : array[0..3999] of byte absolute $B000:$0000;
   colr_video : array[0..3999] of byte absolute $B800:$0000;

   key, qkey  : char;

   default_file : string[24];
   oldtime : string;

   nbr_calls : integer;
   net_list : net_array;

   new_list : new_array;
   new_pntr : integer;
   comparison : integer;

   call : array[1..13] of integer;
   multiple, call_count : integer;
   testcall : post_str;

   checkins : array[0..200] of check_rec;
   curr_pntr,
   top_pntr,
   mark1,
   mark2       : integer;

   size_of_net : integer;

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

   help_attrib: byte;

   leaving, update_flag : boolean;
