home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FLDIO1.ZIP / TESTHELP.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-02-16  |  1.2 KB  |  45 lines
  1. program TestHelp;
  2.  
  3. {  This program is used to test a user created help file.  It is self-  }
  4. {  explanatory when run.  If you have an IBM Monochrom Display Adaptor  }
  5. {  set the variable 'Hercules' to false before compiling.               }
  6.  
  7. uses
  8.   Fieldio,
  9.   Crt;
  10.  
  11. var
  12.   key : char;
  13.   HelpNum : word;
  14.   i : byte;
  15.  
  16. begin
  17.   ClrScr;
  18.   StartField := chr (7);
  19.   EndField   := chr (0);
  20.   write ('What is the name of the help file to view? ');
  21.     readln (HelpFileName);
  22.   write (
  23. 'Do you want to display a reference? ');
  24.   reference := true;
  25.   reference := GetYesNo (37, 2, 3, 0, reference);
  26.   writeln;
  27.   if reference
  28.     then begin
  29.       write (
  30. 'What is the reference''s description? (Page, Num-, nothing, etc) ');
  31.       readln (RefMark);
  32.       end;
  33.     while true do begin
  34.     write ('Enter number of help to display, zero to quit: ');
  35.     HelpNum := GetInteger (wherex, wherey, 5, 0, 0, MaxInt, true, true,
  36.                            HelpNum, key);
  37.     writeln; write (
  38. 'Press the help key to view the help screen, or press RETurn to continue.  ');
  39.     if HelpNum > 0
  40.         then key := GetChar ([ret], HelpNum)
  41.           else halt;
  42.       writeln;
  43.         end;
  44.   end.
  45.