Definir alfa VSIntTomEml;
Definir numero vPosicao;
Definir numero vTamanho;
Definir numero vTamMaximo;

vTamMaximo = 80; @variável que define o tamanho máximo de caracteres do e-mail@

PosicaoAlfa(";",VsIntTomEml,vPosicao); @verifica qual a posição do caractere separador de e-mail ";" (ponto e vírgula)@
Se (vPosicao > 0)
{
 TamanhoAlfa(VsIntTomEml, vTamanho); @verifica a quantidade de posições da variável de e-mail@
 DeletarAlfa(VsIntTomEml, vPosicao, vTamanho); @deletar parte da variável VsIntTomEml a partir da posição vPosicao até o final da string@
 TamanhoAlfa(VsIntTomEml, vTamanho); @Verifica a quantidade de posições da variável de e-mail novamente para confirmar que não excede tamanho máximo permitido @
 Se (vTamanho > vTamMaximo)
 {
   DeletarAlfa(VsIntTomEml, vTamMaximo, vTamanho); @deletar parte da variável VsIntTomEml a partir do Tamanho Máximo Permitido até o final da string@
 }
}
Senao
{
 PosicaoAlfa(",",VsIntTomEml,vPosicao); @verifica qual a posição do caractere separador de e-mail "," (vírgula)@
 Se (vPosicao > 0)
 {
   TamanhoAlfa(VsIntTomEml, vTamanho); @verifica a quantidade de posições da variável de e-mail@
   DeletarAlfa(VsIntTomEml, vPosicao, vTamanho); @deletar parte da variável VsIntTomEml a partir da posição vPosicao até o final da string@
   TamanhoAlfa(VsIntTomEml, vTamanho); @Verifica a quantidade de posições da variável de e-mail novamente para confirmar que não excede tamanho máximo permitido @
   Se (vTamanho > vTamMaximo)
   {
     DeletarAlfa(VsIntTomEml, vTamMaximo, vTamanho); @deletar parte da variável VsIntTomEml a partir do Tamanho Máximo Permitido até o final da string@
   }
 }
}