01 LBL "HRPLOT"
 02 AON
 03 "FNAME?"
 04 PROMPT
 05 AOFF
 06 ASTO 14
 07 "YMIN?"
 08 PROMPT
 09 STO 12
 10 "YMAX?"
 11 PROMPT
 12 STO 13
 13 "XMIN?"
 14 PROMPT
 15 STO 09
 16 "XMAX?"
 17 PROMPT
 18 STO 11
 19 "X INC?"
 20 PROMPT
 21 STO 10
 22 "PLOT OF "
 23 ARCL 14
 24 XROM 29,08
 25 FIX 01
 26 "Y: "
 27 ARCL 12
 28 >" TO "
 29 ARCL 13
 30 XROM 29,08
 31 "X: "
 32 ARCL 09
 33 >" TO "
 34 ARCL 11
 35 XROM 29,08
 36 "STEPS OF "
 37 ARCL 10
 38 XROM 29,08
 39 "---------------"
 40 >"---------"
 41 XROM 29,08
 42 RCL 13
 43 RCL 12
 44 -
 45 168
 46 /
 47 STO 13
 48 FIX 00
 49 SREG 00
 50 LBL 00
 51 1 E-3
 52 STO 07
 53 6
 54 *
 55 STO 08
 56 CLS
 57 CLX
 58 STO 06
 59 LBL 01
 60 RCL 11
 61 RCL 09
 62 X>Y?
 63 SF 19
 64 X>Y?
 65 GTO 02
 66 XEQ IND 14
 67 RCL 12
 68 -
 69 RCL 13
 70 /
 71 RND
 72 RCL 07
 73 +
 74 STO IND 08
 75 2
 76 ST* 07
 77 RCL 10
 78 ST+ 09
 79 ISG 08
 80 GTO 01
 81 LBL 02
 82 SF 20
 83 LBL 03
 84 .005
 85 STO 08
 86 LBL 04
 87 RCL 08
 88 1.001
 89 +
 90 STO 07
 91 LBL 05
 92 FC? 20
 93 GTO 06
 94 RCL IND 08
 95 RCL IND 07
 96 X<Y?
 97 X<> IND 08
 98 STO IND 07
 99 ISG 07
100 GTO 05
101 ISG 08
102 GTO 04
103 CF 20
104 GTO 03
105 LBL 06
106 RCL IND 08
107 INT
108 RCL IND 07
109 INT
110 X#Y?
111 GTO 14
112 LASTX
113 FRC
114 ST+ IND 08
115 CLX
116 STO IND 07
117 ISG 07
118 GTO 06
119 LBL 14
120 ISG 08
121 GTO 04
122 .006
123 STO 08
124 CLX
125 STO 07
126 LBL 09
127 RCL IND 08
128 X<=0?
129 GTO 14
130 INT
131 ENTER
132 X<> 07
133 -
134 1
135 -
136 XROM 29,23
137 RCL IND 08
138 FRC
139 1 E3
140 *
141 XROM 29,03
142 LBL 14
143 ISG 08
144 GTO 09
145 XROM 29,10
146 RCL 10
147 4
148 *
149 ST+ 09
150 FC?C 19
151 GTO 00
152 ADV
153 ADV
154 ADV
155 ADV
156 END