PROGRAM	DUMPER
C
C	PROGRAM TO DUMP THE COMMONS FOR MTREK FOR DEBUGGING PURPOSES
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE
	BYTE MESSAG,INITLS,OUTFIL(24)
C
	COMMON /MAPPNG/IRDB(8),IWDB(8),IMAPS(2),ICURBS,ICURTP,IUNIBS(5)
C
C
	CALL ATTUNI(I)
	WRITE (5,10000) "33,"33
10000	FORMAT (' ',A1,'[0;0H',A1,'[0J Welcome to MTREK-PLUS dumper'
	1  ,' program')
C
C	SET THE COMMON VARIABLE, TELLING MTREK & PLAYER PROGRAMS TO FREEZE
C
	IF (DIP(1)) STOP 'DUMP ALREADY IN PROGRESS'
	DIP(1)=.TRUE.
	CALL WAIT(2,2,M)
	WRITE (5,10001)
10001	FORMAT (//,' Enter output filename : ',$)
	READ (5,10002) NCHAR,OUTFIL
10002	FORMAT (Q,24A1)
	OUTFIL(NCHAR+1)=0
	OPEN (UNIT=1,NAME=OUTFIL,TYPE='NEW',RECORDSIZE=150)
	WRITE (1,10200) "33
10200	FORMAT (' ',A1,'[4w')
C
C	GET ANY OPTIONS USER WANTS
C
10007	WRITE (5,10003) "33,"33
10003	FORMAT (' ',A1,'[6;1H',A1,'[0JOptions available are:',//,
	1  '   0 = end analysis',/,
	1  '   1 = full analysis',
	1  /,'   2 = ship analysis',/,'   3 = universe analysis',
	1  //,'   Enter selection : ',$)
	READ (5,10004) ISEL
10004	FORMAT (I1)
	IF (ISEL.GE.0.AND.ISEL.LE.3) GOTO 10010
	WRITE (5,10005)
10005	FORMAT (' Invalid selection, <CR> to continue  ',$)
	READ (5,10006) A
10006	FORMAT (A4)
	GOTO 10007
C
C	GOT A VALID SELECTION
C
10010	IF (ISEL.EQ.0) GOTO 32000
	CALL ANLHDR
	CALL ANLVFY
	IF (ISEL.EQ.1.OR.ISEL.EQ.2) CALL ANLSHP(ISEL)
	IF (ISEL.EQ.1.OR.ISEL.EQ.3) CALL ANLUNI
	GOTO 10007
C
C	ALL DONE, LET THE OTHERS CONTINUE
C
32000	DIP(1)=.FALSE.
	CLOSE (UNIT=1)
	CALL EXIT
	END