PROCEDURE sayerr(n:integer); EXTERNAL; { Print the error message corresponding to RSTS error number n }