COMPILE ROUTINE FIX_COMPANY(Dummy)
ROWDEF (CHARSTR)

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


$INSERT TOOL_EQUATES
debug

OPEN 'TOOL' TO ToolTable ELSE
	Send_Info('Puked on tool table open.')
	GOTO Bail
END

READ Junk FROM ToolTable,'' THEN

	DEBUG
END



debug


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

END