Message From Andromeda: Routine at 38512

38512: Action: Read

Read the named sign, screen or message.
ActionRead	38512	CALL Parser_ValidateDirectObject	Return if the command does not name a single object.
	38515	RET C	Return if the command does not name a single object.
	38516	JR ActionRead_Step1	Continue at ActionRead_Step1 to match what the player wants to read.
ActionRead_Loop1	38518	LD HL,25691	Print "You can't." and start a new line.
ActionRead_Loop2	38521	CALL PrintStringAndANewline	Print "You can't." and start a new line.
	38524	RET	Return.
ActionRead_Step1	38525	LD HL,35159	Jump to ActionRead_Step2 unless the command matches the phrase at 35159.
	38528	CALL Parser_AdvanceToSeparator
	38531	JR NZ,ActionRead_Step2
	38533	LD HL,31216	Print "The word 'OLD' has been scratched on the wall." and start a new line.
	38536	JR ActionRead_Loop2
ActionRead_Step2	38538	LD HL,35523	Jump to ActionRead_Step5 unless the command matches the phrase at 35523.
	38541	CALL Parser_AdvanceToSeparator
	38544	JR NZ,ActionRead_Step5
	38546	LD HL,32326	Print "The message reads:- "A signal has been received on the intergalactic distress band" Do you wish to investigate?" and start a new line.
	38549	CALL PrintStringAndANewline
ActionRead_Loop3	38552	CALL Handler_UserInput	Call Handler_UserInput to read another command.
	38555	CALL Parser_ValidateNoDirectObject	Call Parser_ValidateNoDirectObject to reject a command that names an object.
	38558	JR C,ActionRead_Loop3	Jump back to ActionRead_Loop3 when the carry flag is set.
	38560	LD A,(25233)	Fetch the first word of the command.
	38563	CP 20	The typed word is not token 20.
	38565	JR NZ,ActionRead_Step3	The typed word is not token 20.
	38567	LD A,3	Move the player to In orbit around an unknown planet. (3).
	38569	CALL MovePlayerToRoom	Move the player to In orbit around an unknown planet. (3).
	38572	RET	Return.
ActionRead_Step3	38573	CP 21	Jump to ActionRead_Step4 when the typed word is token 21.
	38575	JR Z,ActionRead_Step4	Jump to ActionRead_Step4 when the typed word is token 21.
	38577	CALL ResponseYouCanT	Call ResponseYouCanT to say that is not understood.
	38580	RET	Return.
ActionRead_Step4	38581	LD HL,25702	Print "O.K." and start a new line.
	38584	JP ActionRead_Loop2	Print "O.K." and start a new line.
ActionRead_Step5	38587	JP ActionRead_Loop1	Continue at ActionRead_Loop1 to say the player can't.