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

%external %routine  CLOSE INPUT
   %if S7_instrmx # 0 %and S7_inx ## null %start
      S7_inx_refs = S7_inx_refs - 1
      S7_inx == null
      S7_instrm(S7_instrmx) == null
   %finish
%end

%end %of %file