&uf('+1W691#'

if &uf('+1R332'):'DB=' then  

   &uf('+1I',(if p(v691) then 'DB='&uf('+B',v691^d),'SP='v691^c.4,if v691^c*4<>'' and v691^c*5='' then 'SP=0'v691^c.5,fi,fi/)),

 else 

   &uf('+1I',(if p(v691) then 'D='v691^d,'SP='v691^c.4, if v691^c*4<>'' and v691^c*5='' then 'SP=0'v691^c,fi,fi/)),
   
fi,

),


(if p(g691) then   

&uf('+1W336#',g691), 


&uf('+1W339#')
ref(mfn,(if p(g332) then 

    if &uf('+1R336'):g332 then
         &uf('+1W339#Y',&uf('+1R339'))
         if &uf('+1R339')='YY' then break fi, 
    fi    
 
fi)),


 if &uf('+1R339')='YY' then '1' break fi, 

fi)