{--------------------------------------------------------}
{              Televox - estrutura de dados
{--------------------------------------------------------}

unit teldados;
interface

Const
    MAXCADASTRO = 4000 ;

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

const
    NUMCAMPOS = 11;

    tabTexto: array [1..NUMCAMPOS] of string[15] = (
        'NOME: ',
        'TELEFONE: ',
        'ENDERECO: ',
        'CIDADE: ',
        'CEP: ',
        '1: ',
        '2: ',
        '3: ',
        '4: ',
        '5: ',
        '6: '
    );

    tabFala: array [1..NUMCAMPOS] of string[8] = (
        'TVNOME',
        'TVTELEF',
        'TVENDER',
        'TVCIDADE',
        'TVCEP',
        'TVOBS1',
        'TVOBS2',
        'TVOBS3',
        'TVOBS4',
        'TVOBS5',
        'TVOBS6'
    );

    tabMalaDir: array [1..NUMCAMPOS] of string[10] = (
        '[NOME]',
        '[TELEFONE]',
        '[ENDERECO]',
        '[CIDADE]',
        '[CEP]',
        '[1]',
        '[2]',
        '[3]',
        '[4]',
        '[5]',
        '[6]'
    );

const
    TODOS       = 255;
    SELECIONADO = 1;
    ACHADO      = 2;

type
   pString = ^string;
   pCadastro = ^Cadastro;

   Cadastro = Record
                  status:   byte;
                  nome:     Pstring;
                  telefone: Pstring;
                  endereco: Pstring;
                  cidade:   Pstring;
                  cep:      Pstring;
                  observ:   array [1..6] of pString;
              end;

var
    listaFone:  Array [1..MAXCADASTRO] Of pCadastro;
    cadastrados: Integer;
    achados: integer;
    posAtual: integer;
    arqFone:  text;
    nomeCadastro: string;
    opc: Char;
    fim: Boolean;
    inserindo: boolean;

implementation
end.
