' ESTE PROGRAMA FUE EL PRIMERO DE LA CASA SOSOFT, ECHO POR JOAN ALBA MALDONADO 11 A¥OS, EMPEZADO EL DIA 20/9/1996, Y ACABADO EL DIA 22/9/1996.
INICIO:
CLS
PRINT
COLOR 9
PRINT "                           PRESENTAMOS LA CASA SOSOFT"
COLOR 7
LOCATE 6
PRINT TAB(12); "AHORA, LA CASA"; : COLOR 26: PRINT " JOAN SOFT "; : COLOR 7: PRINT "(LA MEJOR), Y LA CASA"; : COLOR 26: PRINT " MIQUELSOFT"; : COLOR 7
PRINT TAB(12); "(LA SEGUNDA MEJOR), SE HAN UNIDO, PARA HACER UNA SOLA Y UNICA"
PRINT TAB(12); "MEJOR CASA, ES LA CASA:"; : COLOR 28: PRINT " SOSOFT"; : COLOR 7: PRINT ", AL UNIR LAS DOS MEJORES CASAS"
PRINT TAB(12); "SE HA PODIDO CREAR LA SOSOFT, QUE ES LA MEJOR DEL MOMENTO."
LOCATE 10
COLOR 29
PRINT
PRINT "                ÚÄÄÄÄÄÄ ÚÄÄÄÄÄÄ¿ ÚÄÄÄÄÄÄ ÚÄÄÄÄÄÄ¿ ÚÄÄÄÄÄÄ ÄÄÄÂÄÄÄ "; : COLOR 3: PRINT "©"; : COLOR 29
PRINT "                ³       ³      ³ ³       ³      ³ ³          ³"
PRINT "                ÀÄÄÄÄÄ¿ ³      ³ ÀÄÄÄÄÄ¿ ³      ³ ÃÄÄÄÄÄÄ    ³"
PRINT "                      ³ ³      ³       ³ ³      ³ ³          ³"
PRINT "                ÄÄÄÄÄÄÙ ÀÄÄÄÄÄÄÙ ÄÄÄÄÄÄÙ ÀÄÄÄÄÄÄÙ Á          Á"
PRINT
COLOR 3
INPUT "PRESIONA RETURN (®Ù) ", RETURN1$
GOTO SIGUE

SIGUE:
CLS
COLOR 5
LOCATE 4
PRINT TAB(12); "HOLA, A CONTINUACION LA CASA SOSOFT TE DEJA ELEGIR DOS OPCIONES"
OPCIONES:
LOCATE 7
COLOR 7
PRINT TAB(3); "1.- VER LA "; : COLOR 28: PRINT "H"; : COLOR 7: PRINT "ISTORIA DE LA CASA SOSOFT"
PRINT TAB(3); "2.- VER LA "; : COLOR 28: PRINT "S"; : COLOR 7: PRINT "INFONIA DE LA CASA SOSOFT"
PRINT
INPUT "ELIGE UNA OPCION (1/H o 2/S)"; OP1$
SELECT CASE OP1$
CASE "1", "h", "H": GOTO HISTORIA
CASE "2", "s", "S": GOTO SINFONIA
CASE ELSE: GOTO SIGUE
END SELECT

HISTORIA:
CLS
COLOR 27
PRINT
PRINT "                       HISTORIA DE LA CASA SOSOFT"
PRINT
COLOR 15
PRINT "HACE UN DIA (EL DIA 19/9/96, POR QUE HOY ES 20/9/96), ESTABAMOS EN"
PRINT "TARRAGONA EN LA FIESTA DE SANTA TECLA. ESTABAN LOS PADRES DEL MIQUEL ANGEL"
PRINT "(MIQUEL ES ACTUALMENTE, UNO DE LOS MULTIPLES MIEMBROS DE LA CASA SOSOFT), EL"
PRINT "MIGUEL ANGEL, Y YO, ESTABAMOS EN TARRAGONA POR QUE LA MADRE DEL MIQUEL TENIA"
PRINT "''TENDONITIS''. CUANDO ESTABA LA MADRE Y EL PADRE EN EL MEDICO, NOSOTROS FUIMOS A DAR UN PASEO, Y ENTONCES"
PRINT "EMPEZAMOS DE HABLAR DE UN NOMBRE DE UNA CASA QUE HACIA VARIOS DIAS INTENTABAMOS"
PRINT "BUSCARLE UN NOMBRE. I ENTONCES RECORDAMOS QUE UN DIA YO DI EL NOMBRE SO SOSOFT,"
PRINT "PARA LA EMPRESA. AL MIQUEL SE LE OCURRIO QUITARLE ALGUN ''SO'' DEL NOMBRE, Y ENTONCES SE CREO"
PRINT "EL NOMBREDE LA CASA, NOS DIMOS LA MANO PARA FUNDAR LA EMPRESA, Y DESDE AQUEL"
PRINT "MOMENTO, LA CASA SOSOFT SE FUNDO."
PRINT
COLOR 17
INPUT "¨ PULSAS INTRO PARA SALIR "; RETURN2
GOTO FIN

SINFONIA:
CLS
PRINT TAB(28); : COLOR 1: PRINT "E"; : COLOR 2: PRINT "S"; : COLOR 3: PRINT "T"; : COLOR 4: PRINT "A"; : COLOR 5: PRINT " E"; : COLOR 6: PRINT "S"; : PRINT " L"; : COLOR 8: PRINT "A"; : COLOR 9: PRINT " S"; : COLOR 10: PRINT "I"; : COLOR 11: PRINT "N"; : COLOR 12: PRINT "F"; : COLOR 13: PRINT "O"; : COLOR 14: PRINT "N"; : PRINT "IA"
PRINT TAB(29); : COLOR 29: PRINT "D"; : COLOR 28: PRINT "E"; : COLOR 17: PRINT " L"; : COLOR 18: PRINT "A"; : COLOR 19: PRINT " C"; : COLOR 20: PRINT "A"; : COLOR 21: PRINT "S"; : COLOR 22: PRINT "A"; : COLOR 23: PRINT " S"; : COLOR 24: PRINT "O"; : COLOR 25: PRINT "S"; : COLOR 30: PRINT "O"; : COLOR 26: PRINT "F"; : COLOR 27: PRINT "T"
L16$ = "ABCDEFGFEDCBABDGECCFFABDFG"
PLAY "L16"
FOR I% = 0 TO 2
PLAY "X" + VARPTR$(L16$)
NEXT I%
GOTO FIN2

FIN:
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 2
PLAY "X" + VARPTR$(L16$)
NEXT I%
COLOR 0
FIN2:

