Category : Pascal Source Code
Archive   : USNGTP.ZIP
Filename : LN-HELP.INC

procedure Display_Help;
var help_msg : Str_80;
action : Char;

procedure Select_Subject;
begin
Clear_Prompts;
help_msg := 'Accept | Modify | Print | '
+ QUIT_KEY + 'Exit';
Display_Prompt(CMD_LINE,'HLP',help_msg);
Display_Prompt(MSG_LINE,'INP'
,'Press a HLP: key to select subject ==> ');
action := Valid_Key([ACCEPT,MODIFY,PRINT,QUIT]);
end; { Select_Subject }

begin { Display_Help }
Select_Subject;
case action of
ACCEPT : Disp_Help(19,27);
MODIFY : Disp_Help(1,18);
PRINT : Disp_Help(28,36);
QUIT : esc_flag := FALSE;
end {case}
end; { Display_Help }