00 { 533-Byte Prgm }
01▸LBL "EGVL"
02 STO "EGX"
03 R↓
04 STO "EGY"
05 R↓
06 STO "EGZ"
07 R↓
08 STO "EGT"
09 R↓
10 EXITALL
11 FNRM
12 STO "U"
13 +/-
14 STO "L"
15 2
16 STO 01
17 "DIFF X ?"
18 1ᴇ-3
19 PROMPT
20 STO "P"
21 "DIFF Y ?"
22 1ᴇ-15
23 PROMPT
24 STO "P2"
25 PGMSLV "EVDET"
26 GTO "SCAN"
27▸LBL "NEXT"
28 2
29 RCL 01
30 X≤Y?
31 GTO "STOP"
32 XEQ "POP"
33▸LBL "SCAN"
34 RCL "U"
35 RCL "L"
36 -
37 RCL "P"
38 X≥Y?
39 GTO "NEXT"
40 0
41 STO "D"
42 RCL "L"
43 RCL "U"
44 +
45 2
46 ÷
47 STO "G"
48 STO "X"
49 ENTER
50 SOLVE "X"
51 R↑
52 X≠0?
53 GTO "NEXT"
54 RCL "U"
55 RCL "P"
56 -
57 RCL "X"
58 X<Y?
59 GTO 01
60 RCL "G"
61 STO "U"
62 GTO "SCAN"
63▸LBL 01
64 RCL "L"
65 RCL "P"
66 +
67 RCL "X"
68 X>Y?
69 GTO "FOUND"
70 RCL "G"
71 STO "L"
72 GTO "SCAN"
73▸LBL "FOUND"
74 "EV="
75 FC? 01
76 PROMPT
77 RCL "G"
78 RCL "X"
79 X>Y?
80 GTO 02
81 RCL "X"
82 XEQ "PUSH"
83 RCL "G"
84 STO "L"
85 GTO "SCAN"
86▸LBL 02
87 RCL "G"
88 XEQ "PUSH"
89 RCL "X"
90 STO "L"
91 GTO "SCAN"
92▸LBL "STOP"
93 "STOP"
94 AVIEW
95 RCL "EGT"
96 RCL "EGZ"
97 RCL "EGY"
98 RCL "EGX"
99 CLV "EGX"
100 CLV "EGY"
101 CLV "EGZ"
102 CLV "EGT"
103 CLV "I"
104 CLV "M"
105 CLV "L"
106 CLV "U"
107 CLV "G"
108 CLV "P"
109 CLV "P2"
110 CLV "D"
111 CF 01
112 RTN
113▸LBL "EVDET"
114 MVAR "X"
115 RCL "EGX"
116 STO "M"
117 INDEX "M"
118 DIM?
119 STOIJ
120 STO "I"
121▸LBL 03
122 RCLEL
123 RCL "X"
124 -
125 STOEL
126 I-
127 J-
128 DSE "I"
129 GTO 03
130 RCL "M"
131 DET
132 CF 01
133 0
134 RCL ST Y
135 ABS
136 RCL "P2"
137 X≥Y?
138 R↑
139 R↑
140 RCL "D"
141 X<>Y
142 STO "D"
143 X=0?
144 GTO 04
145 -
146 ABS
147 RCL "P2"
148 X≥Y?
149 SF 01
150 RCL "D"
151 FS? 01
152 0
153▸LBL 04
154 RTN
155▸LBL "PUSH"
156 1
157 STO+ 01
158 RCL "L"
159 STO IND 01
160 1
161 STO+ 01
162 R↑
163 STO IND 01
164 RTN
165▸LBL "POP"
166 RCL IND 01
167 STO "U"
168 1
169 STO- 01
170 RCL IND 01
171 STO "L"
172 1
173 STO- 01
174 RTN
175 END