C COMMON PARAMETER MAXSHP = 8, MAXHOM = 4, MAXTRP = 10 COMMON/TORPE/TLOCS(MAXSHP, MAXTRP, 2), TDIR(MAXSHP, MAXTRP), IT(MA *XSHP) COMMON/TRKDAT/ENERGY(MAXSHP), SHIELD(MAXSHP), XCORD(MAXSHP), YCORD *(MAXSHP), TORPS(MAXSHP), HOLX, HOLY, HOLW, CDRAIN, NDRAIN, TDRAIN, * SCAN(MAXSHP), PHA(MAXSHP), I1, I2, HYPER(MAXSHP), ISENT(MAXSHP, 1 *0), XPOD(MAXSHP), YPOD(MAXSHP), DPOD(MAXSHP), IPODST(MAXSHP), WPOD *(MAXSHP), XHOM(MAXSHP, MAXHOM), YHOM(MAXSHP, MAXHOM), WHOM(MAXSHP, * MAXHOM), NHOM(MAXSHP), TRBEAM(MAXSHP), SCORE(MAXSHP), CREW(MAXSHP *), DIR(MAXSHP), WARP(MAXSHP), LAUNCH(MAXSHP), UNIV(100, 100), MESS *AG(480), THRU, SHPACT(MAXSHP), CLOAK(MAXSHP), NET(MAXSHP), SHPNAM( *10, MAXSHP) REAL LAUNCH, NDRAIN INTEGER*2SCAN, WHOM, CREW, HYPER, TORPS, TRBEAM LOGICAL*1THRU, SHPACT, CLOAK, NET BYTE UNIV, MESSAG BYTE SHPNAM C NOTE: BHOLE AND EMPTY ARE THE CHARACTERS FOR THE BLACK HOLE C AND EMPTY SPACE. C END COMMON BYTE U2(100, 100) INTEGER*4ISCORE(8) REAL D(8) OPEN(UNIT=1,NAME='UNIVERSE.MAP',TYPE='NEW') DO 2000 I = 1, 100 DO 2020 J = 1, 100 IF (.NOT.(UNIV(I, J) .LT. 0)) GOTO 2040 U2(I, J) = '%' GOTO 2050 2040 CONTINUE IF (.NOT.((I .EQ. 1 .OR. I .EQ. 100 .OR. J .EQ. 1 .OR. J .EQ *. 100) .AND. UNIV(I, J) .EQ. ' ')) GOTO 2060 U2(I, J) = '-' GOTO 2070 2060 CONTINUE IF (.NOT.(UNIV(I, J) .EQ. ' ' .AND. ' ' .EQ. ' ')) GOTO 20 *80 U2(I, J) = '.' GOTO 2090 2080 CONTINUE U2(I, J) = UNIV(I, J) 2090 CONTINUE 2070 CONTINUE 2050 CONTINUE 2020 CONTINUE 2030 CONTINUE 2000 CONTINUE 2010 CONTINUE WRITE(1, 11) ((U2(I, J), I = 1, 100), J = 100, 1, - 1) 11 FORMAT(1X, 100A1) WRITE(1, 12) (I, I = 1, 8) 12 FORMAT(//1X, 8('SHIP: 'I6, 1X)) DO 2100 I = 1, 8 ISCORE(I) = SCORE(I) 2100 CONTINUE 2110 CONTINUE WRITE(1, 13) (ISCORE(I), I = 1, 8) 13 FORMAT(1X, 8('SCORE:'I6, 1X)) WRITE(1, 14) (XCORD(I), I = 1, 8) 14 FORMAT(1X, 8('X: 'F6.2, 1X)) WRITE(1, 144) (YCORD(I), I = 1, 8) 144 FORMAT(1X, 8('Y: 'F6.2, 1X)) WRITE(1, 15) (WARP(I), I = 1, 8) 15 FORMAT(1X, 8('WARP: 'F6.2, 1X)) DO 2120 I = 1, 8 IF (.NOT.(DIR(I) .GT. 90.)) GOTO 2140 D(I) = (450. - DIR(I))/30. GOTO 2150 2140 CONTINUE D(I) = (90. - DIR(I))/30. 2150 CONTINUE 2120 CONTINUE 2130 CONTINUE WRITE(1, 16) (D(I), I = 1, 8) 16 FORMAT(1X, 8('DIR: 'F6.2, 1X)) WRITE(1, 17) (IFIX(ENERGY(I)), I = 1, 8) 17 FORMAT(1X, 8('ENERGY:'I5, 1X)) WRITE(1, 18) (SHIELD(I), I = 1, 8) 18 FORMAT(1X, 8('SHIELD:'F5.0, 1X)) WRITE(1, 19) (TORPS(I), I = 1, 8) 19 FORMAT(1X, 8('TORPS:'I6, 1X)) WRITE(1, 199) (NHOM(I), I = 1, 8) 199 FORMAT(1X, 8('SEEKERS:'I4, 1X)) WRITE(1, 20) (HYPER(I), I = 1, 8) 20 FORMAT(1X, 8('HYPER:'I6, 1X)) END