/*
*	Este e' um programa de demonstracao que utiliza praticamente todas as rotinas
* disponiveis no PARLA!
*	A sequencia de escolha das opcoes deste programa reflete a ordem que deve ser
* ser obedecida ao se desenvolver um novo aplicativo, ou seja, ao executa-lo
* voce podera ter uma boa ideia da sequencia de operacoes a seu primeiro progra-
* ma devera seguir.
*	Em linhas gerais siga o seguinte roteiro:
*		1. AA_OpenMo
*		2. AA_SelLin ou AA_SelHds
*		3. AA_SpkOn ou AA_SpkOff
*		4. AA_RingCnt ou (AA_SetPref + AA_CallNum) Nao e' necessario para handset
*		5. AA_PlayXX ou AA_RecXX ou AA_TxFax ou AA_RxFax ...
*		   para encerrar a ligacao AA_Rst
*		   para encerrar o programa AA_CloseMo
*/

CLEAR
SET CONFIRM ON
single =  CHR(218) + CHR(196) + CHR(191) + CHR(179) + CHR(217) +;
CHR(196) + CHR(192) + CHR(179) + " "
double = CHR(201) + CHR(205) + CHR(187) + CHR(186) + CHR(188) +;
CHR(205) + CHR(200) + CHR(186) + " "

COM        = 4
ARQUIVO    = "SAAT.71     "
ARQTXT     = "SAAT.TXT    "
ARQPCX     = "SAAT.PCX    "
ARQAPF     = "SAAT.APF    "
ARQFINAL   = "TUDO.APF    "
ARQAPP     = "SAAT.TXT    "
QUEBRA     = 1
ALTARES    = 1
NDIG       = 5
DIGVALIDOS = "0123456789"
num_falar  = "1234567890"
val_falar  = "77,77"
dat_falar  = "01/09/95"
ntoques    = 03
toqatend   = 18
prefixo    = "ATDP       "
telefone   = "0192545433"
nramal     = "0192545433"
toutdisc   = 5000
feed       = 0
prim       = 900
pausai     = 700
comaberta  = 0
linhacmd   = "AT&V                  "
baud       = 9600
parity     = 0
stopbits   = 1
databits   = 7
ctsenab    = 0
xonxoff    = 1
fbaudrate  = 1
fparity    = 2
fdatabits  = 3
fstopbits  = 4
fxonxoff   = 6
fctsenab   = 9
TAM_FONTE  = 80

DECLARE opc1[11]
        opc1[1]  = "Definir a COM"
        opc1[2]  = "Abrir o Modem"
        opc1[3]  = "Ativar Local"
        opc1[4]  = "Ativar Linha"
        opc1[5]  = "Ativar Linha+Speaker"
        opc1[6]  = "Enviar comandos ao Modem"
        opc1[7]  = "Configurar Modem (dados)"
        opc1[8]  = "Fechar o Modem"
        opc1[9]  = "Testar conexao de dados"
        opc1[10] = "Voltar ao menu anterior"
DECLARE opc2[5]
        opc2[1]  = "Gravar um arquivo ate tecla"
        opc2[2]  = "Gravar ate digito discado"
        opc2[3]  = "Tocar um arquivo"
        opc2[4]  = "Tocar arquivo ate digitos"
        opc2[5]  = "Voltar ao menu anterior"
DECLARE opc3[8]
        opc3[1]  = "Definir numero de digitos"
        opc3[2]  = "Definir temporizacao para discar"
        opc3[3]  = "Ativar feedback sonoro"
        opc3[4]  = "Definir tempo p/ primeiro digito"
        opc3[5]  = "Definir pausa interdigital"
        opc3[6]  = "Reconhecer digitos"
        opc3[7]  = "Reconhecer digitos falando"
        opc3[8]  = "Voltar ao menu anterior"
DECLARE opc4[5]
        opc4[1]  = "Falar um numero"
        opc4[2]  = "Falar um valor"
        opc4[3]  = "Falar uma data"
        opc4[4]  = "Falar a hora certa"
        opc4[5]  = "Voltar ao menu anterior"
