SUBROUTINE STRPAD(STRING,LEN)
C........PADS STRING OF LENGTH LEN WITH TRAILING BLANKS
         BYTE STRING(LEN)
         ICNT=LEN
         DO 10 I=LEN,1,-1
         IF (STRING(I).NE."0) GOTO 20
         ICNT=LEN-1
  10   CONTINUE
  20     DO 30 I=ICNT,LEN
         STRING(I)="40
  30     CONTINUE
         RETURN
         END