Category : Pascal Source Code
Archive   : FLDIO1.ZIP
Filename : TESTHELP.PAS

 
Output of file : TESTHELP.PAS contained in archive : FLDIO1.ZIP

program TestHelp;

{ This program is used to test a user created help file. It is self- }
{ explanatory when run. If you have an IBM Monochrom Display Adaptor }
{ set the variable 'Hercules' to false before compiling. }

uses
Fieldio,
Crt;

var
key : char;
HelpNum : word;
i : byte;

begin
ClrScr;
StartField := chr (7);
EndField := chr (0);
write ('What is the name of the help file to view? ');
readln (HelpFileName);
write (
'Do you want to display a reference? ');
reference := true;
reference := GetYesNo (37, 2, 3, 0, reference);
writeln;
if reference
then begin
write (
'What is the reference''s description? (Page, Num-, nothing, etc) ');
readln (RefMark);
end;
while true do begin
write ('Enter number of help to display, zero to quit: ');
HelpNum := GetInteger (wherex, wherey, 5, 0, 0, MaxInt, true, true,
HelpNum, key);
writeln; write (
'Press the help key to view the help screen, or press RETurn to continue. ');
if HelpNum > 0
then key := GetChar ([ret], HelpNum)
else halt;
writeln;
end;
end.