home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MISCBAS.ZIP / BIORYTH.ASC < prev    next >
Encoding:
Text File  |  1987-01-11  |  3.3 KB  |  151 lines
  1.  
  2. 1 R1=(360/33)/57.2958
  3. 2 R2=(360/28)/57.2958
  4. 3 R3=(360/23)/57.2958
  5. 50 DATA0,31,59,90,120,151,181,212,243,273,304,334,365
  6. 60 DIML$(50)
  7. 75 RESTORE
  8. 100 PRINT"ENTER BIRTHDATE,CURRENT DATE (YYMMDD)"
  9. 125 P1=0
  10. 150 J6=1
  11. 200 INPUTD1,D2
  12. 205 D9=D2
  13. 206 PRINT"ENTER DURATION"
  14. 207 INPUTJ5
  15. 210 PRINT"ENTER NAME OF SUBJECT"
  16. 220 INPUT A$
  17. 230 GOSUB12000
  18. 300 IFD1>D2THENPRINT"INVALID DATES":GOTO200
  19. 400 X1=D1
  20. 500 GOSUB1000
  21. 550 Y1=X2:M1=X3:D1=X4
  22. 600 X1=D2
  23. 625 GOSUB1000
  24. 650 Y2=X2:M2=X3:D2=X4
  25. 800 GOTO4000
  26. 1000 X2=INT(X1/10000)
  27. 1100 X3=INT(X1/100)-(X2*100)
  28. 1200 X4=X1-((X3*100)+(X2*10000))
  29. 1300 RETURN
  30. 4000 D4=(INT((Y2-1)*365.25)-INT((Y1-1)*365.25))
  31. 4100 FOR I=1TOM1
  32. 4200 READJ1
  33. 4300 NEXTI
  34. 4400 RESTORE
  35. 4500 FORI=1TOM2
  36. 4600 READJ2
  37. 4700 NEXTI
  38. 4800 J1=J1+D1
  39. 4900 J2=J2+D2
  40. 5000 L1=(Y1/4)-(INT(Y1/4))
  41. 5100 IFL1=0THENL1=1:GOTO5300
  42. 5200 L1=0
  43. 5300 L2=(Y2/4)-(INT(Y2/4))
  44. 5400 IFL2=0THENL2=1:GOTO5600
  45. 5500 L2=0
  46. 5600 IFM1>2THENJ1=J1+L1
  47. 5700 IFM2>2THENJ2=J2+L2
  48. 5800 D4=D4+J2-J1
  49. 6000 D1=(D4-(INT(D4/33)*33))
  50. 6100 D2=(D4-(INT(D4/28)*28))
  51. 6200 D3=(D4-(INT(D4/23)*23))
  52. 6300 FORL3=1TO50
  53. 6350 FORI=1TO50
  54. 6360 L$(I)=" "
  55. 6370 NEXTI
  56. 6400 X=SIN(R1*D1)
  57. 6500 Y=SIN(R2*D2)
  58. 6600 Z=SIN(R3*D3)
  59. 6700 L$(X*20+25)="*"
  60. 6800 L$(Y*20+25)="+"
  61. 6900 L$(Z*20+25)="."
  62. 6950 PRINT":  ";
  63. 7000 FORI=1TO50
  64. 7050 L$(25)=":"
  65. 7100 PRINTL$(I);
  66. 7200 NEXTI
  67. 7205 PRINT":  ";
  68. 7207 GOSUB10000:PRINTD5;" :    ";
  69. 7210 IFD1=0THENC=1:PRINT"* ";
  70. 7215 IFD1=16THENC=1:PRINT"* ";
  71. 7220 IFD2=0THENC=1:PRINT"+ ";
  72. 7225 IFD2=14THENC=1:PRINT"+ ";
  73. 7230 IFD3=0THENC=1:PRINT". ";
  74. 7235 IFD3=12THENC=1:PRINT". ";
  75. 7240 IFC=1THENC=0
  76. 7250 PRINT
  77. 7300 D1=D1+1
  78. 7400 D2=D2+1
  79. 7500 D3=D3+1
  80. 7600 IFD1=33THEND1=0
  81. 7700 IFD2=28THEND2=0
  82. 7800 IFD3=23THEND3=0
  83. 7900 J2=J2+1
  84. 7920 J6=J6+1
  85. 7950 IFJ5<J6GOTO8300
  86. 8000 NEXTL3
  87. 8050 P1=P1+1
  88. 8100 GOSUB14500
  89. 8125 PRINT:PRINT
  90. 8150 GOSUB12000
  91. 8200 GOTO6300
  92. 8300 P1=P1+1
  93. 8350 GOSUB14500
  94. 8400 FORI=1/60:PRINT:NEXTI
  95. 8500 GOTO75
  96. 10000 RESTORE
  97. 10100 FORI=1TO13
  98. 10150 J4=J3
  99. 10200 READJ3
  100. 10250 IFJ2>59THENJ3=J3+L2
  101. 10300 IFJ2<=J3GOTO11000
  102. 10400 NEXTI
  103. 10500 Y2=Y2+1
  104. 10510 L2=(Y2/4)-(INT(Y2/4))
  105. 10520 IFL2=0THENL2=1:GOTO10600
  106. 10530 L2=0
  107. 10600 J2=J2-365
  108. 10700 GOTO10000
  109. 11000 M2=I-1
  110. 11100 D6=J2-J4
  111. 11150 IFJ2=60THEND6=D6+L2
  112. 11200 D5=Y2*10000+(M2*100)+D6
  113. 11300 RETURN
  114. 12000 FORI=1TO75
  115. 12100 PRINT"-";
  116. 12200 NEXTI
  117. 12250 PRINT
  118. 12300 PRINT": COMPUTERIZED STUDY OF BIORYTHMIC CURVES";
  119. 12400 GOSUB13600
  120. 12500 PRINT": SUBJECT, ";A$;
  121. 12600 GOSUB13600
  122. 12700 PRINT": DATE OF STUDY - ";D9;" - DURATION";J5;" DAYS";
  123. 12800 GOSUB13600
  124. 12810 FORI=1TO75:PRINT"-";:NEXTI:PRINT
  125. 13200 FORI=1TO75:PRINT"-";:NEXTI
  126. 13210 PRINT
  127. 13250 PRINT":          LOW             :          HIGH           :";
  128. 13260 PRINT"   DATE    :CRITICAL";
  129. 13400 PRINT":"
  130. 13500 FORI=1TO75
  131. 13510 PRINT"-";
  132. 13520 NEXTI
  133. 13530 PRINT
  134. 13540 RETURN
  135. 13600 J=75-POS(X)
  136. 13700 FORI=1TOJ-1
  137. 13800 PRINT" ";
  138. 13900 PRINT":"
  139. 14100 RETURN
  140. 14500 FORI=1TO75:PRINT"-";:NEXTI:PRINT
  141. 14600 PRINT": * = INTELLECTUAL ABILITY, AMBITION";
  142. 14700 GOSUB13600
  143. 14800 PRINT": + = SENSIBILITY, NERVES, MOOD, CREATIVE ABILITY";
  144. 14900 GOSUB13600
  145. 15000 PRINT": . = PHYSICAL STRENGTH, FORURANCE, CONFIDENCE";
  146. 15100 GOSUB13600
  147. 15150 FORI=1TO75:PRINT"-";:NEXTI:PRINT
  148. 15200 PRINTTAB(31);"PAGE ";P1
  149. 15400 RETURN
  150. ORURANCE, CONFIDENCE";
  151. 15100 GOSUB136