unit dosmsg;
interface
uses windos, dvcrt, dvWin, dvLenum;

procedure mensagem (n, nlf: integer);
procedure soletra(s: string; nlf: integer);
procedure sintetFala (s: string; nlf: integer);
procedure falaNum (n: longint; nlf: integer);
procedure inicFala;

const
     DVSISTOP = 0;
     DVVERSAO = 1;
     DVNCE    = 2;
     DVBOMDIA = 3;
     DVBOATAR = 4;
     DVBOANOI = 5;
     DVSEF1   = 6;
     DVDOSVOX = 7;
     DVOQUE   = 8;

     DVOPINV   = 22;
     DVTRAB    = 23;
     DVTCHAU   = 24;

     DVINIED   = 25;
     DVVOLTA   = 26;
     DVCNFFIM  = 27;

     DVESCDIR  = 30;
     DVDIRATU  = 31;
     DVOK      = 32;

     DVUNIATU  = 33;
     DVINFDIS  = 34;
     DVERRUND  = 35;
     DVUNDMUD  = 36;

     DVINFDIR  = 37;
     DVERRMUD  = 38;
     DVOKMUD   = 39;

     DVCANC    = 40;
     DVTENTER  = 41;
     DVDEL     = 42;

     DVDIRCRI  = 43;
     DVERRCRI  = 44;
     DVOKCRI   = 45;

     DVDIRAPA  = 46;
     DVERRAPA  = 47;
     DVOKAPA   = 48;

     DVDISCOS   = 59;

     DVCTLDSK   = 60;
     DVTAMDSK   = 61;
     DVLIVDSK   = 62;

     DVINFUNI   = 63;
     DVDRVINV   = 64;
     DVDENSAL   = 65;
     DVINSDSK   = 66;
     DVPROFOR   = 67;
     DVNOMDSK   = 68;
     DVFORCAN   = 69;
     DVFORFIM   = 70;
     DVFORRAP   = 71;
     DVLEREL    = 72;
     DVPROFRM   = 73;

     DVSEMSUB   = 74;
     DVSUBDI1   = 75;
     DVSUBDI2   = 76;

     DVTECTAB   = 81;
     DVTECENT   = 82;
     DVTECESC   = 83;
     DVTECBCO   = 84;
     DVTECF10   = 85;
     DVTECINS   = 86;
     DVTECDEL   = 87;
     DVTECHOM   = 88;
     DVTECEND   = 89;
     DVTECPGU   = 90;
     DVTECPGD   = 91;
     DVTECCIM   = 92;
     DVTECBAI   = 93;
     DVTECESQ   = 94;
     DVTECDIR   = 95;

     DVTECLE    = 96;
     DVFIMTEC   = 97;
     DVFIMTST   = 98;

     DVVAZIO    = 111;
     DVARQ1     = 112;
     DVARQ2     = 113;
     DVOPCAO    = 114;
     DVTECBS    = 115;
     DVPROBLE   = 116;

     DVNAOSEL   = 117;
     DVTAMBYT   = 118;
     DVDATCRI   = 119;
     DVHORCRI   = 120;

     DVCNFAPA   = 121;
     DVSIMNAO	= 122;
     DVFOIAPA   = 123;
     DVPRO      = 124;
     DVDESPRO   = 125;
     DVTROCA    = 126;
     DVTROCAD   = 127;

     DVMASC     = 128;
     DVNMASC    = 129;

     DVTIPCOP   = 135;
     DVINFDST   = 137;
     DVCANCG    = 138;
     DVNAOPOD   = 139;
     DVERRCOP   = 140;
     DVFOICOP   = 142;
     DVCOMPLE   = 143;

     DVERRLEI   = 144;
     DVERRESC   = 145;
     DVFALESP   = 146;
     DVNOMCOP   = 147;
     DVCNTSEL   = 148;
     DVNOMERR   = 149;
     DVFOIREP   = 150;

     DVNAODIR   = 152;

     DVTECCMD   = 155;

     DVCOMFBR   = 156;
     DVCOMBRA   = 157;
     DVIMPCAN   = 158;
     DVIMPFIM   = 159;
     DVNAODSP   = 160;
     DVIMPCOM   = 161;

     DVLEITEL   = 163;

     DVSHIFT    = 164;
     DVCONTRL   = 165;
     DVNUM      = 166;
     DVNONUM    = 167;
     DVCAPS     = 168;
     DVNOCAPS   = 169;
     DVALT      = 170;

     DVSEMTRD   = 171;

     DVNOMIMP   = 172;
     DVESPIMP   = 173;
     DVARQIMP   = 174;
     DVARQNEX   = 175;

     DVQUERD    = 180;
     DVDIRNSL   = 181;
     DVQSOLET   = 182;
     DVNUMARQ   = 183;
     DVERRDIR   = 184;

     DVTECUTL   = 185;
     DVUTLNAO   = 186;
     DVESCF1    = 187;
     DVERRPRG   = 188;
     DVPRGNAO   = 189;
     DVNAOCAB   = 190;
     DVOPCSAO   = 191;

     DVERINTC   = 192;

     DVTECPGM   = 193;
     DVTECJOG   = 194;
     DVTECRED   = 195;
     DVTECMUL   = 196;

     DVAJU001   = 201;
     DVAJU002   = 202;
     DVAJU003   = 203;
     DVAJU004   = 204;
     DVAJU005   = 205;
     DVAJU006   = 206;
     DVAJU007   = 207;
     DVAJU008   = 208;
     AJUDAPRINC_1  = DVAJU001;
     AJUDAPRINC_99 = DVAJU008;

     DVAJU101   = 210;
     DVAJU102   = 211;
     DVAJU103   = 212;
     DVAJU104   = 213;
     DVAJU105   = 214;
     DVAJU106   = 215;
     DVAJU107   = 216;
     DVAJU108   = 217;
     DVAJU109   = 218;
     DVAJU110   = 219;
     DVAJU111   = 220;
     AJUDACONT_1  = DVAJU101;
     AJUDACONT_99 = DVAJU111;

     DVAJUD10    = 223;
     DVAJUD11    = 224;
     DVAJUD12    = 225;
     DVAJUD13    = 226;
     DVAJUD14    = 227;
     DVAJUD15    = 228;
     DVAJUD16    = 229;
     DVAJUD17    = 230;
     AJUDADIR_1  = DVAJUD10;
     AJUDADIR_99 = DVAJUD17;

     DVAJUD20    = 234;
     DVAJUD21    = 235;
     DVAJUD22    = 236;
     DVAJUD23    = 237;
     DVAJUD24    = 238;
     DVAJUD25    = 239;
     DVAJUD26    = 240;
     AJUDADSK_1  = DVAJUD20;
     AJUDADSK_99 = DVAJUD26;

     DVAJUD31    = 249;
     DVAJUD32    = 250;
     DVAJUD33    = 251;
     DVAJUD34    = 252;
     DVAJU34A    = 253;
     DVAJUD35    = 254;
     DVAJU35A    = 255;
     DVAJUD36    = 256;
     DVAJUD37    = 257;
     DVAJUD38    = 258;
     DVAJUD39    = 259;
     DVAJUD40    = 260;
     AJUDAARQ_1  = DVAJUD31;
     AJUDAARQ_99 = DVAJUD40;

     DVAJUD51    = 263;
     DVAJUD52    = 264;
     DVAJUD53    = 265;
     DVAJUD54    = 266;
     DVAJUD55    = 267;
     AJUDACOP_1  = DVAJUD51;
     AJUDACOP_99 = DVAJUD55;

     DVSELJAN    = 270;
     DV2GIGA     = 271;
     DVPDOS      = 272;

     DVTAMMEG    = 280;
     DVLIVMEG    = 281;
     DVVELOC     = 282;
     DVDTPAD     = 283;

