home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 08 / tricks / testd.pas < prev   
Pascal/Delphi Source File  |  1990-07-05  |  486b  |  14 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     TESTD.PAS                          *)
  3. (* ------------------------------------------------------ *)
  4. PROGRAM TestDrucker;
  5.  
  6. USES Drucker;
  7.  
  8. BEGIN
  9.   IF prn_ready THEN WriteLn(LST, ' Alles klar! ')
  10.                ELSE WriteLn(' Drucker nicht bereit! ');
  11. END {TestDrucker}.
  12. (* ------------------------------------------------------ *)
  13. (*                 Ende von TESTD.PAS                     *)
  14.