home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PRNTPROT.ZIP / PRNTSAMP.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-01-28  |  461 b   |  18 lines
  1. program prntsamp;
  2.    {sample program using PRNTPROT}
  3. uses prntprot;
  4.  
  5. var t:text;
  6.  
  7. begin
  8.    writeln('trying to write to LPT1');
  9.    writeln(lst,'hello from LPT1');
  10.    AssignPrt(t,LPT2);
  11.    writeln('trying to write to LPT2');
  12.    writeln(t,'hello from LPT2');
  13.    writeln('IsDeactivated (LPT1)=',IsDeactivated(lst));
  14.    writeln('IsDeactivated (LPT2)=',IsDeactivated(t));
  15.    writeln(lst,'goodbye from LPT1');
  16.    writeln(t,'goodbye from LPT2');
  17. end.
  18.