[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 p(v2) then '['v2'] ' fi,if p(v1^n) then v1^n*0.90 else v1^v*0.90 fi,'
')[/pft]
[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](replace(v6102,'"','"')/)[/pft]
[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]
{{back}}
[pft]fi[/pft]
[pft]if p(v5011^n) then[/pft]
[pft]cat(v5011^n)[/pft]
[pft]fi[/pft]