COMPILE ROUTINE Fix_REACTOR(Dummy)
ROWDEF (CHARSTR)

DECLARE SUBROUTINE SEND_INFO, SEND_DYN, RList, obj_React_Tube, Btree.Extract, Set_Status, Get_Status


$INSERT REACTOR_EQUATES
$INSERT TOOL_EQUATES

OPEN 'REACTOR' TO FileIn ELSE
	DEBUG
	GOTO Bail
END

OPEN 'TOOL' TO ToolTable ELSE
	DEBUG
	GOTO Bail
END

OPEN 'REACT_INJECTOR' TO InjectorTable ELSE
	DEBUG
	GOTO Bail
END


DEBUG

SELECT InjectorTable



RecCnt = 1
Done = 0
LOOP
	READNEXT ReactNo ELSE Done = 1
UNTIL Done
	
	READV InjType FROM InjectorTable,ReactNo,1 THEN
		WRITEV InjType ON FileIn,ReactNo,REACTOR_INJECT_TYPE$ THEN
			debug
		END
	
	END
	
	
	
REPEAT

DEBUG


* * * * * * *
Bail:
* * * * * * *

END