Jason's Gem: Routine at 36650

36650: Routine at 8F2A

Used by the routine at StartGame.
Congrats_Print	36650	LD HL,16384
	36653	LD DE,16385
	36656	LD (HL),0
	36658	LD BC,6143
	36661	LDIR
	36663	LD HL,22528
	36666	LD DE,22529
	36669	LD BC,767
	36672	LD (HL),7
	36674	LDIR
	36676	XOR A
	36677	OUT (254),A
Open the upper screen channel.
	36679	LD A,2	A=2.
	36681	CALL 5633	Call CHAN_OPEN.
	36684	LD DE,36721	DE=36721 (text).
	36687	LD BC,191	BC=191 (counter).
	36690	CALL 8252	Call PR_STRING.
	36693	CALL Congrats_Keyboard	Call Congrats_Keyboard.
	36696	LD A,(23464)
	36699	CP 2
	36701	JP Z,Congrats_Joystick
Congrats_Keyboard_Loop	36704	LD A,127
	36706	IN A,(254)
	36708	AND 1
	36710	RET Z
	36711	LD A,239
	36713	IN A,(254)
	36715	AND 1
	36717	RET Z
	36718	JP Congrats_Keyboard_Loop
	36721	DEFB 17,0	PAPER 0.
	36723	DEFB 22,6,0	PRINT AT (6, 0).
	36726	DEFB 16,5	INK 5.
	36728	DEFM "THE MISSION HAS NOW BEEN "	"".
	36753	DEFB 22,7,19	PRINT AT (7, 19).
	36756	DEFM "ACCOMPLISHED,"	"".
	36769	DEFB 22,9,0	PRINT AT (9, 0).
	36772	DEFB 16,6	INK 6.
	36774	DEFM "WITH A BONUS OF 3000 TO YOUR"
	36802	DEFB 22,10,26	PRINT AT (10, 26).
	36805	DEFM "SCORE,"
	36811	DEFB 22,12,0	PRINT AT (12, 0).
	36814	DEFB 16,5	INK 5.
	36816	DEFM "BUT I AM SURE YOUR SCORE COULD"
	36846	DEFB 22,13,22	PRINT AT (13, 22).
	36849	DEFM "BE HIGHER,"
	36859	DEFB 22,15,0	PRINT AT (15, 0).
	36862	DEFB 16,6	INK 6.
	36864	DEFM "SO PRESS THE "
	36877	DEFB 16,6	INK 6.
	36879	DEFB 17,2	PAPER 2.
	36881	DEFB 18,1	FLASH "ON".
	36883	DEFB 19,1	BRIGHT "ON".
	36885	DEFM "SPACE"
	36890	DEFB 16,6	INK 6.
	36892	DEFB 17,0	PAPER 0.
	36894	DEFB 18,0	FLASH "OFF".
	36896	DEFB 19,0	BRIGHT "OFF".
	36898	DEFM " KEY FOR MORE!"
	36912	DEFB 22,15,13	PRINT AT (15, 13).
	36915	DEFB 16,6	INK 6.
	36917	DEFB 17,2	PAPER 2.
	36919	DEFB 18,1	FLASH "ON".
	36921	DEFB 19,1	BRIGHT "ON".
	36923	DEFM "FIRE"
	36927	DEFB 16,6	INK 6.
	36929	DEFB 17,0	PAPER 0.
	36931	DEFB 18,0	FLASH "OFF".
	36933	DEFB 19,0	BRIGHT "OFF".
	36935	DEFM " "
Congrats_Keyboard	36936	LD A,(23464)	Return if ControlMethod is 1 (keyboard).
	36939	CP 1
	36941	RET Z
	36942	LD DE,36912	DE=36912 (text).
	36945	LD BC,24	BC=24 (counter).
	36948	CALL 8252	Call PR_STRING.
	36951	RET	Return.
Loops until "fire" is pressed from the Kempston joystick.
Congrats_Joystick	36952	IN A,(31)	Read Kempston Joystick input.
	36954	AND %00010000	Keep only bit 4.
	36956	RET NZ	Only return when fire button is pressed.
	36957	JP Congrats_Joystick	Jump to Congrats_Joystick.