home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0606.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-31  |  558 b   |  19 lines
  1. Program TestEchoDev;
  2. { This is a sample program that is used to test the Echo      }
  3. { device set up in the EchoDev unit.  The EchoDev unit        }
  4. { interfaces a file variable called Echo.  Any writes to this }
  5. { device will be written to both the screen and the printer.  }
  6. Uses
  7.    Crt, EchoDev, Printer;
  8.  
  9. Begin
  10.   ClrScr;
  11.   GotoXY( 10,10 );
  12.   Writeln( 'This is written to the Screen' );
  13.   GotoXY( 10,5 );
  14.   Writeln( Echo, 'This line is written to Screen and Printer' );
  15.   Writeln( LST, 'This is on the printer only.' );
  16.   Readln;
  17. End.
  18.  
  19.