10 "B" 20 CLEAR :PRINT =LPRINT 25 DIM N$(1),X$(0)*21 30 A$(27)="JAN.":A$(28)="FEB.":A$(29)="MAERZ ":A$(30)="APRIL " 35 A$(31)="MAI ":A$(32)="JUNI ":A$(33)="JULI ":A$(34)="AUG." 40 A$(35)="SEPT.":A$(36)="OKT.":A$(37)="NOV.":A$(38)="DEZ." 45 PRINT "":PRINT "***** BIO-RHYTHMUS *****************************FUER:" 50 INPUT "VORNAME:";N$(0) 55 INPUT "NACHNAME:";N$(1) 60 INPUT "GEB.-JAHR:";J:IF J<1900GOTO 60 65 INPUT "GEB.-MONAT:";M:IF (M<1)OR (M>12)GOTO 65 70 INPUT "GEB.-TAG:";T:IF (T<1)OR (T>31)GOTO 70 75 PRINT " ";N$(0):PRINT " ";N$(1) 80 PRINT "GEB.AM ";T;A$(M+26);J:PRINT "" 85 GOSUB 210:B=X 90 INPUT "FUER JAHR:";J:IF J<1900GOTO 90 95 INPUT "FUER MONAT:";M:IF (M<1)OR (M>12)GOTO 95 100 USING "#####":PRINT " (";A$(M+26);J;" )":PRINT "" 105 T=0 110 GOSUB 210:A=X 115 C=A-B 120 GOSUB 235:GOSUB 255 125 D=C-INT (C/23)*23 130 E=C-INT (C/28)*28 135 F=C-INT (C/33)*33 140 PRINT " - 0 + :---------+---------:TAG" 145 USING "###" 150 FOR I=1TO Z 155 FOR K=41TO 49:A$(K)="-":A$(K+10)="-":NEXT K 160 A$(40)=":":A$(50)="+":A$(60)=":" 165 G=(I+D)/23*360:GOSUB 270:A$(50+G)="O" 170 G=(I+E)/28*360:GOSUB 270:A$(50+G)="*" 175 G=(I+F)/33*360:GOSUB 270:A$(50+G)="X" 180 X$(0)="":FOR L=40TO 60:X$(0)=X$(0)+A$(L):NEXT L 190 PRINT X$(0);I 195 NEXT I 200 PRINT ":---------+---------:" 205 PRINT "":GOTO 390 210 IF M>=3LET Q=J:R=M+1:S=T:GOTO 220 215 Q=J-1:R=13+M:S=T 220 X=INT (365.25*Q)+INT (30.6*R)+S-122 225 X=X-INT (Q/100)+INT (Q/400) 230 RETURN 235 IF J<>4*INT (J/4)LET Y=0:RETURN 240 IF J<>100*INT (J/100)LET Y=1:RETURN 245 IF J<>400*INT (J/400)LET Y=0:RETURN 250 Y=1:RETURN 255 IF (M=4)+(M=6)+(M=9)+(M=11)=1LET Z=30:RETURN 260 IF M=2LET Z=28+Y:RETURN 265 Z=31:RETURN 270 G=G-INT (G/360)*360 275 G=INT (SIN (G)*10+.5) 280 RETURN 290 LPRINT "ZB":LPRINT "R= ";STR$ L:LPRINT "X= ";STR$ M 300 LPRINT "ZC":LPRINT "R= ";STR$ N:LPRINT "X= ";STR$ O 310 END 350 U=[1A](X*X+Y*Y) 360 V=ACS (X/U) 370 IF 0>YLET V=-V 380 RETURN 390 PRINT "( O = PHYSISCH )" 395 PRINT "( * = EMOTIONAL )" 400 PRINT "( X = INTELLEKTUELL)" 405 PRINT "":PRINT "" 410 END