SUBROUTINE DOCK 
      INCLUDE 'TREK.COM/-LI'
      INCLUDE 'TREK2.COM/-LI'
      IDIDIT=0
      IF(CONDIT .EQ. IHDCKD) GO TO 30 
      IF(INORBT.NE.0) GO TO 40   
      IF(BASEX .EQ. 0) GO TO 5
      IF(IABS(SECTX-BASEX).LE.1 .AND. IABS(SECTY-BASEY).LE.1)GO TO 10 
5     CALL CRMSHP
      CALL CRMDMP(22H NOT ADJACENT TO BASE.) 
      RETURN
10    CONDIT = IHDCKD
      CALL PROUT(7HDOCKED.,7) 
      IDIDIT=1
      IF(ENERGY .LT. INENRG) ENERGY=INENRG
      SHLD=INSHLD 
      TORPS=INTRPS 
      LSUPRS=INLSR 
      RETURN
 30   CALL PROUT(15HALREADY DOCKED.,15)
      RETURN
 40   CALL PROUT(36HYOU MUST FIRST LEAVE STANDARD ORBIT.,36) 
      RETURN
      END