File: EWIGKA.FC of Tape: Various/ETH/fc1

(.FC,.FO Focal format converted to 'WRITE' listing) 

---

C ACU-FOCAL12,1973

01.01 C EWIGER KALENDER
01.10 A !"WELCHES DATUM ? (TAG MNT JAHR)  "K,M,C,!
01.20 S C=C/100;S D=FITR(.1+100*(C-FITR(C)));S C=FITR(C)
01.30 S M=M-2;I (M)5.4,5.4;G 5.5

05.40 S M=M+12;S D=D-1;I (-D)5.5,5.5;S D=99;S C=C-1
05.50 S X=FITR(FITR(2.6*M-.2)+K+D+FITR(D/4)+FITR(C/4)-2*C)
05.60 I (X-6)5.7,5.7;S X=X-7;G 5.6
05.70 T !"DIESER TAG IST ";D 6.1
05.80 I (M+1E6+K*1E4+C-Q)5.9,5.9
05.90 T !!;G 1.1

06.10 I (X)6.26,6.2;I (X-2)6.21,6.22,6.15
06.15 I (X-4)6.23,6.24;I (X-6)6.25,6.26
06.20 T "MONTAG
06.21 T "DIENSTAG
06.22 T "MITTWOCH
06.23 T "DONNERSTAG
06.24 T "FREITAG
06.25 T "SAMSTAG
06.26 T "SONNTAG
06.50 A K,M,C;D 1.2;D 1.3;S Q=M*1E6+K*1E4+C;G 1.1

---