Mercurial > repo

comparison interps/c-intercal/pit/lib/numio.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 USE THE AUTHORIZED CHANNELS
2
3 (3000) DO STASH .2 + .3 + .5
4 DO .2 <- ,3000SUB#1
5 PLEASE WRITE IN ,3000
6 DO .1 <- ,3000SUB#1
7 DO .5 <- '?".1~#256"$#2'~#3
8 DO (3008) NEXT
9 DO (1000) NEXT
10 DO .1 <- .3~#255
11 DO ,3000SUB#1 <- .1
12 DO (3009) NEXT
13 (3008) DO (1001) NEXT
14 (3009) DO RETRIEVE .2 + .3 + .5
15 PLEASE RESUME #2
16
17 (3001) DO STASH .1 + .3
18 DO .1 <- ,3001SUB#1
19 DO (1010) NEXT
20 DO ,3001SUB#1 <- .3~#255
21 PLEASE READ OUT ,3001
22 DO ,3001SUB#1 <- .2
23 DO .1 <- .2
24 DO RETRIEVE .1 + .3
25 PLEASE RESUME #1
26
27 (3010) PLEASE STASH .1 + .4 + .5
28 PLEASE DO (1020) NEXT
29 DO .2 <- #0
30 DO .3 <- #2
31 DO .4 <- .1
32 DO (3012) NEXT
33 (3011) DO (1001) NEXT
34 (3012) PLEASE FORGET #1
35 DO (3000) NEXT
36 DO .5 <- '?"?.1~#256"$#2'~#3
37 DO (3013) NEXT
38 DO .5 <- '?"'#65535~"'?.1$#10'~#21845"'~#1"$#1'~#3
39 DO (3013) NEXT
40 DO .5 <- .1
41 DO .1 <- .2
42 PLEASE DO (1020) NEXT
43 DO .2 <- .1
44 DO .1 <- .5
45 DO .5 <- .3
46 DO (3011) NEXT
47 DO .5 <- '?"'#65535~"'?.2$.4'~'#0$#65535'"'~#1"$#1'~#3
48 DO .3 <- .5
49 DO (3011) NEXT
50 PLEASE DO ,1SUB.2 <- .1
51 DO (3012) NEXT
52 (3013) DO (1001) NEXT
53 PLEASE RETRIEVE .1 + .4 + .5
54 PLEASE DO .3 <- '?.3$#3'~#5
55 PLEASE RESUME #2
56
57 (3020) PLEASE STASH .1 + .5 + .6 + .7
58 DO (1020) NEXT
59 DO .3 <- #0
60 DO .4 <- #6
61 DO .6 <- .1
62 DO (3022) NEXT
63 (3021) DO (1001) NEXT
64 (3022) PLEASE FORGET #1
65 DO (3000) NEXT
66 DO .5 <- '?"?.1~#256"$#2'~#3
67 DO (3023) NEXT
68 DO .5 <- '?"'#65535~"'?.1$#10'~#21845"'~#1"$#1'~#3
69 DO (3023) NEXT
70 DO .7 <- .1
71 DO .1 <- .3
72 PLEASE DO (1020) NEXT
73 DO .3 <- .1
74 DO .5 <- .4~#3
75 DO (3021) NEXT
76 DO .5 <- '?"'#65535~"'?.3$.6'~'#0$#65535'"'~#1"$#1'~#3
77 DO .4 <- !4$.5'~#37
78 DO (3021) NEXT
79 (3027) DO .1 <- #0
80 PLEASE COME FROM (3024)
81 PLEASE DO (1020) NEXT
82 DO .5 <- '?"'#65535~"'?.7$",2SUB.1"'~#21845"'~#1"$#1'~#3
83 DO (3025) NEXT
84 PLEASE COME FROM (3027)
85 DO .5 <- '?"'#65535~"'?.1$.2'~'#0$#65535'"'~#1"$#1'~#3
86 (3024) DO (3026) NEXT
87 (3026) DO (1001) NEXT
88 PLEASE FORGET #1
89 PLEASE DO ,1SUB.3 <- .7
90 DO .4 <- .4~#3
91 DO (3022) NEXT
92 (3025) DO (1001) NEXT
93 PLEASE FORGET #1
94 PLEASE DO ,1SUB.3 <- .1
95 DO (3022) NEXT
96 (3023) DO (1001) NEXT
97 PLEASE RETRIEVE .1 + .5 + .6 + .7
98 DO .4 <- '?#2$.&4'~#6
99 PLEASE RESUME #2
100
101 (3089) PLEASE ABSTAIN FROM (3087)
102 (3080) PLEASE STASH .2 + .3 + .4
103 DO .3 <- #0
104 DO (3081) NEXT
105 (3087) DO (3088) NEXT
106 PLEASE REINSTATE (3087)
107 DO .4 <- '?.1$#10'~'#0$#65535'
108 DO .4 <- .4~.4
109 DO (3085) NEXT
110 (3998) DOES "ENTER A NUMBER" MEAN SOMETHING ELSE WHERE YOU COME FROM?
111 (3085) DO (3086) NEXT
112 (3088) PLEASE FORGET #1
113 DO .1 <- .3
114 PLEASE RETRIEVE .2 + .3 + .4
115 PLEASE RESUME #1
116 (3086) PLEASE RESUME '?.V4$#1'~#3
117 (3081) DO COME FROM (3082)
118 DO (3000) NEXT
119 DO .4 <- '?".1~#240"$#3'~#85
120 DO .4 <- '".4~.4"~#1'$'&".1~#8"$".V1~#2"'
121 DO (3086) NEXT
122 DO .4 <- .3~#57344
123 DO .4 <- .4~.4
124 DO (3083) NEXT
125 DO (1999) NEXT
126 (3083) DO (3086) NEXT
127 PLEASE FORGET #1
128 DO .4 <- .1
129 DO .2 <- !3$#0'~'#32767$#1'
130 DO .1 <- !2$#0'~'#16383$#3'
131 DO (1000) NEXT
132 DO .1 <- .3
133 DO .2 <- .4~#15
134 (3082) DO (1000) NEXT
135
136 (3090) PLEASE ABSTAIN FROM (3097)
137 (3099) PLEASE STASH .1 + .2 + .3 + .4
138 DO .2 <- #256
139 PLEASE STASH .2
140 DO (3091) NEXT
141 DO (3095) NEXT
142 DO .2 <- #80
143 (3097) DO (3001) NEXT
144 PLEASE REINSTATE (3097)
145 PLEASE RETRIEVE .1 + .2 + .3 + .4
146 PLEASE RESUME #1
147 (3098) PLEASE RESUME '?"!1~.1'~#1"$#2'~#3
148 (3091) DO COME FROM (3092)
149 DO .2 <- #10
150 DO (2030) NEXT
151 DO .2 <- .4
152 PLEASE STASH .2
153 DO .1 <- .3
154 (3092) DO (3098) NEXT
155
156 (3095) DO COME FROM (3094)
157 PLEASE RETRIEVE .2
158 DO (3093) NEXT
159 DO .2 <- .2$#3
160 DO .2 <- !2~#15'$!2~#240'
161 DO .2 <- !2~#15'$!2~#240'
162 (3094) DO (3001) NEXT
163 (3093) PLEASE RESUME '?".2~#256"$#1'~#3
164
165 (3189) PLEASE ABSTAIN FROM (3187)
166 (3180) PLEASE STASH :2 + :3 + .1 + .4
167 DO :3 <- #0
168 PLEASE STASH :4
169 DO (3181) NEXT
170 PLEASE RETRIEVE :4
171 (3187) DO (3188) NEXT
172 PLEASE REINSTATE (3187)
173 DO .4 <- '?.1$#10'~'#0$#65535'
174 DO .4 <- .4~.4
175 DO (3185) NEXT
176 DO (3998) NEXT
177 (3185) DO (3186) NEXT
178 (3188) PLEASE FORGET #1
179 DO :1 <- :3
180 PLEASE RETRIEVE :2 + :3 + .1 + .4
181 PLEASE RESUME #1
182 (3186) PLEASE RESUME '?.V4$#1'~#3
183 (3181) DO COME FROM (3182)
184 DO (3000) NEXT
185 DO .4 <- '?".1~#240"$#3'~#85
186 DO .4 <- '".4~.4"~#1'$'&".1~#8"$".V1~#2"'
187 DO (3186) NEXT
188 DO .4 <- :3~'#49152$#32768'
189 DO .4 <- .4~.4
190 DO (3183) NEXT
191 DO (1999) NEXT
192 (3183) DO (3186) NEXT
193 PLEASE FORGET #1
194 DO :2 <- ':3~"#0$#65535"'$'"':3~"#32767$#0"'$#0"~"#32767$#1"'
195 DO :1 <- ':2~"#32767$#1"'$'"':2~"#0$#32767"'$#0"~"#32767$#1"'
196 DO (1500) NEXT
197 DO :1 <- :3
198 DO :2 <- .1~#15
199 (3182) DO (1500) NEXT
200
201 (3190) PLEASE ABSTAIN FROM (3197)
202 (3199) PLEASE STASH :1 + :2 + :3 + :4 + .2 + .4
203 DO :2 <- #10
204 DO .2 <- #256
205 PLEASE STASH .2
206 DO (3191) NEXT
207 DO (3095) NEXT
208 DO .2 <- #80
209 (3197) DO (3001) NEXT
210 PLEASE REINSTATE (3197)
211 PLEASE RETRIEVE :1 + :2 + :3 + :4 + .2 + .4
212 PLEASE RESUME #1
213 (3198) PLEASE RESUME '?"':1~:1'~#1"$#2'~#3
214 (3191) DO COME FROM (3192)
215 DO (2530) NEXT
216 DO .2 <- :4
217 PLEASE STASH .2
218 DO :1 <- :3
219 (3192) DO (3198) NEXT
220
221 (3990) PLEASE DO ,3000 <- #1
222 DO ,3000SUB#1 <- #0
223 PLEASE DO ,3001 <- #1
224 DO ,3001SUB#1 <- #0
225 PLEASE RESUME #1
226
227
228 (2030) DO STASH .1 + .5
229 DO .3 <- #0
230 DO .5 <- '?"!2~.2'~#1"$#1'~#3
231 PLEASE DO (2031) NEXT
232 DO .4 <- #1
233 PLEASE DO (2033) NEXT
234 (2033) DO FORGET #1
235 DO .5 <- '?".2~#32768"$#2'~#3
236 DO (2032) NEXT
237 DO .2 <- !2$#0'~'#32767$#1'
238 PLEASE DO .4 <- !4$#0'~'#32767$#1'
239 DO (2033) NEXT
240 (2032) DO (1001) NEXT
241 (2036) PLEASE FORGET #1
242 DO .5 <- '?.1$.2'~'#0$#65535'
243 DO .5 <- '?"'&"!2~.5'~'"?'?.5~.5'$#32768"~"#0$#65535"'"$
244 ".5~.5"'~#1"$#2'~#3
245 DO (2034) NEXT
246 DO .5 <- .3
247 DO (1010) NEXT
248 PLEASE DO .1 <- .3
249 DO .3 <- 'V.4$.5'~'#0$#65535'
250 DO (2035) NEXT
251 (2034) PLEASE DO (1001) NEXT
252 (2035) DO FORGET #1
253 DO .5 <- "?'.4~#1'$#2"~#3
254 DO (2031) NEXT
255 DO .2 <- .2~#65534
256 DO .4 <- .4~#65534
257 PLEASE DO (2036) NEXT
258 (2031) DO (1001) NEXT
259 PLEASE DO .4 <- .1
260 PLEASE RETRIEVE .1 + .5
261 PLEASE RESUME #2
262
263 (2530) DO STASH :1 + :5 + .5
264 DO :3 <- #0
265 DO .5 <- '?"':2~:2'~#1"$#1'~#3
266 PLEASE DO (2531) NEXT
267 DO :4 <- #1
268 PLEASE DO (2533) NEXT
269 (2533) DO FORGET #1
270 DO .5 <- '?":2~'#32768$#0'"$#2'~#3
271 DO (2532) NEXT
272 DO :2 <- ":2~'#0$#65535'"$"'":2~'#32767$#0'"$#
273 0'~'#32767$#1'"
274 PLEASE DO :4 <- ":4~'#0$#65535'"$"'":4~'#32767
275 $#0'"$#0'~'#32767$#1'"
276 DO (2533) NEXT
277 (2532) DO (1001) NEXT
278 (2536) PLEASE FORGET #1
279 DO :5 <- "'?":1~'#65535$#0'"$":2~'#65535$#0'"'
280 ~'#0$#65535'"$"'?":1~'#0$#65535'"$":2~'#0$
281 #65535'"'~'#0$#65535'"
282 DO .5 <- '?"'&"':2~:5'~'"'?"'?":5~:5"~"#65535$
283 #65535"'~'#65535$#0'"$#32768'~'#0$#65535'"
284 $"'?":5~:5"~"#65535$#65535"'~'#0$#65535'"'
285 "$"':5~:5'~#1"'~#1"$#2'~#3
286 DO (2534) NEXT
287 DO :5 <- :3
288 DO (1510) NEXT
289 PLEASE DO :1 <- :3
290 DO :3 <- "'V":4~'#65535$#0'"$":5~'#65535$#0'"'
291 ~'#0$#65535'"$"'V":4~'#0$#65535'"$":5~'#0$
292 #65535'"'~'#0$#65535'"
293 DO (2535) NEXT
294 (2534) PLEASE DO (1001) NEXT
295 (2535) DO FORGET #1
296 DO .5 <- "?':4~#1'$#2"~#3
297 DO (2531) NEXT
298 DO :2 <- ":2~'#0$#65534'"$":2~'#65535$#0'"
299 DO :4 <- ":4~'#0$#65534'"$":4~'#65535$#0'"
300 PLEASE DO (2536) NEXT
301 (2531) DO (1001) NEXT
302 DO :4 <- :1
303 PLEASE RETRIEVE :1 + :5 + .5
304 PLEASE RESUME #2