Marsport: Routine at B6C9

B6C9: Updates the level text on the screen.

Used by the routine at Bg_DrawColumn.
Level_TextPrint	B6C9	PUSH IX
	B6CB	LD A,$01
	B6CD	CALL $1601
	B6D0	CALL Print_StringOnStack	Position onto screen for level name.
	B6D3	DEFM $16,$04,$01,$11,$01,$10,$05,$5E	PRINT AT 4,1; PAPER BLUE; INK CYAN;
	B6DB	LD A,(Level_Char)	Get level number.
	B6DE	SUB $61	Get level number.
	B6E0	LD HL,Word_TableLevels	Work out the index of the level name in the dictionary.
	B6E3	ADD A,(HL)	Work out the index of the level name in the dictionary.
	B6E4	CALL Word_PrintFromIndex	Print it onto scoreboard.
	B6E7	LD IX,(PathPtrCopy)	Print it onto scoreboard.
	B6EB	LD A,(IX+$08)	Get the sector from the path info and set the sector character in the string.
	B6EE	AND $7F
	B6F0	LD (Sector_Char),A
	B6F3	CALL Print_StringOnStack
	B6F6	DEFM " level",$16,$05,$01,"sector "	Level string ending.
Sector_Char	B706	DEFB $64	Character representing the sector the path is in.
	B707	DEFM " ",$16,$06,$01,$5E
	B70D	LD A,(Level_Char)	Work out which word to display for the area name.
	B710	SUB $61
	B712	LD E,A
	B713	LD D,$00
	B715	LD HL,Area_NameIndices
	B718	ADD HL,DE
	B719	LD A,(HL)
	B71A	CALL Word_PrintFromIndex
	B71D	POP IX
	B71F	RET