added LSL2 stored procedures

LSL2/STPROC/FIX_COMPANY.txt

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