Mercurial > repo

comparison interps/c-intercal/pit/interfunge.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 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