SUBROUTINE SCANC(WHO,L,XX,YY)
C
C     LONG-RANGE SCANNING FOR PLAYER
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS,WHO
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,OK,FBASE
	BYTE MESSAG,INITLS,CLRIT(2)
	DATA CLRIT/"33,'K'/
C
C
	CALL CPOS(L)
	IF (IDAMGE(WHO,3).GT.0) WRITE (5,20001) CLRIT
20001	FORMAT (' Scanners damaged - unable to perform scan',2A1)
	IF (IDAMGE(WHO,3).GT.0) GO TO 10170
	WRITE (5,100) CLRIT
100	FORMAT (' ',2A1,'Spock here Captain')
	WRITE(5,10169) CLRIT
10169	FORMAT('$What frequency should I scan ? ',2A1)
	CALL GETINT(II,OK,1,8)
	IF (.NOT.OK) GO TO 10170
	IF (II.EQ.WHO) GO TO 10185
	IF (IUNIV(II).NE.IUNIV(WHO)) GOTO 10500
	IX=XCORD(II)/10.
	IY=YCORD(II)/10.
	IXX = XCORD(II)
	IYY = YCORD(II)
	CALL CPOS(L)
	WRITE(5,10173) CLRIT,IUNIV(WHO),IX,IY
10173	FORMAT(' ',2A1,'Life forms sector ',I1,',',I3,','I3)
	IF (CLOAK(II)) GOTO 10170
C
C CALCULATE THE DISTANCE AND COURSE
C
	CALL COURSE (XX,YY,IXX,IYY,EDIR,EDIS)
10201	WRITE(5,10203) EDIR,EDIS,CLRIT
10203	FORMAT(' Course ',F5.2,'  Dst ',F9.2,' Parsecs',2A1)
	GO TO 10170
C
10185	WRITE (5,10186) CLRIT
10186	FORMAT (' Any particular reason for looking for yourself?',
	1   2A1)
	GOTO 10170
C
10500	WRITE (5,10501) II,CLRIT
10501	FORMAT (' Unable to locate ship ',I2,' in this universe',2A1)
C
10170	RETURN
	END