File DATE.FC (FOCAL source file)

Directory of image this file is from
This file as a plain text file

F9()BTC U/W-FOCAL:DATE15.10.78?MB.BJASK "DATE
 "MO,DA,YR :FDAY(MO*256+DA*8+YR-78)?M?CCBTIF (-MO=MO-2).3;SET MO=MO+12,YR=YR-1?MC[B^SET ZC=FITR(2.6*MO-.2)+DA+YR+FITR(YR/4)-34?MC.B(IF (-ZC=FRAC(ZC/7)).5,.5;YNCR ZC?MDHB2D 2.1+FITR(7.1*ZC)/10;T "DAY,  ";D 2.75+MO/10?M?D!B<T %2,DA ", 197":FOUT(	8+8*FRAC(FD
Y()/8))!;R?MD(DJT "SUN"?M?D/DTT "MON"?M?D6D^T "TUES"?MD>D(T "WEDNES"?MEFD2T "THURS"?M?EMD<T "FRI"?M?EUEFT "SATUR"?M?E]EUT "MARCH"?M?E%E
T "APRIL"?M?E,FET "MAY"?M?E3FOT "JUNE"?ME:FYT "JULY"?MFBFT "AUGUST"?MFLF-T "SEPTEMBER"?M?FUF7T "OCTOBER"?M?F^GAT "NOVEMBER"?MF	GKT "DECEMBER"?MF0GUT "JANUARY"?M?G
T "FEBRUARY"?M?ML S DATE?M?M1.8,1.3,1?M?G(DTP 1.75,1.2,1;P 1.72,1.1,1;P 1.72,1.05,1;P 1.72,1,1;P 1.75,.9,1?MD(P 1.8,.8,1;P 1.45,.8,1;P 1.35,.85,1;P 1.25,.95,1;P 1.19,1.05,1?M?ML C OCTALF?M?M;W;O C?M?M50";P 3.2;P 7.5,,1;P 8.5,,-1;O S;R?M?M?	?4?/?. 98125"?M
??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search