00 { 221-Byte Prgm }
01▸LBL "SES"
02 CF 21
03 STO 00
04 R↓
05 STO 01
06 R↓
07 STO "VARS"
08 R↓
09 STO "EQS"
10 STO "RES"
11 DIM?
12 R↓
13 ENTER
14 ENTER
15 NEWMAT
16 STO "DER"
17 R↓
18 1ᴇ3
19 ÷
20 1
21 +
22 STO 04
23 CLX
24 STO 02
25▸LBL 00
26 1
27 STO+ 02
28 CLX
29 STO 03
30 RCL 04
31 STO 05
32▸LBL 01
33 INDEX "EQS"
34 RCL 05
35 1
36 STOIJ
37 RCLEL
38 STO 07
39 INDEX "RES"
40 RCL 05
41 1
42 STOIJ
43 XEQ IND 07
44 STOEL
45 ABS
46 RCL 03
47 X<>Y
48 X>Y?
49 STO 03
50 RCL 04
51 STO 06
52▸LBL 02
53 INDEX "VARS"
54 RCL 06
55 1
56 STOIJ
57 RCLEL
58 STO 08
59 RCL 00
60 STO+ IND 08
61 XEQ IND 07
62 RCL 00
63 STO- IND 08
64 INDEX "RES"
65 RCL 05
66 1
67 STOIJ
68 R↑
69 RCLEL
70 -
71 RCL÷ 00
72 INDEX "DER"
73 RCL 05
74 RCL 06
75 STOIJ
76 R↓
77 R↓
78 STOEL
79 ISG 06
80 GTO 02
81 ISG 05
82 GTO 01
83 RCL "DER"
84 STO÷ "RES"
85 RCL 04
86 STO 05
87▸LBL 03
88 INDEX "RES"
89 RCL 05
90 1
91 STOIJ
92 RCLEL
93 INDEX "VARS"
94 RCL 05
95 1
96 STOIJ
97 RCLEL
98 R↑
99 STO- IND ST Y
100 ISG 05
101 GTO 03
102 CLA
103 RCL 02
104 AIP
105 ├"[LF]"
106 ARCL 03
107 AVIEW
108 RCL 01
109 RCL 03
110 X≥Y?
111 GTO 00
112 CLD
113 END