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

投稿プログラム : アニメーション作成

パンくずリスト

2012年5月20日投稿 / 投稿者 : いったん / タグ : 投稿プログラム ツール QRコード mkII専用

概要

簡単なアニメーションを作成するソフトです。
16枚のアニメを作ることができます。
キャラクター定義に時間がかかるので作るのにかなり時間がかかります。
またセーブ＆ロードもグラフィックに情報を書き出しているので30〜40秒かかります。
ご了承ください。

諸注意

  1. バグや誤字があるかもしれません。そのところは自己責任でお願いします。
  2. アニメーションに SPU,BGU,SPS のキャラクターを利用しています。なので元あったキャラクターは消えます。
    • ＦＩＬＥＭＥＮＵ→Ｅで初期状態に戻ります。
  3. まだ機能が少ないのでどんどん改造してやってください。

スクリーンショット・動画

動作しているところを撮影した写真や動画があれば貼り付けてください。

QR コード

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

PRG:ANIME
1/42/4
qr0.PNGqr1.PNG
3/44/4
qr2.PNGqr3.PNG

プログラムリスト

  1. ’ａｎｉｍｅ　ｅｄｉｔｏｒ　ｖ１．００　ｂｙ　ｉｔｔａｎ
  2. ’
  3. ’キヲツケテ　ホシイコト　ナト゛
  4. ’１．
  5. ’ハ゛ク゛＆コ゛シ゛　カ゛アルカモ　シレマセン。
  6. ’ソコハ　シ゛コセキニンテ゛　オネカ゛イシマス。
  7. ’マタ、ｗｉｋｉニ　ホウコクシテイタタ゛クト
  8. ’タスカリマス。
  9. ’２．
  10. ’ＳＰＵ，ＢＧＵ，ＳＰＳナト゛ノ　キャラ　ヲ　シヨウ
  11. ’シテイルノ　テ゛　モトアッタモノハ　ケサレマス。チュウイ
  12. ’ファイル→ＥＮＤ　テ゛　ショキシ゛ョウタイ　ニ
  13. ’モト゛リマス。
  14. ’３．
  15. ’マタ゛　キノウカ゛　スクナイノテ゛　ト゛ント゛ン
  16. ’カイソ゛ウ　シテミテ　クタ゛サイ。
  18. ＡＣＬＳ：ＣＬＥＡＲ
  19. ＰＮＬＴＹＰＥ　”ＯＦＦ”
  20. ＭＡＸＰ＝１６
  21. ＤＩＭ　Ｃ＄（ＭＡＸＰ），ＣＯＰＹＣ＄（３２）
  22. ＤＡＴＡ　ＳＰＵ０，ＳＰＵ１，ＳＰＵ２，ＳＰＵ３，ＳＰＵ４
  23. ＤＡＴＡ　ＳＰＵ５，ＳＰＵ６，ＳＰＵ７，ＳＰＳ０，ＳＰＳ１
  24. ＤＡＴＡ　ＢＧＵ１Ｕ，ＢＧＵ２Ｕ，ＢＧＵ３Ｕ
  25. ＤＡＴＡ　ＢＧＵ１Ｌ，ＢＧＵ２Ｌ，ＢＧＵ３Ｌ
  26. ＦＯＲ　Ｉ＝０　ＴＯ　ＭＡＸＰ−１：ＲＥＡＤ　Ｃ＄（Ｉ）
  27. ＮＥＸＴ
  28. ＩＣＯＮＰＵＳＥ＝０
  29. ＩＣＯＮＳＥＴ　０，８
  30. ＩＣＯＮＳＥＴ　１，９
  31. ＩＣＯＮＳＥＴ　２，５９
  32. ＣＯＬ＝１５　　
  33. Ｖ＄＝”１．００”
  34. ＰＡＧＥ＝０
  35. ＧＯＳＵＢ　＠ＣＯＬＣＨ
  37. ＠ＭＡＩＮＳ　メインカ゛メン
  38. ？”┌──────────────────┐
  39. ？”│ａｎｉｍｅ　ｅｄｉｔｏｒ　ｖ”；Ｖ＄；”│”
  40. ？”└──────────────────┘
  41. ？
  42. ？”А：カラ−　ヘンコウ
  43. ？”Б：スクリ−ンクリア／アニメ　ストッフ゜
  44. ？”Х＋タッチ：ｆｉｌｌ　ヌリツフ゛ス
  45. ？”н＋タッチ：ケシコ゛ム
  46. ？”　　タッチ：カラ−ヘ゜ン
  47. ？”ＳＴＡＲＴ：アニメ　スタ−ト
  48. ？”↑：マエノ　ヘ゜−シ゛／アニメスヒ゜−ト゛ｕｐ
  49. ？”↓：ツキ゛ノヘ゜−シ゛／アニメスヒ゜−ト゛ｄｏｗｎ
  50. ？”←：マエノ　ヘ゜−シ゛＋コノヘ゜−シ゛ホソ゛ン
  51. ？”→：ツシ゛ノヘ゜−シ゛＋コノヘ゜−シ゛ホソ゛ン
  52. ＰＮＬＳＴＲ　２０，０，”ｃｏｌｏｒ”
  53. ＰＮＬＳＴＲ　２１，１，”┌─┐”
  54. ＰＮＬＳＴＲ　２１，２，”│　│”
  55. ＰＮＬＳＴＲ　２１，３，”└─┘”
  56. ＰＮＬＳＴＲ　０，０，”┌────────────────┐”
  57. ＦＯＲ　Ｉ＝１　ＴＯ　１６
  58. ＰＮＬＳＴＲ　０，Ｉ，”│　　　　　　　　　　　　　　　　│”
  59. ＮＥＸＴ
  60. ＰＮＬＳＴＲ　０，１７，”└────────────────┘”
  63. ＠ＭＡＩＮ　エテ゛ィタ−
  64. ＩＦ　ＤＲＡＷＦＬＧ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ＠ＰＤＲＡＷ
  65. ＢＴ＝ＮＯＴ（Ｂ）　ＡＮＤ　ＢＵＴＴＯＮ（）
  66. Ｂ＝ＢＵＴＴＯＮ（）
  67. ＩＣ＝ＩＣＯＮＣＨＫ（）
  68. ＩＦ　ＢＴ　ＴＨＥＮ　ＧＯＳＵＢ＠ＢＴＮ
  69. ＩＦ　ＩＣ！＝−１　ＴＨＥＮ　ＧＯＳＵＢ＠ＩＣＯＮ
  70. ＩＦ　ＴＣＨＳＴ　ＴＨＥＮ　ＧＯＳＵＢ＠ＴＣＨ
  71. ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　ＬＴ＝０
  72. ＩＦ　ＴＣＨＳＴ＝＝０　ＡＮＤ　ＬＦＬＧ＝＝１　ＴＨＥＮ　ＬＦＬＧ＝０：ＧＦＩＬＬ　ＴＣＨＸ，ＴＣＨＹ，ＬＸ，ＬＹ，ＣＯＬ
  73. ＩＦ　ＴＦＬＧ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ＠ＳＥＴＰ
  74. ＶＳＹＮＣ　１
  75. ＧＯＴＯ＠ＭＡＩＮ
  78. ＠ＢＴＮ　ホ゛タンチェック
  79. ＩＦ　ＢＴ　ＡＮＤ　１　ＴＨＥＮ　Ｐ＝Ｐ−１：ＤＲＡＷＦＬＧ＝ＦＡＬＳＥ
  80. ＩＦ　ＢＴ　ＡＮＤ　２　ＴＨＥＮ　Ｐ＝Ｐ＋１：ＤＲＡＷＦＬＧ＝ＦＡＬＳＥ
  81. ＩＦ　ＢＴ　ＡＮＤ　８　ＴＨＥＮ　Ｐ＝Ｐ＋１：ＤＲＡＷＦＬＧ＝ＦＡＬＳＥ：ＴＦＬＧ＝１
  82. ＩＦ　ＢＴ　ＡＮＤ　４　ＴＨＥＮ　Ｐ＝Ｐ−１：ＤＲＡＷＦＬＧ＝ＦＡＬＳＥ：ＴＦＬＧ＝１
  83. ＩＦ　ＢＴ　ＡＮＤ　３２　ＴＨＥＮ　ＧＦＩＬＬ　８，８，１３５，１３５，０
  84. ＩＦ　ＢＴ　ＡＮＤ　１６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＬＣＨ０
  85. ＩＦ　ＢＴ　ＡＮＤ　１０２４　ＴＨＥＮ　＠ＣＡＮＩＭ
  86. ＩＦ　Ｐ＜０　ＴＨＥＮ　Ｐ＝ＭＡＸＰ−１
  87. ＩＦ　Ｐ＞ＭＡＸＰ−１　ＴＨＥＮ　Ｐ＝０
  88. ＲＥＴＵＲＮ
  90. ＠ＩＣＯＮ　アイコンチェック
  91. ＩＦ　ＩＣ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＰＹ
  92. ＩＦ　ＩＣ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＡＳＴ
  93. ＩＦ　ＩＣ＝＝２　ＴＨＥＮ　ＧＯＴＯ＠ＦＩＬＥＭＥＮＵ
  94. ＲＥＴＵＲＮ
  96. ＠ＴＣＨ　タッチチェック
  97. Ｘ＝ＴＣＨＸ
  98. Ｙ＝ＴＣＨＹ
  99. ＩＦ　Ｘ＞１３５　ＯＲ　Ｙ＞１３５　ＯＲ　Ｘ＜８　ＯＲ　Ｙ＜８　ＴＨＥＮ　ＲＥＴＵＲＮ
  100. ＩＦ　Ｂ　ＡＮＤ　５１２　ＴＨＥＮ　ＧＦＩＬＬ　Ｘ−３，Ｙ−３，Ｘ＋２，Ｙ＋２，０：ＲＥＴＵＲＮ
  101. ＩＦ　Ｂ＝＝１２８　ＡＮＤ　ＬＴ＝＝０　ＴＨＥＮ　ＬＦＬＧ＝１：ＬＴ＝１：ＬＸ＝Ｘ：ＬＹ＝Ｙ
  102. ＩＦ　Ｂ＝＝１２８　ＴＨＥＮ　ＲＥＴＵＲＮ
  103. ＩＦ　ＬＴ＝＝０　ＴＨＥＮ　ＯＸ＝Ｘ：ＯＹ＝Ｙ
  104. ＧＬＩＮＥ　Ｘ，Ｙ，ＯＸ，ＯＹ，ＣＯＬ
  105. ＯＸ＝Ｘ：ＯＹ＝Ｙ
  106. ＬＴ＝１
  107. ＲＥＴＵＲＮ
  109. ＠ＳＥＴＰ　ヘ゜−シ゛カキコミ
  110. ＢＥＥＰ　０
  111. ＬＯＣＡＴＥ　０，３：？”ｗａｉｔ：○○○○○○○○”
  112. ＦＯＲ　Ｊ＝０　ＴＯ　２５５
  113. ＣＨ＄＝””
  114. 　ＦＯＲ　Ｉ＝０　ＴＯ　６３
  115. 　Ｘ＝（Ｊ％１６＊８）＋Ｉ％８＋８
  116. 　Ｙ＝（ＦＬＯＯＲ（Ｊ／１６）＊８）＋ＦＬＯＯＲ（Ｉ／８）＋８
  117. 　Ｃ＝ＧＳＰＯＩＴ（Ｘ，Ｙ）
  118. 　ＣＨ＄＝ＣＨ＄＋ＨＥＸ＄（Ｃ）
  119. 　ＮＥＸＴ　
  120. 　ＣＨＲＳＥＴ　Ｃ＄（ＰＡＧＥ），Ｊ，ＣＨ＄
  121. ＩＦ　Ｊ％３２＝＝０　ＴＨＥＮ　ＬＯＣＡＴＥ　Ｊ／３２＋５，３：？”●”；
  122. ＮＥＸＴ
  123. ＢＥＥＰ　３
  124. ＴＦＬＧ＝０
  125. ＬＯＣＡＴＥ　０，３：？”　　　　　　　　　　　　　”
  126. ＲＥＴＵＲＮ
  128. ＠ＣＯＰＹ　ヘ゜−シ゛ヲ　ヘンスウニ　カクノウ
  129. ＢＥＥＰ　０
  130. ＬＯＣＡＴＥ　０，３：？”ｗａｉｔ：○○○○○○○○”
  131. ＦＯＲ　Ｊ＝０　ＴＯ　１２８＊６４−１
  132. Ｘ＝Ｊ％６４＊２＋８
  133. Ｙ＝ＦＬＯＯＲ（Ｊ／６４）＋８
  134. Ｃ０＝ＧＳＰＯＩＴ（Ｘ，Ｙ）
  135. Ｃ１＝ＧＳＰＯＩＴ（Ｘ＋１，Ｙ）
  136. ＩＦ　Ｊ％２５６＝＝０　ＴＨＥＮ　ＣＯＰＹＣ＄（Ｊ／２５６）＝””
  137. ＣＰ＄＝ＣＯＰＹＣ＄（ＦＬＯＯＲ（Ｊ／２５６））
  138. ＣＰ＄＝ＣＰ＄＋ＣＨＲ＄（Ｃ０＊１６＋Ｃ１）
  139. ＣＯＰＹＣ＄（ＦＬＯＯＲ（Ｊ／２５６））＝ＣＰ＄
  140. ＩＦ　Ｊ％１０２４＝＝０　ＴＨＥＮ　ＬＯＣＡＴＥ　Ｊ／１０２４＋５，３：？”●”；
  141. ＮＥＸＴ
  142. ＢＥＥＰ　３
  143. ＬＯＣＡＴＥ　０，３：？”　　　　　　　　　　　　　”
  144. ＲＥＴＵＲＮ
  146. ＠ＰＡＳＴ　カクノウシタ　ヘンスウ　トリタ゛シ
  147. ＩＦ　ＣＯＰＹＣ＄（０）＝＝””　ＴＨＥＮ　ＲＥＴＵＲＮ
  148. ＢＥＥＰ　０
  149. ＬＯＣＡＴＥ　０，３：？”ｗａｉｔ：○○○○○○○○”
  150. ＦＯＲ　Ｊ＝０　ＴＯ　１２８＊６４−１
  151. ＣＨ＄＝ＭＩＤ＄（ＣＯＰＹＣ＄（ＦＬＯＯＲ（Ｊ／２５６）），Ｊ％２５６，１）
  152. Ｃ０＝ＦＬＯＯＲ（ＡＳＣ（ＣＨ＄）／１６）
  153. Ｃ１＝ＡＳＣ（ＣＨ＄）％１６
  154. Ｘ＝（Ｊ％６４）＊２＋８
  155. Ｙ＝ＦＬＯＯＲ（Ｊ／６４）＋８
  156. ＧＰＳＥＴ　Ｘ，Ｙ，Ｃ０
  157. ＧＰＳＥＴ　Ｘ＋１，Ｙ，Ｃ１
  158. ＩＦ　Ｊ％１０２４＝＝０　ＴＨＥＮ　ＬＯＣＡＴＥ　Ｊ／１０２４＋５，３：？”●”；
  159. ＮＥＸＴ
  160. ＢＥＥＰ　３
  161. ＬＯＣＡＴＥ　０，３：？”　　　　　　　　　　　　　”
  162. ＲＥＴＵＲＮ
  164. ＠ＣＯＬＣＨ０
  165. ＣＯＬ＝ＣＯＬ＋１　ＡＮＤ　１５
  166. ＠ＣＯＬＣＨ　カラ−　インシ゛
  167. ＧＰＡＧＥ　１
  168. ＧＦＩＬＬ　１７３，１３，１８６，２６，ＣＯＬ
  169. ＰＮＬＳＴＲ　２２，４，ＳＴＲ＄（ＣＯＬ）＋”　”
  170. ＲＥＴＵＲＮ
  172. ＠ＰＤＲＡＷ　ヒョウシ゛
  173. ＰＡＧＥ＝Ｐ
  174. ＧＰＡＧＥ　１
  175. Ａ＄＝Ｃ＄（ＰＡＧＥ）
  176. ＦＯＲ　Ｉ＝０　ＴＯ　２５５
  177. Ｘ＝Ｉ％１６＊８＋８
  178. Ｙ＝ＦＬＯＯＲ（Ｉ／１６）＊８＋８
  179. ＧＦＩＬＬ　Ｘ，Ｙ，Ｘ＋７，Ｙ＋７，０
  180. ＧＰＵＴＣＨＲ　Ｘ，Ｙ，Ａ＄，Ｉ，０，１
  181. ＮＥＸＴ
  182. ＤＲＡＷＦＬＧ＝ＴＲＵＥ
  183. ＰＮＬＳＴＲ　０，１８，”ｐａｇｅ：”＋ＳＴＲ＄（ＰＡＧＥ）＋”　　”
  184. ＲＥＴＵＲＮ
  186. ＠ＣＡＮＩＭ　アニメサイセイ
  187. Ｐ＝０：ＴＩＭＥ＝０：ＩＴＶ＝８
  188. ＠ＡＬＯＯＰ
  189. ＰＮＬＳＴＲ　０，１９，”ｉｎｔｅｒｖａｌ：”＋ＳＴＲ＄（ＩＴＶ）＋”　”
  190. ＴＩＭＥ＝ＴＩＭＥ＋１
  191. ＩＦ　ＴＩＭＥ％ＩＴＶ＝＝０　ＴＨＥＮ　Ｐ＝Ｐ＋１：ＧＯＳＵＢ＠ＰＤＲＡＷ
  192. ＩＦ　Ｐ＝＝ＭＡＸＰ−１　ＴＨＥＮ　Ｐ＝−１
  193. ＢＴ＝ＮＯＴ（Ｂ）　ＡＮＤ　ＢＵＴＴＯＮ（）
  194. Ｂ＝ＢＵＴＴＯＮ（）
  195. ＩＦ　ＢＴ　ＡＮＤ　３２　ＴＨＥＮ　ＧＯＴＯ＠ＭＡＩＮ
  196. ＩＦ　ＢＴ　ＡＮＤ　１　ＴＨＥＮ　ＩＴＶ＝ＩＴＶ−１
  197. ＩＦ　ＢＴ　ＡＮＤ　２　ＴＨＥＮ　ＩＴＶ＝ＩＴＶ＋１
  198. ＩＦ　ＩＴＶ＝＝０　ＴＨＥＮ　ＩＴＶ＝１
  199. ＶＳＹＮＣ　１
  200. ＧＯＴＯ＠ＡＬＯＯＰ
  202. ＠ＦＩＬＥＭＥＮＵ　ファイル
  203. ＣＬＳ
  204. ＧＣＬＳ
  205. ？”Ｌ：ｌｏｄｅ　ａｎｉｍｅ
  206. ？”Ｓ：ｓａｖｅ　ａｎｉｍｅ
  207. ？”Ｅ：ｅｎｄ”
  208. Ｉ０＄＝”モ−ト゛センタク”
  209. ＧＯＳＵＢ　＠ＩＰ
  210. Ａ＝ＩＮＳＴＲ（”ＬＳＥ”，Ｎ＄）
  211. ＯＮ　Ａ　ＧＯＳＵＢ　＠ＣＬＯＡＤ，＠ＣＳＡＶＥ，＠ＣＥＮＤ
  212. ＣＬＳ
  213. ＢＥＥＰ　７
  214. ＤＲＡＷＦＬＧ＝ＦＡＬＳＥ
  215. ＧＯＳＵＢ　＠ＣＯＬＣＨ
  216. ＧＯＴＯ＠ＭＡＩＮＳ
  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. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  297. ＠ＣＥＮＤ　オワリ
  298. ＦＯＲ　Ｉ＝０　ＴＯ　ＭＡＸＰ−１
  299. ＣＨＲＩＮＩＴ　Ｃ＄（Ｉ）
  300. ＮＥＸＴ
  301. ＡＣＬＳ
  302. ？”オツカレサマ。”
  303. ＥＮＤ
  305. ＠ＩＰ　ＩＮＰＵＴショリ
  306. ’−−−−−−−−−−−−−−−−−−−−−−−−−−−
  307. ’フツウニ　ＩＮＰＵＴ　スルト　ＳＰＳ１ヲ　
  308. ’イシ゛ッテイルカラ　カ−ソルカ゛　オカシクナルノテ゛
  309. ’ＩＮＫＥＹ＄（）テ゛　タ゛イヨウシマシタ。
  310. ’−−−−−−−−−−−−−−−−−−−−−−−−−−−
  311. ＰＮＬＴＹＰＥ　”ＫＹＡ”
  312. Ｎ＄＝””
  313. Ｙ＝ＣＳＲＹ
  314. ＬＯＣＡＴＥ　０，Ｙ
  315. ？Ｉ０＄
  316. ＠ＩＰＬ
  317. ＬＯＣＡＴＥ　０，Ｙ＋１
  318. ？Ｎ＄”＿　”
  319. Ａ＄＝ＩＮＫＥＹ＄（）
  320. ＩＦ　ＫＥＹＢＯＡＲＤ＝＝１５　ＴＨＥＮ　Ｎ＄＝ＬＥＦＴ＄（Ｎ＄，ＬＥＮ（Ｎ＄）−１＋（Ｎ＄＝＝””））
  321. ＩＦ　Ａ＄＝＝ＣＨＲ＄（１３）　ＴＨＥＮ　ＰＮＬＴＹＰＥ　”ＯＦＦ”：ＲＥＴＵＲＮ
  322. Ｎ＄＝Ｎ＄＋Ａ＄
  323. ＶＳＹＮＣ　１
  324. ＧＯＴＯ＠ＩＰＬ

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

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • 名無しさん : いまいちだな (2012/05/20 (日) 15:31:45)
  • hata0401 : 300行も書けねーよ! (2012/06/13 (水) 20:39:14)
  • いったん（投稿者） : ではぜひqrコードを読み取ってください・・・。プログラムリストは参考用なので打ち込んでもらおうとは思っていないです。 (2012/06/13 (水) 22:09:05)
  • hata0401 : ツカイカタガワマリカセン (2012/07/24 (火) 16:48:09)
  • hata0401 : ツカイカタガワマリカセン (2012/07/24 (火) 16:48:54)
  • 名無しさん : 元は画面のやつを手打ちでうつしたものさ・・・QR超便利 (2012/08/03 (金) 22:59:32)

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