SUBROUTINE UPCASE ( cmdbuf, lencmd )
C
	CHARACTER*80	cmdbuf
	CHARACTER*1	alphas(26),
     +			alphal(26)
C
	INTEGER*2	lencmd
C
C	 Executable begins here.
C
	DATA		alphas/'a','b','c','d','e',
     +			       'f','g','h','i','j',
     +			       'k','l','m','n','o',
     +			       'p','q','r','s','t',
     +			       'u','v','w','x','y',
     +			       'z'/
	DATA		alphal/'A','B','C','D','E',
     +			       'F','G','H','I','J',
     +			       'K','L','M','N','O',
     +			       'P','Q','R','S','T',
     +			       'U','V','W','X','Y',
     +			       'Z'/
C
C	 Executable begins here.
C
	DO 100 i = 1, lencmd
	    IF ( cmdbuf(i:i) .GE. 'a' .AND.
     +		 cmdbuf(i:i) .LE. 'z' ) THEN
		DO 75 j = 1, 26
		    IF ( cmdbuf(i:i) .EQ. alphas(i) ) THEN
			cmdbuf(i:i) = alphal(i)
			GO TO 76
		    END IF
75		CONTINUE
76		CONTINUE
	    END IF
100	CONTINUE
	RETURN
	END