プチコンまとめWiki (初代/mkII)

投稿プログラム : マージャンソリティア

パンくずリスト

2012年05月14日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ゲーム QRコード mkII専用

概要

麻雀牌を使うあのパズルゲームです。
権利関係でサン電子さんから怒られたら消してください＞管理人さん
さすがに、もう大丈夫だとは思いますが。

更新履歴

2012-05-25 20:30 下記バグ修正しました。PRGのQRとリストを更新しました。ついでに面選択時キーリピートつけました。
2012-05-21 22:13 バグ報告。14, 20, 33, 52, 64, 81面が開始できません。後日修正します。すみません。
2012-05-19 22:43 初期配置ルーチンを変更。どの面も100%解けるようになりました（汗。PRGのQRとリストを更新
2012-05-15 01:53 QR、リスト更新
2012-05-14 23:00 投稿

プログラムについて

各面の配置は乱数で決めています。
ただ、同じ配置を再現できるように乱数ルーチンは自前で用意しました。
しかし、乱数で配置を決めるとほとんど解けないような面ばかりできてしまったので、
少しだけハマリが少ないように微調整しています。
それでも結構難しいです・・・（汗
一応６面までは解けることを確認しましたが、初見だと負けると思います。
私が下手なだけかもしれませんが（笑）
配置を決めるルーチンを変更しました。どの面も100%解けます。
（2chのプチコンスレで素晴らしい方法を教えて下さった>>28さんthx!）

描画は全部GRPです。
GCOPYが予想以上に速かったので選択／消去する度に下から全部再描画してます。
7frameで完了するので良しとしました。

スクリーンショット

MJSOL_SCR.JPG

QR コード

プチコンmkII 向けの QR コードです。

PRG:MJSOL 2012-05-25 20:27 更新
1/52/53/5
MJSOL_PRG_4_QR0.pngMJSOL_PRG_4_QR1.pngMJSOL_PRG_4_QR2.png
4/55/5　
MJSOL_PRG_4_QR3.pngMJSOL_PRG_4_QR4.png　
GRP:MJSOL 最初の物と同じです
1/62/63/6
MJSOL_GRP_1_QR0.pngMJSOL_GRP_1_QR1.pngMJSOL_GRP_1_QR2.png
4/65/66/6
MJSOL_GRP_1_QR3.pngMJSOL_GRP_1_QR4.pngMJSOL_GRP_1_QR5.png

