home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / packet / kam300 / kam-hlp.pas < prev    next >
Pascal/Delphi Source File  |  1988-03-29  |  749b  |  44 lines
  1. procedure help;
  2. begin
  3.   save_screen;
  4.   case vid_type of
  5.     0 : mono_screen := help_scr;
  6.     1 : color_screen := help_scr;
  7.   end;
  8.   viewing_help := TRUE;
  9.   help_color;
  10.   gotoxy(40,24);
  11.   repeat until keypressed;
  12.   if viewing_help then
  13.   begin
  14.     restore_screen;
  15.     viewing_help := FALSE;
  16.   end;
  17. end;
  18.  
  19. procedure qsignals;
  20. begin
  21.   save_screen;
  22.   case vid_type of
  23.     0 : mono_screen := qsig_scr;
  24.     1 : color_screen := qsig_scr;
  25.   end;
  26.   help_color;
  27.   gotoxy(40,24);
  28.   wait_for_key;
  29.   restore_screen;
  30. end;
  31.  
  32. procedure rst;
  33. begin
  34.   save_screen;
  35.   case vid_type of
  36.     0 : mono_screen := rst_scr;
  37.     1 : color_screen := rst_scr;
  38.   end;
  39.   help_color;
  40.   gotoxy(40,24);
  41.   wait_for_key;
  42.   restore_screen;
  43. end;
  44.