SUBROUTINE LRSCAN 
      INCLUDE 'TREK.COM/-LI'
      INCLUDE 'TREK2.COM/-LI'
      IF(DAMAGE(2) .NE. 0 .AND. CONDIT .NE. IHDCKD) GOTO 40
      CALL SKIP(1)
      CALL CRAM(14HL. R. SCAN FOR)
      CALL CRMLOC(1,QUADX,QUADY) 
      CALL CREND
      I=QUADX-1 
      II=QUADX+1
      J=QUADY-1 
      JJ=QUADY+1
      DO 30 L=I,II
      DO 20 LL=J,JJ 
      IVAL=-1 
      IF(L .EQ. 0 .OR. L .GT. 8) GO TO 10 
      IF(LL .EQ. 0 .OR. LL .GT. 8) GO TO 10 
      IVAL=GALAXY(L,LL) 
      STARCH(L,LL)=1
 10   CALL CRAMI(IVAL,5)
 20   CONTINUE
      CALL CREND
 30   CONTINUE
      RETURN
 40   CALL PROUT(22HL. R. SENSORS DAMAGED.,22) 
      RETURN
      END