if p(g1) then 
   if &uf('DRDR,!RI='g1'!,v30')=g1 then 
      (if p(v90) then if s(v90^h,v90^i):&uf('Ag1#1') then '<br>'&uf('Av972^a#1'),| - |d90^a,v90^a*6'.',v90^a*4.2'.'v90^a.4 fi fi/)
   else &uf('+7W2#'&uf('DRDR,!A='g1'!,v30')),
      (if p(v90) then if s(v90^h,v90^i):&uf('Ag2#1') then '<br>'&uf('Av972^a#1'),| - |d90^a,v90^a*6'.',v90^a*4.2'.'v90^a.4 fi fi/)
fi fi