100 REM *******************************
110 REM *                             *
120 REM * B. JAKUBASCHK MARTIN RUOF   *
130 REM * NEUE STR.14/1 BRUNNENSTR.17 *
140 REM * 7000 STGT. 10 7238 OBERNDF. *
150 REM *                             *
160 REM * 0711/462989   07423/4525    *
170 REM *                             *
180 REM *******************************
190 :
1000 REM BIORHYTHMISCHE STUDIEN
1010 :
1020 IF PEEK(49153)<>169 THEN LOAD"BIO.MC",8,1
1030 SYS 49152
1040 POKE648,196:POKE56576,148:POKE53272,19
1050 :
1060 DIM ML(12),WT$(6):GOSUB10510
1070 POKE53280,11:POKE53281,11
1080 :
1500 PRINT"[147][150] ABCDEFGHIJKLMNO[146][194].[202]AKUBASCHK & [205].[210]UOF"
1510 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1520 PRINT" [199]EBEN [211]IE BITTE [201]HR [199]EBURTSDATUM AN."
1530 PRINT" [199]EBURTSDATUM  :";:GOSUB11000
1540 GJ=J:GOSUB 10000
1550 PRINT" [211]IE SIND AN EINEM ";WT$;" GEBOREN."
1560 PRINT" [196]AS JULIANISCHE [196]ATUM [201]HRES [199]EBURTS-    TAGES LAUTET:"JD
1570 JG=JD:GT=T:GM=M
1580 PRINT" [199]EBEN [211]IE NUN DAS HEUTIGE [196]ATUM AN."
1590 PRINT" HEUTIGES [196]ATUM:";:GOSUB12000
1600 CF=1
1610 GOSUB11030
1620 GOSUB12500 : GOSUB 10000
1630 PRINT" [200]EUTE IST ";WT$;"."
1640 PRINT" [202]ULIANISCHES [196]ATUM:";JD
1650 DD=JD-JG+1
1660 PRINT" [211]IE SIND ALSO GENAU"DD"[212]AGE ALT!"
1670 IF(GM=M)AND(GT<=T)AND(GT>T-3)THEN1690
1680 GOTO1700
1690 PRINT" [200]ERZLICHEN [199]L[168]CKWUNSCH ZUM [199]EBURTSTAG!"
1700 PRINT" [196]AS JULIANISCHE [196]ATUM IST EINE FORT-"
1710 PRINT" LAUFENDE [212]AGESZ[166]HLUNG, DIE AM ERSTEN"
1720 PRINT" [202]ANUAR 4713 V.[195]HR. BEGINNT. [214]ERWENDET"
1730 PRINT" WIRD ES HAUPTS[166]CHLICH IN DER [193]STRONO-"
1740 PRINT" MIE, UM [218]EITDIFFERENZEN ZU BESTIMMEN."
1750 PRINTTAB(30)">>[212][193][211][212][197]<<"
1760 POKE198,0:WAIT198,1
1770 :
2000 PRINT"[147][150]      ABCDEFGHIJKLM[146] - [193][213][211][215][197][210][212][213][206][199]"
2010 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
2020 PRINT" [201]HRE [218]YKLEN STEHEN BEI:"
2030 Z1=INT((DD/23-INT(DD/23))*23+.5)
2040 PRINT"[150]  [203] (23-[212]AGE-[210]HYTHMUS) ="Z1
2050 Z2=INT((DD/28-INT(DD/28))*28+.5)
2060 PRINT"[154]  [211] (28-[212]AGE-[210]HYTHMUS) ="Z2
2070 Z3=INT((DD/33-INT(DD/33))*33+.5)
2080 PRINT"[153]  [199] (33-[212]AGE-[210]HYTHMUS) ="Z3
2090 P1=SIN(Z1/23*2*(null))
2100 IF P1>.3 THEN PRINT"[150]  [223] [203] IST IN [200]OCHLAGE.";:GOTO2130
2110 IF P1<-.3 THEN PRINT"[150]  [223] [203] IST IN [212]IEFLAGE.";:GOTO2130
2120 PRINT"[150]  [223] [203] BEFINDET SICH IM @BERGANG.";
2130 PRINT"(";MID$("[=^",SGN(COS(Z1/23*2*(null)))+2,1)")"
2140 P2=SIN(Z2/28*2*(null))
2150 IF P2>.3 THEN PRINT"[154]  [255] [211] IST IN [200]OCHLAGE.";:GOTO2180
2160 IF P2<-.3 THEN PRINT"[154]  [255] [211] IST IN [212]IEFLAGE.";:GOTO2180
2170 PRINT"[154]  [255] [211] BEFINDET SICH IM @BERGANG.";
2180 PRINT"(";MID$("[=^",SGN(COS(Z2/28*2*(null)))+2,1)")"
2190 P3=SIN(Z3/33*2*(null))
2200 IF P3>.3 THEN PRINT"[153]  * [199] IST IN [200]OCHLAGE.";:GOTO2230
2210 IF P3<-.3 THEN PRINT"[153]  * [199] IST IN [212]IEFLAGE.";:GOTO2230
2220 PRINT"[153]  * [199] BEFINDET SICH IM @BERGANG.";
2230 PRINT"(";MID$("[=^",SGN(COS(Z3/33*2*(null)))+2,1)")"
2240 PRINT" [203] BESTIMMT DEN [203][220]RPERRHYTHMUS, [211] DEN"
2250 PRINT" [211]EELEN- UND [199] DEN [199]EISTESRHYTHMUS."
2260 PRINT" [ UND ^ ZEIGEN DIE [212]ENDENZEN AN."
2270 PRINTTAB(30)">>[212][193][211][212][197]<<"
2280 POKE198,0:WAIT198,1
2290 :
2500 REM ZEICHNERISCHE DARSTELLUNG
2510 :
2520 JM=JD-T
2530 :
2540 PRINT"[147][150]      ABCDEFGHIJKLM[146]  -  [199][210][193][208][200][201][203]"
2550 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
2560 PRINT"[199]EBURTSDATUM:";GT"[157]."GM"[157]."GJ"("JG")"
2570 PRINT"[193]USWERTUNG F[168]R: "M"[157]/"J+1890"("JM")"
2580 DD=JM-JG
2590 PRINT"   [176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
2600 FORI=1TO8:PRINT"   [221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221]":NEXTI
2610 PRINT"   [171][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][179]"
2620 FORI=1TO8:PRINT"   [221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221]":NEXTI
2630 PRINT"    0[221][221][221]0[221][221][221][221]1[221][221][221][221]1[221][221][221][221]2[221][221][221][221]2[221][221][221][221]3[221] "
2640 PRINT"    1[221][221][221]5[221][221][221][221]0[221][221][221][221]5[221][221][221][221]0[221][221][221][221]5[221][221][221][221]0[221] "
2650 PRINT"     [150][223]=[203][220]RPER    [154][255]=[211]EELE   [153]*=[199]EIST  ";
2660 FOR I=1 TO 31
2670 V(1)=SIN((DD+I)/23*2*(null))*8
2680 V(2)=SIN((DD+I)/28*2*(null))*8
2690 V(3)=SIN((DD+I)/33*2*(null))*8
2700 FOR K=1 TO 3
2710 POKE211,I+3:POKE214,13.5-V(K)
2720 SYS58640
2730 PRINTMID$("[150][223][154][255][153]*",K*2-1,2)
2740 NEXT K,I : PRINT"";
2750 POKE198,0:WAIT198,1
2760 :
3000 PRINT"[147][150]      ABCDEFGHIJKLM[146] - [200][193][210][205][207][206][201][197][206]"
3010 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
3020 PRINT" [194]EI DER [208]ARTNERBERECHNUNG KANN AUCH"
3030 PRINT" DAS [214]ERH[166]LTNIS ZU [193]RBEITSKOLLEGEN,"
3040 PRINT" [211]CHULKAMERADEN UND ANDEREN, EVENTUELL"
3050 PRINT" GLEICHGESCHLECHTLICHEN [205]ENSCHEN AUSGE-"
3060 PRINT" WERTET WERDEN."
3070 PRINT" [215]OLLEN [211]IE EINE [208]ARTNERBERECHNUNG?"
3080 GETA$:IFA$="N"THENRUN
3090 IF A$<>"J" THEN 3080
3100 PRINT" [199]EBEN [211]IE DAS [199]EBURTSDATUM DES '[208]ART-   NERS' AN."
3110 PRINT" [199]EBURTSDATUM:";:GOSUB11000
3120 GOSUB10000
3130 PRINT" [202]ULIANISCHES [199]EBURTSDATUM:"JD
3140 DD=ABS(JD-JG)
3150 PRINT" [196]IE [193]LTERSDIFFERENZ BEL[166]UFT SICH AUF":PRINTDD"[212]AGE."
3160 PRINTTAB(30)">>[212][193][211][212][197]<<"
3170 POKE198,0:WAIT198,1
3180 :
3500 PRINT"[147][150]      ABCDEFGHIJKLM[146] - [193][213][211][215][197][210][212][213][206][199]"
3510 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
3520 Z1=INT((DD/23-INT(DD/23))*23+.5)
3530 Z2=INT((DD/28-INT(DD/28))*28+.5)
3540 Z3=INT((DD/33-INT(DD/33))*33+.5)
3550 IFZ1>11THENZ1=23-Z1
3560 IFZ2>14THENZ2=28-Z2
3570 IFZ3>16THENZ3=33-Z3
3580 PRINT" [210]HYTHMUSDIFFERENZEN (IN [212]AGEN):"
3590 PRINT"[150]  [223] [203]-[210]HYTHMUS:"Z1
3600 PRINT"[154]  [255] [211]-[210]HYTHMUS:"Z2
3610 PRINT"[153]  * [199]-[210]HYTHMUS:"Z3
3620 PRINT" [208]ROZENTUALE @BEREINSTIMMUNG:"
3630 P1=INT(1000-Z1*87+.5)/10+.01
3640 P2=INT(1000-Z2*71+.5)/10+.01
3650 P3=INT(1000-Z3*60+.5)/10+.01
3660 PRINT"[150]  [223] [203][220]RPERLICH:"P1"[157][157] % ("MID$("[186][170][169]",P1/34+1,1)")"
3670 PRINT"[154]  [255] [211]EELISCH  :"P2"[157][157] % ("MID$("[186][170][169]",P2/34+1,1)")"
3680 PRINT"[153]  * [199]EISTIG   :"P3"[157][157] % ("MID$("[186][170][169]",P3/34+1,1)")"
3690 PRINTTAB(30)">>[212][193][211][212][197]<<"
3700 POKE198,0:WAIT198,1
3710 GOTO3000
3720 :
10000 REM ROUTINE ZUR BERECHNUNG DES
10010 REM    JULIANISCHEN DATUMS
10020 J=J-1890
10030 JD=2411367+365*J+INT((J+1)/4)
10040 JD=JD+ML(M)+T-1
10050 JD=JD+(((J+2)/4=INT((J+2)/4))*(M>2))
10060 I=(JD+1)/7 : WT$=WT$((I-INT(I))*7+.5)
10070 RETURN
10080 :
10500 REM DATEN EINLESEN
10510 FOR I=1 TO 12 : READ ML(I) : NEXT
10520 FOR I=0 TO 6 : READ WT$(I) : NEXT
10530 RETURN
10540 :
11000 REM DATUM EINGEBEN
11010 :
11020 CF=1:T=15:M=6:J=1970
11030 GOSUB11500
11040 GETA$
11050 IFCF>1THEN11090
11060 IFA$="[145]"ORA$="+"THENT=T+1:IFT>31THENT=1
11070 IFA$=""ORA$="-"THENT=T-1:IFT<1THENT=31
11080 GOTO11150
11090 IFCF>2THEN11130
11100 IFA$="[145]"ORA$="+"THENM=M+1:IFM>12THENM=1
11110 IFA$=""ORA$="-"THENM=M-1:IFM<1THENM=12
11120 GOTO11150
11130 IFA$="[145]"ORA$="+"THENJ=J+1:IFJ>1999THENJ=1890
11140 IFA$=""ORA$="-"THENJ=J-1:IFJ<1890THENJ=1999
11150 IFA$=""THENCF=CF+1:IFCF>3THENCF=1
11160 IFA$="[157]"THENCF=CF-1:IFCF<1THENCF=3
11170 IFA$=CHR$(13)THENCF=4:GOSUB11500:PRINT:RETURN
11180 IFA$=""THEN11040
11190 GOTO11030
11200 :
11500 REM DATUM DRUCKEN
11510 PRINT"[154]";:IFCF=1THENPRINT"";
11520 PRINTSPC(2+(T>9));T;
11530 PRINT"[154]";:IFCF=2THENPRINT"";
11540 PRINTSPC(2+(M>9));"[157][157]";M;
11550 PRINT"[154]";:IFCF=3THENPRINT"";
11560 PRINTSPC(5-LEN(STR$(J)));"[157]";J;
11570 PRINT"[157][157][157][157][157][157][157][157][157]..[157][157][157][157][157][157][157][157]";
11580 RETURN
11590 :
12000 REM DATUM HOLEN
12010 T=PEEK(828):M=PEEK(829):J=PEEK(830)+PEEK(831)*256
12020 IF J>1890 AND J<2099 THEN RETURN
12030 T=1 : M=1 : J=1989
12040 RETURN
12050 :
12500 REM DATUM SPEICHERN
12510 POKE828,T:POKE829,M
12520 HJ=INT(J/256):LJ=J-HJ*256
12530 POKE830,LJ:POKE831,HJ
12540 RETURN
12550 :
50000 DATA 0,31,59,90,120,151,181,212,243,273,304,334
50010 DATA "[205]ONTAG","[196]IENSTAG","[205]ITTWOCH","[196]ONNERSTAG"
50020 DATA "[198]REITAG","[211]AMSTAG","[211]ONNTAG"