00 { 615-Byte Prgm }
01▸LBL "PLOT"
02 MVAR "YMIN"
03 MVAR "YMAX"
04 MVAR "AXIS"
05 MVAR "XMIN"
06 MVAR "XMAX"
07 MVAR "XINC"
08 VARMENU "PLOT"
09 "Enter limits; t"
10 ├"hen R/S"
11 PROMPT
12▸LBL 00
13 "FCN=?"
14 SF 25
15 RCL "PFCN"
16 FC?C 25
17 GTO 01
18 ├" <"
19 ARCL ST X
20 ├">"
21▸LBL 01
22 AVIEW
23 CLA
24 SF 25
25 ARCL "PFCN"
26 CF 25
27 AON
28 STOP
29 AOFF
30 ALENG
31 X=0?
32 GTO 00
33 ASTO "PFCN"
34 SF 25
35 VARMENU IND "PFCN"
36 FS?C 25
37 GTO 02
38 CLA
39 ASTO "PIND"
40 GTO 05
41▸LBL 02
42 "Set vars; selec"
43 ├"t 'x'"
44 PROMPT
45 ASTO "PIND"
46 ALENG
47 X=0?
48 GTO 02
49 CLMENU
50 "EVAL"
51 KEY 1 GTO 03
52 "SOLVE"
53 KEY 2 GTO 04
54 MENU
55 "Evaluate or sol"
56 ├"ve?"
57 PROMPT
58▸LBL 03
59 CLA
60 ASTO "PDEP"
61 GTO 05
62▸LBL 04
63 VARMENU IND "PFCN"
64 "Select 'y'"
65 PROMPT
66 ASTO "PDEP"
67▸LBL 05
68 EXITALL
69 PRON
70 ADV
71 "Plot of:"
72 PRA
73 ADV
74 SF 12
75 CLA
76 ARCL "PFCN"
77 PRA
78 ADV
79 CF 12
80 PRV "YMIN"
81 PRV "YMAX"
82 PRV "AXIS"
83 PRV "XMIN"
84 PRV "XMAX"
85 PRV "XINC"
86 ADV
87 "← YMIN"
88 ├"       YMAX →[LF]"
89 PRA
90 130
91 RCL "YMAX"
92 RCL- "YMIN"
93 ÷
94 STO 00
95 RCL "XMIN"
96 STO 01
97 CLA
98 ARCL "PIND"
99 ALENG
100 X≠0?
101 GTO 14
102 7
103 STO 03
104 GTO 06
105▸LBL 14
106 CLA
107 ARCL "PDEP"
108 ALENG
109 X≠0?
110 GTO 14
111 8
112 STO 03
113 GTO 06
114▸LBL 14
115 9
116 STO 03
117 PGMSLV IND "PFCN"
118▸LBL 06
119 CLLCD
120 FC? 00
121 XEQ 11
122 FC? 01
123 XEQ 12
124 1.016
125 STO 02
126 GTO IND 03
127▸LBL 07
128 RCL 01
129 XEQ IND "PFCN"
130 GTO 14
131▸LBL 08
132 RCL 01
133 STO IND "PIND"
134 XEQ IND "PFCN"
135 GTO 14
136▸LBL 09
137 RCL 01
138 STO IND "PIND"
139 RCL "YMIN"
140 STO IND "PDEP"
141 RCL "YMAX"
142 SOLVE IND "PDEP"
143▸LBL 14
144 RCL- "YMIN"
145 RCL× 00
146 1
147 +
148 CF 24
149 RCL 02
150 X<>Y
151 X>0?
152 PIXEL
153 RCL "XINC"
154 16
155 ÷
156 STO+ 01
157 RCL "XMAX"
158 RCL 01
159 X>Y?
160 GTO 10
161 ISG 02
162 GTO IND 03
163 PRLCD
164 GTO 06
165▸LBL 10
166 PRLCD
167 RTN
168▸LBL 11
169 CF 21
170 CLA
171 ARCL 01
172 AVIEW
173 SF 21
174 RTN
175▸LBL 12
176 1
177 RCL "AXIS"
178 RCL- "YMIN"
179 RCL× 00
180 +/-
181 1
182 -
183 X≥0?
184 RTN
185 PIXEL
186 +/-
187 2
188 -
189 "×××××"
190 AGRAPH
191 END