	SUBROUTINE DFIRE(ID,IR0,IS,C)
C	ROUTINE TO DISPLAY MISSILE SHOTS ON TERMINALS
C	ID IS ID OF FIRING CRAWLER
C	IR0 IS RANGE OF FIRE
C	IR IS RANGE OF DETONATION
C	C IS TARGET CHARACTER
C----------------------standard common block----------------------------
C 
	COMMON ICR(8,12),IPARM(10),IS1,IS2,NT,ICU(10,10,10,2),CLEAR(8)
	COMMON MARKER(4,3,3)
	LOGICAL*1 ICU,CLEAR
C 
C-----------------------------------------------------------------------
C 
	LOGICAL*1 C,STRING(23),ANS
	IR=IS
	IF(IR0.LT.0) GOTO 999
	IF(C.EQ.'*') IR=IR+1
	DO 1 I=1,21
	STRING(I)=' '
1	CONTINUE
C 
C	CLEAR SCREEN:
	LUN=ICR(ID,8)
	WRITE(LUN,2) "33,"33,CLEAR(ID)
2	FORMAT(X,A1,'Y  ',2A1//
     C25X,'*-----------------------*'/
     C25X,'|    MISSILE SCANNER    |',2(/25X,'|',23X,'|'))
	IF(IR0.GT.9) IR0=9
	ANS=' '
	DO 5 I=1,10-IR0
	WRITE(LUN,6) ANS
5	CONTINUE
6	FORMAT(24X,'-|           ',A1,'           |-')
	IF(IR.EQ.IR0) ANS=C
	WRITE(LUN,7) ANS
7	FORMAT(24X,'-|           |           |-'/
     C24X,'-|        -- ',A1,' --        |-')
	ANS='|'
	IF(IR.EQ.IR0-1) ANS=C
	IF(IR.GT.0) WRITE(LUN,6) ANS
	DO 9 I=1,IR0-2
	ANS=' '
	IF(IR.EQ.IR0-I-1) ANS=C
	WRITE(LUN,6) ANS
9	CONTINUE
	WRITE(LUN,10)"33,49,32
10	FORMAT(X,A1,'Y',2A1,24X,'|-----------------------|'/
     C25X,'|    READY   ACTIVATED  |'/
     C25X,'|     (*)       ( )     |'/25X,'*-----------------------*')
	IROW=51
	WRITE(LUN,50) "33,IROW
50	FORMAT(X,A1,'Y',A1,25X,'|     (',$)
	READ(LUN,11) ANS
11	FORMAT(A1)
	WRITE(LUN,12) "33,IROW
12	FORMAT(X,A1,'Y',A1,25X,'|     ( )       (*)     |')
	IROW=17
	ICOL=25
	DO 13 I=1,IR
	J=IR0-I+1
	DO 51 K=1,23
	STRING(K)=' '
51	CONTINUE
	WRITE(LUN,14) "33,IROW+32,ICOL+32,STRING
	IROW=IROW-1
	STRING(12-J)='/'
	STRING(12+J)='\'
	ION=0
	DO 52 K=1,23
	IF(STRING(K).EQ.'/') ION=1
	IF(STRING(K).EQ.'\') ION=0
	IF(STRING(K).EQ.' '.AND.ION.EQ.1) STRING(K)='.'
52	CONTINUE
	STRING(12)=':'
	WRITE(LUN,14) "33,IROW+32,ICOL+32,STRING
13	CONTINUE
C	CLEAR ANY REMAINS OF MISSILE:
	DO 56,I=1,23
	STRING(I)=' '
56	CONTINUE
C 
	WRITE(LUN,14) "33,IROW+32,ICOL+32,STRING
14	FORMAT(X,A1,'Y',2A1,23A1)
	ICOL=37  ! 25+12
	WRITE(LUN,15) "33,IROW+32,ICOL+32,'*'
15	FORMAT(X,A1,'Y',2A1,A1)
C 
C	SEND OVER BELL IF ANYTHING HIT:
	IF(C.GT.' ') WRITE(LUN,20) "7
20	FORMAT(X,A1)
	DO 16 I=1,12
	J=IROW+RAN(IS1,IS2)*2.9999-1   ! IROW-1 TO IROW+1
	K=ICOL+RAN(IS1,IS2)*2.9999-1
	ANS='*'
	IF(RAN(IS1,IS2).GT..9) ANS=' '
	IF(J.LE.17) WRITE(LUN,15) "33,J+32,K+32,ANS
16	CONTINUE
	DO 17 I=1,25
	J=IROW+RAN(IS1,IS2)*4.9999-2  ! IROW-2 TO IROW+2
	K=ICOL+RAN(IS1,IS2)*4.9999-2
	ANS='*'
	IF(RAN(IS1,IS2).GT..85) ANS=' '
	IF(J.LE.17) WRITE(LUN,15) "33,J+32,K+32,ANS
17	CONTINUE
	DO 18 I=1,37
	J=IROW+RAN(IS1,IS2)*8.9999-4
	K=ICOL+RAN(IS1,IS2)*8.9999-4
	ANS='*'
	IF(RAN(IS1,IS2).GT..8) ANS=' '
	IF(J.LE.17) WRITE(LUN,15) "33,J+32,K+32,ANS
18	CONTINUE
	IF(IS.GT.0) GOTO 21
	DO 22 I=1,120
	IF(RAN(IS1,IS2).LT..06) WRITE(LUN,20) "7   ! BELL AT RANDOM INTERVALS
	ANS='*'
	IF(RAN(IS1,IS2).GT..8) ANS=' '
	J=IROW+RAN(IS1,IS2)*10.9999-10
	K=ICOL+RAN(IS1,IS2)*16.9999-8
	IF(J.LE.17) WRITE(LUN,15) "33,J+32,K+32,ANS
22	CONTINUE
21	WRITE(LUN,23) "33,51
23	FORMAT(X,A1,'Y',A1,25X,'|     ( )       ( )     |')
	N=8
	M=4
	N1=8
	M1=4
	IF(IR.EQ.0) N=10
	IF(IR.EQ.0) M=10
	IF(IR.EQ.0) N1=16
	IF(IR.EQ.0) M1=8
	ANS=' '
	DO 25 I=1,40
	J=IROW+RAN(IS1,IS2)*N-M
	K=ICOL+RAN(IS1,IS2)*N1-M1
	IF(J.LE.17) WRITE(LUN,15) "33,J+32,K+32,ANS
25	CONTINUE
	WRITE(LUN,19) "33,52,32
19	FORMAT(X,A1,'Y',2A1)
999	IR0=-1   ! FLAG TO PREVENT REPEATING DISPLAY
	RETURN
	END