DECLARE opc5[12]
        opc5[1]  = "Definir numero de toques"
        opc5[2]  = "Atender apos n toques"
        opc5[3]  = "Ligar para um telefone"
        opc5[4]  = "Transferir para um ramal"
        opc5[5]  = "Converter TXT - APF"
        opc5[6]  = "Converter PCX - APF"
        opc5[7]  = "Setup Multi Page FAX"
        opc5[8]  = "Append Page"
        opc5[9]  = "Enviar Fax"
        opc5[10] = "Receber Fax"
        opc5[11] = "Imprimir Fax"
        opc5[12] = "Voltar ao menu anterior"
IF (AA_DriveOn () = 0)	
   CLEAR SCREEN
   @ 1, 0 say "PARLA! nao instalado. Abortando ..."
   CANCEL
ENDIF
DO WHILE .T.
   CLEAR SCREEN
   CLEAR
   offset=5
   @1,0,3,79 BOX double 
   @22,0,24,79 BOX double 
   @2,23 SAY "SAAT - Sistemas de Auto Atendimento"
   SET MESSAGE TO 23 CENTER
   @ 4, offset PROMPT "Modem" MESSAGE "Configuracao, iniciacao e comandos para o Modem"
   @ 4, COL() + offset PROMPT "Arquivos" MESSAGE "Gravacao e Reproducao de arquivos"
   @ 4, COL() + offset PROMPT "Digitos" MESSAGE "Reconhecimento de digitos discados"
   @ 4, COL() + offset PROMPT "Numeros" MESSAGE "Falar sequencia de digitos"
   @ 4, COL() + offset PROMPT "Chamadas" MESSAGE "Ligacoes e Faxes"
   @ 4, COL() + offset PROMPT "Sair" MESSAGE "Voltar para o DOS"
   MENU TO escolha
   IF escolha = 6
      IF comaberta = 1
         AA_RstMode ( COM )
         AA_CloseMo ( COM )
      ENDIF
      CLEAR SCREEN
      CANCEL
   ENDIF
   menupop (escolha)
ENDDO

FUNCTION menupop
PARAMETER opcao
IF opcao = 1
   opcao = ACHOICE (5,5,15,3+30,opc1)
      DO CASE
         CASE opcao = 1 ; defcom ()
         CASE opcao = 2 ; abrcom  ()
         CASE opcao = 3 ; ativhs  ()
         CASE opcao = 4 ; atlinha  ()
         CASE opcao = 5 ; atlinpspk  ()
         CASE opcao = 6 ; comandos ()
         CASE opcao = 7 ; confcom  ()
         CASE opcao = 8 ; fechacom  ()
         CASE opcao = 9 ; testcon ()
      OTHERWISE      ; RETURN
      ENDCASE
ELSEIF opcao = 2
   opcao = ACHOICE (5,15,10,17+30,opc2)
      DO CASE
         CASE opcao = 1 ; gravarq ()
         CASE opcao = 2 ; gravadig ()
         CASE opcao = 3 ; tocarq ()
         CASE opcao = 4 ; tocarqdig ()
      OTHERWISE      ; RETURN
      ENDCASE
ELSEIF opcao = 3
   opcao = ACHOICE (5,28,12,33+35,opc3)
      DO CASE
         CASE opcao = 1 ; defndig ()
         CASE opcao = 2 ; deftemp  ()
         CASE opcao = 3 ; feedback  ()
         CASE opcao = 4 ; primeiro ()
         CASE opcao = 5 ; pausainter ()
         CASE opcao = 6 ; recdig  ()
         CASE opcao = 7 ; recdigpi ()
      OTHERWISE      ; RETURN
      ENDCASE
ELSEIF opcao = 4
   opcao = ACHOICE (5,40,13,45+23,opc4)
      DO CASE
         CASE opcao = 1 ; falnum ()
         CASE opcao = 2 ; falval ()
         CASE opcao = 3 ; faldat ()
         CASE opcao = 4 ; falhor ()
      OTHERWISE      ; RETURN
      ENDCASE
ELSEIF opcao = 5
   opcao = ACHOICE (5,52,16,56+23,opc5)
      DO CASE
         CASE opcao = 1 ; defntoq  ()
         CASE opcao = 2 ; atend ()
         CASE opcao = 3 ; disca ()
         CASE opcao = 4 ; ramal ()
         CASE opcao = 5 ; convtxt ()
         CASE opcao = 6 ; convpcx ()
         CASE opcao = 7 ; setupfax ()
         CASE opcao = 8 ; appendfax ()
         CASE opcao = 9 ; enviaF ()
         CASE opcao = 10 ; recebF ()
         CASE opcao = 11 ; imprimF ()
      OTHERWISE      ; RETURN
      ENDCASE
