01 LBL "HIPLOT"
 02 AON
 03 "NAME ?"
 04 PROMPT
 05 AOFF
 06 ASTO 11
 07 LBL 11
 08 "Y MIN ?"
 09 PROMPT
 10 STO 00
 11 "Y MAX ?"
 12 PROMPT
 13 STO 01
 14 X<=Y?
 15 GTO 11
 16 LBL 12
 17 "AXIS ?"
 18 CF 23
 19 PROMPT
 20 STO 04
 21 FS? 23
 22 ASTO 04
 23 RCL 01
 24 X<Y?
 25 GTO 12
 26 CLX
 27 RCL 00
 28 X>Y?
 29 GTO 12
 30 LBL 13
 31 "X MIN ?"
 32 PROMPT
 33 STO 08
 34 "X MAX ?"
 35 PROMPT
 36 STO 09
 37 X<=Y?
 38 GTO 13
 39 "X INC ?"
 40 PROMPT
 41 STO 10
 42 LBL "HIPLOTP"
 43 ADV
 44 6
 45 XROM 29,22
 46 "PLOT OF "
 47 ARCL 11
 48 XROM 29,01
 49 XROM 29,10
 50 RCL 08
 51 RCL 09
 52 "X"
 53 XEQ 09
 54 STO 07
 55 7
 56 XROM 29,02
 57 XROM 29,10
 58 130
 59 STO 02
 60 XROM 29,09
 61 RCL 10
 62 X>0?
 63 GTO 00
 64 RCL 09
 65 RCL 08
 66 -
 67 RCL 10
 68 ABS
 69 /
 70 STO 10
 71 LBL 00
 72 RCL 09
 73 RCL 08
 74 ABS
 75 X<Y?
 76 X<>Y
 77 RCL 07
 78 /
 79 LOG
 80 INT
 81 2
 82 -
 83 STO 05
 84 RCL 08
 85 STO 06
 86 RCL 01
 87 RCL 00
 88 -
 89 RCL 02
 90 ABS
 91 /
 92 STO 20
 93 RCL 10
 94 11
 95 /
 96 STO 19
 97 12.018
 98 ENTER
 99 0
100 LBL 04
101 STO IND Y
102 ISG Y
103 GTO 04
104 RCL 06
105 LBL 14
106 FIX IND 05
107 RCL 07
108 /
109 RND
110 XROM 29,05
111 3
112 XROM 29,23
113 RCL 06
114 XEQ IND 11
115 STO 21
116 RCL 06
117 RCL 19
118 3
119 *
120 -
121 STO 22
122 .006
123 STO 23
124 LBL 05
125 RCL 22
126 XEQ IND 11
127 RCL 21
128 -
129 RCL 20
130 /
131 4
132 +
133 FIX 00
134 RND
135 1
136 X<=Y?
137 RDN
138 7
139 X>Y?
140 RDN
141 RCL X
142 2
143 RCL 23
144 INT
145 Y^X
146 11
147 ST+ Z
148 RDN
149 ST+ IND Y
150 RCL 19
151 ST+ 22
152 ISG 23
153 GTO 05
154 12.018
155 STO 23
156 LBL 06
157 RCL IND 23
158 XROM 29,06
159 0
160 STO IND 23
161 RDN
162 ISG 23
163 GTO 06
164 STO 03
165 RCL 21
166 XROM 29,21
167 RCL 10
168 STO 03
169 ST+ 06
170 RCL 09
171 RCL 06
172 X<=Y?
173 GTO 14
174 FIX 03
175 RTN
176 LBL 09
177 >" <UNITS="
178 X<>Y
179 ABS
180 X<Y?
181 X<>Y
182 LOG
183 X<0?
184 GTO 00
185 INT
186 2
187 X<>Y
188 X>Y?
189 GTO 01
190 -
191 STO 05
192 0
193 GTO 02
194 LBL 00
195 FRC
196 X#0?
197 1
198 LASTX
199 INT
200 X<>Y
201 -
202 LBL 01
203 >" E"
204 LBL 02
205 4
206 XROM 29,22
207 XROM 29,01
208 FIX 00
209 RDN
210 X=0?
211 GTO 00
212 XROM 29,05
213 10^X
214 2
215 STO 05
216 FIX 02
217 RDN
218 GTO 01
219 LBL 00
220 1
221 XROM 29,05
222 FIX IND 05
223 LBL 01
224 "> "
225 XROM 29,01
226 END