home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / turbopas / bonus507.arc / LPT.ARC / TESTLPT.PAS < prev   
Pascal/Delphi Source File  |  1988-01-12  |  235b  |  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.