996
|
1 PLEASE DO (600) NEXT
|
|
2 PLEASE DON'T PAY ATTENTION TO THE ABOVE LINE IF YOU ARE HUMAN
|
|
3
|
|
4 INTERFUNGE.I - COPYRIGHT 2008 JEFFREY LEE
|
|
5
|
|
6 THE BEFUNGE PROGRAM FROM IS FIRST READ FROM INPUT
|
|
7 DON'T FORGET TO TERMINATE YOUR FUNGESPACE PROGRAM WITH A BLANK LINE
|
|
8
|
|
9 VARIABLES AND SUBROUTINES:
|
|
10 ;1 IS THE 2D FUNGESPACE ARRAY
|
|
11 ;2 IS THE FUNGESPACE STACK
|
|
12 .10 AND .11 ARE THE IP
|
|
13 .12 AND .13 ARE THE DELTA
|
|
14 .14 IS THE STACK DEPTH
|
|
15 .15 AND .16 ARE THE IO TAPE POSITIONS
|
|
16 ,1 IS THE IO BUFFER
|
|
17 ,2 IS THE INSTRUCTION LOOKUP TABLE
|
|
18 [500] GETS A CHAR INTO .1 AND [510] OUTPUTS A CHAR FROM .1
|
|
19 [530] PUSHES :1 AND [540] POPS :1 FROM THE STACK
|
|
20
|
|
21 LICENSING:
|
|
22 INTERFUNGE.I IS FREE SOFTWARE: YOU CAN REDISTRIBUTE IT AND/OR MODIFY
|
|
23 IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
|
|
24 THE FREE SOFTWARE FOUNDATION, EITHER VERSION 2 OF THE LICENSE, OR
|
|
25 (AT YOUR OPTION) ANY LATER VERSION.
|
|
26 INTERFUNGE.I IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL,
|
|
27 BUT WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
|
|
28 MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE
|
|
29 GNU GENERAL PUBLIC LICENSE FOR MORE DETAILS.
|
|
30 YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
|
|
31 ALONG WITH INTERFUNGE.I. IF NOT, SEE <HTTP://WWW.GNU.ORG/LICENSES/>.
|
|
32
|
|
33 PLEASE NOTE THAT THE PROGRAM STARTS HERE
|
|
34
|
|
35 (600) PLEASE DO ;1 <- #80 BY #25
|
|
36 DO ;2 <- #10000
|
|
37 DO .11 <- #1
|
|
38 PLEASE DO .12 <- #1
|
|
39 DO .13 <- #0
|
|
40 DO .14 <- #0
|
|
41 DO .15 <- #0
|
|
42 DO .16 <- #0
|
|
43 PLEASE DO ,1 <- #1
|
|
44 PLEASE DO ,2 <- #127
|
|
45 DO .3 <- #127
|
|
46 DO .2 <- #1
|
|
47 (13) DO FORGET #1
|
|
48 DO .1 <- .3
|
|
49 PLEASE DO ,2SUB.1 <- #1
|
|
50 DO (1010) NEXT
|
|
51 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
52 PLEASE DO (14) NEXT
|
|
53 DO (13) NEXT
|
|
54 (14) PLEASE DO (3) NEXT
|
|
55 DON'T FORGET THAT [1] CLEARS THE CALL STACK FOR US
|
|
56 DO ,2SUB#32 <- #2
|
|
57 DO ,2SUB#33 <- #3
|
|
58 PLEASE DO ,2SUB#34 <- #4
|
|
59 DO ,2SUB#35 <- #5
|
|
60 DO ,2SUB#36 <- #6
|
|
61 DO ,2SUB#37 <- #7
|
|
62 PLEASE DO ,2SUB#38 <- #8
|
|
63 DO ,2SUB#42 <- #9
|
|
64 DO ,2SUB#43 <- #10
|
|
65 DO ,2SUB#44 <- #11
|
|
66 PLEASE DO ,2SUB#45 <- #12
|
|
67 DO ,2SUB#46 <- #13
|
|
68 DO ,2SUB#47 <- #14
|
|
69 DO ,2SUB#48 <- #15
|
|
70 PLEASE DO ,2SUB#49 <- #16
|
|
71 DO ,2SUB#50 <- #17
|
|
72 DO ,2SUB#51 <- #18
|
|
73 DO ,2SUB#52 <- #19
|
|
74 PLEASE DO ,2SUB#53 <- #20
|
|
75 DO ,2SUB#54 <- #21
|
|
76 DO ,2SUB#55 <- #22
|
|
77 DO ,2SUB#56 <- #23
|
|
78 PLEASE DO ,2SUB#57 <- #24
|
|
79 DO ,2SUB#58 <- #25
|
|
80 DO ,2SUB#60 <- #26
|
|
81 DO ,2SUB#62 <- #27
|
|
82 PLEASE DO ,2SUB#63 <- #28
|
|
83 DO ,2SUB#64 <- #29
|
|
84 DO ,2SUB#92 <- #30
|
|
85 DO ,2SUB#94 <- #31
|
|
86 PLEASE DO ,2SUB#95 <- #32
|
|
87 DO ,2SUB#96 <- #33
|
|
88 DO ,2SUB#103 <- #34
|
|
89 DO ,2SUB#112 <- #35
|
|
90 PLEASE DO ,2SUB#118 <- #36
|
|
91 DO ,2SUB#124 <- #37
|
|
92 DO ,2SUB#126 <- #38
|
|
93 (5) DO .10 <- #1
|
|
94 (1) PLEASE FORGET #1
|
|
95 (10) DO (500) NEXT
|
|
96 (11) DON'T .1 <- #10
|
|
97 DO .5 <- .1
|
|
98 DO .2 <- #10
|
|
99 PLEASE DO (1010) NEXT
|
|
100 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
101 DO (2) NEXT
|
|
102 DO .1 <- .10
|
|
103 DO .2 <- #81
|
|
104 PLEASE DO (1010) NEXT
|
|
105 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
106 DO (18) NEXT
|
|
107 DO ;1SUB.10.11 <- .5
|
|
108 PLEASE ABSTAIN FROM (18)
|
|
109 (18) DO (3) NEXT
|
|
110 PLEASE REINSTATE (18)
|
|
111 PLEASE FORGET #1
|
|
112 DO .1 <- .10
|
|
113 PLEASE DO (1020) NEXT
|
|
114 DO .10 <- .1
|
|
115 PLEASE DO (1) NEXT
|
|
116 (2) DO (3) NEXT
|
|
117 DO FORGET #1
|
|
118 DO .1 <- .10
|
|
119 DO .2 <- #1
|
|
120 PLEASE DO (1010) NEXT
|
|
121 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
122 DO (4) NEXT
|
|
123 (7) PLEASE FORGET #1
|
|
124 DO .1 <- .10
|
|
125 DO .2 <- #81
|
|
126 PLEASE DO (1010) NEXT
|
|
127 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
128 DO (6) NEXT
|
|
129 DO ;1SUB.10.11 <- #32
|
|
130 DO .1 <- .10
|
|
131 DO .2 <- #1
|
|
132 PLEASE DO (1000) NEXT
|
|
133 DO .10 <- .3
|
|
134 DO (7) NEXT
|
|
135 (6) DO (3) NEXT
|
|
136 PLEASE FORGET #1
|
|
137 DO .1 <- .11
|
|
138 PLEASE DO (1020) NEXT
|
|
139 DO .11 <- .1
|
|
140 DO .2 <- #26
|
|
141 PLEASE DO (1010) NEXT
|
|
142 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
143 DO (8) NEXT
|
|
144 DO (5) NEXT
|
|
145 (8) PLEASE DO (3) NEXT
|
|
146 PLEASE FORGET #1
|
|
147 PLEASE DO (9) NEXT
|
|
148 (4) DO (3) NEXT
|
|
149 PLEASE FORGET #1
|
|
150 DO ABSTAIN FROM (10)
|
|
151 PLEASE REINSTATE (11)
|
|
152 PLEASE DO (7) NEXT
|
|
153 (3) PLEASE RESUME .1
|
|
154 (9) DO .10 <- #1
|
|
155 DO .11 <- #1
|
|
156 (12) DO :9 <- ;1SUB.10.11
|
|
157 DO .1 <- '?"':9~:9'~#1"$#1'~#3
|
|
158 PLEASE DO (15) NEXT
|
|
159 DO .1 <- :9~'#65528$#65520'
|
|
160 DO .1 <- '?"!1~.1'~#1"$#1'~#3
|
|
161 PLEASE DO (16) NEXT
|
|
162 PLEASE DO (17) NEXT
|
|
163 (16) PLEASE DO (3) NEXT
|
|
164 DO FORGET #1
|
|
165 DO .1 <- ,2SUB:9
|
|
166 PLEASE DO (390) NEXT
|
|
167 (15) PLEASE DO (3) NEXT
|
|
168 (17) DO FORGET #80
|
|
169 DON'T IMPLEMENT REFLECT HERE
|
|
170 DO .1 <- #0
|
|
171 DO .2 <- .12
|
|
172 PLEASE DO (1010) NEXT
|
|
173 DO .12 <- .3
|
|
174 DO .2 <- .13
|
|
175 PLEASE DO (1010) NEXT
|
|
176 DO .13 <- .3
|
|
177 DO (20) NEXT
|
|
178 (30) PLEASE DO (15) NEXT
|
|
179 (20) DON'T IMPLEMENT SPACE HERE
|
|
180 DO FORGET #80
|
|
181 DO .1 <- '?".12~#1"$#1'~#3
|
|
182 PLEASE DO (33) NEXT
|
|
183 DO .1 <- .10
|
|
184 DO .2 <- .12
|
|
185 PLEASE DO (1009) NEXT
|
|
186 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
187 PLEASE DO (31) NEXT
|
|
188 DO .10 <- .3
|
|
189 DO .1 <- .3
|
|
190 DO .2 <- #81
|
|
191 PLEASE DO (1010) NEXT
|
|
192 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
193 PLEASE DO (32) NEXT
|
|
194 DO (12) NEXT
|
|
195 (31) PLEASE DO (3) NEXT
|
|
196 DO FORGET #1
|
|
197 DO .10 <- #80
|
|
198 DO (12) NEXT
|
|
199 (32) PLEASE DO (3) NEXT
|
|
200 DO FORGET #1
|
|
201 DO .10 <- #1
|
|
202 DO (12) NEXT
|
|
203 (33) PLEASE DO (3) NEXT
|
|
204 DO FORGET #1
|
|
205 DO .1 <- .11
|
|
206 DO .2 <- .13
|
|
207 PLEASE DO (1009) NEXT
|
|
208 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
209 PLEASE DO (34) NEXT
|
|
210 DO .11 <- .3
|
|
211 DO .1 <- .3
|
|
212 DO .2 <- #26
|
|
213 PLEASE DO (1010) NEXT
|
|
214 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
215 PLEASE DO (35) NEXT
|
|
216 DO (12) NEXT
|
|
217 (34) PLEASE DO (3) NEXT
|
|
218 DO FORGET #1
|
|
219 DO .11 <- #25
|
|
220 DO (12) NEXT
|
|
221 (35) PLEASE DO (3) NEXT
|
|
222 DO FORGET #1
|
|
223 DO .11 <- #1
|
|
224 DO (12) NEXT
|
|
225 (40) PLEASE DO (30) NEXT
|
|
226 DO FORGET #80
|
|
227 DON'T IMPLEMENT NOT HERE
|
|
228 DO (540) NEXT
|
|
229 DO :1 <- '?"':1~:1'~#1"$#1'~#1
|
|
230 DO (530) NEXT
|
|
231 PLEASE DO (20) NEXT
|
|
232 (50) PLEASE DO (40) NEXT
|
|
233 (58) DON'T IMPLEMENT STRINGMODE HERE
|
|
234 DO FORGET #80
|
|
235 DO .1 <- '?".12~#1"$#1'~#3
|
|
236 PLEASE DO (53) NEXT
|
|
237 DO .1 <- .10
|
|
238 DO .2 <- .12
|
|
239 PLEASE DO (1009) NEXT
|
|
240 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
241 PLEASE DO (51) NEXT
|
|
242 DO .10 <- .3
|
|
243 DO .1 <- .3
|
|
244 DO .2 <- #81
|
|
245 PLEASE DO (1010) NEXT
|
|
246 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
247 PLEASE DO (52) NEXT
|
|
248 DO (56) NEXT
|
|
249 (51) PLEASE DO (3) NEXT
|
|
250 DO FORGET #1
|
|
251 DO .10 <- #80
|
|
252 DO (56) NEXT
|
|
253 (52) PLEASE DO (3) NEXT
|
|
254 DO FORGET #1
|
|
255 DO .10 <- #1
|
|
256 DO (56) NEXT
|
|
257 (53) PLEASE DO (3) NEXT
|
|
258 DO FORGET #1
|
|
259 DO .1 <- .11
|
|
260 DO .2 <- .13
|
|
261 PLEASE DO (1009) NEXT
|
|
262 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
263 PLEASE DO (54) NEXT
|
|
264 DO .11 <- .3
|
|
265 DO .1 <- .3
|
|
266 DO .2 <- #26
|
|
267 PLEASE DO (1010) NEXT
|
|
268 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
269 PLEASE DO (55) NEXT
|
|
270 DO (56) NEXT
|
|
271 (54) PLEASE DO (3) NEXT
|
|
272 DO FORGET #1
|
|
273 DO .11 <- #25
|
|
274 DO (56) NEXT
|
|
275 (55) PLEASE DO (3) NEXT
|
|
276 DO FORGET #1
|
|
277 DO .11 <- #1
|
|
278 (56) DO FORGET #1
|
|
279 DO :1 <- ;1SUB.10.11
|
|
280 DO :2 <- #34
|
|
281 PLEASE DO (1510) NEXT
|
|
282 DO .1 <- '?"':3~:3'~#1"$#1'~#3
|
|
283 DO (57) NEXT
|
|
284 DO (530) NEXT
|
|
285 DO (58) NEXT
|
|
286 (57) DO (3) NEXT
|
|
287 PLEASE DO (20) NEXT
|
|
288 (60) PLEASE DO (50) NEXT
|
|
289 DO FORGET #80
|
|
290 DON'T IMPLEMENT TRAMPOLINE HERE
|
|
291 DO .1 <- '?".12~#1"$#1'~#3
|
|
292 PLEASE DO (63) NEXT
|
|
293 DO .1 <- .10
|
|
294 DO .2 <- .12
|
|
295 PLEASE DO (1009) NEXT
|
|
296 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
297 PLEASE DO (31) NEXT
|
|
298 DO .10 <- .3
|
|
299 DO .1 <- .3
|
|
300 DO .2 <- #81
|
|
301 PLEASE DO (1010) NEXT
|
|
302 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
303 PLEASE DO (62) NEXT
|
|
304 DO (20) NEXT
|
|
305 (61) PLEASE DO (3) NEXT
|
|
306 DO FORGET #1
|
|
307 DO .10 <- #80
|
|
308 DO (20) NEXT
|
|
309 (62) PLEASE DO (3) NEXT
|
|
310 DO FORGET #1
|
|
311 DO .10 <- #1
|
|
312 DO (20) NEXT
|
|
313 (63) PLEASE DO (3) NEXT
|
|
314 DO FORGET #1
|
|
315 DO .1 <- .11
|
|
316 DO .2 <- .13
|
|
317 PLEASE DO (1009) NEXT
|
|
318 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
319 PLEASE DO (64) NEXT
|
|
320 DO .11 <- .3
|
|
321 DO .1 <- .3
|
|
322 DO .2 <- #26
|
|
323 PLEASE DO (1010) NEXT
|
|
324 DO .1 <- '?"!3~.3'~#1"$#1'~#3
|
|
325 PLEASE DO (65) NEXT
|
|
326 DO (20) NEXT
|
|
327 (64) PLEASE DO (3) NEXT
|
|
328 DO FORGET #1
|
|
329 DO .11 <- #25
|
|
330 DO (20) NEXT
|
|
331 (65) PLEASE DO (3) NEXT
|
|
332 DO FORGET #1
|
|
333 DO .11 <- #1
|
|
334 DO (20) NEXT
|
|
335 (70) PLEASE DO (60) NEXT
|
|
336 DO FORGET #80
|
|
337 DON'T IMPLEMENT POP HERE
|
|
338 DO (540) NEXT
|
|
339 PLEASE DO (20) NEXT
|
|
340 (80) PLEASE DO (70) NEXT
|
|
341 DO FORGET #80
|
|
342 DON'T IMPLEMENT REMAINDER HERE
|
|
343 DO (540) NEXT
|
|
344 DO :2 <- :1
|
|
345 DO (540) NEXT
|
|
346 PLEASE DO (2530) NEXT
|
|
347 DO :1 <- :4
|
|
348 DO (530) NEXT
|
|
349 PLEASE DO (20) NEXT
|
|
350 (90) PLEASE DO (80) NEXT
|
|
351 DO FORGET #80
|
|
352 DON'T IMPLEMENT INPUT INTEGER HERE
|
|
353 DO WRITE IN :1
|
|
354 DO (530) NEXT
|
|
355 PLEASE DO (20) NEXT
|
|
356 (100) PLEASE DO (90) NEXT
|
|
357 DO FORGET #80
|
|
358 DON'T IMPLEMENT MULTIPLY HERE
|
|
359 DO (540) NEXT
|
|
360 DO :2 <- :1
|
|
361 DO (540) NEXT
|
|
362 PLEASE DO (1549) NEXT
|
|
363 DO :1 <- :3
|
|
364 DO (530) NEXT
|
|
365 PLEASE DO (20) NEXT
|
|
366 (110) PLEASE DO (100) NEXT
|
|
367 DO FORGET #80
|
|
368 DON'T IMPLEMENT ADD HERE
|
|
369 DO (540) NEXT
|
|
370 DO :2 <- :1
|
|
371 DO (540) NEXT
|
|
372 PLEASE DO (1509) NEXT
|
|
373 DO :1 <- :3
|
|
374 DO (530) NEXT
|
|
375 PLEASE DO (20) NEXT
|
|
376 (120) PLEASE DO (110) NEXT
|
|
377 DO FORGET #80
|
|
378 DON'T IMPLEMENT OUTPUT CHAR HERE
|
|
379 DO (540) NEXT
|
|
380 DO .1 <- :1~#255
|
|
381 DO (510) NEXT
|
|
382 PLEASE DO (20) NEXT
|
|
383 (130) PLEASE DO (120) NEXT
|
|
384 DO FORGET #80
|
|
385 DON'T IMPLEMENT SUBTRACT HERE
|
|
386 DO (540) NEXT
|
|
387 DO :2 <- :1
|
|
388 DO (540) NEXT
|
|
389 PLEASE DO (1510) NEXT
|
|
390 DO :1 <- :3
|
|
391 DO (530) NEXT
|
|
392 PLEASE DO (20) NEXT
|
|
393 (140) PLEASE DO (130) NEXT
|
|
394 DO FORGET #80
|
|
395 DON'T IMPLEMENT OUTPUT INTEGER HERE
|
|
396 DO (540) NEXT
|
|
397 DO READ OUT :1
|
|
398 PLEASE DO (20) NEXT
|
|
399 (150) PLEASE DO (140) NEXT
|
|
400 DO FORGET #80
|
|
401 DON'T IMPLEMENT DIVIDE HERE
|
|
402 DO (540) NEXT
|
|
403 DO :2 <- :1
|
|
404 DO (540) NEXT
|
|
405 PLEASE DO (1550) NEXT
|
|
406 DO :1 <- :3
|
|
407 DO (530) NEXT
|
|
408 PLEASE DO (20) NEXT
|
|
409 (160) PLEASE DO (150) NEXT
|
|
410 DO FORGET #80
|
|
411 DON'T IMPLEMENT PUSH ZERO HERE
|
|
412 DO :1 <- #0
|
|
413 DO (530) NEXT
|
|
414 PLEASE DO (20) NEXT
|
|
415 (170) PLEASE DO (160) NEXT
|
|
416 DO FORGET #80
|
|
417 DON'T IMPLEMENT PUSH ONE HERE
|
|
418 DO :1 <- #1
|
|
419 DO (530) NEXT
|
|
420 PLEASE DO (20) NEXT
|
|
421 (180) PLEASE DO (170) NEXT
|
|
422 DO FORGET #80
|
|
423 DON'T IMPLEMENT PUSH TWO HERE
|
|
424 DO :1 <- #2
|
|
425 DO (530) NEXT
|
|
426 PLEASE DO (20) NEXT
|
|
427 (190) PLEASE DO (180) NEXT
|
|
428 DO FORGET #80
|
|
429 DON'T IMPLEMENT PUSH THREE HERE
|
|
430 DO :1 <- #3
|
|
431 DO (530) NEXT
|
|
432 PLEASE DO (20) NEXT
|
|
433 (200) PLEASE DO (190) NEXT
|
|
434 DO FORGET #80
|
|
435 DON'T IMPLEMENT PUSH FOUR HERE
|
|
436 DO :1 <- #4
|
|
437 DO (530) NEXT
|
|
438 PLEASE DO (20) NEXT
|
|
439 (210) PLEASE DO (200) NEXT
|
|
440 DO FORGET #80
|
|
441 DON'T IMPLEMENT PUSH FIVE HERE
|
|
442 DO :1 <- #5
|
|
443 DO (530) NEXT
|
|
444 PLEASE DO (20) NEXT
|
|
445 (220) PLEASE DO (210) NEXT
|
|
446 DO FORGET #80
|
|
447 DON'T IMPLEMENT PUSH SIX HERE
|
|
448 DO :1 <- #6
|
|
449 DO (530) NEXT
|
|
450 PLEASE DO (20) NEXT
|
|
451 (230) PLEASE DO (220) NEXT
|
|
452 DO FORGET #80
|
|
453 DON'T IMPLEMENT PUSH SEVEN HERE
|
|
454 DO :1 <- #7
|
|
455 DO (530) NEXT
|
|
456 PLEASE DO (20) NEXT
|
|
457 (240) PLEASE DO (230) NEXT
|
|
458 DO FORGET #80
|
|
459 DON'T IMPLEMENT PUSH EIGHT HERE
|
|
460 DO :1 <- #8
|
|
461 DO (530) NEXT
|
|
462 PLEASE DO (20) NEXT
|
|
463 (250) PLEASE DO (240) NEXT
|
|
464 DO FORGET #80
|
|
465 DON'T IMPLEMENT PUSH NINE HERE
|
|
466 DO :1 <- #9
|
|
467 DO (530) NEXT
|
|
468 PLEASE DO (20) NEXT
|
|
469 (260) PLEASE DO (250) NEXT
|
|
470 DO FORGET #80
|
|
471 DON'T IMPLEMENT DUPLICATE HERE
|
|
472 DO (540) NEXT
|
|
473 DO (530) NEXT
|
|
474 DO (530) NEXT
|
|
475 PLEASE DO (20) NEXT
|
|
476 (270) PLEASE DO (260) NEXT
|
|
477 DO FORGET #80
|
|
478 DON'T IMPLEMENT GO WEST HERE
|
|
479 DO .12 <- #65535
|
|
480 DO .13 <- #0
|
|
481 PLEASE DO (20) NEXT
|
|
482 (280) PLEASE DO (270) NEXT
|
|
483 DO FORGET #80
|
|
484 DON'T IMPLEMENT GO EAST HERE
|
|
485 DO .12 <- #1
|
|
486 DO .13 <- #0
|
|
487 PLEASE DO (20) NEXT
|
|
488 (290) PLEASE DO (280) NEXT
|
|
489 DO FORGET #80
|
|
490 DON'T IMPLEMENT GO AWAY HERE
|
|
491 PLEASE NOTE THAT THIS WAS PATCHED BY AIS523 TO FIX A SYNTAX ERROR
|
|
492 DO %50 (291) NEXT
|
|
493 DO .13 <- #0
|
|
494 DO .12 <- #65535
|
|
495 DO %50 .12 <- .12~#1
|
|
496 PLEASE DO (20) NEXT
|
|
497 (291) DO .12 <- #0
|
|
498 DO .13 <- #65535
|
|
499 DO %50 .13 <- .13~#1
|
|
500 PLEASE DO (20) NEXT
|
|
501 (300) PLEASE DO (290) NEXT
|
|
502 PLEASE GIVE UP
|
|
503 (310) PLEASE DO (300) NEXT
|
|
504 DO FORGET #80
|
|
505 DON'T IMPLEMENT SWAP HERE
|
|
506 DO (540) NEXT
|
|
507 DO :2 <- :1
|
|
508 DO (540) NEXT
|
|
509 DO :3 <- :1
|
|
510 DO :1 <- :2
|
|
511 DO (530) NEXT
|
|
512 DO :1 <- :3
|
|
513 DO (530) NEXT
|
|
514 PLEASE DO (20) NEXT
|
|
515 (320) PLEASE DO (310) NEXT
|
|
516 DO FORGET #80
|
|
517 DON'T IMPLEMENT GO NORTH HERE
|
|
518 DO .12 <- #0
|
|
519 DO .13 <- #65535
|
|
520 PLEASE DO (20) NEXT
|
|
521 (330) PLEASE DO (320) NEXT
|
|
522 DO FORGET #80
|
|
523 DON'T IMPLEMENT EAST-WEST IF HERE
|
|
524 DO .13 <- #0
|
|
525 DO (540) NEXT
|
|
526 DO .1 <- '?"':1~:1'~#1"$#1'~#3
|
|
527 DO (331) NEXT
|
|
528 DO .12 <- #65535
|
|
529 PLEASE DO (20) NEXT
|
|
530 (331) PLEASE DO (3) NEXT
|
|
531 DO FORGET #1
|
|
532 DO .12 <- #1
|
|
533 PLEASE DO (20) NEXT
|
|
534 (340) PLEASE DO (330) NEXT
|
|
535 DO FORGET #80
|
|
536 DON'T IMPLEMENT GREATER THAN HERE
|
|
537 DO (540) NEXT
|
|
538 DO :2 <- :1
|
|
539 DO (540) NEXT
|
|
540 DO (1510) NEXT
|
|
541 DO :1 <- :3~'#32767$#65535'
|
|
542 DO :1 <- ':1~:1'~"'?":3~'#32768$#0'"$#1'~#1"
|
|
543 PLEASE DO (530) NEXT
|
|
544 PLEASE DO (20) NEXT
|
|
545 (350) PLEASE DO (340) NEXT
|
|
546 DO FORGET #80
|
|
547 DON'T IMPLEMENT GET HERE
|
|
548 DO (540) NEXT
|
|
549 DO :4 <- :1
|
|
550 DO .1 <- '?":1~'#32768$#0'"$#1'~#1
|
|
551 DO :2 <- #25
|
|
552 PLEASE DO (1510) NEXT
|
|
553 DO (540) NEXT
|
|
554 DO .1 <- .1~"':3~"#32768$#0"'~"'?":1~'#32768$#0'"$#1'~#1""
|
|
555 DO :2 <- #80
|
|
556 PLEASE DO (1510) NEXT
|
|
557 DO .1 <- '?".1~':3~"#32768$#0"'"$#1'~#3
|
|
558 PLEASE DO (351) NEXT
|
|
559 DO .1 <- :4
|
|
560 PLEASE DO (1020) NEXT
|
|
561 DO .2 <- .1
|
|
562 DO .1 <- :1
|
|
563 PLEASE DO (1020) NEXT
|
|
564 DO :1 <- ;1SUB.1.2
|
|
565 DO (530) NEXT
|
|
566 PLEASE DO (20) NEXT
|
|
567 (351) PLEASE DO (3) NEXT
|
|
568 DO FORGET #1
|
|
569 DO :1 <- #32
|
|
570 DO (530) NEXT
|
|
571 PLEASE DO (20) NEXT
|
|
572 (360) PLEASE DO (350) NEXT
|
|
573 DO FORGET #80
|
|
574 DON'T IMPLEMENT PUT HERE
|
|
575 DO (540) NEXT
|
|
576 DO :4 <- :1
|
|
577 DO .1 <- '?":1~'#32768$#0'"$#1'~#1
|
|
578 DO :2 <- #25
|
|
579 PLEASE DO (1510) NEXT
|
|
580 DO (540) NEXT
|
|
581 DO .1 <- .1~"':3~"#32768$#0"'~"'?":1~'#32768$#0'"$#1'~#1""
|
|
582 DO :2 <- #80
|
|
583 PLEASE DO (1510) NEXT
|
|
584 DO .1 <- '?".1~':3~"#32768$#0"'"$#1'~#3
|
|
585 PLEASE DO (361) NEXT
|
|
586 DO .1 <- :4
|
|
587 PLEASE DO (1020) NEXT
|
|
588 DO .2 <- .1
|
|
589 DO .1 <- :1
|
|
590 PLEASE DO (1020) NEXT
|
|
591 DO (540) NEXT
|
|
592 DO ;1SUB.1.2 <- :1
|
|
593 PLEASE DO (20) NEXT
|
|
594 (361) PLEASE DO (3) NEXT
|
|
595 DO FORGET #1
|
|
596 DO (540) NEXT
|
|
597 PLEASE DO (20) NEXT
|
|
598 (370) PLEASE DO (360) NEXT
|
|
599 DO FORGET #80
|
|
600 DON'T IMPLEMENT GO SOUTH HERE
|
|
601 DO .12 <- #0
|
|
602 DO .13 <- #1
|
|
603 PLEASE DO (20) NEXT
|
|
604 (380) PLEASE DO (370) NEXT
|
|
605 DO FORGET #80
|
|
606 DON'T IMPLEMENT NORTH-SOUTH IF HERE
|
|
607 DO .12 <- #0
|
|
608 DO (540) NEXT
|
|
609 DO .1 <- '?"':1~:1'~#1"$#1'~#3
|
|
610 DO (381) NEXT
|
|
611 DO .13 <- #65535
|
|
612 PLEASE DO (20) NEXT
|
|
613 (381) PLEASE DO (3) NEXT
|
|
614 DO FORGET #1
|
|
615 DO .13 <- #1
|
|
616 PLEASE DO (20) NEXT
|
|
617 (390) PLEASE DO (380) NEXT
|
|
618 DO FORGET #80
|
|
619 DON'T IMPLEMENT INPUT CHAR HERE
|
|
620 DO (500) NEXT
|
|
621 DO :1 <- .1
|
|
622 DO (530) NEXT
|
|
623 PLEASE DO (20) NEXT
|
|
624
|
|
625 (500) PLEASE STASH .2 + .3 + .4
|
|
626 PLEASE WRITE IN ,1
|
|
627 DO .1 <- ,1SUB#1
|
|
628 DO .2 <- .15
|
|
629 DO (1000) NEXT
|
|
630 DO .15 <- .3~#255
|
|
631 DO .1 <- .15
|
|
632 PLEASE RETRIEVE .2 + .3 + .4
|
|
633 PLEASE RESUME #1
|
|
634 (510) PLEASE STASH .1 + .2 + .3 + .4
|
|
635 DO .2 <- !1~#15'$!1~#240'
|
|
636 DO .2 <- !2~#15'$!2~#240'
|
|
637 DO .2 <- !2~#15'$!2~#240'
|
|
638 DO .1 <- .16
|
|
639 DO (1010) NEXT
|
|
640 DO .16 <- .2
|
|
641 DO ,1SUB#1 <- .3
|
|
642 PLEASE READ OUT ,1
|
|
643 PLEASE RETRIEVE .1 + .2 + .3 + .4
|
|
644 PLEASE RESUME #1
|
|
645 (520) DON'T EXPECT THIS TO DO MUCH
|
|
646 (530) PLEASE STASH .1
|
|
647 DO .1 <- .14
|
|
648 PLEASE DO (1020) NEXT
|
|
649 DO .14 <- .1
|
|
650 DO ;2SUB.14 <- :1
|
|
651 PLEASE RETRIEVE .1
|
|
652 PLEASE RESUME #1
|
|
653 (540) PLEASE STASH .1 + .2 + .3
|
|
654 DO .1 <- '?"!14~.14'~#1"$#1'~#3
|
|
655 DO (541) NEXT
|
|
656 DO :1 <- ;2SUB.14
|
|
657 DO .1 <- .14
|
|
658 DO .2 <- #1
|
|
659 PLEASE DO (1010) NEXT
|
|
660 DO .14 <- .3
|
|
661 PLEASE RETRIEVE .1 + .2 + .3
|
|
662 PLEASE RESUME #1
|
|
663 (541) PLEASE DO (3) NEXT
|
|
664 DO :1 <- #0
|
|
665 PLEASE RETRIEVE .1 + .2 + .3
|
|
666 PLEASE RESUME #2
|
|
667
|
|
668 PLEASE ACKNOWLEDGE 32BIT DIVISION WITH REMAINDER FROM NUMIO.I
|
|
669
|
|
670 (2530) DO STASH :1 + :5 + .5
|
|
671 DO :3 <- #0
|
|
672 DO .5 <- '?"':2~:2'~#1"$#1'~#3
|
|
673 PLEASE DO (2531) NEXT
|
|
674 DO :4 <- #1
|
|
675 PLEASE DO (2533) NEXT
|
|
676 (2533) DO FORGET #1
|
|
677 DO .5 <- '?":2~'#32768$#0'"$#2'~#3
|
|
678 DO (2532) NEXT
|
|
679 DO :2 <- ":2~'#0$#65535'"$"'":2~'#32767$#0'"$#
|
|
680 0'~'#32767$#1'"
|
|
681 PLEASE DO :4 <- ":4~'#0$#65535'"$"'":4~'#32767
|
|
682 $#0'"$#0'~'#32767$#1'"
|
|
683 DO (2533) NEXT
|
|
684 (2532) DO (1001) NEXT
|
|
685 (2536) PLEASE FORGET #1
|
|
686 DO :5 <- "'?":1~'#65535$#0'"$":2~'#65535$#0'"'
|
|
687 ~'#0$#65535'"$"'?":1~'#0$#65535'"$":2~'#0$
|
|
688 #65535'"'~'#0$#65535'"
|
|
689 DO .5 <- '?"'&"':2~:5'~'"'?"'?":5~:5"~"#65535$
|
|
690 #65535"'~'#65535$#0'"$#32768'~'#0$#65535'"
|
|
691 $"'?":5~:5"~"#65535$#65535"'~'#0$#65535'"'
|
|
692 "$"':5~:5'~#1"'~#1"$#2'~#3
|
|
693 DO (2534) NEXT
|
|
694 DO :5 <- :3
|
|
695 DO (1510) NEXT
|
|
696 PLEASE DO :1 <- :3
|
|
697 DO :3 <- "'V":4~'#65535$#0'"$":5~'#65535$#0'"'
|
|
698 ~'#0$#65535'"$"'V":4~'#0$#65535'"$":5~'#0$
|
|
699 #65535'"'~'#0$#65535'"
|
|
700 DO (2535) NEXT
|
|
701 (2534) PLEASE DO (1001) NEXT
|
|
702 (2535) DO FORGET #1
|
|
703 DO .5 <- "?':4~#1'$#2"~#3
|
|
704 DO (2531) NEXT
|
|
705 DO :2 <- ":2~'#0$#65534'"$":2~'#65535$#0'"
|
|
706 DO :4 <- ":4~'#0$#65534'"$":4~'#65535$#0'"
|
|
707 PLEASE DO (2536) NEXT
|
|
708 (2531) DO (1001) NEXT
|
|
709 DO :4 <- :1
|
|
710 PLEASE RETRIEVE :1 + :5 + .5
|
|
711 PLEASE RESUME #2
|
|
712
|
|
713 PLEASE REMEMBER TO APPEND STANDARD LIBRARY
|