SUBROUTINE STRRES(INPW,INPB,LEN)
C..
C..	RESTORES BINARY STRING TO ALPHA
C..	SAME TO SAME = -1 = INPW
C..	DIFFERENT TO  DIFFERENT (2 ARRAYS = INPW, INPB)
C..
	COMMON/STR/IBLK,IDASH,IPLUS,IZERO,IAYE,I1SIGN,I2SIGN
     1 ,IBASE,LIN,LIN2,INPB1,INP21,NEW(132)
	BYTE INPBX,INPB(1)
	BYTE IBLK,IDASH,IPLUS,IZERO,IAYE,I1SIGN,I2SIGN
     1 ,IBASE,LIN,LIN2,INPB1,INP21
	DIMENSION INPW(1)
C..
C..	RETURN SAME OR DIFFERENT STRING TO ALPHA STRING
C..
C..
C..	CHECK FOR DIFFERENT STRING = 1
C..
	ISAME=0
	IF(INPW(1).GE.0) ISAME=1
	DO 1 I=1,LEN
	IF(ISAME.EQ.0) INPBX=INPB(I)
	IF(ISAME.EQ.1) INPBX=INPW(I)
	INPB(I)=INPBX+IZERO
	IF(INPBX.GE.10) INPB(I)=INPBX-10+IAYE
1	CONTINUE
	INPB(LEN+1)=0
	RETURN
	END