home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / BIORYTHM (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.4 KB  |  138 lines
  1. 1 OPEN4,4:PRINT#4
  2. 2 FORI=1TO3:GOSUB141:NEXT
  3. 3 A$="BIORHYTHM CHART":GOSUB142:GOSUB141
  4. 4 A$="===========================":GOSUB142
  5. 5 FORI=1TO3:GOSUB141:NEXT
  6. 6 CLOSE4
  7. 7 REM=============================
  8. 8 REM      BIORHYTHM PROGRAM
  9. 9 REM=============================
  10. 10 :
  11. 11 CLR:X=53280:POKEX,0:POKEX+1,0
  12. 12 :
  13. 13 REM-----------------------------
  14. 14 REM          I N I T I A L I Z E
  15. 15 REM-----------------------------
  16. 16 :
  17. 17 DIMM$(12),D(12),X$(31)
  18. 18 DATAJAN,31,FEB,28,MAR,31,APR,30
  19. 19 DATAMAY,31,JUN,30,JUL,31,AUG,31
  20. 20 DATASEP,30,OCT,31,NOV,30,DEC,31
  21. 21 FORI=1TO12:READM$(I),D(I):NEXT
  22. 22 :
  23. 23 P1=23
  24. 24 P2=28
  25. 25 P3=33
  26. 26 P9=6.283185
  27. 27 :
  28. 28 D1=P9/P1
  29. 29 D2=P9/P2
  30. 30 D3=P9/P3
  31. 31 :
  32. 32 REM-----------------------------
  33. 33 REM         U S E R    I N P U T
  34. 34 REM-----------------------------
  35. 35 :
  36. 36 PRINT"ô       * * * BIORHYTHM * * *"
  37. 37 INPUT"  YOUR NAME PLEASE: ";N$
  38. 38 X$="M"
  39. 39 N1=0:PRINT""
  40. 40 INPUT"æææ  YOUR BIRTHYEAR (FOUR DIGITS) :";B3
  41. 41 IFB3<1900THENPRINT"  SORRY....YEARS AFTER 1899 ONLY.         úúúúú":GOTO40
  42. 42 IFB3/4=INT(B3/4)THEND(2)=29
  43. 43 INPUT"  YOUR BIRTHMONTH (1 - 12) : ";B1
  44. 44 IFB1<1ORB1>12THENPRINT"ææææ":GOTO43
  45. 45 PRINT"  YOUR BIRTHDATE  (1 -"D(B1)"¥): ";:INPUTB2
  46. 46 IFB2<1ORB2>D(B1)THENPRINT"æææ":GOTO45
  47. 47 PRINT""
  48. 48 IFB1>    
  49. 49 IFB1=2ANDB2=29THEN51
  50. 50 IFINT((B3-1900)/4)=(B3-1900)/4THENN1=1
  51. 51 INPUT"  CHART WHAT MONTH: ";C1
  52. 52 INPUT"  CHART WHAT YEAR:  ";C3
  53. 53 IFC1<1ORC1>12THENPRINT"æææ  NO SUCH MONTH!":GOTO51
  54. 54 IFC3<=B3THENPRINT"æææ  MUST BE AFTER BIRTHYEAR!":GOTO51
  55. 55 D(2)=28:IFC3/4=INT(C3/4)THEND(2)=29
  56. 56 X=D(B1)
  57. 57 :
  58. 58 REM-----------------------------
  59. 59 REM    D A Y S    O F    L I F E
  60. 60 REM-----------------------------
  61. 61 :
  62. 62 N1=N1+X-B2
  63. 63 IFB1=12THEN68
  64. 64 FORJ=B1+1TO12
  65. 65 N1=N1+D(J)
  66. 66 NEXTJ
  67. 67 :
  68. 68 IFC3-B3<2THEN75
  69. 69 FORJ=B3-1899TOC3-1901
  70. 70 IFINT(J/4)=J/4THEN72
  71. 71     
  72. 72 N1=N1+1
  73. 73 N1=N1+365
  74. 74 NEXTJ
  75. 75 :
  76. 76 IFC1=1THEN81
  77. 77 FORJ=1TOC1-1
  78. 78 N1=N1+D(J)
  79. 79 NEXTJ
  80. 80 :
  81. 81 IFINT((C3-1900)/4)<>(C3/4)THEN85
  82. 82 IFC1>2THEN84
  83. 83 GOTO85
  84. 84 N1=N1+1
  85. 85 I1=N1
  86. 86 I2=N1
  87. 87 I3=N1
  88. 88 :
  89. 89 REM-----------------------------
  90. 90 REM              P R I N T O U T
  91. 91 REM-----------------------------
  92. 92 :
  93. 93 PRINT"ô    PRINTING, STANDBY"
  94. 94 IFUTHEN107
  95. 95 OPEN4,4:PRINT#4,CHR$(14);
  96. 96 A$="  BIORHYTHM CHART FOR "+N$:GOSUB143
  97. 97 PRINT#4,CHR$(14)"  BIRTHDATE:"B2;M$(B1);B3:PRINT#4:PRINT#4,CHR$(15)
  98. 98 PRINT#4,"                   I = INTELLECTUAL/    GNITIVE"
  99. 99 PRINT#4,"                   P = PHYSICAL "
  100. 100 PRINT#4,"                   E = EMOTIONAL"
  101. 101 PRINT#4,"                   + = OVERLAPING CURVES"
  102. 102 PRINT#4:PRINT#4
  103. 103 PRINT#4,CHR$(14)"  BIORHYTHM CHART STARTING "M$(C1);C3:PRINT#4
  104. 104 PRINT#4,CHR$(14)"  AS OF THE FIRST OF "M$(C1);C3:PRINT#4
  105. 105 PRINT#4,CHR$(14)"  YOU HAVE LIVED"N1"DAYS.":PRINT#4:PRINT#4:PRINT#4,CHR$(15)
  106. 106 PRINT#4,SPC(22)"NEGATIVE"SPC(15)"POSITIVE":PRINT#4
  107. 107 FORL=1TOD(C1)
  108. 108 FORI=1TO31
  109. 109 X$(I)=" "
  110. 110 NEXTI
  111. 111 X$(16)="*"
  112. 112 Y1=INT(15*SIN((L+I1)*D1)+16.5)
  113. 113 Y2=INT(15*SIN((L+I2)*D2)+16.5)
  114. 114 Y3=INT(15*SIN((L+I3)*D3)+16.5)
  115. 115 X    
  116. 116 X$(Y2)="E"
  117. 117 X$(Y3)="I"
  118. 118 IFY1=Y2THENX$(Y1)="+"
  119. 119 IFY1=Y3THENX$(Y1)="+"
  120. 120 IFY2=Y3THENX$(Y3)="+"
  121. 121 IFL<10THENPRINT#4,"     "M$(C1)" "L;TAB(10);
  122. 122 IFL>9THENPRINT#4,"     "M$(C1);L;TAB(10);
  123. 123 FORJ=1TO31
  124. 124 PRINT#4,X$(J);
  125. 125 NEXT
  126. 126 PRINT#4,TAB(12);N1:N1=N1+1
  127. 127 NEXTL
  128. 128 PRINT"ô   CONTINUE THRU NEXT MONTH?":GOSUB138:IFA$="N"THEN131
  129. 129 C1=C1+1:IFC1=13THENC1=1:C3=C3+1
  130. 130 U=1:N1=0:GOTO55
  131. 131 PRINT#4:PRINT#4:PRINT#4,CHR$(140):CLOSE4
  132. 132 PRINT"ô        ANOTHER CHART?"
  133. 133 GOSUB138:IFA$="Y"THENRUN
  134. 134 REM======= TERMINATION =========
  135. 135 END
  136. 136 REM******* SUBROUTINE **********
  137. 137 :    
  138.