defcom skip=skip;;
defcom getserv=getserv S;;

typeof remain=I;;
typeof service=S;;

fun _connected()=
 _SETtext message strloc loc "CONSOLV" service::nil;
 _on _channel skip [];
 _on _channel getserv [service];;

fun __servis(a,b)=
 _closechannel;
 if b==nil then (_SETtext message loc "NOTAVAIL";nil)
 else contact b;;

fun _closed()=
 contact NEXTtry;;

fun _time(a,b)=
 _SETtext message strloc loc "TIMEOUT" URLservice::(itoa remain)::nil;
 set remain=remain-1;
 if remain>=0 then nil
 else
 (contact NEXTtry;
  _closechannel);;
 
fun ipreq(s)=
 set service=s;
 set remain=10;
 _rfltimer _starttimer _channel 1000 @_time 0;;