home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l044 / 4.ddi / DEMOS.ZIP / ERROR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-23  |  298 b   |  22 lines
  1.  
  2. { Copyright (c) 1985,90 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.