INTEGER*4 FUNCTION NBLANK(LINE)
      CHARACTER*(*) LINE
      DO 10 I = LEN(LINE),1,-1
         NBLANK = I
         IF(LINE(I:I).NE.' ')RETURN
10    CONTINUE
      NBLANK = 1
      RETURN
      END
      SUBROUTINE CUPPER(LINE)
      CHARACTER*(*) LINE
      BYTE J
      DO 10 I = 1 , LEN(LINE)
         IF(LINE(I:I).LT.'a')GOTO 10
         IF(LINE(I:I).GT.'z')GOTO 10
         J = ICHAR(LINE(I:I))
         J = J - '40'O
         LINE(I:I) = CHAR(J)
10    CONTINUE
      RETURN
      END
      SUBROUTINE CLOWER(LINE)
      CHARACTER*(*) LINE
      BYTE J
      DO 10 I = 1 , LEN(LINE)
         IF(LINE(I:I).LT.'A')GOTO 10
         IF(LINE(I:I).GT.'Z')GOTO 10
         J = ICHAR(LINE(I:I))
         J = J + '40'O
         LINE(I:I) = CHAR(J)
10    CONTINUE
      RETURN
      END