File: BIO.FC of Tape: Various/ETH/fc1
(.FC,.FO Focal format converted to 'WRITE' listing)
C BIO .FC MAR-75 01.01 E 01.02 T !!!!,"BIORHYTHMEN VON : ";A NAME ,!! 01.03 A "IHR GEBURTSDATUM BITTE (T,M,J)",TA,MA,JA,!;S TA=TA+1 01.05 A "MOECHTEN SIE BIO NUR FUER EINEN MONAT ? ",JZ,! 01.06 I (JZ-101)1.07,1.51,1.07 01.07 A "GEWUENSCHTER M, J ",MS,JE,!!! 01.08 S ME=MS-1;S QQ=0 01.09 S ME=ME+1;S Q=ME;S QQ=QQ+1;G 2.01 01.51 A "GEWUENSCHTER M, J ",ME,JE,!!!;S QQ=12 02.01 T %3,!!!!,"DATUM",ME,".",JE,!! 02.05 S T=0;S J=JA 02.15 I ((J/4)*10-(FITR(J/4))*10)2.30,2.40,2.30 02.30 S J=J+1;G 2.15 02.40 I (J-JE)2.45,2.50,2.50 02.45 S J=J+4;S T=T+1;G 2.40 02.50 S M=MA;S N=1;G 2.55 02.55 I (1-M)2.56,3.05 02.56 I (2-M)2.57,3.06 02.57 I (3-M)2.58,3.07 02.58 I (4-M)2.59,3.08 02.59 I (5-M)2.60,3.09 02.60 I (6-M)2.61,3.10 02.61 I (7-M)2.62,3.11 02.62 I (8-M)2.63,3.12 02.63 I (9-M)2.64,3.13 02.64 I (10-M)2.65,3.14 02.65 I (11-M)2.66,3.15 02.66 I (12-M)2.67,3.16 03.05 S T(N)=1;G 4.10 03.06 S T(N)=32;G 4.10 03.07 S T(N)=60;G 4.10 03.08 S T(N)=91;G 4.10 03.09 S T(N)=121;G 4.10 03.10 S T(N)=152;G 4.10 03.11 S T(N)=182;G 4.10 03.12 S T(N)=213;G 4.10 03.13 S T(N)=244;G 4.10 03.14 S T(N)=274;G 4.10 03.15 S T(N)=305;G 4.10 03.16 S T(N)=335;G 4.10 04.10 I (1-N)4.20,4.11 04.11 S TB=367-T(1)-TA 04.15 S M=ME;S N=2;G 2.55 04.20 S ST=T+TB+T(2)+(JE-JA-1)*365 04.25 S B1=2*(ST-(23*(FITR(ST/23)))) 04.26 S B2=2*(ST-(FITR(ST/28))*28) 04.27 S B3=2*(ST-(FITR(ST/33))*33) 05.01 T "01 . . .05 . . . .10 . . . .15 . . . .20 . . . .25 . . . .30 ."! 05.05 S M=0;I (B1)5.06,5.10,5.10 05.06 S N=22;G 5.30 05.10 I (B1-23)5.15,5.16,5.16 05.15 S N=B1;G 5.40 05.16 S N=B1-23;G 5.25 05.20 S N=0 05.25 S M=M+1;S N=N+1;I (N-23)5.30,5.30,5.35 05.30 T " ";I (M-65)5.25,6.05,6.05 05.35 S N=0 05.40 S M=M+1;S N=N+1;I (N-23)5.45,5.45,5.20 05.45 T "M";I (M-65)5.40,6.05 06.05 S M=0;T !;I (B2)6.06,6.10,6.10 06.06 S N=27;G 6.30 06.10 I (B2-28)6.15,6.15,6.16 06.15 S N=B2;G 6.40 06.16 S N=B2-28;G 6.25 06.20 S N=0 06.25 S M=M+1;S N=N+1;I (N-28)6.30,6.30,6.35 06.30 T " ";I (M-65)6.25,7.05 06.35 S N=0 06.40 S M=M+1;S N=N+1;I (N-28)6.45,6.45,6.20 06.45 T "W";I (M-65)6.40,7.05 07.05 S M=0;T !;I (B3)7.06,7.10,7.10 07.06 S N=32;G 7.30 07.10 I (B3-33)7.15,7.15,7.16 07.15 S N=B3;G 7.40 07.16 S N=B3-33;G 7.25 07.20 S N=0 07.25 S M=M+1;S N=N+1;I (N-33)7.30,7.30,7.35 07.30 T " ";I (M-65)7.25,8.05 07.35 S N=0 07.40 S M=M+1;S N=N+1;I (N-33)7.45,7.45,7.20 07.45 T "I";I (M-65)7.40,8.05 08.05 I (Q-12)1.09,8.10 08.10 I (QQ-12)8.15,1.01 08.15 S ME=0;S JE=JE+1;G 1.09