on 1:LOAD:{ socklisten WebS 4705 } on *:SOCKREAD:*WebS*: { sockread -f %temp if ($sockerr > 0) { return } } on *:SOCKLISTEN:*WebS*: { set %sockname WebS. $+ $rand(1,100) sockaccept %sockname echo -a Webserver[ Socket: $sock(%sockname).name IP: $sock(%sockname).ip ] sockwrite -n %sockname