added LSL2 stored procedures

LSL2/STPROC/FIND_PROMOTED.txt

@@ -0,0 +1,19 @@
+COMPILE ROUTINE FIND_PROMOTED(SearchString)
+ROWDEF(CHARSTR)
+
+
+DECLARE SUBROUTINE Send_Info, Send_Dyn
+
+OPEN 'SYSREPOSEVENTEXES' TO EventsTable THEN
+	SELECT EventsTable
+	
+	Done = 0
+	LOOP
+		READNEXT @ID ELSE Done = 1
+	UNTIL DONE
+		ThirdField = FIELD(@ID,'*',3)
+		IF INDEX(ThirdField,'.',1) ELSE
+			Send_Dyn(@ID)
+		END
+	REPEAT
+END