C..  CAPS.FTN   BOHDEN K. CMAYLO     APR 1981
	SUBROUTINE CAPS(LETTER,LENGTH)
C..
C..	THIS ROUTINE TURNS LOWER CASE LETTERS INTO UPPER CASE
C..
	BYTE LETTER(132)
	BYTE LA,LZ,I40
	DATA LA,LZ,I40/'a','z',"040/
C..
C..	DO OVER SIZE
C..
	DO 1 I=1,LENGTH
	IF(LETTER(I).LT.LA.OR.LETTER(I).GT.LZ) GO TO 1
	LETTER(I)=LETTER(I)-I40
1	CONTINUE
	RETURN
	END