0100 3510 0103 C ... BIORYTHMUS
Eigentlich ein Basic Programm. THIS PROGRAM WAS CREATED BY VEB MANSFELD KOMBINAT TO PERMIT THE TRACE OF BIORHYTMICS FOR PERSONS BORN AFTER 1.3.1900 THE BIORHYTMICS CONSIST OF THREE SINUSOIDAL CURVES: 1.MASCULINE RHYTM: PERIOD 23 DAYS SIGNIFIES VITALITY,STRENGTH AND DYNAMICS. 2.FEMININE RHYTM: PERIOD 28 DAYS (WITHOUT ANY CONNECTION TO THE MENSTRUAL CYCLE) SIGNIFIES AFFECTION,SEN- SITIVITY,EMOTION 3.INTELLECTUAL RYTHM: PERIOD 33 DAYS SIGNIFIES INTELL.POTENTIAL THESE THREE CURVES START ON YOUR BIRTHDAY AND THEY INTERFERE DURING YOUR WHOLE LIFE PERIOD. PLEASE ENTER THE FOLLOWING DATES 1.YOUR BIRTHDAY 2.STARTING DAY AND NUMBER OF DAYS FOR THE TRACES 3.NAME OF PERSON
   40 CLS
   45 PRINT
   50 I=0
   80 PRINT "THIS PROGRAM WAS CREATED"
   85 PRINT "BY VEB MANSFELD KOMBINAT"
   90 PRINT "TO PERMIT THE TRACE OF"
   92 PRINT "BIORHYTMICS FOR PERSONS"
  100 PRINT "BORN AFTER 1.3.1900 "
  105 PRINT "THE BIORHYTMICS CONSIST OF"
  110 PRINT "THREE SINUSOIDAL CURVES:"
  120 PRINT:PRINT "1.MASCULINE RHYTM: "
  125 PRINT "  PERIOD 23 DAYS"
  130 PRINT "  SIGNIFIES VITALITY,STRENGTH"          
  135 PRINT "    AND DYNAMICS."
  140 PRINT "2.FEMININE RHYTM:"
  142 PRINT "  PERIOD 28 DAYS"
  150 PRINT "  (WITHOUT ANY CONNECTION"
  155 PRINT "   TO THE MENSTRUAL CYCLE)"
  160 PRINT "  SIGNIFIES AFFECTION,SEN-"        
  165 PRINT "  SITIVITY,EMOTION"
  170 PRINT "3.INTELLECTUAL RYTHM:"
  175 PRINT "  PERIOD 33 DAYS"
  180 PRINT "  SIGNIFIES INTELL.POTENTIAL"
  190 PRINT:PRINT "THESE THREE CURVES"
  195 PRINT "START ON YOUR BIRTHDAY"
  200 PRINT "AND THEY INTERFERE DURING"
  205 PRINT "YOUR WHOLE LIFE PERIOD."
  230 PRINT:PRINT "PLEASE ENTER THE FOLLOWING DATES" 
  240 PRINT "1.YOUR BIRTHDAY"
  250 PRINT "2.STARTING DAY AND NUMBER"
  252 PRINT "  OF DAYS FOR THE TRACES"
  255 PRINT "3.NAME OF PERSON"
  269 PRINT "NAME OF PERSON";
  270 INPUT G$
  280 PRINT "BIRTH-DAY:"
  290 PRINT "DAY"
  300 INPUT J:J9=J
  310 PRINT "MONTH"
  320 INPUT M:M9=M
  330 PRINT "YEAR (EX:1947)"
  340 INPUT A
  350 A9=A
  360 IF M>2 THEN 400
  370 G=A-1
  380 F=M+13
  390 GOTO 420
  400 G=A
  410 F=M+1 
  420 X=(365.25*G)+(30.6*F)+J
  430:
  440 PRINT:PRINT "START OF TRACES"
  450 PRINT "DAY"
  460 INPUT J:J8=J
  470:
  480 PRINT "MONTH"
  490 INPUT M:M8=M
  500 PRINT "YEAR (EX:1982)"
  510 INPUT A
  515 A8=A
  520 PRINT "NUMBER OF DAYS"
  530 INPUT W
  540:
  550 PRINT:PRINT
  560:
  570 IF M>2 THEN 620
  580:
  590 G=A-1
  600 F=M+13
  610 GOTO 640
  620 G=A
  630 F=M+1
  640 Y=(365.25*G)+(30.6*F)+J
  650 Z=Y-X
  660 Z=INT(Z)
  690 PRINT "NAME OF PERSON:";
  691 PRINT G$;" WICH WAS BORN AT";
  692 PRINT J9;".";M9;".";A9
  693 PRINT "YOUR LIFETIME UNTIL NOW";
  695 PRINT Z;"DAYS"
  700 D1=(Z/23-INT(Z/23))*23
  740 D2=(Z/28-INT(Z/28))*28
  780 D3=(Z/33-INT(Z/33))*33
  800 D1=INT(D1+.5)
  801 D2=INT(D2+.5):D3=INT(D3+.5)
  810 PRINT ""
  820 PRINT "MASCULINE RYHTM = ***"
  830 PRINT "FEMININE  RYHTM = 000"
  840 PRINT "INTELL.   RHYTM = +++"
  850 PRINT ""
  855 PRINT "TRACE STARTING AT:"       
  856 PRINT J8;".";M8;".";A8
  857 PRINT
  860 PRINT "PHASE DIFF. ON TRACE STARTING"
  870 F=0
  880 PRINT D1;"*",D2;"0",D3;"+" 
  890 PRINT ""
  900 PRINT ""
  910 PRINT "DAYS            -<0>+"
  920 PRINT:A1=6.2831:B1=28/A1:C1=33/A1:A1=23/A1
  930 R=31+30*SIN((F+D1)/A1)
  940:
  950 S=31+30*SIN((F+D2)/B1)
  960:
  970 T=31+30*SIN((F+D3)/C1)
 1000 PRINT F+1;" ";
 1010 R$="*":S$="0":T$="+"
 1020 IF R=<S THEN 1040
 1030 H0=R:R=S:H0$=R$:R$=S$:S$=H0$
 1040 IF S=<T THEN 1070
 1050 H0=S:S=T:T=H0:H0$=S$:S$=T$:T$=H0$
 1060 GOTO 1020
 1065 R=R/2:S=S/2:T=T/2
 1070 PRINT TAB(R/2);R$;
 1080 PRINT TAB(S/2);S$;
 1090 PRINT TAB(T/2);T$;
 1170 F=F+1
 1180 PRINT " "
 1190 IF F<W THEN 930
 1200:
 1210:
 1220 PRINT "AGAIN ?";:INPUT M$
 1230 IF M$="N" THEN 1250                   
 1235 IF M$="Y" THEN 50
 1240 PRINT "PLEASE TYPE Y(es)OR N(no)":GOTO 1220
 1250 PRINT "THANKS FOR THIS TIME !":PRINT:PRINT "G O O D  B Y E ! "
 1260:
 1270 END