*20
	*0
TEXT /F      *DAYCOM*
F 
F   DAY OF THE WEEK
F     COMPUTATION
F   FOR ANY DATE IN 
F   THE 20TH CENTURY.\/
*200
TEXT /F       DAYCOM
FTYPE:
F   MONTH-DAY-YEAR
H     (FOLLOW EACH WITH RETURN KEY)
F 
F LEADING ZEROS NOT
F      REQUIRED.
H
H  TO RESTART PROGRAM, HIT RETURN KEY.
F 
H        NOW CONTROL S TO START.\/