.FUNCT	V-$SCRUB:ANY:0:0
	PRINTI	"[CO2 scrubbers "
	ZERO?	GL-SCRUBBERS-ON /?PRT4
	SET	'GL-SCRUBBERS-ON,0
	JUMP	?PRE6
?PRT4:	SET	'GL-SCRUBBERS-ON,1
?PRE6:	ZERO?	GL-SCRUBBERS-ON /?CCL3
	PRINTI	"on"
	JUMP	?CND1
?CCL3:	PRINTI	"off"
?CND1:	PRINTI	".]
"
	RETURN	2


	.FUNCT	V-$AIR:ANY:0:0
	SET	'GL-OXYGEN-QTY,K-OXY-NOM
	SET	'GL-OXYGEN-MSG,K-OXY-NOM
	SET	'GL-CO2-QTY,K-CO2-NOM
	SET	'GL-CO2-MSG,K-CO2-NOM
	SET	'GL-NITROGEN-QTY,K-NIT-NOM
	SET	'GL-NITROGEN-MSG,K-NIT-NOM
	SET	'GL-HELIUM-QTY,K-HEL-NOM
	PRINTI	"[Breathing mix returned to nominal.]
"
	RETURN	2


	.FUNCT	RT-NUM-DIGITS:ANY:1:1,N
	LESS?	N,0 \?CND1
	SUB	0,N >N
?CND1:	LESS?	N,10 /TRUE
	LESS?	N,100 \?CCL8
	RETURN	2
?CCL8:	LESS?	N,1000 \?CCL10
	RETURN	3
?CCL10:	LESS?	N,10000 /?CTR11
	RETURN	5
?CTR11:	RETURN	4


	.FUNCT	RT-PRINT-FLOAT:ANY:2:3,F,E,D,N,M
	ASSIGNED?	'D /?CND1
	SET	'D,-1
?CND1:	LESS?	E,0 \?CCL5
	CALL2	RT-NUM-DIGITS,F
	SUB	0,STACK >N
	GRTR?	E,N /?CCL8
	PRINTI	"0."
?PRG9:	LESS?	E,N \?REP10
	PRINTC	48
	INC	'E
	JUMP	?PRG9
?REP10:	PRINTN	F
	RTRUE	
?CCL8:	SUB	0,N
	EQUAL?	STACK,5 \?CCL16
	SET	'M,10000
	JUMP	?PRG23
?CCL16:	SUB	0,N
	EQUAL?	STACK,4 \?CCL18
	SET	'M,1000
	JUMP	?PRG23
?CCL18:	SUB	0,N
	EQUAL?	STACK,3 \?CCL20
	SET	'M,100
	JUMP	?PRG23
?CCL20:	SUB	0,N
	EQUAL?	STACK,2 \?CCL22
	SET	'M,10
	JUMP	?PRG23
?CCL22:	SET	'M,1
?PRG23:	DIV	F,M
	MOD	STACK,10
	PRINTN	STACK
	INC	'N
	EQUAL?	E,N \?CND25
	PRINTC	46
?CND25:	DIV	M,10 >M
	ZERO?	M \?PRG23
	RTRUE	
?CCL5:	PRINTN	F
	SET	'N,0
?PRG29:	LESS?	N,E \TRUE
	PRINTC	48
	INC	'N
	JUMP	?PRG29


	.FUNCT	RT-NITROGEN-MSG:ANY:0:0
	GRTR?	GL-NITROGEN-QTY,GL-NITROGEN-MSG \?CCL3
	LESS?	GL-NITROGEN-QTY,K-NIT-HIGH-4 /?CCL6
	SET	'GL-NITROGEN-MSG,GL-NITROGEN-QTY
	PRINTI	"	The high nitrogen level finally overcomes you and you fall to the floor, unconscious.
"
	CALL1	RT-END-OF-GAME
	RSTACK	
