%include "CONSTS"
%include "FORMS"
%include "SEG7"
%include "PROCS"

%control 0

%external %routine  PRINT SYMBOL (%integer sym)
   %if S7_outx ## null %start
      byteinteger (S7_outx_buffp) = sym
      S7_outx_buffp = S7_outx_buffp + 1
      flush out %if (S7_outx_type = char type %and sym = nl) %or
                     S7_outx_buffp = S7_outx_ebp
   %finish
%end

%end %of %file