プチコン

  1. ’┌──────────────────────────┐
  2. ’│　ＳＣＲＥＥＮ　ＥＤＩＴＯＲ　ＶＥＲ１．００　　　　│
  3. ’├──────────────────────────┤
  4. ’│　　　（Ｃ）ＳｍｉｌｅＢｏｏｍ　Ｃｏ．Ｌｔｄ．　　　│
  5. ’└──────────────────────────┘
  6. ＶＩＳＩＢＬＥ　１，１，１，１，１，１
  7. ＣＬＥＡＲ
  8. ＣＬＳ：ＣＯＬＯＲ　０
  10. ’－－－　ヘンシュウエリア
  11. ＥＤＸ＝０：ＥＤＹ＝８＊９
  12. ＢＧＬＸ＝ＥＤＸ
  13. ＢＧＬＹ＝－ＥＤＹ
  14. ＢＧＨＸ＝０
  15. ＢＧＨＹ＝０
  16. Ｋ１＝０：Ｋ２＝０
  18. ’－－－　ヘンスウ　ショキカ
  19. ＰＡＬ＝０
  20. ＬＡＹＥＲ＝０
  21. ＲＥＶＨ＝ＦＡＬＳＥ
  22. ＲＥＶＶ＝ＦＡＬＳＥ
  23. ＸＣ＝７
  24. ＣＸ＝０：ＣＹ＝０：ＣＳＸ＝１：ＣＳＹ＝１
  25. ＣＨ＝０
  26. ＣＢＡＮＫ＝０
  27. ＣＮ＄＝”ＢＧＵ”
  28. ＢＴ＝０
  29. ＰＲ＝１
  31. ’－－－　カ゛メン　ショキカ
  32. ＧＯＳＵＢ　＠ＤＩＳＰＩＮＩＴ
  33. ＧＯＳＵＢ　＠ＰＵＴＯＦＳ
  35. ’┌─────────┐
  36. ’│　メインル－フ゜　│
  37. ’└─────────┘
  38. ＠ＭＡＩＮ
  39. 　’
  40. 　ＯＸ＝ＴＸ：ＯＹ＝ＴＹ：ＯＳ＝ＴＳ
  41. 　ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ：ＴＳ＝ＴＣＨＳＴ
  42. 　ＯＬＤＢＴ＝ＢＴ
  43. 　ＢＴ＝ＢＵＴＴＯＮ（）
  44. 　’
  45. 　ＧＯＳＵＢ　＠ＳＥＬＥＣＴ
  46. 　ＧＯＳＵＢ　＠ＣＳＲＭＯＶＥ
  47. 　ＧＯＳＵＢ　＠ＤＲＡＷＣＨＲ
  48. 　ＧＯＳＵＢ　＠ＳＥＴＢＧＯＦＳ
  49. 　ＧＯＳＵＢ　＠ＰＵＴＣＳＥＬ
  50. 　’
  51. 　ＩＦ　ＢＴ＝＝１６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＩＬＥＭＯＤＥ
  52. 　’
  53. 　ＶＳＹＮＣ（０）
  54. 　’
  55. ＧＯＴＯ　＠ＭＡＩＮ
  57. ’┌────────┐
  58. ’│　サフ゛ショリ　│
  59. ’└────────┘
  61. ’──────────────────────────
  62. ＠ＤＩＳＰＩＮＩＴ　’カ゛メンノショキカ
  63. ’──────────────────────────
  64. ＣＬＳ：ＣＯＬＯＲ　０
  65. ＦＯＲ　Ｉ＝０　ＴＯ　３：ＩＣＯＮＣＬＲ　Ｉ：ＮＥＸＴ
  66. ＰＲＩＮＴ”┌──────────────────────────────┐”；
  67. ＰＲＩＮＴ”│ＳＣＲＥＥＮ　ＥＤＩＴＯＲ　ｖ１．００　　　　　　　　　　　│”；
  68. ＰＲＩＮＴ”└──────────────────────────────┘”；
  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. ＣＨＲＳＥＴ　”ＳＰＵ０”，１９，Ｚ＄
  122. ’－－－
  123. ＩＮＰＵＴ　”ウエカ゛メンノＢＧヲショキカシマスカ（Ｙ／Ｎ）”；Ｋ＄
  124. ＩＦ　Ｋ＄＝＝”Ｙ”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＧＣＬＲ
  126. ’－－－　ウエカ゛メンヲシタニコヒ゜－
  127. ＩＮＰＵＴ　”ウエカ゛メンヲコヒ゜－シマスカ（Ｙ／Ｎ）”；Ｋ＄
  128. ＩＦ　Ｋ＄！＝”Ｙ”　ＧＯＴＯ　＠＿ＣＰＹＳＫＰ
  129. ＰＲＩＮＴ　”ＢＧスクリ－ンヲコヒ゜－チュウ”
  130. ＧＯＳＵＢ　＠ＢＧＣＯＰＹ
  131. ＠＿ＣＰＹＳＫＰ
  133. ’－－－　
  134. ＢＧＯＦＳ　０，０，０
  135. ＢＧＯＦＳ　１，０，０
  136. ＢＧＣＬＩＰ　０，０，３１，２３
  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. ＧＯＳＵＢ　＠ＰＵＴＣＳＲ
  170. ’－－－　モトノカ゛ソ゛ウヲヒョウシ゛
  172. ’┌─────────┐
  173. ’│　シタ　カ゛メン　│
  174. ’└─────────┘
  175. ＰＮＬＴＹＰＥ　”ＯＦＦ”
  176. ＧＰＡＧＥ　１：ＧＣＯＬＯＲ　０：ＧＣＬＳ
  177. ＳＰＰＡＧＥ　１：ＳＰＣＬＲ
  178. ＢＧＰＡＧＥ　１
  179. ＢＧＯＦＳ　０，０，０
  180. ＢＧＯＦＳ　１，０，０
  181. ＢＧＣＬＩＰ　０，９，２２，２３
  183. ’－－－
  184. ＣＬＳ
  185. ＬＯＣＡＴＥ　０，２３
  186. ＰＲＩＮＴ”А＝ファイルモ－ト゛　К＋П＝ハンイ”；
  188. ’－－－　ワク
  189. Ｘ＝０：Ｙ＝８
  190. ＰＮＬＳＴＲ　Ｘ，Ｙ，　　　”───────────────────────┬────────”
  191. ＦＯＲ　Ｉ＝１　ＴＯ　１５
  192. 　ＰＮＬＳＴＲ　Ｘ，Ｙ＋Ｉ，”　　　　　　　　　　　　　　　　　　　　　　　│”
  193. ＮＥＸＴ　Ｉ
  194. ＰＮＬＳＴＲ　２３，１１，　”└────────”
  195. ＰＮＬＳＴＲ　２３，１２，　”┌────────”
  196. ＰＮＬＳＴＲ　２３，２１，　”├────────”
  198. ’－－－　キャラハ゛ンク（ＳＰ０－ＳＰ３
  199. ＣＤＸ＝２４＊８：ＣＤＹ＝９＊８：Ｎ＝０
  200. ＦＯＲ　Ｉ＝０　ＴＯ　３
  201. 　Ｘ＝Ｉ＊１６＋ＣＤＸ
  202. 　ＳＰＳＥＴ　Ｎ，Ｉ＋４８，０，０，０，ＰＲ
  203. 　ＳＰＯＦＳ　Ｎ，Ｘ，ＣＤＹ
  204. 　Ｎ＝Ｎ＋１
  205. ＮＥＸＴ
  206. ＧＯＳＵＢ　＠ＣＢＩＣＯＮ
  208. ’－－－　イロハ゛ンク（ＳＰ４－ＳＰ１９
  209. ＰＤＸ＝２４＊８：ＰＤＹ＝１３＊８：ＰＡＬＳＰ＝Ｎ
  210. ＦＯＲ　Ｉ＝０　ＴＯ　１５
  211. 　Ｘ＝ＦＬＯＯＲ（Ｉ％４）＊１６＋ＰＤＸ
  212. 　Ｙ＝ＦＬＯＯＲ（Ｉ／４）＊１６＋ＰＤＹ
  213. 　ＳＰＳＥＴ　Ｎ，Ｉ＋４８，０，０，０，ＰＲ
  214. 　ＳＰＯＦＳ　Ｎ，Ｘ，Ｙ
  215. 　Ｎ＝Ｎ＋１
  216. ＮＥＸＴ
  217. ＧＯＳＵＢ　＠ＰＡＬＩＣＯＮ
  219. ’－－－　ハンテンキコ゛ウ
  220. ＲＤＸ＝２４＊８：ＲＤＹ＝２２＊８：ＲＥＶＳＰ＝Ｎ
  221. ＦＯＲ　Ｉ＝０　ＴＯ　１
  222. 　ＳＰＳＥＴ　Ｎ，Ｉ＋８０，０，０，０，ＰＲ
  223. 　ＳＰＯＦＳ　Ｎ，ＲＤＸ＋Ｉ＊１６，ＲＤＹ
  224. 　Ｎ＝Ｎ＋１
  225. ＮＥＸＴ
  226. ＧＯＳＵＢ　＠ＲＥＶＩＣＯＮ
  228. ’－－－　レイヤーキコ゛ウ
  229. ＬＤＸ＝２８＊８：ＬＤＹ＝２２＊８：ＬＡＹＳＰ＝Ｎ
  230. ＦＯＲ　Ｉ＝０　ＴＯ　１
  231. 　ＳＰＳＥＴ　Ｎ，７５－Ｉ，０，０，０，ＰＲ
  232. 　ＳＰＯＦＳ　Ｎ，ＬＤＸ＋Ｉ＊１６，ＬＤＹ
  233. 　Ｎ＝Ｎ＋１
  234. ＮＥＸＴ
  235. ＧＯＳＵＢ　＠ＬＡＹＩＣＯＮ
  237. ’－－－　センタクヨウノキャラ
  238. ＧＤＸ＝０：ＧＤＹ＝０
  239. ＧＯＳＵＢ　＠ＣＨＲＡＬＬ
  241. ＲＥＴＵＲＮ
  243. ’──────────────────────────
  245. ’－－－
  246. ＠ＢＧＣＬＲ
  247. ＦＯＲ　Ｙ＝０　ＴＯ　６３
  248. 　ＦＯＲ　Ｘ＝０　ＴＯ　６３
  249. 　　ＢＧＰＵＴ　０，Ｘ，Ｙ，０，０，０，０
  250. 　　ＢＧＰＵＴ　１，Ｘ，Ｙ，０，０，０，０
  251. 　ＮＥＸＴ
  252. ＮＥＸＴ
  253. ＦＯＲ　Ｉ＝０　ＴＯ　６３
  254. 　ＢＧＰＵＴ　０，　Ｉ，　０，２，０，０，０
  255. 　ＢＧＰＵＴ　０，　Ｉ，６３，３，０，０，０
  256. 　ＢＧＰＵＴ　０，　０，　Ｉ，４，０，０，０
  257. 　ＢＧＰＵＴ　０，６３，　Ｉ，５，０，０，０
  258. ＮＥＸＴ
  259. ＲＥＴＵＲＮ
  261. ’－－－
  262. ＠ＢＧＣＯＰＹ
  263. ＦＯＲ　Ｙ＝０　ＴＯ　６３
  264. 　ＦＯＲ　Ｘ＝０　ＴＯ　６３
  265. 　　ＢＧＰＡＧＥ　０
  266. 　　ＢＧＲＥＡＤ（０，Ｘ，Ｙ），Ｎ０，Ｃ０，Ｈ０，Ｖ０
  267. 　　ＢＧＲＥＡＤ（１，Ｘ，Ｙ），Ｎ１，Ｃ１，Ｈ１，Ｖ１
  268. 　　ＢＧＰＡＧＥ　１
  269. 　　ＢＧＰＵＴ　０，Ｘ，Ｙ，Ｎ０，Ｃ０，Ｈ０，Ｖ０
  270. 　　ＢＧＰＵＴ　１，Ｘ，Ｙ，Ｎ１，Ｃ１，Ｈ１，Ｖ１
  271. 　ＮＥＸＴ
  272. 　ＰＲＩＮＴ”．”；
  273. ＮＥＸＴ
  274. ＢＧＰＡＧＥ　０
  275. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  306. ’──────────────────────────
  307. ＠ＴＯＵＣＨ　’アタリハンテイ
  308. ’──────────────────────────
  309. Ｒ＝ＦＡＬＳＥ
  310. ＩＦ　ＴＳ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  311. ＩＦ　ＴＸ＜Ｘ　ＴＨＥＮ　ＲＥＴＵＲＮ
  312. ＩＦ　ＴＸ＞Ｘ＋Ｗ　ＴＨＥＮ　ＲＥＴＵＲＮ
  313. ＩＦ　ＴＹ＜Ｙ　ＴＨＥＮ　ＲＥＴＵＲＮ
  314. ＩＦ　ＴＹ＞Ｙ＋Ｈ　ＴＨＥＮ　ＲＥＴＵＲＮ
  315. Ｘ＝ＴＸ　ＡＮＤ　＆ＨＦ８
  316. Ｙ＝ＴＹ　ＡＮＤ　＆ＨＦ８
  317. Ｒ＝ＴＲＵＥ
  318. ＲＥＴＵＲＮ
  320. ’──────────────────────────
  321. ＠ＮＵＭＳＴＲ　’スウシ゛ヲ２ケタノモシ゛ニスル
  322. ’──────────────────────────
  323. Ｎ＄＝”　”＋ＳＴＲ＄（Ｎ）
  324. Ｓ＝ＬＥＮ（Ｎ＄）
  325. Ｎ＄＝ＭＩＤ＄（Ｎ＄，Ｓ－２，２）
  326. ＲＥＴＵＲＮ
  327. ’－－－
  328. ＠ＰＵＴＮＵＭ
  329. ＧＯＳＵＢ　＠ＮＵＭＳＴＲ
  330. ＣＯＬＯＲ　Ｃ
  331. ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ　Ｎ＄；
  332. ＣＯＬＯＲ　０
  333. ＲＥＴＵＲＮ
  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. ＧＯＳＵＢ　＠ＰＵＴＯＦＳ
  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. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  453. ’－－－
  454. ＠ＰＵＴＯＦＳ
  455. Ｃ＝０：ＣＯＬＯＲ　Ｃ
  456. Ｘ＝１９：Ｙ＝２３
  457. ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ”（”；
  458. Ｎ＝ＦＬＯＯＲ（（ＢＧＨＸ＋ＣＸ）／８）　ＡＮＤ　６３
  459. Ｘ＝ＣＳＲＸ：ＧＯＳＵＢ　＠ＰＵＴＮＵＭ
  460. ＰＲＩＮＴ”，”；
  461. Ｎ＝ＦＬＯＯＲ（（ＢＧＨＹ＋ＣＹ）／８）　ＡＮＤ　６３
  462. Ｘ＝ＣＳＲＸ：ＧＯＳＵＢ　＠ＰＵＴＮＵＭ
  463. ＰＲＩＮＴ”）＆ｈ”；
  464. Ｎ＝ＣＢＡＮＫ＊２５６＋ＣＨ
  465. Ｎ＄＝”００”＋ＨＥＸ＄（Ｎ）
  466. Ｎ＄＝ＭＩＤ＄（Ｎ＄，ＬＥＮ（Ｎ＄）－３，３）
  467. ＰＲＩＮＴ　Ｎ＄；
  468. ＲＥＴＵＲＮ
  470. ’－－－　
  471. ＠ＳＥＴＢＧＯＦＳ
  472. ＢＧＰＡＧＥ　０
  473. ＢＧＯＦＳ　０，ＢＧＨＸ，ＢＧＨＹ
  474. ＢＧＯＦＳ　１，ＢＧＨＸ，ＢＧＨＹ
  475. ＢＧＰＡＧＥ　１
  476. ＢＧＯＦＳ　０，ＢＧＬＸ，ＢＧＬＹ
  477. ＢＧＯＦＳ　１，ＢＧＬＸ，ＢＧＬＹ
  478. ＲＥＴＵＲＮ
  480. ’──────────────────────────
  481. ＠ＳＥＬＥＣＴ　’センタク
  482. ’──────────────────────────
  484. ’－－－　
  485. ＠ＳＥＬＣＨＲ
  486. Ｘ＝ＧＤＸ：Ｙ＝ＧＤＹ：Ｗ＝２５５：Ｈ＝６３
  487. ＧＯＳＵＢ　＠ＴＯＵＣＨ
  488. ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＧＯＴＯ　＠ＳＥＬＰＡＬ
  489. ’－－－　
  490. ＯＸ＝Ｘ：ＯＹ＝Ｙ
  491. ＧＯＳＵＢ　＠ＣＣＳＲＣＬＲ
  492. Ｘ＝ＦＬＯＯＲ（（ＯＸ－ＧＤＸ）／８）
  493. Ｙ＝ＦＬＯＯＲ（（ＯＹ－ＧＤＹ）／８）
  494. ＣＨ＝Ｙ＊３２＋Ｘ
  495. ＧＯＳＵＢ　＠ＰＵＴＯＦＳ
  496. ’－－－
  497. ＠ＰＵＴＣＳＥＬ
  498. ＣＯＬＯＲ　ＣＣ
  499. ＣＣ＝ＣＣ＋１：ＣＣ＝ＣＣ　ＡＮＤ　１５
  500. ＧＯＳＵＢ　＠ＣＣＳＲＰＵＴ
  501. ＲＥＴＵＲＮ
  503. ’－－－　イロ
  504. ＠ＳＥＬＰＡＬ
  505. Ｘ＝ＰＤＸ：Ｙ＝ＰＤＹ：Ｗ＝６３：Ｈ＝Ｗ
  506. ＧＯＳＵＢ　＠ＴＯＵＣＨ
  507. ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＧＯＴＯ　＠ＳＥＬＣＢ
  508. Ｘ＝ＦＬＯＯＲ（（Ｘ－ＰＤＸ）／１６）
  509. Ｙ＝ＦＬＯＯＲ（（Ｙ－ＰＤＹ）／１６）
  510. ＰＡＬ＝Ｙ＊４＋Ｘ
  511. ＧＯＳＵＢ　＠ＰＡＬＩＣＯＮ
  512. ＧＯＳＵＢ　＠ＣＨＲＡＬＬ
  513. ＲＥＴＵＲＮ
  515. ’－－－　キャラハ゛ンク
  516. ＠ＳＥＬＣＢ
  517. Ｘ＝ＣＤＸ：Ｙ＝ＣＤＹ：Ｗ＝６３：Ｈ＝１５
  518. ＧＯＳＵＢ　＠ＴＯＵＣＨ
  519. ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＧＯＴＯ　＠ＳＥＬＲＥＶ
  520. ＣＢＡＮＫ＝ＦＬＯＯＲ（（Ｘ－ＣＤＸ）／１６）
  521. ＧＯＳＵＢ　＠ＣＢＩＣＯＮ
  522. ＧＯＳＵＢ　＠ＣＨＲＡＬＬ
  523. ＧＯＳＵＢ　＠ＰＵＴＯＦＳ
  524. ＲＥＴＵＲＮ
  526. ’－－－　ハンテン
  527. ＠ＳＥＬＲＥＶ
  528. Ｘ＝ＲＤＸ：Ｙ＝ＲＤＹ：Ｗ＝３１：Ｈ＝１５
  529. ＧＯＳＵＢ　＠ＴＯＵＣＨ
  530. ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＧＯＴＯ　＠ＳＥＬＬＡＹ
  531. ＩＦ　ＯＳ　ＧＯＴＯ　＠ＳＥＬＬＡＹ
  532. Ｘ＝ＦＬＯＯＲ（（Ｘ－ＲＤＸ）／１６）
  533. ＩＦ　Ｘ＝＝０　ＴＨＥＮ　ＲＥＶＨ　＝　ＲＥＶＨ　ＸＯＲ　１
  534. ＩＦ　Ｘ＝＝１　ＴＨＥＮ　ＲＥＶＶ　＝　ＲＥＶＶ　ＸＯＲ　１
  535. ＧＯＳＵＢ　＠ＲＥＶＩＣＯＮ
  536. ＲＥＴＵＲＮ
  538. ’－－－　レイヤー
  539. ＠ＳＥＬＬＡＹ
  540. Ｘ＝ＬＤＸ：Ｙ＝ＬＤＹ：Ｗ＝３１：Ｈ＝１５
  541. ＧＯＳＵＢ　＠ＴＯＵＣＨ
  542. ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  543. ＬＡＹＥＲ＝ＦＬＯＯＲ（（Ｘ－ＬＤＸ）／１６）
  544. ＧＯＳＵＢ　＠ＬＡＹＩＣＯＮ
  545. ＲＥＴＵＲＮ
  547. ’──────────────────────────
  548. ＠ＤＲＡＷＣＨＲ　’キャラヲオク
  549. ’──────────────────────────
  550. Ｘ＝ＥＤＸ：Ｙ＝ＥＤＹ：Ｗ＝２３＊８－１：Ｈ＝１５＊８－１
  551. ＧＯＳＵＢ　＠ＴＯＵＣＨ
  552. ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  553. Ｘ＝ＦＬＯＯＲ（（Ｘ－ＥＤＸ）／８）
  554. Ｙ＝ＦＬＯＯＲ（（Ｙ－ＥＤＹ）／８）
  555. Ｘ＝（Ｘ＋ＦＬＯＯＲ（ＢＧＬＸ／８））　ＡＮＤ　６３
  556. Ｙ＝（Ｙ＋ＦＬＯＯＲ（（ＢＧＬＹ＋ＥＤＹ）／８））　ＡＮＤ　６３
  557. Ｃ＝ＣＨ＋ＣＢＡＮＫ＊２５６
  558. ’－－－
  559. ＩＦ　（ＢＴ　ＡＮＤ　２５６）＝＝０　ＧＯＴＯ　＠ＳＫＩＰＳＮＡＰ
  560. Ｘ＝ＦＬＯＯＲ（Ｘ／ＣＳＸ）＊ＣＳＸ
  561. Ｙ＝ＦＬＯＯＲ（Ｙ／ＣＳＹ）＊ＣＳＹ
  562. ’－－－
  563. ＠ＳＫＩＰＳＮＡＰ
  564. ＴＸ＝ＦＬＯＯＲ（ＣＨ％３２）
  565. ＴＹ＝ＦＬＯＯＲ（ＣＨ／３２）
  566. ＦＯＲ　ＩＹ＝０　ＴＯ　ＣＳＹ－１
  567. 　ＩＦ　ＩＹ＋ＴＹ＞７　ＧＯＴＯ　＠ＳＫＩＰＴＹ
  568. 　ＦＯＲ　ＩＸ＝０　ＴＯ　ＣＳＸ－１
  569. 　　ＩＦ　ＩＸ＋ＴＸ＞３１　ＧＯＴＯ　＠ＳＫＩＰＴＸ
  570. 　　ＢＧＰＡＧＥ　０
  571. 　　ＢＧＰＵＴ　ＬＡＹＥＲ，Ｘ＋ＩＸ，Ｙ＋ＩＹ，Ｃ＋ＩＸ，ＰＡＬ，ＲＥＶＨ，ＲＥＶＶ
  572. 　　ＢＧＰＡＧＥ　１
  573. 　　ＢＧＰＵＴ　ＬＡＹＥＲ，Ｘ＋ＩＸ，Ｙ＋ＩＹ，Ｃ＋ＩＸ，ＰＡＬ，ＲＥＶＨ，ＲＥＶＶ
  574. 　　＠ＳＫＩＰＴＸ
  575. 　ＮＥＸＴ
  576. 　Ｃ＝Ｃ＋３２
  577. ＠ＳＫＩＰＴＹ
  578. ＮＥＸＴ
  579. ＲＥＴＵＲＮ
  581. ’──────────────────────────
  582. ＠ＣＨＲＡＬＬ
  583. ’──────────────────────────
  584. ＧＰＡＧＥ　１
  585. Ｃ＄＝ＣＮ＄＋ＳＴＲ＄（ＣＢＡＮＫ）
  586. ＧＦＩＬＬ　０，０，２５６，６４，０
  587. ＦＯＲ　Ｉ＝０　ＴＯ　２５５
  588. 　Ｘ＝ＧＤＸ＋ＦＬＯＯＲ（Ｉ％３２）＊８
  589. 　Ｙ＝ＧＤＹ＋ＦＬＯＯＲ（Ｉ／３２）＊８
  590. 　ＧＰＵＴＣＨＲ　Ｘ，Ｙ，Ｃ＄，Ｉ，ＰＡＬ，１
  591. ＮＥＸＴ
  592. ＲＥＴＵＲＮ
  594. ’──────────────────────────
  595. ＠ＦＩＬＥＭＯＤＥ　’ファイルノヨミカキ
  596. ’──────────────────────────
  597. ＶＩＳＩＢＬＥ　１，１，０，０，０，０
  598. ＣＯＬＯＲ　０
  599. ＰＮＬＴＹＰＥ　”ＫＹＡ”
  600. ＦＯＲ　Ｉ＝０　ＴＯ　３：ＩＣＯＮＣＬＲ　Ｉ：ＮＥＸＴ
  601. ＳＬ＄＝”ＳＣＵ”＋ＳＴＲ＄（ＬＡＹＥＲ）＋”：”
  602. ’－－－
  603. ＠＿ＦＬＯＯＰ
  604. ＣＬＳ
  605. ＢＧＰＡＧＥ　０
  606. ＰＲＩＮＴ”　　Ｌ：ＳＣＲヨミコミ（１マイ）”
  607. ＰＲＩＮＴ”　ＬＷ：ＳＣＲヨミコミ（２マイ）”
  608. ＰＲＩＮＴ”　　Ｓ：ＳＣＲホソ゛ン（１マイ）”
  609. ＰＲＩＮＴ”　ＳＷ：ＳＣＲホソ゛ン（２マイ）”
  610. ＰＲＩＮＴ”ＣＯＬ：イロヨミコミ”
  611. ＰＲＩＮＴ”ＣＨＲ：キャラヨミコミ”
  612. ＰＲＩＮＴ”　　Ｑ：ファイルメニュ－オワリ”
  613. ＰＲＩＮＴ”　　Ｅ：ツ－ルオワリ”
  614. ＰＲＩＮＴ”────────────────────────────────”；
  615. ’－－－
  616. ＩＮＰＵＴ”コマント゛”；Ｋ＄
  617. ＩＦ　Ｋ＄＝＝”Ｌ”　ＧＯＴＯ　＠＿ＦＬＯＡＤ
  618. ＩＦ　Ｋ＄＝＝”ＬＷ”　ＧＯＴＯ　＠＿ＦＬＯＡＤＷ
  619. ＩＦ　Ｋ＄＝＝”Ｓ”　ＧＯＴＯ　＠＿ＦＳＡＶＥ
  620. ＩＦ　Ｋ＄＝＝”ＳＷ”　ＧＯＴＯ　＠＿ＦＳＡＶＥＷ
  621. ＩＦ　Ｋ＄＝＝”ＣＯＬ”　ＧＯＴＯ　＠＿ＰＬＯＡＤ
  622. ＩＦ　Ｋ＄＝＝”ＣＨＲ”　ＧＯＴＯ　＠＿ＣＬＯＡＤ
  623. ＩＦ　Ｋ＄＝＝”Ｑ”　ＧＯＴＯ　＠＿ＦＱＵＩＴ
  624. ＩＦ　Ｋ＄＝＝”Ｅ”　ＧＯＴＯ　＠＿ＦＥＸＩＴ
  625. ＧＯＴＯ　＠＿ＦＬＯＯＰ
  626. ’－－－
  627. ＠＿ＰＬＯＡＤ
  628. ＩＮＰＵＴ”ヨミコムナマエ（ＣＯＬ）：”；Ｋ＄
  629. Ｋ＄＝”ＣＯＬ０：”＋Ｋ＄：ＰＲＩＮＴ　Ｋ＄
  630. ＬＯＡＤ　Ｋ＄，ＦＡＬＳＥ
  631. ＦＯＲ　Ｉ＝０　ＴＯ　２５５
  632. 　ＢＧＰＡＧＥ　０
  633. 　ＣＯＬＲＥＡＤ（”ＢＧ”，Ｉ），Ｒ，Ｇ，Ｂ
  634. 　ＢＧＰＡＧＥ　１
  635. 　Ｎ＝Ｒ：ＧＯＳＵＢ　＠ＭＫＣＯＬ：Ｃ＄＝Ｎ＄
  636. 　Ｎ＝Ｇ：ＧＯＳＵＢ　＠ＭＫＣＯＬ：Ｃ＄＝Ｃ＄＋Ｎ＄
  637. 　Ｎ＝Ｂ：ＧＯＳＵＢ　＠ＭＫＣＯＬ：Ｃ＄＝Ｃ＄＋Ｎ＄
  638. 　’ＰＲＩＮＴ　Ｃ＄
  639. 　ＣＯＬＳＥＴ　”ＢＧ”，Ｉ，Ｃ＄
  640. ＮＥＸＴ
  641. ＧＯＴＯ　＠＿ＦＱＵＩＴ
  642. ’－－－
  643. ＠ＭＫＣＯＬ
  644. Ｎ＄＝”０”＋ＨＥＸ＄（Ｎ）
  645. Ｎ＄＝ＭＩＤ＄（Ｎ＄，ＬＥＮ（Ｎ＄）－２，２）
  646. ＲＥＴＵＲＮ
  647. ’－－－
  648. ＠＿ＣＬＯＡＤ
  649. ＩＮＰＵＴ”ヨミコムナマエ（ＣＨＲ）：”；Ｋ＄
  650. Ｎ＄＝”ＢＧＵ”＋ＳＴＲ＄（ＣＢＡＮＫ）
  651. Ｋ＄＝Ｎ＄＋”：”＋Ｋ＄
  652. ＰＲＩＮＴ　Ｋ＄
  653. ＬＯＡＤ　Ｋ＄，ＦＡＬＳＥ
  654. ＦＯＲ　Ｉ＝０　ＴＯ　２５５
  655. 　ＢＧＰＡＧＥ　０
  656. 　ＣＨＲＲＥＡＤ（Ｎ＄，Ｉ），Ｃ＄
  657. 　ＢＧＰＡＧＥ　１
  658. 　ＣＨＲＳＥＴ　Ｎ＄，Ｉ，Ｃ＄
  659. ＮＥＸＴ
  660. ＧＯＴＯ　＠＿ＦＱＵＩＴ
  661. ’－－－
  662. ＠＿ＦＬＯＡＤ
  663. ＩＮＰＵＴ”ヨミコムナマエ（ＳＣＲ）：”；Ｋ＄
  664. Ｋ＄＝ＳＬ＄＋Ｋ＄：ＰＲＩＮＴ　Ｋ＄
  665. ＬＯＡＤ　Ｋ＄，ＦＡＬＳＥ
  666. ＧＯＴＯ　＠＿ＦＱＵＩＴ
  667. ’－－－
  668. ＠＿ＦＬＯＡＤＷ
  669. ＩＮＰＵＴ”７モシ゛イナイテ゛ヨミコムナマエ（ＳＣＲ）：”；Ｋ＄
  670. Ｎ＄＝ＭＩＤ＄（Ｋ＄，０，７）
  671. Ｋ＄＝”ＳＣＵ０：０”＋Ｎ＄：ＰＲＩＮＴ　Ｋ＄
  672. ＬＯＡＤ　Ｋ＄，ＦＡＬＳＥ
  673. Ｋ＄＝”ＳＣＵ１：１”＋Ｎ＄：ＰＲＩＮＴ　Ｋ＄
  674. ＬＯＡＤ　Ｋ＄，ＦＡＬＳＥ
  675. ＧＯＴＯ　＠＿ＦＱＵＩＴ
  676. ’－－－
  677. ＠＿ＦＳＡＶＥ
  678. ＩＮＰＵＴ”ホソ゛ンスルナマエ（ＳＣＲ）：”；Ｋ＄
  679. Ｋ＄＝ＳＬ＄＋Ｋ＄：ＰＲＩＮＴ　Ｋ＄
  680. ＳＡＶＥ　Ｋ＄
  681. ＧＯＴＯ　＠＿ＦＱＵＩＴ
  682. ’－－－
  683. ＠＿ＦＳＡＶＥＷ
  684. ＩＮＰＵＴ”７モシ゛イナイテ゛カキコムナマエ（ＳＣＲ）：”；Ｋ＄
  685. Ｎ＄＝ＭＩＤ＄（Ｋ＄，０，７）
  686. Ｋ＄＝”ＳＣＵ０：０”＋Ｎ＄：ＰＲＩＮＴ　Ｋ＄
  687. ＳＡＶＥ　Ｋ＄
  688. Ｋ＄＝”ＳＣＵ１：１”＋Ｎ＄：ＰＲＩＮＴ　Ｋ＄
  689. ＳＡＶＥ　Ｋ＄
  690. ’－－－
  691. ＠＿ＦＱＵＩＴ
  692. ＶＩＳＩＢＬＥ　１，１，１，１，１，１
  693. ＧＯＳＵＢ　＠ＤＩＳＰＩＮＩＴ
  694. ＲＥＴＵＲＮ
  695. ’－－－
  696. ＠＿ＦＥＸＩＴ
  697. ＦＯＲ　Ｉ＝１　ＴＯ　０　ＳＴＥＰ　－１
  698. 　ＳＰＰＡＧＥ　Ｉ：ＳＰＣＬＲ
  699. 　ＧＰＡＧＥ　Ｉ：ＧＣＬＳ
  700. ＮＥＸＴ
  701. ＦＯＲ　Ｉ＝０　ＴＯ　２５５
  702. 　ＣＯＬＩＮＩＴ　”ＧＲＰ”，Ｉ
  703. 　ＣＯＬＩＮＩＴ　”ＢＧ”，Ｉ
  704. ＮＥＸＴ
  705. ＣＯＬＯＲ　０
  706. ＣＬＳ
  707. ＰＲＩＮＴ　”オツカレサマ！”
  708. ＥＮＤ

動作ムービーを見る