Alien 8: Routine at B8A9

Used by the routine at GAME_ENDED.

Jumped to from GAME_ENDED when WON is set. Clears the buffer, blanks the screen with bright red attributes, prints the seven lines of the arrival text -- the station arrived and slowed, the activation circuits held, all crew systems go -- clearing TEXT_SHOWN first so that the list also draws the border and shows the screen, then plays the arrival tune to its end, waits about fourteen seconds or for a key, and goes on to the summary as for a lost game. As Knight Lore's game_complete_msg.

Used by the routine at GAME_ENDED. Jumped to from GAME_ENDED when WON is set. Clears the buffer, blanks the screen with bright red attributes, prints the seven lines of the arrival text -- the station arrived and slowed, the activation circuits held, all crew systems go -- clearing TEXT_SHOWN first so that the list also draws the border and shows the screen, then plays the arrival tune to its end, waits about fourteen seconds or for a key, and goes on to the summary as for a lost game. As Knight Lore's game_complete_msg.
ARRIVAL_SCREEN	B8A9	CALL CLEAR_SCRN_BUFFER	clear the buffer; the border black, the attributes bright red, the screen blank
	B8AC	CALL CLEAR_SCRN
	B8AF	LD DE,ARRIVAL_COLOURS	colours from ARRIVAL_COLOURS, positions from ARRIVAL_XY, strings from ARRIVAL_TEXT: seven lines
	B8B2	EXX
	B8B3	LD HL,ARRIVAL_XY
	B8B6	LD DE,ARRIVAL_TEXT
	B8B9	LD B,$07
	B8BB	XOR A	the first list since the flag was cleared: border and screen too
	B8BC	LD (TEXT_SHOWN),A
	B8BF	CALL DISPLAY_TEXT_LIST
	B8C2	LD DE,TUNE_ARRIVAL	the arrival tune, in full
	B8C5	CALL PLAY_TUNE	the arrival tune, in full
	B8C8	LD B,$08	about 14 seconds, or until a key
	B8CA	CALL WAIT_KEY_OR_TIME	about 14 seconds, or until a key
	B8CD	JP SUMMARY_SCREEN	then the summary