Heroes of Karn: Routine at 63428

63428: Action: Quit

Carry out the "Quit" command.
Action_Quit	63428	CALL ParserValidateNoDirectObject	Call ParserValidateNoDirectObject to check that the command has no object, and return if it does not.
	63431	RET C
	63432	CALL Messaging_YouHaveScored_Print	Call Messaging_YouHaveScored_Print to tell the player the score.
Print it and start a new line: Want to save the game? Y/N..
	63435	LD HL,45207	Point at the message and print it and start a new line.
	63438	CALL PrintStringAndANewline	Point at the message and print it and start a new line.
Action_Quit_Loop	63441	CALL GetUserInput	Call GetUserInput to read the player's key.
	63444	CP 78	Branch to Action_Quit_Next when the player pressed "N".
	63446	JR Z,Action_Quit_Next	Branch to Action_Quit_Next when the player pressed "N".
	63448	CP 89	Branch to Action_Quit_Loop unless the player pressed "Y".
	63450	JR NZ,Action_Quit_Loop	Branch to Action_Quit_Loop unless the player pressed "Y".
	63452	CALL SaveGame	Call SaveGame to write the game to tape.
Action_Quit_Next	63455	LD HL,59838	Return to the play-again question.
	63458	EX (SP),HL	Return to the play-again question.
	63459	RET	Return.
View the equivalent code in; Message From Andromeda Forest At Worlds End The Jewels Of Babylon Warlord