SUBROUTINE QUIT(WHO,L,DONE)
C
C      QUIT COMMAND FOR MTREK
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS,WHO
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,DONE,FBASE
	BYTE MESSAG,INITLS,CLRIT(2),CNGBCK(2)
	DATA CLRIT/"33,'K'/
	DATA CNGBCK/"33,'<'/
	COMMON /MAPPNG/ IRDB(8),IWDB(8),MAPS
	INTEGER*4 MAPS
C
C
	CALL CPOS(L)
	WRITE(5,10106) CLRIT
10106	FORMAT ('$Are you sure you want to quit now ? ',2A1)
	CALL YESNO(DONE)
	IF (.NOT.DONE) GO TO 10107
	CREW(WHO)=CREW(WHO)-1
	IF (CREW(WHO).NE.400) GO TO 10107
	ICNTRL(8) = 1
	XSHIP(WHO)=.FALSE.
	PAUS(WHO)=.FALSE.
	INITLS(WHO,1)=' '
	INITLS(WHO,2)=' '
	CALL CLEAR
	WRITE(5,2) CNGBCK
2	FORMAT(' ',2A1)
	WRITE (5,3) MAPS
3	FORMAT (' Number of universe maps made :',I10)
	CLOSE (UNIT=3)
10107	RETURN
	END