added LSL2 stored procedures

LSL2/STPROC/TEST_KEVIN.txt

@@ -0,0 +1,24 @@
+Compile function Test_Kevin(VOID)
+
+Ans = 0
+MaxKey = ""
+
+Open "PM_HIST" to hTable then
+    ClearSelect
+    Select hTable
+    Done = 0
+    Loop
+        ReadNext Key else Done = 1
+    Until Done
+        Read Rec from hTable, Key then
+            Count = DCount(Rec, @VM)
+            If Count GT Ans then
+                Ans = Count
+                MaxKey = Key
+            end
+        end
+    Repeat
+end
+	
+Ans = MaxKey:" - ":Ans
+Return Ans