SUBROUTINE CSTI(STR,IVAL)
	LOGICAL*1 STR(2)
	INTEGER*2 IVAL
	LOGICAL*1 BUF(6)
	CALL LENSTR(STR,LEN)
	IF(LEN.GT.6)GO TO 2000
	DO 1010 I=1,6-LEN
1010	BUF(I)=' '
	DO 1020 I=1,LEN
1020	BUF(I+6-LEN)=STR(I)
	DECODE(6,10,BUF,ERR=2000)IVAL
10	FORMAT(I6)
	RETURN
2000	CALL PLINE('CSTI: ILLEGAL STRING')
	IVAL="100000
	END