C TEXT COMMON COMMON/TORPE/TLOCS(8, 10, 2), TDIR(8, 10), IT(8) COMMON/LEDFOR/ENERGY(8), SHIELD(8), XCORD(8), YCORD(8), TORPS(8), *HX, HY, HW, CDRAIN, NDRAIN, TDRAIN, SCAN(8), PHA(8), I1, I2, HYPER *(8), ISENT(8, 10), XPOD(8), YPOD(8), DPOD(8), IPOD(8), WPOD(8), XH *OM(8, 4), YHOM(8, 4), WHOM(8, 4), NHOM(8), TRBEAM(8), SCORE(8), CR *EW(8), DIR(8), WARP(8), LAUNCH(8), UNIV(100, 100), MESSAG(480), TH *RU, XSHIP(8), CLOAK(8), NET(8), BHOLE, EMPTY REAL LAUNCH, NDRAIN INTEGER SCAN, WHOM, CREW, HYPER, TORPS, TRBEAM LOGICAL*1THRU, XSHIP, CLOAK, NET C NOTE: BHOLE AND EMPTY ARE THE CHARACTERS FOR THE BLACK HOLE C AND EMPTY SPACE AND ARE SET IN MTREKINI. BYTE UNIV, MESSAG, BHOLE, EMPTY 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. EMPTY)) GOTO 2060 U2(I, J) = '-' GOTO 2070 2060 CONTINUE IF (.NOT.(UNIV(I, J) .EQ. EMPTY .AND. EMPTY .EQ. ' ')) GOT *O 2080 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