SUBROUTINE GETLOD(LINE,FILE)
C+
C	SUBROUTINE GETLOD WILL SEARCH THE COMMAND LINE FOR THE AUTOLOAD
C	FILENAME. IF FOUND IT WILL PUT IT IN THE FILE, IF NOT
C	SPELL.DCT WILL BE PUT IN IT.
C 
C	LOCAL VARIABLES
C		DEFALT - CONTAINS DEFAULT AUTO-LOAD FILE NAME
C 
C-
	BYTE FILE(40),LINE(80),DEFALT(10)
	DATA DEFALT/'S','P','E','L','L','.','D','C','T',0/
C 
	IF(LINE(2).EQ.':')THEN
		IF(LINE(3).GE.'A'.AND.LINE(3).LE.'Z')THEN
			K=0
			DO 10,J=3,12
			IF(LINE(J).LT.'A'.OR.LINE(J).GT.'Z')GO TO 20
			K=K+1
			FILE(K)=LINE(J)
10			CONTINUE
20			FILE(K+1)='.'
			FILE(K+2)='D'
			FILE(K+3)='C'
			FILE(K+4)='T'
			FILE(K+5)='0'O
		ELSE
			WRITE(3,1000)
			GO TO 30
		END IF
	ELSE
		GO TO 30
	END IF
	RETURN
30	CONTINUE
	DO 40,K=1,10
40	FILE(K)=DEFALT(K)
	RETURN
1000	FORMAT(' SPE - Auto load filename error')
	END