ENDIF
RETURN

FUNCTION defcom
limpatela ()
@ 8,18,10,30 BOX single
@ 9,19 SAY "Com   :" GET COM PICTURE "9"
READ
RETURN

FUNCTION abrcom
limpatela ()
AA_OpenMo ( COM )
comaberta = 1
@ 23,19 SAY "COM ABERTA !"
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION fechacom
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
AA_RstMode ( COM )
AA_CloseMo ( COM )
comaberta = 0
@ 23,19 SAY "COM FECHADA !"
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION testcon
limpatela ()
IF AA_Connect (COM) = 0
   @ 23,19 SAY "Nao Conectado!"
   @ 23,60 SAY " [<ENTER>]"
ELSE
   @ 23,19 SAY "Conectado!"
   @ 23,60 SAY " [<ENTER>]"
ENDIF
INKEY (0)
RETURN

FUNCTION ativhs
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
AA_SpkOff (COM)
/*** Em modems 33k o handset foi substituido por microfone + caixas (local)
 **   AA_SelHds ( COM )
 **   @ 23,19 SAY "HANDSET ATIVADO!"
****/
AA_SelLoc ( COM )
@ 23,19 SAY "Modo Local Ativado!"
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION atlinha  ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
AA_SeLine (COM)
AA_SpkOff (COM)
@ 23,19 SAY "LINHA ATIVADA!"
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION atlinpspk  ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
AA_SeLine (COM)
AA_SpkOn (COM)
@ 23,19 SAY "LINHA+SPEAKER ATIVADOS!"
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION comandos ()
c = " "
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,10,60 BOX single
@ 9,19 SAY "Linha de comando: " GET linhacmd PICTURE "@S22 !!!!!!!!!!!!!!!!!!!!!"
READ
@ 12,1,20,79 BOX single
@ 13,2 SAY "Respostas do Modem: "
linhacmd = linhacmd + CHR (13)
@ 23,60 SAY " [<ENTER>]"
RETORNO = AA_FlushRX (com)
RETQRDY = AA_InpQRdy (com)
RETORNO = AA_CmdMode ( linhacmd, com)
RETQRDY = 0
DEVPOS (19, 2)
DO WHILE INKEY(1) != 13
   RETQRDY = AA_InpQRdy (com)
   IF RETQRDY > 0
      RETORNO = AA_ModemAn (com)
      FOR I:=1 TO LEN (RETORNO)
         c = CHR (ASC (SUBSTR (RETORNO, I, 1)) % 128)
         IF c == CHR(13)
            SCROLL (14,2,19,78,1)
            DEVPOS (19, 2)
         ELSEIF c == CHR(10)
            ;
         ELSE
            @ 19, COL() SAY c
         ENDIF
      NEXT
   ENDIF
ENDDO
RETURN

FUNCTION confcom ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,12,50 BOX single
@ 9,19 SAY  "Baud Rate  : " GET baud PICTURE "99999"
@ 10,19 SAY "Stop Bits  : " GET stopbits PICTURE "9"
@ 11,19 SAY "Data Bits  : " GET databits PICTURE "9"
READ
DO CASE
   CASE baud == 110
        baud = 0
   CASE baud == 150
        baud = 1
   CASE baud == 300
        baud = 2
   CASE baud == 600
        baud = 3
   CASE baud == 1200
        baud = 4
   CASE baud == 2400
        baud = 5
   CASE baud == 4800
        baud = 6
   CASE baud == 9600
        baud = 7
   CASE baud == 19200
        baud = 8
   CASE baud == 38400
        baud = 9
   CASE baud == 57600
        baud = 10
   CASE baud == 115200
        baud = 11
