INCLUDE COMMON.RAT
   BYTE U2(100,100)
   INTEGER*4 ISCORE(8)
   REAL D(8)
%
      OPEN(UNIT=1,NAME='UNIVERSE.MAP',TYPE='NEW')
%
   DO I=1,100
     DO J = 1,100
       IF (UNIV(I,J) < 0)
         U2(I,J) = '%'
       ELSE IF ((I == 1 | I == 100 | J == 1 | J == 100)  &  UNIV(I,J) == EMPTY)
         U2(I,J) = '-'
       ELSE IF (UNIV(I,J) == EMPTY  &  EMPTY == ' ')
         U2(I,J) = '.'
       ELSE
         U2(I,J) = UNIV(I,J)
   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 I=1,8
     ISCORE(I) = SCORE(I)
   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 I = 1,8
     IF (DIR(I) > 90.)
       D(I) = (450.-DIR(I))/30.
     ELSE
       D(I) = (90.-DIR(I))/30.
   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