&uf('+1W691#',
  (if p(v691) then 

'^!'f(val(v691^f),2,0)

if &unifor('Ksemo.mnu|'v691^f)<>'' then '^0' else '^9' fi,

         if v691^i:':' then 


          if &unifor('Kjzko.mnu|'&unifor('G2:'v691^i))<>'' then 

             if p(v691^u) then 
               '-' 
             else 
               |*|d691^w fi,&unifor('Kjzko.mnu|'&unifor('G2:'v691^i)) 
             fi 
          fi,




          v691^a,
          if p(v691^C) then 

            v691^c 
          else 


            if &uf('DVUZ,!DUNS=',v691^W,'-S',v691^F'!,v68^C')<>'' then 
              &uf('DVUZ,!DUNS=',v691^W,'-S',v691^F,'!,v68^C') 
              else 

                if p(v691^n) then 
                  v691^n 
                  else 
                  &uf('DVUZ,!DUNS=',v691^W,'-S',v691^F,'!,v68^n')
                fi
             fi,


           fi,

          v691^v,v691^o,|-S|v691^f 

  fi/),

),



&uf('+1W811#'),

&uf('+1W691#'
  (if p(g691) then 
       g691,
       if &uf('+1R811'):s('^!'g691^!'^') or g691^!='' then else '^5'g691^! fi,
       if &uf('+1R811'):s('^9'g691^9'^') or g691^9='' then else '^8'g691^9 fi,
       if &uf('+1R811'):s('^0'g691^0'^') or g691^0='' then else '^1'g691^0 fi,
       
       
       &uf('+1W811#',g691 '^$'), 
       
  fi/),
),