'                     CHRONOLOGICAL AGE CALCULATOR
'
'                             WRITTEN BY
'                           TRAVIS SCHULTZ
'
CLS
ON ERROR GOTO eek
   COLOR 15
   PRINT CHR$(147): CLS : DIM n(12)
   FOR k = 1 TO 12: READ n(k): NEXT k
retry:
   CLS
   COLOR 15
   PRINT "Please enter test date using 2 digits ie, 11/8/1996"
   PRINT "is entered as 11/08/96"
   INPUT "Day: ", d1$
   test1 = LEN(d1$)
   IF NOT test1 = 2 THEN GOTO errory
   INPUT "Month: ", d2$
   test2 = LEN(d2$)
   IF NOT test2 = 2 THEN GOTO errory
   INPUT "Year: ", d3$
   test3 = LEN(d3$)
   IF NOT test3 = 2 THEN GOTO errory
   d1 = VAL(d1$)
   m1 = VAL(d2$)
   y1 = VAL(d3$)
   DO
doit:
COLOR 15
   CLS
   PRINT "Enter child's date of birth, type FINISH in capitals to quit."
   INPUT "Day: ", d22$
   test1 = LEN(d22$)
   IF d22$ = "FINISH" THEN SYSTEM
   IF NOT test1 = 2 THEN GOTO errorb
 
INPUT "Month: ", m22$
   test2 = LEN(m22$)
   IF m22$ = "FINISH" THEN SYSTEM
   IF NOT test2 = 2 THEN GOTO errorb

INPUT "Year: ", y22$
   test3 = LEN(y22$)
   IF m22$ = "FINISH" THEN SYSTEM
   IF NOT test3 = 2 THEN GOTO errorb
   d2 = VAL(d22$)
   m2 = VAL(m22$)
   y2 = VAL(y22$)
 da = d1 - d2
    ma = m1 - m2:  ya = y1 - y2
   IF da >= 0 THEN GOTO 100
    da = da + n(m1):  ma = ma - 1
100 IF ma >= 0 THEN GOTO 120
     ma = ma + 12:  ya = ya - 1
120 IF ya / 4 <> INT(ya / 4) THEN GOTO 140
    IF m1 = 3 AND m2 = 2 THEN da = da + 1
140
LOCATE 10, 1: PRINT "Child's CA is "; ya; " Years "; ma; " Months "
INPUT "Hit ENTER to continue...", a$
LOOP
    DATA 31,31,28,31,30,31
    DATA 30,31,31,30,31,31

errory:
COLOR 14
SOUND 50, 5
PRINT "2 digits only for each section. Please try again"
SLEEP 2
GOTO retry

errorb:
COLOR 14
SOUND 50, 5
PRINT "2 digits only for each section. Please try again"
SLEEP 2
GOTO doit

eek:
CLS
SOUND 250, 16
COLOR 14
PRINT "A fatal error has occured. Program will now terminate."
SLEEP 2
SYSTEM