added LSL2 stored procedures

LSL2/STPROC/FIX_SYSPROC.txt

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