?CCL6:	LESS?	GL-NITROGEN-QTY,K-NIT-HIGH-3 /?CCL9
	LESS?	GL-NITROGEN-MSG,K-NIT-HIGH-3 \FALSE
	SET	'GL-NITROGEN-MSG,GL-NITROGEN-QTY
	PRINTR	"	You are beginning to hallucinate."
?CCL9:	LESS?	GL-NITROGEN-QTY,K-NIT-HIGH-2 /?CCL14
	LESS?	GL-NITROGEN-MSG,K-NIT-HIGH-2 \FALSE
	SET	'GL-NITROGEN-MSG,GL-NITROGEN-QTY
	PRINTR	"	Your head is beginning to spin."
?CCL14:	LESS?	GL-NITROGEN-QTY,K-NIT-HIGH-1 /?CCL19
	LESS?	GL-NITROGEN-MSG,K-NIT-HIGH-1 \FALSE
	SET	'GL-NITROGEN-MSG,GL-NITROGEN-QTY
	PRINTR	"	You are beginning to feel light-headed."
?CCL19:	GRTR?	GL-NITROGEN-QTY,K-NIT-LOW-1 \?CCL24
	GRTR?	GL-NITROGEN-MSG,K-NIT-LOW-1 /FALSE
	SET	'GL-NITROGEN-MSG,GL-NITROGEN-QTY
	PRINTR	"	Your hands stop trembling. The nitrogen level must be back to normal."
?CCL24:	GRTR?	GL-NITROGEN-QTY,K-NIT-LOW-2 \?CCL29
	GRTR?	GL-NITROGEN-MSG,K-NIT-LOW-2 /FALSE
	SET	'GL-NITROGEN-MSG,GL-NITROGEN-QTY
	PRINTR	"	Most of the trembling in your hands has disappeared."
?CCL29:	GRTR?	GL-NITROGEN-QTY,K-NIT-LOW-3 \FALSE
	GRTR?	GL-NITROGEN-MSG,K-NIT-LOW-3 /FALSE
	SET	'GL-NITROGEN-MSG,GL-NITROGEN-QTY
	PRINTR	"	The flashes of irritibility cease, but your fingertips are still trembling."
?CCL3:	LESS?	GL-NITROGEN-QTY,GL-NITROGEN-MSG \FALSE
	GRTR?	GL-NITROGEN-QTY,K-NIT-LOW-4 /?CCL42
	SET	'GL-NITROGEN-MSG,GL-NITROGEN-QTY
	PRINTI	"	You slump to the floor, a victim of High Pressure Nervous Syndrome.
"
	CALL1	RT-END-OF-GAME
	RSTACK	
?CCL42:	GRTR?	GL-NITROGEN-QTY,K-NIT-LOW-3 /?CCL45
	GRTR?	GL-NITROGEN-MSG,K-NIT-LOW-3 \FALSE
	SET	'GL-NITROGEN-MSG,GL-NITROGEN-QTY
	PRINTR	"	You begin to have flashes of sudden irritibility."
?CCL45:	GRTR?	GL-NITROGEN-QTY,K-NIT-LOW-2 /?CCL50
	GRTR?	GL-NITROGEN-MSG,K-NIT-LOW-2 \FALSE
	SET	'GL-NITROGEN-MSG,GL-NITROGEN-QTY
	PRINTR	"	The trembling in your fingertips gets worse."
?CCL50:	GRTR?	GL-NITROGEN-QTY,K-NIT-LOW-1 /?CCL55
	GRTR?	GL-NITROGEN-MSG,K-NIT-LOW-1 \FALSE
	SET	'GL-NITROGEN-MSG,GL-NITROGEN-QTY
	PRINTR	"	Your hands begin to tremble."
?CCL55:	LESS?	GL-NITROGEN-QTY,K-NIT-HIGH-1 \?CCL60
	LESS?	GL-NITROGEN-MSG,K-NIT-HIGH-1 /FALSE
	SET	'GL-NITROGEN-MSG,GL-NITROGEN-QTY
	PRINTR	"	You no longer feel dizzy. The nitrogen level must be back to normal."
