LBL A va_dcl
RCL 4
RCL 1
-
3
GTO 20
LBL B
rcl 03
rcl 01
+
4
lbl 20
sto 02
rdn
365.25
sto 05
30.6001
sto 06
rdn
rdn
fs?c 22
gto 21
sto ind 02
122.1
-
rcl 05
/
int
sto 09
rcl 05
*
int
rcl ind 02
-
chs
sto 00
rcl 06
/
int
sto 07
rcl 00
x<>y
rcl 06
*
int
-
sto 088
RCL 07
1
RCL 08
%
-
-
rcl 07
14
xeq 22
rcl 09
1 e6
/
+
gto 25
lbl 21
rdn
fc? 06
sto ind 02
enter^
int
sto 07
-
1 e2
*
enter^
int
sto 08
-
1 e4
*
sto 09
rcl 07
1
+
enter^
1/x
.7
+
chs
xeq 22
rcl 06
*
int
rcl 09
rcl 05
*
int
+
rcl 08
+
x<> ind 02
fs?c 06
rtn
lbl 25
enter^
xeq ind x
frc
1 e2
*
cf 28
fix 4
arcl x
rdn
aview
sf 28
rtn
lbl 22
int
st+ 09
12
*
-
rtn
lbl c
cf 29
fix 0
sto 01
rtn
lbl e
sf 06
sf 22
rcl 05
5
xeq 20
rcl ind 02
7
mod
13
+
xeq ind x
