|
996
|
1 PLEASE ABSTAIN FROM (29733)
|
|
|
2 (29733) DON KNUTH'S IMPLEMENTATION OF TPK IN INTERCAL
|
|
|
3 (C) MARCH 2003
|
|
|
4 REFERENCE --- THE EARLY HISTORY OF PROGRAMMING
|
|
|
5 LANGUAGES, BY D E KNUTH AND L TRABB PARDO
|
|
|
6
|
|
|
7 NOTA BENE: THE INPUT AND OUTPUT DATA ARE SCALED
|
|
|
8 DECIMAL NUMBERS WITH SIX DIGITS TO THE RIGHT OF
|
|
|
9 THE DECIMAL POINT; THUS AN INPUT OF
|
|
|
10 THREE ONE FOUR ONE FIVE NINE THREE
|
|
|
11 DENOTES 3.141593, AND THAT VALUE WOULD BE OUTPUT AS
|
|
|
12 ______
|
|
|
13 MMMCXLMDXCIII
|
|
|
14
|
|
|
15 PLEASE NOTE THAT VARIABLE NAMES AND SUBROUTINE NAMES USE
|
|
|
16 THE 5-BIT TELEPRINTER CODE IN LETTER-SHIFT MODE, NAMELY
|
|
|
17 / E @ A : S I U 1/4 D R J N F C K T Z L W H Y P Q O B G " M X V $
|
|
|
18 (WHICH ALAN TURING ADVISED EVERY PROGRAMMER TO LEARN)
|
|
|
19
|
|
|
20 PLEASE (6534) NEXT
|
|
|
21 DO ;3 <- #11 BY #2
|
|
|
22 DO ;29 <- #2
|
|
|
23 PLEASE DO .6 <- #0
|
|
|
24 DO (1) NEXT
|
|
|
25 (1) PLEASE DO FORGET #1
|
|
|
26 DO WRITE IN :1
|
|
|
27 DO (22919) NEXT
|
|
|
28 PLEASE .1 <- .6
|
|
|
29 PLEASE DO (1020) NEXT
|
|
|
30 DO .11 <- .1
|
|
|
31 DO ;3 SUB .11 #1 <- ;1 SUB #1
|
|
|
32 DO ;3 SUB .11 #2 <- ;1 SUB #2
|
|
|
33 DO .1 <- #10
|
|
|
34 DO (29904) NEXT
|
|
|
35 DO (1) NEXT
|
|
|
36 DO REINSTATE NEXTING
|
|
|
37 PLEASE DO (2) NEXT
|
|
|
38 (2) DO FORGET #1
|
|
|
39 DO .984 <- #0
|
|
|
40 PLEASE .1 <- .6
|
|
|
41 PLEASE DO (1020) NEXT
|
|
|
42 DO .11 <- .1
|
|
|
43 DO ;29 SUB #1 <- ;3 SUB .11 #1
|
|
|
44 DO ;29 SUB #2 <- ;3 SUB .11 #2
|
|
|
45 PLEASE DO (13) NEXT
|
|
|
46 DO (15478) NEXT
|
|
|
47 DO (15320) NEXT
|
|
|
48 DO :2 <- #6528$#32544
|
|
|
49 PLEASE DO (23438) NEXT
|
|
|
50 DO :1 <- #31640$#20792
|
|
|
51 DO READ OUT .6 + :1
|
|
|
52 DO REMEMBER :1
|
|
|
53 DO .1 <- #0
|
|
|
54 DO ABSTAIN FROM (711)
|
|
|
55 PLEASE DO (29904) NEXT
|
|
|
56 DO (2) NEXT
|
|
|
57 DO GIVE UP
|
|
|
58
|
|
|
59 PLEASE USE THE FOLLOWING FUNCTION, WHICH SETS ;1 <- F(;X)
|
|
|
60 WHERE ;29 AND ;1 ARE EXTENDED FIXED-POINT NUMBERS
|
|
|
61 (THAT IS, THEY ARE VECTORS WITH TWO COMPONENTS,
|
|
|
62 #1=INTEGER PART, #2=FRACTION PART)
|
|
|
63 (13) DO STASH ;2
|
|
|
64 DO ;1 SUB #1 <- ;29 SUB #1
|
|
|
65 DO ;1 SUB #2 <- ;29 SUB #2
|
|
|
66 PLEASE STASH ;1
|
|
|
67 PLEASE DO ;2 SUB #1 <- ;29 SUB #1
|
|
|
68 DO ;2 SUB #2 <- ;29 SUB #2
|
|
|
69 DO (30300) NEXT
|
|
|
70 DO (30300) NEXT
|
|
|
71 DO ;2 SUB #1 <- #5
|
|
|
72 DO ;2 SUB #2 <- #0
|
|
|
73 PLEASE DO (30300) NEXT
|
|
|
74 PLEASE DO ;2 SUB #1 <- ;1 SUB #1
|
|
|
75 DO ;2 SUB #2 <- ;1 SUB #2
|
|
|
76 PLEASE RETRIEVE ;1
|
|
|
77 DO (30499) NEXT
|
|
|
78 PLEASE DO (30218) NEXT
|
|
|
79 DO (29987) NEXT
|
|
|
80 DO RETRIEVE ;2
|
|
|
81 PLEASE RESUME #1
|
|
|
82
|
|
|
83 DO NOTHING BUT BASIC SUBROUTINES FROM HERE ON
|
|
|
84 -------------
|
|
|
85 FIRST THERE ARE ROUTINES FOR EXTENDED ARITHMETIC
|
|
|
86 (DOUBLE DOUBLE PRECISION), WHICH CONSISTS OF
|
|
|
87 TWO 32-BIT NUMBERS WITH A BINARY POINT BETWEEN THEM
|
|
|
88
|
|
|
89 TO GET STARTED, DO (INI) FIRST; IT DEFINES BASIC ARRAYS
|
|
|
90 (6534) DO ;1 <- #2
|
|
|
91 DO ;2 <- #2
|
|
|
92 PLEASE RESUME #1
|
|
|
93
|
|
|
94 DON'T FORGET TO TEST FOR OVERFLOW AFTER A SERIES OF
|
|
|
95 EXTENDED ARITHMETIC OPERATIONS ... THE (OVC) ROUTINE
|
|
|
96 SETS ;1 TO THE MAX VALUE IF .OV IS 1
|
|
|
97 (15320) PLEASE DO (2000) NEXT
|
|
|
98 DO ;1 SUB #1 <- #65535$#65535
|
|
|
99 DO ;1 SUB #2 <- #65535$#65535
|
|
|
100 PLEASE RESUME #1
|
|
|
101 (2000) PLEASE DO (2001) NEXT
|
|
|
102 PLEASE RESUME #2
|
|
|
103 (2001) DO RESUME '?.984$#1'~#3
|
|
|
104
|
|
|
105 DOING (ADY) NEXT SETS ;1 <- ;1+;2+.C~2 AND .C <- CARRY+1
|
|
|
106 DOING (ADZ) NEXT SETS ;1 <- ;1+;2 AND .C <- CARRY+1
|
|
|
107 (17699) PLEASE .14 <- #1
|
|
|
108 (21785) DO STASH :1 + :2 + :3 + :4
|
|
|
109 DO :1 <- ;1 SUB #2
|
|
|
110 PLEASE DO :2 <- .14~#2
|
|
|
111 PLEASE DO (1509) NEXT
|
|
|
112 DO .14 <- :4~#2
|
|
|
113 DO :1 <- :3
|
|
|
114 PLEASE DO :2 <- ;2 SUB #2
|
|
|
115 DO (1509) NEXT
|
|
|
116 DO ;1 SUB #2 <- :3
|
|
|
117 DO :1 <- ;1 SUB #1
|
|
|
118 DO :2 <- "V.14$':4~#2'"~#1
|
|
|
119 DO (1509) NEXT
|
|
|
120 DO .14 <- :4
|
|
|
121 DO :1 <- :3
|
|
|
122 DO :2 <- ;2 SUB #1
|
|
|
123 DO (1509) NEXT
|
|
|
124 DO ;1 SUB #1 <- :3
|
|
|
125 DO .14 <- '?:4$.14'~#6
|
|
|
126 PLEASE RETRIEVE :1 + :2 + :3 + :4
|
|
|
127 PLEASE RESUME #1
|
|
|
128
|
|
|
129 DOING (ADX) NEXT SETS ;1 <- ;1+;2 AND TRACKS OVERFLOW
|
|
|
130 DOING (ABX) NEXT SETS ;1 <- ABS(;1)
|
|
|
131 (29987) PLEASE STASH .14
|
|
|
132 DO (17699) NEXT
|
|
|
133 DO .984 <- "V.984$'.14~#2'"~#1
|
|
|
134 PLEASE RETRIEVE .14
|
|
|
135 (30499) DO RESUME #1
|
|
|
136
|
|
|
137 DOING (SUX) NEXT SETS ;1 <- ;1-;2 AND TRACKS OVERFLOW
|
|
|
138 (29925) PLEASE STASH ;2 + .14
|
|
|
139 DO ;2 SUB #1 <- '"?'";2 SUB #1"~"#65535$#0"'$#65535"~"#0$#65535"'$
|
|
|
140 '"?'";2 SUB #1"~"#0$#65535"'$#65535"~"#0$#65535"'
|
|
|
141 DO ;2 SUB #2 <- '"?'";2 SUB #2"~"#65535$#0"'$#65535"~"#0$#65535"'$
|
|
|
142 '"?'";2 SUB #2"~"#0$#65535"'$#65535"~"#0$#65535"'
|
|
|
143 DO .14 <- #2
|
|
|
144 DO (21785) NEXT
|
|
|
145 PLEASE DO .984 <- "V.984$'.14~#1'"~#1
|
|
|
146 PLEASE RETRIEVE ;2 + .14
|
|
|
147 DO RESUME #1
|
|
|
148
|
|
|
149 DOING (SHY) NEXT SETS ;2 <- :3 * 2^16 AND CLOBBERS :3
|
|
|
150 (22149) DO ;2 SUB #1 <- :3 ~ '#65280$#65280'
|
|
|
151 DO :3 <- '"':3~#43690'$#0"~"#65535$#1"' $
|
|
|
152 '"':3~#21845'$#0"~"#65535$#1"'
|
|
|
153 PLEASE :3 <- ":3~'#511$#1'" $ ":3~'#1$#511'"
|
|
|
154 PLEASE :3 <- ":3~'#1023$#3'" $ ":3~'#3$#1023'"
|
|
|
155 DO ;2 SUB #2 <- ":3~'#4095$#15'" $ ":3~'#15$#4095'"
|
|
|
156 PLEASE RESUME #1
|
|
|
157
|
|
|
158 DOING (MLY) NEXT SETS ;1 <- :1 * :2 / 2^32
|
|
|
159 (22108) PLEASE STASH :1 + :2 + :3 + ;2 + .14
|
|
|
160 DO :1 <- :1 ~ #65535
|
|
|
161 DO :2 <- :2 ~ #65535
|
|
|
162 DO (1540) NEXT
|
|
|
163 DO ;1 SUB #2 <- :3
|
|
|
164 DO ;1 SUB #1 <- #0
|
|
|
165 PLEASE RETRIEVE :1
|
|
|
166 PLEASE STASH :1
|
|
|
167 DO :1 <- :1 ~ '#65280$#65280'
|
|
|
168 DO (1540) NEXT
|
|
|
169 DO (22149) NEXT
|
|
|
170 DO (17699) NEXT
|
|
|
171 PLEASE RETRIEVE :1 + :2
|
|
|
172 PLEASE STASH :1 + :2
|
|
|
173 DO :1 <- :1 ~ #65535
|
|
|
174 DO :2 <- :2 ~ '#65280$#65280'
|
|
|
175 DO (1540) NEXT
|
|
|
176 DO (22149) NEXT
|
|
|
177 DO (17699) NEXT
|
|
|
178 PLEASE RETRIEVE :1
|
|
|
179 PLEASE STASH :1
|
|
|
180 DO :1 <- :1 ~ '#65280$#65280'
|
|
|
181 DO (1540) NEXT
|
|
|
182 DO ;2 SUB #2 <- #0
|
|
|
183 DO ;2 SUB #1 <- :3
|
|
|
184 DO (17699) NEXT
|
|
|
185 PLEASE RETRIEVE :1 + :2 + :3 + ;2 + .14
|
|
|
186 PLEASE RESUME #1
|
|
|
187
|
|
|
188 DOING (MLZ) NEXT SETS ;1 <- ;1 + (:1 * :2 / 2^32), TRACKING OVERFLOW
|
|
|
189 (18012) PLEASE STASH ;1 + ;2
|
|
|
190 DO (22108) NEXT
|
|
|
191 PLEASE ;2 SUB #1 <- ;1 SUB #1
|
|
|
192 PLEASE ;2 SUB #2 <- ;1 SUB #2
|
|
|
193 PLEASE RETRIEVE ;1
|
|
|
194 DO (29987) NEXT
|
|
|
195 PLEASE RETRIEVE ;2
|
|
|
196 PLEASE RESUME #1
|
|
|
197
|
|
|
198 DOING (MLX) NEXT SETS ;1 <- ;1*;2 AND TRACKS OVERFLOW
|
|
|
199 (30300) PLEASE STASH :1 + :2 + :3 + :4 + ;1 + ;2
|
|
|
200 DO :1 <- ;1 SUB #2
|
|
|
201 DO :2 <- ;2 SUB #2
|
|
|
202 DO (22108) NEXT
|
|
|
203 DO :1 <- ;1 SUB #1
|
|
|
204 DO :2 <- ';1 SUB #2' ~ '#32768$#0'
|
|
|
205 DO (1500) NEXT
|
|
|
206 PLEASE RETRIEVE ;1
|
|
|
207 DO :4 <- ;1 SUB #2
|
|
|
208 DO :1 <- ;1 SUB #1
|
|
|
209 DO :2 <- ;2 SUB #1
|
|
|
210 DO (22108) NEXT
|
|
|
211 PLEASE DO .984 <- "V.984$' "';1 SUB #1'~';1 SUB #1'" ~#1'" ~ #1
|
|
|
212 DO ;1 SUB #1 <- ;1 SUB #2
|
|
|
213 DO ;1 SUB #2 <- :3
|
|
|
214 DO :2 <- ;2 SUB #2
|
|
|
215 DO (18012) NEXT
|
|
|
216 DO :1 <- :4
|
|
|
217 DO :2 <- ;2 SUB #1
|
|
|
218 DO (18012) NEXT
|
|
|
219 PLEASE RETRIEVE :1 + :2 + :3 + :4 + ;2
|
|
|
220 PLEASE RESUME #1
|
|
|
221
|
|
|
222 DOING (RTX) NEXT SETS ;1 <- SQRT(;1)
|
|
|
223 (30218) PLEASE STASH .6 + ;2 + ;3 + ;4 + :1 + :2 + .1 + .2 + .3 + .14 + .984
|
|
|
224 DO ;4 <- #2
|
|
|
225 DO ;3 <- #2
|
|
|
226 DO .6 <- #1
|
|
|
227 DO ;3 SUB #1 <- #0
|
|
|
228 DO ;3 SUB #2 <- #0
|
|
|
229 DO ;4 SUB #1 <- #65535$#65535
|
|
|
230 DO ;4 SUB #2 <- ;4 SUB #1
|
|
|
231 DO :1 <- ;1 SUB #1
|
|
|
232 DO :2 <- ;1 SUB #2
|
|
|
233 PLEASE (2003) NEXT
|
|
|
234 (2002) DO ;2 SUB #1 <- ;1 SUB #1
|
|
|
235 DO ;2 SUB #2 <- ;1 SUB #2
|
|
|
236 DO (17699) NEXT
|
|
|
237 DO ;2 SUB #1 <- ;1 SUB #1
|
|
|
238 DO ;2 SUB #2 <- ;1 SUB #2
|
|
|
239 DO (17699) NEXT
|
|
|
240 PLEASE DO ;2 SUB #1 <- #0
|
|
|
241 PLEASE DO ;2 SUB #2 <- .2
|
|
|
242 DO (17699) NEXT
|
|
|
243 PLEASE DO ;2 SUB #2 <- .3
|
|
|
244 DO (29925) NEXT
|
|
|
245 PLEASE DO ;3 SUB #1 <- ;1 SUB #1
|
|
|
246 PLEASE DO ;3 SUB #2 <- ;1 SUB #2
|
|
|
247 PLEASE DO ;1 SUB #1 <- ;4 SUB #1
|
|
|
248 PLEASE DO ;1 SUB #2 <- ;4 SUB #2
|
|
|
249 DO ;2 SUB #1 <- ;1 SUB #1
|
|
|
250 DO ;2 SUB #2 <- ;1 SUB #2
|
|
|
251 DO (17699) NEXT
|
|
|
252 DO ;2 SUB #1 <- #0
|
|
|
253 PLEASE DO ;2 SUB #2 <- "?#1$.3"~#1
|
|
|
254 DO (17699) NEXT
|
|
|
255 PLEASE DO ;4 SUB #1 <- ;1 SUB #1
|
|
|
256 PLEASE DO ;4 SUB #2 <- ;1 SUB #2
|
|
|
257 DO .1 <- ":1 ~ '#21845$#0'" $
|
|
|
258 '"?':1~"#10922$#1"' $ '"?':1~#1'$':2~"#32768$#0"'"~#1'" ~#21845'
|
|
|
259 DO .2 <- ":1 ~ '#0$#21845'" $
|
|
|
260 '"? ':1~"#0$#10923"' $ '"?':1~#1'$':2~"#0$#32768"'"~#1'" ~#21845'
|
|
|
261 DO :1 <- .1 $ .2
|
|
|
262 DO .1 <- ":2 ~ '#21845$#0'" $
|
|
|
263 '"&':2~"#10922$#1"' $ #65534" ~ #21845'
|
|
|
264 DO .2 <- ":2 ~ '#0$#21845'" $
|
|
|
265 '"&':2~"#0$#10923"' $ #65534" ~ #21845'
|
|
|
266 DO :2 <- .1 $ .2
|
|
|
267 (2003) DO .2 <- :1 ~ '#32768$#32768'
|
|
|
268 DO ;1 SUB #1 <- ;3 SUB #1
|
|
|
269 DO ;1 SUB #2 <- ;3 SUB #2
|
|
|
270 DO ;2 SUB #1 <- ;4 SUB #1
|
|
|
271 DO ;2 SUB #2 <- ;4 SUB #2
|
|
|
272 DO .14 <- #2
|
|
|
273 DO (21785) NEXT
|
|
|
274 DO .3 <- ' " '"';1 SUB #1'~';1 SUB #1'"~#1' $
|
|
|
275 '"';1 SUB #2'~';1 SUB #2'"~#1' " $ .2' ~ #15
|
|
|
276 DO .3 <- '&"'.3~.3'~#1" $ .14' ~ #2
|
|
|
277 PLEASE DO (2004) NEXT
|
|
|
278 DO ;1 SUB #1 <- ;3 SUB #1
|
|
|
279 DO ;1 SUB #2 <- ;3 SUB #2
|
|
|
280 DO (2005) NEXT
|
|
|
281 (2004) DO (2006) NEXT
|
|
|
282 (2005) PLEASE FORGET #1
|
|
|
283 PLEASE DO .1 <- #49
|
|
|
284 DO (29904) NEXT
|
|
|
285 DO (2002) NEXT
|
|
|
286 PLEASE REINSTATE NEXTING
|
|
|
287 DO ;2 SUB #1 <- ;4 SUB #1
|
|
|
288 DO ;2 SUB #2 <- ;4 SUB #2
|
|
|
289 DO ;1 SUB #1 <- #0
|
|
|
290 DO ;1 SUB #2 <- #0
|
|
|
291 DO (29925) NEXT
|
|
|
292 DO ;2 SUB #1 <- #0
|
|
|
293 DO ;2 SUB #2 <- "?.3$#1"~#1
|
|
|
294 DO (29925) NEXT
|
|
|
295 PLEASE RETRIEVE .6 + ;2 + ;3 + ;4 + :1 + :2 + .1 + .2 + .3 + .14 + .984
|
|
|
296 PLEASE RESUME #50
|
|
|
297 (2006) PLEASE RESUME "?.3$#2"~#3
|
|
|
298
|
|
|
299 DOING (UNP) NEXT SETS ;1 <- :1 / 1000000
|
|
|
300 (WHICH IS ESSENTIALLY DECIMAL TO BINARY CONVERSION)
|
|
|
301 (22919) PLEASE STASH :1 + :2 + :3 + :4 + .3
|
|
|
302 DO :2 <- #784 $ #904
|
|
|
303 PLEASE DO (1550) NEXT
|
|
|
304 PLEASE DO ;1 SUB #1 <- :3
|
|
|
305 DO :1 <- :3
|
|
|
306 DO (1540) NEXT
|
|
|
307 DO RETRIEVE :1
|
|
|
308 PLEASE STASH :1
|
|
|
309 DO :2 <- :3
|
|
|
310 PLEASE DO (1510) NEXT
|
|
|
311 PLEASE DO :4 <- #32768 $ #0
|
|
|
312 DO ;2 SUB #1 <- #0
|
|
|
313 DO ;2 SUB #2 <- #0
|
|
|
314 DO :1 <- :3
|
|
|
315 PLEASE DO (2008) NEXT
|
|
|
316 (2007) DON'T RESUME #1
|
|
|
317 DO :2 <- #0$#1024
|
|
|
318 DO :1 <- :3
|
|
|
319 PLEASE (1510) NEXT
|
|
|
320 DO :1 <- :3
|
|
|
321 DO REMEMBER :1
|
|
|
322 DO .3 <- :4~#1
|
|
|
323 DO (2009) NEXT
|
|
|
324 DO :4 <- :4~'#65535$#65534'
|
|
|
325 (2008) DO :2 <- :1
|
|
|
326 PLEASE DO (1500) NEXT
|
|
|
327 DO :1 <- :3
|
|
|
328 DO :2 <- #784 $ #904
|
|
|
329 PLEASE (23438) NEXT
|
|
|
330 DO :2 <- #48576
|
|
|
331 PLEASE DO (1500) NEXT
|
|
|
332 DO .3 <- :3~'#0$#1024'
|
|
|
333 DO :2 <- ;2 SUB '"?.3$#1"~#3'
|
|
|
334 DO :2 <- "'V":2~'#65535$#0'"$":4~'#65535$#0'"' ~ '#0$#65535'" $
|
|
|
335 "'V":2~'#0$#65535'"$":4~'#0$#65535'"' ~ '#0$#65535'"
|
|
|
336 PLEASE DO ;2 SUB '"?.3$#1"~#3' <- :2
|
|
|
337 PLEASE DO (2007) NEXT
|
|
|
338 DO ;1 SUB #2 <- ;2 SUB #2
|
|
|
339 PLEASE REMEMBER :1
|
|
|
340 PLEASE ABSTAIN FROM (2007)
|
|
|
341 PLEASE RETRIEVE :1 + :2 + :3 + :4 + .3
|
|
|
342 PLEASE RESUME #34
|
|
|
343 (2009) PLEASE DO (2006) NEXT
|
|
|
344 DO REINSTATE (2007)
|
|
|
345 PLEASE FORGET #2
|
|
|
346 DO (2008) NEXT
|
|
|
347
|
|
|
348 DOING (PAK) NEXT SETS :1 <- 1000000 * ;1, TRACKING OVERFLOW
|
|
|
349 (WHICH IS ESSENTIALLY BINARY TO DECIMAL CONVERSION)
|
|
|
350 (15478) PLEASE STASH ;1 + ;2 + :2 + :3 + :4
|
|
|
351 DO ;2 SUB #1 <- #784 $ #904
|
|
|
352 DO ;2 SUB #2 <- #0
|
|
|
353 DO (30300) NEXT
|
|
|
354 DO :1 <- ;1 SUB #1
|
|
|
355 DO :2 <- ';1 SUB #2' ~ '#32768$#0'
|
|
|
356 DO (1509) NEXT
|
|
|
357 DO .984 <- "V.984$':4~#2'"~#1
|
|
|
358 PLEASE RETRIEVE ;1 + ;2 + :2 + :3 + :4
|
|
|
359 PLEASE RESUME #1
|
|
|
360
|
|
|
361 DON'T STOP READING YET: TWO IMPORTANT UTILITY ROUTINES REMAIN
|
|
|
362
|
|
|
363 ---------- UTILITIES ----------------------------------------
|
|
|
364
|
|
|
365 DOING (CMP) NEXT IMMOBILIZES :1 IF :1 < :2
|
|
|
366 HERE I USE A SLICK TRICK FROM THE ORIGINAL INTERCAL DIVISION ROUTINE
|
|
|
367 (23438) PLEASE STASH .3 + :1
|
|
|
368 DO :1 <- ' "? ':1~"#65535$#0"' $ ':2~"#65535$#0"' " ~ "#0$#65535"' $
|
|
|
369 ' "? ':1~"#0$#65535"' $ ':2~"#0$#65535"' " ~ "#0$#65535"'
|
|
|
370 DO .3 <- ':2~:1' ~
|
|
|
371 " ' "? '"?:1~:1"~"#65535$#0"' $ #32768"~"#0$#65535" '
|
|
|
372 $ '"?:1~:1"~"#0$#65535"' "
|
|
|
373 PLEASE RETRIEVE :1
|
|
|
374 DO (2010) NEXT
|
|
|
375 DO (2011) NEXT
|
|
|
376 (2010) DO (2006) NEXT
|
|
|
377 PLEASE IGNORE :1
|
|
|
378 (2011) DO RETRIEVE .3
|
|
|
379 DO RESUME #2
|
|
|
380
|
|
|
381 DOING (TIX) NEXT IS INTENDED TO SIMPLIFY LOOPS ON THE VARIABLE .I
|
|
|
382 IF .I = .1, NEXTING IS TURNED OFF
|
|
|
383 OTHERWISE .I IS INCREASED BY +1 OR -1, WHERE THE
|
|
|
384 INCREMENT IS -1 IF (UP) HAS JUST BEEN ABSTAINED FROM
|
|
|
385 (29904) PLEASE STASH .1 + .2 + .3 + .4
|
|
|
386 DO .3 <- "'"?.6$.1"~#21845' ~ '"?.6$.1"~#21845'" ~ #1
|
|
|
387 DO (2012) NEXT
|
|
|
388 PLEASE ABSTAIN FROM NEXTING
|
|
|
389 PLEASE RETRIEVE .1 + .2 + .3 + .4
|
|
|
390 PLEASE RESUME #1
|
|
|
391 (2012) DO (2006) NEXT
|
|
|
392 DO .1 <- .6
|
|
|
393 (711) DO (2013) NEXT
|
|
|
394 PLEASE REINSTATE (711)
|
|
|
395 DO .2 <- #1
|
|
|
396 DO (1010) NEXT
|
|
|
397 DO .6 <- .3
|
|
|
398 DO (2014) NEXT
|
|
|
399 (2013) DO (1020) NEXT
|
|
|
400 DO .6 <- .1
|
|
|
401 (2014) PLEASE RETRIEVE .1 + .2 + .3 + .4
|
|
|
402 DO RESUME #3
|
|
|
403
|
|
|
404 PLEASE NOTIFY THE AUTHOR IF YOU'VE BEEN ABLE TO
|
|
|
405 UNDERSTAND ALL OF THIS; BUT PLEASE DON'T SEND EMAIL
|
|
|
406
|
|
|
407 FINAL PUZZLE: WHAT IS SO INTERESTING ABOUT 885205232?
|
