added LSL2 stored procedures

LSL2/STPROC/FIX_REACTOR.txt

@@ -0,0 +1,58 @@
+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
+
+