SUBROUTINE GET(FDB,BLKNUM,DCTWRD,NUMWRD,MAXDIC)
C+
C	SUBROUTINE GET WILL READ BLOCK # = BLKNUM FROM THE
C	FILE DESCRIBED BY FDB USING DIRECT ACCESS BLOCK I/O.
C	THIS BLOCK WILL BE CHECKED FOR DICTIONARY WORDS AND
C	PUT IN THE LIST DCTWRD.  THE # OF WORDS FOUND IS
C	RETURNED IN NUMWRD.  MAXDIC IS THE MAXIMUM
C	LENGTH OF DCTWRD.
C 
C	LOCAL VARIABLES
C		IBUF	- FORCE BUFFER TO INTEGER BOUNDRY
C		IER	- ERROR CODE RETURN FROM DISK READ
C		NBT	- NUMBER OF BYTES READ FROM THE DISK
C		BUFFER	- CONTAINER FOR THE BYTES READ FROM THE DISK BLOCK
C 
C	SUBROUTINES REFERENCED
C		DABRD	- DIRECT ACCESS BLOCK READ
C		EXTRC	- EXTRACT DICTIONARY WORDS FROM BLOCK READ
C 
C-
	BYTE FDB(128),BUFFER(512)
	CHARACTER*25 DCTWRD(MAXDIC)
	INTEGER*2 BLKNUM
	EQUIVALENCE (IBUF,BUFFER(1))
C 
	CALL DABRD(FDB,BUFFER,512,BLKNUM,NBT,IER)
	IF(IER.LT.0)WRITE(3,1000)IER
	CALL EXTRC(BUFFER,DCTWRD,NUMWRD,MAXDIC)
	RETURN
1000	FORMAT(' SPE - GET ERR=',I6)
	END