?CCL60:	LESS?	GL-NITROGEN-QTY,K-NIT-HIGH-2 \?CCL65
	LESS?	GL-NITROGEN-MSG,K-NIT-HIGH-2 /FALSE
	SET	'GL-NITROGEN-MSG,GL-NITROGEN-QTY
	PRINTR	"	Your head stops spinning, but you still feel dizzy."
?CCL65:	LESS?	GL-NITROGEN-QTY,K-NIT-HIGH-3 \FALSE
	LESS?	GL-NITROGEN-MSG,K-NIT-HIGH-3 /FALSE
	SET	'GL-NITROGEN-MSG,GL-NITROGEN-QTY
	PRINTR	"	The hallucinations fade, but your head is still spinning."


	.FUNCT	RT-OXYGEN-MSG:ANY:0:0
	GRTR?	GL-OXYGEN-QTY,GL-OXYGEN-MSG \?CCL3
	LESS?	GL-OXYGEN-QTY,K-OXY-HIGH-4 /?CCL6
	SET	'GL-OXYGEN-MSG,GL-OXYGEN-QTY
	PRINTI	"	The high oxygen level finally overcomes you. You go into convulsions, fall to the floor, and pass out.
"
	CALL1	RT-END-OF-GAME
	RSTACK	
?CCL6:	LESS?	GL-OXYGEN-QTY,K-OXY-HIGH-3 /?CCL9
	LESS?	GL-OXYGEN-MSG,K-OXY-HIGH-3 \FALSE
	SET	'GL-OXYGEN-MSG,GL-OXYGEN-QTY
	PRINTR	"	Suddenly, your stomach muscles tighten up and you fight off the urge to vomit."
?CCL9:	LESS?	GL-OXYGEN-QTY,K-OXY-HIGH-2 /?CCL14
	LESS?	GL-OXYGEN-MSG,K-OXY-HIGH-2 \FALSE
	SET	'GL-OXYGEN-MSG,GL-OXYGEN-QTY
	PRINTR	"	You begin to feel nauseous."
?CCL14:	LESS?	GL-OXYGEN-QTY,K-OXY-HIGH-1 /?CCL19
	LESS?	GL-OXYGEN-MSG,K-OXY-HIGH-1 \FALSE
	SET	'GL-OXYGEN-MSG,GL-OXYGEN-QTY
	PRINTR	"	Suddenly, you feel a twitch in your lower lip."
?CCL19:	GRTR?	GL-OXYGEN-QTY,K-OXY-LOW-1 \?CCL24
	GRTR?	GL-OXYGEN-MSG,K-OXY-LOW-1 /FALSE
	SET	'GL-OXYGEN-MSG,GL-OXYGEN-QTY
	PRINTR	"	Your headache disappears. The oxygen level must be back to normal."
?CCL24:	GRTR?	GL-OXYGEN-QTY,K-OXY-LOW-2 \?CCL29
	GRTR?	GL-OXYGEN-MSG,K-OXY-LOW-2 /FALSE
	SET	'GL-OXYGEN-MSG,GL-OXYGEN-QTY
	PRINTR	"	You begin to see colors again, but you still have a mild headache."
?CCL29:	GRTR?	GL-OXYGEN-QTY,K-OXY-LOW-3 \FALSE
	GRTR?	GL-OXYGEN-MSG,K-OXY-LOW-3 /FALSE
	SET	'GL-OXYGEN-MSG,GL-OXYGEN-QTY
	PRINTR	"	Your tunnel vision begins to fade."
?CCL3:	LESS?	GL-OXYGEN-QTY,GL-OXYGEN-MSG \FALSE
	GRTR?	GL-OXYGEN-QTY,K-OXY-LOW-4 /?CCL42
	SET	'GL-OXYGEN-MSG,GL-OXYGEN-QTY
	PRINTI	"	You collapse, a victim of oxygen starvation.
"
	CALL1	RT-END-OF-GAME
	RSTACK	
