INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE
	BYTE MESSAG,INITLS
	BYTE CHAR
	IMAXX=140
	IMAXY=140
	IUNIMX=3
	CALL ATTUNI(I)
	CALL UNIV(138,50,CHAR,3,IVA)
	WRITE (5,1) IVA
1	FORMAT (' ',O6)
	STOP
	END