procedure help;
begin
  save_screen;
  video^ := help_scr;
  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;
  video^ := qsig_scr;
  help_color;
  gotoxy(40,24);
  wait('');
  restore_screen;
end;

procedure rst;
begin
  save_screen;
  video^ := rst_scr;
  help_color;
  gotoxy(40,24);
  wait('');
  restore_screen;
end;