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