INICIO:
CLS
PRINT
PRINT "ESTE ES UN PROGRAMA SOSOFT, LLAMADO MUSIC MIX V.1.1. CON EL PODRAS CREAR"
PRINT "TUS PROPIAS MELODIAS, ES MUY PRACTICO Y UTILIZA UN METODO RAPIDO PARA"
PRINT "CREAR MELODIAS."
LOCATE 8, 19
PRINT ; : COLOR 3: PRINT "1"; : COLOR 2: PRINT ".- HACER"; : COLOR 3: PRINT " M"; : COLOR 2: PRINT "USICA"
LOCATE , 19
PRINT ; : COLOR 3: PRINT "2"; : COLOR 2: PRINT ".-"; : COLOR 3: PRINT " S"; : COLOR 2: PRINT "ALIR"
PRINT
INPUT "¨ QUE OPCION ELIGES (1/M, o 2/S) "; OP1$
PRINT
PRINT "ESPERE MIENTRAS SE CARGA LA OPCION..."
L16$ = "ABCDEFGFEDCBABDGECCFFABDFG"
PLAY "L16"
FOR I% = 0 TO 2
PLAY "MB X" + VARPTR$(L16$)
NEXT I%

SELECT CASE OP1$
CASE "1", "M", "m": GOTO MUSICA
CASE "2", "S", "s": GOTO SALIR
CASE ELSE: GOTO INICIO
END SELECT

MUSICA:
CLS
PRINT
PRINT "AQUI TIENES LAS TABLAS PARA PODER HACER LA SINFONIA"
PRINT
PRINT TAB(7); "LETRA"; TAB(13); " NOTA"
PRINT
PRINT TAB(10); "A = DO"
PRINT TAB(10); "B = RE"
PRINT TAB(10); "C = MI"
PRINT TAB(10); "D = FA"
PRINT TAB(10); "E = SOL"
PRINT TAB(10); "F = LA"
PRINT TAB(10); "G = SI"
PRINT
INPUT "PON LA MUSICA (A,B,C,D,E,F Y G) "; RITMO$
INPUT "¨ QUANTAS VECES QUIERES ESCUCHARLA REPETIDA "; R
PRINT
INPUT "PRESIONA INTRO PARA EMPEZARLA A ESCUCHAR"; INTRO1
L16$ = RITMO$
PLAY "L14"
FOR I% = 0 TO R
PLAY "MB X" + VARPTR$(L16$)
NEXT I%
COLOR 0







SALIR:

