Biorhythm

  10 REM "BIORYTHM"
  20 CLEAR 
  21 LET L=0
  30 DIM A(12)
  35 DIM X$(7)
  40 DIM M$(12)
  45 DIM D$(7)
  48 LET Z=0
  50 DIM F(12)
  53 LET R=0
  55 DIM F$(12)
  58 LET RH=0
  59 LET RM=0
  60 LET A(1)=0
  70 LET A(2)=31
  80 LET A(3)=59
  85 LET A(4)=90
  90 LET A(5)=120
 100 LET A(6)=151
 110 LET A(7)=181
 120 LET A(8)=212
 130 LET A(9)=243
 140 LET A(10)=273
 150 LET A(11)=304
 160 LET A(12)=334
 170 LET M$(1)="JAN"
 180 LET M$(2)="FEB"
 190 LET M$(3)="MAR"
 200 LET M$(4)="APR"
 210 LET M$(5)="MAY"
 220 LET M$(6)="JUN"
 230 LET M$(7)="JUL"
 240 LET M$(8)="AUG"
 250 LET M$(9)="SEP"
 260 LET M$(10)="OCT"
 270 LET M$(11)="NOV"
 280 LET M$(12)="DEC"
 290 LET F(1)=0
 300 LET F(2)=31
 310 LET F(3)=59
 320 LET F(4)=90
 330 LET F(5)=120
 340 LET F(6)=151
 350 LET F(7)=181
 360 LET F(8)=212
 370 LET F(9)=243
 380 LET F(10)=273
 390 LET F(11)=304
 400 LET F(12)=334
 410 FOR I=1 TO 12
 420 LET A=A(I)
 430 NEXT I
 440 CLS 
 450 PRINT 
 460 PRINT 
 470 PRINT 
 480 PRINT 
 490 PRINT "THIS PROGRAM WILL PRINT OUT YOUR PERSONAL BIO-RYTHM AALYSIS"
 500 PRINT "FOR A 30 DAY PERIOD STARTING AT ANY DAY YOU SELECT"
 510 PRINT "DATES SHOULD BE ENTERED MONTH, DAY, YEAR"
 520 PRINT "EX. 7,4,76"
 530 PRINT "FOR HOW MANY DAYS DO YOU WANT YOUR BIO-RYTHM ANALYSIS?"
 540 INPUT ZA
 550 PRINT ZA
 560 PRINT "WHAT IS THE DATE AT WHICH YOU WOULD LIKE THE 30 DAY AALYSIS TO START?"
 570 INPUT M
 580 INPUT D
 590 INPUT Y
 600 PRINT M ,D ,Y 
 610 LET M=INT (M)
 620 LET D=INT (D)
 630 LET Y=INT (Y)
 640 PRINT "WHAT IS THE DATE OF YOUR BIRTH"
 650 INPUT MB
 660 INPUT DB
 670 INPUT YB
 680 PRINT MB ,DB ,YB
 690 LET MB=INT (MB)
 700 LET DB=INT (DB)
 710 LET YB=INT (YB)
 720 PRINT "WHAT IS YOUR NAME"
 730 INPUT A$
 740 PRINT A$
 750 PRINT 
 760 GOTO 830
 770 LET NI=INT (20*SIN (2*PI*X/33)+.5)
 780 RETURN 
 790 LET NE=INT (20*SIN (2*PI*X/28)+.5)
 800 RETURN 
 810 LET NP=INT (20*SIN (2*PI*X/28)+.5)
 820 RETURN 
 830 LET T=INT (D+365.25*Y+A(M)+.01*M-.01)
 840 LET TB=INT (DB+365.25*YB+A(MB)+.01*MB-.03)
 850 LET X=T-TB
 860 LET V=INT ((40-LEN (A$))/2)
 870 LET RB=TB-1-INT ((TB-1)/7)*7
 880 LET X$(1)="MONDAY"
 890 LET X$(2)="TUESDAY"
 900 LET X$(3)="WEDNESDAY"
 910 LET X$(4)="THURSDAY"
 920 LET X$(5)="FRIDAY"
 930 LET X$(6)="SATURDAY"
 940 LET X$(7)="SUNDAY"
 950 FOR I=1 TO 7
 960 LET X$=X$(I)
 970 NEXT I
 980 LET D$(1)="MON"
 990 LET D$(2)="TUE"
