SUBROUTINE RAM(IBUMPD,IENM,IX,IY) 
      INCLUDE 'TREK.COM/-LI'
      INCLUDE 'TREK2.COM/-LI'
      CALL RDALRT
      CALL PROUT(22H***COLLISION IMMINENT.,22) 
      CALL SKIP(2)
      CALL CRM3AS
      CALL CRMSHP
      TYPE=1.0    
      IF(IENM .EQ. IHT) TYPE=0.5      
      IF(IENM .EQ. IHR) TYPE=1.5
      IF(IENM .EQ. IHC) TYPE=2.0
      IF(IENM .EQ. IHS) TYPE=2.5
      IF(IBUMPD .EQ. 0) CALL CRAM(6H RAMS ) 
      IF(IBUMPD .EQ. 1) CALL CRAM(11H RAMMED BY ) 
      CALL CRMENA(IENM,2,IX,IY)
      CALL CREND
      CALL DEADKL(IX,IY,IENM,SECTX,SECTY) 
      CALL CRM3AS
      CALL CRMSHP
      CALL CRMDMP(17H HEAVILY DAMAGED.)
      ICAS=10.0+20.0*RANF(0)
      CALL CRAM(19H***SICKBAY REPORTS ) 
      CALL CRAMI(ICAS,0)
      CALL CRMDMP(12H CASUALTIES.) 
      CASUAL=CASUAL+ICAS
      DO 10 L=1,NDEVIC 
      IF(DAMAGE(L) .LT. 0) GO TO 10 
      IF(L.EQ.14) GOTO 10   
      EXTRDM=(10.0*TYPE*RANF(0)+1.0)*DAMFAC
      DAMAGE(L)=DAMAGE(L)+TIME+EXTRDM
 10   CONTINUE
      SHLDUP=0
      IF(REMKL.NE.0) CALL DREPRT     
      IF(REMKL .EQ. 0) CALL FINISH(1) 
      RETURN
      END