IF a(v805) THEN
,'
',
proc('d9001d9002d9003',
'a9001|[Id]|','a9002|Id:|','a9003|',v2,/,'|',
if p(v10) then
'a9001|[Au]|','a9002|Autor:|','a9003|'(v10^*,|^r|v10^r, if iocc < nocc(v10) then '; ' else '.' fi),'|',
fi,
if p(v11^p) then
'a9001|[Au]|','a9002|Autor:|','a9003|'(v11^p+|; |"."),/,'|',
else
if p(v11^*) then,
'a9001|[Au]|','a9002|Autor:|','a9003|'(v11^*+|; |"."),/,'|',
fi,
fi,
if p(v12) then
'a9001|[Ti]|','a9002|Título:|','a9003|'(v12),| / |v13,"."n13,/,'|',
fi,
IF v06 = 'as' THEN
if p(v30) then,
'a9001|[Fu]|','a9002|Fuente:|','a9003|'v30|;|,v31,|(|v32|)|,|:|v14|, |,v64|. |,v38+|, |,".",n13,/,'|',
fi,
FI,
IF v06 : 'am' THEN,
if p(v16^*) then,
'a9001|[Fu]|','a9002|Fuente:|','a9003|en: '(v16^*+|; |"."),
fi,
if p(v17^p) then
'a9001|[Fu]|','9002|Fuente:|','a9003|en: '(v17^p+|; |"."),
else
if p(v17) then
'a9001|[Fu]|','a9002|Fuente:|','a9003|en: '(v17^*+|; |"."),
fi,
fi,
if p(v16) or p(v17) then
v18'. ',v66', ',v62', ',v64'. ',|p.|v14,|, |v38'. ',/,|(|v30,|, |v31,|, |v32, if p(v30) then ').' fi, | (|v68|)|,/,'|',
fi,
FI,
IF v06*0.1 = 'm' THEN
if p(v16^*) then
'a9001|[Au]|','a9002|Autor:|','a9003|'(v16^*,|^r|v16^r, if iocc < nocc(v16) then '; ' else '.' fi/),'|',
fi,
if p(v17^p) then
'a9001|[Au]|','a9002|Autor:|','a9003|'(v17^p+|; |),/,'|',
else
if p(v17^*) then
'a9001|[Au]|','a9002|Autor:|','a9003|'(v17^*+|; |'*.'),/,'|',
fi,
fi,
if p(v18) then
'a9001|[Ti]|','a9002|Título:|','a9003|'v18," / ",v19,'.',"-"V21,/,'|',
fi,
if p(v66) then
'a9001|[Fu]|','a9002|Fuente:|','a9003|'v66,'; ',v62,'; ',v64,'. ',v20| p. |,v38+|, |".",/,|(|v30, |, |v31, |, |v32, if p(v30) then ').' fi,| (|v68|).|,/,'|',
fi,
if p(v30) then
'a9001| |a9002| |a9003|'|(|v30, |, |v31, |, |v32, ').'|(|v68|).|,/,'|',
fi,
FI,
IF v06 = 'c' THEN
if p(v23^*) then
'a9001|[Au]|','a9002|Autor:|','a9003|'(v23^*+|;|),/,'|',
fi,
if p(v24^p) then
'a9001|[Au]|','a9002|Autor:|','a9003|'(v24^p+|; |),/,'|',
else
if p(v24^*) then
'a9001|[Au]|','a9002|Autor:|','a9003|'(v24^*+|; |),/,'|',
fi,
fi,
if p(v25) then
'a9001|[Ti]|','a9002|Título:|','a9003|'(v25),|. |v27| vol.|,/,'|',
fi,
if p(v66) then
'a9001|[Fu]|','a9002|Fuente:|','a9003|'v66'; ',v62'; ',v64'. ',v20| p. |,v38'.',/,'|',
fi,
FI,
if p(v50) then
'a9001|[Te]|','a9002|Tese:|','a9003|',|Apresentada la |,v50| para obtención del grado de |,v51|.|,/,'|',
fi,
if p(v53) then
'a9001|[Co]|','a9002|Conferencia:|','a9003|',|Apresentado en: |,v53|, |,v56|, |,v54|.|,/,'|',
fi,
if p(v58) then
'a9001|[Pr]|','a9002|Projeto|','a9003|',(v58+|; |,'. '),v59|. |,v60|. |,/,'|',
fi,
if p(v68) then
'a9001|[Si]|','a9002|Símbolo:|','a9003|'v68".",/,'|',
fi,
if p(v83) then
'a9001|[Ab]|','a9002|Resumen:|','a9003|'v83".",/,'|',
fi,
if p(v87) then,
'a9001|[Mh]|','a9002|Descriptores:|','a9003|'(if p(v87^d) then v87^d,|/|v87^s'
' else v87^*,|/|v87^s'
' fi,),'|',
fi,
if p(v88) then
'a9001| |','a9002| |', 'a9003|-'(if p(v88^d) then | |+v88^d,|/|v88^s'
' else | |+v88^*,|/|v88^s'
' fi),'|',
fi,
if v76*0.1='^' then
if p(v76^p) then
'a9001|[Li]|','a9002|Límites:|','a9003|'(v76^p'
'),'|',
fi,
else
if p(v76^*) then
'a9001|[Li]|','a9002|Límites:|','a9003|'(v76^*'
'),'|',
fi,
fi,
if p(v3) or p(v1) then
'a9001|[Lo]|','a9002|Localización:|','a9003|',mhl,if a(v3) then v1 else (v3+|; |) fi,mpl,'|',
fi,
),
,@htmtab2.pft,
'
',
FI,
mpl,
if p(v805) then,
,@mailhtm.pft,
fi,
''/,