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