/* */
arg x y .
Numeric Digits 20
"SUBCOM XEDIT"
If rc=0 Then Address XEDIT "COMMAND MSG" d2x(x2d(x)-x2d(y))
Else Say d2x(x2d(x)-x2d(y))