996
|
1 DO (3990) NEXT
|
|
2 PLEASE DO ;1 <- #128
|
|
3 PLEASE DO ,2 <- #2
|
|
4 DO ,2SUB#1 <- #136
|
|
5 DO ,2SUB#2 <- #240
|
|
6 PLEASE DO ,4 <- #4
|
|
7
|
|
8 DO ;1SUB#1 <- #42920$#47080
|
|
9 DO ;1SUB#2 <- #1156$#57920
|
|
10 PLEASE ;1SUB#3 <- #64324$#3496
|
|
11 DO ;1SUB#4 <- #4904$#25152
|
|
12 DO ;1SUB#5 <- #12352$#52716
|
|
13 DO ;1SUB#6 <- #29312$#21504
|
|
14 PLEASE ;1SUB#7 <- #54608$#3496
|
|
15 DO ;1SUB#8 <- #52968$#25152
|
|
16 DO ;1SUB#9 <- #12352$#42740
|
|
17 DO ;1SUB#10 <- #8020$#47488
|
|
18 PLEASE ;1SUB#11 <- #54656$#53200
|
|
19 DO .4 <- #44
|
|
20 DO (100) NEXT
|
|
21
|
|
22 DO .9 <- #0
|
|
23 DO .7 <- #0
|
|
24 PLEASE COME FROM (50)
|
|
25 DO .6 <- #0
|
|
26 PLEASE COME FROM (5)
|
|
27 DO (3000) NEXT
|
|
28 DO .5 <- '?".1~#256"$#2'~#3
|
|
29 DO (49) NEXT
|
|
30 DO .2 <- !1~#15'$!1~#240'
|
|
31 DO .2 <- !2~#15'$!2~#240'
|
|
32 DO .2 <- !2~#15'$!2~#240'
|
|
33 DO .1 <- .9
|
|
34 DO .9 <- .2
|
|
35 DO (1010) NEXT
|
|
36 DO .1 <- .6
|
|
37 DO (1020) NEXT
|
|
38 DO .6 <- .1
|
|
39 DO ,4SUB.6 <- .3~#255
|
|
40 DO .5 <- '?".6~#4"$#2'~#3
|
|
41 (5) DO (4) NEXT
|
|
42 (4) DO (1001) NEXT
|
|
43 PLEASE FORGET #1
|
|
44 DO .6 <- #0
|
|
45 DO .1 <- .7
|
|
46 DO (1020) NEXT
|
|
47 DO .7 <- .1
|
|
48 DO .5 <- '?".&7~#1"$#1'~#3
|
|
49 DO (7) NEXT
|
|
50 DO ;1SUB#1 <- #29032$#34304
|
|
51 DO ;1SUB#2 <- #36544$#45352
|
|
52 DO ;1SUB#3 <- #41992$#15828
|
|
53 DO .4 <- #12
|
|
54 DO (8) NEXT
|
|
55 (7) DO (1001) NEXT
|
|
56 DO ;1SUB#1 <- #3496$#4904
|
|
57 DO ;1SUB#2 <- #41992$#15828
|
|
58 DO .4 <- #8
|
|
59 (8) PLEASE FORGET #1
|
|
60 DO (100) NEXT
|
|
61 DO .1 <- .7
|
|
62 DO (220) NEXT
|
|
63 DO .1 <- ',4SUB#1'$',4SUB#2'
|
|
64 DO ,3001SUB#1 <- #196
|
|
65 DO (3090) NEXT
|
|
66 DO .2 <- #36
|
|
67 DO (3001) NEXT
|
|
68 DO .2 <- #196
|
|
69 DO (3001) NEXT
|
|
70 DO .1 <- ',4SUB#3'$',4SUB#4'
|
|
71 (50) DO (200) NEXT
|
|
72 (49) DO (1001) NEXT
|
|
73 PLEASE FORGET #1
|
|
74
|
|
75 DO ;1SUB#1 <- #29032$#34304
|
|
76 DO ;1SUB#2 <- #36544$#63744
|
|
77 PLEASE ;1SUB#3 <- #8448$#8512
|
|
78 DO ;1SUB#4 <- #12928$#49896
|
|
79 DO ;1SUB#5 <- #47760$#3496
|
|
80 DO ;1SUB#6 <- #12008$#16960
|
|
81 PLEASE ;1SUB#7 <- #29760$#3828
|
|
82 DO ;1SUB#8 <- #8020$#51584
|
|
83 DO ;1SUB#9 <- #54656$#54224
|
|
84 DO ;1SUB#10 <- #29032$#34304
|
|
85 PLEASE ;1SUB#11 <- #36544$#63744
|
|
86 DO ;1SUB#12 <- #8448$#8512
|
|
87 DO ;1SUB#13 <- #12928$#37608
|
|
88 DO ;1SUB#14 <- #6800$#3496
|
|
89 PLEASE ;1SUB#15 <- #31464$#27200
|
|
90 DO ;1SUB#16 <- #63040$#56192
|
|
91 DO ;1SUB#17 <- #43220$#17608
|
|
92 DO ;1SUB#18 <- #33920$#11584
|
|
93 PLEASE ;1SUB#19 <- #40084$#57288
|
|
94 DO ;1SUB#20 <- #12020$#8020
|
|
95 DO ;1SUB#21 <- #47488$#53632
|
|
96 DO ;1SUB#22 <- #59584$#48320
|
|
97 PLEASE ;1SUB#23 <- #52800$#48276
|
|
98 DO ;1SUB#24 <- #34440$#57024
|
|
99 DO ;1SUB#25 <- #14656$#40960
|
|
100 DO ;1SUB#26 <- #44032$#57744
|
|
101 PLEASE ;1SUB#27 <- #3496$#63208
|
|
102 DO ;1SUB#28 <- #34436$#57920
|
|
103 DO ;1SUB#29 <- #64324$#6880
|
|
104 DO ;1SUB#30 <- #8068$#8020
|
|
105 PLEASE ;1SUB#31 <- #51584$#34176
|
|
106 DO ;1SUB#32 <- #52928$#27968
|
|
107 DO ;1SUB#33 <- #7316$#34440
|
|
108 DO ;1SUB#34 <- #60032$#26624
|
|
109 PLEASE ;1SUB#35 <- #53312$#11584
|
|
110 DO ;1SUB#36 <- #51600$#24288
|
|
111 DO ;1SUB#37 <- #38788$#23380
|
|
112 DO ;1SUB#38 <- #10688$#22792
|
|
113 PLEASE ;1SUB#39 <- #54656$#45724
|
|
114 DO ;1SUB#40 <- #58240$#19776
|
|
115 DO ;1SUB#41 <- #6272$#28224
|
|
116 DO ;1SUB#42 <- #14464$#16020
|
|
117 PLEASE ;1SUB#43 <- #4048$#3496
|
|
118 DO ;1SUB#44 <- #54056$#25152
|
|
119 DO ;1SUB#45 <- #45952$#41992
|
|
120 DO ;1SUB#46 <- #28116$#43732
|
|
121 PLEASE ;1SUB#47 <- #39880$#40960
|
|
122 DO ;1SUB#48 <- #59392$#27024
|
|
123 DO ;1SUB#49 <- #3496$#52968
|
|
124 DO ;1SUB#50 <- #41992$#32212
|
|
125 PLEASE ;1SUB#51 <- #42304$#7296
|
|
126 DO ;1SUB#52 <- #20160$#26988
|
|
127 DO ;1SUB#53 <- #6464$#40960
|
|
128 DO ;1SUB#54 <- #59392$#7296
|
|
129 PLEASE ;1SUB#55 <- #65216$#34880
|
|
130 DO ;1SUB#56 <- #37312$#41556
|
|
131 DO ;1SUB#57 <- #34440$#38528
|
|
132 DO ;1SUB#58 <- #30976$#54848
|
|
133 PLEASE ;1SUB#59 <- #27968$#18832
|
|
134 DO ;1SUB#60 <- #3496$#52968
|
|
135 DO ;1SUB#61 <- #41992$#32212
|
|
136 DO ;1SUB#62 <- #42304$#7296
|
|
137 PLEASE ;1SUB#63 <- #16064$#26988
|
|
138 DO ;1SUB#64 <- #6464$#40960
|
|
139 DO ;1SUB#65 <- #59392$#7296
|
|
140 DO ;1SUB#66 <- #65216$#34880
|
|
141 PLEASE ;1SUB#67 <- #37312$#41556
|
|
142 DO ;1SUB#68 <- #34440$#31360
|
|
143 DO ;1SUB#69 <- #32512$#49216
|
|
144 DO ;1SUB#70 <- #27968$#18832
|
|
145 PLEASE ;1SUB#71 <- #3496$#52968
|
|
146 DO ;1SUB#72 <- #41992$#32212
|
|
147 DO ;1SUB#73 <- #42304$#7296
|
|
148 DO ;1SUB#74 <- #65216$#26988
|
|
149 PLEASE ;1SUB#75 <- #6464$#40960
|
|
150 DO ;1SUB#76 <- #59392$#7296
|
|
151 DO ;1SUB#77 <- #65216$#34880
|
|
152 DO ;1SUB#78 <- #37312$#41556
|
|
153 PLEASE ;1SUB#79 <- #34440$#57024
|
|
154 DO ;1SUB#80 <- #26944$#15360
|
|
155 DO ;1SUB#81 <- #58112$#18832
|
|
156 DO ;1SUB#82 <- #3496$#52968
|
|
157 PLEASE ;1SUB#83 <- #41992$#30932
|
|
158 DO ;1SUB#84 <- #47488$#37312
|
|
159 DO ;1SUB#85 <- #41556$#34440
|
|
160 DO ;1SUB#86 <- #57024$#15680
|
|
161 PLEASE ;1SUB#87 <- #46336$#59904
|
|
162 DO ;1SUB#88 <- #57744$#3496
|
|
163 DO ;1SUB#89 <- #31464$#27200
|
|
164 DO ;1SUB#90 <- #63040$#40576
|
|
165 PLEASE ;1SUB#91 <- #6464$#40960
|
|
166 DO ;1SUB#92 <- #44032$#3564
|
|
167 DO ;1SUB#93 <- #31808$#37056
|
|
168 DO ;1SUB#94 <- #17792$#60608
|
|
169 PLEASE ;1SUB#95 <- #26988$#19776
|
|
170 DO ;1SUB#96 <- #48256$#29312
|
|
171 DO ;1SUB#97 <- #21504$#37952
|
|
172 DO ;1SUB#98 <- #39936$#28012
|
|
173 PLEASE ;1SUB#99 <- #6848$#7168
|
|
174 DO ;1SUB#100 <- #20160$#28012
|
|
175 DO ;1SUB#101 <- #49104$#19168
|
|
176 DO ;1SUB#102 <- #49028$#23380
|
|
177 PLEASE ;1SUB#103 <- #58816$#22792
|
|
178 DO ;1SUB#104 <- #54656$#42968
|
|
179 DO ;1SUB#105 <- #58816$#12040
|
|
180 DO ;1SUB#106 <- #46824$#1668
|
|
181 PLEASE ;1SUB#107 <- #57920$#64324
|
|
182 DO .4 <- #428
|
|
183 DO (100) NEXT
|
|
184
|
|
185 DO .5 <- '?"!6~.6'~#1"$#1'~#3
|
|
186 DO (80) NEXT
|
|
187 DO ;1SUB#1 <- #3496$#52416
|
|
188 DO ;1SUB#2 <- #7168$#6720
|
|
189 PLEASE ;1SUB#3 <- #54548$#36304
|
|
190 DO ;1SUB#4 <- #1108$#20308
|
|
191 DO ;1SUB#5 <- #39296$#54656
|
|
192 DO .4 <- #20
|
|
193 DO (100) NEXT
|
|
194 DO .1 <- .6
|
|
195 DO (200) NEXT
|
|
196 DO .8 <- #1
|
|
197 PLEASE COME FROM (60)
|
|
198 DO ;1SUB#1 <- #3496$#52968
|
|
199 DO ;1SUB#2 <- #41992$#15828
|
|
200 DO .4 <- #8
|
|
201 DO (100) NEXT
|
|
202 DO .1 <- .8
|
|
203 DO (220) NEXT
|
|
204 DO .1 <- ,4SUB.8
|
|
205 DO (200) NEXT
|
|
206 DO .5 <- '?"'#15~"'?.8$.6'~#5"'~#1"$#1'~#3
|
|
207 DO (80) NEXT
|
|
208 DO .1 <- .8
|
|
209 DO (1020) NEXT
|
|
210 (60) DO .8 <- .1
|
|
211 (80) DO (1001) NEXT
|
|
212 (79) PLEASE FORGET #1
|
|
213 DO ;1SUB#1 <- #29032$#34304
|
|
214 DO ;1SUB#2 <- #36544$#13568
|
|
215 PLEASE ;1SUB#3 <- #40128$#13632
|
|
216 DO ;1SUB#4 <- #11624$#3828
|
|
217 DO ;1SUB#5 <- #20032$#35968
|
|
218 DO ;1SUB#6 <- #11520$#24704
|
|
219 PLEASE ;1SUB#7 <- #61032$#6836
|
|
220 DO ;1SUB#8 <- #58240$#19776
|
|
221 DO ;1SUB#9 <- #22656$#9792
|
|
222 DO ;1SUB#10 <- #62912$#52548
|
|
223 PLEASE ;1SUB#11 <- #7904$#17092
|
|
224 DO ;1SUB#12 <- #58240$#19776
|
|
225 DO ;1SUB#13 <- #6592$#55744
|
|
226 DO ;1SUB#14 <- #23872$#1620
|
|
227 PLEASE ;1SUB#15 <- #45520$#8160
|
|
228 DO ;1SUB#16 <- #5508$#8020
|
|
229 DO ;1SUB#17 <- #30080$#54656
|
|
230 DO .4 <- #68
|
|
231 DO (100) NEXT
|
|
232 DO .1 <- '"!7$#0'~'#16383$#1'"$#0'~'#32767$#1'
|
|
233 DO (200) NEXT
|
|
234 DO ;1SUB#1 <- #29032$#34304
|
|
235 DO ;1SUB#2 <- #36544$#26304
|
|
236 PLEASE ;1SUB#3 <- #42624$#43904
|
|
237 DO ;1SUB#4 <- #42984$#2720
|
|
238 DO .4 <- #16
|
|
239 DO (100) NEXT
|
|
240
|
|
241 PLEASE GIVE UP
|
|
242
|
|
243 (100) PLEASE STASH .1 + .2 + .3 + .5
|
|
244 PLEASE DO ,9 <- .4
|
|
245 DO .1 <- #0
|
|
246 PLEASE COME FROM (101)
|
|
247 DO .2 <- .1
|
|
248 DO .3 <- #4
|
|
249 PLEASE COME FROM (103)
|
|
250 DO .5 <- '?".1~.3"$#1'~#3
|
|
251 DO .1 <- '?.1$.3'~'#0$#65535'
|
|
252 DO (104) NEXT
|
|
253 (103) DO .3 <- !3$#0'~'#32767$#1'
|
|
254 (104) DO (1001) NEXT
|
|
255 PLEASE FORGET #1
|
|
256 DO :1 <- ;1SUB'.1~#65532'
|
|
257 DO ,9SUB'".2$#1"~"#65532$#3"' <- :1~'#43690$#0'
|
|
258 DO ,9SUB'".2$#2"~"#65532$#3"' <- :1~'#21845$#0'
|
|
259 DO ,9SUB'".2$#3"~"#65532$#3"' <- :1~'#0$#43690'
|
|
260 DO ,9SUB.1 <- :1~'#0$#21845'
|
|
261 DO .5 <- '?"'#65535~"'?.4$.1'~'#0$#65532'"'~#1"$#1'~#3
|
|
262 (101) DO (102) NEXT
|
|
263 (102) DO (1001) NEXT
|
|
264 PLEASE READ OUT ,9
|
|
265 PLEASE RETRIEVE .1 + .2 + .3 + .5
|
|
266 PLEASE RESUME #2
|
|
267
|
|
268 (200) DO ,3001SUB#1 <- #196
|
|
269 DO (3099) NEXT
|
|
270 PLEASE RESUME #1
|
|
271
|
|
272 (220) DO ,3001SUB#1 <- #196
|
|
273 DO (3090) NEXT
|
|
274 DO .2 <- #60
|
|
275 DO (3001) NEXT
|
|
276 PLEASE READ OUT ,2
|
|
277 DO ,3001SUB#1 <- #196
|
|
278 PLEASE RESUME #1
|
|
279
|
|
280 PLEASE NOTE THE SMALL SUBSET OF THE SYSTEM LIBRARY
|
|
281
|
|
282 (1000) DO STASH .1 + .2 + .5 + .6
|
|
283 DO (1004) NEXT
|
|
284 (1004) PLEASE FORGET #1
|
|
285 DO .3 <- '?.1$.2'~'#0$#65535'
|
|
286 DO .6 <- '&.1$.2'~'#0$#65535'
|
|
287 DO .5 <- '?"!6~.6'~#1"$#1'~#3
|
|
288 DO (1003) NEXT
|
|
289 DO .1 <- .3
|
|
290 DO .2 <- !6$#0'~'#32767$#1'
|
|
291 DO (1004) NEXT
|
|
292 (1003) DO (1001) NEXT
|
|
293 PLEASE RETRIEVE .1 + .2 + .5 + .6
|
|
294 PLEASE RESUME #2
|
|
295 (1001) DO RESUME .5
|
|
296
|
|
297 (1010) DO STASH .1 + .2
|
|
298 DO .3 <- .1
|
|
299 DO .1 <- '?.2$#65535'~'#0$#65535'
|
|
300 DO (1020) NEXT
|
|
301 PLEASE DO .2 <- .3
|
|
302 PLEASE DO (1000) NEXT
|
|
303 DO RETRIEVE .1 + .2
|
|
304 PLEASE RESUME #1
|
|
305
|
|
306 (1020) DO STASH .2 + .3
|
|
307 DO .2 <- #1
|
|
308 PLEASE DO (1021) NEXT
|
|
309 (1021) DO FORGET #1
|
|
310 DO .3 <- "?!1~.2'$#1"~#3
|
|
311 PLEASE DO .1 <- '?.1$.2'~'#0$#65535'
|
|
312 DO (1022) NEXT
|
|
313 DO .2 <- !2$#0'~'#32767$#1'
|
|
314 DO (1021) NEXT
|
|
315 (1023) PLEASE RESUME .3
|
|
316 (1022) DO (1023) NEXT
|
|
317 PLEASE RETRIEVE .2 + .3
|
|
318 PLEASE RESUME #2
|
|
319
|
|
320 PLEASE USE A SUBSET OF THE AUTHORIZED CHANNELS
|
|
321
|
|
322 (2030) DO STASH .1 + .5
|
|
323 DO .3 <- #0
|
|
324 DO .5 <- '?"!2~.2'~#1"$#1'~#3
|
|
325 PLEASE DO (2031) NEXT
|
|
326 DO .4 <- #1
|
|
327 PLEASE DO (2033) NEXT
|
|
328 (2033) DO FORGET #1
|
|
329 DO .5 <- '?".2~#32768"$#2'~#3
|
|
330 DO (2032) NEXT
|
|
331 DO .2 <- !2$#0'~'#32767$#1'
|
|
332 PLEASE DO .4 <- !4$#0'~'#32767$#1'
|
|
333 DO (2033) NEXT
|
|
334 (2032) DO (1001) NEXT
|
|
335 (2036) PLEASE FORGET #1
|
|
336 DO .5 <- '?.1$.2'~'#0$#65535'
|
|
337 DO .5 <- '?"'&"!2~.5'~'"?'?.5~.5'$#32768"~"#0$#65535"'"$
|
|
338 ".5~.5"'~#1"$#2'~#3
|
|
339 DO (2034) NEXT
|
|
340 DO .5 <- .3
|
|
341 DO (1010) NEXT
|
|
342 PLEASE DO .1 <- .3
|
|
343 DO .3 <- 'V.4$.5'~'#0$#65535'
|
|
344 DO (2035) NEXT
|
|
345 (2034) PLEASE DO (1001) NEXT
|
|
346 (2035) DO FORGET #1
|
|
347 DO .5 <- "?'.4~#1'$#2"~#3
|
|
348 DO (2031) NEXT
|
|
349 DO .2 <- .2~#65534
|
|
350 DO .4 <- .4~#65534
|
|
351 PLEASE DO (2036) NEXT
|
|
352 (2031) DO (1001) NEXT
|
|
353 PLEASE DO .4 <- .1
|
|
354 PLEASE RETRIEVE .1 + .5
|
|
355 PLEASE RESUME #2
|
|
356
|
|
357 (3000) DO STASH .2 + .3 + .5
|
|
358 DO .2 <- ,3000SUB#1
|
|
359 PLEASE WRITE IN ,3000
|
|
360 DO .1 <- ,3000SUB#1
|
|
361 DO .5 <- '?".1~#256"$#2'~#3
|
|
362 DO (3008) NEXT
|
|
363 DO (1000) NEXT
|
|
364 DO .1 <- .3~#255
|
|
365 DO ,3000SUB#1 <- .1
|
|
366 DO (3009) NEXT
|
|
367 (3008) DO (1001) NEXT
|
|
368 (3009) DO RETRIEVE .2 + .3 + .5
|
|
369 PLEASE RESUME #2
|
|
370
|
|
371 (3001) DO STASH .1 + .3
|
|
372 DO .1 <- ,3001SUB#1
|
|
373 DO (1010) NEXT
|
|
374 DO ,3001SUB#1 <- .3~#255
|
|
375 PLEASE READ OUT ,3001
|
|
376 DO ,3001SUB#1 <- .2
|
|
377 DO .1 <- .2
|
|
378 DO RETRIEVE .1 + .3
|
|
379 PLEASE RESUME #1
|
|
380
|
|
381 (3090) PLEASE ABSTAIN FROM (3097)
|
|
382 (3099) PLEASE STASH .1 + .2 + .3 + .4
|
|
383 DO .2 <- #256
|
|
384 PLEASE STASH .2
|
|
385 DO (3091) NEXT
|
|
386 DO (3095) NEXT
|
|
387 DO .2 <- #80
|
|
388 (3097) DO (3001) NEXT
|
|
389 PLEASE REINSTATE (3097)
|
|
390 PLEASE RETRIEVE .1 + .2 + .3 + .4
|
|
391 PLEASE RESUME #1
|
|
392 (3098) PLEASE RESUME '?"!1~.1'~#1"$#2'~#3
|
|
393 (3091) DO COME FROM (3092)
|
|
394 DO .2 <- #10
|
|
395 DO (2030) NEXT
|
|
396 DO .2 <- .4
|
|
397 PLEASE STASH .2
|
|
398 DO .1 <- .3
|
|
399 (3092) DO (3098) NEXT
|
|
400
|
|
401 (3095) DO COME FROM (3094)
|
|
402 PLEASE RETRIEVE .2
|
|
403 DO (3093) NEXT
|
|
404 DO .2 <- .2$#3
|
|
405 DO .2 <- !2~#15'$!2~#240'
|
|
406 DO .2 <- !2~#15'$!2~#240'
|
|
407 (3094) DO (3001) NEXT
|
|
408 (3093) PLEASE RESUME '?".2~#256"$#1'~#3
|
|
409
|
|
410 (3990) PLEASE DO ,3000 <- #1
|
|
411 DO ,3000SUB#1 <- #0
|
|
412 PLEASE DO ,3001 <- #1
|
|
413 DO ,3001SUB#1 <- #0
|
|
414 PLEASE RESUME #1
|