FTN4
      LOGICAL FUNCTION IMBED(IBUF,IBYT,LNBYT),. 92080-1X021 REV.2026
     .800515
C 
C 
C     NAME:   IMBED 
C     SOURCE: &IMBED    92080-18021 
C     BINARY: %IMBED    92080-16001    PART OF  %GPLB4
C 
C     PMGR:   FRANCOIS GAULLIER 
C 
C 
C 
C     **************************************************************
C     * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
C     * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C     * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C     * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
C     **************************************************************
C 
C 
C 
C     ****************************************************************
C     *                                                              *
C     *   THIS FUNCTION FAIL, (RETURN FALSE VALUE) IF NO BLANK       *
C     *   CHARACTER IS IMBEDED IN THE STRING STARTING AT BYTE: IBYT  *
C     *   INTO BUFFER: IBUF, THE STRING LENGTH BEING: LNBYT.         *
C     *   THE LEADING AND TRAILING BLANKS ARE IGNORED.               *
C     *                                                              *
C     ****************************************************************
C 
C 
      DIMENSION IBUF(1) 
      LOGICAL TEXT
C 
      TEXT=.FALSE.
      IMBED=.TRUE.
C-----SET UP THE LOOP FOR (LN-1) BECAUSE INSIDE THE LOOP
C     I+1 IS USED  !!!
      DO 100 I=IBYT,IBYT+LNBYT-2
      K=IGET1(IBUF,I) 
      IF(K .NE. 1H )  TEXT=.TRUE. 
      IF(K.EQ.1H  .AND. IGET1(IBUF,I+1).NE.1H  .AND. TEXT)  RETURN
100   CONTINUE
      IMBED=.FALSE. 
      RETURN
      END 
      END$
                                                                                                      