added LSL2 stored procedures

LSL2/STPROC/JONATHAN_LOGGING.txt

@@ -0,0 +1,24 @@
+Compile subroutine Jonathan_Logging(msgSeq,msg)
+
+Declare function Environment_Services
+
+equ crlf$ to \0D0A\
+		equ tab$ to char(09)
+		equ comma$ to char(44)
+		equ space$ to char(32)
+		equ record$ to char(00)
+		equ scolon$ to char(59)
+		
+FileID = Time() : '- ':msgSeq	
+	
+DirPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\'
+fileName = DirPath : FileID:'JonathanLog.txt'
+
+oswrite "" To fileName ; * create the new file
+
+OSOpen fileName To hUserFile then
+	OSBWrite msg On hUserFile At 0
+	osclose hUserFile
+end
+
+