?CCL42:	GRTR?	GL-OXYGEN-QTY,K-OXY-LOW-3 /?CCL45
	GRTR?	GL-OXYGEN-MSG,K-OXY-LOW-3 \FALSE
	SET	'GL-OXYGEN-MSG,GL-OXYGEN-QTY
	PRINTR	"	You notice that your peripheral vision is beginning to disappear."
?CCL45:	GRTR?	GL-OXYGEN-QTY,K-OXY-LOW-2 /?CCL50
	GRTR?	GL-OXYGEN-MSG,K-OXY-LOW-2 \FALSE
	SET	'GL-OXYGEN-MSG,GL-OXYGEN-QTY
	PRINTR	"	The colors around you seem to fade."
?CCL50:	GRTR?	GL-OXYGEN-QTY,K-OXY-LOW-1 /?CCL55
	GRTR?	GL-OXYGEN-MSG,K-OXY-LOW-1 \FALSE
	SET	'GL-OXYGEN-MSG,GL-OXYGEN-QTY
	PRINTR	"	Your head begins to ache."
?CCL55:	LESS?	GL-OXYGEN-QTY,K-OXY-HIGH-1 \?CCL60
	LESS?	GL-OXYGEN-MSG,K-OXY-HIGH-1 /FALSE
	SET	'GL-OXYGEN-MSG,GL-OXYGEN-QTY
	PRINTR	"	You lip stops twitching. The oxygen level must be back to normal."
?CCL60:	LESS?	GL-OXYGEN-QTY,K-OXY-HIGH-2 \?CCL65
	LESS?	GL-OXYGEN-MSG,K-OXY-HIGH-2 /FALSE
	SET	'GL-OXYGEN-MSG,GL-OXYGEN-QTY
	PRINTR	"	You no longer feel nauseous, but your lip still twitches occasionally."
?CCL65:	LESS?	GL-OXYGEN-QTY,K-OXY-HIGH-3 \FALSE
	LESS?	GL-OXYGEN-MSG,K-OXY-HIGH-3 /FALSE
	SET	'GL-OXYGEN-MSG,GL-OXYGEN-QTY
	PRINTR	"	The tension in your stomach disappears, but you still feel slightly nauseous."


	.FUNCT	RT-CO2-MSG:ANY:0:0
	GRTR?	GL-CO2-QTY,GL-CO2-MSG \?CCL3
	LESS?	GL-CO2-QTY,K-CO2-HIGH-4 /?CCL6
	SET	'GL-CO2-MSG,GL-CO2-QTY
	PRINTI	"	You pass out from carbon dioxide poisoning.
"
	CALL1	RT-END-OF-GAME
	RSTACK	
?CCL6:	LESS?	GL-CO2-QTY,K-CO2-HIGH-3 /?CCL9
	LESS?	GL-CO2-MSG,K-CO2-HIGH-3 \FALSE
	SET	'GL-CO2-MSG,GL-CO2-QTY
	PRINTR	"	Suddenly the muscles in your arm begin to spasm."
?CCL9:	LESS?	GL-CO2-QTY,K-CO2-HIGH-2 /?CCL14
	LESS?	GL-CO2-MSG,K-CO2-HIGH-2 \FALSE
	SET	'GL-CO2-MSG,GL-CO2-QTY
	PRINTR	"	Your chest muscles are beginning to ache."
?CCL14:	LESS?	GL-CO2-QTY,K-CO2-HIGH-1 /FALSE
	LESS?	GL-CO2-MSG,K-CO2-HIGH-1 \FALSE
	SET	'GL-CO2-MSG,GL-CO2-QTY
	PRINTR	"	You begin to feel a little short of breath."
?CCL3:	LESS?	GL-CO2-QTY,GL-CO2-MSG \FALSE
	LESS?	GL-CO2-QTY,K-CO2-HIGH-1 \?CCL27
	LESS?	GL-CO2-MSG,K-CO2-HIGH-1 /FALSE
	SET	'GL-CO2-MSG,GL-CO2-QTY
	PRINTR	"	You begin to breathe more easily. The carbon dioxide level must have returned to normal."
