4 Rem Let scr& = _NewImage(800, 600, 256)
11 declare sub dice1 as type integer
12 declare sub dice2 as type integer
13 declare sub dice3 as type integer
14 declare sub dice4 as type integer
15 declare sub dice5 as type integer
16 declare sub dice6 as type integer
17 declare sub dice7 as type integer
18 declare sub dice8 as type integer
19 declare sub dice9 as type integer
20 declare sub dice0 as type integer
21 declare sub number1 as type integer
22 declare sub number2 as type integer
23 declare sub number3 as type integer
24 declare sub number4 as type integer
25 declare sub number5 as type integer
26 declare sub number6 as type integer
27 declare sub number7 as type integer
28 declare sub number8 as type integer
29 declare sub number9 as type integer
30 declare sub number0 as type integer
31 declare sub numberA as type integer
32 declare sub numberB as type integer
33 declare sub numberC as type integer
34 declare sub numberD as type integer
35 declare sub numberE as type integer
36 declare sub numberF as type integer
37 declare sub numberG as type integer
38 declare sub numberH as type integer
39 declare sub numberI as type integer
40 declare sub numberJ as type integer
41 declare sub letter1 as type integer
42 declare sub letter2 as type integer
43 declare sub letter3 as type integer
44 declare sub letter4 as type integer
45 declare sub letter5 as type integer
46 declare sub letter6 as type integer
47 declare sub letter7 as type integer
48 declare sub letter8 as type integer
49 declare sub letter9 as type integer
50 declare sub letter0 as type integer
51 declare sub letterA as type integer
52 declare sub letterB as type integer
53 declare sub letterC as type integer
54 declare sub letterD as type integer
55 declare sub letterE as type integer
56 declare sub letterF as type integer
57 declare sub letterG as type integer
58 declare sub letterH as type integer
59 declare sub letterI as type integer
60 declare sub letterJ as type integer
61 declare sub king as type integer
62 declare sub queen as type integer
63 declare sub bishop as type integer
64 declare sub knight as type integer
65 declare sub rook as type integer
66 declare sub pawn as type integer
67 declare sub cannon as type integer
68 declare sub lance as type integer
69 declare sub general as type integer
70 declare sub tokin as type integer
71 declare sub dragon as type integer
72 declare sub horse as type integer
73 declare sub dame as type integer
74 declare sub checker as type integer
75 declare sub cells as type integer
76 declare sub dices as type integer
77 declare sub chessboard as type integer
78 declare sub makrukboard as type integer
79 declare sub xiangqiboard as type integer
80 declare sub shogiboard as type integer
81 declare sub draughtsboard as type integer
82 declare sub chess as type string
83 declare sub makruk as type string
84 declare sub xiangqi as type string
85 declare sub shogi as type string
86 declare sub draughts as type string
87 declare sub chessfen as type string
88 declare sub makrukfen as type string
89 declare sub xiangqifen as type string
90 declare sub shogifen as type string
91 declare sub draughtsfen as type string
93 Common Shared x, y, cd1, cd2, cn, cl, cf, cb1, cb2, cb3, cb4, cb5 As Integer
94 Common Shared dc1, dc2, dc3, dc4, dc5, dc6, w1, b1, w2, b2, w3, b3, w4, b4, fw1, fb1, fw2, fb2, fw3, fb3, fw4, fb4, row, col, index, count As Integer
95 Common Shared fw1x, fw1y, fb1x, fb1y, fw2x, fw2y, fb2x, fb2y, fw3x, fw3y, fb3x, fb3y, fw4x, fw4y, fb4x, fb4y As Integer
96 Common Shared fig1w, fig1b, fig2w, fig2b, fig3w, fig3b, fig4w, fig4b, mas1, mas2, mas3, mas4, mas5, mas6, mas7, mas8, mas9, mas0, lin1, lin2, lin3, lin4, lin5, lin6, lin7, lin8, lin9, lin0, fen As String
97 Let cd1 = 2: Let cd2 = 15: Let cn = 7: Let cl = 14: Let cf = 1: Let cb1 = 7: Let cb2 = 6: Let cb3 = 3: Let cb4 = 13: Let cb5 = 9
99 Dim Shared board(8, 8) As Integer
101 For row = 1 To 8: For col = 1 To 8
102 Let board(row, col) = index + 1
103 Let index = index + 1
106 Dim Shared xiabo(10, 9) As Integer
108 For row = 1 To 10: For col = 1 To 9
109 Let xiabo(row, col) = index + 1
110 Let index = index + 1
113 Dim Shared shobo(9, 9) As Integer
115 For row = 1 To 9: For col = 1 To 9
116 Let shobo(row, col) = index + 1
117 Let index = index + 1
120 Dim Shared drabo(10, 10) As Integer
122 For row = 1 To 10: For col = 1 To 10
123 Let drabo(row, col) = index + 1
124 Let index = index + 1
125 Next col: Let index = index + 1: Next row
127 Line (2, 2)-(122, 4), 14, BF: Line -(120, 338), 14, BF: Line -(2, 336), 14, BF: Line -(4, 2), 14, BF
128 Line (4, 42)-(120, 44), 14, BF: Paint (20, 20), 8, 14
129 Line (128, 2)-(248, 4), 14, BF: Line -(246, 338), 14, BF: Line -(128, 336), 14, BF: Line -(130, 2), 14, BF
130 Line (130, 42)-(246, 44), 14, BF: Paint (160, 20), 8, 14
131 Line (254, 2)-(394, 4), 14, BF: Line -(392, 386), 14, BF: Line -(254, 384), 14, BF: Line -(256, 2), 14, BF
132 Line (256, 42)-(392, 44), 14, BF: Paint (300, 20), 8, 14
133 Line (400, 2)-(637, 4), 14, BF: Line -(635, 338), 14, BF: Line -(400, 336), 14, BF: Line -(402, 2), 14, BF
134 Line (402, 42)-(635, 44), 14, BF: Paint (440, 20), 8, 14
135 Line (2, 344)-(248, 346), 14, BF: Line -(246, 432), 14, BF: Line -(2, 430), 14, BF: Line -(4, 344), 14, BF
136 Line (4, 378)-(246, 376), 14, BF: Paint (20, 360), 8, 14
137 Color 14, 8: Locate 2, 4: Print "1 - Chess": Locate 2, 19: Print "2 - Makruk": Locate 2, 36: Print "3 - Xiangqi": Locate 2, 61: Print "4 - Shogi": Locate 23, 10: Print "5 - Draughts"
138 Color 12, 0: Locate 23, 52: Print "Press number to select game": Locate 24, 59: Print "or Esc to exit"
141 Let x = 10: For y = 50 To 300 Step 48
144 Let x = 10: Let y = 50: Call king
145 Let x = 10: Let y = y + 48: Call queen
146 Let x = 10: Let y = y + 48: Call bishop
147 Let x = 10: Let y = y + 48: Call knight
148 Let x = 10: Let y = y + 48: Call rook
149 Let x = 10: Let y = y + 48: Call pawn
150 Locate 5, 9: Print "King": Locate 8, 9: Print "Queen"
151 Locate 11, 9: Print "Bishop": Locate 14, 9: Print "Knight"
152 Locate 17, 9: Print "Rook": Locate 20, 9: Print "Pawn"
153 Let x = 136: For y = 50 To 300 Step 48
156 Let x = 136: Let y = 50: Call king
157 Let x = 136: Let y = y + 48: Call queen
158 Let x = 136: Let y = y + 48: Call bishop
159 Let x = 136: Let y = y + 48: Call knight
160 Let x = 136: Let y = y + 48: Call rook
161 Let x = 136: Let y = y + 48: Call checker
162 Locate 5, 25: Print "Lord": Locate 8, 25: Print "Seed"
163 Locate 11, 25: Print "Noble": Locate 14, 25: Print "Horse"
164 Locate 17, 25: Print "Boat": Locate 20, 25: Print "Shell"
165 Let x = 262: For y = 50 To 350 Step 48
168 Let x = 262: Let y = 50: Call king
169 Let x = 262: Let y = y + 48: Call queen
170 Let x = 262: Let y = y + 48: Call bishop
171 Let x = 262: Let y = y + 48: Call knight
172 Let x = 262: Let y = y + 48: Call rook
173 Let x = 262: Let y = y + 48: Call cannon
174 Let x = 262: Let y = y + 48: Call pawn
175 Locate 5, 41: Print "General": Locate 8, 41: Print "Advisor"
176 Locate 11, 41: Print "Elephant": Locate 14, 41: Print "Horse"
177 Locate 17, 41: Print "Chariot": Locate 20, 41: Print "Cannon"
178 Locate 23, 41: Print "Soldier"
179 Let x = 408: For y = 50 To 300 Step 48
182 Let x = 528: For y = 50 To 250 Step 48
185 Let x = 408: Let y = 50: Call king
186 Let x = 408: Let y = y + 48: Call queen
187 Let x = 408: Let y = y + 48: Call general
188 Let x = 408: Let y = y + 48: Call bishop
189 Let x = 408: Let y = y + 48: Call knight
190 Let x = 408: Let y = y + 48: Call rook
191 Let x = 528: Let y = 50: Call lance
192 Let x = 528: Let y = y + 48: Call pawn
193 Let x = 528: Let y = y + 48: Call horse
194 Let x = 528: Let y = y + 48: Call dragon
195 Let x = 528: Let y = y + 48: Call tokin
196 Locate 5, 59: Print "King": Locate 8, 59: Print "Gold"
197 Locate 11, 59: Print "Silver": Locate 14, 59: Print "Bishop"
198 Locate 17, 59: Print "Knight": Locate 20, 59: Print "Rook"
199 Locate 5, 74: Print "Lance": Locate 8, 74: Print "Pawn"
200 Locate 11, 74: Print "Horse": Locate 14, 74: Print "Dragon"
201 Locate 17, 74: Print "Tokin"
202 Let x = 10: Let y = 384
203 Call cells: Call checker
204 Let x = 136: Let y = 384
205 Call cells: Call dame
206 Locate 26, 9: Print "Checker": Locate 26, 25: Print "Dame"
247 Line (x, y)-(40 + x, 40 + y), cd1, BF
248 Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
252 Line (x, y)-(40 + x, 40 + y), cd1, BF
253 Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
254 Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
258 Line (x, y)-(40 + x, 40 + y), cd1, BF
259 Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
260 Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
261 Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
265 Line (x, y)-(40 + x, 40 + y), cd1, BF
266 Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
267 Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
268 Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
269 Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
273 Line (x, y)-(40 + x, 40 + y), cd1, BF
274 Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
275 Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
276 Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
277 Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
278 Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
282 Line (x, y)-(40 + x, 40 + y), cd1, BF
283 Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
284 Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
285 Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
286 Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
287 Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
288 Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
292 Line (x, y)-(40 + x, 40 + y), cd1, BF
293 Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
294 Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
295 Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
296 Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
297 Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
298 Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
299 Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
303 Line (x, y)-(40 + x, 40 + y), cd1, BF
304 Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
305 Line (16 + x, 4 + y)-(24 + x, 12 + y), cd2, BF
306 Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
307 Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
308 Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
309 Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
310 Line (16 + x, 28 + y)-(24 + x, 36 + y), cd2, BF
311 Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
315 Line (x, y)-(40 + x, 40 + y), cd1, BF
316 Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
317 Line (16 + x, 4 + y)-(24 + x, 12 + y), cd2, BF
318 Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
319 Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
320 Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
321 Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
322 Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
323 Line (16 + x, 28 + y)-(24 + x, 36 + y), cd2, BF
324 Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
328 Line (x, y)-(40 + x, 40 + y), cd1, BF
329 Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
330 Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
331 Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
332 Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
333 Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
334 Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
335 Line (16 + x, 1 + y)-(24 + x, 9 + y), cd2, BF
336 Line (16 + x, 11 + y)-(24 + x, 19 + y), cd2, BF
337 Line (16 + x, 21 + y)-(24 + x, 29 + y), cd2, BF
338 Line (16 + x, 31 + y)-(24 + x, 39 + y), cd2, BF
342 Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
343 Line (5 + x, 8 + y)-(6 + x, 1 + y), cn, BF
344 Line (4 + x, 2 + y)-(1 + x, 5 + y), cn
345 Line (4 + x, 3 + y)-(1 + x, 6 + y), cn
349 Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
350 Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
351 Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
352 Line (1 + x, 8 + y)-(2 + x, 7 + y), cn, BF
353 Line (10 + x, 4 + y)-(9 + x, 3 + y), cn, BF
357 Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
358 Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
359 Line (5 + x, 5 + y)-(9 + x, 6 + y), cn, BF
360 Line (9 + x, 2 + y)-(10 + x, 4 + y), cn, BF
361 Line (9 + x, 7 + y)-(10 + x, 9 + y), cn, BF
365 Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
366 Line (1 + x, 1 + y)-(2 + x, 4 + y), cn, BF
367 Line (9 + x, 1 + y)-(10 + x, 10 + y), cn, BF
371 Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
372 Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
373 Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
374 Line (10 + x, 8 + y)-(9 + x, 7 + y), cn, BF
375 Line (2 + x, 4 + y)-(1 + x, 3 + y), cn, BF
379 Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
380 Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
381 Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
382 Line (10 + x, 8 + y)-(9 + x, 7 + y), cn, BF
383 Line (1 + x, 8 + y)-(2 + x, 3 + y), cn, BF
387 Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
388 Line (10 + x, 3 + y)-(3 + x, 10 + y), cn
389 Line (9 + x, 3 + y)-(2 + x, 10 + y), cn
390 Line (8 + x, 3 + y)-(1 + x, 10 + y), cn
394 Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
395 Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
396 Line (2 + x, 6 + y)-(9 + x, 5 + y), cn, BF
397 Line (1 + x, 2 + y)-(2 + x, 4 + y), cn, BF
398 Line (1 + x, 7 + y)-(2 + x, 9 + y), cn, BF
399 Line (9 + x, 2 + y)-(10 + x, 4 + y), cn, BF
400 Line (9 + x, 7 + y)-(10 + x, 9 + y), cn, BF
404 Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
405 Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
406 Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
407 Line (10 + x, 8 + y)-(9 + x, 3 + y), cn, BF
408 Line (2 + x, 4 + y)-(1 + x, 3 + y), cn, BF
412 Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
413 Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
414 Line (1 + x, 2 + y)-(2 + x, 9 + y), cn, BF
415 Line (9 + x, 2 + y)-(10 + x, 9 + y), cn, BF
419 Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
420 Line (1 + x, 2 + y)-(2 + x, 10 + y), cn, BF
421 Line (9 + x, 2 + y)-(10 + x, 10 + y), cn, BF
422 Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
426 Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
427 Line (1 + x, 10 + y)-(9 + x, 9 + y), cn, BF
428 Line (1 + x, 6 + y)-(9 + x, 5 + y), cn, BF
429 Line (1 + x, 2 + y)-(9 + x, 1 + y), cn, BF
430 Line (9 + x, 2 + y)-(10 + x, 4 + y), cn, BF
431 Line (9 + x, 7 + y)-(10 + x, 9 + y), cn, BF
435 Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
436 Line (1 + x, 1 + y)-(10 + x, 2 + y), cn, BF
437 Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
441 Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
442 Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
443 Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
444 Line (9 + x, 2 + y)-(10 + x, 9 + y), cn, BF
448 Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
449 Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
450 Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
451 Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
455 Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
456 Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
457 Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
461 Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
462 Line (8 + x, 6 + y)-(6 + x, 5 + y), cn, BF
463 Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
464 Line (10 + x, 8 + y)-(9 + x, 5 + y), cn, BF
465 Line (1 + x, 8 + y)-(2 + x, 3 + y), cn, BF
469 Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
470 Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
471 Line (9 + x, 1 + y)-(10 + x, 10 + y), cn, BF
475 Line (3 + x, 2 + y)-(8 + x, 1 + y), cn, BF
476 Line (3 + x, 10 + y)-(8 + x, 9 + y), cn, BF
477 Line (5 + x, 3 + y)-(6 + x, 8 + y), cn, BF
481 Line (1 + x, 6 + y)-(2 + x, 9 + y), cn, BF
482 Line (9 + x, 1 + y)-(10 + x, 9 + y), cn, BF
483 Line (2 + x, 9 + y)-(9 + x, 10 + y), cn, BF
487 Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
488 Line (18 + x, 31 + y)-(22 + x, 4 + y), cl, BF
489 Line (17 + x, 4 + y)-(4 + x, 17 + y), cl
490 Line (17 + x, 5 + y)-(5 + x, 17 + y), cl
491 Line (17 + x, 6 + y)-(6 + x, 17 + y), cl
492 Line (17 + x, 7 + y)-(7 + x, 17 + y), cl
496 Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
497 Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
498 Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
499 Line (32 + x, 9 + y)-(36 + x, 17 + y), cl, BF
500 Line (4 + x, 23 + y)-(8 + x, 31 + y), cl, BF
504 Line (4 + x, 4 + y)-(34 + x, 8 + y), cl, BF
505 Line (4 + x, 36 + y)-(34 + x, 32 + y), cl, BF
506 Line (36 + x, 23 + y)-(32 + x, 34 + y), cl, BF
507 Line (32 + x, 6 + y)-(36 + x, 17 + y), cl, BF
508 Line (18 + x, 18 + y)-(34 + x, 22 + y), cl, BF
509 Line (30 + x, 17 + y)-(31 + x, 17 + y), cl
510 Line (30 + x, 23 + y)-(31 + x, 23 + y), cl
511 Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
512 Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
513 PSet (31 + x, 10 + y), cl: PSet (31 + x, 30 + y), cl
514 PSet (31 + x, 16 + y), cl: PSet (31 + x, 24 + y), cl
515 PSet (35 + x, 18 + y), cl: PSet (35 + x, 22 + y), cl
516 PSet (35 + x, 5 + y), cl: PSet (35 + x, 35 + y), cl
520 Line (4 + x, 4 + y)-(8 + x, 17 + y), cl, BF
521 Line (32 + x, 4 + y)-(36 + x, 36 + y), cl, BF
522 Line (4 + x, 18 + y)-(34 + x, 22 + y), cl, BF
526 Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
527 Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
528 Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
529 Line (4 + x, 9 + y)-(8 + x, 17 + y), cl, BF
530 Line (32 + x, 23 + y)-(36 + x, 31 + y), cl, BF
534 Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
535 Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
536 Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
537 Line (4 + x, 9 + y)-(8 + x, 31 + y), cl, BF
538 Line (32 + x, 23 + y)-(36 + x, 31 + y), cl, BF
542 Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
543 Line (8 + x, 36 + y)-(35 + x, 9 + y), cl
544 Line (7 + x, 36 + y)-(34 + x, 9 + y), cl
545 Line (6 + x, 36 + y)-(33 + x, 9 + y), cl
546 Line (5 + x, 36 + y)-(32 + x, 9 + y), cl
550 Line (8 + x, 23 + y)-(4 + x, 34 + y), cl, BF
551 Line (4 + x, 6 + y)-(8 + x, 17 + y), cl, BF
552 Line (6 + x, 4 + y)-(34 + x, 8 + y), cl, BF
553 Line (6 + x, 36 + y)-(34 + x, 32 + y), cl, BF
554 Line (36 + x, 23 + y)-(32 + x, 34 + y), cl, BF
555 Line (32 + x, 6 + y)-(36 + x, 17 + y), cl, BF
556 Line (6 + x, 18 + y)-(34 + x, 22 + y), cl, BF
557 Line (30 + x, 17 + y)-(31 + x, 17 + y), cl
558 Line (30 + x, 23 + y)-(31 + x, 23 + y), cl
559 Line (10 + x, 17 + y)-(9 + x, 17 + y), cl
560 Line (10 + x, 23 + y)-(9 + x, 23 + y), cl
561 Line (9 + x, 31 + y)-(10 + x, 31 + y), cl
562 Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
563 Line (9 + x, 9 + y)-(10 + x, 9 + y), cl
564 Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
565 PSet (35 + x, 5 + y), cl: PSet (35 + x, 35 + y), cl
566 PSet (5 + x, 5 + y), cl: PSet (5 + x, 35 + y), cl
567 PSet (9 + x, 30 + y), cl: PSet (31 + x, 30 + y), cl
568 PSet (9 + x, 10 + y), cl: PSet (31 + x, 10 + y), cl
569 PSet (5 + x, 18 + y), cl: PSet (5 + x, 22 + y), cl
570 PSet (9 + x, 16 + y), cl: PSet (9 + x, 24 + y), cl
571 PSet (31 + x, 16 + y), cl: PSet (31 + x, 24 + y), cl
572 PSet (35 + x, 18 + y), cl: PSet (35 + x, 22 + y), cl
576 Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
577 Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
578 Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
579 Line (32 + x, 9 + y)-(36 + x, 31 + y), cl, BF
583 Line (6 + x, 4 + y)-(34 + x, 8 + y), cl, BF
584 Line (6 + x, 36 + y)-(34 + x, 32 + y), cl, BF
585 Line (4 + x, 6 + y)-(8 + x, 34 + y), cl, BF
586 Line (36 + x, 6 + y)-(32 + x, 34 + y), cl, BF
587 Line (9 + x, 9 + y)-(10 + x, 9 + y), cl
588 Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
589 Line (9 + x, 31 + y)-(10 + x, 31 + y), cl
590 Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
591 Line (9 + x, 9 + y)-(10 + x, 9 + y), cl
592 Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
593 PSet (35 + x, 5 + y), cl: PSet (35 + x, 35 + y), cl
594 PSet (5 + x, 5 + y), cl: PSet (5 + x, 35 + y), cl
595 PSet (9 + x, 30 + y), cl: PSet (31 + x, 30 + y), cl
596 PSet (9 + x, 10 + y), cl: PSet (31 + x, 10 + y), cl
600 Line (4 + x, 6 + y)-(8 + x, 36 + y), cl, BF
601 Line (32 + x, 6 + y)-(36 + x, 36 + y), cl, BF
602 Line (4 + x, 18 + y)-(34 + x, 22 + y), cl, BF
603 Line (6 + x, 4 + y)-(34 + x, 8 + y), cl, BF
604 Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
605 Line (9 + x, 9 + y)-(10 + x, 9 + y), cl
606 PSet (9 + x, 10 + y), cl: PSet (31 + x, 10 + y), cl
607 PSet (5 + x, 5 + y), cl: PSet (35 + x, 5 + y), cl
611 Line (4 + x, 9 + y)-(8 + x, 31 + y), cl, BF
612 Line (4 + x, 4 + y)-(34 + x, 8 + y), cl, BF
613 Line (4 + x, 36 + y)-(34 + x, 32 + y), cl, BF
614 Line (36 + x, 23 + y)-(32 + x, 34 + y), cl, BF
615 Line (32 + x, 6 + y)-(36 + x, 17 + y), cl, BF
616 Line (9 + x, 18 + y)-(34 + x, 22 + y), cl, BF
617 Line (30 + x, 17 + y)-(31 + x, 17 + y), cl
618 Line (30 + x, 23 + y)-(31 + x, 23 + y), cl
619 Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
620 Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
621 PSet (31 + x, 10 + y), cl: PSet (31 + x, 30 + y), cl
622 PSet (31 + x, 16 + y), cl: PSet (31 + x, 24 + y), cl
623 PSet (35 + x, 18 + y), cl: PSet (35 + x, 22 + y), cl
624 PSet (35 + x, 5 + y), cl: PSet (35 + x, 35 + y), cl
628 Line (6 + x, 4 + y)-(36 + x, 8 + y), cl, BF
629 Line (6 + x, 36 + y)-(36 + x, 32 + y), cl, BF
630 Line (4 + x, 6 + y)-(8 + x, 34 + y), cl, BF
631 Line (9 + x, 9 + y)-(10 + x, 9 + y), cl
632 Line (9 + x, 31 + y)-(10 + x, 31 + y), cl
633 PSet (9 + x, 10 + y), cl: PSet (9 + x, 30 + y), cl
634 PSet (5 + x, 5 + y), cl: PSet (5 + x, 35 + y), cl
638 Line (4 + x, 4 + y)-(34 + x, 8 + y), cl, BF
639 Line (4 + x, 36 + y)-(34 + x, 32 + y), cl, BF
640 Line (4 + x, 4 + y)-(8 + x, 36 + y), cl, BF
641 Line (32 + x, 6 + y)-(36 + x, 34 + y), cl, BF
642 Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
643 Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
644 PSet (31 + x, 10 + y), cl: PSet (31 + x, 30 + y), cl
645 PSet (35 + x, 5 + y), cl: PSet (35 + x, 35 + y), cl
649 Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
650 Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
651 Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
652 Line (4 + x, 4 + y)-(8 + x, 36 + y), cl, BF
656 Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
657 Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
658 Line (4 + x, 4 + y)-(8 + x, 36 + y), cl, BF
662 Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
663 Line (20 + x, 18 + y)-(36 + x, 22 + y), cl, BF
664 Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
665 Line (4 + x, 9 + y)-(8 + x, 31 + y), cl, BF
666 Line (32 + x, 23 + y)-(36 + x, 31 + y), cl, BF
670 Line (4 + x, 4 + y)-(8 + x, 36 + y), cl, BF
671 Line (32 + x, 4 + y)-(36 + x, 36 + y), cl, BF
672 Line (4 + x, 18 + y)-(34 + x, 22 + y), cl, BF
676 Line (8 + x, 36 + y)-(32 + x, 32 + y), cl, BF
677 Line (18 + x, 31 + y)-(22 + x, 9 + y), cl, BF
678 Line (8 + x, 8 + y)-(32 + x, 3 + y), cl, BF
682 Line (6 + x, 36 + y)-(34 + x, 32 + y), cl, BF
683 Line (32 + x, 4 + y)-(36 + x, 34 + y), cl, BF
684 Line (4 + x, 18 + y)-(8 + x, 34 + y), cl, BF
685 Line (9 + x, 31 + y)-(10 + x, 31 + y), cl
686 Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
687 PSet (9 + x, 30 + y), cl: PSet (31 + x, 30 + y), cl
688 PSet (5 + x, 35 + y), cl: PSet (35 + x, 35 + y), cl
692 Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
693 Line (12 + x, 31 + y)-(28 + x, 31 + y), cf
694 Line (13 + x, 30 + y)-(27 + x, 30 + y), cf
695 Line (14 + x, 29 + y)-(26 + x, 29 + y), cf
696 Line (15 + x, 28 + y)-(25 + x, 28 + y), cf
697 Line (16 + x, 27 + y)-(24 + x, 10 + y), cf, BF
698 Line (15 + x, 24 + y)-(25 + x, 24 + y), cf
699 Line (14 + x, 23 + y)-(26 + x, 23 + y), cf
700 Line (13 + x, 22 + y)-(27 + x, 22 + y), cf
701 Line (12 + x, 21 + y)-(28 + x, 21 + y), cf
702 Line (11 + x, 20 + y)-(29 + x, 20 + y), cf
703 Line (10 + x, 19 + y)-(30 + x, 19 + y), cf
704 Line (9 + x, 18 + y)-(31 + x, 18 + y), cf
705 Line (8 + x, 17 + y)-(32 + x, 17 + y), cf
706 Line (7 + x, 16 + y)-(33 + x, 16 + y), cf
707 Line (6 + x, 15 + y)-(34 + x, 15 + y), cf
708 Line (5 + x, 14 + y)-(35 + x, 14 + y), cf
709 Line (4 + x, 13 + y)-(36 + x, 12 + y), cf, BF
710 Line (4 + x, 11 + y)-(14 + x, 10 + y), cf, BF
711 Line (5 + x, 9 + y)-(13 + x, 9 + y), cf
712 Line (6 + x, 8 + y)-(12 + x, 8 + y), cf
713 Line (7 + x, 7 + y)-(11 + x, 7 + y), cf
714 Line (26 + x, 11 + y)-(36 + x, 10 + y), cf, BF
715 Line (27 + x, 9 + y)-(35 + x, 9 + y), cf
716 Line (28 + x, 8 + y)-(34 + x, 8 + y), cf
717 Line (29 + x, 7 + y)-(33 + x, 7 + y), cf
718 Line (17 + x, 9 + y)-(23 + x, 8 + y), cf, BF
719 Line (18 + x, 7 + y)-(22 + x, 6 + y), cf, BF
720 Line (19 + x, 5 + y)-(21 + x, 4 + y), cf, BF
724 Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
725 Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
726 Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
727 Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
728 Line (12 + x, 28 + y)-(28 + x, 14 + y), cf, BF
729 Line (11 + x, 24 + y)-(29 + x, 24 + y), cf
730 Line (10 + x, 23 + y)-(30 + x, 23 + y), cf
731 Line (9 + x, 22 + y)-(31 + x, 22 + y), cf
732 Line (8 + x, 21 + y)-(32 + x, 21 + y), cf
733 Line (7 + x, 20 + y)-(33 + x, 20 + y), cf
734 Line (6 + x, 19 + y)-(34 + x, 18 + y), cf, BF
735 Line (6 + x, 17 + y)-(7 + x, 10 + y), cf, BF
736 Line (5 + x, 11 + y)-(8 + x, 14 + y), cf, BF
737 Line (4 + x, 12 + y)-(9 + x, 13 + y), cf, BF
738 Line (34 + x, 17 + y)-(33 + x, 10 + y), cf, BF
739 Line (35 + x, 11 + y)-(32 + x, 14 + y), cf, BF
740 Line (36 + x, 12 + y)-(31 + x, 13 + y), cf, BF
741 Line (12 + x, 13 + y)-(13 + x, 6 + y), cf, BF
742 Line (11 + x, 7 + y)-(14 + x, 10 + y), cf, BF
743 Line (10 + x, 8 + y)-(15 + x, 9 + y), cf, BF
744 Line (27 + x, 13 + y)-(28 + x, 6 + y), cf, BF
745 Line (26 + x, 7 + y)-(29 + x, 10 + y), cf, BF
746 Line (25 + x, 8 + y)-(30 + x, 9 + y), cf, BF
747 Line (19 + x, 13 + y)-(21 + x, 4 + y), cf, BF
748 Line (18 + x, 5 + y)-(22 + x, 8 + y), cf, BF
749 Line (17 + x, 6 + y)-(23 + x, 7 + y), cf, BF
753 Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
754 Line (18 + x, 31 + y)-(22 + x, 6 + y), cf, BF
755 Line (19 + x, 5 + y)-(21 + x, 4 + y), cf, BF
756 Line (12 + x, 31 + y)-(28 + x, 31 + y), cf
757 Line (13 + x, 30 + y)-(27 + x, 30 + y), cf
758 Line (14 + x, 29 + y)-(26 + x, 29 + y), cf
759 Line (15 + x, 28 + y)-(25 + x, 28 + y), cf
760 Line (16 + x, 27 + y)-(24 + x, 27 + y), cf
761 Line (17 + x, 26 + y)-(23 + x, 26 + y), cf
762 Line (17 + x, 21 + y)-(23 + x, 8 + y), cf, BF
763 Line (16 + x, 19 + y)-(24 + x, 10 + y), cf, BF
764 Line (15 + x, 17 + y)-(25 + x, 12 + y), cf, BF
765 Line (14 + x, 15 + y)-(26 + x, 14 + y), cf, BF
769 Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
770 Line (12 + x, 31 + y)-(28 + x, 31 + y), cf
771 Line (13 + x, 30 + y)-(29 + x, 30 + y), cf
772 Line (14 + x, 29 + y)-(30 + x, 29 + y), cf
773 Line (15 + x, 28 + y)-(31 + x, 28 + y), cf
774 Line (16 + x, 27 + y)-(32 + x, 27 + y), cf
775 Line (17 + x, 26 + y)-(33 + x, 26 + y), cf
776 Line (18 + x, 25 + y)-(34 + x, 25 + y), cf
777 Line (19 + x, 24 + y)-(35 + x, 24 + y), cf
778 Line (20 + x, 23 + y)-(36 + x, 18 + y), cf, BF
779 Line (4 + x, 17 + y)-(35 + x, 17 + y), cf
780 Line (4 + x, 16 + y)-(34 + x, 16 + y), cf
781 Line (5 + x, 15 + y)-(33 + x, 15 + y), cf
782 Line (6 + x, 14 + y)-(32 + x, 14 + y), cf
783 Line (7 + x, 13 + y)-(31 + x, 13 + y), cf
784 Line (8 + x, 12 + y)-(30 + x, 12 + y), cf
785 Line (9 + x, 11 + y)-(29 + x, 11 + y), cf
786 Line (10 + x, 10 + y)-(28 + x, 10 + y), cf
787 Line (11 + x, 9 + y)-(27 + x, 9 + y), cf
788 Line (12 + x, 8 + y)-(26 + x, 8 + y), cf
789 Line (13 + x, 7 + y)-(25 + x, 7 + y), cf
790 Line (14 + x, 6 + y)-(24 + x, 6 + y), cf
791 Line (15 + x, 5 + y)-(23 + x, 5 + y), cf
792 Line (16 + x, 4 + y)-(22 + x, 4 + y), cf
796 Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
797 Line (4 + x, 4 + y)-(8 + x, 12 + y), cf, BF
798 Line (13 + x, 4 + y)-(17 + x, 12 + y), cf, BF
799 Line (23 + x, 4 + y)-(27 + x, 12 + y), cf, BF
800 Line (32 + x, 4 + y)-(36 + x, 12 + y), cf, BF
801 Line (4 + x, 12 + y)-(36 + x, 16 + y), cf, BF
802 Line (12 + x, 16 + y)-(28 + x, 32 + y), cf, BF
803 Line (9 + x, 16 + y)-(11 + x, 16 + y), cf
804 Line (29 + x, 16 + y)-(31 + x, 16 + y), cf
805 Line (10 + x, 17 + y)-(11 + x, 17 + y), cf
806 Line (29 + x, 17 + y)-(30 + x, 17 + y), cf
807 PSet (11 + x, 18 + y), cf: PSet (29 + x, 18 + y), cf
808 Line (9 + x, 31 + y)-(11 + x, 31 + y), cf
809 Line (29 + x, 31 + y)-(31 + x, 31 + y), cf
810 Line (10 + x, 30 + y)-(11 + x, 30 + y), cf
811 Line (29 + x, 30 + y)-(30 + x, 30 + y), cf
812 PSet (11 + x, 29 + y), cf: PSet (29 + x, 29 + y), cf
816 Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
817 Line (18 + x, 32 + y)-(22 + x, 4 + y), cf, BF
818 Line (12 + x, 9 + y)-(28 + x, 14 + y), cf, BF
819 Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
820 Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
821 Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
822 Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
823 Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
824 Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
825 Line (15 + x, 25 + y)-(25 + x, 25 + y), cf
826 Line (16 + x, 24 + y)-(24 + x, 24 + y), cf
827 Line (17 + x, 23 + y)-(23 + x, 23 + y), cf
828 Line (17 + x, 19 + y)-(23 + x, 19 + y), cf
829 Line (16 + x, 18 + y)-(24 + x, 18 + y), cf
830 Line (15 + x, 17 + y)-(25 + x, 17 + y), cf
831 Line (14 + x, 16 + y)-(26 + x, 16 + y), cf
832 Line (13 + x, 15 + y)-(27 + x, 15 + y), cf
833 Line (13 + x, 8 + y)-(27 + x, 8 + y), cf
834 Line (14 + x, 7 + y)-(26 + x, 7 + y), cf
835 Line (15 + x, 6 + y)-(25 + x, 6 + y), cf
836 Line (16 + x, 5 + y)-(24 + x, 5 + y), cf
837 Line (17 + x, 4 + y)-(23 + x, 4 + y), cf
841 Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
842 Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
843 Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
844 Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
845 Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
846 Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
847 Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
848 Line (15 + x, 25 + y)-(25 + x, 25 + y), cf
849 Line (16 + x, 24 + y)-(24 + x, 4 + y), cf, BF
850 Line (6 + x, 9 + y)-(36 + x, 12 + y), cf, BF
851 Line (4 + x, 10 + y)-(6 + x, 11 + y), cf, BF
852 Line (14 + x, 16 + y)-(25 + x, 16 + y), cf
853 Line (12 + x, 15 + y)-(26 + x, 15 + y), cf
854 Line (10 + x, 14 + y)-(27 + x, 14 + y), cf
855 Line (8 + x, 13 + y)-(28 + x, 13 + y), cf
856 Line (8 + x, 8 + y)-(28 + x, 8 + y), cf
857 Line (10 + x, 7 + y)-(27 + x, 7 + y), cf
858 Line (12 + x, 6 + y)-(26 + x, 6 + y), cf
859 Line (14 + x, 5 + y)-(25 + x, 5 + y), cf
860 Line (16 + x, 4 + y)-(24 + x, 4 + y), cf
864 Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
865 Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
866 Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
867 Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
868 Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
869 Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
870 Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
871 Line (13 + x, 25 + y)-(27 + x, 22 + y), cf, BF
872 Line (16 + x, 21 + y)-(24 + x, 20 + y), cf, BF
873 Line (18 + x, 19 + y)-(22 + x, 12 + y), cf, BF
874 Line (19 + x, 11 + y)-(21 + x, 4 + y), cf, BF
875 Line (18 + x, 10 + y)-(22 + x, 5 + y), cf, BF
876 Line (17 + x, 9 + y)-(23 + x, 6 + y), cf, BF
877 Line (16 + x, 8 + y)-(24 + x, 7 + y), cf, BF
878 Line (15 + x, 20 + y)-(16 + x, 19 + y), cf, BF
879 Line (14 + x, 19 + y)-(15 + x, 18 + y), cf, BF
880 Line (13 + x, 18 + y)-(14 + x, 17 + y), cf, BF
881 Line (24 + x, 20 + y)-(25 + x, 19 + y), cf, BF
882 Line (25 + x, 19 + y)-(26 + x, 18 + y), cf, BF
883 Line (26 + x, 18 + y)-(27 + x, 17 + y), cf, BF
884 Line (11 + x, 18 + y)-(12 + x, 11 + y), cf, BF
885 Line (10 + x, 17 + y)-(13 + x, 12 + y), cf, BF
886 Line (9 + x, 16 + y)-(14 + x, 13 + y), cf, BF
887 Line (8 + x, 15 + y)-(15 + x, 14 + y), cf, BF
888 Line (28 + x, 18 + y)-(29 + x, 11 + y), cf, BF
889 Line (27 + x, 17 + y)-(30 + x, 12 + y), cf, BF
890 Line (26 + x, 16 + y)-(31 + x, 13 + y), cf, BF
891 Line (25 + x, 15 + y)-(32 + x, 14 + y), cf, BF
892 Line (4 + x, 24 + y)-(36 + x, 23 + y), cf, BF
893 Line (29 + x, 25 + y)-(35 + x, 22 + y), cf, BF
894 Line (30 + x, 26 + y)-(34 + x, 21 + y), cf, BF
895 Line (31 + x, 27 + y)-(33 + x, 20 + y), cf, BF
896 Line (5 + x, 25 + y)-(11 + x, 22 + y), cf, BF
897 Line (6 + x, 26 + y)-(10 + x, 21 + y), cf, BF
898 Line (7 + x, 27 + y)-(9 + x, 20 + y), cf, BF
902 Line (10 + x, 10 + y)-(30 + x, 30 + y), cf, BF
903 Line (4 + x, 4 + y)-(5 + x, 5 + y), cf, BF
904 Line (5 + x, 5 + y)-(7 + x, 7 + y), cf, BF
905 Line (6 + x, 6 + y)-(9 + x, 9 + y), cf, BF
906 Line (7 + x, 7 + y)-(11 + x, 11 + y), cf, BF
907 Line (8 + x, 8 + y)-(12 + x, 12 + y), cf, BF
908 Line (36 + x, 4 + y)-(35 + x, 5 + y), cf, BF
909 Line (35 + x, 5 + y)-(33 + x, 7 + y), cf, BF
910 Line (34 + x, 6 + y)-(31 + x, 9 + y), cf, BF
911 Line (33 + x, 7 + y)-(29 + x, 11 + y), cf, BF
912 Line (32 + x, 8 + y)-(28 + x, 12 + y), cf, BF
913 Line (36 + x, 36 + y)-(35 + x, 35 + y), cf, BF
914 Line (35 + x, 35 + y)-(33 + x, 33 + y), cf, BF
915 Line (34 + x, 34 + y)-(31 + x, 31 + y), cf, BF
916 Line (33 + x, 33 + y)-(29 + x, 29 + y), cf, BF
917 Line (32 + x, 32 + y)-(28 + x, 28 + y), cf, BF
918 Line (4 + x, 36 + y)-(5 + x, 35 + y), cf, BF
919 Line (5 + x, 35 + y)-(7 + x, 33 + y), cf, BF
920 Line (6 + x, 34 + y)-(9 + x, 31 + y), cf, BF
921 Line (7 + x, 33 + y)-(11 + x, 29 + y), cf, BF
922 Line (8 + x, 32 + y)-(12 + x, 28 + y), cf, BF
923 Line (17 + x, 9 + y)-(23 + x, 8 + y), cf, BF
924 Line (18 + x, 7 + y)-(22 + x, 6 + y), cf, BF
925 Line (19 + x, 5 + y)-(21 + x, 4 + y), cf, BF
926 Line (17 + x, 31 + y)-(23 + x, 32 + y), cf, BF
927 Line (18 + x, 33 + y)-(22 + x, 34 + y), cf, BF
928 Line (19 + x, 35 + y)-(21 + x, 36 + y), cf, BF
929 Line (8 + x, 17 + y)-(9 + x, 23 + y), cf, BF
930 Line (6 + x, 18 + y)-(7 + x, 22 + y), cf, BF
931 Line (4 + x, 19 + y)-(5 + x, 21 + y), cf, BF
932 Line (32 + x, 17 + y)-(31 + x, 23 + y), cf, BF
933 Line (34 + x, 18 + y)-(33 + x, 22 + y), cf, BF
934 Line (36 + x, 19 + y)-(35 + x, 21 + y), cf, BF
938 Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
939 Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
940 Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
941 Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
942 Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
943 Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
944 Line (14 + x, 26 + y)-(26 + x, 24 + y), cf, BF
945 Line (15 + x, 23 + y)-(25 + x, 20 + y), cf, BF
946 Line (16 + x, 19 + y)-(24 + x, 16 + y), cf, BF
947 Line (17 + x, 15 + y)-(23 + x, 12 + y), cf, BF
948 Line (18 + x, 11 + y)-(22 + x, 8 + y), cf, BF
949 Line (19 + x, 7 + y)-(21 + x, 4 + y), cf, BF
953 Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
954 Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
955 Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
956 Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
957 Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
958 Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
959 Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
960 Line (15 + x, 25 + y)-(25 + x, 25 + y), cf
961 Line (15 + x, 20 + y)-(25 + x, 20 + y), cf
962 Line (14 + x, 19 + y)-(26 + x, 19 + y), cf
963 Line (13 + x, 18 + y)-(27 + x, 18 + y), cf
964 Line (16 + x, 24 + y)-(24 + x, 8 + y), cf, BF
965 Line (17 + x, 7 + y)-(23 + x, 6 + y), cf, BF
966 Line (18 + x, 5 + y)-(22 + x, 5 + y), cf
967 Line (19 + x, 4 + y)-(21 + x, 4 + y), cf
968 Line (9 + x, 12 + y)-(31 + x, 17 + y), cf, BF
969 Line (10 + x, 11 + y)-(13 + x, 11 + y), cf
970 Line (11 + x, 10 + y)-(12 + x, 10 + y), cf
971 Line (27 + x, 11 + y)-(30 + x, 11 + y), cf
972 Line (28 + x, 10 + y)-(29 + x, 10 + y), cf
973 Line (10 + x, 11 + y)-(10 + x, 18 + y), cf
974 Line (9 + x, 12 + y)-(9 + x, 19 + y), cf
975 Line (8 + x, 13 + y)-(8 + x, 20 + y), cf
976 Line (7 + x, 14 + y)-(7 + x, 21 + y), cf
977 Line (6 + x, 15 + y)-(6 + x, 22 + y), cf
978 Line (5 + x, 16 + y)-(5 + x, 23 + y), cf
979 Line (4 + x, 17 + y)-(4 + x, 24 + y), cf
980 Line (30 + x, 11 + y)-(30 + x, 18 + y), cf
981 Line (31 + x, 12 + y)-(31 + x, 19 + y), cf
982 Line (32 + x, 13 + y)-(32 + x, 20 + y), cf
983 Line (33 + x, 14 + y)-(33 + x, 21 + y), cf
984 Line (34 + x, 15 + y)-(34 + x, 22 + y), cf
985 Line (35 + x, 16 + y)-(35 + x, 23 + y), cf
986 Line (36 + x, 17 + y)-(36 + x, 24 + y), cf
990 Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
991 Line (10 + x, 31 + y)-(11 + x, 26 + y), cf, BF
992 Line (16 + x, 31 + y)-(17 + x, 26 + y), cf, BF
993 Line (23 + x, 31 + y)-(24 + x, 26 + y), cf, BF
994 Line (29 + x, 31 + y)-(30 + x, 26 + y), cf, BF
995 Line (8 + x, 25 + y)-(32 + x, 14 + y), cf, BF
996 Line (7 + x, 24 + y)-(7 + x, 15 + y), cf
997 Line (6 + x, 23 + y)-(6 + x, 16 + y), cf
998 Line (5 + x, 22 + y)-(5 + x, 17 + y), cf
999 Line (4 + x, 21 + y)-(4 + x, 18 + y), cf
1000 Line (33 + x, 24 + y)-(33 + x, 15 + y), cf
1001 Line (34 + x, 23 + y)-(34 + x, 16 + y), cf
1002 Line (35 + x, 22 + y)-(35 + x, 17 + y), cf
1003 Line (36 + x, 21 + y)-(36 + x, 18 + y), cf
1004 Line (14 + x, 13 + y)-(26 + x, 10 + y), cf, BF
1005 Line (10 + x, 9 + y)-(30 + x, 7 + y), cf, BF
1006 Line (10 + x, 6 + y)-(13 + x, 6 + y), cf
1007 Line (10 + x, 5 + y)-(12 + x, 5 + y), cf
1008 Line (10 + x, 4 + y)-(11 + x, 4 + y), cf
1009 Line (30 + x, 6 + y)-(27 + x, 6 + y), cf
1010 Line (30 + x, 5 + y)-(28 + x, 5 + y), cf
1011 Line (30 + x, 4 + y)-(29 + x, 4 + y), cf
1012 Line (16 + x, 6 + y)-(24 + x, 6 + y), cf
1013 Line (17 + x, 5 + y)-(23 + x, 5 + y), cf
1014 Line (18 + x, 4 + y)-(22 + x, 4 + y), cf
1018 Line (14 + x, 36 + y)-(26 + x, 28 + y), cf, BF
1019 Line (14 + x, 4 + y)-(26 + x, 12 + y), cf, BF
1020 Line (4 + x, 14 + y)-(12 + x, 26 + y), cf, BF
1021 Line (28 + x, 14 + y)-(36 + x, 26 + y), cf, BF
1022 Line (17 + x, 36 + y)-(17 + x, 27 + y), cf
1023 Line (16 + x, 36 + y)-(16 + x, 26 + y), cf
1024 Line (15 + x, 36 + y)-(15 + x, 25 + y), cf
1025 Line (14 + x, 36 + y)-(14 + x, 24 + y), cf
1026 Line (13 + x, 35 + y)-(13 + x, 23 + y), cf
1027 Line (12 + x, 34 + y)-(12 + x, 22 + y), cf
1028 Line (23 + x, 36 + y)-(23 + x, 27 + y), cf
1029 Line (24 + x, 36 + y)-(24 + x, 26 + y), cf
1030 Line (25 + x, 36 + y)-(25 + x, 25 + y), cf
1031 Line (26 + x, 36 + y)-(26 + x, 24 + y), cf
1032 Line (27 + x, 35 + y)-(27 + x, 23 + y), cf
1033 Line (28 + x, 34 + y)-(28 + x, 22 + y), cf
1034 Line (17 + x, 4 + y)-(17 + x, 13 + y), cf
1035 Line (16 + x, 4 + y)-(16 + x, 14 + y), cf
1036 Line (15 + x, 4 + y)-(15 + x, 15 + y), cf
1037 Line (14 + x, 4 + y)-(14 + x, 16 + y), cf
1038 Line (13 + x, 5 + y)-(13 + x, 17 + y), cf
1039 Line (12 + x, 6 + y)-(12 + x, 18 + y), cf
1040 Line (23 + x, 4 + y)-(23 + x, 13 + y), cf
1041 Line (24 + x, 4 + y)-(24 + x, 14 + y), cf
1042 Line (25 + x, 4 + y)-(25 + x, 15 + y), cf
1043 Line (26 + x, 4 + y)-(26 + x, 16 + y), cf
1044 Line (27 + x, 5 + y)-(27 + x, 17 + y), cf
1045 Line (28 + x, 6 + y)-(28 + x, 18 + y), cf
1046 Line (5 + x, 13 + y)-(5 + x, 27 + y), cf
1047 Line (6 + x, 12 + y)-(6 + x, 28 + y), cf
1048 Line (7 + x, 11 + y)-(7 + x, 29 + y), cf
1049 Line (8 + x, 10 + y)-(8 + x, 30 + y), cf
1050 Line (9 + x, 9 + y)-(9 + x, 31 + y), cf
1051 Line (10 + x, 8 + y)-(10 + x, 32 + y), cf
1052 Line (11 + x, 7 + y)-(11 + x, 33 + y), cf
1053 Line (35 + x, 13 + y)-(35 + x, 27 + y), cf
1054 Line (34 + x, 12 + y)-(34 + x, 28 + y), cf
1055 Line (33 + x, 11 + y)-(33 + x, 29 + y), cf
1056 Line (32 + x, 10 + y)-(32 + x, 30 + y), cf
1057 Line (31 + x, 9 + y)-(31 + x, 31 + y), cf
1058 Line (30 + x, 8 + y)-(30 + x, 32 + y), cf
1059 Line (29 + x, 7 + y)-(29 + x, 33 + y), cf
1063 Line (14 + x, 36 + y)-(26 + x, 32 + y), cf, BF
1064 Line (14 + x, 4 + y)-(26 + x, 8 + y), cf, BF
1065 Line (4 + x, 14 + y)-(8 + x, 26 + y), cf, BF
1066 Line (32 + x, 14 + y)-(36 + x, 26 + y), cf, BF
1067 Line (13 + x, 35 + y)-(13 + x, 31 + y), cf
1068 Line (12 + x, 34 + y)-(12 + x, 30 + y), cf
1069 Line (11 + x, 33 + y)-(11 + x, 29 + y), cf
1070 Line (10 + x, 32 + y)-(10 + x, 28 + y), cf
1071 Line (9 + x, 31 + y)-(9 + x, 27 + y), cf
1072 Line (8 + x, 30 + y)-(8 + x, 26 + y), cf
1073 Line (27 + x, 35 + y)-(27 + x, 31 + y), cf
1074 Line (28 + x, 34 + y)-(28 + x, 30 + y), cf
1075 Line (29 + x, 33 + y)-(29 + x, 29 + y), cf
1076 Line (30 + x, 32 + y)-(30 + x, 28 + y), cf
1077 Line (31 + x, 31 + y)-(31 + x, 27 + y), cf
1078 Line (32 + x, 30 + y)-(32 + x, 26 + y), cf
1079 Line (13 + x, 5 + y)-(13 + x, 9 + y), cf
1080 Line (12 + x, 6 + y)-(12 + x, 10 + y), cf
1081 Line (11 + x, 7 + y)-(11 + x, 11 + y), cf
1082 Line (10 + x, 8 + y)-(10 + x, 12 + y), cf
1083 Line (9 + x, 9 + y)-(9 + x, 13 + y), cf
1084 Line (8 + x, 10 + y)-(8 + x, 14 + y), cf
1085 Line (27 + x, 5 + y)-(27 + x, 9 + y), cf
1086 Line (28 + x, 6 + y)-(28 + x, 10 + y), cf
1087 Line (29 + x, 7 + y)-(29 + x, 11 + y), cf
1088 Line (30 + x, 8 + y)-(30 + x, 12 + y), cf
1089 Line (31 + x, 9 + y)-(31 + x, 13 + y), cf
1090 Line (32 + x, 10 + y)-(32 + x, 14 + y), cf
1091 Line (5 + x, 13 + y)-(5 + x, 27 + y), cf
1092 Line (6 + x, 12 + y)-(6 + x, 28 + y), cf
1093 Line (7 + x, 11 + y)-(7 + x, 29 + y), cf
1094 Line (35 + x, 13 + y)-(35 + x, 27 + y), cf
1095 Line (34 + x, 12 + y)-(34 + x, 28 + y), cf
1096 Line (33 + x, 11 + y)-(33 + x, 29 + y), cf
1097 Line (17 + x, 28 + y)-(23 + x, 24 + y), cf, BF
1098 Line (17 + x, 12 + y)-(23 + x, 16 + y), cf, BF
1099 Line (12 + x, 17 + y)-(16 + x, 23 + y), cf, BF
1100 Line (24 + x, 17 + y)-(28 + x, 23 + y), cf, BF
1101 Line (18 + x, 28 + y)-(18 + x, 23 + y), cf
1102 Line (17 + x, 28 + y)-(17 + x, 22 + y), cf
1103 Line (16 + x, 27 + y)-(16 + x, 21 + y), cf
1104 Line (22 + x, 28 + y)-(22 + x, 23 + y), cf
1105 Line (23 + x, 28 + y)-(23 + x, 22 + y), cf
1106 Line (24 + x, 27 + y)-(24 + x, 21 + y), cf
1107 Line (18 + x, 12 + y)-(18 + x, 17 + y), cf
1108 Line (17 + x, 12 + y)-(17 + x, 18 + y), cf
1109 Line (16 + x, 13 + y)-(16 + x, 19 + y), cf
1110 Line (22 + x, 12 + y)-(22 + x, 17 + y), cf
1111 Line (23 + x, 12 + y)-(23 + x, 18 + y), cf
1112 Line (24 + x, 13 + y)-(24 + x, 19 + y), cf
1113 Line (13 + x, 16 + y)-(13 + x, 24 + y), cf
1114 Line (14 + x, 15 + y)-(14 + x, 25 + y), cf
1115 Line (15 + x, 14 + y)-(15 + x, 26 + y), cf
1116 Line (27 + x, 16 + y)-(27 + x, 24 + y), cf
1117 Line (26 + x, 15 + y)-(26 + x, 25 + y), cf
1118 Line (25 + x, 14 + y)-(25 + x, 26 + y), cf
1122 Line (x, y)-(x + 40, y + 40), cd1, BF
1123 Line (x - 1, y - 1)-(x + 41, y + 41), cb1, B
1127 Line (20, 160)-(60, 200), cd1, BF
1128 Line (20, 220)-(60, 260), cd1, BF
1129 Line (20, 280)-(60, 320), cd1, BF
1130 Line (580, 160)-(620, 200), cd1, BF
1131 Line (580, 220)-(620, 260), cd1, BF
1132 Line (580, 280)-(620, 320), cd1, BF
1133 Line (19, 159)-(61, 201), cb1, B
1134 Line (19, 219)-(61, 261), cb1, B
1135 Line (19, 279)-(61, 321), cb1, B
1136 Line (579, 159)-(621, 201), cb1, B
1137 Line (579, 219)-(621, 261), cb1, B
1138 Line (579, 279)-(621, 321), cb1, B
1142 Line (160, 80)-(480, 400), cb2, BF
1143 For x = 160 To 480 Step 40
1144 Line (x, 80)-(x, 400), cb1
1146 For y = 80 To 400 Step 40
1147 Line (160, y)-(480, y), cb1
1149 For y = 320 To 80 Step -80: For x = 400 To 160 Step -80
1150 Line (x + 1, y + 1)-(x + 39, y + 39), cb3, BF
1151 Line (x + 41, y + 41)-(x + 79, y + 79), cb3, BF
1154 Let x = 175: Call numberA
1155 Let x = 215: Call numberB
1156 Let x = 255: Call numberC
1157 Let x = 295: Call numberD
1158 Let x = 335: Call numberE
1159 Let x = 375: Call numberF
1160 Let x = 415: Call numberG
1161 Let x = 455: Call numberH
1163 Let y = 95: Call number8
1164 Let y = 135: Call number7
1165 Let y = 175: Call number6
1166 Let y = 215: Call number5
1167 Let y = 255: Call number4
1168 Let y = 295: Call number3
1169 Let y = 335: Call number2
1170 Let y = 375: Call number1
1174 Line (160, 80)-(480, 400), cb2, BF
1175 For x = 160 To 480 Step 40
1176 Line (x, 80)-(x, 400), cb1
1178 For y = 80 To 400 Step 40
1179 Line (160, y)-(480, y), cb1
1182 Let x = 175: Call numberA
1183 Let x = 215: Call numberB
1184 Let x = 255: Call numberC
1185 Let x = 295: Call numberD
1186 Let x = 335: Call numberE
1187 Let x = 375: Call numberF
1188 Let x = 415: Call numberG
1189 Let x = 455: Call numberH
1191 Let y = 95: Call number8
1192 Let y = 135: Call number7
1193 Let y = 175: Call number6
1194 Let y = 215: Call number5
1195 Let y = 255: Call number4
1196 Let y = 295: Call number3
1197 Let y = 335: Call number2
1198 Let y = 375: Call number1
1202 Line (140, 40)-(500, 440), cb2, BF
1203 For x = 140 To 500 Step 40
1204 Line (x, 40)-(x, 440), cb1
1206 For y = 40 To 440 Step 40
1207 Line (140, y)-(500, y), cb1
1209 Line (259, 161)-(381, 159), cb4, BF
1210 Line (259, 41)-(261, 159), cb4, BF
1211 Line (379, 41)-(381, 159), cb4, BF
1212 Line (259, 321)-(381, 319), cb4, BF
1213 Line (259, 439)-(261, 319), cb4, BF
1214 Line (379, 439)-(381, 319), cb4, BF
1215 Line (141, 238)-(499, 242), cb5, BF
1217 Let x = 155: Call numberA
1218 Let x = 195: Call numberB
1219 Let x = 235: Call numberC
1220 Let x = 275: Call numberD
1221 Let x = 315: Call numberE
1222 Let x = 355: Call numberF
1223 Let x = 395: Call numberG
1224 Let x = 435: Call numberH
1225 Let x = 475: Call numberI
1227 Let y = 55: Call number0
1228 Let y = 95: Call number9
1229 Let y = 135: Call number8
1230 Let y = 175: Call number7
1231 Let y = 215: Call number6
1232 Let y = 255: Call number5
1233 Let y = 295: Call number4
1234 Let y = 335: Call number3
1235 Let y = 375: Call number2
1236 Let y = 415: Call number1
1240 Line (140, 60)-(500, 420), cb2, BF
1241 For x = 140 To 500 Step 40
1242 Line (x, 60)-(x, 420), cb1
1244 For y = 60 To 400 Step 40
1245 Line (140, y)-(500, y), cb1
1248 Let x = 155: Call numberA
1249 Let x = 195: Call numberB
1250 Let x = 235: Call numberC
1251 Let x = 275: Call numberD
1252 Let x = 315: Call numberE
1253 Let x = 355: Call numberF
1254 Let x = 395: Call numberG
1255 Let x = 435: Call numberH
1256 Let x = 475: Call numberI
1258 Let y = 75: Call number9
1259 Let y = 115: Call number8
1260 Let y = 155: Call number7
1261 Let y = 195: Call number6
1262 Let y = 235: Call number5
1263 Let y = 275: Call number4
1264 Let y = 315: Call number3
1265 Let y = 355: Call number2
1266 Let y = 395: Call number1
1270 Line (120, 40)-(520, 440), cb2, BF
1271 For x = 120 To 520 Step 40
1272 Line (x, 40)-(x, 440), cb1
1274 For y = 40 To 440 Step 40
1275 Line (120, y)-(520, y), cb1
1277 For y = 360 To 40 Step -80: For x = 440 To 120 Step -80
1278 Line (x + 1, y + 1)-(x + 39, y + 39), cb3, BF
1279 Line (x + 41, y + 41)-(x + 79, y + 79), cb3, BF
1282 Let x = 135: Call numberA
1283 Let x = 175: Call numberB
1284 Let x = 215: Call numberC
1285 Let x = 255: Call numberD
1286 Let x = 295: Call numberE
1287 Let x = 335: Call numberF
1288 Let x = 375: Call numberG
1289 Let x = 415: Call numberH
1290 Let x = 455: Call numberI
1291 Let x = 495: Call numberJ
1293 Let y = 55: Call number0
1294 Let y = 95: Call number9
1295 Let y = 135: Call number8
1296 Let y = 175: Call number7
1297 Let y = 215: Call number6
1298 Let y = 255: Call number5
1299 Let y = 295: Call number4
1300 Let y = 335: Call number3
1301 Let y = 375: Call number2
1302 Let y = 415: Call number1
1308 Let count = 0: Let index = 0
1309 Let dc1 = Int(Rnd * 8 + 1)
1310 Let dc2 = Int(Rnd * 8 + 1)
1312 Let dc4 = Int(Rnd * 8 + 1)
1313 Let dc5 = Int(Rnd * 8 + 1)
1315 Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
1318 Let count = count + 1
1319 Let dc1 = Int(Rnd * 8 + 1)
1320 Let dc2 = Int(Rnd * 8 + 1)
1321 Let dc4 = Int(Rnd * 8 + 1)
1322 Let dc5 = Int(Rnd * 8 + 1)
1323 Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
1324 If count > 8000 Then Exit Do
1325 Loop While Abs(w1 - b1) < 10
1327 Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
1328 Let fw1x = dc1: Let fw1y = dc2: Let fb1x = dc4: Let fb1y = dc5
1329 Let fw1 = dc3: Let fb1 = dc6
1331 Let x = 20: Let y = 160: Let cf = 15
1332 If dc3 = 1 Then Call king
1333 If dc3 = 2 Then Call queen
1334 If dc3 = 3 Then Call bishop
1335 If dc3 = 4 Then Call knight
1336 If dc3 = 5 Then Call rook
1337 If dc3 = 6 Then Call pawn
1338 Let x = 580: Let y = 160: Let cf = 0
1339 If dc6 = 1 Then Call king
1340 If dc6 = 2 Then Call queen
1341 If dc6 = 3 Then Call bishop
1342 If dc6 = 4 Then Call knight
1343 If dc6 = 5 Then Call rook
1344 If dc6 = 6 Then Call pawn
1345 Let x = 20: Let y = 220
1346 If dc1 = 1 Then Call letterA
1347 If dc1 = 2 Then Call letterB
1348 If dc1 = 3 Then Call letterC
1349 If dc1 = 4 Then Call letterD
1350 If dc1 = 5 Then Call letterE
1351 If dc1 = 6 Then Call letterF
1352 If dc1 = 7 Then Call letterG
1353 If dc1 = 8 Then Call letterH
1354 Let x = 20: Let y = 280
1355 If dc2 = 1 Then Call letter1
1356 If dc2 = 2 Then Call letter2
1357 If dc2 = 3 Then Call letter3
1358 If dc2 = 4 Then Call letter4
1359 If dc2 = 5 Then Call letter5
1360 If dc2 = 6 Then Call letter6
1361 If dc2 = 7 Then Call letter7
1362 If dc2 = 8 Then Call letter8
1363 Let x = 580: Let y = 220
1364 If dc4 = 1 Then Call letterA
1365 If dc4 = 2 Then Call letterB
1366 If dc4 = 3 Then Call letterC
1367 If dc4 = 4 Then Call letterD
1368 If dc4 = 5 Then Call letterE
1369 If dc4 = 6 Then Call letterF
1370 If dc4 = 7 Then Call letterG
1371 If dc4 = 8 Then Call letterH
1372 Let x = 580: Let y = 280
1373 If dc5 = 1 Then Call letter1
1374 If dc5 = 2 Then Call letter2
1375 If dc5 = 3 Then Call letter3
1376 If dc5 = 4 Then Call letter4
1377 If dc5 = 5 Then Call letter5
1378 If dc5 = 6 Then Call letter6
1379 If dc5 = 7 Then Call letter7
1380 If dc5 = 8 Then Call letter8
1381 Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
1382 Let cf = 15: Call king
1383 Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
1384 Let cf = 0: Call king
1400 Let count = 0: Let index = 0
1401 Let dc1 = Int(Rnd * 8 + 1)
1402 Let dc2 = Int(Rnd * 8 + 1)
1403 Let dc3 = Int(Rnd * 5 + 2)
1404 Let dc4 = Int(Rnd * 8 + 1)
1405 Let dc5 = Int(Rnd * 8 + 1)
1406 Let dc6 = Int(Rnd * 5 + 2)
1407 Let w2 = board(dc2, dc1): Let b2 = board(dc5, dc4)
1414 Let count = count + 1
1415 Let dc1 = Int(Rnd * 8 + 1)
1416 Let dc2 = Int(Rnd * 8 + 1)
1417 Let fw2x = dc1: Let fw2y = dc2
1418 Let w2 = board(dc2, dc1)
1419 If count > 8000 Then Exit Do
1420 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
1423 Let count = count + 1
1424 Let dc1 = Int(Rnd * 8 + 1)
1425 Let dc2 = Int(Rnd * 8 + 1)
1426 Let w2 = board(dc2, dc1)
1427 If count > 8000 Then Exit Do
1428 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
1431 Let count = count + 1
1432 Let dc1 = Int(Rnd * 8 + 1)
1433 Let dc2 = Int(Rnd * 8 + 1)
1434 Let w2 = board(dc2, dc1)
1435 If count > 8000 Then Exit Do
1436 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
1439 Let count = count + 1
1440 Let dc1 = Int(Rnd * 8 + 1)
1441 Let dc2 = Int(Rnd * 8 + 1)
1442 Let fw2x = dc1: Let fw2y = dc2
1443 Let w2 = board(dc2, dc1)
1444 If count > 8000 Then Exit Do
1445 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
1448 Let count = count + 1
1449 Let dc1 = Int(Rnd * 8 + 1)
1450 Let dc2 = Int(Rnd * 8 + 1)
1451 Let w2 = board(dc2, dc1)
1452 If count > 8000 Then Exit Do
1453 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 = 1 Or dc2 = 8
1460 Let count = count + 1
1461 Let dc4 = Int(Rnd * 8 + 1)
1462 Let dc5 = Int(Rnd * 8 + 1)
1463 Let fb2x = dc4: Let fb2y = dc5
1464 Let b2 = board(dc5, dc4)
1465 If count > 8000 Then Exit Do
1466 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
1469 Let count = count + 1
1470 Let dc4 = Int(Rnd * 8 + 1)
1471 Let dc5 = Int(Rnd * 8 + 1)
1472 Let b2 = board(dc5, dc4)
1473 If count > 8000 Then Exit Do
1474 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
1477 Let count = count + 1
1478 Let dc4 = Int(Rnd * 8 + 1)
1479 Let dc5 = Int(Rnd * 8 + 1)
1480 Let b2 = board(dc5, dc4)
1481 If count > 8000 Then Exit Do
1482 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
1485 Let count = count + 1
1486 Let dc4 = Int(Rnd * 8 + 1)
1487 Let dc5 = Int(Rnd * 8 + 1)
1488 Let fb2x = dc4: Let fb2y = dc5
1489 Let b2 = board(dc5, dc4)
1490 If count > 8000 Then Exit Do
1491 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
1494 Let count = count + 1
1495 Let dc4 = Int(Rnd * 8 + 1)
1496 Let dc5 = Int(Rnd * 8 + 1)
1497 Let b2 = board(dc5, dc4)
1498 If count > 8000 Then Exit Do
1499 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 = 1 Or dc5 = 8
1502 Let w2 = board(dc2, dc1): Let b2 = board(dc5, dc4)
1503 Let fw2x = dc1: Let fw2y = dc2: Let fb2x = dc4: Let fb2y = dc5
1504 Let fw2 = dc3: Let fb2 = dc6
1506 Let x = 20: Let y = 160: Let cf = 15
1507 If dc3 = 1 Then Call king
1508 If dc3 = 2 Then Call queen
1509 If dc3 = 3 Then Call bishop
1510 If dc3 = 4 Then Call knight
1511 If dc3 = 5 Then Call rook
1512 If dc3 = 6 Then Call pawn
1513 Let x = 580: Let y = 160: Let cf = 0
1514 If dc6 = 1 Then Call king
1515 If dc6 = 2 Then Call queen
1516 If dc6 = 3 Then Call bishop
1517 If dc6 = 4 Then Call knight
1518 If dc6 = 5 Then Call rook
1519 If dc6 = 6 Then Call pawn
1520 Let x = 20: Let y = 220
1521 If dc1 = 1 Then Call letterA
1522 If dc1 = 2 Then Call letterB
1523 If dc1 = 3 Then Call letterC
1524 If dc1 = 4 Then Call letterD
1525 If dc1 = 5 Then Call letterE
1526 If dc1 = 6 Then Call letterF
1527 If dc1 = 7 Then Call letterG
1528 If dc1 = 8 Then Call letterH
1529 Let x = 20: Let y = 280
1530 If dc2 = 1 Then Call letter1
1531 If dc2 = 2 Then Call letter2
1532 If dc2 = 3 Then Call letter3
1533 If dc2 = 4 Then Call letter4
1534 If dc2 = 5 Then Call letter5
1535 If dc2 = 6 Then Call letter6
1536 If dc2 = 7 Then Call letter7
1537 If dc2 = 8 Then Call letter8
1538 Let x = 580: Let y = 220
1539 If dc4 = 1 Then Call letterA
1540 If dc4 = 2 Then Call letterB
1541 If dc4 = 3 Then Call letterC
1542 If dc4 = 4 Then Call letterD
1543 If dc4 = 5 Then Call letterE
1544 If dc4 = 6 Then Call letterF
1545 If dc4 = 7 Then Call letterG
1546 If dc4 = 8 Then Call letterH
1547 Let x = 580: Let y = 280
1548 If dc5 = 1 Then Call letter1
1549 If dc5 = 2 Then Call letter2
1550 If dc5 = 3 Then Call letter3
1551 If dc5 = 4 Then Call letter4
1552 If dc5 = 5 Then Call letter5
1553 If dc5 = 6 Then Call letter6
1554 If dc5 = 7 Then Call letter7
1555 If dc5 = 8 Then Call letter8
1556 Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
1558 If dc3 = 1 Then Call king
1559 If dc3 = 2 Then Call queen
1560 If dc3 = 3 Then Call bishop
1561 If dc3 = 4 Then Call knight
1562 If dc3 = 5 Then Call rook
1563 If dc3 = 6 Then Call pawn
1564 Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
1566 If dc6 = 1 Then Call king
1567 If dc6 = 2 Then Call queen
1568 If dc6 = 3 Then Call bishop
1569 If dc6 = 4 Then Call knight
1570 If dc6 = 5 Then Call rook
1571 If dc6 = 6 Then Call pawn
1587 Let count = 0: Let index = 0
1588 Let dc1 = Int(Rnd * 8 + 1)
1589 Let dc2 = Int(Rnd * 8 + 1)
1590 Let dc3 = Int(Rnd * 5 + 2)
1591 Let dc4 = Int(Rnd * 8 + 1)
1592 Let dc5 = Int(Rnd * 8 + 1)
1593 Let dc6 = Int(Rnd * 5 + 2)
1594 Let w3 = board(dc2, dc1): Let b3 = board(dc5, dc4)
1601 Let count = count + 1
1602 Let dc1 = Int(Rnd * 8 + 1)
1603 Let dc2 = Int(Rnd * 8 + 1)
1604 Let fw3x = dc1: Let fw3y = dc2
1605 Let w3 = board(dc2, dc1)
1606 If count > 8000 Then Exit Do
1607 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
1610 Let count = count + 1
1611 Let dc1 = Int(Rnd * 8 + 1)
1612 Let dc2 = Int(Rnd * 8 + 1)
1613 Let w3 = board(dc2, dc1)
1614 If count > 8000 Then Exit Do
1615 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
1618 Let count = count + 1
1619 Let dc1 = Int(Rnd * 8 + 1)
1620 Let dc2 = Int(Rnd * 8 + 1)
1621 Let w3 = board(dc2, dc1)
1622 If count > 8000 Then Exit Do
1623 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
1626 Let count = count + 1
1627 Let dc1 = Int(Rnd * 8 + 1)
1628 Let dc2 = Int(Rnd * 8 + 1)
1629 Let fw3x = dc1: Let fw3y = dc2
1630 Let w3 = board(dc2, dc1)
1631 If count > 8000 Then Exit Do
1632 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
1635 Let count = count + 1
1636 Let dc1 = Int(Rnd * 8 + 1)
1637 Let dc2 = Int(Rnd * 8 + 1)
1638 Let w3 = board(dc2, dc1)
1639 If count > 8000 Then Exit Do
1640 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2 Or dc2 = 1 Or dc2 = 8
1647 Let count = count + 1
1648 Let dc4 = Int(Rnd * 8 + 1)
1649 Let dc5 = Int(Rnd * 8 + 1)
1650 Let fb3x = dc4: Let fb3y = dc5
1651 Let b3 = board(dc5, dc4)
1652 If count > 8000 Then Exit Do
1653 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
1656 Let count = count + 1
1657 Let dc4 = Int(Rnd * 8 + 1)
1658 Let dc5 = Int(Rnd * 8 + 1)
1659 Let b3 = board(dc5, dc4)
1660 If count > 8000 Then Exit Do
1661 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
1664 Let count = count + 1
1665 Let dc4 = Int(Rnd * 8 + 1)
1666 Let dc5 = Int(Rnd * 8 + 1)
1667 Let b3 = board(dc5, dc4)
1668 If count > 8000 Then Exit Do
1669 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
1672 Let count = count + 1
1673 Let dc4 = Int(Rnd * 8 + 1)
1674 Let dc5 = Int(Rnd * 8 + 1)
1675 Let fb3x = dc4: Let fb3y = dc5
1676 Let b3 = board(dc5, dc4)
1677 If count > 8000 Then Exit Do
1678 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
1681 Let count = count + 1
1682 Let dc4 = Int(Rnd * 8 + 1)
1683 Let dc5 = Int(Rnd * 8 + 1)
1684 Let b3 = board(dc5, dc4)
1685 If count > 8000 Then Exit Do
1686 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2 Or dc5 = 1 Or dc5 = 8
1689 Let w3 = board(dc2, dc1): Let b3 = board(dc5, dc4)
1690 Let fw3x = dc1: Let fw3y = dc2: Let fb3x = dc4: Let fb3y = dc5
1691 Let fw3 = dc3: Let fb3 = dc6
1693 Let x = 20: Let y = 160: Let cf = 15
1694 If dc3 = 1 Then Call king
1695 If dc3 = 2 Then Call queen
1696 If dc3 = 3 Then Call bishop
1697 If dc3 = 4 Then Call knight
1698 If dc3 = 5 Then Call rook
1699 If dc3 = 6 Then Call pawn
1700 Let x = 580: Let y = 160: Let cf = 0
1701 If dc6 = 1 Then Call king
1702 If dc6 = 2 Then Call queen
1703 If dc6 = 3 Then Call bishop
1704 If dc6 = 4 Then Call knight
1705 If dc6 = 5 Then Call rook
1706 If dc6 = 6 Then Call pawn
1707 Let x = 20: Let y = 220
1708 If dc1 = 1 Then Call letterA
1709 If dc1 = 2 Then Call letterB
1710 If dc1 = 3 Then Call letterC
1711 If dc1 = 4 Then Call letterD
1712 If dc1 = 5 Then Call letterE
1713 If dc1 = 6 Then Call letterF
1714 If dc1 = 7 Then Call letterG
1715 If dc1 = 8 Then Call letterH
1716 Let x = 20: Let y = 280
1717 If dc2 = 1 Then Call letter1
1718 If dc2 = 2 Then Call letter2
1719 If dc2 = 3 Then Call letter3
1720 If dc2 = 4 Then Call letter4
1721 If dc2 = 5 Then Call letter5
1722 If dc2 = 6 Then Call letter6
1723 If dc2 = 7 Then Call letter7
1724 If dc2 = 8 Then Call letter8
1725 Let x = 580: Let y = 220
1726 If dc4 = 1 Then Call letterA
1727 If dc4 = 2 Then Call letterB
1728 If dc4 = 3 Then Call letterC
1729 If dc4 = 4 Then Call letterD
1730 If dc4 = 5 Then Call letterE
1731 If dc4 = 6 Then Call letterF
1732 If dc4 = 7 Then Call letterG
1733 If dc4 = 8 Then Call letterH
1734 Let x = 580: Let y = 280
1735 If dc5 = 1 Then Call letter1
1736 If dc5 = 2 Then Call letter2
1737 If dc5 = 3 Then Call letter3
1738 If dc5 = 4 Then Call letter4
1739 If dc5 = 5 Then Call letter5
1740 If dc5 = 6 Then Call letter6
1741 If dc5 = 7 Then Call letter7
1742 If dc5 = 8 Then Call letter8
1743 Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
1745 If dc3 = 1 Then Call king
1746 If dc3 = 2 Then Call queen
1747 If dc3 = 3 Then Call bishop
1748 If dc3 = 4 Then Call knight
1749 If dc3 = 5 Then Call rook
1750 If dc3 = 6 Then Call pawn
1751 Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
1753 If dc6 = 1 Then Call king
1754 If dc6 = 2 Then Call queen
1755 If dc6 = 3 Then Call bishop
1756 If dc6 = 4 Then Call knight
1757 If dc6 = 5 Then Call rook
1758 If dc6 = 6 Then Call pawn
1774 Let count = 0: Let index = 0
1775 Let dc1 = Int(Rnd * 8 + 1)
1776 Let dc2 = Int(Rnd * 8 + 1)
1777 Let dc3 = Int(Rnd * 5 + 2)
1778 Let dc4 = Int(Rnd * 8 + 1)
1779 Let dc5 = Int(Rnd * 8 + 1)
1780 Let dc6 = Int(Rnd * 5 + 2)
1781 Let w4 = board(dc2, dc1): Let b4 = board(dc5, dc4)
1788 Let count = count + 1
1789 Let dc1 = Int(Rnd * 8 + 1)
1790 Let dc2 = Int(Rnd * 8 + 1)
1791 Let fw4x = dc1: Let fw4y = dc2
1792 Let w4 = board(dc2, dc1)
1793 If count > 8000 Then Exit Do
1794 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
1797 Let count = count + 1
1798 Let dc1 = Int(Rnd * 8 + 1)
1799 Let dc2 = Int(Rnd * 8 + 1)
1800 Let w4 = board(dc2, dc1)
1801 If count > 8000 Then Exit Do
1802 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
1805 Let count = count + 1
1806 Let dc1 = Int(Rnd * 8 + 1)
1807 Let dc2 = Int(Rnd * 8 + 1)
1808 Let w4 = board(dc2, dc1)
1809 If count > 8000 Then Exit Do
1810 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
1813 Let count = count + 1
1814 Let dc1 = Int(Rnd * 8 + 1)
1815 Let dc2 = Int(Rnd * 8 + 1)
1816 Let fw4x = dc1: Let fw4y = dc2
1817 Let w4 = board(dc2, dc1)
1818 If count > 8000 Then Exit Do
1819 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
1822 Let count = count + 1
1823 Let dc1 = Int(Rnd * 8 + 1)
1824 Let dc2 = Int(Rnd * 8 + 1)
1825 Let w4 = board(dc2, dc1)
1826 If count > 8000 Then Exit Do
1827 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3 Or dc2 = 1 Or dc2 = 8
1834 Let count = count + 1
1835 Let dc4 = Int(Rnd * 8 + 1)
1836 Let dc5 = Int(Rnd * 8 + 1)
1837 Let fb4x = dc4: Let fb4y = dc5
1838 Let b4 = board(dc5, dc4)
1839 If count > 8000 Then Exit Do
1840 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
1843 Let count = count + 1
1844 Let dc4 = Int(Rnd * 8 + 1)
1845 Let dc5 = Int(Rnd * 8 + 1)
1846 Let b4 = board(dc5, dc4)
1847 If count > 8000 Then Exit Do
1848 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
1851 Let count = count + 1
1852 Let dc4 = Int(Rnd * 8 + 1)
1853 Let dc5 = Int(Rnd * 8 + 1)
1854 Let b4 = board(dc5, dc4)
1855 If count > 8000 Then Exit Do
1856 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
1859 Let count = count + 1
1860 Let dc4 = Int(Rnd * 8 + 1)
1861 Let dc5 = Int(Rnd * 8 + 1)
1862 Let fb4x = dc4: Let fb4y = dc5
1863 Let b4 = board(dc5, dc4)
1864 If count > 8000 Then Exit Do
1865 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
1868 Let count = count + 1
1869 Let dc4 = Int(Rnd * 8 + 1)
1870 Let dc5 = Int(Rnd * 8 + 1)
1871 Let b4 = board(dc5, dc4)
1872 If count > 8000 Then Exit Do
1873 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3 Or dc5 = 1 Or dc5 = 8
1876 Let w4 = board(dc2, dc1): Let b4 = board(dc5, dc4)
1877 Let fw4x = dc1: Let fw4y = dc2: Let fb4x = dc4: Let fb4y = dc5
1878 Let fw4 = dc3: Let fb4 = dc6
1880 Let x = 20: Let y = 160: Let cf = 15
1881 If dc3 = 1 Then Call king
1882 If dc3 = 2 Then Call queen
1883 If dc3 = 3 Then Call bishop
1884 If dc3 = 4 Then Call knight
1885 If dc3 = 5 Then Call rook
1886 If dc3 = 6 Then Call pawn
1887 Let x = 580: Let y = 160: Let cf = 0
1888 If dc6 = 1 Then Call king
1889 If dc6 = 2 Then Call queen
1890 If dc6 = 3 Then Call bishop
1891 If dc6 = 4 Then Call knight
1892 If dc6 = 5 Then Call rook
1893 If dc6 = 6 Then Call pawn
1894 Let x = 20: Let y = 220
1895 If dc1 = 1 Then Call letterA
1896 If dc1 = 2 Then Call letterB
1897 If dc1 = 3 Then Call letterC
1898 If dc1 = 4 Then Call letterD
1899 If dc1 = 5 Then Call letterE
1900 If dc1 = 6 Then Call letterF
1901 If dc1 = 7 Then Call letterG
1902 If dc1 = 8 Then Call letterH
1903 Let x = 20: Let y = 280
1904 If dc2 = 1 Then Call letter1
1905 If dc2 = 2 Then Call letter2
1906 If dc2 = 3 Then Call letter3
1907 If dc2 = 4 Then Call letter4
1908 If dc2 = 5 Then Call letter5
1909 If dc2 = 6 Then Call letter6
1910 If dc2 = 7 Then Call letter7
1911 If dc2 = 8 Then Call letter8
1912 Let x = 580: Let y = 220
1913 If dc4 = 1 Then Call letterA
1914 If dc4 = 2 Then Call letterB
1915 If dc4 = 3 Then Call letterC
1916 If dc4 = 4 Then Call letterD
1917 If dc4 = 5 Then Call letterE
1918 If dc4 = 6 Then Call letterF
1919 If dc4 = 7 Then Call letterG
1920 If dc4 = 8 Then Call letterH
1921 Let x = 580: Let y = 280
1922 If dc5 = 1 Then Call letter1
1923 If dc5 = 2 Then Call letter2
1924 If dc5 = 3 Then Call letter3
1925 If dc5 = 4 Then Call letter4
1926 If dc5 = 5 Then Call letter5
1927 If dc5 = 6 Then Call letter6
1928 If dc5 = 7 Then Call letter7
1929 If dc5 = 8 Then Call letter8
1930 Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
1932 If dc3 = 1 Then Call king
1933 If dc3 = 2 Then Call queen
1934 If dc3 = 3 Then Call bishop
1935 If dc3 = 4 Then Call knight
1936 If dc3 = 5 Then Call rook
1937 If dc3 = 6 Then Call pawn
1938 Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
1940 If dc6 = 1 Then Call king
1941 If dc6 = 2 Then Call queen
1942 If dc6 = 3 Then Call bishop
1943 If dc6 = 4 Then Call knight
1944 If dc6 = 5 Then Call rook
1945 If dc6 = 6 Then Call pawn
1962 Let count = 0: Let index = 0
1963 Let dc1 = Int(Rnd * 8 + 1)
1964 Let dc2 = Int(Rnd * 8 + 1)
1966 Let dc4 = Int(Rnd * 8 + 1)
1967 Let dc5 = Int(Rnd * 8 + 1)
1969 Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
1972 Let count = count + 1
1973 Let dc1 = Int(Rnd * 8 + 1)
1974 Let dc2 = Int(Rnd * 8 + 1)
1975 Let dc4 = Int(Rnd * 8 + 1)
1976 Let dc5 = Int(Rnd * 8 + 1)
1977 Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
1978 If count > 8000 Then Exit Do
1979 Loop While Abs(w1 - b1) < 10
1981 Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
1982 Let fw1x = dc1: Let fw1y = dc2: Let fb1x = dc4: Let fb1y = dc5
1983 Let fw1 = dc3: Let fb1 = dc6
1985 Let x = 20: Let y = 160: Let cf = 15
1986 If dc3 = 1 Then Call king
1987 If dc3 = 2 Then Call queen
1988 If dc3 = 3 Then Call bishop
1989 If dc3 = 4 Then Call knight
1990 If dc3 = 5 Then Call rook
1991 If dc3 = 6 Then Call checker
1992 Let x = 580: Let y = 160: Let cf = 0
1993 If dc6 = 1 Then Call king
1994 If dc6 = 2 Then Call queen
1995 If dc6 = 3 Then Call bishop
1996 If dc6 = 4 Then Call knight
1997 If dc6 = 5 Then Call rook
1998 If dc6 = 6 Then Call checker
1999 Let x = 20: Let y = 220
2000 If dc1 = 1 Then Call letterA
2001 If dc1 = 2 Then Call letterB
2002 If dc1 = 3 Then Call letterC
2003 If dc1 = 4 Then Call letterD
2004 If dc1 = 5 Then Call letterE
2005 If dc1 = 6 Then Call letterF
2006 If dc1 = 7 Then Call letterG
2007 If dc1 = 8 Then Call letterH
2008 Let x = 20: Let y = 280
2009 If dc2 = 1 Then Call letter1
2010 If dc2 = 2 Then Call letter2
2011 If dc2 = 3 Then Call letter3
2012 If dc2 = 4 Then Call letter4
2013 If dc2 = 5 Then Call letter5
2014 If dc2 = 6 Then Call letter6
2015 If dc2 = 7 Then Call letter7
2016 If dc2 = 8 Then Call letter8
2017 Let x = 580: Let y = 220
2018 If dc4 = 1 Then Call letterA
2019 If dc4 = 2 Then Call letterB
2020 If dc4 = 3 Then Call letterC
2021 If dc4 = 4 Then Call letterD
2022 If dc4 = 5 Then Call letterE
2023 If dc4 = 6 Then Call letterF
2024 If dc4 = 7 Then Call letterG
2025 If dc4 = 8 Then Call letterH
2026 Let x = 580: Let y = 280
2027 If dc5 = 1 Then Call letter1
2028 If dc5 = 2 Then Call letter2
2029 If dc5 = 3 Then Call letter3
2030 If dc5 = 4 Then Call letter4
2031 If dc5 = 5 Then Call letter5
2032 If dc5 = 6 Then Call letter6
2033 If dc5 = 7 Then Call letter7
2034 If dc5 = 8 Then Call letter8
2035 Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
2036 Let cf = 15: Call king
2037 Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
2038 Let cf = 0: Call king
2054 Let count = 0: Let index = 0
2055 Let dc1 = Int(Rnd * 8 + 1)
2056 Let dc2 = Int(Rnd * 8 + 1)
2057 Let dc3 = Int(Rnd * 5 + 2)
2058 Let dc4 = Int(Rnd * 8 + 1)
2059 Let dc5 = Int(Rnd * 8 + 1)
2060 Let dc6 = Int(Rnd * 5 + 2)
2061 Let w2 = board(dc2, dc1): Let b2 = board(dc5, dc4)
2068 Let count = count + 1
2069 Let dc1 = Int(Rnd * 8 + 1)
2070 Let dc2 = Int(Rnd * 8 + 1)
2071 Let w2 = board(dc2, dc1)
2072 If count > 8000 Then Exit Do
2073 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
2077 Let count = count + 1
2078 Let dc1 = Int(Rnd * 8 + 1)
2079 Let dc2 = Int(Rnd * 8 + 1)
2080 Let w2 = board(dc2, dc1)
2081 If count > 8000 Then Exit Do
2082 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
2086 Let count = count + 1
2087 Let dc1 = Int(Rnd * 8 + 1)
2088 Let dc2 = Int(Rnd * 8 + 1)
2089 Let w2 = board(dc2, dc1)
2090 If count > 8000 Then Exit Do
2091 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
2095 Let count = count + 1
2096 Let dc1 = Int(Rnd * 8 + 1)
2097 Let dc2 = Int(Rnd * 8 + 1)
2098 Let fw2x = dc1: Let fw2y = dc2
2099 Let w2 = board(dc2, dc1)
2100 If count > 8000 Then Exit Do
2101 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
2104 Let count = count + 1
2105 Let dc1 = Int(Rnd * 8 + 1)
2106 Let dc2 = Int(Rnd * 8 + 1)
2107 Let w2 = board(dc2, dc1)
2108 If count > 8000 Then Exit Do
2109 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 < 3 Or dc2 > 5
2116 Let count = count + 1
2117 Let dc4 = Int(Rnd * 8 + 1)
2118 Let dc5 = Int(Rnd * 8 + 1)
2119 Let b2 = board(dc5, dc4)
2120 If count > 8000 Then Exit Do
2121 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
2125 Let count = count + 1
2126 Let dc4 = Int(Rnd * 8 + 1)
2127 Let dc5 = Int(Rnd * 8 + 1)
2128 Let b2 = board(dc5, dc4)
2129 If count > 8000 Then Exit Do
2130 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
2134 Let count = count + 1
2135 Let dc4 = Int(Rnd * 8 + 1)
2136 Let dc5 = Int(Rnd * 8 + 1)
2137 Let b2 = board(dc5, dc4)
2138 If count > 8000 Then Exit Do
2139 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
2143 Let count = count + 1
2144 Let dc4 = Int(Rnd * 8 + 1)
2145 Let dc5 = Int(Rnd * 8 + 1)
2146 Let fb2x = dc4: Let fb2y = dc5
2147 Let b2 = board(dc5, dc4)
2148 If count > 8000 Then Exit Do
2149 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
2152 Let count = count + 1
2153 Let dc4 = Int(Rnd * 8 + 1)
2154 Let dc5 = Int(Rnd * 8 + 1)
2155 Let b2 = board(dc5, dc4)
2156 If count > 8000 Then Exit Do
2157 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 < 4 Or dc5 > 6
2160 Let w2 = board(dc2, dc1): Let b2 = board(dc5, dc4)
2161 Let fw2x = dc1: Let fw2y = dc2: Let fb2x = dc4: Let fb2y = dc5
2162 Let fw2 = dc3: Let fb2 = dc6
2164 Let x = 20: Let y = 160: Let cf = 15
2165 If dc3 = 1 Then Call king
2166 If dc3 = 2 Then Call queen
2167 If dc3 = 3 Then Call bishop
2168 If dc3 = 4 Then Call knight
2169 If dc3 = 5 Then Call rook
2170 If dc3 = 6 Then Call checker
2171 Let x = 580: Let y = 160: Let cf = 0
2172 If dc6 = 1 Then Call king
2173 If dc6 = 2 Then Call queen
2174 If dc6 = 3 Then Call bishop
2175 If dc6 = 4 Then Call knight
2176 If dc6 = 5 Then Call rook
2177 If dc6 = 6 Then Call checker
2178 Let x = 20: Let y = 220
2179 If dc1 = 1 Then Call letterA
2180 If dc1 = 2 Then Call letterB
2181 If dc1 = 3 Then Call letterC
2182 If dc1 = 4 Then Call letterD
2183 If dc1 = 5 Then Call letterE
2184 If dc1 = 6 Then Call letterF
2185 If dc1 = 7 Then Call letterG
2186 If dc1 = 8 Then Call letterH
2187 Let x = 20: Let y = 280
2188 If dc2 = 1 Then Call letter1
2189 If dc2 = 2 Then Call letter2
2190 If dc2 = 3 Then Call letter3
2191 If dc2 = 4 Then Call letter4
2192 If dc2 = 5 Then Call letter5
2193 If dc2 = 6 Then Call letter6
2194 If dc2 = 7 Then Call letter7
2195 If dc2 = 8 Then Call letter8
2196 Let x = 580: Let y = 220
2197 If dc4 = 1 Then Call letterA
2198 If dc4 = 2 Then Call letterB
2199 If dc4 = 3 Then Call letterC
2200 If dc4 = 4 Then Call letterD
2201 If dc4 = 5 Then Call letterE
2202 If dc4 = 6 Then Call letterF
2203 If dc4 = 7 Then Call letterG
2204 If dc4 = 8 Then Call letterH
2205 Let x = 580: Let y = 280
2206 If dc5 = 1 Then Call letter1
2207 If dc5 = 2 Then Call letter2
2208 If dc5 = 3 Then Call letter3
2209 If dc5 = 4 Then Call letter4
2210 If dc5 = 5 Then Call letter5
2211 If dc5 = 6 Then Call letter6
2212 If dc5 = 7 Then Call letter7
2213 If dc5 = 8 Then Call letter8
2214 Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
2216 If dc3 = 1 Then Call king
2217 If dc3 = 2 Then Call queen
2218 If dc3 = 3 Then Call bishop
2219 If dc3 = 4 Then Call knight
2220 If dc3 = 5 Then Call rook
2221 If dc3 = 6 Then Call checker
2222 Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
2224 If dc6 = 1 Then Call king
2225 If dc6 = 2 Then Call queen
2226 If dc6 = 3 Then Call bishop
2227 If dc6 = 4 Then Call knight
2228 If dc6 = 5 Then Call rook
2229 If dc6 = 6 Then Call checker
2245 Let count = 0: Let index = 0
2246 Let dc1 = Int(Rnd * 8 + 1)
2247 Let dc2 = Int(Rnd * 8 + 1)
2248 Let dc3 = Int(Rnd * 5 + 2)
2249 Let dc4 = Int(Rnd * 8 + 1)
2250 Let dc5 = Int(Rnd * 8 + 1)
2251 Let dc6 = Int(Rnd * 5 + 2)
2252 Let w3 = board(dc2, dc1): Let b3 = board(dc5, dc4)
2259 Let count = count + 1
2260 Let dc1 = Int(Rnd * 8 + 1)
2261 Let dc2 = Int(Rnd * 8 + 1)
2262 Let w3 = board(dc2, dc1)
2263 If count > 8000 Then Exit Do
2264 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
2266 Let indexw3 = indexw3 + 1
2268 Let count = count + 1
2269 Let dc1 = Int(Rnd * 8 + 1)
2270 Let dc2 = Int(Rnd * 8 + 1)
2271 Let w3 = board(dc2, dc1)
2272 If count > 8000 Then Exit Do
2273 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
2275 Let indexw4 = indexw4 + 1
2277 Let count = count + 1
2278 Let dc1 = Int(Rnd * 8 + 1)
2279 Let dc2 = Int(Rnd * 8 + 1)
2280 Let w3 = board(dc2, dc1)
2281 If count > 8000 Then Exit Do
2282 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
2284 Let indexw5 = indexw5 + 1
2286 Let count = count + 1
2287 Let dc1 = Int(Rnd * 8 + 1)
2288 Let dc2 = Int(Rnd * 8 + 1)
2289 Let fw3x = dc1: Let fw3y = dc2
2290 Let w3 = board(dc2, dc1)
2291 If count > 8000 Then Exit Do
2292 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
2295 Let count = count + 1
2296 Let dc1 = Int(Rnd * 8 + 1)
2297 Let dc2 = Int(Rnd * 8 + 1)
2298 Let w3 = board(dc2, dc1)
2299 If count > 8000 Then Exit Do
2300 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2 Or dc2 < 3 Or dc2 > 5
2307 Let count = count + 1
2308 Let dc4 = Int(Rnd * 8 + 1)
2309 Let dc5 = Int(Rnd * 8 + 1)
2310 Let b3 = board(dc5, dc4)
2311 If count > 8000 Then Exit Do
2312 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
2314 Let indexb3 = indexb3 + 1
2316 Let count = count + 1
2317 Let dc4 = Int(Rnd * 8 + 1)
2318 Let dc5 = Int(Rnd * 8 + 1)
2319 Let b3 = board(dc5, dc4)
2320 If count > 8000 Then Exit Do
2321 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
2323 Let indexb4 = indexb4 + 1
2325 Let count = count + 1
2326 Let dc4 = Int(Rnd * 8 + 1)
2327 Let dc5 = Int(Rnd * 8 + 1)
2328 Let b3 = board(dc5, dc4)
2329 If count > 8000 Then Exit Do
2330 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
2332 Let indexb5 = indexb5 + 1
2334 Let count = count + 1
2335 Let dc4 = Int(Rnd * 8 + 1)
2336 Let dc5 = Int(Rnd * 8 + 1)
2337 Let fb3x = dc4: Let fb3y = dc5
2338 Let b3 = board(dc5, dc4)
2339 If count > 8000 Then Exit Do
2340 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
2343 Let count = count + 1
2344 Let dc4 = Int(Rnd * 8 + 1)
2345 Let dc5 = Int(Rnd * 8 + 1)
2346 Let b3 = board(dc5, dc4)
2347 If count > 8000 Then Exit Do
2348 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2 Or dc5 < 4 Or dc5 > 6
2351 Let w3 = board(dc2, dc1): Let b3 = board(dc5, dc4)
2352 Let fw3x = dc1: Let fw3y = dc2: Let fb3x = dc4: Let fb3y = dc5
2353 Let fw3 = dc3: Let fb3 = dc6
2355 Let x = 20: Let y = 160: Let cf = 15
2356 If dc3 = 1 Then Call king
2357 If dc3 = 2 Then Call queen
2358 If dc3 = 3 Then Call bishop
2359 If dc3 = 4 Then Call knight
2360 If dc3 = 5 Then Call rook
2361 If dc3 = 6 Then Call checker
2362 Let x = 580: Let y = 160: Let cf = 0
2363 If dc6 = 1 Then Call king
2364 If dc6 = 2 Then Call queen
2365 If dc6 = 3 Then Call bishop
2366 If dc6 = 4 Then Call knight
2367 If dc6 = 5 Then Call rook
2368 If dc6 = 6 Then Call checker
2369 Let x = 20: Let y = 220
2370 If dc1 = 1 Then Call letterA
2371 If dc1 = 2 Then Call letterB
2372 If dc1 = 3 Then Call letterC
2373 If dc1 = 4 Then Call letterD
2374 If dc1 = 5 Then Call letterE
2375 If dc1 = 6 Then Call letterF
2376 If dc1 = 7 Then Call letterG
2377 If dc1 = 8 Then Call letterH
2378 Let x = 20: Let y = 280
2379 If dc2 = 1 Then Call letter1
2380 If dc2 = 2 Then Call letter2
2381 If dc2 = 3 Then Call letter3
2382 If dc2 = 4 Then Call letter4
2383 If dc2 = 5 Then Call letter5
2384 If dc2 = 6 Then Call letter6
2385 If dc2 = 7 Then Call letter7
2386 If dc2 = 8 Then Call letter8
2387 Let x = 580: Let y = 220
2388 If dc4 = 1 Then Call letterA
2389 If dc4 = 2 Then Call letterB
2390 If dc4 = 3 Then Call letterC
2391 If dc4 = 4 Then Call letterD
2392 If dc4 = 5 Then Call letterE
2393 If dc4 = 6 Then Call letterF
2394 If dc4 = 7 Then Call letterG
2395 If dc4 = 8 Then Call letterH
2396 Let x = 580: Let y = 280
2397 If dc5 = 1 Then Call letter1
2398 If dc5 = 2 Then Call letter2
2399 If dc5 = 3 Then Call letter3
2400 If dc5 = 4 Then Call letter4
2401 If dc5 = 5 Then Call letter5
2402 If dc5 = 6 Then Call letter6
2403 If dc5 = 7 Then Call letter7
2404 If dc5 = 8 Then Call letter8
2405 Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
2407 If dc3 = 1 Then Call king
2408 If dc3 = 2 Then Call queen
2409 If dc3 = 3 Then Call bishop
2410 If dc3 = 4 Then Call knight
2411 If dc3 = 5 Then Call rook
2412 If dc3 = 6 Then Call checker
2413 Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
2415 If dc6 = 1 Then Call king
2416 If dc6 = 2 Then Call queen
2417 If dc6 = 3 Then Call bishop
2418 If dc6 = 4 Then Call knight
2419 If dc6 = 5 Then Call rook
2420 If dc6 = 6 Then Call checker
2436 Let count = 0: Let index = 0
2437 Let dc1 = Int(Rnd * 8 + 1)
2438 Let dc2 = Int(Rnd * 8 + 1)
2439 Let dc3 = Int(Rnd * 5 + 2)
2440 Let dc4 = Int(Rnd * 8 + 1)
2441 Let dc5 = Int(Rnd * 8 + 1)
2442 Let dc6 = Int(Rnd * 5 + 2)
2443 Let w4 = board(dc2, dc1): Let b4 = board(dc5, dc4)
2444 If indexw3 > 2 Or indexw4 > 2 Or indexw5 > 2 Then Let dc3 = 6
2445 If indexb3 > 2 Or indexb4 > 2 Or indexb5 > 2 Then Let dc6 = 6
2452 Let count = count + 1
2453 Let dc1 = Int(Rnd * 8 + 1)
2454 Let dc2 = Int(Rnd * 8 + 1)
2455 Let w4 = board(dc2, dc1)
2456 If count > 8000 Then Exit Do
2457 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
2460 Let count = count + 1
2461 Let dc1 = Int(Rnd * 8 + 1)
2462 Let dc2 = Int(Rnd * 8 + 1)
2463 Let w4 = board(dc2, dc1)
2464 If count > 8000 Then Exit Do
2465 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
2468 Let count = count + 1
2469 Let dc1 = Int(Rnd * 8 + 1)
2470 Let dc2 = Int(Rnd * 8 + 1)
2471 Let w4 = board(dc2, dc1)
2472 If count > 8000 Then Exit Do
2473 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
2476 Let count = count + 1
2477 Let dc1 = Int(Rnd * 8 + 1)
2478 Let dc2 = Int(Rnd * 8 + 1)
2479 Let fw4x = dc1: Let fw4y = dc2
2480 Let w4 = board(dc2, dc1)
2481 If count > 8000 Then Exit Do
2482 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
2485 Let count = count + 1
2486 Let dc1 = Int(Rnd * 8 + 1)
2487 Let dc2 = Int(Rnd * 8 + 1)
2488 Let w4 = board(dc2, dc1)
2489 If count > 8000 Then Exit Do
2490 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3 Or dc2 < 3 Or dc2 > 5
2497 Let count = count + 1
2498 Let dc4 = Int(Rnd * 8 + 1)
2499 Let dc5 = Int(Rnd * 8 + 1)
2500 Let b4 = board(dc5, dc4)
2501 If count > 8000 Then Exit Do
2502 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
2505 Let count = count + 1
2506 Let dc4 = Int(Rnd * 8 + 1)
2507 Let dc5 = Int(Rnd * 8 + 1)
2508 Let b4 = board(dc5, dc4)
2509 If count > 8000 Then Exit Do
2510 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
2513 Let count = count + 1
2514 Let dc4 = Int(Rnd * 8 + 1)
2515 Let dc5 = Int(Rnd * 8 + 1)
2516 Let b4 = board(dc5, dc4)
2517 If count > 8000 Then Exit Do
2518 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
2521 Let count = count + 1
2522 Let dc4 = Int(Rnd * 8 + 1)
2523 Let dc5 = Int(Rnd * 8 + 1)
2524 Let fb4x = dc4: Let fb4y = dc5
2525 Let b4 = board(dc5, dc4)
2526 If count > 8000 Then Exit Do
2527 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
2530 Let count = count + 1
2531 Let dc4 = Int(Rnd * 8 + 1)
2532 Let dc5 = Int(Rnd * 8 + 1)
2533 Let b4 = board(dc5, dc4)
2534 If count > 8000 Then Exit Do
2535 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3 Or dc5 <= 4 Or dc5 >= 6
2538 Let w4 = board(dc2, dc1): Let b4 = board(dc5, dc4)
2539 Let fw4x = dc1: Let fw4y = dc2: Let fb4x = dc4: Let fb4y = dc5
2540 Let fw4 = dc3: Let fb4 = dc6
2542 Let x = 20: Let y = 160: Let cf = 15
2543 If dc3 = 1 Then Call king
2544 If dc3 = 2 Then Call queen
2545 If dc3 = 3 Then Call bishop
2546 If dc3 = 4 Then Call knight
2547 If dc3 = 5 Then Call rook
2548 If dc3 = 6 Then Call checker
2549 Let x = 580: Let y = 160: Let cf = 0
2550 If dc6 = 1 Then Call king
2551 If dc6 = 2 Then Call queen
2552 If dc6 = 3 Then Call bishop
2553 If dc6 = 4 Then Call knight
2554 If dc6 = 5 Then Call rook
2555 If dc6 = 6 Then Call checker
2556 Let x = 20: Let y = 220
2557 If dc1 = 1 Then Call letterA
2558 If dc1 = 2 Then Call letterB
2559 If dc1 = 3 Then Call letterC
2560 If dc1 = 4 Then Call letterD
2561 If dc1 = 5 Then Call letterE
2562 If dc1 = 6 Then Call letterF
2563 If dc1 = 7 Then Call letterG
2564 If dc1 = 8 Then Call letterH
2565 Let x = 20: Let y = 280
2566 If dc2 = 1 Then Call letter1
2567 If dc2 = 2 Then Call letter2
2568 If dc2 = 3 Then Call letter3
2569 If dc2 = 4 Then Call letter4
2570 If dc2 = 5 Then Call letter5
2571 If dc2 = 6 Then Call letter6
2572 If dc2 = 7 Then Call letter7
2573 If dc2 = 8 Then Call letter8
2574 Let x = 580: Let y = 220
2575 If dc4 = 1 Then Call letterA
2576 If dc4 = 2 Then Call letterB
2577 If dc4 = 3 Then Call letterC
2578 If dc4 = 4 Then Call letterD
2579 If dc4 = 5 Then Call letterE
2580 If dc4 = 6 Then Call letterF
2581 If dc4 = 7 Then Call letterG
2582 If dc4 = 8 Then Call letterH
2583 Let x = 580: Let y = 280
2584 If dc5 = 1 Then Call letter1
2585 If dc5 = 2 Then Call letter2
2586 If dc5 = 3 Then Call letter3
2587 If dc5 = 4 Then Call letter4
2588 If dc5 = 5 Then Call letter5
2589 If dc5 = 6 Then Call letter6
2590 If dc5 = 7 Then Call letter7
2591 If dc5 = 8 Then Call letter8
2592 Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
2594 If dc3 = 1 Then Call king
2595 If dc3 = 2 Then Call queen
2596 If dc3 = 3 Then Call bishop
2597 If dc3 = 4 Then Call knight
2598 If dc3 = 5 Then Call rook
2599 If dc3 = 6 Then Call checker
2600 Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
2602 If dc6 = 1 Then Call king
2603 If dc6 = 2 Then Call queen
2604 If dc6 = 3 Then Call bishop
2605 If dc6 = 4 Then Call knight
2606 If dc6 = 5 Then Call rook
2607 If dc6 = 6 Then Call checker
2625 Let count = 0: Let index = 0
2626 Let dc1 = Int(Rnd * 3 + 4)
2627 Let dc2 = Int(Rnd * 3 + 1)
2629 Let dc4 = Int(Rnd * 3 + 4)
2630 Let dc5 = Int(Rnd * 3 + 8)
2632 Let w1 = xiabo(dc2, dc1): Let b1 = xiabo(dc5, dc4)
2635 Let count = count + 1
2636 Let dc1 = Int(Rnd * 3 + 4)
2637 Let dc2 = Int(Rnd * 3 + 1)
2638 Let dc4 = Int(Rnd * 3 + 4)
2639 Let dc5 = Int(Rnd * 3 + 8)
2640 Let w1 = xiabo(dc2, dc1): Let b1 = xiabo(dc5, dc4)
2641 If count > 8000 Then Exit Do
2644 Let w1 = xiabo(dc2, dc1): Let b1 = xiabo(dc5, dc4)
2645 Let fw1x = dc1: Let fw1y = dc2: Let fb1x = dc4: Let fb1y = dc5
2646 Let fw1 = dc3: Let fb1 = dc6
2648 Let x = 20: Let y = 160: Let cf = 15
2649 If dc3 = 1 Then Call king
2650 If dc3 = 2 Then Call queen
2651 If dc3 = 3 Then Call bishop
2652 If dc3 = 4 Then Call knight
2653 If dc3 = 5 Then Call rook
2654 If dc3 = 6 Then Call cannon
2655 If dc3 = 7 Then Call pawn
2656 Let x = 580: Let y = 160: Let cf = 0
2657 If dc6 = 1 Then Call king
2658 If dc6 = 2 Then Call queen
2659 If dc6 = 3 Then Call bishop
2660 If dc6 = 4 Then Call knight
2661 If dc6 = 5 Then Call rook
2662 If dc6 = 6 Then Call cannon
2663 If dc6 = 7 Then Call pawn
2664 Let x = 20: Let y = 220
2665 If dc1 = 1 Then Call letterA
2666 If dc1 = 2 Then Call letterB
2667 If dc1 = 3 Then Call letterC
2668 If dc1 = 4 Then Call letterD
2669 If dc1 = 5 Then Call letterE
2670 If dc1 = 6 Then Call letterF
2671 If dc1 = 7 Then Call letterG
2672 If dc1 = 8 Then Call letterH
2673 If dc1 = 9 Then Call letterI
2674 Let x = 20: Let y = 280
2675 If dc2 = 1 Then Call letter1
2676 If dc2 = 2 Then Call letter2
2677 If dc2 = 3 Then Call letter3
2678 If dc2 = 4 Then Call letter4
2679 If dc2 = 5 Then Call letter5
2680 If dc2 = 6 Then Call letter6
2681 If dc2 = 7 Then Call letter7
2682 If dc2 = 8 Then Call letter8
2683 If dc2 = 9 Then Call letter9
2684 If dc2 = 10 Then Call letter0
2685 Let x = 580: Let y = 220
2686 If dc4 = 1 Then Call letterA
2687 If dc4 = 2 Then Call letterB
2688 If dc4 = 3 Then Call letterC
2689 If dc4 = 4 Then Call letterD
2690 If dc4 = 5 Then Call letterE
2691 If dc4 = 6 Then Call letterF
2692 If dc4 = 7 Then Call letterG
2693 If dc4 = 8 Then Call letterH
2694 If dc4 = 9 Then Call letterI
2695 Let x = 580: Let y = 280
2696 If dc5 = 1 Then Call letter1
2697 If dc5 = 2 Then Call letter2
2698 If dc5 = 3 Then Call letter3
2699 If dc5 = 4 Then Call letter4
2700 If dc5 = 5 Then Call letter5
2701 If dc5 = 6 Then Call letter6
2702 If dc5 = 7 Then Call letter7
2703 If dc5 = 8 Then Call letter8
2704 If dc5 = 9 Then Call letter9
2705 If dc5 = 10 Then Call letter0
2706 Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 40
2707 Let cf = 15: Call king
2708 Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 40
2709 Let cf = 0: Call king
2725 Let count = 0: Let index = 0
2726 Let dc1 = Int(Rnd * 9 + 1)
2727 Let dc2 = Int(Rnd * 10 + 1)
2728 Let dc3 = Int(Rnd * 6 + 2)
2729 Let dc4 = Int(Rnd * 9 + 1)
2730 Let dc5 = Int(Rnd * 10 + 1)
2731 Let dc6 = Int(Rnd * 6 + 2)
2732 Let w2 = xiabo(dc2, dc1): Let b2 = xiabo(dc5, dc4)
2739 Let dc1 = Int(Rnd * 3 + 4)
2740 Let dc2 = Int(Rnd * 3 + 1)
2742 Let count = count + 1
2743 Let index = Int(Rnd * 5 + 1)
2764 Let w2 = xiabo(dc2, dc1)
2765 If count > 8000 Then Exit Do
2766 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or w2 Mod 2 <> 0
2769 Let dc1 = Int(Rnd * 9 + 1)
2770 Let dc2 = Int(Rnd * 5 + 1)
2772 Let count = count + 1
2773 Let index = Int(Rnd * 7 + 1)
2802 Let w2 = xiabo(dc2, dc1)
2803 If count > 8000 Then Exit Do
2804 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
2808 Let count = count + 1
2809 Let dc1 = Int(Rnd * 9 + 1)
2810 Let dc2 = Int(Rnd * 10 + 1)
2811 Let w2 = xiabo(dc2, dc1)
2812 If count > 8000 Then Exit Do
2813 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
2817 Let count = count + 1
2818 Let dc1 = Int(Rnd * 9 + 1)
2819 Let dc2 = Int(Rnd * 10 + 1)
2820 Let fw2x = dc1: Let fw2y = dc2
2821 Let w2 = xiabo(dc2, dc1)
2822 If count > 8000 Then Exit Do
2823 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
2827 Let count = count + 1
2828 Let dc1 = Int(Rnd * 9 + 1)
2829 Let dc2 = Int(Rnd * 10 + 1)
2830 Let fw2x = dc1: Let fw2y = dc2
2831 Let w2 = xiabo(dc2, dc1)
2832 If count > 8000 Then Exit Do
2833 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
2836 Let count = count + 1
2837 Let dc1 = Int(Rnd * 9 + 1)
2838 Let dc2 = Int(Rnd * 10 + 1)
2839 Let w2 = xiabo(dc2, dc1)
2840 If count > 8000 Then Exit Do
2841 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 < 4 Or dc2 > 7
2848 Let dc4 = Int(Rnd * 3 + 4)
2849 Let dc5 = Int(Rnd * 3 + 8)
2851 Let count = count + 1
2852 Let index = Int(Rnd * 5 + 1)
2873 Let b2 = xiabo(dc5, dc4)
2874 If count > 8000 Then Exit Do
2875 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or b2 Mod 2 = 0
2878 Let dc4 = Int(Rnd * 9 + 1)
2879 Let dc5 = Int(Rnd * 5 + 6)
2881 Let count = count + 1
2882 Let index = Int(Rnd * 7 + 1)
2911 Let b2 = xiabo(dc5, dc4)
2912 If count > 8000 Then Exit Do
2913 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or b2
2917 Let count = count + 1
2918 Let dc4 = Int(Rnd * 9 + 1)
2919 Let dc5 = Int(Rnd * 10 + 1)
2920 Let b2 = xiabo(dc5, dc4)
2921 If count > 8000 Then Exit Do
2922 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
2926 Let count = count + 1
2927 Let dc4 = Int(Rnd * 9 + 1)
2928 Let dc5 = Int(Rnd * 10 + 1)
2929 Let fb2x = dc4: Let fb2y = dc5
2930 Let b2 = xiabo(dc5, dc4)
2931 If count > 8000 Then Exit Do
2932 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
2936 Let count = count + 1
2937 Let dc4 = Int(Rnd * 9 + 1)
2938 Let dc5 = Int(Rnd * 10 + 1)
2939 Let fb2x = dc4: Let fb2y = dc5
2940 Let b2 = xiabo(dc5, dc4)
2941 If count > 8000 Then Exit Do
2942 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
2945 Let count = count + 1
2946 Let dc4 = Int(Rnd * 9 + 1)
2947 Let dc5 = Int(Rnd * 10 + 1)
2948 Let b2 = xiabo(dc5, dc4)
2949 If count > 8000 Then Exit Do
2950 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 < 3 Or dc5 > 8
2953 Let w2 = xiabo(dc2, dc1): Let b2 = xiabo(dc5, dc4)
2954 Let fw2x = dc1: Let fw2y = dc2: Let fb2x = dc4: Let fb2y = dc5
2955 Let fw2 = dc3: Let fb2 = dc6
2957 Let x = 20: Let y = 160: Let cf = 15
2958 If dc3 = 1 Then Call king
2959 If dc3 = 2 Then Call queen
2960 If dc3 = 3 Then Call bishop
2961 If dc3 = 4 Then Call knight
2962 If dc3 = 5 Then Call rook
2963 If dc3 = 6 Then Call cannon
2964 If dc3 = 7 Then Call pawn
2965 Let x = 580: Let y = 160: Let cf = 0
2966 If dc6 = 1 Then Call king
2967 If dc6 = 2 Then Call queen
2968 If dc6 = 3 Then Call bishop
2969 If dc6 = 4 Then Call knight
2970 If dc6 = 5 Then Call rook
2971 If dc6 = 6 Then Call cannon
2972 If dc6 = 7 Then Call pawn
2973 Let x = 20: Let y = 220
2974 If dc1 = 1 Then Call letterA
2975 If dc1 = 2 Then Call letterB
2976 If dc1 = 3 Then Call letterC
2977 If dc1 = 4 Then Call letterD
2978 If dc1 = 5 Then Call letterE
2979 If dc1 = 6 Then Call letterF
2980 If dc1 = 7 Then Call letterG
2981 If dc1 = 8 Then Call letterH
2982 If dc1 = 9 Then Call letterI
2983 Let x = 20: Let y = 280
2984 If dc2 = 1 Then Call letter1
2985 If dc2 = 2 Then Call letter2
2986 If dc2 = 3 Then Call letter3
2987 If dc2 = 4 Then Call letter4
2988 If dc2 = 5 Then Call letter5
2989 If dc2 = 6 Then Call letter6
2990 If dc2 = 7 Then Call letter7
2991 If dc2 = 8 Then Call letter8
2992 If dc2 = 9 Then Call letter9
2993 If dc2 = 10 Then Call letter0
2994 Let x = 580: Let y = 220
2995 If dc4 = 1 Then Call letterA
2996 If dc4 = 2 Then Call letterB
2997 If dc4 = 3 Then Call letterC
2998 If dc4 = 4 Then Call letterD
2999 If dc4 = 5 Then Call letterE
3000 If dc4 = 6 Then Call letterF
3001 If dc4 = 7 Then Call letterG
3002 If dc4 = 8 Then Call letterH
3003 If dc4 = 9 Then Call letterI
3004 Let x = 580: Let y = 280
3005 If dc5 = 1 Then Call letter1
3006 If dc5 = 2 Then Call letter2
3007 If dc5 = 3 Then Call letter3
3008 If dc5 = 4 Then Call letter4
3009 If dc5 = 5 Then Call letter5
3010 If dc5 = 6 Then Call letter6
3011 If dc5 = 7 Then Call letter7
3012 If dc5 = 8 Then Call letter8
3013 If dc5 = 9 Then Call letter9
3014 If dc5 = 10 Then Call letter0
3015 Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 40
3017 If dc3 = 1 Then Call king
3018 If dc3 = 2 Then Call queen
3019 If dc3 = 3 Then Call bishop
3020 If dc3 = 4 Then Call knight
3021 If dc3 = 5 Then Call rook
3022 If dc3 = 6 Then Call cannon
3023 If dc3 = 7 Then Call pawn
3024 Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 40
3026 If dc6 = 1 Then Call king
3027 If dc6 = 2 Then Call queen
3028 If dc6 = 3 Then Call bishop
3029 If dc6 = 4 Then Call knight
3030 If dc6 = 5 Then Call rook
3031 If dc6 = 6 Then Call cannon
3032 If dc6 = 7 Then Call pawn
3048 Let count = 0: Let index = 0
3049 Let dc1 = Int(Rnd * 9 + 1)
3050 Let dc2 = Int(Rnd * 10 + 1)
3051 Let dc3 = Int(Rnd * 6 + 2)
3052 Let dc4 = Int(Rnd * 9 + 1)
3053 Let dc5 = Int(Rnd * 10 + 1)
3054 Let dc6 = Int(Rnd * 6 + 2)
3055 Let w3 = xiabo(dc2, dc1): Let b3 = xiabo(dc5, dc4)
3061 Let indexw2 = indexw2 + 1
3062 Let dc1 = Int(Rnd * 3 + 4)
3063 Let dc2 = Int(Rnd * 3 + 1)
3065 Let count = count + 1
3066 Let index = Int(Rnd * 5 + 1)
3087 Let w3 = xiabo(dc2, dc1)
3088 If count > 8000 Then Exit Do
3089 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2 Or w3 Mod 2 <> 0
3091 Let indexw3 = indexw3 + 1
3092 Let dc1 = Int(Rnd * 9 + 1)
3093 Let dc2 = Int(Rnd * 5 + 1)
3095 Let count = count + 1
3096 Let index = Int(Rnd * 7 + 1)
3125 Let w3 = xiabo(dc2, dc1)
3126 If count > 8000 Then Exit Do
3127 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
3129 Let indexw4 = indexw4 + 1
3131 Let count = count + 1
3132 Let dc1 = Int(Rnd * 9 + 1)
3133 Let dc2 = Int(Rnd * 10 + 1)
3134 Let w3 = xiabo(dc2, dc1)
3135 If count > 8000 Then Exit Do
3136 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
3138 Let indexw5 = indexw5 + 1
3140 Let count = count + 1
3141 Let dc1 = Int(Rnd * 9 + 1)
3142 Let dc2 = Int(Rnd * 10 + 1)
3143 Let fw3x = dc1: Let fw3y = dc2
3144 Let w3 = xiabo(dc2, dc1)
3145 If count > 8000 Then Exit Do
3146 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
3148 Let indexw6 = indexw6 + 1
3150 Let count = count + 1
3151 Let dc1 = Int(Rnd * 9 + 1)
3152 Let dc2 = Int(Rnd * 10 + 1)
3153 Let fw3x = dc1: Let fw3y = dc2
3154 Let w3 = xiabo(dc2, dc1)
3155 If count > 8000 Then Exit Do
3156 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
3159 Let count = count + 1
3160 Let dc1 = Int(Rnd * 9 + 1)
3161 Let dc2 = Int(Rnd * 10 + 1)
3162 Let w3 = xiabo(dc2, dc1)
3163 If count > 8000 Then Exit Do
3164 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2 Or dc2 < 4 Or dc2 > 7
3170 Let indexb2 = indexb2 + 1
3171 Let dc4 = Int(Rnd * 3 + 4)
3172 Let dc5 = Int(Rnd * 3 + 8)
3174 Let count = count + 1
3175 Let index = Int(Rnd * 5 + 1)
3196 Let b3 = xiabo(dc5, dc4)
3197 If count > 8000 Then Exit Do
3198 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2 Or b3 Mod 2 = 0
3200 Let indexb3 = indexb3 + 1
3201 Let dc4 = Int(Rnd * 9 + 1)
3202 Let dc5 = Int(Rnd * 5 + 6)
3204 Let count = count + 1
3205 Let index = Int(Rnd * 7 + 1)
3234 Let b3 = xiabo(dc5, dc4)
3235 If count > 8000 Then Exit Do
3236 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
3238 Let indexb4 = indexb4 + 1
3240 Let count = count + 1
3241 Let dc4 = Int(Rnd * 9 + 1)
3242 Let dc5 = Int(Rnd * 10 + 1)
3243 Let b3 = xiabo(dc5, dc4)
3244 If count > 8000 Then Exit Do
3245 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
3247 Let indexb5 = indexb5 + 1
3249 Let count = count + 1
3250 Let dc4 = Int(Rnd * 9 + 1)
3251 Let dc5 = Int(Rnd * 10 + 1)
3252 Let fb3x = dc4: Let fb3y = dc5
3253 Let b3 = xiabo(dc5, dc4)
3254 If count > 8000 Then Exit Do
3255 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
3257 Let indexb6 = indexb6 + 1
3259 Let count = count + 1
3260 Let dc4 = Int(Rnd * 9 + 1)
3261 Let dc5 = Int(Rnd * 10 + 1)
3262 Let fb3x = dc4: Let fb3y = dc5
3263 Let b3 = xiabo(dc5, dc4)
3264 If count > 8000 Then Exit Do
3265 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
3268 Let count = count + 1
3269 Let dc4 = Int(Rnd * 9 + 1)
3270 Let dc5 = Int(Rnd * 10 + 1)
3271 Let b3 = xiabo(dc5, dc4)
3272 If count > 8000 Then Exit Do
3273 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2 Or dc5 < 3 Or dc5 > 8
3276 Let w3 = xiabo(dc2, dc1): Let b3 = xiabo(dc5, dc4)
3277 Let fw3x = dc1: Let fw3y = dc2: Let fb3x = dc4: Let fb3y = dc5
3278 Let fw3 = dc3: Let fb3 = dc6
3280 Let x = 20: Let y = 160: Let cf = 15
3281 If dc3 = 1 Then Call king
3282 If dc3 = 2 Then Call queen
3283 If dc3 = 3 Then Call bishop
3284 If dc3 = 4 Then Call knight
3285 If dc3 = 5 Then Call rook
3286 If dc3 = 6 Then Call cannon
3287 If dc3 = 7 Then Call pawn
3288 Let x = 580: Let y = 160: Let cf = 0
3289 If dc6 = 1 Then Call king
3290 If dc6 = 2 Then Call queen
3291 If dc6 = 3 Then Call bishop
3292 If dc6 = 4 Then Call knight
3293 If dc6 = 5 Then Call rook
3294 If dc6 = 6 Then Call cannon
3295 If dc6 = 7 Then Call pawn
3296 Let x = 20: Let y = 220
3297 If dc1 = 1 Then Call letterA
3298 If dc1 = 2 Then Call letterB
3299 If dc1 = 3 Then Call letterC
3300 If dc1 = 4 Then Call letterD
3301 If dc1 = 5 Then Call letterE
3302 If dc1 = 6 Then Call letterF
3303 If dc1 = 7 Then Call letterG
3304 If dc1 = 8 Then Call letterH
3305 If dc1 = 9 Then Call letterI
3306 Let x = 20: Let y = 280
3307 If dc2 = 1 Then Call letter1
3308 If dc2 = 2 Then Call letter2
3309 If dc2 = 3 Then Call letter3
3310 If dc2 = 4 Then Call letter4
3311 If dc2 = 5 Then Call letter5
3312 If dc2 = 6 Then Call letter6
3313 If dc2 = 7 Then Call letter7
3314 If dc2 = 8 Then Call letter8
3315 If dc2 = 9 Then Call letter9
3316 If dc2 = 10 Then Call letter0
3317 Let x = 580: Let y = 220
3318 If dc4 = 1 Then Call letterA
3319 If dc4 = 2 Then Call letterB
3320 If dc4 = 3 Then Call letterC
3321 If dc4 = 4 Then Call letterD
3322 If dc4 = 5 Then Call letterE
3323 If dc4 = 6 Then Call letterF
3324 If dc4 = 7 Then Call letterG
3325 If dc4 = 8 Then Call letterH
3326 If dc4 = 9 Then Call letterI
3327 Let x = 580: Let y = 280
3328 If dc5 = 1 Then Call letter1
3329 If dc5 = 2 Then Call letter2
3330 If dc5 = 3 Then Call letter3
3331 If dc5 = 4 Then Call letter4
3332 If dc5 = 5 Then Call letter5
3333 If dc5 = 6 Then Call letter6
3334 If dc5 = 7 Then Call letter7
3335 If dc5 = 8 Then Call letter8
3336 If dc5 = 9 Then Call letter9
3337 If dc5 = 10 Then Call letter0
3338 Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 40
3340 If dc3 = 1 Then Call king
3341 If dc3 = 2 Then Call queen
3342 If dc3 = 3 Then Call bishop
3343 If dc3 = 4 Then Call knight
3344 If dc3 = 5 Then Call rook
3345 If dc3 = 6 Then Call cannon
3346 If dc3 = 7 Then Call pawn
3347 Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 40
3349 If dc6 = 1 Then Call king
3350 If dc6 = 2 Then Call queen
3351 If dc6 = 3 Then Call bishop
3352 If dc6 = 4 Then Call knight
3353 If dc6 = 5 Then Call rook
3354 If dc6 = 6 Then Call cannon
3355 If dc6 = 7 Then Call pawn
3371 Let count = 0: Let index = 0
3372 Let dc1 = Int(Rnd * 9 + 1)
3373 Let dc2 = Int(Rnd * 10 + 1)
3374 Let dc3 = Int(Rnd * 6 + 2)
3375 Let dc4 = Int(Rnd * 9 + 1)
3376 Let dc5 = Int(Rnd * 10 + 1)
3377 Let dc6 = Int(Rnd * 6 + 2)
3378 Let w4 = xiabo(dc2, dc1): Let b2 = xiabo(dc5, dc4)
3379 If indexw2 > 2 Or indexw3 > 2 Or indexw4 > 2 Or indexw5 > 2 Or indexw6 > 2 Then dc3 = 7
3380 If indexb2 > 2 Or indexb3 > 2 Or indexb4 > 2 Or indexb5 > 2 Or indexb6 > 2 Then dc6 = 7
3386 Let dc1 = Int(Rnd * 3 + 4)
3387 Let dc2 = Int(Rnd * 3 + 1)
3389 Let count = count + 1
3390 Let index = Int(Rnd * 5 + 1)
3411 Let w4 = xiabo(dc2, dc1)
3412 If count > 8000 Then Exit Do
3413 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3 Or w4 Mod 2 <> 0
3415 Let dc1 = Int(Rnd * 9 + 1)
3416 Let dc2 = Int(Rnd * 5 + 1)
3418 Let count = count + 1
3419 Let index = Int(Rnd * 7 + 1)
3448 Let w4 = xiabo(dc2, dc1)
3449 If count > 8000 Then Exit Do
3450 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
3453 Let count = count + 1
3454 Let dc1 = Int(Rnd * 9 + 1)
3455 Let dc2 = Int(Rnd * 10 + 1)
3456 Let w4 = xiabo(dc2, dc1)
3457 If count > 8000 Then Exit Do
3458 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
3461 Let count = count + 1
3462 Let dc1 = Int(Rnd * 9 + 1)
3463 Let dc2 = Int(Rnd * 10 + 1)
3464 Let fw4x = dc1: Let fw4y = dc2
3465 Let w4 = xiabo(dc2, dc1)
3466 If count > 8000 Then Exit Do
3467 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
3470 Let count = count + 1
3471 Let dc1 = Int(Rnd * 9 + 1)
3472 Let dc2 = Int(Rnd * 10 + 1)
3473 Let fw4x = dc1: Let fw4y = dc2
3474 Let w4 = xiabo(dc2, dc1)
3475 If count > 8000 Then Exit Do
3476 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
3479 Let count = count + 1
3480 Let dc1 = Int(Rnd * 9 + 1)
3481 Let dc2 = Int(Rnd * 10 + 1)
3482 Let w4 = xiabo(dc2, dc1)
3483 If count > 8000 Then Exit Do
3484 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3 < 3 Or dc2 > 8
3490 Let dc4 = Int(Rnd * 3 + 4)
3491 Let dc5 = Int(Rnd * 3 + 8)
3493 Let count = count + 1
3494 Let index = Int(Rnd * 5 + 1)
3515 Let b4 = xiabo(dc5, dc4)
3516 If count > 8000 Then Exit Do
3517 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3 Or b4 Mod 2 = 0
3519 Let dc4 = Int(Rnd * 9 + 1)
3520 Let dc5 = Int(Rnd * 5 + 6)
3522 Let count = count + 1
3523 Let index = Int(Rnd * 7 + 1)
3552 Let b4 = xiabo(dc5, dc4)
3553 If count > 8000 Then Exit Do
3554 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
3557 Let count = count + 1
3558 Let dc4 = Int(Rnd * 9 + 1)
3559 Let dc5 = Int(Rnd * 10 + 1)
3560 Let b4 = xiabo(dc5, dc4)
3561 If count > 8000 Then Exit Do
3562 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
3565 Let count = count + 1
3566 Let dc4 = Int(Rnd * 9 + 1)
3567 Let dc5 = Int(Rnd * 10 + 1)
3568 Let fb4x = dc4: Let fb4y = dc5
3569 Let b4 = xiabo(dc5, dc4)
3570 If count > 8000 Then Exit Do
3571 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
3574 Let count = count + 1
3575 Let dc4 = Int(Rnd * 9 + 1)
3576 Let dc5 = Int(Rnd * 10 + 1)
3577 Let fb4x = dc4: Let fb4y = dc5
3578 Let b4 = xiabo(dc5, dc4)
3579 If count > 8000 Then Exit Do
3580 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
3583 Let count = count + 1
3584 Let dc4 = Int(Rnd * 9 + 1)
3585 Let dc5 = Int(Rnd * 10 + 1)
3586 Let b4 = xiabo(dc5, dc4)
3587 If count > 8000 Then Exit Do
3588 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3 Or dc5 < 3 Or dc5 > 8
3591 Let w4 = xiabo(dc2, dc1): Let b4 = xiabo(dc5, dc4)
3592 Let fw4x = dc1: Let fw4y = dc2: Let fb4x = dc4: Let fb4y = dc5
3593 Let fw4 = dc3: Let fb4 = dc6
3595 Let x = 20: Let y = 160: Let cf = 15
3596 If dc3 = 1 Then Call king
3597 If dc3 = 2 Then Call queen
3598 If dc3 = 3 Then Call bishop
3599 If dc3 = 4 Then Call knight
3600 If dc3 = 5 Then Call rook
3601 If dc3 = 6 Then Call cannon
3602 If dc3 = 7 Then Call pawn
3603 Let x = 580: Let y = 160: Let cf = 0
3604 If dc6 = 1 Then Call king
3605 If dc6 = 2 Then Call queen
3606 If dc6 = 3 Then Call bishop
3607 If dc6 = 4 Then Call knight
3608 If dc6 = 5 Then Call rook
3609 If dc6 = 6 Then Call cannon
3610 If dc6 = 7 Then Call pawn
3611 Let x = 20: Let y = 220
3612 If dc1 = 1 Then Call letterA
3613 If dc1 = 2 Then Call letterB
3614 If dc1 = 3 Then Call letterC
3615 If dc1 = 4 Then Call letterD
3616 If dc1 = 5 Then Call letterE
3617 If dc1 = 6 Then Call letterF
3618 If dc1 = 7 Then Call letterG
3619 If dc1 = 8 Then Call letterH
3620 If dc1 = 9 Then Call letterI
3621 Let x = 20: Let y = 280
3622 If dc2 = 1 Then Call letter1
3623 If dc2 = 2 Then Call letter2
3624 If dc2 = 3 Then Call letter3
3625 If dc2 = 4 Then Call letter4
3626 If dc2 = 5 Then Call letter5
3627 If dc2 = 6 Then Call letter6
3628 If dc2 = 7 Then Call letter7
3629 If dc2 = 8 Then Call letter8
3630 If dc2 = 9 Then Call letter9
3631 If dc2 = 10 Then Call letter0
3632 Let x = 580: Let y = 220
3633 If dc4 = 1 Then Call letterA
3634 If dc4 = 2 Then Call letterB
3635 If dc4 = 3 Then Call letterC
3636 If dc4 = 4 Then Call letterD
3637 If dc4 = 5 Then Call letterE
3638 If dc4 = 6 Then Call letterF
3639 If dc4 = 7 Then Call letterG
3640 If dc4 = 8 Then Call letterH
3641 If dc4 = 9 Then Call letterI
3642 Let x = 580: Let y = 280
3643 If dc5 = 1 Then Call letter1
3644 If dc5 = 2 Then Call letter2
3645 If dc5 = 3 Then Call letter3
3646 If dc5 = 4 Then Call letter4
3647 If dc5 = 5 Then Call letter5
3648 If dc5 = 6 Then Call letter6
3649 If dc5 = 7 Then Call letter7
3650 If dc5 = 8 Then Call letter8
3651 If dc5 = 9 Then Call letter9
3652 If dc5 = 10 Then Call letter0
3653 Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 40
3655 If dc3 = 1 Then Call king
3656 If dc3 = 2 Then Call queen
3657 If dc3 = 3 Then Call bishop
3658 If dc3 = 4 Then Call knight
3659 If dc3 = 5 Then Call rook
3660 If dc3 = 6 Then Call cannon
3661 If dc3 = 7 Then Call pawn
3662 Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 40
3664 If dc6 = 1 Then Call king
3665 If dc6 = 2 Then Call queen
3666 If dc6 = 3 Then Call bishop
3667 If dc6 = 4 Then Call knight
3668 If dc6 = 5 Then Call rook
3669 If dc6 = 6 Then Call cannon
3670 If dc6 = 7 Then Call pawn
3688 Let count = 0: Let index = 0
3689 Let dc1 = Int(Rnd * 9 + 1)
3690 Let dc2 = Int(Rnd * 9 + 1)
3692 Let dc4 = Int(Rnd * 9 + 1)
3693 Let dc5 = Int(Rnd * 9 + 1)
3695 Let w1 = shobo(dc2, dc1): Let b1 = shobo(dc5, dc4)
3698 Let count = count + 1
3699 Let dc1 = Int(Rnd * 9 + 1)
3700 Let dc2 = Int(Rnd * 9 + 1)
3701 Let dc4 = Int(Rnd * 9 + 1)
3702 Let dc5 = Int(Rnd * 9 + 1)
3703 Let w1 = shobo(dc2, dc1): Let b1 = shobo(dc5, dc4)
3704 If count > 8000 Then Exit Do
3705 Loop While Abs(w1 - b1) < 11
3707 Let w1 = shobo(dc2, dc1): Let b1 = shobo(dc5, dc4)
3708 Let fw1x = dc1: Let fw1y = dc2: Let fb1x = dc4: Let fb1y = dc5
3709 Let fw1 = dc3: Let fb1 = dc6
3711 Let x = 20: Let y = 160: Let cf = 15
3712 If dc3 = 1 Then Call king
3713 If dc3 = 2 Then Call queen
3714 If dc3 = 3 Then Call general
3715 If dc3 = 4 Then Call bishop
3716 If dc3 = 5 Then Call knight
3717 If dc3 = 6 Then Call rook
3718 If dc3 = 7 Then Call lance
3719 If dc3 = 8 Then Call pawn
3720 If dc3 = 9 Then Call tokin
3721 If dc3 = 10 Then Call dragon
3722 If dc3 = 11 Then Call horse
3723 Let x = 580: Let y = 160: Let cf = 0
3724 If dc6 = 1 Then Call king
3725 If dc6 = 2 Then Call queen
3726 If dc6 = 3 Then Call general
3727 If dc6 = 4 Then Call bishop
3728 If dc6 = 5 Then Call knight
3729 If dc6 = 6 Then Call rook
3730 If dc6 = 7 Then Call lance
3731 If dc6 = 8 Then Call pawn
3732 If dc6 = 9 Then Call tokin
3733 If dc6 = 10 Then Call dragon
3734 If dc6 = 11 Then Call horse
3735 Let x = 20: Let y = 220
3736 If dc1 = 1 Then Call letterA
3737 If dc1 = 2 Then Call letterB
3738 If dc1 = 3 Then Call letterC
3739 If dc1 = 4 Then Call letterD
3740 If dc1 = 5 Then Call letterE
3741 If dc1 = 6 Then Call letterF
3742 If dc1 = 7 Then Call letterG
3743 If dc1 = 8 Then Call letterH
3744 If dc1 = 9 Then Call letterI
3745 Let x = 20: Let y = 280
3746 If dc2 = 1 Then Call letter1
3747 If dc2 = 2 Then Call letter2
3748 If dc2 = 3 Then Call letter3
3749 If dc2 = 4 Then Call letter4
3750 If dc2 = 5 Then Call letter5
3751 If dc2 = 6 Then Call letter6
3752 If dc2 = 7 Then Call letter7
3753 If dc2 = 8 Then Call letter8
3754 If dc2 = 9 Then Call letter9
3755 If dc2 = 10 Then Call letter0
3756 Let x = 580: Let y = 220
3757 If dc4 = 1 Then Call letterA
3758 If dc4 = 2 Then Call letterB
3759 If dc4 = 3 Then Call letterC
3760 If dc4 = 4 Then Call letterD
3761 If dc4 = 5 Then Call letterE
3762 If dc4 = 6 Then Call letterF
3763 If dc4 = 7 Then Call letterG
3764 If dc4 = 8 Then Call letterH
3765 If dc4 = 9 Then Call letterI
3766 Let x = 580: Let y = 280
3767 If dc5 = 1 Then Call letter1
3768 If dc5 = 2 Then Call letter2
3769 If dc5 = 3 Then Call letter3
3770 If dc5 = 4 Then Call letter4
3771 If dc5 = 5 Then Call letter5
3772 If dc5 = 6 Then Call letter6
3773 If dc5 = 7 Then Call letter7
3774 If dc5 = 8 Then Call letter8
3775 If dc5 = 9 Then Call letter9
3776 If dc5 = 10 Then Call letter0
3777 Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 60
3778 Let cf = 15: Call king
3779 Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 60
3780 Let cf = 0: Call king
3796 Let count = 0: Let index = 0
3797 Let dc1 = Int(Rnd * 9 + 1)
3798 Let dc2 = Int(Rnd * 9 + 1)
3799 Let dc3 = Int(Rnd * 10 + 2)
3800 Let dc4 = Int(Rnd * 9 + 1)
3801 Let dc5 = Int(Rnd * 9 + 1)
3802 Let dc6 = Int(Rnd * 10 + 2)
3803 Let w2 = shobo(dc2, dc1): Let b2 = shobo(dc5, dc4)
3810 Let count = count + 1
3811 Let dc1 = Int(Rnd * 9 + 1)
3812 Let dc2 = Int(Rnd * 9 + 1)
3813 Let w2 = shobo(dc2, dc1)
3814 If count > 8000 Then Exit Do
3815 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3819 Let count = count + 1
3820 Let dc1 = Int(Rnd * 9 + 1)
3821 Let dc2 = Int(Rnd * 9 + 1)
3822 Let w2 = shobo(dc2, dc1)
3823 If count > 8000 Then Exit Do
3824 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3828 Let count = count + 1
3829 Let dc1 = Int(Rnd * 9 + 1)
3830 Let dc2 = Int(Rnd * 9 + 1)
3831 Let w2 = shobo(dc2, dc1)
3832 If count > 8000 Then Exit Do
3833 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3837 Let count = count + 1
3838 Let dc1 = Int(Rnd * 9 + 1)
3839 Let dc2 = Int(Rnd * 9 + 1)
3840 Let fw2x = dc1: Let fw2y = dc2
3841 Let w2 = shobo(dc2, dc1)
3842 If count > 8000 Then Exit Do
3843 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3847 Let count = count + 1
3848 Let dc1 = Int(Rnd * 9 + 1)
3849 Let dc2 = Int(Rnd * 9 + 1)
3850 Let fw2x = dc1: Let fw2y = dc2
3851 Let w2 = shobo(dc2, dc1)
3852 If count > 8000 Then Exit Do
3853 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3856 Let index = Int(Rnd * 2 + 1)
3857 If index = 1 Then Let dc1 = 1 Else Let dc1 = 9
3858 If dc1 = 1 Then Let indexw71 = 1 Else Let indexw72 = 1
3860 Let count = count + 1
3861 Let dc2 = Int(Rnd * 9 + 1)
3862 Let w2 = shobo(dc2, dc1)
3863 If count > 8000 Then Exit Do
3864 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3867 Let count = count + 1
3868 Let dc1 = Int(Rnd * 9 + 1)
3869 Let dc2 = Int(Rnd * 9 + 1)
3870 Let w2 = shobo(dc2, dc1)
3871 If count > 8000 Then Exit Do
3872 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 < 3 Or dc2 > 7
3876 Let count = count + 1
3877 Let dc1 = Int(Rnd * 9 + 1)
3878 Let dc2 = Int(Rnd * 9 + 1)
3879 Let w2 = shobo(dc2, dc1)
3880 If count > 8000 Then Exit Do
3881 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3885 Let count = count + 1
3886 Let dc1 = Int(Rnd * 9 + 1)
3887 Let dc2 = Int(Rnd * 9 + 1)
3888 Let w2 = shobo(dc2, dc1)
3889 If count > 8000 Then Exit Do
3890 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3893 Let count = count + 1
3894 Let dc1 = Int(Rnd * 9 + 1)
3895 Let dc2 = Int(Rnd * 9 + 1)
3896 Let w2 = shobo(dc2, dc1)
3897 If count > 8000 Then Exit Do
3898 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3905 Let count = count + 1
3906 Let dc4 = Int(Rnd * 9 + 1)
3907 Let dc5 = Int(Rnd * 9 + 1)
3908 Let b2 = shobo(dc5, dc4)
3909 If count > 8000 Then Exit Do
3910 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3914 Let count = count + 1
3915 Let dc4 = Int(Rnd * 9 + 1)
3916 Let dc5 = Int(Rnd * 9 + 1)
3917 Let b2 = shobo(dc5, dc4)
3918 If count > 8000 Then Exit Do
3919 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3923 Let count = count + 1
3924 Let dc4 = Int(Rnd * 9 + 1)
3925 Let dc5 = Int(Rnd * 9 + 1)
3926 Let b2 = shobo(dc5, dc4)
3927 If count > 8000 Then Exit Do
3928 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3932 Let count = count + 1
3933 Let dc4 = Int(Rnd * 9 + 1)
3934 Let dc5 = Int(Rnd * 9 + 1)
3935 Let fb2x = dc4: Let fb2y = dc5
3936 Let b2 = shobo(dc5, dc4)
3937 If count > 8000 Then Exit Do
3938 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3942 Let count = count + 1
3943 Let dc4 = Int(Rnd * 9 + 1)
3944 Let dc5 = Int(Rnd * 9 + 1)
3945 Let fb2x = dc4: Let fb2y = dc5
3946 Let b2 = shobo(dc5, dc4)
3947 If count > 8000 Then Exit Do
3948 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3951 Let index = Int(Rnd * 2 + 1)
3952 If index = 1 Then Let dc4 = 1 Else Let dc4 = 9
3953 If dc4 = 1 Then Let indexb71 = 1 Else Let indexb72 = 1
3955 Let count = count + 1
3956 Let dc5 = Int(Rnd * 9 + 1)
3957 Let b2 = shobo(dc5, dc4)
3958 If count > 8000 Then Exit Do
3959 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3962 Let count = count + 1
3963 Let dc4 = Int(Rnd * 9 + 1)
3964 Let dc5 = Int(Rnd * 9 + 1)
3965 Let b2 = shobo(dc5, dc4)
3966 If count > 8000 Then Exit Do
3967 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 < 3 Or dc5 > 7
3971 Let count = count + 1
3972 Let dc4 = Int(Rnd * 9 + 1)
3973 Let dc5 = Int(Rnd * 9 + 1)
3974 Let b2 = shobo(dc5, dc4)
3975 If count > 8000 Then Exit Do
3976 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3980 Let count = count + 1
3981 Let dc4 = Int(Rnd * 9 + 1)
3982 Let dc5 = Int(Rnd * 9 + 1)
3983 Let b2 = shobo(dc5, dc4)
3984 If count > 8000 Then Exit Do
3985 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3988 Let count = count + 1
3989 Let dc4 = Int(Rnd * 9 + 1)
3990 Let dc5 = Int(Rnd * 9 + 1)
3991 Let b2 = shobo(dc5, dc4)
3992 If count > 8000 Then Exit Do
3993 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
3996 Let w2 = shobo(dc2, dc1): Let b2 = shobo(dc5, dc4)
3997 Let fw2x = dc1: Let fw2y = dc2: Let fb2x = dc4: Let fb2y = dc5
3998 Let fw2 = dc3: Let fb2 = dc6
4000 Let x = 20: Let y = 160: Let cf = 15
4001 If dc3 = 1 Then Call king
4002 If dc3 = 2 Then Call queen
4003 If dc3 = 3 Then Call general
4004 If dc3 = 4 Then Call bishop
4005 If dc3 = 5 Then Call knight
4006 If dc3 = 6 Then Call rook
4007 If dc3 = 7 Then Call lance
4008 If dc3 = 8 Then Call pawn
4009 If dc3 = 9 Then Call horse
4010 If dc3 = 10 Then Call dragon
4011 If dc3 = 11 Then Call tokin
4012 Let x = 580: Let y = 160: Let cf = 0
4013 If dc6 = 1 Then Call king
4014 If dc6 = 2 Then Call queen
4015 If dc6 = 3 Then Call general
4016 If dc6 = 4 Then Call bishop
4017 If dc6 = 5 Then Call knight
4018 If dc6 = 6 Then Call rook
4019 If dc6 = 7 Then Call lance
4020 If dc6 = 8 Then Call pawn
4021 If dc6 = 9 Then Call horse
4022 If dc6 = 10 Then Call dragon
4023 If dc6 = 11 Then Call tokin
4024 Let x = 20: Let y = 220
4025 If dc1 = 1 Then Call letterA
4026 If dc1 = 2 Then Call letterB
4027 If dc1 = 3 Then Call letterC
4028 If dc1 = 4 Then Call letterD
4029 If dc1 = 5 Then Call letterE
4030 If dc1 = 6 Then Call letterF
4031 If dc1 = 7 Then Call letterG
4032 If dc1 = 8 Then Call letterH
4033 If dc1 = 9 Then Call letterI
4034 Let x = 20: Let y = 280
4035 If dc2 = 1 Then Call letter1
4036 If dc2 = 2 Then Call letter2
4037 If dc2 = 3 Then Call letter3
4038 If dc2 = 4 Then Call letter4
4039 If dc2 = 5 Then Call letter5
4040 If dc2 = 6 Then Call letter6
4041 If dc2 = 7 Then Call letter7
4042 If dc2 = 8 Then Call letter8
4043 If dc2 = 9 Then Call letter9
4044 Let x = 580: Let y = 220
4045 If dc4 = 1 Then Call letterA
4046 If dc4 = 2 Then Call letterB
4047 If dc4 = 3 Then Call letterC
4048 If dc4 = 4 Then Call letterD
4049 If dc4 = 5 Then Call letterE
4050 If dc4 = 6 Then Call letterF
4051 If dc4 = 7 Then Call letterG
4052 If dc4 = 8 Then Call letterH
4053 If dc4 = 9 Then Call letterI
4054 Let x = 580: Let y = 280
4055 If dc5 = 1 Then Call letter1
4056 If dc5 = 2 Then Call letter2
4057 If dc5 = 3 Then Call letter3
4058 If dc5 = 4 Then Call letter4
4059 If dc5 = 5 Then Call letter5
4060 If dc5 = 6 Then Call letter6
4061 If dc5 = 7 Then Call letter7
4062 If dc5 = 8 Then Call letter8
4063 If dc5 = 9 Then Call letter9
4064 Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 60
4066 If dc3 = 1 Then Call king
4067 If dc3 = 2 Then Call queen
4068 If dc3 = 3 Then Call general
4069 If dc3 = 4 Then Call bishop
4070 If dc3 = 5 Then Call knight
4071 If dc3 = 6 Then Call rook
4072 If dc3 = 7 Then Call lance
4073 If dc3 = 8 Then Call pawn
4074 If dc3 = 9 Then Call horse
4075 If dc3 = 10 Then Call dragon
4076 If dc3 = 11 Then Call tokin
4077 Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 60
4079 If dc6 = 1 Then Call king
4080 If dc6 = 2 Then Call queen
4081 If dc6 = 3 Then Call general
4082 If dc6 = 4 Then Call bishop
4083 If dc6 = 5 Then Call knight
4084 If dc6 = 6 Then Call rook
4085 If dc6 = 7 Then Call lance
4086 If dc6 = 8 Then Call pawn
4087 If dc6 = 9 Then Call horse
4088 If dc6 = 10 Then Call dragon
4089 If dc6 = 11 Then Call tokin
4105 Let count = 0: Let index = 0
4106 Let dc1 = Int(Rnd * 9 + 1)
4107 Let dc2 = Int(Rnd * 9 + 1)
4108 Let dc3 = Int(Rnd * 10 + 2)
4109 Let dc4 = Int(Rnd * 9 + 1)
4110 Let dc5 = Int(Rnd * 9 + 1)
4111 Let dc6 = Int(Rnd * 10 + 2)
4112 Let w3 = shobo(dc2, dc1): Let b3 = shobo(dc5, dc4)
4113 If dc3 = 4 Then Let indexw4 = indexw4 + 1
4114 If dc3 = 6 Then Let indexw6 = indexw6 + 1
4115 If dc3 = 9 Then Let indexw9 = indexw9 + 1
4116 If dc3 = 10 Then Let indexw10 = indexw10 + 1
4119 Let indexw4 = indexw4 - 1
4123 Let indexw6 = indexw4 - 1
4127 Let indexw9 = indexw4 - 1
4129 If indexw10 > 1 Then
4131 Let indexw10 = indexw4 - 1
4135 Let indexb4 = indexb4 - 1
4139 Let indexb6 = indexb4 - 1
4143 Let indexb9 = indexb4 - 1
4145 If indexb10 > 1 Then
4147 Let indexb10 = indexb4 - 1
4155 Let count = count + 1
4156 Let dc1 = Int(Rnd * 9 + 1)
4157 Let dc2 = Int(Rnd * 9 + 1)
4158 Let w3 = shobo(dc2, dc1)
4159 If count > 8000 Then Exit Do
4160 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4162 Let indexw3 = indexw3 + 1
4164 Let count = count + 1
4165 Let dc1 = Int(Rnd * 9 + 1)
4166 Let dc2 = Int(Rnd * 9 + 1)
4167 Let w3 = shobo(dc2, dc1)
4168 If count > 8000 Then Exit Do
4169 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4171 Let indexw4 = indexw4 + 1
4173 Let count = count + 1
4174 Let dc1 = Int(Rnd * 9 + 1)
4175 Let dc2 = Int(Rnd * 9 + 1)
4176 Let w3 = shobo(dc2, dc1)
4177 If count > 8000 Then Exit Do
4178 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4180 Let indexw5 = indexw5 + 1
4182 Let count = count + 1
4183 Let dc1 = Int(Rnd * 9 + 1)
4184 Let dc2 = Int(Rnd * 9 + 1)
4185 Let fw2x = dc1: Let fw2y = dc2
4186 Let w3 = shobo(dc2, dc1)
4187 If count > 8000 Then Exit Do
4188 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4190 Let indexw6 = indexw6 + 1
4192 Let count = count + 1
4193 Let dc1 = Int(Rnd * 9 + 1)
4194 Let dc2 = Int(Rnd * 9 + 1)
4195 Let fw2x = dc1: Let fw2y = dc2
4196 Let w3 = shobo(dc2, dc1)
4197 If count > 8000 Then Exit Do
4198 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4200 Let indexw7 = indexw7 + 1
4201 Let index = Int(Rnd * 2 + 1)
4202 If index = 1 Then Let dc1 = 1 Else Let dc1 = 9
4203 If indexw71 = 1 Then dc1 = 9
4204 If indexw72 = 1 Then dc1 = 1
4206 Let count = count + 1
4207 Let dc2 = Int(Rnd * 9 + 1)
4208 Let w3 = shobo(dc2, dc1)
4209 If count > 8000 Then Exit Do
4210 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4213 Let count = count + 1
4214 Let dc1 = Int(Rnd * 9 + 1)
4215 Let dc2 = Int(Rnd * 9 + 1)
4216 Let w3 = shobo(dc2, dc1)
4217 If count > 8000 Then Exit Do
4218 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2 Or dc2 < 3 Or dc2 > 7
4220 Let indexw9 = indexw9 + 1
4222 Let count = count + 1
4223 Let dc1 = Int(Rnd * 9 + 1)
4224 Let dc2 = Int(Rnd * 9 + 1)
4225 Let w3 = shobo(dc2, dc1)
4226 If count > 8000 Then Exit Do
4227 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4229 Let indexw10 = indexw10 + 1
4231 Let count = count + 1
4232 Let dc1 = Int(Rnd * 9 + 1)
4233 Let dc2 = Int(Rnd * 9 + 1)
4234 Let w3 = shobo(dc2, dc1)
4235 If count > 8000 Then Exit Do
4236 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4239 Let count = count + 1
4240 Let dc1 = Int(Rnd * 9 + 1)
4241 Let dc2 = Int(Rnd * 9 + 1)
4242 Let w3 = shobo(dc2, dc1)
4243 If count > 8000 Then Exit Do
4244 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4251 Let count = count + 1
4252 Let dc4 = Int(Rnd * 9 + 1)
4253 Let dc5 = Int(Rnd * 9 + 1)
4254 Let b3 = shobo(dc5, dc4)
4255 If count > 8000 Then Exit Do
4256 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4258 Let indexb3 = indexb3 + 1
4260 Let count = count + 1
4261 Let dc4 = Int(Rnd * 9 + 1)
4262 Let dc5 = Int(Rnd * 9 + 1)
4263 Let b3 = shobo(dc5, dc4)
4264 If count > 8000 Then Exit Do
4265 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4267 Let indexb4 = indexb4 + 1
4269 Let count = count + 1
4270 Let dc4 = Int(Rnd * 9 + 1)
4271 Let dc5 = Int(Rnd * 9 + 1)
4272 Let b3 = shobo(dc5, dc4)
4273 If count > 8000 Then Exit Do
4274 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4276 Let indexb5 = indexb5 + 1
4278 Let count = count + 1
4279 Let dc4 = Int(Rnd * 9 + 1)
4280 Let dc5 = Int(Rnd * 9 + 1)
4281 Let fb2x = dc4: Let fb2y = dc5
4282 Let b3 = shobo(dc5, dc4)
4283 If count > 8000 Then Exit Do
4284 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4286 Let indexb6 = indexb6 + 1
4288 Let count = count + 1
4289 Let dc4 = Int(Rnd * 9 + 1)
4290 Let dc5 = Int(Rnd * 9 + 1)
4291 Let fb2x = dc4: Let fb2y = dc5
4292 Let b3 = shobo(dc5, dc4)
4293 If count > 8000 Then Exit Do
4294 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4296 Let indexb7 = indexb7 + 1
4297 Let index = Int(Rnd * 2 + 1)
4298 If index = 1 Then Let dc4 = 1 Else Let dc4 = 9
4299 If indexb71 = 1 Then dc4 = 9
4300 If indexb72 = 1 Then dc4 = 1
4302 Let count = count + 1
4303 Let dc5 = Int(Rnd * 9 + 1)
4304 Let b3 = shobo(dc5, dc4)
4305 If count > 8000 Then Exit Do
4306 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4309 Let count = count + 1
4310 Let dc4 = Int(Rnd * 9 + 1)
4311 Let dc5 = Int(Rnd * 9 + 1)
4312 Let b3 = shobo(dc5, dc4)
4313 If count > 8000 Then Exit Do
4314 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2 Or dc5 < 3 Or dc5 > 7
4316 Let indexb9 = indexb9 + 1
4318 Let count = count + 1
4319 Let dc4 = Int(Rnd * 9 + 1)
4320 Let dc5 = Int(Rnd * 9 + 1)
4321 Let b3 = shobo(dc5, dc4)
4322 If count > 8000 Then Exit Do
4323 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4325 Let indexb10 = indexb10 + 1
4327 Let count = count + 1
4328 Let dc4 = Int(Rnd * 9 + 1)
4329 Let dc5 = Int(Rnd * 9 + 1)
4330 Let b3 = shobo(dc5, dc4)
4331 If count > 8000 Then Exit Do
4332 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4335 Let count = count + 1
4336 Let dc4 = Int(Rnd * 9 + 1)
4337 Let dc5 = Int(Rnd * 9 + 1)
4338 Let b3 = shobo(dc5, dc4)
4339 If count > 8000 Then Exit Do
4340 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
4343 Let w3 = shobo(dc2, dc1): Let b3 = shobo(dc5, dc4)
4344 Let fw3x = dc1: Let fw3y = dc2: Let fb3x = dc4: Let fb3y = dc5
4345 Let fw3 = dc3: Let fb3 = dc6
4347 Let x = 20: Let y = 160: Let cf = 15
4348 If dc3 = 1 Then Call king
4349 If dc3 = 2 Then Call queen
4350 If dc3 = 3 Then Call general
4351 If dc3 = 4 Then Call bishop
4352 If dc3 = 5 Then Call knight
4353 If dc3 = 6 Then Call rook
4354 If dc3 = 7 Then Call lance
4355 If dc3 = 8 Then Call pawn
4356 If dc3 = 9 Then Call horse
4357 If dc3 = 10 Then Call dragon
4358 If dc3 = 11 Then Call tokin
4359 Let x = 580: Let y = 160: Let cf = 0
4360 If dc6 = 1 Then Call king
4361 If dc6 = 2 Then Call queen
4362 If dc6 = 3 Then Call general
4363 If dc6 = 4 Then Call bishop
4364 If dc6 = 5 Then Call knight
4365 If dc6 = 6 Then Call rook
4366 If dc6 = 7 Then Call lance
4367 If dc6 = 8 Then Call pawn
4368 If dc6 = 9 Then Call horse
4369 If dc6 = 10 Then Call dragon
4370 If dc6 = 11 Then Call tokin
4371 Let x = 20: Let y = 220
4372 If dc1 = 1 Then Call letterA
4373 If dc1 = 2 Then Call letterB
4374 If dc1 = 3 Then Call letterC
4375 If dc1 = 4 Then Call letterD
4376 If dc1 = 5 Then Call letterE
4377 If dc1 = 6 Then Call letterF
4378 If dc1 = 7 Then Call letterG
4379 If dc1 = 8 Then Call letterH
4380 If dc1 = 9 Then Call letterI
4381 Let x = 20: Let y = 280
4382 If dc2 = 1 Then Call letter1
4383 If dc2 = 2 Then Call letter2
4384 If dc2 = 3 Then Call letter3
4385 If dc2 = 4 Then Call letter4
4386 If dc2 = 5 Then Call letter5
4387 If dc2 = 6 Then Call letter6
4388 If dc2 = 7 Then Call letter7
4389 If dc2 = 8 Then Call letter8
4390 If dc2 = 9 Then Call letter9
4391 Let x = 580: Let y = 220
4392 If dc4 = 1 Then Call letterA
4393 If dc4 = 2 Then Call letterB
4394 If dc4 = 3 Then Call letterC
4395 If dc4 = 4 Then Call letterD
4396 If dc4 = 5 Then Call letterE
4397 If dc4 = 6 Then Call letterF
4398 If dc4 = 7 Then Call letterG
4399 If dc4 = 8 Then Call letterH
4400 If dc4 = 9 Then Call letterI
4401 Let x = 580: Let y = 280
4402 If dc5 = 1 Then Call letter1
4403 If dc5 = 2 Then Call letter2
4404 If dc5 = 3 Then Call letter3
4405 If dc5 = 4 Then Call letter4
4406 If dc5 = 5 Then Call letter5
4407 If dc5 = 6 Then Call letter6
4408 If dc5 = 7 Then Call letter7
4409 If dc5 = 8 Then Call letter8
4410 If dc5 = 9 Then Call letter9
4411 Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 60
4413 If dc3 = 1 Then Call king
4414 If dc3 = 2 Then Call queen
4415 If dc3 = 3 Then Call general
4416 If dc3 = 4 Then Call bishop
4417 If dc3 = 5 Then Call knight
4418 If dc3 = 6 Then Call rook
4419 If dc3 = 7 Then Call lance
4420 If dc3 = 8 Then Call pawn
4421 If dc3 = 9 Then Call horse
4422 If dc3 = 10 Then Call dragon
4423 If dc3 = 11 Then Call tokin
4424 Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 60
4426 If dc6 = 1 Then Call king
4427 If dc6 = 2 Then Call queen
4428 If dc6 = 3 Then Call general
4429 If dc6 = 4 Then Call bishop
4430 If dc6 = 5 Then Call knight
4431 If dc6 = 6 Then Call rook
4432 If dc6 = 7 Then Call lance
4433 If dc6 = 8 Then Call pawn
4434 If dc6 = 9 Then Call horse
4435 If dc6 = 10 Then Call dragon
4436 If dc6 = 11 Then Call tokin
4452 Let count = 0: Let index = 0
4453 Let dc1 = Int(Rnd * 9 + 1)
4454 Let dc2 = Int(Rnd * 9 + 1)
4455 Let dc3 = Int(Rnd * 10 + 2)
4456 Let dc4 = Int(Rnd * 9 + 1)
4457 Let dc5 = Int(Rnd * 9 + 1)
4458 Let dc6 = Int(Rnd * 10 + 2)
4459 Let w4 = shobo(dc2, dc1): Let b4 = shobo(dc5, dc4)
4460 If dc3 = 4 Then Let indexw4 = indexw4 + 1
4461 If dc3 = 6 Then Let indexw6 = indexw6 + 1
4462 If dc3 = 9 Then Let indexw9 = indexw9 + 1
4463 If dc3 = 10 Then Let indexw10 = indexw10 + 1
4466 Let indexw4 = indexw4 - 1
4470 Let indexw6 = indexw4 - 1
4474 Let indexw9 = indexw4 - 1
4476 If indexw10 > 1 Then
4478 Let indexw10 = indexw4 - 1
4482 Let indexb4 = indexb4 - 1
4486 Let indexb6 = indexb4 - 1
4490 Let indexb9 = indexb4 - 1
4492 If indexb10 > 1 Then
4494 Let indexb10 = indexb4 - 1
4496 If indexw3 > 2 Or indexw5 > 2 Or indexw7 > 2 Then Let dc3 = 8
4497 If indexb3 > 2 Or indexb5 > 2 Or indexb7 > 2 Then Let dc6 = 8
4504 Let count = count + 1
4505 Let dc1 = Int(Rnd * 9 + 1)
4506 Let dc2 = Int(Rnd * 9 + 1)
4507 Let w4 = shobo(dc2, dc1)
4508 If count > 8000 Then Exit Do
4509 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4512 Let count = count + 1
4513 Let dc1 = Int(Rnd * 9 + 1)
4514 Let dc2 = Int(Rnd * 9 + 1)
4515 Let w4 = shobo(dc2, dc1)
4516 If count > 8000 Then Exit Do
4517 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4520 Let count = count + 1
4521 Let dc1 = Int(Rnd * 9 + 1)
4522 Let dc2 = Int(Rnd * 9 + 1)
4523 Let w4 = shobo(dc2, dc1)
4524 If count > 8000 Then Exit Do
4525 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4528 Let count = count + 1
4529 Let dc1 = Int(Rnd * 9 + 1)
4530 Let dc2 = Int(Rnd * 9 + 1)
4531 Let fw2x = dc1: Let fw2y = dc2
4532 Let w4 = shobo(dc2, dc1)
4533 If count > 8000 Then Exit Do
4534 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4537 Let count = count + 1
4538 Let dc1 = Int(Rnd * 9 + 1)
4539 Let dc2 = Int(Rnd * 9 + 1)
4540 Let fw2x = dc1: Let fw2y = dc2
4541 Let w4 = shobo(dc2, dc1)
4542 If count > 8000 Then Exit Do
4543 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4545 Let index = Int(Rnd * 2 + 1)
4546 If index = 1 Then Let dc1 = 1 Else Let dc1 = 9
4547 If indexw71 = 1 Then dc1 = 9
4548 If indexw72 = 1 Then dc1 = 1
4550 Let count = count + 1
4551 Let dc2 = Int(Rnd * 9 + 1)
4552 Let w4 = shobo(dc2, dc1)
4553 If count > 8000 Then Exit Do
4554 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4557 Let count = count + 1
4558 Let dc1 = Int(Rnd * 9 + 1)
4559 Let dc2 = Int(Rnd * 9 + 1)
4560 Let w4 = shobo(dc2, dc1)
4561 If count > 8000 Then Exit Do
4562 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3 Or dc2 < 3 Or dc2 > 7
4565 Let count = count + 1
4566 Let dc1 = Int(Rnd * 9 + 1)
4567 Let dc2 = Int(Rnd * 9 + 1)
4568 Let w4 = shobo(dc2, dc1)
4569 If count > 8000 Then Exit Do
4570 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4573 Let count = count + 1
4574 Let dc1 = Int(Rnd * 9 + 1)
4575 Let dc2 = Int(Rnd * 9 + 1)
4576 Let w4 = shobo(dc2, dc1)
4577 If count > 8000 Then Exit Do
4578 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4581 Let count = count + 1
4582 Let dc1 = Int(Rnd * 9 + 1)
4583 Let dc2 = Int(Rnd * 9 + 1)
4584 Let w4 = shobo(dc2, dc1)
4585 If count > 8000 Then Exit Do
4586 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4593 Let count = count + 1
4594 Let dc4 = Int(Rnd * 9 + 1)
4595 Let dc5 = Int(Rnd * 9 + 1)
4596 Let b4 = shobo(dc5, dc4)
4597 If count > 8000 Then Exit Do
4598 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4601 Let count = count + 1
4602 Let dc4 = Int(Rnd * 9 + 1)
4603 Let dc5 = Int(Rnd * 9 + 1)
4604 Let b4 = shobo(dc5, dc4)
4605 If count > 8000 Then Exit Do
4606 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4609 Let count = count + 1
4610 Let dc4 = Int(Rnd * 9 + 1)
4611 Let dc5 = Int(Rnd * 9 + 1)
4612 Let b4 = shobo(dc5, dc4)
4613 If count > 8000 Then Exit Do
4614 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4617 Let count = count + 1
4618 Let dc4 = Int(Rnd * 9 + 1)
4619 Let dc5 = Int(Rnd * 9 + 1)
4620 Let fb2x = dc4: Let fb2y = dc5
4621 Let b4 = shobo(dc5, dc4)
4622 If count > 8000 Then Exit Do
4623 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4626 Let count = count + 1
4627 Let dc4 = Int(Rnd * 9 + 1)
4628 Let dc5 = Int(Rnd * 9 + 1)
4629 Let fb2x = dc4: Let fb2y = dc5
4630 Let b4 = shobo(dc5, dc4)
4631 If count > 8000 Then Exit Do
4632 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4634 Let index = Int(Rnd * 2 + 1)
4635 If index = 1 Then Let dc4 = 1 Else Let dc4 = 9
4636 If indexb71 = 1 Then dc4 = 9
4637 If indexb72 = 1 Then dc4 = 1
4639 Let count = count + 1
4640 Let dc5 = Int(Rnd * 9 + 1)
4641 Let b4 = shobo(dc5, dc4)
4642 If count > 8000 Then Exit Do
4643 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4646 Let count = count + 1
4647 Let dc4 = Int(Rnd * 9 + 1)
4648 Let dc5 = Int(Rnd * 9 + 1)
4649 Let b4 = shobo(dc5, dc4)
4650 If count > 8000 Then Exit Do
4651 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3 Or dc5 < 3 Or dc5 > 7
4654 Let count = count + 1
4655 Let dc4 = Int(Rnd * 9 + 1)
4656 Let dc5 = Int(Rnd * 9 + 1)
4657 Let b4 = shobo(dc5, dc4)
4658 If count > 8000 Then Exit Do
4659 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4662 Let count = count + 1
4663 Let dc4 = Int(Rnd * 9 + 1)
4664 Let dc5 = Int(Rnd * 9 + 1)
4665 Let b4 = shobo(dc5, dc4)
4666 If count > 8000 Then Exit Do
4667 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4670 Let count = count + 1
4671 Let dc4 = Int(Rnd * 9 + 1)
4672 Let dc5 = Int(Rnd * 9 + 1)
4673 Let b4 = shobo(dc5, dc4)
4674 If count > 8000 Then Exit Do
4675 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
4678 Let w4 = shobo(dc2, dc1): Let b4 = shobo(dc5, dc4)
4679 Let fw4x = dc1: Let fw4y = dc2: Let fb4x = dc4: Let fb4y = dc5
4680 Let fw4 = dc3: Let fb4 = dc6
4682 Let x = 20: Let y = 160: Let cf = 15
4683 If dc3 = 1 Then Call king
4684 If dc3 = 2 Then Call queen
4685 If dc3 = 3 Then Call general
4686 If dc3 = 4 Then Call bishop
4687 If dc3 = 5 Then Call knight
4688 If dc3 = 6 Then Call rook
4689 If dc3 = 7 Then Call lance
4690 If dc3 = 8 Then Call pawn
4691 If dc3 = 9 Then Call horse
4692 If dc3 = 10 Then Call dragon
4693 If dc3 = 11 Then Call tokin
4694 Let x = 580: Let y = 160: Let cf = 0
4695 If dc6 = 1 Then Call king
4696 If dc6 = 2 Then Call queen
4697 If dc6 = 3 Then Call general
4698 If dc6 = 4 Then Call bishop
4699 If dc6 = 5 Then Call knight
4700 If dc6 = 6 Then Call rook
4701 If dc6 = 7 Then Call lance
4702 If dc6 = 8 Then Call pawn
4703 If dc6 = 9 Then Call horse
4704 If dc6 = 10 Then Call dragon
4705 If dc6 = 11 Then Call tokin
4706 Let x = 20: Let y = 220
4707 If dc1 = 1 Then Call letterA
4708 If dc1 = 2 Then Call letterB
4709 If dc1 = 3 Then Call letterC
4710 If dc1 = 4 Then Call letterD
4711 If dc1 = 5 Then Call letterE
4712 If dc1 = 6 Then Call letterF
4713 If dc1 = 7 Then Call letterG
4714 If dc1 = 8 Then Call letterH
4715 If dc1 = 9 Then Call letterI
4716 Let x = 20: Let y = 280
4717 If dc2 = 1 Then Call letter1
4718 If dc2 = 2 Then Call letter2
4719 If dc2 = 3 Then Call letter3
4720 If dc2 = 4 Then Call letter4
4721 If dc2 = 5 Then Call letter5
4722 If dc2 = 6 Then Call letter6
4723 If dc2 = 7 Then Call letter7
4724 If dc2 = 8 Then Call letter8
4725 If dc2 = 9 Then Call letter9
4726 Let x = 580: Let y = 220
4727 If dc4 = 1 Then Call letterA
4728 If dc4 = 2 Then Call letterB
4729 If dc4 = 3 Then Call letterC
4730 If dc4 = 4 Then Call letterD
4731 If dc4 = 5 Then Call letterE
4732 If dc4 = 6 Then Call letterF
4733 If dc4 = 7 Then Call letterG
4734 If dc4 = 8 Then Call letterH
4735 If dc4 = 9 Then Call letterI
4736 Let x = 580: Let y = 280
4737 If dc5 = 1 Then Call letter1
4738 If dc5 = 2 Then Call letter2
4739 If dc5 = 3 Then Call letter3
4740 If dc5 = 4 Then Call letter4
4741 If dc5 = 5 Then Call letter5
4742 If dc5 = 6 Then Call letter6
4743 If dc5 = 7 Then Call letter7
4744 If dc5 = 8 Then Call letter8
4745 If dc5 = 9 Then Call letter9
4746 Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 60
4748 If dc3 = 1 Then Call king
4749 If dc3 = 2 Then Call queen
4750 If dc3 = 3 Then Call general
4751 If dc3 = 4 Then Call bishop
4752 If dc3 = 5 Then Call knight
4753 If dc3 = 6 Then Call rook
4754 If dc3 = 7 Then Call lance
4755 If dc3 = 8 Then Call pawn
4756 If dc3 = 9 Then Call horse
4757 If dc3 = 10 Then Call dragon
4758 If dc3 = 11 Then Call tokin
4759 Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 60
4761 If dc6 = 1 Then Call king
4762 If dc6 = 2 Then Call queen
4763 If dc6 = 3 Then Call general
4764 If dc6 = 4 Then Call bishop
4765 If dc6 = 5 Then Call knight
4766 If dc6 = 6 Then Call rook
4767 If dc6 = 7 Then Call lance
4768 If dc6 = 8 Then Call pawn
4769 If dc6 = 9 Then Call horse
4770 If dc6 = 10 Then Call dragon
4771 If dc6 = 11 Then Call tokin
4789 Let count = 0: Let index = 0
4790 Let dc1 = Int(Rnd * 10 + 1)
4791 Let dc2 = Int(Rnd * 10 + 1)
4792 Let dc3 = Int(Rnd * 2 + 1)
4793 Let dc4 = Int(Rnd * 10 + 1)
4794 Let dc5 = Int(Rnd * 10 + 1)
4795 Let dc6 = Int(Rnd * 2 + 1)
4796 Let w1 = drabo(dc2, dc1): Let b1 = drabo(dc5, dc4)
4800 Let count = count + 1
4801 Let dc1 = Int(Rnd * 8 + 1)
4802 Let dc2 = Int(Rnd * 8 + 1)
4803 Let dc4 = Int(Rnd * 8 + 1)
4804 Let dc5 = Int(Rnd * 8 + 1)
4805 Let w1 = drabo(dc2, dc1): Let b1 = drabo(dc5, dc4)
4806 If count > 8000 Then Exit Do
4807 Loop Until w1 Mod 2 <> 0 And b1 Mod 2 <> 0
4808 Let count = count + 1
4809 If count > 8000 Then Exit Do
4812 Let w1 = drabo(dc2, dc1): Let b1 = drabo(dc5, dc4)
4813 Let fw1x = dc1: Let fw1y = dc2: Let fb1x = dc4: Let fb1y = dc5
4814 Let fw1 = dc3: Let fb1 = dc6
4815 Let x = 20: Let y = 160: Let cf = 15
4816 If dc3 = 1 Then Call dame
4817 If dc3 = 2 Then Call checker
4818 Let x = 580: Let y = 160: Let cf = 0
4819 If dc6 = 1 Then Call dame
4820 If dc6 = 2 Then Call checker
4821 Let x = 20: Let y = 220
4822 If dc1 = 1 Then Call letterA
4823 If dc1 = 2 Then Call letterB
4824 If dc1 = 3 Then Call letterC
4825 If dc1 = 4 Then Call letterD
4826 If dc1 = 5 Then Call letterE
4827 If dc1 = 6 Then Call letterF
4828 If dc1 = 7 Then Call letterG
4829 If dc1 = 8 Then Call letterH
4830 If dc1 = 9 Then Call letterI
4831 If dc1 = 10 Then Call letterJ
4832 Let x = 20: Let y = 280
4833 If dc2 = 1 Then Call letter1
4834 If dc2 = 2 Then Call letter2
4835 If dc2 = 3 Then Call letter3
4836 If dc2 = 4 Then Call letter4
4837 If dc2 = 5 Then Call letter5
4838 If dc2 = 6 Then Call letter6
4839 If dc2 = 7 Then Call letter7
4840 If dc2 = 8 Then Call letter8
4841 If dc2 = 9 Then Call letter9
4842 If dc2 = 10 Then Call letter0
4843 Let x = 580: Let y = 220
4844 If dc4 = 1 Then Call letterA
4845 If dc4 = 2 Then Call letterB
4846 If dc4 = 3 Then Call letterC
4847 If dc4 = 4 Then Call letterD
4848 If dc4 = 5 Then Call letterE
4849 If dc4 = 6 Then Call letterF
4850 If dc4 = 7 Then Call letterG
4851 If dc4 = 8 Then Call letterH
4852 If dc4 = 9 Then Call letterI
4853 If dc4 = 10 Then Call letterJ
4854 Let x = 580: Let y = 280
4855 If dc5 = 1 Then Call letter1
4856 If dc5 = 2 Then Call letter2
4857 If dc5 = 3 Then Call letter3
4858 If dc5 = 4 Then Call letter4
4859 If dc5 = 5 Then Call letter5
4860 If dc5 = 6 Then Call letter6
4861 If dc5 = 7 Then Call letter7
4862 If dc5 = 8 Then Call letter8
4863 If dc5 = 9 Then Call letter9
4864 If dc5 = 10 Then Call letter0
4865 Let x = (dc1 * 40) + 80: Let y = Abs((dc2 * 40) - 480) - 40
4867 If dc3 = 1 Then Call dame
4868 If dc3 = 2 Then Call checker
4869 Let x = (dc4 * 40) + 80: Let y = Abs((dc5 * 40) - 480) - 40
4871 If dc6 = 1 Then Call dame
4872 If dc6 = 2 Then Call checker
4888 Let count = 0: Let index = 0
4889 Let dc1 = Int(Rnd * 10 + 1)
4890 Let dc2 = Int(Rnd * 10 + 1)
4891 Let dc3 = Int(Rnd * 2 + 1)
4892 Let dc4 = Int(Rnd * 10 + 1)
4893 Let dc5 = Int(Rnd * 10 + 1)
4894 Let dc6 = Int(Rnd * 2 + 1)
4895 Let w2 = drabo(dc2, dc1): Let b2 = drabo(dc5, dc4)
4901 Let count = count + 1
4902 Let dc1 = Int(Rnd * 10 + 1)
4903 Let dc2 = Int(Rnd * 10 + 1)
4904 Let w2 = drabo(dc2, dc1)
4905 If count > 8000 Then Exit Do
4906 Loop Until w2 Mod 2 <> 0
4907 Let count = count + 1
4908 If count > 8000 Then Exit Do
4909 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
4913 Let count = count + 1
4914 Let dc1 = Int(Rnd * 10 + 1)
4915 Let dc2 = Int(Rnd * 10 + 1)
4916 Let w2 = drabo(dc2, dc1)
4917 If count > 8000 Then Exit Do
4918 Loop Until w2 Mod 2 <> 0
4919 Let count = count + 1
4920 If count > 8000 Then Exit Do
4921 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
4927 Let count = count + 1
4928 Let dc4 = Int(Rnd * 10 + 1)
4929 Let dc5 = Int(Rnd * 10 + 1)
4930 Let b2 = drabo(dc5, dc4)
4931 If count > 8000 Then Exit Do
4932 Loop Until b2 Mod 2 <> 0
4933 Let count = count + 1
4934 If count > 8000 Then Exit Do
4935 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
4939 Let count = count + 1
4940 Let dc4 = Int(Rnd * 10 + 1)
4941 Let dc5 = Int(Rnd * 10 + 1)
4942 Let b2 = drabo(dc5, dc4)
4943 If count > 8000 Then Exit Do
4944 Loop Until b2 Mod 2 <> 0
4945 Let count = count + 1
4946 If count > 8000 Then Exit Do
4947 Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
4950 Let w2 = drabo(dc2, dc1): Let b2 = drabo(dc5, dc4)
4951 Let fw2x = dc1: Let fw2y = dc2: Let fb2x = dc4: Let fb2y = dc5
4952 Let fw2 = dc3: Let fb2 = dc6
4954 Let x = 20: Let y = 160: Let cf = 15
4955 If dc3 = 1 Then Call dame
4956 If dc3 = 2 Then Call checker
4957 Let x = 580: Let y = 160: Let cf = 0
4958 If dc6 = 1 Then Call dame
4959 If dc6 = 2 Then Call checker
4960 Let x = 20: Let y = 220
4961 If dc1 = 1 Then Call letterA
4962 If dc1 = 2 Then Call letterB
4963 If dc1 = 3 Then Call letterC
4964 If dc1 = 4 Then Call letterD
4965 If dc1 = 5 Then Call letterE
4966 If dc1 = 6 Then Call letterF
4967 If dc1 = 7 Then Call letterG
4968 If dc1 = 8 Then Call letterH
4969 If dc1 = 9 Then Call letterI
4970 If dc1 = 10 Then Call letterJ
4971 Let x = 20: Let y = 280
4972 If dc2 = 1 Then Call letter1
4973 If dc2 = 2 Then Call letter2
4974 If dc2 = 3 Then Call letter3
4975 If dc2 = 4 Then Call letter4
4976 If dc2 = 5 Then Call letter5
4977 If dc2 = 6 Then Call letter6
4978 If dc2 = 7 Then Call letter7
4979 If dc2 = 8 Then Call letter8
4980 If dc2 = 9 Then Call letter9
4981 If dc2 = 10 Then Call letter0
4982 Let x = 580: Let y = 220
4983 If dc4 = 1 Then Call letterA
4984 If dc4 = 2 Then Call letterB
4985 If dc4 = 3 Then Call letterC
4986 If dc4 = 4 Then Call letterD
4987 If dc4 = 5 Then Call letterE
4988 If dc4 = 6 Then Call letterF
4989 If dc4 = 7 Then Call letterG
4990 If dc4 = 8 Then Call letterH
4991 If dc4 = 9 Then Call letterI
4992 If dc4 = 10 Then Call letterJ
4993 Let x = 580: Let y = 280
4994 If dc5 = 1 Then Call letter1
4995 If dc5 = 2 Then Call letter2
4996 If dc5 = 3 Then Call letter3
4997 If dc5 = 4 Then Call letter4
4998 If dc5 = 5 Then Call letter5
4999 If dc5 = 6 Then Call letter6
5000 If dc5 = 7 Then Call letter7
5001 If dc5 = 8 Then Call letter8
5002 If dc5 = 9 Then Call letter9
5003 If dc5 = 10 Then Call letter0
5004 Let x = (dc1 * 40) + 80: Let y = Abs((dc2 * 40) - 480) - 40
5006 If dc3 = 1 Then Call dame
5007 If dc3 = 2 Then Call checker
5008 Let x = (dc4 * 40) + 80: Let y = Abs((dc5 * 40) - 480) - 40
5010 If dc6 = 1 Then Call dame
5011 If dc6 = 2 Then Call checker
5027 Let count = 0: Let index = 0
5028 Let dc1 = Int(Rnd * 10 + 1)
5029 Let dc2 = Int(Rnd * 10 + 1)
5030 Let dc3 = Int(Rnd * 2 + 1)
5031 Let dc4 = Int(Rnd * 10 + 1)
5032 Let dc5 = Int(Rnd * 10 + 1)
5033 Let dc6 = Int(Rnd * 2 + 1)
5034 Let w3 = drabo(dc2, dc1): Let b3 = drabo(dc5, dc4)
5040 Let count = count + 1
5041 Let dc1 = Int(Rnd * 10 + 1)
5042 Let dc2 = Int(Rnd * 10 + 1)
5043 Let w3 = drabo(dc2, dc1)
5044 If count > 8000 Then Exit Do
5045 Loop Until w3 Mod 2 <> 0
5046 Let count = count + 1
5047 If count > 8000 Then Exit Do
5048 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
5052 Let count = count + 1
5053 Let dc1 = Int(Rnd * 10 + 1)
5054 Let dc2 = Int(Rnd * 10 + 1)
5055 Let w3 = drabo(dc2, dc1)
5056 If count > 8000 Then Exit Do
5057 Loop Until w3 Mod 2 <> 0
5058 Let count = count + 1
5059 If count > 8000 Then Exit Do
5060 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
5066 Let count = count + 1
5067 Let dc4 = Int(Rnd * 10 + 1)
5068 Let dc5 = Int(Rnd * 10 + 1)
5069 Let b3 = drabo(dc5, dc4)
5070 If count > 8000 Then Exit Do
5071 Loop Until b3 Mod 2 <> 0
5072 Let count = count + 1
5073 If count > 8000 Then Exit Do
5074 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
5078 Let count = count + 1
5079 Let dc4 = Int(Rnd * 10 + 1)
5080 Let dc5 = Int(Rnd * 10 + 1)
5081 Let b3 = drabo(dc5, dc4)
5082 If count > 8000 Then Exit Do
5083 Loop Until b3 Mod 2 <> 0
5084 Let count = count + 1
5085 If count > 8000 Then Exit Do
5086 Loop While w3 = w1 Or w3 = w2 Or w3 = b1 Or w3 = b2 Or w3 = b3 Or b3 = w1 Or b3 = w2 Or b3 = b1 Or b3 = b2
5089 Let w3 = drabo(dc2, dc1): Let b3 = drabo(dc5, dc4)
5090 Let fw3x = dc1: Let fw3y = dc2: Let fb3x = dc4: Let fb3y = dc5
5091 Let fw3 = dc3: Let fb3 = dc6
5093 Let x = 20: Let y = 160: Let cf = 15
5094 If dc3 = 1 Then Call dame
5095 If dc3 = 2 Then Call checker
5096 Let x = 580: Let y = 160: Let cf = 0
5097 If dc6 = 1 Then Call dame
5098 If dc6 = 2 Then Call checker
5099 Let x = 20: Let y = 220
5100 If dc1 = 1 Then Call letterA
5101 If dc1 = 2 Then Call letterB
5102 If dc1 = 3 Then Call letterC
5103 If dc1 = 4 Then Call letterD
5104 If dc1 = 5 Then Call letterE
5105 If dc1 = 6 Then Call letterF
5106 If dc1 = 7 Then Call letterG
5107 If dc1 = 8 Then Call letterH
5108 If dc1 = 9 Then Call letterI
5109 If dc1 = 10 Then Call letterJ
5110 Let x = 20: Let y = 280
5111 If dc2 = 1 Then Call letter1
5112 If dc2 = 2 Then Call letter2
5113 If dc2 = 3 Then Call letter3
5114 If dc2 = 4 Then Call letter4
5115 If dc2 = 5 Then Call letter5
5116 If dc2 = 6 Then Call letter6
5117 If dc2 = 7 Then Call letter7
5118 If dc2 = 8 Then Call letter8
5119 If dc2 = 9 Then Call letter9
5120 If dc2 = 10 Then Call letter0
5121 Let x = 580: Let y = 220
5122 If dc4 = 1 Then Call letterA
5123 If dc4 = 2 Then Call letterB
5124 If dc4 = 3 Then Call letterC
5125 If dc4 = 4 Then Call letterD
5126 If dc4 = 5 Then Call letterE
5127 If dc4 = 6 Then Call letterF
5128 If dc4 = 7 Then Call letterG
5129 If dc4 = 8 Then Call letterH
5130 If dc4 = 9 Then Call letterI
5131 If dc4 = 10 Then Call letterJ
5132 Let x = 580: Let y = 280
5133 If dc5 = 1 Then Call letter1
5134 If dc5 = 2 Then Call letter2
5135 If dc5 = 3 Then Call letter3
5136 If dc5 = 4 Then Call letter4
5137 If dc5 = 5 Then Call letter5
5138 If dc5 = 6 Then Call letter6
5139 If dc5 = 7 Then Call letter7
5140 If dc5 = 8 Then Call letter8
5141 If dc5 = 9 Then Call letter9
5142 If dc5 = 10 Then Call letter0
5143 Let x = (dc1 * 40) + 80: Let y = Abs((dc2 * 40) - 480) - 40
5145 If dc3 = 1 Then Call dame
5146 If dc3 = 2 Then Call checker
5147 Let x = (dc4 * 40) + 80: Let y = Abs((dc5 * 40) - 480) - 40
5149 If dc6 = 1 Then Call dame
5150 If dc6 = 2 Then Call checker
5166 Let count = 0: Let index = 0
5167 Let dc1 = Int(Rnd * 10 + 1)
5168 Let dc2 = Int(Rnd * 10 + 1)
5169 Let dc3 = Int(Rnd * 2 + 1)
5170 Let dc4 = Int(Rnd * 10 + 1)
5171 Let dc5 = Int(Rnd * 10 + 1)
5172 Let dc6 = Int(Rnd * 2 + 1)
5173 Let w4 = drabo(dc2, dc1): Let b4 = drabo(dc5, dc4)
5179 Let count = count + 1
5180 Let dc1 = Int(Rnd * 10 + 1)
5181 Let dc2 = Int(Rnd * 10 + 1)
5182 Let w4 = drabo(dc2, dc1)
5183 If count > 8000 Then Exit Do
5184 Loop Until w4 Mod 2 <> 0
5185 Let count = count + 1
5186 If count > 8000 Then Exit Do
5187 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
5191 Let count = count + 1
5192 Let dc1 = Int(Rnd * 10 + 1)
5193 Let dc2 = Int(Rnd * 10 + 1)
5194 Let w4 = drabo(dc2, dc1)
5195 If count > 8000 Then Exit Do
5196 Loop Until w4 Mod 2 <> 0
5197 Let count = count + 1
5198 If count > 8000 Then Exit Do
5199 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
5205 Let count = count + 1
5206 Let dc4 = Int(Rnd * 10 + 1)
5207 Let dc5 = Int(Rnd * 10 + 1)
5208 Let b4 = drabo(dc5, dc4)
5209 If count > 8000 Then Exit Do
5210 Loop Until b4 Mod 2 <> 0
5211 Let count = count + 1
5212 If count > 8000 Then Exit Do
5213 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
5217 Let count = count + 1
5218 Let dc4 = Int(Rnd * 10 + 1)
5219 Let dc5 = Int(Rnd * 10 + 1)
5220 Let b4 = drabo(dc5, dc4)
5221 If count > 8000 Then Exit Do
5222 Loop Until b4 Mod 2 <> 0
5223 Let count = count + 1
5224 If count > 8000 Then Exit Do
5225 Loop While w4 = w1 Or w4 = w2 Or w4 = w3 Or w4 = b1 Or w4 = b2 Or w4 = b3 Or w4 = b4 Or b4 = w1 Or b4 = w2 Or b4 = w3 Or b4 = b1 Or b4 = b2 Or b4 = b3
5228 Let w4 = drabo(dc2, dc1): Let b4 = drabo(dc5, dc4)
5229 Let fw4x = dc1: Let fw4y = dc2: Let fb4x = dc4: Let fb4y = dc5
5230 Let fw4 = dc3: Let fb4 = dc6
5232 Let x = 20: Let y = 160: Let cf = 15
5233 If dc3 = 1 Then Call dame
5234 If dc3 = 2 Then Call checker
5235 Let x = 580: Let y = 160: Let cf = 0
5236 If dc6 = 1 Then Call dame
5237 If dc6 = 2 Then Call checker
5238 Let x = 20: Let y = 220
5239 If dc1 = 1 Then Call letterA
5240 If dc1 = 2 Then Call letterB
5241 If dc1 = 3 Then Call letterC
5242 If dc1 = 4 Then Call letterD
5243 If dc1 = 5 Then Call letterE
5244 If dc1 = 6 Then Call letterF
5245 If dc1 = 7 Then Call letterG
5246 If dc1 = 8 Then Call letterH
5247 If dc1 = 9 Then Call letterI
5248 If dc1 = 10 Then Call letterJ
5249 Let x = 20: Let y = 280
5250 If dc2 = 1 Then Call letter1
5251 If dc2 = 2 Then Call letter2
5252 If dc2 = 3 Then Call letter3
5253 If dc2 = 4 Then Call letter4
5254 If dc2 = 5 Then Call letter5
5255 If dc2 = 6 Then Call letter6
5256 If dc2 = 7 Then Call letter7
5257 If dc2 = 8 Then Call letter8
5258 If dc2 = 9 Then Call letter9
5259 If dc2 = 10 Then Call letter0
5260 Let x = 580: Let y = 220
5261 If dc4 = 1 Then Call letterA
5262 If dc4 = 2 Then Call letterB
5263 If dc4 = 3 Then Call letterC
5264 If dc4 = 4 Then Call letterD
5265 If dc4 = 5 Then Call letterE
5266 If dc4 = 6 Then Call letterF
5267 If dc4 = 7 Then Call letterG
5268 If dc4 = 8 Then Call letterH
5269 If dc4 = 9 Then Call letterI
5270 If dc4 = 10 Then Call letterJ
5271 Let x = 580: Let y = 280
5272 If dc5 = 1 Then Call letter1
5273 If dc5 = 2 Then Call letter2
5274 If dc5 = 3 Then Call letter3
5275 If dc5 = 4 Then Call letter4
5276 If dc5 = 5 Then Call letter5
5277 If dc5 = 6 Then Call letter6
5278 If dc5 = 7 Then Call letter7
5279 If dc5 = 8 Then Call letter8
5280 If dc5 = 9 Then Call letter9
5281 If dc5 = 10 Then Call letter0
5282 Let x = (dc1 * 40) + 80: Let y = Abs((dc2 * 40) - 480) - 40
5284 If dc3 = 1 Then Call dame
5285 If dc3 = 2 Then Call checker
5286 Let x = (dc4 * 40) + 80: Let y = Abs((dc5 * 40) - 480) - 40
5288 If dc6 = 1 Then Call dame
5289 If dc6 = 2 Then Call checker
5306 Rem Forsyth-Edwards notation
5308 If fw1 = 1 Then Let fig1w$ = "K"
5309 If fw1 = 2 Then Let fig1w$ = "Q"
5310 If fw1 = 3 Then Let fig1w$ = "B"
5311 If fw1 = 4 Then Let fig1w$ = "N"
5312 If fw1 = 5 Then Let fig1w$ = "R"
5313 If fw1 = 6 Then Let fig1w$ = "P"
5315 If fb1 = 1 Then Let fig1b$ = "k"
5316 If fb1 = 2 Then Let fig1b$ = "q"
5317 If fb1 = 3 Then Let fig1b$ = "b"
5318 If fb1 = 4 Then Let fig1b$ = "n"
5319 If fb1 = 5 Then Let fig1b$ = "r"
5320 If fb1 = 6 Then Let fig1b$ = "p"
5322 If fw2 = 1 Then Let fig2w$ = "K"
5323 If fw2 = 2 Then Let fig2w$ = "Q"
5324 If fw2 = 3 Then Let fig2w$ = "B"
5325 If fw2 = 4 Then Let fig2w$ = "N"
5326 If fw2 = 5 Then Let fig2w$ = "R"
5327 If fw2 = 6 Then Let fig2w$ = "P"
5329 If fb2 = 1 Then Let fig2b$ = "k"
5330 If fb2 = 2 Then Let fig2b$ = "q"
5331 If fb2 = 3 Then Let fig2b$ = "b"
5332 If fb2 = 4 Then Let fig2b$ = "n"
5333 If fb2 = 5 Then Let fig2b$ = "r"
5334 If fb2 = 6 Then Let fig2b$ = "p"
5336 If fw3 = 1 Then Let fig3w$ = "K"
5337 If fw3 = 2 Then Let fig3w$ = "Q"
5338 If fw3 = 3 Then Let fig3w$ = "B"
5339 If fw3 = 4 Then Let fig3w$ = "N"
5340 If fw3 = 5 Then Let fig3w$ = "R"
5341 If fw3 = 6 Then Let fig3w$ = "P"
5343 If fb3 = 1 Then Let fig3b$ = "k"
5344 If fb3 = 2 Then Let fig3b$ = "q"
5345 If fb3 = 3 Then Let fig3b$ = "b"
5346 If fb3 = 4 Then Let fig3b$ = "n"
5347 If fb3 = 5 Then Let fig3b$ = "r"
5348 If fb3 = 6 Then Let fig3b$ = "p"
5350 If fw4 = 1 Then Let fig4w$ = "K"
5351 If fw4 = 2 Then Let fig4w$ = "Q"
5352 If fw4 = 3 Then Let fig4w$ = "B"
5353 If fw4 = 4 Then Let fig4w$ = "N"
5354 If fw4 = 5 Then Let fig4w$ = "R"
5355 If fw4 = 6 Then Let fig4w$ = "P"
5357 If fb4 = 1 Then Let fig4b$ = "k"
5358 If fb4 = 2 Then Let fig4b$ = "q"
5359 If fb4 = 3 Then Let fig4b$ = "b"
5360 If fb4 = 4 Then Let fig4b$ = "n"
5361 If fb4 = 5 Then Let fig4b$ = "r"
5362 If fb4 = 6 Then Let fig4b$ = "p"
5364 Dim table(8, 8) As String
5365 Let table(fw1y, fw1x) = fig1w$
5366 Let table(fb1y, fb1x) = fig1b$
5367 Let table(fw2y, fw2x) = fig2w$
5368 Let table(fb2y, fb2x) = fig2b$
5369 Let table(fw3y, fw3x) = fig3w$
5370 Let table(fb3y, fb3x) = fig3b$
5371 Let table(fw4y, fw4x) = fig4w$
5372 Let table(fb4y, fb4x) = fig4b$
5373 For row = 1 To 8: For col = 1 To 8
5374 If table(row, col) = "" Then Let table(row, col) = "+"
5377 Let mas1$ = table(1, 1) + table(1, 2) + table(1, 3) + table(1, 4) + table(1, 5) + table(1, 6) + table(1, 7) + table(1, 8)
5381 If index = 8 And Mid$(mas1$, index, 1) = "+" Then
5383 lin1$ = lin1$ + LTrim$(Str$(count))
5385 If index < 8 And Mid$(mas1$, index, 1) = "+" Then
5388 If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
5389 lin1$ = lin1$ + Mid$(mas1$, index, 1)
5391 If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
5392 lin1$ = lin1$ + LTrim$(Str$(count))
5393 lin1$ = lin1$ + Mid$(mas1$, index, 1)
5398 Let mas2$ = table(2, 1) + table(2, 2) + table(2, 3) + table(2, 4) + table(2, 5) + table(2, 6) + table(2, 7) + table(2, 8)
5402 If index = 8 And Mid$(mas2$, index, 1) = "+" Then
5404 lin2$ = lin2$ + LTrim$(Str$(count))
5406 If index < 8 And Mid$(mas2$, index, 1) = "+" Then
5409 If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
5410 lin2$ = lin2$ + Mid$(mas2$, index, 1)
5412 If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
5413 lin2$ = lin2$ + LTrim$(Str$(count))
5414 lin2$ = lin2$ + Mid$(mas2$, index, 1)
5419 Let mas3$ = table(3, 1) + table(3, 2) + table(3, 3) + table(3, 4) + table(3, 5) + table(3, 6) + table(3, 7) + table(3, 8)
5423 If index = 8 And Mid$(mas3$, index, 1) = "+" Then
5425 lin3$ = lin3$ + LTrim$(Str$(count))
5427 If index < 8 And Mid$(mas3$, index, 1) = "+" Then
5430 If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
5431 lin3$ = lin3$ + Mid$(mas3$, index, 1)
5433 If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
5434 lin3$ = lin3$ + LTrim$(Str$(count))
5435 lin3$ = lin3$ + Mid$(mas3$, index, 1)
5440 Let mas4$ = table(4, 1) + table(4, 2) + table(4, 3) + table(4, 4) + table(4, 5) + table(4, 6) + table(4, 7) + table(4, 8)
5444 If index = 8 And Mid$(mas4$, index, 1) = "+" Then
5446 lin4$ = lin4$ + LTrim$(Str$(count))
5448 If index < 8 And Mid$(mas4$, index, 1) = "+" Then
5451 If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
5452 lin4$ = lin4$ + Mid$(mas4$, index, 1)
5454 If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
5455 lin4$ = lin4$ + LTrim$(Str$(count))
5456 lin4$ = lin4$ + Mid$(mas4$, index, 1)
5461 Let mas5$ = table(5, 1) + table(5, 2) + table(5, 3) + table(5, 4) + table(5, 5) + table(5, 6) + table(5, 7) + table(5, 8)
5465 If index = 8 And Mid$(mas5$, index, 1) = "+" Then
5467 lin5$ = lin5$ + LTrim$(Str$(count))
5469 If index < 8 And Mid$(mas5$, index, 1) = "+" Then
5472 If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
5473 lin5$ = lin5$ + Mid$(mas5$, index, 1)
5475 If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
5476 lin5$ = lin5$ + LTrim$(Str$(count))
5477 lin5$ = lin5$ + Mid$(mas5$, index, 1)
5482 Let mas6$ = table(6, 1) + table(6, 2) + table(6, 3) + table(6, 4) + table(6, 5) + table(6, 6) + table(6, 7) + table(6, 8)
5486 If index = 8 And Mid$(mas6$, index, 1) = "+" Then
5488 lin6$ = lin6$ + LTrim$(Str$(count))
5490 If index < 8 And Mid$(mas6$, index, 1) = "+" Then
5493 If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
5494 lin6$ = lin6$ + Mid$(mas6$, index, 1)
5496 If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
5497 lin6$ = lin6$ + LTrim$(Str$(count))
5498 lin6$ = lin6$ + Mid$(mas6$, index, 1)
5503 Let mas7$ = table(7, 1) + table(7, 2) + table(7, 3) + table(7, 4) + table(7, 5) + table(7, 6) + table(7, 7) + table(7, 8)
5507 If index = 8 And Mid$(mas7$, index, 1) = "+" Then
5509 lin7$ = lin7$ + LTrim$(Str$(count))
5511 If index < 8 And Mid$(mas7$, index, 1) = "+" Then
5514 If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
5515 lin7$ = lin7$ + Mid$(mas7$, index, 1)
5517 If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
5518 lin7$ = lin7$ + LTrim$(Str$(count))
5519 lin7$ = lin7$ + Mid$(mas7$, index, 1)
5524 Let mas8$ = table(8, 1) + table(8, 2) + table(8, 3) + table(8, 4) + table(8, 5) + table(8, 6) + table(8, 7) + table(8, 8)
5528 If index = 8 And Mid$(mas8$, index, 1) = "+" Then
5530 lin8$ = lin8$ + LTrim$(Str$(count))
5532 If index < 8 And Mid$(mas8$, index, 1) = "+" Then
5535 If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
5536 lin8$ = lin8$ + Mid$(mas8$, index, 1)
5538 If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
5539 lin8$ = lin8$ + LTrim$(Str$(count))
5540 lin8$ = lin8$ + Mid$(mas8$, index, 1)
5545 Let fen$ = lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
5548 Locate 2, 1: Print " Press any key to display the Forsyth-Edwards notation "
5550 Loop Until InKey$ <> ""
5551 Locate 2, 1: Print " "
5553 Locate 2, 28: Print fen$
5556 Loop Until InKey$ <> ""
5560 url$ = "https://syzygy-tables.info/?fen=" + fen$
5561 If InStr(_OS$, "[WINDOWS]") Then
5564 If InStr(_OS$, "[LINUX]") Then
5565 Shell "xdg-open " + url$
5567 If InStr(_OS$, "[MACOSX]") Then
5568 Shell "open -a safari https://" + url$
5576 Rem Forsyth-Edwards notation
5578 If fw1 = 1 Then Let fig1w$ = "L"
5579 If fw1 = 2 Then Let fig1w$ = "S"
5580 If fw1 = 3 Then Let fig1w$ = "N"
5581 If fw1 = 4 Then Let fig1w$ = "H"
5582 If fw1 = 5 Then Let fig1w$ = "B"
5583 If fw1 = 6 Then Let fig1w$ = "C"
5585 If fb1 = 1 Then Let fig1b$ = "l"
5586 If fb1 = 2 Then Let fig1b$ = "s"
5587 If fb1 = 3 Then Let fig1b$ = "n"
5588 If fb1 = 4 Then Let fig1b$ = "h"
5589 If fb1 = 5 Then Let fig1b$ = "b"
5590 If fb1 = 6 Then Let fig1b$ = "c"
5592 If fw2 = 1 Then Let fig2w$ = "L"
5593 If fw2 = 2 Then Let fig2w$ = "S"
5594 If fw2 = 3 Then Let fig2w$ = "N"
5595 If fw2 = 4 Then Let fig2w$ = "H"
5596 If fw2 = 5 Then Let fig2w$ = "B"
5597 If fw2 = 6 Then Let fig2w$ = "C"
5599 If fb2 = 1 Then Let fig2b$ = "l"
5600 If fb2 = 2 Then Let fig2b$ = "s"
5601 If fb2 = 3 Then Let fig2b$ = "n"
5602 If fb2 = 4 Then Let fig2b$ = "h"
5603 If fb2 = 5 Then Let fig2b$ = "b"
5604 If fb2 = 6 Then Let fig2b$ = "c"
5606 If fw3 = 1 Then Let fig3w$ = "L"
5607 If fw3 = 2 Then Let fig3w$ = "S"
5608 If fw3 = 3 Then Let fig3w$ = "N"
5609 If fw3 = 4 Then Let fig3w$ = "H"
5610 If fw3 = 5 Then Let fig3w$ = "B"
5611 If fw3 = 6 Then Let fig3w$ = "C"
5613 If fb3 = 1 Then Let fig3b$ = "l"
5614 If fb3 = 2 Then Let fig3b$ = "s"
5615 If fb3 = 3 Then Let fig3b$ = "n"
5616 If fb3 = 4 Then Let fig3b$ = "h"
5617 If fb3 = 5 Then Let fig3b$ = "b"
5618 If fb3 = 6 Then Let fig3b$ = "c"
5620 If fw4 = 1 Then Let fig4w$ = "L"
5621 If fw4 = 2 Then Let fig4w$ = "S"
5622 If fw4 = 3 Then Let fig4w$ = "N"
5623 If fw4 = 4 Then Let fig4w$ = "H"
5624 If fw4 = 5 Then Let fig4w$ = "B"
5625 If fw4 = 6 Then Let fig4w$ = "C"
5627 If fb4 = 1 Then Let fig4b$ = "l"
5628 If fb4 = 2 Then Let fig4b$ = "s"
5629 If fb4 = 3 Then Let fig4b$ = "n"
5630 If fb4 = 4 Then Let fig4b$ = "h"
5631 If fb4 = 5 Then Let fig4b$ = "b"
5632 If fb4 = 6 Then Let fig4b$ = "c"
5634 Dim table(8, 8) As String
5635 Let table(fw1y, fw1x) = fig1w$
5636 Let table(fb1y, fb1x) = fig1b$
5637 Let table(fw2y, fw2x) = fig2w$
5638 Let table(fb2y, fb2x) = fig2b$
5639 Let table(fw3y, fw3x) = fig3w$
5640 Let table(fb3y, fb3x) = fig3b$
5641 Let table(fw4y, fw4x) = fig4w$
5642 Let table(fb4y, fb4x) = fig4b$
5643 For row = 1 To 8: For col = 1 To 8
5644 If table(row, col) = "" Then Let table(row, col) = "+"
5647 Let mas1$ = table(1, 1) + table(1, 2) + table(1, 3) + table(1, 4) + table(1, 5) + table(1, 6) + table(1, 7) + table(1, 8)
5651 If index = 8 And Mid$(mas1$, index, 1) = "+" Then
5653 lin1$ = lin1$ + LTrim$(Str$(count))
5655 If index < 8 And Mid$(mas1$, index, 1) = "+" Then
5658 If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
5659 lin1$ = lin1$ + Mid$(mas1$, index, 1)
5661 If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
5662 lin1$ = lin1$ + LTrim$(Str$(count))
5663 lin1$ = lin1$ + Mid$(mas1$, index, 1)
5668 Let mas2$ = table(2, 1) + table(2, 2) + table(2, 3) + table(2, 4) + table(2, 5) + table(2, 6) + table(2, 7) + table(2, 8)
5672 If index = 8 And Mid$(mas2$, index, 1) = "+" Then
5674 lin2$ = lin2$ + LTrim$(Str$(count))
5676 If index < 8 And Mid$(mas2$, index, 1) = "+" Then
5679 If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
5680 lin2$ = lin2$ + Mid$(mas2$, index, 1)
5682 If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
5683 lin2$ = lin2$ + LTrim$(Str$(count))
5684 lin2$ = lin2$ + Mid$(mas2$, index, 1)
5689 Let mas3$ = table(3, 1) + table(3, 2) + table(3, 3) + table(3, 4) + table(3, 5) + table(3, 6) + table(3, 7) + table(3, 8)
5693 If index = 8 And Mid$(mas3$, index, 1) = "+" Then
5695 lin3$ = lin3$ + LTrim$(Str$(count))
5697 If index < 8 And Mid$(mas3$, index, 1) = "+" Then
5700 If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
5701 lin3$ = lin3$ + Mid$(mas3$, index, 1)
5703 If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
5704 lin3$ = lin3$ + LTrim$(Str$(count))
5705 lin3$ = lin3$ + Mid$(mas3$, index, 1)
5710 Let mas4$ = table(4, 1) + table(4, 2) + table(4, 3) + table(4, 4) + table(4, 5) + table(4, 6) + table(4, 7) + table(4, 8)
5714 If index = 8 And Mid$(mas4$, index, 1) = "+" Then
5716 lin4$ = lin4$ + LTrim$(Str$(count))
5718 If index < 8 And Mid$(mas4$, index, 1) = "+" Then
5721 If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
5722 lin4$ = lin4$ + Mid$(mas4$, index, 1)
5724 If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
5725 lin4$ = lin4$ + LTrim$(Str$(count))
5726 lin4$ = lin4$ + Mid$(mas4$, index, 1)
5731 Let mas5$ = table(5, 1) + table(5, 2) + table(5, 3) + table(5, 4) + table(5, 5) + table(5, 6) + table(5, 7) + table(5, 8)
5735 If index = 8 And Mid$(mas5$, index, 1) = "+" Then
5737 lin5$ = lin5$ + LTrim$(Str$(count))
5739 If index < 8 And Mid$(mas5$, index, 1) = "+" Then
5742 If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
5743 lin5$ = lin5$ + Mid$(mas5$, index, 1)
5745 If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
5746 lin5$ = lin5$ + LTrim$(Str$(count))
5747 lin5$ = lin5$ + Mid$(mas5$, index, 1)
5752 Let mas6$ = table(6, 1) + table(6, 2) + table(6, 3) + table(6, 4) + table(6, 5) + table(6, 6) + table(6, 7) + table(6, 8)
5756 If index = 8 And Mid$(mas6$, index, 1) = "+" Then
5758 lin6$ = lin6$ + LTrim$(Str$(count))
5760 If index < 8 And Mid$(mas6$, index, 1) = "+" Then
5763 If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
5764 lin6$ = lin6$ + Mid$(mas6$, index, 1)
5766 If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
5767 lin6$ = lin6$ + LTrim$(Str$(count))
5768 lin6$ = lin6$ + Mid$(mas6$, index, 1)
5773 Let mas7$ = table(7, 1) + table(7, 2) + table(7, 3) + table(7, 4) + table(7, 5) + table(7, 6) + table(7, 7) + table(7, 8)
5777 If index = 8 And Mid$(mas7$, index, 1) = "+" Then
5779 lin7$ = lin7$ + LTrim$(Str$(count))
5781 If index < 8 And Mid$(mas7$, index, 1) = "+" Then
5784 If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
5785 lin7$ = lin7$ + Mid$(mas7$, index, 1)
5787 If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
5788 lin7$ = lin7$ + LTrim$(Str$(count))
5789 lin7$ = lin7$ + Mid$(mas7$, index, 1)
5794 Let mas8$ = table(8, 1) + table(8, 2) + table(8, 3) + table(8, 4) + table(8, 5) + table(8, 6) + table(8, 7) + table(8, 8)
5798 If index = 8 And Mid$(mas8$, index, 1) = "+" Then
5800 lin8$ = lin8$ + LTrim$(Str$(count))
5802 If index < 8 And Mid$(mas8$, index, 1) = "+" Then
5805 If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
5806 lin8$ = lin8$ + Mid$(mas8$, index, 1)
5808 If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
5809 lin8$ = lin8$ + LTrim$(Str$(count))
5810 lin8$ = lin8$ + Mid$(mas8$, index, 1)
5815 Let fen$ = lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
5818 Locate 2, 1: Print " Press any key to display the Forsyth-Edwards notation "
5820 Loop Until InKey$ <> ""
5821 Locate 2, 1: Print " "
5823 Locate 2, 28: Print fen$
5826 Loop Until InKey$ <> ""
5835 Rem Forsyth-Edwards notation
5837 If fw1 = 1 Then Let fig1w$ = "K"
5838 If fw1 = 2 Then Let fig1w$ = "A"
5839 If fw1 = 3 Then Let fig1w$ = "E"
5840 If fw1 = 4 Then Let fig1w$ = "H"
5841 If fw1 = 5 Then Let fig1w$ = "R"
5842 If fw1 = 6 Then Let fig1w$ = "C"
5843 If fw1 = 7 Then Let fig1w$ = "P"
5845 If fb1 = 1 Then Let fig1b$ = "k"
5846 If fb1 = 2 Then Let fig1b$ = "a"
5847 If fb1 = 3 Then Let fig1b$ = "e"
5848 If fb1 = 4 Then Let fig1b$ = "h"
5849 If fb1 = 5 Then Let fig1b$ = "r"
5850 If fb1 = 6 Then Let fig1b$ = "c"
5851 If fb1 = 7 Then Let fig1w$ = "p"
5853 If fw2 = 1 Then Let fig2w$ = "K"
5854 If fw2 = 2 Then Let fig2w$ = "A"
5855 If fw2 = 3 Then Let fig2w$ = "E"
5856 If fw2 = 4 Then Let fig2w$ = "H"
5857 If fw2 = 5 Then Let fig2w$ = "R"
5858 If fw2 = 6 Then Let fig2w$ = "C"
5859 If fw2 = 7 Then Let fig2w$ = "P"
5861 If fb2 = 1 Then Let fig2b$ = "k"
5862 If fb2 = 2 Then Let fig2b$ = "a"
5863 If fb2 = 3 Then Let fig2b$ = "e"
5864 If fb2 = 4 Then Let fig2b$ = "h"
5865 If fb2 = 5 Then Let fig2b$ = "r"
5866 If fb2 = 6 Then Let fig2b$ = "c"
5867 If fb2 = 7 Then Let fig2w$ = "p"
5869 If fw3 = 1 Then Let fig3w$ = "K"
5870 If fw3 = 2 Then Let fig3w$ = "A"
5871 If fw3 = 3 Then Let fig3w$ = "E"
5872 If fw3 = 4 Then Let fig3w$ = "H"
5873 If fw3 = 5 Then Let fig3w$ = "R"
5874 If fw3 = 6 Then Let fig3w$ = "C"
5875 If fw3 = 7 Then Let fig3w$ = "P"
5877 If fb3 = 1 Then Let fig3b$ = "k"
5878 If fb3 = 2 Then Let fig3b$ = "a"
5879 If fb3 = 3 Then Let fig3b$ = "e"
5880 If fb3 = 4 Then Let fig3b$ = "h"
5881 If fb3 = 5 Then Let fig3b$ = "r"
5882 If fb3 = 6 Then Let fig3b$ = "c"
5883 If fb3 = 7 Then Let fig3w$ = "p"
5885 If fw4 = 1 Then Let fig4w$ = "K"
5886 If fw4 = 2 Then Let fig4w$ = "A"
5887 If fw4 = 3 Then Let fig4w$ = "E"
5888 If fw4 = 4 Then Let fig4w$ = "H"
5889 If fw4 = 5 Then Let fig4w$ = "R"
5890 If fw4 = 6 Then Let fig4w$ = "C"
5891 If fw4 = 7 Then Let fig4w$ = "P"
5893 If fb4 = 1 Then Let fig4b$ = "k"
5894 If fb4 = 2 Then Let fig4b$ = "a"
5895 If fb4 = 3 Then Let fig4b$ = "e"
5896 If fb4 = 4 Then Let fig4b$ = "h"
5897 If fb4 = 5 Then Let fig4b$ = "r"
5898 If fb4 = 6 Then Let fig4b$ = "c"
5899 If fb4 = 7 Then Let fig4w$ = "p"
5901 Dim table(10, 9) As String
5902 Let table(fw1y, fw1x) = fig1w$
5903 Let table(fb1y, fb1x) = fig1b$
5904 Let table(fw2y, fw2x) = fig2w$
5905 Let table(fb2y, fb2x) = fig2b$
5906 Let table(fw3y, fw3x) = fig3w$
5907 Let table(fb3y, fb3x) = fig3b$
5908 Let table(fw4y, fw4x) = fig4w$
5909 Let table(fb4y, fb4x) = fig4b$
5910 For row = 1 To 10: For col = 1 To 9
5911 If table(row, col) = "" Then Let table(row, col) = "+"
5914 Let mas1$ = table(1, 1) + table(1, 2) + table(1, 3) + table(1, 4) + table(1, 5) + table(1, 6) + table(1, 7) + table(1, 8) + table(1, 9)
5918 If index = 9 And Mid$(mas1$, index, 1) = "+" Then
5920 lin1$ = lin1$ + LTrim$(Str$(count))
5922 If index < 9 And Mid$(mas1$, index, 1) = "+" Then
5925 If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
5926 lin1$ = lin1$ + Mid$(mas1$, index, 1)
5928 If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
5929 lin1$ = lin1$ + LTrim$(Str$(count))
5930 lin1$ = lin1$ + Mid$(mas1$, index, 1)
5935 Let mas2$ = table(2, 1) + table(2, 2) + table(2, 3) + table(2, 4) + table(2, 5) + table(2, 6) + table(2, 7) + table(2, 8) + table(2, 9)
5939 If index = 9 And Mid$(mas2$, index, 1) = "+" Then
5941 lin2$ = lin2$ + LTrim$(Str$(count))
5943 If index < 9 And Mid$(mas2$, index, 1) = "+" Then
5946 If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
5947 lin2$ = lin2$ + Mid$(mas2$, index, 1)
5949 If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
5950 lin2$ = lin2$ + LTrim$(Str$(count))
5951 lin2$ = lin2$ + Mid$(mas2$, index, 1)
5956 Let mas3$ = table(3, 1) + table(3, 2) + table(3, 3) + table(3, 4) + table(3, 5) + table(3, 6) + table(3, 7) + table(3, 8) + table(3, 9)
5960 If index = 9 And Mid$(mas3$, index, 1) = "+" Then
5962 lin3$ = lin3$ + LTrim$(Str$(count))
5964 If index < 9 And Mid$(mas3$, index, 1) = "+" Then
5967 If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
5968 lin3$ = lin3$ + Mid$(mas3$, index, 1)
5970 If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
5971 lin3$ = lin3$ + LTrim$(Str$(count))
5972 lin3$ = lin3$ + Mid$(mas3$, index, 1)
5977 Let mas4$ = table(4, 1) + table(4, 2) + table(4, 3) + table(4, 4) + table(4, 5) + table(4, 6) + table(4, 7) + table(4, 8) + table(4, 9)
5981 If index = 9 And Mid$(mas4$, index, 1) = "+" Then
5983 lin4$ = lin4$ + LTrim$(Str$(count))
5985 If index < 9 And Mid$(mas4$, index, 1) = "+" Then
5988 If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
5989 lin4$ = lin4$ + Mid$(mas4$, index, 1)
5991 If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
5992 lin4$ = lin4$ + LTrim$(Str$(count))
5993 lin4$ = lin4$ + Mid$(mas4$, index, 1)
5998 Let mas5$ = table(5, 1) + table(5, 2) + table(5, 3) + table(5, 4) + table(5, 5) + table(5, 6) + table(5, 7) + table(5, 8) + table(5, 9)
6002 If index = 9 And Mid$(mas5$, index, 1) = "+" Then
6004 lin5$ = lin5$ + LTrim$(Str$(count))
6006 If index < 9 And Mid$(mas5$, index, 1) = "+" Then
6009 If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
6010 lin5$ = lin5$ + Mid$(mas5$, index, 1)
6012 If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
6013 lin5$ = lin5$ + LTrim$(Str$(count))
6014 lin5$ = lin5$ + Mid$(mas5$, index, 1)
6019 Let mas6$ = table(6, 1) + table(6, 2) + table(6, 3) + table(6, 4) + table(6, 5) + table(6, 6) + table(6, 7) + table(6, 8) + table(6, 9)
6023 If index = 9 And Mid$(mas6$, index, 1) = "+" Then
6025 lin6$ = lin6$ + LTrim$(Str$(count))
6027 If index < 9 And Mid$(mas6$, index, 1) = "+" Then
6030 If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
6031 lin6$ = lin6$ + Mid$(mas6$, index, 1)
6033 If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
6034 lin6$ = lin6$ + LTrim$(Str$(count))
6035 lin6$ = lin6$ + Mid$(mas6$, index, 1)
6040 Let mas7$ = table(7, 1) + table(7, 2) + table(7, 3) + table(7, 4) + table(7, 5) + table(7, 6) + table(7, 7) + table(7, 8) + table(7, 9)
6044 If index = 9 And Mid$(mas7$, index, 1) = "+" Then
6046 lin7$ = lin7$ + LTrim$(Str$(count))
6048 If index < 9 And Mid$(mas7$, index, 1) = "+" Then
6051 If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
6052 lin7$ = lin7$ + Mid$(mas7$, index, 1)
6054 If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
6055 lin7$ = lin7$ + LTrim$(Str$(count))
6056 lin7$ = lin7$ + Mid$(mas7$, index, 1)
6061 Let mas8$ = table(8, 1) + table(8, 2) + table(8, 3) + table(8, 4) + table(8, 5) + table(8, 6) + table(8, 7) + table(8, 8) + table(8, 9)
6065 If index = 9 And Mid$(mas8$, index, 1) = "+" Then
6067 lin8$ = lin8$ + LTrim$(Str$(count))
6069 If index < 9 And Mid$(mas8$, index, 1) = "+" Then
6072 If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
6073 lin8$ = lin8$ + Mid$(mas8$, index, 1)
6075 If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
6076 lin8$ = lin8$ + LTrim$(Str$(count))
6077 lin8$ = lin8$ + Mid$(mas8$, index, 1)
6082 Let mas9$ = table(9, 1) + table(9, 2) + table(9, 3) + table(9, 4) + table(9, 5) + table(9, 6) + table(9, 7) + table(9, 8) + table(9, 9)
6086 If index = 9 And Mid$(mas9$, index, 1) = "+" Then
6088 lin9$ = lin9$ + LTrim$(Str$(count))
6090 If index < 9 And Mid$(mas9$, index, 1) = "+" Then
6093 If Mid$(mas9$, index, 1) <> "+" And count = 0 Then
6094 lin9$ = lin9$ + Mid$(mas9$, index, 1)
6096 If Mid$(mas9$, index, 1) <> "+" And count > 0 Then
6097 lin9$ = lin9$ + LTrim$(Str$(count))
6098 lin9$ = lin9$ + Mid$(mas9$, index, 1)
6103 Let mas0$ = table(10, 1) + table(10, 2) + table(10, 3) + table(10, 4) + table(10, 5) + table(10, 6) + table(10, 7) + table(10, 8) + table(10, 9)
6107 If index = 9 And Mid$(mas0$, index, 1) = "+" Then
6109 lin0$ = lin0$ + LTrim$(Str$(count))
6111 If index < 9 And Mid$(mas0$, index, 1) = "+" Then
6114 If Mid$(mas0$, index, 1) <> "+" And count = 0 Then
6115 lin0$ = lin0$ + Mid$(mas0$, index, 1)
6117 If Mid$(mas0$, index, 1) <> "+" And count > 0 Then
6118 lin0$ = lin0$ + LTrim$(Str$(count))
6119 lin0$ = lin0$ + Mid$(mas0$, index, 1)
6124 Let fen$ = lin0$ + "/" + lin9$ + "/" + lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
6127 Locate 2, 1: Print " Press any key to display the Forsyth-Edwards notation "
6129 Loop Until InKey$ <> ""
6130 Locate 2, 1: Print " "
6132 Locate 2, 24: Print fen$
6135 Loop Until InKey$ <> ""
6144 Rem Forsyth-Edwards notation
6146 If fw1 = 1 Then Let fig1w$ = "K"
6147 If fw1 = 2 Then Let fig1w$ = "G"
6148 If fw1 = 3 Then Let fig1w$ = "S"
6149 If fw1 = 4 Then Let fig1w$ = "B"
6150 If fw1 = 5 Then Let fig1w$ = "N"
6151 If fw1 = 6 Then Let fig1w$ = "R"
6152 If fw1 = 7 Then Let fig1w$ = "L"
6153 If fw1 = 8 Then Let fig1w$ = "P"
6154 If fw1 = 9 Then Let fig1w$ = "H"
6155 If fw1 = 10 Then Let fig1w$ = "D"
6156 If fw1 = 11 Then Let fig1w$ = "T"
6158 If fb1 = 1 Then Let fig1b$ = "k"
6159 If fb1 = 2 Then Let fig1b$ = "g"
6160 If fb1 = 3 Then Let fig1b$ = "a"
6161 If fb1 = 4 Then Let fig1b$ = "b"
6162 If fb1 = 5 Then Let fig1b$ = "n"
6163 If fb1 = 6 Then Let fig1b$ = "r"
6164 If fb1 = 7 Then Let fig1b$ = "l"
6165 If fb1 = 8 Then Let fig1b$ = "p"
6166 If fb1 = 9 Then Let fig1b$ = "h"
6167 If fb1 = 10 Then Let fig1b$ = "d"
6168 If fb1 = 11 Then Let fig1b$ = "t"
6170 If fw2 = 1 Then Let fig2w$ = "K"
6171 If fw2 = 2 Then Let fig2w$ = "G"
6172 If fw2 = 3 Then Let fig2w$ = "S"
6173 If fw2 = 4 Then Let fig2w$ = "B"
6174 If fw2 = 5 Then Let fig2w$ = "N"
6175 If fw2 = 6 Then Let fig2w$ = "R"
6176 If fw2 = 7 Then Let fig2w$ = "L"
6177 If fw2 = 8 Then Let fig2w$ = "P"
6178 If fw2 = 9 Then Let fig2w$ = "H"
6179 If fw2 = 20 Then Let fig2w$ = "D"
6180 If fw2 = 22 Then Let fig2w$ = "T"
6182 If fb2 = 1 Then Let fig2b$ = "k"
6183 If fb2 = 2 Then Let fig2b$ = "g"
6184 If fb2 = 3 Then Let fig2b$ = "a"
6185 If fb2 = 4 Then Let fig2b$ = "b"
6186 If fb2 = 5 Then Let fig2b$ = "n"
6187 If fb2 = 6 Then Let fig2b$ = "r"
6188 If fb2 = 7 Then Let fig2b$ = "l"
6189 If fb2 = 8 Then Let fig2b$ = "p"
6190 If fb2 = 9 Then Let fig2b$ = "h"
6191 If fb2 = 20 Then Let fig2b$ = "d"
6192 If fb2 = 22 Then Let fig2b$ = "t"
6194 If fw3 = 1 Then Let fig3w$ = "K"
6195 If fw3 = 2 Then Let fig3w$ = "G"
6196 If fw3 = 3 Then Let fig3w$ = "S"
6197 If fw3 = 4 Then Let fig3w$ = "B"
6198 If fw3 = 5 Then Let fig3w$ = "N"
6199 If fw3 = 6 Then Let fig3w$ = "R"
6200 If fw3 = 7 Then Let fig3w$ = "L"
6201 If fw3 = 8 Then Let fig3w$ = "P"
6202 If fw3 = 9 Then Let fig3w$ = "H"
6203 If fw3 = 30 Then Let fig3w$ = "D"
6204 If fw3 = 33 Then Let fig3w$ = "T"
6206 If fb3 = 1 Then Let fig3b$ = "k"
6207 If fb3 = 2 Then Let fig3b$ = "g"
6208 If fb3 = 3 Then Let fig3b$ = "a"
6209 If fb3 = 4 Then Let fig3b$ = "b"
6210 If fb3 = 5 Then Let fig3b$ = "n"
6211 If fb3 = 6 Then Let fig3b$ = "r"
6212 If fb3 = 7 Then Let fig3b$ = "l"
6213 If fb3 = 8 Then Let fig3b$ = "p"
6214 If fb3 = 9 Then Let fig3b$ = "h"
6215 If fb3 = 30 Then Let fig3b$ = "d"
6216 If fb3 = 33 Then Let fig3b$ = "t"
6218 If fw4 = 1 Then Let fig4w$ = "K"
6219 If fw4 = 2 Then Let fig4w$ = "G"
6220 If fw4 = 3 Then Let fig4w$ = "S"
6221 If fw4 = 4 Then Let fig4w$ = "B"
6222 If fw4 = 5 Then Let fig4w$ = "N"
6223 If fw4 = 6 Then Let fig4w$ = "R"
6224 If fw4 = 7 Then Let fig4w$ = "L"
6225 If fw4 = 8 Then Let fig4w$ = "P"
6226 If fw4 = 9 Then Let fig4w$ = "H"
6227 If fw4 = 40 Then Let fig4w$ = "D"
6228 If fw4 = 44 Then Let fig4w$ = "T"
6230 If fb4 = 1 Then Let fig4b$ = "k"
6231 If fb4 = 2 Then Let fig4b$ = "g"
6232 If fb4 = 3 Then Let fig4b$ = "a"
6233 If fb4 = 4 Then Let fig4b$ = "b"
6234 If fb4 = 5 Then Let fig4b$ = "n"
6235 If fb4 = 6 Then Let fig4b$ = "r"
6236 If fb4 = 7 Then Let fig4b$ = "l"
6237 If fb4 = 8 Then Let fig4b$ = "p"
6238 If fb4 = 9 Then Let fig4b$ = "h"
6239 If fb4 = 40 Then Let fig4b$ = "d"
6240 If fb4 = 44 Then Let fig4b$ = "t"
6242 Dim table(9, 9) As String
6243 Let table(fw1y, fw1x) = fig1w$
6244 Let table(fb1y, fb1x) = fig1b$
6245 Let table(fw2y, fw2x) = fig2w$
6246 Let table(fb2y, fb2x) = fig2b$
6247 Let table(fw3y, fw3x) = fig3w$
6248 Let table(fb3y, fb3x) = fig3b$
6249 Let table(fw4y, fw4x) = fig4w$
6250 Let table(fb4y, fb4x) = fig4b$
6251 For row = 1 To 9: For col = 1 To 9
6252 If table(row, col) = "" Then Let table(row, col) = "+"
6255 Let mas1$ = table(1, 1) + table(1, 2) + table(1, 3) + table(1, 4) + table(1, 5) + table(1, 6) + table(1, 7) + table(1, 8) + table(1, 9)
6259 If index = 9 And Mid$(mas1$, index, 1) = "+" Then
6261 lin1$ = lin1$ + LTrim$(Str$(count))
6263 If index < 9 And Mid$(mas1$, index, 1) = "+" Then
6266 If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
6267 lin1$ = lin1$ + Mid$(mas1$, index, 1)
6269 If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
6270 lin1$ = lin1$ + LTrim$(Str$(count))
6271 lin1$ = lin1$ + Mid$(mas1$, index, 1)
6276 Let mas2$ = table(2, 1) + table(2, 2) + table(2, 3) + table(2, 4) + table(2, 5) + table(2, 6) + table(2, 7) + table(2, 8) + table(2, 9)
6280 If index = 9 And Mid$(mas2$, index, 1) = "+" Then
6282 lin2$ = lin2$ + LTrim$(Str$(count))
6284 If index < 9 And Mid$(mas2$, index, 1) = "+" Then
6287 If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
6288 lin2$ = lin2$ + Mid$(mas2$, index, 1)
6290 If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
6291 lin2$ = lin2$ + LTrim$(Str$(count))
6292 lin2$ = lin2$ + Mid$(mas2$, index, 1)
6297 Let mas3$ = table(3, 1) + table(3, 2) + table(3, 3) + table(3, 4) + table(3, 5) + table(3, 6) + table(3, 7) + table(3, 8) + table(3, 9)
6301 If index = 9 And Mid$(mas3$, index, 1) = "+" Then
6303 lin3$ = lin3$ + LTrim$(Str$(count))
6305 If index < 9 And Mid$(mas3$, index, 1) = "+" Then
6308 If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
6309 lin3$ = lin3$ + Mid$(mas3$, index, 1)
6311 If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
6312 lin3$ = lin3$ + LTrim$(Str$(count))
6313 lin3$ = lin3$ + Mid$(mas3$, index, 1)
6318 Let mas4$ = table(4, 1) + table(4, 2) + table(4, 3) + table(4, 4) + table(4, 5) + table(4, 6) + table(4, 7) + table(4, 8) + table(4, 9)
6322 If index = 9 And Mid$(mas4$, index, 1) = "+" Then
6324 lin4$ = lin4$ + LTrim$(Str$(count))
6326 If index < 9 And Mid$(mas4$, index, 1) = "+" Then
6329 If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
6330 lin4$ = lin4$ + Mid$(mas4$, index, 1)
6332 If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
6333 lin4$ = lin4$ + LTrim$(Str$(count))
6334 lin4$ = lin4$ + Mid$(mas4$, index, 1)
6339 Let mas5$ = table(5, 1) + table(5, 2) + table(5, 3) + table(5, 4) + table(5, 5) + table(5, 6) + table(5, 7) + table(5, 8) + table(5, 9)
6343 If index = 9 And Mid$(mas5$, index, 1) = "+" Then
6345 lin5$ = lin5$ + LTrim$(Str$(count))
6347 If index < 9 And Mid$(mas5$, index, 1) = "+" Then
6350 If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
6351 lin5$ = lin5$ + Mid$(mas5$, index, 1)
6353 If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
6354 lin5$ = lin5$ + LTrim$(Str$(count))
6355 lin5$ = lin5$ + Mid$(mas5$, index, 1)
6360 Let mas6$ = table(6, 1) + table(6, 2) + table(6, 3) + table(6, 4) + table(6, 5) + table(6, 6) + table(6, 7) + table(6, 8) + table(6, 9)
6364 If index = 9 And Mid$(mas6$, index, 1) = "+" Then
6366 lin6$ = lin6$ + LTrim$(Str$(count))
6368 If index < 9 And Mid$(mas6$, index, 1) = "+" Then
6371 If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
6372 lin6$ = lin6$ + Mid$(mas6$, index, 1)
6374 If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
6375 lin6$ = lin6$ + LTrim$(Str$(count))
6376 lin6$ = lin6$ + Mid$(mas6$, index, 1)
6381 Let mas7$ = table(7, 1) + table(7, 2) + table(7, 3) + table(7, 4) + table(7, 5) + table(7, 6) + table(7, 7) + table(7, 8) + table(7, 9)
6385 If index = 9 And Mid$(mas7$, index, 1) = "+" Then
6387 lin7$ = lin7$ + LTrim$(Str$(count))
6389 If index < 9 And Mid$(mas7$, index, 1) = "+" Then
6392 If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
6393 lin7$ = lin7$ + Mid$(mas7$, index, 1)
6395 If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
6396 lin7$ = lin7$ + LTrim$(Str$(count))
6397 lin7$ = lin7$ + Mid$(mas7$, index, 1)
6402 Let mas8$ = table(8, 1) + table(8, 2) + table(8, 3) + table(8, 4) + table(8, 5) + table(8, 6) + table(8, 7) + table(8, 8) + table(8, 9)
6406 If index = 9 And Mid$(mas8$, index, 1) = "+" Then
6408 lin8$ = lin8$ + LTrim$(Str$(count))
6410 If index < 9 And Mid$(mas8$, index, 1) = "+" Then
6413 If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
6414 lin8$ = lin8$ + Mid$(mas8$, index, 1)
6416 If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
6417 lin8$ = lin8$ + LTrim$(Str$(count))
6418 lin8$ = lin8$ + Mid$(mas8$, index, 1)
6423 Let mas9$ = table(9, 1) + table(9, 2) + table(9, 3) + table(9, 4) + table(9, 5) + table(9, 6) + table(9, 7) + table(9, 8) + table(9, 9)
6427 If index = 9 And Mid$(mas9$, index, 1) = "+" Then
6429 lin9$ = lin9$ + LTrim$(Str$(count))
6431 If index < 9 And Mid$(mas9$, index, 1) = "+" Then
6434 If Mid$(mas9$, index, 1) <> "+" And count = 0 Then
6435 lin9$ = lin9$ + Mid$(mas9$, index, 1)
6437 If Mid$(mas9$, index, 1) <> "+" And count > 0 Then
6438 lin9$ = lin9$ + LTrim$(Str$(count))
6439 lin9$ = lin9$ + Mid$(mas9$, index, 1)
6444 Let fen$ = lin9$ + "/" + lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
6447 Locate 2, 1: Print " Press any key to display the Forsyth-Edwards notation "
6449 Loop Until InKey$ <> ""
6450 Locate 2, 1: Print " "
6452 Locate 2, 25: Print fen$
6455 Loop Until InKey$ <> ""
6464 Rem Forsyth-Edwards notation
6466 If fw1 = 1 Then Let fig1w$ = "D"
6467 If fw1 = 2 Then Let fig1w$ = "C"
6469 If fb1 = 1 Then Let fig1b$ = "d"
6470 If fb1 = 2 Then Let fig1b$ = "c"
6472 If fw2 = 1 Then Let fig2w$ = "D"
6473 If fw2 = 2 Then Let fig2w$ = "C"
6475 If fb2 = 1 Then Let fig2b$ = "d"
6476 If fb2 = 2 Then Let fig2b$ = "c"
6478 If fw3 = 1 Then Let fig3w$ = "D"
6479 If fw3 = 2 Then Let fig3w$ = "C"
6481 If fb3 = 1 Then Let fig3b$ = "d"
6482 If fb3 = 2 Then Let fig3b$ = "c"
6484 If fw4 = 1 Then Let fig4w$ = "D"
6485 If fw4 = 2 Then Let fig4w$ = "C"
6487 If fb4 = 1 Then Let fig4b$ = "d"
6488 If fb4 = 2 Then Let fig4b$ = "c"
6490 Dim table(10, 10) As String
6491 Let table(fw1y, fw1x) = fig1w$
6492 Let table(fb1y, fb1x) = fig1b$
6493 Let table(fw2y, fw2x) = fig2w$
6494 Let table(fb2y, fb2x) = fig2b$
6495 Let table(fw3y, fw3x) = fig3w$
6496 Let table(fb3y, fb3x) = fig3b$
6497 Let table(fw4y, fw4x) = fig4w$
6498 Let table(fb4y, fb4x) = fig4b$
6499 For row = 1 To 10: For col = 1 To 10
6500 If table(row, col) = "" Then Let table(row, col) = "+"
6503 Let mas1$ = table(1, 1) + table(1, 2) + table(1, 3) + table(1, 4) + table(1, 5) + table(1, 6) + table(1, 7) + table(1, 8) + table(1, 9) + table(1, 10)
6507 If index = 10 And Mid$(mas1$, index, 1) = "+" Then
6509 lin1$ = lin1$ + LTrim$(Str$(count))
6511 If index < 10 And Mid$(mas1$, index, 1) = "+" Then
6514 If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
6515 lin1$ = lin1$ + Mid$(mas1$, index, 1)
6517 If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
6518 lin1$ = lin1$ + LTrim$(Str$(count))
6519 lin1$ = lin1$ + Mid$(mas1$, index, 1)
6524 Let mas2$ = table(2, 1) + table(2, 2) + table(2, 3) + table(2, 4) + table(2, 5) + table(2, 6) + table(2, 7) + table(2, 8) + table(2, 9) + table(2, 10)
6528 If index = 10 And Mid$(mas2$, index, 1) = "+" Then
6530 lin2$ = lin2$ + LTrim$(Str$(count))
6532 If index < 10 And Mid$(mas2$, index, 1) = "+" Then
6535 If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
6536 lin2$ = lin2$ + Mid$(mas2$, index, 1)
6538 If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
6539 lin2$ = lin2$ + LTrim$(Str$(count))
6540 lin2$ = lin2$ + Mid$(mas2$, index, 1)
6545 Let mas3$ = table(3, 1) + table(3, 2) + table(3, 3) + table(3, 4) + table(3, 5) + table(3, 6) + table(3, 7) + table(3, 8) + table(3, 9) + table(3, 10)
6549 If index = 10 And Mid$(mas3$, index, 1) = "+" Then
6551 lin3$ = lin3$ + LTrim$(Str$(count))
6553 If index < 10 And Mid$(mas3$, index, 1) = "+" Then
6556 If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
6557 lin3$ = lin3$ + Mid$(mas3$, index, 1)
6559 If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
6560 lin3$ = lin3$ + LTrim$(Str$(count))
6561 lin3$ = lin3$ + Mid$(mas3$, index, 1)
6566 Let mas4$ = table(4, 1) + table(4, 2) + table(4, 3) + table(4, 4) + table(4, 5) + table(4, 6) + table(4, 7) + table(4, 8) + table(4, 9) + table(4, 10)
6570 If index = 10 And Mid$(mas4$, index, 1) = "+" Then
6572 lin4$ = lin4$ + LTrim$(Str$(count))
6574 If index < 10 And Mid$(mas4$, index, 1) = "+" Then
6577 If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
6578 lin4$ = lin4$ + Mid$(mas4$, index, 1)
6580 If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
6581 lin4$ = lin4$ + LTrim$(Str$(count))
6582 lin4$ = lin4$ + Mid$(mas4$, index, 1)
6587 Let mas5$ = table(5, 1) + table(5, 2) + table(5, 3) + table(5, 4) + table(5, 5) + table(5, 6) + table(5, 7) + table(5, 8) + table(5, 9) + table(5, 10)
6591 If index = 10 And Mid$(mas5$, index, 1) = "+" Then
6593 lin5$ = lin5$ + LTrim$(Str$(count))
6595 If index < 10 And Mid$(mas5$, index, 1) = "+" Then
6598 If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
6599 lin5$ = lin5$ + Mid$(mas5$, index, 1)
6601 If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
6602 lin5$ = lin5$ + LTrim$(Str$(count))
6603 lin5$ = lin5$ + Mid$(mas5$, index, 1)
6608 Let mas6$ = table(6, 1) + table(6, 2) + table(6, 3) + table(6, 4) + table(6, 5) + table(6, 6) + table(6, 7) + table(6, 8) + table(6, 9) + table(6, 10)
6612 If index = 10 And Mid$(mas6$, index, 1) = "+" Then
6614 lin6$ = lin6$ + LTrim$(Str$(count))
6616 If index < 10 And Mid$(mas6$, index, 1) = "+" Then
6619 If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
6620 lin6$ = lin6$ + Mid$(mas6$, index, 1)
6622 If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
6623 lin6$ = lin6$ + LTrim$(Str$(count))
6624 lin6$ = lin6$ + Mid$(mas6$, index, 1)
6629 Let mas7$ = table(7, 1) + table(7, 2) + table(7, 3) + table(7, 4) + table(7, 5) + table(7, 6) + table(7, 7) + table(7, 8) + table(7, 9) + table(7, 10)
6633 If index = 10 And Mid$(mas7$, index, 1) = "+" Then
6635 lin7$ = lin7$ + LTrim$(Str$(count))
6637 If index < 10 And Mid$(mas7$, index, 1) = "+" Then
6640 If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
6641 lin7$ = lin7$ + Mid$(mas7$, index, 1)
6643 If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
6644 lin7$ = lin7$ + LTrim$(Str$(count))
6645 lin7$ = lin7$ + Mid$(mas7$, index, 1)
6650 Let mas8$ = table(8, 1) + table(8, 2) + table(8, 3) + table(8, 4) + table(8, 5) + table(8, 6) + table(8, 7) + table(8, 8) + table(8, 9) + table(8, 10)
6654 If index = 10 And Mid$(mas8$, index, 1) = "+" Then
6656 lin8$ = lin8$ + LTrim$(Str$(count))
6658 If index < 10 And Mid$(mas8$, index, 1) = "+" Then
6661 If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
6662 lin8$ = lin8$ + Mid$(mas8$, index, 1)
6664 If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
6665 lin8$ = lin8$ + LTrim$(Str$(count))
6666 lin8$ = lin8$ + Mid$(mas8$, index, 1)
6671 Let mas9$ = table(9, 1) + table(9, 2) + table(9, 3) + table(9, 4) + table(9, 5) + table(9, 6) + table(9, 7) + table(9, 8) + table(9, 9) + table(9, 10)
6675 If index = 10 And Mid$(mas9$, index, 1) = "+" Then
6677 lin9$ = lin9$ + LTrim$(Str$(count))
6679 If index < 10 And Mid$(mas9$, index, 1) = "+" Then
6682 If Mid$(mas9$, index, 1) <> "+" And count = 0 Then
6683 lin9$ = lin9$ + Mid$(mas9$, index, 1)
6685 If Mid$(mas9$, index, 1) <> "+" And count > 0 Then
6686 lin9$ = lin9$ + LTrim$(Str$(count))
6687 lin9$ = lin9$ + Mid$(mas9$, index, 1)
6692 Let mas0$ = table(10, 1) + table(10, 2) + table(10, 3) + table(10, 4) + table(10, 5) + table(10, 6) + table(10, 7) + table(10, 8) + table(10, 9) + table(10, 10)
6696 If index = 10 And Mid$(mas0$, index, 1) = "+" Then
6698 lin0$ = lin0$ + LTrim$(Str$(count))
6700 If index < 10 And Mid$(mas0$, index, 1) = "+" Then
6703 If Mid$(mas0$, index, 1) <> "+" And count = 0 Then
6704 lin0$ = lin0$ + Mid$(mas0$, index, 1)
6706 If Mid$(mas0$, index, 1) <> "+" And count > 0 Then
6707 lin0$ = lin0$ + LTrim$(Str$(count))
6708 lin0$ = lin0$ + Mid$(mas0$, index, 1)
6713 Let fen$ = lin0$ + "/" + lin9$ + "/" + lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
6716 Locate 2, 1: Print " Press any key to display the Forsyth-Edwards notation "
6718 Loop Until InKey$ <> ""
6719 Locate 2, 1: Print " "
6721 Locate 2, 23: Print fen$
6724 Loop Until InKey$ <> ""
6732 Locate 2, 1: Color 9: Print " SPACEBAR - next pair"; " ENTER - display notation "; "ESCAPE - exit "
6733 Locate 2, 5: Color 5: Print "SPACEBAR": Locate 2, 32: Color 5: Print "ENTER": Locate 2, 63: Color 5: Print "ESCAPE"