\n1000 LET D$(3)="WED"
\n1010 LET D$(4)="THU"
\n1020 LET D$(5)="FRI"
\n1030 LET D$(6)="SAT"
\n1040 LET D$(7)="SUN"
\n1050 FOR I=1 TO 7
\n1060 LET D$=D$(I)
\n1070 NEXT I
\n1080 LET S=0
\n1090 FOR I=1 TO 12
\n1100 LET M$=M$(I)
\n1110 NEXT I
\n1120 CLS 
\n1130 PRINT 
\n1140 PRINT "THIS IS A ";ZA;" DAY BIO-RYTHM ANALYSIS FOR ";A$
\n1150 LET R=T-1-INT ((T-1)/7)*7
\n1160 LET LE=21+LEN (X$(R))+LEN (M$(M))+LEN (STR$ (D))+LEN (STR$ (Y))
\n1170 LET V2=INT ((64-LE)/2)
\n1180 PRINT "STARTING DATE";X$(R);"M$(M)STR$ (D)";"19;"
\n1190 PRINT STR$ (YB)
\n1200 PRINT 
\n1210 LET LL=LEN (X$(RB))+LEN (M$(MB))
\n1220 LET LB=LL+18
\n1230 LET VB=INT ((64-LB)/2)
\n1240 PRINT "BIRTH DATE ";X$(RB),M$(MB),STR$ (DB),"19"
\n1250 PRINT STR$ (YB)
\n1260 PRINT STR$ (64),(35)
\n1270 PRINT "(P)STANDS FOR PHYSICAL CYCLE"
\n1280 PRINT "(I) STANDS FOR INTELLECTUAL CYCLE"
\n1290 PRINT "(E)STANDS FOR EMOTIONAL CYCLE"
\n1300 PRINT "WHENEVER A CYCLE CROSSES THE MEDIAN LINE, THIS IS A CRITICAL DAY"
\n1310 PRINT "%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*BE CAREFUL%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*%*"
\n1340 PRINT "                   DOWN      CRITICAL            UP"
\n1350 PRINT D$(R);D;M$(M)
\n1360 LET F(1)=42
\n1370 LET F$(1)="*"
\n1380 GOSUB 770
\n1390 LET F(2)=42+NI
\n1400 LET F$(2)="I"
\n1410 GOSUB 790
\n1420 LET F(3)=42+NE
\n1430 LET F$(3)="E"
\n1440 GOSUB 810
\n1450 LET F(4)=42+NP
\n1460 LET F$(4)="P"
\n1470 FOR I=1 TO 3
\n1480 FOR J=I+1 TO 3
\n1490 IF F(I)<F(J) THEN GOTO 1600
\n1500 IF F(I)=F(J) THEN LET F(I)=0
\n1510 LET F$(I)=""
\n1515 LET F$(J)="X"
\n1520 GOTO 1600
\n1530 LET Q=F(I)
\n1540 LET Q$=F$(I)
\n1550 LET F(I)=F(J)
\n1560 LET F$(I)=F$(J)
\n1570 LET F(J)=Q
\n1580 LET F$(J)=Q$
\n1600 NEXT J
\n1610 NEXT I
\n1620 FOR I=1 TO 4
\n1630 PRINT TAB (F(I))
\n1640 PRINT TAB (F(J))
\n1650 NEXT I
\n1660 LET X=X+.5
\n1670 IF INT (X)<>X THEN GOTO 1360
\n1680 IF Z=ZA-1 THEN GOTO 2500
\n1690 LET R=RH
\n1700 IF R=7 THEN LET R=0
\n1710 LET D=D+1
\n1720 IF M=40 OR RM=60 OR RM=90 OR RM=11 THEN LET L=30
\n1730 GOTO 1800
\n1740 IF M=2 AND Y/4=INT (Y/4) THEN LET L=29
\n1750 GOTO 1800
\n1760 IF M=2 THEN LET L=28
\n1770 GOTO 1800
\n1780 LET L=31
\n1800 IF D>L THEN LET D=D-L
\n1810 LET M=M+1
\n1820 GOTO 1900
\n1830 PRINT 
\n1840 LET Z=ZH
\n1850 GOTO 1350
\n1900 IF M=13 THEN LET M=1
\n1910 LET Z=Z+1
\n1920 GOTO 1350
\n1930 LET Z=Z+1
\n1940 GOTO 1350
\n2500 PRINT 
\n2510 PRINT "IT HAS BEEN ";X-1;" DAYS OR ";(X-1)*24;" HOURS SINCE YOU WERE BORN"
\n2520 LET XS=X
\n2530 PRINT "OR APPROX, ";XS*24*90;" HEARTBEAT SINCE THE DAY OF YOUR BIRTH"
\n2540 INPUT QR
\n2550 CLEAR 
\n2560 GOTO 10
\n3000 STOP 
\n3010 SAVE "1016%9"
\n3020 RUN