%
% construct the url and http request the partner
%
% stack: parameter action-ordinal
%
exch 6 prezero
^"/color.cgi?color=" ^
^_Mach.Partner
http ^ 
%%% &"&go=status.xml"
"enabler" log)(
*webrespn
dup logs
%
% stack: web-response
%
"<response>" atleft(
{
%
% is a response xml from partner
%
 true
}
{
 pop
 false
} ifelse
%
% stack: [ result ] valid-result
%