00 { 562-Byte Prgm }
01▸LBL "CP2OCT"
02 FUNC 11
03 REAL?
04 SKIP
05 RTNERR 4
06 IP
07 X<0?
08 RTNERR 5
09 1114112
10 X≤Y?
11 RTNERR 5
12 FS? 00
13 GTO 00
14 CLX
15 55296
16 X>Y?
17 GTO 00
18 CLX
19 57344
20 X>Y?
21 RTNERR 5
22▸LBL 00
23 EXITALL
24 CLX
25 128
26 X≤Y?
27 GTO 01
28 XSTR "\"
29 RCL ST Z
30 →OCT
31 APPEND
32 RTN
33▸LBL 01
34 CLX
35 2048
36 X>Y?
37 GTO 02
38 32
39 ×
40 X>Y?
41 GTO 02
42 32
43 ×
44▸LBL 02
45 LSTO "B"
46 R↓
47 LSTO "P"
48 NEWLIST
49 LSTO "E"
50▸LBL 03
51 RCL "E"
52 RCL "P"
53 64
54 MOD
55 128
56 +
57 APPEND
58 STO "E"
59 RCL "P"
60 64
61 ÷
62 IP
63 STO "P"
64 RCL "B"
65 64
66 ÷
67 IP
68 STO "B"
69 X≠0?
70 GTO 03
71 RCL "E"
72 REV
73 STO "E"
74 LENGTH
75 2
76 RCL ST Y
77 1
78 -
79 Y↑X
80 1
81 -
82 2
83 8
84 RCL- ST T
85 Y↑X
86 ×
87 1
88 GETLI "E"
89 RCL+ ST Z
90 PUTLI "E"
91 XSTR ""
92▸LBL 04
93 HEAD "E"
94 SKIP
95 RTN
96 →OCT
97 XSTR "\"
98 X<>Y
99 APPEND
100 APPEND
101 GTO 04
102▸LBL "OCT2CP"
103 FUNC 12
104 STR?
105 SKIP
106 RTNERR 4
107 HEAD ST X
108 SKIP
109 RTNERR 5
110 XSTR "\"
111 X≠Y?
112 RTNERR 5
113 R↓
114 APPEND
115 LSTO "E"
116 NEWLIST
117 LSTO "L"
118▸LBL 05
119 RCL "E"
120 DUP
121 DUP
122 XSTR "\"
123 POS
124 1
125 +
126 SUBSTR
127 STO "E"
128 CLX
129 LASTX
130 1
131 -
132 0
133 X<>Y
134 SUBSTR
135 ENTER
136 LENGTH
137 X=0?
138 RTNERR 5
139 3
140 X<Y?
141 RTNERR 5
142 R↓
143 R↓
144▸LBL 06
145 DUP
146 XSTR "0"
147 POS
148 X≠0?
149 GTO 07
150 R↓
151 1
152 SUBSTR
153 GTO 06
154▸LBL 07
155 R↓
156 XSTR ""
157 X<>Y
158 X=Y?
159 XSTR "0"
160 ENTER
161 SF 25
162 S→N
163 FC?C 25
164 RTNERR 5
165 ENTER
166 N→S
167 X≠? ST Z
168 RTNERR 5
169 R↓
170 SF 25
171 →DEC
172 FC?C 25
173 RTNERR 5
174 RCL "L"
175 X<>Y
176 APPEND
177 STO "L"
178 RCL "E"
179 XSTR ""
180 X≠Y?
181 GTO 05
182 1
183 RCL "L"
184 LENGTH
185 X≠Y?
186 GTO 08
187 GETLI "L"
188 128
189 X≤Y?
190 RTNERR 5
191 R↓
192 GTO 10
193▸LBL 08
194 X=0?
195 RTNERR 5
196 4
197 X<Y?
198 RTNERR 5
199 CLX
200 2
201 RCL ST Y
202 Y↑X
203 1
204 -
205 2
206 8
207 RCL- ST T
208 Y↑X
209 ×
210 DUP
211 2
212 ÷
213 128
214 +
215 HEAD "L"
216 AND
217 X≠Y?
218 RTNERR 5
219 LASTX
220 X<>Y
221 -
222▸LBL 09
223 HEAD "L"
224 SKIP
225 GTO 10
226 DUP
227 192
228 AND
229 128
230 X≠Y?
231 RTNERR 5
232 R↓
233 R↓
234 64
235 MOD
236 X<>Y
237 LASTX
238 ×
239 +
240 GTO 09
241▸LBL 10
242 ENTER
243 HEXM
244 N→S
245 DECM
246 4096
247 X>? ST Z
248 GTO 11
249 R↓
250 GTO 12
251▸LBL 11
252 R↓
253 XSTR "000"
254 X<>Y
255 APPEND
256 -4
257 SUBSTR
258▸LBL 12
259 XSTR "U+"
260 X<>Y
261 APPEND
262 END