Mercurial > repo
comparison interps/c-intercal/pit/lib/syslib.5i @ 996:859f9b4339e6
<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 KNOCK "SHAVE-AND-A-HAIRCUT" BEFORE ENTERING | |
2 | |
3 (1000) PLEASE IGNORE .4 | |
4 PLEASE ABSTAIN FROM (1005) | |
5 (1009) DO STASH .1 + .2 + .5 + .6 | |
6 DO .4 <- #1 | |
7 DO (1004) NEXT | |
8 (1004) PLEASE FORGET #1 | |
9 DO .3 <- '^.1$.2'~'#0$#3906' | |
10 DO .6 <- '?"'V"'&.1$.2'~'#0$#3906'"$"'^"'@.1$ | |
11 .2'~'#0$#3906'"$#3906'~'#0$#11718'"' | |
12 ~'#0$#3906'"$#11718'~'#0$#3906' | |
13 PLEASE DO .5 <- "?!6~#12500'$#5"~#5 | |
14 DO (1002) NEXT | |
15 DO .4 <- #2 | |
16 (1005) DO (1006) NEXT | |
17 (1999) DOUBLE OR SINGLE PRECISION OVERFLOW | |
18 (1002) DO (1001) NEXT | |
19 (1006) PLEASE FORGET #1 | |
20 DO .5 <- '?"!6~.6'~#4"$#5'~#5 | |
21 DO (1003) NEXT | |
22 DO .1 <- .3 | |
23 DO .2 <- !6$#0'~'#781$#1' | |
24 DO (1004) NEXT | |
25 (1003) DO (1001) NEXT | |
26 DO REINSTATE (1005) | |
27 (1007) PLEASE RETRIEVE .1 + .2 + .5 + .6 | |
28 DO REMEMBER .4 | |
29 PLEASE RESUME #2 | |
30 (1001) DO RESUME .5 | |
31 (1010) DO STASH .1 + .2 + .4 | |
32 DO .4 <- .1 | |
33 DO .1 <- '?#15624$.2'~'#0$#3906' | |
34 DO (1020) NEXT | |
35 PLEASE DO .2 <- .4 | |
36 PLEASE DO (1009) NEXT | |
37 DO RETRIEVE .1 + .2 + .4 | |
38 PLEASE RESUME #1 | |
39 (1020) DO STASH .2 + .3 | |
40 DO .2 <- #1 | |
41 PLEASE DO (1021) NEXT | |
42 (1021) DO FORGET #1 | |
43 DO .3 <- '?"'V".1~.2"$#3'~#1"$#2'~#1 | |
44 PLEASE DO .1 <- '^.1$.2'~'#0$#3906' | |
45 DO (1022) NEXT | |
46 DO .2 <- !2$#0'~'#781$#1' | |
47 DO (1021) NEXT | |
48 (1023) PLEASE RESUME .3 | |
49 (1022) DO (1023) NEXT | |
50 PLEASE RETRIEVE .2 + .3 | |
51 PLEASE RESUME #2 | |
52 (1030) DO ABSTAIN FROM (1033) | |
53 PLEASE ABSTAIN FROM (1032) | |
54 (1039) DO STASH :1 + .5 | |
55 DO (1530) NEXT | |
56 DO .3 <- :1~#3906 | |
57 PLEASE DO .5 <- :1~'#3875$#3875' | |
58 DO .5 <- '?"!5~.5'~#4"$#5'~#5 | |
59 DO (1031) NEXT | |
60 (1032) DO (1033) NEXT | |
61 DO (1999) NEXT | |
62 (1031) DO (1001) NEXT | |
63 (1033) DO .4 <- .5 | |
64 DO REINSTATE (1032) | |
65 PLEASE REINSTATE (1033) | |
66 DO RETRIEVE :1 + .5 | |
67 PLEASE RESUME #2 | |
68 (1040) PLEASE STASH .1 + .2 + .2 + :1 + :2 + :3 | |
69 DO .2 <- #0 | |
70 DO (1520) NEXT | |
71 DO STASH :1 | |
72 PLEASE RETRIEVE .2 | |
73 DO .1 <- .2 | |
74 DO .2 <- #0 | |
75 PLEASE DO (1520) NEXT | |
76 DO :2 <- :1 | |
77 DO RETRIEVE .1 + .2 + :1 | |
78 DO (1550) NEXT | |
79 PLEASE DO .3 <- :3 | |
80 DO RETRIEVE :1 + :2 + :3 | |
81 DO RESUME #1 | |
82 (1050) PLEASE STASH :2 + :3 + .5 | |
83 DO :2 <- .1 | |
84 PLEASE DO (1550) NEXT | |
85 DO .5 <- :3~'#3875$#3875' | |
86 DO .5 <- '?"!5~.5'~#4"$#5'~#5 | |
87 DO (1051) NEXT | |
88 DO (1999) NEXT | |
89 (1051) DO (1001) NEXT | |
90 DO .2 <- :3 | |
91 PLEASE RETRIEVE :2 + :3 + .5 | |
92 DO RESUME #2 | |
93 (1500) PLEASE ABSTAIN FROM (1502) | |
94 PLEASE ABSTAIN FROM (1506) | |
95 (1509) PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6 | |
96 DO .1 <- :1~#3906 | |
97 PLEASE DO .2 <- :2~#3906 | |
98 DO (1009) NEXT | |
99 DO .5 <- .3 | |
100 PLEASE DO .6 <- .4 | |
101 DO .1 <- :1~'#3875$#3875' | |
102 DO .2 <- :2~'#3875$#3875' | |
103 DO (1009) NEXT | |
104 DO .1 <- .3 | |
105 PLEASE DO (1503) NEXT | |
106 DO .6 <- .4 | |
107 DO .2 <- #1 | |
108 DO (1009) NEXT | |
109 DO .1 <- .3 | |
110 DO (1501) NEXT | |
111 (1504) PLEASE RESUME .6 | |
112 (1503) DO (1504) NEXT | |
113 (1501) DO .2 <- .5 | |
114 DO .5 <- '&.6$.4' | |
115 DO (1505) NEXT | |
116 (1506) DO (1502) NEXT | |
117 PLEASE DO (1999) NEXT | |
118 (1505) DO (1001) NEXT | |
119 (1502) DO :4 <- .5 | |
120 DO (1520) NEXT | |
121 DO :3 <- :1 | |
122 PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6 | |
123 DO REINSTATE (1502) | |
124 DO REINSTATE (1506) | |
125 PLEASE RESUME #3 | |
126 (1510) DO STASH :1 + :2 + :4 | |
127 DO :1 <- "'?#15624$":2~'#3906$#0'"'~'#0$#3906'"$ | |
128 "'?#15624$":2~'#0$#3906'"'~'#0$#3906'" | |
129 DO :2 <- #1 | |
130 DO (1509) NEXT | |
131 PLEASE RETRIEVE :1 | |
132 DO :2 <- :3 | |
133 PLEASE DO (1509) NEXT | |
134 DO RETRIEVE :2 + :4 | |
135 PLEASE RESUME #1 | |
136 (1520) PLEASE STASH .3 + .4 | |
137 DO .3 <- .1~#3255 | |
138 DO (1525) NEXT | |
139 PLEASE DO .4 <- 'V.3$".2~#3255"'~'#0$#3906' | |
140 DO .3 <- .1~#651 | |
141 PLEASE DO (1525) NEXT | |
142 DO :1 <- .4$"'V.3$".2~#651"'~'#0$#3906'" | |
143 PLEASE RETRIEVE .3 + .4 | |
144 DO RESUME #1 | |
145 (1525) DO .3 <- '"!3$#0'~'#781$#1'"$#0'~'#156$#6' | |
146 PLEASE RESUME #1 | |
147 (1530) DO STASH :2 + :3 + :4 + .1 + .2 + .5 | |
148 DO :3 <- #0 | |
149 DO :4 <- .2 | |
150 DO (1535) NEXT | |
151 (1535) PLEASE FORGET #1 | |
152 DO .5 <- '?".1~#4"$#5'~#5 | |
153 DO (1531) NEXT | |
154 DO :1 <- :4 | |
155 DO (1720) NEXT | |
156 DO :1 <- :3 | |
157 DO (1500) NEXT | |
158 PLEASE DO (1533) NEXT | |
159 (1531) PLEASE DO (1001) NEXT | |
160 (1533) DO FORGET #1 | |
161 DO .1 <- .1~#3905 | |
162 DO :4 <- ":4~'#0$#3906'"$"'":4~'#781$#0'"$#0' | |
163 ~'#781$#1'" | |
164 PLEASE DO .5 <- '?"!1~.1'~#4"$#5'~#5 | |
165 DO (1532) NEXT | |
166 DO (1535) NEXT | |
167 (1532) DO (1001) NEXT | |
168 DO :1 <- :3 | |
169 PLEASE RETRIEVE :2 + :3 + :4 + .1 + .2 + .5 | |
170 DO RESUME #2 | |
171 (1540) PLEASE ABSTAIN FROM (1541) | |
172 DO ABSTAIN FROM (1542) | |
173 (1549) PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5 | |
174 DO .1 <- :1~#3906 | |
175 PLEASE DO .2 <- :2~'#3875$#3875' | |
176 DO .5 <- :1~'#3875$#3875' | |
177 DO (1530) NEXT | |
178 DO :3 <- :1 | |
179 DO .2 <- :2~#3906 | |
180 PLEASE DO (1530) NEXT | |
181 DO :5 <- :1 | |
182 DO .1 <- .5 | |
183 DO (1530) NEXT | |
184 DO :4 <- :1 | |
185 PLEASE DO :1 <- ":3~'#3875$#3875'"$":4 | |
186 ~'#3875$#3875'" | |
187 DO .5 <- ':1~:1'~#4 | |
188 DO .2 <- :2~'#3875$#3875' | |
189 DO (1530) NEXT | |
190 PLEASE DO .5 <- '"':1~:1'~#4"$.5'~#6 | |
191 DO .1 <- :3~#3906 | |
192 DO .2 <- #0 | |
193 DO (1520) NEXT | |
194 PLEASE DO :2 <- :1 | |
195 PLEASE DO .1 <- :4~#3906 | |
196 DO (1520) NEXT | |
197 DO (1509) NEXT | |
198 DO .5 <- !5$"'^":4~#1"$#2'~#1"'~#131 | |
199 DO :1 <- :3 | |
200 DO :2 <- :5 | |
201 DO (1509) NEXT | |
202 PLEASE DO .5 <- !5$"'^":4~#1"$#2'~#1"'~#3256 | |
203 DO .5 <- '?"!5~.5'~#1"$#2'~#1 | |
204 PLEASE RETRIEVE :4 | |
205 (1541) DO :4 <- .5 | |
206 DO (1543) NEXT | |
207 (1542) DO (1544) NEXT | |
208 PLEASE DO (1999) NEXT | |
209 (1543) DO (1001) NEXT | |
210 (1544) DO REINSTATE (1541) | |
211 PLEASE REINSTATE (1542) | |
212 PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5 | |
213 DO RESUME #2 | |
214 (1550) DO STASH :1 + :4 + :5 + :6 + .1 + .5 | |
215 DO :5 <- #0 | |
216 DO .5 <- '?"':2~:2'~#4"$#5'~#5 | |
217 PLEASE DO (1551) NEXT | |
218 DO :4 <- #1 | |
219 PLEASE DO (1553) NEXT | |
220 (1553) DO FORGET #1 | |
221 DO .5 <- '?"':2~"#12500$#0"'"$#3'~#1 | |
222 DO (1552) NEXT | |
223 DO :2 <- ":2~'#0$#3906'"$"'":2~'#781$#0'"$#0' | |
224 ~'#781$#1'" | |
225 PLEASE DO :4 <- ":4~'#0$#3906'"$"'":4~'#781 | |
226 $#0'"$#0'~'#781$#1'" | |
227 DO (1553) NEXT | |
228 (1552) DO (1001) NEXT | |
229 DO .1 <- #0 | |
230 (1556) PLEASE FORGET #1 | |
231 DO :6 <- "'&":2~'#3906$#0'"$"'?#15624$":1 | |
232 ~'#3906$#0'"'~'#0$#3906'"'~'#0$#3906'"$ | |
233 "'&":2~'#0$#3906'"$"'?#15624$":1~'#0$ | |
234 #3906'"'~'#0$#3906'"'~'#0$#3906'" | |
235 DO :6 <- "'?"'V":6~'#3906$#0'"$#7812'~'#0$ | |
236 #3906'"$#7812'~'#0$#15624'"$"'?"'V":6 | |
237 ~'#0$#3906'"$#7812'~'#0$#3906'"$#7812' | |
238 ~'#0$#15624'" | |
239 DO :3 <- "'?":1~'#3906$#0'"$":2~'#3906$#0'"' | |
240 ~'#0$#15624'"$"'?":1~'#0$#3906'"$":2~'#0$ | |
241 #3906'"'~'#0$#15624'" | |
242 DO .5 <- "?'"':6~:3'~'"'"'&"':3~:3'~'#3906$#0'"$ | |
243 #3125'~'#0$#3906'"$"'?:3~:3'~'#781$#0'"' | |
244 ~'#3125$#781'"$"'?:3~:3'~'#0$#3906'"'"~#1'$ | |
245 #3"~#1 | |
246 PLEASE DO (1557) NEXT | |
247 DO (1510) NEXT | |
248 PLEASE DO :1 <- :3 | |
249 DO .5 <- '?#0$"'V.1$#3'~#1"'~#1 | |
250 DO (1557) NEXT | |
251 DO .1 <- '^.1$#3906'~'#0$#3906' | |
252 DO (1556) NEXT | |
253 (1557) PLEASE DO (1001) NEXT | |
254 PLEASE FORGET #1 | |
255 DO :5 <- "'V":4~'.1$#0'"$":5~'#3906$#0'"' | |
256 ~'#0$#3906'"$"'V":4~'#0$.1'"$":5~'#0$ | |
257 #3906'"'~'#0$#3906'" | |
258 DO .5 <- "?#2$':4~#1'"~#1 | |
259 DO (1551) NEXT | |
260 DO :2 <- :2~'#3906$#3905' | |
261 DO :4 <- :4~'#3906$#3905' | |
262 DO .1 <- #0 | |
263 PLEASE DO (1556) NEXT | |
264 (1551) DO (1001) NEXT | |
265 DO :3 <- :5 | |
266 PLEASE RETRIEVE :1 + :4 + :5 + :6 + .1 + .5 | |
267 PLEASE RESUME #2 | |
268 (1720) PLEASE STASH :1 + :3 + :4 + .1 + .5 | |
269 DO :2 <- #0 | |
270 DO .2 <- #0 | |
271 DO .5 <- '?".1~#4"$#5'~#5 | |
272 DO (1729) NEXT | |
273 DO .5 <- .1~#1 | |
274 DO .2 <- :1~'#3906$#0' | |
275 DO .1 <- :1~'#0$#3906' | |
276 PLEASE DO (1724) NEXT | |
277 DO :1 <- '"?#0$.2"~"#0$#3906"'$'"?#0$.1"~"#0$ | |
278 #3906"' | |
279 DO :2 <- '"?'"V.2$#3906"~"#0$#3906"'$ | |
280 #3906"~"#0$#3906"'$'"?'"V.1$#3906" | |
281 ~"#0$#3906"'$#3906"~"#0$#3906"' | |
282 DO (1728) NEXT | |
283 (1724) PLEASE DO (1723) NEXT | |
284 DO :1 <- '"?#0$'"^.2$.2"~"#0$#3906"'"~"#0$#3906"'$ | |
285 '"?#0$'"^.1$.1"~"#0$#3906"'"~"#0$#3906"' | |
286 DO :2 <- '"?'"V'"@.2$#11718"~"#0$#3906"'$#7812" | |
287 ~"#0$#3906"'$#7812"~"#0$#3906"'$'"?'"V'"@.1$ | |
288 #11718"~"#0$#3906"'$#7812"~"#0$#3906"'$#7812" | |
289 ~"#0$#3906"' | |
290 (1728) DO .2 <- :2~'#3125$#0' | |
291 DO :2 <- ':2~"#0$#3906"'$'"':2~"#781$#0"'$#0" | |
292 ~"#781$#1"' | |
293 DO (1509) NEXT | |
294 DO :2 <- :3 | |
295 DO .2 <- '^.2$"'?":4~#1"$#1'~#1"'~#1 | |
296 DO (1721) NEXT | |
297 (1723) PLEASE DO (1722) NEXT | |
298 DO :1 <- '"^.2$.2"~"#0$#3906"'$'"^.1$.1"~"#0$ | |
299 #3906"' | |
300 DO :2 <- '"?'"V'"2@.2$#15624"~"#0$#3906"'$ | |
301 #11718"~"#0$#3906"'$#11718"~"#0$#3906"'$ | |
302 '"?'"V'"2@.1$#15624"~"#0$#3906"'$#11718" | |
303 ~"#0$#3906"'$#11718"~"#0$#3906"' | |
304 PLEASE FORGET #2 | |
305 DO (1728) NEXT | |
306 (1729) DO (1001) NEXT | |
307 DO (1721) NEXT | |
308 (1722) PLEASE DO (1001) NEXT | |
309 DO :2 <- :1 | |
310 DO .2 <- #0 | |
311 DO FORGET #1 | |
312 (1721) PLEASE RETRIEVE :1 + :3 + :4 + .1 + .5 | |
313 PLEASE RESUME #3 | |
314 (1900) DO STASH .2 + .5 | |
315 DO .1 <- #0 | |
316 DO .2 <- #1 | |
317 PLEASE DO (1901) NEXT | |
318 (1901) DO %20 (1903) NEXT | |
319 DO .1 <- 'V.1$.2'~'#0$#3906' | |
320 DO %50 .1 <- '^.1$".2~#7812"'~'#0$#3906' | |
321 DO %50 .1 <- '^.1$.2'~'#0$#3906' | |
322 PLEASE DO (1903) NEXT | |
323 (1903) PLEASE FORGET #2 | |
324 DO .2 <- !2$#0'~'#781$#1' | |
325 PLEASE DO .5 <- '^".2~.2"$#1'~#1 | |
326 DO (1902) NEXT | |
327 DO (1901) NEXT | |
328 (1902) DO (1001) NEXT | |
329 DO RETRIEVE .2 + .5 | |
330 PLEASE RESUME #2 | |
331 (1910) PLEASE STASH .1 + .3 + .5 + :1 + :2 + :3 | |
332 DO .3 <- #15613 | |
333 DO :1 <- #6 | |
334 DO (1911) NEXT | |
335 PLEASE NOTE THAT YOU CAN'T GET SOMETHING FROM NOTHING | |
336 (1912) DO (1001) NEXT | |
337 (1911) DO FORGET #1 | |
338 PLEASE DO (1900) NEXT | |
339 DO :2 <- .1 | |
340 DO (1500) NEXT | |
341 PLEASE DO :1 <- :3 | |
342 DO .1 <- .3 | |
343 DO (1020) NEXT | |
344 PLEASE DO .3 <- .1 | |
345 DO .5 <- '?"!3~.3'~#4"$#3'~#1 | |
346 DO (1912) NEXT | |
347 DO .1 <- #12 | |
348 PLEASE DO (1050) NEXT | |
349 DO RETRIEVE .1 | |
350 DO (1530) NEXT | |
351 DO :2 <- #7812 | |
352 DO (1500) NEXT | |
353 PLEASE DO .2 <- :3~'#3875$#3875' | |
354 PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3 | |
355 DO RESUME #1 |