var %x = 3
while (%x <= $lines(servlist.ini)) {
var %servertest = $gettok($read(servlist.ini,%x),1,61)
if ($readini(servloc.ini,inuse,%servertest)) {
set %changerble $+(%changerble,$chr(44)) $+($gettok($read(servlist.ini,%x),1,61),(4,1In Use1,0))
inc %x
}
else {
set %changerble $+(%changerble,$chr(44)) $gettok($read(servlist.ini,%x),1,61)
}
inc %x
}
}