59 lines
730 B
Plaintext
59 lines
730 B
Plaintext
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
|
|
|
|
|