ENDCASE
AA_SetSer ( fbaudrate, baud, com)
AA_SetSer ( fparity, parity, com)
AA_SetSer ( fdatabits, databits, com)
AA_SetSer ( fstopbits, stopbits, com)
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION gravarq ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,10,50 BOX single
@ 9,19 SAY "Nome do Aquivo: " GET arquivo PICTURE "@K !!!!!!!!!!!!"
READ
RETORNO = AA_RecFKey ( arquivo, 3000, com)
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION gravadig ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,12,50 BOX single
@ 9,19 SAY "Nome do Aquivo: " GET arquivo PICTURE "@K !!!!!!!!!!!!"
@ 10,19 SAY "Numero de digitos " GET ndig PICTURE "99"
@ 11,19 SAY "Digitos validos " GET digvalidos PICTURE "9999999999"
READ
RETORNO = AA_RecFDig ( arquivo, ndig, digvalidos, 3000, com)
@ 23,30 SAY "Digitos = "
@ 23,40 SAY RETORNO
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION tocarq  ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,10,50 BOX single
@ 9,19 SAY "Nome do Aquivo: " GET arquivo PICTURE "@K !!!!!!!!!!!!"
READ
RETORNO = AA_PlayFi ( arquivo, 3000, com)
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION tocarqdig ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,12,50 BOX single
@ 9,19 SAY "Nome do Aquivo: " GET arquivo PICTURE "@K !!!!!!!!!!!!"
@ 10,19 SAY "Numero de digitos " GET ndig PICTURE "99"
@ 11,19 SAY "Digitos validos " GET digvalidos PICTURE "9999999999"
READ
RETORNO = ""
RETORNO = AA_PlayFDi ( arquivo, 3000, com, digvalidos, ndig)
@ 23,30 SAY "Digitos = "
@ 23,40 SAY RETORNO
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION defndig ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,10,40 BOX single
@ 9,19 SAY "Numero de digitos " GET ndig PICTURE "99"
READ
RETURN

FUNCTION deftemp  ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,10,60 BOX single
@ 9,19 SAY "Tempo maximo para discar: " GET toutdisc PICTURE "99999"
READ
RETURN

FUNCTION feedback  ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,10,52 BOX single
@ 9,19 SAY "Feedback [0-desativa  1-ativa] " GET feed PICTURE "9"
READ
RETURN

FUNCTION primeiro ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,10,58 BOX single
@ 9,19 SAY "Tempo p/ discar primeiro digito " GET prim PICTURE "99999"
READ
RETURN

FUNCTION pausainter  ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,10,55 BOX single
@ 9,19 SAY "Pausa Interdigital " GET pausai PICTURE "99999"
READ
RETURN

FUNCTION recdig ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
RETORNO = AA_FlushRX (com)
IF prim = 0
   @ 8,18,10,60 BOX single
   @ 9,19 SAY "Reconhecendo digitos ..."
   RETORNO = AA_ReadN (feed, ndig, "0123456789", toutdisc, com)
ELSE
   @ 8,18,10,60 BOX single
   @ 9,19 SAY "Reconhecendo c/ pausa interdigital ..."
   RETORNO = AA_RdNPI (feed, ndig, "0123456789", toutdisc, com, prim, pausai)
ENDIF
@ 9, 19 SAY "                                      "
@ 9, 19 SAY "      Digitos  lidos  =  "
@ 9, 46 SAY  RETORNO
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION recdigpi ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,10,60 BOX single
@ 9,19 SAY "Reconhecendo digitos ..."
RETORNO = AA_PlayFPI ("playwdig.71", toutdisc, com, "0123456789", ndig, feed, prim, pausai)
@ 9, 19 SAY "      Digitos  lidos  =  "
@ 9, 46 SAY  RETORNO
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION falnum ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,10,60 BOX single
@ 9,19 SAY "Numero a ser falado: " GET num_falar
READ
RETORNO = AA_Talk (num_falar, com)
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION faldat ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,10,60 BOX single
@ 9,19 SAY "Data a ser falada: " GET dat_falar PICTURE "XX/XX/XX"
READ
RETORNO = AA_TalkDat (dat_falar, com)
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION falval ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,10,60 BOX single
@ 9,19 SAY "Valor a ser falado: " GET val_falar PICTURE "XX,XX"
READ
RETORNO = AA_TalkMon (val_falar, 53, com)
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION falhor ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
val_hora = SUBSTR (TIME (), 1, 5)
@ 8,18,10,60 BOX single
@ 9,19 SAY "Falando a hora certa: "
@ 9,41 SAY val_hora
AA_TalkTim (val_hora, com)
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION defntoq  ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,10,70 BOX single
@ 9,19 SAY "Numero de toques antes de atender: " GET ntoques
READ
RETURN