?CCL27:	LESS?	GL-CO2-QTY,K-CO2-HIGH-2 \?CCL32
	LESS?	GL-CO2-MSG,K-CO2-HIGH-2 /FALSE
	SET	'GL-CO2-MSG,GL-CO2-QTY
	PRINTR	"	Your chest muscles feel better, but you are still short of breath."
?CCL32:	LESS?	GL-CO2-QTY,K-CO2-HIGH-3 \FALSE
	LESS?	GL-CO2-MSG,K-CO2-HIGH-3 /FALSE
	SET	'GL-CO2-MSG,GL-CO2-QTY
	PRINTR	"	The spasms in your arm have stopped, but your chest muscles still ache."


	.FUNCT	RT-I-GAS-MIX:ANY:0:0
	ADD	GL-MOVES,1
	ICALL	RT-QUEUE,RT-I-GAS-MIX,STACK
	SUB	GL-OXYGEN-QTY,4 >GL-OXYGEN-QTY
	LESS?	GL-OXYGEN-QTY,0 \?CND1
	SET	'GL-OXYGEN-QTY,0
?CND1:	ZERO?	GL-SCRUBBERS-ON /?CCL5
	SUB	GL-CO2-QTY,340 >GL-CO2-QTY
	LESS?	GL-CO2-QTY,0 \?CND3
	SET	'GL-CO2-QTY,0
	JUMP	?CND3
?CCL5:	ADD	GL-CO2-QTY,340 >GL-CO2-QTY
?CND3:	CALL1	RT-OXYGEN-MSG
	ZERO?	STACK \TRUE
	CALL1	RT-CO2-MSG
	ZERO?	STACK \TRUE
	RFALSE	


	.FUNCT	V-$HEAT:ANY:0:0
	PRINTI	"[Heaters "
	ZERO?	GL-HEATERS-ON /?PRT4
	SET	'GL-HEATERS-ON,0
	JUMP	?PRE6
?PRT4:	SET	'GL-HEATERS-ON,1
?PRE6:	ZERO?	GL-HEATERS-ON /?CCL3
	PRINTI	"on"
	JUMP	?CND1
?CCL3:	PRINTI	"off"
?CND1:	PRINTI	".]
"
	RETURN	2


	.FUNCT	RT-TH-THERMOMETER:ANY:0:1,CONTEXT
	ZERO?	CONTEXT \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?READ \FALSE
	PRINTI	"	The thermometer says your core temperature is "
	ICALL	RT-PRINT-FLOAT,GL-PLAYER-TEMP,K-TEMP-FACTOR
	PRINTR	" degrees Fahrenheit."


	.FUNCT	RT-TEMP-MSG:ANY:0:0
	LESS?	GL-PLAYER-TEMP,GL-TEMP-MSG \?CCL3
	GRTR?	GL-PLAYER-TEMP,K-TEMP-LOW-4 /?CCL6
	SET	'GL-TEMP-MSG,GL-PLAYER-TEMP
	PRINTI	"	The cold finally overpowers you and you pass out.
"
	CALL1	RT-END-OF-GAME
	RSTACK	
?CCL6:	GRTR?	GL-PLAYER-TEMP,K-TEMP-LOW-3 /?CCL9
	GRTR?	GL-TEMP-MSG,K-TEMP-LOW-3 \FALSE
	SET	'GL-TEMP-MSG,GL-PLAYER-TEMP
	PRINTR	"	You're so cold you can hardly move."
?CCL9:	GRTR?	GL-PLAYER-TEMP,K-TEMP-LOW-2 /?CCL14
	GRTR?	GL-TEMP-MSG,K-TEMP-LOW-2 \FALSE
	SET	'GL-TEMP-MSG,GL-PLAYER-TEMP
	PRINTR	"	The cold begins to creep into your bones."
