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(19)
	BYTE TITLE(7)
	DATA ENDSTR / 19*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)
	DO I = 4,20 [
	  CALL UVT100(CUP,I,1)
	  CALL UVT100(DECDWL)
	  ]
	CALL UVT100(CUP,1,17)
	CALL UVT100(DECDWL)
	WRITE (5,200) SCORE
	CALL UVT100(SGR,7)
	CALL UVT100(CUP,4,20)
	PRL(2) = 1
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,5,18)
	PRL(2) = 5
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,6,16)
	PRL(2) = 9
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,7,16)
	PRL(2) = 9
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,8,15)
	PRL(2) = 11
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,9,14)
	PRL(2) = 13
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,10,13)
	PRL(2) = 15
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,11,13)
	PRL(2) = 15
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,12,12)
	PRL(2) = 17
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,12,17)
	CALL GETADR(PRL,TITLE)
	PRL(2) = 7
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL GETADR(PRL,ENDSTR)
	CALL UVT100(CUP,13,13)
	PRL(2) = 15
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,14,13)
	PRL(2) = 15
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,15,14)
	PRL(2) = 13
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,16,15)
	PRL(2) = 11
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,17,16)
	PRL(2) = 9
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,18,16)
	PRL(2) = 9
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,19,18)
	PRL(2) = 5
	CALL WTQIO(IOWVB,5,2,,,PRL)
	CALL UVT100(CUP,20,20)
	PRL(2) = 1
	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