rem fr portfolio von R.Rumrich cls DIM b$(6),x(3) cls locate 4,14 print"BIORYTHMUS" locate 8,1:print "Nach Eingaben >RETURN sonst bel. Taste":wait b$(0)="Montag" b$(1)="Dienstag" b$(2)="Mittwoch" b$(3)="Donnerstag" b$(4)="Freitag" b$(5)="Samstag" b$(6)="Sonntag" dim g(4),h(4),y(4) cls 30 input "Heutiger Tag?[X-od-XX] ",h(0) input "Monat? [X-od-XX] ",h(1) input "Jahr?[XXXX] ",h(2) input"Alles korrektJ/N";k$:if k$="n" then 30 50 Input "Geburtstag? ",g(0) input "Geburtsmonat? ",g(1) input "Geburtsjahr? ",g(2) input"Alles korrektJ/N";k$:if k$="n" then 50 y(0)=h(0):y(2)=h(1) y(1)=h(2):t=g(0):m=g(1):j=g(2) GOSUB 200 g(3)=s:g(4)=j:k=y(3):t=h(0):m=h(1):j=h(2) GOSUB 200 h(3)=s:h(4)=j:r=y(3):l=h(3)-g(3)+1 p=l-int(l/23)*23:if p=0 then p=23 i=l-int(l/33)*33:if i=0 then i=33 e=l-int(l/28)*28:if e=0 then e=28 b=l-int(l/38)*38:if b=0 then b=38 cls print "Geburtstag = ";b$(k) print "Heute = ";b$(r) print "Du bist ";l-1;" Tage alt!" print "Deine heutige Verfassung:":wait cls c$=" Positiv":n$=" Negativ" k$=" VORSICHT!" if p=1 then x$=k$ if p>=2 then x$=c$ if p=12 then x$=k$ if p>=13 then x$=n$ print "K™RPERLICH:";p;x$; " 1+12=kr-23 Tage" print if i=1 then x$=k$ if i>=2 then x$=c$ if i=17 then x$=k$ if i>=18 then x$=n$ print "GEISTIG: ";i;x$; " 1+17=kr-33 Tage" print if e=1 then x$=k$ if e>=2 then x$=c$ if e=15 then x$=k$ if e>=16 then x$=n$ print "SEELISCH ";e;x$;" 1+15=kr-28 Tage" print if b=1 then x$=k$ if b>=2 then x$=c$ if b=19 then X$=k$ if b>=20 then x$=n$ print "FEINSINNIG:";b;x$;" 1+19=kr-39 Tage" wait if a$ = "j" then goto 180 if a$ = "y" then goto 1025 180 cls: INPUT "Partnerschaftsanalyse(Y/N)";a$ 182 if a$ = "n" then GOTO 5100 183 if a$ = "y" then GOTO 1000 200 if m<3 then 220 210 goto 230 220 j=j-1: m=m+12 230 s= int(365.25*j)-int(j/100)+int(j/400)+31*(m-1) 235 s=s-int(.4*m+2.3)+t 240 j=s+1721060:y(3)=j-int(j/7)*7:return 1000 q=p: z=i:u=e:f=b:p=0:i=0:e=0:b=0 1020 print "Neue daten eingeben!":goto 50 1025 cls x(0)=int(p-q):if x(0)>11 then x(0)=23-abs(p-q) if x(0)<0 then x(0) =x(0)*-1 x(0)=x(0)*100/11.5 x(0)=100-x(0) print "K”rperliche šbereinstimmung ";int(x(0));"%" x(1)=abs(i-z):if x(1)>16.5 then x(1)=33-abs(z-i) if x(1)<0 then x(1) =x(1)*-1 x(1)=x(1)*100/16.5 x(1)=100-x(1) print "Geistige šbereinstimmung ";int(x(1));"%" x(2)=abs(e-u):if x(2)>14 then x(2)=28-abs(e-u) if x(2)<0 then x(2) =x(2)*-1 x(2)=x(2)*100/14 x(2)=100-x(2) print "Seelische šbereinstimmung ";int(x(2));"%" x(3)=abs(b-f):if x(3)>19 then x(3)=38-abs(b-f) if x(3)<0 then x(3) =x(3)*-1 x(3)=x(3)*100/19 x(3)=100-x(3) print "Feinsinnliche šbereinstimmung ";int(x(3));"%" d=int(x(0)+x(1)+x(2)+x(3))/4 print "Durchschnitt ";d;"%" print print "Es folgt die Deutung. Taste!" wait:cls if x(0)<=4 then gosub 6000 if x(0)>4 and x(0)<22 then gosub 6010 if x(0)>=22 and x(0)<39 then gosub 6020 if x(0)>=39 and x(0)<65 then gosub 6030 if x(0)>=65 and x(0)<91 then gosub 6040 if x(0)>91 then gosub 6050 wait:cls if x(2)<=7 then gosub 7000 if x(2)>7 and x(2)<21 then gosub 7010 if x(2)>=21 and x(2)<36 then gosub 7020 if x(2)>=36 and x(2)<64 then gosub 7030 if x(2)>=64 and x(2)<93 then gosub 7040 if x(2)>=93 then gosub 7050 wait:cls if x(1)<=3 then gosub 8000 if x(1)>3 and x(1)<21 then gosub 8010 if x(1)>=21 and x(1)<39 then gosub 8020 if x(1)>=39 and x(1)<64 then gosub 8030 if x(1)>=64 and x(1)<94 then gosub 8040 if x(1)>=94 then gosub 8050 wait:cls if x(3)<5 then gosub 9000 if x(3)>=5 and x(3)<21 then gosub 9010 if x(3)>=21 and x(3)<37 then gosub 9020 if x(3)>=37 and x(3)<63 then gosub 9030 if x(3)>=63 and x(3)<95 then gosub 9040 if x(3)>=95 then gosub 9050 wait:cls print "Weitere Partner (Y/N)?";:input a$ cls if a$="y" then 1020 if a$="n" then 5100 5100 input "Neue Berechnung(J/N)?";a$ if a$ ="j" then 50 if a$ ="n" then end 6000 print "K-šbereinst. ";int(x(0));"%-ungew”hnl.Anziehung" print "Diese gegenl„ufige Partnerschaft ist " print "ein Sonderfall: Man beobachtet am An-" print "fang eine starke erotische Anziehung," print "die jedoch mit der Zeit abkhlt und in" print "Abneigung o. sogar Haá umschlagen kann" print "Allg. keine harmonische Partnerschaft" return 6010 Print "K-šbereinst. ";int(x(0));"%-schwache Anziehung" print "Es stellen sich Abneigungen ein, wie " print "Gleichgltigkeit, Zurckhaltung, vor-" print "sichtiges Handeln. K”rperliche Anzieh-" print "ung ist die Ausnahme. Lustlosigkeit in" print "erotischem Verlangen. Man braucht ein" print "groáes Maá an Anpassung." return 6020 print "K-šbereinst. ";int(x(0));"%-m„áige Anziehung" print "Meiát d„mpfende Wirkung im erotischen " print "Bereich.Unterschiede in Aktivit„t(k”rp." print "T„tigkeit) z.B. Sport. Der Wunsch nach" print "gemeinsamen Tun h„lt sich in Grenzen." return 6030Print "K-šbereinst. ";int(x(0));"%-ausgeglich. Anziehung " print "Es beseht ann„hernd Ausgeglichenheit" print "in der Rythmuskurve. Die Partner kommen" print "gut miteinander aus. Gr”áere Komplika-" print "tionen lassen sich vermeiden. In Erotik" print "und Sexualit„t keine besonders starke" print "Faszination. Viele Gemeinsamkeiten." return 6040Print "K-šbereinst. ";int(x(0));"%-groáe Anziehung" print "Starke Anziehungskraft, ausgepr„gtes" print "Zusammengeh”rigkeitsgefhl. Leistungs-" print "bereitschaft stellt sich meist z. glei-" print "chen Zeit ein (Sport etc.) Die Partner" print "vertrauen einnander. Anhaltende und " print "stabile Liebesbeziehungen." return 6050 print "k-šbereinst. ";int(x(0));"%-berragende Anziehung" print "Meist Liebe auf d. ersten Blick.H”chst-" print "werte in Harmonie und Glcksempfinden." print "Zwei Herzen schlagen im gleichen Takt!" print "Die starke Anziehung kann auch negativ" print "sein, wenn man das Gefhl hat, seine" print "Freiheit verloren zu haben." return 7000 print "S-šbereinst. ";int(x(2));"%-ungew. Anziehung" print "Auáergew”hnliche Verbindungen.Ein st„n-" print "diges Auf und Ab. Starke Reize bei der" print "ersten Begegnung. Mit der Zeit lassen" print "aber die Bindungskr„fte nach. Es gilt " print "die Devise: Entweder Alles oder Nichts!" return 7010 Print "S-šbereinst. "int(x(2));"%-schwache Anziehung" print "Bedarf hoher Anpassungsbereitschaft. Es" print "muá m. einem Wechselbad der Gefhle ge-" print "rechnet werd. Toleranz und Flexibilit„t" print "sind gefragt. Stimmungsschwankungen." print "Seelische Grausamkeiten sind m”glich" return 7020 print "S-šbereinst. ";int(x(2));"%-m„áige Anziehung" print "Es kann zu Verstimmungen im Gefhlsbe-" print "reich kommen. Man kann sich auf Dauer" print "nur verstehen,wenn hohe šbereinstimmung" print "auf anderen Gebieten besteht.Mangelndes" print "Verst„ndnis fr einander. Mangel an ge-" print "meinsamen Gefhlen." return 7030 print "S-šbereinst. ";int(x(2));"%-ausgeglich. Anziehung" print "Es l„át sich ein normales Funktonieren" print "der Gefhlsmitteilen erwarten.In Zeiten" print "gegens„tzlicher Stimmungen ist der Zu-" print "spruch des Partners n”tig. Dabei werden" print "wechselseitige Anregungen vermittelt.So" print "entwickelt sich ein harmonisches Leben." return 7040 print "S-šbereinst. ";int(x(2));"%-groáe Anziehung" print "Hohe Harmoniewerte in dieser Partner-" print "schaft. L”st romantische Empfindungen " print "aus. Verst„ndnis fr Unzul„nglichkeiten" print "des Anderen. Man empfindet Liebe und" print "Verehrung fr ihn. Die Partner sind auf" print "gleicher Wellenl„nge!" return 7050 print "E-šbereinst. ";int(x(2));"%-berrag. Anziehung" print "Die Gefhle erfahren einer šbersteiger-" print "ung. Dies fhrt zu tiefer Ent„uschung" print "wenn am anderen M„ngel entdeckt werden" print "Dies als Folge bergroáer Zuneigung." print "Man lebt m. einem unerfllbaren Wunsch-" print "bild, das Schmerz und Leid bringen kann" return 8000 print "G-šbereinstimmug ";int(x(1));"%-sehr ger.Anziehung" print "Man befindet sich st„ndig in der kontr." print "Phase als sein Partner. dies muá nicht" print "negativ sein, kann aber zu Miáver-" print "st„ndnissen fhren. M”gliche Probleme" print "in Komunikation auf gestigem Gebiet." print "Meinungsverschiedenheiten vermeiden!" return 8010 print "G-šbereinst. ";int(x(1));"%-schwache Anziehung" print "Geringe šbereinstimmung und geistige" print "Anziehungskraft. Kann nur mit viel To-" print "renanz der Partner auf geistigem Gebiet" print "berwunden werden. Sonst Gefahr, daá" print "die geistigen Intressen die Partner-" print "schaft erheblich belasten" return 8020 print "G-šbereinst. ";int(x(1));"%-m„áige Anziehung" print "M”glich, daá die šbereinstimmung aus-" print "reicht, sich der geist. Unterschiede" print "bewuát zu sein u. man e. Gef„hrdung der" print "Beziehung nicht aufkommen l„át.Die Part" print "nerschaft ist abh„ngig von einer gr”s-" print "seren Harmonie auf anderen Biorythmen" return 8040 print "G-šbereinstimmung. ";int(x(1));"%-groáe Anziehung" print "Groáe geistige Verwandtschaft, inten-" print "siver Gedankenaustausch, recht gnstig" print "fr die Partnerbeziehung. Fehlender" print "seelischer Gleichklang kann durch gei-" print "seistige Komunikation wett gemacht wer-" print "den. Berufliche Zusammenarbeit m”glich." return 8030 print "G-šbereinst. ";int(x(1));"%-ausgeglich.Anziehung" print "Das Verst„ndnis fr die Aktivit„ten des" print "Partners werden wechselnd mehr oder we-" print "niger groá sein. Geistige Probleme k”n-" print "nen meist gel”st werden. Die Bereit-" print "schaft zur Konversation ist vorhanden." print "Miáverst„ndnisse k”nnen gekl„rt werden." return 8050 print "G-šbereinst. ";int(x(1));"%-berrag. Anziehung" print "Fast gleichzeitig kommen Gedanken und" print "Erkenntnisse auf.Das geistige Miteinan-" print "der kann gut abgestimmt werden. Keine" print "Probleme bei der Auswahl geistiger In-" print "teressen.Zu starke Vertrautheit in spez" print "Fragen u. Ansichten k”nnten st”ren." return 9000 print "F-šbereinst. ";int(x(3));"%-ungew”hnl. Anziehung" print "Feinsinnige Wahrnehmungen sind hier" Print "durch ihre Polarit„t gekenntzeichnet." print "Trotzdem kommt es nicht unbedingt zu" print "einer Blockade gemeinsamer Empfindungen" print "Doch sind Disharmonien nicht auszu-" print "schlieáen, trotz Reiz der Gegens„tze" return 9010 print "F-šbereinst. ";int(x(3));"%-Sehr ger. Anziehung" print "Die Unterschiede im Verm”gen, Umwelt-" print "eindrcke wahrzunehmen und zu verar-" print "beiten, werden oft belasten wirken. Ein" print "groáes Maá an Freizgigkeit und Einfh-" print "lungsverm”gen k”nnten Spannungen ab-" print "bauen helfen." return 9020 print "F-šbereinst. ";int(x(3));"%-M„áige Anziehung" print "Der Beurteilung geschmacklicher Dinge" print "fehlt die gemeinsame Linie. Bei Fragen" print "der knstlerischen Gestaltung meist " print "kein gemeinsamer Nenner. Gefahr sich " print "auf den Geist zu gehen! Sinnvolle Er-" print "g„nzungen k”nnten zu Harmonie fhren." return 9030 print "F-šbereinst. ";int(x(3));"%-ausgegl. Anziehung" print "Trotz Reibungsanl„ssen kommen die Part-" print "ner zufriedenstellend mit einander aus" print "Man muá sich nur den n”tigen Freiraum" print "zubilligen. Toleranz sind erg„nzende " print "M”glichkeiten fr gute Kompromisse. Oft" print "beleben andersart. Sch”nheitsempfinden." return 9040 print "F-šbereinst. ";int(x(3));"%-groáe Anziehung" print "Gleichartige Žuáerungen des intuitiven" print "Empfindens wirken sich f”rderlich auf" print "den Bestand der Partnerschaft. Die „s-" print "thetische Intimit„t vermittelt gemein-" print "sames Erleben von Sch”nheit z.B. i.der" print "Natur, Kunst, des Zusammenseins." return 9050 print "F-šbereinst. ";int(x(3));"%-berrag. Anziehung" print "Eine so weitgehende šbereinstimmung der" print "feinsinnigen Empfindungen wird wahr-" print "scheinlich groáe Bindungskr„fte frei-" print "machen und fr die Dauerhaftigeit der" print "Beziehung zwischen den Partner f”rder-" print "lich sein. Abh„ngigkeit kann sich bild." return