Procedure Abort(Msg:packed array [lo..Hi:Integer] of Char;
  		Code:Integer
  	);
   EXTERNAL;
{*USER*
 Will abort current program, after printing message and abort code
to file Output. The abort code also becomes the exit status. Note that
this is a 'normal' exit, and no walkback will be produced.
 
Format is :
Program Terminated. Status = xxxx.  <message>
}