AGENDA.BAS

10 DIM NOME$(100)
20 DIM ENDERECO$(100)
30 DIM TELEFONE$(100)
40 DO: CLS
50 PRINT : PRINT TAB(26); "AGENDA DAVI-1.0"
60 PRINT TAB(22); "CADERNETA DE ENDERE€OS"
70 PRINT
80 : PRINT : PRINT "          COMANDOS:"
90 PRINT "|==============================================|"
100 PRINT "| 1.  [INCLUIR UM NOME]                        |"
120 PRINT "| 2.  [MODIFICAR DADOS]                        |"
130 PRINT "| 3.  [INFORMAR]                               |"
150 PRINT "| 4.  [LISTAR DADOS]                           |"
153 PRINT "| 5.  [EXCLUIR DADOS]                          |"
157 PRINT "| 6.  [SAIR]                                   |"
160 PRINT "|==============================================|"
170 PRINT
180 PRINT "DIGITE UM NUMERO:"
190 INPUT OPCAO
200 LOOP UNTIL OPCAO = 1 OR OPCAO = 2 OR OPCAO = 3 OR OPCAO = 4 OR OPCAO = 5 OR OPCAO = 6
210 IF OPCAO = 1 THEN 300
220 IF OPCAO = 2 THEN 400
230 IF OPCAO = 3 THEN 500
240 IF OPCAO = 4 THEN 600
250 IF OPCAO = 5 THEN 700
260 IF OPCAO = 6 THEN END

300 LET NUM = NUM + 1
310 IF NUM > 25 THEN GOTO 900
320 CLS
330 PRINT "ENDERE€O Nø"; NUM
335 PRINT "===================="
340 PRINT "NOME:"
345 INPUT NOME$(NUM)
7350 PRINT "ENDERE€O:"
355 INPUT ENDERECO$(NUM)
360 PRINT "TELEFONE:"
365 INPUT TELEFONE$(NUM)
370 GOTO 40

400 CLS
410 PRINT "ENTRE O NUMERO DO REGISTRO A SER MODIFICADO:"
415 INPUT X
420 IF X < 1 THEN 400
425 IF X > 2 THEN 400
430 PRINT : PRINT "ENDERE€O Nø"; X
440 PRINT "================"
445 PRINT "NOME: "; NOME$(X)
450 PRINT "ENDERE€O: "; ENDERECO$(X)
455 PRINT "TELEFONE: "; TELEFONE$(X)
460 PRINT : PRINT "NOVO NOME:"
465 INPUT NOME$(X)
470 PRINT "NOVO ENDERE€O:"
475 INPUT ENDERECO$(X)
480 PRINT "NOVO TELEFONE"
485 INPUT TELEFONE$(X)
490 GOTO 40

500 CLS
510 PRINT "DIGITE O NOME DA PESSOA:";
520 INPUT X$
530 PRINT "NOME:"; X$
540 FOR I = 1 TO NUM
550 IF X$ <> NOME$(I) THEN 580
560 PRINT "ENDERE€O:"; ENDERECO$(I)
565 PRINT "TELEFONE:"; TELEFONE$(I)
570 SLEEP 8
575 GOTO 40
580 NEXT I
590 PRINT "NŽO CONHE€O ESTE NOME!"
595 GOTO 510

600 CLS
610 FOR I = 1 TO NUM
PRINT "NOME: "; NOME$(I)
PRINT "ENDERE€O: "; ENDERECO$(I)
PRINT "TELEFONE: "; TELEFONE$(I)
PRINT
SLEEP
NEXT I
GOTO 40

700 CLS
710 PRINT "ENTRE O NUMERO DO REGISTRO A SER EXCLUIDO:"
720 INPUT X
730 IF X < 1 THEN 415
740 IF X > 25 THEN GOTO 415
750 LET NOME$(X) = " "
760 LET ENDERECO$(X) = " "
800 LET TELEFONE$(X) = " "
900 GOTO 40