INICIO:
CLS
'PROGRAM PARA CREAR MUSICA, OPERACIONES BASICAS, Y ESCRITURA.
LOCATE 4, 6
COLOR 25
PRINT "PROGRAMA PARA HACER MUSICA, OPERACIONES, Y 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 " S"; : COLOR 10: PRINT "IMULADOR DE MAQUINA PARA TUS ROYOS"
PRINT TAB(8); "4.- S"; : COLOR 28: PRINT "A"; : COLOR 10: PRINT "LIR 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", "S", "s": GOTO ES
CASE "4", "A", "a": 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 "LLAMADO 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"; R
L16$ = NO$
PLAY "L14"
FOR I% = 0 TO R
PLAY "MB X" + VARPTR$(L16$)
NEXT I%
INPUT "PRESIONE INTRO Y CONTINUE EN EL MENU, ¨ OK "; C$
GOTO INICIO

OP:
CLS
LOCATE 3
PRINT "PROGRAMA PARA HACER OPERACIONES, INTEGRADO EN EL PROGRAMA SS M.O. 1.0"
PRINT "LLAMADO SOSOFT OPERATION V.1.0"
PRINT
PRINT "S = SUMAR"
PRINT "R = RESTAR"
PRINT "M = MULTIPLICAR"
PRINT "D = DIVIDIR"
PRINT "P = POTENCIAS"
PRINT "V = MENU PRINCIPAL"
PRINT
INPUT "ELIGE QUE QUIERES HACER (S = SUMAR, R = RESTAR, ETC...)"; OPS$
SELECT CASE OPS$
CASE "S", "s": GOTO SUMA
CASE "R", "r": GOTO RESTA
CASE "M", "m": GOTO MULTIPLICACION
CASE "D", "d": GOTO DIVISION
CASE "P", "p": GOTO POTENCIA
CASE "V", "v": GOTO INICIO
END SELECT

SUMA:
PRINT
PRINT "SUMAR"
GOSUB CALCULA
OPE = A + B
PRINT "EL RESULTADO ES: "; OPE
INPUT "¨ PULSAS INTRO "; H$
GOTO OP

RESTA:
PRINT
PRINT "RESTAR"
GOSUB CALCULA
OPE = A - B
PRINT "EL RESULTADO ES: "; OPE
INPUT "¨ PULSAS INTRO "; H$
GOTO OP

MULTIPLICACION:
PRINT
PRINT "MULTIPLICAR"
GOSUB CALCULA
OPE = A * B
PRINT "EL RESULTADO ES: "; OPE
INPUT "¨ PULSAS INTRO "; H$
GOTO OP

DIVISION:
PRINT
PRINT "DIVIDIR"
GOSUB CALCULA
OPE = A / B
PRINT "EL RESULTADO ES: "; OPE
INPUT "¨ PULSAS INTRO "; H$
GOTO OP

POTENCIA:
PRINT
PRINT "CALCULAR POTENCIA"
GOSUB CALCULA
OPE = A ^ B
PRINT "EL RESULTADO ES: "; OPE
INPUT "¨ PULSAS INTRO "; H$
GOTO OP



ES:
CLS
PRINT "PROGRAMA PARA ESCRIBIR, INTEGRADO EN EL PROGRAMA SS M.O. 1.0"
PRINT "LLAMADO SOSOFT ROYO DESVELATION V.1.0"
PRINT
INPUT "PRESIONA INTRO PARA ESCRIBIR"; T$
CLS
COLOR 7
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
INPUT A$
PRINT
INPUT "PRESIONA INTRO PARA CONTINUAR"; F$
GOTO INICIO

SR:
CLS
COLOR 13
PRINT TAB(17.5); : PRINT "BUENO ADIOS, TE DEJAMOS CON LA SINFONIA"
COLOR 13
PRINT TAB(17); : PRINT "DE LA CASA SOSOFT, Y SE LLAMA:"; : COLOR 25: PRINT " SOSOFT MIX"
L16$ = "ABCDEFGFEDCBABDGECCFFABDFG"
PLAY "L16"
FOR I% = 0 TO 5
PLAY "X" + VARPTR$(L16$)
NEXT I%
COLOR 0
END


CALCULA:
PRINT
INPUT "INTRODUCE EL PRIMER NUMERO"; A
INPUT "INTRODUCE EL SEGUNDO"; B
RETURN

