SUBROUTINE GETSTA(IFLAG)
C
C      ROUTINE TO GATHER STATISTICS ON A GAME OR PRINT THEM OUT AT ENDGAME
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS,WHO
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,OK,FBASE
	BYTE MESSAG,INITLS
	REAL SECNDS
C
	COMMON /STATS/SEN(8),IPHA(8),IFRGHT(8),IPODS(8),IHOM(8),ITORP(8),
	1      IMESS(8),IDEST(8),IOEN(8),GMTIM,IJMPS(8)
C
C
	IF (IFLAG.EQ.2) GOTO 10100
	DO 10001 I=1,8
	IF (.NOT.XSHIP(I)) GOTO 10001
C
	IF (IFLAG.GT.0) GOTO 10004
	IF (ENERGY(I).LT.10000) SEN(I)=SEN(I)+(IOEN(I)-ENERGY(I))
	IOEN(I)=ENERGY(I)
	IF (JMPLOC(I).GT.0) IJMPS(I)=IJMPS(I)+1
	IF (PHA(I).GT.0) IPHA(I)=IPHA(I)+1
	DO 10500 K=1,IUNIMX
	IF (FLOAD(K,I).LT.0) IFRGHT(I)=IFRGHT(I)+1
10500	CONTINUE
	IF (IPOD(I).EQ.1) IPODS(I)=IPODS(I)+1
	DO 10002 J=1,ICNTRL(3)
	IF (LHOM(I,J).LT.0) IHOM(I)=IHOM(I)+1
10002	CONTINUE
	IF (LAUNCH(I).GT.0) ITORP(I)=ITORP(I)+1
	GOTO 10001
C
10004	DO 10003 J=1,10
	IF (ISENT(I,J).GT.0) IMESS(I)=IMESS(I)+1
10003	CONTINUE
C
10001	CONTINUE
	GOTO 20000
C
C     THIS ROUTINE TO PRINT THE FINAL STATISTICS
C
10100	XTIM=SECNDS(GMTIM)
	WRITE (5,10101) XTIM/60
10101	FORMAT (//,' Total game time = ',F10.2,' minutes',//
	1  ,'   ENERGY    PHA   FRT   A-M   HOM   TRP   MESS   DES   JUMPS'
	1  ,'   SCORE',/
	2  ,' ------------------------------------------------------------'
	2  ,'--------')
	DO 10200 I=1,8
	WRITE (5,10102) SEN(I),IPHA(I),IFRGHT(I),IPODS(I),IHOM(I),
	1  ITORP(I),IMESS(I),IDEST(I),IJMPS(I),SCORE(I)
10102	FORMAT (' ',F9.2,8(3X,I3),4X,F7.0,/)
10200	CONTINUE
C
20000	RETURN
	END