PROGRAMA FONTE AGENDA


AGENDA.PRG

SET PROC TO PROC_ARQ

DO CRIADBF

SET PROC TO PROC_GER

SET DATE BRIT

SET SCOREBOARD OFF

SET TALK ON

PUBLIC iINDICES

USE

CLOSE ALL

CLOS DATA

PUBLIC COTACAO,vPOSICAO,mCOTACAO_US

mSEG = SPACE(01)

mSEG = 0

mSENHA = SPACE(04)

vSENHA = SPACE(04)

mCONDO = SPACE(40)

TIMBRE = SPACE(20)

FUNDO = SPACE(20)

ESTADO = SPACE(20)

BOXE = SPACE(20)

mSEG = 0

SET COLO TO

CLEAR

LIN = 13

SOM = 0

SET CURS OFF

DO WHIL LIN <> 3

SET COLO TO

SOM = SOM * 1.05

TONE(SOM,1)

@ LIN+2,15 SAY " "

@ LIN+3,15 SAY " ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"

@ LIN+4,15 SAY "±º M. A. OLIVA SERVICOS DE INFORMATICA º"

@ LIN+5,15 SAY "±º E COMERCIALIZACAO- 97.384.887/0001-09 º"

@ LIN+6,15 SAY "±º º"

@ LIN+7,15 SAY "±º Sistemas de Informatica em Geral !!! º"

@ LIN+8,15 SAY "±º Software House, Treinamento e Vendas º"

@ LIN+9,15 SAY "±º º"

@ LIN+10,15 SAY "±ºProgramador : Marcio Antonio Oliva º"

@ LIN+11,15 SAY "±ºHome-Page : www.maoliva.com.br º"

@ LIN+12,15 SAY "±ºAtualizacao : 15/05/2018 º"

@ LIN+13,15 SAY "±ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"

@ LIN+14,15 SAY "±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± "

@ LIN+15,15 SAY " "

LIN = LIN - 1

ENDDO

iINDICES = "123456"

iINDICES = SPACE(01)

INKEY(0)

SET CURS ON

SET COLO TO GR/B

SET INTE ON

SET COLO TO

CLEA

*COR1 = "B"

*COR2 = "G"

*COR3 = "N"

*COR4 = "R"

*COR5 = "W"

*COR6 = "BG"

*COR7 = "GB"

*COR8 = "GR"

*COR9 = "BR"

*COR0 = "*"

*TIMBRE = "GR+/B"

*TIMBRE = COR5+"+/"+COR2

*FUNDO = COR6+"+/"+COR2

*ESTADO = "/"+COR7

*BOXE = "/"+COR4

COR1 = "B"

COR2 = "G"

COR3 = "N"

COR4 = "R"

COR5 = "W"

COR6 = "BG"

COR7 = "GB"

COR8 = "GR"

COR9 = "BR"

COR0 = "*"

TIMBRE = COR5+"+/"+COR1

FUNDO = COR5+"+/"+COR1

ESTADO = COR0+"/"+COR7

BOXE = "/"+COR1

SOM = 815

OPCAO=0

DO WHIL .T.

TONE(SOM)

STATUS = SPACE(14)

SET COLO TO

SET COLO TO &TIMBRE&

DO MC_TEL

* SET COLO TO GR/

SET COLO TO &TIMBRE&

@ 22,19 SAY "<< ENTER >>"

@ 22,51 SAY "<< ESC >>"

SET COLO TO /W+

SET COLO TO

SET COLO TO &TIMBRE&

SET INTE ON

SET MESS TO 04 CENTER

@ 02,06 PROM "Cadastro..." MESSA " >> CADASTRO DAS FICHAS INDIVIDUAIS << "

@ 02,21 PROM "Manuten‡„o..." MESSA " >> ORDENA REGISTROS E INDEXA ARQUIVOS << "

@ 02,39 PROM "Pesquisa..." MESSA " >> PESQUISA CONJUNTA OU INDIVIDUAL << "

