SUBROUTINE SETUP
	IMPLICIT INTEGER(A-Z)
	BYTE STRING
	COMMON/NMRECS/NREC,VREC,FREC
	DO 99 J=1,3
	IF(J.EQ.1)CALL ASSIGN(J,'SY:NOUN.FIL')
	IF(J.EQ.2)CALL ASSIGN(J,'SY:VERB.FIL')
	IF(J.EQ.3)CALL ASSIGN(J,'SY:FRAS.FIL')
	CALL FDBSET(J,'READONLY')
	COUNT=0
10	COUNT=COUNT+1
	READ(J,100,END=20)EPOINT,STRING
100	FORMAT(Q,132A1)
	GOTO 10
20	REWIND J
	IF(J.EQ.1)NREC=COUNT-1
	IF(J.EQ.2)VREC=COUNT-1
	IF(J.EQ.3)FREC=COUNT-1
99	CONTINUE
	RETURN
	END