CLS
TMONTH$ = LEFT$(DATE$, 2)
TDAY$ = MID$(DATE$, 4, 2)
TYEAR$ = RIGHT$(DATE$, 4)
TDAY = VAL(TDAY$)
TYEAR = VAL(TYEAR$)
TMONTH = VAL(TMONTH$)
PRINT DATE$
INPUT "WHAT IS YOUR NAME"; NAME$
INPUT "WHAT IS THE YEAR OF YOUR BIRTH"; YEAR
INPUT "WHAT IS THE MONTH OF YOUR BIRTH"; MONTH
INPUT "WHAT IS THE DAY OF YOUR BIRTH"; DAY
LET AYEAR = TYEAR - YEAR
LET AYEAR = AYEAR - 1
LET AMONTH = TMONTH - MONTH
LET AMONTH = AMONTH + 12
LET AMONTH = AMONTH - 1
IF AMONTH >= 12 THEN LET AYEAR = AYEAR + 1
IF AMONTH >= 12 THEN LET AMONTH = AMONTH - 12
IF AMONTH <= 0 THEN LET AYEAR = AYEAR + 1
IF AMONTH <= 0 THEN LET AMONTH = AMONTH + 1
IF MONTH = 1 OR MONTH = 3 OR MONTH = 5 OR MONTH = 7 OR MONTH = 8 OR MONTH = 10 OR MONTH = 12 THEN GOSUB 40
IF MONTH = 2 THEN GOSUB 50
IF MONTH = 4 OR MONTH = 6 OR MONTH = 9 OR MONTH = 11 THEN GOSUB 60
40
LET ADAY = 31 - DAY
LET ADAY = ADAY + TDAY
IF ADAY >= 31 THEN LET AMONTH = AMONTH + 1
IF ADAY >= 31 THEN LET ADAY = ADAY - 31
IF ADAY <= 0 THEN LET AMONTH = AMONTH + 1
IF ADAY <= 0 THEN LET ADAY = ADAY + 31
IF AMONTH >= 12 THEN LET AYEAR = AYEAR + 1
IF AMONTH >= 12 THEN LET AMONTH = AMONTH - 12
GOSUB 1
50
GOSUB 1
60
LET ADAY = 30 - DAY
LET ADAY = ADAY + TDAY
IF ADAY >= 30 THEN LET AMONTH = AMONTH + 1
IF ADAY >= 30 THEN LET ADAY = ADAY - 31
IF ADAY <= 0 THEN LET AMONTH = AMONTH + 1
IF ADAY <= 0 THEN LET ADAY = ADAY + 31
IF AMONTH >= 12 THEN LET AYEAR = AYEAR + 1
IF AMONTH >= 12 THEN LET AMONTH = AMONTH - 12
GOSUB 1
1 PRINT "YOU ARE"; AYEAR; "YEARS AND"; AMONTH; "MONTHS AND"; ADAY; "DAYS OLD."