Jason's Gem: Routine at 8F2A

8F2A: Routine at 8F2A

Used by the routine at StartGame.
Congrats_Print	8F2A	LD HL,$4000
	8F2D	LD DE,$4001
	8F30	LD (HL),$00
	8F32	LD BC,$17FF
	8F35	LDIR
	8F37	LD HL,$5800
	8F3A	LD DE,$5801
	8F3D	LD BC,$02FF
	8F40	LD (HL),$07
	8F42	LDIR
	8F44	XOR A
	8F45	OUT ($FE),A
Open the upper screen channel.
	8F47	LD A,$02	A=02.
	8F49	CALL $1601	Call CHAN_OPEN.
	8F4C	LD DE,$8F71	DE=8F71 (text).
	8F4F	LD BC,$00BF	BC=BF (counter).
	8F52	CALL $203C	Call PR_STRING.
	8F55	CALL Congrats_Keyboard	Call Congrats_Keyboard.
	8F58	LD A,($5BA8)
	8F5B	CP $02
	8F5D	JP Z,Congrats_Joystick
Congrats_Keyboard_Loop	8F60	LD A,$7F
	8F62	IN A,($FE)
	8F64	AND $01
	8F66	RET Z
	8F67	LD A,$EF
	8F69	IN A,($FE)
	8F6B	AND $01
	8F6D	RET Z
	8F6E	JP Congrats_Keyboard_Loop
	8F71	DEFB $11,$00	PAPER 0.
	8F73	DEFB $16,$06,$00	PRINT AT (6, 0).
	8F76	DEFB $10,$05	INK 5.
	8F78	DEFM "THE MISSION HAS NOW BEEN "	"".
	8F91	DEFB $16,$07,$13	PRINT AT (7, 19).
	8F94	DEFM "ACCOMPLISHED,"	"".
	8FA1	DEFB $16,$09,$00	PRINT AT (9, 0).
	8FA4	DEFB $10,$06	INK 6.
	8FA6	DEFM "WITH A BONUS OF 3000 TO YOUR"
	8FC2	DEFB $16,$0A,$1A	PRINT AT (10, 26).
	8FC5	DEFM "SCORE,"
	8FCB	DEFB $16,$0C,$00	PRINT AT (12, 0).
	8FCE	DEFB $10,$05	INK 5.
	8FD0	DEFM "BUT I AM SURE YOUR SCORE COULD"
	8FEE	DEFB $16,$0D,$16	PRINT AT (13, 22).
	8FF1	DEFM "BE HIGHER,"
	8FFB	DEFB $16,$0F,$00	PRINT AT (15, 0).
	8FFE	DEFB $10,$06	INK 6.
	9000	DEFM "SO PRESS THE "
	900D	DEFB $10,$06	INK 6.
	900F	DEFB $11,$02	PAPER 2.
	9011	DEFB $12,$01	FLASH "ON".
	9013	DEFB $13,$01	BRIGHT "ON".
	9015	DEFM "SPACE"
	901A	DEFB $10,$06	INK 6.
	901C	DEFB $11,$00	PAPER 0.
	901E	DEFB $12,$00	FLASH "OFF".
	9020	DEFB $13,$00	BRIGHT "OFF".
	9022	DEFM " KEY FOR MORE!"
	9030	DEFB $16,$0F,$0D	PRINT AT (15, 13).
	9033	DEFB $10,$06	INK 6.
	9035	DEFB $11,$02	PAPER 2.
	9037	DEFB $12,$01	FLASH "ON".
	9039	DEFB $13,$01	BRIGHT "ON".
	903B	DEFM "FIRE"
	903F	DEFB $10,$06	INK 6.
	9041	DEFB $11,$00	PAPER 0.
	9043	DEFB $12,$00	FLASH "OFF".
	9045	DEFB $13,$00	BRIGHT "OFF".
	9047	DEFM " "
Congrats_Keyboard	9048	LD A,($5BA8)	Return if ControlMethod is 01 (keyboard).
	904B	CP $01
	904D	RET Z
	904E	LD DE,$9030	DE=9030 (text).
	9051	LD BC,$0018	BC=18 (counter).
	9054	CALL $203C	Call PR_STRING.
	9057	RET	Return.
Loops until "fire" is pressed from the Kempston joystick.
Congrats_Joystick	9058	IN A,($1F)	Read Kempston Joystick input.
	905A	AND %00010000	Keep only bit 4.
	905C	RET NZ	Only return when fire button is pressed.
	905D	JP Congrats_Joystick	Jump to Congrats_Joystick.