SUBROUTINE ANLUNI
C
C	PROVIDE ANALYSIS OF UNIVERSES FOR MTREK DUMPER PROGRAM
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,OK,FBASE,EXTRA
	BYTE MESSAG,INITLS
	CHARACTER*132 OUTLIN, EXXES, CHAR*1
C
C
	WRITE (5,10500)
10500	FORMAT (' Performing universe analysis')
	CALL CLROUT(OUTLIN)
	CALL CLROUT(EXXES)
	DO 99 I=6,106
	EXXES(I:I)='X'
99	CONTINUE
C
C	NOW START LOOPING THROUGH ALL THE UNIVERSES
C
	DO 10501 IUN=1,IUNIMX
	IXBOT=-50
	IYTOP=IMAXX+50
	ITMP=0
C
C	CALCULATE TOP AND BOTTOM FOR THE LOOP
C
101	IYTOP=IYTOP-50
	IYBOT=IYTOP-50
	IF (IYBOT.LT.0) IYBOT=1
102	IXBOT=IXBOT+50
	IXTOP=IXBOT+50
	IF (IXTOP.GT.IMAXX) IXTOP=IMAXX
	ENCODE (51,10001,OUTLIN(1:1)) IUN,IXBOT+1,IXTOP,IYTOP,IYBOT
10001	FORMAT ('UNIVERSE #',I1,'  X-RANGE ',I3, ' TO '
	1  ,I3,'  Y-RANGE ',I3,' TO ',I3)
	WRITE (1,10002) OUTLIN
10002	FORMAT (1H1,' ',A132,/)
	CALL CLROUT(OUTLIN)
	DO 104 JJ=6,106,20
	OUTLIN(JJ:JJ)='V'
104	CONTINUE
	WRITE (1,10003) OUTLIN
	CALL CLROUT(OUTLIN)
	WRITE (1,10003) EXXES
10003	FORMAT (' ',A132)
	NOUT=7
C
C	NOW LOOP FOR THIS PRINT LINE
C
	DO 10010 IY=IYTOP,IYBOT,-1
	DO 10011 IX=IXBOT+1,IXTOP
	CALL UNIV(IX,IY,CHAR,IUN)
15000	IF (CHAR.NE.'.') OUTLIN(NOUT:NOUT)=CHAR
	NOUT=NOUT+2
10011	CONTINUE
C
	ITMP=ITMP+1
	IF ((ITMP/10)*10.EQ.ITMP) OUTLIN(5:5)='>'
	OUTLIN(6:6)='X'
	OUTLIN(NOUT-1:NOUT-1)='X'
	WRITE (1,10003) OUTLIN
	CALL CLROUT(OUTLIN)
	NOUT=7
10010	CONTINUE
C
	WRITE (1,10003) EXXES
	IF (IX.LT.IMAXX) GOTO 102
	IXBOT=-50
	IF (IY.GE.1) GOTO 101
C
	ITMP=0
10501	CONTINUE
C
	RETURN
	END