added LSL2 stored procedures

LSL2/STPROC/TEST_FILE_IO.txt

@@ -0,0 +1,44 @@
+COMPILE ROUTINE Test_File_IO()
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE Send_Dyn, Send_Info
+
+
+TestRec = STR('The quick brown fox jumped over the lazy dogs back 1234567890 times.':@FM,40)
+
+a = LEN(TestRec)
+
+DEBUG
+
+StartTime = Time()
+RecCnt	= 1		;*********
+
+
+OPEN 'FILE_IO_TEST' TO TestFile THEN
+	CLEARFILE TestFile THEN
+		/*
+		FOR I = 100 TO 10000
+			WRITE TestRec ON TestFile,I THEN
+				RecCnt += 1
+				Send_Dyn(I)
+				Send_Info(I)
+			END
+
+		NEXT I
+		*/
+		StopTime = Time()
+	
+	END	ELSE
+		DEBUG
+		StopTime = Time()
+		RecCnt = 1
+	END
+;* End of file open
+
+Elapsed = StopTime - StartTime
+
+Avg = Elapsed / RecCnt
+
+DEBUG
+
+END	;* End of program