C***   VAL


       INTEGER FUNCTION VAL(WORD)

C  RETURNS THE 'VALUE' OF A WORD, MODULO 1000.

       IMPLICIT INTEGER(A-Z)
       VAL=MOD(WORD,1000)
       RETURN
       END