implementation

procedure mensagem (n, nlf: integer);
var s, nomearq: string;
    i: integer;
begin
     s := '';

     case n of

     DVSISTOP:  s := 'DVSISTOP|Sistema Operacional DOSVOX';
     DVVERSAO:  s := 'DVVERSAO| - Versão ';
     DVNCE:     s := 'DVNCE   |Núcleo de Computação Eletrônica da UFRJ';
     DVBOMDIA:  s := 'DVBOMDIA|Bom dia ! ';
     DVBOATAR:  s := 'DVBOATAR|Boa tarde !';
     DVBOANOI:  s := 'DVBOANOI|Boa noite !';
     DVSEF1:    s := 'DVSEF1  |Aperte F1 para ajuda.';
     DVDOSVOX:  s := 'DVDOSVOX|DOSVOX - ';
     DVOQUE:    s := 'DVOQUE  |O que voce deseja ? ';

     DVOPINV:   s := 'DVOPINV |Opção inválida.';
     DVTRAB:    s := 'DVTRAB  |Trabalhar com voce é sempre bom !';
     DVTCHAU:   s := 'DVTCHAU |Tchau !';

     DVINIED:   s := 'DVINIED |Chamando editor.';
     DVVOLTA:   s := 'DVVOLTA |Voltando ao DOSVOX.';
     DVCNFFIM:  s := 'DVCNFFIM|Confirma o fim do DOSVOX (S/N) ? ';

     DVESCDIR:  s := 'DVESCDIR|Subdiretórios - ';
     DVDIRATU:  s := 'DVDIRATU|O diretório atual é ';

     DVOK:      s := 'DVOK    |Ok ! ';

     DVUNIATU:  s := 'DVUNIATU|A unidade de trabalho é ';
     DVINFDIS:  s := 'DVINFDIS|Informe novo disco de trabalho: ';
     DVERRUND:  s := 'DVERRUND|Nao consegui mudar de disco. Sinto muito.';
     DVUNDMUD:  s := 'DVUNDMUD|Disco de trabalho mudado para ';

     DVINFDIR:  s := 'DVINFDIR|Informe o novo diretório de trabalho: ';
     DVERRMUD:  s := 'DVERRMUD|Desculpe mas não consegui trocar para o diretório pedido.';
     DVOKMUD:   s := 'DVOKMUD |Ok, troquei diretório de trabalho';
     DVCANC:    s := 'DVCANC  |<Entrada cancelada>';
     DVTENTER:  s := 'DVTENTER|';    {tecle normalmente e depois ENTER}
     DVDEL:     s := 'DVDEL   |';    {'DEL';}

     DVDIRCRI:  s := 'DVDIRCRI|Nome do diretório a criar: ';
     DVERRCRI:  s := 'DVERRCRI|Desculpe mas não consegui criar o diretório pedido.';
     DVOKCRI:   s := 'DVOKCRI |Ok, criei o diretório !';

     DVDIRAPA:  s := 'DVDIRAPA|Nome do diretório a apagar: ';
     DVERRAPA:  s := 'DVERRAPA|Desculpe: não consegui apagar o diretório pedido.';
     DVOKAPA:   s := 'DVOKAPA |Ok, apaguei o diretório !';

     DVDISCOS:  s := 'DVDISCOS|Discos - ';

     DVCTLDSK:  s := 'DVCTLDSK|Controle de disco - ';
     DVTAMDSK:  s := 'DVTAMDSK|Tamanho do disco em K: ';
     DVLIVDSK:  s := 'DVLIVDSK|Espaco livre em K: ';

     DVINFUNI:  s := 'DVINFUNI|Qual a unidade de disquete a formatar, A ou B ? ';
     DVDRVINV:  s := 'DVDRVINV|Drive invalido';
     DVDENSAL:  s := 'DVDENSAL|Posso usar densidade alta ? ';
     DVFORRAP:  s := 'DVFORRAP|Posso usar formatação rápida ? ';
     DVLEREL :  s := 'DVLEREL |Quer ler o relatório de formatação ? ';
     DVINSDSK:  s := 'DVINSDSK|Insira o disquete e tecle Enter...';
     DVPROFOR:  s := 'DVPROFOR|Problemas na formatação.  Vou ler a tela.';
     DVPROFRM:  s := 'DVPROFRM|Problemas na formatação, verifique protetor de escrita.';
     DVNOMDSK:  s := 'DVNOMDSK|Informe o nome do disquete (até 10 letras): ';
     DVFORCAN:  s := 'DVFORCAN|Formatação cancelada.';
     DVFORFIM:  s := 'DVFORFIM|Disquete bem formatado.';

     DVSEMSUB:  s := 'DVSEMSUB|Nao existem subdiretórios aqui';
     DVSUBDI1:  s := 'DVSUBDI1|Subdiretórios: Use as setas para selecionar';
     DVSUBDI2:  s := 'DVSUBDI2|Depois tecle sua opção';

     DVTECLE:   s := 'DVTECLE |Aperte as teclas e eu falarei.';
     DVFIMTEC:  s := 'DVFIMTEC|O teste será terminado quando você apertar ESCAPE';

     DVTECBS:   s := 'DVTECBS |<backspace>';
     DVTECTAB:  s := 'DVTECTAB|<tab>';
     DVTECENT:  s := 'DVTECENT|<enter>';
     DVTECESC:  s := 'DVTECESC|<escape>';
     DVTECBCO:  s := 'DVTECBCO|<barra de espacos>';
     DVTECF10:  s := 'DVTECF10|f10';
     DVTECINS:  s := 'DVTECINS|<ins>';
     DVTECDEL:  s := 'DVTECDEL|<del>';
     DVTECHOM:  s := 'DVTECHOM|<home>';
     DVTECEND:  s := 'DVTECEND|<end>';
     DVTECPGU:  s := 'DVTECPGU|<page up>';
     DVTECPGD:  s := 'DVTECPGD|<page down>';
     DVTECCIM:  s := 'DVTECCIM|<cima>';
     DVTECBAI:  s := 'DVTECBAI|<baixo>';
     DVTECESQ:  s := 'DVTECESQ|<esquerda>';
     DVTECDIR:  s := 'DVTECDIR|<direita>';

     DVFIMTST:  s := 'DVFIMTST|O teste está encerrado.';

     DVVAZIO:   s := 'DVVAZIO |Não existe nenhum arquivo neste diretório.';
     DVARQ1:    s := 'DVARQ1  |Arquivos: use as setas para selecionar.';
     DVARQ2:    s := 'DVARQ2  |Depois tecle sua opção.';

     DVOPCAO:   s := 'DVOPCAO | -> opção ';
     DVPROBLE:  s := 'DVPROBLE|Cuidado, houve problemas no disco !';
     DVNAOSEL:  s := 'DVNAOSEL|Não posso fazer: não existe nenhum arquivo selecionado';

     DVTAMBYT:  s := 'DVTAMBYT|Tamanho em bytes: ';
     DVDATCRI:  s := 'DVDATCRI|Data de criação: ';
     DVHORCRI:  s := 'DVHORCRI|Hora de criação: ';

     DVCNFAPA:  s := 'DVCNFAPA|Confirma apagamento de ';
     DVSIMNAO:  s := 'DVSIMNAO| (s/n) ? ';
     DVFOIAPA:  s := 'DVFOIAPA|Apaguei o arquivo ';

     DVPRO:     s := 'DVPRO   |Arquivo está protegido para regravação';
     DVDESPRO:  s := 'DVDESPRO|Arquivo está desprotegido';
     DVTROCA:   s := 'DVTROCA |Informe o novo nome do arquivo ';
     DVTROCAD:  s := 'DVTROCAD|Troquei o nome do arquivo para ';

     DVMASC:    s := 'DVMASC  |Informe a máscara de seleção, p. ex., *.TXT';
     DVNMASC:   s := 'DVNMASC |Troquei a máscara de seleção de arquivos para ';

     DVTIPCOP:  s := 'DVTIPCOP|Qual o tipo de copia ? ';

     DVINFDST:  s := 'DVINFDST|Informe o diretório destino: ';
     DVCANCG:   s := 'DVCANCG |Certo, operação foi cancelada';
     DVNAOPOD:  s := 'DVNAOPOD|O arquivo não pode ser copiado sobre si mesmo !';
     DVERRCOP:  s := 'DVERRCOP|Sinto muito, deu erro no disco, portanto não copiei.';
     DVFOICOP:  s := 'DVFOICOP| copiado.';
     DVCOMPLE:  s := 'DVCOMPLE|Perfeito, acabei.';

     DVERRLEI:  s := 'DVERRLEI|Houve um erro de leitura no arquivo original.';
     DVERRESC:  s := 'DVERRESC|Não consegui escrever este arquivo.';
     DVFALESP:  s := 'DVFALESP|Não existia espaco suficiente para escrever.';
     DVNOMCOP:  s := 'DVNOMCOP|Informe nome do arquivo replica: ';
     DVCNTSEL:  s := 'DVCNTSEL|Continue selecionando ou tecle ESC.';
     DVNOMERR:  s := 'DVNOMERR|Esse nome que voce escolheu não e'' valido.';
     DVFOIREP:  s := 'DVFOIREP| foi replicado.';

     DVNAODIR:  s := 'DVNAODIR|Não existem subdiretórios aqui.';

     DVTECCMD:  s := 'DVTECCMD|Tecle o comando.';

     DVCOMFBR:  s := 'DVCOMFBR|Impressão comum, formatada ou braille ? ';
     DVCOMBRA:  s := 'DVCOMBRA|Deseja impressao comum ou braille ? ';
     DVIMPCAN:  s := 'DVIMPCAN|A impressao foi cancelada.';
     DVIMPFIM:  s := 'DVIMPFIM|Impressao finalizada.';
     DVNAODSP:  s := 'DVNAODSP|A impressora não esta'' disponivel.';
     DVIMPCOM:  s := 'DVIMPCOM|Iniciando impressao comum.';

     DVLEITEL:  s := 'DVLEITEL|Tecle ESC para voltar ao DOSVOX.';

     DVSHIFT:   s := 'DVSHIFT |<Shift> ';
     DVCONTRL:  s := 'DVCONTRL|<Control> ';
     DVNUM:     s := 'DVNUM   |<Num.Lock> ';
     DVNONUM:   s := 'DVNONUM |<Sem Num.Lock> ';
     DVCAPS:    s := 'DVCAPS  |<Caps Lock> ';
     DVNOCAPS:  s := 'DVNOCAPS|<Sem Caps Lock> ';
     DVALT:     s := 'DVALT   |<Alt> ';

     DVSEMTRD:  s := 'DVSEMTRD|Erro no diretório do tradutor.';

     DVNOMIMP:  s := 'DVNOMIMP|Digite o nome do arquivo a imprimir: ';
     DVESPIMP:  s := 'DVESPIMP|Qual o espacejamento (1, 2 ou 3) ? ';
     DVARQIMP:  s := 'DVARQIMP|Informe o nome do arquivo de impressora: ';
     DVARQNEX:  s := 'DVARQNEX|Arquivo não existe, sinto muito.';

     DVQUERD:   s := 'DVQUERD |Ele vai ser o novo diretório de trabalho ';
     DVDIRNSL:  s := 'DVDIRNSL|Não posso fazer: não existe subdiretório selecionado';
     DVQSOLET:  s := 'DVQSOLET|Quer que soletre';

     DVNUMARQ:  s := 'DVNUMARQ|Numero de arquivos neste diretório: ';
     DVERRDIR:  s := 'DVERRDIR|Erro: este diretório não está acessível';

     DVTECUTL:  s := 'DVTECUTL|Qual a letra do utilitário ? ';
     DVTECPGM:  s := 'DVTECPGM|Qual a letra do programa ? ';
     DVTECJOG:  s := 'DVTECJOG|Qual a letra do jogo ? ';
     DVTECRED:  s := 'DVTECRED|Qual a letra do programa de rede ? ';
     DVTECMUL:  s := 'DVTECMUL|Qual a letra do programa de multimídia ? ';

     DVUTLNAO:  s := 'DVUTLNAO|Não existe programa registrado com esta letra.';
     DVESCF1:   s := 'DVESCF1 |Tecle F1 para ajuda ou ESC para cancelar.';
     DVERRPRG:  s := 'DVERRPRG|Erro na execução do programa: código ';
     DVPRGNAO:  s := 'DVPRGNAO|Programa não encontrado.';
     DVNAOCAB:  s := 'DVNAOCAB|Programa não coube na memoria.';
     DVOPCSAO:  s := 'DVOPCSAO|As opções são:';

     DVERINTC:  s := 'DVERINTC|Erro na intercomunicação de processos';

     DVAJU001:  s := 'DVAJU001|As principais opções do DOSVOX são:';                      {*****}
     DVAJU002:  s := 'DVAJU002|        t - testar o teclado';
     DVAJU003:  s := 'DVAJU003|        e - editar texto';
     DVAJU004:  s := 'DVAJU004|        l - ler texto';
     DVAJU005:  s := 'DVAJU005|        i - imprimir';
     DVAJU006:  s := 'DVAJU006|        a - arquivos';
     DVAJU007:  s := 'DVAJU007|A tecla ESC é sempre usada para cancelar';
     DVAJU008:  s := 'DVAJU008|Aperte uma tecla para continuar';

     DVAJU101:  s := 'DVAJU101|Outras opções:';
     DVAJU102:  s := 'DVAJU102|        j - jogos';
     DVAJU103:  s := 'DVAJU103|        u - utilitários falados';
     DVAJU104:  s := 'DVAJU104|        r - acesso à rede e internet';
     DVAJU105:  s := 'DVAJU14A|        m - multimídia';
     DVAJU106:  s := 'DVAJU105|        p - executar um programa qualquer';
     DVAJU107:  s := 'DVAJU106|        d - verificar discos';
     DVAJU108:  s := 'DVAJU107|        s - subdiretórios';
     DVAJU109:  s := 'DVAJU108|        q - informa a quem pertence este DOSVOX';
     DVAJU110:  s := 'DVAJU17a|        v - vai para outra janela';
     DVAJU111:  s := 'DVAJU111|        c - configura o DOSVOX';

     DVAJUD10:  s := 'DVAJUD10|Use as setas para selecionar';
     DVAJUD11:  s := 'DVAJUD11|Depois tecle:';
     DVAJUD12:  s := 'DVAJUD12|        c - para criar novo subdiretório';
     DVAJUD13:  s := 'DVAJUD13|        a - apagar o subdiretório falado';
     DVAJUD14:  s := 'DVAJUD14|        t - selecioná-lo como diretório de trabalho';
     DVAJUD15:  s := 'DVAJUD15|        i - obter dados sobre o diretório atual';
     DVAJUD16:  s := 'DVAJUD16|        s - sair do diretório de trabalho';
     DVAJUD17:  s := 'DVAJUD17|Teclando ESCAPE você retorna ao DOSVOX.';

     DVAJUD20:  s := 'DVAJUD20|As opcoes de manuseio de disco sao:';
     DVAJUD21:  s := 'DVAJUD21|        d - escolher disco para trabalho';
     DVAJUD22:  s := 'DVAJUD22|        e - verificar o espaco do disco de trabalho';
     DVAJUD23:  s := 'DVAJUD23|        f - formatar um disquete';
     DVAJUD24:  s := 'DVAJUD24|        i - informar diretório de trabalho';
     DVAJUD25:  s := 'DVAJUD25|        t - selecionar diretório de trabalho';
     DVAJUD26:  s := 'DVAJUD12|        c - para criar novo subdiretório';

     DVAJUD31:  s := 'DVAJUD31|Usando as setas voce selecionara'' um arquivo.';
     DVAJUD32:  s := 'DVAJUD32|Para operar com o ultimo que foi falado, as opcoes sao:';
     DVAJUD33:  s := 'DVAJUD33|      e - editar o arquivo';
     DVAJUD34:  s := 'DVAJUD34|      i - imprimir';
     DVAJU34A:  s := 'DVAJU34A|      l - leitor vox';
     DVAJUD35:  s := 'DVAJUD35|      a - apagar';
     DVAJU35A:  s := 'DVAJU35A|      x - executar o arquivo';
     DVAJUD36:  s := 'DVAJUD36|      d - dados sobre o arquivo';
     DVAJUD37:  s := 'DVAJUD37|      p - proteger ou desproteger';
     DVAJUD38:  s := 'DVAJUD38|      n - trocar o nome';
     DVAJUD39:  s := 'DVAJUD39|      c - para tirar uma copia dele';
     DVAJUD40:  s := 'DVAJUD40|      g - selecionar grupos de arquivos';

     DVAJUD51:  s := 'DVAJUD51|Para produzir copias voce tem as seguintes opcoes:';
     DVAJUD52:  s := 'DVAJUD52|       d - copiar este arquivo para outro diretório';
     DVAJUD53:  s := 'DVAJUD53|       t - copiar todos os arquivos para outro diretório';
     DVAJUD54:  s := 'DVAJUD54|       r - criar replica deste arquivo';
     DVAJUD55:  s := 'DVAJUD55|       m - mover todos os arquivos para outro diretório';

     DVSELJAN:  s := 'DVSELJAN|Selecione a nova janela com as setas depois ENTER';
     DV2GIGA:   s := 'DV2GIGA |Mais do que 2 giga';
     DVPDOS:    s := 'DVPDOS  |Para maiores informações, acione na opção P o programa DOS CHKDSK';

     DVTAMMEG:  s := 'DVTAMMEG|Tamanho do disco em Mb: ';
     DVLIVMEG:  s := 'DVLIVMEG|Espaco livre em Mb: ';

     DVVELOC:   s := 'DVVELOC |Qual a velocidade de 1 a 4 ? ';
     DVDTPAD:   s := 'DVDTPAD |Informe o diretório de trabalho padrão do sistema';

     end;

     nomearq := copy (s, 1, 8);
     while nomearq[length(nomearq)] = ' ' do
         nomearq := copy (nomearq, 1, length(nomearq)-1);
     s := copy (s, 10, length (s)-9);

     if nlf >= 0 then
         write (s);
     for i := 1 to nlf do
         writeln;

     if existeArqSom (nomeArq) then
         sintSom (nomearq)
     else
         sintetiza (s);
end;

{--------------------------------------------------------}

procedure soletra(s: string; nlf: integer);
var i: integer;
begin
     write (s);
     for i := 1 to nlf do
         writeln;
     for i := 1 to length (s) do
         sintSoletra (s[i]);
end;

{--------------------------------------------------------}

procedure sintetFala (s: string; nlf: integer);
var i: integer;
begin
     write (s);
     for i := 1 to nlf do
         writeln;

    if length (s) > 0 then
        sintetiza (s);
end;

{--------------------------------------------------------}

procedure falaNum (n: longint; nlf: integer);
var c: char;
    s: string;
    i: integer;
begin
    write (n);
    for i := 1 to nlf do
         writeln;
    falaNumeroConv (numeroParaString (n), MASCULINO);
end;

{--------------------------------------------------------}

procedure inicFala;
var dir: string;
begin
    sintinic (0, sintAmbiente ('DOSVOX', 'DIRDOSVOX'));
end;

end.
