麻雀得点計算プログラム by sou51

再生

　友達と麻雀を遊んでいて、やっかいなのが得点計算。麻雀のルールは知っていてもこれだけは苦手という人も多いんじゃないかな？　これは得点計算をサポートするプログラム。
　十字ボタン上下で項目を選択、左右で変更すると、自動的に画面下に得点が表示されるぞ。Ｒボタンでリセットされるのでうまく使い分けよう。
　麻雀のルールが分かっていれば、そう迷うところはないだろう。「２−８」は中張牌、「１９＠」は么九牌を示している。計算結果の「オヤ」「コ」はそれぞれ上がった親または子に支払う点数なのは言うまでもないね。

私が作りました

sou51

元プログラマ。現在プログラマ以外の職を求職中。


 CHECK POiNT 

ワンパク
今回はセンモン的なプログラムがけっこう多いが、これならオレにも分かるゼ！　麻雀の点数計算はぶっちゃけ面倒だからよォ、コレをDSiで持ち運べるんならベンリじゃねえか？

神崎
こういうのも専門的というのかは分からないけど……。たしかに麻雀の専門用語でいっぱいではあるか。

博士
課題があるとすれば、そのあたりをどれだけ分かりやすくするか、じゃろうか。
たとえば么九牌、いわゆる１と９の字牌を「１９＠」と表現しておるが、これをフォントの書き換えやグラフィックでもっと分かりやすく置き換えたり、じゃな。

インテリ
麻雀を知ってる人なら、わざわざそこまで説明しなくても分かりそうではあるけどね。
グラフィック面に背景色や区切り線を描いて、見やすくする工夫もアリかな。

