Jason's Gem: Routine at 37000

37000: Routine at 9088


37000	LD HL,16384
37003	LD DE,16385
37006	LD BC,6143
37009	LD (HL),0
37011	LDIR
37013	LD HL,22528
37016	LD DE,22529
37019	LD (HL),7
37021	LD BC,767
37024	LDIR
37026	XOR A
37027	OUT (254),A
Open the upper screen channel.
37029	LD A,2	A=2.
37031	CALL 5633	Call CHAN_OPEN.
37034	LD DE,37076	DE=37076 (text).
37037	LD BC,509	BC=509 (counter).
37040	CALL 8252	Call PR_STRING.
37043	CALL 37609	Call 37609.
37046	LD A,(23464)
37049	CP 2
37051	JP Z,37625
37054	LD A,127
37056	IN A,(254)
37058	AND 1
37060	RET Z
37061	LD A,239
37063	IN A,(254)
37065	AND 1
37067	RET Z
37068	IN A,(31)
37070	AND 16
37072	RET NZ
37073	JP 37054
37076	DEFB 17,0
37078	DEFB 22,0,0
37081	DEFB 16,6
37083	DEFB 84,72,69,32,69,80,73,84
37091	DEFB 65,80,72,32,73,78,83,67
37099	DEFB 82,73,66,69,68,32,79,78
37107	DEFB 32,80,79,79,82,22,1,19
37115	DEFB 74,65,83,79,78,39,83,32
37123	DEFB 84,79,77,66,44,16,5,68
37131	DEFB 79,69,83,32,78,79,84,32
37139	DEFB 83,80,69,65,75,32,79,70
37147	DEFB 32,72,73,83,32,69,86,69
37155	DEFB 78,84,70,85,76,22,3,26
37163	DEFB 32,76,73,70,69,44,22,4
37171	DEFB 1,16,6,66,85,84,32,79
37179	DEFB 70,32,72,73,83,32,67,65
37187	DEFB 82,69,76,69,83,83,32,68
37195	DEFB 79,79,77,46,46,46,22,7
37203	DEFB 0,16,5,39,79,78,32,69
37211	DEFB 77,66,65,82,75,73,78,71
37219	DEFB 32,79,78,32,72,73,83,32
37227	DEFB 77,73,83,83,73,79,78,32
37235	DEFB 72,69,22,8,9,87,65,83
37243	DEFB 32,71,73,86,69,78,32,67
37251	DEFB 72,65,78,67,69,83,32,70
37259	DEFB 79,85,82,44,22,9,0,16
37267	DEFB 6,66,85,84,32,84,72,69
37275	DEFB 32,71,69,77,32,87,65,83
37283	DEFB 32,85,78,68,73,83,84,85
37291	DEFB 82,66,69,68,22,10,1,40
37299	DEFB 70,79,82,32,72,69,32,78
37307	DEFB 69,69,68,69,68,32,83,79
37315	DEFB 77,69,87,72,65,84,32,77
37323	DEFB 79,82,69,33,41,39,22,12
37331	DEFB 0,16,5,72,79,87,32,83
37339	DEFB 65,68,32,65,32,84,65,76
37347	DEFB 69,32,79,70,32,70,65,73
37355	DEFB 76,85,82,69,32,70,79,82
37363	DEFB 32,22,13,10,79,78,69,32
37371	DEFB 83,79,32,67,76,79,83,69
37379	DEFB 32,84,79,32,71,76,79,82
37387	DEFB 89,33,22,14,1,16,6,66
37395	DEFB 85,84,32,89,79,85,32,67
37403	DEFB 79,85,76,68,32,89,69,84
37411	DEFB 32,82,69,87,82,73,84,69
37419	DEFB 32,84,72,69,22,15,7,32
37427	DEFB 72,73,83,84,79,82,89,32
37435	DEFB 79,70,32,84,72,73,83,32
37443	DEFB 83,84,79,82,89,46,46,46
37451	DEFB 22,17,0,16,5,83,79,32
37459	DEFB 80,82,69,83,83,32,84,72
37467	DEFB 69,32,19,1,16,6,17,2
37475	DEFB 18,1,83,80,65,67,69,19
37483	DEFB 0,16,5,17,0,18,0,32
37491	DEFB 75,69,89,32,70,79,82,22
37499	DEFB 18,9,74,65,83,79,78,39
37507	DEFB 83,32,82,69,73,78,67,65
37515	DEFB 82,78,65,84,73,79,78,44
37523	DEFB 22,19,0,16,6,65,78,68
37531	DEFB 32,84,72,69,78,32,89,79
37539	DEFB 85,32,77,65,89,32,66,69
37547	DEFB 71,73,78,32,65,32,66,82
37555	DEFB 65,78,68,22,20,7,78,69
37563	DEFB 87,32,77,73,83,83,73,79
37571	DEFB 78,32,69,77,66,65,82,75
37579	DEFB 65,84,73,79,78,46,19,1
37587	DEFB 16,6,17,2,18,1,22,17
37595	DEFB 13,70,73,82,69,19,0,16
37603	DEFB 5,17,0,18,0,32
37609	LD A,(23464)
37612	CP 1
37614	RET Z
37615	LD DE,37585
37618	LD BC,24
37621	CALL 8252
37624	RET
37625	IN A,(31)
37627	AND 16
37629	RET NZ
37630	JP 37625