?CCL14:	GRTR?	GL-PLAYER-TEMP,K-TEMP-LOW-1 /?CCL19
	GRTR?	GL-TEMP-MSG,K-TEMP-LOW-1 \FALSE
	SET	'GL-TEMP-MSG,GL-PLAYER-TEMP
	PRINTR	"	You begin to shiver."
?CCL19:	LESS?	GL-PLAYER-TEMP,K-TEMP-HIGH-1 \?CCL24
	LESS?	GL-TEMP-MSG,K-TEMP-HIGH-1 /FALSE
	SET	'GL-TEMP-MSG,GL-PLAYER-TEMP
	PRINTR	"	You stop sweating. Your body temperature must have returned to normal."
?CCL24:	LESS?	GL-PLAYER-TEMP,K-TEMP-HIGH-2 \?CCL29
	LESS?	GL-TEMP-MSG,K-TEMP-HIGH-2 /FALSE
	SET	'GL-TEMP-MSG,GL-PLAYER-TEMP
	PRINTR	"	Your face is no longer flushed, but you are still sweating."
?CCL29:	LESS?	GL-PLAYER-TEMP,K-TEMP-HIGH-3 \FALSE
	LESS?	GL-TEMP-MSG,K-TEMP-HIGH-3 /FALSE
	SET	'GL-TEMP-MSG,GL-PLAYER-TEMP
	PRINTR	"	Your breathing returns to normal, but your face is still red."
?CCL3:	GRTR?	GL-PLAYER-TEMP,GL-TEMP-MSG \FALSE
	LESS?	GL-PLAYER-TEMP,K-TEMP-HIGH-4 /?CCL42
	SET	'GL-TEMP-MSG,GL-PLAYER-TEMP
	PRINTI	"	The heat becomes overpowering and you collapse.
"
	CALL1	RT-END-OF-GAME
	RSTACK	
?CCL42:	LESS?	GL-PLAYER-TEMP,K-TEMP-HIGH-3 /?CCL45
	LESS?	GL-TEMP-MSG,K-TEMP-HIGH-3 \FALSE
	SET	'GL-TEMP-MSG,GL-PLAYER-TEMP
	PRINTR	"	You're so hot you can hardly move. Your breathing speeds up dangerously."
?CCL45:	LESS?	GL-PLAYER-TEMP,K-TEMP-HIGH-2 /?CCL50
	LESS?	GL-TEMP-MSG,K-TEMP-HIGH-2 \FALSE
	SET	'GL-TEMP-MSG,GL-PLAYER-TEMP
	PRINTR	"	Your face turns red from the heat."
?CCL50:	LESS?	GL-PLAYER-TEMP,K-TEMP-HIGH-1 /?CCL55
	LESS?	GL-TEMP-MSG,K-TEMP-HIGH-1 \FALSE
	SET	'GL-TEMP-MSG,GL-PLAYER-TEMP
	PRINTR	"	You feel uncomfortably hot and begin to sweat."
?CCL55:	GRTR?	GL-PLAYER-TEMP,K-TEMP-LOW-1 \?CCL60
	GRTR?	GL-TEMP-MSG,K-TEMP-LOW-1 /FALSE
	SET	'GL-TEMP-MSG,GL-PLAYER-TEMP
	PRINTR	"	You stop shivering. Your body temperature must be back to normal."
?CCL60:	GRTR?	GL-PLAYER-TEMP,K-TEMP-LOW-2 \?CCL65
	GRTR?	GL-TEMP-MSG,K-TEMP-LOW-2 /FALSE
	SET	'GL-TEMP-MSG,GL-PLAYER-TEMP
	PRINTR	"	Your hands and feet tingle as they begin to warm up."
