home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / BONUS507.ZIP / LPT.ARC / TESTLPT.PAS < prev   
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.