01 LBL "PLOTHR"
 02 AON
 03 "NAME"
 04 PROMPT
 05 AOFF
 06 ASTO 11
 07 LBL 02
 08 "Y MIN"
 09 PROMPT
 10 STO 00
 11 "Y MAX"
 12 PROMPT
 13 STO 01
 14 X<=Y?
 15 GTO 02
 16 LBL 14
 17 CF 23
 18 "AXIS?"
 19 PROMPT
 20 STO 04
 21 FS? 23
 22 ASTO 04
 23 RCL 01
 24 X<Y?
 25 GTO 14
 26 CLX
 27 RCL 00
 28 X>Y?
 29 GTO 14
 30 LBL 03
 31 "X MIN"
 32 PROMPT
 33 STO 08
 34 "X MAX"
 35 PROMPT
 36 STO 09
 37 X<=Y?
 38 GTO 03
 39 LBL "NEW"
 40 "X INC"
 41 PROMPT
 42 STO 10
 43 LBL "PLOTHP"
 44 ADV
 45 6
 46 XROM 29,22
 47 "PLOT OF "
 48 ARCL 11
 49 XROM 29,01
 50 XROM 29,10
 51 FIX 01
 52 4
 53 XROM 29,22
 54 "X: "
 55 ARCL 08
 56 >" TO "
 57 ARCL 09
 58 XROM 29,01
 59 XROM 29,10
 60 RCL 10
 61 X>0?
 62 GTO 12
 63 RCL 09
 64 RCL 08
 65 -
 66 RCL 10
 67 ABS
 68 /
 69 STO 10
 70 LBL 12
 71 FIX 03
 72 4
 73 XROM 29,22
 74 "STEPS OF "
 75 ARCL 10
 76 XROM 29,01
 77 1
 78 XROM 29,22
 79 7
 80 XROM 29,02
 81 XROM 29,10
 82 168
 83 STO 02
 84 XROM 29,09
 85 167
 86 RCL 01
 87 RCL 00
 88 -
 89 /
 90 STO 03
 91 RCL 08
 92 STO 06
 93 CF 12
 94 CF 00
 95 LBL 00
 96 FIX 00
 97 RCL 02
 98 X<0?
 99 SF 00
100 12.018
101 STO 07
102 RCL 06
103 LBL 01
104 XEQ IND 11
105 RCL 00
106 -
107 RCL 03
108 *
109 1
110 +
111 RND
112 168
113 X<>Y
114 X>Y?
115 X<>Y
116 X<=0?
117 CLX
118 STO IND 07
119 RCL 10
120 ST+ 06
121 RCL 09
122 RCL 06
123 X>Y?
124 GTO 04
125 ISG 07
126 GTO 01
127 XEQ 05
128 4
129 RCL 10
130 *
131 ST+ 06
132 RCL 06
133 RCL 09
134 X<Y?
135 GTO 15
136 GTO 00
137 LBL 04
138 -1
139 STO IND 07
140 ISG 07
141 GTO 04
142 LBL 05
143 12.018
144 STO 05
145 .001
146 LBL 13
147 ST+ IND 05
148 2
149 *
150 ISG 05
151 GTO 13
152 13.018
153 STO 05
154 LBL 06
155 RCL 05
156 STO 19
157 1
158 -
159 RCL IND X
160 LBL 07
161 RCL IND 19
162 X<Y?
163 X<>Y
164 STO IND 19
165 RDN
166 ISG 19
167 GTO 07
168 STO IND Y
169 ISG 05
170 GTO 06
171 12.017
172 STO 19
173 12.018
174 STO 05
175 LBL 08
176 ISG 05
177 RCL IND 05
178 X<0?
179 GTO 09
180 INT
181 RCL IND 19
182 X<0?
183 GTO 09
184 INT
185 X#Y?
186 GTO 09
187 LASTX
188 FRC
189 ST+ IND 05
190 CLX
191 STO IND 19
192 LBL 09
193 ISG 19
194 GTO 08
195 12.018
196 STO 19
197 0
198 STO 05
199 LBL 10
200 RCL IND 19
201 X<=0?
202 GTO 11
203 INT
204 RCL 02
205 FS? 00
206 GTO 12
207 FRC
208 1 E3
209 *
210 X>Y?
211 GTO 12
212 X<Y?
213 XEQ 22
214 X=Y?
215 SF 00
216 LBL 12
217 RDN
218 ENTER
219 X<> 05
220 -
221 1
222 -
223 X>0?
224 XROM 29,23
225 X<0?
226 ST- 05
227 RCL IND 19
228 FRC
229 1 E3
230 *
231 XROM 29,03
232 LBL 11
233 ISG 19
234 GTO 10
235 RCL 02
236 FRC
237 1 E3
238 *
239 FC? 00
240 XEQ 22
241 XROM 29,10
242 LBL 15
243 CF 00
244 FIX 04
245 RTN
246 LBL 22
247 ENTER
248 X<> 05
249 -
250 1
251 -
252 XROM 29,23
253 119
254 XROM 29,03
255 RDN
256 SF 00
257 RTN
258 LBL "REGHP"
259 167
260 RCL 01
261 RCL 00
262 -
263 /
264 STO 03
265 FIX 00
266 CF 12
267 CF 00
268 RCL 02
269 X<0?
270 SF 00
271 12.018
272 STO 05
273 LBL 16
274 RCL IND 05
275 RCL 00
276 -
277 RCL 03
278 *
279 1
280 +
281 RND
282 168
283 X<>Y
284 X>Y?
285 X<>Y
286 X<=0?
287 CLX
288 STO IND 05
289 ISG 05
290 GTO 16
291 XEQ 05
292 END