SUBROUTINE ANLDSP(ISHP)
C
C	ROUTINE TO PRINT SHIP'S SCAN WINDOW FOR DUMPER
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,OK,FBASE,US
	BYTE MESSAG,INITLS,CLRIT(2)
	BYTE BLUNK,NBUFF(19,19),ALPHA,TMPBYT
	CHARACTER*132 OUTLIN, CHAR*1
	EQUIVALENCE(CHAR,TMPBYT)
C
C
	CALL CLROUT(OUTLIN)
	OUTLIN(1:23)='UNIVERSE WINDOW DISPLAY'
	WRITE (1,900) OUTLIN
900	FORMAT (/,' ',A132,/)
	CALL CLROUT(OUTLIN)
C
	BLUNK=' '
	ID=SCAN(ISHP)
	IF (ID.GT.9) ID=9
C
	XX=XCORD(ISHP)
	YY=YCORD(ISHP)
	DO 10028 IX=-ID,ID
	IX1=XX+IX
	DO 10028 IY=ID,-ID,-1
	IY1=YY+IY
	IF (IX1.GT.IMAXX.OR.IX1.LT.1.OR.IY1.GT.IMAXY.OR.IY1.LT.1) GOTO 10037
	CALL UNIV(IX1,IY1,ALPHA,IUNIV(ISHP))
	GO TO 10036
10037	IF ((IX1.EQ.IMAXX.OR.IX1.EQ.1.OR.IY1.EQ.IMAXY.OR.
	1 IY1.EQ.1).AND.((IX1.LT.IMAXX.AND.IX1.GT.1).OR.
	2 (IY1.LT.IMAXY.AND.IY1.GT.1))) GO TO 10040
	GO TO 10039
10040	CALL UNIV(IX1,IY1,CHAR,IUNIV(ISHP))
	IF (CHAR.EQ.'.') GO TO 10043
	GO TO 10041
10043	ALPHA='-'
	GO TO  10036
10041	CALL UNIV(IX1,IY1,ALPHA,IUNIV(ISHP))
	GO TO  10036
10039	ALPHA='.'
10036	IF (ALPHA.GE.49.AND.ALPHA.LE.56.AND.CLOAK(ALPHA-48)) GO TO 10047
	IF (ALPHA.NE.'F') GOTO 10045
C
C	FIND THIS FREIGHTERS OWNER
C
	DO 20010, II=1,8
	IF (FLOAD(IUNIV(ISHP),II).EQ.0) GOTO 20010
	IIX = FXCORD(IUNIV(ISHP),II)
	IIY = FYCORD(IUNIV(ISHP),II)
	IF (IIX.NE.IX1.OR.IIY.NE.IY1) GOTO 20010
C
C	FOUND THE OWNER, NOW CHECK DISTANCE, CLOAKING
C
	IF (CLOAK(II).AND.FNEAR(IUNIV(ISHP),II)) GOTO 10047
20010	CONTINUE
	GOTO 10045
10047	NBUFF(10+IX,10+IY)='.'
	GO TO 10028
10045	NBUFF(10+IX,10+IY)=ALPHA
	IF (NBUFF(10+IX,10+IY).NE.'B') GOTO 10028
	US = .FALSE.
	IOFF=(IUNIV(ISHP)-1)*20
	DO 10044 IB=1,20,2
	IF (IBASE(WHO,IOFF+IB).EQ.0) GOTO 10044
	IF (IBASE(WHO,IOFF+IB).EQ.IX1.AND.IBASE(WHO,IOFF+IB+1).EQ.IY1)
	1   US = .TRUE.
10044	CONTINUE
	IF (.NOT.US) NBUFF(10+IX,10+IY)='E'
10028	CONTINUE
C
C FILL UP THE BUFFER FOR DRAWING THE CURRENT UNIVERSE
C
10055	NOUT=3
	DO 10049 IY=19,1,-1
	DO 10048 IX=1,19
	TMPBYT=NBUFF(IX,IY)
	OUTLIN(NOUT:NOUT)=CHAR
	NOUT=NOUT+3
10048	CONTINUE
	NOUT=3
	WRITE (1,10001) OUTLIN
10001	FORMAT (' ',A132)
	CALL CLROUT(OUTLIN)
10049	CONTINUE
C
	RETURN
	END