996
|
1 PLEASE NOTE THE STARTUP BANNER
|
|
2
|
|
3 PLEASE DO ,1 <- #43
|
|
4 DO ,1SUB#1 <- #176
|
|
5 DO ,1SUB#2 <- #190
|
|
6 DO ,1SUB#3 <- #142
|
|
7 DO ,1SUB#4 <- #146
|
|
8 DO ,1SUB#5 <- #110
|
|
9 DO ,1SUB#6 <- #218
|
|
10 DO ,1SUB#7 <- #38
|
|
11 DO ,1SUB#8 <- #98
|
|
12 DO ,1SUB#9 <- #158
|
|
13 DO ,1SUB#10 <- #186
|
|
14 DO ,1SUB#11 <- #70
|
|
15 DO ,1SUB#12 <- #58
|
|
16 DO ,1SUB#13 <- #198
|
|
17 DO ,1SUB#14 <- #98
|
|
18 DO ,1SUB#15 <- #158
|
|
19 DO ,1SUB#16 <- #66
|
|
20 DO ,1SUB#17 <- #190
|
|
21 DO ,1SUB#18 <- #218
|
|
22 DO ,1SUB#19 <- #38
|
|
23 DO ,1SUB#20 <- #114
|
|
24 DO ,1SUB#21 <- #142
|
|
25 DO ,1SUB#22 <- #18
|
|
26 DO ,1SUB#23 <- #238
|
|
27 DO ,1SUB#24 <- #146
|
|
28 DO ,1SUB#25 <- #110
|
|
29 DO ,1SUB#26 <- #58
|
|
30 DO ,1SUB#27 <- #198
|
|
31 DO ,1SUB#28 <- #0
|
|
32 DO ,1SUB#29 <- #160
|
|
33 DO ,1SUB#30 <- #96
|
|
34 DO ,1SUB#31 <- #0
|
|
35 DO ,1SUB#32 <- #58
|
|
36 DO ,1SUB#33 <- #198
|
|
37 DO ,1SUB#34 <- #250
|
|
38 DO ,1SUB#35 <- #6
|
|
39 DO ,1SUB#36 <- #210
|
|
40 DO ,1SUB#37 <- #46
|
|
41 DO ,1SUB#38 <- #130
|
|
42 DO ,1SUB#39 <- #126
|
|
43 DO ,1SUB#40 <- #218
|
|
44 DO ,1SUB#41 <- #38
|
|
45 DO ,1SUB#42 <- #58
|
|
46 DO ,1SUB#43 <- #122
|
|
47 PLEASE READ OUT ,1
|
|
48
|
|
49 PLEASE NOTE THE INITIALIZATION OF GLOBAL VALUES
|
|
50
|
|
51 PLEASE DO ,5 <- #1
|
|
52 DO ,5SUB#1 <- #0
|
|
53 PLEASE DO ,6 <- #1
|
|
54 DO ,6SUB#1 <- #76
|
|
55 PLEASE DO ,7 <- #1
|
|
56 DO ,7SUB#1 <- #180
|
|
57 PLEASE DO ,11 <- #1
|
|
58 PLEASE DO ,12 <- #2
|
|
59 PLEASE DO ,15 <- #5
|
|
60 PLEASE DO ,16 <- #6
|
|
61 DO ,15SUB#1 <- #240
|
|
62 DO ,15SUB#4 <- #144
|
|
63 DO ,15SUB#5 <- #0
|
|
64 DO (3990) NEXT
|
|
65
|
|
66 DO .11 <- #10
|
|
67 DO .12 <- #4
|
|
68 DO .13 <- #6
|
|
69 PLEASE COME FROM (64)
|
|
70 DO (100) NEXT
|
|
71
|
|
72 PLEASE NOTE THE GAME BEGINNING AND THE COMPUTER CHOOSING A CODE
|
|
73
|
|
74 PLEASE COME FROM (40)
|
|
75
|
|
76 DO .6 <- #1
|
|
77 PLEASE COME FROM (12)
|
|
78 DO (1900) NEXT
|
|
79 DO .1 <- .1~#4095
|
|
80 DO .2 <- .13
|
|
81 DO (1039) NEXT
|
|
82 DO .1 <- .3~#61440
|
|
83 DO (1020) NEXT
|
|
84 DO ,23SUB.6 <- .1
|
|
85 DO .5 <- '?"'#65535~"'?.6$.12'~#21845"'~#1"$#1'~#3
|
|
86 DO (13) NEXT
|
|
87 DO .1 <- .6
|
|
88 DO (1020) NEXT
|
|
89 (12) DO .6 <- .1
|
|
90 (13) DO (1001) NEXT
|
|
91 PLEASE FORGET #1
|
|
92
|
|
93 PLEASE NOTE THE OPENING OF THE GREAT LOOP
|
|
94
|
|
95 DO .10 <- #1
|
|
96 PLEASE COME FROM (42)
|
|
97
|
|
98 PLEASE NOTE THE BOARD BEING DRAWN AND INPUT BEING GATHERED
|
|
99
|
|
100 PLEASE COME FROM (62)
|
|
101 DO .4 <- #1
|
|
102 DO (130) NEXT
|
|
103 DO ,16SUB#1 <- #158
|
|
104 DO ,16SUB#2 <- #192
|
|
105 DO ,16SUB#3 <- #136
|
|
106 DO ,16SUB#4 <- #200
|
|
107 DO ,16SUB#5 <- #70
|
|
108 DO ,16SUB#6 <- #88
|
|
109 PLEASE COME FROM (22)
|
|
110 PLEASE READ OUT ,16
|
|
111 DO .1 <- .12
|
|
112 DO .2 <- .13
|
|
113 DO (3020) NEXT
|
|
114 DO .5 <- .4
|
|
115 DO (23) NEXT
|
|
116 DO .5 <- '?"'#65535~"'?.3$#1'~'#0$#65535'"'~#1"$#1'~#3
|
|
117 PLEASE COME FROM (28)
|
|
118 (26) DO (27) NEXT
|
|
119 (27) DO (1001) NEXT
|
|
120 PLEASE FORGET #1
|
|
121 DO .1 <- ,1SUB#1
|
|
122 DO (50) NEXT
|
|
123 (28) DO ,1SUB#1 <- #82
|
|
124 (23) DO (1001) NEXT
|
|
125 PLEASE FORGET #1
|
|
126 DO .5 <- '?"'#65535~"'?.3$.12'~#21845"'~#1"$#1'~#3
|
|
127 (25) DO (24) NEXT
|
|
128 PLEASE COME FROM (26)
|
|
129 DO ,12SUB#1 <- #8
|
|
130 DO ,12SUB#2 <- #172
|
|
131 (22) PLEASE READ OUT ,12
|
|
132 (24) DO (1001) NEXT
|
|
133 PLEASE FORGET #1
|
|
134 PLEASE READ OUT ,7
|
|
135 DO .1 <- #1
|
|
136 PLEASE COME FROM (20)
|
|
137
|
|
138 DO ,22SUB.10.1 <- ,1SUB.1
|
|
139 DO .5 <- '?"'#65535~"'?.1$.12'~#21845"'~#1"$#1'~#3
|
|
140 DO (21) NEXT
|
|
141 (20) DO (1020) NEXT
|
|
142 (21) DO (1001) NEXT
|
|
143 PLEASE FORGET #1
|
|
144
|
|
145 PLEASE NOTE THE SCORING OF THE GUESS
|
|
146
|
|
147 DO .6 <- #32768
|
|
148 DO .7 <- #0
|
|
149 DO .8 <- #0
|
|
150 DO .2 <- #1
|
|
151 PLEASE COME FROM (30)
|
|
152 DO .9 <- ,23SUB.2
|
|
153 DO .5 <- '?"'#65535~"'?",22SUB.10.2"$.9'~#21845"'~#1"$#2'~#3
|
|
154 DO (31) NEXT
|
|
155 (32) DO .7 <- 'V.7$.6'~'#0$#65535'
|
|
156 (31) DO (1001) NEXT
|
|
157 PLEASE FORGET #1
|
|
158 DO .1 <- #1
|
|
159 PLEASE COME FROM (33)
|
|
160 DO .5 <- '?"'#65535~"'?",22SUB.10.1"$.9'~#21845"'~#1"$#2'~#3
|
|
161 DO (34) NEXT
|
|
162 PLEASE COME FROM (32)
|
|
163 (35) DO .8 <- 'V.8$.6'~'#0$#65535'
|
|
164 (34) DO (1001) NEXT
|
|
165 PLEASE FORGET #1
|
|
166 DO .5 <- '?"'#65535~"'?.1$.12'~#21845"'~#1"$#1'~#3
|
|
167 DO (36) NEXT
|
|
168 (33) DO (1020) NEXT
|
|
169 (36) DO (1001) NEXT
|
|
170 PLEASE FORGET #1
|
|
171 PLEASE COME FROM (35)
|
|
172 DO .6 <- .6~#65534
|
|
173 DO .5 <- '?"'#65535~"'?.2$.12'~#21845"'~#1"$#1'~#3
|
|
174 DO (37) NEXT
|
|
175 DO .1 <- .2
|
|
176 DO (1020) NEXT
|
|
177 (30) DO .2 <- .1
|
|
178 (37) DO (1001) NEXT
|
|
179 PLEASE FORGET #1
|
|
180 DO ,21SUB.10#1 <- .7~.7
|
|
181 DO ,21SUB.10#2 <- .8~.8
|
|
182 DO .6 <- ',21SUB.10#1'~.20
|
|
183
|
|
184 PLEASE NOTE THE CLOSING OF THE GREAT LOOP
|
|
185
|
|
186 DO .5 <- '?.6$#2'~#3
|
|
187 DO (41) NEXT
|
|
188 DO .5 <- '?"'#65535~"'?.10$.11'~#21845"'~#1"$#1'~#3
|
|
189 DO (41) NEXT
|
|
190 DO .1 <- .10
|
|
191 DO (1020) NEXT
|
|
192 (42) DO .10 <- .1
|
|
193 (41) DO (1001) NEXT
|
|
194 PLEASE FORGET #1
|
|
195 DO .1 <- .10
|
|
196 DO (1020) NEXT
|
|
197 DO .10 <- .1
|
|
198 DO .4 <- #2
|
|
199 DO (130) NEXT
|
|
200
|
|
201 PLEASE NOTE THE GAME'S DENOUEMENT
|
|
202
|
|
203 DO ,16SUB#1 <- #118
|
|
204 DO ,16SUB#2 <- #24
|
|
205 DO ,16SUB#3 <- #80
|
|
206 DO ,16SUB#4 <- #232
|
|
207 DO ,16SUB#5 <- #208
|
|
208 DO ,16SUB#6 <- #182
|
|
209 PLEASE READ OUT ,16
|
|
210 DO .1 <- #1
|
|
211 DO .2 <- #0
|
|
212 DO (3020) NEXT
|
|
213 DO .5 <- '?"'#65535~"'?.3$#1'~'#0$#65535'"'~#1"$#2'~#3
|
|
214 DO (43) NEXT
|
|
215 DO .1 <- ,1SUB#1
|
|
216 DO (59) NEXT
|
|
217 DO (44) NEXT
|
|
218 (43) DO (1001) NEXT
|
|
219 (44) PLEASE FORGET #1
|
|
220 PLEASE COME FROM (63)
|
|
221 (40) PLEASE READ OUT ,7
|
|
222
|
|
223 PLEASE NOTE THE HANDLING OF USER COMMANDS
|
|
224
|
|
225 (50) DO .5 <- '?"'#65535~"'?.1$#82'~#21845"'~#1"$#1'~#3
|
|
226 DO (52) NEXT
|
|
227 DO .5 <- '?"'#65535~"'?.1$#78'~#21845"'~#1"$#1'~#3
|
|
228 DO (53) NEXT
|
|
229 (59) DO .5 <- '?"'#65535~"'?.1$#67'~#21845"'~#1"$#1'~#3
|
|
230 DO (54) NEXT
|
|
231 DO .5 <- '?"'#65535~"'?.1$#81'~#21845"'~#1"$#1'~#3
|
|
232 DO (55) NEXT
|
|
233 DO RESUME #1
|
|
234 (52) DO (1001) NEXT
|
|
235 PLEASE FORGET #2
|
|
236 (62) PLEASE READ OUT ,7
|
|
237 (53) DO (1001) NEXT
|
|
238 (63) PLEASE FORGET #2
|
|
239 (54) DO (1001) NEXT
|
|
240 DO ,11SUB#1 <- #88
|
|
241 DO ,12SUB#1 <- #54
|
|
242 DO ,12SUB#2 <- #190
|
|
243 PLEASE READ OUT ,7 + ,12 + ,11
|
|
244 PLEASE WRITE IN .1
|
|
245 DO .5 <- '?"'.1~.1'~#1"$#1'~#3
|
|
246 DO (51) NEXT
|
|
247 DO ,12SUB#1 <- #106
|
|
248 DO ,12SUB#2 <- #62
|
|
249 PLEASE READ OUT ,12 + ,11
|
|
250 PLEASE WRITE IN .2
|
|
251 DO .5 <- '?"'.2~.2'~#1"$#1'~#3
|
|
252 DO (51) NEXT
|
|
253 DO ,12SUB#1 <- #146
|
|
254 DO ,12SUB#2 <- #22
|
|
255 PLEASE READ OUT ,12 + ,11
|
|
256 PLEASE WRITE IN .3
|
|
257 DO .5 <- '?"'.3~.3'~#1"$#1'~#3
|
|
258 DO (51) NEXT
|
|
259 DO .11 <- .1~#15
|
|
260 DO .12 <- .2~#15
|
|
261 DO .13 <- .3~#15
|
|
262 PLEASE FORGET #2
|
|
263 (64) PLEASE READ OUT ,7
|
|
264 (51) DO (1001) NEXT
|
|
265 PLEASE RESUME #3
|
|
266 (55) DO (1001) NEXT
|
|
267 PLEASE FORGET #2
|
|
268 PLEASE READ OUT ,7
|
|
269 PLEASE GIVE UP
|
|
270
|
|
271 PLEASE NOTE THE SUBROUTINE TO INITIALIZE GLOBAL VARIABLES
|
|
272
|
|
273 (100) DO ,21 <- .11 BY #2
|
|
274 DO ,22 <- .11 BY .12
|
|
275 DO ,23 <- .12
|
|
276
|
|
277 DO .20 <- #1
|
|
278 DO .1 <- #1
|
|
279 PLEASE COME FROM (104)
|
|
280 DO .5 <- '?"'#65535~"'?.1$.12'~#21845"'~#1"$#1'~#3
|
|
281 DO (105) NEXT
|
|
282 DO .20 <- !20$#0'~'#32767$#1'
|
|
283 (104) DO (1020) NEXT
|
|
284 (105) DO (1001) NEXT
|
|
285 PLEASE FORGET #1
|
|
286
|
|
287 DO ,1 <- .12
|
|
288 DO ,2 <- .13
|
|
289 DO ,10 <- .13 BY #2
|
|
290 DO .1 <- #1
|
|
291 PLEASE COME FROM (102)
|
|
292 DO .2 <- 'V.1$#48'~#21845
|
|
293 DO ,2SUB.1 <- .2
|
|
294 DO .2 <- !2~#15'$!2~#240'
|
|
295 DO .2 <- !2~#15'$!2~#240'
|
|
296 DO .2 <- !2~#15'$!2~#240'
|
|
297 DO .4 <- .1
|
|
298 DO .1 <- #20
|
|
299 DO (1010) NEXT
|
|
300 DO .1 <- .4
|
|
301 DO ,10SUB.1#1 <- .3~#255
|
|
302 DO ,10SUB.1#2 <- '?.3$#112'~#21845
|
|
303 DO .5 <- '?"'#65535~"'?.1$.13'~#21845"'~#1"$#1'~#3
|
|
304 DO (103) NEXT
|
|
305 (102) DO (1020) NEXT
|
|
306 (103) DO (1001) NEXT
|
|
307 PLEASE RESUME #2
|
|
308
|
|
309 PLEASE NOTE THE SUBROUTINE TO DISPLAY THE BOARD
|
|
310
|
|
311 (130) PLEASE STASH .1 + .2 + .3 + .4 + .5
|
|
312 DO .4 <- .20
|
|
313 DO .5 <- '?".12~#1"$#1'~#3
|
|
314 DO (131) NEXT
|
|
315 DO .4 <- !4$#0'~'#32767$#1'
|
|
316 DO (132) NEXT
|
|
317 (131) DO (1001) NEXT
|
|
318 (132) PLEASE FORGET #1
|
|
319 DO .2 <- .4
|
|
320
|
|
321 PLEASE COME FROM (140)
|
|
322 PLEASE READ OUT ,6
|
|
323 DO .1 <- #1
|
|
324 PLEASE COME FROM (134)
|
|
325 DO .5 <- '?"'#65535~"'?.1$.10'~#21845"'~#1"$#1'~#3
|
|
326 DO (133) NEXT
|
|
327 DO .3 <- .2~#65534
|
|
328 PLEASE COME FROM (135)
|
|
329 DO .5 <- '?"',21SUB.1#1'~.3"$#1'~#3
|
|
330 DO (139) NEXT
|
|
331 DO ,12SUB#1 <- #176
|
|
332 DO ,12SUB#2 <- #80
|
|
333 DO (137) NEXT
|
|
334 (139) DO (1001) NEXT
|
|
335 PLEASE FORGET #1
|
|
336 DO .5 <- '?"',21SUB.1#2'~.3"$#1'~#3
|
|
337 DO (138) NEXT
|
|
338 DO ,12SUB#1 <- #48
|
|
339 DO ,12SUB#2 <- #208
|
|
340 DO (137) NEXT
|
|
341 (138) DO (1001) NEXT
|
|
342 DO ,12SUB#1 <- #0
|
|
343 DO ,12SUB#2 <- #0
|
|
344 (137) PLEASE FORGET #1
|
|
345 PLEASE READ OUT ,12
|
|
346 DO .5 <- '?".3~.2"$#2'~#3
|
|
347 DO (136) NEXT
|
|
348 (135) DO .3 <- .2
|
|
349 (136) DO (1001) NEXT
|
|
350 PLEASE FORGET #1
|
|
351 PLEASE READ OUT ,5
|
|
352 (134) DO (1020) NEXT
|
|
353 (133) DO (1001) NEXT
|
|
354 PLEASE FORGET #1
|
|
355 PLEASE READ OUT ,7
|
|
356 DO .2 <- .2~#65532
|
|
357 DO .5 <- '?".2~.2"$#1'~#3
|
|
358 (140) DO (141) NEXT
|
|
359 (141) DO (1001) NEXT
|
|
360 PLEASE FORGET #1
|
|
361
|
|
362 PLEASE RETRIEVE .4
|
|
363 DO ,16SUB#1 <- #0
|
|
364 DO ,16SUB#2 <- #0
|
|
365 DO ,16SUB#3 <- #240
|
|
366 DO ,16SUB#6 <- #68
|
|
367 DO .2 <- #0
|
|
368 PLEASE COME FROM (150)
|
|
369 DO .1 <- .2
|
|
370 DO (1020) NEXT
|
|
371 DO .2 <- .1
|
|
372 PLEASE READ OUT ,6
|
|
373 DO .1 <- #1
|
|
374 DO .3 <- #0
|
|
375 PLEASE COME FROM (142)
|
|
376 DO .5 <- '?"'#65535~"'?.1$.10'~#21845"'~#1"$#1'~#3
|
|
377 DO (149) NEXT
|
|
378 DO .5 <- ,22SUB.1.2
|
|
379 DO ,15SUB#2 <- ,10SUB.5#1
|
|
380 DO ,15SUB#3 <- ,10SUB.5#2
|
|
381 PLEASE READ OUT ,15
|
|
382 DO .3 <- .1
|
|
383 (142) DO (1020) NEXT
|
|
384 (149) DO (1001) NEXT
|
|
385 DO ,15SUB#2 <- #16
|
|
386 DO ,15SUB#3 <- #112
|
|
387 (148) DO .1 <- .3
|
|
388 PLEASE COME FROM (144)
|
|
389 PLEASE READ OUT ,15
|
|
390 DO (1020) NEXT
|
|
391 PLEASE COME FROM (148)
|
|
392 DO .5 <- '?"'#65535~"'?.1$.11'~#21845"'~#1"$#1'~#3
|
|
393 (144) DO (143) NEXT
|
|
394 (143) DO (1001) NEXT
|
|
395 PLEASE FORGET #2
|
|
396 DO .5 <- .4
|
|
397 DO (145) NEXT
|
|
398 DO .5 <- ,23SUB.2
|
|
399 DO ,16SUB#4 <- ,10SUB.5#1
|
|
400 DO ,16SUB#5 <- ,10SUB.5#2
|
|
401 DO (146) NEXT
|
|
402 (145) DO (1001) NEXT
|
|
403 DO ,16SUB#4 <- #24
|
|
404 DO ,16SUB#5 <- #104
|
|
405 (146) PLEASE FORGET #1
|
|
406 PLEASE READ OUT ,16
|
|
407 DO .5 <- '?"'#65535~"'?.2$.12'~#21845"'~#1"$#1'~#3
|
|
408 (150) DO (147) NEXT
|
|
409 (147) DO (1001) NEXT
|
|
410 PLEASE FORGET #1
|
|
411 PLEASE READ OUT ,5
|
|
412 PLEASE RETRIEVE .1 + .2 + .3 + .5
|
|
413 PLEASE RESUME #1
|
|
414
|
|
415 PLEASE USE THE AUTHORIZED CHANNELS
|
|
416
|
|
417 (3000) DO STASH .2 + .3
|
|
418 DO .1 <- ,3000SUB#1
|
|
419 PLEASE WRITE IN ,3000
|
|
420 DO .2 <- ,3000SUB#1
|
|
421 DO (1000) NEXT
|
|
422 DO .1 <- .3~#255
|
|
423 DO ,3000SUB#1 <- .1
|
|
424 DO RETRIEVE .2 + .3
|
|
425 PLEASE RESUME #1
|
|
426
|
|
427 (3020) PLEASE STASH .1 + .5 + .6 + .7
|
|
428 DO (1020) NEXT
|
|
429 DO .3 <- #0
|
|
430 DO .4 <- #6
|
|
431 DO .6 <- .1
|
|
432 DO (3022) NEXT
|
|
433 (3021) DO (1001) NEXT
|
|
434 (3022) PLEASE FORGET #1
|
|
435 DO (3000) NEXT
|
|
436 DO .5 <- '?"?.1~#256"$#2'~#3
|
|
437 DO (3023) NEXT
|
|
438 DO .5 <- '?"'#65535~"'?.1$#10'~#21845"'~#1"$#1'~#3
|
|
439 DO (3023) NEXT
|
|
440 DO .7 <- .1
|
|
441 DO .1 <- .3
|
|
442 PLEASE DO (1020) NEXT
|
|
443 DO .3 <- .1
|
|
444 DO .5 <- .4~#3
|
|
445 DO (3021) NEXT
|
|
446 DO .5 <- '?"'#65535~"'?.3$.6'~'#0$#65535'"'~#1"$#1'~#3
|
|
447 DO .4 <- !4$.5'~#37
|
|
448 DO (3021) NEXT
|
|
449 (3027) DO .1 <- #0
|
|
450 PLEASE COME FROM (3024)
|
|
451 PLEASE DO (1020) NEXT
|
|
452 DO .5 <- '?"'#65535~"'?.7$",2SUB.1"'~#21845"'~#1"$#1'~#3
|
|
453 DO (3025) NEXT
|
|
454 PLEASE COME FROM (3027)
|
|
455 DO .5 <- '?"'#65535~"'?.1$.2'~'#0$#65535'"'~#1"$#1'~#3
|
|
456 (3024) DO (3026) NEXT
|
|
457 (3026) DO (1001) NEXT
|
|
458 PLEASE FORGET #1
|
|
459 PLEASE DO ,1SUB.3 <- .7
|
|
460 DO .4 <- .4~#3
|
|
461 DO (3022) NEXT
|
|
462 (3025) DO (1001) NEXT
|
|
463 PLEASE FORGET #1
|
|
464 PLEASE DO ,1SUB.3 <- .1
|
|
465 DO (3022) NEXT
|
|
466 (3023) DO (1001) NEXT
|
|
467 PLEASE RETRIEVE .1 + .5 + .6 + .7
|
|
468 DO .4 <- '?#2$.&4'~#6
|
|
469 PLEASE RESUME #2
|
|
470
|
|
471 (3990) DO ,3000 <- #1
|
|
472 DO ,3000SUB#1 <- #0
|
|
473 DO ,3001 <- #1
|
|
474 DO ,3001SUB#1 <- #0
|
|
475 PLEASE RESUME #1
|