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

%external %routine  RESET OUTPUT
   %if S7_outx ## null %and S7_outx_type = file type %start
      S7_outx_buffp = S7_outx_buffad;   ! Zero buffer
      set EOT (S7_outx_buffad)
      S7_outx_block = 0;    ! FLUSH OUT will recreate temp
   %finish
%end

%end %of %file