SUBROUTINE SRSCAN
C** SHORT RANGE SCAN
       COMMON /GENDTA/SDATE,COND(2),KLING,TMLEFT,ITORP,ENERGY,SHELDS
       COMMON /SECT/SEC(64,64),ISX,ISY,ISX8,ISY8
        COMMON /DAMAGS/IRPARS(10,2),IRAND,IRATE,IDMGD,TSTRT,GTIME
       DIMENSION IX(7),IY(7)
       EQUIVALENCE (I1,IX(1)),(I2,IX(2)),(I3,IX(3))
       EQUIVALENCE (I4,IX(4)),(I5,IX(5)),(I6,IX(6))
       EQUIVALENCE (I7,IX(7))
       IF(IRPARS(4,1) .LE. 0)GO TO 19
       TYPE *,'**S.R. SENSORS DAMAGED. NO REPORT AVAILABLE'
       GO TO 999
 19    ISTX=ISX8-3
       IF(ISTX .LE. 0)ISTX = 8+ISTX
       ISTY = ISY8-3
       IF(ISTY .LE. 0)ISTY=8+ISTY
C**  LOAD IX&IY ARRAY WITH DIGITS
       DO 10 IDO=1,7
       IX(IDO)=ISTX
       ISTX=ISTX+1
       IF(ISTX .GT. 8)ISTX=1
       IY(IDO)=ISTY
       ISTY = ISTY +1
       IF(ISTY .GT. 8)ISTY=1
 10    CONTINUE
C**  WRITE HEADER
       TYPE 1001,IX
 1001  FORMAT(8X,7(1X,I2))
C** RELOAD X ARRAY
       IXS = ISX - 3
       IF(IXS .LE. 0)IXS = 64+IXS
       DO 30 ID=1,7
       IX(ID) = IXS
       IXS = IXS + 1
       IF(IXS .GT. 64)IXS=1
 30    CONTINUE
       IYS = ISY - 3
       IF(IYS .LE. 0)IYS = 64+IYS
       DO 100 IK=1,7
       TYPE 1005,IY(IK),SEC(I1,IYS),SEC(I2,IYS),SEC(I3,IYS),SEC(I4,IYS)
     * ,SEC(I5,IYS),SEC(I6,IYS),SEC(I7,IYS),IY(IK)
 1005  FORMAT(6X,I2,':',7A3,':',I2)
       IF(COND(1) .EQ. 'DOCK')GO TO 91
       DO 90 JK=1,7
       KX=IX(JK)
       IF(SEC(KX,IYS) .NE. '<K>')GO TO 90
       COND(1)='RED '
       COND(2)='    '
 90    CONTINUE
 91    IYS = IYS + 1
       IF(IYS .GT. 64)IYS = 1
 100   CONTINUE
 999   RETURN
       END