27 lines
806 B
Text
27 lines
806 B
Text
File_Open("|(PATH_ONLY)\data\mlijobs.txt", BROWSE)
|
|
|
|
#1 = 0 // Number of licenses active
|
|
#2 = 0 // Max number of active licenses found
|
|
|
|
Repeat(ALL) {
|
|
Search("|{OUT,IN}|W@", ADVANCE+ERRBREAK)
|
|
if (Match_Item == 1) { // "OUT"
|
|
#1++
|
|
if (#1 > #2) { // new high value
|
|
#2 = #1
|
|
Reg_Empty(10) // empty the time list
|
|
}
|
|
if (#1 == #2) { // same as high value
|
|
Reg_Copy(10, 1, APPEND) // store time
|
|
}
|
|
} else { // "IN"
|
|
#1--
|
|
}
|
|
}
|
|
|
|
Message("Maximum simultaneous license use is ")
|
|
Num_Type(#2, LEFT+NOCR)
|
|
Message(" at the following times:\n")
|
|
Reg_Type(10)
|
|
|
|
Buf_Quit(OK)
|