CLS
LOCATE 3
COLOR 14
PRINT TAB(6); "BIEN BENIDO AL PROGRAMA"; : COLOR 20.5: PRINT " SURLY MULTYOPTIONS "; : COLOR 14: PRINT "VERSION 1.0 DE LA CASA SOSOFT"
PRINT TAB(6); "ESTE PROGRAMA DE LA CASA "; : COLOR 25: PRINT "SOSOFT (SS)"; : COLOR 14: PRINT ", SIRVE PARA HACER VARIAS COSAS"
COLOR 26
PRINT
PRINT TAB(6); "MIENTRAS SE CARGA EL INICIO DEL PROGRAMA TE DEJAMOS CON LA MELODIA DE"
PRINT TAB(6); "LA CASA SOSOFT (SOSOFT MIX 1 / 1.- TITULO EL GRAN MONTE DE LIMON)..."
'L1$ = "ABEADCDABEEAFEGFFDGEDCCFDBABEDCACGFDDAGCECAGGFFGDCDFFABDFG"
'PLAY "L16"
'FOR I = 0 TO 2
'PLAY "MB X" + VARPTR$(L1$)
'NEXT I                                           
L1$ = "AAAAAABEADCDABEEAFEGACDAAAFCDDFDEFFDGGFFGCEDGADADCGECDBAAAGEBDADBEEBAABFEDGDECFGABCDAAAFFDGDGDCCFEEFCCADGBABEDEGFAFEGACDAAFDADFDGDDGBADFABEEDCDADAADCGBFDGEDAGCAECAGGFFGDCDFFABDFG"
PLAY "L16"
FOR I = 0 TO 2
PLAY "MB X" + VARPTR$(L1$)
NEXT I


INICIO:
CLS
LOCATE 3
PRINT "ELIGE UNA DE ESTAS OPCIONES (APRETANDO LAS TECLAS DEL ALFANUMERICAS DEL 1 AL )"
LOCATE 7
PRINT "1.- UTILIDAD PARA CREAR TU PROPIA MUSICA Y ESCUCHAR TANTO LA TUYA COMO OTRAS MAS"
PRINT "2.- UTILIDAD PARA CALCULAR VARIAS OPERACIONES MATEMATICAS"
PRINT "3.- UTILIDAD CON VARIOS PROBLEMAS MATEMATICOS QUE TU TENDRAS QUE RESOLVER"
PRINT "4.- "

