File psl-1983/3-1/tests/mini-io-errors.red artifact cb046f88c3 part of check-in 3519b83598
% 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;