subroutine msgtrim(msg,msglen)

  character*28 msg

! Remove leading blanks
  do i=1,28
     if(msg(1:1).ne.' ') go to 2
     msg=msg(2:)
  enddo

2 do i=28,1,-1
     if(msg(i:i).ne.' ') go to 3
  enddo
  i=1
3 iz=i

! Collapse multiple blanks to one
  ib2=index(msg,'  ')
  if(ib2.eq.0 .or. ib2.eq.iz+1) go to 10
  msg=msg(:ib2-1)//msg(ib2+1:)
  iz=iz-1
  go to 2

! Convert letters to upper case
10 do i=1,22
     if(msg(i:i).ge.'a' .and. msg(i:i).le.'z')                      &
          msg(i:i)= char(ichar(msg(i:i))+ichar('A')-ichar('a'))
  enddo

  do i=28,1,-1
     if(msg(i:i).ne.' ') go to 20
  enddo
  i=28
20  msglen=i

  return
end subroutine msgtrim