996
|
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
|