/* Tcp server that accepts new connections, waits for predefined request and sends response. There is a sample of corresponding client. */ quiet timeout 5000 open tcp 's:localhost:68#s' timeout 1000 cyc inf { recv ifr ok { string recdata = data data = 'no answer' if recdata = '2*2' { data '4' } if recdata = '3*3' { data '9' } send printl 'server sent $data$' } else { break } } close 's' clearreg