C***   CLASS


       INTEGER FUNCTION CLASS(WORD)

C  RETURNS WORD CLASS NUMBER (1=MOTION VERB; 2=NOUN; 3=ACTION VERB;
C  4=MISCELLANEOUS WORD; 5=PREPOSITION; 6=ADJECTIVE; 7=CONJUNCTION).


       IMPLICIT INTEGER(A-Z)

       CLASS=WORD/1000 +1
       IF(WORD.LT.0)CLASS=-1
       RETURN
       END