Text processing/Max licenses in use: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 1,466: | Line 1,466: | ||
2008/10/03_08:39:34 |
2008/10/03_08:39:34 |
||
2008/10/03_08:40:40</pre> |
2008/10/03_08:40:40</pre> |
||
=={{header|M2000 Interpreter}}== |
|||
<lang M2000 Interpreter> |
|||
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 |
|||
</lang> |
|||
=={{header|M4}}== |
=={{header|M4}}== |