Mercurial > repo

comparison interps/c-intercal/pit/unlambda.i @ 996:859f9b4339e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<Gregor> tar xf egobot.tar.xz
author HackBot
date Sun, 09 Dec 2012 19:30:08 +0000
parents
children
comparison
equal deleted inserted replaced
995:6883f5911eb7 996:859f9b4339e6
1 PLEASE NOTE
2
3 Copyright (C) 2001 Ørjan Johansen
4
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2 of the License, or
8 (at your option) any later version.
9
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18
19
20 PLEASE .200 <- #8 PLEASE NOTE AMOUNT OF INITIAL MEMORY
21 PLEASE .80 <- #80 PLEASE NOTE END-OF-LINE CHARACTER
22
23 DO (100) NEXT PLEASE NOTE IO SETUP
24 DO (200) NEXT PLEASE NOTE MEMORY SETUP
25 DO (300) NEXT PLEASE NOTE REFERENCE COUNTING SETUP
26 DO (400) NEXT PLEASE NOTE PARSER TABLE SETUP
27
28 DO (401) NEXT PLEASE NOTE PARSING
29 DON'T (404) NEXT PLEASE NOTE PRINTING PROGRAM
30 DO (501) NEXT PLEASE NOTE EVALUATION
31 DON'T (404) NEXT PLEASE NOTE PRINTING RESULT
32 DON'T (203) NEXT PLEASE NOTE MEMORY MAP
33 PLEASE GIVE UP
34
35 PLEASE NOTE DIPLOMATIC RELATIONS
36 PLEASE NOTE .101=LAST READ .102=LAST WRITTEN
37 (100) DO ,101 <- #1
38 PLEASE DO .101 <- #0
39 DO .102 <- #0
40 DO RESUME #1
41 PLEASE READ ME A STORY
42 (101) DO (3101) NEXT
43 DO .101 <- .1
44 PLEASE REINSTATE (3101)
45 DO RESUME #1
46 (3101) DON'T THINK YOU CAN HAVE YOUR CAKE AND EAT IT
47 DO WRITE IN ,101
48 PLEASE .1 <- ,101SUB#1
49 DO .2 <- .101
50 DO (1000) NEXT
51 PLEASE DO .101 <- .3~#255
52 PLEASE RESUME '?.1$#512'~'#256$#256'
53 (102) DO .2 <- !2~#15'$!2~#240'
54 DO .2 <- !2~#15'$!2~#240'
55 DO .2 <- !2~#15'$!2~#240'
56 PLEASE RESUME #1
57 (103) PLEASE .1 <- .102
58 DO .102 <- .2
59 DO (1010) NEXT
60 DO ,101SUB#1 <- .3
61 PLEASE READ OUT ,101
62 DO RESUME #1
63
64 DO ASSERT TERRITORIAL CLAIMS
65 (200) DO .204 <- #7
66 DO ,201 <- .200 BY #32767 BY .204
67 (3200) PLEASE DO .201 <- #0
68 DO .202 <- #16383
69 PLEASE RESUME #1
70
71 PLEASE LET THEM EAT CAKE
72 PLEASE NOTE .201+.202=MEMORY TOP
73 (201) DO (3201) NEXT
74 (5201) DON'T (202) NEXT
75 DO COME FROM (7202)
76 PLEASE .1 <- .201
77 DO (4201) NEXT
78 PLEASE REINSTATE (5201)
79 DO RESUME #1
80 (4201) DO (1020) NEXT
81 DO FORGET '#65535~"'?.1$.200'~'#0$#65535'"'~#1
82 DO .201 <- .1
83 PLEASE RESUME #1
84 DON'T STEP ON THE GALOIS FIELD MINES
85 (3201) DO .202 <- "?.202$!202~#16384'"~'#16383$#1'
86 PLEASE RESUME "?!202~.202'$#32768"~"#16384$#16384"
87
88 PLEASE STAND BY FOR ASSIMILATION
89 (202) PLEASE DON'T RESUME #3
90 DO REINSTATE (202)
91 DO FORGET #1
92 PLEASE STASH .203+,202
93 DO .203 <- '.200$#0'~'#65535$#1'
94 DON'T TELL ME WE HAVE TO MOVE IT ALL?
95 DO ,202 <- .200 BY #32767 BY .204
96 DO (3200) NEXT
97 DO ABSTAIN FROM (5201)
98 PLEASE DO (3202) NEXT
99 DO ,201 <- .203 BY #32767 BY .204
100 DO (3200) NEXT
101 PLEASE ABSTAIN FROM (5201)
102 PLEASE DO (5202) NEXT
103 DO .200 <- .203
104 DO ABSTAIN FROM (5201)
105 DO ABSTAIN FROM (202)
106 (7202) DO RETRIEVE .203+,202
107 (9202) DO RESUME '?#32768$.203'~'#16384$#32768'
108 (3202) DO COME FROM (4202)
109 PLEASE DO (201) NEXT
110 DO ,202SUB.201.202#1 <- ,201SUB.201.202#1
111 DO ,202SUB.201.202#2 <- ,201SUB.201.202#2
112 DO ,202SUB.201.202#3 <- ,201SUB.201.202#3
113 DO ,202SUB.201.202#4 <- ,201SUB.201.202#4
114 DO ,202SUB.201.202#5 <- ,201SUB.201.202#5
115 DO ,202SUB.201.202#6 <- ,201SUB.201.202#6
116 (4202) DO ,202SUB.201.202#7 <- ,201SUB.201.202#7
117 (5202) DO COME FROM (6202)
118 PLEASE DO (201) NEXT
119 DO ,201SUB.201.202#1 <- ,202SUB.201.202#1
120 DO ,201SUB.201.202#2 <- ,202SUB.201.202#2
121 DO ,201SUB.201.202#3 <- ,202SUB.201.202#3
122 DO ,201SUB.201.202#4 <- ,202SUB.201.202#4
123 DO ,201SUB.201.202#5 <- ,202SUB.201.202#5
124 DO ,201SUB.201.202#6 <- ,202SUB.201.202#6
125 (6202) DO ,201SUB.201.202#7 <- ,202SUB.201.202#7
126 DO TELL ME ALL ABOUT YOURSELF
127 (203) DO READ OUT .201+.202+.301+.302+.311+.312
128 DO (3200) NEXT
129 PLEASE REINSTATE (202)
130 DO ABSTAIN FROM (5201)
131 DO (3203) NEXT
132 PLEASE GIVE UP
133 PLEASE COME FROM (4203)
134 (3203) DO (201) NEXT
135 DO READ OUT .201+.202
136 DO READ OUT ,201SUB.201.202#1
137 DO READ OUT ,201SUB.201.202#2
138 DO READ OUT ,201SUB.201.202#3
139 DO READ OUT ,201SUB.201.202#4
140 DO READ OUT ,201SUB.201.202#5
141 DO READ OUT ,201SUB.201.202#6
142 (4203) DO READ OUT ,201SUB.201.202#7
143
144 PLEASE NOTE
145 #1+#2=REFERENCE COUNT
146 #3+#4=CAR
147 #5+#6=CDR
148 #7=TYPE (TAG$DATA)
149
150 PLEASE WELCOME TO THE BAZAAR
151 (300) PLEASE DO .301 <- #0
152 DO .302 <- #0
153 PLEASE NOTE NIL=.303+.304
154 DO (303) NEXT
155 DO ,201SUB.311.312#1 <- #0
156 PLEASE ,201SUB.311.312#2 <- #0
157 DO ,201SUB.311.312#3 <- .311
158 DO ,201SUB.311.312#4 <- .312
159 DO ,201SUB.311.312#5 <- .311
160 DO ,201SUB.311.312#6 <- .312
161 DO ,201SUB.311.312#7 <- #0
162 PLEASE .303 <- .311
163 DO .304 <- .312
164 DO RESUME #1
165
166 PLEASE REPORT NEW PURCHASES HERE
167 (301) PLEASE .1 <- ,201SUB.311.312#2
168 DO .1 <- "?.1$!1~#16384'"~'#16383$#1'
169 DO ,201SUB.311.312#2 <- .1
170 DO (3301) NEXT
171 PLEASE .1 <- ,201SUB.311.312#1
172 DO .1 <- "?.1$!1~#16384'"~'#16383$#1'
173 DO ,201SUB.311.312#1 <- .1
174 DO (3301) NEXT
175 PLEASE NOTE THAT IMMORTALITY IS TREASON
176 DO ,201SUB.311.312#2 <- #0
177 DO RESUME #1
178 (3301) PLEASE RESUME "?!1~.1'$#32768"~"#16384$#16384"
179
180 PLEASE STAND IN LINE FOR TERMINATION
181 DO COME FROM (4302)
182 (302) PLEASE .1 <- ,201SUB.311.312#2
183 DO .1 <- "?#0$'"?.1$!1~#2'"~"#0$#65535"'"~'#49151$#0'
184 DO ,201SUB.311.312#2 <- .1
185 DO (3302) NEXT
186 PLEASE .1 <- ,201SUB.311.312#1
187 DO .1 <- "?#0$'"?.1$!1~#2'"~"#0$#65535"'"~'#49151$#0'
188 DO ,201SUB.311.312#1 <- .1
189 DO (3302) NEXT
190 PLEASE .1 <- .311
191 DO .2 <- .312
192 DO .311 <- ,201SUB.1.2#3
193 DO .312 <- ,201SUB.1.2#4
194 DO ,201SUB.1.2#3 <- .301
195 DO ,201SUB.1.2#4 <- .302
196 PLEASE .301 <- .1
197 (4302) DO .302 <- .2
198 (3302) PLEASE RESUME "?'#65535~"'?.1$#16383'~'#0$#65535'"'$#1"~#3
199
200 PLEASE LET ME INTRODUCE YOU TO .311+.312
201 (303) PLEASE (3303) NEXT
202 DO .1 <- .301
203 DO .2 <- .302
204 DO .301 <- ,201SUB.1.2#3
205 DO .302 <- ,201SUB.1.2#4
206 PLEASE STASH .1+.2
207 DO .311 <- ,201SUB.1.2#5
208 DO .312 <- ,201SUB.1.2#6
209 DO (302) NEXT
210 PLEASE RETRIEVE .1+.2
211 DO .311 <- .1
212 DO .312 <- .2
213 DO (5303) NEXT
214 (3303) PLEASE DO (4303) NEXT
215 DO (201) NEXT
216 DO .311 <- .201
217 DO .312 <- .202
218 (5303) DO ,201SUB.311.312#1 <- #32767
219 PLEASE ,201SUB.311.312#2 <- #32767
220 DO ,201SUB.311.312#3 <- #0
221 DO ,201SUB.311.312#5 <- #0
222 PLEASE RESUME #2
223 (4303) DO RESUME "?!301~.301'$#1"~#3
224 (304) PLEASE (303) NEXT
225 DO ,201SUB.311.312#5 <- .303
226 DO ,201SUB.311.312#6 <- .304
227 DO RESUME #1
228 (305) PLEASE (304) NEXT
229 DO ,201SUB.311.312#3 <- .303
230 DO ,201SUB.311.312#4 <- .304
231 DO RESUME #1
232
233 PLEASE NOTE `=#1 K=#2 K1=#3 S=#4 S1=#5 S2=#6 I=#7 V=#8 C=#9
234 CONT=#10 D=#11 D1=#12 .=#13 E=#14 @=#15 ?=#16
235 |=#17 (R=#18=#13$.80)
236 (3400) PLEASE STASH .1
237 PLEASE (305) NEXT
238 PLEASE RETRIEVE .1
239 DO ,201SUB.311.312#2 <- #0
240 DO ,201SUB.311.312#7 <- .1$#0
241 DO ,401SUB.1 <- .311
242 DO ,402SUB.1 <- .312
243 DO RESUME #1
244 (400) PLEASE ,401 <- #18
245 DO ,402 <- #18
246 DO .1 <- #2 DO (3400) NEXT
247 DO .1 <- #4 DO (3400) NEXT
248 DO .1 <- #7 DO (3400) NEXT
249 DO .1 <- #8 DO (3400) NEXT
250 DO .1 <- #9 DO (3400) NEXT
251 DO .1 <- #11 DO (3400) NEXT
252 DO .1 <- #14 DO (3400) NEXT
253 DO .1 <- #15 DO (3400) NEXT
254 DO .1 <- #17 DO (3400) NEXT
255 DO .1 <- #18 DO (3400) NEXT
256 PLEASE ,201SUB.311.312#7 <- #13$.80
257 PLEASE NOTE 7=ILLEGAL 6=BLANK 5=COMMENT
258 4=PRIMITIVE 3=KRAPS 2=WHAT 1=SPOT
259 (410) PLEASE ,400 <- #127
260 PLEASE .1 <- #127
261 PLEASE (3410) NEXT
262 DO ,400SUB#8 <- #6 $ #0
263 DO ,400SUB#10 <- #6 $ #0
264 DO ,400SUB#13 <- #6 $ #0
265 DO ,400SUB#32 <- #6 $ #0
266 DO ,400SUB#35 <- #5 $ #0
267 DO ,400SUB#46 <- #1 $ #13
268 DO ,400SUB#63 <- #2 $ #16
269 DO ,400SUB#64 <- #4 $ #15
270 DO ,400SUB#67 <- #4 $ #9
271 DO ,400SUB#68 <- #4 $ #11
272 DO ,400SUB#69 <- #4 $ #14
273 DO ,400SUB#73 <- #4 $ #7
274 DO ,400SUB#75 <- #4 $ #2
275 DO ,400SUB#82 <- #4 $ #18
276 DO ,400SUB#83 <- #4 $ #4
277 DO ,400SUB#86 <- #4 $ #8
278 DO ,400SUB#96 <- #3 $ #0
279 DO ,400SUB#99 <- #4 $ #9
280 DO ,400SUB#100 <- #4 $ #11
281 DO ,400SUB#101 <- #4 $ #14
282 DO ,400SUB#105 <- #4 $ #7
283 DO ,400SUB#107 <- #4 $ #2
284 DO ,400SUB#114 <- #4 $ #18
285 DO ,400SUB#115 <- #4 $ #4
286 DO ,400SUB#118 <- #4 $ #8
287 (5410) DO ,400SUB#124 <- #4 $ #17
288 PLEASE COME FROM (3410)
289 (3410) PLEASE (4410) NEXT
290 (4410) PLEASE ,400SUB.1 <- #7
291 DO .1 <- "?.1$!1~#64'"~'#63$#1'
292 DO RESUME "?!1~.1'$#64"~"#64$#64"
293 DO COME FROM (5410)
294 PLEASE NOTE KSIVCDE@|=#7 K1,S1,D1=#6 S2=#5
295 CONT=#4 KRAPS=#3 WHAT=#2 SPOT=#1
296 (420) PLEASE ,403 <- #17
297 DO ,403SUB#1 <- #3 $ #6
298 DO ,403SUB#2 <- #7 $ #210
299 DO ,403SUB#3 <- #6 $ #210
300 DO ,403SUB#4 <- #7 $ #202
301 DO ,403SUB#5 <- #6 $ #202
302 DO ,403SUB#6 <- #5 $ #202
303 DO ,403SUB#7 <- #7 $ #146
304 DO ,403SUB#8 <- #7 $ #106
305 DO ,403SUB#9 <- #7 $ #194
306 DO ,403SUB#10 <- #4 $ #0
307 DO ,403SUB#11 <- #7 $ #34
308 DO ,403SUB#12 <- #6 $ #34
309 DO ,403SUB#13 <- #1 $ #116
310 DO ,403SUB#14 <- #7 $ #162
311 DO ,403SUB#15 <- #7 $ #2
312 DO ,403SUB#16 <- #2 $ #252
313 DO ,403SUB#17 <- #7 $ #62
314 PLEASE RESUME #1
315
316 PLEASE NOTE 3=TOP 2=BOTH 1=LAST
317 (401) DO (305) NEXT
318 DO .401 <- .311
319 DO .402 <- .312
320 DO ,201SUB.401.402#7 <- #3
321 PLEASE (402) NEXT
322 PLEASE ABSTAIN FROM SUCH MEANINGLESS LANGUAGE
323 PLEASE NOTE (AIS) I PATCHED THE NEXT LINE TO AVOID A ONESPOT
324 OVERFLOW BUG BY ADDING ~#65535
325 (4402) DO RESUME '?'"?!101~#128'$!101~.101'"~#65535'$#2'~#3
326 (3402) DO (3101) NEXT
327 DOG ATE END OF MY ESSAY
328 DO COME FROM (5402)
329 (402) DO (3402) NEXT
330 PLEASE (4402) NEXT
331 (5402) DO (412) NEXT
332 DON'T COMMENT
333 (412) PLEASE (422) NEXT
334 DO COME FROM (4412)
335 DO (3402) NEXT
336 (4412) PLEASE (3412) NEXT
337 (3412) DO FORGET "?'#255~"'?.101$#10'~'#0$#65535'"'$#1"~#1
338 DO FORGET "?'#255~"'?.101$#13'~'#0$#65535'"'$#1"~#1
339 DO RESUME #1
340 DO YOU THINK _THIS_ IS PRIMITIVE?
341 (422) PLEASE (432) NEXT
342 DO .311 <- ,401SUB!410~"#0$#31"'
343 DO .312 <- ,402SUB!410~"#0$#31"'
344 DO FORGET #1
345 PLEASE (403) NEXT
346 PLEASE FILL OUT THE APPLICATION FORM
347 (432) PLEASE (442) NEXT
348 DO (305) NEXT
349 DO ,201SUB.311.312#5 <- .401
350 DO ,201SUB.311.312#6 <- .402
351 DO ,201SUB.311.312#7 <- #2
352 PLEASE .401 <- .311
353 DO .402 <- .312
354 DO RESUME #3
355 DO WHAT?
356 (442) PLEASE (452) NEXT
357 DO (3402) NEXT
358 DO (305) NEXT
359 DO ,201SUB.311.312#7 <- !410~"#0$#31"'$.101
360 DO FORGET #3
361 PLEASE (403) NEXT
362 DOT OR SPOT, WE'RE ALL CIVILIZED PEOPLE HERE
363 (452) PLEASE (462) NEXT
364 DO (3402) NEXT
365 DO (305) NEXT
366 DO .2 <- .101
367 PLEASE (102) NEXT
368 DO ,201SUB.311.312#7 <- !410~"#0$#31"'$.2
369 DO FORGET #4
370 PLEASE (403) NEXT
371 (462) DO .410 <- ,400SUB.101
372 DO RESUME .410~'#7$#0'
373
374 DO YOU KNOW THE TOP MAN FOR THIS OPERATION?
375 DO COME FROM (3423)
376 (403) PLEASE (413) NEXT
377 DO STASH .311+.312
378 DO .311 <- .401
379 DO .312 <- .402
380 PLEASE (302) NEXT
381 DO RETRIEVE .311+.312
382 DO RESUME #4
383 PLEASE CAN I HAVE SOME MORE?
384 (413) PLEASE (423) NEXT
385 DO ,201SUB.401.402#3 <- .311
386 DO ,201SUB.401.402#4 <- .312
387 DO ,201SUB.401.402#7 <- #1
388 PLEASE RESUME #3
389 DOUBLE APPLICATION FORM RECEIVED
390 (423) PLEASE (433) NEXT
391 DO .1 <- ,201SUB.401.402#5
392 DO .2 <- ,201SUB.401.402#6
393 DO ,201SUB.401.402#5 <- .311
394 DO ,201SUB.401.402#6 <- .312
395 DO ,201SUB.401.402#7 <- #1$#0
396 DO .311 <- .401
397 PLEASE .312 <- .402
398 DO .401 <- .1
399 DO .402 <- .2
400 (3423) DO FORGET #2
401 (433) PLEASE RESUME ,201SUB.401.402#7
402
403 DO YOU WANT A REPORT?
404 (404) DO STASH .311+.312
405 PLEASE (6404) NEXT
406 DO RETRIEVE .311+.312
407 DO .2 <- .80 DO (103) NEXT
408 DO RESUME #1
409 (6404) DO .401 <- .303
410 DO .402 <- .304
411 DO COME FROM (4404)
412 PLEASE DO (5404) NEXT
413 PLEASE (3404) NEXT
414 DO .311 <- ,201SUB.401.402#3
415 DO .312 <- ,201SUB.401.402#4
416 PLEASE STASH .311+.312
417 DO .1 <- ,201SUB.401.402#5
418 DO .2 <- ,201SUB.401.402#6
419 DO ,201SUB.401.402#3 <- .303
420 DO ,201SUB.401.402#4 <- .304
421 DO ,201SUB.401.402#5 <- .303
422 DO ,201SUB.401.402#6 <- .304
423 DO .311 <- .401
424 DO .312 <- .402
425 DO .401 <- .1
426 DO .402 <- .2
427 PLEASE DO (302) NEXT
428 (4404) DO RETRIEVE .311+.312
429 (3404) DO RESUME "?"#65535~',201SUB.401.402#7'"$#2"~#3
430 DO COME FROM (5404)
431 (5404) PLEASE DO (414) NEXT
432 PLEASE DON'T BRING AUSTRALOPITHECI INTO THE HOUSE
433 (414) PLEASE DO (424) NEXT
434 DO .2 <- .411~'#0$#255'
435 DO (103) NEXT
436 DO RESUME #2
437 (424) PLEASE DO (434) NEXT
438 DO .2 <- #6 DO (103) NEXT
439 DO .2 <- .411~'#0$#255'
440 DO (103) NEXT
441 PLEASE COME FROM (4434)
442 (3424) DO .1 <- ,201SUB.311.312#3
443 DO .312 <- ,201SUB.311.312#4
444 DO .311 <- .1
445 DO RESUME #2
446 DOUBLE DOUBLE TOIL AND TROUBLE
447 (434) PLEASE DO (444) NEXT
448 DO .2 <- #6 DO (103) NEXT DO (103) NEXT
449 DO .2 <- .411~'#0$#255'
450 DO (103) NEXT
451 DO COME FROM (3454)
452 (3434) PLEASE STASH .311+.312
453 PLEASE DO (303) NEXT
454 DO ,201SUB.311.312#5 <- .401
455 DO ,201SUB.311.312#6 <- .402
456 DO ,201SUB.311.312#7 <- #1
457 DO .401 <- .311 DO .402 <- .312
458 PLEASE RETRIEVE .311+.312
459 DO ,201SUB.401.402#3 <- ,201SUB.311.312#5
460 DO ,201SUB.401.402#4 <- ,201SUB.311.312#6
461 (4434) DO FORGET #1
462 DO CONTINUATIONS DREAM OF MONADIC SHEEP
463 (444) PLEASE DO (454) NEXT
464 PLEASE DO .2 <- #60 DO (103) NEXT
465 PLEASE DO .2 <- #194 DO (103) NEXT
466 PLEASE DO .2 <- #242 DO (103) NEXT
467 PLEASE DO .2 <- #114 DO (103) NEXT
468 PLEASE DO .2 <- #42 DO (103) NEXT
469 PLEASE DO .2 <- #124 DO (103) NEXT
470 PLEASE RESUME #5
471 (454) PLEASE DO (464) NEXT
472 PLEASE FORGET #2
473 DO .2 <- #6
474 (3454) DO (103) NEXT
475 DON'T LOOK LIKE A QUESTION MARK
476 (464) PLEASE DO (474) NEXT
477 DO .2 <- .411~'#0$#255' DO (103) NEXT
478 PLEASE DO .2 <- .410~'#0$#255'
479 DO (102) NEXT DO (103) NEXT
480 DO RESUME #7
481 PLEASE CAN YOU SPOT THE DIFFERENCE?
482 (474) PLEASE DO (484) NEXT
483 DO .2 <- .411~'#0$#255'
484 DO .410 <- .410~'#0$#255'
485 DO .411 <- #7$#74
486 PLEASE DO (3474) NEXT
487 DO (103) NEXT
488 PLEASE DO .2 <- .410
489 DO (103) NEXT
490 DO RESUME #8
491 (3474) DO RESUME '"?"#255~'"?.410$.80"~"#0$#65535"'"$#3"$#1'~#11
492 (484) DO .410 <- ,201SUB.311.312#7
493 DO .411 <- ,403SUB!410~"#31$#0"'
494 PLEASE RESUME .411~'#7$#0'
495
496 PLEASE WELCOME TO THE PITS OF EVAL
497 (501) DO .511 <- .311
498 DO .512 <- .312
499 PLEASE DO (3501) NEXT
500 DO .311 <- .511
501 DO .312 <- .512
502 PLEASE NOTE EVAL2=1 APPLY=2
503 PLEASE NOTE
504 .601=CURRENT CHARACTER
505 .501+.502=CURRENT CONTINUATION
506 .511+.512=CURRENT EXPRESSION
507 (3501) DO .601 <- #256
508 DO (304) NEXT
509 DO ,201SUB.311.312#3 <- ,401SUB#14
510 DO ,201SUB.311.312#4 <- ,402SUB#14
511 DO ,201SUB.311.312#7 <- #2
512 DO .501 <- .311
513 DO .502 <- .312
514 PLEASE COME FROM (3622)
515 PLEASE COME FROM (7503)
516 (502) DO (3502) NEXT
517 DO (503) NEXT
518 (4502) PLEASE RESUME "?'#15~"',201SUB.511.512#7'~'#30$#0'"'$#1"~#3
519 DO NOTE KRAPS
520 PLEASE COME FROM (5502)
521 (3502) DO (4502) NEXT
522 PLEASE (303) NEXT
523 DO ,201SUB.311.312#5 <- .501
524 DO ,201SUB.311.312#6 <- .502
525 DO ,201SUB.311.312#7 <- #1
526 DO .501 <- .311
527 DO .502 <- .312
528 DO .311 <- ,201SUB.511.512#5
529 DO .312 <- ,201SUB.511.512#6
530 PLEASE DO (301) NEXT
531 DO ,201SUB.501.502#3 <- .311
532 DO ,201SUB.501.502#4 <- .312
533 DO .311 <- ,201SUB.511.512#3
534 DO .312 <- ,201SUB.511.512#4
535 PLEASE DO (301) NEXT
536 PLEASE STASH .311+.312
537 DO .311 <- .511
538 DO .312 <- .512
539 DO (302) NEXT
540 PLEASE RETRIEVE .311+.312
541 DO .511 <- .311
542 (5502) DO .512 <- .312
543 PLEASE NOTE THAT WE ARE CURRENTLY PROCESSING YOUR APPLICATION
544 (503) DO FORGET #1
545 PLEASE (3503) NEXT
546 DO .311 <- ,201SUB.501.502#3
547 DO .312 <- ,201SUB.501.502#4
548 DO (301) NEXT
549 PLEASE STASH .311+.312
550 DO .311 <- .501
551 DO .312 <- .502
552 PLEASE STASH .311+.312
553 DO .311 <- ,201SUB.501.502#5
554 DO .312 <- ,201SUB.501.502#6
555 DO (301) NEXT
556 DO .501 <- .311
557 DO .502 <- .312
558 PLEASE RETRIEVE .311+.312
559 DO (302) NEXT
560 (8503) PLEASE RETRIEVE .311+.312
561 (4503) PLEASE RESUME ,201SUB.501.502#7
562 PLEASE STAY WITH US FOR THE SECOND HALF OF THE SHOW
563 (3503) PLEASE (4503) NEXT
564 DO (5503) NEXT
565 DO FORGET #1
566 DO .311 <- .501
567 DO .312 <- .502
568 PLEASE STASH .311+.312
569 DO .311 <- ,201SUB.501.502#3
570 DO .312 <- ,201SUB.501.502#4
571 DO (301) NEXT
572 PLEASE STASH .311+.312
573 DO .311 <- ,201SUB.501.502#5
574 DO .312 <- ,201SUB.501.502#6
575 PLEASE DO (301) NEXT
576 DO STASH .311+.312
577 DO (304) NEXT
578 DO ,201SUB.311.312#3 <- .511
579 DO ,201SUB.311.312#4 <- .512
580 DO ,201SUB.311.312#7 <- #2
581 DO .501 <- .311
582 DO .502 <- .312
583 PLEASE RETRIEVE .311+.312
584 DO ,201SUB.501.502#5 <- .311
585 DO ,201SUB.501.502#6 <- .312
586 PLEASE RETRIEVE .311+.312
587 DO .511 <- .311
588 DO .512 <- .312
589 PLEASE RETRIEVE .311+.312
590 (7503) DO (302) NEXT
591 DO D DO DAH
592 (6503) PLEASE RESUME
593 "?'#15~"'?"',201SUB.511.512#7'~'#31$#0'"$#11'
594 ~"#0$#65535""'$#1"~#3
595 (5503) DO (6503) NEXT
596 DO FORGET #2
597 DO .311 <- ,201SUB.501.502#3
598 DO .312 <- ,201SUB.501.502#4
599 DO (301) NEXT
600 PLEASE STASH .311+.312
601 DO (304) NEXT
602 DO ,201SUB.311.312#7 <- #12$#0
603 DO .511 <- .311
604 DO .512 <- .312
605 PLEASE RETRIEVE .311+.312
606 DO ,201SUB.511.512#3 <- .311
607 DO ,201SUB.511.512#4 <- .312
608 DO .311 <- ,201SUB.501.502#5
609 DO .312 <- ,201SUB.501.502#6
610 PLEASE DO (301) NEXT
611 DO STASH .311+.312
612 DO .311 <- .501
613 DO .312 <- .502
614 PLEASE DO (302) NEXT
615 DO RETRIEVE .311+.312
616 DO .501 <- .311
617 DO .502 <- .312
618 DO (503) NEXT
619
620 PLEASE LEARN THE DIFFERENCE BETWEEN APPLYS AND ORANGUTANS
621 PLEASE COME FROM (8503)
622 DO COME FROM (603)
623 (601) PLEASE DO (627) NEXT
624 DO (503) NEXT
625 PLEASE DON'T CLIMB INTO THE PIPES
626 (627) PLEASE DO (626) NEXT
627 DO .311 <- .511
628 DO .312 <- .512
629 PLEASE DO (3627) NEXT
630 DO STASH .311+.312
631 PLEASE DO (305) NEXT
632 DO .2 <- .601
633 DO (102) NEXT
634 DO ,201SUB.311.312#7 <- #13$.2
635 DO .511 <- .311
636 DO .512 <- .312
637 DO RETRIEVE .311+.312
638 PLEASE DO (603) NEXT
639 (3627) PLEASE DO (4627) NEXT
640 DO FORGET #1
641 DO .511 <- ,401SUB#8
642 DO .512 <- ,402SUB#8
643 PLEASE DO (603) NEXT
644 (4627) PLEASE RESUME '?.601$#512'~'#256$#256'
645 PLEASE WHAT DID YOU SAY?
646 (626) PLEASE DO (625) NEXT
647 DO .602 <- ',201SUB.311.312#7'~'#0$#255'
648 DO (302) NEXT
649 DO .311 <- .511
650 DO .312 <- .512
651 PLEASE DO (3626) NEXT
652 DO FORGET #1
653 DO .511 <- ,401SUB#7
654 DO .512 <- ,402SUB#7
655 PLEASE DO (603) NEXT
656 (3626) PLEASE DO (4626) NEXT
657 DO FORGET #2
658 DO .511 <- ,401SUB#8
659 DO .512 <- ,402SUB#8
660 PLEASE DO (603) NEXT
661 (4626) DO RESUME "?'#255~"'?.601$.602'~'#0$#255'"'$#2"~#3
662 DON'T FALL INTO THE WHIRLPOOL
663 (625) PLEASE DO (624) NEXT
664 DO .311 <- .511
665 DO .312 <- .512
666 DO (3625) NEXT
667 DO FORGET #2
668 DO .601 <- .101
669 DO .511 <- ,401SUB#7
670 DO .512 <- ,402SUB#7
671 PLEASE DO (603) NEXT
672 (3625) DO (3101) NEXT
673 PLEASE REINSTATE (3101)
674 DO FORGET #3
675 DO .601 <- #256
676 DO .511 <- ,401SUB#8
677 DO .512 <- ,402SUB#8
678 PLEASE DO (603) NEXT
679 DO YOU THINK THIS IS THE END?
680 (624) PLEASE DO (623) NEXT
681 DO RESUME #5
682 PLEASE STAY IN ONE SPOT SO I CAN HIT YOU
683 (623) PLEASE DO (622) NEXT
684 DO .2 <- ',201SUB.311.312#7'~'#0$#255'
685 DO (103) NEXT
686 DO (302) NEXT
687 DO RESUME #5
688 DON'T PROMISE WHAT YOU CAN'T KEEP
689 (622) PLEASE DO (621) NEXT
690 DO FORGET #6
691 DO STASH .311+.312
692 PLEASE DO (303) NEXT
693 DO ,201SUB.311.312#3 <- .511
694 DO ,201SUB.311.312#4 <- .512
695 DO ,201SUB.311.312#5 <- .501
696 DO ,201SUB.311.312#6 <- .502
697 DO ,201SUB.311.312#7 <- #1
698 DO .501 <- .311
699 DO .502 <- .312
700 PLEASE RETRIEVE .311+.312
701 DO STASH .311+.312
702 DO .1 <- ,201SUB.311.312#3
703 DO .312 <- ,201SUB.311.312#4
704 DO .311 <- .1
705 DO (301) NEXT
706 DO .511 <- .311
707 DO .512 <- .312
708 PLEASE RETRIEVE .311+.312
709 (3622) DO (302) NEXT
710 DO EXPECT SOME DELAY
711 (621) PLEASE DO (620) NEXT
712 DO RESUME #7
713 PLEASE CONTINUE, NOTHING TO SEE HERE...
714 (620) PLEASE DO (619) NEXT
715 DO STASH .311+.312
716 DO .311 <- .501
717 DO .312 <- .502
718 DO (302) NEXT
719 PLEASE RETRIEVE .311+.312
720 DO STASH .311+.312
721 DO .1 <- ,201SUB.311.312#3
722 DO .312 <- ,201SUB.311.312#4
723 DO .311 <- .1
724 DO (301) NEXT
725 PLEASE .501 <- .311
726 PLEASE .502 <- .312
727 PLEASE RETRIEVE .311+.312
728 DO (302) NEXT
729 DO RESUME #8
730 DO CALL ME ANY TIME
731 (619) PLEASE DO (618) NEXT
732 DO FORGET #8
733 DO .311 <- .511
734 DO .312 <- .512
735 DO STASH .311+.312
736 DO .311 <- .501
737 DO .312 <- .502
738 DO (301) NEXT
739 PLEASE DO (304) NEXT
740 DO ,201SUB.311.312#3 <- .501
741 DO ,201SUB.311.312#4 <- .502
742 DO ,201SUB.311.312#7 <- #10$#0
743 DO .511 <- .311
744 DO .512 <- .312
745 PLEASE RETRIEVE .311+.312
746 DO (603) NEXT
747 DON'T LOOK INTO THE ABYSS OR THE ABYSS LOOKS BACK INTO YOU
748 (618) PLEASE DO (617) NEXT
749 DO STASH .311+.312
750 DO .311 <- .511
751 DO .312 <- .512
752 DO (302) NEXT
753 PLEASE RETRIEVE .311+.312
754 DO .511 <- .311
755 DO .512 <- .312
756 DO RESUME #10
757 DOESN'T REALLY DO MUCH
758 (617) PLEASE DO (616) NEXT
759 DO RESUME #11
760 DO WATCH OUT FOR SUBSTITUTES
761 (616) PLEASE DO (615) NEXT
762 DO FORGET #11
763 DO STASH .311+.312+.511+.512
764 DO .311 <- .511
765 DO .312 <- .512
766 DO (301) NEXT
767 PLEASE DO (303) NEXT
768 DO ,201SUB.311.312#5 <- .501
769 DO ,201SUB.311.312#6 <- .502
770 DO ,201SUB.311.312#7 <- #1
771 DO .501 <- .311
772 DO .502 <- .312
773 PLEASE DO (303) NEXT
774 DO ,201SUB.311.312#5 <- .511
775 DO ,201SUB.311.312#6 <- .512
776 DO ,201SUB.311.312#7 <- #1$#0
777 DO ,201SUB.501.502#3 <- .311
778 DO ,201SUB.501.502#4 <- .312
779 DO .511 <- .311
780 DO .512 <- .312
781 PLEASE RETRIEVE .311+.312
782 DO STASH .311+.312
783 DO .1 <- ,201SUB.311.312#5
784 DO .312 <- ,201SUB.311.312#6
785 DO .311 <- .1
786 DO (301) NEXT
787 DO ,201SUB.511.512#3 <- .311
788 DO ,201SUB.511.512#4 <- .312
789 PLEASE RETRIEVE .311+.312
790 DO STASH .311+.312
791 DO .1 <- ,201SUB.311.312#3
792 DO .312 <- ,201SUB.311.312#4
793 DO .311 <- .1
794 PLEASE DO (301) NEXT
795 DO .511 <- .311
796 DO .512 <- .312
797 PLEASE RETRIEVE .311+.312
798 DO (302) NEXT
799 DO .311 <- .511
800 DO .312 <- .512
801 PLEASE RETRIEVE .511+.512
802 DO (603) NEXT
803 (615) PLEASE DO (614) NEXT
804 DO STASH .311+.312
805 DO (303) NEXT
806 DO ,201SUB.311.312#5 <- .511
807 DO ,201SUB.311.312#6 <- .512
808 DO ,201SUB.311.312#7 <- #6$#0
809 DO .511 <- .311
810 DO .512 <- .312
811 PLEASE RETRIEVE .311+.312
812 DO STASH .311+.312
813 DO .1 <- ,201SUB.311.312#3
814 DO .312 <- ,201SUB.311.312#4
815 DO .311 <- .1
816 PLEASE DO (301) NEXT
817 DO ,201SUB.511.512#3 <- .311
818 DO ,201SUB.511.512#4 <- .312
819 PLEASE RETRIEVE .311+.312
820 DO (302) NEXT
821 PLEASE RESUME #13
822 (614) PLEASE DO (613) NEXT
823 DO FORGET #13
824 DO .602 <- #5$#0
825 DO (602) NEXT
826 DON'T WORRY ABOUT THE CONSTANT NOISE
827 (613) PLEASE DO (612) NEXT
828 DO STASH .311+.312
829 DO .311 <- .511
830 DO .312 <- .512
831 DO (302) NEXT
832 PLEASE RETRIEVE .311+.312
833 DO STASH .311+.312
834 DO .1 <- ,201SUB.311.312#3
835 DO .312 <- ,201SUB.311.312#4
836 DO .311 <- .1
837 DO (301) NEXT
838 DO .511 <- .311
839 DO .512 <- .312
840 PLEASE RETRIEVE .311+.312
841 DO (302) NEXT
842 PLEASE RESUME #15
843 (612) PLEASE DO (611) NEXT
844 DO FORGET #15
845 DO .602 <- #3$#0
846 DO (602) NEXT
847 (611) PLEASE DO (610) NEXT
848 PLEASE HOW DID YOU GET HERE?
849 (610) PLEASE RESUME ',201SUB.311.312#7'~'#31$#0'
850 (602) DO (304) NEXT
851 DO ,201SUB.311.312#3 <- .511
852 DO ,201SUB.311.312#4 <- .512
853 DO ,201SUB.311.312#7 <- .602
854 DO .511 <- .311
855 DO .512 <- .312
856 PLEASE RESUME #2
857 (603) PLEASE FORGET #2