         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
03/19/86  Jesse Chin                                           <<J2156>>00685100
          F0319 - SR#5000-109439                               <<J2156>>00685200
05/02/86 Jesse Chin SR#5000-105502                             <<J2183>>00685300
  FEOF - Fix EOF handling.                                     <<J2183>>00685400
      IF FCODE > 15 OR XFERCNT > MAXBSIZE AND   << INVALID >>  <<J2156>>05820000
         FCODE <> READFC THEN                                  <<J2156>>05820100
      BEGIN                                                    <<J2183>>07435100
        DITP(DSAVE).BODEOF:=0;                                 <<J2183>>07435200
      END;                                                     <<J2183>>07440100
                  IF < THEN DITP(DSAVE).BODEOF :=1;            <<J2183>>08370000
