INICIO:
CLS
'PROGRAM PARA CREAR MUSICA, OPERACIONES BASICAS, ESCRITURA.
LOCATE 4, 6
COLOR 25
PRINT "PROGRAMA PARA HACER MUSICA, OPERACIONES, ESCRITURA."
LOCATE 5, 6
PRINT "ES EL NUEVO PROGRAMA DE LA CASA SOSOFT LLAMADO MULTYOPTIONS V. 1.0"
PRINT
COLOR 10
PRINT TAB(8); "1.- CREAR"; : COLOR 28: PRINT " M"; : COLOR 10: PRINT "USICA"
PRINT TAB(8); "2.- REALIZAR OPERACIONES"; : COLOR 28: PRINT " B"; : COLOR 10: PRINT "ASICAS"
PRINT TAB(8); "3.-"; : COLOR 28: PRINT " E"; : COLOR 10: PRINT "SCRIBIR TUS ROYOS"
PRINT TAB(8); "4.-"; : COLOR 28: PRINT " S"; : COLOR 10: PRINT "ALIR DE SS MULTYOPTIONS V. 1.0"
PRINT
COLOR 5
INPUT "ELIGE OPCION"; OP1$
SELECT CASE OP1$
CASE "1", "M", "m": GOTO MU
CASE "2", "B", "b": GOTO OP
CASE "3", "E", "e": GOTO ES
CASE "4", "S", "s": GOTO SR
CASE ELSE: GOTO INICIO
END SELECT

MU:
CLS
LOCATE 3
COLOR 4
PRINT "PROGRAMA PARA HACER MUSICA, INTEGRADO EN EL PROGRAMA SS M.O. 1.0"
PRINT "SOSOFT MUSIC V.1.1"
PRINT
COLOR 30
PRINT TAB(5); "LETRA"; TAB(10); " NOTA"
PRINT TAB(6); "A"; TAB(11); " DO"
PRINT TAB(6); "B"; TAB(11); " RE"
PRINT TAB(6); "C"; TAB(11); " MI"
PRINT TAB(6); "D"; TAB(11); " FA"
PRINT TAB(6); "E"; TAB(11); " SOL"
PRINT TAB(6); "F"; TAB(11); " LA"
PRINT TAB(6); "G"; TAB(11); " SI"
PRINT
COLOR 5
INPUT "INTRODUCE LAS NOTAS CON AYUDA DE LAS TABLAS DE ARRIBA (A=DO, B=RE...)"; NO$
PRINT
INPUT "INTRODUCE EL NUMERO DE VECES QUE QUIERES ESCUCHARLA REPETIDA"; RE
L16$ = "NO$"
PLAY "L16"
FOR I% = 0 TO RE
PLAY "MB X" + VARPTR$(L16$)
NEXT I%





OP:
ES:
SR:

