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 '
'&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 '
'&uf('Av972^a#1'),| - |d90^a,v90^a*6'.',v90^a*4.2'.'v90^a.4 fi fi/)
fi fi