Post Reply 
Biorhythm
01-01-2014, 12:06 PM (This post was last modified: 01-01-2014 12:27 PM by hp41cx.)
Post: #1
Biorhythm
Minimum Requirement:

HP 41C
82180A Extended Functions ROM
82160A HP-IL Module
82163A Video Interface
82182A Time Module

[Image: 2013-12-27075956_zpsd52bf721.jpg]

Code:

 01*LBL "CV"
 02 "" (27 69)
 03 OUTA
 04 RTN
 05*LBL 03
 06 ENTER^
 07 XEQ 02
 08 RDN
 09 ADATE
 10 3
 11 AROT
 12 FS? 06
 13 OUTA
 14 FS?C 06
 15 RTN
 16 "` "
 17 TIME
 18 ATIME
 19 AVIEW
 20 RTN
 21*LBL 02
 22 "SUNMONTUEWEDTHU"
 23 "`FRISAT"
 24 DOW
 25 1
 26 +
 27 3
 28 *
 29 AROT
 30 ASHF
 31 ASHF
 32 ASHF
 33 RTN
 34*LBL "BI"
 35 SF 17
 36 XEQ "CV"
 37 "*BIORYTHMS*"
 38 XEQ "RV"
 39 " bY GILENO"
 40 OUTA
 41 2
 42 ENTER^
 43 9
 44 XEQ "LC"
 45 "F  E  I  X"
 46 PRA
 47 3
 48 ENTER^
 49 9
 50 XEQ "LC"
 51 "="
 52 10
 53 XEQ "PC"
 54 ADV
 55 11
 56 STO 08
 57 01,301914 (Date of Birth MM,DDYYYY)
 58 DATE
 59 STO 09
 60 DDAYS
 61 RAD
 62 RCL 09
 63*LBL 10
 64 SF 06
 65 XEQ 03
 66 CLX
 67 ENTER^
 68 R^
 69 ENTER^
 70 CLA
 71 23
 72 XEQ 00
 73 28
 74 XEQ 00
 75 33
 76 XEQ 00
 77 "` "
 78 RCL Z
 79 3
 80 /
 81 XEQ 07
 82 PRA
 83 1
 84 +
 85 RCL 09
 86 1
 87 DATE+
 88 STO 09
 89 DSE 08
 90 GTO 10
 91 TONE 9
 92 DEG
 93 RTN
 94*LBL 00
 95 /
 96 FRC
 97 2
 98 *
 99 PI
100 *
101 SIN
102 "` "
103 ST+ Z
104*LBL 07
105 X=0?
106 GTO 01
107 X<0?
108 GTO 05
109 "`+"
110 ,5
111 X<=Y?
112 "`+"
113 X>Y?
114 "` "
115*LBL 06
117 RDN
118 RDN
119 ENTER^
120 RTN
121*LBL 01
122 ENTER^
123 "`C "
124 GTO 06
125*LBL 05
126 "`-"
127 -,5
128 X>Y?
129 "`-"
130 X<=Y?
131 "` "
132 GTO 06
133*LBL "LC"
134 SF 17
135 "" (27 37)
136 OUTA
137 ACCHR
138 X<>Y
139 ACCHR
140 RTN
141*LBL "RV"
142 ALENG
143*LBL 08
144 ENTER^
145 ENTER^
146 1
147 BLDSPEC
148 ATOX
149 BLDSPEC
150 ARCL X
151 RDN
152 DSE X
153 GTO 08
154 OUTA
155 RTN
156*LBL "PC"
157 ATOX
158*LBL 09
159 ACCHR
160 DSE Y
161 GTO 09
162 END

F = Physical
E = Emotional
I = Intellectual
X = Mean
C = Critical day

In my version in Portuguese in the example shown in the display "27.12SEX" corresponds DD.MMDOW

All character "`" is append in alpha

Systems Analyst
48G+/58C/85B/PC1500A
TH-78A/DooGee S9
Focal & All Basic´s
Visit this user's website Find all posts by this user
Quote this message in a reply
01-01-2014, 07:19 PM
Post: #2
RE: Biorhythm
Quote:
Code:
57 01,301914 (Date of Birth MM,DDYYYY)
Is that your birthday? Or is it 18.05.1941?

Cheers
Thomas
Find all posts by this user
Quote this message in a reply
01-01-2014, 09:22 PM
Post: #3
RE: Biorhythm
(01-01-2014 07:19 PM)Thomas Klemm Wrote:  
Quote:
Code:
57 01,301914 (Date of Birth MM,DDYYYY)
Is that your birthday? Or is it 18.05.1941?

Cheers
Thomas

January,30 1914

Systems Analyst
48G+/58C/85B/PC1500A
TH-78A/DooGee S9
Focal & All Basic´s
Visit this user's website Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)