%
% acceptance vectors for Fire code
%
page@sel
<

|Cloud
%
% translate raw control names to Ops names
%
 wireop(
">Cloud" log)(
 < 
 |Initial
  "Cloud" *helpface
%
% initialize customer service operations
%
  *clodinit

 > pop
%
% end of Cloud process
%

>

*acceptun

%
% stack: found
%