/+" ## ## ##" () P ( );"WEEKDAY" 1d "WEEKDAY IS A COMPUTER DEMONSTRATION THAT"4n"GIVES FACTS ABOUT A DATE OF INTEREST TO YOU."x5 "ENTER TODAY'S DATE IN THE FORM: 3,24,1979 "; M,D,Y2 THIS PROGRAM DETERMINES THE DAY OF THE WEEK FOR A DATE AFTER 1582 ()() ( ) ()(): SPACE OUTPUT AND READ IN INITIAL VALUES FOR MONTHS.     () 6"ENTER DAY OF BIRTH (OR OTHER DAY OF INTEREST)"; ,,  ()  I (()d)- TEST FOR DATE BEFORE CURRENT CALENDAR." .  !,  I(I)#6 I(())@ Y(d)J Y (Yd)0T  YY()I$^ (())h   r Y  #| T(()) T            I# T(()) T       = (Y M)D( ) &= (Y M)D( ) ( ;"/";;"/";;" WAS A ";  :' ;"/";;"/";;" IS A ";  :,& ;"/";;"/";;" WILL BE A ";30 PRINT THE DAY OF THE WEEK THE DATE FALLS ON.:   ND "SUNDAY."N  bX "MONDAY."b  vl "TUESDAY."v   "WEDNESDAY."   "THURSDAY."       "SATURDAY."= (Y M)D( ) ` IY IM ID I  I I  II I 4  II* II 4 I > I  RC I  RH"***HAPPY BIRTHDAY***"&R " "," ","YEARS","MONTHS","DAYS"&W " "," ","-----","------","----"=\ "YOUR AGE (IF BIRTHDATE) ", ;I,I,I7f A (Im)(I)I(I)p K Iz K I K I! CALCULATE RETIREMENT DATE.  A7 CALCULATE TIME SPENT IN THE FOLLOWING FUNCTIONS.  333 "YOU HAVE SLEPT ",  Z  {.~ "YOU HAVE EATEN ",  Z  k~ K   "YOU HAVE PLAYED",  8 K  .! "YOU HAVE PLAYED/STUDIED", $ 8 . "YOU HAVE WORKED/PLAYED", 8 Z = 6B "YOU HAVE RELAXED ", ;K,K,KL 1V ();"*** YOU MAY RETIRE IN";;" ***"`t7 "ENTER 'RETURN' TO DISPLAY THE MENU."; RES   "FRIDAY."  ( "FRIDAY THE THIRTEENTH---BEWARE!"  = "NOT PREPARED TO GIVE DAY OF WEEK PRIOR TO MDLXXXII. "  tA( TABLE OF VALUES FOR THE MONTHS TO BE USED IN CALCULATIONS.)2 0, 3, 3, 6, 1, 4, 6, 2, 5, 0, 3, 59< THIS IS THE CURRENT DATE USED IN THE CALCULATIONS.,F THIS IS THE DATE TO BE CALCULATED ON.0P CALCULATE TIME IN YEARS, MONTHS, AND DAYSZ K(A)d I (Km)!n K K (Im)x I (K)  I K (I) K KI K KI K KI K  KK KK K  KK  KK ;I,I,I K   B KK K " B, 6 "MENU" ;I,I,I K   B K