Minimum Requirement:
HP 41C
82180A Extended Functions ROM
82160A HP-IL Module
82163A Video Interface
82182A Time Module
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