
From:	SNYDER          2-APR-1985 20:38  
To:	POWDER

C	THIS PROGRAM OPENS A FILE CALLED JUNK.COM AND WRITES
C	A SET DEF COMMAND DO GET YOU INTO THE CURRENT DIRECTORY.
C
	CHARACTER*80 Q
	OPEN(UNIT=1,NAME='JUNK.COM',STATUS='NEW')
	INQUIRE(UNIT=1,NAME=Q)
	J=INDEX(Q,']')
	WRITE(1,1) Q(:J)
1	FORMAT('$ SET DEF ',A<J>)
	CLOSE(UNIT=1)
	STOP
	END
