%
% translate cton
%
 wireop(
">Backop" log)(
 "Image" empty replall
 "_" empty replall
 dup
 *bsysindd { pop2nd } if
">after" log)(
%
% stack: cton-xlat
%