{
Send message to &PlotSrv server.
}
function PlotSend(msg:String):Integer;
var dev:Integer;
begin
 if Length(msg)>0 then dev:=RefFind('Device &PlotSrv') else dev:=0;
 if dev<>0 then PlotSend:=Round(DevSend(dev,msg)) else PlotSend:=0;
end;
