Directory of image this file is from
This file as a plain text file
()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