/* Formato 2 - REFERENCIA (portugues) */
/*
 * Montagem do formato Referencia fornecido pela ABM
 * MFN/
 * MDU,				MODO DADOS
 * v30,				Autor Pessoal
 * " "v50,			*Titulo*
 * v73,				Local de publicação
 * v74,				Editora
 * v75,				Data e Edicao
 * v76,				Volumes
 * ":"v77,			Paginas
 * "Caderno Tecnológico "v79,	Caderno Tecnologico
 * "in: "v80,			In
 * "V.: "v82,			Volume
 * "N.: "v83,			Número
 * ":"v84,			Pag.
 * v81,				Mes e Ano do periódico
 * "ISBN: "v85,			ISBN
 * "ISSN: "v86,			ISSN
 * "in: "V70,			Evento
 * v71,				Local do evento
 * v72,				Data do evento
 * "-"v60#			Notas
 */

/* MFN - MFN */
if p(v1) or p(v10) or p(v86) then
' <tr valign="top">',/
'  <td colspan="3"><font face="verdana" size="1">',/
'   <table width="100%"><tr>',/
'    <td width="25%" align="left"><font face="verdana" size="1">',mfn,'</font></td>',/
'    <td align="right"><font face="verdana" size="1">&nbsp;</font></td>',/
'   </tr></table>',/
'</font></td>',/
' </tr>',/
fi,

/* LOCALIZACAO - v1 */
if p(v1) then
/* ' <tr valign="top"><td colspan="3"><font face="verdana" size="1">',mhl,v1+|; &nbsp;|,mpl,'</font></td></tr>',/ */
' <tr valign="top"><td colspan="1" nowrap width="1%"><font face="verdana" size="1">',mhl,v1+|; &nbsp;|,mpl,'</font></td>',/
fi,

/* TIPO DE MATERIAL */
'<td width="1"></td><td align="justify" colspan="1"><font face="verdana" size="1">',
if v86>'' then 'Artigo' else if v84:'-' or (v77:'-' and v85='' ) then 'Artigo' else 'Livro' fi,fi
/* if v77:'-' or v84:'-' or v80='Metalurgia & Materiais' or v1='ABM CA52' then
    'Artigo'
else
    'Livro'
fi, */
'</b></font></td></tr>',/




/* TOMBO - v10 */
if p(v10) then
' <tr valign="top"><td colspan="3"><font face="verdana" size="1">',mhl,v10|; &nbsp;|,mpl,'</font></td></tr>',/
fi,

/* Linha em branco */
if p(v1) or p(v10) or p(v86) then
' <tr><td colspan="3"><font face="verdana, sans-serif" size="1">&nbsp;</font></td></tr>',/
fi,

/* Inicia um CAMPAO com recuo */
' <tr valign="top">',/
'  <td width="5%"><font face="verdana, sans-serif" size="1">&nbsp;</font></td>',/
'  <td colspan="2"><font face="verdana, sans-serif" size="1">',
/* Autores pessoais - v30 */
mpl,if v30[1]<>'_' then mdu,v30+|; |,mpl, fi,
/* Autores Institucionais - v40 */
if v30[1]='_' or a(v30) then mdu,v40+|; |,mpl, fi,
/* Título - v50 */
mpl,if p(v50) then ' <b>',mdl,v50,mpl,'</b>', fi,mdl,
/* Local - v73 */
v73,
/* Editora - v74 */
v74,
/* Data e Edicao */
v75,
/* Volume */
v76,
/* Paginas */
":"v77,
/* Caderno Tecnologico */ 
"Caderno Tecnológico "v79,
/* Titulo do periodico */
"in: "v80,
/* Volume */
"V.: "v82,
/* Fasciculo */
"N.: "v83,
/* Paginacao */
":"v84,
/* Mes e Ano do periódico */
v81,
/* ISBN */
"ISBN: "v85,
/* ISSN */
"ISSN: "v86,
/* Eventos */
"in: "V70,
/* Local do evento */
v71,
/* Data do evento */
v72,
/* Notas */
"-"v60#

/* Finaliza o CAMPAO aberto no inicio */
,mpl,'</font></td>',/
' </tr>',/


/* Linha de estilo */
' <tr><td colspan="3"><font face="verdana, sans-serif" size="1">&nbsp;</font></td></tr>',/