Function Direrr(str:packed array [lo..hi:integer] of char;
  		code:integer):Boolean;
   EXTERNAL;
{*USER*
 If code < 0, returns TRUE and prints error message on Input.
If code >=0, returns FALSE, and does nothing else.
}