Linguagem BASIC
O Programa QBASIC um aplicativo que vinha nos Sistemas Operacionais Windows 95/98/Me. Este arquivo fica neste caminho. (C:\Windows\Command). Com este aplicativo possvel abrir e executar dentro dele sem precisar compilar em (.EXE), qualquer arquivo no formato (.BAS). Basta abrir o contedo do arquivo e Teclar (Shift + F5). Este aplicativo semelhante ao EDIT, porm o EDIT.EXE no tem a capacidade de executar linguagem de programao em Basic assim como o QBASIC. O Programa QBASIC funciona tambm no Windows XP. J no Windows 7 no funciona. A seguir pegue o contedo da linguagem Basic, cole no Bloco de Notas do Windows, depois salve dentro da pasta onde se encontra o programa QBASIC, depois execute o programa qbasic, abra o contedo deste arquivo, e tecle Shift + F5 para rodar o aplicativo. Se desejar adquirir o programa Qbasic - Faa agora o Download.
Nome do Arquivo: OPTION2.BAS
10 CLEAR :
SCREEN 8: COLOR 14, 8
20 CLS : GOSUB 25: GOTO 40
25 FOR Q = 1 TO 80: LOCATE 23, 0 + Q: PRINT "": LOCATE 1, 0 + Q: PRINT "":
NEXT Q
26 FOR Q = 1 TO 22: LOCATE 0 + Q, 1: PRINT "": LOCATE 0 + Q, 80: PRINT "":
NEXT Q
30 FOR Q = 1 TO 78: LOCATE 3, 1 + Q: PRINT "": NEXT Q
31 COLOR 14, 8: LOCATE 2, 2: PRINT " 1> ARQUIVO 2> PROGRAMAS 3> BASIC 4> AJUDA
5> FIM"
33 COLOR 14, 8: LOCATE 3, 16: PRINT "": LOCATE 2, 16: PRINT "": LOCATE 1, 16:
PRINT ""
34 LOCATE 3, 35: PRINT "": LOCATE 2, 35: PRINT "": LOCATE 1, 35: PRINT ""
35 LOCATE 3, 53: PRINT "": LOCATE 2, 53: PRINT "": LOCATE 1, 53: PRINT ""
37 LOCATE 3, 68: PRINT "": LOCATE 2, 68: PRINT "": LOCATE 1, 68: PRINT ""
38 RETURN
39 FOR T = 0 TO 18: LOCATE 4 + T, 2: PRINT " ": NEXT T: RETURN
40 X$ = INKEY$: IF X$ = "" THEN 40
41 IF X$ <> "1" AND X$ <> "2" AND X$ <> "3" AND X$ <> "4" AND X$ <> "5" THEN 40
42 IF X$ = "1" THEN GOSUB 55: GOTO 65
43 IF X$ = "2" THEN GOSUB 851: GOTO 859
44 IF X$ = "3" THEN GOSUB 175: GOTO 200
45 IF X$ = "4" THEN GOTO 1345
46 IF X$ = "5" THEN COLOR 14, 8: GOTO 1705
50 REM ********* ROTINA DE ARQUIVO **********
55 FOR Y = 1 TO 13: LOCATE 3 + Y, 34: PRINT "": NEXT Y
56 FOR Y = 1 TO 33: LOCATE 17, 1 + Y: PRINT "": NEXT Y
58 COLOR 15, 8: LOCATE 5, 4: PRINT "A> Registrar Dados": LOCATE 6, 4: PRINT "B>
Consultar Registro ": LOCATE 7, 4: PRINT "C> Listar Registros": LOCATE 8, 4:
PRINT "D> Salvar Banco de Dados": LOCATE 9, 4: PRINT "E> Carregar Banco de
Dados"
59 LOCATE 10, 4: PRINT "F> Excluir Tudo": LOCATE 11, 4: PRINT "G> Limpar Banco
de Dados": LOCATE 12, 4: PRINT "H> Imprimir Registros": LOCATE 13, 4: PRINT "I>
Imprimir um por um": LOCATE 14, 4: PRINT "J> Arquivos *.DBF": LOCATE 15, 4:
PRINT "V> Voltar"
60 RETURN
65 X$ = INKEY$: IF X$ = "" THEN 65
70 IF X$ <> "A" AND X$ <> "a" AND X$ <> "B" AND X$ <> "b" AND X$ <> "C" AND X$
<> "c" AND X$ <> "D" AND X$ <> "d" AND X$ <> "E" AND X$ <> "e" AND X$ <> "F" AND
X$ <> "f" AND X$ <> "G" AND X$ <> "g" AND X$ <> "H" AND X$ <> "h" AND X$ <> "I"
AND X$ <> "i" AND X$ <> "J" AND X$ <> "j" AND X$ <> "V" AND X$ <> "v" AND X$ <>
"1" AND X$ <> "2" AND X$ <> "3" AND X$ <> "4" AND X$ <> "5" THEN 65
75 IF X$ = "A" OR X$ = "a" THEN GOSUB 97: GOSUB 100: GOTO 65
76 IF X$ = "B" OR X$ = "b" THEN GOSUB 97: GOSUB 100: GOTO 65
77 IF X$ = "C" OR X$ = "c" THEN GOSUB 97: GOSUB 100: GOTO 65
78 IF X$ = "D" OR X$ = "d" THEN GOSUB 97: GOSUB 100: GOTO 65
79 IF X$ = "E" OR X$ = "e" THEN GOSUB 97: GOSUB 100: GOTO 65
80 IF X$ = "F" OR X$ = "f" THEN GOSUB 97: GOSUB 100: GOTO 65
81 IF X$ = "G" OR X$ = "g" THEN GOSUB 97: GOSUB 100: GOTO 65
82 IF X$ = "H" OR X$ = "h" THEN GOSUB 97: GOSUB 100: GOTO 65
83 IF X$ = "I" OR X$ = "i" THEN GOSUB 97: GOSUB 100: GOTO 65
84 IF X$ = "J" OR X$ = "j" THEN GOSUB 97: GOSUB 100: GOTO 65
85 IF X$ = "V" OR X$ = "v" THEN GOSUB 39: COLOR 14, 8: GOTO 40
87 IF X$ = "2" THEN GOSUB 39: GOSUB 851: GOTO 859
91 IF X$ = "3" THEN GOSUB 39: GOSUB 175: GOTO 200
92 IF X$ = "4" THEN GOSUB 39: GOTO 40
93 IF X$ = "5" THEN GOSUB 39: GOTO 40
96 COLOR 14, 8: CLS : GOSUB 25: GOSUB 55: GOTO 200
97 BEEP: COLOR 14, 8: FOR Y = 1 TO 44: LOCATE 21, 35 + Y: PRINT "": NEXT Y
98 LOCATE 21, 35: PRINT "": LOCATE 22, 35: PRINT "": COLOR 13, 8: LOCATE 22,
40: PRINT " Escolha primeiro o programa"
99 COLOR 14, 8: FOR Y = 1 TO 44: LOCATE 21, 35 + Y: PRINT "": NEXT Y: RETURN
100 FOR T = 1 TO 29999: NEXT T: LOCATE 21, 35: PRINT " ": LOCATE 22, 35: PRINT "
": LOCATE 22, 40: PRINT " "
102 FOR Y = 1 TO 44: LOCATE 21, 35 + Y: PRINT " ": NEXT Y: LOCATE 21, 35: PRINT
" ": RETURN
109 REM ************ LER DIRETORIOS **************
110 COLOR 10, 8: LOCATE 22, 4: LINE INPUT "Qual o Nome do Diretrio ? "; C$
120 RUN C$
130 PRINT "Pressione Enter Para Continuar..."
135 IF INKEY$ <> CHR$(13) THEN 135
136 GOTO 96
140 REM *************** RENOMEAR DIRETORIOS ***************
145 COLOR 10, 8: LOCATE 22, 4: LINE INPUT "Qual o Nome do Diretrio ? "; C$
146 LOCATE 22, 4: PRINT " "
150 LOCATE 22, 4: LINE INPUT "Deseja Renomear para que nome ? "; E$
155 NAME C$ AS E$
160 LOCATE 22, 4: PRINT " ": BEEP: COLOR 14, 8: GOSUB 175: GOTO 200
170 REM ************ BASIC **************
175 COLOR 14, 8: FOR Y = 1 TO 14: LOCATE 3 + Y, 35: PRINT "": NEXT Y
177 FOR Y = 1 TO 14: LOCATE 3 + Y, 68: PRINT "": NEXT Y
180 FOR Y = 1 TO 34: LOCATE 18, 34 + Y: PRINT "": NEXT Y
185 COLOR 15, 8: LOCATE 5, 39: PRINT "A> Ver Diretrios": LOCATE 6, 39: PRINT
"B> Ler Diretrios ": LOCATE 7, 39: PRINT "C> Renomear Diretrios": LOCATE 8,
39: PRINT "D> Deletar Diretrios": LOCATE 9, 39: PRINT "E> Proteo de Tela"
190 LOCATE 10, 39: PRINT "F> Proteo com Senha": LOCATE 11, 39: PRINT "G> Proteo
com Alarme": LOCATE 12, 39: PRINT "H> Programador": LOCATE 13, 39: PRINT "I>
Memria Ram": LOCATE 14, 39: PRINT "L> Outros": LOCATE 15, 39: PRINT "M> Diretrios
do DOS": LOCATE 16, 39: PRINT "V> Voltar"
195 RETURN
200 X$ = INKEY$: IF X$ = "" THEN 200
205 IF X$ <> "A" AND X$ <> "a" AND X$ <> "B" AND X$ <> "b" AND X$ <> "C" AND X$
<> "c" AND X$ <> "D" AND X$ <> "d" AND X$ <> "E" AND X$ <> "e" AND X$ <> "F" AND
X$ <> "f" AND X$ <> "G" AND X$ <> "g" AND X$ <> "H" AND X$ <> "h" AND X$ <> "I"
AND X$ <> "i" AND X$ <> "L" AND X$ <> "l" AND X$ <> "M" AND X$ <> "m" AND X$ <>
"V" AND X$ <> "v" AND X$ <> "1" AND X$ <> "2" AND X$ <> "4" AND X$ <> "5" THEN
65
210 IF X$ = "A" OR X$ = "a" THEN 305
215 IF X$ = "B" OR X$ = "b" THEN 110
220 IF X$ = "C" OR X$ = "c" THEN 145
222 IF X$ = "D" OR X$ = "d" THEN 275
224 IF X$ = "E" OR X$ = "e" THEN 417
226 IF X$ = "F" OR X$ = "f" THEN 316
228 IF X$ = "G" OR X$ = "g" THEN 380
230 IF X$ = "H" OR X$ = "h" THEN 879
232 IF X$ = "I" OR X$ = "i" THEN BEEP: COLOR 13, 8: LOCATE 22, 4: PRINT FRE(0):
FOR g = 1 TO 29999: NEXT g: LOCATE 22, 4: PRINT " ": COLOR 14, 8: GOTO 200
236 IF X$ = "L" OR X$ = "l" THEN 1500
238 IF X$ = "M" OR X$ = "m" THEN 1337
245 IF X$ = "V" OR X$ = "v" THEN COLOR 14, 8: GOSUB 39: GOTO 40
248 IF X$ = "1" THEN COLOR 14, 8: GOSUB 39: GOSUB 55: GOTO 65
250 IF X$ = "2" THEN COLOR 14, 8: GOSUB 39: GOSUB 851: GOTO 859
252 IF X$ = "4" THEN GOSUB 39: GOTO 40
256 IF X$ = "5" THEN GOSUB 39: GOTO 40
270 REM ********** DELETAR DIRETORIOS **********
275 COLOR 10, 8: LOCATE 22, 4: LINE INPUT "Qual o Nome do Diretrio ? "; C$
280 LOCATE 22, 4: PRINT " ": KILL C$
285 BEEP: LOCATE 22, 4: PRINT " "
295 GOTO 200
300 REM ********** VER DIRETORIOS *************
305 CLS : COLOR 14, 8: FILES "*.BAS"
307 PRINT "Pressione Enter Para Continuar..."
309 IF INKEY$ <> CHR$(13) THEN 309
310 CLS : GOSUB 25: GOSUB 175: GOTO 200
315 REM ******** PROTEO COM SENHA **********
316 LOCATE 22, 4: PRINT " "
317 COLOR 10, 8: LOCATE 22, 4: PRINT "Deseja Mudar a Senha (S/N) ? "
318 X$ = INKEY$: IF X$ = "" THEN 318
319 IF X$ <> "S" AND X$ <> "s" AND X$ <> "N" AND X$ <> "n" THEN 318
322 IF X$ = "N" OR X$ = "n" THEN CLEAR 1000: GOTO 350
323 IF X$ = "S" OR X$ = "s" THEN 326
325 REM ***** MUDAR SENHA *********
326 CLEAR 20: DIM B$(35)
327 LOCATE 22, 4: PRINT " ": LOCATE 22, 4: INPUT "Qual a Nova Senha "; B$
335 OPEN "SNH.DBF" FOR OUTPUT AS #1
337 PRINT #1, B$
339 CLOSE #1
345 GOTO 316
347 REM **** PROTEGER A TELA COM A SENHA GRAVADA ********
350 OPEN "SNH.DBF" FOR INPUT AS #1
355 INPUT #1, B$
356 IF NOT EOF(1) THEN 355
357 CLOSE #1
360 GOSUB 39: LOCATE 10, 10: LINE INPUT "Qual a Senha ? "; F$
365 IF F$ = B$ THEN COLOR 14, 8: GOSUB 39: GOTO 40
370 IF F$ <> B$ THEN BEEP: GOTO 360
375 REM ************* PROTEO DE TELA COM ALARME **************
380 OPEN "SNH.DBF" FOR INPUT AS #1
385 INPUT #1, B$
390 IF NOT EOF(1) THEN 355
395 CLOSE #1
396 GOSUB 39: COLOR 10, 8: LOCATE 10, 10: LINE INPUT "Qual a Senha ? "; F$
397 IF F$ = B$ THEN COLOR 14, 8: GOSUB 39: GOTO 40
398 IF F$ <> B$ THEN 400
400 CLS : SCREEN 7
401 IF INKEY$ = "V" THEN 10
402 IF INKEY$ = "v" THEN 10
403 g = RND(1) * 14
404 H = RND(2) * 12
405 COLOR g, H
406 LOCATE 12, 14: PRINT "A L A R M E"
407 BEEP: FOR U = 1 TO 500: NEXT U: BEEP
408 IF INKEY$ = "v" THEN 10
409 GOTO 401
415 REM ************ PROTEO DE TELA *************
417 COLOR 14, 8: FOR Y = 1 TO 15: LOCATE 3 + Y, 32: PRINT "": NEXT Y
419 FOR Y = 1 TO 31: LOCATE 18, 1 + Y: PRINT "": NEXT Y
420 COLOR 15, 8: LOCATE 5, 4: PRINT "A> Faixas": LOCATE 6, 4: PRINT "B> Gotas":
LOCATE 7, 4: PRINT "C> Raios": LOCATE 8, 4: PRINT "D> Colores": LOCATE 9, 4:
PRINT "E> Calescpio"
422 LOCATE 10, 4: PRINT "F> Tapete": LOCATE 11, 4: PRINT "G> Asterides": LOCATE
12, 4: PRINT "H> Graf.Circ.": LOCATE 13, 4: PRINT "I> Circle": LOCATE 14, 4:
PRINT "J> Circlone": LOCATE 15, 4: PRINT "V> Voltar"
425 X$ = INKEY$: IF X$ = "" THEN 425
430 IF X$ <> "A" AND X$ <> "a" AND X$ <> "B" AND X$ <> "b" AND X$ <> "C" AND X$
<> "c" AND X$ <> "D" AND X$ <> "d" AND X$ <> "E" AND X$ <> "e" AND X$ <> "F" AND
X$ <> "f" AND X$ <> "G" AND X$ <> "g" AND X$ <> "H" AND X$ <> "h" AND X$ <> "I"
AND X$ <> "i" AND X$ <> "J" AND X$ <> "j" AND X$ <> "V" AND X$ <> "v" AND X$ <>
"2" AND X$ <> "3" AND X$ <> "4" AND X$ <> "5" THEN 425
435 IF X$ = "A" OR X$ = "a" THEN 491
440 IF X$ = "B" OR X$ = "b" THEN 506
445 IF X$ = "C" OR X$ = "c" THEN 527
450 IF X$ = "D" OR X$ = "d" THEN 555
455 IF X$ = "E" OR X$ = "e" THEN 576
460 IF X$ = "F" OR X$ = "f" THEN 591
465 IF X$ = "G" OR X$ = "g" THEN 670
470 IF X$ = "H" OR X$ = "h" THEN 680
475 IF X$ = "I" OR X$ = "i" THEN 707
480 IF X$ = "J" OR X$ = "j" THEN 822
485 IF X$ = "V" OR X$ = "v" THEN COLOR 14, 8: GOSUB 39: GOSUB 175: GOTO 200
490 REM ************ FAIXAS ****************
491 CLS : SCREEN 7
492 FOR F = 1 TO 4000: NEXT F
495 IF INKEY$ = "V" THEN 10
496 IF INKEY$ = "v" THEN 10
497 A = RND(1) * 15
498 B = RND(2) * 14
499 COLOR B, A
500 FOR D = 1 TO 4
501 LOCATE 20 + D, 1: PRINT ""
502 NEXT D
503 IF INKEY$ = "v" THEN 10
504 GOTO 492
505 REM ************* GOTAS **************
506 CLS : SCREEN 7
507 IF INKEY$ = "V" THEN 10
508 K = RND(1) * 15
509 Z = RND(1) * 15
510 COLOR K, Z
512 FOR F = 1 TO 520
513 X = RND(1) * 320
514 Y = RND(1) * 220
516 C = RND(1) * 14 + 2
518 R = RND(1) * 30
520 CIRCLE (X, Y), C, R
521 PAINT (X, Y), C, R
522 IF INKEY$ = "v" THEN 10
523 NEXT F
524 IF INKEY$ = "V" THEN 10
525 GOTO 506
526 REM ********** RAIOS **************
527 SCREEN 7
528 CLS
529 IF INKEY$ = "v" THEN 10
530 A = RND(1) * 15
531 g = RND(1) * 14
532 COLOR A, 0
533 R = RND(-TIME)
535 FOR N = 1 TO 140
537 LINE (157, 95)-(296 - RND(1) * 266, 96 - RND(1) * 96)
538 IF INKEY$ = "V" THEN 10
539 NEXT N
541 FOR N = 95 TO 191 STEP 12
542 LINE (157, 95)-(0, N)
543 LINE (157, 95)-(295, N)
544 IF INKEY$ = "v" THEN 10
545 NEXT N
546 FOR N = 0 TO 255 STEP 100
548 LINE (157, 95)-(N, 191)
549 IF INKEY$ = "V" THEN 10
550 NEXT N
552 FOR D = 1 TO 100: NEXT D
553 GOTO 528
554 REM *********** COLORES **********
555 CLS : SCREEN 8
556 U = RND(1) * 15
557 IF INKEY$ = "v" THEN 10
558 I = RND(1) * 15
559 COLOR U, I
561 FOR W = 1 TO 20
562 FOR F = 1 TO 15
564 F = RND(1) * 15
565 X = RND(1) * 680: Y = RND(2) + 90
566 B = RND(1) * 400
567 CIRCLE (X, Y), B, F: CIRCLE (X, Y), B, F
568 IF INKEY$ = "V" THEN GOTO 10
569 NEXT F
570 NEXT W
571 IF INKEY$ = "v" THEN 10
572 IF INKEY$ = "V" THEN GOTO 10
574 GOTO 555
575 REM ********** CALESCOPIO *************
576 R = RND(-TIME)
577 CLS : SCREEN 7: COLOR , 0
578 FOR L = 0 TO 255 STEP 2
579 COLOR RND(1) * 15
580 LINE (0, 0)-(L, 191)
582 LINE (350, 0)-(312 - L, 191)
584 LINE (0, 191)-(L, 0)
585 LINE (350, 191)-(312 - L, 0)
586 IF INKEY$ = "v" THEN 10
587 NEXT L
588 IF INKEY$ = "V" THEN 10
589 GOTO 578
590 REM *********** TAPETE ****************
591 SCREEN 7
592 IF INKEY$ = "V" THEN 10
593 E = RND(1) * 15
595 F = RND(2) * 14
596 COLOR E, F
597 C = 2 + 14 * RND(-TIME)
598 C1 = 256 * RND(-TIME)
599 L1 = 192 * RND(-TIME)
601 C2 = 256 * RND(-TIME)
602 L2 = 192 * RND(-TIME)
603 FOR F = 0 TO 300 STEP 4
660 CIRCLE (C1, L1), E, C
662 CIRCLE (C2, L2), F, C
663 IF INKEY$ = "v" THEN 10
664 NEXT F
665 FOR F = 1 TO 500
666 NEXT F
667 IF INKEY$ = "V" THEN 10
668 GOTO 591
669 REM *********** ASTEROIDES *************
670 SCREEN 7: COLOR , 0
671 IF INKEY$ = "v" THEN 10
672 IF INKEY$ = "V" THEN 10
673 A = RND(1) * 900
674 B = RND(1) * 900
675 C = RND(1) * 15
677 PSET (A, B), C
678 GOTO 672
679 REM ****** GRAF.CIRC. ***************
680 SCREEN 7
681 W = RND(1) * 15
682 T = RND(1) * 15
683 COLOR W, T
685 FOR F = 1 TO 900
686 X = RND(1) * 356
687 Y = RND(1) * 292
688 C = RND(1) * 14 + 2
689 V = RND(1) * 10
690 FOR D = 1 TO V STEP 1
695 CIRCLE (X, Y), D, C
696 IF INKEY$ = "v" THEN 10
697 IF INKEY$ = "V" THEN 10
698 NEXT D
699 IF INKEY$ = "v" THEN 10
700 NEXT F
701 IF INKEY$ = "V" THEN 10
702 CLS : GOTO 680
705 REM ********** CIRCLE ***************
707 SCREEN 7
708 FOR B = 80 TO 1 STEP -1
709 E1 = 80 / B
710 E2 = B / 80
711 CIRCLE (148, 100), 80, 13, , , E1
712 CIRCLE (148, 100), 80, 10, , , E2
713 IF INKEY$ = "V" THEN 10
714 NEXT B
715 COLOR 15, 1
716 IF INKEY$ = "v" THEN 10
717 LINE (128, 160)-(128, 0)
718 LINE (48, 80)-(208, 80)
719 FOR B = 80 TO 1 STEP -1
720 E1 = 80 / B
721 E2 = B / 80
722 CIRCLE (148, 100), 80, 12, , , E1
723 CIRCLE (148, 100), 80, 8, , , E2
724 IF INKEY$ = "V" THEN 10
725 NEXT B
726 COLOR 13, 4
727 LINE (128, 160)-(128, 0)
728 LINE (48, 80)-(208, 80)
729 FOR B = 80 TO 1 STEP -1
730 E1 = 80 / B
731 IF INKEY$ = "v" THEN 10
732 E2 = B / 80
733 CIRCLE (148, 100), 80, 7, , , E1
734 CIRCLE (148, 100), 80, 3, , , E2
735 IF INKEY$ = "V" THEN 10
736 NEXT B
737 COLOR 5, 10
738 LINE (128, 160)-(128, 0)
739 LINE (48, 80)-(208, 80)
740 FOR B = 80 TO 1 STEP -1
741 IF INKEY$ = "v" THEN 10
745 E1 = 80 / B
747 E2 = B / 80
748 CIRCLE (148, 100), 80, 11, , , E1
749 CIRCLE (148, 100), 80, 14, , , E2
750 IF INKEY$ = "V" THEN 10
751 IF INKEY$ = "v" THEN 10
752 NEXT B
754 COLOR 8, 2: LINE (128, 160)-(128, 0)
755 LINE (48, 80)-(208, 80)
756 FOR B = 1 TO 1 STEP -1
757 E1 = 80 / B
758 E2 = B / 80
759 CIRCLE (148, 100), 80, 1, , , E1
760 CIRCLE (148, 100), 80, 13, , , E2
761 IF INKEY$ = "V" THEN 10
762 NEXT B
763 COLOR 5, 15: LINE (128, 160)-(128, 0)
764 LINE (48, 80)-(208, 80)
765 FOR B = 1 TO 1 STEP -1
766 E1 = 80 / B
767 E2 = B / 80
768 CIRCLE (148, 100), 80, 1, , , E1
769 CIRCLE (148, 100), 80, 12, , , E2
770 IF INKEY$ = "V" THEN 10
771 NEXT B
772 IF INKEY$ = "v" THEN 10
773 COLOR 7, 9
774 LINE (128, 160)-(128, 0)
775 FOR B = 1 TO 1 STEP -1
776 E1 = 80 / B
777 E2 = B / 80
778 CIRCLE (148, 100), 80, 3, , , E1
779 CIRCLE (148, 100), 80, 10, , , E2
780 IF INKEY$ = "V" THEN 10
781 NEXT B
782 COLOR 14, 13
783 LINE (128, 160)-(128, 0)
784 FOR B = 1 TO 1 STEP -1
785 E1 = 80 / B
786 E2 = B / 80
787 CIRCLE (148, 100), 80, 3, , , E1
788 CIRCLE (148, 100), 80, 10, , , E2
789 IF INKEY$ = "V" THEN 10
790 NEXT B
791 IF INKEY$ = "v" THEN 10
795 COLOR 4, 7
796 LINE (128, 160)-(128, 0)
797 FOR B = 80 TO 1 STEP -1
798 E1 = 80 / B
799 E2 = B / 80
800 CIRCLE (148, 100), 80, 5, , , E1
802 CIRCLE (148, 100), 80, 2, , , E2
803 IF INKEY$ = "v" THEN 10
804 IF INKEY$ = "V" THEN 10
805 NEXT B
807 COLOR 1, 2
808 LINE (128, 160)-(128, 0)
809 FOR B = 80 TO 1 STEP -1
810 E1 = 80 / B
811 E2 = B / 80
812 CIRCLE (148, 100), 80, 9, , , E1
813 CIRCLE (148, 100), 80, 8, , , E2
814 IF INKEY$ = "V" THEN 10
815 NEXT B
816 IF INKEY$ = "v" THEN 10
818 GOTO 707
820 REM ********* CIRCLONE ********
822 CLS : SCREEN 7: COLOR , 0
824 T = RND(1) * 15
825 Y = RND(2) * 14
827 FOR D = .1 TO 5
829 CIRCLE (150, 100 - D), 80 - D, T, , , 1 + D: CIRCLE (150, 100), 80 - D, Y, ,
, D + D: CIRCLE (155, 100), 80 - D, Y, , , D + D
830 IF INKEY$ = "V" THEN 10
831 IF INKEY$ = "v" THEN 10
835 NEXT D
837 FOR A = 1 TO 2000: NEXT A
838 GOTO 822
850 REM *********** PROGRAMAS ************
851 COLOR 14, 8: FOR Y = 1 TO 14: LOCATE 3 + Y, 16: PRINT "": NEXT Y
852 FOR Y = 1 TO 14: LOCATE 3 + Y, 50: PRINT "": NEXT Y
853 FOR Y = 1 TO 35: LOCATE 18, 15 + Y: PRINT "": NEXT Y
854 COLOR 15, 8: LOCATE 5, 19: PRINT "A> Agenda Telefnica": LOCATE 6, 19: PRINT
"B> Etiqueta ": LOCATE 7, 19: PRINT "C> Duplicata Ipanema": LOCATE 8, 19: PRINT
"D> Duplicata Lomanto": LOCATE 9, 19: PRINT "E> DAE Ipanema"
855 LOCATE 10, 19: PRINT "F> DAE Lomanto": LOCATE 11, 19: PRINT "G> Folha de Pgt
Ipanema": LOCATE 12, 19: PRINT "H> Folha de Pgt Lomanto": LOCATE 13, 19: PRINT
"I> Cheques ": LOCATE 14, 19: PRINT "L> GRPS ": LOCATE 15, 19: PRINT "M>
Outros": LOCATE 16, 19: PRINT "V> Voltar"
857 RETURN
859 X$ = INKEY$: IF X$ = "" THEN 859
860 IF X$ <> "A" AND X$ <> "a" AND X$ <> "B" AND X$ <> "b" AND X$ <> "C" AND X$
<> "c" AND X$ <> "D" AND X$ <> "d" AND X$ <> "E" AND X$ <> "e" AND X$ <> "F" AND
X$ <> "f" AND X$ <> "G" AND X$ <> "g" AND X$ <> "H" AND X$ <> "h" AND X$ <> "I"
AND X$ <> "i" AND X$ <> "L" AND X$ <> "l" AND X$ <> "M" AND X$ <> "m" AND X$ <>
"V" AND X$ <> "v" AND X$ <> "1" AND X$ <> "3" AND X$ <> "4" AND X$ <> "5" THEN
859
861 IF X$ = "A" OR X$ = "a" THEN 896
862 IF X$ = "B" OR X$ = "b" THEN RUN "ETIQ.BAS"
863 IF X$ = "C" OR X$ = "c" THEN RUN "DUP-IPAN.BAS"
864 IF X$ = "D" OR X$ = "d" THEN RUN "DUP-LMTO.BAS"
865 IF X$ = "E" OR X$ = "e" THEN RUN "DAE-IPAN.BAS"
866 IF X$ = "F" OR X$ = "f" THEN RUN "DAE-LMTO.BAS"
867 IF X$ = "G" OR X$ = "g" THEN RUN "SAL-IPAN.BAS"
868 IF X$ = "H" OR X$ = "h" THEN RUN "SAL-LMTO.BAS"
869 IF X$ = "I" OR X$ = "i" THEN RUN "CHEQUE.BAS"
870 IF X$ = "L" OR X$ = "l" THEN RUN "GRPS.BAS"
871 IF X$ = "M" OR X$ = "m" THEN GOSUB 1766: GOTO 1800
872 IF X$ = "V" OR X$ = "v" THEN COLOR 14, 8: GOSUB 39: GOTO 40
873 IF X$ = "1" THEN COLOR 14, 8: GOSUB 39: GOSUB 55: GOTO 65
874 IF X$ = "3" THEN COLOR 14, 8: GOSUB 39: GOSUB 175: GOTO 200
875 IF X$ = "4" THEN GOSUB 39: GOTO 40
876 IF X$ = "5" THEN GOSUB 39: GOTO 40
877 REM ************* PROGRAMADOR ****************
879 GOSUB 39
880 COLOR 10, 8: LOCATE 10, 25: PRINT " Alex Sandro Sampaio Maia "
881 LOCATE 11, 25: PRINT "ͼ"
882 LOCATE 9, 25: PRINT "ͻ"
883 COLOR 15, 8: LOCATE 13, 25: PRINT "End:Av.2 de julho 304,Centro"
884 LOCATE 14, 25: PRINT "Senhor do Bonfim - Bahia"
885 LOCATE 15, 25: PRINT "Tel:841-1034"
886 COLOR 7, 8: LOCATE 22, 4: PRINT "Enter para continuar..."
890 IF INKEY$ <> CHR$(13) THEN 890
891 GOSUB 39: COLOR 14, 8: GOSUB 25: GOSUB 175: GOTO 200
895 REM ************** AGENDA TELEFNICA ************
896 COLOR 14, 8: GOSUB 39
897 X$ = INKEY$: IF X$ = "" THEN 897
898 IF X$ <> "1" AND X$ <> "2" AND X$ <> "3" AND X$ <> "4" THEN 897
899 IF X$ = "1" THEN GOSUB 55: GOTO 904
900 IF X$ = "2" THEN GOSUB 851: GOTO 859
901 IF X$ = "3" THEN GOSUB 175: GOTO 200
902 IF X$ = "4" THEN 900
903 IF X$ = "5" THEN 900
904 CLEAR : CLEAR 50, &HDFFF
905 DIM N$(1800), T$(1800), E$(1800)
908 X$ = INKEY$: IF X$ = "" THEN 908
909 IF X$ <> "A" AND X$ <> "a" AND X$ <> "B" AND X$ <> "b" AND X$ <> "C" AND X$
<> "c" AND X$ <> "D" AND X$ <> "d" AND X$ <> "E" AND X$ <> "e" AND X$ <> "F" AND
X$ <> "f" AND X$ <> "G" AND X$ <> "g" AND X$ <> "H" AND X$ <> "h" AND X$ <> "I"
AND X$ <> "i" AND X$ <> "J" AND X$ <> "j" AND X$ <> "V" AND X$ <> "v" AND X$ <>
"2" AND X$ <> "3" AND X$ <> "4" AND X$ <> "5" THEN 908
910 IF X$ = "A" OR X$ = "a" THEN 960
911 IF X$ = "B" OR X$ = "b" THEN 1165
912 IF X$ = "C" OR X$ = "c" THEN 987
913 IF X$ = "D" OR X$ = "d" THEN GOSUB 1066: GOTO 908
914 IF X$ = "E" OR X$ = "e" THEN 1094
915 IF X$ = "F" OR X$ = "f" THEN 1125
916 IF X$ = "G" OR X$ = "g" THEN 1135
917 IF X$ = "H" OR X$ = "h" THEN 1250
918 IF X$ = "I" OR X$ = "i" THEN GOSUB 39: GOTO 1290
919 IF X$ = "J" OR X$ = "j" THEN GOSUB 39: GOTO 1325
920 IF X$ = "V" OR X$ = "v" THEN CLEAR 1000: GOSUB 39: COLOR 14, 8: GOTO 40
925 IF X$ = "2" THEN GOSUB 930: GOSUB 940: GOSUB 55: GOTO 908
926 IF X$ = "3" THEN GOSUB 930: GOSUB 940: GOSUB 55: GOTO 908
927 IF X$ = "4" THEN GOSUB 930: GOSUB 940: GOSUB 55: GOTO 908
928 IF X$ = "5" THEN GOSUB 930: GOSUB 940: GOSUB 55: GOTO 908
930 BEEP: COLOR 14, 8: FOR Y = 1 TO 44: LOCATE 21, 35 + Y: PRINT "": NEXT Y
931 LOCATE 21, 35: PRINT "": LOCATE 22, 35: PRINT "": COLOR 13, 8: LOCATE 22,
40: PRINT " Saia Primeiro do Programa. "
932 COLOR 14, 8: FOR Y = 1 TO 44: LOCATE 21, 35 + Y: PRINT "": NEXT Y: RETURN
940 FOR T = 1 TO 29999: NEXT T: LOCATE 21, 35: PRINT " ": LOCATE 22, 35: PRINT "
": LOCATE 22, 40: PRINT " "
945 FOR Y = 1 TO 44: LOCATE 21, 35 + Y: PRINT " ": NEXT Y: LOCATE 21, 35: PRINT
" ": RETURN
950 REM ************ REGISTRAR **************
960 GOSUB 39: LET X = X + 1
965 COLOR 10, 8: LOCATE 5, 34: PRINT "REGISTRANDO": LOCATE 6, 34: PRINT
"-----------"
970 GOSUB 972: GOTO 980
972 LOCATE 7, 3: PRINT " Registro N "; X
973 LOCATE 9, 3: LINE INPUT "Nome: "; N$(X)
974 LOCATE 11, 3: LINE INPUT "Telefone: "; T$(X)
975 LOCATE 13, 3: LINE INPUT "Endereo: "; E$(X)
989 RETURN
980 LOCATE 22, 3: LINE INPUT " Continua Cadastrando ? (S)im ou (N)o:"; C$
982 IF C$ = "S" OR C$ = "s" THEN : GOTO 960 ELSE GOSUB 39: COLOR 14, 8: GOSUB
55: GOTO 908
985 REM ************ LISTAGEM **********
987 GOSUB 39: COLOR 10, 8: LOCATE 5, 34: PRINT " LISTAGEM ": LOCATE 6, 34: PRINT
" -------- "
988 LOCATE 7, 3: PRINT " 1->Listagem Completa": LOCATE 9, 3: PRINT " 2->Listagem
Completa Pausada": LOCATE 11, 3: PRINT " 3->Listagem Completa Individual"
990 X$ = INKEY$: IF X$ = "" THEN 990
992 IF X$ <> "1" AND X$ <> "2" AND X$ <> "3" THEN 990
994 IF X$ = "1" THEN 1005
995 IF X$ = "2" THEN 1021
997 IF X$ = "3" THEN 1035
1000 REM ********* LISTAGEM COMPLETA **********
1005 CLS : PRINT : PRINT
1007 FOR A = 1 TO X
1008 FOR T = 1 TO 500: NEXT T
1009 PRINT " Registro N"; A; : PRINT " Nome: "; N$(A)
1010 NEXT A
1011 PRINT
1013 COLOR 15, 8: LINE INPUT " Tecle Enter para Voltar "; C$
1015 CLS : COLOR 14, 8: GOSUB 25: GOSUB 55: GOTO 908
1020 REM ********* LISTAGEM COMPLETA PAUSADA **********
1021 CLS : PRINT : PRINT
1022 FOR A = 1 TO X
1023 FOR T = 1 TO 8500: NEXT T
1024 PRINT " Registro N"; A; : PRINT " Nome: "; N$(A)
1025 NEXT A
1026 PRINT
1027 COLOR 15, 8: LINE INPUT " Tecle Enter para Voltar "; C$
1028 CLS : COLOR 14, 8: GOSUB 25: GOSUB 55: GOTO 908
1030 REM ********* LISTAGEM COMPLETA INDIVIDUAL **********
1035 CLS : PRINT : PRINT : PRINT
1040 FOR A = 1 TO X
1045 FOR T = 1 TO 8500: NEXT T
1050 PRINT " Registro N"; A; : PRINT " Nome: "; N$(A)
1051 PRINT
1052 COLOR 15, 8: LINE INPUT " <C>ontinua,<V>oltar. "; C$
1053 IF C$ = "C" OR C$ = "c" THEN CLS : PRINT : PRINT : PRINT : GOTO 1054 ELSE
1028
1054 COLOR 10, 8
1055 NEXT A
1058 PRINT
1059 COLOR 15, 8: LINE INPUT " Tecle Enter para Voltar "; C$
1060 CLS : COLOR 14, 8: GOSUB 25: GOSUB 55: GOTO 908
1065 REM ******** SALVAR BANCO DE DADOS **************
1066 COLOR 12, 8: LOCATE 22, 4: LINE INPUT "Digite o Nome do arquivo com a exteno
(.AGE):"; L$
1067 LOCATE 22, 4: PRINT " "
1070 OPEN L$ FOR OUTPUT AS #1
1075 FOR D = 1 TO X
1080 PRINT #1, N$(D)
1085 PRINT #1, T$(D)
1087 PRINT #1, E$(D)
1088 NEXT D
1089 CLOSE #1
1090 BEEP: RETURN
1092 REM ********** CARREGAR BANCO DE DADOS ***********
1094 COLOR 12, 8: LOCATE 22, 4: LINE INPUT "Digite o nome do arquivo junto com a
exteno (.AGE):"; L$
1095 LOCATE 22, 4: PRINT " ": OPEN L$ FOR INPUT AS #1
1097 LET D = D + 1
1099 INPUT #1, N$(D)
1100 INPUT #1, T$(D)
1105 INPUT #1, E$(D)
1110 IF NOT EOF(1) THEN 1097
1115 CLOSE #1
1117 LET X = D: BEEP: GOTO 905
1120 REM ******** EXCLUIR TUDO **************
1125 CLEAR : LET N$(A) = "": LET T$(A) = "": LET E$(A) = "": CLEAR 50, &HDFFF
1130 BEEP: GOTO 908
1135 REM ******** LIMPAR BANCO DE DADOS ********
1136 GOSUB 1137: GOTO 1145
1137 BEEP: COLOR 14, 8: FOR Y = 1 TO 44: LOCATE 21, 35 + Y: PRINT "": NEXT Y
1139 LOCATE 21, 35: PRINT "": LOCATE 22, 35: PRINT "": COLOR 13, 8: LOCATE 22,
40: PRINT "Cuidado;Vo tem Certeza? (S,N)"
1140 COLOR 14, 8: FOR Y = 1 TO 44: LOCATE 21, 35 + Y: PRINT "": NEXT Y: RETURN
1142 LOCATE 21, 35: PRINT " ": LOCATE 22, 35: PRINT " ": LOCATE 22, 40: PRINT "
"
1143 FOR Y = 1 TO 44: LOCATE 21, 35 + Y: PRINT " ": NEXT Y: LOCATE 21, 35: PRINT
" ": RETURN
1145 X$ = INKEY$: IF X$ = "" THEN 1145
1150 IF X$ <> "S" AND X$ <> "s" AND X$ <> "N" AND X$ <> "n" THEN 1145
1152 IF X$ = "S" OR X$ = "s" THEN 1157
1155 IF X$ = "N" OR X$ = "n" THEN GOSUB 1142: GOTO 908
1157 ON ERROR GOTO 1158: KILL "*.AGE":
1158 CLEAR : LET N$ = "": LET T$ = "": LET E$ = ""
1159 GOSUB 100: GOSUB 1142: BEEP: GOTO 908
1160 REM ******** CONSULTA **************
1165 GOSUB 39
1170 COLOR 10, 8: LOCATE 5, 34: PRINT "CONSULTANDO": LOCATE 6, 34: PRINT
"-----------"
1175 COLOR 13, 8: LOCATE 22, 4: LINE INPUT "Digite o Nome: "; M$
1180 FOR A = 1 TO X
1182 IF M$ = N$(A) THEN 1197 ELSE 1185
1185 NEXT A
1190 BEEP: COLOR 15, 8: LOCATE 22, 4: PRINT " No Consta ! ": FOR T = 1 TO
19999: NEXT T: GOSUB 39: COLOR 14, 8: GOSUB 55: GOTO 908
1197 COLOR 15, 8: LOCATE 7, 3: PRINT "Registro N "; A
1199 LOCATE 9, 3: PRINT "Nome: "; N$(A)
1200 LOCATE 11, 3: PRINT "Telefone: "; T$(A)
1204 LOCATE 13, 3: PRINT "Endereo: "; E$(A)
1208 COLOR 14, 8: LOCATE 16, 3: PRINT "1->Alterar Registro.": LOCATE 17, 3:
PRINT "2->Excluir Registro": LOCATE 18, 3: PRINT "3->Retorno": LOCATE 19, 3:
PRINT "4->Imprime Este Registro"
1210 LOCATE 22, 4: PRINT " ": COLOR 13, 8: LOCATE 22, 4: INPUT "Digite sua opo:
"; OP
1215 ON OP GOTO 1240, 1230, 1222, 1290
1220 IF OP <> 1 AND OP <> 2 AND OP <> 3 AND OP <> 4 THEN 1165
1222 CLS : COLOR 14, 8: GOSUB 25: COLOR 14, 8: GOSUB 55: GOTO 908
1225 REM ********** EXCLUSO PASSO A PASSO DO CONSULTANDO *********
1230 LET M$ = N$(A)
1233 LET N$(A) = "": LET T$(A) = "": LET E$(A) = ""
1235 COLOR 13, 8: LOCATE 22, 4: PRINT "Registro Eliminado": FOR Y = 1 TO 9000:
NEXT Y: GOTO 1165
1239 REM ******** ALTERAO DO REGISTRO DO CONSULTANDO ***********
1240 LET M$ = N$(A)
1241 COLOR 13, 8: LOCATE 5, 34: PRINT " ALTERANDO ": LOCATE 6, 34: PRINT "
-------"
1242 LOCATE 9, 3: PRINT " ": COLOR 12, 8: LOCATE 9, 3: LINE INPUT "Novo Nome: ";
N$(A)
1243 LOCATE 11, 3: PRINT " ": LOCATE 11, 3: LINE INPUT "Novo Telefone: "; T$(A)
1245 LOCATE 13, 3: PRINT " ": LOCATE 13, 3: LINE INPUT "Novo Endereo: "; E$(A)
1247 GOTO 1165
1249 REM ******* IMPRIMIR ESTE REGISTRO **********
1250 COLOR 15, 8: LOCATE 22, 4: PRINT " Aguarde at terminar a impresso. "
1255 LPRINT : LPRINT
1260 LPRINT CHR$(27); "G"; CHR$(27); "-"; CHR$(1); CHR$(14); " AGENDA TELEFNICA";
CHR$(20)
1265 LPRINT : LPRINT
1267 FOR A = 1 TO X
1269 LPRINT CHR$(27); "H";
1270 LPRINT CHR$(27); "-"; CHR$(0); CHR$(27); "@"; ""; N$(A); SPC(35 - (LEN(N$(A))));
""; T$(A); SPC(2); ""; E$(A)
1280 NEXT A
1283 LOCATE 22, 4: PRINT " "
1284 COLOR 14, 8: GOTO 908
1288 REM ****** IMPRIMIR UM POR UM *******
1290 COLOR 12, 8: LOCATE 22, 4: INPUT "Que Nome vo deseja Imprimir "; M$
1295 FOR A = 1 TO X
1297 IF M$ = N$(A) THEN GOTO 1309: ELSE 1300
1300 NEXT A
1303 COLOR 15, 8: LOCATE 22, 4: PRINT " No Consta ! "
1305 FOR T = 1 TO 40000: NEXT T: COLOR 14, 8: GOSUB 39: GOSUB 55: GOTO 908
1309 LPRINT : LPRINT CHR$(27); "-"; CHR$(0); "REGISTRO N"; A
1311 LPRINT CHR$(15); "Nome:"; N$(A)
1313 LPRINT CHR$(15); "Telefone:"; T$(A)
1315 LPRINT CHR$(15); "Endereo:"; E$(A)
1317 LPRINT : COLOR 14, 8: LOCATE 22, 4: PRINT " ": GOTO 1197
1320 REM ****** LISTAR ARQUIVOS DE AGENDA *************
1325 CLS : COLOR 14, 8: FILES "*.AGE"
1327 LINE INPUT "Tecle Enter para voltar"; R$
1330 CLS : COLOR 14, 8: GOSUB 25: GOSUB 55: GOTO 908
1335 REM ***** DIRETORIOS DO DOS ***********
1337 CLS : COLOR 14, 8: FILES "*"
1338 LINE INPUT "Tecle Enter para voltar"; R$
1339 CLS : COLOR 14, 8: GOSUB 25: GOSUB 175: GOTO 200
1340 REM ***** AJUDA *********
1345 GOSUB 39: COLOR 15, 8
1347 LOCATE 5, 4: PRINT " OPTION2 "
1349 LOCATE 6, 4: PRINT " ------- "
1350 LOCATE 7, 4: PRINT " Programa Multitarefas com a finalizade de registrar
dados,geren- "
1351 LOCATE 8, 4: PRINT " ciar os arquivos de seus aplicativos e manipular os
Sub-diretrios do "
1353 LOCATE 9, 4: PRINT " DOS. "
1355 LOCATE 10, 4: PRINT " Algumas observaes so importantes a serem
observadas. "
1357 LOCATE 11, 4: PRINT " 1)Ao registrar,nunca digite (,) Vrgula;pois isto
causar o Break ou "
1359 LOCATE 12, 4: PRINT " STOP. "
1361 LOCATE 13, 4: PRINT " 2)Se ocorrer um Break ou STOP no aplicativo; Tecle
SHIFT + F5 "
1363 LOCATE 14, 4: PRINT " 3)Para sair do Programa, Tecle Ctrl + Shift + Break,depois
Alt + A "
1365 LOCATE 15, 4: PRINT " depois Alt + R "
1367 LOCATE 16, 4: PRINT " 4)Para Entrar novamente, vo deve Digitar OPTION2 "
1369 LOCATE 17, 4: PRINT " 5)Se no houver no DOS o arquivo de BATH (OPTION2.BAT),que
ir condu-"
1371 LOCATE 18, 4: PRINT " zir a este programa de multitarefas, ento vo deve
criar um ar - "
1373 LOCATE 19, 4: PRINT " quivo de BATH no EDIT. "
1375 LOCATE 20, 4: PRINT " "
1377 LOCATE 21, 4: PRINT " Enter para continuar... "
1380 LOCATE 21, 47: LINE INPUT ""; K$
1382 LOCATE 5, 4: PRINT " O Arquivo de BATH ser assim: "
1384 LOCATE 6, 4: PRINT " "
1386 LOCATE 7, 4: PRINT " @echo off "
1388 LOCATE 8, 4: PRINT " CD\DOS "
1390 LOCATE 9, 4: PRINT " QBASIC /H /MBF /B /RUN C:\DOS\OPTION2.BAS "
1392 LOCATE 10, 4: PRINT " CD\ "
1394 LOCATE 11, 4: PRINT " "
1396 LOCATE 12, 4: PRINT " Depois vo salva este arquivo de Bach com o nome:
OPTION2.BAT "
1398 LOCATE 13, 4: PRINT " "
1400 LOCATE 14, 4: PRINT " 6)Para vo navegar com as janelas do menu
iniciar,basta vo digi- "
1402 LOCATE 15, 4: PRINT " o nmero referente opo desejada. "
1404 LOCATE 16, 4: PRINT " 7)Se logo de incio vo tentar entrar em alguma das
opes do ar- "
1406 LOCATE 17, 4: PRINT " quivo,vo no conseguir . Isto porque vo ainda no
fez a esco- "
1408 LOCATE 18, 4: PRINT " lha do aplicativo que deseja trabalhar, na opo (2)
Programas. "
1410 LOCATE 19, 4: PRINT " "
1412 LOCATE 20, 4: PRINT " "
1414 LOCATE 21, 4: PRINT " Enter para continuar... "
1416 LOCATE 21, 47: LINE INPUT ""; K$
1420 LOCATE 5, 4: PRINT " 8)Se vo entrar na opo Agenda Telefnica e Teclar
2,3,4 ou 5; "
1422 LOCATE 6, 4: PRINT " sair a mensagem: (Saia Primeiro do Programa);neste
caso Basta vo"
1424 LOCATE 7, 4: PRINT " digitar (V). "
1426 LOCATE 8, 4: PRINT " 9)Ao entrar em Proteo de tela,para retornar,basta
deixar o dedo na "
1428 LOCATE 9, 4: PRINT " tecla (V). "
1430 LOCATE 10, 4: PRINT " 10)Quando vo criar um nome para Salvar,procure no
empregar nomes"
1432 LOCATE 11, 4: PRINT " muito extenos e procure no carregar muito este
arquivo;pois pro-"
1434 LOCATE 12, 4: PRINT " vocar erro no arquivo,e vo perder tudo o que foi
gravado neste"
1436 LOCATE 13, 4: PRINT " arquivo; para isto sempre bom gravar seus trabalhos
em arquivos "
1438 LOCATE 14, 4: PRINT " diferentes;todavia;com a mesma exteno. Tambm,
aconselhavel "
1440 LOCATE 15, 4: PRINT " fazer Backup de seus trabalhos,digitando o nome do
arquivo com "
1442 LOCATE 16, 4: PRINT " qualquer outra exteno. "
1444 LOCATE 17, 4: PRINT " Veja agora a quantidade de registros que suporta cada
arquivo "
1446 LOCATE 18, 4: PRINT " dos aplicativos deste programa. "
1448 LOCATE 19, 4: PRINT " "
1450 LOCATE 20, 4: PRINT " "
1452 LOCATE 21, 4: PRINT " Enter para continuar... "
1454 LOCATE 21, 47: LINE INPUT ""; K$
1456 LOCATE 5, 4: PRINT " Agenda Telefnica: Suporta 35 registros em cada
arquivo. "
1458 LOCATE 6, 4: PRINT " Etiqueta: Suporta 08 registros em cada arquivo. "
1460 LOCATE 7, 4: PRINT " Duplicata Ipanema: Suporta 07 registros em cada
arquivo. "
1462 LOCATE 8, 4: PRINT " Duplicata Lomanto: Suporta 07 registros em cada
arquivo. "
1464 LOCATE 9, 4: PRINT " DAE Ipanema: Suporta 31 registros em cada arquivo. "
1466 LOCATE 10, 4: PRINT " DAE Lomanto: Suporta 31 registros em cada arquivo. "
1468 LOCATE 11, 4: PRINT " Folha de Pgt Ipan:Suporta 17 registros em cada
arquivo. "
1470 LOCATE 12, 4: PRINT " Folha de Pgt Lmto:Suporta 17 registros em cada
arquivo. "
1472 LOCATE 13, 4: PRINT " "
1474 LOCATE 14, 4: PRINT " "
1475 LOCATE 15, 4: PRINT " "
1477 LOCATE 16, 4: PRINT " "
1479 LOCATE 17, 4: PRINT " "
1480 LOCATE 18, 4: PRINT " "
1482 LOCATE 19, 4: PRINT " "
1485 LOCATE 20, 4: PRINT " "
1487 LOCATE 21, 4: PRINT " Enter para continuar... "
1490 LOCATE 21, 47: LINE INPUT ""; K$
1492 GOSUB 39: GOTO 40
1495 REM ************** outros ****************
1500 COLOR 14, 8: FOR E = 1 TO 33
1505 LOCATE 18, 1 + E: PRINT ""
1508 NEXT E
1510 COLOR 15, 8: LOCATE 5, 4: PRINT "A> Imprimindo Ajuda": LOCATE 6, 4: PRINT
"B> .................. ": LOCATE 7, 4: PRINT "C> ................": LOCATE 8, 4:
PRINT "D> .....................": LOCATE 9, 4: PRINT "E>
......................."
1512 LOCATE 10, 4: PRINT "F> ............": LOCATE 11, 4: PRINT "G>
.....................": LOCATE 12, 4: PRINT "H> ..................": LOCATE 13,
4: PRINT "I> ..................": LOCATE 14, 4: PRINT "J> ..............":
LOCATE 15, 4: PRINT "L>...............": LOCATE 16, 4: PRINT "3> BASIC"
1514 X$ = INKEY$: IF X$ = "" THEN 1514
1516 IF X$ <> "A" AND X$ <> "a" AND X$ <> "B" AND X$ <> "b" AND X$ <> "C" AND X$
<> "c" AND X$ <> "D" AND X$ <> "d" AND X$ <> "E" AND X$ <> "e" AND X$ <> "F" AND
X$ <> "f" AND X$ <> "G" AND X$ <> "g" AND X$ <> "H" AND X$ <> "h" AND X$ <> "I"
AND X$ <> "i" AND X$ <> "J" AND X$ <> "j" AND X$ <> "1" AND X$ <> "2" AND X$ <>
"3" AND X$ <> "4" AND X$ <> "5" THEN 1514
1518 IF X$ = "A" OR X$ = "a" THEN 1555
1520 IF X$ = "B" OR X$ = "b" THEN 1514
1522 IF X$ = "C" OR X$ = "c" THEN 1514
1524 IF X$ = "D" OR X$ = "d" THEN 1514
1526 IF X$ = "E" OR X$ = "e" THEN 1514
1528 IF X$ = "F" OR X$ = "f" THEN 1514
1530 IF X$ = "G" OR X$ = "g" THEN 1514
1532 IF X$ = "H" OR X$ = "h" THEN 1514
1534 IF X$ = "I" OR X$ = "i" THEN 1514
1536 IF X$ = "J" OR X$ = "j" THEN 1514
1538 IF X$ = "1" THEN GOSUB 39: COLOR 14, 8: GOSUB 55: GOTO 65
1540 IF X$ = "2" THEN GOSUB 39: GOSUB 851: GOTO 859
1542 IF X$ = "3" THEN GOSUB 39: GOSUB 175: GOTO 200
1544 IF X$ = "4" THEN GOSUB 39: GOTO 40
1546 IF X$ = "5" THEN GOSUB 39: GOTO 40
1550 REM ********* IMPRIMINDO AJUDA ***************
1555 REM
1556 LPRINT CHR$(27); "F";
1560 LOCATE 5, 4: LPRINT : LPRINT CHR$(15); " OPTION2 "
1562 LOCATE 6, 4: LPRINT " ------- "
1564 LOCATE 7, 4: LPRINT " Programa Multitarefas com a finalizade de registrar
dados,geren- "
1566 LOCATE 8, 4: LPRINT " ciar os arquivos de seus aplicativos e manipular os
Sub-diretrios do "
1568 LOCATE 9, 4: LPRINT " DOS. "
1569 LOCATE 10, 4: LPRINT " Algumas observaes so importantes a serem
observadas. "
1570 LOCATE 11, 4: LPRINT " 1)Ao registrar,nunca digite (,) Vrgula;pois isto
causar o Break ou "
1572 LOCATE 12, 4: LPRINT " STOP. "
1574 LOCATE 13, 4: LPRINT " 2)Se ocorrer um Break ou STOP no aplicativo; Tecle
SHIFT + F5 "
1576 LOCATE 14, 4: LPRINT " 3)Para sair do Programa, Tecle Ctrl + Shift + Break,depois
Alt + A "
1578 LOCATE 15, 4: LPRINT " depois Alt + R "
1579 LOCATE 16, 4: LPRINT " 4)Para Entrar novamente, vo deve Digitar OPTION2
"
1580 LOCATE 17, 4: LPRINT " 5)Se no houver no DOS o arquivo de BATH (OPTION2.BAT),que
ir condu-"
1581 LOCATE 18, 4: LPRINT " zir a este programa de multitarefas, ento vo deve
criar um ar - "
1582 LOCATE 19, 4: LPRINT " quivo de BATH no EDIT. "
1584 LOCATE 20, 4: LPRINT " "
1589 LOCATE 5, 4: LPRINT " O Arquivo de BATH ser assim: "
1590 LOCATE 6, 4: LPRINT " "
1592 LOCATE 7, 4: LPRINT " @echo off "
1594 LOCATE 8, 4: LPRINT " CD\DOS "
1596 LOCATE 9, 4: LPRINT " QBASIC /H /MBF /B /RUN C:\DOS\OPTION2.BAS "
1598 LOCATE 10, 4: LPRINT " CD\ "
1599 LOCATE 11, 4: LPRINT " "
1600 LOCATE 12, 4: LPRINT " Depois vo salva este arquivo de Bach com o nome:
OPTION2.BAT "
1602 LOCATE 13, 4: LPRINT " "
1604 LOCATE 14, 4: LPRINT " 6)Para vo navegar com as janelas do menu
iniciar,basta vo digi- "
1605 LOCATE 15, 4: LPRINT " o nmero referente opo desejada. "
1607 LOCATE 16, 4: LPRINT " 7)Se logo de incio vo tentar entrar em alguma
das opes do ar- "
1609 LOCATE 17, 4: LPRINT " quivo,vo no conseguir . Isto porque vo ainda
no fez a esco- "
1611 LOCATE 18, 4: LPRINT " lha do aplicativo que deseja trabalhar, na opo (2)
Programas. "
1620 LOCATE 5, 4: LPRINT " 8)Se vo entrar na opo Agenda Telefnica e Teclar
2,3,4 ou 5; "
1622 LOCATE 6, 4: LPRINT " sair a mensagem: (Saia Primeiro do Programa);neste
caso Basta vo"
1624 LOCATE 7, 4: LPRINT " digitar (V). "
1625 LOCATE 8, 4: LPRINT " 9)Ao entrar em Proteo de tela,para retornar,basta
deixar o dedo na "
1627 LOCATE 9, 4: LPRINT " tecla (V). "
1629 LOCATE 10, 4: LPRINT " 10)Quando vo criar um nome para Salvar,procure
no empregar nomes"
1630 LOCATE 11, 4: LPRINT " muito extenos e procure no carregar muito este
arquivo;pois pro-"
1631 LOCATE 12, 4: LPRINT " vocar erro no arquivo,e vo perder tudo o que foi
gravado neste"
1633 LOCATE 13, 4: LPRINT " arquivo; para isto sempre bom gravar seus
trabalhos em arquivos "
1635 LOCATE 14, 4: LPRINT " diferentes;todavia;com a mesma exteno. Tambm,
aconselhavel "
1640 LOCATE 15, 4: LPRINT " fazer Backup de seus trabalhos,digitando o nome do
arquivo com "
1642 LOCATE 16, 4: LPRINT " qualquer outra exteno. "
1644 LOCATE 17, 4: LPRINT " Veja agora a quantidade de registros que suporta
cada arquivo "
1645 LOCATE 18, 4: LPRINT " dos aplicativos deste programa. "
1646 LOCATE 19, 4: LPRINT " "
1652 LOCATE 5, 4: LPRINT " Agenda Telefnica: Suporta 138 registros em cada
arquivo. "
1653 LOCATE 6, 4: LPRINT " Etiqueta: Suporta 08 registros em cada arquivo. "
1654 LOCATE 7, 4: LPRINT " Cadastro: Suporta 00 registros em cada arquivo. "
1656 LOCATE 8, 4: LPRINT " "
1657 LOCATE 9, 4: LPRINT " "
1659 LOCATE 10, 4: LPRINT " "
1660 LOCATE 11, 4: LPRINT " "
1662 LOCATE 12, 4: LPRINT " "
1664 LOCATE 13, 4: LPRINT " "
1666 LOCATE 14, 4: LPRINT " "
1668 LOCATE 15, 4: LPRINT " "
1670 LOCATE 16, 4: LPRINT " "
1672 LOCATE 17, 4: LPRINT " "
1674 LOCATE 18, 4: LPRINT " "
1675 LOCATE 19, 4: LPRINT " "
1677 LOCATE 20, 4: LPRINT " "
1682 GOSUB 39: GOTO 40
1700 REM ********** FIM ***************
1705 GOSUB 39
1710 COLOR 10, 8: LOCATE 5, 11: PRINT "Para Desligar; faa o seguinte:"
1711 LOCATE 7, 11: PRINT " 1>Tecle Ctrl + Shift + Break"
1712 LOCATE 9, 11: PRINT " 2>Alt + A"
1713 LOCATE 11, 11: PRINT " 3>Alt + R"
1714 LOCATE 15, 11: PRINT " <Enter> Para Voltar..."
1755 LOCATE 15, 45: LINE INPUT ""; L$
1760 GOSUB 39: GOTO 40
1765 REM *********** PROGRAMAS 2 ************
1766 GOSUB 39
1770 COLOR 14, 8: FOR Y = 1 TO 14: LOCATE 3 + Y, 16: PRINT "": NEXT Y
1775 FOR Y = 1 TO 14: LOCATE 3 + Y, 50: PRINT "": NEXT Y
1780 FOR Y = 1 TO 35: LOCATE 18, 15 + Y: PRINT "": NEXT Y
1785 COLOR 15, 8: LOCATE 5, 19: PRINT "A> SAL2LMTO": LOCATE 6, 19: PRINT "B>
SAL2IPAN": LOCATE 7, 19: PRINT "C> CLIENTES": LOCATE 8, 19: PRINT "D> SAL3IPAN":
LOCATE 9, 19: PRINT "E> SAL4LMTO"
1790 LOCATE 10, 19: PRINT "F> SAL4IPAN": LOCATE 11, 19: PRINT "G>
?????????????????????": LOCATE 12, 19: PRINT "H> ?????????????????????": LOCATE
13, 19: PRINT "I> ??????? ": LOCATE 14, 19: PRINT "L> ???? ": LOCATE 15, 19:
PRINT "M> ??????": LOCATE 16, 19: PRINT "V> Voltar"
1795 RETURN
1800 X$ = INKEY$: IF X$ = "" THEN 1800
1805 IF X$ <> "A" AND X$ <> "a" AND X$ <> "B" AND X$ <> "b" AND X$ <> "C" AND X$
<> "c" AND X$ <> "D" AND X$ <> "d" AND X$ <> "E" AND X$ <> "e" AND X$ <> "F" AND
X$ <> "f" AND X$ <> "G" AND X$ <> "g" AND X$ <> "H" AND X$ <> "h" AND X$ <> "I"
AND X$ <> "i" AND X$ <> "L" AND X$ <> "l" AND X$ <> "M" AND X$ <> "m" AND X$ <>
"V" AND X$ <> "v" AND X$ <> "1" AND X$ <> "3" AND X$ <> "4" AND X$ <> "5" THEN
1800
1810 IF X$ = "A" OR X$ = "a" THEN RUN "SAL2LMTO.BAS"
1815 IF X$ = "B" OR X$ = "b" THEN RUN "SAL2IPAN.BAS"
1820 IF X$ = "C" OR X$ = "c" THEN RUN "CLIENTES.BAS"
1825 IF X$ = "D" OR X$ = "d" THEN RUN "SAL3IPAN.BAS"
1830 IF X$ = "E" OR X$ = "e" THEN RUN "SAL4LMTO.BAS"
1835 IF X$ = "F" OR X$ = "f" THEN RUN "SAL4IPAN.BAS"
1840 IF X$ = "G" OR X$ = "g" THEN 1800
1845 IF X$ = "H" OR X$ = "h" THEN 1800
1850 IF X$ = "I" OR X$ = "i" THEN 1800
1855 IF X$ = "L" OR X$ = "l" THEN 1800
1860 IF X$ = "M" OR X$ = "m" THEN 1800
1865 IF X$ = "V" OR X$ = "v" THEN COLOR 14, 8: GOSUB 39: GOTO 40
1870 IF X$ = "1" THEN COLOR 14, 8: GOSUB 39: GOSUB 55: GOTO 65
1875 IF X$ = "3" THEN COLOR 14, 8: GOSUB 39: GOSUB 175: GOTO 200
1880 IF X$ = "4" THEN GOSUB 39: GOTO 40
1885 IF X$ = "5" THEN GOSUB 39: GOTO 40
Nome do Arquivo: OPTION.BAS
5 CLS : SCREEN
7: GOSUB 3950: COLOR 5, 14: GOSUB 1390
10 CLS : SCREEN 7: COLOR 5, 14
20 LOCATE 2, 14: PRINT "PROGRAMAS": LOCATE 3, 14: PRINT "---------"
30 COLOR 3, 14: LOCATE 5, 3: PRINT "Escolha a opo desejada:"
40 COLOR 12, 14: LOCATE 7, 5: PRINT "1-> Desenhar": LOCATE 9, 5: PRINT "2->
Gotas": LOCATE 11, 5: PRINT "3-> Raios": LOCATE 13, 5: PRINT "4-> Colores":
LOCATE 15, 5: PRINT "5-> Calescpio": LOCATE 17, 5: PRINT "6-> Tapete": LOCATE
19, 5: PRINT "7-> Acerte"
50 LOCATE 21, 5: PRINT "8-> Calcule": LOCATE 23, 5: PRINT "9-> Circle , 0->
Outros"
60 X$ = INKEY$: IF X$ = "" THEN 60
70 IF X$ <> "1" AND X$ <> "2" AND X$ <> "3" AND X$ <> "4" AND X$ <> "5" AND X$
<> "6" AND X$ <> "7" AND X$ <> "8" AND X$ <> "9" AND X$ <> "0" AND X$ <> "A"
THEN 60
80 IF X$ = "1" THEN CLS : GOTO 170
90 IF X$ = "2" THEN CLS : GOTO 300
100 IF X$ = "3" THEN CLS : GOTO 370
110 IF X$ = "4" THEN CLS : GOTO 470
120 IF X$ = "5" THEN CLS : GOTO 540
130 IF X$ = "6" THEN CLS : GOTO 600
140 IF X$ = "7" THEN CLS : GOTO 700
150 IF X$ = "8" THEN CLS : GOTO 760
155 IF X$ = "9" THEN CLS : GOTO 970
156 IF X$ = "0" THEN CLS : GOTO 1510
157 IF X$ = "A" THEN POKE &HFBB1, 0: STOP
160 REM ************* DESENHAR *******************
170 COLOR 15, 4: SCREEN 8
175 COLOR 14, 4: LOCATE 5, 18: PRINT "PROGRAMADOR: Alex Sandro Sampaio Maia"
180 COLOR 3, 4: LOCATE 13, 13: PRINT " DIGITE <I> POR FAVOR !"
181 LOCATE 15, 16: PRINT "Se no der certo carregue novamente o Prog.QBASIC"
185 COLOR 15, 4
190 X$ = INKEY$: IF X$ = " " THEN 190
195 IF X$ <> "I" THEN GOTO 190
200 IF X$ = "I" THEN CLS : GOTO 265
205 LET X = 280: LET Y = 100
210 LET X1 = X: LET Y1 = Y
215 A$ = INKEY$
220 IF A$ = "Q" THEN Y = Y1 - 4
225 IF A$ = "A" THEN Y = Y1 + 4
230 IF A$ = "O" THEN X = X1 - 4
235 IF A$ = "P" THEN X = X1 + 4
240 IF A$ = "1" THEN COLOR 4, 4
245 IF A$ = "2" THEN COLOR 15, 4
250 IF A$ = "3" THEN CLS
251 IF A$ = "V" THEN CLS : GOTO 10
255 LINE (X, Y)-(X1, Y1)
260 GOTO 210
265 LOCATE 3, 5: PRINT " COMO DESENHAR?"
270 LOCATE 22, 12: PRINT " Digite <Enter> Para Continuar."
275 LOCATE 6, 12: PRINT " <3> Apaga Tudo <V> Voltar"
280 LOCATE 8, 12: PRINT " <P> Direita,<O> Esquerda,<Q> Cima"
285 LOCATE 10, 12: PRINT " <A> Baixo , <1> Apaga , <2> Acende"
290 IF INKEY$ <> CHR$(13) THEN 290
295 CLS : GOTO 205
299 REM ************* GOTAS ***************
300 CLS : SCREEN 7
304 COLOR 15: LOCATE 23, 13: PRINT "<V>Para Voltar"
305 IF INKEY$ = "V" THEN 10
306 K = RND(1) * 15
310 Z = RND(1) * 15
315 COLOR K, Z
320 FOR F = 1 TO 520
325 X = RND(1) * 320
330 Y = RND(1) * 220
335 C = RND(1) * 14 + 2
340 R = RND(1) * 30
345 CIRCLE (X, Y), C, R
350 PAINT (X, Y), C, R
355 NEXT F
360 IF INKEY$ = "V" THEN GOTO 10
365 GOTO 300
366 REM *********** RAIOS *************
370 SCREEN 7
374 CLS
375 COLOR 15: LOCATE 23, 13: PRINT "<V>Para Voltar": IF INKEY$ = "V" THEN GOTO
10
376 A = RND(1) * 15
377 G = RND(1) * 14
378 COLOR A, 0
395 R = RND(-TIME)
400 FOR N = 1 TO 140
405 LINE (157, 95)-(296 - RND(1) * 266, 96 - RND(1) * 96)
406 IF INKEY$ = "V" THEN GOTO 10
410 NEXT N
415 COLOR G
420 FOR N = 95 TO 191 STEP 12
425 LINE (157, 95)-(0, N)
430 LINE (157, 95)-(295, N)
431 IF INKEY$ = "V" THEN GOTO 10
435 NEXT N
440 FOR N = 0 TO 255 STEP 100
445 LINE (157, 95)-(N, 191)
446 IF INKEY$ = "V" THEN GOTO 10
450 NEXT N
455 FOR D = 1 TO 100: NEXT D
460 GOTO 374
465 REM ************* COLORES ***************
470 CLS : SCREEN 8
471 COLOR 15: LOCATE 23, 30: PRINT "<V>Para Voltar"
475 U = RND(1) * 15
480 I = RND(1) * 15
485 COLOR U, I
490 FOR W = 1 TO 20
495 FOR F = 1 TO 15
500 F = RND(1) * 15
505 X = RND(1) * 680: Y = RND(2) + 90
510 B = RND(1) * 400
515 CIRCLE (X, Y), B, F: CIRCLE (X, Y), B, F
516 IF INKEY$ = "V" THEN GOTO 10
520 NEXT F
525 NEXT W
530 IF INKEY$ = "V" THEN GOTO 10
535 GOTO 470
539 REM **************** CALESCOPIO *****************
540 R = RND(-TIME)
545 CLS : SCREEN 7: COLOR , 0
550 FOR L = 0 TO 255 STEP 2
555 COLOR RND(1) * 15
560 LINE (0, 0)-(L, 191)
565 LINE (350, 0)-(312 - L, 191)
570 LINE (0, 191)-(L, 0)
575 LINE (350, 191)-(312 - L, 0)
580 NEXT L
581 IF INKEY$ = "V" THEN GOTO 10
582 COLOR 15: LOCATE 23, 13: PRINT "<V>Para Voltar."
585 GOTO 550
590 REM ************* TAPETE **************
600 SCREEN 7
605 COLOR 15: LOCATE 23, 13: PRINT "<V>Para Voltar"
610 IF INKEY$ = "V" THEN GOTO 10
615 E = RND(1) * 15
620 F = RND(2) * 14
625 COLOR E, F
630 C = 2 + 14 * RND(-TIME)
635 C1 = 256 * RND(-TIME)
640 L1 = 192 * RND(-TIME)
645 C2 = 256 * RND(-TIME)
650 L2 = 192 * RND(-TIME)
655 FOR F = 0 TO 300 STEP 4
660 CIRCLE (C1, L1), F, C
670 CIRCLE (C2, L2), F, C
675 NEXT F
680 FOR F = 1 TO 500
685 NEXT F
690 GOTO 600
699 REM ************** ACERTE ****************
700 SCREEN 7: COLOR 1, 14: CLS
705 LET X = INT(RND(1) * 6)
710 LOCATE 2, 2: PRINT " O Computador escolheu um nmero entre 0 e 5. Tente
acertar."
715 LOCATE 10, 2: INPUT G
720 CLS
725 IF G = X THEN COLOR 5, 14: PRINT " Muito bem!"
730 IF G = X THEN GOTO 740
735 IF G <> X THEN COLOR 6, 14: LOCATE 2, 2: PRINT " Que azar - Vo errou!"
736 LOCATE 10, 3: PRINT " "
740 COLOR 1, 14: LOCATE 3, 2: PRINT "Vo quer tentar outra vez? Se quiser
,digite S e pressione RETURN"
741 LOCATE 20, 10: PRINT "<V> Voltar."
745 LOCATE 10, 2: INPUT A$
746 LOCATE 10, 3: PRINT " "
750 IF A$ = "S" OR A$ = "s" THEN GOTO 700
751 IF A$ = "V" OR A$ = "v" THEN GOTO 10
755 GOTO 745
759 REM ************** CALCULE **************
760 SCREEN 7: COLOR 10, 7: LOCATE 10, 8: PRINT "ALEX SANDRO SAMPAIO MAIA"
765 FOR S = 1 TO 20000: NEXT S
770 CLS : COLOR 10, 5: LOCATE 4, 14: PRINT "VAMOS CALCULAR?"
775 FOR A = 1 TO 20000: NEXT A
780 BEEP: CLS : LOCATE 7, 5: PRINT "DIGITE O SINAL PARA O CLCULO"
785 X$ = INKEY$: IF X$ = "" THEN 785
790 IF X$ <> "/" AND X$ <> "*" AND X$ <> "-" AND X$ <> "+" THEN 785
795 IF X$ = "/" THEN 845
800 IF X$ = "*" THEN 870
805 IF X$ = "-" THEN 895
810 IF X$ = "+" THEN 925
815 BEEP: CLS : LOCATE 7, 5: PRINT "Digite o Primeiro Nmero e <ENTER>"
820 LOCATE 21, 4: INPUT ""; A
825 RETURN
830 BEEP: CLS : LOCATE 7, 5: PRINT "DIGITE O SEGUNDO NMERO E <ENTER>"
835 LOCATE 21, 4: INPUT ""; C
840 RETURN
845 LOCATE 21, 5: PRINT "/": FOR A = 1 TO 9000: NEXT A
850 GOSUB 815: GOSUB 830
855 F = A / C
860 CLS : LOCATE 15, 5: PRINT "RESULTADO:": LOCATE 15, 15: PRINT ""; F
865 GOTO 945
870 LOCATE 21, 5: PRINT "*": FOR A = 1 TO 9000: NEXT A
875 GOSUB 815: GOSUB 830
880 T = A * C
885 CLS : LOCATE 15, 5: PRINT "RESULTADO:": LOCATE 15, 15: PRINT ""; T
890 GOTO 945
895 LOCATE 21, 5: PRINT "-": FOR A = 1 TO 9000: NEXT A
900 GOSUB 815: GOSUB 830
905 K = A - C
910 CLS : LOCATE 15, 5: PRINT "RESULTADO:": LOCATE 15, 15: PRINT ""; K
920 GOTO 945
925 LOCATE 21, 5: PRINT "+": FOR A = 1 TO 9000: NEXT A
930 GOSUB 815: GOSUB 830
935 I = A + C
940 CLS : LOCATE 15, 5: PRINT "RESULTADO:": LOCATE 15, 15: PRINT ""; I
945 LOCATE 21, 5: PRINT " ": LOCATE 22, 4: PRINT "DIGITE <C> PARA CONTINUAR..."
946 LOCATE 23, 4: PRINT "DIGITE <V> PARA VOLTAR"
950 X$ = INKEY$: IF X$ = "" THEN 950
955 IF X$ <> "C" AND X$ <> "V" THEN 950
960 IF X$ = "C" THEN CLS : GOTO 760
961 IF X$ = "V" THEN 10
965 REM *************** CIRCLE *****************
970 SCREEN 7
971 COLOR , 15: LOCATE 23, 11: PRINT "<V>Para Voltar"
975 FOR B = 80 TO 1 STEP -1
980 E1 = 80 / B
985 E2 = B / 80
990 CIRCLE (128, 80), 80, 13, , , E1
995 CIRCLE (128, 80), 80, 10, , , E2
996 IF INKEY$ = "V" THEN 10
1000 NEXT B
1005 COLOR 15, 1
1010 LINE (128, 160)-(128, 0)
1015 LINE (48, 80)-(208, 80)
1020 FOR B = 80 TO 1 STEP -1
1025 E1 = 80 / B
1030 E2 = B / 80
1035 CIRCLE (128, 80), 80, 12, , , E1
1040 CIRCLE (128, 80), 80, 8, , , E2
1041 IF INKEY$ = "V" THEN 10
1045 NEXT B
1050 COLOR 13, 4
1055 LINE (128, 160)-(128, 0)
1060 LINE (48, 80)-(208, 80)
1065 FOR B = 80 TO 1 STEP -1
1070 E1 = 80 / B
1075 E2 = B / 80
1080 CIRCLE (128, 80), 80, 7, , , E1
1085 CIRCLE (128, 80), 80, 3, , , E2
1086 IF INKEY$ = "V" THEN 10
1090 NEXT B
1095 COLOR 5, 10
1100 LINE (128, 160)-(128, 0)
1105 LINE (48, 80)-(208, 80)
1110 FOR B = 80 TO 1 STEP -1
1115 E1 = 80 / B
1120 E2 = B / 80
1125 CIRCLE (128, 80), 80, 11, , , E1
1130 CIRCLE (128, 80), 80, 14, , , E2
1131 IF INKEY$ = "V" THEN 10
1135 NEXT B
1140 COLOR 8, 2: LINE (128, 160)-(128, 0)
1145 LINE (48, 80)-(208, 80)
1150 FOR B = 20 TO 1 STEP -1
1155 E1 = 80 / B
1160 E2 = B / 80
1165 CIRCLE (128, 80), 80, 1, , , E1
1170 CIRCLE (128, 80), 80, 13, , , E2
1171 IF INKEY$ = "V" THEN 10
1175 NEXT B
1180 COLOR 5, 15: LINE (128, 160)-(128, 0)
1185 LINE (48, 80)-(208, 80)
1190 FOR B = 80 TO 1 STEP -1
1195 E1 = 80 / B
1200 E2 = B / 80
1205 CIRCLE (128, 80), 80, 1, , , E1
1210 CIRCLE (128, 80), 80, 12, , , E2
1211 IF INKEY$ = "V" THEN 10
1215 NEXT B
1220 COLOR 7, 9
1225 LINE (128, 160)-(128, 0)
1230 FOR B = 80 TO 1 STEP -1
1235 E1 = 80 / B
1240 E2 = B / 80
1245 CIRCLE (128, 80), 80, 3, , , E1
1250 CIRCLE (128, 80), 80, 10, , , E2
1251 IF INKEY$ = "V" THEN 10
1255 NEXT B
1260 COLOR 14, 13
1265 LINE (128, 160)-(128, 0)
1270 FOR B = 80 TO 1 STEP -1
1275 E1 = 80 / B
1280 E2 = B / 80
1285 CIRCLE (128, 80), 80, 3, , , E1
1290 CIRCLE (128, 80), 80, 10, , , E2
1291 IF INKEY$ = "V" THEN 10
1295 NEXT B
1300 COLOR 4, 7
1305 LINE (128, 160)-(128, 0)
1310 FOR B = 80 TO 1 STEP -1
1315 E1 = 80 / B
1320 E2 = B / 80
1325 CIRCLE (128, 80), 80, 5, , , E1
1330 CIRCLE (128, 80), 80, 2, , , E2
1331 IF INKEY$ = "V" THEN 10
1335 NEXT B
1340 COLOR 1, 2
1345 LINE (128, 160)-(128, 0)
1350 FOR B = 80 TO 1 STEP -1
1355 E1 = 80 / B
1360 E2 = B / 80
1365 CIRCLE (128, 80), 80, 9, , , E1
1370 CIRCLE (128, 80), 80, 8, , , E2
1371 IF INKEY$ = "V" THEN 10
1375 NEXT B
1380 GOTO 970
1385 REM ********** INTRODUO *************
1390 COLOR 9, 14: LOCATE 3, 15: PRINT "ATENO"
1391 LOCATE 4, 15: PRINT "-------"
1392 LOCATE 10, 3: PRINT " ATIVE O CAPS LOCK , e <Enter>"
1400 IF INKEY$ <> CHR$(13) THEN 1400
1405 GOTO 10
1500 RETURN
1505 REM *********** OUTRA TELA **************
1510 CLS : SCREEN 7: COLOR 5, 14
1515 LOCATE 2, 14: PRINT "PROGRAMAS": LOCATE 3, 14: PRINT "---------"
1520 COLOR 3, 14: LOCATE 5, 3: PRINT "Escolha a opo desejada:"
1525 COLOR 12, 14: LOCATE 7, 5: PRINT "1-> Linename": LOCATE 9, 5: PRINT "2->
Lenline": LOCATE 11, 5: PRINT "3-> Calend rio": LOCATE 13, 5: PRINT "4-> Chuva":
LOCATE 15, 5: PRINT "5-> Graf.circ.": LOCATE 17, 5: PRINT "6-> Graf.Color":
LOCATE 19, 5: PRINT "7-> Leitura de Notas Musicais": LOCATE 21, 5: PRINT "8->
Gr ficos em Movimento": LOCATE 23, 5: PRINT "9-> VOLTAR AO INICIO , 0-> OUTROS"
1530 E$ = INKEY$: IF E$ = "" THEN 1530
1535 IF E$ = "1" AND E$ = "2" AND E$ = "3" AND E$ = "4" AND E$ = "5" AND E$ =
"6" AND E$ = "7" AND E$ = "8" AND E$ = "9" AND E$ = "0" THEN 1530
1540 IF E$ = "1" THEN CLS : GOTO 1590
1545 IF E$ = "2" THEN CLS : GOTO 1700
1550 IF E$ = "3" THEN CLS : GOTO 5000
1555 IF E$ = "4" THEN CLS : GOTO 1850
1560 IF E$ = "5" THEN CLS : GOTO 1890
1565 IF E$ = "6" THEN CLS : GOTO 1950
1570 IF E$ = "7" THEN CLS : GOTO 2510
1575 IF E$ = "8" THEN CLS : GOTO 2000
1580 IF E$ = "9" THEN CLS : GOTO 10
1585 IF E$ = "0" THEN CLS : GOTO 3425
1589 REM ************* LINENAME *************
1590 CLS : SCREEN 7: COLOR 6, 14
1600 N$ = "ALEX SANDRO S.MAIA"
1601 Y$ = "<V>Voltar"
1605 N$ = N$ + " "
1610 A = RND(1) * 70
1615 Z = RND(1) * 15
1620 FOR S = A TO A STEP 3
1625 LINE (250 + A, 70 - A)-(70 - A, 130 + A), Z, B
1630 A = RND(1) * 15: COLOR A, 0: N$ = RIGHT$(N$, LEN(N$) - 1) + LEFT$(N$, 1):
LOCATE 13, 10
1635 PRINT N$
1640 FOR F = 1 TO 4000: NEXT F
1644 IF INKEY$ = "V" THEN GOTO 1510
1645 NEXT
1650 GOTO 1610
1700 REM ************* LENLINE **************
1705 SCREEN 7
1706 COLOR 15: LOCATE 23, 13: PRINT "<V>Para Voltar"
1707 COLOR 2, 0
1710 N$ = "LOMANTO AUTO TINTAS E PEAS LTDA."
1715 N$ = N$ + " "
1720 A = RND(1) * 15: COLOR A, 0: N$ = RIGHT$(N$, LEN(N$) - 1) + LEFT$(N$, 1):
LOCATE 12, 4
1725 PRINT N$: FOR F = 1 TO 4000: NEXT F
1726 IF INKEY$ = "V" THEN CLS : GOTO 1510
1730 GOTO 1720
1849 REM ********* CHUVA ***********
1850 SCREEN 7: COLOR , 0
1855 COLOR 15: LOCATE 23, 13: PRINT "<V>Para Voltar"
1860 IF INKEY$ = "V" THEN GOTO 1510
1865 A = RND(1) * 900
1870 B = RND(1) * 900
1875 C = RND(1) * 15
1880 PSET (A, B), C
1885 GOTO 1860
1889 REM ********** GRAF.CIRC. ********
1890 SCREEN 7
1891 COLOR 15: LOCATE 23, 13: PRINT "<V>Par Voltar"
1895 W = RND(1) * 15
1900 T = RND(1) * 15
1905 COLOR W, T
1910 FOR F = 1 TO 900
1915 X = RND(1) * 356
1920 Y = RND(1) * 292
1925 C = RND(1) * 14 + 2
1930 V = RND(1) * 10
1935 FOR D = 1 TO V STEP 1
1940 CIRCLE (X, Y), D, C
1941 IF INKEY$ = "V" THEN GOTO 1510
1945 NEXT D
1946 NEXT F
1947 CLS : GOTO 1890
1948 REM ********GRAF.COLO. ***********
1950 F = RND(1) * 14
1951 COLOR 15: LOCATE 23, 13: PRINT "<V>Para Voltar"
1955 COLOR 15, F
1960 SCREEN 7
1965 FOR A = 0 TO 6.28 STEP .1
1970 PSET (148 + 50 * COS(A), 85 + 20 * SIN(A)), 5
1975 DRAW "nu50ne50nr50nf50nd50ng50nl50nh50"
1977 IF INKEY$ = "V" THEN GOTO 1510
1980 NEXT A
1985 FOR D = 1 TO 1000: NEXT D
1990 COLOR F, F: LOCATE 22: PRINT " LOMANTO AUTO TINTAS E PEAS LTDA"
1995 GOTO 1950
1999 REM ******** GRAFICOS EM MOVIMENTO **************
2000 CLS : SCREEN 8: COLOR 4, 0
2005 FOR A = 1 TO 120 STEP 5
2010 CIRCLE (120 + A, 100), 200 + A
2015 FOR W = 1 TO 900: NEXT W
2020 IF INKEY$ = "V" THEN GOTO 1510
2021 GOSUB 2115
2025 NEXT A
2027 CLS : COLOR 12, 0
2030 FOR A = 1 TO 120 STEP 5
2035 CIRCLE (240 + A, 100), 140 - A
2036 IF INKEY$ = "V" THEN 1510
2037 GOSUB 2115
2040 NEXT A
2045 COLOR 13, 0: CLS : FOR A = 1 TO 70 STEP 3
2050 CIRCLE (260 + A, 100 - A), 70 - A
2055 FOR W = 1 TO 900: NEXT W
2056 GOSUB 2115
2057 IF INKEY$ = "V" THEN 1510
2060 NEXT A
2065 COLOR 14, 0: CLS : FOR A = 1 TO 130 STEP 7
2070 CIRCLE (200 + A - 4, 170 - A), 70 + A: FOR W = 1 TO 400: NEXT W: CIRCLE
(210 + A, 130 + A), 140 - A
2071 GOSUB 2115
2072 IF INKEY$ = "V" THEN 1510
2075 NEXT A
2080 COLOR 3, 8: CLS : FOR A = 1 TO 90 STEP 3
2085 CIRCLE (210 - A, 100 + A), 10 + A: CIRCLE (160 + A, 150 - A), 10: FOR W = 1
TO 1000: NEXT W
2086 GOSUB 2115
2087 IF INKEY$ = "V" THEN 1510
2090 NEXT A
2100 COLOR 14, 0: CLS : FOR A = 1 TO 100 STEP 4
2105 LINE (180 + A, 70 + A)-(300 - A, 110 - A), , B
2110 GOSUB 2115: NEXT A: GOTO 2120
2115 FOR G = 1 TO 1000: NEXT G: RETURN
2120 COLOR 5, 0: CLS : FOR A = 1 TO 100 STEP 4
2125 LINE (250 + A, 0 + A)-(260 - A, 110 + A), , B
2130 GOSUB 2115
2131 IF INKEY$ = "V" THEN 1510
2135 NEXT A
2140 COLOR 13, 0: CLS : FOR A = 1 TO 150 STEP 6
2145 LINE (250 - A, 90 - A)-(260 - A, 110 + A), , B: LINE (250 + A, 90 + A)-(250
- A, 110 - A), , B
2150 GOSUB 2115
2151 IF INKEY$ = "V" THEN GOTO 1510
2155 NEXT A
2160 COLOR 9, 0: CLS
2165 FOR A = 1 TO 295 STEP 4
2170 LINE (600 - A, 0 + A)-(15 + A, 190 - A), , B
2175 GOSUB 2115
2177 IF INKEY$ = "V" THEN GOTO 1510
2180 NEXT A
2185 COLOR 3, 0: CLS
2190 FOR A = 1 TO 293 STEP 4
2195 LINE (600 - A, 0)-(15 + A, 190), , B
2200 LINE (400 + A, 0)-(200 - A, 190), , B
2205 GOSUB 2115
2206 IF INKEY$ = "V" THEN GOTO 1510
2210 NEXT A
2215 COLOR 14, 0: CLS
2220 FOR A = 1 TO 293 STEP 2
2225 LINE (600 - A, 0)-(15 + A, 190), , B
2230 GOSUB 2115
2231 IF INKEY$ = "V" THEN 1510
2232 NEXT A
2240 COLOR 14, 0: CLS
2245 FOR A = 1 TO 293 STEP 3
2250 LINE (500 - A, 40 + A)-(30 + A, 100), , B
2255 GOSUB 2115
2256 IF INKEY$ = "V" THEN GOTO 1510
2260 NEXT A
2265 COLOR 1, 0: CLS
2270 FOR A = 1 TO 200 STEP 4
2275 LINE (400 + A, 20 + A)-(200 - A, 200 - A), , B
2280 GOSUB 2115
2281 IF INKEY$ = "V" THEN GOTO 1510
2285 NEXT A
2290 COLOR 5, 0: CLS
2295 FOR A = 1 TO 200 STEP 3
2300 LINE (400 + A, 20 + A)-(200 - A, 300 - A), , B
2305 GOSUB 2115
2306 IF INKEY$ = "V" THEN GOTO 1510
2310 NEXT A
2315 COLOR 3, 0: CLS
2320 FOR A = 1 TO 200 STEP 4
2325 LINE (200 + A, 100 - A)-(30 + A, 100 + A), , B
2330 LINE (400 - A, 100)-(230 - A, 300 - A), , B
2335 LINE (500 - A, 50 - A)-(30 + A, 200 + A), , B
2340 GOSUB 2115
2341 IF INKEY$ = "V" THEN GOTO 1510
2345 NEXT A
2350 COLOR 3, 14: CLS
2355 FOR A = 1 TO 130 STEP 4
2360 CIRCLE (230 + A, 160 - A), 200 - A
2365 CIRCLE (400 - A, 160), 30 + A: CIRCLE (200 - A, 140 - A), 150 - A
2370 GOSUB 2115
2371 IF INKEY$ = "V" THEN GOTO 1510
2375 NEXT A
2380 COLOR 2, 9: CLS
2385 FOR A = 1 TO 150 STEP 10
2390 CIRCLE (75 + A, 60), 5 + A
2395 CIRCLE (150 + A, 90), 45 + A
2400 CIRCLE (170 + A, 120), 90 + A
2405 GOSUB 2115
2406 IF INKEY$ = "V" THEN GOTO 1510
2410 NEXT A
2415 COLOR 4, 14: CLS : FOR A = 1 TO 200 STEP 4
2420 CIRCLE (150 - A, 60), 5 + A
2425 CIRCLE (170 + A, 190 - A), 200 - A
2430 CIRCLE (170 + A, 150), 20 + A
2435 GOSUB 2115
2440 IF INKEY$ = "V" THEN GOTO 1510
2445 NEXT A
2450 COLOR 10, 3: CLS : FOR A = 1 TO 550 STEP 10
2455 CIRCLE (30 + A, 60), 20: CIRCLE (30 + A, 160), 20
2460 CIRCLE (70, 200 - A), 10: CIRCLE (110, 200 - A), 10: CIRCLE (150, 200 - A),
10: CIRCLE (190, 200 - A), 10: CIRCLE (230, 200 - A), 10: CIRCLE (270, 200 - A),
10: CIRCLE (310, 200 - A), 10: CIRCLE (350, 200 - A), 10: CIRCLE (390, 200 - A),
10: CIRCLE (430, 200 - A), 10: CIRCLE (480, 200 - A), 10: CIRCLE (520, 200 - A),
10: CIRCLE (560, 200 - A), 10: CIRCLE (600, 200 - A), 10: CIRCLE (110, 200 - A),
10: CIRCLE (70, 200 - A), 10: CIRCLE (20, 200 - A), 10
2465 GOSUB 2115
2466 IF INKEY$ = "V" THEN GOTO 1510
2470 NEXT A
2475 COLOR 5, 10: CLS : FOR A = 1 TO 100 STEP 3
2480 LINE (150 + A, 100 + A)-(250 - A, 90 - A), , B
2485 GOSUB 2115
2490 IF INKEY$ = "V" THEN GOTO 1510
2495 NEXT A
2500 COLOR 9, 7: CLS : GOTO 2000
2505 REM ********** LEITURA DE NOTA MUSICAIS ***********
2510 CLS : SCREEN 7: COLOR 15, 2
2515 GOSUB 2590
2520 GOTO 2585
2525 FOR A = 1 TO 25 STEP 5
2530 PSET (2, 100 + A): DRAW "R315"
2535 PSET (310, 101): DRAW "D20": PSET (313, 101): DRAW "D20"
2540 PSET (314, 101): DRAW "D20": PSET (315, 101): DRAW "D20"
2545 PSET (316, 101): DRAW "D20"
2550 NEXT A
2555 RETURN
2560 CIRCLE (10, 116), 1, 5: DRAW "R3": DRAW "F2": DRAW "D3": DRAW "G4": DRAW
"L4": DRAW "H5": DRAW "U3": DRAW "E8": DRAW "U1": : DRAW "E1": DRAW "U1": DRAW
"U3": DRAW "H1": DRAW "U1": DRAW "H1": DRAW "G2": DRAW "D3": DRAW "F1": DRAW
"D1": DRAW "D21": DRAW "G2": DRAW "L2": DRAW "H1"
2565 RETURN
2570 COLOR 1, 2: LOCATE 5: PRINT " DIGITE A CIFRA REFERENTE A ESTA NOTA."
2575 COLOR 4, 2: LOCATE 2: PRINT " LEITURA NA CLAVE DE SOL"
2580 COLOR 6, 2: LOCATE 23: PRINT " <V> VOLTAR,<I> INFORMAO": RETURN
2585 COLOR 12, 2: GOSUB 2525: GOSUB 2560: GOSUB 2570: GOTO 2990
2590 FOR A = 1 TO 9 STEP 1
2595 LOCATE 21 - A: PRINT " ALEX SANDRO SAMPAIO MAIA ": FOR X = 1 TO 5555: NEXT
X: LOCATE 21 - A, 1: PRINT " "
2600 NEXT A
2605 COLOR 4, 2: LOCATE 12, 1: PRINT " ALEX SANDRO SAMPAIO MAIA"
2610 COLOR 12, 2: FOR S = 1 TO 1500: NEXT S: LOCATE 15, 1: PRINT " PROGRAMADOR"
2615 COLOR 14, 2: LOCATE 22: PRINT " Digite <ENTER> para Contionuar"
2620 IF INKEY$ <> CHR$(13) THEN 2620
2625 CLS : RETURN
2630 REM
2635 PSET (150, 127): DRAW "L15": PSET (150, 133): DRAW "L15": PSET (150, 139):
DRAW "L15": CIRCLE (142, 143), 3, 15: CIRCLE (142, 143), 2, 15: CIRCLE (142,
143), 1, 15: RETURN
2640 PSET (150, 127): DRAW "L15": PSET (150, 133): DRAW "L15": PSET (150, 139):
DRAW "L15": CIRCLE (142, 139), 3, 15: CIRCLE (142, 139), 2, 15: CIRCLE (142,
139), 1, 15: RETURN
2645 PSET (150, 127): DRAW "L15": PSET (150, 133): DRAW "L15": CIRCLE (142,
136), 3, 15: CIRCLE (142, 136), 2, 15: CIRCLE (142, 136), 1, 15: RETURN
2650 PSET (150, 127): DRAW "L15": PSET (150, 133): DRAW "L15": CIRCLE (142,
133), 3, 15: CIRCLE (142, 133), 2, 15: CIRCLE (142, 133), 1, 15: RETURN
2655 PSET (150, 127): DRAW "L15": CIRCLE (142, 130), 3, 15: CIRCLE (142, 130),
2, 15: CIRCLE (142, 130), 1, 15: RETURN
2660 PSET (150, 127): DRAW "L15": CIRCLE (142, 127), 3, 15: CIRCLE (142, 127),
2, 15: CIRCLE (142, 127), 1, 15: RETURN
2665 CIRCLE (142, 124), 3, 15: CIRCLE (142, 124), 2, 15: CIRCLE (142, 124), 1,
15: RETURN
2670 CIRCLE (142, 121), 3, 15: CIRCLE (142, 121), 2, 15: CIRCLE (142, 121), 1,
15: RETURN
2675 CIRCLE (142, 119), 3, 15: CIRCLE (142, 119), 2, 15: CIRCLE (142, 119), 1,
15: RETURN
2680 CIRCLE (142, 116), 3, 15: CIRCLE (142, 116), 2, 15: CIRCLE (142, 116), 1,
15: RETURN
2685 CIRCLE (142, 114), 3, 15: CIRCLE (142, 114), 2, 15: CIRCLE (142, 114), 1,
15: RETURN
2690 CIRCLE (142, 111), 3, 15: CIRCLE (142, 111), 2, 15: CIRCLE (142, 111), 1,
15: RETURN
2695 CIRCLE (142, 109), 3, 15: CIRCLE (142, 109), 2, 15: CIRCLE (142, 109), 1,
15: RETURN
2700 CIRCLE (142, 106), 3, 15: CIRCLE (142, 106), 2, 15: CIRCLE (142, 106), 1,
15: RETURN
2705 CIRCLE (142, 104), 3, 15: CIRCLE (142, 104), 2, 15: CIRCLE (142, 104), 1,
15: RETURN
2710 CIRCLE (142, 101), 3, 15: CIRCLE (142, 101), 2, 15: CIRCLE (142, 101), 1,
15: RETURN
2715 CIRCLE (142, 98), 3, 15: CIRCLE (142, 98), 2, 15: CIRCLE (142, 98), 1, 15:
RETURN
2720 PSET (150, 96): DRAW "L15": CIRCLE (142, 96), 3, 15: CIRCLE (142, 96), 2,
15: CIRCLE (142, 96), 1, 15: RETURN
2725 PSET (150, 96): DRAW "L15": CIRCLE (142, 94), 3, 15: CIRCLE (142, 94), 2,
15: CIRCLE (142, 94), 1, 15: RETURN
2730 PSET (150, 96): DRAW "L15": PSET (150, 91): DRAW "L15": CIRCLE (142, 91),
3, 15: CIRCLE (142, 91), 2, 15: CIRCLE (142, 91), 1, 15: RETURN
2735 PSET (150, 96): DRAW "L15": PSET (150, 91): DRAW "L15": CIRCLE (142, 89),
3, 15: CIRCLE (142, 89), 2, 15: CIRCLE (142, 89), 1, 15: RETURN
2740 PSET (150, 96): DRAW "L15": PSET (150, 91): DRAW "L15": PSET (150, 86):
DRAW "L15": CIRCLE (142, 86), 3, 15: CIRCLE (142, 86), 2, 15: CIRCLE (142, 86),
1, 15: RETURN
2745 PSET (150, 96): DRAW "L15": PSET (150, 91): DRAW "L15": PSET (150, 86):
DRAW "L15": CIRCLE (142, 83), 3, 15: CIRCLE (142, 83), 2, 15: CIRCLE (142, 83),
1, 15: RETURN
2750 PSET (150, 96): DRAW "L15": PSET (150, 91): DRAW "L15": PSET (150, 86):
DRAW "L15": PSET (150, 81): DRAW "L15": CIRCLE (142, 81), 3, 15: CIRCLE (142,
81), 2, 15: CIRCLE (142, 81), 1, 15: RETURN
2755 COLOR 2, 2
2760 FOR A = 1 TO 25 STEP 5
2765 PSET (120, 100 + A): DRAW "R50"
2770 NEXT A
2775 RETURN
2780 COLOR 5, 2: LOCATE 8: PRINT " ACERTOU": BEEP: FOR W = 1 TO 22222: NEXT W:
LOCATE 8: PRINT " ": RETURN
2785 COLOR 2, 2: RETURN
2790 REM
2795 X$ = INKEY$: IF X$ = "" THEN 2795
2800 IF X$ <> "C" AND X$ <> "V" AND X$ <> "I" THEN 2795
2805 IF X$ = "C" THEN RETURN
2810 IF X$ = "V" THEN CLS : GOTO 1510
2815 IF X$ = "I" THEN 3340
2820 X$ = INKEY$: IF X$ = "" THEN 2820
2825 IF X$ <> "D" AND X$ <> "V" AND X$ <> "I" THEN 2820
2830 IF X$ = "D" THEN RETURN
2835 IF X$ = "V" THEN CLS : GOTO 1510
2840 IF X$ = "I" THEN 3340
2845 X$ = INKEY$: IF X$ = "" THEN 2845
2850 IF X$ <> "E" AND X$ <> "V" AND X$ <> "I" THEN 2845
2855 IF X$ = "E" THEN RETURN
2860 IF X$ = "V" THEN CLS : GOTO 1510
2865 IF X$ = "I" THEN 3340
2870 X$ = INKEY$: IF X$ = "" THEN 2870
2875 IF X$ <> "F" AND X$ <> "V" AND X$ <> "I" THEN 2870
2880 IF X$ = "F" THEN RETURN
2885 IF X$ = "V" THEN CLS : GOTO 1510
2890 IF X$ = "I" THEN 3340
2900 X$ = INKEY$: IF X$ = "" THEN 2900
2905 IF X$ <> "G" AND X$ <> "V" AND X$ <> "I" THEN 2900
2910 IF X$ = "G" THEN RETURN
2915 IF X$ = "V" THEN CLS : GOTO 1510
2920 IF X$ = "I" THEN 3340
2930 X$ = INKEY$: IF X$ = "" THEN 2930
2935 IF X$ <> "A" AND X$ <> "V" AND X$ <> "I" THEN 2930
2940 IF X$ = "A" THEN RETURN
2945 IF X$ = "V" THEN CLS : GOTO 1510
2950 IF X$ = "I" THEN 3340
2960 X$ = INKEY$: IF X$ = "" THEN 2960
2965 IF X$ <> "B" AND X$ <> "V" AND X$ <> "I" THEN 2960
2970 IF X$ = "B" THEN RETURN
2975 IF X$ = "V" THEN CLS : GOTO 1510
2980 IF X$ = "I" THEN 3340
2985 REM
2990 GOSUB 2705: GOSUB 2845: GOSUB 2755: COLOR 2, 2: GOSUB 3185: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
2995 GOSUB 2680: GOSUB 2900: GOSUB 2755: COLOR 2, 2: GOSUB 3160: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3000 GOSUB 2740: GOSUB 2845: GOSUB 2755: COLOR 2, 2: GOSUB 3320: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3005 GOSUB 2650: GOSUB 2930: GOSUB 2755: COLOR 2, 2: GOSUB 3130: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3010 GOSUB 2675: GOSUB 2870: GOSUB 2755: COLOR 2, 2: GOSUB 3155: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3015 GOSUB 2725: GOSUB 2960: GOSUB 2755: COLOR 2, 2: GOSUB 3305: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3020 GOSUB 2635: GOSUB 2845: GOSUB 2755: COLOR 2, 2: GOSUB 3115: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3025 GOSUB 2660: GOSUB 2800: GOSUB 2755: COLOR 2, 2: GOSUB 3140: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3030 GOSUB 2750: GOSUB 2900: GOSUB 2755: COLOR 2, 2: GOSUB 3330: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3035 GOSUB 2695: GOSUB 2800: GOSUB 2755: COLOR 2, 2: GOSUB 3175: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3040 GOSUB 2640: GOSUB 2870: GOSUB 2755: COLOR 2, 2: GOSUB 3120: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3045 GOSUB 2720: GOSUB 2930: GOSUB 2755: COLOR 2, 2: GOSUB 3300: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3050 GOSUB 2690: GOSUB 2960: GOSUB 2755: COLOR 2, 2: GOSUB 3170: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3055 GOSUB 2715: GOSUB 2900: GOSUB 2755: COLOR 2, 2: GOSUB 3295: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3060 GOSUB 2745: GOSUB 2870: GOSUB 2755: COLOR 2, 2: GOSUB 3325: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3065 GOSUB 2670: GOSUB 2845: GOSUB 2755: COLOR 2, 2: GOSUB 3150: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3070 GOSUB 2730: GOSUB 2800: GOSUB 2755: COLOR 2, 2: GOSUB 3310: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3075 GOSUB 2655: GOSUB 2960: GOSUB 2755: COLOR 2, 2: GOSUB 3135: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3080 GOSUB 2735: GOSUB 2820: GOSUB 2755: COLOR 2, 2: GOSUB 3315: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3085 GOSUB 2645: GOSUB 2900: GOSUB 2755: COLOR 2, 2: GOSUB 3125: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3090 GOSUB 2700: GOSUB 2820: GOSUB 2755: COLOR 2, 2: GOSUB 3180: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3095 GOSUB 2710: GOSUB 2870: GOSUB 2755: COLOR 2, 2: GOSUB 3190: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3100 GOSUB 2665: GOSUB 2820: GOSUB 2755: COLOR 2, 2: GOSUB 3145: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3105 GOSUB 2685: GOSUB 2930: GOSUB 2755: COLOR 2, 2: GOSUB 3165: COLOR 12, 2:
GOSUB 2525: GOSUB 2780
3110 GOTO 2990
3115 PSET (150, 127): DRAW "L15": PSET (150, 133): DRAW "L15": PSET (150, 139):
DRAW "L15": CIRCLE (142, 143), 3, 2: CIRCLE (142, 143), 2, 2: CIRCLE (142, 143),
1, 2: RETURN
3120 PSET (150, 127): DRAW "L15": PSET (150, 133): DRAW "L15": PSET (150, 139):
DRAW "L15": CIRCLE (142, 139), 3, 2: CIRCLE (142, 139), 2, 2: CIRCLE (142, 139),
1, 2: RETURN
3125 PSET (150, 127): DRAW "L15": PSET (150, 133): DRAW "L15": CIRCLE (142,
136), 3, 2: CIRCLE (142, 136), 2, 2: CIRCLE (142, 136), 1, 2: RETURN
3130 PSET (150, 127): DRAW "L15": PSET (150, 133): DRAW "L15": CIRCLE (142,
133), 3, 2: CIRCLE (142, 133), 2, 2: CIRCLE (142, 133), 1, 2: RETURN
3135 PSET (150, 127): DRAW "L15": CIRCLE (142, 130), 3, 2: CIRCLE (142, 130), 2,
2: CIRCLE (142, 130), 1, 2: RETURN
3140 PSET (150, 127): DRAW "L15": CIRCLE (142, 127), 3, 2: CIRCLE (142, 127), 2,
2: CIRCLE (142, 127), 1, 2: RETURN
3145 CIRCLE (142, 124), 3, 2: CIRCLE (142, 124), 2, 2: CIRCLE (142, 124), 1, 2:
RETURN
3150 CIRCLE (142, 121), 3, 2: CIRCLE (142, 121), 2, 2: CIRCLE (142, 121), 1, 2:
RETURN
3155 CIRCLE (142, 119), 3, 2: CIRCLE (142, 119), 2, 2: CIRCLE (142, 119), 1, 2:
RETURN
3160 CIRCLE (142, 116), 3, 2: CIRCLE (142, 116), 2, 2: CIRCLE (142, 116), 1, 2:
RETURN
3165 CIRCLE (142, 114), 3, 2: CIRCLE (142, 114), 2, 2: CIRCLE (142, 114), 1, 2:
RETURN
3170 CIRCLE (142, 111), 3, 2: CIRCLE (142, 111), 2, 2: CIRCLE (142, 111), 1, 2:
RETURN
3175 CIRCLE (142, 109), 3, 2: CIRCLE (142, 109), 2, 2: CIRCLE (142, 109), 1, 2:
RETURN
3180 CIRCLE (142, 106), 3, 2: CIRCLE (142, 106), 2, 2: CIRCLE (142, 106), 1, 2:
RETURN
3185 CIRCLE (142, 104), 3, 2: CIRCLE (142, 104), 2, 2: CIRCLE (142, 104), 1, 2:
RETURN
3190 CIRCLE (142, 101), 3, 2: CIRCLE (142, 101), 2, 2: CIRCLE (142, 101), 1, 2:
RETURN
3295 CIRCLE (142, 98), 3, 2: CIRCLE (142, 98), 2, 2: CIRCLE (142, 98), 1, 2:
RETURN
3300 PSET (150, 96): DRAW "L15": CIRCLE (142, 96), 3, 2: CIRCLE (142, 96), 2, 2:
CIRCLE (142, 96), 1, 2: RETURN
3305 PSET (150, 96): DRAW "L15": CIRCLE (142, 94), 3, 2: CIRCLE (142, 94), 2, 2:
CIRCLE (142, 94), 1, 2: RETURN
3310 PSET (150, 96): DRAW "L15": PSET (150, 91): DRAW "L15": CIRCLE (142, 91),
3, 2: CIRCLE (142, 91), 2, 2: CIRCLE (142, 91), 1, 2: RETURN
3315 PSET (150, 96): DRAW "L15": PSET (150, 91): DRAW "L15": CIRCLE (142, 89),
3, 2: CIRCLE (142, 89), 2, 2: CIRCLE (142, 89), 1, 2: RETURN
3320 PSET (150, 96): DRAW "L15": PSET (150, 91): DRAW "L15": PSET (150, 86):
DRAW "L15": CIRCLE (142, 86), 3, 2: CIRCLE (142, 86), 2, 2: CIRCLE (142, 86), 1,
2: RETURN
3325 PSET (150, 96): DRAW "L15": PSET (150, 91): DRAW "L15": PSET (150, 86):
DRAW "L15": CIRCLE (142, 83), 3, 2: CIRCLE (142, 83), 2, 2: CIRCLE (142, 83), 1,
2: RETURN
3330 PSET (150, 96): DRAW "L15": PSET (150, 91): DRAW "L15": PSET (150, 86):
DRAW "L15": PSET (150, 81): DRAW "L15": CIRCLE (142, 81), 3, 2: CIRCLE (142,
81), 2, 2: CIRCLE (142, 81), 1, 2: RETURN
3335 REM ******* INFORMAO *******
3340 CLS
3345 COLOR 14, 4: LOCATE 2: PRINT " INFORMAO"
3350 LOCATE 3: PRINT " ----------"
3355 COLOR 10, 4: LOCATE 4: PRINT " Este programa ajudar vo a se habili-tar
ao ler partituras musicais;ao passo que vo digitar as Cfras corresponden-te
as notas exposta no pentagrama o maisr pido possivel e sem errar, vo vai
adquirir bastante aptido. "
3360 LOCATE 11: PRINT " Cada nota tem sua respectiva Cfra,v em frente e
descubra o nome das notas na pauta."
3365 COLOR 7, 4: LOCATE 14: LOCATE 14: PRINT " Cfras"
3370 COLOR 7, 4: LOCATE 15: LOCATE 15: PRINT " ------"
3375 COLOR 15, 4: LOCATE 17: LOCATE 17: PRINT " C -> D"
3380 LOCATE 18: PRINT " D -> R"
3385 LOCATE 19: PRINT " E -> Mi"
3390 LOCATE 20: PRINT " F -> F "
3395 LOCATE 21: PRINT " G -> Sol"
3400 LOCATE 22: PRINT " A -> L "
3405 LOCATE 23: PRINT " B -> Si Para Continuar <Enter>"
3410 IF INKEY$ <> CHR$(13) THEN 3410
3415 CLS : GOTO 2585
3420 REM *********** TERCEIRA TELA ***********
3425 CLS : SCREEN 7: COLOR 5, 15
3430 LOCATE 2, 14: PRINT "PROGRAMAS": LOCATE 3, 14: PRINT "---------"
3435 COLOR 3, 14: LOCATE 5, 3: PRINT "Escolha a opo desejada:"
3440 COLOR 12, 14: LOCATE 7, 5: PRINT "1-> Circlone": LOCATE 9, 5: PRINT "2->
Programador do Option": LOCATE 11, 5: PRINT "3-> Calcule": LOCATE 13, 5: PRINT
"4-> Segmento": LOCATE 15, 5: PRINT "5-> Olimpiadas": LOCATE 17, 5: PRINT "6->
Pontilhos": LOCATE 19, 5: PRINT "7-> Poligno"
3445 LOCATE 21, 5: PRINT "8-> IR PARA A TELA": LOCATE 23, 5: PRINT "9-> VOLTAR
AO INICIO ,0-> Outros"
3450 X$ = INKEY$: IF X$ = "" THEN 3450
3455 IF X$ <> "1" AND X$ <> "2" AND X$ <> "3" AND X$ <> "4" AND X$ <> "5" AND X$
<> "6" AND X$ <> "7" AND X$ <> "8" AND X$ <> "9" AND X$ <> "0" THEN 3450
3460 IF X$ = "1" THEN CLS : GOTO 3510
3465 IF X$ = "2" THEN CLS : GOTO 3550
3470 IF X$ = "3" THEN CLS : GOTO 3705
3475 IF X$ = "4" THEN CLS : GOTO 3770
3480 IF X$ = "5" THEN CLS : GOTO 4100
3485 IF X$ = "6" THEN CLS : GOTO 4155
3490 IF X$ = "7" THEN CLS : GOTO 4215
3495 IF X$ = "8" THEN CLS : GOTO 5
3500 IF X$ = "9" THEN CLS : GOTO 10
3505 IF X$ = "0" THEN CLS : GOTO 4425
3509 REM ********* CIRCLONE **********
3510 CLS : SCREEN 7: COLOR , 0
3515 T = RND(1) * 15
3520 Y = RND(2) * 14
3525 FOR D = .1 TO 5
3530 CIRCLE (150, 100 - D), 80 - D, T, , , 1 + D: CIRCLE (150, 100), 80 - D, Y,
, , D + D: CIRCLE (155, 100), 80 - D, Y, , , D + D
3534 IF INKEY$ = "V" THEN 3425
3535 NEXT D
3540 FOR A = 1 TO 2000: NEXT A
3545 GOTO 3510
3549 REM ********* LETRERO **********
3550 CLS : SCREEN 7: COLOR 11, 4
3555 FOR A = 1 TO 23 STEP 1
3560 LOCATE 24 - A, 8: PRINT "ALEX SANDRO SAMPAIO MAIA"
3565 FOR X = 1 TO 2000: NEXT X: LOCATE 24 - A, 8: PRINT " "
3566 IF INKEY$ = "V" THEN GOTO 3425
3570 NEXT A
3575 CLS : COLOR 10, 6
3580 FOR A = 1 TO 23 STEP 1
3585 LOCATE 24 - A, 8: PRINT "ALEX SANDRO SAMPAIO MAIA"
3590 FOR X = 1 TO 2000: NEXT X: LOCATE 24 - A, 8: PRINT " "
3591 IF INKEY$ = "V" THEN GOTO 3425
3595 NEXT A
3600 CLS : COLOR 1, 13
3605 FOR A = 1 TO 23 STEP 1
3610 LOCATE 24 - A, 8: PRINT "ALEX SANDRO SAMPAIO MAIA"
3615 FOR X = 1 TO 2000: NEXT X: LOCATE 24 - A, 8: PRINT " "
3616 IF INKEY$ = "V" THEN GOTO 3425
3620 NEXT A
3625 CLS : COLOR 15, 3
3630 FOR A = 1 TO 23 STEP 1
3635 LOCATE 24 - A, 8: PRINT "ALEX SANDRO SAMPAIO MAIA"
3640 FOR X = 1 TO 2000: NEXT X: LOCATE 24 - A, 8: PRINT " "
3641 IF INKEY$ = "V" THEN GOTO 3425
3645 NEXT A
3650 CLS : COLOR 1, 14
3655 FOR A = 1 TO 23 STEP 1
3660 LOCATE 24 - A, 8: PRINT "ALEX SANDRO SAMPAIO MAIA"
3665 FOR X = 1 TO 2000: NEXT X: LOCATE 24 - A, 8: PRINT " "
3666 IF INKEY$ = "V" THEN GOTO 3425
3670 NEXT A
3675 CLS : COLOR 5, 10
3680 FOR A = 1 TO 23 STEP 1
3685 LOCATE 24 - A, 8: PRINT "ALEX SANDRO SAMPAIO MAIA"
3690 FOR X = 1 TO 2000: NEXT X: LOCATE 24 - A, 8: PRINT " "
3691 IF INKEY$ = "V" THEN GOTO 3425
3695 NEXT A
3700 GOTO 3550
3704 REM ******* CALCULAR *********
3705 SCREEN 8: COLOR 6, 14: CLS : LOCATE 5, 14: PRINT "VAMOS APRENDER A
MULTIPLICAR ?"
3710 FOR A = 1 TO 30000: NEXT A
3715 LOCATE 7, 6: PRINT "DIGITE O PRIMEIRO NUMERO,POR FAVOR! e <ENTER>"
3720 LOCATE 21, 5: INPUT ""; A
3725 CLS : BEEP: LOCATE 7, 3: PRINT "DIGITE O SEGUNDO NUMERO,POR FAVOR! e <ENTER>"
3730 LOCATE 21, 5: INPUT ""; B
3735 D = A * B
3740 CLS : LOCATE 15, 5: PRINT "O Resultado :": LOCATE 15, 18: PRINT ""; D
3745 LOCATE 20, 5: PRINT "DIGITE <C> PARA CONTINUAR..."
3746 LOCATE 21, 5: PRINT "DIGITE<V> PARA VOLTAR..."
3750 X$ = INKEY$: IF X$ = "" THEN 3750
3755 IF X$ <> "C" AND X$ <> "V" THEN 3750
3760 IF X$ = "C" THEN BEEP: GOTO 3705
3765 IF X$ = "V" THEN CLS : GOTO 3425
3769 REM ****** SEGMENTO *****
3770 COLOR 13, 14: SCREEN 7
3775 DIM A(31), P(31)
3780 CLS
3785 COLOR 12, 0
3790 LOCATE 3, 15: PRINT "MENU"
3795 COLOR 14, 0: LOCATE 8, 10: PRINT "1->Entrar dados"
3800 LOCATE 11, 10: PRINT "2->Ver Gr fico"
3805 LOCATE 14, 10: PRINT "3->Fim"
3810 A$ = INKEY$: IF A$ < "1" OR A$ > "3" THEN 3810
3820 ON VAL(A$) GOSUB 3830, 3855, 3915
3825 GOTO 3780
3830 CLS : N = 0
3835 COLOR 13, 6: LOCATE 10, 10: PRINT "ITEM No "; N + 1; : INPUT A(N + 1): IF
A(N + 1) = 0 THEN RETURN
3840 N = N + 1
3845 IF N < 31 THEN 3835
3850 RETURN
3855 IF N = 0 THEN RETURN
3860 CLS : COLOR 13, 15: SCREEN 7: TT = 0: FOR T = 1 TO N: TT = TT + A(T): NEXT
3865 FOR T = 1 TO N: P(T) = A(T) * 810 * ATN(1) / TT: NEXT
3870 J = 1: P(0) = -1
3875 FOR T = 1 TO N
3880 IF T = N THEN COLOR 13 ELSE J = J + 1: COLOR J: IF J = 12 THEN J = 0
3885 FOR K = 1 TO P(T)
3890 X = X + .01: Y = Y + .01
3895 LINE (127, 95)-(127 + 60 * SIN(X), 95 - 60 * COS(Y))
3900 NEXT: NEXT
3905 IF INKEY$ = "" THEN 3905
3910 RETURN
3915 CLS : GOTO 3425
3920 DATA 8,9,10
3949 REM ********* TELA OPTION *********
3950 CLS : SCREEN 7: COLOR 12, 14
3955 FOR A = 1 TO 7
3960 PSET (15 + A, 60): DRAW "D50": PSET (40 + A, 60): DRAW "D50": PSET (65 + A,
60): DRAW "D50": PSET (120 + A, 60): DRAW "D50": PSET (90 + A, 60): DRAW "D20":
PSET (160 + A, 60): DRAW "D50": PSET (190 + A, 60): DRAW "D50": PSET (215 + A,
60): DRAW "D50": PSET (235 + A, 60): DRAW "D50": PSET (265 + A, 60): DRAW "D50"
3965 NEXT A
3970 FOR B = 1 TO 7
3975 PSET (17, 59 + B): DRAW "R25": PSET (17, 103 + B): DRAW "R25"
3980 PSET (67, 59 + B): DRAW "R25": PSET (67, 73 + B): DRAW "R25"
3985 PSET (109, 59 + B): DRAW "R30"
3990 PSET (155, 59 + B): DRAW "R18": PSET (155, 103 + B): DRAW "R18"
3995 PSET (192, 59 + B): DRAW "R30": PSET (192, 103 + B): DRAW "R25"
4000 NEXT B
4005 FOR C = 1 TO 9
4010 PSET (243, 59 + C): DRAW "F28"
4015 NEXT C
4020 COLOR 3, 14: FOR P = 1 TO 11111: NEXT P
4025 FOR R = 1 TO 6
4030 LOCATE 23 - R, 2: PRINT " PROGRAMADOR: "
4035 LOCATE 24 - R, 2: PRINT " "
4040 FOR G = 1 TO 3000: NEXT G
4045 NEXT R
4050 FOR P = 1 TO 11111: NEXT P
4055 COLOR 13, 14
4060 FOR R = 1 TO 10
4065 LOCATE 20, 0 + R: PRINT " ALEX SANDRO SAMPAIO MAIA "
4070 FOR W = 1 TO 4000: NEXT W
4075 NEXT R
4080 FOR T = 1 TO 11111: NEXT T
4085 COLOR 6, 14: LOCATE 23, 5: PRINT "DIGITE <ENTER> PARA CONTINUAR"
4090 IF INKEY$ <> CHR$(13) THEN 4090
4095 CLS : RETURN
4099 REM *************** OLIMPIC **************
4100 SCREEN 7: CLS : COLOR , 0
4105 FOR A = 1 TO 10 STEP 2
4110 CIRCLE (120, 60), 30, 12: CIRCLE (170, 60), 30, 13
4115 CIRCLE (90, 95), 30, 10: CIRCLE (145, 95), 30, 9: CIRCLE (200, 95), 30, 3
4120 CIRCLE (120, 60), 29, 12: CIRCLE (170, 60), 29, 13
4125 CIRCLE (90, 95), 29, 10: CIRCLE (145, 95), 29, 9: CIRCLE (200, 95), 29, 3
4130 NEXT
4135 Y = RND(1) * 13
4140 COLOR Y: LOCATE 18, 12: PRINT "OLIMPIADAS-1995"
4145 FOR G = 1 TO 10000: NEXT G
4146 IF INKEY$ = "V" THEN GOTO 3425
4150 GOTO 4135
4151 REM **************** PONTILHO ****************
4155 SCREEN 7: COLOR 5, 14: R = RND(-TIMER)
4160 LINE (16, 16)-(298, 177), 4, B: PAINT (0, 0), 4
4165 VX = INT(RND(1) * 15 - 4): VY = INT(RND(1) * 8 - 4)
4170 BX = 157: BY = 140
4175 PSET (BX, BY), 4
4180 F = RND(1) * 15
4185 IF POINT(VX + BX, BY) = 4 THEN VX = -VX
4190 IF POINT(BX, BY + VY) = 4 THEN VY = -VY
4195 PRESET (BX, BY), 4
4200 BX = BX + VX: BY = BY + VY
4205 FOR W = 1 TO 2000: NEXT W
4206 IF INKEY$ = "V" THEN 3425
4210 GOTO 4175
4211 REM ********* POLIGNO *********
4215 CLS : SCREEN 7: COLOR 4, 14
4220 GOSUB 4255
4225 GOSUB 4240
4230 GOSUB 4275
4235 CLS : GOTO 3425
4240 SCREEN 7
4245 CIRCLE (127, 95), 70, 13: CIRCLE (127, 95), 60, 13: PAINT (127, 30), 13
4250 GOTO 4300
4255 CLS : LOCATE 9, 10: INPUT "ngulo "; A
4260 A = A * ATN(1) / 45
4265 CLS
4270 RETURN
4275 SCREEN 7: CLS
4280 LOCATE 5, 10: INPUT "Joga novamente (S/N) "; AN$
4285 IF AN$ = "S" OR AN$ = "s" THEN GOTO 4215
4290 IF AN$ <> "N" AND AN$ <> "n" THEN 4275
4295 RETURN
4300 TH = 2 * A
4305 N = 0
4310 DRAW "BM185,95"
4315 LINE -(127 + 58 * COS(TH), 95 - 58 * SIN(TH)), 1
4320 TH = TH + 2 * A
4325 REM
4330 N = N + 1
4335 IF N < 15 THEN 4315
4340 IF INKEY$ = "" THEN 4340
4345 RETURN
4420 REM ********** QUARTA TELA ************
4425 CLS : SCREEN 7: COLOR 5, 14
4430 LOCATE 2, 14: PRINT "PROGRAMAS": LOCATE 3, 14: PRINT "---------"
4435 COLOR 3, 14: LOCATE 5, 3: PRINT "Escolha a opo desejada:"
4440 COLOR 12, 14: LOCATE 7, 5: PRINT "1-> MS-DOS": LOCATE 9, 5: PRINT "2->
ACORDES PARA TECLADO": LOCATE 11, 5: PRINT "3-> Recibo": LOCATE 13, 5: PRINT
"4-> FOLHA DE PAGAMENTO": LOCATE 15, 5: PRINT "5-> MUSICA": LOCATE 17, 5: PRINT
"6-> ALARME": LOCATE 19, 5: PRINT "7-> FINALIZAR"
4445 LOCATE 21, 5: PRINT "8-> VOLTAR AO ANTERIOR": LOCATE 23, 5: PRINT "9->
VOLTAR AO INICIO , 0->Outros"
4450 X$ = INKEY$: IF X$ = "" THEN 4450
4455 IF X$ <> "1" AND X$ <> "2" AND X$ <> "3" AND X$ <> "4" AND X$ <> "5" AND X$
<> "6" AND X$ <> "7" AND X$ <> "8" AND X$ <> "9" AND X$ <> "0" THEN 4450
4460 IF X$ = "1" THEN CLS : RUN "DOS.BAS"
4465 IF X$ = "2" THEN CLS : RUN "TECLADO.BAS"
4470 IF X$ = "3" THEN CLS : RUN "RECIBO.BAS"
4475 IF X$ = "4" THEN CLS : RUN "SALARIO.BAS"
4480 IF X$ = "5" THEN CLS : RUN "MUSICA.BAS"
4485 IF X$ = "6" THEN CLS : RUN "ALARME.BAS"
4490 IF X$ = "7" THEN CLS : RUN "FIM.BAS"
4495 IF X$ = "8" THEN CLS : GOTO 3425
4500 IF X$ = "9" THEN CLS : GOTO 10
4505 IF X$ = "0" THEN CLS : GOTO 10
4510 GOTO 10
5000 REM ********** CALENDARIO ***************
5010 SCREEN 8: COLOR 14, 1
5015 CLS
5020 INPUT "ANO DESEJADO PARA O CALENDARIO "; A1
5025 IF A1 = 0 THEN 6155
5030 PRINT SPC(16);
5035 IF A1 > 2099 THEN 5015
5040 ANO1 = INT(A1 / 4)
5045 L1 = ANO1 * 4
5050 ANO1 = A1 - L1
5055 IF A1 < 1900 THEN 5070
5060 IF A1 < 2000 THEN 5115
5065 IF A1 < 21000 THEN 5160
5070 IANO = 1801
5075 FANO = 1899
5080 IF A1 <> 1800 THEN 5100
5085 R1 = 4
5090 ANO1 = 1
5095 GOTO 5300
5100 DIA1 = 4
5105 LF = 99
5110 GOTO 5205
5115 IANO = 1901
5120 FANO = 1999
5125 IF A1 <> 1900 THEN 5145
5130 R1 = 2
5135 ANO1 = 1
5140 GOTO 5300
5145 DIA1 = 2
5150 LF = 99
5155 GOTO 5205
5160 IANO = 2001
5165 FANO = 2099
5170 IF A1 <> 2000 THEN 5190
5175 R1 = 7
5180 ANO1 = 0
5185 GOTO 5300
5190 DIA1 = 7
5195 LF = 0
5200 GOTO 5205
5205 FOR I = IANO TO FANO
5210 LF = LF + 1
5215 IF LF > 90 THEN 5255
5220 IF LF < 4 THEN 5235
5225 LF = 0
5230 REM
5231 REM
5232 REM
5233 REM
5234 REM
5235 IF LF <> 1 THEN 5255
5240 DIA1 = DIA1 + 2
5245 GOTO 5270
5250 DIA1 = 5
5255 DIA1 = DIA1 + 1
5260 IF LF < 90 THEN 5270
5265 LF = 1
5270 IF DIA1 < 8 THEN 5280
5275 DIA1 = DIA1 - 7
5280 R1 = DIA1
5285 REM
5290 IF I = A1 THEN 5300
5295 NEXT I
5300 REM
5305 R1 = R1 - 1
5310 IF R1 > 0 THEN 5320
5315 R1 = 7
5320 REM
5325 INPUT "IMPRIMIR (S/N) "; X$
5330 CLS
5335 FOR I = 1 TO 12
5340 IF X$ <> "S" THEN 5355
5345 LPRINT
5350 GOTO 5355
5355 PRINT
5360 MO$ = ""
5365 IF I = 1 THEN 5425
5370 IF I = 2 THEN 5435
5375 IF I = 3 THEN 5445
5380 IF I = 4 THEN 5455
5385 IF I = 5 THEN 5465
5390 IF I = 6 THEN 5475
5395 IF I = 7 THEN 5480
5400 IF I = 8 THEN 5495
5405 IF I = 9 THEN 5505
5410 IF I = 10 THEN 5515
5415 IF I = 11 THEN 5525
5420 IF I = 12 THEN 5535
5425 ME$ = "JANEIRO"
5430 GOTO 5540
5435 ME$ = "FEVEREIRO"
5440 GOTO 5540
5445 ME$ = "MARO"
5450 GOTO 5540
5455 ME$ = "ABRIL"
5460 GOTO 5540
5465 ME$ = "MAIO"
5470 GOTO 5540
5475 ME$ = "JUNHO"
5480 GOTO 5540
5485 ME$ = "JULHO"
5490 GOTO 5540
5495 ME$ = "AGOSTO"
5500 GOTO 5540
5505 ME$ = "SETEMBRO"
5510 GOTO 5540
5515 ME$ = "OUTUBRO"
5520 GOTO 5540
5525 ME$ = "NOVEMBRO"
5530 GOTO 5540
5535 ME$ = "DEZEMBRO"
5540 IF X$ <> "S" THEN 5590
5545 IF I = 7 THEN 5565
5550 FOR K = 1 TO 10
5555 LPRINT
5560 NEXT K
5565 LPRINT SPC(1); ME$; "/"; A1
5570 LPRINT
"------------------------------------------------------------------------------
";
5575 LPRINT SPC(1); "DO"; SPC(2); "SE"; SPC(2); "TE";
5580 LPRINT SPC(2); "QA"; SPC(2); "QI"; SPC(2); SPC(2); "SE"; SPC(2); "SA"
5585 GOTO 5605
5590 PRINT SPC(1); ME$; "/"; A1
5595 PRINT
"--------------------------------------------------------------------------------
";
5597 PRINT SPC(1); "DO"; SPC(2); "SE"; SPC(2); "TE";
5600 PRINT SPC(2); "QA"; SPC(2); "QI"; SPC(2); "SE"; SPC(2); "SA"
5605 FOR J = 1 TO 31
5610 IF J < 28 THEN 5705
5615 IF I = 1 THEN 5705
5620 IF I = 3 THEN 5690
5625 IF I = 5 THEN 5690
5630 IF I = 7 THEN 5690
5635 IF I = 8 THEN 5690
5640 IF I = 10 THEN 5690
5645 IF I = 12 THEN 5690
5650 IF I = 9 THEN 5700
5655 IF I = 4 THEN 5700
5660 IF I = 6 THEN 5700
5665 IF I = 11 THEN 5700
5668 IF ANO1 = 0 THEN 5680
5670 IF J > 28 THEN 6060
5675 GOTO 5705
5680 IF J < 29 THEN 6060
5685 GOTO 5705
5690 IF J > 31 THEN 6060
5695 GOTO 5705
5700 IF J > 30 THEN 6060
5705 R1 = R1 + 1
5710 IF R1 < 8 THEN 5740
5715 R1 = 1
5720 IF X$ <> "S" THEN 5735
5725 LPRINT
5730 GOTO 5740
5735 PRINT
5740 ON R1 GOTO 5745, 5770, 5820, 5920, 5965, 6015
5745 IF X$ <> "S" THEN 5758
5750 LPRINT SPC(0); J;
5755 GOTO 5760
5758 PRINT SPC(0); J;
5760 GOSUB 6095
5765 GOTO 6060
5770 IF X$ <> "S" THEN 5795
5775 IF J = 1 THEN 5785
5780 LPRINT SPC(4);
5785 LPRINT J;
5790 GOTO 5810
5795 IF J = 1 THEN 5805
5800 PRINT SPC(4);
5805 PRINT J;
5810 GOSUB 6095
5815 GOTO 6060
5820 IF X$ <> "S" THEN 5845
5825 IF J <> 1 THEN 5835
5830 LPRINT SPC(8);
5835 LPRINT J;
5840 GOTO 5860
5845 IF J <> 1 THEN 5855
5850 PRINT SPC(8);
5855 PRINT J;
5860 GOSUB 6095
5865 GOTO 6060
5870 IF X$ <> "S" THEN 5895
5875 IF J <> 1 THEN 5885
5880 LPRINT SPC(12);
5885 LPRINT J;
5890 GOTO 5910
5895 IF J <> 1 THEN 5905
5900 PRINT SPC(12);
5905 PRINT J;
5910 GOSUB 6095
5915 GOTO 6060
5920 IF X$ <> "S" THEN 5945
5925 IF J <> 1 THEN 5935
5930 LPRINT SPC(16);
5935 LPRINT J;
5940 GOTO 5955
5945 IF J <> 1 THEN 5950
5950 PRINT J;
5955 GOSUB 6095
5960 GOTO 6060
5965 IF X$ <> "S" THEN 5990
5970 IF J <> 1 THEN 5980
5975 LPRINT SPC(20);
5980 LPRINT J;
5985 GOTO 6005
5990 IF J <> 1 THEN 6000
5995 PRINT SPC(20);
6000 PRINT J;
6005 GOSUB 6095
6010 GOTO 6060
6015 IF X$ <> "S" THEN 6040
6020 IF J <> 1 THEN 6030
6025 LPRINT SPC(24);
6030 LPRINT J;
6035 GOTO 6055
6040 IF J <> 1 THEN 6050
6045 PRINT SPC(24);
6050 PRINT J;
6055 GOSUB 6095
6060 NEXT J
6065 IF X$ <> "S" THEN 6080
6070 LPRINT
6075 GOTO 6085
6080 PRINT
6085 NEXT I
6090 GOTO 6155
6095 J$ = STR$(J)
6100 LJ = LEN(J$)
6105 IF X$ <> "S" THEN 6130
6110 IF LJ < 3 THEN 6125
6115 LPRINT SPC(0);
6120 GOTO 6150
6125 LPRINT SPC(1);
6130 IF LJ < 3 THEN 6145
6135 PRINT SPC(0);
6140 GOTO 6150
6145 PRINT SPC(1);
6150 RETURN
6155 PRINT "FINALIZA? (S/N)"
6160 X$ = INKEY$: IF X$ = "" THEN 6160
6165 IF X$ = "S" THEN CLS : GOTO 1510
6170 IF X$ = "N" THEN CLS : GOTO 5010
Nome do Arquivo: ALARME.BAS
9 SCREEN 7
10 IF INKEY$ = "v" THEN RUN "OPTION.BAS"
11 G = RND(1) * 14
12 H = RND(2) * 12
15 COLOR G, H
20 LOCATE 12, 16: PRINT "V I R U S"
25 LOCATE 17, 13: PRINT "Nome: 'AIDS R.2A'"
30 PLAY "T120 MN L64 C D E F G A B O5 C"
35 IF INKEY$ = "V" THEN RUN "OPTION.BAS"
40 GOTO 9
Nome do Arquivo: MUSICA.BAS
10 SCREEN 8:
COLOR 5, 14: GOTO 400
40 GOSUB 50: GOSUB 60: GOSUB 50: GOSUB 70
45 GOSUB 50: GOSUB 60: GOSUB 50: GOSUB 70: GOTO 80
50 PLAY "T120L16O4BO5CL8DMSO4BAGF#O5L4MNEL8DMSO4ABO5CD": RETURN
60 PLAY "MSL8O4AMNL4A#": RETURN
70 PLAY "MSL8O4GMNP4": RETURN
80 GOSUB 90: GOSUB 100: GOSUB 100: GOSUB 110: GOSUB 90: GOSUB 100: GOSUB 100:
GOSUB 110
85 GOSUB 50: GOSUB 60: GOSUB 50: GOSUB 70: GOSUB 50: GOSUB 60: GOSUB 50: GOSUB
70: GOTO 150
90 PLAY "MSL16O4AB": RETURN
100 PLAY "MSO5L8CCCCMNL16CDCO4BMSL8AMNL16AB": RETURN
110 PLAY "MSL8O5MNCL4CO4MSL8BO5EMNL4EMSL8DO4ABO5CDO4GP4": RETURN
150 RETURN
200 REM****************** TELA DOS INKEY$ ********************
210 LOCATE 2, 1: PRINT "*********************** ESCOLHA SUA MUSICA PREFERIDA!
************************"
220 COLOR 6, 14
222 FOR G = 1 TO 78
225 LOCATE 3, 1 + G: PRINT ""
230 NEXT G
235 COLOR 2, 14
240 FOR G = 1 TO 78
245 LOCATE 4, 1 + G: PRINT ""
250 NEXT G
255 COLOR 12, 14
260 FOR G = 1 TO 78
265 LOCATE 5, 1 + G: PRINT ""
270 NEXT G
273 COLOR 1, 14
275 FOR G = 1 TO 78
280 LOCATE 6, 1 + G: PRINT ""
285 NEXT G
290 COLOR 8, 14: LOCATE 8, 14: PRINT "ESCOLHA A MUSICA DIGITANDO O NOME E DEPOIS
<ENTER>"
295 RETURN
297 LOCATE 22, 2: PRINT " ": RETURN
300 REM *********** NOME DAS MUSICAS ***********
305 COLOR 1, 14: LOCATE 10, 2: PRINT "ESCOCESA"
310 LOCATE 11, 2: PRINT "HEYJUDE": LOCATE 12, 2: PRINT "4S.D.AMOR": LOCATE 13,
2: PRINT "MARCHING": LOCATE 14, 2: PRINT "CAMPTOWN": LOCATE 15, 2: PRINT "GREENSLEEVES":
LOCATE 16, 2: PRINT "OLD-FRENCH": LOCATE 17, 2: PRINT "LA-CUMPARSITA": LOCATE
18, 2: PRINT "YESTERDAY"
315 LOCATE 19, 2: PRINT "MINUETO": LOCATE 10, 18: PRINT "D-CRIST": LOCATE 11,
18: PRINT "BIBLIA": LOCATE 12, 18: PRINT "DANUBIO": LOCATE 13, 18: PRINT "EU-QUERO"
320 LOCATE 14, 18: PRINT "TESTEMUNHAS": LOCATE 15, 18: PRINT "BERCEUSE": LOCATE
16, 18: PRINT "CANTICO-114": LOCATE 17, 18: PRINT "MINUETRIO": LOCATE 18, 18:
PRINT "CANTICO-91": LOCATE 19, 18: PRINT "LOVE-STORY"
325 LOCATE 10, 32: PRINT "BRASILEIRINHO": LOCATE 11, 32: PRINT "STOP": LOCATE
12, 32: PRINT "ODEON": LOCATE 13, 32: PRINT "????????": LOCATE 14, 32: PRINT
"????????": LOCATE 15, 32: PRINT "????????": LOCATE 16, 32: PRINT "????????":
LOCATE 17, 32: PRINT "????????": LOCATE 18, 32: PRINT "????????": LOCATE 19, 32:
PRINT "????????"
350 RETURN
400 GOSUB 200: GOSUB 305
500 REM ****************** INPUT *******************
505 COLOR 6, 14: LOCATE 22, 2: INPUT ""; X$
510 IF X$ = "ESCOCESA" OR X$ = "escocesa" THEN GOSUB 297: GOSUB 40: GOTO 400
515 IF X$ = "OPTION" OR X$ = "option" THEN RUN "OPTION.BAS"
520 IF X$ = "HEYJUDE" OR X$ = "heyjude" THEN GOSUB 297: GOSUB 810: GOTO 400
525 IF X$ = "4S.D.AMOR" OR X$ = "4s.d.amor" THEN GOSUB 297: GOSUB 860: GOTO 400
530 IF X$ = "MARCHING" OR X$ = "marching" THEN GOSUB 297: GOSUB 890: GOTO 400
535 IF X$ = "CAMPTOWN" OR X$ = "camptown" THEN GOSUB 297: GOSUB 915: GOTO 400
540 IF X$ = "GREENSLEEVES" OR X$ = "greensleeves" THEN GOSUB 297: GOSUB 930:
GOTO 400
545 IF X$ = "OLD-FRENCH" OR X$ = "old-french" THEN GOSUB 297: GOSUB 960: GOTO
400
550 IF X$ = "LA-CUMPARSITA" OR X$ = "la-cumparsita" THEN GOSUB 297: GOSUB 980:
GOTO 400
555 IF X$ = "YESTERDAY" OR X$ = "yesterday" THEN GOSUB 297: GOSUB 1020: GOTO 400
560 IF X$ = "MINUETO" OR X$ = "minueto" THEN GOSUB 297: GOSUB 1050: GOTO 400
565 IF X$ = "D-CRIST" OR X$ = "d-crist" THEN GOSUB 297: GOSUB 1065: GOTO 400
570 IF X$ = "BIBLIA" OR X$ = "biblia" THEN GOSUB 297: GOSUB 1075: GOTO 400
575 IF X$ = "DANUBIO" OR X$ = "danubio" THEN GOSUB 297: GOSUB 1090: GOTO 400
580 IF X$ = "EU-QUERO" OR X$ = "eu-quero" THEN GOSUB 297: GOSUB 1110: GOTO 400
585 IF X$ = "TESTEMUNHAS" OR X$ = "testemunhas" THEN GOSUB 297: GOSUB 1125: GOTO
400
590 IF X$ = "BERCEUSE" OR X$ = "berceuse" THEN GOSUB 297: GOSUB 1140: GOTO 400
595 IF X$ = "CANTICO-114" OR X$ = "cantico-114" THEN GOSUB 297: GOSUB 1160: GOTO
400
600 IF X$ = "MINUETRIO" OR X$ = "minuetrio" THEN GOSUB 297: GOSUB 1180: GOTO 400
605 IF X$ = "CANTICO-91" OR X$ = "cantico-91" THEN GOSUB 297: GOSUB 1220: GOTO
400
610 IF X$ = "LOVE-STORY" OR X$ = "love-story" THEN GOSUB 297: GOSUB 1250: GOTO
400
615 IF X$ = "BRASILEIRINHO" OR X$ = "brasileirinho" THEN GOSUB 297: GOSUB 1295:
GOTO 400
616 IF X$ = "ODEON" OR X$ = "odeon" THEN GOSUB 297: GOSUB 1350: GOTO 400
620 IF X$ = "STOP" OR X$ = "stop" THEN RUN
800 GOTO 505
810 REM **************** HEY JUDE *************************
820 GOSUB 830: GOSUB 835: GOSUB 840: GOSUB 835: PLAY "MNO4L1F": GOSUB 850: PLAY
"T92MNO4L2FP4": GOSUB 850: PLAY "T92O4L4F"
825 GOSUB 830: GOSUB 835: GOSUB 840: GOSUB 835: PLAY "MNO4L1F": RETURN
830 PLAY "T92MNO4P8L8FO5CDL4E-E-L8EFL4GL2GP2P4L4C": RETURN
835 PLAY
"T92MNO4L2AP8L8AO5CDL2O4GP4L8GAL4B-O5FP8L8FECDL16CO4B-L2AP8O5L8CDDP8DL16GL8FEL16FL8DMLL4CL8CMNP8O4FGAO5DL4CP8L8CO4B-L4AL8E":
RETURN
840 PLAY "T92MNO4L2FP4O5L4C ": RETURN
850 PLAY
"T92MNP8O4L8FO5L16FL8DDMLL8CL16CMNL8CO4B-O5L4DL8FMLDL4DMNL8FO4MLB-L4B-O5MNL8FL4DL8CO4B-O5MLCL4CMNL8DL4CO4B-L4AL8G":
RETURN
860 REM **************** 4S.D.AMOR **********************
865 GOSUB 870: GOSUB 875: GOSUB 880: GOSUB 875: GOSUB 885: RETURN
870 PLAY "T120O4MNP4L8DDFFAA": RETURN
875 PLAY
"MLO4L2GL4GMNL8FEL4FMLL2DL4DMNL4B-L8B-GO5L4CL8CO4GMLL4AL8AMNL8AO5DCO4B-AMLL2B-L4B-MNO5L8CO4B-L4AL8AGAFL4DP2GL8FE":
RETURN
880 PLAY "MNO4L4DL8DDFFAA": RETURN
885 PLAY
"MLO4L2DL4DMNP8L8DL4BL2BL8AGL4AL2AP8L8DL4BBBL8AGMLL2AL4AMNP8L8DL4BL2BL8AGL4AL2AL4ABBA#BO5C#L8DDDO4AGFMLL2GL4GMNL8FEL4FMLL2DL4DMNL4B-L8B-GO5L4CL8CO4GMLL4AL8AMNAO5DCMNO4B-AMLL4B-L8B-MNL8GO5L4CL8CO4B-L4AO5MLL4DL8DMNP2"
887 PLAY "O4L4GL8FEL1DP4P8L8DEFECL1D": RETURN
890 REM *************** MARCHING ***********************
891 GOSUB 895: GOSUB 900: GOSUB 905: GOSUB 895: GOSUB 900: GOSUB 910: RETURN
895 PLAY "T120MNO4P8L8FAB-O5L2CP8O4L8FAB-O5L2CP8O4L8FAB-O5L4CO4AFAL2GP8L8AAG":
RETURN
900 PLAY "MLL4FL8FMNL8FL4AO5L4CL8CO4MLL4B-L8B-L4B-MNO5L8DD": RETURN
905 PLAY "L4CO4AFGL2F ": RETURN
910 PLAY "O5MNL2CCDEMLL1FL4F": RETURN
915 REM **************** CAMPTOWN *********************
920 PLAY "P2P4P8": GOSUB 925: GOSUB 925: RETURN
925 PLAY
"T120MNO4P8L8GGGEGAGL4EL8EMLL4DL8DMNL8EL4DL8GGGEGAGL4EMLL8DL16DMNL16DL8EDL2CMLL8CL16CMNCL8EGO5L2CO4MLL8AL16AMNAO5L8CO4AMLL4GL8GMNGGGEGAGL4EMLL8DL16DMNDL8EDL4C":
RETURN
930 REM **************** GREENSLEEVES *****************
935 PLAY "T100MNO4L4A": GOSUB 940: GOSUB 945: GOSUB 950: GOSUB 945: GOSUB 955:
PLAY "MNO4L4A": GOSUB 940: RETURN
940 PLAY
"MNO5L2CL4DMLL4EL8EMNL8F#L4EL2DO4L4BMLL4GL8GMNAL4BO5L2CO4L4AMLL4AL8AMNL8G#L4AL2BL4G#L2EL4AO5L2CL4DMLL4EL8EMNL8F#L4EL2DO4L4BMLL4GL8GMNL8AL4BMLO5L4CL8CMNO4L8BL4AMLL4G#L8G#MNL8F#L4G#L1AP2":
RETURN
945 PLAY "MNO5L2GL4GMLL4GL8GMNL8F#L4EL2DO4L4BMLL4GL8GMNL8AL4B": RETURN
950 PLAY "MNO5L2CO4L4AMLL4AL8AMNL8G#L4AL2BL4G#MLL2EL4E": RETURN
955 PLAY "MLO5L4CL8CMNO4L8BL4AMLL4G#L8G#MNF#L4G#MLL2AL4AL4AMNP4": RETURN
960 REM *************** OLD-FRENCH *******************
965 GOSUB 970: GOSUB 970: GOSUB 975: GOSUB 970: RETURN
970 PLAY
"T90MNO4L8DGAB-O5CMLL4DL8DMNL8DCDE-CMLL4DL8DMNDCDE-CDL16E-DL8CO4B-MLL4AL8AL16AMNL16GMLL4GL8GMN":
RETURN
975 PLAY "MNO4L4GL8GAMLL4B-L8B-MNB-O5L4CCO4MLL4AL8AMNL8AO5MLL4DL8DMNL8DE-L16FE-L8DCO4L4B-L8AGMLL4AL8A":
RETURN
980 REM *************** LA-CUMPARSITA *******************
985 PLAY "T80MNP2": GOSUB 990: GOSUB 990: GOSUB 1000: GOSUB 990: GOSUB 1010:
GOSUB 1010: GOSUB 1015: GOSUB 990: RETURN
990 PLAY
"T80MSO4L8DO5CO4AF#P16MNL16DE-DMSL8C#DDO5DO4B-GP16MNO4L16DE-DMSL8C#DDO5CO4AF#P16MNO4L16DE-DMSL8C#DDO5DO4B-GP16O5L16MNDE-DMSL8C#DCGF#GP16MNL16F#GF#L8GF#O4B-O5GF#GP16L16F#GF#L8GF#"
995 PLAY "MNO4AO5DCDP16L16CO4B-AL8GF#MLL4GL16GP4O5L4GP4": RETURN
1000 PLAY
"T80MNO4L16GAL8B-P16O5L16GAB-L8AMLGL4GMNP16L16GGFFE-E-DL4DCP16L16AAGGF#F#P16E-E-DL4DP16L8CP16L8O4B-L16AL8GO5MLDL4DO4L16GAL8B-P16O5L16GAB-L8AMLL8GL4GMNL16GGFFE-E-DL2CL16CL8E-L16GGF#L8GO4L16B-O5L8DL16GGF#L8GP16L16DAF#DL8CO4L16F#L4GO5G":
RETURN
1010 PLAY
"MNO5L16GF#GAMLL8B-L16B-MNL16AL8GDP4L16E-DE-F#MLL8GL16GMNL16E-L8DO4B-P4": RETURN
1015 PLAY
"T80MNP8O5L8DMLL8E-L16E-MNL16DMLL8DL16DMNL16CCE-L8DP8L8CMLL8DL16DMNL16CMLL8CL16CMNL16O4B-B-O5DL8CP8O4L8B-O5MLL8CL16CO4L16B-MLL8B-L16B-MNL16AAO5CL8O4B-P8L8O4AMLL8GL16GMNL16F#L4GO5G":
RETURN
1020 REM ***************** YESTERDAY ****************
1030 GOSUB 1035: GOSUB 1035: GOSUB 1040: GOSUB 1035: GOSUB 1040: GOSUB 1035:
GOSUB 1045: RETURN
1035 PLAY
"T100MNO4L8GFMLL2FL4FMNP4L8ABO5C#DEFMLL8EL16EMNL16DMLL2DL4DMNP4L8DDCO4B-AGL4B-L8AMLL8AL4AMNL4GFL8AL2GL8DMNO4L4FL8AMLL8AL2AMN":
RETURN
1040 PLAY
"P16MNO4L2AAO5L4DEFL8EDMLL4EL8EMNL8DL4CDO4L1AL2AAO5L4DEFL8EDMLL4EL8EMNL8DL4CEL4FL8CFO4B-O5FO4AO5F":
RETURN
1045 PLAY "MNO4L4FAGDFL8AMLL8AL2A": RETURN
1050 REM ******************** MINUETO ************
1052 GOSUB 1055: GOSUB 1057: GOSUB 1055: GOSUB 1058: GOSUB 1060: GOSUB 1060
1051 GOSUB 1055: GOSUB 1057: GOSUB 1055: GOSUB 1058: RETURN
1055 PLAY
"T120MNO5L4DO4L8GABO5CO5L4DO4MSL4GGMNO5L4EL8CDEF#L4GMSO4GGO5MNL4CL8DCO4BAL4BO5L8CO4BAG":
RETURN
1057 PLAY "L4F#L8GABGMLL2AL4A": RETURN
1058 PLAY "MNO4L4AL8BAGF#MLL2GL4G": RETURN
1060 PLAY "MNO5L4BL8GABGL4AL8DEF#DL4GL8EF#GDL4C#O4L8BO5C#O4L4AL8ABO5C#DEF#MSO5L4GF#EF#O4AO5C#MLL2DL4DP16MNL4DO4L8GF#L4GO5EO4L8GF#L4GO5MSL4DCO4BMNL8AGF#GABDEF#GABO5L4CO4BAL8BO5DO4L4GF#MLL2GL4G":
RETURN
1065 REM ******************* D-CRIST ******************
1070 PLAY
"T100O4L4GMLL4EL8EMNL8FL4EL8DCL4EL2GL4CMLL4AL8AP32MNL8AL4GDMLL2EL4EP32MNL4CMLL4FL8FP32MNL8FL4EO3BO4DCCDEDDEMLL2FL4FMNL4GMLL4EL8EMNL8FL4EL8DCL4EL2GL4CMLL4AL8AP32MNL8AL4BEMLO5L2CL4CMNO4L4CAL8BO5L8CO4L4GEMLL4EL8EMNL8DL4CDEL8EFL4EDMLL2CL4C":
RETURN
1075 REM ******************* BIBLIA ****************
1080 PLAY
"T120MNO4L4GMLL8DL16DP32MNL16DL2DL4GMLL8E-L16E-P32MNL16E-L2E-L8DC#DGL4B-AL8DC#DF#L4AGGMLL8DL16DP32MNL16DL2DL4GMLL8E-L16E-P32MNL16E-L2E-L8DC#DGL4B-AMLL2GL4GP32MNP4"
1085 PLAY
"MNO4L8BO5CO4L4BP64BP64BO5DO4GBMLL4AL8AMNL8G#MLL2AL4AP16L8ABL4AP64AP64AO5CO4F#AMLL4GL8GMNL8F#MLL2GL4GL8BO5CO4L4BP64BP64BO5DO4GBMLL4AL8AMNL8G#MLL2AL4AP16MNL8ABL4ABO5CO4F#F#AGP64GP64MLL2GL4G":
RETURN
1090 REM ******************* DANUBIO **************
1095 PLAY
"T140MNO4L4EL1EL4G#AL1BL4G#EO5L1CO4L4BAO5L1EP4L4EL1FL4EDL1EL4DCO4L1BO5L4CO4BL1AL4GFL1EL4G#AL1BL4G#EO5L1CO4L4BAO5L1EP4L4EL1FL4EDL1EL4DCO4L1BO5L4CO4L4BMLL2AL4AMNL8BO5CDEFGL4AAAAAAAMLL4GL8GMNL8F#MLL2GL4G"
1100 PLAY
"MNO5L4FFFFFFFMLL4EL8EMNL8D#MLL2EL4EMNL4DDDDDDDMLL4CL8CMNO4L8BL2AO5L4AFDO4BO5L2CO4L4BL1AP4L4EEMLL4AL8AMNO5L8CMLL2EL4EO6L4CO5MLL4BL8BMNL8AMLL2EL4EMNL4GMLL4FL8FMNL8DO4MLL2BL4BO5MNL4DCO4BMLL2AL4A"
1105 PLAY
"MNO4L4EMLL4AL8AO5MNL8CMLL2EL4EO6MNL4CO5MLL4BL8BMNL8AMLL2EL4EO4L4BA#BO5L2CO4L4BL1AL4GFMLL2EL4EL4EG#AL1BL4G#EO5L1CO4L4BAO5L1EP4L4EL1FL4EDL1EL4DCO4L1BO5L4CO4BL1AP2":
RETURN
1110 REM ******************** EU-QUERO **************
1115 PLAY
"T120O3MNL8B-O4CL2DL4AP32L2AL8GFMLL1DL4DO3L8B-O4CL2DL4AP32L2AL8GFMLL1E-L4E-L8DE-O5L2DL8CO4GL2E-L8DE-O5L2CP32L8CO4GL2E-L8DE-L2DP32L8DGL2DL8CO3B-O4L1CL4CO3L8B-O4C"
1120 PLAY
"MNO4L2DL4AL2AL8GFMLL1DL4DO3L8B-O4CL2DL4B-P32L2B-L8GDMLL1CL4CP32L8CO3B-O4L2CP32L8CO3B-O4L2D-L8CO3B-O4L4FL1DL8E-DL2GL8FE-L2A-L4AP32AL1B-":
RETURN
1125 REM ****************** TESTEMUNHAS **************
1130 PLAY
"T100MNO4L4DO3L8AAO4L4DO3L8AAO4DEFEMLL4DL8DP32MNL8DL4GL8DDL4GL8DDGAB-AMLL4GL8GMNL8B-L4AL8AAL4AL8BO5C#L4DO4MLL4DL8DP8L8EFL4GP32L8GB-AGFEL4AMLL4DL8DP8"
1135 PLAY
"MNO4L4CFL8FFGGL4GL8AGAB-MLL4O5CL8CO4MNL8CL4FL8FFL4GL8GGAGABO5MLL4CL8CO4L8FO5L4DO4L8B-AL4GL8AB-O5CO4ACGL4FL8DFL4O5DO4L8FFP32L4FL8GAL4GMLL4FFL8FP8":
RETURN
1140 REM ****************** BERCEUSE ****************
1142 GOSUB 1145: GOSUB 1150: GOSUB 1145: RETURN
1145 PLAY
"T120O4L8AAO5MLL4CL8CMNO4L8AL4AO5L2CO4L8AO5CL4FEDDCO4L8GAL4B-GL8GAL4B-GL8GB-O5EDL4CEL2F":
RETURN
1150 PLAY
"MNO4L8AAO5MLL4CL8CO4MNL8AL4AO5L2CO4L8AO5CL4FEDDCO4L8GAL4B-GL8GAL2B-L8GB-O5EDL4CEL2FO4L8FFO5L2FL8DO4B-O5L2CO4L8AFL4B-O5CDL2CO4L8FFO5L2FL8DO4B-L2O5CL8O4AFL8B-L16O5CO4B-L4AL4GL2F":
RETURN
1160 REM ***************** CANTICO-114 *******************
1165 PLAY
"T120O4MLL4F#L8F#MNL8AL2AL4DEL2F#MLL4F#L8F#MNL8BL4BF#P64F#L8DEL2F#MLL4EL8EMNL8F#GF#L4EMLL4F#L8F#MNL8GL2A"
1170 PLAY
"MLO4L4DL8DMNL8EFEL4DMLL4F#L8F#MNL8DL2DMLL4EL8EMNL8F#GF#L4EMLL4F#L8F#MNL8GL2AMLL4G#L8G#MNL8ABAL4G#MLL4AL8AMNL8BO5L2C#"
1175 PLAY
"MNO5L4DO4AG#AO5MLL4C#L8C#MNO4L8BL2BL4ED#EGMLL4BL8BMNL8AP32L2AO3L4B-BO4DF#MLL4AL8AMNL8GL2B-L4F#L8GEL4DC#MLL2DL4DP4":
RETURN
1180 REM **************** MINUETRIO ***********************
1185 GOSUB 1190: GOSUB 1190: GOSUB 1195: GOSUB 1195: GOSUB 1200: GOSUB 1200:
GOSUB 1210: GOSUB 1210: GOSUB 1190: GOSUB 1195: RETURN
1190 PLAY
"T120MLO4L8GL16GP64MNL16GP64L2GL16BO5CO4BO5CL4EP4O4MLL8GL16GP64MNL16GP64L2GO5L16C#DC#CL4FP4MLO4L8BL16BL16GO5MSL4GGGL16MLL16G#L8AL16AP64L16AL8FL16FP64L16FL8DL16DMLL4GL8GL16GP64L16GL16FL16EDL4CP4":
RETURN
1195 PLAY
"T120MNO5L16AGAGO4L4BP4O5L16AGAGL4CP4L16AGAGL4FFL16EFF#GL4DP4MLL8BL16BGO6MSL4CCCMLL16CO5MLL8AL16AP64L16AL8FL16FP64L16FL8DL16DO5MNL2GMLL16GFMNEDL4CP4":
RETURN
1200 PLAY
"T120MNO4L4EP64L2EL8FDMLL8AL16AGP64L4GL8FEG#AP64MSAGFEMNL4DP4DP64L2DL4EMLL8GL16GL16FP64L4FL8EDAGP64MSGEFDL4CP4":
RETURN
1210 PLAY
"T120MNO5L8GF#EDP64DP64DP64DP64DP64L4DP4L8MSDEF#GABO6CO5AL4GP4O4DL2DO4L4EMLL8GL16GL16FP64L4FL8EDAGP64MSGEFDL4MNCP4":
RETURN
1220 REM ******************** CANTICO-91 ****************
1225 PLAY
"T120MNO4L4CMLL8DL16DMNL16EMLL8FL16FMNL16GMLL4AL8AMNL8CMLL2AL4AP64MNL4AMLL8O5CL16CMNO4L16AMLL8GL16GMNL16FL2GMLL2DL4DMNL4O3B-O4MLL8CL16CMNL16DMLL8EL16EMNL16F"
1230 PLAY
"MLO4L4GL8GMNL8CMLL2GL4GMNP64L4GMLL8AL16AMNL16GMLL8FL16FMNL16EL2FMLL2CL4CMNO3L4AMLL8BL16BO4MNL16C#MLL8DL16DMNL16EMLL4GL8GMNL8FMLL2FL4FP64MNL4FMLL8AL16AMNL16FMLL8EL16EMNL16DL2FMLO3L2B-L4B-MNO4L4CMLL8DL16DMNL16EMLL8FL16FMNL16GMLL4FL8FMNL8EP64L4EDMLL4EL8EMNL8DP64L4DCMLL4B-L8B-MNL8AMLL2AL4A"
1235 PLAY
"MNO4L4CMLL8DL16DMNL16EMLL8FL16FMNL16GMLL4AL8AMNL8CMLL2AL4AP64MNL4AMLO5L8CL16CO4MNL16AMLL8GL16GMNL16FL2GMLL2DL4DMNO3L4B-O4MLL8CL16CMNL16DMLL8EL16EMNL16FMLL4GL8GMNL8CMLL2GL4GMNL4EMLL8FL16FMNL16GMLL8AL16AMNL16B-P64L2B-MLL2AL4A"
1240 PLAY
"MNO4L4DMLL8EL16EMNL16F#MLL8GL16GMNL16AO5MLL4CL8CO4MNL8B-MLL2B-L4B-MNL4CMLL8DL16DMNL16EMLL8FL16FMNL16GMLL4B-L8B-MNL8AP64MLL2AL4AMNL4C#MLL8DL16DMNL16EMLL8FL16FMNL16DMLL4AL8AMNL8GP64MNL4GFMLL4GL8GMNL8FP64L4FEMLL4GL8GMNL8FMLL2FL4F":
RETURN
1245 REM ********************* LOVE-STORY *****************
1250 GOSUB 1255: PLAY "MNO5L4E-MLL2DL4DP4": GOSUB 1255: PLAY "MNO5L4F#MNL1B":
GOSUB 1265: GOSUB 1255: PLAY "MNO5L4F#MLL2GL4P4O4L1G": RETURN
1255 PLAY
"T90MNO5L8B-DP64DB-P64MLL2B-L8B-MNL8DP64DB-P64B-DE-DCP64CP64CAMLL2AL8AMNL8CP64CP64AP64ACDC"
1260 PLAY
"MNO4L8B-P64B-P64B-O5GP64L2GP8O4L8B-P64B-O5GP64GO4B-O5CO4B-AP64AP64AO5F#MLL2F#L4F#L4GA":
RETURN
1265 PLAY "MNP4O5L4CDO4G"
1270 PLAY
"MLO5L2E-L8E-MNL8O4GO5E-O4GP64GAMLL4AL8AO5L8CE-CMLL2DL8DO4L8FO5DO4FP64L8FGMLL4GL8GMNL8B-O5DO4B-MLL2O5CL8CO4L8AO5CO4AMLL4B-L8B-MNP64L8O5CDO4GB-O5DMLL2E-L8E-O4MNL8FGB-"
1280 PLAY
"T90MNO4L4B-MLL4AL8AMNL8B-O5CO4E-MLL2DL8DMNP64L8DE-FL4AMLL4GL8GP64L8GL12FE-D"
1285 PLAY
"MLO4L2C#L8C#MNL8EGEF#O5F#P64F#O6F#P64L4F#O5F#O4L8F#O5F#P64F#O6F#P64L4F#O5D":
RETURN
1290 REM ********************* BRASILEIRINHO *****************
1295 GOSUB 1296: GOSUB 1300: GOSUB 1296: GOSUB 1300: GOSUB 1310: GOSUB 1315:
GOSUB 1320: GOSUB 1296: GOSUB 1300: GOSUB 1296: GOSUB 1300: GOSUB 1310: GOSUB
1340: RETURN
1296 PLAY "T120P2MNO5L16AP64AP64AP64": RETURN
1300 PLAY "MNO5L16ACFACFACFACFACFL8A-L16CFA-CFA-CFA-CFA-CFL8AL16CFACFAL8CL16AP64AP64AP64AP64A-GP64G-MNL4FMNP16":
RETURN
1310 PLAY "MNO5L16CDD#ED#P64DCDD#ED#DCDD#ED#DCFEDCFEDCFEDCO4B-AGFECEGB-O5CDEDCO4B-O5CDCO4BB-MLL2AL4AP16O5L16CDD#MLL8EL16EMNL16CDD#L8EP16L16CDD#ED#DCMLL8FL16FMNL16CDEL8FP16L16CDEFEDCMLL8EL16EMNL16CDD#L8EP16L16DCDCO4B-AG":
RETURN
1315 PLAY "MLL2FL4FP16L16CFG ": RETURN
1320 PLAY "MNO4L16A-GFCFGA-GFCFGA-GFO5L8D-L16CO4B-O5CD-CO4B-O5CD-L8CO4B-L16GL8EL16CEGB-O5CD-CD-CD-CD-CD#DL2D-CMLL8FL16FMNL16EP16L8E-P16MLL8DL16DP64MNL8D-CO4L4BP16O5L16D-P64D-P64D-P64"
1325 PLAY "MNO5L16D-CO4B-GECEGB-O5CD-CD-CE-DL2D-L4CP16O4L16CFGA-GFCFGA-GFCFGA-GFL8O5D-L16CO4B-O5CD-CO4B-O5CD-L8CO4L8B-GEL16CEGB-O5CD-CD-CD-CD-CD#DL2D-C"
1330 PLAY "MNP16O5MLL8FL16FMNO4L8B-O5FO4B-O5L16FO4L8B-O5FCL16CFGA-GFCFGA-GFL8E-DL16FGA-GFL8EGO5D-CO4MLL16FL4FMNP16":
RETURN
1340 PLAY "MNO4L16FP64FEFEFGG#AP64AG#AG#AB-BO5CP64CO4BO5CO4BO5CDEL8FEDCFEDCFEDCFP4P8MLL8FL16FP64MLL4FL16F":
RETURN
1350 REM ********************** ODEON ********************
1355 PLAY "T200MNO5L8EE-D": GOSUB 1360: GOSUB 1365: GOSUB 1360: RETURN
1360 PLAY "T200MLO5L4CL8CP32MNL8CMLO4L4BL8BMNL8B"
1361 PLAY "O4MLL4AL8AP32MNL8AMLL4GL8GP32MNL8G"
1362 PLAY "O4MLL4FL8FP32MNL8FMLL4EL8EMNL8E": RETURN
1365 PLAY
"O4MNL2DP8L8DFAO5MLL4DL8DP32MNL8DMLL4CL8CP32MNL8CO4MLL4BL8BP32MNL8BMLL4AL8AP32MNL8AMLL2G#L4G#MNL8O5CO4G#BAO5CO4AEO5EE-D":
RETURN
Nome do Arquivo: TECLADO.BAS - Faa o Download deste arquivo.
50 SCREEN 8: COLOR 8, 15
55 GOTO 4000
60 COLOR 8, 15
65 PSET (15, 30): DRAW "R602": PSET (15, 105): DRAW "R602": PSET (15, 30): DRAW
"D75": PSET (617, 30): DRAW "D75"
70 PSET (55, 30): DRAW "D75": PSET (95, 30): DRAW "D75": PSET (135, 30): DRAW
"D75": PSET (175, 30): DRAW "D75": PSET (215, 30): DRAW "D75": PSET (255, 30):
DRAW "D75": PSET (295, 30): DRAW "D75": PSET (335, 30): DRAW "D75": PSET (375,
30): DRAW "D75": PSET (415, 30): DRAW "D75": PSET (455, 30): DRAW "D75": PSET
(495, 30): DRAW "D75"
80 PSET (535, 30): DRAW "D75": PSET (575, 30): DRAW "D75"
90 FOR A = 1 TO 45
100 PSET (42, 30 + A): DRAW "R26": PSET (82, 30 + A): DRAW "R26": PSET (162, 30
+ A): DRAW "R26": PSET (202, 30 + A): DRAW "R26": PSET (242, 30 + A): DRAW
"R26": PSET (322, 30 + A): DRAW "R26": PSET (362, 30 + A): DRAW "R26": PSET
(442, 30 + A): DRAW "R26": PSET (482, 30 + A): DRAW "R26": PSET (522, 30 + A):
DRAW "R26"
110 NEXT A
120 COLOR 4, 15: LOCATE 2, 16: PRINT "DIGITE O NOME DESTE ACORDE DEPOIS TECLE
ENTER"
122 FOR F = 1 TO 51
123 COLOR 9, 15: LOCATE 21, 0 + F: PRINT "": LOCATE 21, 81 - F: PRINT ""
124 NEXT F
125 LOCATE 22, 1: PRINT "": LOCATE 22, 70: PRINT ""
127 COLOR 9, 15: LOCATE 23, 1: PRINT " "
128 COLOR 2, 15: LOCATE 23, 10: PRINT "<V> Voltar ao OPTION <R> Retornar ao
inicio <I> Informaes"
129 FOR T = 1 TO 4
130 COLOR 14, 15: LOCATE 16 + T, 1: PRINT ""
132 NEXT T
135 COLOR 8, 15: LOCATE 16, 1: PRINT
"________________________________________________________________________________"
137 LOCATE 3, 16: PRINT "---------------------------------------------"
138 RETURN
140 REM ********** ACORDES **************
142 REM >>>>>>FA MAIOR
143 FOR H = 1 TO 6
145 CIRCLE (155, 90), 7 - H, 13: CIRCLE (235, 90), 7 - H, 13: CIRCLE (315, 90),
7 - H, 13
146 NEXT H
147 RETURN
149 REM >>>>>FA MAIOR INVISIVEL
150 FOR H = 1 TO 6
153 CIRCLE (155, 90), 7 - H, 15: CIRCLE (235, 90), 7 - H, 15: CIRCLE (315, 90),
7 - H, 15
155 NEXT H
156 RETURN
160 REM >>>>>SOL MAIOR
165 FOR H = 1 TO 6
167 CIRCLE (195, 90), 7 - H, 13: CIRCLE (275, 90), 7 - H, 13: CIRCLE (355, 90),
7 - H, 13
168 NEXT H
169 RETURN
170 REM >>>>>SOL MAIOR INVISIVEL
172 FOR H = 1 TO 6
174 CIRCLE (195, 90), 7 - H, 15: CIRCLE (275, 90), 7 - H, 15: CIRCLE (355, 90),
7 - H, 15
176 NEXT H
177 RETURN
178 REM>>>>>L MENOR
180 FOR H = 1 TO 6
183 CIRCLE (235, 90), 7 - H, 13: CIRCLE (315, 90), 7 - H, 13: CIRCLE (395, 90),
7 - H, 13
184 NEXT H
185 RETURN
186 REM >>>>L MENOR INVISIVEL
188 FOR H = 1 TO 6
190 CIRCLE (235, 90), 7 - H, 15: CIRCLE (315, 90), 7 - H, 15: CIRCLE (395, 90),
7 - H, 15
192 NEXT H
193 RETURN
195 REM R MAIOR
197 FOR H = 1 TO 6
200 CIRCLE (355, 90), 7 - H, 13: CIRCLE (515, 90), 7 - H, 13: CIRCLE (456, 65),
7 - H, 13
205 NEXT H
206 RETURN
210 REM R MAIOR INVISIVEL
215 FOR H = 1 TO 6
220 CIRCLE (355, 90), 7 - H, 15: CIRCLE (515, 90), 7 - H, 15: CIRCLE (456, 65),
7 - H, 8
222 NEXT H
223 RETURN
225 REM D MAIOR
227 FOR H = 1 TO 6
230 CIRCLE (315, 90), 7 - H, 13: CIRCLE (395, 90), 7 - H, 13: CIRCLE (475, 90),
7 - H, 13
235 NEXT H
236 RETURN
240 REM D MAIOR INVISIVEL
245 FOR H = 1 TO 6
250 CIRCLE (315, 90), 7 - H, 15: CIRCLE (395, 90), 7 - H, 15: CIRCLE (475, 90),
7 - H, 15
255 NEXT H
256 RETURN
257 REM SI MAIOR
260 FOR H = 1 TO 6
262 CIRCLE (275, 90), 7 - H, 13: CIRCLE (373, 65), 7 - H, 13: CIRCLE (453, 65),
7 - H, 13
265 NEXT H
266 RETURN
267 REM SI MAIOR INVISIVEL
270 FOR H = 1 TO 6
275 CIRCLE (275, 90), 7 - H, 15: CIRCLE (373, 65), 7 - H, 8: CIRCLE (453, 65), 7
- H, 8
277 NEXT H
278 RETURN
280 REM MI MENOR
282 FOR H = 1 TO 6
285 CIRCLE (115, 90), 7 - H, 13: CIRCLE (195, 90), 7 - H, 13: CIRCLE (275, 90),
7 - H, 13
287 NEXT H
288 RETURN
290 REM MI MENOR INVISIVEL
292 FOR H = 1 TO 6
295 CIRCLE (115, 90), 7 - H, 15: CIRCLE (195, 90), 7 - H, 15: CIRCLE (275, 90),
7 - H, 15
297 NEXT H
298 RETURN
300 REM SI BEMOL MENOR
302 FOR H = 1 TO 6
305 CIRCLE (253, 65), 7 - H, 13: CIRCLE (333, 65), 7 - H, 13: CIRCLE (435, 90),
7 - H, 13
307 NEXT H
308 RETURN
310 REM SI BEMOL MENOR INVISIVEL
315 FOR H = 1 TO 6
317 CIRCLE (253, 65), 7 - H, 8: CIRCLE (333, 65), 7 - H, 8: CIRCLE (435, 90), 7
- H, 15
320 NEXT H
321 RETURN
322 REM SOL MENOR
325 FOR H = 1 TO 6
337 CIRCLE (195, 90), 7 - H, 13: CIRCLE (253, 65), 7 - H, 13: CIRCLE (355, 90),
7 - H, 13
340 NEXT H
341 RETURN
343 REM SOL MENOR INVISIVEL
345 FOR H = 1 TO 6
347 CIRCLE (195, 90), 7 - H, 15: CIRCLE (253, 65), 7 - H, 8: CIRCLE (355, 90), 7
- H, 15
350 NEXT H
351 RETURN
355 REM L MAIOR
357 FOR H = 1 TO 6
360 CIRCLE (235, 90), 7 - H, 13: CIRCLE (335, 65), 7 - H, 13: CIRCLE (395, 90),
7 - H, 13
362 NEXT H
363 RETURN
365 REM L MAIOR INVISIVEL
370 FOR H = 1 TO 6
372 CIRCLE (235, 90), 7 - H, 15: CIRCLE (335, 65), 7 - H, 8: CIRCLE (395, 90), 7
- H, 15
375 NEXT H
376 RETURN
377 REM D MENOR
380 FOR H = 1 TO 6
382 CIRCLE (315, 90), 7 - H, 13: CIRCLE (375, 65), 7 - H, 13: CIRCLE (475, 90),
7 - H, 13
385 NEXT H
386 RETURN
387 REM D MENOR INVISIVEL
390 FOR H = 1 TO 6
393 CIRCLE (315, 90), 7 - H, 15: CIRCLE (375, 65), 7 - H, 8: CIRCLE (475, 90), 7
- H, 15
395 NEXT H
396 RETURN
397 REM MI MAIOR
400 FOR H = 1 TO 6
405 CIRCLE (395, 90), 7 - H, 13: CIRCLE (493, 65), 7 - H, 13: CIRCLE (555, 90),
7 - H, 13
410 NEXT H
411 RETURN
415 REM MI MAIOR INVISIVEL
417 FOR H = 1 TO 6
420 CIRCLE (395, 90), 7 - H, 15: CIRCLE (493, 65), 7 - H, 8: CIRCLE (555, 90), 7
- H, 15
425 NEXT H
426 RETURN
427 REM SI BEMOL MAIOR
430 FOR H = 1 TO 6
432 CIRCLE (253, 65), 7 - H, 13: CIRCLE (355, 90), 7 - H, 13: CIRCLE (435, 90),
7 - H, 13
433 NEXT H
434 RETURN
435 REM SI BEMOL MAIOR INVISIVEL
436 FOR H = 1 TO 6
437 CIRCLE (253, 65), 7 - H, 8: CIRCLE (355, 90), 7 - H, 15: CIRCLE (435, 90), 7
- H, 15
440 NEXT H
441 RETURN
442 REM R BEMOL MAIOR
445 FOR H = 1 TO 6
447 CIRCLE (333, 65), 7 - H, 13: CIRCLE (435, 90), 7 - H, 13: CIRCLE (493, 65),
7 - H, 13
448 NEXT H
449 RETURN
451 REM R BEMOL MAIOR INVISIVEL
452 FOR H = 1 TO 6
453 CIRCLE (333, 65), 7 - H, 8: CIRCLE (435, 90), 7 - H, 15: CIRCLE (493, 65), 7
- H, 8
454 NEXT H
455 RETURN
456 REM SOL BEMOL MENOR
457 FOR H = 1 TO 6
458 CIRCLE (175, 65), 7 - H, 13: CIRCLE (235, 90), 7 - H, 13: CIRCLE (335, 65),
7 - H, 13
459 NEXT H
460 RETURN
461 REM SOL BEMOL MENOR INVISIVEL
462 FOR H = 1 TO 6
465 CIRCLE (175, 65), 7 - H, 8: CIRCLE (235, 90), 7 - H, 15: CIRCLE (335, 65), 7
- H, 8
467 NEXT H
468 RETURN
470 REM MI BEMOL MAIOR
472 FOR H = 1 TO 6
475 CIRCLE (93, 65), 7 - H, 13: CIRCLE (195, 90), 7 - H, 13: CIRCLE (253, 65), 7
- H, 13
480 NEXT H
481 RETURN
482 REM MI BEMOL MAIOR INVISIVEL
483 FOR H = 1 TO 6
485 CIRCLE (93, 65), 7 - H, 8: CIRCLE (195, 90), 7 - H, 15: CIRCLE (253, 65), 7
- H, 8
487 NEXT H
488 RETURN
490 REM SOL MAIOR COM STIMA
492 FOR H = 1 TO 6
494 CIRCLE (195, 90), 7 - H, 13: CIRCLE (275, 90), 7 - H, 13: CIRCLE (355, 90),
7 - H, 13: CIRCLE (435, 90), 7 - H, 13
495 NEXT H
496 RETURN
497 REM SOL MAIOR COM STIMA INVISIVEL
500 FOR H = 1 TO 6
502 CIRCLE (195, 90), 7 - H, 15: CIRCLE (275, 90), 7 - H, 15: CIRCLE (355, 90),
7 - H, 15: CIRCLE (435, 90), 7 - H, 15
505 NEXT H
506 RETURN
507 REM F MAIOR COM STIMA
510 FOR H = 1 TO 6
512 CIRCLE (155, 90), 7 - H, 13: CIRCLE (230, 90), 7 - H, 13: CIRCLE (315, 90),
7 - H, 13: CIRCLE (395, 90), 7 - H, 13
515 NEXT H
516 RETURN
517 REM F MAIOR COM STIMA INVISIVEL
518 FOR H = 1 TO 6
520 CIRCLE (155, 90), 7 - H, 15: CIRCLE (230, 90), 7 - H, 15: CIRCLE (315, 90),
7 - H, 15: CIRCLE (395, 90), 7 - H, 15
525 NEXT H
526 RETURN
527 REM L MAIOR COM STIMA
530 FOR H = 1 TO 6
532 CIRCLE (235, 90), 7 - H, 13: CIRCLE (333, 65), 7 - H, 13: CIRCLE (395, 90),
7 - H, 13: CIRCLE (475, 90), 7 - H, 13
533 NEXT H
534 RETURN
535 REM LA MAIOR COM STIMA INVISIVEL
536 FOR H = 1 TO 6
538 CIRCLE (235, 90), 7 - H, 15: CIRCLE (333, 65), 7 - H, 8: CIRCLE (395, 90), 7
- H, 15: CIRCLE (475, 90), 7 - H, 15
540 NEXT H
541 RETURN
545 REM D MENOR COM STIMA
550 FOR H = 1 TO 6
555 CIRCLE (315, 90), 7 - H, 13: CIRCLE (375, 65), 7 - H, 13: CIRCLE (475, 90),
7 - H, 13: CIRCLE (537, 65), 7 - H, 13
560 NEXT H
561 RETURN
565 REM DO MENOR COM STIMA INVISIVEL
570 FOR H = 1 TO 6
575 CIRCLE (315, 90), 7 - H, 15: CIRCLE (375, 65), 7 - H, 8: CIRCLE (475, 90), 7
- H, 15: CIRCLE (537, 65), 7 - H, 8
580 NEXT H
581 RETURN
585 REM MI BEMOL MENOR
590 FOR H = 1 TO 6
595 CIRCLE (375, 65), 7 - H, 13: CIRCLE (455, 65), 7 - H, 13: CIRCLE (535, 65),
7 - H, 13
600 NEXT H
601 RETURN
605 REM MI BEMOL MENOR INVISIVEL
610 FOR H = 1 TO 6
615 CIRCLE (375, 65), 7 - H, 8: CIRCLE (455, 65), 7 - H, 8: CIRCLE (535, 65), 7
- H, 8
620 NEXT H
621 RETURN
625 REM L BEMOL MAIOR
630 FOR H = 1 TO 6
635 CIRCLE (217, 65), 7 - H, 13: CIRCLE (315, 90), 7 - H, 13: CIRCLE (377, 65),
7 - H, 13
640 NEXT H
641 RETURN
645 REM L BEMOL MAIOR INVISIVEL
655 FOR H = 1 TO 6
660 CIRCLE (217, 65), 7 - H, 8: CIRCLE (315, 90), 7 - H, 15: CIRCLE (377, 65), 7
- H, 8
665 NEXT H
666 RETURN
670 REM SOL BEMOL MAIOR
675 FOR H = 1 TO 6
680 CIRCLE (175, 65), 7 - H, 13: CIRCLE (255, 65), 7 - H, 13: CIRCLE (335, 65),
7 - H, 13
685 NEXT H
686 RETURN
690 REM SOL BEMOL MAIOR INVISIVEL
691 FOR H = 1 TO 6
695 CIRCLE (175, 65), 7 - H, 8: CIRCLE (255, 65), 7 - H, 8: CIRCLE (335, 65), 7
- H, 8
696 NEXT H
697 RETURN
700 COLOR 8: LOCATE 15, 3: INPUT ""; A$
705 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
710 IF A$ = "R" THEN CLS : GOTO 50
715 IF A$ = "I" THEN GOSUB 3000: GOSUB 142: GOTO 700
720 IF A$ = "FA MAIOR" THEN COLOR 15: GOSUB 4055: RETURN
725 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "FA MAIOR" THEN GOSUB
4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB 4090: GOTO 700
730 COLOR 8: LOCATE 15, 3: INPUT ""; A$
735 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
740 IF A$ = "R" THEN CLS : GOTO 50
745 IF A$ = "I" THEN GOSUB 3000: GOSUB 60: GOSUB 160: GOTO 730
750 IF A$ = "SOL MAIOR" THEN COLOR 15: GOSUB 4055: RETURN
752 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "SOL MAIOR" THEN GOSUB
4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB 4090: GOTO 730
755 COLOR 8: LOCATE 15, 3: INPUT ""; A$
760 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
762 IF A$ = "R" THEN CLS : GOTO 50
764 IF A$ = "I" THEN GOSUB 3000: GOSUB 178: GOTO 755
766 IF A$ = "LA MENOR" THEN COLOR 15: GOSUB 4055: RETURN
768 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "LA MENOR" THEN GOSUB
4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB 4090: GOTO 755
770 COLOR 8: LOCATE 15, 3: INPUT ""; A$
772 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
774 IF A$ = "R" THEN CLS : GOTO 50
776 IF A$ = "I" THEN GOSUB 3000: GOSUB 195: GOTO 770
778 IF A$ = "RE MAIOR" THEN COLOR 15: GOSUB 4055: RETURN
780 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "RE MAIOR" THEN GOSUB
4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB 4090: GOTO 770
785 COLOR 8: LOCATE 15, 3: INPUT ""; A$
787 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
790 IF A$ = "R" THEN CLS : GOTO 50
792 IF A$ = "I" THEN GOSUB 3000: GOSUB 225: GOTO 785
793 IF A$ = "DO MAIOR" THEN COLOR 15: GOSUB 4055: RETURN
795 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "DO MAIOR" THEN GOSUB
4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB 4090: GOTO 785
798 COLOR 8: LOCATE 15, 3: INPUT ""; A$
799 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
800 IF A$ = "R" THEN CLS : GOTO 50
802 IF A$ = "I" THEN GOSUB 3000: GOSUB 257: GOTO 798
804 IF A$ = "SI MAIOR" THEN COLOR 15: GOSUB 4055: RETURN
805 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "SI MAIOR" THEN GOSUB
4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB 4090: GOTO 798
807 COLOR 8: LOCATE 15, 3: INPUT ""; A$
809 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
811 IF A$ = "R" THEN CLS : GOTO 50
813 IF A$ = "I" THEN GOSUB 3000: GOSUB 280: GOTO 807
815 IF A$ = "MI MENOR" THEN COLOR 15: GOSUB 4055: RETURN
817 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "MI MENOR" THEN GOSUB
4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB 4090: GOTO 807
820 COLOR 8: LOCATE 15, 3: INPUT ""; A$
822 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
824 IF A$ = "R" THEN CLS : GOTO 50
825 IF A$ = "I" THEN GOSUB 3000: GOSUB 300: GOTO 820
827 IF A$ = "SI BEMOL MENOR" OR A$ = "LA SUSTENIDO MENOR" THEN COLOR 15: GOSUB
4055: RETURN
828 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "SI BEMOL MENOR" AND A$
<> "LA SUSTENIDO MENOR" THEN GOSUB 4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB
4090: GOTO 820
830 COLOR 8: LOCATE 15, 3: INPUT ""; A$
832 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
834 IF A$ = "R" THEN CLS : GOTO 50
836 IF A$ = "I" THEN GOSUB 3000: GOSUB 322: GOTO 830
837 IF A$ = "SOL MENOR" THEN COLOR 15: GOSUB 4055: RETURN
839 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "SOL MENOR" THEN GOSUB
4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB 4090: GOTO 830
840 COLOR 8: LOCATE 15, 3: INPUT ""; A$
842 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
844 IF A$ = "R" THEN CLS : GOTO 50
846 IF A$ = "I" THEN GOSUB 3000: GOSUB 355: GOTO 840
848 IF A$ = "LA MAIOR" THEN COLOR 15: GOSUB 4055: RETURN
849 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "LA MAIOR" THEN GOSUB
4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB 4090: GOTO 840
850 COLOR 8: LOCATE 15, 3: INPUT ""; A$
852 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
854 IF A$ = "R" THEN CLS : GOTO 50
855 IF A$ = "I" THEN GOSUB 3000: GOSUB 377: GOTO 850
856 IF A$ = "DO MENOR" THEN COLOR 15: GOSUB 4055: RETURN
858 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "DO MENOR" THEN GOSUB
4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB 4090: GOTO 850
860 COLOR 8: LOCATE 15, 3: INPUT ""; A$
862 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
864 IF A$ = "R" THEN CLS : GOTO 50
866 IF A$ = "I" THEN GOSUB 3000: GOSUB 397: GOTO 860
867 IF A$ = "MI MAIOR" THEN COLOR 15: GOSUB 4055: RETURN
869 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "MI MAIOR" THEN GOSUB
4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB 4090: GOTO 860
870 COLOR 8: LOCATE 15, 3: INPUT ""; A$
875 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
877 IF A$ = "R" THEN CLS : GOTO 50
879 IF A$ = "I" THEN GOSUB 3000: GOSUB 870: GOTO 870
880 IF A$ = "SI BEMOL MAIOR" OR A$ = "LA SUSTENIDO MAIOR" THEN COLOR 15: GOSUB
4055: RETURN
882 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "SI BEMOL MAIOR" AND A$
<> "LA SUSTENIDO MAIOR" THEN GOSUB 4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB
4090: GOTO 870
885 COLOR 8: LOCATE 15, 3: INPUT ""; A$
890 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
895 IF A$ = "R" THEN CLS : GOTO 50
897 IF A$ = "I" THEN GOSUB 3000: GOSUB 442: GOTO 885
900 IF A$ = "RE BEMOL MAIOR" OR A$ = "DO SUSTENIDO MAIOR" THEN COLOR 15: GOSUB
4055: RETURN
905 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "RE BEMOL MAIOR" AND A$
<> "DO SUSTENIDO MAIOR" THEN GOSUB 4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB
4090: GOTO 885
910 COLOR 8: LOCATE 15, 3: INPUT ""; A$
912 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
913 IF A$ = "R" THEN CLS : GOTO 50
915 IF A$ = "I" THEN GOSUB 3000: GOSUB 456: GOTO 910
917 IF A$ = "FA SUSTENIDO MENOR" OR A$ = "SOL BEMOL MENOR" THEN COLOR 15: GOSUB
4055: RETURN
919 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "FA SUSTENIDO MENOR" AND
A$ <> "SOL BEMOL MENOR" THEN GOSUB 4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB
4090: GOTO 910
920 COLOR 8: LOCATE 15, 3: INPUT ""; A$
922 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
924 IF A$ = "R" THEN CLS : GOTO 50
926 IF A$ = "I" THEN GOSUB 3000: GOSUB 470: GOTO 920
927 IF A$ = "MI BEMOL MAIOR" OR A$ = "RE SUSTENIDO MAIOR" THEN COLOR 15: GOSUB
4055: RETURN
928 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "MI BEMOL MAIOR" AND A$
<> "RE SUSTENIDO MAIOR" THEN GOSUB 4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB
4090: GOTO 920
930 COLOR 8: LOCATE 15, 3: INPUT ""; A$
932 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
934 IF A$ = "R" THEN CLS : GOTO 50
935 IF A$ = "I" THEN GOSUB 3000: GOSUB 490: GOTO 930
936 IF A$ = "SOL MAIOR COM SETIMA" OR A$ = "SOL COM SETIMA" THEN COLOR 15: GOSUB
4055: RETURN
937 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "SOL MAIOR COM SETIMA"
AND A$ <> "SOL COM SETIMA" THEN GOSUB 4080: COLOR 15: GOSUB 4055: GOSUB 4100:
GOSUB 4090: GOTO 930
940 COLOR 8: LOCATE 15, 3: INPUT ""; A$
942 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
944 IF A$ = "R" THEN CLS : GOTO 50
946 IF A$ = "I" THEN GOSUB 3000: GOSUB 507: GOTO 940
968 IF A$ = "FA MAIOR COM SETIMA" OR A$ = "FA COM SETIMA" THEN COLOR 15: GOSUB
4055: RETURN
970 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "FA MAIOR COM SETIMA" AND
A$ = "FA COM SETIMA" THEN GOSUB 4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB
4090: GOTO 940
975 COLOR 8: LOCATE 15, 3: INPUT ""; A$
976 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
977 IF A$ = "R" THEN CLS : GOTO 50
978 IF A$ = "I" THEN GOSUB 3000: GOSUB 527: GOTO 975
979 IF A$ = "LA MAIOR COM SETIMA" OR A$ = "LA COM SETIMA" THEN COLOR 15: GOSUB
4055: RETURN
980 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "LA MAIOR COM SETIMA" AND
A$ <> "LA COM SETIMA" THEN GOSUB 4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB
4090: GOTO 975
985 COLOR 8: LOCATE 15, 3: INPUT ""; A$
986 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
987 IF A$ = "R" THEN CLS : GOTO 50
988 IF A$ = "I" THEN GOSUB 3000: GOSUB 545: GOTO 985
989 IF A$ = "DO MENOR COM SETIMA" THEN COLOR 15: GOSUB 4055: RETURN
990 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "DO MENOR COM SETIMA"
THEN GOSUB 4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB 4090: GOTO 985
995 COLOR 8: LOCATE 15, 3: INPUT ""; A$
997 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
998 IF A$ = "R" THEN CLS : GOTO 50
999 IF A$ = "I" THEN GOSUB 3000: GOSUB 585: GOTO 995
1000 IF A$ = "MI BEMOL MENOR" OR A$ = "RE SUSTENIDO MENOR" THEN COLOR 15: GOSUB
4055: RETURN
1010 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "MI BEMOL MENOR" AND A$
<> "RE SUSTENIDO MENOR" THEN GOSUB 4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB
4090: GOTO 995
1020 COLOR 8: LOCATE 15, 3: INPUT ""; A$
1021 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
1022 IF A$ = "R" THEN CLS : GOTO 50
1024 IF A$ = "I" THEN GOSUB 3000: GOSUB 625: GOTO 1020
1025 IF A$ = "LA BEMOL MAIOR" OR A$ = "SOL SUSTENIDO MAIOR" THEN COLOR 15: GOSUB
4055: RETURN
1026 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "LA BEMOL MAIOR" AND A$
<> "SOL SUSTENIDO MAIOR" THEN GOSUB 4080: COLOR 15: GOSUB 4055: GOSUB 4100:
GOSUB 4090: GOTO 1020
1030 COLOR 8: LOCATE 15, 3: INPUT ""; A$
1032 IF A$ = "V" THEN CLS : RUN "OPTION.BAS"
1034 IF A$ = "R" THEN CLS : RUN "OPTION.BAS"
1035 IF A$ = "I" THEN CLS : GOSUB 3000: GOSUB 670: GOTO 1030
1037 IF A$ = "SOL BEMOL MAIOR" OR A$ = "FA SUSTENIDO MAIOR" THEN COLOR 15: GOSUB
4055: RETURN
1040 IF A$ <> "V" AND A$ <> "R" AND A$ <> "I" AND A$ <> "SOL BEMOL MAIOR" AND A$
<> "FA SUSTENIDO MAIOR" THEN GOSUB 4080: COLOR 15: GOSUB 4055: GOSUB 4100: GOSUB
4090: GOTO 1030
1999 REM ******************** MEMORIA ******************************
2000 GOSUB 60
2001 GOSUB 142: GOSUB 700: GOSUB 149
2005 GOSUB 160: GOSUB 730: GOSUB 170
2010 GOSUB 178: GOSUB 755: GOSUB 186
2015 GOSUB 195: GOSUB 770: GOSUB 210
2020 GOSUB 225: GOSUB 785: GOSUB 240
2025 GOSUB 257: GOSUB 798: GOSUB 267
2030 GOSUB 280: GOSUB 807: GOSUB 290
2035 GOSUB 300: GOSUB 820: GOSUB 310
2040 GOSUB 322: GOSUB 830: GOSUB 343
2045 GOSUB 355: GOSUB 840: GOSUB 365
2050 GOSUB 377: GOSUB 850: GOSUB 387
2055 GOSUB 397: GOSUB 860: GOSUB 415
2060 GOSUB 427: GOSUB 870: GOSUB 435
2065 GOSUB 442: GOSUB 885: GOSUB 451
2070 GOSUB 456: GOSUB 910: GOSUB 461
2075 GOSUB 470: GOSUB 920: GOSUB 482
2080 GOSUB 490: GOSUB 930: GOSUB 497
2085 GOSUB 507: GOSUB 940: GOSUB 517
2090 GOSUB 527: GOSUB 975: GOSUB 535
2095 GOSUB 545: GOSUB 985: GOSUB 565
2100 GOSUB 585: GOSUB 995: GOSUB 605
2105 GOSUB 625: GOSUB 1020: GOSUB 645
2110 GOSUB 670: GOSUB 1030: GOSUB 690
2115 GOTO 2001
3000 REM ********************** INFORMAES *************************
3001 CLS : COLOR 9, 14
3005 COLOR 12, 14: LOCATE 2, 30: PRINT "INFORMAES": LOCATE 3, 30: PRINT
"-----------"
3010 COLOR 8, 14
3012 LOCATE 5, 2: PRINT " ESTE MTODO MUSICAL FOI ELABORADO COM A FINALIDADE DE
AJUDAR O ESTUDANTE"
3014 LOCATE 6, 2: PRINT " A ADQUIRIR PERCEPO OCULAR AO LER ACORDES COM
FACILIDADE,USANDO O MTODO "
3016 LOCATE 7, 2: PRINT " INTERVALICO ANALIZANDO OS TONS E OS SEMITONS NOS
INTERVALOS DE 3,5 E 7."
3018 LOCATE 8, 2: PRINT " QUANDO APARECER UM ACORDE NO TECLADO,VO DEVE DIGITAR
O NOME DO ACORDE"
3020 LOCATE 9, 2: PRINT " POR ESCRITO E SEM ACENTUAO. Exemplo:"
3021 COLOR 5, 14
3022 LOCATE 11, 2: PRINT " DO SUSTENIDO MAIOR"
3024 LOCATE 13, 2: PRINT " FA BEMOL MENOR"
3026 LOCATE 15, 2: PRINT " RE MAIOR 1 INVERCAO"
3028 LOCATE 17, 2: PRINT " SOL COM SETIMA ou SOL MAIOR COM SETIMA"
3030 LOCATE 19, 2: PRINT " SOL SUSTENIDO MAIOR COM SETIMA 3 INVERCAO "
3032 LOCATE 21, 2: PRINT " SI MENOR 2 INVERCAO"
3034 COLOR 3, 14: LOCATE 23, 2: PRINT " ESCOLHA A OPO <C>ontinuar <V>oltar <O>utros..."
3500 X$ = INKEY$: IF X$ = "" THEN 3500
3600 IF X$ <> "C" AND X$ <> "V" AND X$ <> "O" THEN 3500
3700 IF X$ = "C" THEN CLS : GOTO 3710
3705 IF X$ = "V" THEN CLS : GOSUB 60: RETURN
3707 IF X$ = "O" THEN CLS : GOSUB 3900: GOTO 3001
3710 COLOR 9, 14
3715 COLOR 12, 14: LOCATE 2, 30: PRINT "INFORMAES": LOCATE 3, 30: PRINT
"-----------"
3720 COLOR 8, 14
3725 LOCATE 5, 2: PRINT " LEMBRE-SE: OS NICOS INTERVALOS EM QUALQUER ESCALA QUE
TEM SEMITON; DO"
3727 LOCATE 6, 2: PRINT " III PARA O IV GRAU e do VII PARA VIII GRAU."
3730 LOCATE 8, 2: PRINT " LEMBRE-SE: A 3 MAIOR TEM 2 TONS e a 3 menor TEM 1
TON E MEIO."
3732 LOCATE 9, 2: PRINT " O SEMITON O MENOR INTERVALO EXISTENTE NO TECLADO;E
UM TON IGUAL A 2"
3734 LOCATE 10, 2: PRINT " SEMITONS."
3735 LOCATE 12, 2: PRINT " OS ACORDES TAMBM PODEM SER INVERTIDOS;NESTE CASO
EMPREGA-SE DEPOIS DO "
3737 LOCATE 13, 2: PRINT " ACORDE: 1 INVERCAO,2 INVERCAO ou 3 INVERCAO. SEMPRE
SEM ACENTUAO. "
3739 LOCATE 14, 2: PRINT " ESTES ACORDES FORAM ELABORADO PARA SEREM DIGITADO SEM
A ACENTUAO PARA"
3741 LOCATE 15, 2: PRINT " FACILITAR O MANUSEIO."
3743 LOCATE 17, 2: PRINT " VO DEVE MEMORIZAR BEM AS NOTAS NO TECLADO,E ESTUDAR
O ASSUNTO: TONS E"
3745 LOCATE 18, 2: PRINT " SEMITONS, BEM COMO OS INTERVALOS PRINCIPAIS USADOS EM
UM ACORDE."
3755 COLOR 3, 14: LOCATE 23, 2: PRINT " ESCOLHA A OPO: <C>ontinuar <V>oltar"
3757 X$ = INKEY$: IF X$ = "" THEN 3757
3760 IF X$ <> "C" AND X$ <> "V" THEN 3757
3762 IF X$ = "C" THEN CLS : GOTO 3770
3765 IF X$ = "V" THEN CLS : GOSUB 60: RETURN
3770 GOSUB 60
3775 COLOR 6: LOCATE 23, 10: PRINT " ESCOLHA A OPO <C>ontinua <V>olta... "
3780 COLOR 15: LOCATE 2, 10: PRINT "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
3781 COLOR 5: LOCATE 2, 23: PRINT "MEMORIZE COM ATENO ESTAS NOTAS"
3782 COLOR 15: LOCATE 3, 10: PRINT "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
3784 COLOR 1: LOCATE 15, 2: PRINT " D R Mi F Sol L Si D R Mi F Sol L Si
D "
3800 X$ = INKEY$: IF X$ = "" THEN 3800
3807 IF X$ <> "C" AND X$ <> "V" THEN 3800
3805 IF X$ = "C" THEN CLS : GOTO 3820
3810 IF X$ = "V" THEN CLS : GOSUB 60: RETURN
3820 GOSUB 60
3825 COLOR 6: LOCATE 23, 10: PRINT " ESCOLHA A OPO <C>ontinua <V>olta... "
3830 COLOR 15: LOCATE 2, 10: PRINT "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
3835 COLOR 5: LOCATE 2, 22: PRINT "MEMORIZE COM ATENO OS INTERVALOS"
3840 COLOR 15: LOCATE 3, 10: PRINT "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
3842 COLOR 1: LOCATE 15, 2: PRINT " TN TN SM TM TN TN SM TN TN SN TN TN TN SN"
3844 X$ = INKEY$: IF X$ = "" THEN 3844
3846 IF X$ <> "C" AND X$ <> "V" THEN 3844
3848 IF X$ = "C" THEN CLS : GOTO 3000
3850 IF X$ = "V" THEN CLS : GOSUB 60: RETURN
3900 REM *********************** OUTROS **********************
3905 COLOR 15, 1
3910 COLOR 6: LOCATE 23, 10: PRINT " ESCOLHA A OPO <C>ontinua <V>oltar... "
3915 COLOR 15, 1
3920 LOCATE 2, 2: PRINT " Este treinamento de acordes proporcionar uma grande
facilidade de acompa-"
3925 LOCATE 3, 2: PRINT "nhar diversas msicas,quer por ouvido quer por msica.
Junto com os acordes "
3930 LOCATE 4, 2: PRINT "temos a melodia; que nada mais do que a sucesso de
notas uma aps outra for-"
3935 LOCATE 5, 2: PRINT "mando um sentido musical."
3940 COLOR 11, 1: LOCATE 6, 2: PRINT " Vo pode empregar em cima de uma
melodia,v rios acordes. o que chamamos de"
3942 LOCATE 7, 2: PRINT "concatenar a melodia,ou encadear. Num encadeamento meldico
vo pode empregar"
3944 LOCATE 8, 2: PRINT "de preferncia a Tnica e a Dominante;ou seja o (I)
grau e o (V) grau,com base"
3945 LOCATE 9, 2: PRINT "na sua escala."
3950 COLOR 14, 1: LOCATE 10, 2: PRINT " Cada msica tem uma tonalidade;por sua
vez cada tonalidade tem sua escala,"
3955 LOCATE 11, 2: PRINT "por sua vez cada escala de uma tonalidade tem seus
acordes com base nos graus."
3960 COLOR 10, 1: LOCATE 13, 2: PRINT " Por exemplo: com base na tonalidade de
D Maior. Seu II grau R menor (Dm)"
3965 LOCATE 14, 2: PRINT "seu V grau Sol Maior (G),seu VII grau Si menor com
quinta diminuta (Bm5-)."
3970 LOCATE 15, 2: PRINT " Para verificar isto basta construir a escala de D
Maior de D D,e depois"
3975 LOCATE 16, 2: PRINT "que embregar os graus formar em cima de cada
nota,grupos de trades ou seja "
3980 LOCATE 17, 2: PRINT "notas sobrepostas em intervalos de teras.Depois
analizando cada uma com base"
3985 LOCATE 18, 2: PRINT "nos intervalos,vo achar as Cfra que ir
identificar o acorde;o qual poder "
3990 LOCATE 19, 2: PRINT "ser empregado durante uma msica tocada em D Maior."
3994 X$ = INKEY$: IF X$ = "" THEN 3994
3995 IF X$ <> "C" AND X$ <> "V" THEN 3994
3996 IF X$ = "C" THEN CLS : GOTO 3710
3997 IF X$ = "V" THEN RETURN
4000 REM *********** CONTINUAO DOS ACORDES
4005 GOSUB 60
4007 REM DO SUSTENIDO MENOR
4010 FOR H = 1 TO 6
4015 CIRCLE (335, 65), 7 - H, 13: CIRCLE (395, 90), 7 - H, 13: CIRCLE (495, 65),
7 - H, 13
4020 NEXT H
4025 REM DO SUSTENIDO MENOR INVISIVEL
4030 FOR H = 1 TO 6
4035 CIRCLE (335, 65), 7 - H, 8: CIRCLE (395, 90), 7 - H, 15: CIRCLE (495, 65),
7 - H, 8
4037 NEXT H
4040 GOTO 4120
4050 REM ************ LIMPADOR DE ARGUMENTOS E INSTRUES DE ERRO ********
4055 COLOR 15
4060 FOR T = 1 TO 75
4065 LOCATE 15, 3 + T: PRINT ""
4070 NEXT T
4075 RETURN
4080 COLOR 14
4081 FOR H = 1 TO 40
4082 LOCATE 17, 1: PRINT "": LOCATE 17, 1 + H: PRINT ""
4083 LOCATE 18, 1: PRINT "": LOCATE 18, 1 + H: PRINT ""
4084 NEXT H
4085 RETURN
4090 COLOR 14
4092 FOR H = 1 TO 30
4094 LOCATE 20, 8 + H: PRINT ""
4095 NEXT H
4097 RETURN
4100 COLOR 8
4105 LOCATE 20, 10: PRINT "ERROU": BEEP: BEEP: BEEP
4110 FOR G = 1 TO 9500: NEXT G
4115 RETURN
4120 REM ************* CONTINUAO DA LINHA 4037 **********
4125 REM R MENOR
4130 FOR H = 1 TO 6
4135 CIRCLE (355, 90), 7 - H, 13: CIRCLE (515, 90), 7 - H, 13: CIRCLE (435, 90),
7 - H, 13
4140 NEXT H
4145 REM R MENOR INVISIVEL
4147 FOR H = 1 TO 6
4150 CIRCLE (355, 90), 7 - H, 15: CIRCLE (515, 90), 7 - H, 15: CIRCLE (435, 90),
7 - H, 15
4155 NEXT H
4160 REM MI MAIOR COM SETIMA
4165 FOR H = 1 TO 6
4170 CIRCLE (115, 90), 7 - H, 13: CIRCLE (215, 65), 7 - H, 13: CIRCLE (270, 90),
7 - H, 13: CIRCLE (355, 90), 7 - H, 13
4175 NEXT H
4180 REM MI MAIOR COM SETIMA INVISIVEL
4185 FOR H = 1 TO 6
4190 CIRCLE (115, 90), 7 - H, 15: CIRCLE (215, 65), 7 - H, 8: CIRCLE (270, 90),
7 - H, 15: CIRCLE (355, 90), 7 - H, 15
4195 NEXT H
4200 REM FA MENOR
4205 FOR H = 1 TO 6
4210 CIRCLE (155, 90), 7 - H, 13: CIRCLE (215, 65), 7 - H, 13: CIRCLE (315, 90),
7 - H, 13
4215 NEXT H
4220 REM FA MENOR INVISIVEL
4225 FOR H = 1 TO 6
4230 CIRCLE (155, 90), 7 - H, 15: CIRCLE (215, 65), 7 - H, 8: CIRCLE (315, 90),
7 - H, 15
4235 NEXT H
4240 REM DO MAIOR COM SETIMA
4245 FOR H = 1 TO 6
4250 CIRCLE (35, 90), 7 - H, 13: CIRCLE (115, 90), 7 - H, 13: CIRCLE (195, 90),
7 - H, 13: CIRCLE (255, 65), 7 - H, 13
4255 NEXT H
4260 REM DO MAIOR COM SETIMA INVISIVEL
4265 FOR H = 1 TO 6
4270 CIRCLE (35, 90), 7 - H, 15: CIRCLE (115, 90), 7 - H, 15: CIRCLE (195, 90),
7 - H, 15: CIRCLE (255, 65), 7 - H, 8
4275 NEXT H
4280 REM SOL SUSTENIDO MENOR
4285 FOR H = 1 TO 6
4290 CIRCLE (215, 65), 7 - H, 13: CIRCLE (275, 90), 7 - H, 13: CIRCLE (375, 65),
7 - H, 13
4295 NEXT H
4300 REM SOL SUSTENIDO MENOR INVISIVEL
4304 FOR H = 1 TO 6
4305 CIRCLE (215, 65), 7 - H, 8: CIRCLE (275, 90), 7 - H, 15: CIRCLE (375, 65),
7 - H, 8
4310 NEXT H
Nome do Arquivo: RECIBO.BAS
10 SCREEN 8: COLOR 14, 1: CLS
15 LOCATE 2, 27: PRINT "RECIBO DE PAGAMENTO": LOCATE 3, 27: PRINT
"-------------------"
20 LOCATE 5, 2: PRINT "DIGITE O NOME:"
25 LOCATE 5, 16: INPUT ""; A$
30 LOCATE 7, 2: PRINT "DATA ATUAL:"
35 LOCATE 7, 13: INPUT ""; B$
40 LOCATE 9, 2: PRINT "DATA DO VENCIMENTO:"
45 LOCATE 9, 21: INPUT ""; C$
50 LOCATE 11, 2: PRINT "HISTORICO:"
55 LOCATE 11, 13: INPUT ""; D$
60 LOCATE 13, 2: PRINT "CIDADE:"
65 LOCATE 13, 11: INPUT ""; E$
70 LOCATE 15, 2: PRINT "VALOR POR ESCRITO:"
75 LOCATE 15, 21: INPUT ""; F$
80 LOCATE 17, 2: PRINT "VALOR NUMRICO:"
85 LOCATE 17, 18: INPUT ""; G$
90 LOCATE 19, 2: PRINT "CPF:"
95 LOCATE 19, 7: INPUT ""; H$
96 LOCATE 21, 2: PRINT "No do Recibo:"
97 LOCATE 21, 16: INPUT ""; I$
100 COLOR 10, 1: LOCATE 13, 33: PRINT "VOE DESEJA IMPRIMIR? <S>im <N>o "
105 LOCATE 14, 35: PRINT "<V>oltar ao Option."
110 X$ = INKEY$: IF X$ = "" THEN 110
120 IF X$ <> "S" AND X$ <> "N" AND X$ <> "s" AND X$ <> "n" AND X$ <> "V" AND X$
<> "v" THEN 110
130 IF X$ = "S" OR X$ = "s" THEN 150
140 IF X$ = "N" OR X$ = "n" THEN 10
145 IF X$ = "V" OR X$ = "v" THEN RUN "OPTION.BAS"
150 REM ************* ELABORAO DO RECIBO ***********
160 LPRINT
162 LPRINT
163 LPRINT CHR$(27); "E"; CHR$(14);
165 LPRINT " RECIBO DE PAGAMENTO"; CHR$(20)
166 LPRINT CHR$(27); "E"; CHR$(14);
168 LPRINT " -------------------"; CHR$(20)
170 LPRINT
175 LPRINT CHR$(14); " No "; I$
176 LPRINT
180 LPRINT CHR$(27); "G";
182 LPRINT " NOME: "; A$; " VENCIMENTO:"; C$
185 LPRINT " CPF: "; H$
190 LPRINT
195 LPRINT " Recebemos a quantia de:"
200 LPRINT
205 LPRINT " "; F$
210 LPRINT
"----------------------------------------------------------------------"
220 LPRINT " Referente ao:"
225 LPRINT
230 LPRINT " "; D$
235 LPRINT
"----------------------------------------------------------------------"
240 LPRINT
245 LPRINT " "; E$; " "; B$
250 LPRINT
255 CLS : LOCATE 13, 33: PRINT " Escolha a opo <T>irar outro <I>niciar <V>oltar
ao Option"
260 X$ = INKEY$: IF X$ = "" THEN 260
265 IF X$ <> "T" AND X$ <> "I" AND X$ <> "V" THEN 260
270 IF X$ = "T" THEN 150
275 IF X$ = "I" THEN CLS : GOTO 10
280 IF X$ = "V" THEN RUN "OPTION.BAS"
Veja Todos os Projetos (*.BAS) que eu fiz nesta Linguagem - Faa o Download