SUBROUTINE ANLHDR C C PROVIDE ANALYSIS LISTING HEADER 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 COMMON /MAPPNG/IRDB(8),IWDB(8),IMAPS(2),ICURBS,ICURTP,IUNIBS(5) C CALL CLROUT(OUTLIN) OUTLIN(1:36)='MTREK-PLUS UNIVERSE AND COMMON DUMP ' CALL DATE (OUTLIN(40:40)) CALL TIME (OUTLIN(51:51)) WRITE (1,999) 999 FORMAT (1H1) WRITE (1,10000) OUTLIN 10000 FORMAT (' ',A120,/) CALL CLROUT(OUTLIN) C OUTLIN(1:18)='SYSTEM INFORMATION' WRITE (1,10001) OUTLIN 10001 FORMAT (/,' ',A132) CALL CLROUT(OUTLIN) C ENCODE (23,10002,OUTLIN(3:25)) IUNIMX 10002 FORMAT ('NUMBER OF UNIVERSES = ',I1) ENCODE (23,10003,OUTLIN(29:50)) IMAXX,IMAXY 10003 FORMAT ('UNIVERSE SIZE = ',I3,',',I3) ENCODE (21,10004,OUTLIN(55:55)) ICNTRL(1) 10004 FORMAT ('STARBASES/PLAYER = ',I2) ENCODE (37,10005,OUTLIN(78:78)) RCNTRL(1) 10005 FORMAT ('AVG STARBASE SHIELD STRENGTH = ',F6.0) WRITE (1,10001) OUTLIN CALL CLROUT(OUTLIN) C IA=RCNTRL(7) IB=RCNTRL(8) ENCODE (18,10006,OUTLIN(3:3)) IA 10006 FORMAT ('HOMING DRAIN = ',I3) ENCODE (20,10007,OUTLIN(24:24)) IB 10007 FORMAT ('CLOAKING DRAIN = ',I3) ENCODE (24,10008,OUTLIN(47:47)) ICNTRL(2) 10008 FORMAT ('TRACTOR BEAM DRAIN = ',I3) ENCODE (35,10009,OUTLIN(74:74)) ICNTRL(7) 10009 FORMAT ('REPAIR FREQUENCY (SEC/PERCENT) = ',I2) WRITE (1,10001) OUTLIN CALL CLROUT(OUTLIN) C ENCODE (21,10010,OUTLIN(3:3)) ICNTRL(4) 10010 FORMAT ('INIT HOMER ALLOC = ',I2) ENCODE (21,10011,OUTLIN(27:27)) ICNTRL(3) 10011 FORMAT ('MAX ACTIVE HOMER = ',I2) ENCODE (23,10012,OUTLIN(51:51)) ICNTRL(5) 10012 FORMAT ('INIT TORPEDO ALLOC = ',I2) ENCODE (24,10013,OUTLIN(77:77)) ICNTRL(6) 10013 FORMAT ('INIT ALLOC A-M PODS = ',I2) WRITE (1,10001) OUTLIN CALL CLROUT(OUTLIN) C OUTLIN(1:26)='UNIVERSE VIRTUAL ADDRESSES' WRITE (1,10001) OUTLIN CALL CLROUT(OUTLIN) ITMP=(((IMAXX*IMAXY)+"100)/"100)*"100 DO 10030 K=1,IUNIMX IPOS=3+((K-1)*20) ENCODE (16,10031,OUTLIN(IPOS:IPOS)) K,IUNIBS(K) 10031 FORMAT ('#',I1,' BASE = ',O6) 10030 CONTINUE WRITE (1,10001) OUTLIN CALL CLROUT(OUTLIN) DO 10033 K=1,IUNIMX IPOS=3+((K-1)*20) ENCODE (16,10032,OUTLIN(IPOS:IPOS)) K,IUNIBS(K)+ITMP 10032 FORMAT ('#',I1,' TOP = ',O6) 10033 CONTINUE WRITE (1,10001) OUTLIN CALL CLROUT(OUTLIN) C DO 10025 K=1,IUNIMX ENCODE (38,10014,OUTLIN(1:1)) K 10014 FORMAT ('BLACK HOLE INFORMATION FOR UNIVERSE #',I1) WRITE (1,10001) OUTLIN CALL CLROUT(OUTLIN) C DO 10024 I=1,IHOLE(K) R=HDIR(K,I) IF (R.GT.90.) V=(450.-R)/30. IF (R.LE.90.) V=(90.-R)/30. ENCODE (79,10015,OUTLIN(3:3)) I,HX(K,I),HY(K,I),IHWHO(K,I),V, 1 HWARP(K,1) 10015 FORMAT ('HOLE #',I1,' X,Y = ',F6.2,',',F6.2,' NEAREST SHIP = ' 1 ,I1,' DIRECTION = ',F5.2,' SPEED = ',F4.2) WRITE (1,10001) OUTLIN CALL CLROUT(OUTLIN) 10024 CONTINUE C 10025 CONTINUE C RETURN END