@ 02,55 PROM "Relat¢rios..." MESSA " >> GERAR LISTAGEM, ETIQUETAS E CARTAS << "

@ 02,72 PROM "Fim" MESSA " >> SAI DO PROGRAMA << "

MENU TO OPCAO

READ

SET COLO TO

IF LASTKEY() = 27

* TONE(SOM,1)

SET COLOR TO W+/B

SAI = SPACE(1)

SET COLO TO W+/B

@ 11,28 CLEA TO 13,51

@ 12,29 TO 14,52 DOUB

@ 13,30 SAY "TEM CERTEZA (S/N) ?" GET SAI PICT "@!" VALI(SAI$"SN")

READ

IF SAI = "S"

TONE(SOM)

USE

SET COLO TO

CLEAR

LIN = 13

SOM = 0

SET CURS OFF

DO WHIL LIN <> 3

SET COLO TO

SOM = SOM * 1.05

TONE(SOM,1)

@ LIN+2,15 SAY " "

@ LIN+3,15 SAY " ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"

@ LIN+4,15 SAY "±º M. A. OLIVA SERVICOS DE INFORMATICA º"

@ LIN+5,15 SAY "±º E COMERCIALIZACAO- 97.384.887/0001-09 º"

@ LIN+6,15 SAY "±º º"

@ LIN+7,15 SAY "±º Sistemas de Informatica em Geral !!! º"

@ LIN+8,15 SAY "±º Software House, Treinamento e Vendas º"

@ LIN+9,15 SAY "±º º"

@ LIN+10,15 SAY "±ºProgramador : Marcio Antonio Oliva º"

@ LIN+11,15 SAY "±ºHome-Page : www.maoliva.com.br º"

@ LIN+12,15 SAY "±ºAtualizacao : 15/05/2018 º"

@ LIN+13,15 SAY "±ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"

@ LIN+14,15 SAY "±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± "

@ LIN+15,15 SAY " "

LIN = LIN - 1

ENDDO

INKEY(0)

SET COLO TO

CLEA

RETU

ELSE

LOOP

ENDI

ENDI

DO CASE

CASE OPCAO = 1

DO MC_CAD.PRG

CASE OPCAO = 2

DO MC_MAN.PRG

CASE OPCAO = 3

DO MC_PES.PRG

CASE OPCAO = 4

DO MC_REL.PRG

CASE OPCAO = 5

STATUS = "FIM..........."

SET COLO TO

SET COLO TO &ESTADO&

@ 03,64 SAY STATUS PICT "@!"

SET COLO TO

CLEAR

LIN = 13

SOM = 0

SET CURS OFF

DO WHIL LIN <> 3

SET COLO TO

SOM = SOM * 1.05

TONE(SOM,1)

@ LIN+2,15 SAY " "

@ LIN+3,15 SAY " ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"

@ LIN+4,15 SAY "±º M. A. OLIVA SERVICOS DE INFORMATICA º"

@ LIN+5,15 SAY "±º E COMERCIALIZACAO- 97.384.887/0001-09 º"

@ LIN+6,15 SAY "±º º"

@ LIN+7,15 SAY "±º Sistemas de Informatica em Geral !!! º"

@ LIN+8,15 SAY "±º Software House, Treinamento e Vendas º"

@ LIN+9,15 SAY "±º º"

@ LIN+10,15 SAY "±ºProgramador : Marcio Antonio Oliva º"

@ LIN+11,15 SAY "±ºHome-Page : www.maoliva.com.br º"

@ LIN+12,15 SAY "±ºAtualizacao : 15/05/2018 º"

@ LIN+13,15 SAY "±ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"

@ LIN+14,15 SAY "±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± "

@ LIN+15,15 SAY " "

LIN = LIN - 1

ENDDO

INKEY(0)

CLEA

RETU

ENDC

ENDD

SET CURS ON

SET STAT ON

SET BELL ON

SET COLO TO

SET TALK ON

CLEA

CLOS ALL

RETU




IMPRIMIR AQUI, PRINTER HERE...