    if msg = 'FTERRBIB' then
        write ('No consegui conexo com a rotina de comunicaes')
    else
    if msg = 'FTERRSOQ' then
        write ('No consegui criar soquete')
    else
    if msg = 'FTERBIND' then
        write ('No consegui alocar porta (bind)')
    else
    if msg = 'FTERCOMP' then
        write ('No consegui achar este computador pelo nome')
    else
    if msg = 'FTCONEC' then
        write ('Conectando ')
    else
    if msg = 'FTNAOCON' then
        write ('No consegui realizar a conexao')
    else
    if msg = 'FTERRSOQ' then
        write ('No consegui criar soquete')
    else
    if msg = 'FTERBNDD' then
        write ('No consegui alocar porta para dados (bind)')
    else
    if msg = 'FTERLSTN' then
        write ('No consegui executar listen')
    else
    if msg = 'FTACECON' then
        write ('No consegui aceitar conexao: erro ')
    else
    if msg = 'FTCOMCAI' then
        write ('Comunicacao Caiu')
    else
    if msg = 'FTTRANS' then
        write ('Transmitidos ')
    else
    if msg = 'FTMODIMG' then
        write ('Devo usar o modo imagem (sugiro que sim) ? ')
    else
    if msg = 'FTERRMOD' then
        write ('Problemas ao selecionar modo de transmisso')
    else
    if msg = 'FTTRANSM' then
        write ('Transmitir')
    else
    if msg = 'FTNOMLOC' then
        write ('Qual o nome do arquivo local ? ')
    else
    if msg = 'FTARQNAO' then
        write ('Arquivo no existe...')
    else
    if msg = 'FTNOMREM' then
        write ('Qual o nome do arquivo remoto ? ')
    else
    if msg = 'FTTRAREC' then
        write ('Transferncia de arquivo foi recusada')
    else
    if msg = 'FTERRENV' then
        write ('Erro no envio dos dados, cdigo')
    else
    if msg = 'FTFIMENV' then
        write ('Envio completado')
    else
    if msg = 'FTRECEBE' then
        write ('Receber')
    else
    if msg = 'FTNOMREM' then
        write ('Qual o nome do arquivo remoto ? ')
    else
    if msg = 'FTNOMLOC' then
        write ('Qual o nome do arquivo local ? ')
    else
    if msg = 'FTNAOCRI' then
        write ('No consegui criar o arquivo local')
    else
    if msg = 'FTTRAREC' then
        write ('Transferncia de arquivo foi recusada')
    else
    if msg = 'FTERRENV' then
        write ('Erro no envio dos dados, cdigo')
    else
    if msg = 'FTFIMREC' then
        write ('Recepo completada')
    else
    if msg = 'FTAPAGA' then
        write ('Apagar')
    else
    if msg = 'FTNOMAPA' then
        write ('Qual o nome do arquivo remoto a apagar ? ')
    else
    if msg = 'FTOKAPAG'  then
        write ('Ok, apagado')
    else
    if msg = 'FTNAOAPA' then
        write ('No consegui apagar este arquivo')
    else
    if msg = 'FTERTEMP' then
        write ('Problemas com o arquivo temporrio, no posso ler o diretrio')
    else
    if msg = 'FTUSESET' then
        write ('Use as setas para ler, F9 para informaes , ESC para terminar')
    else
    if msg = 'FTERRCRI' then
        write ('No consegui criar o arquivo para receber o diretorio')
    else
    if msg = 'FTDIRPED' then
        write ('Diretorio pedido, aguarde')
    else
    if msg = 'FTPEDREC' then
        write ('Pedido de informaes de diretrio foi recusado')
    else
    if msg = 'FTERRDIR'  then
        write ('Erro na transferencia do diretorio')
    else
    if msg = 'FTVERDIR' then
        write ('Verificando diretrio atual')
    else
    if msg = 'FTNAODIR'  then
        write ('No consegui obter o diretrio atual')
    else
    if msg = 'FTDESIS' then
        write ('Desistiu')
    else
    if msg = 'FTOK'  then
        write ('OK')
    else
    if msg = 'FTNAOTRO' then
        write ('No consegui trocar')
    else
    if msg = 'FTINIC' then
        write ('FTP VOX - NCE/UFRJ - v.')
    else
    if msg = 'FTCOMPUT' then
        write ('Nome do computador: ')
    else
    if msg = 'FTAJUD00' then
        write ('As opoes so')
    else
    if msg = 'FTAJUD01' then
        write ('  L  login conta e senha')
    else
    if msg = 'FTAJUD02' then
        write ('  D  diretorio remoto')
    else
    if msg = 'FTAJUD03' then
        write ('  R  receber arquivo remoto')
    else
    if msg = 'FTAJUD04' then
        write ('  T  transmitir')
    else
    if msg = 'FTAJUD05' then
        write ('  A  apagar')
    else
    if msg = 'FTAJUD06' then
        write ('  S  trocar subdiretorio')
    else
    if msg = 'FTAJUD07' then
        write ('  Q  Informa quantidade transmitida')
    else
    if msg = 'FTAJUD08' then
        write ('  V  modo verborgico')
    else
    if msg = 'FTAJUD09' then
        write ('  ?  ajuda')
    else
    if msg = 'FTAJUD10' then
        write ('ESC  fim do programa')
    else
    if msg = 'FTVERBO'  then
        write ('Modo verborrgico ligado')
    else
    if msg = 'FTNAOVRB' then
        write ('Modo verborrgico desligado')
    else
    if msg = 'FTCMDFTP' then
        write ('Entre o comando em codigo FTP')
    else
    if msg = 'FTERRCMD' then
        write ('Comando inexistente')
    else
    if msg = 'FTFIMPRG' then
        write ('Programa terminado')
    else
    if msg = 'FTERRSRV' then
        write ('Servidor no est disponvel, codigo')
    else
    if msg = 'FTCMD' then
        write ('Comando ? ')
    else
    if msg = 'FTCMD' then
        write ('Comando ? ')
    else
    if msg = 'FTDESCON' then
        write ('Desconectando')
    else
    if msg = 'FTFIMENV' then
        write ('Fim de envio')
    else
    if msg = 'FTERPORT' then
        write ('Problemas na escolha da porta de dados, cdigo ')
    else
    if msg = 'FTCONTA' then
        write ('Qual a conta   ')
    else
    if msg = 'FTDESIS'  then
       write ('Desistiu')
    else
    if msg = 'FTERCONT' then
        write ('Problemas com a conta, cdigo')
    else
    if msg = 'FTSENHA' then
        write ('Qual a senha   ')
    else
    if msg = 'FTERSENH' then
        write ('Senha no foi aceita, cdigo')
    else
    if msg = 'FTCHAVE' then
        write ('Qual a sua chave de acesso   ')
    else
    if msg = 'FTERCHAV' then
        write ('Chave de acesso no foi aceita, cdigo')
    else
    if msg = 'FTACLIBE' then
        write ('Acesso liberado')
    else
    if msg = 'FTCOMINT' then
        write ('Comunicao foi interrompida')
    else
