	SUBROUTINE BSQZ (BUF,IMAX,ILEN)
C	SQUEEZE THE BLANKS OUT OF BUF AND RETURN THE NUMBER
C	OF NONBLANK CHARACTERS IN ILEN
C
C	BUF	CHARACTER BUFFER TO HAVE BLANKS REMOVED
C	IMAX	INCOMING LENGTH OF STRING
C	ILEN	RETURNED LENGTH OF STRING W/O BLANKS
C
	IMPLICIT BYTE (B), LOGICAL*1 (L)
	DIMENSION BUF(IMAX)
	ILEN = 0
	DO 100 I=1,IMAX
	  IF (BUF(I) .EQ. ' ')  GOTO 100
	  ILEN = ILEN + 1
	  BUF(ILEN) = BUF(I)
100	  CONTINUE
	IF (ILEN .EQ. IMAX) RETURN
	DO 200 I=ILEN+1,IMAX
200	BUF(I) = ' '
	RETURN
	END
