SUBROUTINE NUCOND
      INCLUDE 'TREK.COM/-LI'
      INCLUDE 'TREK2.COM/-LI'
      CONDIT=IHGRN
      IF(ENERGY .LT. 1000.0) CONDIT=IHYELO
      IF((GALAXY(QUADX,QUADY) .GT. 99) .OR. (NUSTUF(QUADX,QUADY) .GT.
     C 9))CONDIT=IHRED
      RETURN
      END