FUNCTION atend ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 8,18,10,60 BOX single
@ 9,19 SAY "Esperando tocar o telefone."
RETORNO = AA_RingCnt ( com )
DO WHILE (RETORNO < ntoques) .OR. (RETORNO > 18)
   IF RETORNO > 0
      @ 9, 40 SAY RETORNO
      @ 9, 53 SAY " toques"
   ENDIF
   RETORNO = AA_RingCnt ( com )
   IF (INKEY () = 27)
      RETURN
   ENDIF
ENDDO
@ 9,19 SAY "Atendendo e tocando arquivo ...           "
AA_SeLine (COM)
AA_DDCBLOCK (COM)
RETORNO = AA_PlayFi ( arquivo, 3000, com)
@ 9,19 SAY "Desligando ...                           "
AA_RstMode ( COM )
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION disca ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 9,19 SAY "Prefixo de discagem: " GET prefixo PICTURE "XXXXXXXXXX"
@ 10,19 SAY "Numero a chamar: " GET telefone PICTURE "XXXXXXXXXXXX"
@ 11,19 SAY "Toques p/ atender: " GET toqatend PICTURE 99
READ
AA_SetPref ( prefixo, com)
AA_SeLine (COM)
AA_SpkOn (COM)
limpatela ()
@ 8,18,10,70 BOX single
@ 9,19 SAY "Linha+Handset selecionados, chamando..."
RETORNO = AA_CallNum (telefone, toqatend * 500, com)
DO CASE
   CASE RETORNO = 1 ; @ 9,19 SAY "ocupado"
   CASE RETORNO = 2 ; @ 9,19 SAY ""
   CASE RETORNO = 3 ; @ 9,19 SAY "atendeu, tocando saat.71 ...          "
        RETORNO = AA_PlayFi ( "saat.71" , 3000, com)
                  AA_RstMode ( COM )
   CASE RETORNO = 4 ; @ 9,19 SAY "nao atendeu"
   CASE RETORNO = 5 ; @ 9,19 SAY "prefixo de discagem nao ok"
   CASE RETORNO = 6 ; @ 9,19 SAY "tom de discar nao foi reconhecido"
   CASE RETORNO = 7 ; @ 9,19 SAY "nao foi possivel discar"
OTHERWISE      ; RETURN
ENDCASE
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION Ramal ()
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 9,19 SAY "Toques p/ atender: " GET toqatend PICTURE 99
@ 10,19 SAY "Ramal: " GET nramal PICTURE "XXXXXXXXXX"
READ
AA_SeLine (COM)
AA_SpkOn (COM)
@ 8,18,10,70 BOX single
@ 9,19 SAY "Linha+Speaker selecionados, aguardando ligacao ..."
RETORNO = AA_RingCnt ( com )
DO WHILE (RETORNO < ntoques) .OR. (RETORNO > 18)
   IF RETORNO > 0
      limpatela ()
      @ 9, 40 SAY RETORNO
      @ 9, 53 SAY " toques"
   ENDIF
   RETORNO = AA_RingCnt ( com )
   IF (INKEY () = 27)
      RETURN
   ENDIF
ENDDO
@ 9,19 SAY "Atendeu! Informando transferencia de ramal ..."
RETORNO = AA_PlayFi ( "transf.71" , 3000, com)
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
@ 9,19 say "Transferindo a ligacao ..."
RETORNO = AA_Transf (nramal, toqatend * 500, com)
DO CASE
   CASE RETORNO = 1 ; @ 9,19 SAY "ocupado"
   CASE RETORNO = 2 ; @ 9,19 SAY ""
   CASE RETORNO = 3 ; @ 9,19 SAY "atendeu, tocando transf.71 ...          "
        RETORNO = AA_PlayFi ( "transf.71" , 3000, com)
                  AA_RstMode ( COM )
   CASE RETORNO = 4 ; @ 9,19 SAY "nao atendeu"
   CASE RETORNO = 5 ; @ 9,19 SAY "prefixo de discagem nao ok"
   CASE RETORNO = 6 ; @ 9,19 SAY "tom de discar nao foi reconhecido"
   CASE RETORNO = 7 ; @ 9,19 SAY "nao foi possivel discar"
