CLS
LOCATE 2
COLOR 5
PRINT TAB(15); "HOLA, ESTE ES UN PROGRAMA PARA HACER CARTAS ASTRALES"
PRINT TAB(23); "SE LLAMA ASTROLOGIC V. 1.0 DE "; : COLOR 25: PRINT "SOSOFT"
PRINT
COLOR 4
PRINT "A CONTINUACION TE PEDIRAN ALGUNOS DATOS"
PRINT
PRINT
PRINT "PRESIONA LA TECLA INTRO PARA CONTINUAR..."
COLOR 0
INPUT "", CONTI$
CLS
COLOR 3
PRINT
PRINT
INPUT "NOMBRE : ", NOMBRE$
OTRA1:
INPUT "SEXO (V = VARON, M = MUJER : ", SEXO$
IF SEXO$ = "V" OR v OR SEXO$ = "M" OR m GOTO MAS ELSE GOTO OTRA1
MAS:
INPUT "PAIS DE ORIGEN : ", PAIS$
INPUT "CIUDAD : ", CIUDAD$
INPUT "PROVINCIA : ", PROVINCIA$
INPUT "FECHA DE NACIMIENTO : ", NACIMIENTO$
INPUT "HORA DE NACIMIENTO : ", HORA$
INPUT "COMENTARIOS: CUALIDADES, CAPRICHOS... : ", COMENTARIOS$
CLS
PRINT
PRINT "NOMBRE : "; NOMBRE$; "   SEXO : "; : IF SEXO$ = "V" THEN PRINT "VARON" ELSE PRINT "MUJER"
PRINT "PAIS : "; PAIS$; " CIUDAD : "; CIUDAD$; " PROVINCIA : "; PROVINCIA$
PRINT "FECHA DE NACIMIENTO : "; NACIMIENTO$; " HORA DE NACIMIENTO : "; HORA$
PRINT "FECHA ACTUAL : "; DATE$; " HORA ACTUAL : "; TIME$
PRINT
PRINT "COMENTARIOS : "; COMENTARIOS$