プログラムリスト

  1. ’マーシ゛ャン　テンスウ　ケイサン　フ゜ロク゛ラム
  2. ＣＬＥＡＲ：ＣＬＳ
  3. ’ヘンスウ　ショキカ
  4. ’ＣＵＲ＝カーソルイチ
  5. ’ＨＡＮ＝アカ゛リ　ハンスウ
  6. ’　　　　１－１２：ハンスウ
  7. ’　　　　１３：ヤクマン
  8. ’　　　　１４：タ゛フ゛ルヤクマン
  9. ’　　　　１５：トリフ゜ルヤクマン
  10. ’ＡＧＡＲＩ＝アカ゛リカタ
  11. ’　　　　　　０：メンセ゛ンロン
  12. ’　　　　　　１：ロン
  13. ’　　　　　　２：ツモ
  14. ’　　　　　　３：ツモヒ゜ンフ
  15. ’ＡＴＡＭＡ＝シ゛ャントウ　カ゛　ヤクハイ　ナラ　１
  16. ’ＭＡＣＨＩ＝マチカタ。タンキ、ヘ゜ンチャン、カンチャン　ナラ　１
  17. ’ＣＨＩＴＯＩ＝チートイツ　ナラ　１
  18. ＣＵＲ＝０：ＨＡＮ＝１：ＡＧＡＲＩ＝０：ＡＴＡＭＡ＝０：ＭＡＣＨＩ＝０：ＣＨＩＴＯＩ＝０
  19. ’コーツ　カンツ　ノ　カス゛
  20. ’　０：チュンシ゛ャンハイ　アンコ／アンカン
  21. ’　１：ヤオチュウハイ　　　アンコ／アンカン
  22. ’　２：チュンシ゛ャンハイ　ミンコ／ミンカン
  23. ’　３：ヤオチュウハイ　　　ミンコ／ミンカン
  24. ＤＩＭ　ＫＯＵＴＳＵ（４），ＫＡＮＴＳＵ（４）
  25. ’アカ゛リカタ　テ゛　カサン　サレル　フ　テイキ゛
  26. ＤＩＭ　ＡＧＲＦＵ（４）
  27. ＡＧＲＦＵ（０）＝１０：ＡＧＲＦＵ（１）＝０：ＡＧＲＦＵ（２）＝２：ＡＧＲＦＵ（３）＝０
  28. ’ヒョウシ゛ヨウ　モシ゛レツ　テイキ゛
  29. ＤＩＭ　ＭＮＧＮＳＴ＄（１６），ＭＮＧＮＳＣＲ（１６），ＡＧＲＳＴＲ＄（４），ＡＴＭＳＴＲ＄（２），ＭＣＳＴＲ＄（２）
  30. ＭＮＧＮＳＴ＄（０）＝”マンカ゛ン”：ＭＮＧＮＳＣＲ（０）＝２０００
  31. ＭＮＧＮＳＴ＄（１）＝”マンカ゛ン”：ＭＮＧＮＳＣＲ（１）＝２０００
  32. ＭＮＧＮＳＴ＄（２）＝”マンカ゛ン”：ＭＮＧＮＳＣＲ（２）＝２０００
  33. ＭＮＧＮＳＴ＄（３）＝”マンカ゛ン”：ＭＮＧＮＳＣＲ（３）＝２０００
  34. ＭＮＧＮＳＴ＄（４）＝”マンカ゛ン”：ＭＮＧＮＳＣＲ（４）＝２０００
  35. ＭＮＧＮＳＴ＄（５）＝”マンカ゛ン”：ＭＮＧＮＳＣＲ（５）＝２０００
  36. ＭＮＧＮＳＴ＄（６）＝”ハネマン”：ＭＮＧＮＳＣＲ（６）＝３０００
  37. ＭＮＧＮＳＴ＄（７）＝”ハネマン”：ＭＮＧＮＳＣＲ（７）＝３０００
  38. ＭＮＧＮＳＴ＄（８）＝”ハ゛イマン”：ＭＮＧＮＳＣＲ（８）＝４０００
  39. ＭＮＧＮＳＴ＄（９）＝”ハ゛イマン”：ＭＮＧＮＳＣＲ（９）＝４０００
  40. ＭＮＧＮＳＴ＄（１０）＝”ハ゛イマン”：ＭＮＧＮＳＣＲ（１０）＝４０００
  41. ＭＮＧＮＳＴ＄（１１）＝”３ハ゛イマン”：ＭＮＧＮＳＣＲ（１１）＝６０００
  42. ＭＮＧＮＳＴ＄（１２）＝”３ハ゛イマン”：ＭＮＧＮＳＣＲ（１２）＝６０００
  43. ＭＮＧＮＳＴ＄（１３）＝”ヤクマン”：ＭＮＧＮＳＣＲ（１３）＝８０００
  44. ＭＮＧＮＳＴ＄（１４）＝”タ゛フ゛ルヤクマン”：ＭＮＧＮＳＣＲ（１４）＝１６０００
  45. ＭＮＧＮＳＴ＄（１５）＝”トリフ゜ルヤクマン”：ＭＮＧＮＳＣＲ（１５）＝２４０００
  46. ＡＧＲＳＴＲ＄（０）＝”メンセ゛ンロン　　　１０フ”
  47. ＡＧＲＳＴＲ＄（１）＝”ロン　　　　　　　　　０フ”
  48. ＡＧＲＳＴＲ＄（２）＝”ツモ　　　　　　　　　２フ”
  49. ＡＧＲＳＴＲ＄（３）＝”ツモ（ヒ゜ンフ）　　　０フ”
  50. ＡＴＭＳＴＲ＄（０）＝”ソノタ　　　　　　　　０フ”
  51. ＡＴＭＳＴＲ＄（１）＝”ヤクハイ　　　　　　　２フ”
  52. ＭＣＳＴＲ＄（０）＝”　　　　　　ソノタ　　　　　　　　０フ”
  53. ＭＣＳＴＲ＄（１）＝”タンキ・カンチャン・ヘ゜ンチャン　２フ”
  54. ＧＯＳＵＢ　＠ＤＲＡＷ
  55. ’メインルーフ゜
  56. ＠ＬＯＯＰ
  57. ＬＢＴＮＳ＝ＢＴＮＳ
  58. ＢＴＮＳ＝ＢＵＴＴＯＮ（）
  59. ’ウエ　ホ゛タン
  60. ＩＦ（（ＮＯＴ　ＬＢＴＮＳ）ＡＮＤ　１）ＡＮＤ（ＢＴＮＳ　ＡＮＤ　１）ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＰ
  61. ’シタ　ホ゛タン
  62. ＩＦ（（ＮＯＴ　ＬＢＴＮＳ）ＡＮＤ　２）ＡＮＤ（ＢＴＮＳ　ＡＮＤ　２）ＴＨＥＮ　ＧＯＳＵＢ　＠ＤＯＷＮ
  63. ’ヒタ゛リ　ホ゛タン
  64. ＩＦ（（ＮＯＴ　ＬＢＴＮＳ）ＡＮＤ　４）ＡＮＤ（ＢＴＮＳ　ＡＮＤ　４）ＴＨＥＮ　ＧＯＳＵＢ　＠ＬＥＦＴ
  65. ’ミキ゛　ホ゛タン
  66. ＩＦ（（ＮＯＴ　ＬＢＴＮＳ）ＡＮＤ　８）ＡＮＤ（ＢＴＮＳ　ＡＮＤ　８）ＴＨＥＮ　ＧＯＳＵＢ　＠ＲＩＧＨＴ
  67. ’Ｒホ゛タン
  68. ＩＦ（（ＮＯＴ　ＬＢＴＮＳ）ＡＮＤ　５１２）ＡＮＤ（ＢＴＮＳ　ＡＮＤ　５１２）ＴＨＥＮ　ＧＯＳＵＢ　＠ＲＢＴＮ
  69. ＧＯＴＯ　＠ＬＯＯＰ
  70. ’－－－－－－
  71. ’フ　ケイサン
  72. ’－－－－－－
  73. ＠ＦＵＣＡＬＣ
  74. ＩＦ　ＣＨＩＴＯＩ＝＝１　ＧＯＴＯ　＠ＣＨＩＦＵ
  75. ＦＵ＝２０＋ＫＯＵＴＳＵ（０）＊４＋ＫＯＵＴＳＵ（１）＊８＋ＫＯＵＴＳＵ（２）＊２＋ＫＯＵＴＳＵ（３）＊４
  76. ＦＵ＝ＦＵ＋ＫＡＮＴＳＵ（０）＊１６＋ＫＡＮＴＳＵ（１）＊３２＋ＫＡＮＴＳＵ（２）＊８＋ＫＡＮＴＳＵ（３）＊１６
  77. ＦＵ＝ＦＵ＋ＡＴＡＭＡ＊２＋ＭＡＣＨＩ＊２＋ＡＧＲＦＵ（ＡＧＡＲＩ）
  78. ’ツモヒ゜ンフ　ハ　２０フ　コテイ
  79. ＩＦ　ＡＧＡＲＩ＝＝３　ＴＨＥＮ　ＦＵ＝２０
  80. ’１０タンイ　ニ　キリアケ゛
  81. ＫＦＵ＝ＦＵ：ＦＵ＝ＦＵ＋９：ＦＵ＝ＦＵ－（ＦＵ％１０）
  82. ＧＯＴＯ　＠ＦＵＥＮＤ
  83. ’チートイツ　ハ　２５フ　コテイ
  84. ＠ＣＨＩＦＵ
  85. ＦＵ＝２５：ＫＦＵ＝ＦＵ
  86. ＠ＦＵＥＮＤ
  87. ’－－－－－－
  88. ’キホンテン　ケイサン
  89. ’－－－－－－
  90. ’５ハン　イシ゛ョウ　ハ　マンカ゛ン
  91. ＩＦ　ＨＡＮ＞４　ＧＯＴＯ　＠ＭＮＧＮＣ
  92. ’チートイ／ツモヒ゜ンフ　ノ　トキ　ハ　２ハン　イシ゛ョウ　ニ　スル
  93. ＨＡＮ＝ＨＡＮ＋（（ＨＡＮ＝＝１）ＡＮＤ（（ＣＨＩＴＯＩ＝＝１）ＯＲ（ＡＧＡＲＩ＝＝３）））
  94. ’ハ゛ソ゛ロ　ト　ハンスウフ゛ン　ハ゛イハ゛イ　ニ　シテイク
  95. ＢＡＳＥ＝ＦＵ＊４：ＦＯＲ　Ｉ＝１　ＴＯ　ＨＡＮ：ＢＡＳＥ＝ＢＡＳＥ＊２：ＮＥＸＴ
  96. ’キホンテン　カ゛　２０００　コエタラ　マンカ゛ン
  97. ＩＦ　ＢＡＳＥ＞＝２０００　ＧＯＴＯ　＠ＭＮＧＮＣ
  98. ＧＯＴＯ　＠ＭＮＥＮＤ
  99. ’マンカ゛ン　トクテン
  100. ＠ＭＮＧＮＣ
  101. ＢＡＳＥ＝ＭＮＧＮＳＣＲ（ＨＡＮ）
  102. ＠ＭＮＥＮＤ
  103. ＲＥＴＵＲＮ
  104. ’－－－－－－
  105. ’キー　ニュウリョク
  106. ’－－－－－－
  107. ＠ＵＰ
  108. ＩＦ　ＣＨＩＴＯＩ＝＝０　ＡＮＤ　ＡＧＡＲＩ！＝３　ＴＨＥＮ　ＣＵＲ＝（ＣＵＲ＋１２）％１３：ＧＯＴＯ＠ＵＰＥＮＤ
  109. ＩＦ　ＣＵＲ＝＝０　ＴＨＥＮ　ＣＵＲ＝１０：ＧＯＴＯ＠ＵＰＥＮＤ
  110. ＩＦ　ＣＵＲ＝＝１０　ＴＨＥＮ　ＣＵＲ＝１：ＧＯＴＯ＠ＵＰＥＮＤ
  111. ＣＵＲ＝０
  112. ＠ＵＰＥＮＤ
  113. ＧＯＳＵＢ＠ＤＲＡＷ
  114. ＲＥＴＵＲＮ
  115. ’－－－－
  116. ＠ＤＯＷＮ
  117. ＩＦ　ＣＨＩＴＯＩ＝＝０　ＡＮＤ　ＡＧＡＲＩ！＝３　ＴＨＥＮ　ＣＵＲ＝（ＣＵＲ＋１）％１３：ＧＯＴＯ＠ＤＯＷＮＥＮＤ
  118. ＩＦ　ＣＵＲ＝＝１　ＴＨＥＮ　ＣＵＲ＝１０：ＧＯＴＯ＠ＤＯＷＮＥＮＤ
  119. ＩＦ　ＣＵＲ＝＝１０　ＴＨＥＮ　ＣＵＲ＝０：ＧＯＴＯ＠ＤＯＷＮＥＮＤ
  120. ＣＵＲ＝１
  121. ＠ＤＯＷＮＥＮＤ
  122. ＧＯＳＵＢ＠ＤＲＡＷ：ＲＥＴＵＲＮ
  123. ’－－－－
  124. ＠ＬＥＦＴ
  125. ＯＮ　ＣＵＲ　ＧＯＳＵＢ　＠ＬＨＡＮ，＠ＣＨＩ，＠Ｌ２Ａ３，＠Ｌ１Ａ３，＠Ｌ２Ｍ３，＠Ｌ１Ｍ３，＠Ｌ２Ａ４，＠Ｌ１Ａ４，＠Ｌ２Ｍ４，＠Ｌ１Ｍ４，＠ＬＡＧＲ，＠ＪＴＵ，＠ＭＣＨ
  126. ＧＯＳＵＢ　＠ＤＲＡＷ：ＲＥＴＵＲＮ
  127. ’－－－－
  128. ＠ＲＩＧＨＴ
  129. ＯＮ　ＣＵＲ　ＧＯＳＵＢ　＠ＲＨＡＮ，＠ＣＨＩ，＠Ｒ２Ａ３，＠Ｒ１Ａ３，＠Ｒ２Ｍ３，＠Ｒ１Ｍ３，＠Ｒ２Ａ４，＠Ｒ１Ａ４，＠Ｒ２Ｍ４，＠Ｒ１Ｍ４，＠ＲＡＧＲ，＠ＪＴＵ，＠ＭＣＨ
  130. ＧＯＳＵＢ　＠ＤＲＡＷ：ＲＥＴＵＲＮ
  131. ’－－－－
  132. ＠ＲＢＴＮ
  133. ＣＵＲ＝０：ＨＡＮ＝１：ＡＧＡＲＩ＝０：ＡＴＡＭＡ＝０：ＭＡＣＨＩ＝０：ＣＨＩＴＯＩ＝０
  134. ＦＯＲ　Ｉ＝０　ＴＯ　３：ＫＯＵＴＳＵ（Ｉ）＝０：ＫＡＮＴＳＵ（Ｉ）＝０：ＮＥＸＴ
  135. ＧＯＳＵＢ　＠ＤＲＡＷ：ＲＥＴＵＲＮ
  136. ’－－－－－－
  137. ’カク　コウモク　ノ　サユウ　ニュウリョク
  138. ’－－－－－－
  139. ’ハン
  140. ＠ＬＨＡＮ
  141. ＨＡＮ＝ＨＡＮ－（ＨＡＮ＞１）：ＲＥＴＵＲＮ
  142. ＠ＲＨＡＮ
  143. ＨＡＮ＝ＨＡＮ＋（ＨＡＮ＜１５）：ＲＥＴＵＲＮ
  144. ’チュンシ゛ャン　アンコ
  145. ＠Ｌ２Ａ３
  146. ＫＯＵＴＳＵ（０）＝ＫＯＵＴＳＵ（０）－（ＫＯＵＴＳＵ（０）＞０）：ＲＥＴＵＲＮ
  147. ＠Ｒ２Ａ３
  148. ＫＯＵＴＳＵ（０）＝ＫＯＵＴＳＵ（０）＋（ＫＯＵＴＳＵ（０）＜４）：ＲＥＴＵＲＮ
  149. ’ヤオチュウ　アンコ
  150. ＠Ｌ１Ａ３
  151. ＫＯＵＴＳＵ（１）＝ＫＯＵＴＳＵ（１）－（ＫＯＵＴＳＵ（１）＞０）：ＲＥＴＵＲＮ
  152. ＠Ｒ１Ａ３
  153. ＫＯＵＴＳＵ（１）＝ＫＯＵＴＳＵ（１）＋（ＫＯＵＴＳＵ（１）＜４）：ＲＥＴＵＲＮ
  154. ’チュンシ゛ャン　ミンコ
  155. ＠Ｌ２Ｍ３
  156. ＫＯＵＴＳＵ（２）＝ＫＯＵＴＳＵ（２）－（ＫＯＵＴＳＵ（２）＞０）：ＲＥＴＵＲＮ
  157. ＠Ｒ２Ｍ３
  158. ＫＯＵＴＳＵ（２）＝ＫＯＵＴＳＵ（２）＋（ＫＯＵＴＳＵ（２）＜４）：ＲＥＴＵＲＮ
  159. ’ヤオチュウ　ミンコ
  160. ＠Ｌ１Ｍ３
  161. ＫＯＵＴＳＵ（３）＝ＫＯＵＴＳＵ（３）－（ＫＯＵＴＳＵ（３）＞０）：ＲＥＴＵＲＮ
  162. ＠Ｒ１Ｍ３
  163. ＫＯＵＴＳＵ（３）＝ＫＯＵＴＳＵ（３）＋（ＫＯＵＴＳＵ（３）＜４）：ＲＥＴＵＲＮ
  164. ’チュンシ゛ャン　アンカン
  165. ＠Ｌ２Ａ４
  166. ＫＡＮＴＳＵ（０）＝ＫＡＮＴＳＵ（０）－（ＫＡＮＴＳＵ（０）＞０）：ＲＥＴＵＲＮ
  167. ＠Ｒ２Ａ４
  168. ＫＡＮＴＳＵ（０）＝ＫＡＮＴＳＵ（０）＋（ＫＡＮＴＳＵ（０）＜４）：ＲＥＴＵＲＮ
  169. ’ヤオチュウ　アンカン
  170. ＠Ｌ１Ａ４
  171. ＫＡＮＴＳＵ（１）＝ＫＡＮＴＳＵ（１）－（ＫＡＮＴＳＵ（１）＞０）：ＲＥＴＵＲＮ
  172. ＠Ｒ１Ａ４
  173. ＫＡＮＴＳＵ（１）＝ＫＡＮＴＳＵ（１）＋（ＫＡＮＴＳＵ（１）＜４）：ＲＥＴＵＲＮ
  174. ’チュンシ゛ャン　ミンカン
  175. ＠Ｌ２Ｍ４
  176. ＫＡＮＴＳＵ（２）＝ＫＡＮＴＳＵ（２）－（ＫＡＮＴＳＵ（２）＞０）：ＲＥＴＵＲＮ
  177. ＠Ｒ２Ｍ４
  178. ＫＡＮＴＳＵ（２）＝ＫＡＮＴＳＵ（２）＋（ＫＡＮＴＳＵ（２）＜４）：ＲＥＴＵＲＮ
  179. ’ヤオチュウ　ミンカン
  180. ＠Ｌ１Ｍ４
  181. ＫＡＮＴＳＵ（３）＝ＫＡＮＴＳＵ（３）－（ＫＡＮＴＳＵ（３）＞０）：ＲＥＴＵＲＮ
  182. ＠Ｒ１Ｍ４
  183. ＫＡＮＴＳＵ（３）＝ＫＡＮＴＳＵ（３）＋（ＫＡＮＴＳＵ（３）＜４）：ＲＥＴＵＲＮ
  184. ’チートイツ
  185. ＠ＣＨＩ
  186. ＣＨＩＴＯＩ＝１－ＣＨＩＴＯＩ：ＡＧＡＲＩ＝ＡＧＡＲＩ　ＡＮＤ　２
  187. ＲＥＴＵＲＮ
  188. ’アカ゛リカタ
  189. ＠ＬＡＧＲ
  190. ＡＧＡＲＩ＝（ＡＧＡＲＩ＋２＋（ＣＨＩＴＯＩ！＝１））％４：ＲＥＴＵＲＮ
  191. ＠ＲＡＧＲ
  192. ＡＧＡＲＩ＝（ＡＧＡＲＩ＋１＋（ＣＨＩＴＯＩ＝＝１））％４：ＲＥＴＵＲＮ
  193. ’シ゛ャントウ
  194. ＠ＪＴＵ
  195. ＡＴＡＭＡ＝１－ＡＴＡＭＡ：ＲＥＴＵＲＮ
  196. ’マチカタ
  197. ＠ＭＣＨ
  198. ＭＡＣＨＩ＝１－ＭＡＣＨＩ：ＲＥＴＵＲＮ
  199. ’－－－－－－
  200. ’カ゛メン　ヒ゛ョウカ゛
  201. ’－－－－－－
  202. ＠ＤＲＡＷ
  203. ＧＯＳＵＢ　＠ＦＵＣＡＬＣ
  204. ’－－－－
  205. ＣＯＬＯＲ　７－（ＣＵＲ！＝０）＊７
  206. ＬＯＣＡＴＥ　３，２：？”ハンスウ”
  207. ＬＯＣＡＴＥ　１２，２
  208. ＩＦ　ＨＡＮ＞＝１３　ＧＯＴＯ　＠ＭＮＧＮＮ
  209. ？ＨＡＮ”ハン　　　　　　”
  210. ＧＯＴＯ　＠ＨＡＮＥＮＤ
  211. ＠ＭＮＧＮＮ
  212. ？ＭＮＧＮＳＴ＄（ＨＡＮ）”　　　　　　”
  213. ＠ＨＡＮＥＮＤ
  214. ’－－－－
  215. ＣＯＬＯＲ　７－（ＣＵＲ！＝１）＊７
  216. ＬＯＣＡＴＥ　３，４：？”チートイツ”
  217. ＬＯＣＡＴＥ　１２，４
  218. ＩＦ　ＣＨＩＴＯＩ＝＝０　ＧＯＴＯ　＠ＣＮＯ
  219. ？”ＹＥＳ”：ＧＯＴＯ　＠ＣＥＮＤ
  220. ＠ＣＮＯ
  221. ？”ＮＯ　”
  222. ＠ＣＥＮＤ
  223. ’－－－－
  224. ’ＥＮＡＢＬＥ　ハ　チートイ、ツモヒ゜ンフ　テ゛　カンケイナイ　コウモク　ヲ　ハイイロ　ニ　スル
  225. ＥＮＡＢＬＥ＝（ＣＨＩＴＯＩ＝＝０）ＡＮＤ（ＡＧＡＲＩ！＝３）
  226. ’－－－－
  227. ＣＯＬＯＲ　２：ＩＦ　ＥＮＡＢＬＥ＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　７－（ＣＵＲ！＝２）＊７
  228. ＬＯＣＡＴＥ　３，６：？”２－８アンコ”
  229. ＬＯＣＡＴＥ　１２，６：？ＫＯＵＴＳＵ（０）”　ｘ　　４　＝　”ＫＯＵＴＳＵ（０）＊４”フ　”
  230. ’－－－－
  231. ＣＯＬＯＲ　２：ＩＦ　ＥＮＡＢＬＥ＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　７－（ＣＵＲ！＝３）＊７
  232. ＬＯＣＡＴＥ　３，７：？”１９＠アンコ”
  233. ＬＯＣＡＴＥ　１２，７：？ＫＯＵＴＳＵ（１）”　ｘ　　８　＝　”ＫＯＵＴＳＵ（１）＊８”フ　”
  234. ’－－－－
  235. ＣＯＬＯＲ　２：ＩＦ　ＥＮＡＢＬＥ＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　７－（ＣＵＲ！＝４）＊７
  236. ＬＯＣＡＴＥ　３，８：？”２－８ミンコ”
  237. ＬＯＣＡＴＥ　１２，８：？ＫＯＵＴＳＵ（２）”　ｘ　　２　＝　”ＫＯＵＴＳＵ（２）＊２”フ　”
  238. ’－－－－
  239. ＣＯＬＯＲ　２：ＩＦ　ＥＮＡＢＬＥ＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　７－（ＣＵＲ！＝５）＊７
  240. ＬＯＣＡＴＥ　３，９：？”１９＠ミンコ”
  241. ＬＯＣＡＴＥ　１２，９：？ＫＯＵＴＳＵ（３）”　ｘ　　４　＝　”ＫＯＵＴＳＵ（３）＊４”フ　”
  242. ’－－－－
  243. ＣＯＬＯＲ　２：ＩＦ　ＥＮＡＢＬＥ＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　７－（ＣＵＲ！＝６）＊７
  244. ＬＯＣＡＴＥ　３，１１：？”２－８アンカン”
  245. ＬＯＣＡＴＥ　１２，１１：？ＫＡＮＴＳＵ（０）”　ｘ　　４　＝　”ＫＡＮＴＳＵ（０）＊４”フ　”
  246. ’－－－－
  247. ＣＯＬＯＲ　２：ＩＦ　ＥＮＡＢＬＥ＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　７－（ＣＵＲ！＝７）＊７
  248. ＬＯＣＡＴＥ　３，１２：？”１９＠アンカン”
  249. ＬＯＣＡＴＥ　１２，１２：？ＫＡＮＴＳＵ（１）”　ｘ　　８　＝　”ＫＡＮＴＳＵ（１）＊８”フ　”
  250. ’－－－－
  251. ＣＯＬＯＲ　２：ＩＦ　ＥＮＡＢＬＥ＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　７－（ＣＵＲ！＝８）＊７
  252. ＬＯＣＡＴＥ　３，１３：？”２－８ミンカン”
  253. ＬＯＣＡＴＥ　１２，１３：？ＫＡＮＴＳＵ（２）”　ｘ　　２　＝　”ＫＡＮＴＳＵ（２）＊２”フ　”
  254. ’－－－－
  255. ＣＯＬＯＲ　２：ＩＦ　ＥＮＡＢＬＥ＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　７－（ＣＵＲ！＝９）＊７
  256. ＬＯＣＡＴＥ　３，１４：？”１９＠ミンカン”
  257. ＬＯＣＡＴＥ　１２，１４：？ＫＡＮＴＳＵ（３）”　ｘ　　４　＝　”ＫＡＮＴＳＵ（３）＊４”フ　”
  258. ’－－－－
  259. ＣＯＬＯＲ　７－（ＣＵＲ！＝１０）＊７
  260. ＬＯＣＡＴＥ　３，１６：？”アカ゛リ”
  261. ＬＯＣＡＴＥ　１２，１６：？ＡＧＲＳＴＲ＄（ＡＧＡＲＩ）
  262. ’－－－－
  263. ＣＯＬＯＲ　２：ＩＦ　ＥＮＡＢＬＥ＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　７－（ＣＵＲ！＝１１）＊７
  264. ＬＯＣＡＴＥ　３，１７：？”シ゛ャントウ”
  265. ＬＯＣＡＴＥ　１２，１７：？ＡＴＭＳＴＲ＄（ＡＴＡＭＡ）
  266. ’－－－－
  267. ＣＯＬＯＲ　２：ＩＦ　ＥＮＡＢＬＥ＝＝１　ＴＨＥＮ　ＣＯＬＯＲ　７－（ＣＵＲ！＝１２）＊７
  268. ＬＯＣＡＴＥ　３，１８：？”マチ”
  269. ＬＯＣＡＴＥ　６，１８：？ＭＣＳＴＲ＄（ＭＡＣＨＩ）
  270. ’－－－－
  271. ＩＦ　ＨＡＮ＞４　ＯＲ　ＢＡＳＥ　＞＝２０００　ＴＨＥＮ　ＧＯＴＯ　＠ＭＡＮＧＡＮＤ
  272. ＣＯＬＯＲ　０：ＬＯＣＡＴＥ　４，２０：？ＦＵ”フ（”ＫＦＵ”フ）　”ＨＡＮ”ハン　　キホンテン　”ＢＡＳＥ”テン　　　　”
  273. ＧＯＴＯ　＠ＭＡＮＧＥＮＤ
  274. ＠ＭＡＮＧＡＮＤ
  275. ＣＯＬＯＲ　０：ＬＯＣＡＴＥ　４，２０：？ＭＮＧＮＳＴ＄（ＨＡＮ）”　　　　　　　　　　　　　　　　　　　　　　　　　”
  276. ＠ＭＡＮＧＥＮＤ
  277. ’－－－－
  278. ＩＦ　ＡＧＡＲＩ＞１　ＧＯＴＯ　＠ＴＳＵＭＯＤ
  279. ’ロン　アカ゛リ　ノ　ヒョウシ゛
  280. ’オヤアカ゛リ　ハ　キホンテンｘ６（１００テン　タンイ　キリアケ゛）
  281. ＯＹＡ＝ＢＡＳＥ＊６＋９０：ＯＹＡ＝ＯＹＡ－（ＯＹＡ％１００）
  282. ＬＯＣＡＴＥ　４，２１：？”オヤ　”ＯＹＡ”　　　　　　　　　”
  283. ’コアカ゛リ　ハ　キホンテンｘ４（１００テン　タンイ　キリアケ゛）
  284. ＫＯ＝ＢＡＳＥ＊４＋９０：ＫＯ＝ＫＯ－（ＫＯ％１００）：ＩＦ　ＫＯ＜１０００　ＴＨＥＮ　ＫＯ＝１０００
  285. ＬＯＣＡＴＥ　４，２２：？”コ　　”ＫＯ”　　　　　　　　　”
  286. ＧＯＴＯ　＠ＳＥＮＤ
  287. ’ツモ　アカ゛リ　ノ　ヒョウシ゛
  288. ＠ＴＳＵＭＯＤ
  289. ’オヤアカ゛リ　ハ　キホンテンｘ２（１００テン　タンイ　キリアケ゛）
  290. ＯＹＡ＝ＢＡＳＥ＊２＋９０：ＯＹＡ＝ＯＹＡ－（ＯＹＡ％１００）
  291. ＬＯＣＡＴＥ　４，２１：？”オヤ　”ＯＹＡ”オール　　　”
  292. ’コアカ゛リ　ノ　オヤ　ハ　オヤアカ゛リ　ト　オナシ゛
  293. ’オヤアカ゛リ　ノ　コ　ハ　キホンテンｘ１（１００テン　タンイ　キリアケ゛）
  294. ＫＯ＝ＢＡＳＥ＋９０：ＫＯ＝ＫＯ－（ＫＯ％１００）
  295. ＬＯＣＡＴＥ　４，２２：？”コ　　”ＯＹＡ”　／　”ＫＯ”　　　”
  296. ＠ＳＥＮＤ
  297. ＲＥＴＵＲＮ