IF a(v805) THEN

  ,'<table border="0" width="100%">',

         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'<br>' else v87^*,|/|v87^s'<br>' fi,),'|',
              fi,
	      if p(v88) then
		'a9001| |','a9002| |', 'a9003|-'(if p(v88^d) then |&nbsp;|+v88^d,|/|v88^s'<br>' else |&nbsp;|+v88^*,|/|v88^s'<br>' fi),'|',
	      fi,


              if v76*0.1='^' then

                 if p(v76^p) then

                    'a9001|[Li]|','a9002|Límites:|','a9003|'(v76^p'<br>'),'|',

                 fi,

              else

                 if p(v76^*) then

                    'a9001|[Li]|','a9002|Límites:|','a9003|'(v76^*'<br>'),'|',

                 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,



   '</table>',



 FI,



mpl,



if p(v805) then,

   ,@mailhtm.pft,

fi,





'<p>'/,