プログラムリスト

  1. ＣＬＥＡＲ：ＡＣＬＳ
  2. ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ
  3. ＶＩＳＩＢＬＥ　１，１，１，１，１，１
  4. ＰＮＬＴＹＰＥ　”ＯＦＦ”
  6. ＣＨＲＩＮＩＴ　”ＢＧＵ０”
  7. ＢＧＰＡＧＥ　１：ＢＧＣＬＲ　０
  8. ＢＧＦＩＬＬ　１，０，０，３１，２３，１０，０，０，０
  10. ＧＰＡＧＥ　０，３，３：ＧＣＬＳ　０：ＧＰＲＩＯ　２
  12. ＧＲＰＤＲＡＷ＝１
  13. ＧＰＡＧＥ　１，ＧＲＰＤＲＡＷ，ＧＲＰＤＲＡＷ　ＸＯＲ　１：ＧＣＬＳ　０：ＧＰＲＩＯ　２
  14. ＬＯＡＤ　”ＧＲＰ２：ＭＪＳＯＬ”，ＦＡＬＳＥ
  15. ＧＯＳＵＢ　＠ＰＡＬ＿ＳＥＴ
  17. ＤＩＭ　ＭＥＮ０（５，１７＊１０）
  18. ＤＩＭ　ＭＥＮ１（５，１７＊１０）
  19. ＤＩＭ　ＭＥＮ２（５，１７＊１０）
  20. ＤＩＭ　Ｕ（３７）
  22. ＧＯＳＵＢ　＠ＭＥＮ＿ＩＮＩＴ
  24. ＳＴＡＧＥ＝１
  25. ＠ＦＲＯＭ＿ＴＩＴＬＥ
  26. ＧＯＳＵＢ　＠ＴＩＴＬＥ
  27. Ｓ＝ＳＴＡＧＥ
  28. ＩＦ　Ｓ＝＝１４　ＯＲ　Ｓ＝＝２０　ＯＲ　Ｓ＝＝３３　ＴＨＥＮ　Ｓ＝Ｓ＋１００
  29. ＩＦ　Ｓ＝＝５２　ＯＲ　Ｓ＝＝６４　ＯＲ　Ｓ＝＝８１　ＴＨＥＮ　Ｓ＝Ｓ＋１００
  30. Ａ＝Ｓ：ＧＯＳＵＢ　＠ＲＡＮＤＯＭＩＺＥ
  31. ＧＯＳＵＢ　＠ＭＥＮ＿ＩＮＩＴ３
  32. ＧＰＡＧＥ　１，ＧＲＰＤＲＡＷ，ＧＲＰＤＲＡＷ　ＸＯＲ　１
  33. ＧＯＳＵＢ　＠ＲＥＤＲＡＷ
  34. ＬＯＣＡＴＥ　１０，１３：ＰＲＩＮＴ　”　　Б　ＧＩＶＥ　ＵＰ”
  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. 　ＧＯＴＯ　＠ＭＡＩＮ＿ＬＯＯＰ
  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. 　ＩＦ　ＰＡＬＡＮＩＭ＿Ｗ！＝１　ＴＨＥＮ　ＲＥＴＵＲＮ
  175. 　Ｐ＝１６＋ＰＡＬＡＮＩＭ＿Ｃ
  176. 　ＰＡＬＡＮＩＭ＿Ｃ＝ＰＡＬＡＮＩＭ＿Ｃ＋１
  177. 　ＩＦ　ＰＡＬＡＮＩＭ＿Ｃ＞５　ＴＨＥＮ　ＰＡＬＡＮＩＭ＿Ｃ＝０
  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. 　＠ＭＥ＿ＩＮ３＿１１
  298. 　ＭＥＮ１（Ｚ０，Ｙ０＊１７＋Ｘ０）＝ＲＲ
  299. 　’−−
  300. 　＠ＭＥ＿ＩＮ３＿２０
  301. 　Ａ＝８：ＧＯＳＵＢ　＠ＲＡＮＤ：Ｙ１＝Ｒ＋１
  302. 　Ａ＝１５：ＧＯＳＵＢ　＠ＲＡＮＤ：Ｘ１＝Ｒ＋１
  303. 　ＩＦ　Ｙ０＝＝Ｙ１　ＡＮＤ　Ｘ０＝＝Ｘ１　ＴＨＥＮ　＠ＭＥ＿ＩＮ３＿２０
  304. 　Ｚ１＝４
  305. 　＠ＭＥ＿ＩＮ３＿２２
  306. 　Ｎ＝ＭＥＮ２（Ｚ１，Ｙ１＊１７＋Ｘ１）
  307. 　ＩＦ　Ｎ＝＝９８　ＴＨＥＮ　＠ＭＥ＿ＩＮ３＿２１
  308. 　ＩＦ　Ｚ１＞０　ＴＨＥＮ　Ｚ１＝Ｚ１−１：ＧＯＴＯ　＠ＭＥ＿ＩＮ３＿２２
  309. 　ＧＯＴＯ　＠ＭＥ＿ＩＮ３＿２０
  310. 　＠ＭＥ＿ＩＮ３＿２１
  311. 　ＭＥＮ１（Ｚ１，Ｙ１＊１７＋Ｘ１）＝ＲＲ
  312. 　’−−
  313. 　ＦＯＲ　Ｉ＝０　ＴＯ　１
  314. 　　ＺＺ＝Ｚ０：ＹＹ＝Ｙ０：ＸＸ＝Ｘ０
  315. 　　ＩＦ　Ｉ＝＝１　ＴＨＥＮ　ＺＺ＝Ｚ１：ＹＹ＝Ｙ１：ＸＸ＝Ｘ１
  316. 　　ＭＥＮ２（ＺＺ，ＹＹ＊１７＋ＸＸ）＝０
  317. 　　ＩＦ　ＺＺ＝＝０　ＴＨＥＮ　＠ＭＥ＿ＩＮ３＿３０
  318. 　　ＩＦ　ＺＺ！＝４　ＴＨＥＮ　＠ＭＥ＿ＩＮ３＿３１
  319. 　　’　Ｚ＝＝４
  320. 　　ＭＥＮ２（３，４＊１７＋７）＝９８
  321. 　　ＭＥＮ２（３，４＊１７＋８）＝９８
  322. 　　ＭＥＮ２（３，５＊１７＋７）＝９８
  323. 　　ＭＥＮ２（３，５＊１７＋８）＝９８
  324. 　　ＧＯＴＯ　＠ＭＥ＿ＩＮ３＿４０
  325. 　　＠ＭＥ＿ＩＮ３＿３１
  326. 　　’　Ｚ＝＝１，２，３
  327. 　　Ｎ＝９９
  328. 　　ＩＦ　ＭＥＮ２（ＺＺ−１，ＹＹ＊１７＋ＸＸ−１）＝＝０　ＴＨＥＮ　Ｎ＝９８
  329. 　　ＩＦ　ＭＥＮ２（ＺＺ−１，ＹＹ＊１７＋ＸＸ＋１）＝＝０　ＴＨＥＮ　Ｎ＝９８
  330. 　　ＭＥＮ２（ＺＺ−１，ＹＹ＊１７＋ＸＸ）＝Ｎ
  331. 　　＠ＭＥ＿ＩＮ３＿３０
  332. 　　ＩＦ　ＭＥＮ２（ＺＺ，ＹＹ＊１７＋ＸＸ−１）＝＝９９　ＡＮＤ　ＭＥＮ２（ＺＺ＋１，ＹＹ＊１７＋ＸＸ−１）＝＝０　ＴＨＥＮ　ＭＥＮ２（ＺＺ，ＹＹ＊１７＋ＸＸ−１）＝９８
  333. 　　ＩＦ　ＭＥＮ２（ＺＺ，ＹＹ＊１７＋ＸＸ＋１）＝＝９９　ＡＮＤ　ＭＥＮ２（ＺＺ＋１，ＹＹ＊１７＋ＸＸ＋１）＝＝０　ＴＨＥＮ　ＭＥＮ２（ＺＺ，ＹＹ＊１７＋ＸＸ＋１）＝９８
  334. 　　ＩＦ　ＸＸ＝＝１　ＴＨＥＮ　ＭＥＮ２（０，５＊１７＋２）＝９８
  335. 　　ＩＦ　ＸＸ＝＝１４　ＴＨＥＮ　ＭＥＮ２（０，４＊１７＋１３）＝９８
  336. 　　’−
  337. 　　ＩＦ　ＸＸ！＝１３　ＴＨＥＮ　＠ＭＥ＿ＩＮ３＿４０
  338. 　　ＩＦ　ＭＥＮ２（０，５＊１７＋１４）！＝９９　ＴＨＥＮ　＠ＭＥ＿ＩＮ３＿４０
  339. 　　ＩＦ　ＹＹ！＝４　ＡＮＤ　ＹＹ！＝５　ＴＨＥＮ　＠ＭＥ＿ＩＮ３＿４０
  340. 　　ＩＦ　ＭＥＮ２（０，４＊１７＋１３）＝＝０　ＡＮＤ　ＭＥＮ２（０，５＊１７＋１３）＝＝０　ＴＨＥＮ　ＭＥＮ２（０，５＊１７＋１４）＝９８
  341. 　　＠ＭＥ＿ＩＮ３＿４０
  342. 　ＮＥＸＴ
  343. 　ＣＯＵＮＴ＝ＣＯＵＮＴ＋２
  344. 　ＩＦ　ＣＯＵＮＴ＜３６＊４　ＴＨＥＮ　＠ＭＥ＿ＩＮ３＿００
  345. 　ＲＥＴＵＲＮ
  346. ’−−−−−−−−−−−−−−−−−−−−−−
  347. ＠ＲＥＤＲＡＷ
  348. 　ＧＣＬＳ
  349. 　ＦＯＲ　Ｚ０＝０　ＴＯ　３
  350. 　　ＩＦ　Ｚ０＝＝０　ＴＨＥＮ　ＳＸ＝１：ＳＹ＝１：ＥＸ＝１５：ＥＹ＝８
  351. 　　ＩＦ　Ｚ０＝＝１　ＴＨＥＮ　ＳＸ＝５：ＳＹ＝２：ＥＸ＝１０：ＥＹ＝７
  352. 　　ＩＦ　Ｚ０＝＝２　ＴＨＥＮ　ＳＸ＝６：ＳＹ＝３：ＥＸ＝９：ＥＹ＝６
  353. 　　ＩＦ　Ｚ０＝＝３　ＴＨＥＮ　ＳＸ＝７：ＳＹ＝４：ＥＸ＝８：ＥＹ＝５
  354. 　　Ｙ１＝−４−Ｚ０＊４＋ＳＹ＊２０
  355. 　　ＦＯＲ　Ｙ０＝ＳＹ　ＴＯ　ＥＹ
  356. 　　　Ｘ１＝−１０−Ｚ０＊４＋ＳＸ＊１６
  357. 　　　ＦＯＲ　Ｘ０＝ＳＸ　ＴＯ　ＥＸ
  358. 　　　　Ｃ１＝０
  359. 　　　　ＩＦ　Ｚ０＝＝ＳＥＬＺ０　ＡＮＤ　Ｙ０＝＝ＳＥＬＹ０　ＡＮＤ　Ｘ０＝＝ＳＥＬＸ０　ＴＨＥＮ　Ｃ１＝９６
  360. 　　　　Ｃ０＝ＭＥＮ１（Ｚ０，Ｙ０＊１７＋Ｘ０）
  361. 　　　　ＩＦ　Ｃ０！＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＵＴ＿ＰＡＩ
  362. 　　　　Ｘ１＝Ｘ１＋１６
  363. 　　　ＮＥＸＴ　Ｘ０
  364. 　　　Ｙ１＝Ｙ１＋２０
  365. 　　ＮＥＸＴ　Ｙ０
  366. 　ＮＥＸＴ　Ｚ０
  367. 　Ｚ０＝４：Ｙ０＝４：Ｘ０＝７
  368. 　Ｃ１＝０
  369. 　ＩＦ　Ｚ０＝＝ＳＥＬＺ０　ＡＮＤ　Ｙ０＝＝ＳＥＬＹ０　ＡＮＤ　Ｘ０＝＝ＳＥＬＸ０　ＴＨＥＮ　Ｃ１＝９６
  370. 　Ｃ０＝ＭＥＮ１（Ｚ０，Ｙ０＊１７＋Ｘ０）
  371. 　ＩＦ　Ｃ０＝＝０　ＴＨＥＮ　＠ＲＥＤＲＡＷ＿０
  372. 　Ｘ１＝−１０−Ｚ０＊４＋Ｘ０＊１６＋１０
  373. 　Ｙ１＝−４−Ｚ０＊４＋Ｙ０＊２０＋１０
  374. 　ＧＯＳＵＢ　＠ＰＵＴ＿ＰＡＩ
  375. 　＠ＲＥＤＲＡＷ＿０
  376. 　ＧＲＰＤＲＡＷ＝ＧＲＰＤＲＡＷ　ＸＯＲ　１
  377. 　ＧＰＡＧＥ　１，ＧＲＰＤＲＡＷ，ＧＲＰＤＲＡＷ　ＸＯＲ　１
  378. 　ＲＥＴＵＲＮ
  379. ’−−−−−−−−−−−−−−−−−−−−−−
  380. ＠ＴＩＭＥ＿ＣＯＵＮＴ
  381. 　ＩＦ　Ｘ０＝＝１　ＴＨＥＮ　＠ＴＩ＿ＣＯ＿０
  382. 　　ＴＩＭＥ＿ＣＯＵＮＴＥＲ＝ＭＡＩＮＣＮＴＬ
  383. 　　ＲＥＴＵＲＮ
  384. 　＠ＴＩ＿ＣＯ＿０
  385. 　Ｘ０＝ＭＡＩＮＣＮＴＬ−ＴＩＭＥ＿ＣＯＵＮＴＥＲ
  386. 　ＲＥＴＵＲＮ
  387. ’−−−−−−−−−−−−−−−−−−−−−−
  388. ＠ＲＡＮＤＯＭＩＺＥ
  389. 　ＲＡＮＤ＿Ｘ＝Ａ
  390. 　ＲＥＴＵＲＮ
  391. ’−−−−−−−−−−−−−−−−−−−−−−
  392. ＠ＲＡＮＤ
  393. 　ＲＡＮＤ＿Ｘ＝（ＲＡＮＤ＿Ｘ＊３１＋１２３５）　ＡＮＤ　１６３８３
  394. 　Ｒ＝ＦＬＯＯＲ（（ＲＡＮＤ＿Ｘ／１６３８４）＊Ａ）
  395. 　ＲＥＴＵＲＮ
  396. ’−−−−−−−−−−−−−−−−−−−−−−
  397. ＠ＰＡＬ＿ＳＥＴ
  398. 　ＲＥＳＴＯＲＥ　＠ＰＡＬ＿ＤＡＴＡ
  399. 　ＦＯＲ　Ｉ＝０　ＴＯ　２３
  400. 　　ＲＥＡＤ　Ｃ＄
  401. 　　ＣＯＬＳＥＴ　”ＧＲＰ”，Ｉ，Ｃ＄
  402. 　ＮＥＸＴ
  403. 　ＲＥＴＵＲＮ
  404. 　＠ＰＡＬ＿ＤＡＴＡ
  405. 　ＤＡＴＡ　”００００００”，”ＤＥＡ６７３”，”Ｅ７Ｂ６７Ｂ”，”ＢＤＣ７ＣＥ”
  406. 　ＤＡＴＡ　”ＣＥＤ７ＤＥ”，”ＦＦＦＦＦＦ”，”００００００”，”ＦＦ００００”
  407. 　ＤＡＴＡ　”００ＡＡ００”，”３９８２Ｃ６”，”００００００”，”００００００”
  408. 　ＤＡＴＡ　”００００００”，”００００００”，”００００００”，”７４ＢＣＦＦ”
  409. 　ＤＡＴＡ　”７４ＢＣＦＦ”，”Ａ２Ｄ２ＦＦ”，”Ｄ０Ｅ８ＦＦ”，”ＦＦＦＦＦＦ”
  410. 　ＤＡＴＡ　”Ｄ１Ｅ９ＦＦ”，”Ａ３Ｄ３ＦＦ”，”７４ＢＣＦＦ”，”００００００”
  411. ’−−−−−−−−−−−−−−−−−−−−−−
  412. ＠ＴＩＴＬＥ
  413. 　ＣＬＳ
  414. 　Ｘ＝１０
  415. 　＠ＴＩＴＬＥ＿０
  416. 　Ｓ＄＝ＲＩＧＨＴ＄（”　”＋ＳＴＲ＄（ＳＴＡＧＥ），２）
  417. 　ＬＯＣＡＴＥ　Ｘ，　８：ＰＲＩＮＴ　”　　　　　　　　　　　↑”
  418. 　ＬＯＣＡＴＥ　Ｘ，　９：ＰＲＩＮＴ　”　　ＳＴＡＧＥ＝　←　”；Ｓ＄；”　→”
  419. 　ＬＯＣＡＴＥ　Ｘ，１０：ＰＲＩＮＴ　”　　　　　　　　　　　↓”
  420. 　ＬＯＣＡＴＥ　Ｘ，１１：ＰＲＩＮＴ　””
  421. 　ＬＯＣＡＴＥ　Ｘ，１２：ＰＲＩＮＴ　”　　А　ＳＴＡＲＴ”
  422. 　ＶＳＹＮＣ　１
  423. 　ＧＯＳＵＢ　＠ＫＥＹＲＥＰＥＡＴ
  424. 　ＩＦ　ＫＥＹＲＥＰ　ＡＮＤ　１　ＴＨＥＮ　ＳＴＡＧＥ＝ＳＴＡＧＥ＋１０
  425. 　ＩＦ　ＫＥＹＲＥＰ　ＡＮＤ　２　ＴＨＥＮ　ＳＴＡＧＥ＝ＳＴＡＧＥ−１０
  426. 　ＩＦ　ＫＥＹＲＥＰ　ＡＮＤ　４　ＴＨＥＮ　ＳＴＡＧＥ＝ＳＴＡＧＥ−１
  427. 　ＩＦ　ＫＥＹＲＥＰ　ＡＮＤ　８　ＴＨＥＮ　ＳＴＡＧＥ＝ＳＴＡＧＥ＋１
  428. 　ＩＦ　ＳＴＡＧＥ＜０　ＴＨＥＮ　ＳＴＡＧＥ＝１００＋ＳＴＡＧＥ
  429. 　ＩＦ　ＳＴＡＧＥ＞９９　ＴＨＥＮ　ＳＴＡＧＥ＝ＳＴＡＧＥ−１００
  430. 　ＩＦ　ＢＵＴＴＯＮ（２）　ＡＮＤ　１６　ＴＨＥＮ　ＢＥＥＰ　７：ＧＯＴＯ　＠ＴＩＴＬＥ＿１
  431. 　ＧＯＴＯ　＠ＴＩＴＬＥ＿０
  432. 　＠ＴＩＴＬＥ＿１
  433. 　ＣＬＳ
  434. 　ＬＯＣＡＴＥ　Ｘ，　９：ＰＲＩＮＴ　”　　ＳＴＡＧＥ＝　　　”；Ｓ＄；”　　”
  435. 　ＲＥＴＵＲＮ
  436. ’−−−−−−−−−−−−−−−−−−−−−−
  437. ＠ＫＥＹＲＥＰＥＡＴ
  438. 　ＫＥＹＲＥＰ＝０
  439. 　Ｋ＝ＢＵＴＴＯＮ（）　ＡＮＤ　１５
  440. 　ＩＦ　Ｋ！＝ＫＥＹＲＥＰ＿Ｐ　ＴＨＥＮ　＠ＫＥＹＲＥＰ＿１　ＥＬＳＥ　＠ＫＥＹＲＥＰ＿２
  441. 　　＠ＫＥＹＲＥＰ＿１
  442. 　　　ＫＥＹＲＥＰ＿Ｐ＝Ｋ
  443. 　　　ＫＥＹＲＥＰ＿Ｃ＝０
  444. 　　　ＫＥＹＲＥＰ＿Ｆ＝ＴＲＵＥ
  445. 　　　ＫＥＹＲＥＰ＝ＢＴＲＩＧ（）
  446. 　　　ＲＥＴＵＲＮ
  447. 　　＠ＫＥＹＲＥＰ＿２
  448. 　　　ＩＦ　Ｋ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  449. 　　　ＫＥＹＲＥＰ＿Ｃ＝ＫＥＹＲＥＰ＿Ｃ＋１
  450. 　　　Ｃ＝６
  451. 　　　ＩＦ　ＫＥＹＲＥＰ＿Ｆ　ＴＨＥＮ　Ｃ＝２０
  452. 　　　ＩＦ　ＫＥＹＲＥＰ＿Ｃ＜Ｃ　ＴＨＥＮ　ＲＥＴＵＲＮ
  453. 　　　ＫＥＹＲＥＰ＝Ｋ
  454. 　　　ＫＥＹＲＥＰ＿Ｃ＝０
  455. 　　　ＫＥＹＲＥＰ＿Ｆ＝ＦＡＬＳＥ
  456. 　ＲＥＴＵＲＮ
  457. ’−−−−−−−−−−−−−−−−−−−−−−
  458. ＠ＬＯＯＰ
  459. 　ＶＳＹＮＣ　１
  460. 　ＧＯＴＯ　＠ＬＯＯＰ
  461. ’−−−−−−−−−−−−−−−−−−−−−−
  462. ’−−−−−−−−−−−−−−−−−−−−−−
  463. ’−−−−−−−−−−−−−−−−−−−−−−

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。

  • 名無しさん : これはすごい。99面もパターンがありますが、必ずしも解けるとは限らないのですか？ (2012/05/14 (月) 23:36:39)
  • 投稿者 : 解けない面はあると思います。ハマリパターンを完璧にはチェックしてないので（汗ｗ (2012/05/15 (火) 00:49:35)
  • 名無しさん : プレイ中に画面の一番下あたり（緑の部分）をタッチすると、プログラムが終了してしまうようです。普通に遊ぶ分には全く問題ないのですが念のためご報告しました。 (2012/05/15 (火) 00:50:59)
  • 投稿者 : あ、そのバグ、有りそうだな、って思ってたのにチェックしてませんでした。タッチ座標を変換して配列にアクセスするときに配列の範囲外になっちゃうんですよね。後ほど修正しておきます。 (2012/05/15 (火) 01:09:01)
  • 投稿者 : ↑↑QRとリスト更新しました。気になるようでしたらPRGのQR再読み込み、もしくはリストに120、149行を追加してください。 (2012/05/15 (火) 01:57:43)
  • 名無しさん : プチコンスレでいい案が出てましたね。クリアできないんじゃ、やる気が出ないので･･･ (2012/05/15 (火) 12:04:31)
  • 名無しさん : ↑↑対応ありがとうございます。 (2012/05/15 (火) 18:40:03)
  • 名無しさん : 上海は好きなゲームなので作ってもらえてすげー嬉しいのですが (2012/05/15 (火) 23:40:49)
  • 名無しさん : ↑途中でエンター押してしまった　ＱＲの画像が大きくて自分の環境じゃ表示出来なくて残念皆さんの評価は良さそうなのでこれからもプログラム頑張ってください (2012/05/15 (火) 23:47:25)
  • 投稿者 : ↑QR小さくしてみました。 (2012/05/19 (土) 22:53:57)
  • 名無しさん : 修正お疲れ様です！　これで安心して遊べます。ありがとう。 (2012/05/19 (土) 23:21:17)
  • ど素人 : これでもう「解けない配置だったかも……」と自分に言い訳できなくなりました（爆）グラフィックもボリュームも凄いの一言です。 (2012/05/20 (日) 00:42:48)
  • 名無しさん : 2ちゃんのほうにも書きましたが、クリアタイムを記録しておく機能があると、一度クリアしても、タイムアタックで長く楽しめる気が。 (2012/05/21 (月) 13:56:52)
  • 名無しさん : 14, 20, 33, 52, 64, 81面が開始できないバグはもう修正された？ (2012/05/22 (火) 15:32:28)
  • 投稿者 : バグ修正しました。遅くなってすみません。 (2012/05/25 (金) 20:33:16)
  • 名無しさん : 0面ではじめられちゃいますね。で、固まる。 (2012/05/25 (金) 21:18:32)
  • Lv100 : ＞＞２８（説明文の）さんは何処のスレの人ですか？ (2012/05/25 (金) 23:54:21)
  • 名無しさん : たぶんこのスレだろう　http://toro.2ch.net/test/read.cgi/handygame/1336902883/ (2012/05/26 (土) 00:33:42)
  • 権兵衛さん : 「これ以上取れませんよ」判定、お願いします。 (2012/05/26 (土) 02:41:32)
  • 権兵衛さん : ０面で・・の対応策。 (2012/05/26 (土) 03:18:46)
  • 権兵衛さん : 427 IF STAGE <=1 THEN STAGE=1 を挿入・・・で、直った (2012/05/26 (土) 03:21:57)
  • 名無しさん : ↑だと1→99ができなくなるけど、できるようにするのはちょっと面倒くさそう。 (2012/05/26 (土) 09:38:08)
  • 権兵衛さん : ↑あれ？、本当ですかぁ〜？、おっかしい〜な〜。 (2012/05/26 (土) 14:31:17)
  • 名無しさん : ↑ん？　1→2･･･98→99→1 はできるけど、1→99はできなくなりませんか？ (2012/05/26 (土) 15:58:36)
  • 権兵衛さん : あっ、本当だ・・・、でも、上十字キーを押せばいいと、思うのですが？ (2012/05/26 (土) 18:56:16)
  • 名無しさん : それでよければ。投稿者さんの考え方次第ですね。とりあえず0面が選べなければＯＫだし。 (2012/05/26 (土) 19:32:28)
  • 権兵衛さん : そうですね。余計なことをしちゃったかな？投稿者さん、ごめんなさい。 (2012/05/26 (土) 20:46:15)
  • 名無しさん : 428行をSTAGE<1、STAGE=99+STAGEに変えて429行をSATGE=STAGE-99に変えれば0面は選べなくなる (2012/05/26 (土) 21:46:09)
  • 権兵衛さん : もう一つの方法：@RANDOMIZEのすぐ下に、IF A==0 THEN A=100を挿入。ステージ０が復活します、でも実際はステージ100。お試しあれ (2012/05/26 (土) 22:28:02)
  • 名無しさん : 上に別の牌が重なっている牌が取れてしまう（上の牌が浮いた状態になる）仕様は、ゲーム性を損なう気が・・・。 (2012/06/04 (月) 15:38:25)
  • 名無しさん : ゲームが始まらないのですが… (2012/08/28 (火) 18:03:47)
  • ねじ : 私はmkIIでちゃんと動いてます。 (2013/11/03 (日) 17:18:38)
  • かつみ : 他の面も欲しいな〜と感じます。 (2014/01/12 (日) 00:58:06)
  • ijezqfzuq : yQYRmeABMdn (2014/06/04 (水) 09:10:30)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.153 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:19 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30