SUBROUTINE ANLBAS(ISHP)
C
C	PROVIDE ANALYSIS OF STARBASES FOR MTREK DUMPER PROGRAM
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS,WHO,ST(10)
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,OK,FBASE,ALL
	BYTE MESSAG,INITLS,CLRIT(2)
	CHARACTER*132 OUTLIN, CHAR*1
	DATA ST/3,30,57,84,111,3,30,57,84,111/
C
C
	CALL CLROUT(OUTLIN)
	DO 10100 I=1,IUNIMX
	OUTLIN(1:29)='BASE INFORMATION FOR UNIVERSE'
	ENCODE (1,10002,OUTLIN(31:31)) I
10002	FORMAT (I1)
	WRITE (1,10000) OUTLIN
10000	FORMAT (/,' ',A132)
	CALL CLROUT(OUTLIN)
C
	IOFF=(I-1)*20
	DO 10001 J=1,ICNTRL(1)
	IX=IBASE(ISHP,IOFF+(J*2)-1)
	IY=IBASE(ISHP,IOFF+(J*2))
	CALL UNIV(IX,IY,CHAR,I)
	ENCODE (22,10003,OUTLINE(ST(J):ST(J))) J,IX,IY,BASEN(ISHP,IOFF/2+J)
	1  ,CHAR
10003	FORMAT ('#',I2,' -- ',I3,',',I3,',',I5',',A1)
	IF (J.NE.5) GOTO 10001
	WRITE (1,10000) OUTLIN
	CALL CLROUT(OUTLIN)
10001	CONTINUE
	IF (ICNTRL(1).LE.5) GOTO 10100
	WRITE (1,10000) OUTLIN
	CALL CLROUT(OUTLIN)
C
10100	CONTINUE
C
	RETURN
	END