home *** CD-ROM | disk | FTP | other *** search
/ Killer Drive 64 6 / Killer-Drive_64_06_1998_-_de_Side_A.d64 / biorhythmus (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  275 lines
  1. 10 dimp(23),x(23),e(28),f(28),g(33),k(33)
  2. 15 dimw$(7),l$(41),m$(12)
  3. 20 data so,mo,di,mi,do,fr,sa
  4. 25 data januar,februar,maerz,april,mai,juni,juli,august,september,oktober
  5. 30 data november,dezember
  6. 33 gosub1550
  7. 35 forn=1to23
  8. 39 rem
  9. 40 x(n)=sin(6.283185307*(n-1)/23)
  10. 45 p(n)=int(21.5+20*x(n))
  11. 50 nextn
  12. 55 forn=1to28
  13. 60 f(n)=sin(6.283185307*(n-1)/28)
  14. 65 e(n)=int(21.5+20*f(n))
  15. 70 nextn
  16. 75 forn=1to33
  17. 80 k(n)=sin(6.283185307*(n-1)/33)
  18. 85 g(n)=int(21.5+20*k(n))
  19. 90 nextn
  20. 95 forn=1to7
  21. 100 readw$(n)
  22. 105 nextn
  23. 110 forn=1to12
  24. 115 readm$(n)
  25. 120 nextn
  26. 125 forn=1to41
  27. 130 l$(n)=" "
  28. 135 nextn
  29. 140 rem if vw=>2thengosub5000:rem eingabe ************************
  30. 145 gosub5000:rem menue   ************************
  31. 175 rem
  32. 180 gosub700
  33. 185 m=m4
  34. 190 d=1
  35. 195 y=y4
  36. 200 gosub515
  37. 205 s1=j
  38. 210 gosub700
  39. 215 l1=31
  40. 220 ifm4=12then250
  41. 225 gosub580
  42. 230 s3=n3
  43. 235 m=m4+1
  44. 240 gosub580
  45. 245 l1=n3-s3
  46. 250 b=j-s1+1
  47. 255 a=b+l1-1
  48. 260 close1:open1,4:print#1:print#1,chr$(14);"biorythmus  fuer  :  ";n$:print#1
  49. 265 close1:open1,4:print#1:print#1,"geb. am ";a1;".";a2;".";a3
  50. 270 print#1:print#1:print#1,chr$(15)
  51. 275 print#1,"                                      monat :   ";m$(m4)
  52. 285 print#1,chr$(9);"index                                   ",y
  53. 290 close1:open1,4:print#1,chr$(27);"d";chr$(18);chr$(0);
  54. 295 sk$="-09876-4321-9876-43210":ss$="1234+6789+1234+67890+":sl$=sk$+ss$
  55. 300 print#1,chr$(9);"     ";sl$;"       ":xc=1
  56. 305 rem
  57. 310 v=0
  58. 315 fori=btoa
  59. 320 v=v+1
  60. 325 j3=i-1
  61. 330 k1=int(j3/23)
  62. 335 k2=j3-(k1*23)+1
  63. 340 k3=int(j3/28)
  64. 345 k4=j3-(k3*28)+1
  65. 350 k5=int(j3/33)
  66. 355 k6=j3-(k5*33)+1
  67. 360 p1=p(k2)
  68. 365 q=e(k4)
  69. 370 r=g(k6)
  70. 375 o=x(k2)+f(k4)+k(k6)
  71. 380 o=int(16666*(o+3))+1
  72. 385 l$(21)="."
  73. 390 l$(p1)="+":rem=physischer ryht.
  74. 395 l$(q)="[211]":rem=emotinaler
  75. 400 l$(r)="?":rem=intellekt
  76. 405 close1:open1,4:rem           print#1,chr$(27);"d";chr$(10);chr$(0);
  77. 410 o$=str$(o):iflen(o$)<5theno$="x"+o$
  78. 413 iflen(o$)>5theno$=right$(o$,5)
  79. 414 iflen(o$)=5orxc=1thenprint#1,o$;
  80. 415 forn=1to41
  81. 420 close1:open1,4:print#1,chr$(27);"d";chr$(7);chr$(0);
  82. 425 print#1,chr$(9);l$(n);
  83. 430 nextn
  84. 440 print#1,v;w$(n2)
  85. 445 l$(p1)=" "
  86. 450 l$(q)=" "
  87. 460 l$(r)=" "
  88. 465 n2=n2+1
  89. 470 ifn2<8then480
  90. 475 n2=1
  91. 480 nexti
  92. 485 rem      close1:open1,4:print#1,chr$(27);"d";chr$(18);chr$(0);
  93. 490 print#1:print#1,chr$(9);"     ";sl$:xc=0
  94. 495 rem
  95. 500 close1:open1,4:print#1,chr$(27);"d";chr$(23);chr$(0);
  96. 505 gosub1660:rem erklaerung kurz und evtl lang explaining ausdrucken
  97. 510 restore:goto33
  98. 515 ifm<3then535
  99. 520 m1=m-2
  100. 525 y1=y
  101. 530 goto545
  102. 535 m1=m+10
  103. 540 y1=y-1
  104. 545 c=int(y1/100)
  105. 550 d1=y1-(c*100)
  106. 555 n4=int((13*m1-1)/5)+d+d1+int(d1/4)
  107. 560 n=n4+int(c/4)-2*c+77
  108. 565 n1=int(n/7)
  109. 570 n2=n-(n1*7)+1
  110. 575 return
  111. 580 y2=int(y/4)
  112. 585 y3=y-(y2*4)
  113. 590 ify3=0then600
  114. 595 goto650
  115. 600 y2=int(y/100)
  116. 605 y3=y-(y2*100)
  117. 610 ify3=0then620
  118. 615 goto640
  119. 620 y2=int(y/400)
  120. 625 y3=y-(y2*400)
  121. 630 ify3=0then640
  122. 635 goto650
  123. 640 l1=1
  124. 645 goto655
  125. 650 l1=0
  126. 655 n1=int((3055*(m+2))/100)-91
  127. 660 l=0
  128. 665 ifm<3then690
  129. 670 ifl1=0then685
  130. 675 l=1
  131. 680 goto690
  132. 685 l=2
  133. 690 n3=n1+d-l
  134. 695 return
  135. 700 ifm<3then720
  136. 705 m1=m-3
  137. 710 y1=y
  138. 715 goto730
  139. 720 m1=m+9
  140. 725 y1=y-1
  141. 730 c=int(y1/100)
  142. 735 d1=y1-(c*100)
  143. 740 n=int((146097*c)/4)+d+int((1461*d1)/4)
  144. 745 j=n+1721119+int((153*m1+2)/5)
  145. 750 return
  146. 755 end
  147. 1000 print#1:print#1,chr$(14):print#1,"erklaerung:":print#1:print#1,chr$(15)
  148. 1005 print#1,"    wenn sie den biorhythmus als entscheidungshilfe benutzen,";
  149. 1010 print#1,"so sehen sie,          welcher tag guenstig oder unguenstig ist."
  150. 1011 print#1
  151. 1020 print#1,"    es sind 3 kurven zu sehen: der koerperliche-, der emotionale";
  152. 1030 print#1,"- und der ":print#1,"     intellektrhythmus."
  153. 1040 print#1:print#1,"im ausdruck und der erklaer";
  154. 1050 print#1,"ung werden folgenden bezeichnungen verwendet:"
  155. 1060 print#1,"  koerperlich = [+] ; emotional = [*] ; intellekt. = [?] ":print#1
  156. 1070 print#1,"     werten sie die diagramme nach";
  157. 1080 print#1," folgenden gesichtspunkten aus:"
  158. 1090 print#1,"     plusphase im '+' -rhythmus:"
  159. 1100 print#1,"           - erhoehte koerperliche leistungsfaehigkeit"
  160. 1110 print#1,"           - erhoehte abwehrbereitschaft gegen krankheiten"
  161. 1120 print#1,"           - medizinische eingriffe und behandlungen, die den ";
  162. 1125 print#1,"koerper ":print#1,"           ";
  163. 1130 print#1,"stark beanspruchen werden in dieser phase empfohlen."
  164. 1140 print#1,"    minus - phase im koerper '+' - rythmus "
  165. 1150 print#1,"           - verminderte koerperliche leistungsfaehigkeit"
  166. 1160 print#1,"         - diese zeit nutzen zum ausruhen und erholen"
  167. 1170 print#1,"    plusphase im '*' -rhythmus:"
  168. 1180 print#1,"         - ebenfalls positive koerperliche leistungsfaehigkeit."
  169. 1190 print#1,"         - diese wirkung kann sich zu der wirkung des '+' rhtym";
  170. 1200 print#1,"us addieren oder           neutralisieren, je nach konstellation."
  171. 1210 print#1,"         - erhoehtes seelisches wohlbefinden"
  172. 1220 print#1,"         - starkes sexuelles verlangen"
  173. 1230 print#1,"         - gute zeit fuer schoepferische taetigkeit"
  174. 1240 print#1,"   minusphase im '*' -rhythmus:"
  175. 1250 print#1,"         - koerperliche befindlichkeit analog dem '+' -rhythmus."
  176. 1260 print#1,"         - seelische bedruecktheit, gereiztheit."
  177. 1270 print#1,"         - verminderte sexualitaet."
  178. 1280 print#1,"         - geringe kreativitaet."
  179. 1290 print#1,"   plusphase im i - rhythmus:"
  180. 1300 print#1,"         - hohe geistige leistungsfaehigkeit"
  181. 1310 print#1,"         - wichtige arbeiten, die konzentration, gedaechtnis und";
  182. 1320 print#1," logisches ":print#1,"           ";
  183. 1321 print#1,"denken erfordern, sollte man in dieser zeit planen"
  184. 1330 print#1,"   minus in '?'- rhythmus:"
  185. 1340 print#1,"          - verminderte intellektuelle leistungsfaehigkeit."
  186. 1350 print#1,"         - zeit zur geistigen erholung benutzen"
  187. 1360 print#1,"         - koerperliche arbeiten bevorzugen, sofern k - und e -";
  188. 1370 print#1,"rhythmus dies"
  189. 1375 print#1,"           erlauben"
  190. 1380 print#1," null - werte im k - und e - rhythmus:"
  191. 1390 print#1,"         - sie haben in beiden rhytmen dieselbe bedeutung:"
  192. 1400 print#1,"         - sie gehen mit ploetzlichen koerperlichen veraender";
  193. 1410 print#1,"ungen einher. z.b.:"
  194. 1420 print#1,"         - ploetzliche krankheitsausbrueche, fieber,";
  195. 1430 print#1,"schlaflosigkeit"
  196. 1440 print#1,"         - aber auch positive veraenderungen sind moeglich! z.b."
  197. 1450 print#1,"           genesung,fieberabfall, regeneration usw."
  198. 1460 print#1,"  null tage im i - rhythmus:"
  199. 1470 print#1,"         - reduzierte geistige faehigkeiten u. aufmerksamkeit."
  200. 1480 print#1,"         - durch konzentrationsmaengel erhoehte unfallgefahr"
  201. 1490 print#1
  202. 1500 print#1,"        zur detaillierteren auswertung benutzen sie bitte die"
  203. 1510 print#1,"           umfangreiche literatur"
  204. 1520 print#1
  205. 1530 close1:return
  206. 1540 end
  207. 1550 rem start bio
  208. 1560 rem *********
  209. 1570 poke53281,5:print"[158]":rem vorspann farbe *********************
  210. 1580 close1:open1,4:print#1,chr$(27);"d";chr$(24);chr$(0);:close1
  211. 1590 print"[147]":poke53281,8:print"[158]"
  212. 1600 br$=" ************ biorhythmus *************":
  213. 1610 sv$="           software by wolfram         "
  214. 1620 printbr$:print:print:printsv$:print:print:
  215. 1630 printbr$:print:print:
  216. 1640 print:print"             bitte warten               "
  217. 1642 return:rem nach 35
  218. 1650 close1:open1,4:print#1,chr$(9);"          biorythmus von  : ";n$;"     *[160]";
  219. 1660 close1:open1,4:print#1,chr$(27);"d";chr$(23);chr$(0);:rem glueck/erklaer**
  220. 1670 print#1:rem *****kurz erklaerung **************************************
  221. 1680 print#1,"         viel glueck und alles gute ";n$
  222. 1690 print#1:print#1,"         ";
  223. 1700 print#1,"zeichenerklaerung:":print#1,
  224. 1710 print#1,"         ";:print#1,"der index zaehlt von 1 bis 99 999"
  225. 1720 print#1,"         ";
  226. 1730 print#1,"je hoeher der index ist, desto guenstiger ist ihr pers. rhythmus"
  227. 1740 print#1,"         ";
  228. 1750 print#1,"?=intell.rhythmus ;'[211]' = emotionaler - und '+' =koerperl. rhythmus"
  229. 1760 return:rem zum neuen start etc zeile 505 oder 510
  230. 1770 rem
  231. 1900 rem wiedergabe zum check ob eingabeauto1600-
  232. 1910 rem  ifd<>0thendd=d:mm=m:yy=y
  233. 1920 print:print:print"[147]name= ";n$:print:print"geburtstag = ";d;". ";m;". ";y
  234. 1930 print:print"ausdruck fuer monat und jahr :";m4;". ";y4:print:
  235. 1940 return
  236. 1950 end
  237. 2000 rem
  238. 3000 rem  ifvw>=2thend=v1:m=v2:y=v3:goto3042
  239. 3005 print:print"[147]name eingeben":rem eingabe von namen etc *********************
  240. 3010 print:print:inputn$:rem***************
  241. 3020 print:print:print"wann sind sie geboren ?"
  242. 3030 print:print"18,10,1950 bedeutet 18. okt. 1950"
  243. 3040 print:print:inputd,m,y
  244. 3042 a1=d:a2=m:a3=y:print:print:
  245. 3050 print"fuer welchen monat ausdrucken?":print:
  246. 3060 print"4,1979 = april 1979"
  247. 3070 print:print:inputm4,y4
  248. 4000 rem wiederholung zur ueberprefung ob eingabe richtig
  249. 4010 print:print:print"[147]name= ";n$:print:print"geburtstag = ";a1;". ";a2;". ";a3
  250. 4020 print:print"ausdruck fuer monat und jahr :";m4;". ";y4:print:
  251. 4030 rem    return:rem kontrollabfrage vor ausdruck
  252. 4040 gosub5000:rem zum menue
  253. 4043 return:rem zum ausdruck nach kontrolle
  254. 5000 xc=0:print"[147]              menue                     [146]":print:print
  255. 5010 print"   ausdruck -nur grafik-    = 1 "
  256. 5014 print:print"   dateneingabe fehler      = 2 "
  257. 5030 print:print"   daten e i n g e b e n    = 3 "
  258. 5040 print:print"   erklaerung -ohne grafik- = 5 "
  259. 5060 print:print"   ende                     = x"
  260. 5070 geta$:ifa$=""then5070
  261. 5080 ifa$<>"1"anda$<>"2"anda$<>"3"anda$<>"4"anda$<>"5"anda$<>"x"then5070
  262. 5090 close1:open1,4:print#1,chr$(27);"!";chr$(21);chr$(0);
  263. 5100 ifa$="2"thengosub3000
  264. 5110 ifa$="1"thenprint:print"b i t e   w a r t e n  * a u s g a b e":gosub175
  265. 5120 ifa$="3"thengosub3000:return
  266. 5130 ifa$="5"thengosub 7000:close1:open1,4:gosub1000:goto5000
  267. 5150 ifa$="x"thenend
  268. 5170 goto5000
  269. 7000 print"     drucker justiert ?"
  270. 7002 print"    dann taste <return>"
  271. 7005 getj$:ifj$=""then7005
  272. 7010 ifj$=chr$(13)then return
  273. 7020 ifj$<>chr$(13)then 5000
  274. 7030 end
  275.