Data commit

Task/Text-processing-Max-licenses-in-use/M2000-Interpreter/text-processing-max-licenses-in-use.m2000

@@ -0,0 +1,20 @@
+Module Checkit {
+      Document a$, max_time$
+      Load.doc a$, "mlijobs.txt"
+      const dl$=" ", nl$={
+      }
+      Def long m, out, max_out=-1
+      m=Paragraph(a$, 0)
+      If Forward(a$,m) then {
+            While m {
+                  job$=Paragraph$(a$,(m))
+                  out+=If(Piece$(job$,dl$,2)="OUT"->1&, -1&)
+                  If out>max_out then max_out=out : Clear max_time$
+                  If out=max_out then max_time$=Piece$(job$,dl$,4)+nl$
+            }
+      }
+      Report Format$("Maximum simultaneous license use is {0} at the following times:",max_out)
+      Print "    ";  ' left margin
+      Report max_time$
+}
+Checkit