Plays several South American songs.
Appears on
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20083 to 20120. These tapes were compiled by Tony Willing.
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