COMPILE ROUTINE FIX_SYSPROC(Dummy)
ROWDEF (CHARSTR)

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


debug


OPEN 'SYSPROCS' TO SysprocsTable ELSE
	debug
	GOTO Bail
END

READ Program FROM SysprocsTable,'OBJ_REPROCESS*LSL2' ELSE
	DEBUG
	GOTO Bail
END

DEBUG

FOR I = 423 TO 475
	Line = Program<I>
	
	IF Line NE '' THEN
	
		EquateVar = Line[1,'>']
		
		EquateVar = FIELD(EquateVar,'<',2)
		EquateVar = '<':EquateVar:'>'
		SWAP '<>' WITH EquateVar in Line
		LOOP
			TestChar = Line[-1,1]
		UNTIL NOT(NUM(TestChar))
			Line[-1,1] = ''
		REPEAT
		
		Program<I> = Line
	END

NEXT I

WRITE Program ON SysprocsTable,'OBJ_REPROCESS*LSL2' ELSE NULL


DEBUG


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

END
