Mercurial > repo

comparison interps/c-intercal/pit/pass.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 (10) DO NOTHING
2
3 PLEASE NOTE: Process 1 reads from stdin & copies to the channel
4
5 PLEASE COME FROM (10)
6 PLEASE COME FROM (20)
7 (20) PLEASE (100) NEXT
8
9 PLEASE NOTE: Process 2 reads from the channel & copies to stdout
10
11 PLEASE COME FROM (10)
12 PLEASE COME FROM (30)
13 (30) PLEASE (200) NEXT
14
15 (100) PLEASE NOTE: Write a message to the message box.
16
17 DO STASH .1 + .2
18 DO (101) NEXT
19 PLEASE COME FROM (104)
20 (101) DO FORGET #1
21 DO .2 <- #1
22 (102) DO .2 <- #2 ONCE
23 (103) DO (104) NEXT
24 (104) DO (105) NEXT
25 (105) DO RESUME .2
26
27 PLEASE COME FROM (103)
28
29 DO WRITE IN .1
30
31 PLEASE NOTE: If .1 is zero, kill both threads
32 DO .2 <- '?"'#0$.1'~'#0$.1'"$#1'~#3
33 (1) DO (2) NEXT
34 (2) DO (105) NEXT
35
36 PLEASE COME FROM (1)
37
38 DO .2 <- '?"'&.1$#1'~'#0$#1'"$#1'~#3
39 DO (106) NEXT
40 DO REINSTATE (210)
41 DO (107) NEXT
42 (106) DO (105) NEXT
43 DO ABSTAIN FROM (210)
44
45 (107) DO .2 <- '?"'&.1$#2'~'#0$#2'"$#1'~#3
46 DO (108) NEXT
47 DO REINSTATE (211)
48 DO (109) NEXT
49 (108) DO (105) NEXT
50 PLEASE ABSTAIN FROM (211)
51
52 (109) DO .2 <- '?"'&.1$#4'~'#0$#4'"$#1'~#3
53 DO (110) NEXT
54 DO REINSTATE (212)
55 DO (111) NEXT
56 (110) DO (105) NEXT
57 PLEASE ABSTAIN FROM (212)
58
59 (111) DO .2 <- '?"'&.1$#8'~'#0$#8'"$#1'~#3
60 DO (112) NEXT
61 DO REINSTATE (213)
62 DO (113) NEXT
63 (112) DO (105) NEXT
64 PLEASE ABSTAIN FROM (213)
65
66 (113) DO .2 <- '?"'&.1$#16'~'#0$#16'"$#1'~#3
67 DO (114) NEXT
68 DO REINSTATE (214)
69 DO (115) NEXT
70 (114) DO (105) NEXT
71 PLEASE ABSTAIN FROM (214)
72
73 (115) DO .2 <- '?"'&.1$#32'~'#0$#32'"$#1'~#3
74 DO (116) NEXT
75 DO REINSTATE (215)
76 DO (117) NEXT
77 (116) DO (105) NEXT
78 PLEASE ABSTAIN FROM (215)
79
80 (117) DO .2 <- '?"'&.1$#64'~'#0$#64'"$#1'~#3
81 DO (118) NEXT
82 DO REINSTATE (216)
83 DO (119) NEXT
84 (118) DO (105) NEXT
85 PLEASE ABSTAIN FROM (216)
86
87 (119) DO .2 <- '?"'&.1$#128'~'#0$#128'"$#1'~#3
88 DO (120) NEXT
89 DO REINSTATE (217)
90 DO (121) NEXT
91 (120) DO (105) NEXT
92 PLEASE ABSTAIN FROM (217)
93
94 (121) DO .2 <- '?"'&.1$#256'~'#0$#256'"$#1'~#3
95 DO (122) NEXT
96 DO REINSTATE (218)
97 DO (123) NEXT
98 (122) DO (105) NEXT
99 PLEASE ABSTAIN FROM (218)
100
101 (123) DO .2 <- '?"'&.1$#512'~'#0$#512'"$#1'~#3
102 DO (124) NEXT
103 DO REINSTATE (219)
104 DO (125) NEXT
105 (124) DO (105) NEXT
106 PLEASE ABSTAIN FROM (219)
107
108 (125) DO .2 <- '?"'&.1$#1024'~'#0$#1024'"$#1'~#3
109 DO (126) NEXT
110 DO REINSTATE (220)
111 DO (127) NEXT
112 (126) DO (105) NEXT
113 PLEASE ABSTAIN FROM (220)
114
115 (127) DO .2 <- '?"'&.1$#2048'~'#0$#2048'"$#1'~#3
116 DO (128) NEXT
117 DO REINSTATE (221)
118 DO (129) NEXT
119 (128) DO (105) NEXT
120 PLEASE ABSTAIN FROM (221)
121
122 (129) DO .2 <- '?"'&.1$#4096'~'#0$#4096'"$#1'~#3
123 DO (130) NEXT
124 DO REINSTATE (222)
125 DO (131) NEXT
126 (130) DO (105) NEXT
127 PLEASE ABSTAIN FROM (222)
128
129 (131) DO .2 <- '?"'&.1$#8192'~'#0$#8192'"$#1'~#3
130 DO (132) NEXT
131 DO REINSTATE (223)
132 DO (133) NEXT
133 (132) DO (105) NEXT
134 PLEASE ABSTAIN FROM (223)
135
136 (133) DO .2 <- '?"'&.1$#16384'~'#0$#16384'"$#1'~#3
137 DO (134) NEXT
138 DO REINSTATE (224)
139 DO (135) NEXT
140 (134) DO (105) NEXT
141 PLEASE ABSTAIN FROM (224)
142
143 (135) DO .2 <- '?"'&.1$#32768'~'#0$#32768'"$#1'~#3
144 DO (136) NEXT
145 DO REINSTATE (225)
146 DO (137) NEXT
147 (136) DO (105) NEXT
148 PLEASE ABSTAIN FROM (225)
149
150 (137) DO REINSTATE (202)
151 DO RETRIEVE .1 + .2
152 PLEASE RESUME #17
153
154 (200) PLEASE NOTE: Read from a message box
155
156 DO STASH .1 + .2
157
158 DO (201) NEXT
159 PLEASE COME FROM (204)
160 (201) DO FORGET #1
161 DO .2 <- #1
162 (202) DO NOT .2 <- #2 AGAIN
163 (203) DO (204) NEXT
164 (204) DO (205) NEXT
165 (205) DO RESUME .2
166
167 PLEASE COME FROM (203)
168
169 DO .1 <- #0
170 (210) DO .1 <- 'V.1$#1'~'#0$#65535'
171 (211) DO .1 <- 'V.1$#2'~'#0$#65535'
172 (212) DO .1 <- 'V.1$#4'~'#0$#65535'
173 (213) DO .1 <- 'V.1$#8'~'#0$#65535'
174 (214) DO .1 <- 'V.1$#16'~'#0$#65535'
175 (215) DO .1 <- 'V.1$#32'~'#0$#65535'
176 (216) DO .1 <- 'V.1$#64'~'#0$#65535'
177 (217) DO .1 <- 'V.1$#128'~'#0$#65535'
178 (218) DO .1 <- 'V.1$#256'~'#0$#65535'
179 (219) DO .1 <- 'V.1$#512'~'#0$#65535'
180 (220) DO .1 <- 'V.1$#1024'~'#0$#65535'
181 (221) DO .1 <- 'V.1$#2048'~'#0$#65535'
182 (222) DO .1 <- 'V.1$#4096'~'#0$#65535'
183 (223) DO .1 <- 'V.1$#8192'~'#0$#65535'
184 (224) DO .1 <- 'V.1$#16384'~'#0$#65535'
185 (225) DO .1 <- 'V.1$#32768'~'#0$#65535'
186
187 DO READ OUT .1
188 DO RETRIEVE .1 + .2
189 DO REINSTATE (102)
190 PLEASE RESUME #1
191
192 PLEASE NOTE: Giving up
193
194 PLEASE COME FROM (2)
195 DO REINSTATE (3)
196 (3) DO NOT COME FROM (202)
197 PLEASE GIVE UP