996
|
1
|
|
2 PLEASE NOTE BEGINNING OF BEGINNING
|
|
3 DO WRITE IN .11
|
|
4 DO WRITE IN .12
|
|
5 DO ,1 <- .11 BY .12
|
|
6 DO ,2 <- .11 BY .12
|
|
7 DO WRITE IN .13
|
|
8 DO .14 <- #0
|
|
9
|
|
10 PLEASE NOTE INITIALIZING ,1 TO ZEROES
|
|
11 DO .2 <- .11
|
|
12 DO .1 <- .12
|
|
13 DO (110) NEXT
|
|
14 (110) PLEASE FORGET #1
|
|
15 DO ,1 SUB .2.1 <- #0
|
|
16 DO (111) NEXT
|
|
17 (112) DO (2010) NEXT
|
|
18 PLEASE FORGET #2
|
|
19 DO (110) NEXT
|
|
20 (111) DO (112) NEXT
|
|
21 DO (113) NEXT
|
|
22 (114) DO .1 <- .2
|
|
23 DO (2010) NEXT
|
|
24 PLEASE FORGET #3
|
|
25 DO .2 <- .1
|
|
26 DO .1 <- .12
|
|
27 DO (110) NEXT
|
|
28 (113) DO (114) NEXT
|
|
29 PLEASE FORGET #2
|
|
30
|
|
31 PLEASE NOTE INITIAL POSITION INPUT
|
|
32 DO (120) NEXT
|
|
33 (120) PLEASE FORGET #1
|
|
34 DO WRITE IN .1
|
|
35 DO (121) NEXT
|
|
36 DO WRITE IN .2
|
|
37 DO ,1 SUB .1.2 <- #1
|
|
38 DO (120) NEXT
|
|
39 (122) DO RESUME "?!1~.1'$#1"~#3
|
|
40 (121) DO (122) NEXT
|
|
41 PLEASE FORGET #1
|
|
42
|
|
43 PLEASE NOTE END OF BEGINNING, BEGINNING OF MIDDLE
|
|
44 DO (200) NEXT
|
|
45 (200) DO FORGET #1
|
|
46
|
|
47 PLEASE NOTE PUTTING NEXT POSITION IN ,2
|
|
48 DO .1 <- .11
|
|
49 DO .9 <- .1
|
|
50 DO (2000) NEXT
|
|
51 DO .7 <- .1
|
|
52 DO (2000) NEXT
|
|
53 DO .5 <- .1
|
|
54 DO .1 <- .12
|
|
55 DO .10 <- .1
|
|
56 DO (2000) NEXT
|
|
57 DO .8 <- .1
|
|
58 DO (2000) NEXT
|
|
59 DO .6 <- .1
|
|
60 DO (210) NEXT
|
|
61 (210) PLEASE FORGET #1
|
|
62
|
|
63 DO .1 <- #0
|
|
64 DO .2 <- ,1 SUB .5.6
|
|
65 DO (2020) NEXT
|
|
66 DO .2 <- ,1 SUB .5.8
|
|
67 DO (2020) NEXT
|
|
68 DO .2 <- ,1 SUB .5.10
|
|
69 DO (2020) NEXT
|
|
70 DO .2 <- ,1 SUB .7.6
|
|
71 DO (2020) NEXT
|
|
72 DO .2 <- ,1 SUB .7.10
|
|
73 DO (2020) NEXT
|
|
74 DO .2 <- ,1 SUB .9.6
|
|
75 DO (2020) NEXT
|
|
76 DO .2 <- ,1 SUB .9.8
|
|
77 DO (2020) NEXT
|
|
78 DO .2 <- ,1 SUB .9.10
|
|
79 DO (2020) NEXT
|
|
80 DO :2 <- #0$#65535
|
|
81 DO .1 <- "?'"V.1$,1SUB.7.8"~:2'$#3"~:2
|
|
82 DO ,2 SUB .7.8 <- "?!1~.1'$#1"~#1
|
|
83
|
|
84 DO (211) NEXT
|
|
85 (212) DO .10 <- .8
|
|
86 DO .8 <- .6
|
|
87 DO .1 <- .6
|
|
88 DO (2010) NEXT
|
|
89 PLEASE FORGET #2
|
|
90 DO .6 <- .1
|
|
91 DO (210) NEXT
|
|
92 (211) DO (212) NEXT
|
|
93 DO (213) NEXT
|
|
94 (214) DO .9 <- .7
|
|
95 DO .7 <- .5
|
|
96 DO .1 <- .5
|
|
97 DO (2010) NEXT
|
|
98 PLEASE FORGET #3
|
|
99 DO .5 <- .1
|
|
100 DO .1 <- .12
|
|
101 DO .10 <- .1
|
|
102 DO (2000) NEXT
|
|
103 DO .8 <- .1
|
|
104 DO (2000) NEXT
|
|
105 DO .6 <- .1
|
|
106 DO (210) NEXT
|
|
107 (213) DO (214) NEXT
|
|
108 PLEASE FORGET #2
|
|
109
|
|
110 PLEASE NOTE COPYING ,2 BACK INTO ,1
|
|
111 DO .1 <- .11
|
|
112 DO (2000) NEXT
|
|
113 DO .2 <- .1
|
|
114 DO .1 <- .12
|
|
115 DO (2000) NEXT
|
|
116 DO (220) NEXT
|
|
117 (220) PLEASE FORGET #1
|
|
118 DO ,1 SUB .2.1 <- ,2 SUB .2.1
|
|
119 DO (221) NEXT
|
|
120 DO (220) NEXT
|
|
121 (222) DO (2000) NEXT
|
|
122 DO .3 <- "?.1$#1"~"#0$#65535"
|
|
123 PLEASE RESUME '?"!3~.3'~#1"$#1'~#3
|
|
124 (221) DO (222) NEXT
|
|
125 PLEASE FORGET #1
|
|
126 DO (223) NEXT
|
|
127 DO .2 <- .1
|
|
128 DO .1 <- .12
|
|
129 DO (2000) NEXT
|
|
130 DO (220) NEXT
|
|
131 (224) DO .1 <- .2
|
|
132 DO (2000) NEXT
|
|
133 DO .3 <- "?.1$#1"~"#0$#65535"
|
|
134 PLEASE RESUME '?"!3~.3'~#1"$#1'~#3
|
|
135 (223) DO (224) NEXT
|
|
136 PLEASE FORGET #1
|
|
137
|
|
138 PLEASE NOTE INCREMENT TIMESTEP AND TEST
|
|
139 DO .1 <- .14
|
|
140 DO (1020) NEXT
|
|
141 DO .14 <- .1
|
|
142 DO (231) NEXT
|
|
143 DO (299) NEXT
|
|
144 (232) DO .3 <- "?.14$.13"~"#0$#65535"
|
|
145 PLEASE RESUME '?"!3~.3'~#1"$#2'~#3
|
|
146 (231) DO (232) NEXT
|
|
147 DO FORGET #1
|
|
148
|
|
149 PLEASE NOTE OVERFLOW TESTING
|
|
150 DO .1 <- .11
|
|
151 DO (2000) NEXT
|
|
152 DO .5 <- .1
|
|
153 DO .1 <- .12
|
|
154 DO (2000) NEXT
|
|
155 DO .6 <- .1
|
|
156 DO .7 <- #0
|
|
157 DO .8 <- #0
|
|
158 DO (240) NEXT
|
|
159 (240) PLEASE FORGET #1
|
|
160 DO .2 <- ,1 SUB #2.6
|
|
161 DO .1 <- .7
|
|
162 DO (500) NEXT
|
|
163 DO .7 <- .1
|
|
164 DO .2 <- ,1 SUB .5.6
|
|
165 DO .1 <- .8
|
|
166 DO (500) NEXT
|
|
167 DO .8 <- .1
|
|
168 DO (241) NEXT
|
|
169 DO .6 <- .1
|
|
170 DO (240) NEXT
|
|
171 (242) DO .1 <- .6
|
|
172 DO (2000) NEXT
|
|
173 DO .3 <- "?.1$#1"~"#0$#65535"
|
|
174 PLEASE RESUME '?"!3~.3'~#1"$#1'~#3
|
|
175 (241) DO (242) NEXT
|
|
176 PLEASE FORGET #1
|
|
177
|
|
178 DO .1 <- .11
|
|
179 DO (2000) NEXT
|
|
180 DO .5 <- .1
|
|
181 DO .1 <- .12
|
|
182 DO (2000) NEXT
|
|
183 DO .6 <- .1
|
|
184 DO .7 <- #0
|
|
185 DO .8 <- #0
|
|
186 DO (250) NEXT
|
|
187 (250) PLEASE FORGET #1
|
|
188 DO .2 <- ,1 SUB .5#2
|
|
189 DO .1 <- .7
|
|
190 DO (500) NEXT
|
|
191 DO .7 <- .1
|
|
192 DO .2 <- ,1 SUB .5.6
|
|
193 DO .1 <- .8
|
|
194 DO (500) NEXT
|
|
195 DO .8 <- .1
|
|
196 DO (251) NEXT
|
|
197 DO .5 <- .1
|
|
198 DO (250) NEXT
|
|
199 (252) DO .1 <- .5
|
|
200 DO (2000) NEXT
|
|
201 DO .3 <- "?.1$#1"~"#0$#65535"
|
|
202 PLEASE RESUME '?"!3~.3'~#1"$#1'~#3
|
|
203 (251) DO (252) NEXT
|
|
204 PLEASE FORGET #1
|
|
205
|
|
206 DO (200) NEXT
|
|
207
|
|
208 (299) DO FORGET #1
|
|
209 PLEASE NOTE END OF MIDDLE, BEGINNING OF END
|
|
210
|
|
211 PLEASE NOTE FINAL POSITION OUTPUT
|
|
212 DO .2 <- .11
|
|
213 DO .1 <- .12
|
|
214 DO (310) NEXT
|
|
215 (310) PLEASE FORGET #1
|
|
216 DO (321) NEXT
|
|
217 DO READ OUT .2
|
|
218 DO READ OUT .1
|
|
219 DO (323) NEXT
|
|
220 (322) PLEASE RESUME "?',1 SUB .2.1'$#1"~#3
|
|
221 (321) DO (322) NEXT
|
|
222 (323) PLEASE FORGET #1
|
|
223 DO (311) NEXT
|
|
224 (312) DO (2010) NEXT
|
|
225 PLEASE FORGET #2
|
|
226 DO (310) NEXT
|
|
227 (311) DO (312) NEXT
|
|
228 DO (313) NEXT
|
|
229 (314) DO .1 <- .2
|
|
230 DO (2010) NEXT
|
|
231 PLEASE FORGET #3
|
|
232 DO .2 <- .1
|
|
233 DO .1 <- .12
|
|
234 DO (310) NEXT
|
|
235 (313) DO (314) NEXT
|
|
236 PLEASE FORGET #2
|
|
237
|
|
238 DO READ OUT .14
|
|
239
|
|
240 PLEASE NOTE END OF END
|
|
241 PLEASE GIVE UP
|
|
242
|
|
243
|
|
244 (500) DO (501) NEXT
|
|
245 DO .1 <- #0
|
|
246 PLEASE RESUME #1
|
|
247 (502) PLEASE RESUME '?.2$#2'~#3
|
|
248 (501) DO (502) NEXT
|
|
249 DO (2020) NEXT
|
|
250 DO (503) NEXT
|
|
251 PLEASE RESUME #2
|
|
252 (504) DO .2 <- "?.1$#3"~"#0$#65535"
|
|
253 PLEASE RESUME '?"!2~.2'~#1"$#1'~#3
|
|
254 (503) DO (504) NEXT
|
|
255 PLEASE FORGET #3
|
|
256 DO (299) NEXT
|
|
257
|
|
258 (2010) PLEASE ABSTAIN FROM (2004)
|
|
259 (2000) PLEASE STASH .2
|
|
260 DO .2 <- #1
|
|
261 DO (2001) NEXT
|
|
262 (2001) PLEASE FORGET #1
|
|
263 DO .1 <- '?.1$.2'~'#0$#65535'
|
|
264 DO (2002) NEXT
|
|
265 DO .2 <- !2$#0'~'#32767$#1'
|
|
266 DO (2001) NEXT
|
|
267 (2003) PLEASE RESUME "?!1~.2'$#1"~#3
|
|
268 (2002) DO (2003) NEXT
|
|
269 PLEASE RETRIEVE .2
|
|
270 (2004) PLEASE RESUME #2
|
|
271 PLEASE DO REINSTATE (2004)
|
|
272 PLEASE RESUME '?"!1~.1'~#1"$#2'~#6
|
|
273
|
|
274 (2020) PLEASE STASH .2 + .3
|
|
275 DO (1021) NEXT
|
|
276
|