SUBROUTINE DOCKED
C** DOCKED ENTERPRISE AT STAR BASE
       COMMON/GENDTA/SDATE,COND(2),KLING,TMLEFT,ITORP,ENERGY,SHELDS
       COMMON /QUAD/IQAD(8,8),IQX,IQY
       COMMON /SECT/SEC(64,64),ISX,ISY,ISX8,ISY8
        COMMON /DAMAGS/IRPARS(10,2),IRAND,IRATE,IDMGD,TSTRT,GTIME
       IF(COND(1) .EQ. 'DOCK')GO TO 10
       TYPE *,' PROGRAM ERROR'
       TYPE *,' CONDITION NOT DOCKED BUT IN DOCKED RUOTINE'
 10    TYPE *,' ** ENTERPRISE DOCKED **'
       ITORP = 12
       ENERGY = 4000.
       SHELDS = 1000.
       DO 20 I=1,7
       DO 20 J=1,2
       IRPARS(I,J) = 0
 20    CONTINUE
       CALL STATUS
       RETURN
       END