?CCL65:	GRTR?	GL-PLAYER-TEMP,K-TEMP-LOW-3 \FALSE
	GRTR?	GL-TEMP-MSG,K-TEMP-LOW-3 /FALSE
	SET	'GL-TEMP-MSG,GL-PLAYER-TEMP
	PRINTR	"	You're beginning to thaw out."


	.FUNCT	RT-I-DEEPCORE-TEMP:ANY:0:0
	ADD	GL-MOVES,1
	ICALL	RT-QUEUE,RT-I-DEEPCORE-TEMP,STACK
	ZERO?	GL-HEATERS-ON /?CCL3
	ADD	GL-DEEPCORE-TEMP,5 >GL-DEEPCORE-TEMP
	RFALSE	
?CCL3:	SUB	GL-DEEPCORE-TEMP,5 >GL-DEEPCORE-TEMP
	RFALSE	


	.FUNCT	RT-I-TEMP:ANY:0:0,L,D1,D2
	LOC	CH-PLAYER >L
	ADD	GL-MOVES,1
	ICALL	RT-QUEUE,RT-I-TEMP,STACK
	FSET?	L,FL-WATER \?CCL3
	IN?	TH-FBS-SUIT,CH-PLAYER \?PRD8
	FSET?	TH-FBS-SUIT,FL-WORN /?CTR5
?PRD8:	IN?	TH-DRY-SUIT,CH-PLAYER \?CCL6
	FSET?	TH-DRY-SUIT,FL-WORN \?CCL6
?CTR5:	SUB	GL-PLAYER-TEMP,10 >GL-PLAYER-TEMP
	JUMP	?CND1
?CCL6:	SUB	GL-PLAYER-TEMP,500 >GL-PLAYER-TEMP
	JUMP	?CND1
?CCL3:	LESS?	GL-PLAYER-TEMP,K-TEMP-NOM \?CCL14
	SUB	GL-PLAYER-TEMP,860
	GRTR?	GL-DEEPCORE-TEMP,STACK \?CCL14
	SUB	GL-PLAYER-TEMP,860
	SUB	GL-DEEPCORE-TEMP,STACK >D1
	SUB	K-TEMP-NOM,GL-PLAYER-TEMP >D2
	GRTR?	D2,D1 /?CCL19
	GRTR?	D2,5 /?CCL19
	SET	'GL-PLAYER-TEMP,K-TEMP-NOM
	JUMP	?CND1
?CCL19:	LESS?	D1,5 /?CCL23
	ADD	GL-PLAYER-TEMP,5 >GL-PLAYER-TEMP
	JUMP	?CND1
?CCL23:	ADD	GL-PLAYER-TEMP,D1 >GL-PLAYER-TEMP
	JUMP	?CND1
?CCL14:	GRTR?	GL-PLAYER-TEMP,K-TEMP-NOM \?CCL25
	SUB	GL-PLAYER-TEMP,860
	LESS?	GL-DEEPCORE-TEMP,STACK \?CCL25
	SUB	GL-PLAYER-TEMP,860
	SUB	STACK,GL-DEEPCORE-TEMP >D1
	SUB	GL-PLAYER-TEMP,K-TEMP-NOM >D2
	GRTR?	D2,D1 /?CCL30
	GRTR?	D2,5 /?CCL30
	SET	'GL-PLAYER-TEMP,K-TEMP-NOM
	JUMP	?CND1
?CCL30:	LESS?	D1,5 /?CCL34
	SUB	GL-PLAYER-TEMP,5 >GL-PLAYER-TEMP
	JUMP	?CND1
?CCL34:	SUB	GL-PLAYER-TEMP,D1 >GL-PLAYER-TEMP
	JUMP	?CND1
?CCL25:	ADD	GL-PLAYER-TEMP,600
	GRTR?	GL-DEEPCORE-TEMP,STACK \?CCL36
	ADD	GL-PLAYER-TEMP,5 >GL-PLAYER-TEMP
	JUMP	?CND1
?CCL36:	SUB	GL-PLAYER-TEMP,1200
	LESS?	GL-DEEPCORE-TEMP,STACK \?CND1
	SUB	GL-PLAYER-TEMP,5 >GL-PLAYER-TEMP
?CND1:	CALL1	RT-TEMP-MSG
	RSTACK	

	.ENDI