Everyone's A Wally: Routine at B3C3

B3C3: The safe has been cracked! Get everyone together and print earnings.

Used by the routine at EDC6.
B3C3	LD DE,$131C
B3C6	LD HL,$CCF2
B3C9	CALL $B82B
B3CC	LD IY,$BC67	Point IY towards the first character buffer.
B3D0	LD HL,$B3BE
B3D3	LD B,$05
B3D5	PUSH BC
B3D6	LD (IY+$0A),$98
B3DA	LD A,(IY+$05)	Get the X co-ordinate.
B3DD	CP (HL)
B3DE	JR Z,$B41D
B3E0	PUSH AF
B3E1	LD A,(IY+$0F)
B3E4	CP $16
B3E6	JR Z,$B3F3
B3E8	LD (IY+$0F),$16
B3EC	LD (IY+$05),$00
B3F0	POP AF
B3F1	SCF
B3F2	PUSH AF
B3F3	POP AF
B3F4	PUSH HL
B3F5	JR NC,$B404
B3F7	LD (IY+$3C),$01
B3FB	LD (IY+$41),$01
B3FF	CALL $B288
B402	JR $B40F
B404	LD (IY+$3C),$FF
B408	LD (IY+$41),$FF
B40C	CALL $B288
B40F	POP HL
B410	POP BC
B411	LD IY,$BC67	Point IY towards the first character buffer.
B415	CALL $EEC1
B418	CALL $B9D6
B41B	JR $B3CC
B41D	LD A,(IY+$0F)
B420	CP $16
B422	JR NZ,$B3E0
B424	POP BC
B425	INC HL
B426	INC IY
B428	DJNZ $B3D5
B42A	LD A,($F6DB)
B42D	OR A
B42E	JR Z,$B411
B430	LD DE,$0400
B433	LD HL,$7E68
B436	CALL $B84B
B439	CALL $B3AB	Wait for a keypress.
B43C	CALL $B8ED	Clear the screen.
B43F	LD DE,$0002	Set the position to draw the text.
B442	LD HL,$7C76	Point HL at the completed game text. (7C76)
B445	CALL $B8C4	Print it.
B448	CALL $B3AB	Wait for a keypress.
B44B	CALL $B2F1	Print who earned what.
B44E	JP $8184	Restart the game.