996
|
1 DO :321 <- #0
|
|
2 DO :322 <- #0
|
|
3 DO :123 <- #65535$#65535
|
|
4 PLEASE STASH :123
|
|
5 DO (1) NEXT
|
|
6
|
|
7 (1) PLEASE FORGET #1
|
|
8 PLEASE WRITE IN :1
|
|
9 DO .5 <- '?"':1~:1'~#1"$#2'~#3
|
|
10 DO (11) NEXT
|
|
11 DO :123 <- #0
|
|
12 PLEASE STASH :123
|
|
13 DO (1) NEXT
|
|
14 (11) DO (1001) NEXT
|
|
15 DO .5 <- :1~'#65280$#65280'
|
|
16 DO .5 <- '?"!5~.5'~#1"$#1'~#3
|
|
17 DO (10) NEXT
|
|
18 PLEASE FORGET #1
|
|
19 DO (5090) NEXT
|
|
20 DO .5 <- '?".5~#2"$#2'~#3
|
|
21 DO (19) NEXT
|
|
22 DO :123 <- :2
|
|
23 PLEASE STASH :123
|
|
24 DO (1) NEXT
|
|
25 (10) DO (1001) NEXT
|
|
26 PLEASE FORGET #2
|
|
27 DO .5 <- '?"':1~#65504'~#1"$#2'~#3
|
|
28 DO (19) NEXT
|
|
29 DO (131) NEXT
|
|
30
|
|
31 (131) DO (130) NEXT
|
|
32 PLEASE FORGET #1
|
|
33 DO (18) NEXT
|
|
34 (130) DO (129) NEXT
|
|
35 PLEASE GIVE UP
|
|
36 (129) DO (128) NEXT
|
|
37 PLEASE FORGET #3
|
|
38 DO :1 <- :322
|
|
39 DO (5080) NEXT
|
|
40 PLEASE READ OUT :2
|
|
41 DO (1) NEXT
|
|
42 (128) DO (127) NEXT
|
|
43 PLEASE FORGET #4
|
|
44 DO (22) NEXT
|
|
45 DO :123 <- :322
|
|
46 PLEASE STASH :123
|
|
47 DO :322 <- :2
|
|
48 DO (1) NEXT
|
|
49 (127) DO (126) NEXT
|
|
50 PLEASE FORGET #5
|
|
51 DO :123 <- :322
|
|
52 PLEASE STASH :123
|
|
53 DO (1) NEXT
|
|
54 (126) DO (125) NEXT
|
|
55 PLEASE FORGET #6
|
|
56 DO (21) NEXT
|
|
57 DO :2 <- :322
|
|
58 DO (5000) NEXT
|
|
59 DO (33) NEXT
|
|
60 PLEASE RETRIEVE :123
|
|
61 DO :322 <- :123
|
|
62 DO (1) NEXT
|
|
63 (125) DO (124) NEXT
|
|
64 PLEASE FORGET #7
|
|
65 DO (22) NEXT
|
|
66 DO :322 <- :2
|
|
67 DO (1) NEXT
|
|
68 (124) DO (123) NEXT
|
|
69 PLEASE FORGET #8
|
|
70 DO :1 <- :321
|
|
71 DO (5080) NEXT
|
|
72 PLEASE READ OUT :2
|
|
73 DO (1) NEXT
|
|
74 (123) DO (122) NEXT
|
|
75 PLEASE FORGET #9
|
|
76 DO (21) NEXT
|
|
77 DO :123 <- :321
|
|
78 PLEASE STASH :123
|
|
79 DO :321 <- :1
|
|
80 DO (1) NEXT
|
|
81 (122) DO (121) NEXT
|
|
82 PLEASE FORGET #10
|
|
83 DO :123 <- :321
|
|
84 PLEASE STASH :123
|
|
85 DO (1) NEXT
|
|
86 (121) DO (120) NEXT
|
|
87 PLEASE FORGET #11
|
|
88 DO (22) NEXT
|
|
89 DO :1 <- :321
|
|
90 DO (5000) NEXT
|
|
91 DO (33) NEXT
|
|
92 PLEASE RETRIEVE :123
|
|
93 DO :321 <- :123
|
|
94 DO (1) NEXT
|
|
95 (120) DO (119) NEXT
|
|
96 PLEASE FORGET #12
|
|
97 DO (21) NEXT
|
|
98 DO :321 <- :1
|
|
99 DO (1) NEXT
|
|
100 (119) DO (118) NEXT
|
|
101 PLEASE FORGET #13
|
|
102 DO (5400) NEXT
|
|
103 DO :123 <- :1
|
|
104 PLEASE STASH :123
|
|
105 DO (1) NEXT
|
|
106 (118) DO (117) NEXT
|
|
107 PLEASE FORGET #14
|
|
108 DO (21) NEXT
|
|
109 DO (5020) NEXT
|
|
110 DO :123 <- :2
|
|
111 PLEASE STASH :123
|
|
112 DO (1) NEXT
|
|
113 (117) DO (116) NEXT
|
|
114 PLEASE FORGET #15
|
|
115 DO (271) NEXT
|
|
116 (272) DO (1001) NEXT
|
|
117 (271) PLEASE FORGET #1
|
|
118 PLEASE RETRIEVE :123
|
|
119 DO .5 <- '?"':123~:123'~'#32768$#0'"$#1'~#3
|
|
120 DO (272) NEXT
|
|
121 PLEASE STASH :123
|
|
122 DO (1) NEXT
|
|
123 (116) DO (115) NEXT
|
|
124 PLEASE FORGET #16
|
|
125 DO (21) NEXT
|
|
126 DO (1) NEXT
|
|
127 (115) DO (114) NEXT
|
|
128 PLEASE FORGET #17
|
|
129 DO (22) NEXT
|
|
130 DO (21) NEXT
|
|
131 DO (5130) NEXT
|
|
132 DO (33) NEXT
|
|
133 DO (1) NEXT
|
|
134 (114) DO (113) NEXT
|
|
135 PLEASE FORGET #18
|
|
136 DO (21) NEXT
|
|
137 DO (5120) NEXT
|
|
138 DO (32) NEXT
|
|
139 DO (1) NEXT
|
|
140 (113) DO (112) NEXT
|
|
141 PLEASE FORGET #19
|
|
142 DO (21) NEXT
|
|
143 DO (5110) NEXT
|
|
144 DO (32) NEXT
|
|
145 DO (1) NEXT
|
|
146 (112) DO (111) NEXT
|
|
147 PLEASE FORGET #20
|
|
148 DO (21) NEXT
|
|
149 DO (5100) NEXT
|
|
150 DO (32) NEXT
|
|
151 DO (1) NEXT
|
|
152 (111) DO (110) NEXT
|
|
153 PLEASE FORGET #21
|
|
154 DO (22) NEXT
|
|
155 DO :1 <- #30720$#28672
|
|
156 DO (5040) NEXT
|
|
157 DO (33) NEXT
|
|
158 DO (1) NEXT
|
|
159 (110) DO (109) NEXT
|
|
160 PLEASE FORGET #22
|
|
161 DO (21) NEXT
|
|
162 PLEASE DO :123 <- '"?':123~"#65535$#0"'$#32768"~"#0$#65535"'$
|
|
163 ':123~"#0$#65535"'
|
|
164 PLEASE STASH :123
|
|
165 DO (1) NEXT
|
|
166 (109) DO (108) NEXT
|
|
167 PLEASE FORGET #23
|
|
168 DO (21) NEXT
|
|
169 DO (22) NEXT
|
|
170 DO :123 <- :1
|
|
171 PLEASE STASH :123
|
|
172 DO :123 <- :2
|
|
173 PLEASE STASH :123
|
|
174 DO (1) NEXT
|
|
175 (108) DO (107) NEXT
|
|
176 PLEASE FORGET #24
|
|
177 DO (21) NEXT
|
|
178 PLEASE STASH :123 + :123
|
|
179 DO (1) NEXT
|
|
180 (107) DO (106) NEXT
|
|
181 PLEASE FORGET #25
|
|
182 DO :1 <- #65535$#65535
|
|
183 DO (171) NEXT
|
|
184 (171) PLEASE FORGET #1
|
|
185 PLEASE STASH :1
|
|
186 PLEASE RETRIEVE :123
|
|
187 DO .5 <- '?"':123~:123'~'#32768$#0'"$#2'~#3
|
|
188 DO (172) NEXT
|
|
189 DO :1 <- :123
|
|
190 DO (5080) NEXT
|
|
191 PLEASE READ OUT :2
|
|
192 DO (171) NEXT
|
|
193 (172) DO (1001) NEXT
|
|
194 PLEASE FORGET #1
|
|
195 PLEASE STASH :123
|
|
196 PLEASE RETRIEVE :1
|
|
197 DO :123 <- :1
|
|
198 DO .5 <- '?"':1~:1'~'#32768$#0'"$#1'~#3
|
|
199 DO (172) NEXT
|
|
200 DO (1) NEXT
|
|
201 (106) DO (105) NEXT
|
|
202 PLEASE FORGET #26
|
|
203 DO (21) NEXT
|
|
204 PLEASE STASH :123
|
|
205 DO (5080) NEXT
|
|
206 PLEASE READ OUT :2
|
|
207 DO (1) NEXT
|
|
208 (105) DO (104) NEXT
|
|
209 PLEASE FORGET #27
|
|
210 DO (22) NEXT
|
|
211 DO (21) NEXT
|
|
212 DO (5050) NEXT
|
|
213 DO (33) NEXT
|
|
214 DO (1) NEXT
|
|
215 (104) DO (103) NEXT
|
|
216 PLEASE FORGET #28
|
|
217 DO (22) NEXT
|
|
218 DO (21) NEXT
|
|
219 DO (5040) NEXT
|
|
220 DO (33) NEXT
|
|
221 DO (1) NEXT
|
|
222 (103) DO (102) NEXT
|
|
223 PLEASE FORGET #29
|
|
224 DO (22) NEXT
|
|
225 DO (21) NEXT
|
|
226 DO (5030) NEXT
|
|
227 DO (33) NEXT
|
|
228 DO (1) NEXT
|
|
229 (102) DO (101) NEXT
|
|
230 PLEASE FORGET #30
|
|
231 DO (22) NEXT
|
|
232 DO (21) NEXT
|
|
233 DO (5010) NEXT
|
|
234 DO (33) NEXT
|
|
235 DO (1) NEXT
|
|
236 (101) DO (100) NEXT
|
|
237 PLEASE FORGET #31
|
|
238 DO (22) NEXT
|
|
239 DO (21) NEXT
|
|
240 DO (5000) NEXT
|
|
241 DO (33) NEXT
|
|
242 DO (1) NEXT
|
|
243
|
|
244 (100) PLEASE RESUME :1
|
|
245
|
|
246 (19) DO (1001) NEXT
|
|
247 (18) PLEASE READ OUT #30
|
|
248 PLEASE FORGET #1
|
|
249 DO (1) NEXT
|
|
250
|
|
251 (21) PLEASE RETRIEVE :123
|
|
252 DO :1 <- :123
|
|
253 DO .5 <- '?"':1~:1'~'#32768$#0'"$#2'~#3
|
|
254 DO (1001) NEXT
|
|
255 PLEASE FORGET #2
|
|
256 DO (18) NEXT
|
|
257
|
|
258 (22) PLEASE RETRIEVE :123
|
|
259 DO :2 <- :123
|
|
260 DO .5 <- '?"':2~:2'~'#32768$#0'"$#2'~#3
|
|
261 DO (1001) NEXT
|
|
262 PLEASE FORGET #2
|
|
263 DO (18) NEXT
|
|
264
|
|
265 (32) DO :3 <- :2
|
|
266 (33) DO :123 <- :3
|
|
267 DO (35) NEXT
|
|
268 PLEASE FORGET #1
|
|
269 DO (18) NEXT
|
|
270 (35) DO (36) NEXT
|
|
271 DO :123 <- #0
|
|
272 DO (37) NEXT
|
|
273 (36) DO (1001) NEXT
|
|
274 (37) PLEASE STASH :123
|
|
275 PLEASE RESUME #3
|
|
276
|
|
277 PLEASE APPEND THE FLOATING-POINT LIBRARY ROUTINES
|