996
|
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
|