# This sends a program via TCP to runprog (set up as sitting on port 4030 in # the init file) demonstrating how Avios programs can be sent across a network # to another server and run. proc main var fd sock line set fd [open to read "avprogs/killer"] set sock [connect "localhost" 4030] in fd out sock input line while [not $eof] printnl line; input line wend printnl "." in sock out "STDOUT" input line printlog "Sendprog got: " line close fd close sock endproc