home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BONUS40.ZIP / LPT.ZIP / TESTLPT.PAS
Encoding:
Pascal/Delphi Source File  |  1988-01-12  |  235 b   |  16 lines
  1. program TestLPT;
  2.  
  3. Uses Crt,Lpt;
  4.  
  5. var
  6.   Ch : Char;
  7.  
  8. begin
  9.   WriteLn(Lst,'Hello LPT1!');
  10.   WriteLn(Lst,'PI = ',PI:8:6);
  11.   Write(Lst,'You picked : ');
  12.   Write('Enter any char : ');
  13.   Ch := ReadKey;
  14.   WriteLn(Lst,Ch);
  15. end.
  16.