@main[][tList;dLong;sErr] $tList[^table::create{sIP z 10.0.0.2 167772161 213.152.135.132 255.255.255.254 255.255.255.255 10.0.0..2 10.1 .10.1.1.1 10.1.1. z }] ^tList.menu{ $dLong[] $sErr[^try-catch-comment{$dLong(^inet:aton[$tList.sIP])}] }
IP ^^inet:aton[IP] ^^inet:ntoa(^^inet:aton[IP])
$tList.sIP ^if(def $dLong){^dLong.format[%u]}{$sErr} ^if(def $dLong){^try-catch-comment{^inet:ntoa($dLong)}}{&mdash^;}