HG()0K/F4C-PS/8 FOCAL, 1971?ME-B(S C=C/100;S D=FITR(.1+100*(C-FITR(C)));S C=FITR(C)?MEBJ(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$KZT !!;G 1.3?MC:LJI (X) 6.26,6.2;I (X-2) 6.21,6.22,6.15?MDOLOI (X-4) 6.23,6.24;I (X-6) 6.25,6.26?MDWLTT "SUNDAY?MD
LUT "MONDAY?MD	LVT "TUESDAY?MD0LWT "WEDNESDAY?ME>LXT "THURSDAY?MFPLZT "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?MD9LYT "FRIDAY";I (FABS(K-13)),6.3;?ML^T " THE 13TH!!"?M
KB^A "WHAT IS THE DATE
  (MM/DD/YYYY) ",M,K,C,!?MG[BAC     CALNDR FROM 	PROGRAMMING LANGUAGES	 COPYRIGHT 1970               ?MI!BBC     BY DIGITAL EQUIPMENT CORPORATION                                        ?MH0BEC     GIVEN THE MONTH/DATE/YEAR, THE "PERPETUAL                 
               ?MI^BFC CALENDAR" WILL TYPE THE DAY OF THE WEEK.                                      ?MHEBD?MF[BG?MI[BCC     LAST CHANGE: 8/30/71                                                    ?MKNB I (M-13) 1.35;T "IN ORDER TO MAKE ROOM FOR THE MONTH
, THERE "?MK^BI (K-32) 1.4;T "MONTHS WITH",%3,K," DAYS DON	T EXIST IN",%4?MJ-B!T "WERE NO DAYS!"!!;G 1.3?MBTB$T " THE YEAR",C,"!"!!;G 1.3?MB$L S CALNDR?M?MC,"!"!!;G 1.3?ST I45,1.44?MBTB-T "VARIANCE OF 0"!!G 8.01?ML/B(T "MIN"X(1)!!"RANGE"R!!"MEAN"M!!"VARIA
CE"SZ!!?MMIB)T "STANDARD DEVIATION"SD!!"STANDARD ERROR"SE!!?MK3B*T "T-STATISTIC"ST!!"DEGREES OF FREEDOM"DF!!?MM:BAC     STATISTICS 1 BY M. J. MC KEOWN, M.D.?MNMBBC     CH

Note: Lines longer than 256 characters were wrapped