00 { 405-Byte Prgm }
01▸LBL "CAL"
02 IP
03 LASTX
04 X=Y?
05 GTO 02
06 FP
07 100
08 ×
09 IP
10 LASTX
11 FP
12 1ᴇ4
13 ×
14 IP
15 STO 01
16 R↓
17 ABS
18 3
19 X≤Y?
20 GTO 01
21 +
22 9
23 +
24 1
25 STO- 01
26▸LBL 01
27 X≠0?
28 SIGN
29 +
30 30.6
31 ×
32 IP
33 X<>Y
34 ABS
35 +
36 365.25
37 RCL 01
38 ×
39 IP
40 +
41 1720995
42 +
43 2299160
44 X<>Y
45 X>Y?
46 FS? 00
47 GTO 03
48 ENTER
49 X<> 01
50 100
51 XEQ "IDIV"
52 -
53 LASTX
54 4
55 XEQ "IDIV"
56 +
57 2
58 +
59 X>Y?
60 GTO 03
61 RCL 01
62 STOP
63▸LBL 03
64 ENTER
65 ENTER
66 7
67 MOD
68 1
69 +
70 X<>Y
71 RTN
72▸LBL 02
73 STO 02
74 7
75 MOD
76 X<> 02
77 2299160
78 X<>Y
79 X>Y?
80 FS? 00
81 GTO 04
82 1
83 +
84 ENTER
85 ENTER
86 1867217.25
87 -
88 36524.25
89 XEQ "IDIV"
90 +
91 LASTX
92 4
93 XEQ "IDIV"
94 -
95▸LBL 04
96 1524
97 +
98 ENTER
99 ENTER
100 122.1
101 -
102 365.25
103 XEQ "IDIV"
104 STO 01
105 LASTX
106 ×
107 IP
108 -
109 ENTER
110 ENTER
111 30.6001
112 XEQ "IDIV"
113 LASTX
114 X<>Y
115 ENTER
116 R↓
117 ×
118 IP
119 -
120 X<>Y
121 1
122 STO+ 02
123 -
124 12
125 X≠Y?
126 X>Y?
127 GTO 05
128 -
129 1
130 STO+ 01
131▸LBL 05
132 R↓
133 100
134 ÷
135 +
136 -4716
137 RCL 01
138 +
139 STO 01
140 ABS
141 1ᴇ6
142 ÷
143 +
144 RCL 01
145 X=0?
146 E↑X
147 X≠0?
148 SIGN
149 ×
150 RCL 02
151 X<>Y
152 RTN
153▸LBL "IDIV"
154 RCL ST Y
155 X<>Y
156 MOD
157 STO- ST Y
158 X<> ST L
159 ÷
160 RTN
161▸LBL "D+"
162 IP
163 STO 03
164 X<>Y
165 XEQ "CAL"
166 RCL 03
167 +
168 XEQ "CAL"
169 RTN
170▸LBL "DD"
171 STO 03
172 X<>Y
173 XEQ "CAL"
174 X<> 03
175 XEQ "CAL"
176 RCL 03
177 -
178 RTN
179▸LBL "DY"
180 STO 03
181 100
182 ×
183 FP
184 1
185 +
186 100
187 ÷
188 XEQ "CAL"
189 X<> 03
190 XEQ "CAL"
191 RCL 03
192 -
193 RTN
194 END