'
' BIO.BAS
' (C) 4/16/92
' by PKF
'
D=10
F=50
A=0
B=64
C=1.05
H=1.5
K=-31.99
Dim T(11),S$(6)
For Z=0 To 11
  Read T(Z)
Next Z
For Z=0 To 6
  Read S$(Z)
Next Z
Cls
Input "Please input the name of the first person  : ",No1$
Input "Please input his/her birth day (DD,MM,YYYY): ",Gn1%,Mn1%,An1%
Print
Input "Please input the name of the second person : ",No2$
Input "Please input his/her birth day (DD,MM,YYYY): ",Gn2%,Mn2%,An2%
Print
Input "Please input the starting day (DD,MM,YYYY) : ",Ggs%,Mms%,Aas%
Prim%=An1%*365+(Trunc(An1%/4)+1)+T(Mn1%-1)+Gn1%-(Mn1%<3)*(An1% Mod 4=0)
Second%=An2%*365+(Trunc(An2%/4)+1)+T(Mn2%-1)+Gn2%-(Mn2%<3)*(An2% Mod 4=0)
Stdio%=Aas%*365+(Trunc(Aas%/4)+1)+T(Mms%-1)+Ggs%-(Mms%<3)*(Aas% Mod 4=0)
G1%=Abs(Stdio%-Prim%)
G2%=Abs(Stdio%-Second%)
G3%=Abs(Prim%-Second%)
Cls
Print " Biorhythms - v1.0 "
Print " (C) 4/16/1992, by "
Print "        PKF        "
Print
Print
Print "Since ";S$(Prim% Mod 7);" ";Gn1%;".";Mn1%;".";An1%;" ";No1$;" lived ";G1%;" days."
Print "Since ";S$(Second% Mod 7);" ";Gn2%;".";Mn2%;".";An2%;" ";No2$;" lived ";G2%;" days."
Print "Difference between ";No1$;" and ";No2$;": ";G3%;" days."
Fis1=G1% Mod 23
Emo1=G1% Mod 28
Mnt1=G1% Mod 33
Fis2=G2% Mod 23
Emo2=G2% Mod 28
Mnt2=G2% Mod 33
Fis3=G3% Mod 23
Emo3=G3% Mod 28
Mnt3=G3% Mod 33
Cmpf=Abs(100-200*Fis3/23)
Cmpe=Abs(100-200*Emo3/28)
Cmpi=Abs(100-200*Mnt3/33)
Print
Print ,"Physical","Emotive","Intellectual"
Print "Period",Fis1,Emo1,Mnt1
Print ,Fis2,Emo2,Mnt2
Print
Print ,Fis3,Emo3,Mnt3
Print "Compatibility",Cmpf;"%",Cmpe;"%",Cmpi;"%"
Void Inp(2)
Cls
Print At(2,2);
Print "Since ";S$(Prim% Mod 7);" ";Gn1%;".";Mn1%;".";An1%;" ";No1$;" lived ";G1%;" days."
Print At(2,24);
Print "Since ";S$(Second% Mod 7);" ";Gn2%;".";Mn2%;".";An2%;" ";No2$;" lived ";G2%;" days."
Box 0,0,639,399
Line 319+K*D,0,319+K*D,398
Line 0,199-(H+0.5)*F,638,199-(H+0.5)*F
Line 0,199-(H-3.5)*F,638,199-(H-3.5)*F
N=5
Dim W(N),Z(N),Y(N)
For X=A To B Step C
  Y(0)=Sin((X+G1%)/23*Pi*2)+0.5
  Y(1)=Sin((X+G1%)/28*Pi*2)+0.5
  Y(2)=Sin((X+G1%)/33*Pi*2)+0.5
  Y(3)=Sin((X+G2%)/23*Pi*2)-3.5
  Y(4)=Sin((X+G2%)/28*Pi*2)-3.5
  Y(5)=Sin((X+G2%)/33*Pi*2)-3.5
  For I=0 To N
    If X=A
      W(I)=X
      Z(I)=Y(I)
    Endif
    If Y(I)>((-199/F)-1) And Y(I)<((199/F)+1)
      Defline 1+(I Mod 3)*2
      Line 319+W(I)*D+K*D,199-Z(I)*F-H*F,319+X*D+K*D,199-Y(I)*F-H*F
      W(I)=X
      Z(I)=Y(I)
    Endif
  Next I
Next X
Color 15
Deftext ,,,4
Defline 0
For Z=0+K*D To 319 Step D
  Line 319+Z,197-(H+0.5)*F,319+Z,201-(H+0.5)*F
  Line 319+Z,197-(H-3.5)*F,319+Z,201-(H-3.5)*F
  If Abs((Trunc(Z/D)+27) Mod 7)=0 And Abs(Trunc(Z/D)+27)>0
    Text 274+Z,206-(H+0.5)*F,Str$(Trunc(Z/D)+27)
    Text 274+Z,206-(H-3.5)*F,Str$(Trunc(Z/D)+27)
  Endif
Next Z
For Z=0-H*F To 199 Step F
  Line 320+K*D,199+Z+F/2,323+K*D,199+Z+F/2
Next Z
For Z=0+H*F To 199 Step F
  Line 320+K*D,199-Z+F/2,323+K*D,199-Z+F/2
Next Z
Deftext ,,,13
Print At(2,13);"Starting day:  ";S$(Stdio% Mod 7);" ";Ggs%;".";Mms%;".";Aas%
Print At(60,12);"Physical	";Int(Cmpf);"%"
Print At(60,13);"Emotive	";Int(Cmpe);"%"
Print At(60,14);"Intellectual   ";Int(Cmpi);"%"
For Z=0 To 2
  Defline Z*2+1
  Line 420,192+Z*16-8,450,192+Z*16-8
Next Z
Void Inp(2)
End
Data 0,31,59,90,120,151,181,212,243,273,304,334
Data Thursday,Friday,Saturday,Sunday,Monday,Tuesday,Wednesday