home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / ERROR.INC < prev    next >
Encoding:
Text File  |  1988-01-29  |  112 b   |  9 lines
  1.  
  2. procedure error(msg: anystring);
  3. begin
  4.    writeln;
  5.    writeln(con,whoami,': ',msg);
  6.    halt(1);
  7. end;
  8.  
  9.