home *** CD-ROM | disk | FTP | other *** search
/ Avalon 6 / Avalon_06_1995_Avalon_Side_B.d64 / biorythms (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  174 lines
  1. 1 print"[147]biorhythm
  2. 4 [143] version 1.0 #g1009
  3. 5 [153]"for":[151]53280,7:[151]53281,7
  4. 10 [143] biorhythm 2.5
  5. 20 [153]"load";[163]11);"biorhythm 1.0wait":[153]"do you want instructions (y/n)?";
  6. 30 pi[178][171]2[172][255]:r[178]7:d$[178]""
  7. 40 r$[178]"cmd":t$[178]"or":u$[178]"/":q$[178]"-":g$[178]"-"
  8. 90 [134]m%(13),m$(12)
  9. 100 [129]i[178]1[164]13:[135]m%(i):[130]
  10. 110 [129]i[178]1[164]12:[135]m$(i):[130]
  11. 120 [129]i[178]1[164]23:d$[178]d$[170]"":[130]
  12. 130 [129]i[178]1[164]39:e$[178]e$[170]" ":r$[178]r$[170]"":[130]
  13. 135 [129]i[178]1[164]39:e$[178]e$[170]"cmd":[130]
  14. 140 [129]i[178]1[164]37
  15. 150 t$[178]t$[170]"=":u$[178]u$[170]">":g$[178]g$[170]"(NULL)"
  16. 160 [130]
  17. 165 t$[178]t$[170]"^":u$[178]u$[170]"exp":g$[178]g$[170]"<"
  18. 170 [129]i[178]1[164]18:q$[178]q$[170]" (NULL)":[130]:q$[178]q$[170]" <"
  19. 176 [161]ww$:[139][200](ww$,1)[178]"y"[167]10000
  20. 178 [139][200](ww$,1)[179][177]"n"[167]176
  21. 200 [153]"loadpress return after each reply!":[153]
  22. 202 [153]"input name please? ";:[141] 63000
  23. 250 ww$[178][200](ww$,18):n$[178]ww$
  24. 260 [139]n$[178]""[167]n$[178]"anonymous"
  25. 290 [153]:[153]" please enter dates as 8 digit numbers "
  26. 291 [153]"in the format of ddmmyy                "
  27. 292 [153]" e.g. august 1, 1945 would be 01081945 ":[153]:[153]
  28. 300 [153]"                                        "
  29. 302 [153]"  birthdate? ";:[141]63000
  30. 304 [139][195](ww$)[179][177]8[176][197](ww$)[179][178]0[167]300
  31. 306 [139] ([197]([200](ww$,2))[177]31)[176]([197]([202](ww$,3,2))[177]12)[167]300
  32. 308 [139] ([197]([200](ww$,2))[179][178]0)[176]([197]([202](ww$,3,2))[179][178]0)[167]300
  33. 310 db[178][197]([200](ww$,2)):mb[178][197]([202](ww$,3,2)):yb[178][197]([201](ww$,4))
  34. 320 mb[178][181](mb):db[178][181](db):yb[178][181](yb)
  35. 350 tb[178][181](db[170]365.25[172]yb[170]m%(mb)[170].01[172]mb[171].03)
  36. 400 [153]"                                        "
  37. 402 [153]"  start date? ";:[141]63000
  38. 404 [139][195](ww$)[179][177]8[176][197](ww$)[179][178]0[167]400
  39. 406 [139] ([197]([200](ww$,2))[177]31)[176]([197]([202](ww$,3,2))[177]12)[167]400
  40. 408 [139] ([197]([200](ww$,2))[179][178]0)[176]([197]([202](ww$,3,2))[179][178]0)[167]400
  41. 410 d[178][197]([200](ww$,2)):ms[178][197]([202](ww$,3,2)):ys[178][197]([201](ww$,4))
  42. 420 ms[178][181](ms):d[178][181](ds):ys[178][181](ys)
  43. 450 ts[178][181](ds[170]365.25[172]ys[170]m%(ms)[170].01[172]ms[171].03)
  44. 500 tt[178]ts[171]tb
  45. 510 ps[178]23[172](tt[173]23[171][181](tt[173]23))
  46. 520 es[178]28[172](tt[173]28[171][181](tt[173]28))
  47. 530 is[178]33[172](tt[173]33[171][181](tt[173]33))
  48. 900 [141]8000
  49. 1000 [129]k[178]0[164]38
  50. 1010 p[178]r[170]r[172][191]((ps[170]k)[172]pi[173]23)[170].5
  51. 1020 [153][200](d$,p[170]5);[200](r$,k[170]2);"clratnstop"
  52. 1030 [130]
  53. 2000 [129]k[178]0[164]38
  54. 2010 e[178]r[170]r[172][191]((es[170]k)[172]pi[173]28)[170].5
  55. 2020 [153][200](d$,e[170]5);[200](r$,k[170]2);"(NULL)stop"
  56. 2030 [130]
  57. 3000 [129]k[178]0[164]38
  58. 3010 i[178]r[170]r[172][191]((is[170]k)[172]pi[173]33)[170].5
  59. 3020 [153][200](d$,i[170]5);[200](r$,k[170]2);"*for"
  60. 3030 [130]
  61. 3040 [153]"'space'-con:'!'-exit:'n'-another:p-print"
  62. 5000 [161]a$:[139]a$[178]""[167]5000
  63. 5010 [129]i[178]1[164]150:[161]aa$:[130]
  64. 5015 [139] a$[178]"!" [167] 63998
  65. 5020 [139]a$[178]"n"[167]200
  66. 5025 [139]a$[178]"p"[167]9000
  67. 5050 ms[178]md:d[178]dd:ys[178]yd
  68. 5080 [137]450
  69. 8000 [153]"load"[163]10)" b i o r h y t h m wait"
  70. 8010 [153]"for  ";n$"wait born "m$(mb);db;[201]([196](yb),4)
  71. 8100 [153]t$
  72. 8110 [129]i[178]1[164]r:[153]q$:[130]:[153]g$
  73. 8120 [129]i[178]1[164]r:[153]q$:[130]:[153]u$
  74. 8180 md[178]ms:dd[178]ds:yd[178]ys
  75. 8190 y[178]0:[129]i[178]0[164]38
  76. 8195 y[178]y[170]1
  77. 8200 [139]i[173]2[179][177][181](i[173]2)[167][153]"";:[137]8250
  78. 8205 a$[178][201]([196](dd),2)
  79. 8210 [139]dd[179]10[167][153]""[201](a$,1)"on";:[137]8220
  80. 8215 [153][200](a$,1)"cmd"[201](a$,1)"on";
  81. 8220 [139]dd[177]1[167]8250
  82. 8230 [139]y[179][178]32[167][153]"cmd"m$(md)yd"cmdcmdcmdcmdcmdcmdcmdcmdwait";
  83. 8250 dd[178]dd[170]1
  84. 8255 [139]dd[179][178](m%(md[170]1)[171]m%(md))[167]8290
  85. 8265 [139]md[179][177]2[167]8280
  86. 8270 [139]yd[173]4[179][177][181](yd[173]4)[167]8280
  87. 8275 [139]dd[179]30[167]8290
  88. 8280 dd[178]1:md[178]md[170]1:[139]md[177]12[167]md[178]1:yd[178]yd[170]1
  89. 8290 [130]
  90. 8500 [153]:[153]"physical= clratnforwait emotional=(NULL)forwait interlectual*for"
  91. 8600 c$[178]"up    crit    dwn"
  92. 8610 [153]"cmd";
  93. 8620 [129]i[178]1[164][195](c$)
  94. 8630 [153][202](c$,i,1)"cmd";
  95. 8640 [130]
  96. 8800 [142]
  97. 9000 [143]  **  printer  **
  98. 9005 [159]3,4:[157]3
  99. 9007 [153][163]20)
  100. 9010 [129]n[178]1024[164]2023
  101. 9020 v[178]([194](n))
  102. 9022 [139]v[178]93[167]v[178]98
  103. 9024 [139]v[178]91[167]v[178]98
  104. 9026 [139]v[178]107[167]v[178]171
  105. 9028 [139]v[178]115[167]v[178]179
  106. 9030 [139]v[178]114[167]v[178]178
  107. 9032 [139]v[178]113[167]v[178]177
  108. 9038 [139]v[179]26[167]v[178]v[170]64
  109. 9040 [139]g[177]39[167]g[178]0:[153][199](145):[153][163]20)
  110. 9050 g[178]g[170]1
  111. 9060 [153][199](v);
  112. 9070 [130]n
  113. 9080 [152]3:[160]3:[137]5000
  114. 10000 [153]"load"
  115. 10010 [153]"   biorhythmwait displays a physical,"
  116. 10020 [153]"emotional, and intellectual pattern"
  117. 10030 [153]"that indicates your up and down days"
  118. 10040 [153]"for any period of time, in blocks of"
  119. 10050 [153]"39 days.  biorhythmwait attempts to predict"
  120. 10060 [153]"good or bad days in the future, and"
  121. 10070 [153]"to tell good and bad days in the past."
  122. 10080 [153]"   these predictions are based on"
  123. 10090 [153]"various studies to determine why"
  124. 10100 [153]"accidents occur.  some people believe"
  125. 10110 [153]"that physical attributes follow fixed"
  126. 10120 [153]"periods. the periods & symbols, as they"
  127. 10130 [153]"appear on the graph, are shown below:"
  128. 10140 [153]"  atn=physicalwait lenlenlenlenlenlenlenlen> 23wait days"
  129. 10150 [153]"  (NULL)=emotionalwait lenlenlenlenlenlenlen> 28wait days"
  130. 10160 [153]"  *=intellectualwait lenlenlenlen> 33wait days"
  131. 10170 [153]"";[163]5);"(press any key to continue)";
  132. 10180 [161] a$:[139] a$[178]"" [167] 10180
  133. 10185 [129]zz[178]1[164]150:[161]a$:[130]
  134. 10190 [153]"load   these cycles are sine wave cycles"
  135. 10200 [153]"beginning at birth.  the critical days"
  136. 10210 [153]"purportedly occur during transitions"
  137. 10220 [153]"between 'up' days and 'down' days."
  138. 10228 [153]"the biorhythm theory suggests"
  139. 10230 [153]"that during the critical days you"
  140. 10240 [153]"are more prone to errors, accidents,"
  141. 10250 [153]"and physical setbacks."
  142. 10260 [153]"   'critical' days are indicated when"
  143. 10270 [153]"the sine wave passes through the center"
  144. 10271 [153]"axis marked 'crit'.  'up' and 'down'"
  145. 10272 [153]"days are marked 'up' and 'dwn' on the"
  146. 10273 [153]"right side of the graph."
  147. 10280 [153]"   when the appropriate prompt appears,"
  148. 10290 [153]"type in your name, birthday, and"
  149. 10300 [153]"desired starting date, each followed"
  150. 10310 [153]"by the return key.  to see the next"
  151. 10320 [153]"39 day block, press the space key"
  152. 10330 [153]"";[163]5);"(press any key to continue)";
  153. 10340 [161] a$:[139] a$[178]"" [167] 10340
  154. 10345 [129]zz[178]1[164]150:[161]a$:[130]
  155. 10350 [137] 200
  156. 50000 [131] 0,31,59,90,120,151,181,212,243,273,304,334,365
  157. 50010 [131] jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec
  158. 63000 ww$[178]"":[143] general input 1.3
  159. 63020 [153]"spc(cmd";:[129]vv[178]1[164]50:[161]qq$:[139]qq$[179][177]""[167]vv[178]51:[137]63100
  160. 63040 [130]:[153]" cmd";:[129]vv[178]1[164]50:[161]qq$:[139]qq$[179][177]""[167]vv[178]51:[137]63100
  161. 63050 [130]:[137]63020
  162. 63100 [130]:[139][198](qq$)[178]13[167][153]" cmd";:[142]
  163. 63110 [139][198](qq$)[178]20[167]63200
  164. 63120 [139][198](qq$)[178]34[167]qq$[178]"'"
  165. 63130 [139]qq$[179]" "[176]"z"[179]qq$[167]63020
  166. 63140 ww$[178]ww$[170]qq$:[139][195](ww$)[177]254[167]ww$[178]""
  167. 63160 [153]" cmd"qq$;:[137]63020
  168. 63200 [139][195](ww$)[179]1[167]63000
  169. 63210 [139][195](ww$)[178]1[167][153]qq$;:[137]63000
  170. 63220 ww$[178][200](ww$,[195](ww$)[171]1):[153]qq$;:[137]63020
  171. 63221 [153]"load"
  172. 63998 [153]"load"
  173. 63999 [128]:[143]"end of biorhythm property of commodore
  174.