home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / tvision / redout / reddemo.pas next >
Encoding:
Pascal/Delphi Source File  |  1993-05-01  |  569 b   |  20 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      REDDEMO.PAS                       *)
  3. (*            Umleitung der Standard-Ausgabe              *)
  4. (*            (c) 1993 te-wi Verlag, München              *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM RedDemo;
  7.  
  8. USES RedirOut;
  9.  
  10. BEGIN
  11.   RedOut;
  12.   WriteLn('Error #', Err);
  13.   RedBack;
  14.   WriteLn('Error #', Err);
  15. END.
  16. (* ------------------------------------------------------ *)
  17. (*                  Ende von REDDEMO.PAS                  *)
  18.  
  19.  
  20.