SUBROUTINE SHLTER(SH,SH1,IFORCE)
	INTEGER SH(5,4),SH1(5,4)
	LOGICAL*1 A
C	TYPE *,' SHLTER'
	DO 20 I=1,5			!Check each shelter
	DO 20 J=1,4
	I1=SH(I,J)			!Get values
	I2=SH1(I,J)
	IF (IFORCE.EQ.1) GOTO 25
	IF (I2.EQ.I1) GOTO 20		!this one is unchanged
	SH1(I,J)=I1			!get new value
25	IPOS=(13*I)+J			!Get position
	CALL POSITN(IPOS,2)		!Point to it
	IF (I1.EQ.7) GOTO 5		!Want Block
	IF (I1.EQ.1) GOTO 10		!Want dotted line
	IF (I1.EQ.0) GOTO 6
	A=117-I1			!Makeup char.
	GOTO 15
5	A=97				!Block
	GOTO 15
10	A=46				!Dotted Line
	GOTO 15
6	A=32
15	CALL GRAPHI(1)
	WRITE(5,30)A			!Draw it
	CALL GRAPHI(0)
20	CONTINUE
	RETURN
C
C  Format for shelter
C
30	FORMAT(1H$,A1)
	END