Anonymous user
$ERR.REX: Difference between revisions
m
added whitespace.
m (added/changed whitespace and comments, simplified some code.) |
m (added whitespace.) |
||
Line 66:
@cpset' EMSG ON' /* " " " error " */
@subcom 'XEDIT' /*see if executing under XEDIT. */
xedit= \rc & \cmsflag('SUBSET')
ufid= a3 a4 a5 /*maybe obtain a fileID for a message. */
end
Line 105:
xedit= (xedit & i>0) /*inside the XEDIT program? */
i= abs(i) /*use the absolute value of I. */
if i<1400 | i>1499 then call erb 99,oi
k= i -
if xedit then address 'XEDIT' "SET MSGM ON LONG" /*allow XEDIT messages to be seen. */
call sy /*display a blank line for the eyeballs*/
| |||