File psl-1983/3-1/tests/mini-io-errors.red artifact cb046f88c3 part of check-in d9e362f11e

% MINI-IO-ERRORS.RED

Procedure IoError M;
 <<terpri();
   ErrorHeader();
   Prin2t M;
   RDS 0;
   WRS 1;
   NIL>>;

procedure ContOpenError(fil,how);
  IoError List("Cant Open file ",fil," for ",how);

End;