SUBROUTINE GETFN(NAME)
      INCLUDE 'TREK2.COM/-LI'
	REAL*8 AITEM
	LOGICAL*1 AIT(8)
	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. IHALPH) GO TO 100 
	NAME(1)='['		!GIVE UIC = [307,6]
	NAME(2)='3'
	NAME(3)='0'
	NAME(4)='7'
	NAME(5)=','
	NAME(6)='6'
	NAME(7)=']'
	NAME(8)="123			!DEVICE TO SAVE ON IS SY0:
	NAME(9)="131
	NAME(10)="60
	NAME(11)="72	
	DO 50 I=1,8
	IF(AIT(I).EQ.0) GOTO 60
50	NAME(I+11)=AIT(I)
	GOTO 62
60	I=I-1
62	I=I+11
	NAME(I)=IHDOT
	NAME(I+1)="124
	NAME(I+2)="122
	NAME(I+3)="113	!GIVE TYPE OF .TRK
      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