home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / POPTEXT.ZIP / POPTXT21.ARC / THLP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-13  |  357 b   |  12 lines
  1. Program THLP;
  2.  
  3. Uses Hyperhlp;
  4. var z:integer;
  5. Begin
  6.   z:=Openhelpfile('POPTEXT.HLP');   {Associates POPTEXT with POPTEXT.hlp}
  7.   if z<>0 then begin
  8.                  Writeln('Error: POPTEXT.HLP Not Found - Aborted');
  9.   PopTextCard(1);                   {Activates Poptext on Card 1}
  10.   z:=CloseHelpfile;                 {De-initializes PopText}
  11. end.
  12.