home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMPLTPAS.ZIP / PRINTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-12-15  |  261 b   |  15 lines
  1. PROGRAM PrintTest;
  2.  
  3. USES Printer;
  4.  
  5. VAR
  6.   PrintDevice : Text;
  7.  
  8. BEGIN
  9.   Assign(PrintDevice,'LPT1');
  10.   Rewrite(PrintDevice);
  11.  
  12.   Writeln(Printdevice,'This text will now appear on the printer.');
  13.   Writeln(LST,'This will too, and it''s easier!')
  14. END.
  15.