SUBROUTINE THEEND
#
#	THIS SUBROUTINE IS CALLED WHEN THE PLAYER HAS LOST ALL HIS CITIES.
#
	IMPLICIT INTEGER (A-Z)
	INCLUDE SY:MISSIL.CMN
	INCLUDE SY:UVT100.DAT
	BYTE ENDSTR(45)
	BYTE TITLE(8)
	DATA ENDSTR / 45*SPACE /
	DATA TITLE / 'T','H','E',' ',' ','E','N','D' /
	CALL WAIT(1,2)			#WAIT A SECOND
#
#	DISPLAY 'THE END' INSIDE A BIG CIRCLE
#
	CALL GETADR(PRL,ENDSTR)
	CALL UVT100(ED,2)
	CALL UVT100(CUP,1,17)
	CALL UVT100(DECDWL)
	WRITE (5,200) SCORE
	CALL UVT100(SGR,7)
#
	CALL UVT100(CUP,3,37)
	PRL(2) = 8
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,4,32)
	PRL(2) = 18
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,5,28)
	PRL(2) = 26
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,6,25)
	PRL(2) = 32
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,7,24)
	PRL(2) = 34
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,8,22)
	PRL(2) = 38
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,9,21)
	PRL(2) = 40
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,10,20)
	PRL(2) = 42
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,11,20)
	PRL(2) = 42
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,12,19)
	PRL(2) = 44
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,13,10)
	CALL UVT100(DECDWL)
	PRL(2) = 22
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,13,17)
	CALL GETADR(PRL,TITLE)
	PRL(2) = 8
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL GETADR(PRL,ENDSTR)
	CALL UVT100(CUP,14,19)
	CALL UVT100(DECSWL)
	PRL(2) = 44
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,15,20)
	PRL(2) = 42
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,16,20)
	PRL(2) = 42
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,17,21)
	PRL(2) = 40
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,18,22)
	PRL(2) = 38
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,19,24)
	PRL(2) = 34
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,20,25)
	PRL(2) = 32
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,21,28)
	PRL(2) = 26
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,22,32)
	PRL(2) = 18
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(CUP,23,37)
	PRL(2) = 8
	CALL WTQIO(IOWVB,5,2,,,PRL)
#
	CALL UVT100(SGR,0)
	CALL UVT100(CUP,1,1)
	CALL GETADR(PRL,BELL)
	PRL(2) = 1
#
#	REVERSE VIDEO AND BEEP THREE TIMES
#
	DO I = 1,3 [
	  CALL WTQIO(IOWVB,5,2,,,PRL)
	  CALL UVT100(SM,5)
	  CALL WAIT(10,0)
	  CALL UVT100(RM,5)
	  CALL WAIT(10,0)
	  ]
	CALL GETADR(PRL,SHFIN)
	CALL WTQIO(IOWVB,5,2,,,PRL)	#LOAD STANDARD CHARACTER SET
	CALL UVT100(SM,8)		#REENABLE AUTOREPEAT
	CALL EXIT			#EXIT TASK
200	FORMAT (I6)
	RETURN
	END