home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 28 / 028.d81 / biorhythm (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  333 lines
  1. 90 gosub60100
  2. 100 poke53280,15:poke53281,15
  3. 140 print"[147][144]               [194][201][207][210][200][217][212][200][205] "
  4. 150 dima(150):gosub2290
  5. 160 df=6.28318
  6. 170 goto240
  7. 180 x=(v/x-int(v/x))*df
  8. 190 y=sin(x)
  9. 200 x=x*57.295755
  10. 210 y=(y*18)+44
  11. 220 y=int(y)
  12. 230 goto2330
  13. 240 bk$="[223]":dimg$(15):print:print
  14. 245 print"[144][211]tarting [196]ate ([197][216]: 09 12 1984):":print"[163][163] [163][163] [163][163][163][163]":print"[145][145]";
  15. 250 print"=>          [157][157][157][157][157][157][157][157][157][157]";bk$;:mo=2:nc=10:gosub60500
  16. 255 ifmid$(a$,3,1)=" "andmid$(a$,6,1)=" "then260
  17. 256 print"[205][213][211][212] [196][201][214][201][196][197] [205][207][206][212][200], [196][193][212][197] & [217][197][193][210] [215][201][212][200] [193]   [211][208][193][195][197]![157][157][157][157][157][157][163][163][163][163][163][163]":goto245
  18. 260 a=val(mid$(a$,1,2)):b=val(mid$(a$,4,2)):c=val(mid$(a$,7,4))
  19. 262 ifa<1ora>12orb<1orb>31thenprint"[205][207][206][212][200] [207][210] [196][193][217] [206][207][212] [208][207][211][211][201][194][204][197].":goto245
  20. 265 m=a:d=b:y=c
  21. 270 gosub1380
  22. 280 z=t:print
  23. 290 print"[144][217]our [194]irthday ([197][216]: 09 12 1984):":print"[163][163] [163][163] [163][163][163][163]":print"[145][145]";
  24. 300 print"=>          [157][157][157][157][157][157][157][157][157][157]";bk$;:mo=2:nc=10:gosub60500
  25. 305 ifmid$(a$,3,1)=" "andmid$(a$,6,1)=" "then310
  26. 306 print"[205][213][211][212] [196][201][214][201][196][197] [205][207][206][212][200], [196][193][212][197] & [217][197][193][210] [215][201][212][200] [193]   [211][208][193][195][197]![157][157][157][157][157][157][163][163][163][163][163][163]":goto290
  27. 310 e=val(mid$(a$,1,2)):f=val(mid$(a$,4,2)):g=val(mid$(a$,7,4))
  28. 315 ife<1ore>12orf<1orf>31thenprint"[205][207][206][212][200] [207][210] [196][193][217] [206][207][212] [208][207][211][211][201][194][204][197].":goto290
  29. 316 ifc>=gthen320
  30. 317 ifa>=ethen320
  31. 318 ifb>=fthen320
  32. 319 print"[211][212][193][210][212][201][206][199] [196][193][212][197] [205][213][211][212] [194][197] [204][193][212][197][210] [212][200][193][206] [217][207][213][210]   [194][201][210][212][200][196][193][212][197]!":goto245
  33. 320 m=e:d=f:y=g:gosub1380
  34. 330 v=t-z
  35. 340 v=abs(v)
  36. 350 ::
  37. 360 print
  38. 370 print"[200]ow many days do you want displayed?":print"[163][163][163][163]":print"[145][145]";
  39. 380 print"=>    [157][157][157][157]";bk$;:mo=2:nc=4:gosub60500:o=val(a$)
  40. 390 rem *** cycle choice ***
  41. 400 printtab(11)"[208]... [208]lot [208]hysical"
  42. 410 printtab(11)"[201]... [208]lot [201]ntellectual"
  43. 420 printtab(11)"[211]... [208]lot [211]ensitivity"
  44. 430 printtab(11)"[193]... [208]lot [193]ll cycles"
  45. 440 print
  46. 450 printtab(12)"[197]nter [211]election:[146] [157]";bk$;:nc=1:mo=16:gosub60500:l$=a$:print
  47. 460 ifl$<>"p"andl$<>"i"andl$<>"s"andl$<>"a"thenprint"[145][145]";:goto450
  48. 470 printchr$(147):print
  49. 480 print:print
  50. 490 print"[217]our birthday is ";:mn=e
  51. 500 gosub1170
  52. 510 printf;g
  53. 520 print"[217]ou were born on a ";:db=n+1:gosub1300
  54. 530 print".":printv;"days (";int((v/365)*100)/100;"years) ago."
  55. 540 print
  56. 550 print"[217]our biorhythm cycles from:"
  57. 560 mn=a:gosub1170:printb;c;"to ";
  58. 570 s=a:r=b+o-1:t=c
  59. 580 ifs<12then600
  60. 590 s=1:t=t+1:goto630
  61. 600 ifs<>2then630
  62. 610 ifint(t/4)<>t/4then630
  63. 620 k=1
  64. 630 ifr<=a(s+100)+kthen660
  65. 640 r=r-(a(s+100)+k):ifs<>1thens=s+1:k=0
  66. 650 goto580
  67. 660 mn=s:gosub1170:printr;t
  68. 670 print:print:printtab(8);"[211]- [211]end chart to screen."
  69. 680 printtab(8);"[208]- [211]end chart to printer."
  70. 690 print:printtab(12);"[208]ress [211] or [208]"
  71. 700 getz$:ifz$=""then700
  72. 705 ifz$="s"orz$="[211]"then1760
  73. 706 ifz$="p"orz$="[208]"then720
  74. 710 goto700
  75. 720 print:printtab(4)"[212]urn on printer and press return.[146]"
  76. 725 print"        [208]ress [[211][208][193][195][197]] to abort."
  77. 730 getz$:ifz$=""then730
  78. 732 ifz$=chr$(13)then740
  79. 735 ifz$=" "then670
  80. 740 a$=chr$(16):open15,4,15:close15
  81. 742 ifst=0then750
  82. 744 print"          [208][210][201][206][212][197][210] [206][207][212] [207][206][204][201][206][197]![144]"
  83. 746 forz5=1to2000:next:print"[145]                              [145]"
  84. 748 goto730
  85. 750 a$=chr$(16):open4,4
  86. 760 print#4,spc(36)"[211][217][205][194][207][204][211]":print#4,spc(36)"-------"
  87. 770 print#4,spc(28)"[221]... [195]enter line"
  88. 780 print#4,spc(28)"[208]... [208]hysical (23-days)"
  89. 790 print#4,spc(28)"[211]... [211]ensitivity (28-days)"
  90. 800 print#4,spc(28)"[201]... [201]ntellectual (33-days)"
  91. 810 print#4:print#4
  92. 820 print#4,spc(7)"[196]ate";spc(9)"(-)";spc(18)"([221])";spc(18)"(+)":print#4
  93. 830 print#4
  94. 840 u=v+n:u=u-7*int(u/7):b=b-1:u=u-1:v=v-1:k=0
  95. 850 fori=1too:v=v+1:b=b+1:u=u+1:ifa<>2then880
  96. 860 ifint(c/4)<>c/4then880
  97. 870 k=1
  98. 880 ifb<=a(a+100)+kthen900
  99. 890 a=a+1:b=1
  100. 900 ifu<7then920
  101. 910 u=0
  102. 920 ifa<=12then940
  103. 930 a=1:c=c+1
  104. 940 if(a<>e)+(b<>f)then960
  105. 950 print#4,spc(28)"--- [200][193][208][208][217] ";abs(c-g);" [194][201][210][212][200][196][193][217] ---":print#4
  106. 960 da=u+1:gosub1550
  107. 970 print#4,"   ";:gosub1630:print#4,b;c;
  108. 980 ifl$="p"orl$="a"then1000
  109. 990 goto1010
  110. 1000 x=23:gosub180:a(30)=y
  111. 1010 ifl$="s"orl$="a"then1030
  112. 1020 goto1040
  113. 1030 x=28:gosub180:a(35)=y
  114. 1040 ifl$="i"orl$="a"then1060
  115. 1050 goto1070
  116. 1060 x=33:gosub180:a(40)=y
  117. 1070 m=0:forl=19to66:print#4,a$;len(str$(l));
  118. 1080 ifa(30)=lthenprint#4,"[208]";:goto1130
  119. 1090 ifa(35)=lthenprint#4,"[211]";:goto1130
  120. 1100 ifa(40)=lthenprint#4,"[201]";:goto1130
  121. 1110 ifl=40thenprint#4,"[221]";
  122. 1120 ifl=66thenprint#4,
  123. 1130 m=m+1:ifm<>4then1140:l=100
  124. 1140 nextl,i
  125. 1150 print#4:close4:goto2350
  126. 1160 ::
  127. 1170 ifmn=1thenprint"[202]anuary";:goto2330
  128. 1180 ifmn=2thenprint"[198]ebruary";:goto2330
  129. 1190 ifmn=3thenprint"[205]arch";:goto2330
  130. 1200 ifmn=4thenprint"[193]pril";:goto2330
  131. 1210 ifmn=5thenprint"[205]ay";:goto2330
  132. 1220 ifmn=6thenprint"[202]une";:goto2330
  133. 1230 ifmn=7thenprint"[202]uly";:goto2330
  134. 1240 ifmn=8thenprint"[193]ugust";:goto2330
  135. 1250 ifmn=9thenprint"[211]eptember";:goto2330
  136. 1260 ifmn=10thenprint"[207]ctober";:goto2330
  137. 1270 ifmn=11thenprint"[206]ovember";:goto2330
  138. 1280 print"[196]ecember";:goto2330
  139. 1290 ::
  140. 1300 ifdb=1thenprint"[215]ednesday";:goto2330
  141. 1310 ifdb=2thenprint"[212]hursday";:goto2330
  142. 1320 ifdb=3thenprint"[198]riday";:goto2330
  143. 1330 ifdb=4thenprint"[211]aturday";:goto2330
  144. 1340 ifdb=5thenprint"[211]unday";:goto2330
  145. 1350 ifdb=6thenprint"[205]onday";:goto2330
  146. 1360 print"[212]uesday";:goto2330
  147. 1370 ::
  148. 1380 h=y-1800:i=int(h/4):j=int(i/25)
  149. 1390 l=int((h+200)/400)
  150. 1400 k=0
  151. 1410 ifi*4<>hthen1450
  152. 1420 ifj*100<>hthen1450
  153. 1430 ifl*400-200<>hthen1450
  154. 1440 k=1
  155. 1450 t=365*h+i-j+l-k
  156. 1460 t=t+a(m)+d-1
  157. 1470 ifm<3then1490
  158. 1480 t=t+k
  159. 1490 ifint(h/4)<>h/4then1520
  160. 1500 ifm>2then1520
  161. 1510 t=t-1
  162. 1520 n=t-7*int(t/7)
  163. 1530 goto2330
  164. 1540 ::
  165. 1550 ifda=1thenprint#4,"[215][197][196]";:goto2330
  166. 1560 ifda=2thenprint#4,"[212][200][213]";:goto2330
  167. 1570 ifda=3thenprint#4,"[198][210][201]";:goto2330
  168. 1580 ifda=4thenprint#4,"[211][193][212]";:goto2330
  169. 1590 ifda=5thenprint#4,"[211][213][206]";:goto2330
  170. 1600 ifda=6thenprint#4,"[205][207][206]";:goto2330
  171. 1610 print#4,"[212][213][197]";:goto2330
  172. 1620 ::
  173. 1630 ifa=1thenprint#4,"[202][193][206]";:goto2330
  174. 1640 ifa=2thenprint#4,"[198][197][194]";:goto2330
  175. 1650 ifa=3thenprint#4,"[205][193][210]";:goto2330
  176. 1660 ifa=4thenprint#4,"[193][208][210]";:goto2330
  177. 1670 ifa=5thenprint#4,"[205][193][217]";:goto2330
  178. 1680 ifa=6thenprint#4,"[202][213][206]";:goto2330
  179. 1690 ifa=7thenprint#4,"[202][213][204]";:goto2330
  180. 1700 ifa=8thenprint#4,"[193][213][199]";:goto2330
  181. 1710 ifa=9thenprint#4,"[211][197][208]";:goto2330
  182. 1720 ifa=10thenprint#4,"[207][195][212]";:goto2330
  183. 1730 ifa=11thenprint#4,"[206][207][214]";:goto2330
  184. 1740 print#4,"[196][197][195]";:goto2330
  185. 1750 ::
  186. 1760 printchr$(147)
  187. 1770 printtab(16)"[211][217][205][194][207][204][211]":printtab(16)"-------"
  188. 1780 printtab(5)"[144][221]... [195]enter line"
  189. 1790 printtab(5)"[208]... [208]hysical (23-days)"
  190. 1800 printtab(5)"[211]... [211]ensitivity (28-days)"
  191. 1810 printtab(5)"[201]... [201]ntellectual (33-days)"
  192. 1820 print:print
  193. 1830 print"[144][196]ate";tab(13)"(-)";tab(21)"(x)";tab(28)"(+)"
  194. 1840 print
  195. 1850 u=v+n:u=u-7*int(u/7):b=b-1:u=u-1:v=v-1:k=0
  196. 1860 fori=1too:v=v+1:b=b+1:u=u+1:ifa<>2then1890
  197. 1870 ifint(c/4)<>c/4then1890
  198. 1880 k=1
  199. 1890 ifb<=a(a+100)+kthen1910
  200. 1900 a=a+1:b=1
  201. 1910 ifu<7then1930
  202. 1920 u