Plays several South American songs.
Content
Image Gallery
Source Code
1 BORDER 1: PAPER 5: BRIGHT 1: CLS : PRINT "LOADING;PROP UP KEYBOARD FOR SOUND!": PAUSE 0: LOAD "20090A"SCREEN$
2 LET MENU=155
5 GO SUB 1000: BEEP .4,7: GO SUB 1015: FOR B=1 TO 10: READ D,F: BEEP D,F: NEXT B
10 DATA 1.8,7,.2,4,.2,5,.4,7,.4,9,.2,11,.4,12,.2,9,.4,11,.4,7
15 GO SUB 1035: BEEP 2.2,5: GO SUB 1999: PAUSE 30: GO SUB 1000: GO SUB 1035: FOR B=1 TO 11: READ D,F: BEEP D,F: NEXT B
20 DATA .4,7,1.8,14,.2,16,.2,12,.4,14,.4,11,.2,12,.4,11,.2,9,.4,7,.4,5
25 GO SUB 1015: BEEP 1.8,4: GO SUB 1999: PAUSE 30: GO SUB 1000: GO SUB 1015: FOR B=1 TO 11: READ D,F: BEEP D,F: NEXT B
30 DATA .8,7,.2,12,.4,12,.2,12,.4,12,.4,11,.2,14,.4,14,.2,12,.4,11,.4,9
35 GO SUB 1035: FOR B=1 TO 12: READ D,F: BEEP D,F: NEXT B
40 DATA .4,9,2.6,7,.2,11,.4,11,.2,11,.4,11,.4,9,.2,9,.4,7,.2,7,.4,7,.4,9
45 GO SUB 1015: BEEP .2,7: BEEP .2,5: BEEP 2.8,4
50 BEEP .4,7: GO SUB 1015: FOR B=1 TO 10: READ D,F: BEEP D,F: NEXT B
55 DATA 1.8,7,.2,4,.2,5,.4,7,.4,9,.2,11,.4,12,.2,9,.4,11,.4,7
60 GO SUB 1035: BEEP 2.2,5: GO SUB 1999: PAUSE 30: GO SUB 1000: GO SUB 1035: FOR B=1 TO 11: READ D,F: BEEP D,F: NEXT B
65 DATA .4,7,2,14,.2,16,.2,12,.4,14,.4,11,.2,12,.4,11,.2,9,.4,7,.4,5
70 GO SUB 1015: BEEP 1.8,4: GO SUB 1999: PAUSE 30: GO SUB 1000: GO SUB 1015: FOR B=1 TO 11: READ D,F: BEEP D,F: NEXT B
75 DATA .8,7,.2,12,.4,12,.2,12,.4,12,.4,11,.2,14,.4,14,.2,12,.4,11,.4,9
80 GO SUB 1035: FOR B=1 TO 12: READ D,F: BEEP D,F: NEXT B
85 DATA .4,9,3,7,.2,11,.4,11,.2,11,.4,11,.4,9,.2,9,.4,7,.2,7,.4,7,.4,9
90 GO SUB 1015: BEEP .2,7: BEEP .2,5: BEEP 1.4,4
95 GO SUB 1999: FOR B=1 TO 5: READ D,F: BEEP D,F: NEXT B
100 DATA .2,7,.2,7,.2,7,.4,9,.2,6
105 GO SUB 1000: GO SUB 1015: BEEP 1.4,7: GO SUB 1999: PAUSE 30: GO SUB 1000: GO SUB 1015: FOR B=1 TO 5: READ D,F: BEEP D,F: NEXT B
110 DATA .2,7,.2,7,.2,7,.4,7,.2,9
115 GO SUB 1035: FOR B=1 TO 17: READ D,F: BEEP D,F: NEXT B
120 DATA .8,11,1.2,14,.2,16,.2,12,.2,14,.4,11,.2,12,.2,9,.4,11,.2,12,.4,16,.4,14,.2,2,.4,4,.2,5,.4,9,.4,7
125 GO SUB 1015: BEEP 1.4,4: GO SUB 1999: PAUSE 30: BEEP .2,7: BEEP .2,7: BEEP 2,7: BEEP .4,9: BEEP .2,6: GO SUB 1000: GO SUB 1015: BEEP 1.4,7: GO SUB 1999: PAUSE 30: GO SUB 1000: GO SUB 1015: FOR B=1 TO 5: READ D,F: BEEP D,F: NEXT B
130 DATA .2,7,.2,7,.2,7,.4,7,.2,9
135 GO SUB 1035: FOR B=1 TO 17: READ D,F: BEEP D,F: NEXT B
140 DATA .8,11,1,14,.2,17,.2,16,.2,14,.4,16,.2,12,.2,14,.4,11,.2,12,.4,16,.4,14,.2,2,.4,4,.2,5,.4,9,.4,7
145 GO SUB 1015: BEEP 2.6,12
150 GO SUB 1999: PAUSE 180: CLS
155 INK 1: PRINT AT 3,10;"Y LAS OTRAS";'''"1. ""GRANADA""";''"2. ""PERFIDIA""";''"3. ""BRAZIL""";''"4. ""SOLAMENTE UNA VEZ"" (""YOU BELONG TO MY HEART"")"
160 INPUT "YOUR CHOICE BY NUMBER ";C: IF C<0 OR C>4 THEN GO TO 155
170 CLS : GO TO C*200
200 PRINT AT 11,8;"G R A N A D A";AT 15,2;"de AGUSTIN LARA, Veracruzano"
210 BEEP .25,9: GO SUB 1000: GO SUB 1030: RESTORE 215: FOR B=1 TO 12: READ D,F: BEEP D,F: NEXT B
215 DATA .25,12,.25,12,.25,12,.25,14,.25,14,.25,14,.25,16,.25,16,.25,16,.25,17,.25,19,.25,16
220 GO SUB 1065: BEEP .125,14: BEEP .125,16: BEEP .125,14: GO SUB 1015: FOR B=1 TO 5: READ D,F: BEEP D,F: NEXT B
225 DATA 2.25,12,.25,7,.25,12,.25,12,.25,12
230 GO SUB 1065: BEEP .25,14: BEEP .25,14: BEEP .25,14: GO SUB 1015: FOR B=1 TO 6: READ D,F: BEEP D,F: NEXT B
235 DATA .25,16,.25,16,.25,16,.25,17,.25,19,.25,16
240 GO SUB 1030: FOR B=1 TO 5: READ D,F: BEEP D,F: NEXT B
245 DATA .063,17,.063,19,.063,17,.063,16,2,14
250 GO SUB 1999: PAUSE 30: BEEP .25,9: GO SUB 1000: GO SUB 1030: FOR B=1 TO 12: READ D,F: BEEP D,F: NEXT B
255 DATA .25,12,.25,12,.25,12,.25,14,.25,14,.25,14,.25,16,.25,16,.25,16,.25,17,.25,19,.25,17
260 GO SUB 1055: FOR B=1 TO 5: READ D,F: BEEP D,F: NEXT B
265 DATA .125,21,.125,19,.125,17,2.5,16,.25,16
270 GO SUB 1025: FOR B=1 TO 6: READ D,F: BEEP D,F: NEXT B
275 DATA .25,16,.25,11,.25,12,.25,14,.25,16,.25,19
280 GO SUB 1055: FOR B=1 TO 8: READ D,F: BEEP D,F: NEXT B
285 DATA .125,17,.125,19,.125,17,.25,16,.25,16,.25,16,.25,17,.25,16
290 GO SUB 1025: FOR B=1 TO 6: READ D,F: BEEP D,F: NEXT B
295 DATA .25,16,.25,11,.25,12,.25,14,.25,11,.25,12
300 GO SUB 1055: BEEP .25,9: BEEP .25,8: BEEP .25,9: GO SUB 1015: BEEP .5,12: BEEP .25,9: GO SUB 1030: FOR B=1 TO 12: READ D,F: BEEP D,F: NEXT B
305 DATA .25,12,.25,12,.25,12,.25,14,.25,14,.25,14,.25,16,.25,16,.25,16,.25,17,.25,19,.25,16
310 GO SUB 1065: BEEP .125,14: BEEP .125,16: BEEP .125,14: GO SUB 1015: FOR B=1 TO 5: READ D,F: BEEP D,F: NEXT B
315 DATA 2.25,12,.25,7,.25,12,.25,12,.25,12
320 GO SUB 1065: BEEP .25,14: BEEP .25,14: BEEP .25,14: GO SUB 1015: FOR B=1 TO 6: READ D,F: BEEP D,F: NEXT B
325 DATA .25,16,.25,16,.25,16,.25,17,.25,19,.25,16
330 GO SUB 1030: FOR B=1 TO 5: READ D,F: BEEP D,F: NEXT B
335 DATA .063,17,.063,19,.063,17,.063,16,2,14
340 FOR B=1 TO 7: READ D,F: BEEP D,F: NEXT B
345 DATA .25,12,.25,17,.25,17,.25,17,.25,15,.25,15,.25,15
350 GO SUB 1105: BEEP .25,14: BEEP .25,14: BEEP .25,14: GO SUB 1999: BEEP .25,13: BEEP .25,13: BEEP .25,13: GO SUB 1000: GO SUB 1030: BEEP .25,12: BEEP .25,12: BEEP .25,12: GO SUB 1015: BEEP .25,10: BEEP .25,10: BEEP .25,10
355 GO SUB 1030: BEEP .125,9: BEEP .125,10: BEEP 1,12: BEEP .25,12
360 GO SUB 1065: BEEP .25,17: BEEP .375,17: BEEP .125,17: GO SUB 1015: BEEP .25,19: BEEP .25,17: BEEP .25,19
365 GO SUB 1030: FOR B=1 TO 7: READ D,F: BEEP D,F: NEXT B
370 DATA .125,21,.125,19,.375,17 ,.125,16,.25,19,.25,17,.25,14
375 GO SUB 1015: FOR B=1 TO 7: READ D,F: BEEP D,F: NEXT B
380 DATA .125,16,.125,14,.375,12,.125,12,.25,14,.25,12,.25,14
385 GO SUB 1030: BEEP 1.25,17: GO SUB 1999: PAUSE 90: CLS : GO TO MENU
400 PRINT AT 10,7;"P E R F I D I A";AT 14,5;"de ALBERTO DOMINGUEZ"
405 BEEP .3,7: GO SUB 1000: SOUND 8,15;9,10;10,10: GO SUB 1017: GO SUB 1055: BEEP .9,12: GO SUB 1000: GO SUB 1050: BEEP .15,11: GO SUB 1035: BEEP .15,12: BEEP .15,14: BEEP .15,12: BEEP .15,11
410 GO SUB 1015: BEEP .3,12: BEEP .3,11: SOUND 8,15;9,10;10,10: GO SUB 1055: BEEP 1,9: GO SUB 1000: GO SUB 1050: BEEP .15,11: GO SUB 1035
420 BEEP .15,12: BEEP .15,14: BEEP .15,12: BEEP .15,11: GO SUB 1015: BEEP .15,12: BEEP .15,11: BEEP .15,9: GO SUB 1055: BEEP .45,12: BEEP .15,9
425 GO SUB 1050: BEEP .3,7: BEEP .3,5: BEEP .3,7: BEEP .3,9: BEEP .3,5: GO SUB 1025: BEEP 1.5,4: GO SUB 1999: PAUSE 30: GO SUB 1000: GO SUB 1035: BEEP .3,7: SOUND 8,15;9,10;10,10: GO SUB 1015: GO SUB 1055: BEEP 1,12: GO SUB 1000: GO SUB 1050: BEEP .15,11
430 GO SUB 1035: BEEP .15,12: BEEP .15,14: BEEP .15,12: BEEP .15,11: GO SUB 1015: BEEP .3,12: BEEP .3,11: SOUND 8,15;9,10;10,10:: GO SUB 1055: BEEP 1,9: GO SUB 1000: GO SUB 1050: BEEP .15,11
435 GO SUB 1035: BEEP .15,12: BEEP .15,14: BEEP .15,12: BEEP .15,11: GO SUB 1015: BEEP .3,12: BEEP .3,11: BEEP .3,9: GO SUB 1055: BEEP .45,12: BEEP .15,9
440 GO SUB 1050: RESTORE 445: FOR B=1 TO 5: READ D,F: BEEP D,F: NEXT B
445 DATA .3,7,.3,5,.3,7,.3,9,.3,5
450 GO SUB 1025: BEEP 1,4: GO SUB 1999: PAUSE 30: BEEP .15,2: BEEP .15,4
455 GO SUB 1000: GO SUB 1050: RESTORE 460: FOR B=1 TO 14: READ D,F: BEEP D,F: NEXT B
460 DATA .15,5,.15,5,.15,5,.15,7,.15,9,.15,9,.15,9,.15,8,.45,9,.15,8,.15,9,.15,8,.15,9,.15,11
465 GO SUB 1025: BEEP 1.1,8: GO SUB 1999: PAUSE 40: BEEP .5,11: BEEP .15,12: GO SUB 1000: GO SUB 1050: RESTORE 470: FOR B=1 TO 16: READ D,F: BEEP D,F: NEXT B
470 DATA .15,14,.15,14,.15,14,.15,12,.15,11,.15,11,.15,11,.15,12,.15,11,.15,11,.15,11,.15,9,.15,7,.15,9,.15,7,.15,5
475 GO SUB 1025: BEEP 1.1,4: GO SUB 1999: PAUSE 40: GO SUB 1000: GO SUB 1035: BEEP .3,7: SOUND 8,15;9,10;10,10: GO SUB 1017: GO SUB 1055: BEEP 1.3,12: GO SUB 1000: GO SUB 1050: BEEP .15,11: GO SUB 1035:
480 BEEP .5,12: BEEP .15,14: BEEP .15,12: BEEP .15,11: GO SUB 1015: BEEP .3,12: BEEP .3,11: SOUND 8,10;9,15;10,10: GO SUB 1055: BEEP 1,9: GO SUB 1000: GO SUB 1050: BEEP .15,11
485 GO SUB 1035: BEEP .15,12: BEEP .15,14: BEEP .15,12: BEEP .15,11: GO SUB 1015: BEEP .3,12: BEEP .3,11: BEEP .3,9: GO SUB 1055: BEEP .45,12: BEEP .15,9
490 GO SUB 1050: BEEP .3,7: BEEP .3,5: BEEP .3,7: GO SUB 1035: BEEP .3,9: BEEP .3,14: GO SUB 1017: BEEP 1.3,12
500 GO SUB 1999: PAUSE 180: CLS : GO TO MENU
600 PRINT AT 10,10;"B R A Z I L";AT 14,6;"Samba de ARY BARROSA"
605 BEEP .3,2: GO SUB 1000: GO SUB 1035: RESTORE 610: FOR B=1 TO 8: READ D,F: BEEP D,F: NEXT B
610 DATA 1,11,.15,14,.15,14,.15,11,.15,11,.15,9,.15,9,.15,7
615 GO SUB 1055: BEEP 1,9: GO SUB 1020: RESTORE 620: FOR B=1 TO 7: READ D,F: BEEP D,F: NEXT B
620 DATA .15,14,.15,14,.15,11,.15,11,.15,9,.15,9,.15,7
625 GO SUB 1055: BEEP 1,9: GO SUB 1020: RESTORE 630: FOR B=1 TO 7: READ D,F: BEEP D,F: NEXT B
630 DATA .15,14,.15,14,.15,11,.15,11,.15,9,.15,9,.15,7
635 GO SUB 1035: BEEP .8,11: BEEP .3,6: GO SUB 1055: BEEP .8,4: GO SUB 1020: BEEP .3,6: GO SUB 1035: BEEP .3,11: BEEP .3,11: GO SUB 1999: BEEP .3,10: BEEP .3,9: GO SUB 1000: GO SUB 1025: BEEP 1,14: GO SUB 1050: GO SUB 1025: RESTORE 640: FOR B=1 TO 8: READ D,F: BEEP D,F: NEXT B
640 DATA .15,14,.15,14,.15,13,.15,12,.15,11,.15,10,.15,11,1,14
645 GO SUB 1050: GO SUB 1025: RESTORE 650: FOR B=1 TO 8: READ D,F: BEEP D,F: NEXT B
650 DATA .15,14,.15,14,.15,13,.15,12,.15,11,.15,10,.15,11,1,14
655 GO SUB 1050: GO SUB 1025: RESTORE 660: FOR B=1 TO 7: READ D,F: BEEP D,F: NEXT B
660 DATA .15,14,.15,14,.15,13,.15,12,.15,11,.15,9,.15,11
665 GO SUB 1055: BEEP 1.5,12: GO SUB 1030: PAUSE 30: GO SUB 1055: RESTORE 670: FOR B=1 TO 8: READ D,F: BEEP D,F: NEXT B
670 DATA 1,12,.15,12,.15,12,.15,11,.15,11,.15,9,.15,7,.15,6
675 GO SUB 1035: RESTORE 680: FOR B=1 TO 7: READ D,F: BEEP D,F: NEXT B
680 DATA 1,9,.15,7,.15,9,.15,11,.15,14,.15,11,.15,7
685 GO SUB 1055: BEEP 1.2,7: GO SUB 1020: RESTORE 690: FOR B=1 TO 6: READ D,F: BEEP D,F: NEXT B
690 DATA .3,9,.15,9,.15,9,.3,9,.15,9,.15,7
700 GO SUB 1035: BEEP .9,11: BEEP .3,6: GO SUB 1055: BEEP .8,4: GO SUB 1020: BEEP .3,6: GO SUB 1035: BEEP .9,11: BEEP .3,6: GO SUB 1055: BEEP .9,4: GO SUB 1020: BEEP .3,6: GO SUB 1035: BEEP 1.9,11
705 GO SUB 1999: PAUSE 180: CLS : GO TO MENU
800 PRINT AT 9,7;"S O L A M E N T E";AT 11,9;"U N A V E Z";AT 15,8;"de AGUSTIN LARA"
805 BEEP .2,7: BEEP .2,9: BEEP .4,7: BEEP .2,0: BEEP .2,2: GO SUB 1000: SOUND 9,12;10,14: GO SUB 1017: BEEP 1.8,4: BEEP .2,4: BEEP .6,7: BEEP .2,9: GO SUB 1035: RESTORE 810: FOR B=1 TO 7: READ D,F: BEEP D,F: NEXT B
810 DATA .8,7,1.2,-1,.2,9,.2,11,.4,9,.2,1,.2,2
815 GO SUB 1050: BEEP 1.4,9: BEEP .4,12: GO SUB 1035: BEEP .6,11: BEEP .2,7: GO SUB 1017: BEEP 2,4: GO SUB 1015: RESTORE 820: FOR B=1 TO 14: READ D,F: BEEP D,F: NEXT B
820 DATA .2,12,.2,12,.4,12,.2,11,.2,11,.4,11,.2,9,.2,9,.4,9,.2,7,.2,7,.4,9,.2,4,.2,5
825 GO SUB 1035: BEEP .8,7: BEEP 1.6,-1: GO SUB 1999: PAUSE 45: GO SUB 1000: SOUND 9,12;10,14: GO SUB 1035: RESTORE 830: FOR B=1 TO 14: READ D,F: BEEP D,F: NEXT B
830 DATA .2,7,.2,7,.4,7,.2,5,.2,5,.4,5,.2,4,.2,4,.2,4,.4,2,.2,2,.4,2,.2,0,.2,2
835 GO SUB 1017: BEEP 2,4: GO SUB 1999: BEEP .2,7: BEEP .2,9: BEEP .4,7: BEEP .2,0: BEEP .2,2: GO SUB 1000: SOUND 9,12;10,14
840 GO SUB 1017: BEEP 1.6,4: BEEP .2,4: BEEP .4,7: BEEP .2,9: GO SUB 1035: RESTORE 845: FOR B=1 TO 7: READ D,F: BEEP D,F: NEXT B
845 DATA .8,7,1.2,-1,.2,9,.2,11,.4,9,.2,1,.2,2
850 GO SUB 1050: BEEP 1.4,9: BEEP .4,12: GO SUB 1035: BEEP .6,11: BEEP .2,7: GO SUB 1017: BEEP 1.8,4: GO SUB 1999: PAUSE 45: GO SUB 1000: GO SUB 1015: RESTORE 855: FOR B=1 TO 14: READ D,F: BEEP D,F: NEXT B
855 DATA .2,12,.2,12,.4,12,.2,11,.2,11,.4,11,.2,9,.2,9,.4,9,.2,7,.2,7,.4,9,.2,4,.2,5
860 GO SUB 1035: BEEP .8,7: BEEP 1,-1: GO SUB 1999: PAUSE 45: GO SUB 1000: GO SUB 1035: RESTORE 865: FOR B=1 TO 14: READ D,F: BEEP D,F: NEXT B
865 DATA .2,7,.2,7,.4,7,.2,5,.2,5,.4,5,.2,4,.2,4,.4,4,.2,2,.2,2,.4,9,.2,7,.2,9
870 GO SUB 1017: BEEP 1.4,12: GO SUB 1999: PAUSE 180: CLS : GO TO MENU
1000 SOUND 7,56;8,14;9,15;10,12;11,255;12,255;13,13: RETURN : REM ON
1015 SOUND 0,209;1,0;2,165;3,0;4,139;5,0: RETURN : REM C MAJ
1017 SOUND 0,162;1,1;2,75;3,1;4,23;5,1: RETURN : REM LOWER C MAJ
1020 SOUND 0,186;1,0;2,147;3,0;4,124;5,0: RETURN : REM D MAJ
1025 SOUND 0,165;1,0;2,131;3,0;4,110;5,0: RETURN : REM E MAJ
1030 SOUND 0,156;1,0;2,124;3,0;4,104;5,0: RETURN : REM F MAJ
1035 SOUND 0,23;1,1;2,221;3,0;4,186;5,0: RETURN : REM G MAJ
1050 SOUND 0,186;1,0;2,156;3,0;4,124;5,0: RETURN : REM D MINOR
1055 SOUND 0,248;1,0;2,209;3,0;4,165;5,0: RETURN : REM A MIN
1057 SOUND 0,248;1,0;2,75;3,1;4,209;5,0: RETURN : REM LO A MIN
1065 SOUND 0,23;1,1;2,234;3,0;4,186;5,0: RETURN : REM G MIN
1105 SOUND 0,234;1,0;2,186;3,0;4,156;5,0: RETURN : REM B FLAT MAJ
1999 SOUND 7,63: RETURN : REM OFF
9997 STOP
9998 CLEAR : SAVE "ESPANOLA" LINE 1