procedure help;
begin
  save_screen;
  case vid_type of
    0 : mono_screen := help_scr;
    1 : color_screen := help_scr;
  end;
  viewing_help := TRUE;
  help_color;
  gotoxy(40,24);
  repeat until keypressed;
  if viewing_help then
  begin
    restore_screen;
    viewing_help := FALSE;
  end;
end;

procedure qsignals;
begin
  save_screen;
  case vid_type of
    0 : mono_screen := qsig_scr;
    1 : color_screen := qsig_scr;
  end;
  help_color;
  gotoxy(40,24);
  wait_for_key;
  restore_screen;
end;

procedure rst;
begin
  save_screen;
  case vid_type of
    0 : mono_screen := rst_scr;
    1 : color_screen := rst_scr;
  end;
  help_color;
  gotoxy(40,24);
  wait_for_key;
  restore_screen;
end;