30 lines
377 B
Plaintext
30 lines
377 B
Plaintext
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
|