%include "CONSTS"
%include "FORMS"
%include "SEG7"
%include "PROCS"
%external %routine  RESET INPUT
   %if S7_inx ## null %start
      %if S7_inx_type = char type %start
         S7_inx_state = invalid %if S7_inx_state = EOF; ! Clear TTY EOF
      %else
         S7_inx_block = 0
         dir fn (S7_inx, examine);     ! Pick up block #1 again,
         S7_inx_buffp = S7_inx_ebp;    ! and empty the buffer, so
         S7_inx_state = invalid;       ! will need a disk read for input
      %finish
   %finish
%end
%end %of %file