01 LBL "T"
 02 XEQ A
 03 STO 00
 04 2
 05 STO 01
 06 *
 07 STO 02
 08 CLX
 09 X<>Y
 10 X<=Y?
 11 GTO 00
 12 1
 13 STO 03
 14 X=Y?
 15 GTO 01
 16 LBL 02
 17 CLX
 18 RCL 02
 19 RCL 00
 20 *
 21 RCL 03
 22 LASTX
 23 STO 03
 24 RDN
 25 -
 26 STO 00
 27 CLX
 28 RCL 01
 29 1
 30 +
 31 STO 01
 32 X<=Y?
 33 GTO 02
 34 LBL 01
 35 RCL 00
 36 "T"
 37 GTO d
 38 LBL 00
 39 1
 40 "T"
 41 GTO d
 42 LBL "P"
 43 XEQ A
 44 STO 01
 45 STO 04
 46 CLX
 47 X<>Y
 48 STO 00
 49 X<=Y?
 50 GTO 00
 51 1
 52 STO 03
 53 X<>Y
 54 X<=Y?
 55 GTO 04
 56 2
 57 STO 02
 58 LBL 03
 59 RCL 04
 60 RCL 01
 61 *
 62 ENTER
 63 ENTER
 64 RCL 03
 65 -
 66 +
 67 LASTX
 68 RCL 04
 69 STO 03
 70 CLX
 71 RCL 02
 72 /
 73 -
 74 STO 04
 75 RCL 00
 76 RCL 02
 77 1
 78 +
 79 STO 02
 80 X<=Y?
 81 GTO 03
 82 RCL 04
 83 "P"
 84 GTO d
 85 LBL 04
 86 RCL 01
 87 RTN
 88 LBL H
 89 XEQ A
 90 STO 01
 91 2
 92 *
 93 STO 03
 94 CLX
 95 X<>Y
 96 X<=Y?
 97 GTO 00
 98 1
 99 STO 00
100 STO 02
101 X<>Y
102 X<=Y?
103 GTO 05
104 LBL 06
105 RCL 00
106 RCL 03
107 STO 00
108 RCL 01
109 *
110 X<>Y
111 RCL 02
112 *
113 -
114 2
115 *
116 STO 03
117 CLX
118 RCL 02
119 1
120 +
121 STO 02
122 X<>Y
123 X#Y?
124 GTO 06
125 RCL 03
126 "H"
127 GTO d
128 LBL 05
129 RCL 03
130 RTN
131 LBL "L"
132 XEQ A
133 ENTER
134 1
135 STO 03
136 +
137 STO 01
138 2
139 STO 02
140 X<>Y
141 -
142 STO 04
143 CLX
144 X<>Y
145 X<=Y?
146 GTO 00
147 STO 00
148 1
149 X<>Y
150 X<=Y?
151 GTO 07
152 LBL 08
153 RCL 04
154 RCL 03
155 -
156 RCL 04
157 +
158 RCL 01
159 RCL 04
160 *
161 RCL 03
162 -
163 RCL 02
164 /
165 RCL 04
166 STO 03
167 RDN
168 -
169 STO 04
170 RCL 00
171 RCL 02
172 1
173 +
174 STO 02
175 X<=Y?
176 GTO 08
177 LBL 07
178 RCL 04
179 "L"
180 GTO d
181 STOP
182 LBL A
183 "N?"
184 PROMPT
185 STO 05
186 "X?"
187 PROMPT
188 STO 06
189 RTN
190 LBL d
191 CF 29
192 FIX 00
193 ARCL 05
194 >"<"
195 SF 29
196 FIX 02
197 ARCL 06
198 >">="
199 ARCL X
200 AVIEW
201 STOP
202 END