home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / turbo5 / error.pas < prev    next >
Pascal/Delphi Source File  |  1988-10-09  |  300b  |  22 lines
  1.  
  2. { Copyright (c) 1985, 88 by Borland International, Inc. }
  3.  
  4. unit Error;
  5. { Sample unit for CIRCULAR.PAS }
  6.  
  7. interface
  8.  
  9. procedure ShowError(Msg : string);
  10.  
  11. implementation
  12.  
  13. uses
  14.   Crt, Display;
  15.  
  16. procedure ShowError(Msg : string);
  17. begin
  18.   WriteXY(1, 25, 'Error: ' + Msg);
  19. end;
  20.  
  21. end.
  22.