SUBROUTINE ANLFRT(ISHP)
C
C	PROVIDE ANALYSIS OF FREIGHTERS FOR MTREK DUMPER PROGRAM
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS,WHO
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,OK,FBASE,ALL
	BYTE MESSAG,INITLS,CLRIT(2)
	CHARACTER*132 OUTLIN, CHAR*1
C
	CALL CLROUT(OUTLIN)
	OUTLIN(1:21)='FREIGHTER INFORMATION'
	WRITE (1,10000) OUTLIN
10000	FORMAT (/,' ',A132)
	CALL CLROUT(OUTLIN)
C
	K=0
	DO 10100 I=1,IUNIMX
	IF (FLOAD(I,ISHP).EQ.0) GOTO 10100
	K=K+1
	IX=FXCORD(I,ISHP)
	IY=FYCORD(I,ISHP)
	CALL UNIV(IX,IY,CHAR,I)
	ENCODE (99,10001,OUTLIN(1:1)) I,FXCORD(I,ISHP),FYCORD(I,ISHP),
	1  FXDEST(I,ISHP),FYDEST(I,ISHP),FLOAD(I,ISHP),CHAR
10001	FORMAT ('  UNIVERSE #',I1,' -- CURRENT X,Y = ',F6.2,',',F6.2,
	1  '  DEST X,Y = ',F6.2,',',F6.2,'  LOAD = ',I5,
	1  '  UNIV CHAR = ',A1)
	WRITE (1,10000) OUTLIN
	CALL CLROUT(OUTLIN)
10100	CONTINUE
	IF (K.EQ.0) OUTLIN(1:28)='  ** NO FREIGHTERS ACTIVE **'
	IF (K.EQ.0) WRITE (1,10000) OUTLIN
	CALL CLROUT(OUTLIN)
C
	RETURN
	END