()0K;H$C-PS/8 FOCAL, 1971?MFJB(S C=C/100;S D=FITR(.1+100*(C-FITR(C)));S C=FITR(C)?ME
J(S M=M+12;S D=D-1;I (-D) 5.5,5.5;S D=99;S C=C-1?ME<J<I (X-6) 5.7,5.7;S X=X-7;G 5.6?MC/KPI (M*1E6+K*1E4+C-Q) 5.9,5.85,5.9?MC9KUT ", TODAY !"?MDAKZT !!;G 1.3?MDWLJI (X) 6.26,6.2;I (X-2) 6.21,6.22,6.15?MD,LOI (X-4) 6.23,6.24;I (X-6) 6.25,6.26?MD4LTT "SUNDAY
MD<LUT "MONDAY?MEDLVT "TUESDAY?MEMLWT "WEDNESDAY?MF[LXT "THURSDAY?MF-LZT "SATURDAY?MCJJ2S X=FITR<FITR[2.6*M-.2]+K+D+FITR[D/4]+FITR(C/4)-2*C>?MC\KFT !"THE DAY IS ";D 6.1?MB0B2S M=M-2;I (M) 5.4,5.4;G 5.5?MEVLYT "FRIDAY";I (FABS(K-13)),6.3;?ML^T " THE 13TH!!
?MG8B^A "WHAT IS THE DATE
  (MM/DD/YYYY) ",M,K,C,!?MBTBI (K-32) 1.4;T "MONTHS WITH",%3,K," DAYS DON	T EXIST IN",%4,C,"!"!;G 1.3?MGQB I (M-13) 1.35;T "IN ORDER TO MAKE ROOM FOR THE MONTHS, THERE WERE NO DAYS!"!;G 1.3?MIKBAC     CALNDR FROM 	PROGRAMMING LANGUAGES	 COPYRIGHT 1970    
          ?MI5BBC     BY DIGITAL EQUIPMENT CORPORATION                                        ?MK5BCC     LAST CHANGE: 8/13/71                                                    ?MKJBEC     GIVEN THE MONTH/DATE/YEAR, THE "PERPETUAL                        
        ?MK8BFC CALENDAR" WILL TYPE THE DAY OF THE WEEK.                                      ?MJ
BD?MF8BG?M?ML D CALN                                                        ?MK5BGC                                                                         ?MJ
BDC                                                                        ?M  L D CALNDR;L S CALNDR;L L?M?7D. "-&3

Note: Lines longer than 256 characters were wrapped