プチコン

  1. ’┌──────────────────────────┐
  2. ’│　ＣＨＡＲＡＣＴＥＲ　ＥＤＩＴＯＲ　ＶＥＲ１．００　│
  3. ’├──────────────────────────┤
  4. ’│　　　（Ｃ）ＳｍｉｌｅＢｏｏｍ　Ｃｏ．Ｌｔｄ．　　　│
  5. ’└──────────────────────────┘
  6. ＶＩＳＩＢＬＥ　１，１，０，０，１，１
  7. ＣＬＥＡＲ
  8. ＣＬＳ：ＣＯＬＯＲ　０
  9. ＳＰＰＡＧＥ　０：ＳＰＣＬＲ
  10. ＳＰＰＡＧＥ　１：ＳＰＣＬＲ
  11. ＤＩＭ　ＭＤ＄（４），ＣＳ＄（２，４）
  12. ＤＩＭ　ＳＢ（１６，６），ＲＧＢ（３），ＯＦＳ（４）
  13. ＤＩＭ　ＣＢＡＮＫ（２），ＣＢＭＡＸ（２），ＣＳＴＲ＄（２）
  15. ’－－－　キャラハ゛ンク
  16. ＤＡＴＡ　”ＢＧＵ”，４
  17. ＤＡＴＡ　”ＳＰＵ”，８
  18. ＦＯＲ　Ｉ＝０　ＴＯ　１
  19. 　ＲＥＡＤ　ＣＳＴＲ＄（Ｉ），ＣＢＭＡＸ（Ｉ）
  20. ＮＥＸＴ
  22. ’－－－　カ－ソル
  23. ＤＡＴＡ　”йй”，”и”，”жж”，”з”
  24. ＤＡＴＡ　”　　”，”　”，”　　”，”　”
  25. ＦＯＲ　Ｉ＝０　ＴＯ　１
  26. 　ＦＯＲ　Ｊ＝０　ＴＯ　３
  27. 　　ＲＥＡＤ　ＣＳ＄（Ｉ，Ｊ）
  28. 　ＮＥＸＴ
  29. ＮＥＸＴ
  31. ’－－－　モート゛モシ゛レツ
  32. ＤＡＴＡ　”　ＦＩＬＥ”，”ＣＯＬＯＲ”，”　　ＰＥＮ”，”ＰＡＩＮＴ”
  33. ＦＯＲ　Ｉ＝０　ＴＯ　３：ＲＥＡＤ　ＭＤ＄（Ｉ）：ＮＥＸＴ
  35. ’－－－　スフ゜ライトホ゛タン
  36. ＿Ｘ＝０：＿Ｙ＝１：＿Ｎ＝２：＿Ｇ＝３：＿Ｃ＝４：＿Ｔ＝５：＿ＭＡＸ＝６
  37. ＴＰ＝８：ＳＢＭＡＸ＝１６：ＳＰＴＯＰ＝３２：ＰＲ＝１
  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. ＮＥＸＴ
  67. ’－－－　ヘンスウ　ショキカ
  68. ＣＴＹＰＥ＝０
  69. ＧＯＳＵＢ　＠ＳＥＴＣＳＴＲ
  70. ＰＡＬ＝０
  71. ＣＯＬ＝０
  72. ＸＣ＝７
  73. ＭＯＤＥ＝２
  74. ＳＰＳＷ＝ＦＡＬＳＥ
  75. ＣＸ＝０：ＣＹ＝０
  76. Ｗ１＝０：Ｗ２＝０
  77. Ｋ１＝０：Ｋ２＝０
  78. ＧＯＳＵＢ　＠ＭＫＯＦＳ
  80. ’－－－　カ゛メン　ショキカ
  81. ＧＯＳＵＢ　＠ＤＩＳＰＩＮＩＴ
  83. ’┌─────────┐
  84. ’│　メインル－フ゜　│
  85. ’└─────────┘
  86. ＠ＭＡＩＮ
  87. 　’
  88. 　ＯＸ＝ＴＸ：ＯＹ＝ＴＹ：ＯＳ＝ＴＳ
  89. 　ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ：ＴＳ＝ＴＣＨＳＴ
  90. 　ＯＬＤＢ＝Ｂ：Ｂ＝ＢＵＴＴＯＮ（）
  91. 　ＯＬＤＩＣ＝ＩＣ：ＩＣ＝ＩＣＯＮＣＨＫ（）
  92. 　’
  93. 　ＧＯＳＵＢ　＠ＳＰＢＵＴ
  94. 　ＧＯＳＵＢ　＠ＳＥＬＣＯＬ
  95. 　ＧＯＳＵＢ　＠ＣＳＲＭＯＶＥ
  96. 　ＧＯＳＵＢ　＠ＣＯＬＣＳＲ
  97. 　ＧＯＳＵＢ　＠ＤＲＡＷＣＯＬ
  98. 　ＧＯＳＵＢ　＠ＣＨＫＭＯＤＥ
  99. 　’
  100. 　ＶＳＹＮＣ（０）
  101. 　’
  102. ＧＯＴＯ　＠ＭＡＩＮ
  104. ’┌────────┐
  105. ’│　サフ゛ショリ　│
  106. ’└────────┘
  108. ’──────────────────────────
  109. ＠ＤＩＳＰＩＮＩＴ　’カ゛メンノショキカ
  110. ’──────────────────────────
  111. ＣＬＳ：ＣＯＬＯＲ　０
  113. ’┌─────────┐
  114. ’│　ウエ　カ゛メン　│
  115. ’└─────────┘
  116. ＧＰＡＧＥ　０：ＧＣＯＬＯＲ　０：ＧＣＬＳ
  118. ’－－－　モトノカ゛ソ゛ウヲヒョウシ゛
  119. ＬＯＣＡＴＥ　０，８
  120. ＰＲＩＮＴ”┌──────────────────────────────┐”；
  121. ＰＲＩＮＴ”│ＣＨＡＲＡＣＴＥＲ　ＥＤＩＴＯＲ　ｖ１．０　　　　　　　　　│”；
  122. ＰＲＩＮＴ”└──────────────────────────────┘”；
  123. ＧＯＳＵＢ　＠ＣＨＲＡＬＬ
  124. ＬＯＣＡＴＥ　０，２３
  125. ＰＲＩＮＴ　”А＝ファイルモ－ト゛”；
  127. ’┌─────────┐
  128. ’│　シタ　カ゛メン　│
  129. ’└─────────┘
  130. ＰＮＬＴＹＰＥ　”ＯＦＦ”
  131. ＧＰＡＧＥ　１：ＧＣＯＬＯＲ　０：ＧＣＬＳ
  133. ’－－－　ヘンシュウエリア
  134. Ｘ＝０：Ｙ＝０
  135. ＰＮＬＳＴＲ　Ｘ，Ｙ，　　　”┌────────────────┬──┐”
  136. ＦＯＲ　Ｉ＝１　ＴＯ　１６
  137. 　ＰＮＬＳＴＲ　Ｘ，Ｙ＋Ｉ，”│СССССССССССССССС│　　│”
  138. ＮＥＸＴ　Ｉ
  139. ＰＮＬＳＴＲ　Ｘ，Ｙ＋Ｉ，　”├────────────────┬──┘”
  140. ＰＮＬＳＴＲ　Ｘ，Ｙ＋Ｉ＋１，　”│　　　　　　　　　　　　　　　　│”
  141. ＰＮＬＳＴＲ　Ｘ，Ｙ＋Ｉ＋２，　”│　　　　　　　　　　　　　　　　│”
  142. ＰＮＬＳＴＲ　Ｘ，Ｙ＋Ｉ＋３，　”└────────────────┘”
  143. ＥＸ＝（Ｘ＋１）＊８：ＥＹ＝（Ｙ＋１）＊８
  144. ＤＲ＝ＦＡＬＳＥ
  145. ＧＯＳＵＢ　＠ＣＨＲＺＯＯＭ
  146. ＦＯＲ　Ｉ＝０　ＴＯ　ＳＢＭＡＸ－１
  147. 　ＳＰＯＦＳ　Ｉ＋ＳＰＴＯＰ，ＳＢ（Ｉ，＿Ｘ），ＳＢ（Ｉ，＿Ｙ）
  148. ＮＥＸＴ
  150. ’－－－　イロミホン
  151. Ｘ＝２２：Ｙ＝０
  152. ＰＮＬＳＴＲ　Ｘ，Ｙ，　　　　　”┌────────┐”
  153. ＦＯＲ　Ｉ＝１　ＴＯ　８　ＳＴＥＰ　２
  154. 　ＰＮＬＳＴＲ　Ｘ，Ｉ＋Ｙ　　，”│СТСТСТСТ│”
  155. 　ＰＮＬＳＴＲ　Ｘ，Ｉ＋Ｙ＋１，”│У　У　У　У　│”
  156. ＮＥＸＴ
  157. ＰＮＬＳＴＲ　Ｘ，Ｉ＋Ｙ，　　　”└────────┘”
  158. ＨＸ＝Ｘ＋１：ＨＹ＝Ｙ＋１
  159. ＨＤＸ＝ＨＸ＊８：ＨＤＹ＝ＨＹ＊８
  160. ＧＯＳＵＢ　＠ＣＯＬＢＯＸ
  161. ＳＰＳＥＴ　０，１０３，０，０，０，０
  162. ＧＯＳＵＢ　＠ＣＯＬＣＳＲ
  163. ＧＯＳＵＢ　＠ＳＥＴＣＴＹＰＥ
  165. ’－－－　イロハ゛ンク
  166. Ｘ＝２２：Ｙ＝１０
  167. ＰＮＬＳＴＲ　Ｘ，Ｙ，　　　”┌────────┐”
  168. ＦＯＲ　Ｉ＝１　ＴＯ　８
  169. 　ＰＮＬＳＴＲ　Ｘ，Ｉ＋Ｙ，”│　　　　　　　　│”
  170. ＮＥＸＴ
  171. ＰＮＬＳＴＲ　Ｘ，Ｙ＋Ｉ，　”└────────┘”
  172. ＰＤＸ＝Ｘ＊８＋８：ＰＤＹ＝Ｙ＊８＋８
  173. ＦＯＲ　Ｉ＝０　ＴＯ　１５
  174. 　Ｘ＝ＦＬＯＯＲ（Ｉ％４）＊１６＋ＰＤＸ
  175. 　Ｙ＝ＦＬＯＯＲ（Ｉ／４）＊１６＋ＰＤＹ
  176. 　ＳＰＳＥＴ　Ｉ＋２，Ｉ＋４８，０，０，０，１
  177. 　ＳＰＯＦＳ　Ｉ＋２，Ｘ，Ｙ
  178. ＮＥＸＴ
  179. ＳＰＣＨＲ　ＰＡＬ＋２，ＰＡＬ＋４８，ＸＣ，０，０，１
  181. ’－－－　システムアイコン
  182. ＩＣＯＮＰＵＳＥ＝ＦＡＬＳＥ
  183. ’ＩＣＯＮＰＡＧＥ＝０
  184. ’ＩＣＯＮＰＭＡＸ＝４
  185. ＩＣＯＮＣＬＲ　０
  186. ＩＣＯＮＣＬＲ　１：’５９）ＦＩＬＥ
  187. ＩＣＯＮＳＥＴ　２，５　：’ＰＥＮ
  188. ＩＣＯＮＳＥＴ　３，６　：’ＰＡＩＮＴ
  189. ＧＯＳＵＢ　＠ＰＵＴＭＯＤＥ
  190. ＲＥＴＵＲＮ
  192. ’──────────────────────────
  193. ＠ＴＯＵＣＨ　’アタリハンテイ
  194. ’──────────────────────────
  195. Ｒ＝ＦＡＬＳＥ
  196. ＩＦ　ＴＳ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  197. ＩＦ　ＴＸ＜Ｘ　ＴＨＥＮ　ＲＥＴＵＲＮ
  198. ＩＦ　ＴＸ＞Ｘ＋Ｗ　ＴＨＥＮ　ＲＥＴＵＲＮ
  199. ＩＦ　ＴＹ＜Ｙ　ＴＨＥＮ　ＲＥＴＵＲＮ
  200. ＩＦ　ＴＹ＞Ｙ＋Ｈ　ＴＨＥＮ　ＲＥＴＵＲＮ
  201. Ｘ＝ＴＸ　ＡＮＤ　＆ＨＦ８
  202. Ｙ＝ＴＹ　ＡＮＤ　＆ＨＦ８
  203. Ｒ＝ＴＲＵＥ
  204. ＲＥＴＵＲＮ
  206. ’──────────────────────────
  207. ＠ＮＵＭＳＴＲ　’スウシ゛ヲ３ケタノモシ゛ニスル
  208. ’──────────────────────────
  209. Ｎ＄＝”　　”＋ＳＴＲ＄（Ｎ）
  210. Ｓ＝ＬＥＮ（Ｎ＄）
  211. Ｎ＄＝ＭＩＤ＄（Ｎ＄，Ｓ－３，３）
  212. ＲＥＴＵＲＮ
  213. ’－－－
  214. ＠ＮＵＭＳＴＲＸ
  215. Ｎ＝Ｎ＋（ＣＢＡＮＫ（ＣＴＹＰＥ）＊２５６）
  216. Ｎ＄＝”００”＋ＨＥＸ＄（Ｎ）
  217. Ｓ＝ＬＥＮ（Ｎ＄）
  218. Ｎ＄＝”＆ｈ”＋ＭＩＤ＄（Ｎ＄，Ｓ－３，３）
  219. ＲＥＴＵＲＮ
  220. ’－－－
  221. ＠ＰＵＴＮＵＭ
  222. ＧＯＳＵＢ　＠ＮＵＭＳＴＲ
  223. ＣＯＬＯＲ　Ｃ
  224. ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＮＬＳＴＲ　Ｘ，Ｙ，Ｎ＄
  225. ＣＯＬＯＲ　０
  226. ＲＥＴＵＲＮ
  228. ’──────────────────────────
  229. ＠ＣＳＲＭＯＶＥ　’ウエカ゛メンノカ－ソル
  230. ’──────────────────────────
  231. ＶＸ＝０：ＶＹ＝０
  232. ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＶＹ＝ＶＹ－１
  233. ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　ＶＹ＝ＶＹ＋１
  234. ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　ＶＸ＝ＶＸ－１
  235. ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　ＶＸ＝ＶＸ＋１
  236. ’ＩＦ　ＯＬＤＢ＝＝０　ＧＯＴＯ　＠ＣＭＯＶＥ
  237. ’ＩＦ　ＶＸ＋ＶＹ！＝０　ＧＯＴＯ　＠＿Ｋ１
  238. ＩＦ　Ｂ！＝０　ＧＯＴＯ　＠ＣＭＯＶＥ
  240. ’－－－
  241. ＠＿ＫＯＦＦ
  242. Ｋ１＝０：Ｋ２＝０
  243. ＧＯＴＯ　＠ＰＵＴＣＳＲ
  245. ’－－－
  246. ＠＿Ｋ１
  247. ＩＦ　Ｋ１＝＝３０　ＧＯＴＯ　＠＿ＫＲ２
  248. Ｋ１＝Ｋ１＋１：ＩＦ　Ｋ１＜３０　ＧＯＴＯ　＠ＰＵＴＣＳＲ
  249. ＧＯＴＯ　＠ＣＭＯＶＥ
  250. ＠＿ＫＲ２
  251. Ｋ２＝Ｋ２＋１：ＩＦ　Ｋ２＜８　ＴＨＥＮ　＠ＰＵＴＣＳＲ
  252. Ｋ２＝０
  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. ＲＥＴＵＲＮ
  289. ’──────────────────────────
  290. ＠ＭＫＯＦＳ　’テキセツナオフセットセッテイ
  291. ’──────────────────────────
  292. ＩＦ　ＳＢ（ＴＰ＋ＣＴＹＰＥ，＿Ｔ）　ＧＯＴＯ　＠＿ＯＦＳＳＰ
  293. ’－－－
  294. ＣＨ＝ＣＹ＊３２＋ＣＸ
  295. ＯＦＳ（０）＝ＣＨ
  296. ＯＦＳ（１）＝ＣＨ＋１
  297. ＯＦＳ（２）＝ＣＨ＋３２
  298. ＯＦＳ（３）＝ＣＨ＋３３
  299. ＲＥＴＵＲＮ
  300. ’－－－
  301. ＠＿ＯＦＳＳＰ
  302. ＣＨ＝ＣＹ＊３２＋ＣＸ＊２
  303. ＦＯＲ　Ｉ＝０　ＴＯ　３
  304. 　ＯＦＳ（Ｉ）＝ＣＨ＋Ｉ
  305. ＮＥＸＴ
  306. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  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. ＠＿ＣＡＢＧ
  464. 　ＧＦＩＬＬ　Ｘ，Ｙ，Ｘ＋７，Ｙ＋７，０
  465. 　ＧＰＵＴＣＨＲ　Ｘ，Ｙ，ＣＮ＄，Ｉ，ＰＡＬ，１
  466. 　Ｘ＝Ｘ＋８：ＩＦ　Ｘ＞２５５　ＴＨＥＮ　Ｘ＝０：Ｙ＝Ｙ＋８
  467. 　Ｉ＝Ｉ＋１
  468. 　ＧＯＴＯ　＠＿ＣＡＮＥＸＴ
  469. ＠＿ＣＡＳＰ
  470. 　ＧＦＩＬＬ　Ｘ，Ｙ，Ｘ＋１５，Ｙ＋１５，０
  471. 　ＧＰＵＴＣＨＲ　Ｘ，Ｙ，ＣＮ＄，Ｉ，ＰＡＬ，１
  472. 　ＧＰＵＴＣＨＲ　Ｘ＋８，Ｙ，ＣＮ＄，Ｉ＋１，ＰＡＬ，１
  473. 　ＧＰＵＴＣＨＲ　Ｘ，Ｙ＋８，ＣＮ＄，Ｉ＋２，ＰＡＬ，１
  474. 　ＧＰＵＴＣＨＲ　Ｘ＋８，Ｙ＋８，ＣＮ＄，Ｉ＋３，ＰＡＬ，１
  475. 　Ｘ＝Ｘ＋１６：ＩＦ　Ｘ＞２５５　ＴＨＥＮ　Ｘ＝０：Ｙ＝Ｙ＋１６
  476. 　Ｉ＝Ｉ＋４
  477. ＠＿ＣＡＮＥＸＴ
  478. ＩＦ　Ｉ＜２５６　ＧＯＴＯ　＠＿ＬＯＯＰＣＡ
  479. ＳＰＰＡＧＥ　１：ＢＧＰＡＧＥ　１
  480. ＧＯＳＵＢ　＠ＣＨＲＺＯＯＭ
  481. ＲＥＴＵＲＮ
  483. ’──────────────────────────
  484. ＠ＣＨＫＭＯＤＥ　’モ－ト゛カクニン
  485. ’──────────────────────────
  486. ＩＦ　Ｂ＝＝１６　ＧＯＴＯ　＠ＦＩＬＥＭＯＤＥ
  487. ＩＦ　ＭＯＤＥ＝＝ＩＣ　ＴＨＥＮ　ＲＥＴＵＲＮ
  488. ＩＦ　ＩＣ＝＝－１　ＴＨＥＮ　ＲＥＴＵＲＮ
  489. ＭＯＤＥ＝ＩＣ
  490. ’――――――――――――――――――――――――――
  491. ＠ＰＵＴＭＯＤＥ
  492. ＰＮＬＳＴＲ　２７，２０，ＭＤ＄（ＭＯＤＥ）
  493. ＲＥＴＵＲＮ
  495. ’──────────────────────────
  496. ＠ＳＰＢＵＴ　’スフ゜ライトホ゛タン
  497. ’──────────────────────────
  498. ＳＢＩＸ＝－１
  499. ＩＦ　ＳＰＳＷ＝＝ＦＡＬＳＥ　ＧＯＴＯ　＠＿ＴＯＦＦ
  500. ＩＦ　ＴＳ＝＝０　ＧＯＴＯ　＠＿ＴＣＬＲ
  502. ’－－－　リヒ゜－トカクニン
  503. ＩＦ　Ｗ１＝＝３０　ＧＯＴＯ　＠ＫＲ２
  504. Ｗ１＝Ｗ１＋１：ＩＦ　Ｗ１＜３０　ＴＨＥＮ　ＲＥＴＵＲＮ
  505. ＧＯＴＯ　＠＿ＴＯＦＦ
  506. ＠ＫＲ２
  507. Ｗ２＝Ｗ２＋１：ＩＦ　Ｗ２＜８　ＴＨＥＮ　ＲＥＴＵＲＮ
  508. ＧＯＴＯ　＠＿ＴＯＦＦ
  510. ’－－－　ソノタノホ゛タンノカイホウ
  511. ＠＿ＴＣＬＲ
  512. Ｗ１＝０：Ｗ２＝０
  513. ＦＯＲ　Ｉ＝１０　ＴＯ　ＳＢＭＡＸ－１
  514. 　ＳＢ（Ｉ，＿Ｃ）＝０
  515. 　ＳＰＣＨＲ　Ｉ＋ＳＰＴＯＰ，ＳＢ（Ｉ，＿Ｎ），ＳＢ（Ｉ，＿Ｃ），０，０，ＰＲ
  516. 　ＳＰＯＦＳ　Ｉ＋ＳＰＴＯＰ，ＳＢ（Ｉ，＿Ｘ），ＳＢ（Ｉ，＿Ｙ）
  517. ＮＥＸＴ
  518. ＳＰＳＷ＝ＦＡＬＳＥ
  519. ＲＥＴＵＲＮ
  520. ’－－－
  521. ＠＿ＴＯＦＦ
  522. ＩＦ　ＴＳ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  523. ＳＰＳＷ＝ＦＡＬＳＥ：Ｗ＝１５：Ｈ＝Ｗ
  524. ＦＯＲ　Ｉ＝０　ＴＯ　ＳＢＭＡＸ－１
  525. 　ＩＦ　ＳＰＳＷ　ＧＯＴＯ　＠＿ＳＫＩＰＳＰ
  526. 　ＩＦ　ＳＢ（Ｉ，＿Ｃ）＝＝ＸＣ　ＴＨＥＮ　＠ＳＫＩＰＳＰ
  527. 　Ｘ＝ＳＢ（Ｉ，＿Ｘ）：Ｙ＝ＳＢ（Ｉ，＿Ｙ）
  528. 　ＧＯＳＵＢ　＠ＴＯＵＣＨ
  529. 　ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＧＯＴＯ　＠＿ＳＫＩＰＳＰ
  530. 　　ＧＯＳＵＢ　＠ＳＥＴＳＢ
  531. 　　ＳＰＳＷ＝ＴＲＵＥ
  532. ＠＿ＳＫＩＰＳＰ
  533. ＮＥＸＴ
  534. ＲＥＴＵＲＮ
  535. ’――――――――――――――――――――――――――
  536. ＠ＳＥＴＳＢ
  537. ＳＢＩＸ＝Ｉ
  538. ’－－－　ホ゛タンハ゛ンコ゛ウテ゛ショリ
  539. ＩＦ　Ｉ＝＝８　ＯＲ　Ｉ＝＝９　ＴＨＥＮ　ＣＴＹＰＥ＝Ｉ－８
  540. ＩＦ　Ｉ＜８　ＴＨＥＮ　ＣＢＡＮＫ（ＣＴＹＰＥ）＝Ｉ
  541. ＩＦ　Ｉ＜１０　ＧＯＴＯ　＠＿ＳＫＩＰＳＳＢ
  542. ’－－－　ソノタノホ゛タンノカイホウ
  543. ＦＯＲ　Ｉ＝１０　ＴＯ　ＳＢＭＡＸ－１
  544. 　Ｘ＝ＳＢ（Ｉ，＿Ｘ）：Ｙ＝ＳＢ（Ｉ，＿Ｙ）：Ｃ＝０
  545. 　ＩＦ　Ｉ＝＝ＳＢＩＸ　ＴＨＥＮ　Ｘ＝Ｘ＋１：Ｙ＝Ｙ＋１：Ｃ＝６
  546. 　ＳＢ（Ｉ，＿Ｃ）＝Ｃ
  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. 　Ｐ２＝Ｐ：ＧＯＳＵＢ　＠ＣＳＥＴ
  593. 　Ｐ＝Ｐ＋１
  594. ＮＥＸＴ
  595. ＣＯＬ＝ＴＭＰ
  596. ＧＯＳＵＢ　＠ＣＯＬＢＯＸ
  597. ＩＦ　ＳＢＩＸ＞９　ＴＨＥＮ　ＲＥＴＵＲＮ
  598. ＧＯＳＵＢ　＠ＣＨＲＡＬＬ
  599. ＲＥＴＵＲＮ
  601. ’－－－
  602. ＠ＣＳＥＴ
  603. ＳＰＰＡＧＥ　０：ＢＧＰＡＧＥ　０
  604. ＣＯＬＳＥＴ　”ＢＧ”，Ｐ，Ｃ＄
  605. ＣＯＬＳＥＴ　”ＧＲＰ”，Ｐ２，Ｃ＄
  606. ＳＰＰＡＧＥ　１：ＢＧＰＡＧＥ　１
  607. ＣＯＬＳＥＴ　”ＢＧ”，Ｐ，Ｃ＄
  608. ＣＯＬＳＥＴ　”ＧＲＰ”，Ｐ２，Ｃ＄
  609. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  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. 　ＳＰＰＡＧＥ　Ｐ：ＢＧＰＡＧＥ　Ｐ
  709. 　ＦＯＲ　Ｉ＝０　ＴＯ　２５５
  710. 　　ＣＯＬＩＮＩＴ　”ＧＲＰ”，Ｉ
  711. 　　ＣＯＬＩＮＩＴ　”ＢＧ”，Ｉ
  712. 　ＮＥＸＴ
  713. ＮＥＸＴ
  714. ＣＯＬＯＲ　０
  715. ＣＬＳ
  716. ＰＲＩＮＴ　”オツカレサマ！”
  717. ＥＮＤ

動作ムービーを見る