100 MODE 1:INK 0,0:INK 1,26:INK 2,2:INK 3,6:BORDER 0:DEG 110 INPUT "Geboren am (Tag,Monat,Jahr)";d,m,r 120 GOSUB 290:p=n:d=0 130 INPUT "Biorhytmus am (Monat,Jahr) ";m,r       140 GOSUB 290:p=n-p:LOCATE 1,17:PRINT "Stand:":PRINT  150 GRAPHICS PEN 1:MOVE 199,0 160 DRAWR 0,200:MOVE 199,99:DRAWR 639,0 170 FOR x=1 TO 6 180  MOVE x*72+199,90:DRAWR 0,18:NEXT 190 FOR i=1 TO 3 200  READ b$,b:q=p MOD b 210  PEN i:GRAPHICS PEN i:PRINT b$ 220  PLOT 200,100+100*SIN(q*360/b) 230  FOR x=1 TO 439 STEP 5 240   y=SIN(25.4*x/b+360/b*q)  250   DRAW 200+x,100+100*y 260 NEXT x,i 270 PEN 1:END   280 DATA PHYSISCHER,23,PSYCHISCHER,28,EMOTIONALER,33   290 n=365*r+d+31*(m-1)+INT((r+(m<3))/4)-INT(0.75*(INT(r+(m<3))/100)+1)+(m>2)*INT(0.4*m+2.3) 300 RETURN