//% // Error Halt module // GERR.SR GYPSY version ** //%b // get "LUSERSYMS.SR" //% // Incoming Procedures external [ // outsb; // outcr; //%cb swat; //% ]; // Incoming Statics external [ outstream; ]; // Outgoing Procedures external [ errhlt; errck; ]; // Outgoing Statics external [ ckperr; ckproc; ]; // Local Statics static [ ckperr; ckproc; ]; // Local Structures // Local Manifests manifest [ chcr = #15; ]; // E R R H L T let errhlt(string) be [ // ** outsb("Error: "); // ** outsb(string); // ** outcr(); swat(); ]; // E R R C K and errck(string,perr; numargs N) be [ if N gr 1 then ckperr = perr; // ** outsb("Error check: "); // ** // ** outsb(string); // ** outcr(); swat(); ] // end errck //&5P0,55,83,146,160;00021!#&@