home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / LFS-BIORHYTHM (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  6KB  |  195 lines
  1. 10 REM     * * *  BIORHYTHM   * * *
  2. 20 REM
  3. 30 REM          8/1/87 VERSION
  4. 32 REM COPR. 1986, 1987 LOUIS F. SANDER
  5. 34 REM    OK TO COPY, NOT OK TO SELL
  6. 40 REM
  7. 50 REM         LOUIS F. SANDER
  8. 60 REM         153 MAYER DRIVE
  9. 70 REM      PITTSBURGH, PA  15237
  10. 80 REM          (412)367-1376
  11. 90 REM
  12. 100 REM ** NEXT 2 LINES SETUP PRINTER
  13. 110 :
  14. 120 PD=4 : REM PRINTER DEVICE #
  15. 130 PT=1 : REM PRINTER TYPE. TYPES ARE:           1=1525/MPS801, 2=1526/MPS802
  16. 140 :
  17. 150 F=.001:H=100.01:PI=-2*(null)
  18. 160 D$=""
  19. 170 R$="[157]"
  20. 180 DIMM%(12),M$(12)
  21. 190 FORI=1TO12:READM%(I):NEXT
  22. 200 FORI=1TO12:READM$(I):NEXT
  23. 210 GOSUB 5000
  24. 220 POKE53280,2:POKE53281,1
  25. 230 PRINT"[147]"CHR$(142)TAB(9)"BIORHYTHM CHART MAKER"
  26. 232 IFPEEK(65534)=72THEN240
  27. 234 PRINT"   THIS PROGRAM RUNS ONLY ON A C-64
  28. 236 [153]"      OR ON A C-128 IN 64 MODE.":[128]
  29. 240 [153][163]9)"SYSVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALPRINT#"
  30. 250 [153]"  THIS PROGRAM WILL CREATE A BIORHYTHM "
  31. 260 [153]"  CHART FOR ANY 38-DAY PERIOD."
  32. 270 [153]"  ENTER THE SUBJECT'S NAME BELOW, THEN
  33. 280 PRINT"  PRESS 'RETURN' TO ENTER IT."
  34. 290 PRINT"  DO THE SAME FOR DATES.  BE SURE TO"
  35. 300 PRINT"  SEPARATE MONTH, DAY & YEAR BY COMMAS."
  36. 310 PRINTTAB(32)"[197][197][197][197][197][197]"
  37. 320 N$="NO NAME":INPUT"             SUBJECT'S NAME";N$
  38. 330 IFLEN(N$)>9THENN$=LEFT$(N$,8)
  39. 340 MB=99:INPUT"[152]   DATE OF BIRTH (MM,DD,YY)";MB,DB,YB:IFMB>12THEN340
  40. 350 TB=0
  41. 360 T1=YB/4
  42. 370 IFMB<2THEN420
  43. 380 FORI=1TOMB-1
  44. 390 TB=TB+M%(I)
  45. 400 NEXT
  46. 410 IF(T1<>INT(T1))AND(MB>2)THENTB=TB+1
  47. 420 TB=TB+365*YB+INT(T1)+DB
  48. 430 MS=99:PRINT:INPUT"CHART START DATE (MM,DD,YY)";MS,DC,YS:IFMS>12THEN430
  49. 440 TS=0
  50. 450 T1=YS/4
  51. 460 IFMS<2THEN510
  52. 470 FORI=1TOMS-1
  53. 480 TS=TS+M%(I)
  54. 490 NEXT
  55. 500 IF(T1<>INT(T1))AND(MS>2)THENTS=TS+1
  56. 510 TS=TS+365*YS+INT(T1)+DC
  57. 520 TT=TS-TB
  58. 530 PS=23*(TT/23-INT(TT/23))
  59. 540 ES=28*(TT/28-INT(TT/28))
  60. 550 IS=33*(TT/33-INT(TT/33))
  61. 560 POKE53280,1
  62. 570 PRINT"[147]BIORHYTHM FOR "N$"[152] BORN ";
  63. 580 PRINTM$(MB);DB;"[157],19";MID$(STR$(YB/H+F),3,2)
  64. 582 C$="UP      CRIT    DWN"
  65. 583 FORI=1TOLEN(C$)
  66. 584 PRINTTAB(38)MID$(C$,I,1)"[157][157][157]"CHR$(148)
  67. 585 NEXT
  68. 590 PRINT"[176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
  69. 600 FORI=1TO8
  70. 610 PRINT"[171] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [179]"
  71. 620 NEXT
  72. 630 PRINT"[171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
  73. 640 FORI=1TO8
  74. 650 PRINT"[171] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [179]"
  75. 660 NEXT
  76. 670 PRINT"[173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
  77. 680 MD=MS:D1=DC:YD=YS
  78. 690 FORI=0TO38
  79. 700 IFI/2<>INT(I/2)THENPRINT"";:GOTO770
  80. 710 A$=STR$(D1)
  81. 720 IFLEN(A$)<3THENB$=RIGHT$(A$,1):GOTO740
  82. 730 B$=MID$(A$,2,1)+"[157]"+RIGHT$(A$,1)+"[145]"
  83. 740 PRINTB$;
  84. 750 C$="[146][157][157][157][157][157][157][157][145]":IFPOS(0)>34THEN770
  85. 760 IF(D1=1)OR(D1=2)THENPRINT"[157]"M$(MD)" 19"MID$(STR$(YD/H+F),3,2);C$;
  86. 770 D1=D1+1
  87. 780 IFD1<=M%(MD)THEN830
  88. 790 IFMD<>2THEN820
  89. 800 IFYD/4<>INT(YD/4)THEN820
  90. 810 IFD1<30THEN830
  91. 820 D1=1:MD=MD+1:IFMD>12THENMD=1:YD=YD+1
  92. 830 NEXT
  93. 840 PRINT"":PRINT"PHYSICAL=[158][215][152]  EMOTIONAL=[154][209][152]  INTELLECTUAL=[150]*[152]";
  94. 900 FORI=0TO38
  95. 910 P=8+8*SIN((PS+I)*PI/23)+.5
  96. 920 PRINT""LEFT$(R$,I+1);LEFT$(D$,P+2);"[158][215]"
  97. 930 NEXT
  98. 940 FORI=1TO38
  99. 950 E=8+8*SIN((ES+I)*PI/28)+.5
  100. 960 PRINT""LEFT$(R$,I+1);LEFT$(D$,E+2);"[154][209]"
  101. 970 NEXT
  102. 980 FORI=1TO38
  103. 990 IT=8+8*SIN((IS+I)*PI/33)+.5
  104. 1000 PRINT""LEFT$(R$,I+1);LEFT$(D$,IT+2);"[150]*[152]"
  105. 1010 NEXT
  106. 1020 PRINT"(C-NEW CHART S-NEW SUBJ P-PRINT Q-QUIT)[145]";
  107. 1030 GETA$:IFA$=""THEN1030
  108. 1040 IFA$="S"THENRUN
  109. 1050 IFA$="C"THEN1090
  110. 1060 IFA$="Q"THENPOKE53280,14:POKE53281,6:PRINT"[147]"TAB(16)"[158]GOODBYE![154]":END
  111. 1070 IFA$="P"THEN1150
  112. 1080 GOTO1030
  113. 1090 PRINT:PRINT"                                       [145]";
  114. 1100 GOTO430
  115. 1110 DATA31,28,31,30,31,30,31,31,30,31,30,31
  116. 1120 DATA JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC
  117. 1130 :
  118. 1140 REM ** PRINT THE SCREEN **
  119. 1150 PRINT" *** PRINTING - PLEASE BE PATIENT ***  [145]";
  120. 1160 IFPT=2THEN1280 : REM 1526/MPS802
  121. 1170 OPEN3,3:OPEN4,PD:FORSL=0TO23:PRINT#4,CHR$(15);
  122. 1180 FORSC=0TO39:C=PEEK(1024+40*SL+SC)
  123. 1190 IFC=34THENC=39
  124. 1200 IFC=162THENC=167
  125. 1210 IFRV=1THENIFC<128THENPRINT#4,CHR$(146);:RV=0
  126. 1220 IFC>127THENIFRV=0THENPRINT#4,CHR$(18);:RV=1
  127. 1230 C=C+128*(C>127):C=C-64*(C<32ORC>95)-32*(C>63ANDC<96):PRINT#4,CHR$(C);
  128. 1240 NEXT:PRINT#4,CHR$(8):RV=0:NEXT:PRINT#4,CHR$(15):CLOSE4
  129. 1250 GOTO1020
  130. 1260 :
  131. 1270 REM PRINTER TYPE 2 - 1526/MPS802
  132. 1280 OPEN6,PD,6:PRINT#6,CHR$(21):CLOSE6
  133. 1290 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
  134. 1300 OPEN3,3:OPEN4,PD:PRINT"";
  135. 1310 FORI=0TO23:FORJ=0TO39:GET#3,A$:IFPEEK(1024+40*I+J)>127THENPRINT#4,"";:R=1
  136. 1320 PRINT#4,A$;:IFR=1THENR=0:PRINT#4,"[146]";
  137. 1330 NEXTJ:PRINT#4,CHR$(141);:NEXTI
  138. 1340 FORI=1TO9:PRINT#4:NEXT
  139. 1350 CLOSE3:CLOSE4
  140. 1360 OPEN10,4,10:PRINT#10:CLOSE10
  141. 1370 GOTO1020
  142. 4999 REM ** INSTRUCTIONS **
  143. 5000 PRINTCHR$(14):POKE53280,1:POKE53281,1
  144. 5002 PRINT"[147]      [195]-64 [194]IORHYTHM [195]HART [205]AKER"
  145. 5003 PRINT"                  BY"
  146. 5004 PRINT"            [204]OUIS [198]. [211]ANDER"
  147. 5005 PRINT"[152][212]HIS CREATES [194]IORHYTHM CHARTS ON THE"
  148. 5006 PRINT"SCREEN. [201]T PRINTS THEM ON THE PRINTER"
  149. 5007 PRINT"IF YOU'D LIKE."
  150. 5008 PRINT"[211]EE LINES 100-140 FOR PRINTER SETUPS."
  151. 5009 PRINT"[196]O YOU WANT TO KNOW ABOUT THE THEORY OF [194]IORHYTHMS ([217] OR [206])?"
  152. 5010 GETA$:IFA$="N"THENRETURN
  153. 5020 IFA$<>"Y"THEN5010
  154. 60000 REM ** BIORHTYHM INSTRUCTIONS
  155. 60020 PRINT"[147]        [154][194]ACKGROUND ON [194]IORHYTHMS"
  156. 60030 PRINT"[152] [194]IORHYTHM THEORY STATES THAT ON THE"
  157. 60040 PRINT"DAY OF OUR BIRTH, THREE IMMUTABLE LIFE"
  158. 60050 PRINT"CYCLES BEGIN:"
  159. 60060 PRINT"        A 23-DAY PHYSICAL CYCLE
  160. 60070 [153]"        A 28-DAY EMOTIONAL CYCLE
  161. 60080 PRINT"        A 33-DAY INTELLECTUAL CYCLE
  162. 60090 [143]PRINT" (null)HESE CYCLES CHANGE SINUSOIDALLY,"
  163. 60100 [143] PRINT"MOVING UP AND DOWN WITH THE PASSAGE OF"
  164. 60110 [143] PRINT"TIME.
  165. 60120 PRINT" [215]HEN A CYCLE IS AT ITS HIGH POINT,"
  166. 60130 PRINT"THE PERSON IS AT HIS OR HER PEAK IN"
  167. 60140 PRINT"THAT PARTICULAR REALM OF LIFE.
  168. 60150 [153]" (null)HEN A CYCLE IS AT ITS LOW POINT, THE"
  169. 60160 [153]"PERSON IS ALSO AT A LOW."
  170. 60170 [153]" ATN 'CRITICAL DAY' OCCURS WHEN THE CYCLE"
  171. 60180 [153]"CROSSES THE ZERO AXIS. LENRITICAL DAYS"
  172. 60190 [153]"ARE CONSIDERED TO BE UNSTABLE TIMES,"
  173. 60200 [153]"WHEN UPSETS OR DISASTERS ARE LIKELY TO"
  174. 60210 [153]"OCCUR."
  175. 60220 [141]60390 
  176. 60230 [153]"LOAD STR$EPENDING ON YOUR VIEWPOINT, YOU CAN"
  177. 60240 [153]"CONSIDER PEEKIORHYTHMS AS SILLINESS OR"
  178. 60250 [153]"SCIENCE, AS FOOLISHNESS OR FACT."
  179. 60260 [153]" RIGHT$N SOME COUNTRIES AND SOME INDUSTRIES,"
  180. 60270 [153]"BIORHYTHM THEORY IS USED IN SCHEDULING"
  181. 60280 [153]"WORKERS FOR CRITICAL TASKS, SUCH AS"
  182. 60290 [153]"PILOTING AIRPLANES."
  183. 60300 [153]" PEEKUT MANY PEOPLE SCOFF AT THE THEORY,"
  184. 60310 [153]"SINCE IT HAS NO WELL-PROVEN SCIENTIFIC"
  185. 60320 [153]"FOUNDATIONS."
  186. 60330 [153]" (null)OST PUBLIC LIBRARIES HAVE BOOKS ON"
  187. 60340 [153]"PEEKIORHYTHMS, SOME OF WHICH ARE QUITE"
  188. 60350 [153]"PERSUASIVE."
  189. 60360 [153]" PEEKERNARD CHR$ITTELSON'S 'PEEKIORHYTHM, ATN"
  190. 60370 [153]"(null)ERSONAL (null)CIENCEPRINT#', IS A WELL-KNOWN WORK"
  191. 60380 [153]"IN THE FIELD.
  192. 60390 PRINT"      [208]RESS ANY KEY TO CONTINUE...[152]"
  193. 60400 GETA$:IFA$=""THEN60400
  194. 60410 RETURN
  195.