00 { 488-Byte Prgm }
01▸LBL "DPLOT"
02 MVAR "YMIN"
03 MVAR "YMAX"
04 MVAR "AXIS"
05 MVAR "XMIN"
06 MVAR "XMAX"
07 VARMENU "DPLOT"
08 "Enter limits; t"
09 ├"hen R/S"
10 PROMPT
11▸LBL 00
12 "FCN=?"
13 SF 25
14 RCL "PFCN"
15 FC?C 25
16 GTO 01
17 ├" <"
18 ARCL ST X
19 ├">"
20▸LBL 01
21 AVIEW
22 CLA
23 SF 25
24 ARCL "PFCN"
25 CF 25
26 AON
27 STOP
28 AOFF
29 ALENG
30 X=0?
31 GTO 00
32 ASTO "PFCN"
33 SF 25
34 VARMENU IND "PFCN"
35 FS?C 25
36 GTO 02
37 CLA
38 ASTO "PIND"
39 GTO 05
40▸LBL 02
41 "Set vars; selec"
42 ├"t 'x'"
43 PROMPT
44 ASTO "PIND"
45 ALENG
46 X=0?
47 GTO 02
48 CLMENU
49 "EVAL"
50 KEY 1 GTO 03
51 "SOLVE"
52 KEY 2 GTO 04
53 MENU
54 "Evaluate or sol"
55 ├"ve?"
56 PROMPT
57▸LBL 03
58 CLA
59 ASTO "PDEP"
60 GTO 05
61▸LBL 04
62 VARMENU IND "PFCN"
63 "Select 'y'"
64 PROMPT
65 ASTO "PDEP"
66▸LBL 05
67 EXITALL
68 CLLCD
69 RCL "YMAX"
70 RCL- "AXIS"
71 LASTX
72 RCL- "YMIN"
73 ÷
74 X<0?
75 GTO 06
76 1
77 X<>Y
78 X>Y?
79 GTO 06
80 15
81 ×
82 1
83 +
84 +/-
85 1
86 PIXEL
87▸LBL 06
88 RCL "XMAX"
89 RCL "XMIN"
90 STO 00
91 -
92 130
93 ÷
94 STO 01
95 1.131
96 STO 02
97 RCL "YMIN"
98 RCL- "YMAX"
99 STO 03
100 CLA
101 ARCL "PIND"
102 ALENG
103 X≠0?
104 GTO 14
105 8
106 STO 04
107 GTO 08
108▸LBL 14
109 CLA
110 ARCL "PDEP"
111 ALENG
112 X≠0?
113 GTO 14
114 9
115 STO 04
116 GTO 09
117▸LBL 14
118 10
119 STO 04
120 PGMSLV IND "PFCN"
121 GTO 10
122▸LBL 08
123 RCL 00
124 XEQ IND "PFCN"
125 GTO 11
126▸LBL 09
127 RCL 00
128 STO IND "PIND"
129 XEQ IND "PFCN"
130 GTO 11
131▸LBL 10
132 RCL 00
133 STO IND "PIND"
134 RCL "YMIN"
135 STO IND "PDEP"
136 RCL "YMAX"
137 SOLVE IND "PDEP"
138▸LBL 11
139 RCL- "YMAX"
140 RCL÷ 03
141 15
142 ×
143 1
144 +
145 X<0?
146 GTO 14
147 RCL 02
148 PIXEL
149▸LBL 14
150 RCL 01
151 STO+ 00
152 ISG 02
153 GTO IND 04
154 END