OTHERWISE      ; RETURN
ENDCASE
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION convtxt
limpatela ()
@ 9,19 SAY "Nome do arquivo: " GET ARQTXT PICTURE "@K XXXXXXXXXXXX"
@ 10,19 SAY "Caracteres por linha [80/144]: " GET TAM_FONTE PICTURE "@k 999"
READ
RETORNO = AA_FontSiz (TAM_FONTE)
IF (RETORNO = 0)
   @ 23,19 SAY "Fonte OK !"
ELSE
   @ 23,19 SAY "Fonte NOK !"
ENDIF
RETORNO = AA_ConvTXT ( ARQTXT )
IF (RETORNO = 0)	
   @ 23,19 SAY "Conversao OK !"
ELSE
   @ 23,19 SAY "Conversao NAO OK !"
ENDIF
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION convpcx
limpatela ()
@ 9,19 SAY "Nome do arquivo: " GET ARQPCX PICTURE "@K XXXXXXXXXXXX"
READ
RETORNO = AA_ConvPCX ( ARQPCX )
IF (RETORNO = 0)	
   @ 23,19 SAY "Conversao OK !"
ELSE
   @ 23,19 SAY "Conversao NAO OK !"
ENDIF
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION setupfax
limpatela ()
@ 9,19 SAY "Nome do arquivo: " GET ARQFINAL PICTURE "@K XXXXXXXXXXXX"
READ
AA_MPFStup ( ARQFINAL )
@ 23,19 SAY "OK !"
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION appendfax
limpatela ()
@ 9,19 SAY "Arquivo final: " GET ARQFINAL PICTURE "@K XXXXXXXXXXXX"
@ 10,19 SAY "Arquivo p/ adicionar: " GET ARQAPP PICTURE "@K XXXXXXXXXXXX"
@ 11,19 SAY "Quebra de pagina: " GET QUEBRA PICTURE 9
@ 12,19 SAY "Alta Resolucao: " GET ALTARES PICTURE 9
READ
RETORNO = AA_MPFApp ( ARQFINAL, ARQAPP, QUEBRA, ALTARES )
IF (RETORNO = 0)
   @ 23,19 SAY "OK !"
ELSE
   @ 23,19 SAY "NAO OK !"
ENDIF
   @ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION enviaF
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
@ 9,19 SAY "Nome do arquivo: " GET ARQAPF PICTURE "@K XXXXXXXXXXXX"
@ 10,19 SAY "Fone: " GET TELEFONE PICTURE "XXXXXXXXXX"
READ
ALLTRIM (TELEFONE)
RETORNO = AA_TxFax ( 3000, ARQAPF, TELEFONE, com)
AA_RstMode ( COM )
IF (RETORNO = 0)
   @ 23,19 SAY "Transmissao OK !"
ELSE
   @ 23,19 SAY "Transmissao NAO OK !"
ENDIF
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION recebF
limpatela ()
IF comaberta = 0
   @ 23,19 SAY "ABRA O MODEM ANTES DESTA OPERACAO!"
   @ 23,60 SAY " [<ENTER>]"
   INKEY (0)
   RETURN       
ENDIF
TELEFONE = ""
@ 9,19 SAY "Nome do arquivo: " GET ARQAPF PICTURE "@K XXXXXXXXXXXX"
READ
RETORNO = AA_RxFax ( 3000, ARQAPF, com)
AA_RstMode ( COM )
IF (RETORNO = 0)
   @ 23,19 SAY "Recepcao OK !"
ELSE
   @ 23,19 SAY "Recepcao NAO OK !"
ENDIF
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION imprimF
limpatela ()
tipoimp = 0
ARQUIVO = "SAAT.PRN"
@ 9,19 SAY "Nome do arquivo: " GET ARQAPF PICTURE "@K XXXXXXXXXXXX"
@ 10,19 SAY "Imprimir p/ arquivo: " GET ARQUIVO PICTURE "@K XXXXXXXXXXXX"
@ 11,19 SAY "Tipo de impressora: " GET TIPOIMP PICTURE "@K 9"
READ
AA_PrtFax ( ARQAPF, ARQUIVO, tipoimp)
@ 23,60 SAY " [<ENTER>]"
INKEY (0)
RETURN

FUNCTION limpatela
@ 5,0 CLEAR TO 24,79
RETURN