COMMON /GINCOM/ INBUF(80),CURCOL,MAXBUF,STRLEN,WRDLEN
      INTEGER CURCOL,MAXBUF,STRLEN,WRDLEN
      BYTE INBUF