home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / TP-LA1.LBR / ERRORMSG.INC < prev    next >
Text File  |  2000-06-30  |  640b  |  19 lines
  1. {ERRORMSG.INC}
  2. PROCEDURE Error_Msg (M2, M4 : String80; Line : Integer);
  3.  
  4.     {This procedure outputs a message for errors
  5.  
  6.     Author     : L. L. Smith; 2827 Klusner Ave.; Parma, OH 44134
  7.     Application: CP/M-80, CP/M-86, MS-DOS, PC-DOS}
  8.  
  9.     Const
  10.         M1      : string[9]  = 'Error in ';
  11.         M3      : string[27] = ' value(s), please re-enter ';
  12.     var
  13.         Err_Msg : string[75];
  14.     Begin
  15.         Err_Msg := M1 + M2 + M3 + M4;
  16.         GotoXY(05,Line);
  17.         Write(Err_Msg);
  18.         Delay(2048);
  19.     End; (* Error_Msg *)