SUBROUTINE STRRD0(INP,LEN)
C..
C..	ROUTINE RIDS '0' S FROM FRONT OF STRING
C..
	COMMON/STR/IBLK,IDASH,IPLUS,IZERO,IAYE,I1SIGN,I2SIGN
     1 ,IBASE,LIN,LIN2,INP1,INP21,NEW(132)
	BYTE IBLK,IDASH,IPLUS,IZERO,IAYE,I1SIGN,I2SIGN
     1 ,IBASE,LIN,LIN2,INP1,INP21,INP(1)
C..
C..	CHECK IF + OR - OR 0 LENGTH
C..
C..	CHECK FOR STRING = 0
C..
	ISTART=1
	IF(INP(1).EQ.IDASH.OR.INP(1).EQ.IPLUS) ISTART=2
	IF(LEN.EQ.1.OR.INP(ISTART).EQ.0) GO TO 10
1	IF(INP(ISTART).NE.IZERO) RETURN
	CALL BYTEDO(INP(ISTART),INP(LEN+1),INP(ISTART+1))
	IF(INP(ISTART).NE.0) GO TO 1
C..
C..	CHECK IF BINARY 0
C..
10	IF(INP(ISTART).NE.0) RETURN
	INP(ISTART)=IZERO
	INP(ISTART+1)=0
	RETURN
	END