SUBROUTINE GETFN(NAME)
	LOGICAL*1 IHS,IHR,IHC,IHK,IHE,IHF,IHBLANK,IHDOT,IHP,IHB
	1 ,IHSTAR,IHT,IHQUEST,IHNUM,NAME(30),AIT(8)
      COMMON/HOLLER/IHEOL,IHREAL,IHALPHA,IHS,IHR,IHC,IHK,IHGREEN,IHRED, 
     +IHYELLO,IHDOCKD,IHE,IHF,IHBLANK,IHDOT,IHQUEST,IHP,IHSTAR,IHB
     +,IHT,IHNUM  
	REAL*8 AITEM
	COMMON/SCANBF/KEY,AITEM
	EQUIVALENCE (AIT,AITEM)
C*  READ IN A LEGAL FILE NAME (FOR FREEZE AND THAW)
C*  A NON-ALPHA ENTRY ABORTS THE ATTEMPT 
40	CALL SCAN
      IF (KEY .EQ. IHEOL) GO TO 75
      IF (KEY .NE. IHALPHA) GO TO 100 
	NAME(1)="123
	NAME(2)="131
	NAME(3)="60
	NAME(4)="72		!DEVICE TO SAVE ON IS DB0:
	DO 50 I=1,8
	IF(AIT(I).EQ.0) GOTO 60
50	NAME(I+4)=AIT(I)
	GOTO 62
60	I=I-1
62	I=I+4
	NAME(I)=IHDOT
	NAME(I+1)="124
	NAME(I+2)="122
	NAME(I+3)="113	!GIVE EXT OF .TEK
      RETURN      
C*--PROMPT FOR A VALID FILE NAME 
 75   CALL PROMPT(18HENTER FILE NAME:      ,18) 
      GO TO 40
C*--NON-ALPHA ITEM ABORTS REQUEST... 
100	NAME(0)=0
      RETURN
      END