01 LBL 67
 02 LBL 10
 03 LBL A
 04 XROM 30,14
 05 CF 00
 06  E3
 07 /
 08 STO 01
 09 250
 10 STO 03
 11 X>Y?
 12 GTO 00
 13 2
 14 *
 15 STO 02
 16 X>Y?
 17 GTO 01
 18 3
 19 *
 20 X>Y?
 21 GTO 02
 22 3
 23 *
 24 X>Y?
 25 GTO 03
 26 CLX
 27 5 E3
 28 X>Y?
 29 GTO 04
 30 GTO 05
 31 LBL 00
 32  E2
 33 -
 34 X<=Y?
 35 GTO 06
 36 CLX
 37 LASTX
 38 X<=Y?
 39 GTO 07
 40 CLX
 41 40
 42 X<=Y?
 43 GTO 08
 44 2
 45 /
 46 X>Y?
 47 GTO 09
 48 X<>Y
 49 2.2
 50 XEQ 17
 51 6
 52 -
 53 GTO 00
 54 LBL 07
 55 X<>Y
 56 3
 57 XEQ 17
 58 62
 59 -
 60 GTO 00
 61 LBL 06
 62 X<>Y
 63 3.2
 64 XEQ 17
 65 92
 66 -
 67 GTO 00
 68 LBL 01
 69 X<>Y
 70 3.4
 71 XEQ 17
 72 142
 73 -
 74 GTO 00
 75 LBL 04
 76 X<>Y
 77 6.9
 78 XEQ 17
 79 8992
 80 -
 81 GTO 00
 82 LBL 05
 83 X<>Y
 84 7
 85 XEQ 17
 86 9492
 87 -
 88 LBL 00
 89  E2
 90 *
 91 RTN
 92 LBL 02
 93 37
 94 STO 04
 95 292
 96 STO 06
 97 GTO 01
 98 LBL 08
 99 20
100 STO 03
101 XEQ 00
102 STO 02
103 24
104 STO 04
105 14
106 STO 06
107 GTO 01
108 LBL 09
109 0
110 STO 02
111 STO 06
112 10
113 STO 03
114 18
115 STO 04
116 GTO 01
117 LBL 03
118 SF 00
119 500
120 STO 03
121 3
122 *
123 STO 02
124 45
125 STO 04
126 1192
127 STO 06
128 LBL 01
129 RCL 01
130 RCL 02
131 -
132 RCL 03
133 /
134 INT
135 STO 07
136 X^2
137 LASTX
138 +
139 RCL 03
140 *
141 FS? 00
142 XEQ 00
143 RCL 07
144 RCL 02
145 *
146 XEQ 00
147 FS? 00
148 XEQ 00
149 +
150 RCL 06
151 10
152 *
153 +
154 RCL 04
155 RCL 07
156 XEQ 00
157 FS? 00
158 XEQ 00
159 +
160 STO 09
161 RCL 01
162 *
163 R^
164 -
165 10
166 *
167 RTN
168 LBL 00
169 2
170 *
171 RTN
172 LBL 11
173 LBL B
174 RCL 09
175 XROM 30,12
176 RTN
177 LBL 17
178 LBL c
179  E3
180 %
181 STO 09
182 CLX
183 +
184 *
185 RTN
186 GTO 67
187 END