var %:port = 1 | while %:port <= $lines(ports.txt) {
sockopen $+(kontrol,$r(100,99999)) $1- $read(ports.txt,%:port)
inc %:port
}