First commit

diff --git a/LICENSE b/LICENSE
new file mode 100644 (file)
index 0000000..1625c17
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,121 @@
+Creative Commons Legal Code
+
+CC0 1.0 Universal
+
+    CREATIVE COMMONS CORPORATION IS NOT A LAW FIRM AND DOES NOT PROVIDE
+    LEGAL SERVICES. DISTRIBUTION OF THIS DOCUMENT DOES NOT CREATE AN
+    ATTORNEY-CLIENT RELATIONSHIP. CREATIVE COMMONS PROVIDES THIS
+    INFORMATION ON AN "AS-IS" BASIS. CREATIVE COMMONS MAKES NO WARRANTIES
+    REGARDING THE USE OF THIS DOCUMENT OR THE INFORMATION OR WORKS
+    PROVIDED HEREUNDER, AND DISCLAIMS LIABILITY FOR DAMAGES RESULTING FROM
+    THE USE OF THIS DOCUMENT OR THE INFORMATION OR WORKS PROVIDED
+    HEREUNDER.
+
+Statement of Purpose
+
+The laws of most jurisdictions throughout the world automatically confer
+exclusive Copyright and Related Rights (defined below) upon the creator
+and subsequent owner(s) (each and all, an "owner") of an original work of
+authorship and/or a database (each, a "Work").
+
+Certain owners wish to permanently relinquish those rights to a Work for
+the purpose of contributing to a commons of creative, cultural and
+scientific works ("Commons") that the public can reliably and without fear
+of later claims of infringement build upon, modify, incorporate in other
+works, reuse and redistribute as freely as possible in any form whatsoever
+and for any purposes, including without limitation commercial purposes.
+These owners may contribute to the Commons to promote the ideal of a free
+culture and the further production of creative, cultural and scientific
+works, or to gain reputation or greater distribution for their Work in
+part through the use and efforts of others.
+
+For these and/or other purposes and motivations, and without any
+expectation of additional consideration or compensation, the person
+associating CC0 with a Work (the "Affirmer"), to the extent that he or she
+is an owner of Copyright and Related Rights in the Work, voluntarily
+elects to apply CC0 to the Work and publicly distribute the Work under its
+terms, with knowledge of his or her Copyright and Related Rights in the
+Work and the meaning and intended legal effect of CC0 on those rights.
+
+1. Copyright and Related Rights. A Work made available under CC0 may be
+protected by copyright and related or neighboring rights ("Copyright and
+Related Rights"). Copyright and Related Rights include, but are not
+limited to, the following:
+
+  i. the right to reproduce, adapt, distribute, perform, display,
+     communicate, and translate a Work;
+ ii. moral rights retained by the original author(s) and/or performer(s);
+iii. publicity and privacy rights pertaining to a person's image or
+     likeness depicted in a Work;
+ iv. rights protecting against unfair competition in regards to a Work,
+     subject to the limitations in paragraph 4(a), below;
+  v. rights protecting the extraction, dissemination, use and reuse of data
+     in a Work;
+ vi. database rights (such as those arising under Directive 96/9/EC of the
+     European Parliament and of the Council of 11 March 1996 on the legal
+     protection of databases, and under any national implementation
+     thereof, including any amended or successor version of such
+     directive); and
+vii. other similar, equivalent or corresponding rights throughout the
+     world based on applicable law or treaty, and any national
+     implementations thereof.
+
+2. Waiver. To the greatest extent permitted by, but not in contravention
+of, applicable law, Affirmer hereby overtly, fully, permanently,
+irrevocably and unconditionally waives, abandons, and surrenders all of
+Affirmer's Copyright and Related Rights and associated claims and causes
+of action, whether now known or unknown (including existing as well as
+future claims and causes of action), in the Work (i) in all territories
+worldwide, (ii) for the maximum duration provided by applicable law or
+treaty (including future time extensions), (iii) in any current or future
+medium and for any number of copies, and (iv) for any purpose whatsoever,
+including without limitation commercial, advertising or promotional
+purposes (the "Waiver"). Affirmer makes the Waiver for the benefit of each
+member of the public at large and to the detriment of Affirmer's heirs and
+successors, fully intending that such Waiver shall not be subject to
+revocation, rescission, cancellation, termination, or any other legal or
+equitable action to disrupt the quiet enjoyment of the Work by the public
+as contemplated by Affirmer's express Statement of Purpose.
+
+3. Public License Fallback. Should any part of the Waiver for any reason
+be judged legally invalid or ineffective under applicable law, then the
+Waiver shall be preserved to the maximum extent permitted taking into
+account Affirmer's express Statement of Purpose. In addition, to the
+extent the Waiver is so judged Affirmer hereby grants to each affected
+person a royalty-free, non transferable, non sublicensable, non exclusive,
+irrevocable and unconditional license to exercise Affirmer's Copyright and
+Related Rights in the Work (i) in all territories worldwide, (ii) for the
+maximum duration provided by applicable law or treaty (including future
+time extensions), (iii) in any current or future medium and for any number
+of copies, and (iv) for any purpose whatsoever, including without
+limitation commercial, advertising or promotional purposes (the
+"License"). The License shall be deemed effective as of the date CC0 was
+applied by Affirmer to the Work. Should any part of the License for any
+reason be judged legally invalid or ineffective under applicable law, such
+partial invalidity or ineffectiveness shall not invalidate the remainder
+of the License, and in such case Affirmer hereby affirms that he or she
+will not (i) exercise any of his or her remaining Copyright and Related
+Rights in the Work or (ii) assert any associated claims and causes of
+action with respect to the Work, in either case contrary to Affirmer's
+express Statement of Purpose.
+
+4. Limitations and Disclaimers.
+
+ a. No trademark or patent rights held by Affirmer are waived, abandoned,
+    surrendered, licensed or otherwise affected by this document.
+ b. Affirmer offers the Work as-is and makes no representations or
+    warranties of any kind concerning the Work, express, implied,
+    statutory or otherwise, including without limitation warranties of
+    title, merchantability, fitness for a particular purpose, non
+    infringement, or the absence of latent or other defects, accuracy, or
+    the present or absence of errors, whether or not discoverable, all to
+    the greatest extent permissible under applicable law.
+ c. Affirmer disclaims responsibility for clearing rights of other persons
+    that may apply to the Work or any use thereof, including without
+    limitation any person's Copyright and Related Rights in the Work.
+    Further, Affirmer disclaims responsibility for obtaining any necessary
+    consents, permissions or other rights required for any use of the
+    Work.
+ d. Affirmer understands and acknowledges that Creative Commons is not a
+    party to this document and has no duty or obligation with respect to
+    this CC0 or use of the Work.
\ No newline at end of file

diff --git a/README.md b/README.md
new file mode 100644 (file)
index 0000000..1fb5c52
--- /dev/null
+++ b/README.md
@@ -0,0 +1,4 @@
+## Known issues:
+1. Occasionally can impose a piece in the 4th pair.
+2. Sometimes does not give a piece to white or black.
+3. Can form positions that are not consistent with the rules.

diff --git a/dicend.ico b/dicend.ico
new file mode 100644 (file)
index 0000000..6ef70b4
Binary files /dev/null and b/dicend.ico differ

diff --git a/dices40/dice0.png b/dices40/dice0.png
new file mode 100644 (file)
index 0000000..5eeb8bd
Binary files /dev/null and b/dices40/dice0.png differ

diff --git a/dices40/dice1.png b/dices40/dice1.png
new file mode 100644 (file)
index 0000000..45f569d
Binary files /dev/null and b/dices40/dice1.png differ

diff --git a/dices40/dice2.png b/dices40/dice2.png
new file mode 100644 (file)
index 0000000..22e6ba1
Binary files /dev/null and b/dices40/dice2.png differ

diff --git a/dices40/dice3.png b/dices40/dice3.png
new file mode 100644 (file)
index 0000000..52e8ead
Binary files /dev/null and b/dices40/dice3.png differ

diff --git a/dices40/dice4.png b/dices40/dice4.png
new file mode 100644 (file)
index 0000000..433e6d6
Binary files /dev/null and b/dices40/dice4.png differ

diff --git a/dices40/dice5.png b/dices40/dice5.png
new file mode 100644 (file)
index 0000000..13d1a8a
Binary files /dev/null and b/dices40/dice5.png differ

diff --git a/dices40/dice6.png b/dices40/dice6.png
new file mode 100644 (file)
index 0000000..c96665f
Binary files /dev/null and b/dices40/dice6.png differ

diff --git a/dices40/dice7.png b/dices40/dice7.png
new file mode 100644 (file)
index 0000000..13e2411
Binary files /dev/null and b/dices40/dice7.png differ

diff --git a/dices40/dice8.png b/dices40/dice8.png
new file mode 100644 (file)
index 0000000..b81fd32
Binary files /dev/null and b/dices40/dice8.png differ

diff --git a/dices40/dice9.png b/dices40/dice9.png
new file mode 100644 (file)
index 0000000..67aee97
Binary files /dev/null and b/dices40/dice9.png differ

diff --git a/dices48/dice0.png b/dices48/dice0.png
new file mode 100644 (file)
index 0000000..9013904
Binary files /dev/null and b/dices48/dice0.png differ

diff --git a/dices48/dice1.png b/dices48/dice1.png
new file mode 100644 (file)
index 0000000..86b80bd
Binary files /dev/null and b/dices48/dice1.png differ

diff --git a/dices48/dice2.png b/dices48/dice2.png
new file mode 100644 (file)
index 0000000..0ac0ba6
Binary files /dev/null and b/dices48/dice2.png differ

diff --git a/dices48/dice3.png b/dices48/dice3.png
new file mode 100644 (file)
index 0000000..b8e1691
Binary files /dev/null and b/dices48/dice3.png differ

diff --git a/dices48/dice4.png b/dices48/dice4.png
new file mode 100644 (file)
index 0000000..796d552
Binary files /dev/null and b/dices48/dice4.png differ

diff --git a/dices48/dice5.png b/dices48/dice5.png
new file mode 100644 (file)
index 0000000..fa72fcc
Binary files /dev/null and b/dices48/dice5.png differ

diff --git a/dices48/dice6.png b/dices48/dice6.png
new file mode 100644 (file)
index 0000000..8037204
Binary files /dev/null and b/dices48/dice6.png differ

diff --git a/dices48/dice7.png b/dices48/dice7.png
new file mode 100644 (file)
index 0000000..4016c55
Binary files /dev/null and b/dices48/dice7.png differ

diff --git a/dices48/dice8.png b/dices48/dice8.png
new file mode 100644 (file)
index 0000000..803daa7
Binary files /dev/null and b/dices48/dice8.png differ

diff --git a/dices48/dice9.png b/dices48/dice9.png
new file mode 100644 (file)
index 0000000..3fba13c
Binary files /dev/null and b/dices48/dice9.png differ

diff --git a/figures40/arrow.png b/figures40/arrow.png
new file mode 100644 (file)
index 0000000..4b1a216
Binary files /dev/null and b/figures40/arrow.png differ

diff --git a/figures40/bishop.png b/figures40/bishop.png
new file mode 100644 (file)
index 0000000..54af709
Binary files /dev/null and b/figures40/bishop.png differ

diff --git a/figures40/cannon.png b/figures40/cannon.png
new file mode 100644 (file)
index 0000000..e4d1c71
Binary files /dev/null and b/figures40/cannon.png differ

diff --git a/figures40/checker.png b/figures40/checker.png
new file mode 100644 (file)
index 0000000..a24619b
Binary files /dev/null and b/figures40/checker.png differ

diff --git a/figures40/dragon.png b/figures40/dragon.png
new file mode 100644 (file)
index 0000000..d3595e7
Binary files /dev/null and b/figures40/dragon.png differ

diff --git a/figures40/draught.png b/figures40/draught.png
new file mode 100644 (file)
index 0000000..e89ac6d
Binary files /dev/null and b/figures40/draught.png differ

diff --git a/figures40/general.png b/figures40/general.png
new file mode 100644 (file)
index 0000000..e316273
Binary files /dev/null and b/figures40/general.png differ

diff --git a/figures40/horse.png b/figures40/horse.png
new file mode 100644 (file)
index 0000000..e09aeeb
Binary files /dev/null and b/figures40/horse.png differ

diff --git a/figures40/king.png b/figures40/king.png
new file mode 100644 (file)
index 0000000..056bfff
Binary files /dev/null and b/figures40/king.png differ

diff --git a/figures40/knight.png b/figures40/knight.png
new file mode 100644 (file)
index 0000000..d310402
Binary files /dev/null and b/figures40/knight.png differ

diff --git a/figures40/pawn.png b/figures40/pawn.png
new file mode 100644 (file)
index 0000000..9e85cfa
Binary files /dev/null and b/figures40/pawn.png differ

diff --git a/figures40/queen.png b/figures40/queen.png
new file mode 100644 (file)
index 0000000..838dcc2
Binary files /dev/null and b/figures40/queen.png differ

diff --git a/figures40/rook.png b/figures40/rook.png
new file mode 100644 (file)
index 0000000..5527877
Binary files /dev/null and b/figures40/rook.png differ

diff --git a/figures40/tokin.png b/figures40/tokin.png
new file mode 100644 (file)
index 0000000..68539ef
Binary files /dev/null and b/figures40/tokin.png differ

diff --git a/figures48/bishop.png b/figures48/bishop.png
new file mode 100644 (file)
index 0000000..9d2de98
Binary files /dev/null and b/figures48/bishop.png differ

diff --git a/figures48/cannon.png b/figures48/cannon.png
new file mode 100644 (file)
index 0000000..35198a8
Binary files /dev/null and b/figures48/cannon.png differ

diff --git a/figures48/king.png b/figures48/king.png
new file mode 100644 (file)
index 0000000..2d9ebd0
Binary files /dev/null and b/figures48/king.png differ

diff --git a/figures48/knight.png b/figures48/knight.png
new file mode 100644 (file)
index 0000000..574234c
Binary files /dev/null and b/figures48/knight.png differ

diff --git a/figures48/pawn.png b/figures48/pawn.png
new file mode 100644 (file)
index 0000000..b2e54f8
Binary files /dev/null and b/figures48/pawn.png differ

diff --git a/figures48/queen.png b/figures48/queen.png
new file mode 100644 (file)
index 0000000..436d6fa
Binary files /dev/null and b/figures48/queen.png differ

diff --git a/figures48/rook.png b/figures48/rook.png
new file mode 100644 (file)
index 0000000..02f9733
Binary files /dev/null and b/figures48/rook.png differ

diff --git a/letters40/0.png b/letters40/0.png
new file mode 100644 (file)
index 0000000..35a3fca
Binary files /dev/null and b/letters40/0.png differ

diff --git a/letters40/1.png b/letters40/1.png
new file mode 100644 (file)
index 0000000..0f4642c
Binary files /dev/null and b/letters40/1.png differ

diff --git a/letters40/2.png b/letters40/2.png
new file mode 100644 (file)
index 0000000..5b24a57
Binary files /dev/null and b/letters40/2.png differ

diff --git a/letters40/3.png b/letters40/3.png
new file mode 100644 (file)
index 0000000..b02700e
Binary files /dev/null and b/letters40/3.png differ

diff --git a/letters40/4.png b/letters40/4.png
new file mode 100644 (file)
index 0000000..9abc885
Binary files /dev/null and b/letters40/4.png differ

diff --git a/letters40/5.png b/letters40/5.png
new file mode 100644 (file)
index 0000000..2800ea7
Binary files /dev/null and b/letters40/5.png differ

diff --git a/letters40/6.png b/letters40/6.png
new file mode 100644 (file)
index 0000000..29d29e9
Binary files /dev/null and b/letters40/6.png differ

diff --git a/letters40/7.png b/letters40/7.png
new file mode 100644 (file)
index 0000000..ab55ee2
Binary files /dev/null and b/letters40/7.png differ

diff --git a/letters40/8.png b/letters40/8.png
new file mode 100644 (file)
index 0000000..c1040eb
Binary files /dev/null and b/letters40/8.png differ

diff --git a/letters40/9.png b/letters40/9.png
new file mode 100644 (file)
index 0000000..19f4b56
Binary files /dev/null and b/letters40/9.png differ

diff --git a/letters40/A.png b/letters40/A.png
new file mode 100644 (file)
index 0000000..061afc5
Binary files /dev/null and b/letters40/A.png differ

diff --git a/letters40/B.png b/letters40/B.png
new file mode 100644 (file)
index 0000000..4c8fb27
Binary files /dev/null and b/letters40/B.png differ

diff --git a/letters40/C.png b/letters40/C.png
new file mode 100644 (file)
index 0000000..d1d480b
Binary files /dev/null and b/letters40/C.png differ

diff --git a/letters40/D.png b/letters40/D.png
new file mode 100644 (file)
index 0000000..d00b9f4
Binary files /dev/null and b/letters40/D.png differ

diff --git a/letters40/E.png b/letters40/E.png
new file mode 100644 (file)
index 0000000..f28d7bb
Binary files /dev/null and b/letters40/E.png differ

diff --git a/letters40/F.png b/letters40/F.png
new file mode 100644 (file)
index 0000000..8fffbec
Binary files /dev/null and b/letters40/F.png differ

diff --git a/letters40/G.png b/letters40/G.png
new file mode 100644 (file)
index 0000000..7865cc9
Binary files /dev/null and b/letters40/G.png differ

diff --git a/letters40/H.png b/letters40/H.png
new file mode 100644 (file)
index 0000000..c2df4f0
Binary files /dev/null and b/letters40/H.png differ

diff --git a/letters40/I.png b/letters40/I.png
new file mode 100644 (file)
index 0000000..7288a78
Binary files /dev/null and b/letters40/I.png differ

diff --git a/letters40/J.png b/letters40/J.png
new file mode 100644 (file)
index 0000000..0315f16
Binary files /dev/null and b/letters40/J.png differ

diff --git a/letters48/0.png b/letters48/0.png
new file mode 100644 (file)
index 0000000..58745d4
Binary files /dev/null and b/letters48/0.png differ

diff --git a/letters48/1.png b/letters48/1.png
new file mode 100644 (file)
index 0000000..9fbf47b
Binary files /dev/null and b/letters48/1.png differ

diff --git a/letters48/2.png b/letters48/2.png
new file mode 100644 (file)
index 0000000..f92d8a0
Binary files /dev/null and b/letters48/2.png differ

diff --git a/letters48/3.png b/letters48/3.png
new file mode 100644 (file)
index 0000000..e3f482d
Binary files /dev/null and b/letters48/3.png differ

diff --git a/letters48/4.png b/letters48/4.png
new file mode 100644 (file)
index 0000000..02df614
Binary files /dev/null and b/letters48/4.png differ

diff --git a/letters48/5.png b/letters48/5.png
new file mode 100644 (file)
index 0000000..b22c028
Binary files /dev/null and b/letters48/5.png differ

diff --git a/letters48/6.png b/letters48/6.png
new file mode 100644 (file)
index 0000000..b5a9255
Binary files /dev/null and b/letters48/6.png differ

diff --git a/letters48/7.png b/letters48/7.png
new file mode 100644 (file)
index 0000000..7e15dd6
Binary files /dev/null and b/letters48/7.png differ

diff --git a/letters48/8.png b/letters48/8.png
new file mode 100644 (file)
index 0000000..f814636
Binary files /dev/null and b/letters48/8.png differ

diff --git a/letters48/9.png b/letters48/9.png
new file mode 100644 (file)
index 0000000..b92377d
Binary files /dev/null and b/letters48/9.png differ

diff --git a/letters48/A.png b/letters48/A.png
new file mode 100644 (file)
index 0000000..f8dc396
Binary files /dev/null and b/letters48/A.png differ

diff --git a/letters48/B.png b/letters48/B.png
new file mode 100644 (file)
index 0000000..def2c1b
Binary files /dev/null and b/letters48/B.png differ

diff --git a/letters48/C.png b/letters48/C.png
new file mode 100644 (file)
index 0000000..c7d5103
Binary files /dev/null and b/letters48/C.png differ

diff --git a/letters48/D.png b/letters48/D.png
new file mode 100644 (file)
index 0000000..c381257
Binary files /dev/null and b/letters48/D.png differ

diff --git a/letters48/E.png b/letters48/E.png
new file mode 100644 (file)
index 0000000..bb42355
Binary files /dev/null and b/letters48/E.png differ

diff --git a/letters48/F.png b/letters48/F.png
new file mode 100644 (file)
index 0000000..eeae55a
Binary files /dev/null and b/letters48/F.png differ

diff --git a/letters48/G.png b/letters48/G.png
new file mode 100644 (file)
index 0000000..dc7f96a
Binary files /dev/null and b/letters48/G.png differ

diff --git a/letters48/H.png b/letters48/H.png
new file mode 100644 (file)
index 0000000..cf090c7
Binary files /dev/null and b/letters48/H.png differ

diff --git a/letters48/I.png b/letters48/I.png
new file mode 100644 (file)
index 0000000..a70d850
Binary files /dev/null and b/letters48/I.png differ

diff --git a/letters48/J.png b/letters48/J.png
new file mode 100644 (file)
index 0000000..7f96fc7
Binary files /dev/null and b/letters48/J.png differ

diff --git a/numbers10/0.png b/numbers10/0.png
new file mode 100644 (file)
index 0000000..99568f6
Binary files /dev/null and b/numbers10/0.png differ

diff --git a/numbers10/1.png b/numbers10/1.png
new file mode 100644 (file)
index 0000000..946df70
Binary files /dev/null and b/numbers10/1.png differ

diff --git a/numbers10/2.png b/numbers10/2.png
new file mode 100644 (file)
index 0000000..700a46e
Binary files /dev/null and b/numbers10/2.png differ

diff --git a/numbers10/3.png b/numbers10/3.png
new file mode 100644 (file)
index 0000000..85f590c
Binary files /dev/null and b/numbers10/3.png differ

diff --git a/numbers10/4.png b/numbers10/4.png
new file mode 100644 (file)
index 0000000..cec025e
Binary files /dev/null and b/numbers10/4.png differ

diff --git a/numbers10/5.png b/numbers10/5.png
new file mode 100644 (file)
index 0000000..0c615ef
Binary files /dev/null and b/numbers10/5.png differ

diff --git a/numbers10/6.png b/numbers10/6.png
new file mode 100644 (file)
index 0000000..3e7f052
Binary files /dev/null and b/numbers10/6.png differ

diff --git a/numbers10/7.png b/numbers10/7.png
new file mode 100644 (file)
index 0000000..6e16695
Binary files /dev/null and b/numbers10/7.png differ

diff --git a/numbers10/8.png b/numbers10/8.png
new file mode 100644 (file)
index 0000000..dd9eae0
Binary files /dev/null and b/numbers10/8.png differ

diff --git a/numbers10/9.png b/numbers10/9.png
new file mode 100644 (file)
index 0000000..58fc35a
Binary files /dev/null and b/numbers10/9.png differ

diff --git a/numbers10/A.png b/numbers10/A.png
new file mode 100644 (file)
index 0000000..666fac1
Binary files /dev/null and b/numbers10/A.png differ

diff --git a/numbers10/B.png b/numbers10/B.png
new file mode 100644 (file)
index 0000000..ae7c7e6
Binary files /dev/null and b/numbers10/B.png differ

diff --git a/numbers10/C.png b/numbers10/C.png
new file mode 100644 (file)
index 0000000..7a37df7
Binary files /dev/null and b/numbers10/C.png differ

diff --git a/numbers10/D.png b/numbers10/D.png
new file mode 100644 (file)
index 0000000..c0ead75
Binary files /dev/null and b/numbers10/D.png differ

diff --git a/numbers10/E.png b/numbers10/E.png
new file mode 100644 (file)
index 0000000..5f7ebd7
Binary files /dev/null and b/numbers10/E.png differ

diff --git a/numbers10/F.png b/numbers10/F.png
new file mode 100644 (file)
index 0000000..1931c22
Binary files /dev/null and b/numbers10/F.png differ

diff --git a/numbers10/G.png b/numbers10/G.png
new file mode 100644 (file)
index 0000000..7e1762a
Binary files /dev/null and b/numbers10/G.png differ

diff --git a/numbers10/H.png b/numbers10/H.png
new file mode 100644 (file)
index 0000000..04fe71c
Binary files /dev/null and b/numbers10/H.png differ

diff --git a/numbers10/I.png b/numbers10/I.png
new file mode 100644 (file)
index 0000000..38105a1
Binary files /dev/null and b/numbers10/I.png differ

diff --git a/numbers10/J.png b/numbers10/J.png
new file mode 100644 (file)
index 0000000..5e6ba4f
Binary files /dev/null and b/numbers10/J.png differ

diff --git a/sourcdos.bas b/sourcdos.bas
new file mode 100644 (file)
index 0000000..0c44a49
--- /dev/null
+++ b/sourcdos.bas
@@ -0,0 +1,6712 @@
+Screen 12
+DefInt A-Z
+Randomize Timer
+
+declare sub dice1 ()
+declare sub dice2 ()
+declare sub dice3 ()
+declare sub dice4 ()
+declare sub dice5 ()
+declare sub dice6 ()
+declare sub dice7 ()
+declare sub dice8 ()
+declare sub dice9 ()
+declare sub dice0 ()
+declare sub number1 ()
+declare sub number2 ()
+declare sub number3 ()
+declare sub number4 ()
+declare sub number5 ()
+declare sub number6 ()
+declare sub number7 ()
+declare sub number8 ()
+declare sub number9 ()
+declare sub number0 ()
+declare sub numberA ()
+declare sub numberB ()
+declare sub numberC ()
+declare sub numberD ()
+declare sub numberE ()
+declare sub numberF ()
+declare sub numberG ()
+declare sub numberH ()
+declare sub numberI ()
+declare sub numberJ ()
+declare sub letter1 ()
+declare sub letter2 ()
+declare sub letter3 ()
+declare sub letter4 ()
+declare sub letter5 ()
+declare sub letter6 ()
+declare sub letter7 ()
+declare sub letter8 ()
+declare sub letter9 ()
+declare sub letter0 ()
+declare sub letterA ()
+declare sub letterB ()
+declare sub letterC ()
+declare sub letterD ()
+declare sub letterE ()
+declare sub letterF ()
+declare sub letterG ()
+declare sub letterH ()
+declare sub letterI ()
+declare sub letterJ ()
+declare sub king ()
+declare sub queen ()
+declare sub bishop ()
+declare sub knight ()
+declare sub rook ()
+declare sub pawn ()
+declare sub cannon ()
+declare sub lance ()
+declare sub general ()
+declare sub tokin ()
+declare sub dragon ()
+declare sub horse ()
+declare sub dame ()
+declare sub checker ()
+declare sub cells ()
+declare sub dices ()
+declare sub chessboard ()
+declare sub makrukboard ()
+declare sub xiangqiboard ()
+declare sub shogiboard ()
+declare sub draughtsboard ()
+declare sub chess ()
+declare sub makruk ()
+declare sub xiangqi ()
+declare sub shogi ()
+declare sub draughts ()
+declare sub chessfen ()
+declare sub makrukfen ()
+declare sub xiangqifen ()
+declare sub shogifen ()
+declare sub draughtsfen ()
+
+Common Shared x, y, cd1, cd2, cn, cl, cf, cb1, cb2, cb3, cb4, cb5 As Integer
+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
+Common Shared fw1x, fw1y, fb1x, fb1y, fw2x, fw2y, fb2x, fb2y, fw3x, fw3y, fb3x, fb3y, fw4x, fw4y, fb4x, fb4y As Integer
+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
+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
+
+Dim Shared board(8, 8) As Integer
+Let index = 100
+For row = 1 To 8: For col = 1 To 8
+    Let board(row, col) = index + 1
+    Let index = index + 1
+Next col: Next row
+
+Dim Shared xiabo(10, 9) As Integer
+Let index = 100
+For row = 1 To 10: For col = 1 To 9
+    Let xiabo(row, col) = index + 1
+    Let index = index + 1
+Next col: Next row
+
+Dim Shared shobo(9, 9) As Integer
+Let index = 100
+For row = 1 To 9: For col = 1 To 9
+    Let shobo(row, col) = index + 1
+    Let index = index + 1
+Next col: Next row
+
+Dim Shared drabo(10, 10) As Integer
+Let index = 100
+For row = 1 To 10: For col = 1 To 10
+    Let drabo(row, col) = index + 1
+    Let index = index + 1
+Next col: Let index = index + 1: Next row
+
+Line (2, 2)-(122, 4), 14, BF: Line -(120, 338), 14, BF: Line -(2, 336), 14, BF: Line -(4, 2), 14, BF
+Line (4, 42)-(120, 44), 14, BF: Paint (20, 20), 8, 14
+Line (128, 2)-(248, 4), 14, BF: Line -(246, 338), 14, BF: Line -(128, 336), 14, BF: Line -(130, 2), 14, BF
+Line (130, 42)-(246, 44), 14, BF: Paint (160, 20), 8, 14
+Line (254, 2)-(394, 4), 14, BF: Line -(392, 386), 14, BF: Line -(254, 384), 14, BF: Line -(256, 2), 14, BF
+Line (256, 42)-(392, 44), 14, BF: Paint (300, 20), 8, 14
+Line (400, 2)-(637, 4), 14, BF: Line -(635, 338), 14, BF: Line -(400, 336), 14, BF: Line -(402, 2), 14, BF
+Line (402, 42)-(635, 44), 14, BF: Paint (440, 20), 8, 14
+Line (2, 344)-(248, 346), 14, BF: Line -(246, 432), 14, BF: Line -(2, 430), 14, BF: Line -(4, 344), 14, BF
+Line (4, 378)-(246, 376), 14, BF: Paint (20, 360), 8, 14
+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"
+Color 12, 0: Locate 23, 52: Print "Press number to select game": Locate 24, 59: Print "or Esc to exit"
+
+Color 11, 0
+Let x = 10: For y = 50 To 300 Step 48
+    Call cells
+Next y
+Let x = 10: Let y = 50: Call king
+Let x = 10: Let y = y + 48: Call queen
+Let x = 10: Let y = y + 48: Call bishop
+Let x = 10: Let y = y + 48: Call knight
+Let x = 10: Let y = y + 48: Call rook
+Let x = 10: Let y = y + 48: Call pawn
+Locate 5, 9: Print "King": Locate 8, 9: Print "Queen"
+Locate 11, 9: Print "Bishop": Locate 14, 9: Print "Knight"
+Locate 17, 9: Print "Rook": Locate 20, 9: Print "Pawn"
+Let x = 136: For y = 50 To 300 Step 48
+    Call cells
+Next y
+Let x = 136: Let y = 50: Call king
+Let x = 136: Let y = y + 48: Call queen
+Let x = 136: Let y = y + 48: Call bishop
+Let x = 136: Let y = y + 48: Call knight
+Let x = 136: Let y = y + 48: Call rook
+Let x = 136: Let y = y + 48: Call checker
+Locate 5, 25: Print "Lord": Locate 8, 25: Print "Seed"
+Locate 11, 25: Print "Noble": Locate 14, 25: Print "Horse"
+Locate 17, 25: Print "Boat": Locate 20, 25: Print "Shell"
+Let x = 262: For y = 50 To 350 Step 48
+    Call cells
+Next y
+Let x = 262: Let y = 50: Call king
+Let x = 262: Let y = y + 48: Call queen
+Let x = 262: Let y = y + 48: Call bishop
+Let x = 262: Let y = y + 48: Call knight
+Let x = 262: Let y = y + 48: Call rook
+Let x = 262: Let y = y + 48: Call cannon
+Let x = 262: Let y = y + 48: Call pawn
+Locate 5, 41: Print "General": Locate 8, 41: Print "Advisor"
+Locate 11, 41: Print "Elephant": Locate 14, 41: Print "Horse"
+Locate 17, 41: Print "Chariot": Locate 20, 41: Print "Cannon"
+Locate 23, 41: Print "Soldier"
+Let x = 408: For y = 50 To 300 Step 48
+    Call cells
+Next y
+Let x = 528: For y = 50 To 250 Step 48
+    Call cells
+Next y
+Let x = 408: Let y = 50: Call king
+Let x = 408: Let y = y + 48: Call queen
+Let x = 408: Let y = y + 48: Call general
+Let x = 408: Let y = y + 48: Call bishop
+Let x = 408: Let y = y + 48: Call knight
+Let x = 408: Let y = y + 48: Call rook
+Let x = 528: Let y = 50: Call lance
+Let x = 528: Let y = y + 48: Call pawn
+Let x = 528: Let y = y + 48: Call horse
+Let x = 528: Let y = y + 48: Call dragon
+Let x = 528: Let y = y + 48: Call tokin
+Locate 5, 59: Print "King": Locate 8, 59: Print "Gold"
+Locate 11, 59: Print "Silver": Locate 14, 59: Print "Bishop"
+Locate 17, 59: Print "Knight": Locate 20, 59: Print "Rook"
+Locate 5, 74: Print "Lance": Locate 8, 74: Print "Pawn"
+Locate 11, 74: Print "Horse": Locate 14, 74: Print "Dragon"
+Locate 17, 74: Print "Tokin"
+Let x = 10: Let y = 384
+Call cells: Call checker
+Let x = 136: Let y = 384
+Call cells: Call dame
+Locate 26, 9: Print "Checker": Locate 26, 25: Print "Dame"
+
+Do
+    Select Case InKey$
+        Case Is = Chr$(49)
+            Cls
+            Call message
+            Call chessboard
+            Call dices
+            Call chess
+        Case Is = Chr$(50)
+            Cls
+            Call message
+            Call makrukboard
+            Call dices
+            Call makruk
+        Case Is = Chr$(51)
+            Cls
+            Call message
+            Call xiangqiboard
+            Call dices
+            Call xiangqi
+        Case Is = Chr$(52)
+            Cls
+            Call message
+            Call shogiboard
+            Call dices
+            Call shogi
+        Case Is = Chr$(53)
+            Cls
+            Call message
+            Call draughtsboard
+            Call dices
+            Call draughts
+        Case Is = Chr$(27)
+            Exit Do
+    End Select
+Loop
+End
+
+Sub dice1
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
+End Sub
+
+Sub dice2
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice3
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice4
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice5
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice6
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
+    Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice7
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
+    Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
+    Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice8
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (16 + x, 4 + y)-(24 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
+    Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (16 + x, 28 + y)-(24 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice9
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (16 + x, 4 + y)-(24 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
+    Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
+    Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (16 + x, 28 + y)-(24 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice0
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
+    Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+    Line (16 + x, 1 + y)-(24 + x, 9 + y), cd2, BF
+    Line (16 + x, 11 + y)-(24 + x, 19 + y), cd2, BF
+    Line (16 + x, 21 + y)-(24 + x, 29 + y), cd2, BF
+    Line (16 + x, 31 + y)-(24 + x, 39 + y), cd2, BF
+End Sub
+
+Sub number1
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (5 + x, 8 + y)-(6 + x, 1 + y), cn, BF
+    Line (4 + x, 2 + y)-(1 + x, 5 + y), cn
+    Line (4 + x, 3 + y)-(1 + x, 6 + y), cn
+End Sub
+
+Sub number2
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (1 + x, 8 + y)-(2 + x, 7 + y), cn, BF
+    Line (10 + x, 4 + y)-(9 + x, 3 + y), cn, BF
+End Sub
+
+Sub number3
+    Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+    Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
+    Line (5 + x, 5 + y)-(9 + x, 6 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 4 + y), cn, BF
+    Line (9 + x, 7 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub number4
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 1 + y)-(2 + x, 4 + y), cn, BF
+    Line (9 + x, 1 + y)-(10 + x, 10 + y), cn, BF
+End Sub
+
+Sub number5
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (10 + x, 8 + y)-(9 + x, 7 + y), cn, BF
+    Line (2 + x, 4 + y)-(1 + x, 3 + y), cn, BF
+End Sub
+
+Sub number6
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (10 + x, 8 + y)-(9 + x, 7 + y), cn, BF
+    Line (1 + x, 8 + y)-(2 + x, 3 + y), cn, BF
+End Sub
+
+Sub number7
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (10 + x, 3 + y)-(3 + x, 10 + y), cn
+    Line (9 + x, 3 + y)-(2 + x, 10 + y), cn
+    Line (8 + x, 3 + y)-(1 + x, 10 + y), cn
+End Sub
+
+Sub number8
+    Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+    Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
+    Line (2 + x, 6 + y)-(9 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(2 + x, 4 + y), cn, BF
+    Line (1 + x, 7 + y)-(2 + x, 9 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 4 + y), cn, BF
+    Line (9 + x, 7 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub number9
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (10 + x, 8 + y)-(9 + x, 3 + y), cn, BF
+    Line (2 + x, 4 + y)-(1 + x, 3 + y), cn, BF
+End Sub
+
+Sub number0
+    Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+    Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
+    Line (1 + x, 2 + y)-(2 + x, 9 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub numberA
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(2 + x, 10 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 10 + y), cn, BF
+    Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+End Sub
+
+Sub numberB
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (1 + x, 10 + y)-(9 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(9 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 4 + y), cn, BF
+    Line (9 + x, 7 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub numberC
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (1 + x, 1 + y)-(10 + x, 2 + y), cn, BF
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub numberD
+    Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+    Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub numberE
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+End Sub
+
+Sub numberF
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+End Sub
+
+Sub numberG
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (8 + x, 6 + y)-(6 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (10 + x, 8 + y)-(9 + x, 5 + y), cn, BF
+    Line (1 + x, 8 + y)-(2 + x, 3 + y), cn, BF
+End Sub
+
+Sub numberH
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (9 + x, 1 + y)-(10 + x, 10 + y), cn, BF
+End Sub
+
+Sub numberI
+    Line (3 + x, 2 + y)-(8 + x, 1 + y), cn, BF
+    Line (3 + x, 10 + y)-(8 + x, 9 + y), cn, BF
+    Line (5 + x, 3 + y)-(6 + x, 8 + y), cn, BF
+End Sub
+
+Sub numberJ
+    Line (1 + x, 6 + y)-(2 + x, 9 + y), cn, BF
+    Line (9 + x, 1 + y)-(10 + x, 9 + y), cn, BF
+    Line (2 + x, 9 + y)-(9 + x, 10 + y), cn, BF
+End Sub
+
+Sub letter1
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (18 + x, 31 + y)-(22 + x, 4 + y), cl, BF
+    Line (17 + x, 4 + y)-(4 + x, 17 + y), cl
+    Line (17 + x, 5 + y)-(5 + x, 17 + y), cl
+    Line (17 + x, 6 + y)-(6 + x, 17 + y), cl
+    Line (17 + x, 7 + y)-(7 + x, 17 + y), cl
+End Sub
+
+Sub letter2
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (32 + x, 9 + y)-(36 + x, 17 + y), cl, BF
+    Line (4 + x, 23 + y)-(8 + x, 31 + y), cl, BF
+End Sub
+
+Sub letter3
+    Line (4 + x, 4 + y)-(34 + x, 8 + y), cl, BF
+    Line (4 + x, 36 + y)-(34 + x, 32 + y), cl, BF
+    Line (36 + x, 23 + y)-(32 + x, 34 + y), cl, BF
+    Line (32 + x, 6 + y)-(36 + x, 17 + y), cl, BF
+    Line (18 + x, 18 + y)-(34 + x, 22 + y), cl, BF
+    Line (30 + x, 17 + y)-(31 + x, 17 + y), cl
+    Line (30 + x, 23 + y)-(31 + x, 23 + y), cl
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
+    PSet (31 + x, 10 + y), cl: PSet (31 + x, 30 + y), cl
+    PSet (31 + x, 16 + y), cl: PSet (31 + x, 24 + y), cl
+    PSet (35 + x, 18 + y), cl: PSet (35 + x, 22 + y), cl
+    PSet (35 + x, 5 + y), cl: PSet (35 + x, 35 + y), cl
+End Sub
+
+Sub letter4
+    Line (4 + x, 4 + y)-(8 + x, 17 + y), cl, BF
+    Line (32 + x, 4 + y)-(36 + x, 36 + y), cl, BF
+    Line (4 + x, 18 + y)-(34 + x, 22 + y), cl, BF
+End Sub
+
+Sub letter5
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (4 + x, 9 + y)-(8 + x, 17 + y), cl, BF
+    Line (32 + x, 23 + y)-(36 + x, 31 + y), cl, BF
+End Sub
+
+Sub letter6
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (4 + x, 9 + y)-(8 + x, 31 + y), cl, BF
+    Line (32 + x, 23 + y)-(36 + x, 31 + y), cl, BF
+End Sub
+
+Sub letter7
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (8 + x, 36 + y)-(35 + x, 9 + y), cl
+    Line (7 + x, 36 + y)-(34 + x, 9 + y), cl
+    Line (6 + x, 36 + y)-(33 + x, 9 + y), cl
+    Line (5 + x, 36 + y)-(32 + x, 9 + y), cl
+End Sub
+
+Sub letter8
+    Line (8 + x, 23 + y)-(4 + x, 34 + y), cl, BF
+    Line (4 + x, 6 + y)-(8 + x, 17 + y), cl, BF
+    Line (6 + x, 4 + y)-(34 + x, 8 + y), cl, BF
+    Line (6 + x, 36 + y)-(34 + x, 32 + y), cl, BF
+    Line (36 + x, 23 + y)-(32 + x, 34 + y), cl, BF
+    Line (32 + x, 6 + y)-(36 + x, 17 + y), cl, BF
+    Line (6 + x, 18 + y)-(34 + x, 22 + y), cl, BF
+    Line (30 + x, 17 + y)-(31 + x, 17 + y), cl
+    Line (30 + x, 23 + y)-(31 + x, 23 + y), cl
+    Line (10 + x, 17 + y)-(9 + x, 17 + y), cl
+    Line (10 + x, 23 + y)-(9 + x, 23 + y), cl
+    Line (9 + x, 31 + y)-(10 + x, 31 + y), cl
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
+    Line (9 + x, 9 + y)-(10 + x, 9 + y), cl
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
+    PSet (35 + x, 5 + y), cl: PSet (35 + x, 35 + y), cl
+    PSet (5 + x, 5 + y), cl: PSet (5 + x, 35 + y), cl
+    PSet (9 + x, 30 + y), cl: PSet (31 + x, 30 + y), cl
+    PSet (9 + x, 10 + y), cl: PSet (31 + x, 10 + y), cl
+    PSet (5 + x, 18 + y), cl: PSet (5 + x, 22 + y), cl
+    PSet (9 + x, 16 + y), cl: PSet (9 + x, 24 + y), cl
+    PSet (31 + x, 16 + y), cl: PSet (31 + x, 24 + y), cl
+    PSet (35 + x, 18 + y), cl: PSet (35 + x, 22 + y), cl
+End Sub
+
+Sub letter9
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (32 + x, 9 + y)-(36 + x, 31 + y), cl, BF
+End Sub
+
+Sub letter0
+    Line (6 + x, 4 + y)-(34 + x, 8 + y), cl, BF
+    Line (6 + x, 36 + y)-(34 + x, 32 + y), cl, BF
+    Line (4 + x, 6 + y)-(8 + x, 34 + y), cl, BF
+    Line (36 + x, 6 + y)-(32 + x, 34 + y), cl, BF
+    Line (9 + x, 9 + y)-(10 + x, 9 + y), cl
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
+    Line (9 + x, 31 + y)-(10 + x, 31 + y), cl
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
+    Line (9 + x, 9 + y)-(10 + x, 9 + y), cl
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
+    PSet (35 + x, 5 + y), cl: PSet (35 + x, 35 + y), cl
+    PSet (5 + x, 5 + y), cl: PSet (5 + x, 35 + y), cl
+    PSet (9 + x, 30 + y), cl: PSet (31 + x, 30 + y), cl
+    PSet (9 + x, 10 + y), cl: PSet (31 + x, 10 + y), cl
+End Sub
+
+Sub letterA
+    Line (4 + x, 6 + y)-(8 + x, 36 + y), cl, BF
+    Line (32 + x, 6 + y)-(36 + x, 36 + y), cl, BF
+    Line (4 + x, 18 + y)-(34 + x, 22 + y), cl, BF
+    Line (6 + x, 4 + y)-(34 + x, 8 + y), cl, BF
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
+    Line (9 + x, 9 + y)-(10 + x, 9 + y), cl
+    PSet (9 + x, 10 + y), cl: PSet (31 + x, 10 + y), cl
+    PSet (5 + x, 5 + y), cl: PSet (35 + x, 5 + y), cl
+End Sub
+
+Sub letterB
+    Line (4 + x, 9 + y)-(8 + x, 31 + y), cl, BF
+    Line (4 + x, 4 + y)-(34 + x, 8 + y), cl, BF
+    Line (4 + x, 36 + y)-(34 + x, 32 + y), cl, BF
+    Line (36 + x, 23 + y)-(32 + x, 34 + y), cl, BF
+    Line (32 + x, 6 + y)-(36 + x, 17 + y), cl, BF
+    Line (9 + x, 18 + y)-(34 + x, 22 + y), cl, BF
+    Line (30 + x, 17 + y)-(31 + x, 17 + y), cl
+    Line (30 + x, 23 + y)-(31 + x, 23 + y), cl
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
+    PSet (31 + x, 10 + y), cl: PSet (31 + x, 30 + y), cl
+    PSet (31 + x, 16 + y), cl: PSet (31 + x, 24 + y), cl
+    PSet (35 + x, 18 + y), cl: PSet (35 + x, 22 + y), cl
+    PSet (35 + x, 5 + y), cl: PSet (35 + x, 35 + y), cl
+End Sub
+
+Sub letterC
+    Line (6 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (6 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (4 + x, 6 + y)-(8 + x, 34 + y), cl, BF
+    Line (9 + x, 9 + y)-(10 + x, 9 + y), cl
+    Line (9 + x, 31 + y)-(10 + x, 31 + y), cl
+    PSet (9 + x, 10 + y), cl: PSet (9 + x, 30 + y), cl
+    PSet (5 + x, 5 + y), cl: PSet (5 + x, 35 + y), cl
+End Sub
+
+Sub letterD
+    Line (4 + x, 4 + y)-(34 + x, 8 + y), cl, BF
+    Line (4 + x, 36 + y)-(34 + x, 32 + y), cl, BF
+    Line (4 + x, 4 + y)-(8 + x, 36 + y), cl, BF
+    Line (32 + x, 6 + y)-(36 + x, 34 + y), cl, BF
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
+    PSet (31 + x, 10 + y), cl: PSet (31 + x, 30 + y), cl
+    PSet (35 + x, 5 + y), cl: PSet (35 + x, 35 + y), cl
+End Sub
+
+Sub letterE
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (4 + x, 4 + y)-(8 + x, 36 + y), cl, BF
+End Sub
+
+Sub letterF
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
+    Line (4 + x, 4 + y)-(8 + x, 36 + y), cl, BF
+End Sub
+
+Sub letterG
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (20 + x, 18 + y)-(36 + x, 22 + y), cl, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (4 + x, 9 + y)-(8 + x, 31 + y), cl, BF
+    Line (32 + x, 23 + y)-(36 + x, 31 + y), cl, BF
+End Sub
+
+Sub letterH
+    Line (4 + x, 4 + y)-(8 + x, 36 + y), cl, BF
+    Line (32 + x, 4 + y)-(36 + x, 36 + y), cl, BF
+    Line (4 + x, 18 + y)-(34 + x, 22 + y), cl, BF
+End Sub
+
+Sub letterI
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cl, BF
+    Line (18 + x, 31 + y)-(22 + x, 9 + y), cl, BF
+    Line (8 + x, 8 + y)-(32 + x, 3 + y), cl, BF
+End Sub
+
+Sub letterJ
+    Line (6 + x, 36 + y)-(34 + x, 32 + y), cl, BF
+    Line (32 + x, 4 + y)-(36 + x, 34 + y), cl, BF
+    Line (4 + x, 18 + y)-(8 + x, 34 + y), cl, BF
+    Line (9 + x, 31 + y)-(10 + x, 31 + y), cl
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
+    PSet (9 + x, 30 + y), cl: PSet (31 + x, 30 + y), cl
+    PSet (5 + x, 35 + y), cl: PSet (35 + x, 35 + y), cl
+End Sub
+
+Sub king
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (12 + x, 31 + y)-(28 + x, 31 + y), cf
+    Line (13 + x, 30 + y)-(27 + x, 30 + y), cf
+    Line (14 + x, 29 + y)-(26 + x, 29 + y), cf
+    Line (15 + x, 28 + y)-(25 + x, 28 + y), cf
+    Line (16 + x, 27 + y)-(24 + x, 10 + y), cf, BF
+    Line (15 + x, 24 + y)-(25 + x, 24 + y), cf
+    Line (14 + x, 23 + y)-(26 + x, 23 + y), cf
+    Line (13 + x, 22 + y)-(27 + x, 22 + y), cf
+    Line (12 + x, 21 + y)-(28 + x, 21 + y), cf
+    Line (11 + x, 20 + y)-(29 + x, 20 + y), cf
+    Line (10 + x, 19 + y)-(30 + x, 19 + y), cf
+    Line (9 + x, 18 + y)-(31 + x, 18 + y), cf
+    Line (8 + x, 17 + y)-(32 + x, 17 + y), cf
+    Line (7 + x, 16 + y)-(33 + x, 16 + y), cf
+    Line (6 + x, 15 + y)-(34 + x, 15 + y), cf
+    Line (5 + x, 14 + y)-(35 + x, 14 + y), cf
+    Line (4 + x, 13 + y)-(36 + x, 12 + y), cf, BF
+    Line (4 + x, 11 + y)-(14 + x, 10 + y), cf, BF
+    Line (5 + x, 9 + y)-(13 + x, 9 + y), cf
+    Line (6 + x, 8 + y)-(12 + x, 8 + y), cf
+    Line (7 + x, 7 + y)-(11 + x, 7 + y), cf
+    Line (26 + x, 11 + y)-(36 + x, 10 + y), cf, BF
+    Line (27 + x, 9 + y)-(35 + x, 9 + y), cf
+    Line (28 + x, 8 + y)-(34 + x, 8 + y), cf
+    Line (29 + x, 7 + y)-(33 + x, 7 + y), cf
+    Line (17 + x, 9 + y)-(23 + x, 8 + y), cf, BF
+    Line (18 + x, 7 + y)-(22 + x, 6 + y), cf, BF
+    Line (19 + x, 5 + y)-(21 + x, 4 + y), cf, BF
+End Sub
+
+Sub queen
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 14 + y), cf, BF
+    Line (11 + x, 24 + y)-(29 + x, 24 + y), cf
+    Line (10 + x, 23 + y)-(30 + x, 23 + y), cf
+    Line (9 + x, 22 + y)-(31 + x, 22 + y), cf
+    Line (8 + x, 21 + y)-(32 + x, 21 + y), cf
+    Line (7 + x, 20 + y)-(33 + x, 20 + y), cf
+    Line (6 + x, 19 + y)-(34 + x, 18 + y), cf, BF
+    Line (6 + x, 17 + y)-(7 + x, 10 + y), cf, BF
+    Line (5 + x, 11 + y)-(8 + x, 14 + y), cf, BF
+    Line (4 + x, 12 + y)-(9 + x, 13 + y), cf, BF
+    Line (34 + x, 17 + y)-(33 + x, 10 + y), cf, BF
+    Line (35 + x, 11 + y)-(32 + x, 14 + y), cf, BF
+    Line (36 + x, 12 + y)-(31 + x, 13 + y), cf, BF
+    Line (12 + x, 13 + y)-(13 + x, 6 + y), cf, BF
+    Line (11 + x, 7 + y)-(14 + x, 10 + y), cf, BF
+    Line (10 + x, 8 + y)-(15 + x, 9 + y), cf, BF
+    Line (27 + x, 13 + y)-(28 + x, 6 + y), cf, BF
+    Line (26 + x, 7 + y)-(29 + x, 10 + y), cf, BF
+    Line (25 + x, 8 + y)-(30 + x, 9 + y), cf, BF
+    Line (19 + x, 13 + y)-(21 + x, 4 + y), cf, BF
+    Line (18 + x, 5 + y)-(22 + x, 8 + y), cf, BF
+    Line (17 + x, 6 + y)-(23 + x, 7 + y), cf, BF
+End Sub
+
+Sub bishop
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (18 + x, 31 + y)-(22 + x, 6 + y), cf, BF
+    Line (19 + x, 5 + y)-(21 + x, 4 + y), cf, BF
+    Line (12 + x, 31 + y)-(28 + x, 31 + y), cf
+    Line (13 + x, 30 + y)-(27 + x, 30 + y), cf
+    Line (14 + x, 29 + y)-(26 + x, 29 + y), cf
+    Line (15 + x, 28 + y)-(25 + x, 28 + y), cf
+    Line (16 + x, 27 + y)-(24 + x, 27 + y), cf
+    Line (17 + x, 26 + y)-(23 + x, 26 + y), cf
+    Line (17 + x, 21 + y)-(23 + x, 8 + y), cf, BF
+    Line (16 + x, 19 + y)-(24 + x, 10 + y), cf, BF
+    Line (15 + x, 17 + y)-(25 + x, 12 + y), cf, BF
+    Line (14 + x, 15 + y)-(26 + x, 14 + y), cf, BF
+End Sub
+
+Sub knight
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (12 + x, 31 + y)-(28 + x, 31 + y), cf
+    Line (13 + x, 30 + y)-(29 + x, 30 + y), cf
+    Line (14 + x, 29 + y)-(30 + x, 29 + y), cf
+    Line (15 + x, 28 + y)-(31 + x, 28 + y), cf
+    Line (16 + x, 27 + y)-(32 + x, 27 + y), cf
+    Line (17 + x, 26 + y)-(33 + x, 26 + y), cf
+    Line (18 + x, 25 + y)-(34 + x, 25 + y), cf
+    Line (19 + x, 24 + y)-(35 + x, 24 + y), cf
+    Line (20 + x, 23 + y)-(36 + x, 18 + y), cf, BF
+    Line (4 + x, 17 + y)-(35 + x, 17 + y), cf
+    Line (4 + x, 16 + y)-(34 + x, 16 + y), cf
+    Line (5 + x, 15 + y)-(33 + x, 15 + y), cf
+    Line (6 + x, 14 + y)-(32 + x, 14 + y), cf
+    Line (7 + x, 13 + y)-(31 + x, 13 + y), cf
+    Line (8 + x, 12 + y)-(30 + x, 12 + y), cf
+    Line (9 + x, 11 + y)-(29 + x, 11 + y), cf
+    Line (10 + x, 10 + y)-(28 + x, 10 + y), cf
+    Line (11 + x, 9 + y)-(27 + x, 9 + y), cf
+    Line (12 + x, 8 + y)-(26 + x, 8 + y), cf
+    Line (13 + x, 7 + y)-(25 + x, 7 + y), cf
+    Line (14 + x, 6 + y)-(24 + x, 6 + y), cf
+    Line (15 + x, 5 + y)-(23 + x, 5 + y), cf
+    Line (16 + x, 4 + y)-(22 + x, 4 + y), cf
+End Sub
+
+Sub rook
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (4 + x, 4 + y)-(8 + x, 12 + y), cf, BF
+    Line (13 + x, 4 + y)-(17 + x, 12 + y), cf, BF
+    Line (23 + x, 4 + y)-(27 + x, 12 + y), cf, BF
+    Line (32 + x, 4 + y)-(36 + x, 12 + y), cf, BF
+    Line (4 + x, 12 + y)-(36 + x, 16 + y), cf, BF
+    Line (12 + x, 16 + y)-(28 + x, 32 + y), cf, BF
+    Line (9 + x, 16 + y)-(11 + x, 16 + y), cf
+    Line (29 + x, 16 + y)-(31 + x, 16 + y), cf
+    Line (10 + x, 17 + y)-(11 + x, 17 + y), cf
+    Line (29 + x, 17 + y)-(30 + x, 17 + y), cf
+    PSet (11 + x, 18 + y), cf: PSet (29 + x, 18 + y), cf
+    Line (9 + x, 31 + y)-(11 + x, 31 + y), cf
+    Line (29 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(11 + x, 30 + y), cf
+    Line (29 + x, 30 + y)-(30 + x, 30 + y), cf
+    PSet (11 + x, 29 + y), cf: PSet (29 + x, 29 + y), cf
+End Sub
+
+Sub pawn
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (18 + x, 32 + y)-(22 + x, 4 + y), cf, BF
+    Line (12 + x, 9 + y)-(28 + x, 14 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
+    Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
+    Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
+    Line (15 + x, 25 + y)-(25 + x, 25 + y), cf
+    Line (16 + x, 24 + y)-(24 + x, 24 + y), cf
+    Line (17 + x, 23 + y)-(23 + x, 23 + y), cf
+    Line (17 + x, 19 + y)-(23 + x, 19 + y), cf
+    Line (16 + x, 18 + y)-(24 + x, 18 + y), cf
+    Line (15 + x, 17 + y)-(25 + x, 17 + y), cf
+    Line (14 + x, 16 + y)-(26 + x, 16 + y), cf
+    Line (13 + x, 15 + y)-(27 + x, 15 + y), cf
+    Line (13 + x, 8 + y)-(27 + x, 8 + y), cf
+    Line (14 + x, 7 + y)-(26 + x, 7 + y), cf
+    Line (15 + x, 6 + y)-(25 + x, 6 + y), cf
+    Line (16 + x, 5 + y)-(24 + x, 5 + y), cf
+    Line (17 + x, 4 + y)-(23 + x, 4 + y), cf
+End Sub
+
+Sub cannon
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
+    Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
+    Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
+    Line (15 + x, 25 + y)-(25 + x, 25 + y), cf
+    Line (16 + x, 24 + y)-(24 + x, 4 + y), cf, BF
+    Line (6 + x, 9 + y)-(36 + x, 12 + y), cf, BF
+    Line (4 + x, 10 + y)-(6 + x, 11 + y), cf, BF
+    Line (14 + x, 16 + y)-(25 + x, 16 + y), cf
+    Line (12 + x, 15 + y)-(26 + x, 15 + y), cf
+    Line (10 + x, 14 + y)-(27 + x, 14 + y), cf
+    Line (8 + x, 13 + y)-(28 + x, 13 + y), cf
+    Line (8 + x, 8 + y)-(28 + x, 8 + y), cf
+    Line (10 + x, 7 + y)-(27 + x, 7 + y), cf
+    Line (12 + x, 6 + y)-(26 + x, 6 + y), cf
+    Line (14 + x, 5 + y)-(25 + x, 5 + y), cf
+    Line (16 + x, 4 + y)-(24 + x, 4 + y), cf
+End Sub
+
+Sub general
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
+    Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
+    Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
+    Line (13 + x, 25 + y)-(27 + x, 22 + y), cf, BF
+    Line (16 + x, 21 + y)-(24 + x, 20 + y), cf, BF
+    Line (18 + x, 19 + y)-(22 + x, 12 + y), cf, BF
+    Line (19 + x, 11 + y)-(21 + x, 4 + y), cf, BF
+    Line (18 + x, 10 + y)-(22 + x, 5 + y), cf, BF
+    Line (17 + x, 9 + y)-(23 + x, 6 + y), cf, BF
+    Line (16 + x, 8 + y)-(24 + x, 7 + y), cf, BF
+    Line (15 + x, 20 + y)-(16 + x, 19 + y), cf, BF
+    Line (14 + x, 19 + y)-(15 + x, 18 + y), cf, BF
+    Line (13 + x, 18 + y)-(14 + x, 17 + y), cf, BF
+    Line (24 + x, 20 + y)-(25 + x, 19 + y), cf, BF
+    Line (25 + x, 19 + y)-(26 + x, 18 + y), cf, BF
+    Line (26 + x, 18 + y)-(27 + x, 17 + y), cf, BF
+    Line (11 + x, 18 + y)-(12 + x, 11 + y), cf, BF
+    Line (10 + x, 17 + y)-(13 + x, 12 + y), cf, BF
+    Line (9 + x, 16 + y)-(14 + x, 13 + y), cf, BF
+    Line (8 + x, 15 + y)-(15 + x, 14 + y), cf, BF
+    Line (28 + x, 18 + y)-(29 + x, 11 + y), cf, BF
+    Line (27 + x, 17 + y)-(30 + x, 12 + y), cf, BF
+    Line (26 + x, 16 + y)-(31 + x, 13 + y), cf, BF
+    Line (25 + x, 15 + y)-(32 + x, 14 + y), cf, BF
+    Line (4 + x, 24 + y)-(36 + x, 23 + y), cf, BF
+    Line (29 + x, 25 + y)-(35 + x, 22 + y), cf, BF
+    Line (30 + x, 26 + y)-(34 + x, 21 + y), cf, BF
+    Line (31 + x, 27 + y)-(33 + x, 20 + y), cf, BF
+    Line (5 + x, 25 + y)-(11 + x, 22 + y), cf, BF
+    Line (6 + x, 26 + y)-(10 + x, 21 + y), cf, BF
+    Line (7 + x, 27 + y)-(9 + x, 20 + y), cf, BF
+End Sub
+
+Sub tokin
+    Line (10 + x, 10 + y)-(30 + x, 30 + y), cf, BF
+    Line (4 + x, 4 + y)-(5 + x, 5 + y), cf, BF
+    Line (5 + x, 5 + y)-(7 + x, 7 + y), cf, BF
+    Line (6 + x, 6 + y)-(9 + x, 9 + y), cf, BF
+    Line (7 + x, 7 + y)-(11 + x, 11 + y), cf, BF
+    Line (8 + x, 8 + y)-(12 + x, 12 + y), cf, BF
+    Line (36 + x, 4 + y)-(35 + x, 5 + y), cf, BF
+    Line (35 + x, 5 + y)-(33 + x, 7 + y), cf, BF
+    Line (34 + x, 6 + y)-(31 + x, 9 + y), cf, BF
+    Line (33 + x, 7 + y)-(29 + x, 11 + y), cf, BF
+    Line (32 + x, 8 + y)-(28 + x, 12 + y), cf, BF
+    Line (36 + x, 36 + y)-(35 + x, 35 + y), cf, BF
+    Line (35 + x, 35 + y)-(33 + x, 33 + y), cf, BF
+    Line (34 + x, 34 + y)-(31 + x, 31 + y), cf, BF
+    Line (33 + x, 33 + y)-(29 + x, 29 + y), cf, BF
+    Line (32 + x, 32 + y)-(28 + x, 28 + y), cf, BF
+    Line (4 + x, 36 + y)-(5 + x, 35 + y), cf, BF
+    Line (5 + x, 35 + y)-(7 + x, 33 + y), cf, BF
+    Line (6 + x, 34 + y)-(9 + x, 31 + y), cf, BF
+    Line (7 + x, 33 + y)-(11 + x, 29 + y), cf, BF
+    Line (8 + x, 32 + y)-(12 + x, 28 + y), cf, BF
+    Line (17 + x, 9 + y)-(23 + x, 8 + y), cf, BF
+    Line (18 + x, 7 + y)-(22 + x, 6 + y), cf, BF
+    Line (19 + x, 5 + y)-(21 + x, 4 + y), cf, BF
+    Line (17 + x, 31 + y)-(23 + x, 32 + y), cf, BF
+    Line (18 + x, 33 + y)-(22 + x, 34 + y), cf, BF
+    Line (19 + x, 35 + y)-(21 + x, 36 + y), cf, BF
+    Line (8 + x, 17 + y)-(9 + x, 23 + y), cf, BF
+    Line (6 + x, 18 + y)-(7 + x, 22 + y), cf, BF
+    Line (4 + x, 19 + y)-(5 + x, 21 + y), cf, BF
+    Line (32 + x, 17 + y)-(31 + x, 23 + y), cf, BF
+    Line (34 + x, 18 + y)-(33 + x, 22 + y), cf, BF
+    Line (36 + x, 19 + y)-(35 + x, 21 + y), cf, BF
+End Sub
+
+Sub lance
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
+    Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
+    Line (14 + x, 26 + y)-(26 + x, 24 + y), cf, BF
+    Line (15 + x, 23 + y)-(25 + x, 20 + y), cf, BF
+    Line (16 + x, 19 + y)-(24 + x, 16 + y), cf, BF
+    Line (17 + x, 15 + y)-(23 + x, 12 + y), cf, BF
+    Line (18 + x, 11 + y)-(22 + x, 8 + y), cf, BF
+    Line (19 + x, 7 + y)-(21 + x, 4 + y), cf, BF
+End Sub
+
+Sub dragon
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
+    Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
+    Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
+    Line (15 + x, 25 + y)-(25 + x, 25 + y), cf
+    Line (15 + x, 20 + y)-(25 + x, 20 + y), cf
+    Line (14 + x, 19 + y)-(26 + x, 19 + y), cf
+    Line (13 + x, 18 + y)-(27 + x, 18 + y), cf
+    Line (16 + x, 24 + y)-(24 + x, 8 + y), cf, BF
+    Line (17 + x, 7 + y)-(23 + x, 6 + y), cf, BF
+    Line (18 + x, 5 + y)-(22 + x, 5 + y), cf
+    Line (19 + x, 4 + y)-(21 + x, 4 + y), cf
+    Line (9 + x, 12 + y)-(31 + x, 17 + y), cf, BF
+    Line (10 + x, 11 + y)-(13 + x, 11 + y), cf
+    Line (11 + x, 10 + y)-(12 + x, 10 + y), cf
+    Line (27 + x, 11 + y)-(30 + x, 11 + y), cf
+    Line (28 + x, 10 + y)-(29 + x, 10 + y), cf
+    Line (10 + x, 11 + y)-(10 + x, 18 + y), cf
+    Line (9 + x, 12 + y)-(9 + x, 19 + y), cf
+    Line (8 + x, 13 + y)-(8 + x, 20 + y), cf
+    Line (7 + x, 14 + y)-(7 + x, 21 + y), cf
+    Line (6 + x, 15 + y)-(6 + x, 22 + y), cf
+    Line (5 + x, 16 + y)-(5 + x, 23 + y), cf
+    Line (4 + x, 17 + y)-(4 + x, 24 + y), cf
+    Line (30 + x, 11 + y)-(30 + x, 18 + y), cf
+    Line (31 + x, 12 + y)-(31 + x, 19 + y), cf
+    Line (32 + x, 13 + y)-(32 + x, 20 + y), cf
+    Line (33 + x, 14 + y)-(33 + x, 21 + y), cf
+    Line (34 + x, 15 + y)-(34 + x, 22 + y), cf
+    Line (35 + x, 16 + y)-(35 + x, 23 + y), cf
+    Line (36 + x, 17 + y)-(36 + x, 24 + y), cf
+End Sub
+
+Sub horse
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (10 + x, 31 + y)-(11 + x, 26 + y), cf, BF
+    Line (16 + x, 31 + y)-(17 + x, 26 + y), cf, BF
+    Line (23 + x, 31 + y)-(24 + x, 26 + y), cf, BF
+    Line (29 + x, 31 + y)-(30 + x, 26 + y), cf, BF
+    Line (8 + x, 25 + y)-(32 + x, 14 + y), cf, BF
+    Line (7 + x, 24 + y)-(7 + x, 15 + y), cf
+    Line (6 + x, 23 + y)-(6 + x, 16 + y), cf
+    Line (5 + x, 22 + y)-(5 + x, 17 + y), cf
+    Line (4 + x, 21 + y)-(4 + x, 18 + y), cf
+    Line (33 + x, 24 + y)-(33 + x, 15 + y), cf
+    Line (34 + x, 23 + y)-(34 + x, 16 + y), cf
+    Line (35 + x, 22 + y)-(35 + x, 17 + y), cf
+    Line (36 + x, 21 + y)-(36 + x, 18 + y), cf
+    Line (14 + x, 13 + y)-(26 + x, 10 + y), cf, BF
+    Line (10 + x, 9 + y)-(30 + x, 7 + y), cf, BF
+    Line (10 + x, 6 + y)-(13 + x, 6 + y), cf
+    Line (10 + x, 5 + y)-(12 + x, 5 + y), cf
+    Line (10 + x, 4 + y)-(11 + x, 4 + y), cf
+    Line (30 + x, 6 + y)-(27 + x, 6 + y), cf
+    Line (30 + x, 5 + y)-(28 + x, 5 + y), cf
+    Line (30 + x, 4 + y)-(29 + x, 4 + y), cf
+    Line (16 + x, 6 + y)-(24 + x, 6 + y), cf
+    Line (17 + x, 5 + y)-(23 + x, 5 + y), cf
+    Line (18 + x, 4 + y)-(22 + x, 4 + y), cf
+End Sub
+
+Sub dame
+    Line (14 + x, 36 + y)-(26 + x, 28 + y), cf, BF
+    Line (14 + x, 4 + y)-(26 + x, 12 + y), cf, BF
+    Line (4 + x, 14 + y)-(12 + x, 26 + y), cf, BF
+    Line (28 + x, 14 + y)-(36 + x, 26 + y), cf, BF
+    Line (17 + x, 36 + y)-(17 + x, 27 + y), cf
+    Line (16 + x, 36 + y)-(16 + x, 26 + y), cf
+    Line (15 + x, 36 + y)-(15 + x, 25 + y), cf
+    Line (14 + x, 36 + y)-(14 + x, 24 + y), cf
+    Line (13 + x, 35 + y)-(13 + x, 23 + y), cf
+    Line (12 + x, 34 + y)-(12 + x, 22 + y), cf
+    Line (23 + x, 36 + y)-(23 + x, 27 + y), cf
+    Line (24 + x, 36 + y)-(24 + x, 26 + y), cf
+    Line (25 + x, 36 + y)-(25 + x, 25 + y), cf
+    Line (26 + x, 36 + y)-(26 + x, 24 + y), cf
+    Line (27 + x, 35 + y)-(27 + x, 23 + y), cf
+    Line (28 + x, 34 + y)-(28 + x, 22 + y), cf
+    Line (17 + x, 4 + y)-(17 + x, 13 + y), cf
+    Line (16 + x, 4 + y)-(16 + x, 14 + y), cf
+    Line (15 + x, 4 + y)-(15 + x, 15 + y), cf
+    Line (14 + x, 4 + y)-(14 + x, 16 + y), cf
+    Line (13 + x, 5 + y)-(13 + x, 17 + y), cf
+    Line (12 + x, 6 + y)-(12 + x, 18 + y), cf
+    Line (23 + x, 4 + y)-(23 + x, 13 + y), cf
+    Line (24 + x, 4 + y)-(24 + x, 14 + y), cf
+    Line (25 + x, 4 + y)-(25 + x, 15 + y), cf
+    Line (26 + x, 4 + y)-(26 + x, 16 + y), cf
+    Line (27 + x, 5 + y)-(27 + x, 17 + y), cf
+    Line (28 + x, 6 + y)-(28 + x, 18 + y), cf
+    Line (5 + x, 13 + y)-(5 + x, 27 + y), cf
+    Line (6 + x, 12 + y)-(6 + x, 28 + y), cf
+    Line (7 + x, 11 + y)-(7 + x, 29 + y), cf
+    Line (8 + x, 10 + y)-(8 + x, 30 + y), cf
+    Line (9 + x, 9 + y)-(9 + x, 31 + y), cf
+    Line (10 + x, 8 + y)-(10 + x, 32 + y), cf
+    Line (11 + x, 7 + y)-(11 + x, 33 + y), cf
+    Line (35 + x, 13 + y)-(35 + x, 27 + y), cf
+    Line (34 + x, 12 + y)-(34 + x, 28 + y), cf
+    Line (33 + x, 11 + y)-(33 + x, 29 + y), cf
+    Line (32 + x, 10 + y)-(32 + x, 30 + y), cf
+    Line (31 + x, 9 + y)-(31 + x, 31 + y), cf
+    Line (30 + x, 8 + y)-(30 + x, 32 + y), cf
+    Line (29 + x, 7 + y)-(29 + x, 33 + y), cf
+End Sub
+
+Sub checker
+    Line (14 + x, 36 + y)-(26 + x, 32 + y), cf, BF
+    Line (14 + x, 4 + y)-(26 + x, 8 + y), cf, BF
+    Line (4 + x, 14 + y)-(8 + x, 26 + y), cf, BF
+    Line (32 + x, 14 + y)-(36 + x, 26 + y), cf, BF
+    Line (13 + x, 35 + y)-(13 + x, 31 + y), cf
+    Line (12 + x, 34 + y)-(12 + x, 30 + y), cf
+    Line (11 + x, 33 + y)-(11 + x, 29 + y), cf
+    Line (10 + x, 32 + y)-(10 + x, 28 + y), cf
+    Line (9 + x, 31 + y)-(9 + x, 27 + y), cf
+    Line (8 + x, 30 + y)-(8 + x, 26 + y), cf
+    Line (27 + x, 35 + y)-(27 + x, 31 + y), cf
+    Line (28 + x, 34 + y)-(28 + x, 30 + y), cf
+    Line (29 + x, 33 + y)-(29 + x, 29 + y), cf
+    Line (30 + x, 32 + y)-(30 + x, 28 + y), cf
+    Line (31 + x, 31 + y)-(31 + x, 27 + y), cf
+    Line (32 + x, 30 + y)-(32 + x, 26 + y), cf
+    Line (13 + x, 5 + y)-(13 + x, 9 + y), cf
+    Line (12 + x, 6 + y)-(12 + x, 10 + y), cf
+    Line (11 + x, 7 + y)-(11 + x, 11 + y), cf
+    Line (10 + x, 8 + y)-(10 + x, 12 + y), cf
+    Line (9 + x, 9 + y)-(9 + x, 13 + y), cf
+    Line (8 + x, 10 + y)-(8 + x, 14 + y), cf
+    Line (27 + x, 5 + y)-(27 + x, 9 + y), cf
+    Line (28 + x, 6 + y)-(28 + x, 10 + y), cf
+    Line (29 + x, 7 + y)-(29 + x, 11 + y), cf
+    Line (30 + x, 8 + y)-(30 + x, 12 + y), cf
+    Line (31 + x, 9 + y)-(31 + x, 13 + y), cf
+    Line (32 + x, 10 + y)-(32 + x, 14 + y), cf
+    Line (5 + x, 13 + y)-(5 + x, 27 + y), cf
+    Line (6 + x, 12 + y)-(6 + x, 28 + y), cf
+    Line (7 + x, 11 + y)-(7 + x, 29 + y), cf
+    Line (35 + x, 13 + y)-(35 + x, 27 + y), cf
+    Line (34 + x, 12 + y)-(34 + x, 28 + y), cf
+    Line (33 + x, 11 + y)-(33 + x, 29 + y), cf
+    Line (17 + x, 28 + y)-(23 + x, 24 + y), cf, BF
+    Line (17 + x, 12 + y)-(23 + x, 16 + y), cf, BF
+    Line (12 + x, 17 + y)-(16 + x, 23 + y), cf, BF
+    Line (24 + x, 17 + y)-(28 + x, 23 + y), cf, BF
+    Line (18 + x, 28 + y)-(18 + x, 23 + y), cf
+    Line (17 + x, 28 + y)-(17 + x, 22 + y), cf
+    Line (16 + x, 27 + y)-(16 + x, 21 + y), cf
+    Line (22 + x, 28 + y)-(22 + x, 23 + y), cf
+    Line (23 + x, 28 + y)-(23 + x, 22 + y), cf
+    Line (24 + x, 27 + y)-(24 + x, 21 + y), cf
+    Line (18 + x, 12 + y)-(18 + x, 17 + y), cf
+    Line (17 + x, 12 + y)-(17 + x, 18 + y), cf
+    Line (16 + x, 13 + y)-(16 + x, 19 + y), cf
+    Line (22 + x, 12 + y)-(22 + x, 17 + y), cf
+    Line (23 + x, 12 + y)-(23 + x, 18 + y), cf
+    Line (24 + x, 13 + y)-(24 + x, 19 + y), cf
+    Line (13 + x, 16 + y)-(13 + x, 24 + y), cf
+    Line (14 + x, 15 + y)-(14 + x, 25 + y), cf
+    Line (15 + x, 14 + y)-(15 + x, 26 + y), cf
+    Line (27 + x, 16 + y)-(27 + x, 24 + y), cf
+    Line (26 + x, 15 + y)-(26 + x, 25 + y), cf
+    Line (25 + x, 14 + y)-(25 + x, 26 + y), cf
+End Sub
+
+Sub cells
+    Line (x, y)-(x + 40, y + 40), cd1, BF
+    Line (x - 1, y - 1)-(x + 41, y + 41), cb1, B
+End Sub
+
+Sub dices
+    Line (20, 160)-(60, 200), cd1, BF
+    Line (20, 220)-(60, 260), cd1, BF
+    Line (20, 280)-(60, 320), cd1, BF
+    Line (580, 160)-(620, 200), cd1, BF
+    Line (580, 220)-(620, 260), cd1, BF
+    Line (580, 280)-(620, 320), cd1, BF
+    Line (19, 159)-(61, 201), cb1, B
+    Line (19, 219)-(61, 261), cb1, B
+    Line (19, 279)-(61, 321), cb1, B
+    Line (579, 159)-(621, 201), cb1, B
+    Line (579, 219)-(621, 261), cb1, B
+    Line (579, 279)-(621, 321), cb1, B
+End Sub
+
+Sub chessboard
+    Line (160, 80)-(480, 400), cb2, BF
+    For x = 160 To 480 Step 40
+        Line (x, 80)-(x, 400), cb1
+    Next x
+    For y = 80 To 400 Step 40
+        Line (160, y)-(480, y), cb1
+    Next y
+    For y = 320 To 80 Step -80: For x = 400 To 160 Step -80
+        Line (x + 1, y + 1)-(x + 39, y + 39), cb3, BF
+        Line (x + 41, y + 41)-(x + 79, y + 79), cb3, BF
+    Next x: Next y
+    Let y = 405
+    Let x = 175: Call numberA
+    Let x = 215: Call numberB
+    Let x = 255: Call numberC
+    Let x = 295: Call numberD
+    Let x = 335: Call numberE
+    Let x = 375: Call numberF
+    Let x = 415: Call numberG
+    Let x = 455: Call numberH
+    Let x = 145
+    Let y = 95: Call number8
+    Let y = 135: Call number7
+    Let y = 175: Call number6
+    Let y = 215: Call number5
+    Let y = 255: Call number4
+    Let y = 295: Call number3
+    Let y = 335: Call number2
+    Let y = 375: Call number1
+End Sub
+
+Sub makrukboard
+    Line (160, 80)-(480, 400), cb2, BF
+    For x = 160 To 480 Step 40
+        Line (x, 80)-(x, 400), cb1
+    Next x
+    For y = 80 To 400 Step 40
+        Line (160, y)-(480, y), cb1
+    Next y
+    Let y = 405
+    Let x = 175: Call numberA
+    Let x = 215: Call numberB
+    Let x = 255: Call numberC
+    Let x = 295: Call numberD
+    Let x = 335: Call numberE
+    Let x = 375: Call numberF
+    Let x = 415: Call numberG
+    Let x = 455: Call numberH
+    Let x = 145
+    Let y = 95: Call number8
+    Let y = 135: Call number7
+    Let y = 175: Call number6
+    Let y = 215: Call number5
+    Let y = 255: Call number4
+    Let y = 295: Call number3
+    Let y = 335: Call number2
+    Let y = 375: Call number1
+End Sub
+
+Sub xiangqiboard
+    Line (140, 40)-(500, 440), cb2, BF
+    For x = 140 To 500 Step 40
+        Line (x, 40)-(x, 440), cb1
+    Next x
+    For y = 40 To 440 Step 40
+        Line (140, y)-(500, y), cb1
+    Next y
+    Line (259, 161)-(381, 159), cb4, BF
+    Line (259, 41)-(261, 159), cb4, BF
+    Line (379, 41)-(381, 159), cb4, BF
+    Line (259, 321)-(381, 319), cb4, BF
+    Line (259, 439)-(261, 319), cb4, BF
+    Line (379, 439)-(381, 319), cb4, BF
+    Line (141, 238)-(499, 242), cb5, BF
+    Let y = 445
+    Let x = 155: Call numberA
+    Let x = 195: Call numberB
+    Let x = 235: Call numberC
+    Let x = 275: Call numberD
+    Let x = 315: Call numberE
+    Let x = 355: Call numberF
+    Let x = 395: Call numberG
+    Let x = 435: Call numberH
+    Let x = 475: Call numberI
+    Let x = 125
+    Let y = 55: Call number0
+    Let y = 95: Call number9
+    Let y = 135: Call number8
+    Let y = 175: Call number7
+    Let y = 215: Call number6
+    Let y = 255: Call number5
+    Let y = 295: Call number4
+    Let y = 335: Call number3
+    Let y = 375: Call number2
+    Let y = 415: Call number1
+End Sub
+
+Sub shogiboard
+    Line (140, 60)-(500, 420), cb2, BF
+    For x = 140 To 500 Step 40
+        Line (x, 60)-(x, 420), cb1
+    Next x
+    For y = 60 To 400 Step 40
+        Line (140, y)-(500, y), cb1
+    Next y
+    Let y = 425
+    Let x = 155: Call numberA
+    Let x = 195: Call numberB
+    Let x = 235: Call numberC
+    Let x = 275: Call numberD
+    Let x = 315: Call numberE
+    Let x = 355: Call numberF
+    Let x = 395: Call numberG
+    Let x = 435: Call numberH
+    Let x = 475: Call numberI
+    Let x = 125
+    Let y = 75: Call number9
+    Let y = 115: Call number8
+    Let y = 155: Call number7
+    Let y = 195: Call number6
+    Let y = 235: Call number5
+    Let y = 275: Call number4
+    Let y = 315: Call number3
+    Let y = 355: Call number2
+    Let y = 395: Call number1
+End Sub
+
+Sub draughtsboard
+    Line (120, 40)-(520, 440), cb2, BF
+    For x = 120 To 520 Step 40
+        Line (x, 40)-(x, 440), cb1
+    Next x
+    For y = 40 To 440 Step 40
+        Line (120, y)-(520, y), cb1
+    Next y
+    For y = 360 To 40 Step -80: For x = 440 To 120 Step -80
+        Line (x + 1, y + 1)-(x + 39, y + 39), cb3, BF
+        Line (x + 41, y + 41)-(x + 79, y + 79), cb3, BF
+    Next x: Next y
+    Let y = 445
+    Let x = 135: Call numberA
+    Let x = 175: Call numberB
+    Let x = 215: Call numberC
+    Let x = 255: Call numberD
+    Let x = 295: Call numberE
+    Let x = 335: Call numberF
+    Let x = 375: Call numberG
+    Let x = 415: Call numberH
+    Let x = 455: Call numberI
+    Let x = 495: Call numberJ
+    Let x = 105
+    Let y = 55: Call number0
+    Let y = 95: Call number9
+    Let y = 135: Call number8
+    Let y = 175: Call number7
+    Let y = 215: Call number6
+    Let y = 255: Call number5
+    Let y = 295: Call number4
+    Let y = 335: Call number3
+    Let y = 375: Call number2
+    Let y = 415: Call number1
+End Sub
+
+Sub chess
+
+    Rem 1st roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = 1
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = 1
+    Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
+
+    Do
+        Let count = count + 1
+        Let dc1 = Int(Rnd * 8 + 1)
+        Let dc2 = Int(Rnd * 8 + 1)
+        Let dc4 = Int(Rnd * 8 + 1)
+        Let dc5 = Int(Rnd * 8 + 1)
+        Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
+        If count > 8000 Then Exit Do
+    Loop While Abs(w1 - b1) < 10
+
+    Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
+    Let fw1x = dc1: Let fw1y = dc2: Let fb1x = dc4: Let fb1y = dc5
+    Let fw1 = dc3: Let fb1 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15: Call king
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0: Call king
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call chessfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 2nd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = Int(Rnd * 5 + 2)
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = Int(Rnd * 5 + 2)
+    Let w2 = board(dc2, dc1): Let b2 = board(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 = 1 Or dc2 = 8
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 = 1 Or dc5 = 8
+    End Select
+
+    Let w2 = board(dc2, dc1): Let b2 = board(dc5, dc4)
+    Let fw2x = dc1: Let fw2y = dc2: Let fb2x = dc4: Let fb2y = dc5
+    Let fw2 = dc3: Let fb2 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call pawn
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call pawn
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call chessfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 3rd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = Int(Rnd * 5 + 2)
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = Int(Rnd * 5 + 2)
+    Let w3 = board(dc2, dc1): Let b3 = board(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw3x = dc1: Let fw3y = dc2
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw3x = dc1: Let fw3y = dc2
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb3x = dc4: Let fb3y = dc5
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb3x = dc4: Let fb3y = dc5
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w3 = board(dc2, dc1): Let b3 = board(dc5, dc4)
+    Let fw3x = dc1: Let fw3y = dc2: Let fb3x = dc4: Let fb3y = dc5
+    Let fw3 = dc3: Let fb3 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call pawn
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call pawn
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call chessfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 4th roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = Int(Rnd * 5 + 2)
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = Int(Rnd * 5 + 2)
+    Let w4 = board(dc2, dc1): Let b4 = board(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw4x = dc1: Let fw4y = dc2
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw4x = dc1: Let fw4y = dc2
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb4x = dc4: Let fb4y = dc5
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb4x = dc4: Let fb4y = dc5
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w4 = board(dc2, dc1): Let b4 = board(dc5, dc4)
+    Let fw4x = dc1: Let fw4y = dc2: Let fb4x = dc4: Let fb4y = dc5
+    Let fw4 = dc3: Let fb4 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call pawn
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call pawn
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Rem
+            Case Is = Chr$(13)
+                Call chessfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+End Sub
+
+Sub makruk
+
+    Rem 1st roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = 1
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = 1
+    Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
+
+    Do
+        Let count = count + 1
+        Let dc1 = Int(Rnd * 8 + 1)
+        Let dc2 = Int(Rnd * 8 + 1)
+        Let dc4 = Int(Rnd * 8 + 1)
+        Let dc5 = Int(Rnd * 8 + 1)
+        Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
+        If count > 8000 Then Exit Do
+    Loop While Abs(w1 - b1) < 10
+
+    Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
+    Let fw1x = dc1: Let fw1y = dc2: Let fb1x = dc4: Let fb1y = dc5
+    Let fw1 = dc3: Let fb1 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15: Call king
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0: Call king
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call makrukfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 2nd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = Int(Rnd * 5 + 2)
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = Int(Rnd * 5 + 2)
+    Let w2 = board(dc2, dc1): Let b2 = board(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+            Let indexw3 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Let indexw4 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Let indexw5 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 < 3 Or dc2 > 5
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+            Let indexb3 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Let indexb4 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Let indexb5 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 < 4 Or dc5 > 6
+    End Select
+
+    Let w2 = board(dc2, dc1): Let b2 = board(dc5, dc4)
+    Let fw2x = dc1: Let fw2y = dc2: Let fb2x = dc4: Let fb2y = dc5
+    Let fw2 = dc3: Let fb2 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call checker
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call checker
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call makrukfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 3rd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = Int(Rnd * 5 + 2)
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = Int(Rnd * 5 + 2)
+    Let w3 = board(dc2, dc1): Let b3 = board(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let indexw3 = indexw3 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Let indexw4 = indexw4 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Let indexw5 = indexw5 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw3x = dc1: Let fw3y = dc2
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let indexb3 = indexb3 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Let indexb4 = indexb4 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Let indexb5 = indexb5 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb3x = dc4: Let fb3y = dc5
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w3 = board(dc2, dc1): Let b3 = board(dc5, dc4)
+    Let fw3x = dc1: Let fw3y = dc2: Let fb3x = dc4: Let fb3y = dc5
+    Let fw3 = dc3: Let fb3 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call checker
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call checker
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call makrukfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 4th roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = Int(Rnd * 5 + 2)
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = Int(Rnd * 5 + 2)
+    Let w4 = board(dc2, dc1): Let b4 = board(dc5, dc4)
+    If indexw3 > 2 Or indexw4 > 2 Or indexw5 > 2 Then Let dc3 = 6
+    If indexb3 > 2 Or indexb4 > 2 Or indexb5 > 2 Then Let dc6 = 6
+
+    Select Case dc3
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw4x = dc1: Let fw4y = dc2
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb4x = dc4: Let fb4y = dc5
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w4 = board(dc2, dc1): Let b4 = board(dc5, dc4)
+    Let fw4x = dc1: Let fw4y = dc2: Let fb4x = dc4: Let fb4y = dc5
+    Let fw4 = dc3: Let fb4 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call checker
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call checker
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Rem
+            Case Is = Chr$(13)
+                Call makrukfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+End Sub
+
+Sub xiangqi
+
+    Rem 1st roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 3 + 4)
+    Let dc2 = Int(Rnd * 3 + 1)
+    Let dc3 = 1
+    Let dc4 = Int(Rnd * 3 + 4)
+    Let dc5 = Int(Rnd * 3 + 8)
+    Let dc6 = 1
+    Let w1 = xiabo(dc2, dc1): Let b1 = xiabo(dc5, dc4)
+
+    Do
+        Let count = count + 1
+        Let dc1 = Int(Rnd * 3 + 4)
+        Let dc2 = Int(Rnd * 3 + 1)
+        Let dc4 = Int(Rnd * 3 + 4)
+        Let dc5 = Int(Rnd * 3 + 8)
+        Let w1 = xiabo(dc2, dc1): Let b1 = xiabo(dc5, dc4)
+        If count > 8000 Then Exit Do
+    Loop While w1 = b1
+
+    Let w1 = xiabo(dc2, dc1): Let b1 = xiabo(dc5, dc4)
+    Let fw1x = dc1: Let fw1y = dc2: Let fb1x = dc4: Let fb1y = dc5
+    Let fw1 = dc3: Let fb1 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call cannon
+    If dc3 = 7 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call cannon
+    If dc6 = 7 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15: Call king
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0: Call king
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call xiangqifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 2nd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 9 + 1)
+    Let dc2 = Int(Rnd * 10 + 1)
+    Let dc3 = Int(Rnd * 6 + 2)
+    Let dc4 = Int(Rnd * 9 + 1)
+    Let dc5 = Int(Rnd * 10 + 1)
+    Let dc6 = Int(Rnd * 6 + 2)
+    Let w2 = xiabo(dc2, dc1): Let b2 = xiabo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Let indexw2 = 1
+            Let dc1 = Int(Rnd * 3 + 4)
+            Let dc2 = Int(Rnd * 3 + 1)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                    Let dc1 = 4
+                    Let dc2 = 1
+                End If
+                If index = 2 Then
+                    Let dc1 = 6
+                    Let dc2 = 1
+                End If
+                If index = 3 Then
+                    Let dc1 = 5
+                    Let dc2 = 2
+                End If
+                If index = 4 Then
+                    Let dc1 = 4
+                    Let dc2 = 3
+                End If
+                If index = 5 Then
+                    Let dc1 = 6
+                    Let dc2 = 3
+                End If
+                Let w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or w2 Mod 2 <> 0
+        Case Is = 3
+            Let indexw3 = 1
+            Let dc1 = Int(Rnd * 9 + 1)
+            Let dc2 = Int(Rnd * 5 + 1)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                    Let dc1 = 3
+                    Let dc2 = 1
+                End If
+                If index = 2 Then
+                    Let dc1 = 7
+                    Let dc2 = 1
+                End If
+                If index = 3 Then
+                    Let dc1 = 1
+                    Let dc2 = 3
+                End If
+                If index = 4 Then
+                    Let dc1 = 5
+                    Let dc2 = 3
+                End If
+                If index = 5 Then
+                    Let dc1 = 9
+                    Let dc2 = 3
+                End If
+                If index = 6 Then
+                    Let dc1 = 3
+                    Let dc2 = 5
+                End If
+                If index = 7 Then
+                    Let dc1 = 7
+                    Let dc2 = 5
+                End If
+                Let w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Let indexw4 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Let indexw5 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Let indexw6 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 7
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 < 4 Or dc2 > 7
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Let indexb2 = 1
+            Let dc4 = Int(Rnd * 3 + 4)
+            Let dc5 = Int(Rnd * 3 + 8)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                    Let dc4 = 4
+                    Let dc5 = 10
+                End If
+                If index = 2 Then
+                    Let dc4 = 6
+                    Let dc5 = 10
+                End If
+                If index = 3 Then
+                    Let dc4 = 5
+                    Let dc5 = 9
+                End If
+                If index = 4 Then
+                    Let dc4 = 4
+                    Let dc5 = 8
+                End If
+                If index = 5 Then
+                    Let dc4 = 6
+                    Let dc5 = 8
+                End If
+                Let b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or b2 Mod 2 = 0
+        Case Is = 3
+            Let indexb3 = 1
+            Let dc4 = Int(Rnd * 9 + 1)
+            Let dc5 = Int(Rnd * 5 + 6)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                    Let dc4 = 3
+                    Let dc5 = 10
+                End If
+                If index = 2 Then
+                    Let dc4 = 7
+                    Let dc5 = 10
+                End If
+                If index = 3 Then
+                    Let dc4 = 1
+                    Let dc5 = 8
+                End If
+                If index = 4 Then
+                    Let dc4 = 5
+                    Let dc5 = 8
+                End If
+                If index = 5 Then
+                    Let dc4 = 9
+                    Let dc5 = 8
+                End If
+                If index = 6 Then
+                    Let dc4 = 3
+                    Let dc5 = 6
+                End If
+                If index = 7 Then
+                    Let dc4 = 7
+                    Let dc5 = 6
+                End If
+                Let b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or b2
+        Case Is = 4
+            Let indexb4 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Let indexb5 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Let indexb6 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 7
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 < 3 Or dc5 > 8
+    End Select
+
+    Let w2 = xiabo(dc2, dc1): Let b2 = xiabo(dc5, dc4)
+    Let fw2x = dc1: Let fw2y = dc2: Let fb2x = dc4: Let fb2y = dc5
+    Let fw2 = dc3: Let fb2 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call cannon
+    If dc3 = 7 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call cannon
+    If dc6 = 7 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call cannon
+    If dc3 = 7 Then Call pawn
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call cannon
+    If dc6 = 7 Then Call pawn
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call xiangqifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 3rd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 9 + 1)
+    Let dc2 = Int(Rnd * 10 + 1)
+    Let dc3 = Int(Rnd * 6 + 2)
+    Let dc4 = Int(Rnd * 9 + 1)
+    Let dc5 = Int(Rnd * 10 + 1)
+    Let dc6 = Int(Rnd * 6 + 2)
+    Let w3 = xiabo(dc2, dc1): Let b3 = xiabo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Let indexw2 = indexw2 + 1
+            Let dc1 = Int(Rnd * 3 + 4)
+            Let dc2 = Int(Rnd * 3 + 1)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                    Let dc1 = 4
+                    Let dc2 = 1
+                End If
+                If index = 2 Then
+                    Let dc1 = 6
+                    Let dc2 = 1
+                End If
+                If index = 3 Then
+                    Let dc1 = 5
+                    Let dc2 = 2
+                End If
+                If index = 4 Then
+                    Let dc1 = 4
+                    Let dc2 = 3
+                End If
+                If index = 5 Then
+                    Let dc1 = 6
+                    Let dc2 = 3
+                End If
+                Let w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let indexw3 = indexw3 + 1
+            Let dc1 = Int(Rnd * 9 + 1)
+            Let dc2 = Int(Rnd * 5 + 1)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                    Let dc1 = 3
+                    Let dc2 = 1
+                End If
+                If index = 2 Then
+                    Let dc1 = 7
+                    Let dc2 = 1
+                End If
+                If index = 3 Then
+                    Let dc1 = 1
+                    Let dc2 = 3
+                End If
+                If index = 4 Then
+                    Let dc1 = 5
+                    Let dc2 = 3
+                End If
+                If index = 5 Then
+                    Let dc1 = 9
+                    Let dc2 = 3
+                End If
+                If index = 6 Then
+                    Let dc1 = 3
+                    Let dc2 = 5
+                End If
+                If index = 7 Then
+                    Let dc1 = 7
+                    Let dc2 = 5
+                End If
+                Let w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Let indexw4 = indexw4 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Let indexw5 = indexw5 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let fw3x = dc1: Let fw3y = dc2
+                Let w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Let indexw6 = indexw6 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let fw3x = dc1: Let fw3y = dc2
+                Let w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Let indexb2 = indexb2 + 1
+            Let dc4 = Int(Rnd * 3 + 4)
+            Let dc5 = Int(Rnd * 3 + 8)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                    Let dc4 = 4
+                    Let dc5 = 10
+                End If
+                If index = 2 Then
+                    Let dc4 = 6
+                    Let dc5 = 10
+                End If
+                If index = 3 Then
+                    Let dc4 = 5
+                    Let dc5 = 9
+                End If
+                If index = 4 Then
+                    Let dc4 = 4
+                    Let dc5 = 8
+                End If
+                If index = 5 Then
+                    Let dc4 = 6
+                    Let dc5 = 8
+                End If
+                Let b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let indexb3 = indexb3 + 1
+            Let dc4 = Int(Rnd * 9 + 1)
+            Let dc5 = Int(Rnd * 5 + 6)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                    Let dc4 = 3
+                    Let dc5 = 10
+                End If
+                If index = 2 Then
+                    Let dc4 = 7
+                    Let dc5 = 10
+                End If
+                If index = 3 Then
+                    Let dc4 = 1
+                    Let dc5 = 8
+                End If
+                If index = 4 Then
+                    Let dc4 = 5
+                    Let dc5 = 8
+                End If
+                If index = 5 Then
+                    Let dc4 = 9
+                    Let dc5 = 8
+                End If
+                If index = 6 Then
+                    Let dc4 = 3
+                    Let dc5 = 6
+                End If
+                If index = 7 Then
+                    Let dc4 = 7
+                    Let dc5 = 6
+                End If
+                Let b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Let indexb4 = indexb4 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Let indexb5 = indexb5 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let fb3x = dc4: Let fb3y = dc5
+                Let b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Let indexb6 = indexb6 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let fb3x = dc4: Let fb3y = dc5
+                Let b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w3 = xiabo(dc2, dc1): Let b3 = xiabo(dc5, dc4)
+    Let fw3x = dc1: Let fw3y = dc2: Let fb3x = dc4: Let fb3y = dc5
+    Let fw3 = dc3: Let fb3 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call cannon
+    If dc3 = 7 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call cannon
+    If dc6 = 7 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call cannon
+    If dc3 = 7 Then Call pawn
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call cannon
+    If dc6 = 7 Then Call pawn
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call xiangqifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 4th roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 9 + 1)
+    Let dc2 = Int(Rnd * 10 + 1)
+    Let dc3 = Int(Rnd * 6 + 2)
+    Let dc4 = Int(Rnd * 9 + 1)
+    Let dc5 = Int(Rnd * 10 + 1)
+    Let dc6 = Int(Rnd * 6 + 2)
+    Let w4 = xiabo(dc2, dc1): Let b2 = xiabo(dc5, dc4)
+    If indexw2 > 2 Or indexw3 > 2 Or indexw4 > 2 Or indexw5 > 2 Or indexw6 > 2 Then dc3 = 7
+    If indexb2 > 2 Or indexb3 > 2 Or indexb4 > 2 Or indexb5 > 2 Or indexb6 > 2 Then dc6 = 7
+
+    Select Case dc3
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Let dc1 = Int(Rnd * 3 + 4)
+            Let dc2 = Int(Rnd * 3 + 1)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                    Let dc1 = 4
+                    Let dc2 = 1
+                End If
+                If index = 2 Then
+                    Let dc1 = 6
+                    Let dc2 = 1
+                End If
+                If index = 3 Then
+                    Let dc1 = 5
+                    Let dc2 = 2
+                End If
+                If index = 4 Then
+                    Let dc1 = 4
+                    Let dc2 = 3
+                End If
+                If index = 5 Then
+                    Let dc1 = 6
+                    Let dc2 = 3
+                End If
+                Let w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let dc1 = Int(Rnd * 9 + 1)
+            Let dc2 = Int(Rnd * 5 + 1)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                    Let dc1 = 3
+                    Let dc2 = 1
+                End If
+                If index = 2 Then
+                    Let dc1 = 7
+                    Let dc2 = 1
+                End If
+                If index = 3 Then
+                    Let dc1 = 1
+                    Let dc2 = 3
+                End If
+                If index = 4 Then
+                    Let dc1 = 5
+                    Let dc2 = 3
+                End If
+                If index = 5 Then
+                    Let dc1 = 9
+                    Let dc2 = 3
+                End If
+                If index = 6 Then
+                    Let dc1 = 3
+                    Let dc2 = 5
+                End If
+                If index = 7 Then
+                    Let dc1 = 7
+                    Let dc2 = 5
+                End If
+                Let w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let fw4x = dc1: Let fw4y = dc2
+                Let w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let fw4x = dc1: Let fw4y = dc2
+                Let w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Let dc4 = Int(Rnd * 3 + 4)
+            Let dc5 = Int(Rnd * 3 + 8)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                    Let dc4 = 4
+                    Let dc5 = 10
+                End If
+                If index = 2 Then
+                    Let dc4 = 6
+                    Let dc5 = 10
+                End If
+                If index = 3 Then
+                    Let dc4 = 5
+                    Let dc5 = 9
+                End If
+                If index = 4 Then
+                    Let dc4 = 4
+                    Let dc5 = 8
+                End If
+                If index = 5 Then
+                    Let dc4 = 6
+                    Let dc5 = 8
+                End If
+                Let b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let dc4 = Int(Rnd * 9 + 1)
+            Let dc5 = Int(Rnd * 5 + 6)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                    Let dc4 = 3
+                    Let dc5 = 10
+                End If
+                If index = 2 Then
+                    Let dc4 = 7
+                    Let dc5 = 10
+                End If
+                If index = 3 Then
+                    Let dc4 = 1
+                    Let dc5 = 8
+                End If
+                If index = 4 Then
+                    Let dc4 = 5
+                    Let dc5 = 8
+                End If
+                If index = 5 Then
+                    Let dc4 = 9
+                    Let dc5 = 8
+                End If
+                If index = 6 Then
+                    Let dc4 = 3
+                    Let dc5 = 6
+                End If
+                If index = 7 Then
+                    Let dc4 = 7
+                    Let dc5 = 6
+                End If
+                Let b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let fb4x = dc4: Let fb4y = dc5
+                Let b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let fb4x = dc4: Let fb4y = dc5
+                Let b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w4 = xiabo(dc2, dc1): Let b4 = xiabo(dc5, dc4)
+    Let fw4x = dc1: Let fw4y = dc2: Let fb4x = dc4: Let fb4y = dc5
+    Let fw4 = dc3: Let fb4 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call cannon
+    If dc3 = 7 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call cannon
+    If dc6 = 7 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call cannon
+    If dc3 = 7 Then Call pawn
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call cannon
+    If dc6 = 7 Then Call pawn
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Rem
+            Case Is = Chr$(13)
+                Call xiangqifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+End Sub
+
+Sub shogi
+
+    Rem 1st roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 9 + 1)
+    Let dc2 = Int(Rnd * 9 + 1)
+    Let dc3 = 1
+    Let dc4 = Int(Rnd * 9 + 1)
+    Let dc5 = Int(Rnd * 9 + 1)
+    Let dc6 = 1
+    Let w1 = shobo(dc2, dc1): Let b1 = shobo(dc5, dc4)
+
+    Do
+        Let count = count + 1
+        Let dc1 = Int(Rnd * 9 + 1)
+        Let dc2 = Int(Rnd * 9 + 1)
+        Let dc4 = Int(Rnd * 9 + 1)
+        Let dc5 = Int(Rnd * 9 + 1)
+        Let w1 = shobo(dc2, dc1): Let b1 = shobo(dc5, dc4)
+        If count > 8000 Then Exit Do
+    Loop While Abs(w1 - b1) < 11
+
+    Let w1 = shobo(dc2, dc1): Let b1 = shobo(dc5, dc4)
+    Let fw1x = dc1: Let fw1y = dc2: Let fb1x = dc4: Let fb1y = dc5
+    Let fw1 = dc3: Let fb1 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call general
+    If dc3 = 4 Then Call bishop
+    If dc3 = 5 Then Call knight
+    If dc3 = 6 Then Call rook
+    If dc3 = 7 Then Call lance
+    If dc3 = 8 Then Call pawn
+    If dc3 = 9 Then Call tokin
+    If dc3 = 10 Then Call dragon
+    If dc3 = 11 Then Call horse
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call general
+    If dc6 = 4 Then Call bishop
+    If dc6 = 5 Then Call knight
+    If dc6 = 6 Then Call rook
+    If dc6 = 7 Then Call lance
+    If dc6 = 8 Then Call pawn
+    If dc6 = 9 Then Call tokin
+    If dc6 = 10 Then Call dragon
+    If dc6 = 11 Then Call horse
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 60
+    Let cf = 15: Call king
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 60
+    Let cf = 0: Call king
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call shogifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 2nd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 9 + 1)
+    Let dc2 = Int(Rnd * 9 + 1)
+    Let dc3 = Int(Rnd * 10 + 2)
+    Let dc4 = Int(Rnd * 9 + 1)
+    Let dc5 = Int(Rnd * 9 + 1)
+    Let dc6 = Int(Rnd * 10 + 2)
+    Let w2 = shobo(dc2, dc1): Let b2 = shobo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+            Let indexw3 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Let indexw4 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Let indexw5 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+                Let indexw6 = 1
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 7
+            Let indexw7 = 1
+            Let index = Int(Rnd * 2 + 1)
+            If index = 1 Then Let dc1 = 1 Else Let dc1 = 9
+            If dc1 = 1 Then Let indexw71 = 1 Else Let indexw72 = 1
+            Do
+                Let count = count + 1
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 8
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 < 3 Or dc2 > 7
+        Case Is = 9
+            Let indexw9 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 10
+            Let indexw10 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 11
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+            Let indexb3 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Let indexb4 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Let indexb5 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+                Let indexb6 = 1
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 7
+            Let indexb7 = 1
+            Let index = Int(Rnd * 2 + 1)
+            If index = 1 Then Let dc4 = 1 Else Let dc4 = 9
+            If dc4 = 1 Then Let indexb71 = 1 Else Let indexb72 = 1
+            Do
+                Let count = count + 1
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 8
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 < 3 Or dc5 > 7
+        Case Is = 9
+            Let indexb9 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 10
+            Let indexb10 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 11
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+    End Select
+
+    Let w2 = shobo(dc2, dc1): Let b2 = shobo(dc5, dc4)
+    Let fw2x = dc1: Let fw2y = dc2: Let fb2x = dc4: Let fb2y = dc5
+    Let fw2 = dc3: Let fb2 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call general
+    If dc3 = 4 Then Call bishop
+    If dc3 = 5 Then Call knight
+    If dc3 = 6 Then Call rook
+    If dc3 = 7 Then Call lance
+    If dc3 = 8 Then Call pawn
+    If dc3 = 9 Then Call horse
+    If dc3 = 10 Then Call dragon
+    If dc3 = 11 Then Call tokin
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call general
+    If dc6 = 4 Then Call bishop
+    If dc6 = 5 Then Call knight
+    If dc6 = 6 Then Call rook
+    If dc6 = 7 Then Call lance
+    If dc6 = 8 Then Call pawn
+    If dc6 = 9 Then Call horse
+    If dc6 = 10 Then Call dragon
+    If dc6 = 11 Then Call tokin
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 60
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call general
+    If dc3 = 4 Then Call bishop
+    If dc3 = 5 Then Call knight
+    If dc3 = 6 Then Call rook
+    If dc3 = 7 Then Call lance
+    If dc3 = 8 Then Call pawn
+    If dc3 = 9 Then Call horse
+    If dc3 = 10 Then Call dragon
+    If dc3 = 11 Then Call tokin
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 60
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call general
+    If dc6 = 4 Then Call bishop
+    If dc6 = 5 Then Call knight
+    If dc6 = 6 Then Call rook
+    If dc6 = 7 Then Call lance
+    If dc6 = 8 Then Call pawn
+    If dc6 = 9 Then Call horse
+    If dc6 = 10 Then Call dragon
+    If dc6 = 11 Then Call tokin
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call shogifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 3rd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 9 + 1)
+    Let dc2 = Int(Rnd * 9 + 1)
+    Let dc3 = Int(Rnd * 10 + 2)
+    Let dc4 = Int(Rnd * 9 + 1)
+    Let dc5 = Int(Rnd * 9 + 1)
+    Let dc6 = Int(Rnd * 10 + 2)
+    Let w3 = shobo(dc2, dc1): Let b3 = shobo(dc5, dc4)
+    If dc3 = 4 Then Let indexw4 = indexw4 + 1
+    If dc3 = 6 Then Let indexw6 = indexw6 + 1
+    If dc3 = 9 Then Let indexw9 = indexw9 + 1
+    If dc3 = 10 Then Let indexw10 = indexw10 + 1
+    If indexw4 > 1 Then
+        Let dc3 = 8
+        Let indexw4 = indexw4 - 1
+    End If
+    If indexw6 > 1 Then
+        Let dc3 = 8
+        Let indexw6 = indexw4 - 1
+    End If
+    If indexw9 > 1 Then
+        Let dc3 = 8
+        Let indexw9 = indexw4 - 1
+    End If
+    If indexw10 > 1 Then
+        Let dc3 = 8
+        Let indexw10 = indexw4 - 1
+    End If
+    If indexb4 > 1 Then
+        Let dc6 = 8
+        Let indexb4 = indexb4 - 1
+    End If
+    If indexb6 > 1 Then
+        Let dc6 = 8
+        Let indexb6 = indexb4 - 1
+    End If
+    If indexb9 > 1 Then
+        Let dc6 = 8
+        Let indexb9 = indexb4 - 1
+    End If
+    If indexb10 > 1 Then
+        Let dc6 = 8
+        Let indexb10 = indexb4 - 1
+    End If
+
+    Select Case dc3
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let indexw3 = indexw3 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Let indexw4 = indexw4 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Let indexw5 = indexw5 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Let indexw6 = indexw6 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Let indexw7 = indexw7 + 1
+            Let index = Int(Rnd * 2 + 1)
+            If index = 1 Then Let dc1 = 1 Else Let dc1 = 9
+            If indexw71 = 1 Then dc1 = 9
+            If indexw72 = 1 Then dc1 = 1
+            Do
+                Let count = count + 1
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 8
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 9
+            Let indexw9 = indexw9 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 10
+            Let indexw10 = indexw10 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 11
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let indexb3 = indexb3 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Let indexb4 = indexb4 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Let indexb5 = indexb5 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Let indexb6 = indexb6 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Let indexb7 = indexb7 + 1
+            Let index = Int(Rnd * 2 + 1)
+            If index = 1 Then Let dc4 = 1 Else Let dc4 = 9
+            If indexb71 = 1 Then dc4 = 9
+            If indexb72 = 1 Then dc4 = 1
+            Do
+                Let count = count + 1
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 8
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 9
+            Let indexb9 = indexb9 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 10
+            Let indexb10 = indexb10 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 11
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w3 = shobo(dc2, dc1): Let b3 = shobo(dc5, dc4)
+    Let fw3x = dc1: Let fw3y = dc2: Let fb3x = dc4: Let fb3y = dc5
+    Let fw3 = dc3: Let fb3 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call general
+    If dc3 = 4 Then Call bishop
+    If dc3 = 5 Then Call knight
+    If dc3 = 6 Then Call rook
+    If dc3 = 7 Then Call lance
+    If dc3 = 8 Then Call pawn
+    If dc3 = 9 Then Call horse
+    If dc3 = 10 Then Call dragon
+    If dc3 = 11 Then Call tokin
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call general
+    If dc6 = 4 Then Call bishop
+    If dc6 = 5 Then Call knight
+    If dc6 = 6 Then Call rook
+    If dc6 = 7 Then Call lance
+    If dc6 = 8 Then Call pawn
+    If dc6 = 9 Then Call horse
+    If dc6 = 10 Then Call dragon
+    If dc6 = 11 Then Call tokin
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 60
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call general
+    If dc3 = 4 Then Call bishop
+    If dc3 = 5 Then Call knight
+    If dc3 = 6 Then Call rook
+    If dc3 = 7 Then Call lance
+    If dc3 = 8 Then Call pawn
+    If dc3 = 9 Then Call horse
+    If dc3 = 10 Then Call dragon
+    If dc3 = 11 Then Call tokin
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 60
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call general
+    If dc6 = 4 Then Call bishop
+    If dc6 = 5 Then Call knight
+    If dc6 = 6 Then Call rook
+    If dc6 = 7 Then Call lance
+    If dc6 = 8 Then Call pawn
+    If dc6 = 9 Then Call horse
+    If dc6 = 10 Then Call dragon
+    If dc6 = 11 Then Call tokin
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call shogifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 4th roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 9 + 1)
+    Let dc2 = Int(Rnd * 9 + 1)
+    Let dc3 = Int(Rnd * 10 + 2)
+    Let dc4 = Int(Rnd * 9 + 1)
+    Let dc5 = Int(Rnd * 9 + 1)
+    Let dc6 = Int(Rnd * 10 + 2)
+    Let w4 = shobo(dc2, dc1): Let b4 = shobo(dc5, dc4)
+    If dc3 = 4 Then Let indexw4 = indexw4 + 1
+    If dc3 = 6 Then Let indexw6 = indexw6 + 1
+    If dc3 = 9 Then Let indexw9 = indexw9 + 1
+    If dc3 = 10 Then Let indexw10 = indexw10 + 1
+    If indexw4 > 1 Then
+        Let dc3 = 8
+        Let indexw4 = indexw4 - 1
+    End If
+    If indexw6 > 1 Then
+        Let dc3 = 8
+        Let indexw6 = indexw4 - 1
+    End If
+    If indexw9 > 1 Then
+        Let dc3 = 8
+        Let indexw9 = indexw4 - 1
+    End If
+    If indexw10 > 1 Then
+        Let dc3 = 8
+        Let indexw10 = indexw4 - 1
+    End If
+    If indexb4 > 1 Then
+        Let dc6 = 8
+        Let indexb4 = indexb4 - 1
+    End If
+    If indexb6 > 1 Then
+        Let dc6 = 8
+        Let indexb6 = indexb4 - 1
+    End If
+    If indexb9 > 1 Then
+        Let dc6 = 8
+        Let indexb9 = indexb4 - 1
+    End If
+    If indexb10 > 1 Then
+        Let dc6 = 8
+        Let indexb10 = indexb4 - 1
+    End If
+    If indexw3 > 2 Or indexw5 > 2 Or indexw7 > 2 Then Let dc3 = 8
+    If indexb3 > 2 Or indexb5 > 2 Or indexb7 > 2 Then Let dc6 = 8
+
+    Select Case dc3
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Let index = Int(Rnd * 2 + 1)
+            If index = 1 Then Let dc1 = 1 Else Let dc1 = 9
+            If indexw71 = 1 Then dc1 = 9
+            If indexw72 = 1 Then dc1 = 1
+            Do
+                Let count = count + 1
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 8
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 9
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 10
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 11
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Rem
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Let index = Int(Rnd * 2 + 1)
+            If index = 1 Then Let dc4 = 1 Else Let dc4 = 9
+            If indexb71 = 1 Then dc4 = 9
+            If indexb72 = 1 Then dc4 = 1
+            Do
+                Let count = count + 1
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 8
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 9
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 10
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 11
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w4 = shobo(dc2, dc1): Let b4 = shobo(dc5, dc4)
+    Let fw4x = dc1: Let fw4y = dc2: Let fb4x = dc4: Let fb4y = dc5
+    Let fw4 = dc3: Let fb4 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call general
+    If dc3 = 4 Then Call bishop
+    If dc3 = 5 Then Call knight
+    If dc3 = 6 Then Call rook
+    If dc3 = 7 Then Call lance
+    If dc3 = 8 Then Call pawn
+    If dc3 = 9 Then Call horse
+    If dc3 = 10 Then Call dragon
+    If dc3 = 11 Then Call tokin
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call general
+    If dc6 = 4 Then Call bishop
+    If dc6 = 5 Then Call knight
+    If dc6 = 6 Then Call rook
+    If dc6 = 7 Then Call lance
+    If dc6 = 8 Then Call pawn
+    If dc6 = 9 Then Call horse
+    If dc6 = 10 Then Call dragon
+    If dc6 = 11 Then Call tokin
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 60
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call general
+    If dc3 = 4 Then Call bishop
+    If dc3 = 5 Then Call knight
+    If dc3 = 6 Then Call rook
+    If dc3 = 7 Then Call lance
+    If dc3 = 8 Then Call pawn
+    If dc3 = 9 Then Call horse
+    If dc3 = 10 Then Call dragon
+    If dc3 = 11 Then Call tokin
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 60
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call general
+    If dc6 = 4 Then Call bishop
+    If dc6 = 5 Then Call knight
+    If dc6 = 6 Then Call rook
+    If dc6 = 7 Then Call lance
+    If dc6 = 8 Then Call pawn
+    If dc6 = 9 Then Call horse
+    If dc6 = 10 Then Call dragon
+    If dc6 = 11 Then Call tokin
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Rem
+            Case Is = Chr$(13)
+                Call shogifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+End Sub
+
+Sub draughts
+
+    Rem 1st roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 10 + 1)
+    Let dc2 = Int(Rnd * 10 + 1)
+    Let dc3 = Int(Rnd * 2 + 1)
+    Let dc4 = Int(Rnd * 10 + 1)
+    Let dc5 = Int(Rnd * 10 + 1)
+    Let dc6 = Int(Rnd * 2 + 1)
+    Let w1 = drabo(dc2, dc1): Let b1 = drabo(dc5, dc4)
+
+    Do
+        Do
+            Let count = count + 1
+            Let dc1 = Int(Rnd * 8 + 1)
+            Let dc2 = Int(Rnd * 8 + 1)
+            Let dc4 = Int(Rnd * 8 + 1)
+            Let dc5 = Int(Rnd * 8 + 1)
+            Let w1 = drabo(dc2, dc1): Let b1 = drabo(dc5, dc4)
+            If count > 8000 Then Exit Do
+        Loop Until w1 Mod 2 <> 0 And b1 Mod 2 <> 0
+        Let count = count + 1
+        If count > 8000 Then Exit Do
+    Loop While w1 = b1
+
+    Let w1 = drabo(dc2, dc1): Let b1 = drabo(dc5, dc4)
+    Let fw1x = dc1: Let fw1y = dc2: Let fb1x = dc4: Let fb1y = dc5
+    Let fw1 = dc3: Let fb1 = dc6
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    If dc1 = 10 Then Call letterJ
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    If dc4 = 10 Then Call letterJ
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 80: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = (dc4 * 40) + 80: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call draughtsfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 2nd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 10 + 1)
+    Let dc2 = Int(Rnd * 10 + 1)
+    Let dc3 = Int(Rnd * 2 + 1)
+    Let dc4 = Int(Rnd * 10 + 1)
+    Let dc5 = Int(Rnd * 10 + 1)
+    Let dc6 = Int(Rnd * 2 + 1)
+    Let w2 = drabo(dc2, dc1): Let b2 = drabo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc1 = Int(Rnd * 10 + 1)
+                    Let dc2 = Int(Rnd * 10 + 1)
+                    Let w2 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w2 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 2
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc1 = Int(Rnd * 10 + 1)
+                    Let dc2 = Int(Rnd * 10 + 1)
+                    Let w2 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w2 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc4 = Int(Rnd * 10 + 1)
+                    Let dc5 = Int(Rnd * 10 + 1)
+                    Let b2 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b2 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 2
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc4 = Int(Rnd * 10 + 1)
+                    Let dc5 = Int(Rnd * 10 + 1)
+                    Let b2 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b2 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+    End Select
+
+    Let w2 = drabo(dc2, dc1): Let b2 = drabo(dc5, dc4)
+    Let fw2x = dc1: Let fw2y = dc2: Let fb2x = dc4: Let fb2y = dc5
+    Let fw2 = dc3: Let fb2 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    If dc1 = 10 Then Call letterJ
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    If dc4 = 10 Then Call letterJ
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 80: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = (dc4 * 40) + 80: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call draughtsfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 3rd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 10 + 1)
+    Let dc2 = Int(Rnd * 10 + 1)
+    Let dc3 = Int(Rnd * 2 + 1)
+    Let dc4 = Int(Rnd * 10 + 1)
+    Let dc5 = Int(Rnd * 10 + 1)
+    Let dc6 = Int(Rnd * 2 + 1)
+    Let w3 = drabo(dc2, dc1): Let b3 = drabo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc1 = Int(Rnd * 10 + 1)
+                    Let dc2 = Int(Rnd * 10 + 1)
+                    Let w3 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w3 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 2
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc1 = Int(Rnd * 10 + 1)
+                    Let dc2 = Int(Rnd * 10 + 1)
+                    Let w3 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w3 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc4 = Int(Rnd * 10 + 1)
+                    Let dc5 = Int(Rnd * 10 + 1)
+                    Let b3 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b3 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 2
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc4 = Int(Rnd * 10 + 1)
+                    Let dc5 = Int(Rnd * 10 + 1)
+                    Let b3 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b3 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w3 = drabo(dc2, dc1): Let b3 = drabo(dc5, dc4)
+    Let fw3x = dc1: Let fw3y = dc2: Let fb3x = dc4: Let fb3y = dc5
+    Let fw3 = dc3: Let fb3 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    If dc1 = 10 Then Call letterJ
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    If dc4 = 10 Then Call letterJ
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 80: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = (dc4 * 40) + 80: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call draughtsfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 4th roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 10 + 1)
+    Let dc2 = Int(Rnd * 10 + 1)
+    Let dc3 = Int(Rnd * 2 + 1)
+    Let dc4 = Int(Rnd * 10 + 1)
+    Let dc5 = Int(Rnd * 10 + 1)
+    Let dc6 = Int(Rnd * 2 + 1)
+    Let w4 = drabo(dc2, dc1): Let b4 = drabo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc1 = Int(Rnd * 10 + 1)
+                    Let dc2 = Int(Rnd * 10 + 1)
+                    Let w4 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w4 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 2
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc1 = Int(Rnd * 10 + 1)
+                    Let dc2 = Int(Rnd * 10 + 1)
+                    Let w4 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w4 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc4 = Int(Rnd * 10 + 1)
+                    Let dc5 = Int(Rnd * 10 + 1)
+                    Let b4 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b4 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 2
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc4 = Int(Rnd * 10 + 1)
+                    Let dc5 = Int(Rnd * 10 + 1)
+                    Let b4 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b4 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w4 = drabo(dc2, dc1): Let b4 = drabo(dc5, dc4)
+    Let fw4x = dc1: Let fw4y = dc2: Let fb4x = dc4: Let fb4y = dc5
+    Let fw4 = dc3: Let fb4 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    If dc1 = 10 Then Call letterJ
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    If dc4 = 10 Then Call letterJ
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 80: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = (dc4 * 40) + 80: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Rem
+            Case Is = Chr$(13)
+                Call draughtsfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+End Sub
+
+Sub chessfen
+
+    Rem Forsyth-Edwards notation
+
+    If fw1 = 1 Then Let fig1w$ = "K"
+    If fw1 = 2 Then Let fig1w$ = "Q"
+    If fw1 = 3 Then Let fig1w$ = "B"
+    If fw1 = 4 Then Let fig1w$ = "N"
+    If fw1 = 5 Then Let fig1w$ = "R"
+    If fw1 = 6 Then Let fig1w$ = "P"
+
+    If fb1 = 1 Then Let fig1b$ = "k"
+    If fb1 = 2 Then Let fig1b$ = "q"
+    If fb1 = 3 Then Let fig1b$ = "b"
+    If fb1 = 4 Then Let fig1b$ = "n"
+    If fb1 = 5 Then Let fig1b$ = "r"
+    If fb1 = 6 Then Let fig1b$ = "p"
+
+    If fw2 = 1 Then Let fig2w$ = "K"
+    If fw2 = 2 Then Let fig2w$ = "Q"
+    If fw2 = 3 Then Let fig2w$ = "B"
+    If fw2 = 4 Then Let fig2w$ = "N"
+    If fw2 = 5 Then Let fig2w$ = "R"
+    If fw2 = 6 Then Let fig2w$ = "P"
+
+    If fb2 = 1 Then Let fig2b$ = "k"
+    If fb2 = 2 Then Let fig2b$ = "q"
+    If fb2 = 3 Then Let fig2b$ = "b"
+    If fb2 = 4 Then Let fig2b$ = "n"
+    If fb2 = 5 Then Let fig2b$ = "r"
+    If fb2 = 6 Then Let fig2b$ = "p"
+
+    If fw3 = 1 Then Let fig3w$ = "K"
+    If fw3 = 2 Then Let fig3w$ = "Q"
+    If fw3 = 3 Then Let fig3w$ = "B"
+    If fw3 = 4 Then Let fig3w$ = "N"
+    If fw3 = 5 Then Let fig3w$ = "R"
+    If fw3 = 6 Then Let fig3w$ = "P"
+
+    If fb3 = 1 Then Let fig3b$ = "k"
+    If fb3 = 2 Then Let fig3b$ = "q"
+    If fb3 = 3 Then Let fig3b$ = "b"
+    If fb3 = 4 Then Let fig3b$ = "n"
+    If fb3 = 5 Then Let fig3b$ = "r"
+    If fb3 = 6 Then Let fig3b$ = "p"
+
+    If fw4 = 1 Then Let fig4w$ = "K"
+    If fw4 = 2 Then Let fig4w$ = "Q"
+    If fw4 = 3 Then Let fig4w$ = "B"
+    If fw4 = 4 Then Let fig4w$ = "N"
+    If fw4 = 5 Then Let fig4w$ = "R"
+    If fw4 = 6 Then Let fig4w$ = "P"
+
+    If fb4 = 1 Then Let fig4b$ = "k"
+    If fb4 = 2 Then Let fig4b$ = "q"
+    If fb4 = 3 Then Let fig4b$ = "b"
+    If fb4 = 4 Then Let fig4b$ = "n"
+    If fb4 = 5 Then Let fig4b$ = "r"
+    If fb4 = 6 Then Let fig4b$ = "p"
+
+    Dim table(8, 8) As String
+    Let table(fw1y, fw1x) = fig1w$
+    Let table(fb1y, fb1x) = fig1b$
+    Let table(fw2y, fw2x) = fig2w$
+    Let table(fb2y, fb2x) = fig2b$
+    Let table(fw3y, fw3x) = fig3w$
+    Let table(fb3y, fb3x) = fig3b$
+    Let table(fw4y, fw4x) = fig4w$
+    Let table(fb4y, fb4x) = fig4b$
+    For row = 1 To 8: For col = 1 To 8
+        If table(row, col) = "" Then Let table(row, col) = "+"
+    Next col: Next row
+
+    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)
+    Let lin1$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+            lin1$ = lin1$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
+            lin1$ = lin1$ + LTrim$(Str$(count))
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin2$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+            lin2$ = lin2$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
+            lin2$ = lin2$ + LTrim$(Str$(count))
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin3$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+            lin3$ = lin3$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
+            lin3$ = lin3$ + LTrim$(Str$(count))
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin4$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+            lin4$ = lin4$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
+            lin4$ = lin4$ + LTrim$(Str$(count))
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin5$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+            lin5$ = lin5$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
+            lin5$ = lin5$ + LTrim$(Str$(count))
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin6$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+            lin6$ = lin6$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
+            lin6$ = lin6$ + LTrim$(Str$(count))
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin7$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+            lin7$ = lin7$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
+            lin7$ = lin7$ + LTrim$(Str$(count))
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin8$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+            lin8$ = lin8$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
+            lin8$ = lin8$ + LTrim$(Str$(count))
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    Let fen$ = lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
+
+    Color 10
+    Locate 2, 1: Print "              Press any key to display the Forsyth-Edwards notation                    "
+    Do
+    Loop Until InKey$ <> ""
+    Locate 2, 1: Print "                                                                                       "
+    Color 12
+    Locate 2, 28: Print fen$
+
+    Do
+    Loop Until InKey$ <> ""
+
+    System
+
+End Sub
+
+Sub makrukfen
+
+    Rem Forsyth-Edwards notation
+
+    If fw1 = 1 Then Let fig1w$ = "L"
+    If fw1 = 2 Then Let fig1w$ = "S"
+    If fw1 = 3 Then Let fig1w$ = "N"
+    If fw1 = 4 Then Let fig1w$ = "H"
+    If fw1 = 5 Then Let fig1w$ = "B"
+    If fw1 = 6 Then Let fig1w$ = "C"
+
+    If fb1 = 1 Then Let fig1b$ = "l"
+    If fb1 = 2 Then Let fig1b$ = "s"
+    If fb1 = 3 Then Let fig1b$ = "n"
+    If fb1 = 4 Then Let fig1b$ = "h"
+    If fb1 = 5 Then Let fig1b$ = "b"
+    If fb1 = 6 Then Let fig1b$ = "c"
+
+    If fw2 = 1 Then Let fig2w$ = "L"
+    If fw2 = 2 Then Let fig2w$ = "S"
+    If fw2 = 3 Then Let fig2w$ = "N"
+    If fw2 = 4 Then Let fig2w$ = "H"
+    If fw2 = 5 Then Let fig2w$ = "B"
+    If fw2 = 6 Then Let fig2w$ = "C"
+
+    If fb2 = 1 Then Let fig2b$ = "l"
+    If fb2 = 2 Then Let fig2b$ = "s"
+    If fb2 = 3 Then Let fig2b$ = "n"
+    If fb2 = 4 Then Let fig2b$ = "h"
+    If fb2 = 5 Then Let fig2b$ = "b"
+    If fb2 = 6 Then Let fig2b$ = "c"
+
+    If fw3 = 1 Then Let fig3w$ = "L"
+    If fw3 = 2 Then Let fig3w$ = "S"
+    If fw3 = 3 Then Let fig3w$ = "N"
+    If fw3 = 4 Then Let fig3w$ = "H"
+    If fw3 = 5 Then Let fig3w$ = "B"
+    If fw3 = 6 Then Let fig3w$ = "C"
+
+    If fb3 = 1 Then Let fig3b$ = "l"
+    If fb3 = 2 Then Let fig3b$ = "s"
+    If fb3 = 3 Then Let fig3b$ = "n"
+    If fb3 = 4 Then Let fig3b$ = "h"
+    If fb3 = 5 Then Let fig3b$ = "b"
+    If fb3 = 6 Then Let fig3b$ = "c"
+
+    If fw4 = 1 Then Let fig4w$ = "L"
+    If fw4 = 2 Then Let fig4w$ = "S"
+    If fw4 = 3 Then Let fig4w$ = "N"
+    If fw4 = 4 Then Let fig4w$ = "H"
+    If fw4 = 5 Then Let fig4w$ = "B"
+    If fw4 = 6 Then Let fig4w$ = "C"
+
+    If fb4 = 1 Then Let fig4b$ = "l"
+    If fb4 = 2 Then Let fig4b$ = "s"
+    If fb4 = 3 Then Let fig4b$ = "n"
+    If fb4 = 4 Then Let fig4b$ = "h"
+    If fb4 = 5 Then Let fig4b$ = "b"
+    If fb4 = 6 Then Let fig4b$ = "c"
+
+    Dim table(8, 8) As String
+    Let table(fw1y, fw1x) = fig1w$
+    Let table(fb1y, fb1x) = fig1b$
+    Let table(fw2y, fw2x) = fig2w$
+    Let table(fb2y, fb2x) = fig2b$
+    Let table(fw3y, fw3x) = fig3w$
+    Let table(fb3y, fb3x) = fig3b$
+    Let table(fw4y, fw4x) = fig4w$
+    Let table(fb4y, fb4x) = fig4b$
+    For row = 1 To 8: For col = 1 To 8
+        If table(row, col) = "" Then Let table(row, col) = "+"
+    Next col: Next row
+
+    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)
+    Let lin1$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+            lin1$ = lin1$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
+            lin1$ = lin1$ + LTrim$(Str$(count))
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin2$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+            lin2$ = lin2$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
+            lin2$ = lin2$ + LTrim$(Str$(count))
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin3$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+            lin3$ = lin3$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
+            lin3$ = lin3$ + LTrim$(Str$(count))
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin4$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+            lin4$ = lin4$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
+            lin4$ = lin4$ + LTrim$(Str$(count))
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin5$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+            lin5$ = lin5$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
+            lin5$ = lin5$ + LTrim$(Str$(count))
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin6$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+            lin6$ = lin6$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
+            lin6$ = lin6$ + LTrim$(Str$(count))
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin7$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+            lin7$ = lin7$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
+            lin7$ = lin7$ + LTrim$(Str$(count))
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin8$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+            lin8$ = lin8$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
+            lin8$ = lin8$ + LTrim$(Str$(count))
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    Let fen$ = lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
+
+    Color 10
+    Locate 2, 1: Print "              Press any key to display the Forsyth-Edwards notation                    "
+    Do
+    Loop Until InKey$ <> ""
+    Locate 2, 1: Print "                                                                                       "
+    Color 12
+    Locate 2, 28: Print fen$
+
+    Do
+    Loop Until InKey$ <> ""
+
+    System
+
+End Sub
+
+Sub xiangqifen
+
+    Rem Forsyth-Edwards notation
+
+    If fw1 = 1 Then Let fig1w$ = "K"
+    If fw1 = 2 Then Let fig1w$ = "A"
+    If fw1 = 3 Then Let fig1w$ = "E"
+    If fw1 = 4 Then Let fig1w$ = "H"
+    If fw1 = 5 Then Let fig1w$ = "R"
+    If fw1 = 6 Then Let fig1w$ = "C"
+    If fw1 = 7 Then Let fig1w$ = "P"
+
+    If fb1 = 1 Then Let fig1b$ = "k"
+    If fb1 = 2 Then Let fig1b$ = "a"
+    If fb1 = 3 Then Let fig1b$ = "e"
+    If fb1 = 4 Then Let fig1b$ = "h"
+    If fb1 = 5 Then Let fig1b$ = "r"
+    If fb1 = 6 Then Let fig1b$ = "c"
+    If fb1 = 7 Then Let fig1w$ = "p"
+
+    If fw2 = 1 Then Let fig2w$ = "K"
+    If fw2 = 2 Then Let fig2w$ = "A"
+    If fw2 = 3 Then Let fig2w$ = "E"
+    If fw2 = 4 Then Let fig2w$ = "H"
+    If fw2 = 5 Then Let fig2w$ = "R"
+    If fw2 = 6 Then Let fig2w$ = "C"
+    If fw2 = 7 Then Let fig2w$ = "P"
+
+    If fb2 = 1 Then Let fig2b$ = "k"
+    If fb2 = 2 Then Let fig2b$ = "a"
+    If fb2 = 3 Then Let fig2b$ = "e"
+    If fb2 = 4 Then Let fig2b$ = "h"
+    If fb2 = 5 Then Let fig2b$ = "r"
+    If fb2 = 6 Then Let fig2b$ = "c"
+    If fb2 = 7 Then Let fig2w$ = "p"
+
+    If fw3 = 1 Then Let fig3w$ = "K"
+    If fw3 = 2 Then Let fig3w$ = "A"
+    If fw3 = 3 Then Let fig3w$ = "E"
+    If fw3 = 4 Then Let fig3w$ = "H"
+    If fw3 = 5 Then Let fig3w$ = "R"
+    If fw3 = 6 Then Let fig3w$ = "C"
+    If fw3 = 7 Then Let fig3w$ = "P"
+
+    If fb3 = 1 Then Let fig3b$ = "k"
+    If fb3 = 2 Then Let fig3b$ = "a"
+    If fb3 = 3 Then Let fig3b$ = "e"
+    If fb3 = 4 Then Let fig3b$ = "h"
+    If fb3 = 5 Then Let fig3b$ = "r"
+    If fb3 = 6 Then Let fig3b$ = "c"
+    If fb3 = 7 Then Let fig3w$ = "p"
+
+    If fw4 = 1 Then Let fig4w$ = "K"
+    If fw4 = 2 Then Let fig4w$ = "A"
+    If fw4 = 3 Then Let fig4w$ = "E"
+    If fw4 = 4 Then Let fig4w$ = "H"
+    If fw4 = 5 Then Let fig4w$ = "R"
+    If fw4 = 6 Then Let fig4w$ = "C"
+    If fw4 = 7 Then Let fig4w$ = "P"
+
+    If fb4 = 1 Then Let fig4b$ = "k"
+    If fb4 = 2 Then Let fig4b$ = "a"
+    If fb4 = 3 Then Let fig4b$ = "e"
+    If fb4 = 4 Then Let fig4b$ = "h"
+    If fb4 = 5 Then Let fig4b$ = "r"
+    If fb4 = 6 Then Let fig4b$ = "c"
+    If fb4 = 7 Then Let fig4w$ = "p"
+
+    Dim table(10, 9) As String
+    Let table(fw1y, fw1x) = fig1w$
+    Let table(fb1y, fb1x) = fig1b$
+    Let table(fw2y, fw2x) = fig2w$
+    Let table(fb2y, fb2x) = fig2b$
+    Let table(fw3y, fw3x) = fig3w$
+    Let table(fb3y, fb3x) = fig3b$
+    Let table(fw4y, fw4x) = fig4w$
+    Let table(fb4y, fb4x) = fig4b$
+    For row = 1 To 10: For col = 1 To 9
+        If table(row, col) = "" Then Let table(row, col) = "+"
+    Next col: Next row
+
+    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)
+    Let lin1$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+            lin1$ = lin1$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
+            lin1$ = lin1$ + LTrim$(Str$(count))
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin2$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+            lin2$ = lin2$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
+            lin2$ = lin2$ + LTrim$(Str$(count))
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin3$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+            lin3$ = lin3$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
+            lin3$ = lin3$ + LTrim$(Str$(count))
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin4$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+            lin4$ = lin4$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
+            lin4$ = lin4$ + LTrim$(Str$(count))
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin5$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+            lin5$ = lin5$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
+            lin5$ = lin5$ + LTrim$(Str$(count))
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin6$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+            lin6$ = lin6$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
+            lin6$ = lin6$ + LTrim$(Str$(count))
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin7$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+            lin7$ = lin7$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
+            lin7$ = lin7$ + LTrim$(Str$(count))
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin8$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+            lin8$ = lin8$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
+            lin8$ = lin8$ + LTrim$(Str$(count))
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin9$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+            lin9$ = lin9$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count = 0 Then
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count > 0 Then
+            lin9$ = lin9$ + LTrim$(Str$(count))
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin0$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas0$, index, 1) = "+" Then
+            count = count + 1
+            lin0$ = lin0$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas0$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas0$, index, 1) <> "+" And count = 0 Then
+            lin0$ = lin0$ + Mid$(mas0$, index, 1)
+        End If
+        If Mid$(mas0$, index, 1) <> "+" And count > 0 Then
+            lin0$ = lin0$ + LTrim$(Str$(count))
+            lin0$ = lin0$ + Mid$(mas0$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    Let fen$ = lin0$ + "/" + lin9$ + "/" + lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
+
+    Color 10
+    Locate 2, 1: Print "              Press any key to display the Forsyth-Edwards notation                    "
+    Do
+    Loop Until InKey$ <> ""
+    Locate 2, 1: Print "                                                                                       "
+    Color 12
+    Locate 2, 24: Print fen$
+
+    Do
+    Loop Until InKey$ <> ""
+
+    System
+
+End Sub
+
+Sub shogifen
+
+    Rem Forsyth-Edwards notation
+
+    If fw1 = 1 Then Let fig1w$ = "K"
+    If fw1 = 2 Then Let fig1w$ = "G"
+    If fw1 = 3 Then Let fig1w$ = "S"
+    If fw1 = 4 Then Let fig1w$ = "B"
+    If fw1 = 5 Then Let fig1w$ = "N"
+    If fw1 = 6 Then Let fig1w$ = "R"
+    If fw1 = 7 Then Let fig1w$ = "L"
+    If fw1 = 8 Then Let fig1w$ = "P"
+    If fw1 = 9 Then Let fig1w$ = "H"
+    If fw1 = 10 Then Let fig1w$ = "D"
+    If fw1 = 11 Then Let fig1w$ = "T"
+
+    If fb1 = 1 Then Let fig1b$ = "k"
+    If fb1 = 2 Then Let fig1b$ = "g"
+    If fb1 = 3 Then Let fig1b$ = "a"
+    If fb1 = 4 Then Let fig1b$ = "b"
+    If fb1 = 5 Then Let fig1b$ = "n"
+    If fb1 = 6 Then Let fig1b$ = "r"
+    If fb1 = 7 Then Let fig1b$ = "l"
+    If fb1 = 8 Then Let fig1b$ = "p"
+    If fb1 = 9 Then Let fig1b$ = "h"
+    If fb1 = 10 Then Let fig1b$ = "d"
+    If fb1 = 11 Then Let fig1b$ = "t"
+
+    If fw2 = 1 Then Let fig2w$ = "K"
+    If fw2 = 2 Then Let fig2w$ = "G"
+    If fw2 = 3 Then Let fig2w$ = "S"
+    If fw2 = 4 Then Let fig2w$ = "B"
+    If fw2 = 5 Then Let fig2w$ = "N"
+    If fw2 = 6 Then Let fig2w$ = "R"
+    If fw2 = 7 Then Let fig2w$ = "L"
+    If fw2 = 8 Then Let fig2w$ = "P"
+    If fw2 = 9 Then Let fig2w$ = "H"
+    If fw2 = 20 Then Let fig2w$ = "D"
+    If fw2 = 22 Then Let fig2w$ = "T"
+
+    If fb2 = 1 Then Let fig2b$ = "k"
+    If fb2 = 2 Then Let fig2b$ = "g"
+    If fb2 = 3 Then Let fig2b$ = "a"
+    If fb2 = 4 Then Let fig2b$ = "b"
+    If fb2 = 5 Then Let fig2b$ = "n"
+    If fb2 = 6 Then Let fig2b$ = "r"
+    If fb2 = 7 Then Let fig2b$ = "l"
+    If fb2 = 8 Then Let fig2b$ = "p"
+    If fb2 = 9 Then Let fig2b$ = "h"
+    If fb2 = 20 Then Let fig2b$ = "d"
+    If fb2 = 22 Then Let fig2b$ = "t"
+
+    If fw3 = 1 Then Let fig3w$ = "K"
+    If fw3 = 2 Then Let fig3w$ = "G"
+    If fw3 = 3 Then Let fig3w$ = "S"
+    If fw3 = 4 Then Let fig3w$ = "B"
+    If fw3 = 5 Then Let fig3w$ = "N"
+    If fw3 = 6 Then Let fig3w$ = "R"
+    If fw3 = 7 Then Let fig3w$ = "L"
+    If fw3 = 8 Then Let fig3w$ = "P"
+    If fw3 = 9 Then Let fig3w$ = "H"
+    If fw3 = 30 Then Let fig3w$ = "D"
+    If fw3 = 33 Then Let fig3w$ = "T"
+
+    If fb3 = 1 Then Let fig3b$ = "k"
+    If fb3 = 2 Then Let fig3b$ = "g"
+    If fb3 = 3 Then Let fig3b$ = "a"
+    If fb3 = 4 Then Let fig3b$ = "b"
+    If fb3 = 5 Then Let fig3b$ = "n"
+    If fb3 = 6 Then Let fig3b$ = "r"
+    If fb3 = 7 Then Let fig3b$ = "l"
+    If fb3 = 8 Then Let fig3b$ = "p"
+    If fb3 = 9 Then Let fig3b$ = "h"
+    If fb3 = 30 Then Let fig3b$ = "d"
+    If fb3 = 33 Then Let fig3b$ = "t"
+
+    If fw4 = 1 Then Let fig4w$ = "K"
+    If fw4 = 2 Then Let fig4w$ = "G"
+    If fw4 = 3 Then Let fig4w$ = "S"
+    If fw4 = 4 Then Let fig4w$ = "B"
+    If fw4 = 5 Then Let fig4w$ = "N"
+    If fw4 = 6 Then Let fig4w$ = "R"
+    If fw4 = 7 Then Let fig4w$ = "L"
+    If fw4 = 8 Then Let fig4w$ = "P"
+    If fw4 = 9 Then Let fig4w$ = "H"
+    If fw4 = 40 Then Let fig4w$ = "D"
+    If fw4 = 44 Then Let fig4w$ = "T"
+
+    If fb4 = 1 Then Let fig4b$ = "k"
+    If fb4 = 2 Then Let fig4b$ = "g"
+    If fb4 = 3 Then Let fig4b$ = "a"
+    If fb4 = 4 Then Let fig4b$ = "b"
+    If fb4 = 5 Then Let fig4b$ = "n"
+    If fb4 = 6 Then Let fig4b$ = "r"
+    If fb4 = 7 Then Let fig4b$ = "l"
+    If fb4 = 8 Then Let fig4b$ = "p"
+    If fb4 = 9 Then Let fig4b$ = "h"
+    If fb4 = 40 Then Let fig4b$ = "d"
+    If fb4 = 44 Then Let fig4b$ = "t"
+
+    Dim table(9, 9) As String
+    Let table(fw1y, fw1x) = fig1w$
+    Let table(fb1y, fb1x) = fig1b$
+    Let table(fw2y, fw2x) = fig2w$
+    Let table(fb2y, fb2x) = fig2b$
+    Let table(fw3y, fw3x) = fig3w$
+    Let table(fb3y, fb3x) = fig3b$
+    Let table(fw4y, fw4x) = fig4w$
+    Let table(fb4y, fb4x) = fig4b$
+    For row = 1 To 9: For col = 1 To 9
+        If table(row, col) = "" Then Let table(row, col) = "+"
+    Next col: Next row
+
+    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)
+    Let lin1$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+            lin1$ = lin1$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
+            lin1$ = lin1$ + LTrim$(Str$(count))
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin2$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+            lin2$ = lin2$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
+            lin2$ = lin2$ + LTrim$(Str$(count))
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin3$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+            lin3$ = lin3$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
+            lin3$ = lin3$ + LTrim$(Str$(count))
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin4$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+            lin4$ = lin4$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
+            lin4$ = lin4$ + LTrim$(Str$(count))
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin5$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+            lin5$ = lin5$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
+            lin5$ = lin5$ + LTrim$(Str$(count))
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin6$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+            lin6$ = lin6$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
+            lin6$ = lin6$ + LTrim$(Str$(count))
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin7$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+            lin7$ = lin7$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
+            lin7$ = lin7$ + LTrim$(Str$(count))
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin8$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+            lin8$ = lin8$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
+            lin8$ = lin8$ + LTrim$(Str$(count))
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin9$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+            lin9$ = lin9$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count = 0 Then
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count > 0 Then
+            lin9$ = lin9$ + LTrim$(Str$(count))
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    Let fen$ = lin9$ + "/" + lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
+
+    Color 10
+    Locate 2, 1: Print "              Press any key to display the Forsyth-Edwards notation                    "
+    Do
+    Loop Until InKey$ <> ""
+    Locate 2, 1: Print "                                                                                       "
+    Color 12
+    Locate 2, 25: Print fen$
+
+    Do
+    Loop Until InKey$ <> ""
+
+    System
+
+End Sub
+
+Sub draughtsfen
+
+    Rem Forsyth-Edwards notation
+
+    If fw1 = 1 Then Let fig1w$ = "D"
+    If fw1 = 2 Then Let fig1w$ = "C"
+
+    If fb1 = 1 Then Let fig1b$ = "d"
+    If fb1 = 2 Then Let fig1b$ = "c"
+
+    If fw2 = 1 Then Let fig2w$ = "D"
+    If fw2 = 2 Then Let fig2w$ = "C"
+
+    If fb2 = 1 Then Let fig2b$ = "d"
+    If fb2 = 2 Then Let fig2b$ = "c"
+
+    If fw3 = 1 Then Let fig3w$ = "D"
+    If fw3 = 2 Then Let fig3w$ = "C"
+
+    If fb3 = 1 Then Let fig3b$ = "d"
+    If fb3 = 2 Then Let fig3b$ = "c"
+
+    If fw4 = 1 Then Let fig4w$ = "D"
+    If fw4 = 2 Then Let fig4w$ = "C"
+
+    If fb4 = 1 Then Let fig4b$ = "d"
+    If fb4 = 2 Then Let fig4b$ = "c"
+
+    Dim table(10, 10) As String
+    Let table(fw1y, fw1x) = fig1w$
+    Let table(fb1y, fb1x) = fig1b$
+    Let table(fw2y, fw2x) = fig2w$
+    Let table(fb2y, fb2x) = fig2b$
+    Let table(fw3y, fw3x) = fig3w$
+    Let table(fb3y, fb3x) = fig3b$
+    Let table(fw4y, fw4x) = fig4w$
+    Let table(fb4y, fb4x) = fig4b$
+    For row = 1 To 10: For col = 1 To 10
+        If table(row, col) = "" Then Let table(row, col) = "+"
+    Next col: Next row
+
+    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)
+    Let lin1$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+            lin1$ = lin1$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
+            lin1$ = lin1$ + LTrim$(Str$(count))
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin2$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+            lin2$ = lin2$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
+            lin2$ = lin2$ + LTrim$(Str$(count))
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin3$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+            lin3$ = lin3$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
+            lin3$ = lin3$ + LTrim$(Str$(count))
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin4$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+            lin4$ = lin4$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
+            lin4$ = lin4$ + LTrim$(Str$(count))
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin5$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+            lin5$ = lin5$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
+            lin5$ = lin5$ + LTrim$(Str$(count))
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin6$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+            lin6$ = lin6$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
+            lin6$ = lin6$ + LTrim$(Str$(count))
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin7$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+            lin7$ = lin7$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
+            lin7$ = lin7$ + LTrim$(Str$(count))
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin8$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+            lin8$ = lin8$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
+            lin8$ = lin8$ + LTrim$(Str$(count))
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin9$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+            lin9$ = lin9$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count = 0 Then
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count > 0 Then
+            lin9$ = lin9$ + LTrim$(Str$(count))
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin0$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas0$, index, 1) = "+" Then
+            count = count + 1
+            lin0$ = lin0$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas0$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas0$, index, 1) <> "+" And count = 0 Then
+            lin0$ = lin0$ + Mid$(mas0$, index, 1)
+        End If
+        If Mid$(mas0$, index, 1) <> "+" And count > 0 Then
+            lin0$ = lin0$ + LTrim$(Str$(count))
+            lin0$ = lin0$ + Mid$(mas0$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    Let fen$ = lin0$ + "/" + lin9$ + "/" + lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
+
+    Color 10
+    Locate 2, 1: Print "              Press any key to display the Forsyth-Edwards notation                    "
+    Do
+    Loop Until InKey$ <> ""
+    Locate 2, 1: Print "                                                                                       "
+    Color 12
+    Locate 2, 23: Print fen$
+
+    Do
+    Loop Until InKey$ <> ""
+
+    System
+
+End Sub
+
+Sub message
+    Locate 2, 1: Color 9: Print "    SPACEBAR - next pair"; "       ENTER - display notation       "; "ESCAPE - exit    "
+    Locate 2, 5: Color 5: Print "SPACEBAR": Locate 2, 32: Color 5: Print "ENTER": Locate 2, 63: Color 5: Print "ESCAPE"
+End Sub
\ No newline at end of file

diff --git a/sourcwin.bas b/sourcwin.bas
new file mode 100644 (file)
index 0000000..2434d46
--- /dev/null
+++ b/sourcwin.bas
@@ -0,0 +1,6757 @@
+'$Lang: "FBLite"
+
+#INCLUDE "Windows.bi"
+Screen 12
+DefInt A-Z
+Randomize Timer
+
+declare sub dice1 ()
+declare sub dice2 ()
+declare sub dice3 ()
+declare sub dice4 ()
+declare sub dice5 ()
+declare sub dice6 ()
+declare sub dice7 ()
+declare sub dice8 ()
+declare sub dice9 ()
+declare sub dice0 ()
+declare sub number1 ()
+declare sub number2 ()
+declare sub number3 ()
+declare sub number4 ()
+declare sub number5 ()
+declare sub number6 ()
+declare sub number7 ()
+declare sub number8 ()
+declare sub number9 ()
+declare sub number0 ()
+declare sub numberA ()
+declare sub numberB ()
+declare sub numberC ()
+declare sub numberD ()
+declare sub numberE ()
+declare sub numberF ()
+declare sub numberG ()
+declare sub numberH ()
+declare sub numberI ()
+declare sub numberJ ()
+declare sub letter1 ()
+declare sub letter2 ()
+declare sub letter3 ()
+declare sub letter4 ()
+declare sub letter5 ()
+declare sub letter6 ()
+declare sub letter7 ()
+declare sub letter8 ()
+declare sub letter9 ()
+declare sub letter0 ()
+declare sub letterA ()
+declare sub letterB ()
+declare sub letterC ()
+declare sub letterD ()
+declare sub letterE ()
+declare sub letterF ()
+declare sub letterG ()
+declare sub letterH ()
+declare sub letterI ()
+declare sub letterJ ()
+declare sub king ()
+declare sub queen ()
+declare sub bishop ()
+declare sub knight ()
+declare sub rook ()
+declare sub pawn ()
+declare sub cannon ()
+declare sub lance ()
+declare sub general ()
+declare sub tokin ()
+declare sub dragon ()
+declare sub horse ()
+declare sub dame ()
+declare sub checker ()
+declare sub cells ()
+declare sub dices ()
+declare sub chessboard ()
+declare sub makrukboard ()
+declare sub xiangqiboard ()
+declare sub shogiboard ()
+declare sub draughtsboard ()
+declare sub chess ()
+declare sub makruk ()
+declare sub xiangqi ()
+declare sub shogi ()
+declare sub draughts ()
+declare sub chessfen ()
+declare sub makrukfen ()
+declare sub xiangqifen ()
+declare sub shogifen ()
+declare sub draughtsfen ()
+declare sub message ()
+DECLARE SUB SetTextClpbrd (Text AS STRING)
+
+DIM Shared AS Integer x, y, cd1, cd2, cn, cll, cf, cb1, cb2, cb3, cb4, cb5
+DIM Shared AS Integer 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
+DIM Shared AS Integer fw1x, fw1y, fb1x, fb1y, fw2x, fw2y, fb2x, fb2y, fw3x, fw3y, fb3x, fb3y, fw4x, fw4y, fb4x, fb4y
+DIM Shared AS Integer 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
+cd1 = 2:cd2 = 15:cn = 7:cll = 14:cf = 1:cb1 = 7:cb2 = 6:cb3 = 3:cb4 = 13:cb5 = 9
+
+Dim Shared board(8, 8) As Integer
+index = 100
+For row = 1 To 8: For col = 1 To 8
+   board(row, col) = index + 1
+   index = index + 1
+Next col: Next row
+
+Dim Shared xiabo(10, 9) As Integer
+index = 100
+For row = 1 To 10: For col = 1 To 9
+   xiabo(row, col) = index + 1
+   index = index + 1
+Next col: Next row
+
+Dim Shared shobo(9, 9) As Integer
+index = 100
+For row = 1 To 9: For col = 1 To 9
+   shobo(row, col) = index + 1
+   index = index + 1
+Next col: Next row
+
+Dim Shared drabo(10, 10) As Integer
+index = 100
+For row = 1 To 10: For col = 1 To 10
+   drabo(row, col) = index + 1
+   index = index + 1
+Next col:index = index + 1: Next row
+
+Line (2, 2)-(122, 4), 14, BF: Line -(120, 338), 14, BF: Line -(2, 336), 14, BF: Line -(4, 2), 14, BF
+Line (4, 42)-(120, 44), 14, BF: Paint (20, 20), 8, 14
+Line (128, 2)-(248, 4), 14, BF: Line -(246, 338), 14, BF: Line -(128, 336), 14, BF: Line -(130, 2), 14, BF
+Line (130, 42)-(246, 44), 14, BF: Paint (160, 20), 8, 14
+Line (254, 2)-(394, 4), 14, BF: Line -(392, 386), 14, BF: Line -(254, 384), 14, BF: Line -(256, 2), 14, BF
+Line (256, 42)-(392, 44), 14, BF: Paint (300, 20), 8, 14
+Line (400, 2)-(637, 4), 14, BF: Line -(635, 338), 14, BF: Line -(400, 336), 14, BF: Line -(402, 2), 14, BF
+Line (402, 42)-(635, 44), 14, BF: Paint (440, 20), 8, 14
+Line (2, 344)-(248, 346), 14, BF: Line -(246, 432), 14, BF: Line -(2, 430), 14, BF: Line -(4, 344), 14, BF
+Line (4, 378)-(246, 376), 14, BF: Paint (20, 360), 8, 14
+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"
+Color 12, 0: Locate 23, 52: Print "Press number to select game": Locate 24, 59: Print "or Esc to exit"
+
+Color 11, 0
+x = 10: For y = 50 To 300 Step 48
+     cells
+Next y
+x = 10:y = 50:  king
+x = 10:y = y + 48:  queen
+x = 10:y = y + 48:  bishop
+x = 10:y = y + 48:  knight
+x = 10:y = y + 48:  rook
+x = 10:y = y + 48:  pawn
+Locate 5, 9: Print "King": Locate 8, 9: Print "Queen"
+Locate 11, 9: Print "Bishop": Locate 14, 9: Print "Knight"
+Locate 17, 9: Print "Rook": Locate 20, 9: Print "Pawn"
+x = 136: For y = 50 To 300 Step 48
+     cells
+Next y
+x = 136:y = 50:  king
+x = 136:y = y + 48:  queen
+x = 136:y = y + 48:  bishop
+x = 136:y = y + 48:  knight
+x = 136:y = y + 48:  rook
+x = 136:y = y + 48:  checker
+Locate 5, 25: Print "Lord": Locate 8, 25: Print "Seed"
+Locate 11, 25: Print "Noble": Locate 14, 25: Print "Horse"
+Locate 17, 25: Print "Boat": Locate 20, 25: Print "Shell"
+x = 262: For y = 50 To 350 Step 48
+     cells
+Next y
+x = 262:y = 50:  king
+x = 262:y = y + 48:  queen
+x = 262:y = y + 48:  bishop
+x = 262:y = y + 48:  knight
+x = 262:y = y + 48:  rook
+x = 262:y = y + 48:  cannon
+x = 262:y = y + 48:  pawn
+Locate 5, 41: Print "General": Locate 8, 41: Print "Advisor"
+Locate 11, 41: Print "Elephant": Locate 14, 41: Print "Horse"
+Locate 17, 41: Print "Chariot": Locate 20, 41: Print "Cannon"
+Locate 23, 41: Print "Soldier"
+x = 408: For y = 50 To 300 Step 48
+     cells
+Next y
+x = 528: For y = 50 To 250 Step 48
+     cells
+Next y
+x = 408:y = 50:  king
+x = 408:y = y + 48:  queen
+x = 408:y = y + 48:  general
+x = 408:y = y + 48:  bishop
+x = 408:y = y + 48:  knight
+x = 408:y = y + 48:  rook
+x = 528:y = 50:  lance
+x = 528:y = y + 48:  pawn
+x = 528:y = y + 48:  horse
+x = 528:y = y + 48:  dragon
+x = 528:y = y + 48:  tokin
+Locate 5, 59: Print "King": Locate 8, 59: Print "Gold"
+Locate 11, 59: Print "Silver": Locate 14, 59: Print "Bishop"
+Locate 17, 59: Print "Knight": Locate 20, 59: Print "Rook"
+Locate 5, 74: Print "Lance": Locate 8, 74: Print "Pawn"
+Locate 11, 74: Print "Horse": Locate 14, 74: Print "Dragon"
+Locate 17, 74: Print "Tokin"
+x = 10:y = 384
+ cells ()
+ checker ()
+x = 136:y = 384
+ cells ()
+ dame ()
+Locate 26, 9: Print "Checker": Locate 26, 25: Print "Dame"
+
+Do
+    Select Case InKey$
+        Case Is = Chr$(49)
+            CLS
+             message ()
+             chessboard ()
+             dices ()
+             chess ()
+        Case Is = Chr$(50)
+            CLS
+             message ()
+             makrukboard ()
+             dices ()
+             makruk ()
+        Case Is = Chr$(51)
+            CLS
+             message ()
+             xiangqiboard ()
+             dices ()
+             xiangqi ()
+        Case Is = Chr$(52)
+            CLS
+             message ()
+             shogiboard ()
+             dices ()
+             shogi ()
+        Case Is = Chr$(53)
+            CLS
+             message ()
+             draughtsboard ()
+             dices ()
+             draughts ()
+        Case Is = Chr$(27)
+            Exit Do
+    End Select
+Loop
+End
+
+Sub dice1 ()
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
+End Sub
+
+Sub dice2 ()
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice3 ()
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice4 ()
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice5 ()
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice6 ()
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
+    Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice7 ()
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
+    Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
+    Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice8 ()
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (16 + x, 4 + y)-(24 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
+    Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (16 + x, 28 + y)-(24 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice9 ()
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (16 + x, 4 + y)-(24 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
+    Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
+    Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (16 + x, 28 + y)-(24 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice0 ()
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
+    Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+    Line (16 + x, 1 + y)-(24 + x, 9 + y), cd2, BF
+    Line (16 + x, 11 + y)-(24 + x, 19 + y), cd2, BF
+    Line (16 + x, 21 + y)-(24 + x, 29 + y), cd2, BF
+    Line (16 + x, 31 + y)-(24 + x, 39 + y), cd2, BF
+End Sub
+
+Sub number1 ()
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (5 + x, 8 + y)-(6 + x, 1 + y), cn, BF
+    Line (4 + x, 2 + y)-(1 + x, 5 + y), cn
+    Line (4 + x, 3 + y)-(1 + x, 6 + y), cn
+End Sub
+
+Sub number2 ()
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (1 + x, 8 + y)-(2 + x, 7 + y), cn, BF
+    Line (10 + x, 4 + y)-(9 + x, 3 + y), cn, BF
+End Sub
+
+Sub number3 ()
+    Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+    Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
+    Line (5 + x, 5 + y)-(9 + x, 6 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 4 + y), cn, BF
+    Line (9 + x, 7 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub number4 ()
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 1 + y)-(2 + x, 4 + y), cn, BF
+    Line (9 + x, 1 + y)-(10 + x, 10 + y), cn, BF
+End Sub
+
+Sub number5 ()
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (10 + x, 8 + y)-(9 + x, 7 + y), cn, BF
+    Line (2 + x, 4 + y)-(1 + x, 3 + y), cn, BF
+End Sub
+
+Sub number6 ()
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (10 + x, 8 + y)-(9 + x, 7 + y), cn, BF
+    Line (1 + x, 8 + y)-(2 + x, 3 + y), cn, BF
+End Sub
+
+Sub number7 ()
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (10 + x, 3 + y)-(3 + x, 10 + y), cn
+    Line (9 + x, 3 + y)-(2 + x, 10 + y), cn
+    Line (8 + x, 3 + y)-(1 + x, 10 + y), cn
+End Sub
+
+Sub number8 ()
+    Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+    Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
+    Line (2 + x, 6 + y)-(9 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(2 + x, 4 + y), cn, BF
+    Line (1 + x, 7 + y)-(2 + x, 9 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 4 + y), cn, BF
+    Line (9 + x, 7 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub number9 ()
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (10 + x, 8 + y)-(9 + x, 3 + y), cn, BF
+    Line (2 + x, 4 + y)-(1 + x, 3 + y), cn, BF
+End Sub
+
+Sub number0 ()
+    Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+    Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
+    Line (1 + x, 2 + y)-(2 + x, 9 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub numberA ()
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(2 + x, 10 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 10 + y), cn, BF
+    Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+End Sub
+
+Sub numberB ()
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (1 + x, 10 + y)-(9 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(9 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 4 + y), cn, BF
+    Line (9 + x, 7 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub numberC ()
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (1 + x, 1 + y)-(10 + x, 2 + y), cn, BF
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub numberD ()
+    Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+    Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub numberE ()
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+End Sub
+
+Sub numberF ()
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+End Sub
+
+Sub numberG ()
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (8 + x, 6 + y)-(6 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (10 + x, 8 + y)-(9 + x, 5 + y), cn, BF
+    Line (1 + x, 8 + y)-(2 + x, 3 + y), cn, BF
+End Sub
+
+Sub numberH ()
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (9 + x, 1 + y)-(10 + x, 10 + y), cn, BF
+End Sub
+
+Sub numberI ()
+    Line (3 + x, 2 + y)-(8 + x, 1 + y), cn, BF
+    Line (3 + x, 10 + y)-(8 + x, 9 + y), cn, BF
+    Line (5 + x, 3 + y)-(6 + x, 8 + y), cn, BF
+End Sub
+
+Sub numberJ ()
+    Line (1 + x, 6 + y)-(2 + x, 9 + y), cn, BF
+    Line (9 + x, 1 + y)-(10 + x, 9 + y), cn, BF
+    Line (2 + x, 9 + y)-(9 + x, 10 + y), cn, BF
+End Sub
+
+Sub letter1 ()
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cll, BF
+    Line (18 + x, 31 + y)-(22 + x, 4 + y), cll, BF
+    Line (17 + x, 4 + y)-(4 + x, 17 + y), cll
+    Line (17 + x, 5 + y)-(5 + x, 17 + y), cll
+    Line (17 + x, 6 + y)-(6 + x, 17 + y), cll
+    Line (17 + x, 7 + y)-(7 + x, 17 + y), cll
+End Sub
+
+Sub letter2 ()
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cll, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cll, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cll, BF
+    Line (32 + x, 9 + y)-(36 + x, 17 + y), cll, BF
+    Line (4 + x, 23 + y)-(8 + x, 31 + y), cll, BF
+End Sub
+
+Sub letter3 ()
+    Line (4 + x, 4 + y)-(34 + x, 8 + y), cll, BF
+    Line (4 + x, 36 + y)-(34 + x, 32 + y), cll, BF
+    Line (36 + x, 23 + y)-(32 + x, 34 + y), cll, BF
+    Line (32 + x, 6 + y)-(36 + x, 17 + y), cll, BF
+    Line (18 + x, 18 + y)-(34 + x, 22 + y), cll, BF
+    Line (30 + x, 17 + y)-(31 + x, 17 + y), cll
+    Line (30 + x, 23 + y)-(31 + x, 23 + y), cll
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cll
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cll
+    PSet (31 + x, 10 + y), cll: PSet (31 + x, 30 + y), cll
+    PSet (31 + x, 16 + y), cll: PSet (31 + x, 24 + y), cll
+    PSet (35 + x, 18 + y), cll: PSet (35 + x, 22 + y), cll
+    PSet (35 + x, 5 + y), cll: PSet (35 + x, 35 + y), cll
+End Sub
+
+Sub letter4 ()
+    Line (4 + x, 4 + y)-(8 + x, 17 + y), cll, BF
+    Line (32 + x, 4 + y)-(36 + x, 36 + y), cll, BF
+    Line (4 + x, 18 + y)-(34 + x, 22 + y), cll, BF
+End Sub
+
+Sub letter5 ()
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cll, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cll, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cll, BF
+    Line (4 + x, 9 + y)-(8 + x, 17 + y), cll, BF
+    Line (32 + x, 23 + y)-(36 + x, 31 + y), cll, BF
+End Sub
+
+Sub letter6 ()
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cll, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cll, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cll, BF
+    Line (4 + x, 9 + y)-(8 + x, 31 + y), cll, BF
+    Line (32 + x, 23 + y)-(36 + x, 31 + y), cll, BF
+End Sub
+
+Sub letter7 ()
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cll, BF
+    Line (8 + x, 36 + y)-(35 + x, 9 + y), cll
+    Line (7 + x, 36 + y)-(34 + x, 9 + y), cll
+    Line (6 + x, 36 + y)-(33 + x, 9 + y), cll
+    Line (5 + x, 36 + y)-(32 + x, 9 + y), cll
+End Sub
+
+Sub letter8 ()
+    Line (8 + x, 23 + y)-(4 + x, 34 + y), cll, BF
+    Line (4 + x, 6 + y)-(8 + x, 17 + y), cll, BF
+    Line (6 + x, 4 + y)-(34 + x, 8 + y), cll, BF
+    Line (6 + x, 36 + y)-(34 + x, 32 + y), cll, BF
+    Line (36 + x, 23 + y)-(32 + x, 34 + y), cll, BF
+    Line (32 + x, 6 + y)-(36 + x, 17 + y), cll, BF
+    Line (6 + x, 18 + y)-(34 + x, 22 + y), cll, BF
+    Line (30 + x, 17 + y)-(31 + x, 17 + y), cll
+    Line (30 + x, 23 + y)-(31 + x, 23 + y), cll
+    Line (10 + x, 17 + y)-(9 + x, 17 + y), cll
+    Line (10 + x, 23 + y)-(9 + x, 23 + y), cll
+    Line (9 + x, 31 + y)-(10 + x, 31 + y), cll
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cll
+    Line (9 + x, 9 + y)-(10 + x, 9 + y), cll
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cll
+    PSet (35 + x, 5 + y), cll: PSet (35 + x, 35 + y), cll
+    PSet (5 + x, 5 + y), cll: PSet (5 + x, 35 + y), cll
+    PSet (9 + x, 30 + y), cll: PSet (31 + x, 30 + y), cll
+    PSet (9 + x, 10 + y), cll: PSet (31 + x, 10 + y), cll
+    PSet (5 + x, 18 + y), cll: PSet (5 + x, 22 + y), cll
+    PSet (9 + x, 16 + y), cll: PSet (9 + x, 24 + y), cll
+    PSet (31 + x, 16 + y), cll: PSet (31 + x, 24 + y), cll
+    PSet (35 + x, 18 + y), cll: PSet (35 + x, 22 + y), cll
+End Sub
+
+Sub letter9 ()
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cll, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cll, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cll, BF
+    Line (32 + x, 9 + y)-(36 + x, 31 + y), cll, BF
+End Sub
+
+Sub letter0 ()
+    Line (6 + x, 4 + y)-(34 + x, 8 + y), cll, BF
+    Line (6 + x, 36 + y)-(34 + x, 32 + y), cll, BF
+    Line (4 + x, 6 + y)-(8 + x, 34 + y), cll, BF
+    Line (36 + x, 6 + y)-(32 + x, 34 + y), cll, BF
+    Line (9 + x, 9 + y)-(10 + x, 9 + y), cll
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cll
+    Line (9 + x, 31 + y)-(10 + x, 31 + y), cll
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cll
+    Line (9 + x, 9 + y)-(10 + x, 9 + y), cll
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cll
+    PSet (35 + x, 5 + y), cll: PSet (35 + x, 35 + y), cll
+    PSet (5 + x, 5 + y), cll: PSet (5 + x, 35 + y), cll
+    PSet (9 + x, 30 + y), cll: PSet (31 + x, 30 + y), cll
+    PSet (9 + x, 10 + y), cll: PSet (31 + x, 10 + y), cll
+End Sub
+
+Sub letterA ()
+    Line (4 + x, 6 + y)-(8 + x, 36 + y), cll, BF
+    Line (32 + x, 6 + y)-(36 + x, 36 + y), cll, BF
+    Line (4 + x, 18 + y)-(34 + x, 22 + y), cll, BF
+    Line (6 + x, 4 + y)-(34 + x, 8 + y), cll, BF
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cll
+    Line (9 + x, 9 + y)-(10 + x, 9 + y), cll
+    PSet (9 + x, 10 + y), cll: PSet (31 + x, 10 + y), cll
+    PSet (5 + x, 5 + y), cll: PSet (35 + x, 5 + y), cll
+End Sub
+
+Sub letterB ()
+    Line (4 + x, 9 + y)-(8 + x, 31 + y), cll, BF
+    Line (4 + x, 4 + y)-(34 + x, 8 + y), cll, BF
+    Line (4 + x, 36 + y)-(34 + x, 32 + y), cll, BF
+    Line (36 + x, 23 + y)-(32 + x, 34 + y), cll, BF
+    Line (32 + x, 6 + y)-(36 + x, 17 + y), cll, BF
+    Line (9 + x, 18 + y)-(34 + x, 22 + y), cll, BF
+    Line (30 + x, 17 + y)-(31 + x, 17 + y), cll
+    Line (30 + x, 23 + y)-(31 + x, 23 + y), cll
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cll
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cll
+    PSet (31 + x, 10 + y), cll: PSet (31 + x, 30 + y), cll
+    PSet (31 + x, 16 + y), cll: PSet (31 + x, 24 + y), cll
+    PSet (35 + x, 18 + y), cll: PSet (35 + x, 22 + y), cll
+    PSet (35 + x, 5 + y), cll: PSet (35 + x, 35 + y), cll
+End Sub
+
+Sub letterC ()
+    Line (6 + x, 4 + y)-(36 + x, 8 + y), cll, BF
+    Line (6 + x, 36 + y)-(36 + x, 32 + y), cll, BF
+    Line (4 + x, 6 + y)-(8 + x, 34 + y), cll, BF
+    Line (9 + x, 9 + y)-(10 + x, 9 + y), cll
+    Line (9 + x, 31 + y)-(10 + x, 31 + y), cll
+    PSet (9 + x, 10 + y), cll: PSet (9 + x, 30 + y), cll
+    PSet (5 + x, 5 + y), cll: PSet (5 + x, 35 + y), cll
+End Sub
+
+Sub letterD ()
+    Line (4 + x, 4 + y)-(34 + x, 8 + y), cll, BF
+    Line (4 + x, 36 + y)-(34 + x, 32 + y), cll, BF
+    Line (4 + x, 4 + y)-(8 + x, 36 + y), cll, BF
+    Line (32 + x, 6 + y)-(36 + x, 34 + y), cll, BF
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cll
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cll
+    PSet (31 + x, 10 + y), cll: PSet (31 + x, 30 + y), cll
+    PSet (35 + x, 5 + y), cll: PSet (35 + x, 35 + y), cll
+End Sub
+
+Sub letterE ()
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cll, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cll, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cll, BF
+    Line (4 + x, 4 + y)-(8 + x, 36 + y), cll, BF
+End Sub
+
+Sub letterF ()
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cll, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cll, BF
+    Line (4 + x, 4 + y)-(8 + x, 36 + y), cll, BF
+End Sub
+
+Sub letterG ()
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cll, BF
+    Line (20 + x, 18 + y)-(36 + x, 22 + y), cll, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cll, BF
+    Line (4 + x, 9 + y)-(8 + x, 31 + y), cll, BF
+    Line (32 + x, 23 + y)-(36 + x, 31 + y), cll, BF
+End Sub
+
+Sub letterH ()
+    Line (4 + x, 4 + y)-(8 + x, 36 + y), cll, BF
+    Line (32 + x, 4 + y)-(36 + x, 36 + y), cll, BF
+    Line (4 + x, 18 + y)-(34 + x, 22 + y), cll, BF
+End Sub
+
+Sub letterI ()
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cll, BF
+    Line (18 + x, 31 + y)-(22 + x, 9 + y), cll, BF
+    Line (8 + x, 8 + y)-(32 + x, 3 + y), cll, BF
+End Sub
+
+Sub letterJ ()
+    Line (6 + x, 36 + y)-(34 + x, 32 + y), cll, BF
+    Line (32 + x, 4 + y)-(36 + x, 34 + y), cll, BF
+    Line (4 + x, 18 + y)-(8 + x, 34 + y), cll, BF
+    Line (9 + x, 31 + y)-(10 + x, 31 + y), cll
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cll
+    PSet (9 + x, 30 + y), cll: PSet (31 + x, 30 + y), cll
+    PSet (5 + x, 35 + y), cll: PSet (35 + x, 35 + y), cll
+End Sub
+
+Sub king ()
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (12 + x, 31 + y)-(28 + x, 31 + y), cf
+    Line (13 + x, 30 + y)-(27 + x, 30 + y), cf
+    Line (14 + x, 29 + y)-(26 + x, 29 + y), cf
+    Line (15 + x, 28 + y)-(25 + x, 28 + y), cf
+    Line (16 + x, 27 + y)-(24 + x, 10 + y), cf, BF
+    Line (15 + x, 24 + y)-(25 + x, 24 + y), cf
+    Line (14 + x, 23 + y)-(26 + x, 23 + y), cf
+    Line (13 + x, 22 + y)-(27 + x, 22 + y), cf
+    Line (12 + x, 21 + y)-(28 + x, 21 + y), cf
+    Line (11 + x, 20 + y)-(29 + x, 20 + y), cf
+    Line (10 + x, 19 + y)-(30 + x, 19 + y), cf
+    Line (9 + x, 18 + y)-(31 + x, 18 + y), cf
+    Line (8 + x, 17 + y)-(32 + x, 17 + y), cf
+    Line (7 + x, 16 + y)-(33 + x, 16 + y), cf
+    Line (6 + x, 15 + y)-(34 + x, 15 + y), cf
+    Line (5 + x, 14 + y)-(35 + x, 14 + y), cf
+    Line (4 + x, 13 + y)-(36 + x, 12 + y), cf, BF
+    Line (4 + x, 11 + y)-(14 + x, 10 + y), cf, BF
+    Line (5 + x, 9 + y)-(13 + x, 9 + y), cf
+    Line (6 + x, 8 + y)-(12 + x, 8 + y), cf
+    Line (7 + x, 7 + y)-(11 + x, 7 + y), cf
+    Line (26 + x, 11 + y)-(36 + x, 10 + y), cf, BF
+    Line (27 + x, 9 + y)-(35 + x, 9 + y), cf
+    Line (28 + x, 8 + y)-(34 + x, 8 + y), cf
+    Line (29 + x, 7 + y)-(33 + x, 7 + y), cf
+    Line (17 + x, 9 + y)-(23 + x, 8 + y), cf, BF
+    Line (18 + x, 7 + y)-(22 + x, 6 + y), cf, BF
+    Line (19 + x, 5 + y)-(21 + x, 4 + y), cf, BF
+End Sub
+
+Sub queen ()
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 14 + y), cf, BF
+    Line (11 + x, 24 + y)-(29 + x, 24 + y), cf
+    Line (10 + x, 23 + y)-(30 + x, 23 + y), cf
+    Line (9 + x, 22 + y)-(31 + x, 22 + y), cf
+    Line (8 + x, 21 + y)-(32 + x, 21 + y), cf
+    Line (7 + x, 20 + y)-(33 + x, 20 + y), cf
+    Line (6 + x, 19 + y)-(34 + x, 18 + y), cf, BF
+    Line (6 + x, 17 + y)-(7 + x, 10 + y), cf, BF
+    Line (5 + x, 11 + y)-(8 + x, 14 + y), cf, BF
+    Line (4 + x, 12 + y)-(9 + x, 13 + y), cf, BF
+    Line (34 + x, 17 + y)-(33 + x, 10 + y), cf, BF
+    Line (35 + x, 11 + y)-(32 + x, 14 + y), cf, BF
+    Line (36 + x, 12 + y)-(31 + x, 13 + y), cf, BF
+    Line (12 + x, 13 + y)-(13 + x, 6 + y), cf, BF
+    Line (11 + x, 7 + y)-(14 + x, 10 + y), cf, BF
+    Line (10 + x, 8 + y)-(15 + x, 9 + y), cf, BF
+    Line (27 + x, 13 + y)-(28 + x, 6 + y), cf, BF
+    Line (26 + x, 7 + y)-(29 + x, 10 + y), cf, BF
+    Line (25 + x, 8 + y)-(30 + x, 9 + y), cf, BF
+    Line (19 + x, 13 + y)-(21 + x, 4 + y), cf, BF
+    Line (18 + x, 5 + y)-(22 + x, 8 + y), cf, BF
+    Line (17 + x, 6 + y)-(23 + x, 7 + y), cf, BF
+End Sub
+
+Sub bishop ()
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (18 + x, 31 + y)-(22 + x, 6 + y), cf, BF
+    Line (19 + x, 5 + y)-(21 + x, 4 + y), cf, BF
+    Line (12 + x, 31 + y)-(28 + x, 31 + y), cf
+    Line (13 + x, 30 + y)-(27 + x, 30 + y), cf
+    Line (14 + x, 29 + y)-(26 + x, 29 + y), cf
+    Line (15 + x, 28 + y)-(25 + x, 28 + y), cf
+    Line (16 + x, 27 + y)-(24 + x, 27 + y), cf
+    Line (17 + x, 26 + y)-(23 + x, 26 + y), cf
+    Line (17 + x, 21 + y)-(23 + x, 8 + y), cf, BF
+    Line (16 + x, 19 + y)-(24 + x, 10 + y), cf, BF
+    Line (15 + x, 17 + y)-(25 + x, 12 + y), cf, BF
+    Line (14 + x, 15 + y)-(26 + x, 14 + y), cf, BF
+End Sub
+
+Sub knight ()
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (12 + x, 31 + y)-(28 + x, 31 + y), cf
+    Line (13 + x, 30 + y)-(29 + x, 30 + y), cf
+    Line (14 + x, 29 + y)-(30 + x, 29 + y), cf
+    Line (15 + x, 28 + y)-(31 + x, 28 + y), cf
+    Line (16 + x, 27 + y)-(32 + x, 27 + y), cf
+    Line (17 + x, 26 + y)-(33 + x, 26 + y), cf
+    Line (18 + x, 25 + y)-(34 + x, 25 + y), cf
+    Line (19 + x, 24 + y)-(35 + x, 24 + y), cf
+    Line (20 + x, 23 + y)-(36 + x, 18 + y), cf, BF
+    Line (4 + x, 17 + y)-(35 + x, 17 + y), cf
+    Line (4 + x, 16 + y)-(34 + x, 16 + y), cf
+    Line (5 + x, 15 + y)-(33 + x, 15 + y), cf
+    Line (6 + x, 14 + y)-(32 + x, 14 + y), cf
+    Line (7 + x, 13 + y)-(31 + x, 13 + y), cf
+    Line (8 + x, 12 + y)-(30 + x, 12 + y), cf
+    Line (9 + x, 11 + y)-(29 + x, 11 + y), cf
+    Line (10 + x, 10 + y)-(28 + x, 10 + y), cf
+    Line (11 + x, 9 + y)-(27 + x, 9 + y), cf
+    Line (12 + x, 8 + y)-(26 + x, 8 + y), cf
+    Line (13 + x, 7 + y)-(25 + x, 7 + y), cf
+    Line (14 + x, 6 + y)-(24 + x, 6 + y), cf
+    Line (15 + x, 5 + y)-(23 + x, 5 + y), cf
+    Line (16 + x, 4 + y)-(22 + x, 4 + y), cf
+End Sub
+
+Sub rook ()
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (4 + x, 4 + y)-(8 + x, 12 + y), cf, BF
+    Line (13 + x, 4 + y)-(17 + x, 12 + y), cf, BF
+    Line (23 + x, 4 + y)-(27 + x, 12 + y), cf, BF
+    Line (32 + x, 4 + y)-(36 + x, 12 + y), cf, BF
+    Line (4 + x, 12 + y)-(36 + x, 16 + y), cf, BF
+    Line (12 + x, 16 + y)-(28 + x, 32 + y), cf, BF
+    Line (9 + x, 16 + y)-(11 + x, 16 + y), cf
+    Line (29 + x, 16 + y)-(31 + x, 16 + y), cf
+    Line (10 + x, 17 + y)-(11 + x, 17 + y), cf
+    Line (29 + x, 17 + y)-(30 + x, 17 + y), cf
+    PSet (11 + x, 18 + y), cf: PSet (29 + x, 18 + y), cf
+    Line (9 + x, 31 + y)-(11 + x, 31 + y), cf
+    Line (29 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(11 + x, 30 + y), cf
+    Line (29 + x, 30 + y)-(30 + x, 30 + y), cf
+    PSet (11 + x, 29 + y), cf: PSet (29 + x, 29 + y), cf
+End Sub
+
+Sub pawn ()
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (18 + x, 32 + y)-(22 + x, 4 + y), cf, BF
+    Line (12 + x, 9 + y)-(28 + x, 14 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
+    Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
+    Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
+    Line (15 + x, 25 + y)-(25 + x, 25 + y), cf
+    Line (16 + x, 24 + y)-(24 + x, 24 + y), cf
+    Line (17 + x, 23 + y)-(23 + x, 23 + y), cf
+    Line (17 + x, 19 + y)-(23 + x, 19 + y), cf
+    Line (16 + x, 18 + y)-(24 + x, 18 + y), cf
+    Line (15 + x, 17 + y)-(25 + x, 17 + y), cf
+    Line (14 + x, 16 + y)-(26 + x, 16 + y), cf
+    Line (13 + x, 15 + y)-(27 + x, 15 + y), cf
+    Line (13 + x, 8 + y)-(27 + x, 8 + y), cf
+    Line (14 + x, 7 + y)-(26 + x, 7 + y), cf
+    Line (15 + x, 6 + y)-(25 + x, 6 + y), cf
+    Line (16 + x, 5 + y)-(24 + x, 5 + y), cf
+    Line (17 + x, 4 + y)-(23 + x, 4 + y), cf
+End Sub
+
+Sub cannon ()
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
+    Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
+    Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
+    Line (15 + x, 25 + y)-(25 + x, 25 + y), cf
+    Line (16 + x, 24 + y)-(24 + x, 4 + y), cf, BF
+    Line (6 + x, 9 + y)-(36 + x, 12 + y), cf, BF
+    Line (4 + x, 10 + y)-(6 + x, 11 + y), cf, BF
+    Line (14 + x, 16 + y)-(25 + x, 16 + y), cf
+    Line (12 + x, 15 + y)-(26 + x, 15 + y), cf
+    Line (10 + x, 14 + y)-(27 + x, 14 + y), cf
+    Line (8 + x, 13 + y)-(28 + x, 13 + y), cf
+    Line (8 + x, 8 + y)-(28 + x, 8 + y), cf
+    Line (10 + x, 7 + y)-(27 + x, 7 + y), cf
+    Line (12 + x, 6 + y)-(26 + x, 6 + y), cf
+    Line (14 + x, 5 + y)-(25 + x, 5 + y), cf
+    Line (16 + x, 4 + y)-(24 + x, 4 + y), cf
+End Sub
+
+Sub general ()
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
+    Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
+    Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
+    Line (13 + x, 25 + y)-(27 + x, 22 + y), cf, BF
+    Line (16 + x, 21 + y)-(24 + x, 20 + y), cf, BF
+    Line (18 + x, 19 + y)-(22 + x, 12 + y), cf, BF
+    Line (19 + x, 11 + y)-(21 + x, 4 + y), cf, BF
+    Line (18 + x, 10 + y)-(22 + x, 5 + y), cf, BF
+    Line (17 + x, 9 + y)-(23 + x, 6 + y), cf, BF
+    Line (16 + x, 8 + y)-(24 + x, 7 + y), cf, BF
+    Line (15 + x, 20 + y)-(16 + x, 19 + y), cf, BF
+    Line (14 + x, 19 + y)-(15 + x, 18 + y), cf, BF
+    Line (13 + x, 18 + y)-(14 + x, 17 + y), cf, BF
+    Line (24 + x, 20 + y)-(25 + x, 19 + y), cf, BF
+    Line (25 + x, 19 + y)-(26 + x, 18 + y), cf, BF
+    Line (26 + x, 18 + y)-(27 + x, 17 + y), cf, BF
+    Line (11 + x, 18 + y)-(12 + x, 11 + y), cf, BF
+    Line (10 + x, 17 + y)-(13 + x, 12 + y), cf, BF
+    Line (9 + x, 16 + y)-(14 + x, 13 + y), cf, BF
+    Line (8 + x, 15 + y)-(15 + x, 14 + y), cf, BF
+    Line (28 + x, 18 + y)-(29 + x, 11 + y), cf, BF
+    Line (27 + x, 17 + y)-(30 + x, 12 + y), cf, BF
+    Line (26 + x, 16 + y)-(31 + x, 13 + y), cf, BF
+    Line (25 + x, 15 + y)-(32 + x, 14 + y), cf, BF
+    Line (4 + x, 24 + y)-(36 + x, 23 + y), cf, BF
+    Line (29 + x, 25 + y)-(35 + x, 22 + y), cf, BF
+    Line (30 + x, 26 + y)-(34 + x, 21 + y), cf, BF
+    Line (31 + x, 27 + y)-(33 + x, 20 + y), cf, BF
+    Line (5 + x, 25 + y)-(11 + x, 22 + y), cf, BF
+    Line (6 + x, 26 + y)-(10 + x, 21 + y), cf, BF
+    Line (7 + x, 27 + y)-(9 + x, 20 + y), cf, BF
+End Sub
+
+Sub tokin ()
+    Line (10 + x, 10 + y)-(30 + x, 30 + y), cf, BF
+    Line (4 + x, 4 + y)-(5 + x, 5 + y), cf, BF
+    Line (5 + x, 5 + y)-(7 + x, 7 + y), cf, BF
+    Line (6 + x, 6 + y)-(9 + x, 9 + y), cf, BF
+    Line (7 + x, 7 + y)-(11 + x, 11 + y), cf, BF
+    Line (8 + x, 8 + y)-(12 + x, 12 + y), cf, BF
+    Line (36 + x, 4 + y)-(35 + x, 5 + y), cf, BF
+    Line (35 + x, 5 + y)-(33 + x, 7 + y), cf, BF
+    Line (34 + x, 6 + y)-(31 + x, 9 + y), cf, BF
+    Line (33 + x, 7 + y)-(29 + x, 11 + y), cf, BF
+    Line (32 + x, 8 + y)-(28 + x, 12 + y), cf, BF
+    Line (36 + x, 36 + y)-(35 + x, 35 + y), cf, BF
+    Line (35 + x, 35 + y)-(33 + x, 33 + y), cf, BF
+    Line (34 + x, 34 + y)-(31 + x, 31 + y), cf, BF
+    Line (33 + x, 33 + y)-(29 + x, 29 + y), cf, BF
+    Line (32 + x, 32 + y)-(28 + x, 28 + y), cf, BF
+    Line (4 + x, 36 + y)-(5 + x, 35 + y), cf, BF
+    Line (5 + x, 35 + y)-(7 + x, 33 + y), cf, BF
+    Line (6 + x, 34 + y)-(9 + x, 31 + y), cf, BF
+    Line (7 + x, 33 + y)-(11 + x, 29 + y), cf, BF
+    Line (8 + x, 32 + y)-(12 + x, 28 + y), cf, BF
+    Line (17 + x, 9 + y)-(23 + x, 8 + y), cf, BF
+    Line (18 + x, 7 + y)-(22 + x, 6 + y), cf, BF
+    Line (19 + x, 5 + y)-(21 + x, 4 + y), cf, BF
+    Line (17 + x, 31 + y)-(23 + x, 32 + y), cf, BF
+    Line (18 + x, 33 + y)-(22 + x, 34 + y), cf, BF
+    Line (19 + x, 35 + y)-(21 + x, 36 + y), cf, BF
+    Line (8 + x, 17 + y)-(9 + x, 23 + y), cf, BF
+    Line (6 + x, 18 + y)-(7 + x, 22 + y), cf, BF
+    Line (4 + x, 19 + y)-(5 + x, 21 + y), cf, BF
+    Line (32 + x, 17 + y)-(31 + x, 23 + y), cf, BF
+    Line (34 + x, 18 + y)-(33 + x, 22 + y), cf, BF
+    Line (36 + x, 19 + y)-(35 + x, 21 + y), cf, BF
+End Sub
+
+Sub lance ()
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
+    Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
+    Line (14 + x, 26 + y)-(26 + x, 24 + y), cf, BF
+    Line (15 + x, 23 + y)-(25 + x, 20 + y), cf, BF
+    Line (16 + x, 19 + y)-(24 + x, 16 + y), cf, BF
+    Line (17 + x, 15 + y)-(23 + x, 12 + y), cf, BF
+    Line (18 + x, 11 + y)-(22 + x, 8 + y), cf, BF
+    Line (19 + x, 7 + y)-(21 + x, 4 + y), cf, BF
+End Sub
+
+Sub dragon ()
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
+    Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
+    Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
+    Line (15 + x, 25 + y)-(25 + x, 25 + y), cf
+    Line (15 + x, 20 + y)-(25 + x, 20 + y), cf
+    Line (14 + x, 19 + y)-(26 + x, 19 + y), cf
+    Line (13 + x, 18 + y)-(27 + x, 18 + y), cf
+    Line (16 + x, 24 + y)-(24 + x, 8 + y), cf, BF
+    Line (17 + x, 7 + y)-(23 + x, 6 + y), cf, BF
+    Line (18 + x, 5 + y)-(22 + x, 5 + y), cf
+    Line (19 + x, 4 + y)-(21 + x, 4 + y), cf
+    Line (9 + x, 12 + y)-(31 + x, 17 + y), cf, BF
+    Line (10 + x, 11 + y)-(13 + x, 11 + y), cf
+    Line (11 + x, 10 + y)-(12 + x, 10 + y), cf
+    Line (27 + x, 11 + y)-(30 + x, 11 + y), cf
+    Line (28 + x, 10 + y)-(29 + x, 10 + y), cf
+    Line (10 + x, 11 + y)-(10 + x, 18 + y), cf
+    Line (9 + x, 12 + y)-(9 + x, 19 + y), cf
+    Line (8 + x, 13 + y)-(8 + x, 20 + y), cf
+    Line (7 + x, 14 + y)-(7 + x, 21 + y), cf
+    Line (6 + x, 15 + y)-(6 + x, 22 + y), cf
+    Line (5 + x, 16 + y)-(5 + x, 23 + y), cf
+    Line (4 + x, 17 + y)-(4 + x, 24 + y), cf
+    Line (30 + x, 11 + y)-(30 + x, 18 + y), cf
+    Line (31 + x, 12 + y)-(31 + x, 19 + y), cf
+    Line (32 + x, 13 + y)-(32 + x, 20 + y), cf
+    Line (33 + x, 14 + y)-(33 + x, 21 + y), cf
+    Line (34 + x, 15 + y)-(34 + x, 22 + y), cf
+    Line (35 + x, 16 + y)-(35 + x, 23 + y), cf
+    Line (36 + x, 17 + y)-(36 + x, 24 + y), cf
+End Sub
+
+Sub horse ()
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (10 + x, 31 + y)-(11 + x, 26 + y), cf, BF
+    Line (16 + x, 31 + y)-(17 + x, 26 + y), cf, BF
+    Line (23 + x, 31 + y)-(24 + x, 26 + y), cf, BF
+    Line (29 + x, 31 + y)-(30 + x, 26 + y), cf, BF
+    Line (8 + x, 25 + y)-(32 + x, 14 + y), cf, BF
+    Line (7 + x, 24 + y)-(7 + x, 15 + y), cf
+    Line (6 + x, 23 + y)-(6 + x, 16 + y), cf
+    Line (5 + x, 22 + y)-(5 + x, 17 + y), cf
+    Line (4 + x, 21 + y)-(4 + x, 18 + y), cf
+    Line (33 + x, 24 + y)-(33 + x, 15 + y), cf
+    Line (34 + x, 23 + y)-(34 + x, 16 + y), cf
+    Line (35 + x, 22 + y)-(35 + x, 17 + y), cf
+    Line (36 + x, 21 + y)-(36 + x, 18 + y), cf
+    Line (14 + x, 13 + y)-(26 + x, 10 + y), cf, BF
+    Line (10 + x, 9 + y)-(30 + x, 7 + y), cf, BF
+    Line (10 + x, 6 + y)-(13 + x, 6 + y), cf
+    Line (10 + x, 5 + y)-(12 + x, 5 + y), cf
+    Line (10 + x, 4 + y)-(11 + x, 4 + y), cf
+    Line (30 + x, 6 + y)-(27 + x, 6 + y), cf
+    Line (30 + x, 5 + y)-(28 + x, 5 + y), cf
+    Line (30 + x, 4 + y)-(29 + x, 4 + y), cf
+    Line (16 + x, 6 + y)-(24 + x, 6 + y), cf
+    Line (17 + x, 5 + y)-(23 + x, 5 + y), cf
+    Line (18 + x, 4 + y)-(22 + x, 4 + y), cf
+End Sub
+
+Sub dame ()
+    Line (14 + x, 36 + y)-(26 + x, 28 + y), cf, BF
+    Line (14 + x, 4 + y)-(26 + x, 12 + y), cf, BF
+    Line (4 + x, 14 + y)-(12 + x, 26 + y), cf, BF
+    Line (28 + x, 14 + y)-(36 + x, 26 + y), cf, BF
+    Line (17 + x, 36 + y)-(17 + x, 27 + y), cf
+    Line (16 + x, 36 + y)-(16 + x, 26 + y), cf
+    Line (15 + x, 36 + y)-(15 + x, 25 + y), cf
+    Line (14 + x, 36 + y)-(14 + x, 24 + y), cf
+    Line (13 + x, 35 + y)-(13 + x, 23 + y), cf
+    Line (12 + x, 34 + y)-(12 + x, 22 + y), cf
+    Line (23 + x, 36 + y)-(23 + x, 27 + y), cf
+    Line (24 + x, 36 + y)-(24 + x, 26 + y), cf
+    Line (25 + x, 36 + y)-(25 + x, 25 + y), cf
+    Line (26 + x, 36 + y)-(26 + x, 24 + y), cf
+    Line (27 + x, 35 + y)-(27 + x, 23 + y), cf
+    Line (28 + x, 34 + y)-(28 + x, 22 + y), cf
+    Line (17 + x, 4 + y)-(17 + x, 13 + y), cf
+    Line (16 + x, 4 + y)-(16 + x, 14 + y), cf
+    Line (15 + x, 4 + y)-(15 + x, 15 + y), cf
+    Line (14 + x, 4 + y)-(14 + x, 16 + y), cf
+    Line (13 + x, 5 + y)-(13 + x, 17 + y), cf
+    Line (12 + x, 6 + y)-(12 + x, 18 + y), cf
+    Line (23 + x, 4 + y)-(23 + x, 13 + y), cf
+    Line (24 + x, 4 + y)-(24 + x, 14 + y), cf
+    Line (25 + x, 4 + y)-(25 + x, 15 + y), cf
+    Line (26 + x, 4 + y)-(26 + x, 16 + y), cf
+    Line (27 + x, 5 + y)-(27 + x, 17 + y), cf
+    Line (28 + x, 6 + y)-(28 + x, 18 + y), cf
+    Line (5 + x, 13 + y)-(5 + x, 27 + y), cf
+    Line (6 + x, 12 + y)-(6 + x, 28 + y), cf
+    Line (7 + x, 11 + y)-(7 + x, 29 + y), cf
+    Line (8 + x, 10 + y)-(8 + x, 30 + y), cf
+    Line (9 + x, 9 + y)-(9 + x, 31 + y), cf
+    Line (10 + x, 8 + y)-(10 + x, 32 + y), cf
+    Line (11 + x, 7 + y)-(11 + x, 33 + y), cf
+    Line (35 + x, 13 + y)-(35 + x, 27 + y), cf
+    Line (34 + x, 12 + y)-(34 + x, 28 + y), cf
+    Line (33 + x, 11 + y)-(33 + x, 29 + y), cf
+    Line (32 + x, 10 + y)-(32 + x, 30 + y), cf
+    Line (31 + x, 9 + y)-(31 + x, 31 + y), cf
+    Line (30 + x, 8 + y)-(30 + x, 32 + y), cf
+    Line (29 + x, 7 + y)-(29 + x, 33 + y), cf
+End Sub
+
+Sub checker ()
+    Line (14 + x, 36 + y)-(26 + x, 32 + y), cf, BF
+    Line (14 + x, 4 + y)-(26 + x, 8 + y), cf, BF
+    Line (4 + x, 14 + y)-(8 + x, 26 + y), cf, BF
+    Line (32 + x, 14 + y)-(36 + x, 26 + y), cf, BF
+    Line (13 + x, 35 + y)-(13 + x, 31 + y), cf
+    Line (12 + x, 34 + y)-(12 + x, 30 + y), cf
+    Line (11 + x, 33 + y)-(11 + x, 29 + y), cf
+    Line (10 + x, 32 + y)-(10 + x, 28 + y), cf
+    Line (9 + x, 31 + y)-(9 + x, 27 + y), cf
+    Line (8 + x, 30 + y)-(8 + x, 26 + y), cf
+    Line (27 + x, 35 + y)-(27 + x, 31 + y), cf
+    Line (28 + x, 34 + y)-(28 + x, 30 + y), cf
+    Line (29 + x, 33 + y)-(29 + x, 29 + y), cf
+    Line (30 + x, 32 + y)-(30 + x, 28 + y), cf
+    Line (31 + x, 31 + y)-(31 + x, 27 + y), cf
+    Line (32 + x, 30 + y)-(32 + x, 26 + y), cf
+    Line (13 + x, 5 + y)-(13 + x, 9 + y), cf
+    Line (12 + x, 6 + y)-(12 + x, 10 + y), cf
+    Line (11 + x, 7 + y)-(11 + x, 11 + y), cf
+    Line (10 + x, 8 + y)-(10 + x, 12 + y), cf
+    Line (9 + x, 9 + y)-(9 + x, 13 + y), cf
+    Line (8 + x, 10 + y)-(8 + x, 14 + y), cf
+    Line (27 + x, 5 + y)-(27 + x, 9 + y), cf
+    Line (28 + x, 6 + y)-(28 + x, 10 + y), cf
+    Line (29 + x, 7 + y)-(29 + x, 11 + y), cf
+    Line (30 + x, 8 + y)-(30 + x, 12 + y), cf
+    Line (31 + x, 9 + y)-(31 + x, 13 + y), cf
+    Line (32 + x, 10 + y)-(32 + x, 14 + y), cf
+    Line (5 + x, 13 + y)-(5 + x, 27 + y), cf
+    Line (6 + x, 12 + y)-(6 + x, 28 + y), cf
+    Line (7 + x, 11 + y)-(7 + x, 29 + y), cf
+    Line (35 + x, 13 + y)-(35 + x, 27 + y), cf
+    Line (34 + x, 12 + y)-(34 + x, 28 + y), cf
+    Line (33 + x, 11 + y)-(33 + x, 29 + y), cf
+    Line (17 + x, 28 + y)-(23 + x, 24 + y), cf, BF
+    Line (17 + x, 12 + y)-(23 + x, 16 + y), cf, BF
+    Line (12 + x, 17 + y)-(16 + x, 23 + y), cf, BF
+    Line (24 + x, 17 + y)-(28 + x, 23 + y), cf, BF
+    Line (18 + x, 28 + y)-(18 + x, 23 + y), cf
+    Line (17 + x, 28 + y)-(17 + x, 22 + y), cf
+    Line (16 + x, 27 + y)-(16 + x, 21 + y), cf
+    Line (22 + x, 28 + y)-(22 + x, 23 + y), cf
+    Line (23 + x, 28 + y)-(23 + x, 22 + y), cf
+    Line (24 + x, 27 + y)-(24 + x, 21 + y), cf
+    Line (18 + x, 12 + y)-(18 + x, 17 + y), cf
+    Line (17 + x, 12 + y)-(17 + x, 18 + y), cf
+    Line (16 + x, 13 + y)-(16 + x, 19 + y), cf
+    Line (22 + x, 12 + y)-(22 + x, 17 + y), cf
+    Line (23 + x, 12 + y)-(23 + x, 18 + y), cf
+    Line (24 + x, 13 + y)-(24 + x, 19 + y), cf
+    Line (13 + x, 16 + y)-(13 + x, 24 + y), cf
+    Line (14 + x, 15 + y)-(14 + x, 25 + y), cf
+    Line (15 + x, 14 + y)-(15 + x, 26 + y), cf
+    Line (27 + x, 16 + y)-(27 + x, 24 + y), cf
+    Line (26 + x, 15 + y)-(26 + x, 25 + y), cf
+    Line (25 + x, 14 + y)-(25 + x, 26 + y), cf
+End Sub
+
+Sub cells ()
+    Line (x, y)-(x + 40, y + 40), cd1, BF
+    Line (x - 1, y - 1)-(x + 41, y + 41), cb1, B
+End Sub
+
+Sub dices ()
+    Line (20, 160)-(60, 200), cd1, BF
+    Line (20, 220)-(60, 260), cd1, BF
+    Line (20, 280)-(60, 320), cd1, BF
+    Line (580, 160)-(620, 200), cd1, BF
+    Line (580, 220)-(620, 260), cd1, BF
+    Line (580, 280)-(620, 320), cd1, BF
+    Line (19, 159)-(61, 201), cb1, B
+    Line (19, 219)-(61, 261), cb1, B
+    Line (19, 279)-(61, 321), cb1, B
+    Line (579, 159)-(621, 201), cb1, B
+    Line (579, 219)-(621, 261), cb1, B
+    Line (579, 279)-(621, 321), cb1, B
+End Sub
+
+Sub chessboard ()
+    Line (160, 80)-(480, 400), cb2, BF
+    For x = 160 To 480 Step 40
+        Line (x, 80)-(x, 400), cb1
+    Next x
+    For y = 80 To 400 Step 40
+        Line (160, y)-(480, y), cb1
+    Next y
+    For y = 320 To 80 Step -80: For x = 400 To 160 Step -80
+        Line (x + 1, y + 1)-(x + 39, y + 39), cb3, BF
+        Line (x + 41, y + 41)-(x + 79, y + 79), cb3, BF
+    Next x: Next y
+   y = 405
+   x = 175:  numberA
+   x = 215:  numberB
+   x = 255:  numberC
+   x = 295:  numberD
+   x = 335:  numberE
+   x = 375:  numberF
+   x = 415:  numberG
+   x = 455:  numberH
+   x = 145
+   y = 95:  number8
+   y = 135:  number7
+   y = 175:  number6
+   y = 215:  number5
+   y = 255:  number4
+   y = 295:  number3
+   y = 335:  number2
+   y = 375:  number1
+End Sub
+
+Sub makrukboard ()
+    Line (160, 80)-(480, 400), cb2, BF
+    For x = 160 To 480 Step 40
+        Line (x, 80)-(x, 400), cb1
+    Next x
+    For y = 80 To 400 Step 40
+        Line (160, y)-(480, y), cb1
+    Next y
+   y = 405
+   x = 175:  numberA ()
+   x = 215:  numberB ()
+   x = 255:  numberC ()
+   x = 295:  numberD ()
+   x = 335:  numberE ()
+   x = 375:  numberF ()
+   x = 415:  numberG ()
+   x = 455:  numberH ()
+   x = 145
+   y = 95:  number8 ()
+   y = 135:  number7 ()
+   y = 175:  number6 ()
+   y = 215:  number5 ()
+   y = 255:  number4 ()
+   y = 295:  number3 ()
+   y = 335:  number2 ()
+   y = 375:  number1 ()
+End Sub
+
+Sub xiangqiboard ()
+    Line (140, 40)-(500, 440), cb2, BF
+    For x = 140 To 500 Step 40
+        Line (x, 40)-(x, 440), cb1
+    Next x
+    For y = 40 To 440 Step 40
+        Line (140, y)-(500, y), cb1
+    Next y
+    Line (259, 161)-(381, 159), cb4, BF
+    Line (259, 41)-(261, 159), cb4, BF
+    Line (379, 41)-(381, 159), cb4, BF
+    Line (259, 321)-(381, 319), cb4, BF
+    Line (259, 439)-(261, 319), cb4, BF
+    Line (379, 439)-(381, 319), cb4, BF
+    Line (141, 238)-(499, 242), cb5, BF
+   y = 445
+   x = 155:  numberA ()
+   x = 195:  numberB ()
+   x = 235:  numberC ()
+   x = 275:  numberD ()
+   x = 315:  numberE ()
+   x = 355:  numberF ()
+   x = 395:  numberG ()
+   x = 435:  numberH ()
+   x = 475:  numberI ()
+   x = 125
+   y = 55:  number0 ()
+   y = 95:  number9 ()
+   y = 135:  number8 ()
+   y = 175:  number7 ()
+   y = 215:  number6 ()
+   y = 255:  number5 ()
+   y = 295:  number4 ()
+   y = 335:  number3 ()
+   y = 375:  number2 ()
+   y = 415:  number1 ()
+End Sub
+
+Sub shogiboard ()
+    Line (140, 60)-(500, 420), cb2, BF
+    For x = 140 To 500 Step 40
+        Line (x, 60)-(x, 420), cb1
+    Next x
+    For y = 60 To 400 Step 40
+        Line (140, y)-(500, y), cb1
+    Next y
+   y = 425
+   x = 155:  numberA ()
+   x = 195:  numberB ()
+   x = 235:  numberC ()
+   x = 275:  numberD ()
+   x = 315:  numberE ()
+   x = 355:  numberF ()
+   x = 395:  numberG ()
+   x = 435:  numberH ()
+   x = 475:  numberI ()
+   x = 125
+   y = 75:  number9 ()
+   y = 115:  number8 ()
+   y = 155:  number7 ()
+   y = 195:  number6 ()
+   y = 235:  number5 ()
+   y = 275:  number4 ()
+   y = 315:  number3 ()
+   y = 355:  number2 ()
+   y = 395:  number1 ()
+End Sub
+
+Sub draughtsboard ()
+    Line (120, 40)-(520, 440), cb2, BF
+    For x = 120 To 520 Step 40
+        Line (x, 40)-(x, 440), cb1
+    Next x
+    For y = 40 To 440 Step 40
+        Line (120, y)-(520, y), cb1
+    Next y
+    For y = 360 To 40 Step -80: For x = 440 To 120 Step -80
+        Line (x + 1, y + 1)-(x + 39, y + 39), cb3, BF
+        Line (x + 41, y + 41)-(x + 79, y + 79), cb3, BF
+    Next x: Next y
+   y = 445
+   x = 135:  numberA ()
+   x = 175:  numberB ()
+   x = 215:  numberC ()
+   x = 255:  numberD ()
+   x = 295:  numberE ()
+   x = 335:  numberF ()
+   x = 375:  numberG ()
+   x = 415:  numberH ()
+   x = 455:  numberI ()
+   x = 495:  numberJ ()
+   x = 105
+   y = 55:  number0 ()
+   y = 95:  number9 ()
+   y = 135:  number8 ()
+   y = 175:  number7 ()
+   y = 215:  number6 ()
+   y = 255:  number5 ()
+   y = 295:  number4 ()
+   y = 335:  number3 ()
+   y = 375:  number2 ()
+   y = 415:  number1 ()
+End Sub
+
+Sub chess ()
+
+    Rem 1st roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 8 + 1)
+   dc2 = Int(Rnd * 8 + 1)
+   dc3 = 1
+   dc4 = Int(Rnd * 8 + 1)
+   dc5 = Int(Rnd * 8 + 1)
+   dc6 = 1
+   w1 = board(dc2, dc1): b1 = board(dc5, dc4)
+
+    Do
+       count = count + 1
+       dc1 = Int(Rnd * 8 + 1)
+       dc2 = Int(Rnd * 8 + 1)
+       dc4 = Int(Rnd * 8 + 1)
+       dc5 = Int(Rnd * 8 + 1)
+       w1 = board(dc2, dc1):b1 = board(dc5, dc4)
+        If count > 8000 Then Exit Do
+    Loop While Abs(w1 - b1) < 10
+
+   w1 = board(dc2, dc1):b1 = board(dc5, dc4)
+   fw1x = dc1:fw1y = dc2:fb1x = dc4:fb1y = dc5
+   fw1 = dc3:fb1 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  pawn ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  pawn ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+   x = (dc1 * 40) + 120:y = Abs((dc2 * 40) - 480) - 80
+   cf = 15:  king
+   x = (dc4 * 40) + 120:y = Abs((dc5 * 40) - 480) - 80
+   cf = 0:  king
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                 chessfen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+     dices
+
+    Rem 2nd roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 8 + 1)
+   dc2 = Int(Rnd * 8 + 1)
+   dc3 = Int(Rnd * 5 + 2)
+   dc4 = Int(Rnd * 8 + 1)
+   dc5 = Int(Rnd * 8 + 1)
+   dc6 = Int(Rnd * 5 + 2)
+   w2 = board(dc2, dc1):b2 = board(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            ''Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               fw2x = dc1:fw2y = dc2
+               w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               fw2x = dc1:fw2y = dc2
+               w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 = 1 Or dc2 = 8
+    End Select
+    Select Case dc6
+        Case Is = 1
+            ''Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               fb2x = dc4:fb2y = dc5
+               b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               fb2x = dc4:fb2y = dc5
+               b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 = 1 Or dc5 = 8
+    End Select
+
+   w2 = board(dc2, dc1):b2 = board(dc5, dc4)
+   fw2x = dc1:fw2y = dc2:fb2x = dc4:fb2y = dc5
+   fw2 = dc3:fb2 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  pawn ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  pawn ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+   x = (dc1 * 40) + 120:y = Abs((dc2 * 40) - 480) - 80
+   cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  pawn ()
+   x = (dc4 * 40) + 120:y = Abs((dc5 * 40) - 480) - 80
+   cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  pawn ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                 chessfen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+     dices ()
+
+    Rem 3rd roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 8 + 1)
+   dc2 = Int(Rnd * 8 + 1)
+   dc3 = Int(Rnd * 5 + 2)
+   dc4 = Int(Rnd * 8 + 1)
+   dc5 = Int(Rnd * 8 + 1)
+   dc6 = Int(Rnd * 5 + 2)
+   w3 = board(dc2, dc1):b3 = board(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            ''Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               fw3x = dc1:fw3y = dc2
+               w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               fw3x = dc1:fw3y = dc2
+               w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            ''Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               fb3x = dc4:fb3y = dc5
+               b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               fb3x = dc4:fb3y = dc5
+               b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+   w3 = board(dc2, dc1):b3 = board(dc5, dc4)
+   fw3x = dc1:fw3y = dc2:fb3x = dc4:fb3y = dc5
+   fw3 = dc3:fb3 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  pawn ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  pawn ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+   x = (dc1 * 40) + 120:y = Abs((dc2 * 40) - 480) - 80
+   cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  pawn ()
+   x = (dc4 * 40) + 120:y = Abs((dc5 * 40) - 480) - 80
+   cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  pawn ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                 chessfen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+     dices ()
+
+    Rem 4th roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 8 + 1)
+   dc2 = Int(Rnd * 8 + 1)
+   dc3 = Int(Rnd * 5 + 2)
+   dc4 = Int(Rnd * 8 + 1)
+   dc5 = Int(Rnd * 8 + 1)
+   dc6 = Int(Rnd * 5 + 2)
+   w4 = board(dc2, dc1):b4 = board(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            ''Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               fw4x = dc1:fw4y = dc2
+               w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               fw4x = dc1:fw4y = dc2
+               w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            ''Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               fb4x = dc4:fb4y = dc5
+               b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               fb4x = dc4:fb4y = dc5
+               b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+   w4 = board(dc2, dc1):b4 = board(dc5, dc4)
+   fw4x = dc1:fw4y = dc2:fb4x = dc4:fb4y = dc5
+   fw4 = dc3:fb4 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  pawn ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  pawn ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+   x = (dc1 * 40) + 120:y = Abs((dc2 * 40) - 480) - 80
+   cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  pawn ()
+   x = (dc4 * 40) + 120:y = Abs((dc5 * 40) - 480) - 80
+   cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  pawn ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                ''Exit Case
+            Case Is = Chr$(13)
+                 chessfen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+End Sub
+
+Sub makruk ()
+
+    Rem 1st roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 8 + 1)
+   dc2 = Int(Rnd * 8 + 1)
+   dc3 = 1
+   dc4 = Int(Rnd * 8 + 1)
+   dc5 = Int(Rnd * 8 + 1)
+   dc6 = 1
+   w1 = board(dc2, dc1):b1 = board(dc5, dc4)
+
+    Do
+       count = count + 1
+       dc1 = Int(Rnd * 8 + 1)
+       dc2 = Int(Rnd * 8 + 1)
+       dc4 = Int(Rnd * 8 + 1)
+       dc5 = Int(Rnd * 8 + 1)
+       w1 = board(dc2, dc1):b1 = board(dc5, dc4)
+        If count > 8000 Then Exit Do
+    Loop While Abs(w1 - b1) < 10
+
+   w1 = board(dc2, dc1):b1 = board(dc5, dc4)
+   fw1x = dc1:fw1y = dc2:fb1x = dc4:fb1y = dc5
+   fw1 = dc3:fb1 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  checker ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  checker ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+   x = (dc1 * 40) + 120:y = Abs((dc2 * 40) - 480) - 80
+   cf = 15:  king
+   x = (dc4 * 40) + 120:y = Abs((dc5 * 40) - 480) - 80
+   cf = 0:  king
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                 makrukfen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+     dices ()
+
+    Rem 2nd roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 8 + 1)
+   dc2 = Int(Rnd * 8 + 1)
+   dc3 = Int(Rnd * 5 + 2)
+   dc4 = Int(Rnd * 8 + 1)
+   dc5 = Int(Rnd * 8 + 1)
+   dc6 = Int(Rnd * 5 + 2)
+   w2 = board(dc2, dc1):b2 = board(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            ''Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+           indexw3 = 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+           indexw4 = 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+           indexw5 = 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               fw2x = dc1:fw2y = dc2
+               w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 < 3 Or dc2 > 5
+    End Select
+    Select Case dc6
+        Case Is = 1
+            ''Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+           indexb3 = 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+           indexb4 = 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+           indexb5 = 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               fb2x = dc4:fb2y = dc5
+               b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 < 4 Or dc5 > 6
+    End Select
+
+   w2 = board(dc2, dc1):b2 = board(dc5, dc4)
+   fw2x = dc1:fw2y = dc2:fb2x = dc4:fb2y = dc5
+   fw2 = dc3:fb2 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  checker ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  checker ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+   x = (dc1 * 40) + 120:y = Abs((dc2 * 40) - 480) - 80
+   cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  checker ()
+   x = (dc4 * 40) + 120:y = Abs((dc5 * 40) - 480) - 80
+   cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  checker ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                 makrukfen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+     dices ()
+
+    Rem 3rd roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 8 + 1)
+   dc2 = Int(Rnd * 8 + 1)
+   dc3 = Int(Rnd * 5 + 2)
+   dc4 = Int(Rnd * 8 + 1)
+   dc5 = Int(Rnd * 8 + 1)
+   dc6 = Int(Rnd * 5 + 2)
+   w3 = board(dc2, dc1):b3 = board(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            ''Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+           indexw3 = indexw3 + 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+           indexw4 = indexw4 + 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+           indexw5 = indexw5 + 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               fw3x = dc1:fw3y = dc2
+               w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            'Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+           indexb3 = indexb3 + 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+           indexb4 = indexb4 + 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+           indexb5 = indexb5 + 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               fb3x = dc4:fb3y = dc5
+               b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+   w3 = board(dc2, dc1):b3 = board(dc5, dc4)
+   fw3x = dc1:fw3y = dc2:fb3x = dc4:fb3y = dc5
+   fw3 = dc3:fb3 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  checker ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  checker ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+   x = (dc1 * 40) + 120:y = Abs((dc2 * 40) - 480) - 80
+   cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  checker ()
+   x = (dc4 * 40) + 120:y = Abs((dc5 * 40) - 480) - 80
+   cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  checker ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                 makrukfen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+     dices ()
+
+    Rem 4th roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 8 + 1)
+   dc2 = Int(Rnd * 8 + 1)
+   dc3 = Int(Rnd * 5 + 2)
+   dc4 = Int(Rnd * 8 + 1)
+   dc5 = Int(Rnd * 8 + 1)
+   dc6 = Int(Rnd * 5 + 2)
+   w4 = board(dc2, dc1):b4 = board(dc5, dc4)
+    If indexw3 > 2 Or indexw4 > 2 Or indexw5 > 2 Then dc3 = 6
+    If indexb3 > 2 Or indexb4 > 2 Or indexb5 > 2 Then dc6 = 6
+
+    Select Case dc3
+        Case Is = 1
+            'Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               fw4x = dc1:fw4y = dc2
+               w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 8 + 1)
+               dc2 = Int(Rnd * 8 + 1)
+               w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            'Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               fb4x = dc4:fb4y = dc5
+               b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 8 + 1)
+               dc5 = Int(Rnd * 8 + 1)
+               b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+   w4 = board(dc2, dc1):b4 = board(dc5, dc4)
+   fw4x = dc1:fw4y = dc2:fb4x = dc4:fb4y = dc5
+   fw4 = dc3:fb4 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  checker ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  checker ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+   x = (dc1 * 40) + 120:y = Abs((dc2 * 40) - 480) - 80
+   cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  checker ()
+   x = (dc4 * 40) + 120:y = Abs((dc5 * 40) - 480) - 80
+   cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  checker ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                'Exit Case
+            Case Is = Chr$(13)
+                 makrukfen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+End Sub
+
+Sub xiangqi ()
+
+    Rem 1st roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 3 + 4)
+   dc2 = Int(Rnd * 3 + 1)
+   dc3 = 1
+   dc4 = Int(Rnd * 3 + 4)
+   dc5 = Int(Rnd * 3 + 8)
+   dc6 = 1
+   w1 = xiabo(dc2, dc1):b1 = xiabo(dc5, dc4)
+
+    Do
+       count = count + 1
+       dc1 = Int(Rnd * 3 + 4)
+       dc2 = Int(Rnd * 3 + 1)
+       dc4 = Int(Rnd * 3 + 4)
+       dc5 = Int(Rnd * 3 + 8)
+       w1 = xiabo(dc2, dc1):b1 = xiabo(dc5, dc4)
+        If count > 8000 Then Exit Do
+    Loop While w1 = b1
+
+   w1 = xiabo(dc2, dc1):b1 = xiabo(dc5, dc4)
+   fw1x = dc1:fw1y = dc2:fb1x = dc4:fb1y = dc5
+   fw1 = dc3:fb1 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  cannon ()
+    If dc3 = 7 Then  pawn ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  cannon ()
+    If dc6 = 7 Then  pawn ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+    If dc1 = 9 Then  letterI ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+    If dc2 = 9 Then  letter9 ()
+    If dc2 = 10 Then  letter0 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+    If dc4 = 9 Then  letterI ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+    If dc5 = 9 Then  letter9 ()
+    If dc5 = 10 Then  letter0 ()
+   x = (dc1 * 40) + 100:y = Abs((dc2 * 40) - 480) - 40
+   cf = 15:  king ()
+   x = (dc4 * 40) + 100:y = Abs((dc5 * 40) - 480) - 40
+   cf = 0:  king ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                 xiangqifen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+     dices ()
+
+    Rem 2nd roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 9 + 1)
+   dc2 = Int(Rnd * 10 + 1)
+   dc3 = Int(Rnd * 6 + 2)
+   dc4 = Int(Rnd * 9 + 1)
+   dc5 = Int(Rnd * 10 + 1)
+   dc6 = Int(Rnd * 6 + 2)
+   w2 = xiabo(dc2, dc1):b2 = xiabo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            'Exit Case
+        Case Is = 2
+           indexw2 = 1
+           dc1 = Int(Rnd * 3 + 4)
+           dc2 = Int(Rnd * 3 + 1)
+            Do
+               count = count + 1
+               index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                   dc1 = 4
+                   dc2 = 1
+                End If
+                If index = 2 Then
+                   dc1 = 6
+                   dc2 = 1
+                End If
+                If index = 3 Then
+                   dc1 = 5
+                   dc2 = 2
+                End If
+                If index = 4 Then
+                   dc1 = 4
+                   dc2 = 3
+                End If
+                If index = 5 Then
+                   dc1 = 6
+                   dc2 = 3
+                End If
+               w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or w2 Mod 2 <> 0
+        Case Is = 3
+           indexw3 = 1
+           dc1 = Int(Rnd * 9 + 1)
+           dc2 = Int(Rnd * 5 + 1)
+            Do
+               count = count + 1
+               index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                   dc1 = 3
+                   dc2 = 1
+                End If
+                If index = 2 Then
+                   dc1 = 7
+                   dc2 = 1
+                End If
+                If index = 3 Then
+                   dc1 = 1
+                   dc2 = 3
+                End If
+                If index = 4 Then
+                   dc1 = 5
+                   dc2 = 3
+                End If
+                If index = 5 Then
+                   dc1 = 9
+                   dc2 = 3
+                End If
+                If index = 6 Then
+                   dc1 = 3
+                   dc2 = 5
+                End If
+                If index = 7 Then
+                   dc1 = 7
+                   dc2 = 5
+                End If
+               w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+           indexw4 = 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 10 + 1)
+               w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+           indexw5 = 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 10 + 1)
+               fw2x = dc1:fw2y = dc2
+               w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+           indexw6 = 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 10 + 1)
+               fw2x = dc1:fw2y = dc2
+               w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 7
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 10 + 1)
+               w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 < 4 Or dc2 > 7
+    End Select
+    Select Case dc6
+        Case Is = 1
+            'Exit Case
+        Case Is = 2
+           indexb2 = 1
+           dc4 = Int(Rnd * 3 + 4)
+           dc5 = Int(Rnd * 3 + 8)
+            Do
+               count = count + 1
+               index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                   dc4 = 4
+                   dc5 = 10
+                End If
+                If index = 2 Then
+                   dc4 = 6
+                   dc5 = 10
+                End If
+                If index = 3 Then
+                   dc4 = 5
+                   dc5 = 9
+                End If
+                If index = 4 Then
+                   dc4 = 4
+                   dc5 = 8
+                End If
+                If index = 5 Then
+                   dc4 = 6
+                   dc5 = 8
+                End If
+               b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or b2 Mod 2 = 0
+        Case Is = 3
+           indexb3 = 1
+           dc4 = Int(Rnd * 9 + 1)
+           dc5 = Int(Rnd * 5 + 6)
+            Do
+               count = count + 1
+               index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                   dc4 = 3
+                   dc5 = 10
+                End If
+                If index = 2 Then
+                   dc4 = 7
+                   dc5 = 10
+                End If
+                If index = 3 Then
+                   dc4 = 1
+                   dc5 = 8
+                End If
+                If index = 4 Then
+                   dc4 = 5
+                   dc5 = 8
+                End If
+                If index = 5 Then
+                   dc4 = 9
+                   dc5 = 8
+                End If
+                If index = 6 Then
+                   dc4 = 3
+                   dc5 = 6
+                End If
+                If index = 7 Then
+                   dc4 = 7
+                   dc5 = 6
+                End If
+               b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or b2
+        Case Is = 4
+           indexb4 = 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 10 + 1)
+               b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+           indexb5 = 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 10 + 1)
+               fb2x = dc4:fb2y = dc5
+               b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+           indexb6 = 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 10 + 1)
+               fb2x = dc4:fb2y = dc5
+               b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 7
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 10 + 1)
+               b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 < 3 Or dc5 > 8
+    End Select
+
+   w2 = xiabo(dc2, dc1):b2 = xiabo(dc5, dc4)
+   fw2x = dc1:fw2y = dc2:fb2x = dc4:fb2y = dc5
+   fw2 = dc3:fb2 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  cannon ()
+    If dc3 = 7 Then  pawn ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  cannon ()
+    If dc6 = 7 Then  pawn ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+    If dc1 = 9 Then  letterI ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+    If dc2 = 9 Then  letter9 ()
+    If dc2 = 10 Then  letter0 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+    If dc4 = 9 Then  letterI ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+    If dc5 = 9 Then  letter9 ()
+    If dc5 = 10 Then  letter0 ()
+   x = (dc1 * 40) + 100:y = Abs((dc2 * 40) - 480) - 40
+   cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  cannon ()
+    If dc3 = 7 Then  pawn ()
+   x = (dc4 * 40) + 100:y = Abs((dc5 * 40) - 480) - 40
+   cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  cannon ()
+    If dc6 = 7 Then  pawn ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                 xiangqifen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+     dices ()
+
+    Rem 3rd roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 9 + 1)
+   dc2 = Int(Rnd * 10 + 1)
+   dc3 = Int(Rnd * 6 + 2)
+   dc4 = Int(Rnd * 9 + 1)
+   dc5 = Int(Rnd * 10 + 1)
+   dc6 = Int(Rnd * 6 + 2)
+   w3 = xiabo(dc2, dc1):b3 = xiabo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            'Exit Case
+        Case Is = 2
+           indexw2 = indexw2 + 1
+           dc1 = Int(Rnd * 3 + 4)
+           dc2 = Int(Rnd * 3 + 1)
+            Do
+               count = count + 1
+               index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                   dc1 = 4
+                   dc2 = 1
+                End If
+                If index = 2 Then
+                   dc1 = 6
+                   dc2 = 1
+                End If
+                If index = 3 Then
+                   dc1 = 5
+                   dc2 = 2
+                End If
+                If index = 4 Then
+                   dc1 = 4
+                   dc2 = 3
+                End If
+                If index = 5 Then
+                   dc1 = 6
+                   dc2 = 3
+                End If
+               w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+           indexw3 = indexw3 + 1
+           dc1 = Int(Rnd * 9 + 1)
+           dc2 = Int(Rnd * 5 + 1)
+            Do
+               count = count + 1
+               index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                   dc1 = 3
+                   dc2 = 1
+                End If
+                If index = 2 Then
+                   dc1 = 7
+                   dc2 = 1
+                End If
+                If index = 3 Then
+                   dc1 = 1
+                   dc2 = 3
+                End If
+                If index = 4 Then
+                   dc1 = 5
+                   dc2 = 3
+                End If
+                If index = 5 Then
+                   dc1 = 9
+                   dc2 = 3
+                End If
+                If index = 6 Then
+                   dc1 = 3
+                   dc2 = 5
+                End If
+                If index = 7 Then
+                   dc1 = 7
+                   dc2 = 5
+                End If
+               w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+           indexw4 = indexw4 + 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 10 + 1)
+               w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+           indexw5 = indexw5 + 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 10 + 1)
+               fw3x = dc1:fw3y = dc2
+               w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+           indexw6 = indexw6 + 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 10 + 1)
+               fw3x = dc1:fw3y = dc2
+               w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 10 + 1)
+               w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            'Exit Case
+        Case Is = 2
+           indexb2 = indexb2 + 1
+           dc4 = Int(Rnd * 3 + 4)
+           dc5 = Int(Rnd * 3 + 8)
+            Do
+               count = count + 1
+               index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                   dc4 = 4
+                   dc5 = 10
+                End If
+                If index = 2 Then
+                   dc4 = 6
+                   dc5 = 10
+                End If
+                If index = 3 Then
+                   dc4 = 5
+                   dc5 = 9
+                End If
+                If index = 4 Then
+                   dc4 = 4
+                   dc5 = 8
+                End If
+                If index = 5 Then
+                   dc4 = 6
+                   dc5 = 8
+                End If
+               b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+           indexb3 = indexb3 + 1
+           dc4 = Int(Rnd * 9 + 1)
+           dc5 = Int(Rnd * 5 + 6)
+            Do
+               count = count + 1
+               index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                   dc4 = 3
+                   dc5 = 10
+                End If
+                If index = 2 Then
+                   dc4 = 7
+                   dc5 = 10
+                End If
+                If index = 3 Then
+                   dc4 = 1
+                   dc5 = 8
+                End If
+                If index = 4 Then
+                   dc4 = 5
+                   dc5 = 8
+                End If
+                If index = 5 Then
+                   dc4 = 9
+                   dc5 = 8
+                End If
+                If index = 6 Then
+                   dc4 = 3
+                   dc5 = 6
+                End If
+                If index = 7 Then
+                   dc4 = 7
+                   dc5 = 6
+                End If
+               b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+           indexb4 = indexb4 + 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 10 + 1)
+               b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+           indexb5 = indexb5 + 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 10 + 1)
+               fb3x = dc4:fb3y = dc5
+               b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+           indexb6 = indexb6 + 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 10 + 1)
+               fb3x = dc4:fb3y = dc5
+               b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 10 + 1)
+               b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+   w3 = xiabo(dc2, dc1):b3 = xiabo(dc5, dc4)
+   fw3x = dc1:fw3y = dc2:fb3x = dc4:fb3y = dc5
+   fw3 = dc3:fb3 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  cannon ()
+    If dc3 = 7 Then  pawn ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  cannon ()
+    If dc6 = 7 Then  pawn ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+    If dc1 = 9 Then  letterI ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+    If dc2 = 9 Then  letter9 ()
+    If dc2 = 10 Then  letter0 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+    If dc4 = 9 Then  letterI ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+    If dc5 = 9 Then  letter9 ()
+    If dc5 = 10 Then  letter0 ()
+   x = (dc1 * 40) + 100:y = Abs((dc2 * 40) - 480) - 40
+   cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  cannon ()
+    If dc3 = 7 Then  pawn ()
+   x = (dc4 * 40) + 100:y = Abs((dc5 * 40) - 480) - 40
+   cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  cannon ()
+    If dc6 = 7 Then  pawn ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                 xiangqifen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+     dices ()
+
+    Rem 4th roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 9 + 1)
+   dc2 = Int(Rnd * 10 + 1)
+   dc3 = Int(Rnd * 6 + 2)
+   dc4 = Int(Rnd * 9 + 1)
+   dc5 = Int(Rnd * 10 + 1)
+   dc6 = Int(Rnd * 6 + 2)
+   w4 = xiabo(dc2, dc1):b2 = xiabo(dc5, dc4)
+    If indexw2 > 2 Or indexw3 > 2 Or indexw4 > 2 Or indexw5 > 2 Or indexw6 > 2 Then dc3 = 7
+    If indexb2 > 2 Or indexb3 > 2 Or indexb4 > 2 Or indexb5 > 2 Or indexb6 > 2 Then dc6 = 7
+
+    Select Case dc3
+        Case Is = 1
+            'Exit Case
+        Case Is = 2
+           dc1 = Int(Rnd * 3 + 4)
+           dc2 = Int(Rnd * 3 + 1)
+            Do
+               count = count + 1
+               index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                   dc1 = 4
+                   dc2 = 1
+                End If
+                If index = 2 Then
+                   dc1 = 6
+                   dc2 = 1
+                End If
+                If index = 3 Then
+                   dc1 = 5
+                   dc2 = 2
+                End If
+                If index = 4 Then
+                   dc1 = 4
+                   dc2 = 3
+                End If
+                If index = 5 Then
+                   dc1 = 6
+                   dc2 = 3
+                End If
+               w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+           dc1 = Int(Rnd * 9 + 1)
+           dc2 = Int(Rnd * 5 + 1)
+            Do
+               count = count + 1
+               index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                   dc1 = 3
+                   dc2 = 1
+                End If
+                If index = 2 Then
+                   dc1 = 7
+                   dc2 = 1
+                End If
+                If index = 3 Then
+                   dc1 = 1
+                   dc2 = 3
+                End If
+                If index = 4 Then
+                   dc1 = 5
+                   dc2 = 3
+                End If
+                If index = 5 Then
+                   dc1 = 9
+                   dc2 = 3
+                End If
+                If index = 6 Then
+                   dc1 = 3
+                   dc2 = 5
+                End If
+                If index = 7 Then
+                   dc1 = 7
+                   dc2 = 5
+                End If
+               w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 10 + 1)
+               w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 10 + 1)
+               fw4x = dc1:fw4y = dc2
+               w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 10 + 1)
+               fw4x = dc1:fw4y = dc2
+               w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 10 + 1)
+               w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            'Exit Case
+        Case Is = 2
+           dc4 = Int(Rnd * 3 + 4)
+           dc5 = Int(Rnd * 3 + 8)
+            Do
+               count = count + 1
+               index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                   dc4 = 4
+                   dc5 = 10
+                End If
+                If index = 2 Then
+                   dc4 = 6
+                   dc5 = 10
+                End If
+                If index = 3 Then
+                   dc4 = 5
+                   dc5 = 9
+                End If
+                If index = 4 Then
+                   dc4 = 4
+                   dc5 = 8
+                End If
+                If index = 5 Then
+                   dc4 = 6
+                   dc5 = 8
+                End If
+               b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+           dc4 = Int(Rnd * 9 + 1)
+           dc5 = Int(Rnd * 5 + 6)
+            Do
+               count = count + 1
+               index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                   dc4 = 3
+                   dc5 = 10
+                End If
+                If index = 2 Then
+                   dc4 = 7
+                   dc5 = 10
+                End If
+                If index = 3 Then
+                   dc4 = 1
+                   dc5 = 8
+                End If
+                If index = 4 Then
+                   dc4 = 5
+                   dc5 = 8
+                End If
+                If index = 5 Then
+                   dc4 = 9
+                   dc5 = 8
+                End If
+                If index = 6 Then
+                   dc4 = 3
+                   dc5 = 6
+                End If
+                If index = 7 Then
+                   dc4 = 7
+                   dc5 = 6
+                End If
+               b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 10 + 1)
+               b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 10 + 1)
+               fb4x = dc4:fb4y = dc5
+               b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 10 + 1)
+               fb4x = dc4:fb4y = dc5
+               b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 10 + 1)
+               b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+   w4 = xiabo(dc2, dc1):b4 = xiabo(dc5, dc4)
+   fw4x = dc1:fw4y = dc2:fb4x = dc4:fb4y = dc5
+   fw4 = dc3:fb4 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  cannon ()
+    If dc3 = 7 Then  pawn ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  cannon ()
+    If dc6 = 7 Then  pawn ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+    If dc1 = 9 Then  letterI ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+    If dc2 = 9 Then  letter9 ()
+    If dc2 = 10 Then  letter0 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+    If dc4 = 9 Then  letterI ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+    If dc5 = 9 Then  letter9 ()
+    If dc5 = 10 Then  letter0 ()
+   x = (dc1 * 40) + 100:y = Abs((dc2 * 40) - 480) - 40
+   cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  bishop ()
+    If dc3 = 4 Then  knight ()
+    If dc3 = 5 Then  rook ()
+    If dc3 = 6 Then  cannon ()
+    If dc3 = 7 Then  pawn ()
+   x = (dc4 * 40) + 100:y = Abs((dc5 * 40) - 480) - 40
+   cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  bishop ()
+    If dc6 = 4 Then  knight ()
+    If dc6 = 5 Then  rook ()
+    If dc6 = 6 Then  cannon ()
+    If dc6 = 7 Then  pawn ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                'Exit Case
+            Case Is = Chr$(13)
+                 xiangqifen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+End Sub
+
+Sub shogi ()
+
+    Rem 1st roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 9 + 1)
+   dc2 = Int(Rnd * 9 + 1)
+   dc3 = 1
+   dc4 = Int(Rnd * 9 + 1)
+   dc5 = Int(Rnd * 9 + 1)
+   dc6 = 1
+   w1 = shobo(dc2, dc1):b1 = shobo(dc5, dc4)
+
+    Do
+       count = count + 1
+       dc1 = Int(Rnd * 9 + 1)
+       dc2 = Int(Rnd * 9 + 1)
+       dc4 = Int(Rnd * 9 + 1)
+       dc5 = Int(Rnd * 9 + 1)
+       w1 = shobo(dc2, dc1):b1 = shobo(dc5, dc4)
+        If count > 8000 Then Exit Do
+    Loop While Abs(w1 - b1) < 11
+
+   w1 = shobo(dc2, dc1):b1 = shobo(dc5, dc4)
+   fw1x = dc1:fw1y = dc2:fb1x = dc4:fb1y = dc5
+   fw1 = dc3:fb1 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  general ()
+    If dc3 = 4 Then  bishop ()
+    If dc3 = 5 Then  knight ()
+    If dc3 = 6 Then  rook ()
+    If dc3 = 7 Then  lance ()
+    If dc3 = 8 Then  pawn ()
+    If dc3 = 9 Then  tokin ()
+    If dc3 = 10 Then  dragon ()
+    If dc3 = 11 Then  horse ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  general ()
+    If dc6 = 4 Then  bishop ()
+    If dc6 = 5 Then  knight ()
+    If dc6 = 6 Then  rook ()
+    If dc6 = 7 Then  lance ()
+    If dc6 = 8 Then  pawn ()
+    If dc6 = 9 Then  tokin ()
+    If dc6 = 10 Then  dragon ()
+    If dc6 = 11 Then  horse ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+    If dc1 = 9 Then  letterI ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+    If dc2 = 9 Then  letter9 ()
+    If dc2 = 10 Then  letter0 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+    If dc4 = 9 Then  letterI ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+    If dc5 = 9 Then  letter9 ()
+    If dc5 = 10 Then  letter0 ()
+   x = (dc1 * 40) + 100:y = Abs((dc2 * 40) - 480) - 60
+   cf = 15:  king ()
+   x = (dc4 * 40) + 100:y = Abs((dc5 * 40) - 480) - 60
+   cf = 0:  king ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                 shogifen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+     dices ()
+
+    Rem 2nd roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 9 + 1)
+   dc2 = Int(Rnd * 9 + 1)
+   dc3 = Int(Rnd * 10 + 2)
+   dc4 = Int(Rnd * 9 + 1)
+   dc5 = Int(Rnd * 9 + 1)
+   dc6 = Int(Rnd * 10 + 2)
+   w2 = shobo(dc2, dc1):b2 = shobo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            'Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+           indexw3 = 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+           indexw4 = 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+           indexw5 = 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               fw2x = dc1:fw2y = dc2
+               w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+               indexw6 = 1
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               fw2x = dc1:fw2y = dc2
+               w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 7
+           indexw7 = 1
+           index = Int(Rnd * 2 + 1)
+            If index = 1 Then dc1 = 1 Else dc1 = 9
+            If dc1 = 1 Then indexw71 = 1 Else indexw72 = 1
+            Do
+               count = count + 1
+               dc2 = Int(Rnd * 9 + 1)
+               w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 8
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 < 3 Or dc2 > 7
+        Case Is = 9
+           indexw9 = 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 10
+           indexw10 = 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 11
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+    End Select
+    Select Case dc6
+        Case Is = 1
+            'Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+           indexb3 = 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+           indexb4 = 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+           indexb5 = 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               fb2x = dc4:fb2y = dc5
+               b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+               indexb6 = 1
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               fb2x = dc4:fb2y = dc5
+               b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 7
+           indexb7 = 1
+           index = Int(Rnd * 2 + 1)
+            If index = 1 Then dc4 = 1 Else dc4 = 9
+            If dc4 = 1 Then indexb71 = 1 Else indexb72 = 1
+            Do
+               count = count + 1
+               dc5 = Int(Rnd * 9 + 1)
+               b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 8
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 < 3 Or dc5 > 7
+        Case Is = 9
+           indexb9 = 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 10
+           indexb10 = 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 11
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+    End Select
+
+   w2 = shobo(dc2, dc1):b2 = shobo(dc5, dc4)
+   fw2x = dc1:fw2y = dc2:fb2x = dc4:fb2y = dc5
+   fw2 = dc3:fb2 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  general ()
+    If dc3 = 4 Then  bishop ()
+    If dc3 = 5 Then  knight ()
+    If dc3 = 6 Then  rook ()
+    If dc3 = 7 Then  lance ()
+    If dc3 = 8 Then  pawn ()
+    If dc3 = 9 Then  horse ()
+    If dc3 = 10 Then  dragon ()
+    If dc3 = 11 Then  tokin ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  general ()
+    If dc6 = 4 Then  bishop ()
+    If dc6 = 5 Then  knight ()
+    If dc6 = 6 Then  rook ()
+    If dc6 = 7 Then  lance ()
+    If dc6 = 8 Then  pawn ()
+    If dc6 = 9 Then  horse ()
+    If dc6 = 10 Then  dragon ()
+    If dc6 = 11 Then  tokin ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+    If dc1 = 9 Then  letterI ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+    If dc2 = 9 Then  letter9 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+    If dc4 = 9 Then  letterI ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+    If dc5 = 9 Then  letter9 ()
+   x = (dc1 * 40) + 100:y = Abs((dc2 * 40) - 480) - 60
+   cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  general ()
+    If dc3 = 4 Then  bishop ()
+    If dc3 = 5 Then  knight ()
+    If dc3 = 6 Then  rook ()
+    If dc3 = 7 Then  lance ()
+    If dc3 = 8 Then  pawn ()
+    If dc3 = 9 Then  horse ()
+    If dc3 = 10 Then  dragon ()
+    If dc3 = 11 Then  tokin ()
+   x = (dc4 * 40) + 100:y = Abs((dc5 * 40) - 480) - 60
+   cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  general ()
+    If dc6 = 4 Then  bishop ()
+    If dc6 = 5 Then  knight ()
+    If dc6 = 6 Then  rook ()
+    If dc6 = 7 Then  lance ()
+    If dc6 = 8 Then  pawn ()
+    If dc6 = 9 Then  horse ()
+    If dc6 = 10 Then  dragon ()
+    If dc6 = 11 Then  tokin ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                 shogifen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+     dices ()
+
+    Rem 3rd roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 9 + 1)
+   dc2 = Int(Rnd * 9 + 1)
+   dc3 = Int(Rnd * 10 + 2)
+   dc4 = Int(Rnd * 9 + 1)
+   dc5 = Int(Rnd * 9 + 1)
+   dc6 = Int(Rnd * 10 + 2)
+   w3 = shobo(dc2, dc1):b3 = shobo(dc5, dc4)
+    If dc3 = 4 Then indexw4 = indexw4 + 1
+    If dc3 = 6 Then indexw6 = indexw6 + 1
+    If dc3 = 9 Then indexw9 = indexw9 + 1
+    If dc3 = 10 Then indexw10 = indexw10 + 1
+    If indexw4 > 1 Then
+       dc3 = 8
+       indexw4 = indexw4 - 1
+    End If
+    If indexw6 > 1 Then
+       dc3 = 8
+       indexw6 = indexw4 - 1
+    End If
+    If indexw9 > 1 Then
+       dc3 = 8
+       indexw9 = indexw4 - 1
+    End If
+    If indexw10 > 1 Then
+       dc3 = 8
+       indexw10 = indexw4 - 1
+    End If
+    If indexb4 > 1 Then
+       dc6 = 8
+       indexb4 = indexb4 - 1
+    End If
+    If indexb6 > 1 Then
+       dc6 = 8
+       indexb6 = indexb4 - 1
+    End If
+    If indexb9 > 1 Then
+       dc6 = 8
+       indexb9 = indexb4 - 1
+    End If
+    If indexb10 > 1 Then
+       dc6 = 8
+       indexb10 = indexb4 - 1
+    End If
+
+    Select Case dc3
+        Case Is = 1
+            'Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+           indexw3 = indexw3 + 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+           indexw4 = indexw4 + 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+           indexw5 = indexw5 + 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               fw2x = dc1:fw2y = dc2
+               w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+           indexw6 = indexw6 + 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               fw2x = dc1:fw2y = dc2
+               w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+           indexw7 = indexw7 + 1
+           index = Int(Rnd * 2 + 1)
+            If index = 1 Then dc1 = 1 Else dc1 = 9
+            If indexw71 = 1 Then dc1 = 9
+            If indexw72 = 1 Then dc1 = 1
+            Do
+               count = count + 1
+               dc2 = Int(Rnd * 9 + 1)
+               w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 8
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 9
+           indexw9 = indexw9 + 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 10
+           indexw10 = indexw10 + 1
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 11
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            'Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+           indexb3 = indexb3 + 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+           indexb4 = indexb4 + 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+           indexb5 = indexb5 + 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               fb2x = dc4:fb2y = dc5
+               b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+           indexb6 = indexb6 + 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               fb2x = dc4:fb2y = dc5
+               b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+           indexb7 = indexb7 + 1
+           index = Int(Rnd * 2 + 1)
+            If index = 1 Then dc4 = 1 Else dc4 = 9
+            If indexb71 = 1 Then dc4 = 9
+            If indexb72 = 1 Then dc4 = 1
+            Do
+               count = count + 1
+               dc5 = Int(Rnd * 9 + 1)
+               b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 8
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 9
+           indexb9 = indexb9 + 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 10
+           indexb10 = indexb10 + 1
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 11
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+   w3 = shobo(dc2, dc1):b3 = shobo(dc5, dc4)
+   fw3x = dc1:fw3y = dc2:fb3x = dc4:fb3y = dc5
+   fw3 = dc3:fb3 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  general ()
+    If dc3 = 4 Then  bishop ()
+    If dc3 = 5 Then  knight ()
+    If dc3 = 6 Then  rook ()
+    If dc3 = 7 Then  lance ()
+    If dc3 = 8 Then  pawn ()
+    If dc3 = 9 Then  horse ()
+    If dc3 = 10 Then  dragon ()
+    If dc3 = 11 Then  tokin ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  general ()
+    If dc6 = 4 Then  bishop ()
+    If dc6 = 5 Then  knight ()
+    If dc6 = 6 Then  rook ()
+    If dc6 = 7 Then  lance ()
+    If dc6 = 8 Then  pawn ()
+    If dc6 = 9 Then  horse ()
+    If dc6 = 10 Then  dragon ()
+    If dc6 = 11 Then  tokin ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+    If dc1 = 9 Then  letterI ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+    If dc2 = 9 Then  letter9 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+    If dc4 = 9 Then  letterI ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+    If dc5 = 9 Then  letter9 ()
+   x = (dc1 * 40) + 100:y = Abs((dc2 * 40) - 480) - 60
+   cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  general ()
+    If dc3 = 4 Then  bishop ()
+    If dc3 = 5 Then  knight ()
+    If dc3 = 6 Then  rook ()
+    If dc3 = 7 Then  lance ()
+    If dc3 = 8 Then  pawn ()
+    If dc3 = 9 Then  horse ()
+    If dc3 = 10 Then  dragon ()
+    If dc3 = 11 Then  tokin ()
+   x = (dc4 * 40) + 100:y = Abs((dc5 * 40) - 480) - 60
+   cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  general ()
+    If dc6 = 4 Then  bishop ()
+    If dc6 = 5 Then  knight ()
+    If dc6 = 6 Then  rook ()
+    If dc6 = 7 Then  lance ()
+    If dc6 = 8 Then  pawn ()
+    If dc6 = 9 Then  horse ()
+    If dc6 = 10 Then  dragon ()
+    If dc6 = 11 Then  tokin ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                 shogifen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+     dices ()
+
+    Rem 4th roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 9 + 1)
+   dc2 = Int(Rnd * 9 + 1)
+   dc3 = Int(Rnd * 10 + 2)
+   dc4 = Int(Rnd * 9 + 1)
+   dc5 = Int(Rnd * 9 + 1)
+   dc6 = Int(Rnd * 10 + 2)
+   w4 = shobo(dc2, dc1):b4 = shobo(dc5, dc4)
+    If dc3 = 4 Then indexw4 = indexw4 + 1
+    If dc3 = 6 Then indexw6 = indexw6 + 1
+    If dc3 = 9 Then indexw9 = indexw9 + 1
+    If dc3 = 10 Then indexw10 = indexw10 + 1
+    If indexw4 > 1 Then
+       dc3 = 8
+       indexw4 = indexw4 - 1
+    End If
+    If indexw6 > 1 Then
+       dc3 = 8
+       indexw6 = indexw4 - 1
+    End If
+    If indexw9 > 1 Then
+       dc3 = 8
+       indexw9 = indexw4 - 1
+    End If
+    If indexw10 > 1 Then
+       dc3 = 8
+       indexw10 = indexw4 - 1
+    End If
+    If indexb4 > 1 Then
+       dc6 = 8
+       indexb4 = indexb4 - 1
+    End If
+    If indexb6 > 1 Then
+       dc6 = 8
+       indexb6 = indexb4 - 1
+    End If
+    If indexb9 > 1 Then
+       dc6 = 8
+       indexb9 = indexb4 - 1
+    End If
+    If indexb10 > 1 Then
+       dc6 = 8
+       indexb10 = indexb4 - 1
+    End If
+    If indexw3 > 2 Or indexw5 > 2 Or indexw7 > 2 Then dc3 = 8
+    If indexb3 > 2 Or indexb5 > 2 Or indexb7 > 2 Then dc6 = 8
+
+    Select Case dc3
+        Case Is = 1
+            'Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               fw2x = dc1:fw2y = dc2
+               w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               fw2x = dc1:fw2y = dc2
+               w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+           index = Int(Rnd * 2 + 1)
+            If index = 1 Then dc1 = 1 Else dc1 = 9
+            If indexw71 = 1 Then dc1 = 9
+            If indexw72 = 1 Then dc1 = 1
+            Do
+               count = count + 1
+               dc2 = Int(Rnd * 9 + 1)
+               w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 8
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 9
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 10
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 11
+            Do
+               count = count + 1
+               dc1 = Int(Rnd * 9 + 1)
+               dc2 = Int(Rnd * 9 + 1)
+               w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            'Exit Case
+        Case Is = 2
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               fb2x = dc4:fb2y = dc5
+               b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               fb2x = dc4:fb2y = dc5
+               b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+           index = Int(Rnd * 2 + 1)
+            If index = 1 Then dc4 = 1 Else dc4 = 9
+            If indexb71 = 1 Then dc4 = 9
+            If indexb72 = 1 Then dc4 = 1
+            Do
+               count = count + 1
+               dc5 = Int(Rnd * 9 + 1)
+               b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 8
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 9
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 10
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 11
+            Do
+               count = count + 1
+               dc4 = Int(Rnd * 9 + 1)
+               dc5 = Int(Rnd * 9 + 1)
+               b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+   w4 = shobo(dc2, dc1):b4 = shobo(dc5, dc4)
+   fw4x = dc1:fw4y = dc2:fb4x = dc4:fb4y = dc5
+   fw4 = dc3:fb4 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  general ()
+    If dc3 = 4 Then  bishop ()
+    If dc3 = 5 Then  knight ()
+    If dc3 = 6 Then  rook ()
+    If dc3 = 7 Then  lance ()
+    If dc3 = 8 Then  pawn ()
+    If dc3 = 9 Then  horse ()
+    If dc3 = 10 Then  dragon ()
+    If dc3 = 11 Then  tokin ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  general ()
+    If dc6 = 4 Then  bishop ()
+    If dc6 = 5 Then  knight ()
+    If dc6 = 6 Then  rook ()
+    If dc6 = 7 Then  lance ()
+    If dc6 = 8 Then  pawn ()
+    If dc6 = 9 Then  horse ()
+    If dc6 = 10 Then  dragon ()
+    If dc6 = 11 Then  tokin ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+    If dc1 = 9 Then  letterI ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+    If dc2 = 9 Then  letter9 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+    If dc4 = 9 Then  letterI ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+    If dc5 = 9 Then  letter9 ()
+   x = (dc1 * 40) + 100:y = Abs((dc2 * 40) - 480) - 60
+   cf = 15
+    If dc3 = 1 Then  king ()
+    If dc3 = 2 Then  queen ()
+    If dc3 = 3 Then  general ()
+    If dc3 = 4 Then  bishop ()
+    If dc3 = 5 Then  knight ()
+    If dc3 = 6 Then  rook ()
+    If dc3 = 7 Then  lance ()
+    If dc3 = 8 Then  pawn ()
+    If dc3 = 9 Then  horse ()
+    If dc3 = 10 Then  dragon ()
+    If dc3 = 11 Then  tokin ()
+   x = (dc4 * 40) + 100:y = Abs((dc5 * 40) - 480) - 60
+   cf = 0
+    If dc6 = 1 Then  king ()
+    If dc6 = 2 Then  queen ()
+    If dc6 = 3 Then  general ()
+    If dc6 = 4 Then  bishop ()
+    If dc6 = 5 Then  knight ()
+    If dc6 = 6 Then  rook ()
+    If dc6 = 7 Then  lance ()
+    If dc6 = 8 Then  pawn ()
+    If dc6 = 9 Then  horse ()
+    If dc6 = 10 Then  dragon ()
+    If dc6 = 11 Then  tokin ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                'Exit Case
+            Case Is = Chr$(13)
+                 shogifen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+End Sub
+
+Sub draughts ()
+
+    Rem 1st roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 10 + 1)
+   dc2 = Int(Rnd * 10 + 1)
+   dc3 = Int(Rnd * 2 + 1)
+   dc4 = Int(Rnd * 10 + 1)
+   dc5 = Int(Rnd * 10 + 1)
+   dc6 = Int(Rnd * 2 + 1)
+   w1 = drabo(dc2, dc1):b1 = drabo(dc5, dc4)
+
+    Do
+        Do
+           count = count + 1
+           dc1 = Int(Rnd * 8 + 1)
+           dc2 = Int(Rnd * 8 + 1)
+           dc4 = Int(Rnd * 8 + 1)
+           dc5 = Int(Rnd * 8 + 1)
+           w1 = drabo(dc2, dc1):b1 = drabo(dc5, dc4)
+            If count > 8000 Then Exit Do
+        Loop Until w1 Mod 2 <> 0 And b1 Mod 2 <> 0
+       count = count + 1
+        If count > 8000 Then Exit Do
+    Loop While w1 = b1
+
+   w1 = drabo(dc2, dc1):b1 = drabo(dc5, dc4)
+   fw1x = dc1:fw1y = dc2:fb1x = dc4:fb1y = dc5
+   fw1 = dc3:fb1 = dc6
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  dame ()
+    If dc3 = 2 Then  checker ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  dame ()
+    If dc6 = 2 Then  checker ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+    If dc1 = 9 Then  letterI ()
+    If dc1 = 10 Then  letterJ ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+    If dc2 = 9 Then  letter9 ()
+    If dc2 = 10 Then  letter0 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+    If dc4 = 9 Then  letterI ()
+    If dc4 = 10 Then  letterJ ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+    If dc5 = 9 Then  letter9 ()
+    If dc5 = 10 Then  letter0 ()
+   x = (dc1 * 40) + 80:y = Abs((dc2 * 40) - 480) - 40
+   cf = 15
+    If dc3 = 1 Then  dame ()
+    If dc3 = 2 Then  checker ()
+   x = (dc4 * 40) + 80:y = Abs((dc5 * 40) - 480) - 40
+   cf = 0
+    If dc6 = 1 Then  dame ()
+    If dc6 = 2 Then  checker ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                 draughtsfen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+     dices ()
+
+    Rem 2nd roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 10 + 1)
+   dc2 = Int(Rnd * 10 + 1)
+   dc3 = Int(Rnd * 2 + 1)
+   dc4 = Int(Rnd * 10 + 1)
+   dc5 = Int(Rnd * 10 + 1)
+   dc6 = Int(Rnd * 2 + 1)
+   w2 = drabo(dc2, dc1):b2 = drabo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Do
+                Do
+                   count = count + 1
+                   dc1 = Int(Rnd * 10 + 1)
+                   dc2 = Int(Rnd * 10 + 1)
+                   w2 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w2 Mod 2 <> 0
+               count = count + 1
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 2
+            Do
+                Do
+                   count = count + 1
+                   dc1 = Int(Rnd * 10 + 1)
+                   dc2 = Int(Rnd * 10 + 1)
+                   w2 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w2 Mod 2 <> 0
+               count = count + 1
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Do
+                Do
+                   count = count + 1
+                   dc4 = Int(Rnd * 10 + 1)
+                   dc5 = Int(Rnd * 10 + 1)
+                   b2 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b2 Mod 2 <> 0
+               count = count + 1
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 2
+            Do
+                Do
+                   count = count + 1
+                   dc4 = Int(Rnd * 10 + 1)
+                   dc5 = Int(Rnd * 10 + 1)
+                   b2 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b2 Mod 2 <> 0
+               count = count + 1
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+    End Select
+
+   w2 = drabo(dc2, dc1):b2 = drabo(dc5, dc4)
+   fw2x = dc1:fw2y = dc2:fb2x = dc4:fb2y = dc5
+   fw2 = dc3:fb2 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  dame ()
+    If dc3 = 2 Then  checker ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  dame ()
+    If dc6 = 2 Then  checker ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+    If dc1 = 9 Then  letterI ()
+    If dc1 = 10 Then  letterJ ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+    If dc2 = 9 Then  letter9 ()
+    If dc2 = 10 Then  letter0 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+    If dc4 = 9 Then  letterI ()
+    If dc4 = 10 Then  letterJ ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+    If dc5 = 9 Then  letter9 ()
+    If dc5 = 10 Then  letter0 ()
+   x = (dc1 * 40) + 80:y = Abs((dc2 * 40) - 480) - 40
+   cf = 15
+    If dc3 = 1 Then  dame ()
+    If dc3 = 2 Then  checker ()
+   x = (dc4 * 40) + 80:y = Abs((dc5 * 40) - 480) - 40
+   cf = 0
+    If dc6 = 1 Then  dame ()
+    If dc6 = 2 Then  checker ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                 draughtsfen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+     dices ()
+
+    Rem 3rd roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 10 + 1)
+   dc2 = Int(Rnd * 10 + 1)
+   dc3 = Int(Rnd * 2 + 1)
+   dc4 = Int(Rnd * 10 + 1)
+   dc5 = Int(Rnd * 10 + 1)
+   dc6 = Int(Rnd * 2 + 1)
+   w3 = drabo(dc2, dc1):b3 = drabo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Do
+                Do
+                   count = count + 1
+                   dc1 = Int(Rnd * 10 + 1)
+                   dc2 = Int(Rnd * 10 + 1)
+                   w3 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w3 Mod 2 <> 0
+               count = count + 1
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 2
+            Do
+                Do
+                   count = count + 1
+                   dc1 = Int(Rnd * 10 + 1)
+                   dc2 = Int(Rnd * 10 + 1)
+                   w3 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w3 Mod 2 <> 0
+               count = count + 1
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Do
+                Do
+                   count = count + 1
+                   dc4 = Int(Rnd * 10 + 1)
+                   dc5 = Int(Rnd * 10 + 1)
+                   b3 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b3 Mod 2 <> 0
+               count = count + 1
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 2
+            Do
+                Do
+                   count = count + 1
+                   dc4 = Int(Rnd * 10 + 1)
+                   dc5 = Int(Rnd * 10 + 1)
+                   b3 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b3 Mod 2 <> 0
+               count = count + 1
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+   w3 = drabo(dc2, dc1):b3 = drabo(dc5, dc4)
+   fw3x = dc1:fw3y = dc2:fb3x = dc4:fb3y = dc5
+   fw3 = dc3:fb3 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  dame ()
+    If dc3 = 2 Then  checker ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  dame ()
+    If dc6 = 2 Then  checker ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+    If dc1 = 9 Then  letterI ()
+    If dc1 = 10 Then  letterJ ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+    If dc2 = 9 Then  letter9 ()
+    If dc2 = 10 Then  letter0 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+    If dc4 = 9 Then  letterI ()
+    If dc4 = 10 Then  letterJ ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+    If dc5 = 9 Then  letter9 ()
+    If dc5 = 10 Then  letter0 ()
+   x = (dc1 * 40) + 80:y = Abs((dc2 * 40) - 480) - 40
+   cf = 15
+    If dc3 = 1 Then  dame ()
+    If dc3 = 2 Then  checker ()
+   x = (dc4 * 40) + 80:y = Abs((dc5 * 40) - 480) - 40
+   cf = 0
+    If dc6 = 1 Then  dame ()
+    If dc6 = 2 Then  checker ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                 draughtsfen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+     dices ()
+
+    Rem 4th roll
+   count = 0:index = 0
+   dc1 = Int(Rnd * 10 + 1)
+   dc2 = Int(Rnd * 10 + 1)
+   dc3 = Int(Rnd * 2 + 1)
+   dc4 = Int(Rnd * 10 + 1)
+   dc5 = Int(Rnd * 10 + 1)
+   dc6 = Int(Rnd * 2 + 1)
+   w4 = drabo(dc2, dc1):b4 = drabo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Do
+                Do
+                   count = count + 1
+                   dc1 = Int(Rnd * 10 + 1)
+                   dc2 = Int(Rnd * 10 + 1)
+                   w4 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w4 Mod 2 <> 0
+               count = count + 1
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 2
+            Do
+                Do
+                   count = count + 1
+                   dc1 = Int(Rnd * 10 + 1)
+                   dc2 = Int(Rnd * 10 + 1)
+                   w4 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w4 Mod 2 <> 0
+               count = count + 1
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Do
+                Do
+                   count = count + 1
+                   dc4 = Int(Rnd * 10 + 1)
+                   dc5 = Int(Rnd * 10 + 1)
+                   b4 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b4 Mod 2 <> 0
+               count = count + 1
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 2
+            Do
+                Do
+                   count = count + 1
+                   dc4 = Int(Rnd * 10 + 1)
+                   dc5 = Int(Rnd * 10 + 1)
+                   b4 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b4 Mod 2 <> 0
+               count = count + 1
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+   w4 = drabo(dc2, dc1):b4 = drabo(dc5, dc4)
+   fw4x = dc1:fw4y = dc2:fb4x = dc4:fb4y = dc5
+   fw4 = dc3:fb4 = dc6
+
+   x = 20:y = 160:cf = 15
+    If dc3 = 1 Then  dame ()
+    If dc3 = 2 Then  checker ()
+   x = 580:y = 160:cf = 0
+    If dc6 = 1 Then  dame ()
+    If dc6 = 2 Then  checker ()
+   x = 20:y = 220
+    If dc1 = 1 Then  letterA ()
+    If dc1 = 2 Then  letterB ()
+    If dc1 = 3 Then  letterC ()
+    If dc1 = 4 Then  letterD ()
+    If dc1 = 5 Then  letterE ()
+    If dc1 = 6 Then  letterF ()
+    If dc1 = 7 Then  letterG ()
+    If dc1 = 8 Then  letterH ()
+    If dc1 = 9 Then  letterI ()
+    If dc1 = 10 Then  letterJ ()
+   x = 20:y = 280
+    If dc2 = 1 Then  letter1 ()
+    If dc2 = 2 Then  letter2 ()
+    If dc2 = 3 Then  letter3 ()
+    If dc2 = 4 Then  letter4 ()
+    If dc2 = 5 Then  letter5 ()
+    If dc2 = 6 Then  letter6 ()
+    If dc2 = 7 Then  letter7 ()
+    If dc2 = 8 Then  letter8 ()
+    If dc2 = 9 Then  letter9 ()
+    If dc2 = 10 Then  letter0 ()
+   x = 580:y = 220
+    If dc4 = 1 Then  letterA ()
+    If dc4 = 2 Then  letterB ()
+    If dc4 = 3 Then  letterC ()
+    If dc4 = 4 Then  letterD ()
+    If dc4 = 5 Then  letterE ()
+    If dc4 = 6 Then  letterF ()
+    If dc4 = 7 Then  letterG ()
+    If dc4 = 8 Then  letterH ()
+    If dc4 = 9 Then  letterI ()
+    If dc4 = 10 Then  letterJ ()
+   x = 580:y = 280
+    If dc5 = 1 Then  letter1 ()
+    If dc5 = 2 Then  letter2 ()
+    If dc5 = 3 Then  letter3 ()
+    If dc5 = 4 Then  letter4 ()
+    If dc5 = 5 Then  letter5 ()
+    If dc5 = 6 Then  letter6 ()
+    If dc5 = 7 Then  letter7 ()
+    If dc5 = 8 Then  letter8 ()
+    If dc5 = 9 Then  letter9 ()
+    If dc5 = 10 Then  letter0 ()
+   x = (dc1 * 40) + 80:y = Abs((dc2 * 40) - 480) - 40
+   cf = 15
+    If dc3 = 1 Then  dame ()
+    If dc3 = 2 Then  checker ()
+   x = (dc4 * 40) + 80:y = Abs((dc5 * 40) - 480) - 40
+   cf = 0
+    If dc6 = 1 Then  dame ()
+    If dc6 = 2 Then  checker ()
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                'Exit Case
+            Case Is = Chr$(13)
+                 draughtsfen ()
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+End Sub
+
+Sub chessfen ()
+
+    Rem Forsyth-Edwards notation
+
+    If fw1 = 1 Then fig1w$ = "K"
+    If fw1 = 2 Then fig1w$ = "Q"
+    If fw1 = 3 Then fig1w$ = "B"
+    If fw1 = 4 Then fig1w$ = "N"
+    If fw1 = 5 Then fig1w$ = "R"
+    If fw1 = 6 Then fig1w$ = "P"
+
+    If fb1 = 1 Then fig1b$ = "k"
+    If fb1 = 2 Then fig1b$ = "q"
+    If fb1 = 3 Then fig1b$ = "b"
+    If fb1 = 4 Then fig1b$ = "n"
+    If fb1 = 5 Then fig1b$ = "r"
+    If fb1 = 6 Then fig1b$ = "p"
+
+    If fw2 = 1 Then fig2w$ = "K"
+    If fw2 = 2 Then fig2w$ = "Q"
+    If fw2 = 3 Then fig2w$ = "B"
+    If fw2 = 4 Then fig2w$ = "N"
+    If fw2 = 5 Then fig2w$ = "R"
+    If fw2 = 6 Then fig2w$ = "P"
+
+    If fb2 = 1 Then fig2b$ = "k"
+    If fb2 = 2 Then fig2b$ = "q"
+    If fb2 = 3 Then fig2b$ = "b"
+    If fb2 = 4 Then fig2b$ = "n"
+    If fb2 = 5 Then fig2b$ = "r"
+    If fb2 = 6 Then fig2b$ = "p"
+
+    If fw3 = 1 Then fig3w$ = "K"
+    If fw3 = 2 Then fig3w$ = "Q"
+    If fw3 = 3 Then fig3w$ = "B"
+    If fw3 = 4 Then fig3w$ = "N"
+    If fw3 = 5 Then fig3w$ = "R"
+    If fw3 = 6 Then fig3w$ = "P"
+
+    If fb3 = 1 Then fig3b$ = "k"
+    If fb3 = 2 Then fig3b$ = "q"
+    If fb3 = 3 Then fig3b$ = "b"
+    If fb3 = 4 Then fig3b$ = "n"
+    If fb3 = 5 Then fig3b$ = "r"
+    If fb3 = 6 Then fig3b$ = "p"
+
+    If fw4 = 1 Then fig4w$ = "K"
+    If fw4 = 2 Then fig4w$ = "Q"
+    If fw4 = 3 Then fig4w$ = "B"
+    If fw4 = 4 Then fig4w$ = "N"
+    If fw4 = 5 Then fig4w$ = "R"
+    If fw4 = 6 Then fig4w$ = "P"
+
+    If fb4 = 1 Then fig4b$ = "k"
+    If fb4 = 2 Then fig4b$ = "q"
+    If fb4 = 3 Then fig4b$ = "b"
+    If fb4 = 4 Then fig4b$ = "n"
+    If fb4 = 5 Then fig4b$ = "r"
+    If fb4 = 6 Then fig4b$ = "p"
+
+    Dim table(8, 8) As String
+   table(fw1y, fw1x) = fig1w$
+   table(fb1y, fb1x) = fig1b$
+   table(fw2y, fw2x) = fig2w$
+   table(fb2y, fb2x) = fig2b$
+   table(fw3y, fw3x) = fig3w$
+   table(fb3y, fb3x) = fig3b$
+   table(fw4y, fw4x) = fig4w$
+   table(fb4y, fb4x) = fig4b$
+    For row = 1 To 8: For col = 1 To 8
+        If table(row, col) = "" Then table(row, col) = "+"
+    Next col: Next row
+
+   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)
+   lin1$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+            lin1$ = lin1$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
+            lin1$ = lin1$ + LTrim$(Str$(count))
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin2$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+            lin2$ = lin2$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
+            lin2$ = lin2$ + LTrim$(Str$(count))
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin3$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+            lin3$ = lin3$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
+            lin3$ = lin3$ + LTrim$(Str$(count))
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin4$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+            lin4$ = lin4$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
+            lin4$ = lin4$ + LTrim$(Str$(count))
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin5$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+            lin5$ = lin5$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
+            lin5$ = lin5$ + LTrim$(Str$(count))
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin6$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+            lin6$ = lin6$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
+            lin6$ = lin6$ + LTrim$(Str$(count))
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin7$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+            lin7$ = lin7$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
+            lin7$ = lin7$ + LTrim$(Str$(count))
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin8$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+            lin8$ = lin8$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
+            lin8$ = lin8$ + LTrim$(Str$(count))
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   fen$ = lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
+
+    Color 10
+    Locate 2, 1: Print "              Press any key to display the Forsyth-Edwards notation                    "
+    Do
+    Loop Until InKey$ <> ""
+    Locate 2, 1: Print "                                                                                       "
+    Color 12
+    Locate 2, 28: Print fen$
+
+    Do
+    Loop Until InKey$ <> ""
+
+    SetTextClpbrd (fen$)
+
+    url$ = "https://syzygy-tables.info/?fen=" + fen$
+    If InStr(_OS$, "[WINDOWS]") Then
+        Shell url$
+    End If
+    If InStr(_OS$, "[LINUX]") Then
+        Shell "xdg-open " + url$
+    End If
+    If InStr(_OS$, "[MACOSX]") Then
+        Shell "open -a safari https://" + url$
+    End If
+
+    System
+End Sub
+
+Sub makrukfen ()
+
+    Rem Forsyth-Edwards notation
+
+    If fw1 = 1 Then fig1w$ = "L"
+    If fw1 = 2 Then fig1w$ = "S"
+    If fw1 = 3 Then fig1w$ = "N"
+    If fw1 = 4 Then fig1w$ = "H"
+    If fw1 = 5 Then fig1w$ = "B"
+    If fw1 = 6 Then fig1w$ = "C"
+
+    If fb1 = 1 Then fig1b$ = "l"
+    If fb1 = 2 Then fig1b$ = "s"
+    If fb1 = 3 Then fig1b$ = "n"
+    If fb1 = 4 Then fig1b$ = "h"
+    If fb1 = 5 Then fig1b$ = "b"
+    If fb1 = 6 Then fig1b$ = "c"
+
+    If fw2 = 1 Then fig2w$ = "L"
+    If fw2 = 2 Then fig2w$ = "S"
+    If fw2 = 3 Then fig2w$ = "N"
+    If fw2 = 4 Then fig2w$ = "H"
+    If fw2 = 5 Then fig2w$ = "B"
+    If fw2 = 6 Then fig2w$ = "C"
+
+    If fb2 = 1 Then fig2b$ = "l"
+    If fb2 = 2 Then fig2b$ = "s"
+    If fb2 = 3 Then fig2b$ = "n"
+    If fb2 = 4 Then fig2b$ = "h"
+    If fb2 = 5 Then fig2b$ = "b"
+    If fb2 = 6 Then fig2b$ = "c"
+
+    If fw3 = 1 Then fig3w$ = "L"
+    If fw3 = 2 Then fig3w$ = "S"
+    If fw3 = 3 Then fig3w$ = "N"
+    If fw3 = 4 Then fig3w$ = "H"
+    If fw3 = 5 Then fig3w$ = "B"
+    If fw3 = 6 Then fig3w$ = "C"
+
+    If fb3 = 1 Then fig3b$ = "l"
+    If fb3 = 2 Then fig3b$ = "s"
+    If fb3 = 3 Then fig3b$ = "n"
+    If fb3 = 4 Then fig3b$ = "h"
+    If fb3 = 5 Then fig3b$ = "b"
+    If fb3 = 6 Then fig3b$ = "c"
+
+    If fw4 = 1 Then fig4w$ = "L"
+    If fw4 = 2 Then fig4w$ = "S"
+    If fw4 = 3 Then fig4w$ = "N"
+    If fw4 = 4 Then fig4w$ = "H"
+    If fw4 = 5 Then fig4w$ = "B"
+    If fw4 = 6 Then fig4w$ = "C"
+
+    If fb4 = 1 Then fig4b$ = "l"
+    If fb4 = 2 Then fig4b$ = "s"
+    If fb4 = 3 Then fig4b$ = "n"
+    If fb4 = 4 Then fig4b$ = "h"
+    If fb4 = 5 Then fig4b$ = "b"
+    If fb4 = 6 Then fig4b$ = "c"
+
+    Dim table(8, 8) As String
+   table(fw1y, fw1x) = fig1w$
+   table(fb1y, fb1x) = fig1b$
+   table(fw2y, fw2x) = fig2w$
+   table(fb2y, fb2x) = fig2b$
+   table(fw3y, fw3x) = fig3w$
+   table(fb3y, fb3x) = fig3b$
+   table(fw4y, fw4x) = fig4w$
+   table(fb4y, fb4x) = fig4b$
+    For row = 1 To 8: For col = 1 To 8
+        If table(row, col) = "" Then table(row, col) = "+"
+    Next col: Next row
+
+   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)
+   lin1$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+            lin1$ = lin1$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
+            lin1$ = lin1$ + LTrim$(Str$(count))
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin2$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+            lin2$ = lin2$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
+            lin2$ = lin2$ + LTrim$(Str$(count))
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin3$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+            lin3$ = lin3$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
+            lin3$ = lin3$ + LTrim$(Str$(count))
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin4$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+            lin4$ = lin4$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
+            lin4$ = lin4$ + LTrim$(Str$(count))
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin5$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+            lin5$ = lin5$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
+            lin5$ = lin5$ + LTrim$(Str$(count))
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin6$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+            lin6$ = lin6$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
+            lin6$ = lin6$ + LTrim$(Str$(count))
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin7$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+            lin7$ = lin7$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
+            lin7$ = lin7$ + LTrim$(Str$(count))
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin8$ = ""
+   count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+            lin8$ = lin8$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
+            lin8$ = lin8$ + LTrim$(Str$(count))
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   fen$ = lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
+
+    Color 10
+    Locate 2, 1: Print "              Press any key to display the Forsyth-Edwards notation                    "
+    Do
+    Loop Until InKey$ <> ""
+    Locate 2, 1: Print "                                                                                       "
+    Color 12
+    Locate 2, 28: Print fen$
+
+    Do
+    Loop Until InKey$ <> ""
+
+    SetTextClpbrd (fen$)
+
+    System
+End Sub
+
+Sub xiangqifen ()
+
+    Rem Forsyth-Edwards notation
+
+    If fw1 = 1 Then fig1w$ = "K"
+    If fw1 = 2 Then fig1w$ = "A"
+    If fw1 = 3 Then fig1w$ = "E"
+    If fw1 = 4 Then fig1w$ = "H"
+    If fw1 = 5 Then fig1w$ = "R"
+    If fw1 = 6 Then fig1w$ = "C"
+    If fw1 = 7 Then fig1w$ = "P"
+
+    If fb1 = 1 Then fig1b$ = "k"
+    If fb1 = 2 Then fig1b$ = "a"
+    If fb1 = 3 Then fig1b$ = "e"
+    If fb1 = 4 Then fig1b$ = "h"
+    If fb1 = 5 Then fig1b$ = "r"
+    If fb1 = 6 Then fig1b$ = "c"
+    If fb1 = 7 Then fig1w$ = "p"
+
+    If fw2 = 1 Then fig2w$ = "K"
+    If fw2 = 2 Then fig2w$ = "A"
+    If fw2 = 3 Then fig2w$ = "E"
+    If fw2 = 4 Then fig2w$ = "H"
+    If fw2 = 5 Then fig2w$ = "R"
+    If fw2 = 6 Then fig2w$ = "C"
+    If fw2 = 7 Then fig2w$ = "P"
+
+    If fb2 = 1 Then fig2b$ = "k"
+    If fb2 = 2 Then fig2b$ = "a"
+    If fb2 = 3 Then fig2b$ = "e"
+    If fb2 = 4 Then fig2b$ = "h"
+    If fb2 = 5 Then fig2b$ = "r"
+    If fb2 = 6 Then fig2b$ = "c"
+    If fb2 = 7 Then fig2w$ = "p"
+
+    If fw3 = 1 Then fig3w$ = "K"
+    If fw3 = 2 Then fig3w$ = "A"
+    If fw3 = 3 Then fig3w$ = "E"
+    If fw3 = 4 Then fig3w$ = "H"
+    If fw3 = 5 Then fig3w$ = "R"
+    If fw3 = 6 Then fig3w$ = "C"
+    If fw3 = 7 Then fig3w$ = "P"
+
+    If fb3 = 1 Then fig3b$ = "k"
+    If fb3 = 2 Then fig3b$ = "a"
+    If fb3 = 3 Then fig3b$ = "e"
+    If fb3 = 4 Then fig3b$ = "h"
+    If fb3 = 5 Then fig3b$ = "r"
+    If fb3 = 6 Then fig3b$ = "c"
+    If fb3 = 7 Then fig3w$ = "p"
+
+    If fw4 = 1 Then fig4w$ = "K"
+    If fw4 = 2 Then fig4w$ = "A"
+    If fw4 = 3 Then fig4w$ = "E"
+    If fw4 = 4 Then fig4w$ = "H"
+    If fw4 = 5 Then fig4w$ = "R"
+    If fw4 = 6 Then fig4w$ = "C"
+    If fw4 = 7 Then fig4w$ = "P"
+
+    If fb4 = 1 Then fig4b$ = "k"
+    If fb4 = 2 Then fig4b$ = "a"
+    If fb4 = 3 Then fig4b$ = "e"
+    If fb4 = 4 Then fig4b$ = "h"
+    If fb4 = 5 Then fig4b$ = "r"
+    If fb4 = 6 Then fig4b$ = "c"
+    If fb4 = 7 Then fig4w$ = "p"
+
+    Dim table(10, 9) As String
+   table(fw1y, fw1x) = fig1w$
+   table(fb1y, fb1x) = fig1b$
+   table(fw2y, fw2x) = fig2w$
+   table(fb2y, fb2x) = fig2b$
+   table(fw3y, fw3x) = fig3w$
+   table(fb3y, fb3x) = fig3b$
+   table(fw4y, fw4x) = fig4w$
+   table(fb4y, fb4x) = fig4b$
+    For row = 1 To 10: For col = 1 To 9
+        If table(row, col) = "" Then table(row, col) = "+"
+    Next col: Next row
+
+   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)
+   lin1$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+            lin1$ = lin1$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
+            lin1$ = lin1$ + LTrim$(Str$(count))
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin2$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+            lin2$ = lin2$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
+            lin2$ = lin2$ + LTrim$(Str$(count))
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin3$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+            lin3$ = lin3$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
+            lin3$ = lin3$ + LTrim$(Str$(count))
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin4$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+            lin4$ = lin4$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
+            lin4$ = lin4$ + LTrim$(Str$(count))
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin5$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+            lin5$ = lin5$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
+            lin5$ = lin5$ + LTrim$(Str$(count))
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin6$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+            lin6$ = lin6$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
+            lin6$ = lin6$ + LTrim$(Str$(count))
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin7$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+            lin7$ = lin7$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
+            lin7$ = lin7$ + LTrim$(Str$(count))
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin8$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+            lin8$ = lin8$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
+            lin8$ = lin8$ + LTrim$(Str$(count))
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin9$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+            lin9$ = lin9$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count = 0 Then
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count > 0 Then
+            lin9$ = lin9$ + LTrim$(Str$(count))
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin0$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas0$, index, 1) = "+" Then
+            count = count + 1
+            lin0$ = lin0$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas0$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas0$, index, 1) <> "+" And count = 0 Then
+            lin0$ = lin0$ + Mid$(mas0$, index, 1)
+        End If
+        If Mid$(mas0$, index, 1) <> "+" And count > 0 Then
+            lin0$ = lin0$ + LTrim$(Str$(count))
+            lin0$ = lin0$ + Mid$(mas0$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   fen$ = lin0$ + "/" + lin9$ + "/" + lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
+
+    Color 10
+    Locate 2, 1: Print "              Press any key to display the Forsyth-Edwards notation                    "
+    Do
+    Loop Until InKey$ <> ""
+    Locate 2, 1: Print "                                                                                       "
+    Color 12
+    Locate 2, 24: Print fen$
+
+    Do
+    Loop Until InKey$ <> ""
+
+    SetTextClpbrd (fen$)
+
+    System
+End Sub
+
+Sub shogifen ()
+
+    Rem Forsyth-Edwards notation
+
+    If fw1 = 1 Then fig1w$ = "K"
+    If fw1 = 2 Then fig1w$ = "G"
+    If fw1 = 3 Then fig1w$ = "S"
+    If fw1 = 4 Then fig1w$ = "B"
+    If fw1 = 5 Then fig1w$ = "N"
+    If fw1 = 6 Then fig1w$ = "R"
+    If fw1 = 7 Then fig1w$ = "L"
+    If fw1 = 8 Then fig1w$ = "P"
+    If fw1 = 9 Then fig1w$ = "H"
+    If fw1 = 10 Then fig1w$ = "D"
+    If fw1 = 11 Then fig1w$ = "T"
+
+    If fb1 = 1 Then fig1b$ = "k"
+    If fb1 = 2 Then fig1b$ = "g"
+    If fb1 = 3 Then fig1b$ = "a"
+    If fb1 = 4 Then fig1b$ = "b"
+    If fb1 = 5 Then fig1b$ = "n"
+    If fb1 = 6 Then fig1b$ = "r"
+    If fb1 = 7 Then fig1b$ = "l"
+    If fb1 = 8 Then fig1b$ = "p"
+    If fb1 = 9 Then fig1b$ = "h"
+    If fb1 = 10 Then fig1b$ = "d"
+    If fb1 = 11 Then fig1b$ = "t"
+
+    If fw2 = 1 Then fig2w$ = "K"
+    If fw2 = 2 Then fig2w$ = "G"
+    If fw2 = 3 Then fig2w$ = "S"
+    If fw2 = 4 Then fig2w$ = "B"
+    If fw2 = 5 Then fig2w$ = "N"
+    If fw2 = 6 Then fig2w$ = "R"
+    If fw2 = 7 Then fig2w$ = "L"
+    If fw2 = 8 Then fig2w$ = "P"
+    If fw2 = 9 Then fig2w$ = "H"
+    If fw2 = 20 Then fig2w$ = "D"
+    If fw2 = 22 Then fig2w$ = "T"
+
+    If fb2 = 1 Then fig2b$ = "k"
+    If fb2 = 2 Then fig2b$ = "g"
+    If fb2 = 3 Then fig2b$ = "a"
+    If fb2 = 4 Then fig2b$ = "b"
+    If fb2 = 5 Then fig2b$ = "n"
+    If fb2 = 6 Then fig2b$ = "r"
+    If fb2 = 7 Then fig2b$ = "l"
+    If fb2 = 8 Then fig2b$ = "p"
+    If fb2 = 9 Then fig2b$ = "h"
+    If fb2 = 20 Then fig2b$ = "d"
+    If fb2 = 22 Then fig2b$ = "t"
+
+    If fw3 = 1 Then fig3w$ = "K"
+    If fw3 = 2 Then fig3w$ = "G"
+    If fw3 = 3 Then fig3w$ = "S"
+    If fw3 = 4 Then fig3w$ = "B"
+    If fw3 = 5 Then fig3w$ = "N"
+    If fw3 = 6 Then fig3w$ = "R"
+    If fw3 = 7 Then fig3w$ = "L"
+    If fw3 = 8 Then fig3w$ = "P"
+    If fw3 = 9 Then fig3w$ = "H"
+    If fw3 = 30 Then fig3w$ = "D"
+    If fw3 = 33 Then fig3w$ = "T"
+
+    If fb3 = 1 Then fig3b$ = "k"
+    If fb3 = 2 Then fig3b$ = "g"
+    If fb3 = 3 Then fig3b$ = "a"
+    If fb3 = 4 Then fig3b$ = "b"
+    If fb3 = 5 Then fig3b$ = "n"
+    If fb3 = 6 Then fig3b$ = "r"
+    If fb3 = 7 Then fig3b$ = "l"
+    If fb3 = 8 Then fig3b$ = "p"
+    If fb3 = 9 Then fig3b$ = "h"
+    If fb3 = 30 Then fig3b$ = "d"
+    If fb3 = 33 Then fig3b$ = "t"
+
+    If fw4 = 1 Then fig4w$ = "K"
+    If fw4 = 2 Then fig4w$ = "G"
+    If fw4 = 3 Then fig4w$ = "S"
+    If fw4 = 4 Then fig4w$ = "B"
+    If fw4 = 5 Then fig4w$ = "N"
+    If fw4 = 6 Then fig4w$ = "R"
+    If fw4 = 7 Then fig4w$ = "L"
+    If fw4 = 8 Then fig4w$ = "P"
+    If fw4 = 9 Then fig4w$ = "H"
+    If fw4 = 40 Then fig4w$ = "D"
+    If fw4 = 44 Then fig4w$ = "T"
+
+    If fb4 = 1 Then fig4b$ = "k"
+    If fb4 = 2 Then fig4b$ = "g"
+    If fb4 = 3 Then fig4b$ = "a"
+    If fb4 = 4 Then fig4b$ = "b"
+    If fb4 = 5 Then fig4b$ = "n"
+    If fb4 = 6 Then fig4b$ = "r"
+    If fb4 = 7 Then fig4b$ = "l"
+    If fb4 = 8 Then fig4b$ = "p"
+    If fb4 = 9 Then fig4b$ = "h"
+    If fb4 = 40 Then fig4b$ = "d"
+    If fb4 = 44 Then fig4b$ = "t"
+
+    Dim table(9, 9) As String
+   table(fw1y, fw1x) = fig1w$
+   table(fb1y, fb1x) = fig1b$
+   table(fw2y, fw2x) = fig2w$
+   table(fb2y, fb2x) = fig2b$
+   table(fw3y, fw3x) = fig3w$
+   table(fb3y, fb3x) = fig3b$
+   table(fw4y, fw4x) = fig4w$
+   table(fb4y, fb4x) = fig4b$
+    For row = 1 To 9: For col = 1 To 9
+        If table(row, col) = "" Then table(row, col) = "+"
+    Next col: Next row
+
+   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)
+   lin1$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+            lin1$ = lin1$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
+            lin1$ = lin1$ + LTrim$(Str$(count))
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin2$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+            lin2$ = lin2$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
+            lin2$ = lin2$ + LTrim$(Str$(count))
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin3$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+            lin3$ = lin3$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
+            lin3$ = lin3$ + LTrim$(Str$(count))
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin4$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+            lin4$ = lin4$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
+            lin4$ = lin4$ + LTrim$(Str$(count))
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin5$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+            lin5$ = lin5$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
+            lin5$ = lin5$ + LTrim$(Str$(count))
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin6$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+            lin6$ = lin6$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
+            lin6$ = lin6$ + LTrim$(Str$(count))
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin7$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+            lin7$ = lin7$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
+            lin7$ = lin7$ + LTrim$(Str$(count))
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin8$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+            lin8$ = lin8$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
+            lin8$ = lin8$ + LTrim$(Str$(count))
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin9$ = ""
+   count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+            lin9$ = lin9$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count = 0 Then
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count > 0 Then
+            lin9$ = lin9$ + LTrim$(Str$(count))
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   fen$ = lin9$ + "/" + lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
+
+    Color 10
+    Locate 2, 1: Print "              Press any key to display the Forsyth-Edwards notation                    "
+    Do
+    Loop Until InKey$ <> ""
+    Locate 2, 1: Print "                                                                                       "
+    Color 12
+    Locate 2, 25: Print fen$
+
+    Do
+    Loop Until InKey$ <> ""
+
+    SetTextClpbrd (fen$)
+
+    System
+End Sub
+
+Sub draughtsfen ()
+
+    Rem Forsyth-Edwards notation
+
+    If fw1 = 1 Then fig1w$ = "D"
+    If fw1 = 2 Then fig1w$ = "C"
+
+    If fb1 = 1 Then fig1b$ = "d"
+    If fb1 = 2 Then fig1b$ = "c"
+
+    If fw2 = 1 Then fig2w$ = "D"
+    If fw2 = 2 Then fig2w$ = "C"
+
+    If fb2 = 1 Then fig2b$ = "d"
+    If fb2 = 2 Then fig2b$ = "c"
+
+    If fw3 = 1 Then fig3w$ = "D"
+    If fw3 = 2 Then fig3w$ = "C"
+
+    If fb3 = 1 Then fig3b$ = "d"
+    If fb3 = 2 Then fig3b$ = "c"
+
+    If fw4 = 1 Then fig4w$ = "D"
+    If fw4 = 2 Then fig4w$ = "C"
+
+    If fb4 = 1 Then fig4b$ = "d"
+    If fb4 = 2 Then fig4b$ = "c"
+
+    Dim table(10, 10) As String
+   table(fw1y, fw1x) = fig1w$
+   table(fb1y, fb1x) = fig1b$
+   table(fw2y, fw2x) = fig2w$
+   table(fb2y, fb2x) = fig2b$
+   table(fw3y, fw3x) = fig3w$
+   table(fb3y, fb3x) = fig3b$
+   table(fw4y, fw4x) = fig4w$
+   table(fb4y, fb4x) = fig4b$
+    For row = 1 To 10: For col = 1 To 10
+        If table(row, col) = "" Then table(row, col) = "+"
+    Next col: Next row
+
+   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)
+   lin1$ = ""
+   count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+            lin1$ = lin1$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
+            lin1$ = lin1$ + LTrim$(Str$(count))
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin2$ = ""
+   count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+            lin2$ = lin2$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
+            lin2$ = lin2$ + LTrim$(Str$(count))
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin3$ = ""
+   count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+            lin3$ = lin3$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
+            lin3$ = lin3$ + LTrim$(Str$(count))
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin4$ = ""
+   count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+            lin4$ = lin4$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
+            lin4$ = lin4$ + LTrim$(Str$(count))
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin5$ = ""
+   count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+            lin5$ = lin5$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
+            lin5$ = lin5$ + LTrim$(Str$(count))
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin6$ = ""
+   count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+            lin6$ = lin6$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
+            lin6$ = lin6$ + LTrim$(Str$(count))
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin7$ = ""
+   count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+            lin7$ = lin7$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
+            lin7$ = lin7$ + LTrim$(Str$(count))
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin8$ = ""
+   count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+            lin8$ = lin8$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
+            lin8$ = lin8$ + LTrim$(Str$(count))
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin9$ = ""
+   count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+            lin9$ = lin9$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count = 0 Then
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count > 0 Then
+            lin9$ = lin9$ + LTrim$(Str$(count))
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   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)
+   lin0$ = ""
+   count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas0$, index, 1) = "+" Then
+            count = count + 1
+            lin0$ = lin0$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas0$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas0$, index, 1) <> "+" And count = 0 Then
+            lin0$ = lin0$ + Mid$(mas0$, index, 1)
+        End If
+        If Mid$(mas0$, index, 1) <> "+" And count > 0 Then
+            lin0$ = lin0$ + LTrim$(Str$(count))
+            lin0$ = lin0$ + Mid$(mas0$, index, 1)
+           count = 0
+        End If
+    Next index
+
+   fen$ = lin0$ + "/" + lin9$ + "/" + lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
+
+    Color 10
+    Locate 2, 1: Print "              Press any key to display the Forsyth-Edwards notation                    "
+    Do
+    Loop Until InKey$ <> ""
+    Locate 2, 1: Print "                                                                                       "
+    Color 12
+    Locate 2, 23: Print fen$
+
+    Do
+    Loop Until InKey$ <> ""
+
+    SetTextClpbrd (fen$)
+
+    System
+End Sub
+
+Sub message ()
+    Locate 2, 1: Color 9: Print "    SPACEBAR - next pair"; "       ENTER - display notation       "; "ESCAPE - exit    "
+    Locate 2, 5: Color 5: Print "SPACEBAR": Locate 2, 32: Color 5: Print "ENTER": Locate 2, 63: Color 5: Print "ESCAPE"
+End Sub
+
+SUB SetTextClpbrd (Text AS STRING)
+
+ IF OpenClipboard(0) THEN
+   DIM Dln AS INTEGER  
+   DIM ClpID AS HANDLE
+   DIM PtToDat AS HGLOBAL
+
+    Dln = len(Text) + 1
+    PtToDat = GlobalAlloc(GMEM_MOVEABLE, Dln)
+  
+    memcpy(GlobalLock(PtToDat), SADD(Text), Dln)
+    GlobalUnlock(PtToDat)
+
+    EmptyClipboard ()
+    ClpID = SetClipboardData (CF_OEMTEXT, PtToDat)
+
+    CloseClipboard ()
+    GlobalFree(PtToDat)
+ END IF
+
+END SUB
\ No newline at end of file

diff --git a/sourcwlm.bas b/sourcwlm.bas
new file mode 100644 (file)
index 0000000..c14be44
--- /dev/null
+++ b/sourcwlm.bas
@@ -0,0 +1,6734 @@
+$ExeIcon:'dicend.ico'
+_Icon
+_Title "Dice endgames"
+Rem Let scr& = _NewImage(800, 600, 256)
+Rem Screen scr&
+Rem _FullScreen
+Screen 12
+DefInt A-Z
+Randomize Timer
+
+declare sub dice1 as type integer
+declare sub dice2 as type integer
+declare sub dice3 as type integer
+declare sub dice4 as type integer
+declare sub dice5 as type integer
+declare sub dice6 as type integer
+declare sub dice7 as type integer
+declare sub dice8 as type integer
+declare sub dice9 as type integer
+declare sub dice0 as type integer
+declare sub number1 as type integer
+declare sub number2 as type integer
+declare sub number3 as type integer
+declare sub number4 as type integer
+declare sub number5 as type integer
+declare sub number6 as type integer
+declare sub number7 as type integer
+declare sub number8 as type integer
+declare sub number9 as type integer
+declare sub number0 as type integer
+declare sub numberA as type integer
+declare sub numberB as type integer
+declare sub numberC as type integer
+declare sub numberD as type integer
+declare sub numberE as type integer
+declare sub numberF as type integer
+declare sub numberG as type integer
+declare sub numberH as type integer
+declare sub numberI as type integer
+declare sub numberJ as type integer
+declare sub letter1 as type integer
+declare sub letter2 as type integer
+declare sub letter3 as type integer
+declare sub letter4 as type integer
+declare sub letter5 as type integer
+declare sub letter6 as type integer
+declare sub letter7 as type integer
+declare sub letter8 as type integer
+declare sub letter9 as type integer
+declare sub letter0 as type integer
+declare sub letterA as type integer
+declare sub letterB as type integer
+declare sub letterC as type integer
+declare sub letterD as type integer
+declare sub letterE as type integer
+declare sub letterF as type integer
+declare sub letterG as type integer
+declare sub letterH as type integer
+declare sub letterI as type integer
+declare sub letterJ as type integer
+declare sub king as type integer
+declare sub queen as type integer
+declare sub bishop as type integer
+declare sub knight as type integer
+declare sub rook as type integer
+declare sub pawn as type integer
+declare sub cannon as type integer
+declare sub lance as type integer
+declare sub general as type integer
+declare sub tokin as type integer
+declare sub dragon as type integer
+declare sub horse as type integer
+declare sub dame as type integer
+declare sub checker as type integer
+declare sub cells as type integer
+declare sub dices as type integer
+declare sub chessboard as type integer
+declare sub makrukboard as type integer
+declare sub xiangqiboard as type integer
+declare sub shogiboard as type integer
+declare sub draughtsboard as type integer
+declare sub chess as type string
+declare sub makruk as type string
+declare sub xiangqi as type string
+declare sub shogi as type string
+declare sub draughts as type string
+declare sub chessfen as type string
+declare sub makrukfen as type string
+declare sub xiangqifen as type string
+declare sub shogifen as type string
+declare sub draughtsfen as type string
+
+Common Shared x, y, cd1, cd2, cn, cl, cf, cb1, cb2, cb3, cb4, cb5 As Integer
+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
+Common Shared fw1x, fw1y, fb1x, fb1y, fw2x, fw2y, fb2x, fb2y, fw3x, fw3y, fb3x, fb3y, fw4x, fw4y, fb4x, fb4y As Integer
+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
+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
+
+Dim Shared board(8, 8) As Integer
+Let index = 100
+For row = 1 To 8: For col = 1 To 8
+    Let board(row, col) = index + 1
+    Let index = index + 1
+Next col: Next row
+
+Dim Shared xiabo(10, 9) As Integer
+Let index = 100
+For row = 1 To 10: For col = 1 To 9
+    Let xiabo(row, col) = index + 1
+    Let index = index + 1
+Next col: Next row
+
+Dim Shared shobo(9, 9) As Integer
+Let index = 100
+For row = 1 To 9: For col = 1 To 9
+    Let shobo(row, col) = index + 1
+    Let index = index + 1
+Next col: Next row
+
+Dim Shared drabo(10, 10) As Integer
+Let index = 100
+For row = 1 To 10: For col = 1 To 10
+    Let drabo(row, col) = index + 1
+    Let index = index + 1
+Next col: Let index = index + 1: Next row
+
+Line (2, 2)-(122, 4), 14, BF: Line -(120, 338), 14, BF: Line -(2, 336), 14, BF: Line -(4, 2), 14, BF
+Line (4, 42)-(120, 44), 14, BF: Paint (20, 20), 8, 14
+Line (128, 2)-(248, 4), 14, BF: Line -(246, 338), 14, BF: Line -(128, 336), 14, BF: Line -(130, 2), 14, BF
+Line (130, 42)-(246, 44), 14, BF: Paint (160, 20), 8, 14
+Line (254, 2)-(394, 4), 14, BF: Line -(392, 386), 14, BF: Line -(254, 384), 14, BF: Line -(256, 2), 14, BF
+Line (256, 42)-(392, 44), 14, BF: Paint (300, 20), 8, 14
+Line (400, 2)-(637, 4), 14, BF: Line -(635, 338), 14, BF: Line -(400, 336), 14, BF: Line -(402, 2), 14, BF
+Line (402, 42)-(635, 44), 14, BF: Paint (440, 20), 8, 14
+Line (2, 344)-(248, 346), 14, BF: Line -(246, 432), 14, BF: Line -(2, 430), 14, BF: Line -(4, 344), 14, BF
+Line (4, 378)-(246, 376), 14, BF: Paint (20, 360), 8, 14
+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"
+Color 12, 0: Locate 23, 52: Print "Press number to select game": Locate 24, 59: Print "or Esc to exit"
+
+Color 11, 0
+Let x = 10: For y = 50 To 300 Step 48
+    Call cells
+Next y
+Let x = 10: Let y = 50: Call king
+Let x = 10: Let y = y + 48: Call queen
+Let x = 10: Let y = y + 48: Call bishop
+Let x = 10: Let y = y + 48: Call knight
+Let x = 10: Let y = y + 48: Call rook
+Let x = 10: Let y = y + 48: Call pawn
+Locate 5, 9: Print "King": Locate 8, 9: Print "Queen"
+Locate 11, 9: Print "Bishop": Locate 14, 9: Print "Knight"
+Locate 17, 9: Print "Rook": Locate 20, 9: Print "Pawn"
+Let x = 136: For y = 50 To 300 Step 48
+    Call cells
+Next y
+Let x = 136: Let y = 50: Call king
+Let x = 136: Let y = y + 48: Call queen
+Let x = 136: Let y = y + 48: Call bishop
+Let x = 136: Let y = y + 48: Call knight
+Let x = 136: Let y = y + 48: Call rook
+Let x = 136: Let y = y + 48: Call checker
+Locate 5, 25: Print "Lord": Locate 8, 25: Print "Seed"
+Locate 11, 25: Print "Noble": Locate 14, 25: Print "Horse"
+Locate 17, 25: Print "Boat": Locate 20, 25: Print "Shell"
+Let x = 262: For y = 50 To 350 Step 48
+    Call cells
+Next y
+Let x = 262: Let y = 50: Call king
+Let x = 262: Let y = y + 48: Call queen
+Let x = 262: Let y = y + 48: Call bishop
+Let x = 262: Let y = y + 48: Call knight
+Let x = 262: Let y = y + 48: Call rook
+Let x = 262: Let y = y + 48: Call cannon
+Let x = 262: Let y = y + 48: Call pawn
+Locate 5, 41: Print "General": Locate 8, 41: Print "Advisor"
+Locate 11, 41: Print "Elephant": Locate 14, 41: Print "Horse"
+Locate 17, 41: Print "Chariot": Locate 20, 41: Print "Cannon"
+Locate 23, 41: Print "Soldier"
+Let x = 408: For y = 50 To 300 Step 48
+    Call cells
+Next y
+Let x = 528: For y = 50 To 250 Step 48
+    Call cells
+Next y
+Let x = 408: Let y = 50: Call king
+Let x = 408: Let y = y + 48: Call queen
+Let x = 408: Let y = y + 48: Call general
+Let x = 408: Let y = y + 48: Call bishop
+Let x = 408: Let y = y + 48: Call knight
+Let x = 408: Let y = y + 48: Call rook
+Let x = 528: Let y = 50: Call lance
+Let x = 528: Let y = y + 48: Call pawn
+Let x = 528: Let y = y + 48: Call horse
+Let x = 528: Let y = y + 48: Call dragon
+Let x = 528: Let y = y + 48: Call tokin
+Locate 5, 59: Print "King": Locate 8, 59: Print "Gold"
+Locate 11, 59: Print "Silver": Locate 14, 59: Print "Bishop"
+Locate 17, 59: Print "Knight": Locate 20, 59: Print "Rook"
+Locate 5, 74: Print "Lance": Locate 8, 74: Print "Pawn"
+Locate 11, 74: Print "Horse": Locate 14, 74: Print "Dragon"
+Locate 17, 74: Print "Tokin"
+Let x = 10: Let y = 384
+Call cells: Call checker
+Let x = 136: Let y = 384
+Call cells: Call dame
+Locate 26, 9: Print "Checker": Locate 26, 25: Print "Dame"
+
+Do
+    Select Case InKey$
+        Case Is = Chr$(49)
+            Cls
+            Call message
+            Call chessboard
+            Call dices
+            Call chess
+        Case Is = Chr$(50)
+            Cls
+            Call message
+            Call makrukboard
+            Call dices
+            Call makruk
+        Case Is = Chr$(51)
+            Cls
+            Call message
+            Call xiangqiboard
+            Call dices
+            Call xiangqi
+        Case Is = Chr$(52)
+            Cls
+            Call message
+            Call shogiboard
+            Call dices
+            Call shogi
+        Case Is = Chr$(53)
+            Cls
+            Call message
+            Call draughtsboard
+            Call dices
+            Call draughts
+        Case Is = Chr$(27)
+            Exit Do
+    End Select
+Loop
+End
+
+Sub dice1
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
+End Sub
+
+Sub dice2
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice3
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice4
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice5
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice6
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
+    Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice7
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
+    Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
+    Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice8
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (16 + x, 4 + y)-(24 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
+    Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (16 + x, 28 + y)-(24 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice9
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (16 + x, 4 + y)-(24 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
+    Line (16 + x, 16 + y)-(24 + x, 24 + y), cd2, BF
+    Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (16 + x, 28 + y)-(24 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+End Sub
+
+Sub dice0
+    Line (x, y)-(40 + x, 40 + y), cd1, BF
+    Line (4 + x, 4 + y)-(12 + x, 12 + y), cd2, BF
+    Line (28 + x, 4 + y)-(36 + x, 12 + y), cd2, BF
+    Line (4 + x, 16 + y)-(12 + x, 24 + y), cd2, BF
+    Line (28 + x, 16 + y)-(36 + x, 24 + y), cd2, BF
+    Line (4 + x, 28 + y)-(12 + x, 36 + y), cd2, BF
+    Line (28 + x, 28 + y)-(36 + x, 36 + y), cd2, BF
+    Line (16 + x, 1 + y)-(24 + x, 9 + y), cd2, BF
+    Line (16 + x, 11 + y)-(24 + x, 19 + y), cd2, BF
+    Line (16 + x, 21 + y)-(24 + x, 29 + y), cd2, BF
+    Line (16 + x, 31 + y)-(24 + x, 39 + y), cd2, BF
+End Sub
+
+Sub number1
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (5 + x, 8 + y)-(6 + x, 1 + y), cn, BF
+    Line (4 + x, 2 + y)-(1 + x, 5 + y), cn
+    Line (4 + x, 3 + y)-(1 + x, 6 + y), cn
+End Sub
+
+Sub number2
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (1 + x, 8 + y)-(2 + x, 7 + y), cn, BF
+    Line (10 + x, 4 + y)-(9 + x, 3 + y), cn, BF
+End Sub
+
+Sub number3
+    Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+    Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
+    Line (5 + x, 5 + y)-(9 + x, 6 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 4 + y), cn, BF
+    Line (9 + x, 7 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub number4
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 1 + y)-(2 + x, 4 + y), cn, BF
+    Line (9 + x, 1 + y)-(10 + x, 10 + y), cn, BF
+End Sub
+
+Sub number5
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (10 + x, 8 + y)-(9 + x, 7 + y), cn, BF
+    Line (2 + x, 4 + y)-(1 + x, 3 + y), cn, BF
+End Sub
+
+Sub number6
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (10 + x, 8 + y)-(9 + x, 7 + y), cn, BF
+    Line (1 + x, 8 + y)-(2 + x, 3 + y), cn, BF
+End Sub
+
+Sub number7
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (10 + x, 3 + y)-(3 + x, 10 + y), cn
+    Line (9 + x, 3 + y)-(2 + x, 10 + y), cn
+    Line (8 + x, 3 + y)-(1 + x, 10 + y), cn
+End Sub
+
+Sub number8
+    Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+    Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
+    Line (2 + x, 6 + y)-(9 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(2 + x, 4 + y), cn, BF
+    Line (1 + x, 7 + y)-(2 + x, 9 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 4 + y), cn, BF
+    Line (9 + x, 7 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub number9
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (10 + x, 8 + y)-(9 + x, 3 + y), cn, BF
+    Line (2 + x, 4 + y)-(1 + x, 3 + y), cn, BF
+End Sub
+
+Sub number0
+    Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+    Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
+    Line (1 + x, 2 + y)-(2 + x, 9 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub numberA
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(2 + x, 10 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 10 + y), cn, BF
+    Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+End Sub
+
+Sub numberB
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (1 + x, 10 + y)-(9 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(9 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 4 + y), cn, BF
+    Line (9 + x, 7 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub numberC
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (1 + x, 1 + y)-(10 + x, 2 + y), cn, BF
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub numberD
+    Line (2 + x, 2 + y)-(9 + x, 1 + y), cn, BF
+    Line (2 + x, 10 + y)-(9 + x, 9 + y), cn, BF
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (9 + x, 2 + y)-(10 + x, 9 + y), cn, BF
+End Sub
+
+Sub numberE
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+End Sub
+
+Sub numberF
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+End Sub
+
+Sub numberG
+    Line (1 + x, 10 + y)-(10 + x, 9 + y), cn, BF
+    Line (8 + x, 6 + y)-(6 + x, 5 + y), cn, BF
+    Line (1 + x, 2 + y)-(10 + x, 1 + y), cn, BF
+    Line (10 + x, 8 + y)-(9 + x, 5 + y), cn, BF
+    Line (1 + x, 8 + y)-(2 + x, 3 + y), cn, BF
+End Sub
+
+Sub numberH
+    Line (1 + x, 6 + y)-(10 + x, 5 + y), cn, BF
+    Line (1 + x, 1 + y)-(2 + x, 10 + y), cn, BF
+    Line (9 + x, 1 + y)-(10 + x, 10 + y), cn, BF
+End Sub
+
+Sub numberI
+    Line (3 + x, 2 + y)-(8 + x, 1 + y), cn, BF
+    Line (3 + x, 10 + y)-(8 + x, 9 + y), cn, BF
+    Line (5 + x, 3 + y)-(6 + x, 8 + y), cn, BF
+End Sub
+
+Sub numberJ
+    Line (1 + x, 6 + y)-(2 + x, 9 + y), cn, BF
+    Line (9 + x, 1 + y)-(10 + x, 9 + y), cn, BF
+    Line (2 + x, 9 + y)-(9 + x, 10 + y), cn, BF
+End Sub
+
+Sub letter1
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (18 + x, 31 + y)-(22 + x, 4 + y), cl, BF
+    Line (17 + x, 4 + y)-(4 + x, 17 + y), cl
+    Line (17 + x, 5 + y)-(5 + x, 17 + y), cl
+    Line (17 + x, 6 + y)-(6 + x, 17 + y), cl
+    Line (17 + x, 7 + y)-(7 + x, 17 + y), cl
+End Sub
+
+Sub letter2
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (32 + x, 9 + y)-(36 + x, 17 + y), cl, BF
+    Line (4 + x, 23 + y)-(8 + x, 31 + y), cl, BF
+End Sub
+
+Sub letter3
+    Line (4 + x, 4 + y)-(34 + x, 8 + y), cl, BF
+    Line (4 + x, 36 + y)-(34 + x, 32 + y), cl, BF
+    Line (36 + x, 23 + y)-(32 + x, 34 + y), cl, BF
+    Line (32 + x, 6 + y)-(36 + x, 17 + y), cl, BF
+    Line (18 + x, 18 + y)-(34 + x, 22 + y), cl, BF
+    Line (30 + x, 17 + y)-(31 + x, 17 + y), cl
+    Line (30 + x, 23 + y)-(31 + x, 23 + y), cl
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
+    PSet (31 + x, 10 + y), cl: PSet (31 + x, 30 + y), cl
+    PSet (31 + x, 16 + y), cl: PSet (31 + x, 24 + y), cl
+    PSet (35 + x, 18 + y), cl: PSet (35 + x, 22 + y), cl
+    PSet (35 + x, 5 + y), cl: PSet (35 + x, 35 + y), cl
+End Sub
+
+Sub letter4
+    Line (4 + x, 4 + y)-(8 + x, 17 + y), cl, BF
+    Line (32 + x, 4 + y)-(36 + x, 36 + y), cl, BF
+    Line (4 + x, 18 + y)-(34 + x, 22 + y), cl, BF
+End Sub
+
+Sub letter5
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (4 + x, 9 + y)-(8 + x, 17 + y), cl, BF
+    Line (32 + x, 23 + y)-(36 + x, 31 + y), cl, BF
+End Sub
+
+Sub letter6
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (4 + x, 9 + y)-(8 + x, 31 + y), cl, BF
+    Line (32 + x, 23 + y)-(36 + x, 31 + y), cl, BF
+End Sub
+
+Sub letter7
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (8 + x, 36 + y)-(35 + x, 9 + y), cl
+    Line (7 + x, 36 + y)-(34 + x, 9 + y), cl
+    Line (6 + x, 36 + y)-(33 + x, 9 + y), cl
+    Line (5 + x, 36 + y)-(32 + x, 9 + y), cl
+End Sub
+
+Sub letter8
+    Line (8 + x, 23 + y)-(4 + x, 34 + y), cl, BF
+    Line (4 + x, 6 + y)-(8 + x, 17 + y), cl, BF
+    Line (6 + x, 4 + y)-(34 + x, 8 + y), cl, BF
+    Line (6 + x, 36 + y)-(34 + x, 32 + y), cl, BF
+    Line (36 + x, 23 + y)-(32 + x, 34 + y), cl, BF
+    Line (32 + x, 6 + y)-(36 + x, 17 + y), cl, BF
+    Line (6 + x, 18 + y)-(34 + x, 22 + y), cl, BF
+    Line (30 + x, 17 + y)-(31 + x, 17 + y), cl
+    Line (30 + x, 23 + y)-(31 + x, 23 + y), cl
+    Line (10 + x, 17 + y)-(9 + x, 17 + y), cl
+    Line (10 + x, 23 + y)-(9 + x, 23 + y), cl
+    Line (9 + x, 31 + y)-(10 + x, 31 + y), cl
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
+    Line (9 + x, 9 + y)-(10 + x, 9 + y), cl
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
+    PSet (35 + x, 5 + y), cl: PSet (35 + x, 35 + y), cl
+    PSet (5 + x, 5 + y), cl: PSet (5 + x, 35 + y), cl
+    PSet (9 + x, 30 + y), cl: PSet (31 + x, 30 + y), cl
+    PSet (9 + x, 10 + y), cl: PSet (31 + x, 10 + y), cl
+    PSet (5 + x, 18 + y), cl: PSet (5 + x, 22 + y), cl
+    PSet (9 + x, 16 + y), cl: PSet (9 + x, 24 + y), cl
+    PSet (31 + x, 16 + y), cl: PSet (31 + x, 24 + y), cl
+    PSet (35 + x, 18 + y), cl: PSet (35 + x, 22 + y), cl
+End Sub
+
+Sub letter9
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (32 + x, 9 + y)-(36 + x, 31 + y), cl, BF
+End Sub
+
+Sub letter0
+    Line (6 + x, 4 + y)-(34 + x, 8 + y), cl, BF
+    Line (6 + x, 36 + y)-(34 + x, 32 + y), cl, BF
+    Line (4 + x, 6 + y)-(8 + x, 34 + y), cl, BF
+    Line (36 + x, 6 + y)-(32 + x, 34 + y), cl, BF
+    Line (9 + x, 9 + y)-(10 + x, 9 + y), cl
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
+    Line (9 + x, 31 + y)-(10 + x, 31 + y), cl
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
+    Line (9 + x, 9 + y)-(10 + x, 9 + y), cl
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
+    PSet (35 + x, 5 + y), cl: PSet (35 + x, 35 + y), cl
+    PSet (5 + x, 5 + y), cl: PSet (5 + x, 35 + y), cl
+    PSet (9 + x, 30 + y), cl: PSet (31 + x, 30 + y), cl
+    PSet (9 + x, 10 + y), cl: PSet (31 + x, 10 + y), cl
+End Sub
+
+Sub letterA
+    Line (4 + x, 6 + y)-(8 + x, 36 + y), cl, BF
+    Line (32 + x, 6 + y)-(36 + x, 36 + y), cl, BF
+    Line (4 + x, 18 + y)-(34 + x, 22 + y), cl, BF
+    Line (6 + x, 4 + y)-(34 + x, 8 + y), cl, BF
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
+    Line (9 + x, 9 + y)-(10 + x, 9 + y), cl
+    PSet (9 + x, 10 + y), cl: PSet (31 + x, 10 + y), cl
+    PSet (5 + x, 5 + y), cl: PSet (35 + x, 5 + y), cl
+End Sub
+
+Sub letterB
+    Line (4 + x, 9 + y)-(8 + x, 31 + y), cl, BF
+    Line (4 + x, 4 + y)-(34 + x, 8 + y), cl, BF
+    Line (4 + x, 36 + y)-(34 + x, 32 + y), cl, BF
+    Line (36 + x, 23 + y)-(32 + x, 34 + y), cl, BF
+    Line (32 + x, 6 + y)-(36 + x, 17 + y), cl, BF
+    Line (9 + x, 18 + y)-(34 + x, 22 + y), cl, BF
+    Line (30 + x, 17 + y)-(31 + x, 17 + y), cl
+    Line (30 + x, 23 + y)-(31 + x, 23 + y), cl
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
+    PSet (31 + x, 10 + y), cl: PSet (31 + x, 30 + y), cl
+    PSet (31 + x, 16 + y), cl: PSet (31 + x, 24 + y), cl
+    PSet (35 + x, 18 + y), cl: PSet (35 + x, 22 + y), cl
+    PSet (35 + x, 5 + y), cl: PSet (35 + x, 35 + y), cl
+End Sub
+
+Sub letterC
+    Line (6 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (6 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (4 + x, 6 + y)-(8 + x, 34 + y), cl, BF
+    Line (9 + x, 9 + y)-(10 + x, 9 + y), cl
+    Line (9 + x, 31 + y)-(10 + x, 31 + y), cl
+    PSet (9 + x, 10 + y), cl: PSet (9 + x, 30 + y), cl
+    PSet (5 + x, 5 + y), cl: PSet (5 + x, 35 + y), cl
+End Sub
+
+Sub letterD
+    Line (4 + x, 4 + y)-(34 + x, 8 + y), cl, BF
+    Line (4 + x, 36 + y)-(34 + x, 32 + y), cl, BF
+    Line (4 + x, 4 + y)-(8 + x, 36 + y), cl, BF
+    Line (32 + x, 6 + y)-(36 + x, 34 + y), cl, BF
+    Line (30 + x, 9 + y)-(31 + x, 9 + y), cl
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
+    PSet (31 + x, 10 + y), cl: PSet (31 + x, 30 + y), cl
+    PSet (35 + x, 5 + y), cl: PSet (35 + x, 35 + y), cl
+End Sub
+
+Sub letterE
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (4 + x, 4 + y)-(8 + x, 36 + y), cl, BF
+End Sub
+
+Sub letterF
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (4 + x, 18 + y)-(36 + x, 22 + y), cl, BF
+    Line (4 + x, 4 + y)-(8 + x, 36 + y), cl, BF
+End Sub
+
+Sub letterG
+    Line (4 + x, 4 + y)-(36 + x, 8 + y), cl, BF
+    Line (20 + x, 18 + y)-(36 + x, 22 + y), cl, BF
+    Line (4 + x, 36 + y)-(36 + x, 32 + y), cl, BF
+    Line (4 + x, 9 + y)-(8 + x, 31 + y), cl, BF
+    Line (32 + x, 23 + y)-(36 + x, 31 + y), cl, BF
+End Sub
+
+Sub letterH
+    Line (4 + x, 4 + y)-(8 + x, 36 + y), cl, BF
+    Line (32 + x, 4 + y)-(36 + x, 36 + y), cl, BF
+    Line (4 + x, 18 + y)-(34 + x, 22 + y), cl, BF
+End Sub
+
+Sub letterI
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cl, BF
+    Line (18 + x, 31 + y)-(22 + x, 9 + y), cl, BF
+    Line (8 + x, 8 + y)-(32 + x, 3 + y), cl, BF
+End Sub
+
+Sub letterJ
+    Line (6 + x, 36 + y)-(34 + x, 32 + y), cl, BF
+    Line (32 + x, 4 + y)-(36 + x, 34 + y), cl, BF
+    Line (4 + x, 18 + y)-(8 + x, 34 + y), cl, BF
+    Line (9 + x, 31 + y)-(10 + x, 31 + y), cl
+    Line (30 + x, 31 + y)-(31 + x, 31 + y), cl
+    PSet (9 + x, 30 + y), cl: PSet (31 + x, 30 + y), cl
+    PSet (5 + x, 35 + y), cl: PSet (35 + x, 35 + y), cl
+End Sub
+
+Sub king
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (12 + x, 31 + y)-(28 + x, 31 + y), cf
+    Line (13 + x, 30 + y)-(27 + x, 30 + y), cf
+    Line (14 + x, 29 + y)-(26 + x, 29 + y), cf
+    Line (15 + x, 28 + y)-(25 + x, 28 + y), cf
+    Line (16 + x, 27 + y)-(24 + x, 10 + y), cf, BF
+    Line (15 + x, 24 + y)-(25 + x, 24 + y), cf
+    Line (14 + x, 23 + y)-(26 + x, 23 + y), cf
+    Line (13 + x, 22 + y)-(27 + x, 22 + y), cf
+    Line (12 + x, 21 + y)-(28 + x, 21 + y), cf
+    Line (11 + x, 20 + y)-(29 + x, 20 + y), cf
+    Line (10 + x, 19 + y)-(30 + x, 19 + y), cf
+    Line (9 + x, 18 + y)-(31 + x, 18 + y), cf
+    Line (8 + x, 17 + y)-(32 + x, 17 + y), cf
+    Line (7 + x, 16 + y)-(33 + x, 16 + y), cf
+    Line (6 + x, 15 + y)-(34 + x, 15 + y), cf
+    Line (5 + x, 14 + y)-(35 + x, 14 + y), cf
+    Line (4 + x, 13 + y)-(36 + x, 12 + y), cf, BF
+    Line (4 + x, 11 + y)-(14 + x, 10 + y), cf, BF
+    Line (5 + x, 9 + y)-(13 + x, 9 + y), cf
+    Line (6 + x, 8 + y)-(12 + x, 8 + y), cf
+    Line (7 + x, 7 + y)-(11 + x, 7 + y), cf
+    Line (26 + x, 11 + y)-(36 + x, 10 + y), cf, BF
+    Line (27 + x, 9 + y)-(35 + x, 9 + y), cf
+    Line (28 + x, 8 + y)-(34 + x, 8 + y), cf
+    Line (29 + x, 7 + y)-(33 + x, 7 + y), cf
+    Line (17 + x, 9 + y)-(23 + x, 8 + y), cf, BF
+    Line (18 + x, 7 + y)-(22 + x, 6 + y), cf, BF
+    Line (19 + x, 5 + y)-(21 + x, 4 + y), cf, BF
+End Sub
+
+Sub queen
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 14 + y), cf, BF
+    Line (11 + x, 24 + y)-(29 + x, 24 + y), cf
+    Line (10 + x, 23 + y)-(30 + x, 23 + y), cf
+    Line (9 + x, 22 + y)-(31 + x, 22 + y), cf
+    Line (8 + x, 21 + y)-(32 + x, 21 + y), cf
+    Line (7 + x, 20 + y)-(33 + x, 20 + y), cf
+    Line (6 + x, 19 + y)-(34 + x, 18 + y), cf, BF
+    Line (6 + x, 17 + y)-(7 + x, 10 + y), cf, BF
+    Line (5 + x, 11 + y)-(8 + x, 14 + y), cf, BF
+    Line (4 + x, 12 + y)-(9 + x, 13 + y), cf, BF
+    Line (34 + x, 17 + y)-(33 + x, 10 + y), cf, BF
+    Line (35 + x, 11 + y)-(32 + x, 14 + y), cf, BF
+    Line (36 + x, 12 + y)-(31 + x, 13 + y), cf, BF
+    Line (12 + x, 13 + y)-(13 + x, 6 + y), cf, BF
+    Line (11 + x, 7 + y)-(14 + x, 10 + y), cf, BF
+    Line (10 + x, 8 + y)-(15 + x, 9 + y), cf, BF
+    Line (27 + x, 13 + y)-(28 + x, 6 + y), cf, BF
+    Line (26 + x, 7 + y)-(29 + x, 10 + y), cf, BF
+    Line (25 + x, 8 + y)-(30 + x, 9 + y), cf, BF
+    Line (19 + x, 13 + y)-(21 + x, 4 + y), cf, BF
+    Line (18 + x, 5 + y)-(22 + x, 8 + y), cf, BF
+    Line (17 + x, 6 + y)-(23 + x, 7 + y), cf, BF
+End Sub
+
+Sub bishop
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (18 + x, 31 + y)-(22 + x, 6 + y), cf, BF
+    Line (19 + x, 5 + y)-(21 + x, 4 + y), cf, BF
+    Line (12 + x, 31 + y)-(28 + x, 31 + y), cf
+    Line (13 + x, 30 + y)-(27 + x, 30 + y), cf
+    Line (14 + x, 29 + y)-(26 + x, 29 + y), cf
+    Line (15 + x, 28 + y)-(25 + x, 28 + y), cf
+    Line (16 + x, 27 + y)-(24 + x, 27 + y), cf
+    Line (17 + x, 26 + y)-(23 + x, 26 + y), cf
+    Line (17 + x, 21 + y)-(23 + x, 8 + y), cf, BF
+    Line (16 + x, 19 + y)-(24 + x, 10 + y), cf, BF
+    Line (15 + x, 17 + y)-(25 + x, 12 + y), cf, BF
+    Line (14 + x, 15 + y)-(26 + x, 14 + y), cf, BF
+End Sub
+
+Sub knight
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (12 + x, 31 + y)-(28 + x, 31 + y), cf
+    Line (13 + x, 30 + y)-(29 + x, 30 + y), cf
+    Line (14 + x, 29 + y)-(30 + x, 29 + y), cf
+    Line (15 + x, 28 + y)-(31 + x, 28 + y), cf
+    Line (16 + x, 27 + y)-(32 + x, 27 + y), cf
+    Line (17 + x, 26 + y)-(33 + x, 26 + y), cf
+    Line (18 + x, 25 + y)-(34 + x, 25 + y), cf
+    Line (19 + x, 24 + y)-(35 + x, 24 + y), cf
+    Line (20 + x, 23 + y)-(36 + x, 18 + y), cf, BF
+    Line (4 + x, 17 + y)-(35 + x, 17 + y), cf
+    Line (4 + x, 16 + y)-(34 + x, 16 + y), cf
+    Line (5 + x, 15 + y)-(33 + x, 15 + y), cf
+    Line (6 + x, 14 + y)-(32 + x, 14 + y), cf
+    Line (7 + x, 13 + y)-(31 + x, 13 + y), cf
+    Line (8 + x, 12 + y)-(30 + x, 12 + y), cf
+    Line (9 + x, 11 + y)-(29 + x, 11 + y), cf
+    Line (10 + x, 10 + y)-(28 + x, 10 + y), cf
+    Line (11 + x, 9 + y)-(27 + x, 9 + y), cf
+    Line (12 + x, 8 + y)-(26 + x, 8 + y), cf
+    Line (13 + x, 7 + y)-(25 + x, 7 + y), cf
+    Line (14 + x, 6 + y)-(24 + x, 6 + y), cf
+    Line (15 + x, 5 + y)-(23 + x, 5 + y), cf
+    Line (16 + x, 4 + y)-(22 + x, 4 + y), cf
+End Sub
+
+Sub rook
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (4 + x, 4 + y)-(8 + x, 12 + y), cf, BF
+    Line (13 + x, 4 + y)-(17 + x, 12 + y), cf, BF
+    Line (23 + x, 4 + y)-(27 + x, 12 + y), cf, BF
+    Line (32 + x, 4 + y)-(36 + x, 12 + y), cf, BF
+    Line (4 + x, 12 + y)-(36 + x, 16 + y), cf, BF
+    Line (12 + x, 16 + y)-(28 + x, 32 + y), cf, BF
+    Line (9 + x, 16 + y)-(11 + x, 16 + y), cf
+    Line (29 + x, 16 + y)-(31 + x, 16 + y), cf
+    Line (10 + x, 17 + y)-(11 + x, 17 + y), cf
+    Line (29 + x, 17 + y)-(30 + x, 17 + y), cf
+    PSet (11 + x, 18 + y), cf: PSet (29 + x, 18 + y), cf
+    Line (9 + x, 31 + y)-(11 + x, 31 + y), cf
+    Line (29 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(11 + x, 30 + y), cf
+    Line (29 + x, 30 + y)-(30 + x, 30 + y), cf
+    PSet (11 + x, 29 + y), cf: PSet (29 + x, 29 + y), cf
+End Sub
+
+Sub pawn
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (18 + x, 32 + y)-(22 + x, 4 + y), cf, BF
+    Line (12 + x, 9 + y)-(28 + x, 14 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
+    Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
+    Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
+    Line (15 + x, 25 + y)-(25 + x, 25 + y), cf
+    Line (16 + x, 24 + y)-(24 + x, 24 + y), cf
+    Line (17 + x, 23 + y)-(23 + x, 23 + y), cf
+    Line (17 + x, 19 + y)-(23 + x, 19 + y), cf
+    Line (16 + x, 18 + y)-(24 + x, 18 + y), cf
+    Line (15 + x, 17 + y)-(25 + x, 17 + y), cf
+    Line (14 + x, 16 + y)-(26 + x, 16 + y), cf
+    Line (13 + x, 15 + y)-(27 + x, 15 + y), cf
+    Line (13 + x, 8 + y)-(27 + x, 8 + y), cf
+    Line (14 + x, 7 + y)-(26 + x, 7 + y), cf
+    Line (15 + x, 6 + y)-(25 + x, 6 + y), cf
+    Line (16 + x, 5 + y)-(24 + x, 5 + y), cf
+    Line (17 + x, 4 + y)-(23 + x, 4 + y), cf
+End Sub
+
+Sub cannon
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
+    Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
+    Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
+    Line (15 + x, 25 + y)-(25 + x, 25 + y), cf
+    Line (16 + x, 24 + y)-(24 + x, 4 + y), cf, BF
+    Line (6 + x, 9 + y)-(36 + x, 12 + y), cf, BF
+    Line (4 + x, 10 + y)-(6 + x, 11 + y), cf, BF
+    Line (14 + x, 16 + y)-(25 + x, 16 + y), cf
+    Line (12 + x, 15 + y)-(26 + x, 15 + y), cf
+    Line (10 + x, 14 + y)-(27 + x, 14 + y), cf
+    Line (8 + x, 13 + y)-(28 + x, 13 + y), cf
+    Line (8 + x, 8 + y)-(28 + x, 8 + y), cf
+    Line (10 + x, 7 + y)-(27 + x, 7 + y), cf
+    Line (12 + x, 6 + y)-(26 + x, 6 + y), cf
+    Line (14 + x, 5 + y)-(25 + x, 5 + y), cf
+    Line (16 + x, 4 + y)-(24 + x, 4 + y), cf
+End Sub
+
+Sub general
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
+    Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
+    Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
+    Line (13 + x, 25 + y)-(27 + x, 22 + y), cf, BF
+    Line (16 + x, 21 + y)-(24 + x, 20 + y), cf, BF
+    Line (18 + x, 19 + y)-(22 + x, 12 + y), cf, BF
+    Line (19 + x, 11 + y)-(21 + x, 4 + y), cf, BF
+    Line (18 + x, 10 + y)-(22 + x, 5 + y), cf, BF
+    Line (17 + x, 9 + y)-(23 + x, 6 + y), cf, BF
+    Line (16 + x, 8 + y)-(24 + x, 7 + y), cf, BF
+    Line (15 + x, 20 + y)-(16 + x, 19 + y), cf, BF
+    Line (14 + x, 19 + y)-(15 + x, 18 + y), cf, BF
+    Line (13 + x, 18 + y)-(14 + x, 17 + y), cf, BF
+    Line (24 + x, 20 + y)-(25 + x, 19 + y), cf, BF
+    Line (25 + x, 19 + y)-(26 + x, 18 + y), cf, BF
+    Line (26 + x, 18 + y)-(27 + x, 17 + y), cf, BF
+    Line (11 + x, 18 + y)-(12 + x, 11 + y), cf, BF
+    Line (10 + x, 17 + y)-(13 + x, 12 + y), cf, BF
+    Line (9 + x, 16 + y)-(14 + x, 13 + y), cf, BF
+    Line (8 + x, 15 + y)-(15 + x, 14 + y), cf, BF
+    Line (28 + x, 18 + y)-(29 + x, 11 + y), cf, BF
+    Line (27 + x, 17 + y)-(30 + x, 12 + y), cf, BF
+    Line (26 + x, 16 + y)-(31 + x, 13 + y), cf, BF
+    Line (25 + x, 15 + y)-(32 + x, 14 + y), cf, BF
+    Line (4 + x, 24 + y)-(36 + x, 23 + y), cf, BF
+    Line (29 + x, 25 + y)-(35 + x, 22 + y), cf, BF
+    Line (30 + x, 26 + y)-(34 + x, 21 + y), cf, BF
+    Line (31 + x, 27 + y)-(33 + x, 20 + y), cf, BF
+    Line (5 + x, 25 + y)-(11 + x, 22 + y), cf, BF
+    Line (6 + x, 26 + y)-(10 + x, 21 + y), cf, BF
+    Line (7 + x, 27 + y)-(9 + x, 20 + y), cf, BF
+End Sub
+
+Sub tokin
+    Line (10 + x, 10 + y)-(30 + x, 30 + y), cf, BF
+    Line (4 + x, 4 + y)-(5 + x, 5 + y), cf, BF
+    Line (5 + x, 5 + y)-(7 + x, 7 + y), cf, BF
+    Line (6 + x, 6 + y)-(9 + x, 9 + y), cf, BF
+    Line (7 + x, 7 + y)-(11 + x, 11 + y), cf, BF
+    Line (8 + x, 8 + y)-(12 + x, 12 + y), cf, BF
+    Line (36 + x, 4 + y)-(35 + x, 5 + y), cf, BF
+    Line (35 + x, 5 + y)-(33 + x, 7 + y), cf, BF
+    Line (34 + x, 6 + y)-(31 + x, 9 + y), cf, BF
+    Line (33 + x, 7 + y)-(29 + x, 11 + y), cf, BF
+    Line (32 + x, 8 + y)-(28 + x, 12 + y), cf, BF
+    Line (36 + x, 36 + y)-(35 + x, 35 + y), cf, BF
+    Line (35 + x, 35 + y)-(33 + x, 33 + y), cf, BF
+    Line (34 + x, 34 + y)-(31 + x, 31 + y), cf, BF
+    Line (33 + x, 33 + y)-(29 + x, 29 + y), cf, BF
+    Line (32 + x, 32 + y)-(28 + x, 28 + y), cf, BF
+    Line (4 + x, 36 + y)-(5 + x, 35 + y), cf, BF
+    Line (5 + x, 35 + y)-(7 + x, 33 + y), cf, BF
+    Line (6 + x, 34 + y)-(9 + x, 31 + y), cf, BF
+    Line (7 + x, 33 + y)-(11 + x, 29 + y), cf, BF
+    Line (8 + x, 32 + y)-(12 + x, 28 + y), cf, BF
+    Line (17 + x, 9 + y)-(23 + x, 8 + y), cf, BF
+    Line (18 + x, 7 + y)-(22 + x, 6 + y), cf, BF
+    Line (19 + x, 5 + y)-(21 + x, 4 + y), cf, BF
+    Line (17 + x, 31 + y)-(23 + x, 32 + y), cf, BF
+    Line (18 + x, 33 + y)-(22 + x, 34 + y), cf, BF
+    Line (19 + x, 35 + y)-(21 + x, 36 + y), cf, BF
+    Line (8 + x, 17 + y)-(9 + x, 23 + y), cf, BF
+    Line (6 + x, 18 + y)-(7 + x, 22 + y), cf, BF
+    Line (4 + x, 19 + y)-(5 + x, 21 + y), cf, BF
+    Line (32 + x, 17 + y)-(31 + x, 23 + y), cf, BF
+    Line (34 + x, 18 + y)-(33 + x, 22 + y), cf, BF
+    Line (36 + x, 19 + y)-(35 + x, 21 + y), cf, BF
+End Sub
+
+Sub lance
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
+    Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
+    Line (14 + x, 26 + y)-(26 + x, 24 + y), cf, BF
+    Line (15 + x, 23 + y)-(25 + x, 20 + y), cf, BF
+    Line (16 + x, 19 + y)-(24 + x, 16 + y), cf, BF
+    Line (17 + x, 15 + y)-(23 + x, 12 + y), cf, BF
+    Line (18 + x, 11 + y)-(22 + x, 8 + y), cf, BF
+    Line (19 + x, 7 + y)-(21 + x, 4 + y), cf, BF
+End Sub
+
+Sub dragon
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (9 + x, 31 + y)-(31 + x, 31 + y), cf
+    Line (10 + x, 30 + y)-(30 + x, 30 + y), cf
+    Line (11 + x, 29 + y)-(29 + x, 29 + y), cf
+    Line (12 + x, 28 + y)-(28 + x, 28 + y), cf
+    Line (13 + x, 27 + y)-(27 + x, 27 + y), cf
+    Line (14 + x, 26 + y)-(26 + x, 26 + y), cf
+    Line (15 + x, 25 + y)-(25 + x, 25 + y), cf
+    Line (15 + x, 20 + y)-(25 + x, 20 + y), cf
+    Line (14 + x, 19 + y)-(26 + x, 19 + y), cf
+    Line (13 + x, 18 + y)-(27 + x, 18 + y), cf
+    Line (16 + x, 24 + y)-(24 + x, 8 + y), cf, BF
+    Line (17 + x, 7 + y)-(23 + x, 6 + y), cf, BF
+    Line (18 + x, 5 + y)-(22 + x, 5 + y), cf
+    Line (19 + x, 4 + y)-(21 + x, 4 + y), cf
+    Line (9 + x, 12 + y)-(31 + x, 17 + y), cf, BF
+    Line (10 + x, 11 + y)-(13 + x, 11 + y), cf
+    Line (11 + x, 10 + y)-(12 + x, 10 + y), cf
+    Line (27 + x, 11 + y)-(30 + x, 11 + y), cf
+    Line (28 + x, 10 + y)-(29 + x, 10 + y), cf
+    Line (10 + x, 11 + y)-(10 + x, 18 + y), cf
+    Line (9 + x, 12 + y)-(9 + x, 19 + y), cf
+    Line (8 + x, 13 + y)-(8 + x, 20 + y), cf
+    Line (7 + x, 14 + y)-(7 + x, 21 + y), cf
+    Line (6 + x, 15 + y)-(6 + x, 22 + y), cf
+    Line (5 + x, 16 + y)-(5 + x, 23 + y), cf
+    Line (4 + x, 17 + y)-(4 + x, 24 + y), cf
+    Line (30 + x, 11 + y)-(30 + x, 18 + y), cf
+    Line (31 + x, 12 + y)-(31 + x, 19 + y), cf
+    Line (32 + x, 13 + y)-(32 + x, 20 + y), cf
+    Line (33 + x, 14 + y)-(33 + x, 21 + y), cf
+    Line (34 + x, 15 + y)-(34 + x, 22 + y), cf
+    Line (35 + x, 16 + y)-(35 + x, 23 + y), cf
+    Line (36 + x, 17 + y)-(36 + x, 24 + y), cf
+End Sub
+
+Sub horse
+    Line (8 + x, 36 + y)-(32 + x, 32 + y), cf, BF
+    Line (10 + x, 31 + y)-(11 + x, 26 + y), cf, BF
+    Line (16 + x, 31 + y)-(17 + x, 26 + y), cf, BF
+    Line (23 + x, 31 + y)-(24 + x, 26 + y), cf, BF
+    Line (29 + x, 31 + y)-(30 + x, 26 + y), cf, BF
+    Line (8 + x, 25 + y)-(32 + x, 14 + y), cf, BF
+    Line (7 + x, 24 + y)-(7 + x, 15 + y), cf
+    Line (6 + x, 23 + y)-(6 + x, 16 + y), cf
+    Line (5 + x, 22 + y)-(5 + x, 17 + y), cf
+    Line (4 + x, 21 + y)-(4 + x, 18 + y), cf
+    Line (33 + x, 24 + y)-(33 + x, 15 + y), cf
+    Line (34 + x, 23 + y)-(34 + x, 16 + y), cf
+    Line (35 + x, 22 + y)-(35 + x, 17 + y), cf
+    Line (36 + x, 21 + y)-(36 + x, 18 + y), cf
+    Line (14 + x, 13 + y)-(26 + x, 10 + y), cf, BF
+    Line (10 + x, 9 + y)-(30 + x, 7 + y), cf, BF
+    Line (10 + x, 6 + y)-(13 + x, 6 + y), cf
+    Line (10 + x, 5 + y)-(12 + x, 5 + y), cf
+    Line (10 + x, 4 + y)-(11 + x, 4 + y), cf
+    Line (30 + x, 6 + y)-(27 + x, 6 + y), cf
+    Line (30 + x, 5 + y)-(28 + x, 5 + y), cf
+    Line (30 + x, 4 + y)-(29 + x, 4 + y), cf
+    Line (16 + x, 6 + y)-(24 + x, 6 + y), cf
+    Line (17 + x, 5 + y)-(23 + x, 5 + y), cf
+    Line (18 + x, 4 + y)-(22 + x, 4 + y), cf
+End Sub
+
+Sub dame
+    Line (14 + x, 36 + y)-(26 + x, 28 + y), cf, BF
+    Line (14 + x, 4 + y)-(26 + x, 12 + y), cf, BF
+    Line (4 + x, 14 + y)-(12 + x, 26 + y), cf, BF
+    Line (28 + x, 14 + y)-(36 + x, 26 + y), cf, BF
+    Line (17 + x, 36 + y)-(17 + x, 27 + y), cf
+    Line (16 + x, 36 + y)-(16 + x, 26 + y), cf
+    Line (15 + x, 36 + y)-(15 + x, 25 + y), cf
+    Line (14 + x, 36 + y)-(14 + x, 24 + y), cf
+    Line (13 + x, 35 + y)-(13 + x, 23 + y), cf
+    Line (12 + x, 34 + y)-(12 + x, 22 + y), cf
+    Line (23 + x, 36 + y)-(23 + x, 27 + y), cf
+    Line (24 + x, 36 + y)-(24 + x, 26 + y), cf
+    Line (25 + x, 36 + y)-(25 + x, 25 + y), cf
+    Line (26 + x, 36 + y)-(26 + x, 24 + y), cf
+    Line (27 + x, 35 + y)-(27 + x, 23 + y), cf
+    Line (28 + x, 34 + y)-(28 + x, 22 + y), cf
+    Line (17 + x, 4 + y)-(17 + x, 13 + y), cf
+    Line (16 + x, 4 + y)-(16 + x, 14 + y), cf
+    Line (15 + x, 4 + y)-(15 + x, 15 + y), cf
+    Line (14 + x, 4 + y)-(14 + x, 16 + y), cf
+    Line (13 + x, 5 + y)-(13 + x, 17 + y), cf
+    Line (12 + x, 6 + y)-(12 + x, 18 + y), cf
+    Line (23 + x, 4 + y)-(23 + x, 13 + y), cf
+    Line (24 + x, 4 + y)-(24 + x, 14 + y), cf
+    Line (25 + x, 4 + y)-(25 + x, 15 + y), cf
+    Line (26 + x, 4 + y)-(26 + x, 16 + y), cf
+    Line (27 + x, 5 + y)-(27 + x, 17 + y), cf
+    Line (28 + x, 6 + y)-(28 + x, 18 + y), cf
+    Line (5 + x, 13 + y)-(5 + x, 27 + y), cf
+    Line (6 + x, 12 + y)-(6 + x, 28 + y), cf
+    Line (7 + x, 11 + y)-(7 + x, 29 + y), cf
+    Line (8 + x, 10 + y)-(8 + x, 30 + y), cf
+    Line (9 + x, 9 + y)-(9 + x, 31 + y), cf
+    Line (10 + x, 8 + y)-(10 + x, 32 + y), cf
+    Line (11 + x, 7 + y)-(11 + x, 33 + y), cf
+    Line (35 + x, 13 + y)-(35 + x, 27 + y), cf
+    Line (34 + x, 12 + y)-(34 + x, 28 + y), cf
+    Line (33 + x, 11 + y)-(33 + x, 29 + y), cf
+    Line (32 + x, 10 + y)-(32 + x, 30 + y), cf
+    Line (31 + x, 9 + y)-(31 + x, 31 + y), cf
+    Line (30 + x, 8 + y)-(30 + x, 32 + y), cf
+    Line (29 + x, 7 + y)-(29 + x, 33 + y), cf
+End Sub
+
+Sub checker
+    Line (14 + x, 36 + y)-(26 + x, 32 + y), cf, BF
+    Line (14 + x, 4 + y)-(26 + x, 8 + y), cf, BF
+    Line (4 + x, 14 + y)-(8 + x, 26 + y), cf, BF
+    Line (32 + x, 14 + y)-(36 + x, 26 + y), cf, BF
+    Line (13 + x, 35 + y)-(13 + x, 31 + y), cf
+    Line (12 + x, 34 + y)-(12 + x, 30 + y), cf
+    Line (11 + x, 33 + y)-(11 + x, 29 + y), cf
+    Line (10 + x, 32 + y)-(10 + x, 28 + y), cf
+    Line (9 + x, 31 + y)-(9 + x, 27 + y), cf
+    Line (8 + x, 30 + y)-(8 + x, 26 + y), cf
+    Line (27 + x, 35 + y)-(27 + x, 31 + y), cf
+    Line (28 + x, 34 + y)-(28 + x, 30 + y), cf
+    Line (29 + x, 33 + y)-(29 + x, 29 + y), cf
+    Line (30 + x, 32 + y)-(30 + x, 28 + y), cf
+    Line (31 + x, 31 + y)-(31 + x, 27 + y), cf
+    Line (32 + x, 30 + y)-(32 + x, 26 + y), cf
+    Line (13 + x, 5 + y)-(13 + x, 9 + y), cf
+    Line (12 + x, 6 + y)-(12 + x, 10 + y), cf
+    Line (11 + x, 7 + y)-(11 + x, 11 + y), cf
+    Line (10 + x, 8 + y)-(10 + x, 12 + y), cf
+    Line (9 + x, 9 + y)-(9 + x, 13 + y), cf
+    Line (8 + x, 10 + y)-(8 + x, 14 + y), cf
+    Line (27 + x, 5 + y)-(27 + x, 9 + y), cf
+    Line (28 + x, 6 + y)-(28 + x, 10 + y), cf
+    Line (29 + x, 7 + y)-(29 + x, 11 + y), cf
+    Line (30 + x, 8 + y)-(30 + x, 12 + y), cf
+    Line (31 + x, 9 + y)-(31 + x, 13 + y), cf
+    Line (32 + x, 10 + y)-(32 + x, 14 + y), cf
+    Line (5 + x, 13 + y)-(5 + x, 27 + y), cf
+    Line (6 + x, 12 + y)-(6 + x, 28 + y), cf
+    Line (7 + x, 11 + y)-(7 + x, 29 + y), cf
+    Line (35 + x, 13 + y)-(35 + x, 27 + y), cf
+    Line (34 + x, 12 + y)-(34 + x, 28 + y), cf
+    Line (33 + x, 11 + y)-(33 + x, 29 + y), cf
+    Line (17 + x, 28 + y)-(23 + x, 24 + y), cf, BF
+    Line (17 + x, 12 + y)-(23 + x, 16 + y), cf, BF
+    Line (12 + x, 17 + y)-(16 + x, 23 + y), cf, BF
+    Line (24 + x, 17 + y)-(28 + x, 23 + y), cf, BF
+    Line (18 + x, 28 + y)-(18 + x, 23 + y), cf
+    Line (17 + x, 28 + y)-(17 + x, 22 + y), cf
+    Line (16 + x, 27 + y)-(16 + x, 21 + y), cf
+    Line (22 + x, 28 + y)-(22 + x, 23 + y), cf
+    Line (23 + x, 28 + y)-(23 + x, 22 + y), cf
+    Line (24 + x, 27 + y)-(24 + x, 21 + y), cf
+    Line (18 + x, 12 + y)-(18 + x, 17 + y), cf
+    Line (17 + x, 12 + y)-(17 + x, 18 + y), cf
+    Line (16 + x, 13 + y)-(16 + x, 19 + y), cf
+    Line (22 + x, 12 + y)-(22 + x, 17 + y), cf
+    Line (23 + x, 12 + y)-(23 + x, 18 + y), cf
+    Line (24 + x, 13 + y)-(24 + x, 19 + y), cf
+    Line (13 + x, 16 + y)-(13 + x, 24 + y), cf
+    Line (14 + x, 15 + y)-(14 + x, 25 + y), cf
+    Line (15 + x, 14 + y)-(15 + x, 26 + y), cf
+    Line (27 + x, 16 + y)-(27 + x, 24 + y), cf
+    Line (26 + x, 15 + y)-(26 + x, 25 + y), cf
+    Line (25 + x, 14 + y)-(25 + x, 26 + y), cf
+End Sub
+
+Sub cells
+    Line (x, y)-(x + 40, y + 40), cd1, BF
+    Line (x - 1, y - 1)-(x + 41, y + 41), cb1, B
+End Sub
+
+Sub dices
+    Line (20, 160)-(60, 200), cd1, BF
+    Line (20, 220)-(60, 260), cd1, BF
+    Line (20, 280)-(60, 320), cd1, BF
+    Line (580, 160)-(620, 200), cd1, BF
+    Line (580, 220)-(620, 260), cd1, BF
+    Line (580, 280)-(620, 320), cd1, BF
+    Line (19, 159)-(61, 201), cb1, B
+    Line (19, 219)-(61, 261), cb1, B
+    Line (19, 279)-(61, 321), cb1, B
+    Line (579, 159)-(621, 201), cb1, B
+    Line (579, 219)-(621, 261), cb1, B
+    Line (579, 279)-(621, 321), cb1, B
+End Sub
+
+Sub chessboard
+    Line (160, 80)-(480, 400), cb2, BF
+    For x = 160 To 480 Step 40
+        Line (x, 80)-(x, 400), cb1
+    Next x
+    For y = 80 To 400 Step 40
+        Line (160, y)-(480, y), cb1
+    Next y
+    For y = 320 To 80 Step -80: For x = 400 To 160 Step -80
+        Line (x + 1, y + 1)-(x + 39, y + 39), cb3, BF
+        Line (x + 41, y + 41)-(x + 79, y + 79), cb3, BF
+    Next x: Next y
+    Let y = 405
+    Let x = 175: Call numberA
+    Let x = 215: Call numberB
+    Let x = 255: Call numberC
+    Let x = 295: Call numberD
+    Let x = 335: Call numberE
+    Let x = 375: Call numberF
+    Let x = 415: Call numberG
+    Let x = 455: Call numberH
+    Let x = 145
+    Let y = 95: Call number8
+    Let y = 135: Call number7
+    Let y = 175: Call number6
+    Let y = 215: Call number5
+    Let y = 255: Call number4
+    Let y = 295: Call number3
+    Let y = 335: Call number2
+    Let y = 375: Call number1
+End Sub
+
+Sub makrukboard
+    Line (160, 80)-(480, 400), cb2, BF
+    For x = 160 To 480 Step 40
+        Line (x, 80)-(x, 400), cb1
+    Next x
+    For y = 80 To 400 Step 40
+        Line (160, y)-(480, y), cb1
+    Next y
+    Let y = 405
+    Let x = 175: Call numberA
+    Let x = 215: Call numberB
+    Let x = 255: Call numberC
+    Let x = 295: Call numberD
+    Let x = 335: Call numberE
+    Let x = 375: Call numberF
+    Let x = 415: Call numberG
+    Let x = 455: Call numberH
+    Let x = 145
+    Let y = 95: Call number8
+    Let y = 135: Call number7
+    Let y = 175: Call number6
+    Let y = 215: Call number5
+    Let y = 255: Call number4
+    Let y = 295: Call number3
+    Let y = 335: Call number2
+    Let y = 375: Call number1
+End Sub
+
+Sub xiangqiboard
+    Line (140, 40)-(500, 440), cb2, BF
+    For x = 140 To 500 Step 40
+        Line (x, 40)-(x, 440), cb1
+    Next x
+    For y = 40 To 440 Step 40
+        Line (140, y)-(500, y), cb1
+    Next y
+    Line (259, 161)-(381, 159), cb4, BF
+    Line (259, 41)-(261, 159), cb4, BF
+    Line (379, 41)-(381, 159), cb4, BF
+    Line (259, 321)-(381, 319), cb4, BF
+    Line (259, 439)-(261, 319), cb4, BF
+    Line (379, 439)-(381, 319), cb4, BF
+    Line (141, 238)-(499, 242), cb5, BF
+    Let y = 445
+    Let x = 155: Call numberA
+    Let x = 195: Call numberB
+    Let x = 235: Call numberC
+    Let x = 275: Call numberD
+    Let x = 315: Call numberE
+    Let x = 355: Call numberF
+    Let x = 395: Call numberG
+    Let x = 435: Call numberH
+    Let x = 475: Call numberI
+    Let x = 125
+    Let y = 55: Call number0
+    Let y = 95: Call number9
+    Let y = 135: Call number8
+    Let y = 175: Call number7
+    Let y = 215: Call number6
+    Let y = 255: Call number5
+    Let y = 295: Call number4
+    Let y = 335: Call number3
+    Let y = 375: Call number2
+    Let y = 415: Call number1
+End Sub
+
+Sub shogiboard
+    Line (140, 60)-(500, 420), cb2, BF
+    For x = 140 To 500 Step 40
+        Line (x, 60)-(x, 420), cb1
+    Next x
+    For y = 60 To 400 Step 40
+        Line (140, y)-(500, y), cb1
+    Next y
+    Let y = 425
+    Let x = 155: Call numberA
+    Let x = 195: Call numberB
+    Let x = 235: Call numberC
+    Let x = 275: Call numberD
+    Let x = 315: Call numberE
+    Let x = 355: Call numberF
+    Let x = 395: Call numberG
+    Let x = 435: Call numberH
+    Let x = 475: Call numberI
+    Let x = 125
+    Let y = 75: Call number9
+    Let y = 115: Call number8
+    Let y = 155: Call number7
+    Let y = 195: Call number6
+    Let y = 235: Call number5
+    Let y = 275: Call number4
+    Let y = 315: Call number3
+    Let y = 355: Call number2
+    Let y = 395: Call number1
+End Sub
+
+Sub draughtsboard
+    Line (120, 40)-(520, 440), cb2, BF
+    For x = 120 To 520 Step 40
+        Line (x, 40)-(x, 440), cb1
+    Next x
+    For y = 40 To 440 Step 40
+        Line (120, y)-(520, y), cb1
+    Next y
+    For y = 360 To 40 Step -80: For x = 440 To 120 Step -80
+        Line (x + 1, y + 1)-(x + 39, y + 39), cb3, BF
+        Line (x + 41, y + 41)-(x + 79, y + 79), cb3, BF
+    Next x: Next y
+    Let y = 445
+    Let x = 135: Call numberA
+    Let x = 175: Call numberB
+    Let x = 215: Call numberC
+    Let x = 255: Call numberD
+    Let x = 295: Call numberE
+    Let x = 335: Call numberF
+    Let x = 375: Call numberG
+    Let x = 415: Call numberH
+    Let x = 455: Call numberI
+    Let x = 495: Call numberJ
+    Let x = 105
+    Let y = 55: Call number0
+    Let y = 95: Call number9
+    Let y = 135: Call number8
+    Let y = 175: Call number7
+    Let y = 215: Call number6
+    Let y = 255: Call number5
+    Let y = 295: Call number4
+    Let y = 335: Call number3
+    Let y = 375: Call number2
+    Let y = 415: Call number1
+End Sub
+
+Sub chess
+
+    Rem 1st roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = 1
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = 1
+    Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
+
+    Do
+        Let count = count + 1
+        Let dc1 = Int(Rnd * 8 + 1)
+        Let dc2 = Int(Rnd * 8 + 1)
+        Let dc4 = Int(Rnd * 8 + 1)
+        Let dc5 = Int(Rnd * 8 + 1)
+        Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
+        If count > 8000 Then Exit Do
+    Loop While Abs(w1 - b1) < 10
+
+    Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
+    Let fw1x = dc1: Let fw1y = dc2: Let fb1x = dc4: Let fb1y = dc5
+    Let fw1 = dc3: Let fb1 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15: Call king
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0: Call king
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call chessfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 2nd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = Int(Rnd * 5 + 2)
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = Int(Rnd * 5 + 2)
+    Let w2 = board(dc2, dc1): Let b2 = board(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 = 1 Or dc2 = 8
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 = 1 Or dc5 = 8
+    End Select
+
+    Let w2 = board(dc2, dc1): Let b2 = board(dc5, dc4)
+    Let fw2x = dc1: Let fw2y = dc2: Let fb2x = dc4: Let fb2y = dc5
+    Let fw2 = dc3: Let fb2 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call pawn
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call pawn
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call chessfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 3rd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = Int(Rnd * 5 + 2)
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = Int(Rnd * 5 + 2)
+    Let w3 = board(dc2, dc1): Let b3 = board(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw3x = dc1: Let fw3y = dc2
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw3x = dc1: Let fw3y = dc2
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb3x = dc4: Let fb3y = dc5
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb3x = dc4: Let fb3y = dc5
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w3 = board(dc2, dc1): Let b3 = board(dc5, dc4)
+    Let fw3x = dc1: Let fw3y = dc2: Let fb3x = dc4: Let fb3y = dc5
+    Let fw3 = dc3: Let fb3 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call pawn
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call pawn
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call chessfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 4th roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = Int(Rnd * 5 + 2)
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = Int(Rnd * 5 + 2)
+    Let w4 = board(dc2, dc1): Let b4 = board(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw4x = dc1: Let fw4y = dc2
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw4x = dc1: Let fw4y = dc2
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb4x = dc4: Let fb4y = dc5
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb4x = dc4: Let fb4y = dc5
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w4 = board(dc2, dc1): Let b4 = board(dc5, dc4)
+    Let fw4x = dc1: Let fw4y = dc2: Let fb4x = dc4: Let fb4y = dc5
+    Let fw4 = dc3: Let fb4 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call pawn
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call pawn
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Case
+            Case Is = Chr$(13)
+                Call chessfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+End Sub
+
+Sub makruk
+
+    Rem 1st roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = 1
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = 1
+    Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
+
+    Do
+        Let count = count + 1
+        Let dc1 = Int(Rnd * 8 + 1)
+        Let dc2 = Int(Rnd * 8 + 1)
+        Let dc4 = Int(Rnd * 8 + 1)
+        Let dc5 = Int(Rnd * 8 + 1)
+        Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
+        If count > 8000 Then Exit Do
+    Loop While Abs(w1 - b1) < 10
+
+    Let w1 = board(dc2, dc1): Let b1 = board(dc5, dc4)
+    Let fw1x = dc1: Let fw1y = dc2: Let fb1x = dc4: Let fb1y = dc5
+    Let fw1 = dc3: Let fb1 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15: Call king
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0: Call king
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call makrukfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 2nd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = Int(Rnd * 5 + 2)
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = Int(Rnd * 5 + 2)
+    Let w2 = board(dc2, dc1): Let b2 = board(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+            Let indexw3 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Let indexw4 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Let indexw5 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w2 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 < 3 Or dc2 > 5
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+            Let indexb3 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Let indexb4 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Let indexb5 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b2 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 < 4 Or dc5 > 6
+    End Select
+
+    Let w2 = board(dc2, dc1): Let b2 = board(dc5, dc4)
+    Let fw2x = dc1: Let fw2y = dc2: Let fb2x = dc4: Let fb2y = dc5
+    Let fw2 = dc3: Let fb2 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call checker
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call checker
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call makrukfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 3rd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = Int(Rnd * 5 + 2)
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = Int(Rnd * 5 + 2)
+    Let w3 = board(dc2, dc1): Let b3 = board(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let indexw3 = indexw3 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Let indexw4 = indexw4 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Let indexw5 = indexw5 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw3x = dc1: Let fw3y = dc2
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w3 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let indexb3 = indexb3 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Let indexb4 = indexb4 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Let indexb5 = indexb5 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb3x = dc4: Let fb3y = dc5
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b3 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w3 = board(dc2, dc1): Let b3 = board(dc5, dc4)
+    Let fw3x = dc1: Let fw3y = dc2: Let fb3x = dc4: Let fb3y = dc5
+    Let fw3 = dc3: Let fb3 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call checker
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call checker
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call makrukfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 4th roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 8 + 1)
+    Let dc2 = Int(Rnd * 8 + 1)
+    Let dc3 = Int(Rnd * 5 + 2)
+    Let dc4 = Int(Rnd * 8 + 1)
+    Let dc5 = Int(Rnd * 8 + 1)
+    Let dc6 = Int(Rnd * 5 + 2)
+    Let w4 = board(dc2, dc1): Let b4 = board(dc5, dc4)
+    If indexw3 > 2 Or indexw4 > 2 Or indexw5 > 2 Then Let dc3 = 6
+    If indexb3 > 2 Or indexb4 > 2 Or indexb5 > 2 Then Let dc6 = 6
+
+    Select Case dc3
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let fw4x = dc1: Let fw4y = dc2
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 8 + 1)
+                Let dc2 = Int(Rnd * 8 + 1)
+                Let w4 = board(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let fb4x = dc4: Let fb4y = dc5
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 8 + 1)
+                Let dc5 = Int(Rnd * 8 + 1)
+                Let b4 = board(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w4 = board(dc2, dc1): Let b4 = board(dc5, dc4)
+    Let fw4x = dc1: Let fw4y = dc2: Let fb4x = dc4: Let fb4y = dc5
+    Let fw4 = dc3: Let fb4 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    Let x = (dc1 * 40) + 120: Let y = Abs((dc2 * 40) - 480) - 80
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call checker
+    Let x = (dc4 * 40) + 120: Let y = Abs((dc5 * 40) - 480) - 80
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call checker
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Case
+            Case Is = Chr$(13)
+                Call makrukfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+End Sub
+
+Sub xiangqi
+
+    Rem 1st roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 3 + 4)
+    Let dc2 = Int(Rnd * 3 + 1)
+    Let dc3 = 1
+    Let dc4 = Int(Rnd * 3 + 4)
+    Let dc5 = Int(Rnd * 3 + 8)
+    Let dc6 = 1
+    Let w1 = xiabo(dc2, dc1): Let b1 = xiabo(dc5, dc4)
+
+    Do
+        Let count = count + 1
+        Let dc1 = Int(Rnd * 3 + 4)
+        Let dc2 = Int(Rnd * 3 + 1)
+        Let dc4 = Int(Rnd * 3 + 4)
+        Let dc5 = Int(Rnd * 3 + 8)
+        Let w1 = xiabo(dc2, dc1): Let b1 = xiabo(dc5, dc4)
+        If count > 8000 Then Exit Do
+    Loop While w1 = b1
+
+    Let w1 = xiabo(dc2, dc1): Let b1 = xiabo(dc5, dc4)
+    Let fw1x = dc1: Let fw1y = dc2: Let fb1x = dc4: Let fb1y = dc5
+    Let fw1 = dc3: Let fb1 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call cannon
+    If dc3 = 7 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call cannon
+    If dc6 = 7 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15: Call king
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0: Call king
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call xiangqifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 2nd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 9 + 1)
+    Let dc2 = Int(Rnd * 10 + 1)
+    Let dc3 = Int(Rnd * 6 + 2)
+    Let dc4 = Int(Rnd * 9 + 1)
+    Let dc5 = Int(Rnd * 10 + 1)
+    Let dc6 = Int(Rnd * 6 + 2)
+    Let w2 = xiabo(dc2, dc1): Let b2 = xiabo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Let indexw2 = 1
+            Let dc1 = Int(Rnd * 3 + 4)
+            Let dc2 = Int(Rnd * 3 + 1)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                    Let dc1 = 4
+                    Let dc2 = 1
+                End If
+                If index = 2 Then
+                    Let dc1 = 6
+                    Let dc2 = 1
+                End If
+                If index = 3 Then
+                    Let dc1 = 5
+                    Let dc2 = 2
+                End If
+                If index = 4 Then
+                    Let dc1 = 4
+                    Let dc2 = 3
+                End If
+                If index = 5 Then
+                    Let dc1 = 6
+                    Let dc2 = 3
+                End If
+                Let w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or w2 Mod 2 <> 0
+        Case Is = 3
+            Let indexw3 = 1
+            Let dc1 = Int(Rnd * 9 + 1)
+            Let dc2 = Int(Rnd * 5 + 1)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                    Let dc1 = 3
+                    Let dc2 = 1
+                End If
+                If index = 2 Then
+                    Let dc1 = 7
+                    Let dc2 = 1
+                End If
+                If index = 3 Then
+                    Let dc1 = 1
+                    Let dc2 = 3
+                End If
+                If index = 4 Then
+                    Let dc1 = 5
+                    Let dc2 = 3
+                End If
+                If index = 5 Then
+                    Let dc1 = 9
+                    Let dc2 = 3
+                End If
+                If index = 6 Then
+                    Let dc1 = 3
+                    Let dc2 = 5
+                End If
+                If index = 7 Then
+                    Let dc1 = 7
+                    Let dc2 = 5
+                End If
+                Let w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Let indexw4 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Let indexw5 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Let indexw6 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 7
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let w2 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 < 4 Or dc2 > 7
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Let indexb2 = 1
+            Let dc4 = Int(Rnd * 3 + 4)
+            Let dc5 = Int(Rnd * 3 + 8)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                    Let dc4 = 4
+                    Let dc5 = 10
+                End If
+                If index = 2 Then
+                    Let dc4 = 6
+                    Let dc5 = 10
+                End If
+                If index = 3 Then
+                    Let dc4 = 5
+                    Let dc5 = 9
+                End If
+                If index = 4 Then
+                    Let dc4 = 4
+                    Let dc5 = 8
+                End If
+                If index = 5 Then
+                    Let dc4 = 6
+                    Let dc5 = 8
+                End If
+                Let b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or b2 Mod 2 = 0
+        Case Is = 3
+            Let indexb3 = 1
+            Let dc4 = Int(Rnd * 9 + 1)
+            Let dc5 = Int(Rnd * 5 + 6)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                    Let dc4 = 3
+                    Let dc5 = 10
+                End If
+                If index = 2 Then
+                    Let dc4 = 7
+                    Let dc5 = 10
+                End If
+                If index = 3 Then
+                    Let dc4 = 1
+                    Let dc5 = 8
+                End If
+                If index = 4 Then
+                    Let dc4 = 5
+                    Let dc5 = 8
+                End If
+                If index = 5 Then
+                    Let dc4 = 9
+                    Let dc5 = 8
+                End If
+                If index = 6 Then
+                    Let dc4 = 3
+                    Let dc5 = 6
+                End If
+                If index = 7 Then
+                    Let dc4 = 7
+                    Let dc5 = 6
+                End If
+                Let b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or b2
+        Case Is = 4
+            Let indexb4 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Let indexb5 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Let indexb6 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 7
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let b2 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 < 3 Or dc5 > 8
+    End Select
+
+    Let w2 = xiabo(dc2, dc1): Let b2 = xiabo(dc5, dc4)
+    Let fw2x = dc1: Let fw2y = dc2: Let fb2x = dc4: Let fb2y = dc5
+    Let fw2 = dc3: Let fb2 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call cannon
+    If dc3 = 7 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call cannon
+    If dc6 = 7 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call cannon
+    If dc3 = 7 Then Call pawn
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call cannon
+    If dc6 = 7 Then Call pawn
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call xiangqifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 3rd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 9 + 1)
+    Let dc2 = Int(Rnd * 10 + 1)
+    Let dc3 = Int(Rnd * 6 + 2)
+    Let dc4 = Int(Rnd * 9 + 1)
+    Let dc5 = Int(Rnd * 10 + 1)
+    Let dc6 = Int(Rnd * 6 + 2)
+    Let w3 = xiabo(dc2, dc1): Let b3 = xiabo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Let indexw2 = indexw2 + 1
+            Let dc1 = Int(Rnd * 3 + 4)
+            Let dc2 = Int(Rnd * 3 + 1)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                    Let dc1 = 4
+                    Let dc2 = 1
+                End If
+                If index = 2 Then
+                    Let dc1 = 6
+                    Let dc2 = 1
+                End If
+                If index = 3 Then
+                    Let dc1 = 5
+                    Let dc2 = 2
+                End If
+                If index = 4 Then
+                    Let dc1 = 4
+                    Let dc2 = 3
+                End If
+                If index = 5 Then
+                    Let dc1 = 6
+                    Let dc2 = 3
+                End If
+                Let w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let indexw3 = indexw3 + 1
+            Let dc1 = Int(Rnd * 9 + 1)
+            Let dc2 = Int(Rnd * 5 + 1)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                    Let dc1 = 3
+                    Let dc2 = 1
+                End If
+                If index = 2 Then
+                    Let dc1 = 7
+                    Let dc2 = 1
+                End If
+                If index = 3 Then
+                    Let dc1 = 1
+                    Let dc2 = 3
+                End If
+                If index = 4 Then
+                    Let dc1 = 5
+                    Let dc2 = 3
+                End If
+                If index = 5 Then
+                    Let dc1 = 9
+                    Let dc2 = 3
+                End If
+                If index = 6 Then
+                    Let dc1 = 3
+                    Let dc2 = 5
+                End If
+                If index = 7 Then
+                    Let dc1 = 7
+                    Let dc2 = 5
+                End If
+                Let w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Let indexw4 = indexw4 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Let indexw5 = indexw5 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let fw3x = dc1: Let fw3y = dc2
+                Let w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Let indexw6 = indexw6 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let fw3x = dc1: Let fw3y = dc2
+                Let w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let w3 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Let indexb2 = indexb2 + 1
+            Let dc4 = Int(Rnd * 3 + 4)
+            Let dc5 = Int(Rnd * 3 + 8)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                    Let dc4 = 4
+                    Let dc5 = 10
+                End If
+                If index = 2 Then
+                    Let dc4 = 6
+                    Let dc5 = 10
+                End If
+                If index = 3 Then
+                    Let dc4 = 5
+                    Let dc5 = 9
+                End If
+                If index = 4 Then
+                    Let dc4 = 4
+                    Let dc5 = 8
+                End If
+                If index = 5 Then
+                    Let dc4 = 6
+                    Let dc5 = 8
+                End If
+                Let b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let indexb3 = indexb3 + 1
+            Let dc4 = Int(Rnd * 9 + 1)
+            Let dc5 = Int(Rnd * 5 + 6)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                    Let dc4 = 3
+                    Let dc5 = 10
+                End If
+                If index = 2 Then
+                    Let dc4 = 7
+                    Let dc5 = 10
+                End If
+                If index = 3 Then
+                    Let dc4 = 1
+                    Let dc5 = 8
+                End If
+                If index = 4 Then
+                    Let dc4 = 5
+                    Let dc5 = 8
+                End If
+                If index = 5 Then
+                    Let dc4 = 9
+                    Let dc5 = 8
+                End If
+                If index = 6 Then
+                    Let dc4 = 3
+                    Let dc5 = 6
+                End If
+                If index = 7 Then
+                    Let dc4 = 7
+                    Let dc5 = 6
+                End If
+                Let b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Let indexb4 = indexb4 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Let indexb5 = indexb5 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let fb3x = dc4: Let fb3y = dc5
+                Let b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Let indexb6 = indexb6 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let fb3x = dc4: Let fb3y = dc5
+                Let b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let b3 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w3 = xiabo(dc2, dc1): Let b3 = xiabo(dc5, dc4)
+    Let fw3x = dc1: Let fw3y = dc2: Let fb3x = dc4: Let fb3y = dc5
+    Let fw3 = dc3: Let fb3 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call cannon
+    If dc3 = 7 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call cannon
+    If dc6 = 7 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call cannon
+    If dc3 = 7 Then Call pawn
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call cannon
+    If dc6 = 7 Then Call pawn
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call xiangqifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 4th roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 9 + 1)
+    Let dc2 = Int(Rnd * 10 + 1)
+    Let dc3 = Int(Rnd * 6 + 2)
+    Let dc4 = Int(Rnd * 9 + 1)
+    Let dc5 = Int(Rnd * 10 + 1)
+    Let dc6 = Int(Rnd * 6 + 2)
+    Let w4 = xiabo(dc2, dc1): Let b2 = xiabo(dc5, dc4)
+    If indexw2 > 2 Or indexw3 > 2 Or indexw4 > 2 Or indexw5 > 2 Or indexw6 > 2 Then dc3 = 7
+    If indexb2 > 2 Or indexb3 > 2 Or indexb4 > 2 Or indexb5 > 2 Or indexb6 > 2 Then dc6 = 7
+
+    Select Case dc3
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Let dc1 = Int(Rnd * 3 + 4)
+            Let dc2 = Int(Rnd * 3 + 1)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                    Let dc1 = 4
+                    Let dc2 = 1
+                End If
+                If index = 2 Then
+                    Let dc1 = 6
+                    Let dc2 = 1
+                End If
+                If index = 3 Then
+                    Let dc1 = 5
+                    Let dc2 = 2
+                End If
+                If index = 4 Then
+                    Let dc1 = 4
+                    Let dc2 = 3
+                End If
+                If index = 5 Then
+                    Let dc1 = 6
+                    Let dc2 = 3
+                End If
+                Let w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let dc1 = Int(Rnd * 9 + 1)
+            Let dc2 = Int(Rnd * 5 + 1)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                    Let dc1 = 3
+                    Let dc2 = 1
+                End If
+                If index = 2 Then
+                    Let dc1 = 7
+                    Let dc2 = 1
+                End If
+                If index = 3 Then
+                    Let dc1 = 1
+                    Let dc2 = 3
+                End If
+                If index = 4 Then
+                    Let dc1 = 5
+                    Let dc2 = 3
+                End If
+                If index = 5 Then
+                    Let dc1 = 9
+                    Let dc2 = 3
+                End If
+                If index = 6 Then
+                    Let dc1 = 3
+                    Let dc2 = 5
+                End If
+                If index = 7 Then
+                    Let dc1 = 7
+                    Let dc2 = 5
+                End If
+                Let w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let fw4x = dc1: Let fw4y = dc2
+                Let w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let fw4x = dc1: Let fw4y = dc2
+                Let w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 10 + 1)
+                Let w4 = xiabo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Let dc4 = Int(Rnd * 3 + 4)
+            Let dc5 = Int(Rnd * 3 + 8)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 5 + 1)
+                If index = 1 Then
+                    Let dc4 = 4
+                    Let dc5 = 10
+                End If
+                If index = 2 Then
+                    Let dc4 = 6
+                    Let dc5 = 10
+                End If
+                If index = 3 Then
+                    Let dc4 = 5
+                    Let dc5 = 9
+                End If
+                If index = 4 Then
+                    Let dc4 = 4
+                    Let dc5 = 8
+                End If
+                If index = 5 Then
+                    Let dc4 = 6
+                    Let dc5 = 8
+                End If
+                Let b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let dc4 = Int(Rnd * 9 + 1)
+            Let dc5 = Int(Rnd * 5 + 6)
+            Do
+                Let count = count + 1
+                Let index = Int(Rnd * 7 + 1)
+                If index = 1 Then
+                    Let dc4 = 3
+                    Let dc5 = 10
+                End If
+                If index = 2 Then
+                    Let dc4 = 7
+                    Let dc5 = 10
+                End If
+                If index = 3 Then
+                    Let dc4 = 1
+                    Let dc5 = 8
+                End If
+                If index = 4 Then
+                    Let dc4 = 5
+                    Let dc5 = 8
+                End If
+                If index = 5 Then
+                    Let dc4 = 9
+                    Let dc5 = 8
+                End If
+                If index = 6 Then
+                    Let dc4 = 3
+                    Let dc5 = 6
+                End If
+                If index = 7 Then
+                    Let dc4 = 7
+                    Let dc5 = 6
+                End If
+                Let b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let fb4x = dc4: Let fb4y = dc5
+                Let b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let fb4x = dc4: Let fb4y = dc5
+                Let b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 10 + 1)
+                Let b4 = xiabo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w4 = xiabo(dc2, dc1): Let b4 = xiabo(dc5, dc4)
+    Let fw4x = dc1: Let fw4y = dc2: Let fb4x = dc4: Let fb4y = dc5
+    Let fw4 = dc3: Let fb4 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call cannon
+    If dc3 = 7 Then Call pawn
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call cannon
+    If dc6 = 7 Then Call pawn
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call bishop
+    If dc3 = 4 Then Call knight
+    If dc3 = 5 Then Call rook
+    If dc3 = 6 Then Call cannon
+    If dc3 = 7 Then Call pawn
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call bishop
+    If dc6 = 4 Then Call knight
+    If dc6 = 5 Then Call rook
+    If dc6 = 6 Then Call cannon
+    If dc6 = 7 Then Call pawn
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Case
+            Case Is = Chr$(13)
+                Call xiangqifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+End Sub
+
+Sub shogi
+
+    Rem 1st roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 9 + 1)
+    Let dc2 = Int(Rnd * 9 + 1)
+    Let dc3 = 1
+    Let dc4 = Int(Rnd * 9 + 1)
+    Let dc5 = Int(Rnd * 9 + 1)
+    Let dc6 = 1
+    Let w1 = shobo(dc2, dc1): Let b1 = shobo(dc5, dc4)
+
+    Do
+        Let count = count + 1
+        Let dc1 = Int(Rnd * 9 + 1)
+        Let dc2 = Int(Rnd * 9 + 1)
+        Let dc4 = Int(Rnd * 9 + 1)
+        Let dc5 = Int(Rnd * 9 + 1)
+        Let w1 = shobo(dc2, dc1): Let b1 = shobo(dc5, dc4)
+        If count > 8000 Then Exit Do
+    Loop While Abs(w1 - b1) < 11
+
+    Let w1 = shobo(dc2, dc1): Let b1 = shobo(dc5, dc4)
+    Let fw1x = dc1: Let fw1y = dc2: Let fb1x = dc4: Let fb1y = dc5
+    Let fw1 = dc3: Let fb1 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call general
+    If dc3 = 4 Then Call bishop
+    If dc3 = 5 Then Call knight
+    If dc3 = 6 Then Call rook
+    If dc3 = 7 Then Call lance
+    If dc3 = 8 Then Call pawn
+    If dc3 = 9 Then Call tokin
+    If dc3 = 10 Then Call dragon
+    If dc3 = 11 Then Call horse
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call general
+    If dc6 = 4 Then Call bishop
+    If dc6 = 5 Then Call knight
+    If dc6 = 6 Then Call rook
+    If dc6 = 7 Then Call lance
+    If dc6 = 8 Then Call pawn
+    If dc6 = 9 Then Call tokin
+    If dc6 = 10 Then Call dragon
+    If dc6 = 11 Then Call horse
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 60
+    Let cf = 15: Call king
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 60
+    Let cf = 0: Call king
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call shogifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 2nd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 9 + 1)
+    Let dc2 = Int(Rnd * 9 + 1)
+    Let dc3 = Int(Rnd * 10 + 2)
+    Let dc4 = Int(Rnd * 9 + 1)
+    Let dc5 = Int(Rnd * 9 + 1)
+    Let dc6 = Int(Rnd * 10 + 2)
+    Let w2 = shobo(dc2, dc1): Let b2 = shobo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+            Let indexw3 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Let indexw4 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Let indexw5 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+                Let indexw6 = 1
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 7
+            Let indexw7 = 1
+            Let index = Int(Rnd * 2 + 1)
+            If index = 1 Then Let dc1 = 1 Else Let dc1 = 9
+            If dc1 = 1 Then Let indexw71 = 1 Else Let indexw72 = 1
+            Do
+                Let count = count + 1
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 8
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc2 < 3 Or dc2 > 7
+        Case Is = 9
+            Let indexw9 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 10
+            Let indexw10 = 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 11
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w2 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 3
+            Let indexb3 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 4
+            Let indexb4 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 5
+            Let indexb5 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 6
+            Do
+                Let indexb6 = 1
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 7
+            Let indexb7 = 1
+            Let index = Int(Rnd * 2 + 1)
+            If index = 1 Then Let dc4 = 1 Else Let dc4 = 9
+            If dc4 = 1 Then Let indexb71 = 1 Else Let indexb72 = 1
+            Do
+                Let count = count + 1
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 8
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1 Or dc5 < 3 Or dc5 > 7
+        Case Is = 9
+            Let indexb9 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 10
+            Let indexb10 = 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 11
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b2 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+    End Select
+
+    Let w2 = shobo(dc2, dc1): Let b2 = shobo(dc5, dc4)
+    Let fw2x = dc1: Let fw2y = dc2: Let fb2x = dc4: Let fb2y = dc5
+    Let fw2 = dc3: Let fb2 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call general
+    If dc3 = 4 Then Call bishop
+    If dc3 = 5 Then Call knight
+    If dc3 = 6 Then Call rook
+    If dc3 = 7 Then Call lance
+    If dc3 = 8 Then Call pawn
+    If dc3 = 9 Then Call horse
+    If dc3 = 10 Then Call dragon
+    If dc3 = 11 Then Call tokin
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call general
+    If dc6 = 4 Then Call bishop
+    If dc6 = 5 Then Call knight
+    If dc6 = 6 Then Call rook
+    If dc6 = 7 Then Call lance
+    If dc6 = 8 Then Call pawn
+    If dc6 = 9 Then Call horse
+    If dc6 = 10 Then Call dragon
+    If dc6 = 11 Then Call tokin
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 60
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call general
+    If dc3 = 4 Then Call bishop
+    If dc3 = 5 Then Call knight
+    If dc3 = 6 Then Call rook
+    If dc3 = 7 Then Call lance
+    If dc3 = 8 Then Call pawn
+    If dc3 = 9 Then Call horse
+    If dc3 = 10 Then Call dragon
+    If dc3 = 11 Then Call tokin
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 60
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call general
+    If dc6 = 4 Then Call bishop
+    If dc6 = 5 Then Call knight
+    If dc6 = 6 Then Call rook
+    If dc6 = 7 Then Call lance
+    If dc6 = 8 Then Call pawn
+    If dc6 = 9 Then Call horse
+    If dc6 = 10 Then Call dragon
+    If dc6 = 11 Then Call tokin
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call shogifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 3rd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 9 + 1)
+    Let dc2 = Int(Rnd * 9 + 1)
+    Let dc3 = Int(Rnd * 10 + 2)
+    Let dc4 = Int(Rnd * 9 + 1)
+    Let dc5 = Int(Rnd * 9 + 1)
+    Let dc6 = Int(Rnd * 10 + 2)
+    Let w3 = shobo(dc2, dc1): Let b3 = shobo(dc5, dc4)
+    If dc3 = 4 Then Let indexw4 = indexw4 + 1
+    If dc3 = 6 Then Let indexw6 = indexw6 + 1
+    If dc3 = 9 Then Let indexw9 = indexw9 + 1
+    If dc3 = 10 Then Let indexw10 = indexw10 + 1
+    If indexw4 > 1 Then
+        Let dc3 = 8
+        Let indexw4 = indexw4 - 1
+    End If
+    If indexw6 > 1 Then
+        Let dc3 = 8
+        Let indexw6 = indexw4 - 1
+    End If
+    If indexw9 > 1 Then
+        Let dc3 = 8
+        Let indexw9 = indexw4 - 1
+    End If
+    If indexw10 > 1 Then
+        Let dc3 = 8
+        Let indexw10 = indexw4 - 1
+    End If
+    If indexb4 > 1 Then
+        Let dc6 = 8
+        Let indexb4 = indexb4 - 1
+    End If
+    If indexb6 > 1 Then
+        Let dc6 = 8
+        Let indexb6 = indexb4 - 1
+    End If
+    If indexb9 > 1 Then
+        Let dc6 = 8
+        Let indexb9 = indexb4 - 1
+    End If
+    If indexb10 > 1 Then
+        Let dc6 = 8
+        Let indexb10 = indexb4 - 1
+    End If
+
+    Select Case dc3
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let indexw3 = indexw3 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Let indexw4 = indexw4 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Let indexw5 = indexw5 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Let indexw6 = indexw6 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Let indexw7 = indexw7 + 1
+            Let index = Int(Rnd * 2 + 1)
+            If index = 1 Then Let dc1 = 1 Else Let dc1 = 9
+            If indexw71 = 1 Then dc1 = 9
+            If indexw72 = 1 Then dc1 = 1
+            Do
+                Let count = count + 1
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 8
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 9
+            Let indexw9 = indexw9 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 10
+            Let indexw10 = indexw10 + 1
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 11
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w3 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Let indexb3 = indexb3 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Let indexb4 = indexb4 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Let indexb5 = indexb5 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Let indexb6 = indexb6 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Let indexb7 = indexb7 + 1
+            Let index = Int(Rnd * 2 + 1)
+            If index = 1 Then Let dc4 = 1 Else Let dc4 = 9
+            If indexb71 = 1 Then dc4 = 9
+            If indexb72 = 1 Then dc4 = 1
+            Do
+                Let count = count + 1
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 8
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 9
+            Let indexb9 = indexb9 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 10
+            Let indexb10 = indexb10 + 1
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 11
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b3 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w3 = shobo(dc2, dc1): Let b3 = shobo(dc5, dc4)
+    Let fw3x = dc1: Let fw3y = dc2: Let fb3x = dc4: Let fb3y = dc5
+    Let fw3 = dc3: Let fb3 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call general
+    If dc3 = 4 Then Call bishop
+    If dc3 = 5 Then Call knight
+    If dc3 = 6 Then Call rook
+    If dc3 = 7 Then Call lance
+    If dc3 = 8 Then Call pawn
+    If dc3 = 9 Then Call horse
+    If dc3 = 10 Then Call dragon
+    If dc3 = 11 Then Call tokin
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call general
+    If dc6 = 4 Then Call bishop
+    If dc6 = 5 Then Call knight
+    If dc6 = 6 Then Call rook
+    If dc6 = 7 Then Call lance
+    If dc6 = 8 Then Call pawn
+    If dc6 = 9 Then Call horse
+    If dc6 = 10 Then Call dragon
+    If dc6 = 11 Then Call tokin
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 60
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call general
+    If dc3 = 4 Then Call bishop
+    If dc3 = 5 Then Call knight
+    If dc3 = 6 Then Call rook
+    If dc3 = 7 Then Call lance
+    If dc3 = 8 Then Call pawn
+    If dc3 = 9 Then Call horse
+    If dc3 = 10 Then Call dragon
+    If dc3 = 11 Then Call tokin
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 60
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call general
+    If dc6 = 4 Then Call bishop
+    If dc6 = 5 Then Call knight
+    If dc6 = 6 Then Call rook
+    If dc6 = 7 Then Call lance
+    If dc6 = 8 Then Call pawn
+    If dc6 = 9 Then Call horse
+    If dc6 = 10 Then Call dragon
+    If dc6 = 11 Then Call tokin
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call shogifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 4th roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 9 + 1)
+    Let dc2 = Int(Rnd * 9 + 1)
+    Let dc3 = Int(Rnd * 10 + 2)
+    Let dc4 = Int(Rnd * 9 + 1)
+    Let dc5 = Int(Rnd * 9 + 1)
+    Let dc6 = Int(Rnd * 10 + 2)
+    Let w4 = shobo(dc2, dc1): Let b4 = shobo(dc5, dc4)
+    If dc3 = 4 Then Let indexw4 = indexw4 + 1
+    If dc3 = 6 Then Let indexw6 = indexw6 + 1
+    If dc3 = 9 Then Let indexw9 = indexw9 + 1
+    If dc3 = 10 Then Let indexw10 = indexw10 + 1
+    If indexw4 > 1 Then
+        Let dc3 = 8
+        Let indexw4 = indexw4 - 1
+    End If
+    If indexw6 > 1 Then
+        Let dc3 = 8
+        Let indexw6 = indexw4 - 1
+    End If
+    If indexw9 > 1 Then
+        Let dc3 = 8
+        Let indexw9 = indexw4 - 1
+    End If
+    If indexw10 > 1 Then
+        Let dc3 = 8
+        Let indexw10 = indexw4 - 1
+    End If
+    If indexb4 > 1 Then
+        Let dc6 = 8
+        Let indexb4 = indexb4 - 1
+    End If
+    If indexb6 > 1 Then
+        Let dc6 = 8
+        Let indexb6 = indexb4 - 1
+    End If
+    If indexb9 > 1 Then
+        Let dc6 = 8
+        Let indexb9 = indexb4 - 1
+    End If
+    If indexb10 > 1 Then
+        Let dc6 = 8
+        Let indexb10 = indexb4 - 1
+    End If
+    If indexw3 > 2 Or indexw5 > 2 Or indexw7 > 2 Then Let dc3 = 8
+    If indexb3 > 2 Or indexb5 > 2 Or indexb7 > 2 Then Let dc6 = 8
+
+    Select Case dc3
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let fw2x = dc1: Let fw2y = dc2
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Let index = Int(Rnd * 2 + 1)
+            If index = 1 Then Let dc1 = 1 Else Let dc1 = 9
+            If indexw71 = 1 Then dc1 = 9
+            If indexw72 = 1 Then dc1 = 1
+            Do
+                Let count = count + 1
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 8
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 9
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 10
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 11
+            Do
+                Let count = count + 1
+                Let dc1 = Int(Rnd * 9 + 1)
+                Let dc2 = Int(Rnd * 9 + 1)
+                Let w4 = shobo(dc2, dc1)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Exit Case
+        Case Is = 2
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 3
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 4
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 5
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 6
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let fb2x = dc4: Let fb2y = dc5
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 7
+            Let index = Int(Rnd * 2 + 1)
+            If index = 1 Then Let dc4 = 1 Else Let dc4 = 9
+            If indexb71 = 1 Then dc4 = 9
+            If indexb72 = 1 Then dc4 = 1
+            Do
+                Let count = count + 1
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 8
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 9
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 10
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 11
+            Do
+                Let count = count + 1
+                Let dc4 = Int(Rnd * 9 + 1)
+                Let dc5 = Int(Rnd * 9 + 1)
+                Let b4 = shobo(dc5, dc4)
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w4 = shobo(dc2, dc1): Let b4 = shobo(dc5, dc4)
+    Let fw4x = dc1: Let fw4y = dc2: Let fb4x = dc4: Let fb4y = dc5
+    Let fw4 = dc3: Let fb4 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call general
+    If dc3 = 4 Then Call bishop
+    If dc3 = 5 Then Call knight
+    If dc3 = 6 Then Call rook
+    If dc3 = 7 Then Call lance
+    If dc3 = 8 Then Call pawn
+    If dc3 = 9 Then Call horse
+    If dc3 = 10 Then Call dragon
+    If dc3 = 11 Then Call tokin
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call general
+    If dc6 = 4 Then Call bishop
+    If dc6 = 5 Then Call knight
+    If dc6 = 6 Then Call rook
+    If dc6 = 7 Then Call lance
+    If dc6 = 8 Then Call pawn
+    If dc6 = 9 Then Call horse
+    If dc6 = 10 Then Call dragon
+    If dc6 = 11 Then Call tokin
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    Let x = (dc1 * 40) + 100: Let y = Abs((dc2 * 40) - 480) - 60
+    Let cf = 15
+    If dc3 = 1 Then Call king
+    If dc3 = 2 Then Call queen
+    If dc3 = 3 Then Call general
+    If dc3 = 4 Then Call bishop
+    If dc3 = 5 Then Call knight
+    If dc3 = 6 Then Call rook
+    If dc3 = 7 Then Call lance
+    If dc3 = 8 Then Call pawn
+    If dc3 = 9 Then Call horse
+    If dc3 = 10 Then Call dragon
+    If dc3 = 11 Then Call tokin
+    Let x = (dc4 * 40) + 100: Let y = Abs((dc5 * 40) - 480) - 60
+    Let cf = 0
+    If dc6 = 1 Then Call king
+    If dc6 = 2 Then Call queen
+    If dc6 = 3 Then Call general
+    If dc6 = 4 Then Call bishop
+    If dc6 = 5 Then Call knight
+    If dc6 = 6 Then Call rook
+    If dc6 = 7 Then Call lance
+    If dc6 = 8 Then Call pawn
+    If dc6 = 9 Then Call horse
+    If dc6 = 10 Then Call dragon
+    If dc6 = 11 Then Call tokin
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Case
+            Case Is = Chr$(13)
+                Call shogifen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+End Sub
+
+Sub draughts
+
+    Rem 1st roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 10 + 1)
+    Let dc2 = Int(Rnd * 10 + 1)
+    Let dc3 = Int(Rnd * 2 + 1)
+    Let dc4 = Int(Rnd * 10 + 1)
+    Let dc5 = Int(Rnd * 10 + 1)
+    Let dc6 = Int(Rnd * 2 + 1)
+    Let w1 = drabo(dc2, dc1): Let b1 = drabo(dc5, dc4)
+
+    Do
+        Do
+            Let count = count + 1
+            Let dc1 = Int(Rnd * 8 + 1)
+            Let dc2 = Int(Rnd * 8 + 1)
+            Let dc4 = Int(Rnd * 8 + 1)
+            Let dc5 = Int(Rnd * 8 + 1)
+            Let w1 = drabo(dc2, dc1): Let b1 = drabo(dc5, dc4)
+            If count > 8000 Then Exit Do
+        Loop Until w1 Mod 2 <> 0 And b1 Mod 2 <> 0
+        Let count = count + 1
+        If count > 8000 Then Exit Do
+    Loop While w1 = b1
+
+    Let w1 = drabo(dc2, dc1): Let b1 = drabo(dc5, dc4)
+    Let fw1x = dc1: Let fw1y = dc2: Let fb1x = dc4: Let fb1y = dc5
+    Let fw1 = dc3: Let fb1 = dc6
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    If dc1 = 10 Then Call letterJ
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    If dc4 = 10 Then Call letterJ
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 80: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = (dc4 * 40) + 80: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call draughtsfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 2nd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 10 + 1)
+    Let dc2 = Int(Rnd * 10 + 1)
+    Let dc3 = Int(Rnd * 2 + 1)
+    Let dc4 = Int(Rnd * 10 + 1)
+    Let dc5 = Int(Rnd * 10 + 1)
+    Let dc6 = Int(Rnd * 2 + 1)
+    Let w2 = drabo(dc2, dc1): Let b2 = drabo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc1 = Int(Rnd * 10 + 1)
+                    Let dc2 = Int(Rnd * 10 + 1)
+                    Let w2 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w2 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 2
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc1 = Int(Rnd * 10 + 1)
+                    Let dc2 = Int(Rnd * 10 + 1)
+                    Let w2 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w2 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc4 = Int(Rnd * 10 + 1)
+                    Let dc5 = Int(Rnd * 10 + 1)
+                    Let b2 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b2 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+        Case Is = 2
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc4 = Int(Rnd * 10 + 1)
+                    Let dc5 = Int(Rnd * 10 + 1)
+                    Let b2 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b2 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            Loop While w2 = w1 Or w2 = b1 Or w2 = b2 Or b2 = w1 Or b2 = b1
+    End Select
+
+    Let w2 = drabo(dc2, dc1): Let b2 = drabo(dc5, dc4)
+    Let fw2x = dc1: Let fw2y = dc2: Let fb2x = dc4: Let fb2y = dc5
+    Let fw2 = dc3: Let fb2 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    If dc1 = 10 Then Call letterJ
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    If dc4 = 10 Then Call letterJ
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 80: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = (dc4 * 40) + 80: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call draughtsfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 3rd roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 10 + 1)
+    Let dc2 = Int(Rnd * 10 + 1)
+    Let dc3 = Int(Rnd * 2 + 1)
+    Let dc4 = Int(Rnd * 10 + 1)
+    Let dc5 = Int(Rnd * 10 + 1)
+    Let dc6 = Int(Rnd * 2 + 1)
+    Let w3 = drabo(dc2, dc1): Let b3 = drabo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc1 = Int(Rnd * 10 + 1)
+                    Let dc2 = Int(Rnd * 10 + 1)
+                    Let w3 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w3 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 2
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc1 = Int(Rnd * 10 + 1)
+                    Let dc2 = Int(Rnd * 10 + 1)
+                    Let w3 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w3 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc4 = Int(Rnd * 10 + 1)
+                    Let dc5 = Int(Rnd * 10 + 1)
+                    Let b3 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b3 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 2
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc4 = Int(Rnd * 10 + 1)
+                    Let dc5 = Int(Rnd * 10 + 1)
+                    Let b3 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b3 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w3 = drabo(dc2, dc1): Let b3 = drabo(dc5, dc4)
+    Let fw3x = dc1: Let fw3y = dc2: Let fb3x = dc4: Let fb3y = dc5
+    Let fw3 = dc3: Let fb3 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    If dc1 = 10 Then Call letterJ
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    If dc4 = 10 Then Call letterJ
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 80: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = (dc4 * 40) + 80: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Do
+            Case Is = Chr$(13)
+                Call draughtsfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+    Call dices
+
+    Rem 4th roll
+    Let count = 0: Let index = 0
+    Let dc1 = Int(Rnd * 10 + 1)
+    Let dc2 = Int(Rnd * 10 + 1)
+    Let dc3 = Int(Rnd * 2 + 1)
+    Let dc4 = Int(Rnd * 10 + 1)
+    Let dc5 = Int(Rnd * 10 + 1)
+    Let dc6 = Int(Rnd * 2 + 1)
+    Let w4 = drabo(dc2, dc1): Let b4 = drabo(dc5, dc4)
+
+    Select Case dc3
+        Case Is = 1
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc1 = Int(Rnd * 10 + 1)
+                    Let dc2 = Int(Rnd * 10 + 1)
+                    Let w4 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w4 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 2
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc1 = Int(Rnd * 10 + 1)
+                    Let dc2 = Int(Rnd * 10 + 1)
+                    Let w4 = drabo(dc2, dc1)
+                    If count > 8000 Then Exit Do
+                Loop Until w4 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+    End Select
+    Select Case dc6
+        Case Is = 1
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc4 = Int(Rnd * 10 + 1)
+                    Let dc5 = Int(Rnd * 10 + 1)
+                    Let b4 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b4 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+        Case Is = 2
+            Do
+                Do
+                    Let count = count + 1
+                    Let dc4 = Int(Rnd * 10 + 1)
+                    Let dc5 = Int(Rnd * 10 + 1)
+                    Let b4 = drabo(dc5, dc4)
+                    If count > 8000 Then Exit Do
+                Loop Until b4 Mod 2 <> 0
+                Let count = count + 1
+                If count > 8000 Then Exit Do
+            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
+    End Select
+
+    Let w4 = drabo(dc2, dc1): Let b4 = drabo(dc5, dc4)
+    Let fw4x = dc1: Let fw4y = dc2: Let fb4x = dc4: Let fb4y = dc5
+    Let fw4 = dc3: Let fb4 = dc6
+
+    Let x = 20: Let y = 160: Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = 580: Let y = 160: Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+    Let x = 20: Let y = 220
+    If dc1 = 1 Then Call letterA
+    If dc1 = 2 Then Call letterB
+    If dc1 = 3 Then Call letterC
+    If dc1 = 4 Then Call letterD
+    If dc1 = 5 Then Call letterE
+    If dc1 = 6 Then Call letterF
+    If dc1 = 7 Then Call letterG
+    If dc1 = 8 Then Call letterH
+    If dc1 = 9 Then Call letterI
+    If dc1 = 10 Then Call letterJ
+    Let x = 20: Let y = 280
+    If dc2 = 1 Then Call letter1
+    If dc2 = 2 Then Call letter2
+    If dc2 = 3 Then Call letter3
+    If dc2 = 4 Then Call letter4
+    If dc2 = 5 Then Call letter5
+    If dc2 = 6 Then Call letter6
+    If dc2 = 7 Then Call letter7
+    If dc2 = 8 Then Call letter8
+    If dc2 = 9 Then Call letter9
+    If dc2 = 10 Then Call letter0
+    Let x = 580: Let y = 220
+    If dc4 = 1 Then Call letterA
+    If dc4 = 2 Then Call letterB
+    If dc4 = 3 Then Call letterC
+    If dc4 = 4 Then Call letterD
+    If dc4 = 5 Then Call letterE
+    If dc4 = 6 Then Call letterF
+    If dc4 = 7 Then Call letterG
+    If dc4 = 8 Then Call letterH
+    If dc4 = 9 Then Call letterI
+    If dc4 = 10 Then Call letterJ
+    Let x = 580: Let y = 280
+    If dc5 = 1 Then Call letter1
+    If dc5 = 2 Then Call letter2
+    If dc5 = 3 Then Call letter3
+    If dc5 = 4 Then Call letter4
+    If dc5 = 5 Then Call letter5
+    If dc5 = 6 Then Call letter6
+    If dc5 = 7 Then Call letter7
+    If dc5 = 8 Then Call letter8
+    If dc5 = 9 Then Call letter9
+    If dc5 = 10 Then Call letter0
+    Let x = (dc1 * 40) + 80: Let y = Abs((dc2 * 40) - 480) - 40
+    Let cf = 15
+    If dc3 = 1 Then Call dame
+    If dc3 = 2 Then Call checker
+    Let x = (dc4 * 40) + 80: Let y = Abs((dc5 * 40) - 480) - 40
+    Let cf = 0
+    If dc6 = 1 Then Call dame
+    If dc6 = 2 Then Call checker
+
+    Do
+        Select Case InKey$
+            Case Is = Chr$(32)
+                Exit Case
+            Case Is = Chr$(13)
+                Call draughtsfen
+            Case Is = Chr$(27)
+                End
+        End Select
+    Loop
+
+End Sub
+
+Sub chessfen
+
+    Rem Forsyth-Edwards notation
+
+    If fw1 = 1 Then Let fig1w$ = "K"
+    If fw1 = 2 Then Let fig1w$ = "Q"
+    If fw1 = 3 Then Let fig1w$ = "B"
+    If fw1 = 4 Then Let fig1w$ = "N"
+    If fw1 = 5 Then Let fig1w$ = "R"
+    If fw1 = 6 Then Let fig1w$ = "P"
+
+    If fb1 = 1 Then Let fig1b$ = "k"
+    If fb1 = 2 Then Let fig1b$ = "q"
+    If fb1 = 3 Then Let fig1b$ = "b"
+    If fb1 = 4 Then Let fig1b$ = "n"
+    If fb1 = 5 Then Let fig1b$ = "r"
+    If fb1 = 6 Then Let fig1b$ = "p"
+
+    If fw2 = 1 Then Let fig2w$ = "K"
+    If fw2 = 2 Then Let fig2w$ = "Q"
+    If fw2 = 3 Then Let fig2w$ = "B"
+    If fw2 = 4 Then Let fig2w$ = "N"
+    If fw2 = 5 Then Let fig2w$ = "R"
+    If fw2 = 6 Then Let fig2w$ = "P"
+
+    If fb2 = 1 Then Let fig2b$ = "k"
+    If fb2 = 2 Then Let fig2b$ = "q"
+    If fb2 = 3 Then Let fig2b$ = "b"
+    If fb2 = 4 Then Let fig2b$ = "n"
+    If fb2 = 5 Then Let fig2b$ = "r"
+    If fb2 = 6 Then Let fig2b$ = "p"
+
+    If fw3 = 1 Then Let fig3w$ = "K"
+    If fw3 = 2 Then Let fig3w$ = "Q"
+    If fw3 = 3 Then Let fig3w$ = "B"
+    If fw3 = 4 Then Let fig3w$ = "N"
+    If fw3 = 5 Then Let fig3w$ = "R"
+    If fw3 = 6 Then Let fig3w$ = "P"
+
+    If fb3 = 1 Then Let fig3b$ = "k"
+    If fb3 = 2 Then Let fig3b$ = "q"
+    If fb3 = 3 Then Let fig3b$ = "b"
+    If fb3 = 4 Then Let fig3b$ = "n"
+    If fb3 = 5 Then Let fig3b$ = "r"
+    If fb3 = 6 Then Let fig3b$ = "p"
+
+    If fw4 = 1 Then Let fig4w$ = "K"
+    If fw4 = 2 Then Let fig4w$ = "Q"
+    If fw4 = 3 Then Let fig4w$ = "B"
+    If fw4 = 4 Then Let fig4w$ = "N"
+    If fw4 = 5 Then Let fig4w$ = "R"
+    If fw4 = 6 Then Let fig4w$ = "P"
+
+    If fb4 = 1 Then Let fig4b$ = "k"
+    If fb4 = 2 Then Let fig4b$ = "q"
+    If fb4 = 3 Then Let fig4b$ = "b"
+    If fb4 = 4 Then Let fig4b$ = "n"
+    If fb4 = 5 Then Let fig4b$ = "r"
+    If fb4 = 6 Then Let fig4b$ = "p"
+
+    Dim table(8, 8) As String
+    Let table(fw1y, fw1x) = fig1w$
+    Let table(fb1y, fb1x) = fig1b$
+    Let table(fw2y, fw2x) = fig2w$
+    Let table(fb2y, fb2x) = fig2b$
+    Let table(fw3y, fw3x) = fig3w$
+    Let table(fb3y, fb3x) = fig3b$
+    Let table(fw4y, fw4x) = fig4w$
+    Let table(fb4y, fb4x) = fig4b$
+    For row = 1 To 8: For col = 1 To 8
+        If table(row, col) = "" Then Let table(row, col) = "+"
+    Next col: Next row
+
+    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)
+    Let lin1$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+            lin1$ = lin1$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
+            lin1$ = lin1$ + LTrim$(Str$(count))
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin2$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+            lin2$ = lin2$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
+            lin2$ = lin2$ + LTrim$(Str$(count))
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin3$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+            lin3$ = lin3$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
+            lin3$ = lin3$ + LTrim$(Str$(count))
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin4$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+            lin4$ = lin4$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
+            lin4$ = lin4$ + LTrim$(Str$(count))
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin5$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+            lin5$ = lin5$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
+            lin5$ = lin5$ + LTrim$(Str$(count))
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin6$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+            lin6$ = lin6$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
+            lin6$ = lin6$ + LTrim$(Str$(count))
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin7$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+            lin7$ = lin7$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
+            lin7$ = lin7$ + LTrim$(Str$(count))
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin8$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+            lin8$ = lin8$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
+            lin8$ = lin8$ + LTrim$(Str$(count))
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    Let fen$ = lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
+
+    Color 10
+    Locate 2, 1: Print "              Press any key to display the Forsyth-Edwards notation                    "
+    Do
+    Loop Until InKey$ <> ""
+    Locate 2, 1: Print "                                                                                       "
+    Color 12
+    Locate 2, 28: Print fen$
+
+    Do
+    Loop Until InKey$ <> ""
+
+    _Clipboard$ = fen$
+
+    url$ = "https://syzygy-tables.info/?fen=" + fen$
+    If InStr(_OS$, "[WINDOWS]") Then
+        Shell url$
+    End If
+    If InStr(_OS$, "[LINUX]") Then
+        Shell "xdg-open " + url$
+    End If
+    If InStr(_OS$, "[MACOSX]") Then
+        Shell "open -a safari https://" + url$
+    End If
+
+    System
+End Sub
+
+Sub makrukfen
+
+    Rem Forsyth-Edwards notation
+
+    If fw1 = 1 Then Let fig1w$ = "L"
+    If fw1 = 2 Then Let fig1w$ = "S"
+    If fw1 = 3 Then Let fig1w$ = "N"
+    If fw1 = 4 Then Let fig1w$ = "H"
+    If fw1 = 5 Then Let fig1w$ = "B"
+    If fw1 = 6 Then Let fig1w$ = "C"
+
+    If fb1 = 1 Then Let fig1b$ = "l"
+    If fb1 = 2 Then Let fig1b$ = "s"
+    If fb1 = 3 Then Let fig1b$ = "n"
+    If fb1 = 4 Then Let fig1b$ = "h"
+    If fb1 = 5 Then Let fig1b$ = "b"
+    If fb1 = 6 Then Let fig1b$ = "c"
+
+    If fw2 = 1 Then Let fig2w$ = "L"
+    If fw2 = 2 Then Let fig2w$ = "S"
+    If fw2 = 3 Then Let fig2w$ = "N"
+    If fw2 = 4 Then Let fig2w$ = "H"
+    If fw2 = 5 Then Let fig2w$ = "B"
+    If fw2 = 6 Then Let fig2w$ = "C"
+
+    If fb2 = 1 Then Let fig2b$ = "l"
+    If fb2 = 2 Then Let fig2b$ = "s"
+    If fb2 = 3 Then Let fig2b$ = "n"
+    If fb2 = 4 Then Let fig2b$ = "h"
+    If fb2 = 5 Then Let fig2b$ = "b"
+    If fb2 = 6 Then Let fig2b$ = "c"
+
+    If fw3 = 1 Then Let fig3w$ = "L"
+    If fw3 = 2 Then Let fig3w$ = "S"
+    If fw3 = 3 Then Let fig3w$ = "N"
+    If fw3 = 4 Then Let fig3w$ = "H"
+    If fw3 = 5 Then Let fig3w$ = "B"
+    If fw3 = 6 Then Let fig3w$ = "C"
+
+    If fb3 = 1 Then Let fig3b$ = "l"
+    If fb3 = 2 Then Let fig3b$ = "s"
+    If fb3 = 3 Then Let fig3b$ = "n"
+    If fb3 = 4 Then Let fig3b$ = "h"
+    If fb3 = 5 Then Let fig3b$ = "b"
+    If fb3 = 6 Then Let fig3b$ = "c"
+
+    If fw4 = 1 Then Let fig4w$ = "L"
+    If fw4 = 2 Then Let fig4w$ = "S"
+    If fw4 = 3 Then Let fig4w$ = "N"
+    If fw4 = 4 Then Let fig4w$ = "H"
+    If fw4 = 5 Then Let fig4w$ = "B"
+    If fw4 = 6 Then Let fig4w$ = "C"
+
+    If fb4 = 1 Then Let fig4b$ = "l"
+    If fb4 = 2 Then Let fig4b$ = "s"
+    If fb4 = 3 Then Let fig4b$ = "n"
+    If fb4 = 4 Then Let fig4b$ = "h"
+    If fb4 = 5 Then Let fig4b$ = "b"
+    If fb4 = 6 Then Let fig4b$ = "c"
+
+    Dim table(8, 8) As String
+    Let table(fw1y, fw1x) = fig1w$
+    Let table(fb1y, fb1x) = fig1b$
+    Let table(fw2y, fw2x) = fig2w$
+    Let table(fb2y, fb2x) = fig2b$
+    Let table(fw3y, fw3x) = fig3w$
+    Let table(fb3y, fb3x) = fig3b$
+    Let table(fw4y, fw4x) = fig4w$
+    Let table(fb4y, fb4x) = fig4b$
+    For row = 1 To 8: For col = 1 To 8
+        If table(row, col) = "" Then Let table(row, col) = "+"
+    Next col: Next row
+
+    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)
+    Let lin1$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+            lin1$ = lin1$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
+            lin1$ = lin1$ + LTrim$(Str$(count))
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin2$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+            lin2$ = lin2$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
+            lin2$ = lin2$ + LTrim$(Str$(count))
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin3$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+            lin3$ = lin3$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
+            lin3$ = lin3$ + LTrim$(Str$(count))
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin4$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+            lin4$ = lin4$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
+            lin4$ = lin4$ + LTrim$(Str$(count))
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin5$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+            lin5$ = lin5$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
+            lin5$ = lin5$ + LTrim$(Str$(count))
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin6$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+            lin6$ = lin6$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
+            lin6$ = lin6$ + LTrim$(Str$(count))
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin7$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+            lin7$ = lin7$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
+            lin7$ = lin7$ + LTrim$(Str$(count))
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin8$ = ""
+    Let count = 0
+    For index = 1 To 8
+        If index = 8 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+            lin8$ = lin8$ + LTrim$(Str$(count))
+        End If
+        If index < 8 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
+            lin8$ = lin8$ + LTrim$(Str$(count))
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    Let fen$ = lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
+
+    Color 10
+    Locate 2, 1: Print "              Press any key to display the Forsyth-Edwards notation                    "
+    Do
+    Loop Until InKey$ <> ""
+    Locate 2, 1: Print "                                                                                       "
+    Color 12
+    Locate 2, 28: Print fen$
+
+    Do
+    Loop Until InKey$ <> ""
+
+    _Clipboard$ = fen$
+
+    System
+End Sub
+
+Sub xiangqifen
+
+    Rem Forsyth-Edwards notation
+
+    If fw1 = 1 Then Let fig1w$ = "K"
+    If fw1 = 2 Then Let fig1w$ = "A"
+    If fw1 = 3 Then Let fig1w$ = "E"
+    If fw1 = 4 Then Let fig1w$ = "H"
+    If fw1 = 5 Then Let fig1w$ = "R"
+    If fw1 = 6 Then Let fig1w$ = "C"
+    If fw1 = 7 Then Let fig1w$ = "P"
+
+    If fb1 = 1 Then Let fig1b$ = "k"
+    If fb1 = 2 Then Let fig1b$ = "a"
+    If fb1 = 3 Then Let fig1b$ = "e"
+    If fb1 = 4 Then Let fig1b$ = "h"
+    If fb1 = 5 Then Let fig1b$ = "r"
+    If fb1 = 6 Then Let fig1b$ = "c"
+    If fb1 = 7 Then Let fig1w$ = "p"
+
+    If fw2 = 1 Then Let fig2w$ = "K"
+    If fw2 = 2 Then Let fig2w$ = "A"
+    If fw2 = 3 Then Let fig2w$ = "E"
+    If fw2 = 4 Then Let fig2w$ = "H"
+    If fw2 = 5 Then Let fig2w$ = "R"
+    If fw2 = 6 Then Let fig2w$ = "C"
+    If fw2 = 7 Then Let fig2w$ = "P"
+
+    If fb2 = 1 Then Let fig2b$ = "k"
+    If fb2 = 2 Then Let fig2b$ = "a"
+    If fb2 = 3 Then Let fig2b$ = "e"
+    If fb2 = 4 Then Let fig2b$ = "h"
+    If fb2 = 5 Then Let fig2b$ = "r"
+    If fb2 = 6 Then Let fig2b$ = "c"
+    If fb2 = 7 Then Let fig2w$ = "p"
+
+    If fw3 = 1 Then Let fig3w$ = "K"
+    If fw3 = 2 Then Let fig3w$ = "A"
+    If fw3 = 3 Then Let fig3w$ = "E"
+    If fw3 = 4 Then Let fig3w$ = "H"
+    If fw3 = 5 Then Let fig3w$ = "R"
+    If fw3 = 6 Then Let fig3w$ = "C"
+    If fw3 = 7 Then Let fig3w$ = "P"
+
+    If fb3 = 1 Then Let fig3b$ = "k"
+    If fb3 = 2 Then Let fig3b$ = "a"
+    If fb3 = 3 Then Let fig3b$ = "e"
+    If fb3 = 4 Then Let fig3b$ = "h"
+    If fb3 = 5 Then Let fig3b$ = "r"
+    If fb3 = 6 Then Let fig3b$ = "c"
+    If fb3 = 7 Then Let fig3w$ = "p"
+
+    If fw4 = 1 Then Let fig4w$ = "K"
+    If fw4 = 2 Then Let fig4w$ = "A"
+    If fw4 = 3 Then Let fig4w$ = "E"
+    If fw4 = 4 Then Let fig4w$ = "H"
+    If fw4 = 5 Then Let fig4w$ = "R"
+    If fw4 = 6 Then Let fig4w$ = "C"
+    If fw4 = 7 Then Let fig4w$ = "P"
+
+    If fb4 = 1 Then Let fig4b$ = "k"
+    If fb4 = 2 Then Let fig4b$ = "a"
+    If fb4 = 3 Then Let fig4b$ = "e"
+    If fb4 = 4 Then Let fig4b$ = "h"
+    If fb4 = 5 Then Let fig4b$ = "r"
+    If fb4 = 6 Then Let fig4b$ = "c"
+    If fb4 = 7 Then Let fig4w$ = "p"
+
+    Dim table(10, 9) As String
+    Let table(fw1y, fw1x) = fig1w$
+    Let table(fb1y, fb1x) = fig1b$
+    Let table(fw2y, fw2x) = fig2w$
+    Let table(fb2y, fb2x) = fig2b$
+    Let table(fw3y, fw3x) = fig3w$
+    Let table(fb3y, fb3x) = fig3b$
+    Let table(fw4y, fw4x) = fig4w$
+    Let table(fb4y, fb4x) = fig4b$
+    For row = 1 To 10: For col = 1 To 9
+        If table(row, col) = "" Then Let table(row, col) = "+"
+    Next col: Next row
+
+    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)
+    Let lin1$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+            lin1$ = lin1$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
+            lin1$ = lin1$ + LTrim$(Str$(count))
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin2$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+            lin2$ = lin2$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
+            lin2$ = lin2$ + LTrim$(Str$(count))
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin3$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+            lin3$ = lin3$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
+            lin3$ = lin3$ + LTrim$(Str$(count))
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin4$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+            lin4$ = lin4$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
+            lin4$ = lin4$ + LTrim$(Str$(count))
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin5$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+            lin5$ = lin5$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
+            lin5$ = lin5$ + LTrim$(Str$(count))
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin6$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+            lin6$ = lin6$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
+            lin6$ = lin6$ + LTrim$(Str$(count))
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin7$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+            lin7$ = lin7$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
+            lin7$ = lin7$ + LTrim$(Str$(count))
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin8$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+            lin8$ = lin8$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
+            lin8$ = lin8$ + LTrim$(Str$(count))
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin9$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+            lin9$ = lin9$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count = 0 Then
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count > 0 Then
+            lin9$ = lin9$ + LTrim$(Str$(count))
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin0$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas0$, index, 1) = "+" Then
+            count = count + 1
+            lin0$ = lin0$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas0$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas0$, index, 1) <> "+" And count = 0 Then
+            lin0$ = lin0$ + Mid$(mas0$, index, 1)
+        End If
+        If Mid$(mas0$, index, 1) <> "+" And count > 0 Then
+            lin0$ = lin0$ + LTrim$(Str$(count))
+            lin0$ = lin0$ + Mid$(mas0$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    Let fen$ = lin0$ + "/" + lin9$ + "/" + lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
+
+    Color 10
+    Locate 2, 1: Print "              Press any key to display the Forsyth-Edwards notation                    "
+    Do
+    Loop Until InKey$ <> ""
+    Locate 2, 1: Print "                                                                                       "
+    Color 12
+    Locate 2, 24: Print fen$
+
+    Do
+    Loop Until InKey$ <> ""
+
+    _Clipboard$ = fen$
+
+    System
+End Sub
+
+Sub shogifen
+
+    Rem Forsyth-Edwards notation
+
+    If fw1 = 1 Then Let fig1w$ = "K"
+    If fw1 = 2 Then Let fig1w$ = "G"
+    If fw1 = 3 Then Let fig1w$ = "S"
+    If fw1 = 4 Then Let fig1w$ = "B"
+    If fw1 = 5 Then Let fig1w$ = "N"
+    If fw1 = 6 Then Let fig1w$ = "R"
+    If fw1 = 7 Then Let fig1w$ = "L"
+    If fw1 = 8 Then Let fig1w$ = "P"
+    If fw1 = 9 Then Let fig1w$ = "H"
+    If fw1 = 10 Then Let fig1w$ = "D"
+    If fw1 = 11 Then Let fig1w$ = "T"
+
+    If fb1 = 1 Then Let fig1b$ = "k"
+    If fb1 = 2 Then Let fig1b$ = "g"
+    If fb1 = 3 Then Let fig1b$ = "a"
+    If fb1 = 4 Then Let fig1b$ = "b"
+    If fb1 = 5 Then Let fig1b$ = "n"
+    If fb1 = 6 Then Let fig1b$ = "r"
+    If fb1 = 7 Then Let fig1b$ = "l"
+    If fb1 = 8 Then Let fig1b$ = "p"
+    If fb1 = 9 Then Let fig1b$ = "h"
+    If fb1 = 10 Then Let fig1b$ = "d"
+    If fb1 = 11 Then Let fig1b$ = "t"
+
+    If fw2 = 1 Then Let fig2w$ = "K"
+    If fw2 = 2 Then Let fig2w$ = "G"
+    If fw2 = 3 Then Let fig2w$ = "S"
+    If fw2 = 4 Then Let fig2w$ = "B"
+    If fw2 = 5 Then Let fig2w$ = "N"
+    If fw2 = 6 Then Let fig2w$ = "R"
+    If fw2 = 7 Then Let fig2w$ = "L"
+    If fw2 = 8 Then Let fig2w$ = "P"
+    If fw2 = 9 Then Let fig2w$ = "H"
+    If fw2 = 20 Then Let fig2w$ = "D"
+    If fw2 = 22 Then Let fig2w$ = "T"
+
+    If fb2 = 1 Then Let fig2b$ = "k"
+    If fb2 = 2 Then Let fig2b$ = "g"
+    If fb2 = 3 Then Let fig2b$ = "a"
+    If fb2 = 4 Then Let fig2b$ = "b"
+    If fb2 = 5 Then Let fig2b$ = "n"
+    If fb2 = 6 Then Let fig2b$ = "r"
+    If fb2 = 7 Then Let fig2b$ = "l"
+    If fb2 = 8 Then Let fig2b$ = "p"
+    If fb2 = 9 Then Let fig2b$ = "h"
+    If fb2 = 20 Then Let fig2b$ = "d"
+    If fb2 = 22 Then Let fig2b$ = "t"
+
+    If fw3 = 1 Then Let fig3w$ = "K"
+    If fw3 = 2 Then Let fig3w$ = "G"
+    If fw3 = 3 Then Let fig3w$ = "S"
+    If fw3 = 4 Then Let fig3w$ = "B"
+    If fw3 = 5 Then Let fig3w$ = "N"
+    If fw3 = 6 Then Let fig3w$ = "R"
+    If fw3 = 7 Then Let fig3w$ = "L"
+    If fw3 = 8 Then Let fig3w$ = "P"
+    If fw3 = 9 Then Let fig3w$ = "H"
+    If fw3 = 30 Then Let fig3w$ = "D"
+    If fw3 = 33 Then Let fig3w$ = "T"
+
+    If fb3 = 1 Then Let fig3b$ = "k"
+    If fb3 = 2 Then Let fig3b$ = "g"
+    If fb3 = 3 Then Let fig3b$ = "a"
+    If fb3 = 4 Then Let fig3b$ = "b"
+    If fb3 = 5 Then Let fig3b$ = "n"
+    If fb3 = 6 Then Let fig3b$ = "r"
+    If fb3 = 7 Then Let fig3b$ = "l"
+    If fb3 = 8 Then Let fig3b$ = "p"
+    If fb3 = 9 Then Let fig3b$ = "h"
+    If fb3 = 30 Then Let fig3b$ = "d"
+    If fb3 = 33 Then Let fig3b$ = "t"
+
+    If fw4 = 1 Then Let fig4w$ = "K"
+    If fw4 = 2 Then Let fig4w$ = "G"
+    If fw4 = 3 Then Let fig4w$ = "S"
+    If fw4 = 4 Then Let fig4w$ = "B"
+    If fw4 = 5 Then Let fig4w$ = "N"
+    If fw4 = 6 Then Let fig4w$ = "R"
+    If fw4 = 7 Then Let fig4w$ = "L"
+    If fw4 = 8 Then Let fig4w$ = "P"
+    If fw4 = 9 Then Let fig4w$ = "H"
+    If fw4 = 40 Then Let fig4w$ = "D"
+    If fw4 = 44 Then Let fig4w$ = "T"
+
+    If fb4 = 1 Then Let fig4b$ = "k"
+    If fb4 = 2 Then Let fig4b$ = "g"
+    If fb4 = 3 Then Let fig4b$ = "a"
+    If fb4 = 4 Then Let fig4b$ = "b"
+    If fb4 = 5 Then Let fig4b$ = "n"
+    If fb4 = 6 Then Let fig4b$ = "r"
+    If fb4 = 7 Then Let fig4b$ = "l"
+    If fb4 = 8 Then Let fig4b$ = "p"
+    If fb4 = 9 Then Let fig4b$ = "h"
+    If fb4 = 40 Then Let fig4b$ = "d"
+    If fb4 = 44 Then Let fig4b$ = "t"
+
+    Dim table(9, 9) As String
+    Let table(fw1y, fw1x) = fig1w$
+    Let table(fb1y, fb1x) = fig1b$
+    Let table(fw2y, fw2x) = fig2w$
+    Let table(fb2y, fb2x) = fig2b$
+    Let table(fw3y, fw3x) = fig3w$
+    Let table(fb3y, fb3x) = fig3b$
+    Let table(fw4y, fw4x) = fig4w$
+    Let table(fb4y, fb4x) = fig4b$
+    For row = 1 To 9: For col = 1 To 9
+        If table(row, col) = "" Then Let table(row, col) = "+"
+    Next col: Next row
+
+    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)
+    Let lin1$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+            lin1$ = lin1$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
+            lin1$ = lin1$ + LTrim$(Str$(count))
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin2$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+            lin2$ = lin2$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
+            lin2$ = lin2$ + LTrim$(Str$(count))
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin3$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+            lin3$ = lin3$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
+            lin3$ = lin3$ + LTrim$(Str$(count))
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin4$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+            lin4$ = lin4$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
+            lin4$ = lin4$ + LTrim$(Str$(count))
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin5$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+            lin5$ = lin5$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
+            lin5$ = lin5$ + LTrim$(Str$(count))
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin6$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+            lin6$ = lin6$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
+            lin6$ = lin6$ + LTrim$(Str$(count))
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin7$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+            lin7$ = lin7$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
+            lin7$ = lin7$ + LTrim$(Str$(count))
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin8$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+            lin8$ = lin8$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
+            lin8$ = lin8$ + LTrim$(Str$(count))
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin9$ = ""
+    Let count = 0
+    For index = 1 To 9
+        If index = 9 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+            lin9$ = lin9$ + LTrim$(Str$(count))
+        End If
+        If index < 9 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count = 0 Then
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count > 0 Then
+            lin9$ = lin9$ + LTrim$(Str$(count))
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    Let fen$ = lin9$ + "/" + lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
+
+    Color 10
+    Locate 2, 1: Print "              Press any key to display the Forsyth-Edwards notation                    "
+    Do
+    Loop Until InKey$ <> ""
+    Locate 2, 1: Print "                                                                                       "
+    Color 12
+    Locate 2, 25: Print fen$
+
+    Do
+    Loop Until InKey$ <> ""
+
+    _Clipboard$ = fen$
+
+    System
+End Sub
+
+Sub draughtsfen
+
+    Rem Forsyth-Edwards notation
+
+    If fw1 = 1 Then Let fig1w$ = "D"
+    If fw1 = 2 Then Let fig1w$ = "C"
+
+    If fb1 = 1 Then Let fig1b$ = "d"
+    If fb1 = 2 Then Let fig1b$ = "c"
+
+    If fw2 = 1 Then Let fig2w$ = "D"
+    If fw2 = 2 Then Let fig2w$ = "C"
+
+    If fb2 = 1 Then Let fig2b$ = "d"
+    If fb2 = 2 Then Let fig2b$ = "c"
+
+    If fw3 = 1 Then Let fig3w$ = "D"
+    If fw3 = 2 Then Let fig3w$ = "C"
+
+    If fb3 = 1 Then Let fig3b$ = "d"
+    If fb3 = 2 Then Let fig3b$ = "c"
+
+    If fw4 = 1 Then Let fig4w$ = "D"
+    If fw4 = 2 Then Let fig4w$ = "C"
+
+    If fb4 = 1 Then Let fig4b$ = "d"
+    If fb4 = 2 Then Let fig4b$ = "c"
+
+    Dim table(10, 10) As String
+    Let table(fw1y, fw1x) = fig1w$
+    Let table(fb1y, fb1x) = fig1b$
+    Let table(fw2y, fw2x) = fig2w$
+    Let table(fb2y, fb2x) = fig2b$
+    Let table(fw3y, fw3x) = fig3w$
+    Let table(fb3y, fb3x) = fig3b$
+    Let table(fw4y, fw4x) = fig4w$
+    Let table(fb4y, fb4x) = fig4b$
+    For row = 1 To 10: For col = 1 To 10
+        If table(row, col) = "" Then Let table(row, col) = "+"
+    Next col: Next row
+
+    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)
+    Let lin1$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+            lin1$ = lin1$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas1$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count = 0 Then
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+        End If
+        If Mid$(mas1$, index, 1) <> "+" And count > 0 Then
+            lin1$ = lin1$ + LTrim$(Str$(count))
+            lin1$ = lin1$ + Mid$(mas1$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin2$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+            lin2$ = lin2$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas2$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count = 0 Then
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+        End If
+        If Mid$(mas2$, index, 1) <> "+" And count > 0 Then
+            lin2$ = lin2$ + LTrim$(Str$(count))
+            lin2$ = lin2$ + Mid$(mas2$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin3$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+            lin3$ = lin3$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas3$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count = 0 Then
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+        End If
+        If Mid$(mas3$, index, 1) <> "+" And count > 0 Then
+            lin3$ = lin3$ + LTrim$(Str$(count))
+            lin3$ = lin3$ + Mid$(mas3$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin4$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+            lin4$ = lin4$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas4$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count = 0 Then
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+        End If
+        If Mid$(mas4$, index, 1) <> "+" And count > 0 Then
+            lin4$ = lin4$ + LTrim$(Str$(count))
+            lin4$ = lin4$ + Mid$(mas4$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin5$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+            lin5$ = lin5$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas5$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count = 0 Then
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+        End If
+        If Mid$(mas5$, index, 1) <> "+" And count > 0 Then
+            lin5$ = lin5$ + LTrim$(Str$(count))
+            lin5$ = lin5$ + Mid$(mas5$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin6$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+            lin6$ = lin6$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas6$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count = 0 Then
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+        End If
+        If Mid$(mas6$, index, 1) <> "+" And count > 0 Then
+            lin6$ = lin6$ + LTrim$(Str$(count))
+            lin6$ = lin6$ + Mid$(mas6$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin7$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+            lin7$ = lin7$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas7$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count = 0 Then
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+        End If
+        If Mid$(mas7$, index, 1) <> "+" And count > 0 Then
+            lin7$ = lin7$ + LTrim$(Str$(count))
+            lin7$ = lin7$ + Mid$(mas7$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin8$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+            lin8$ = lin8$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas8$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count = 0 Then
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+        End If
+        If Mid$(mas8$, index, 1) <> "+" And count > 0 Then
+            lin8$ = lin8$ + LTrim$(Str$(count))
+            lin8$ = lin8$ + Mid$(mas8$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin9$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+            lin9$ = lin9$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas9$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count = 0 Then
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+        End If
+        If Mid$(mas9$, index, 1) <> "+" And count > 0 Then
+            lin9$ = lin9$ + LTrim$(Str$(count))
+            lin9$ = lin9$ + Mid$(mas9$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    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)
+    Let lin0$ = ""
+    Let count = 0
+    For index = 1 To 10
+        If index = 10 And Mid$(mas0$, index, 1) = "+" Then
+            count = count + 1
+            lin0$ = lin0$ + LTrim$(Str$(count))
+        End If
+        If index < 10 And Mid$(mas0$, index, 1) = "+" Then
+            count = count + 1
+        End If
+        If Mid$(mas0$, index, 1) <> "+" And count = 0 Then
+            lin0$ = lin0$ + Mid$(mas0$, index, 1)
+        End If
+        If Mid$(mas0$, index, 1) <> "+" And count > 0 Then
+            lin0$ = lin0$ + LTrim$(Str$(count))
+            lin0$ = lin0$ + Mid$(mas0$, index, 1)
+            Let count = 0
+        End If
+    Next index
+
+    Let fen$ = lin0$ + "/" + lin9$ + "/" + lin8$ + "/" + lin7$ + "/" + lin6$ + "/" + lin5$ + "/" + lin4$ + "/" + lin3$ + "/" + lin2$ + "/" + lin1$
+
+    Color 10
+    Locate 2, 1: Print "              Press any key to display the Forsyth-Edwards notation                    "
+    Do
+    Loop Until InKey$ <> ""
+    Locate 2, 1: Print "                                                                                       "
+    Color 12
+    Locate 2, 23: Print fen$
+
+    Do
+    Loop Until InKey$ <> ""
+
+    _Clipboard$ = fen$
+
+    System
+End Sub
+
+Sub message
+    Locate 2, 1: Color 9: Print "    SPACEBAR - next pair"; "       ENTER - display notation       "; "ESCAPE - exit    "
+    Locate 2, 5: Color 5: Print "SPACEBAR": Locate 2, 32: Color 5: Print "ENTER": Locate 2, 63: Color 5: Print "ESCAPE"
+End Sub
\ No newline at end of file