[pft]@AHHEAD.PFT[/pft] [pft] proc('d9021a9021!',replace(replace(v5006^a[1],' ',''),',','!a9021!')'!'), proc('d9022a9022!',(if v9021 = v5021[1] then f(iocc,1,0) fi),'!'), [/pft]
[pft]@AHHIDD.PFT[/pft]

Database [pft]v5003^*[/pft] : configure

[pft] if p(v5011^h) then 'help' else ' ' fi [/pft]
[pft]if s(mpu,v5006^m,mpl) = 'ON' then[/pft]
 
Interface language
 
[pft]else[/pft] [pft]fi[/pft]
 
Navigation Bar
 
Yes     No
 
Result display
[pft]if a(v1002) then[/pft]
 
Display  references per page
[pft]else[/pft] [pft]fi[/pft] [pft]if nocc(v5005) > 2 then[/pft] [pft] /* procedimento que marca o texto a ser apresentado como label ^L para as opções de formato de apresentação */ proc('d5005',('a5005!',replace(v5005,s('^'v9022[1]),'^L'),'!')), [/pft]
 
Presentation format     [pft]else[/pft] [pft]v5005^p[/pft] [pft]fi[/pft]