added LSL2 stored procedures

LSL2/STPROC/SEND_INFO_TO.txt

@@ -0,0 +1,29 @@
+Function Send_Info_To(Text)
+/*
+    Proxy version of SEND_INFO subroutine that redirects the message to a file.
+
+    Parameters  :
+        Text    [in] -- The text being passed into the SEND_INFO routine.
+
+*/
+
+Declare function Send_Info_Stock
+
+Common /SEND_INFO_TO/ sitFile@
+
+If Unassigned(sitFile@) then sitFile@   = ''
+If Unassigned(Text)     then Text       = ''
+
+// Send this to the stock SEND_INFO function
+Convert @RM:@FM:@VM:@SVM:@TM:@STM to '-' in Text
+
+// Call the SEND_INFO alias so that the stock SEND_INFO routine can be called.
+Ans = Send_Info_Stock(Text)
+
+If sitFile@ NE '' then
+    // Target file active, redirect output there.
+    NewMsg = TimeDate() : ' ' : Text
+    OSWrite NewMsg To sitFile@
+end
+
+Return Ans