[pft]@AHHEAD.PFT[/pft]
[pft]@AHHIDD.PFT[/pft]

{{database}} [pft]v5003^*[/pft] : {{index}}

[pft] if p(v5011^h) then '{{help}}' else ' ' fi [/pft]
[pft]if p(v1) then[/pft]
{{select_terms}}:
[pft]if nocc(v1) = 100 then[/pft] [pft]fi[/pft] [pft] if v5001^s = 'INDEX_KWIC' then, if s(v6100^x.2) = 'MH' then, '  ' else '  ' fi fi [/pft]
[pft]fi[/pft]
[pft]if s(mpu,v6100^t,mpl) <> 'SHORT' and v5001^s <> 'INDEX_ASPECTS/FASCICLES' then[/pft] [pft]if a(v1) and p(v6122) then[/pft]
{{no_terms_found}}
 
{{new_index_search}}
[pft]fi[/pft] [pft]if p(v1) then[/pft] [pft]if p(v6102) then[/pft]
 
{{selected_terms}} 

[pft]fi[/pft]
 
{{new_index_search}}

[pft]fi[/pft]
 
{{index_search_words}}:
 
   

 
{{select_initial_word}}:
 

[pft]if s(mpu,v6100^t,mpl) = 'KWIC' then[/pft]
 
{{index_access}}:  {{permuted_index}}   {{alphabetic_index}}   

[pft]fi[/pft] [pft]fi[/pft] [pft]if a(v1) and v5001^s = 'INDEX_ASPECTS/FASCICLES' then[/pft]
[pft] if v6100^x.2 = 'MH' then, '{{select_one_descriptor}}' else '{{select_one_journal}}' fi [/pft]
[pft]fi[/pft]
[pft]if p(v5011^n) then[/pft]
[pft]cat(v5011^n)[/pft]
[pft]fi[/pft]