{--------------------------------------------------------}
{
{     Discavox - utilitário de comunicações
{
{     Autores: Antonio Borges e Valter Ponte
{
{     Cooperação tecnológica NCE/UFRJ e RENDE/USP
{
{     Em abril/1995
{
{--------------------------------------------------------}

unit disvars;
interface

const 
    ESC   = #27;
    ENTER = #13;

    F1  = #59;
    F2  = #60;
    F3  = #61;
    F4  = #62;
    F5  = #63;
    F6  = #64;
    F7  = #65;
    F8  = #66;
    F9  = #67;
    F10 = #68;

    CTLF1  = #94;
    ALTF1  = #104;
    CTLF3  = #96;
    CTLF4  = #97;
    CTLF8  = #101;
    CTLF10 = #103;

    INS  = #82;
    DEL  = #83;
    HOME = #71;
    TEND = #79;
    PGUP = #73;
    PGDN = #81;
    CIMA = #72;
    BAIX = #80;
    ESQ  = #75;
    DIR  = #77;

    ALT_A = #30;
    ALT_Z = #44;

const
    tabAlt: array [16..50] of char = (
          'Q','W','E','R','T','Y','U','I','O','P','*','*','*','*',
          'A','S','D','F','G','H','J','K','L','*','*','*','*','*',
          'Z','X','C','V','B','N','M');

var
    ambDiscaVox: string;
    xcurDele, ycurDele, xcurMeu, ycurMeu: integer;

    veloc, velocTerm: longint;
    porta, nbits, stops, parid: integer;
    irq: byte;
    nbitsTerm, stopsTerm, paridTerm: integer;
    pulse: boolean;
    seqInicModem: string;

    nCartas: integer;
    destCarta: array [1..20] of string[80];
    arqCarta: array  [1..20] of string[80];
    assuntoCarta: array  [1..20] of string[80];

    pediuCartas: boolean;

    nProgs: integer;
    nomeProg: array [1..5] of string[80];

    ntextos: integer;
    texto: array [0..20] of string[80];

const
    MAXSTKANSI = 5;

var
    estado_ansi: (LETRACOMUM, PEGANDOCOLCHETE, PEGANDONUMERO, IGNORA1);
    svansix, svansiy: integer;
    y1scroll, y2scroll: integer;
    atrib: byte;
    corFg, corBg, corc, corb: byte;
    pst: integer;
    stkAnsi: array[0..MAXSTKANSI-1] of integer;
    numAnsi: string[5];
    modoLynx: boolean;
    leitRapida, leitCondens: boolean;

    arqAuto: text;
    autoArquiva: boolean;
    soletrando: boolean;

implementation
end.
