%
% check the list of ip addresses for a standard 1pv4 type
%
% stack: computer-name
%
empty !ipaddr
ipaddr
countup
{
 pop
 "." second Str.Found 3 eq
 {
  !ipaddr
 }
 {
  pop
 } ifelse
} for

_ipaddr