プチコンmkII
  1. ’┌──────────────────┐
  2. ’│ＳＡＧＡＭＥ４　　　　　　　　　　　│
  3. ’│　タ゛ンマクシューティンク゛ケ゛ーム│
  4. ’└──────────────────┘
  6. ＠ＳＴＡＲＴ
  8. ＧＯＳＵＢ　＠ＩＮＩＴ
  9. ＧＯＳＵＢ　＠ＴＩＴＬＥ
  11. ＯＶＲ＝０
  12. ＳＨＩＰ＝３　’サ゛ンキ
  13. ＳＣ＝０　　　’ＳＣＯＲＥ
  14. ＳＴＡ＝４
  15. ＢＯＳＳ＝０
  17. ＮＯＷ＝ＭＡＩＮＣＮＴＬ
  18. ＦＰＳ＝０：ＣＮＴ＝ＮＯＷ
  19. ’－－－　ＭＡＩＮ　ＬＯＯＰ
  20. ＠ＭＡＩＮ
  22. ＧＯＳＵＢ　＠ＭＹＭＯＶＥ
  23. ＧＯＳＵＢ　＠ＭＹＳＨＯＴ
  24. ＧＯＳＵＢ　＠ＴＫＭＯＶＥ
  25. ＧＯＳＵＢ　＠ＭＡＰＣＴＲ
  27. ＦＰＳ＝ＦＰＳ＋１
  28. ＮＯＷ＝ＭＡＩＮＣＮＴＬ
  29. ＶＳＹＮＣ　１
  31. ＩＦ　ＮＯＷ＜ＣＮＴ　ＴＨＥＮ　ＣＮＴ＝ＮＯＷ
  32. ＩＦ　（ＮＯＷ－ＣＮＴ）＜６０　ＴＨＥＮ　＠ＭＡＩＮ
  33. ＣＮＴ＝ＮＯＷ
  35. ＬＯＣＡＴＥ　０，１
  36. ＣＯＬＯＲ　０
  37. ＰＲＩＮＴ　”　　ＳＨＩＰ　　”；ＳＨＩＰ；”　”
  38. ＰＲＩＮＴ　”　　ＳＣＯＲＥ　”；ＳＣ
  39. ＩＦ　ＢＯＭＢ＝＝０　ＴＨＥＮ　ＣＯＬＯＲ　１３
  40. ＰＲＩＮＴ　”　　ＢＯＭＢ　　”；ＢＯＭＢ；”　”
  42. ＩＦ　ＤＥＢＵＧ　ＴＨＥＮ　ＰＲＩＮＴ　ＦＰＳ；”ＦＰＳ　”；
  43. ＦＰＳ＝０
  45. ＩＦ　ＭＳＧ　ＴＨＥＮ　ＭＳＧ＝ＭＳＧ－１
  46. ＩＦ　ＭＳＧ　ＴＨＥＮ　＠ＭＡＩＮ
  47. Ａ＄＝”　　　　　　　　　　　”：ＧＯＳＵＢ　＠ＰＮＴＳＵＢ３
  49. ＩＦ　ＳＨＩＰ＝＝０　ＴＨＥＮ　＠ＳＴＡＲＴ
  50. ＩＦ　ＯＶＲ＝＝０　ＴＨＥＮ　＠ＭＡＩＮ
  52. ＳＴＡ＝４
  53. ＯＶＲ＝０
  54. ＧＯＴＯ　＠ＭＡＩＮ
  57. ’－－－　シ゛キ　イト゛ウ
  58. ＠ＭＹＭＯＶＥ
  59. ＩＦ　ＯＶＲ　ＴＨＥＮ　＠ＭＹＤＥＡＤ
  61. ＢＴ＝ＢＵＴＴＯＮ（）
  62. ＩＦ　（ＢＴ　ＡＮＤ　１）　ＴＨＥＮ　ＡＹ＝ＡＹ－ＡＤ
  63. ＩＦ　（ＢＴ　ＡＮＤ　２）　ＴＨＥＮ　ＡＹ＝ＡＹ＋ＡＤ
  64. ＩＦ　（ＢＴ　ＡＮＤ　４）　ＴＨＥＮ　ＡＸ＝ＡＸ－ＡＤ
  65. ＩＦ　（ＢＴ　ＡＮＤ　８）　ＴＨＥＮ　ＡＸ＝ＡＸ＋ＡＤ
  66. ＩＦ　ＡＸ＜１６　　ＴＨＥＮ　ＡＸ＝１６
  67. ＩＦ　ＡＸ＞２４７　ＴＨＥＮ　ＡＸ＝２４７
  68. ＩＦ　ＡＹ＜８　　　ＴＨＥＮ　ＡＹ＝８
  69. ＩＦ　ＡＹ＞１７６　ＴＨＥＮ　ＡＹ＝１７６
  70. ＳＰＯＦＳ　ＡＮ，ＡＸ，ＡＹ
  72. ＩＦ　ＳＴＡ　ＴＨＥＮ　＠ＭＹＳＴＡＲＴ
  74. ’－－－　シ゛キ　アタリ　ハンテイ
  75. ＩＦ　ＳＰＨＩＴ（ＡＮ，０）＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  77. Ｊ＝ＳＰＨＩＴＮＯ
  78. ＩＦ　Ｊ＜ＦＮ　ＯＲ　Ｊ＞＝ＦＮ＋ＦＭＡＸ　ＴＨＥＮ　ＲＥＴＵＲＮ
  79. Ｃ＝ＳＰＧＥＴＶ（Ｊ，０）
  80. ＩＦ　Ｃ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ　　　’ハ゛クフウ
  81. ＩＦ　Ｃ＝＝４　ＴＨＥＮ　＠ＯＮＥＵＰ　　　’１ＵＰ
  82. ＩＦ　Ｃ＝＝５　ＴＨＥＮ　＠ＢＯＭＢＡＤＤ　’ＢＯＭＢ
  83. ＩＦ　ＤＥＢＵＧ　ＴＨＥＮ　ＲＥＴＵＲＮ
  84. ＯＶＲ＝１
  85. ＢＥＥＰ　１３
  86. ＧＯＳＵＢ　＠ＭＹＤＥＡＤ
  87. ＳＨＩＰ＝ＳＨＩＰ－１
  88. ＩＦ　ＳＨＩＰ＝＝０　ＴＨＥＮ　＠ＧＭＯＶＥＲ
  89. ＭＳＧ＝１
  90. ＲＥＴＵＲＮ
  92. ’－－－　ＧＡＭＥ　ＯＶＥＲ
  93. ＠ＧＭＯＶＥＲ
  94. ＢＧＭＮ＝６
  95. ＢＧＭＰＬＡＹ　ＢＧＭＮ
  96. Ａ＄＝”ＧＡＭＥ　ＯＶＥＲ”：ＧＯＳＵＢ　＠ＰＮＴＳＵＢ２
  97. ＢＧＭＳＴＯＰ
  98. ＲＥＴＵＲＮ
  100. ’－－－　
  101. ＠ＰＡＵＳＥ
  102. ＣＯＬＯＲ　１２
  103. ＢＧＭＳＴＯＰ
  104. Ｉ＝０
  105. ＠ＰＡＵＳＥ２
  106. ＩＦ　Ｉ＝＝０　ＴＨＥＮ　Ａ＄＝”→ツツ゛ケル　　シ゛ハ゛ク”
  107. ＩＦ　Ｉ＝＝１　ＴＨＥＮ　Ａ＄＝”　ツツ゛ケル　→シ゛ハ゛ク”
  108. ＧＯＳＵＢ　＠ＰＮＴＳＵＢ３
  109. ＧＯＳＵＢ　＠ＢＴＮＯＦＦ
  110. ＧＯＳＵＢ　＠ＢＴＷＡＩＴ
  111. ＩＦ　（ＢＴ　ＡＮＤ　＆ＨＦ）　ＴＨＥＮ　Ｉ＝Ｉ　ＸＯＲ　１
  112. ＩＦ　（ＢＴ　ＡＮＤ　＆Ｈ４Ｆ０）＝＝０　ＴＨＥＮ　＠ＰＡＵＳＥ２
  113. ＣＬＳ
  114. ＧＯＳＵＢ　＠ＢＴＮＯＦＦ
  115. ＩＦ　Ｉ＝＝０　ＴＨＥＮ　ＢＧＭＰＬＡＹ　ＢＧＭＮ：ＲＥＴＵＲＮ
  116. ＳＨＩＰ＝０：ＯＶＲ＝１：ＭＳＧ＝３
  117. ＲＥＴＵＲＮ
  119. ’－－－　ＧＥＴ　１ＵＰ
  120. ＠ＯＮＥＵＰ
  121. ＢＥＥＰ　７
  122. ＳＨＩＰ＝ＳＨＩＰ＋１
  123. ＧＯＴＯ　＠ＩＴＥＭＣＬＲ
  125. ’－－－　ＧＥＴ　ＢＯＭＢ
  126. ＠ＢＯＭＢＡＤＤ
  127. ＢＥＥＰ　１２
  128. ＢＯＭＢ＝ＢＯＭＢ＋１
  129. ＠ＩＴＥＭＣＬＲ
  130. ＳＰＯＦＳ　ＦＮ＋Ｊ，０，９９９
  131. ＳＰＳＥＴＶ　ＦＮ＋Ｊ，４，９９９　’Ｙ
  132. ＳＰＳＥＴＶ　ＦＮ＋Ｊ，１，０　　　’ＨＰ
  133. ＲＥＴＵＲＮ
  135. ’－－－ＢＯＭＢ　ツカウ
  136. ＠ＢＯＭＢ
  137. ＩＦ　ＢＵＳＹ　ＴＨＥＮ　ＲＥＴＵＲＮ
  138. ＩＦ　ＢＯＭＢ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  140. ＢＵＳＹ＝３　　　　’レンソ゛ク　シヨウ　サセナイ
  141. ＢＯＭＢ＝ＢＯＭＢ－１
  142. ＦＯＲ　Ｊ＝０　ＴＯ　ＦＭＡＸ－１
  143. 　ＧＯＳＵＢ　＠ＴＫＤＡＭＡＧＥ　　’テキ　タ゛メーシ゛
  144. ＮＥＸＴ
  145. ’－－－　ホ゛ム　シカクコウカ
  146. ＦＯＲ　Ｉ＝０　ＴＯ　ＢＭＡＸ－１
  147. 　ＳＰＣＨＲ　ＢＮ＋Ｉ，１４３
  148. 　ＳＰＯＦＳ　ＢＮ＋Ｉ，ＡＸ，ＡＹ
  149. ＮＥＸＴ
  150. ＦＯＲ　Ｉ＝０　ＴＯ　ＢＭＡＸ－１
  151. 　Ｒ＝ＲＡＤ（Ｉ＊３６０／ＢＭＡＸ）
  152. 　Ｘ＝ＡＸ＋ＣＯＳ（Ｒ）＊３００
  153. 　Ｙ＝ＡＹ＋ＳＩＮ（Ｒ）＊３００
  154. 　ＳＰＯＦＳ　ＢＮ＋Ｉ，Ｘ，Ｙ，６０
  155. ＮＥＸＴ
  157. ＲＥＴＵＲＮ
  159. ’－－－　シ゛キ　スタート
  160. ＠ＭＹＳＴＡＲＴ
  161. ＩＦ　ＳＴＡ＜４　ＴＨＥＮ　＠ＭＹＳＴＡ２
  163. ＢＥＥＰ　６
  164. ＡＸ＝１２８：ＡＹ＝２００
  165. ＢＯＭＢ＝３　’ホ゛ム　ショキソウヒ゛
  166. ＢＵＳＹ＝２
  168. ＠ＭＹＳＴＡ２
  169. ＡＹ＝ＡＹ－（ＳＴＡ／４）
  170. ＳＴＡ＝ＳＴＡ－０．０５
  171. ＩＦ　ＳＴＡ＜＝０　ＴＨＥＮ　ＳＴＡ＝０
  172. ＩＦ　ＲＮＤ（１５）　ＴＨＥＮ　ＲＥＴＵＲＮ
  173. Ｘ＝ＡＸ：Ｙ＝ＡＹ＋１６
  174. ＮＥＷＲ＝ＲＡＤ（９０）：ＧＯＳＵＢ　＠ＴＫＳＭＯＫＥ
  175. ＲＥＴＵＲＮ
  177. ’－－－　シ゛キ　ハ゛クハツ
  178. ＠ＭＹＤＥＡＤ
  179. ＢＴ＝０
  180. ＮＥＷＲ＝ＲＡＤ（ＲＮＤ（３６０））
  181. Ｘ＝ＡＸ：Ｙ＝ＡＹ：ＧＯＳＵＢ　＠ＴＫＳＭＯＫＥ
  182. ＳＰＯＦＳ　ＡＮ，９９９，９９９
  183. ＩＦ　ＲＮＤ（１０）＝＝０　ＴＨＥＮ　ＢＥＥＰ　３７
  184. ＲＥＴＵＲＮ
  186. ’－－－　タマ　ショリ
  187. ＠ＭＹＳＨＯＴ
  189. ’－－－［Ｂ］ＢＵＴＴＯＮ＝ホ゛ム
  190. ＩＦ　（ＢＴ　ＡＮＤ　３２）　ＴＨＥＮ　＠ＢＯＭＢ
  192. ＩＦ　（ＦＰＳ％８）　ＴＨＥＮ　ＲＥＴＵＲＮ
  194. ＩＦ　ＢＵＳＹ　ＴＨＥＮ　ＢＵＳＹ＝ＢＵＳＹ－１：ＲＥＴＵＲＮ
  196. ’－－－［Ａ］ＢＵＴＴＯＮ＝ＳＨＯＴ
  197. ＩＦ　（ＢＴ　ＡＮＤ　１６）　ＴＨＥＮ　＠ＭＹＦＩＲＥ
  199. ’－－－［Ｙ］ＢＵＴＴＯＮ＝ＳＨＯＴ
  200. ＩＦ　（ＢＴ　ＡＮＤ　１２８）　ＴＨＥＮ　＠ＭＹＦＩＲＥＹ
  202. ＩＦ　（ＢＴ　ＡＮＤ　１０２４）　ＴＨＥＮ　＠ＰＡＵＳＥ
  204. ＲＥＴＵＲＮ
  207. ’－－－　タマ　ハッシャ
  208. ＠ＭＹＦＩＲＥ
  209. Ｘ＝ＡＸ：Ｙ＝ＡＹ
  210. Ｘ１＝０：ＧＯＴＯ　＠ＭＹＦＩＲＥ２
  213. ＠ＭＹＦＩＲＥＹ
  214. Ｘ＝ＡＸ：Ｙ＝ＡＹ
  215. Ｘ１＝　９０
  216. ＩＦ　（ＦＰＳ％１６）＜８　ＴＨＥＮ　Ｘ１＝－Ｘ１
  217. ＧＯＴＯ　＠ＭＹＦＩＲＥ２
  220. ＠ＭＹＦＩＲＥ２
  221. Ｉ＝ＢＮ
  222. ＠ＭＹＦＩＲＥ３
  223. ’－－－　スフ゜ライトノ　アキ　サカ゛ス
  224. ＩＦ　ＳＰＣＨＫ（Ｉ）＝＝０　ＴＨＥＮ　＠ＭＹＦＩＲＥ４
  225. Ｉ＝Ｉ＋１
  226. ＩＦ　Ｉ＜ＢＮ＋ＢＭＡＸ　ＴＨＥＮ　＠ＭＹＦＩＲＥ３
  227. ＲＥＴＵＲＮ　　’アキカ゛　ナイ
  229. ＠ＭＹＦＩＲＥ４　　’アキ　ケンシュツ
  230. ＳＰＣＨＲ　Ｉ，３７
  231. ＳＰＯＦＳ　Ｉ，Ｘ，Ｙ
  232. ＳＰＯＦＳ　Ｉ，Ｘ＋Ｘ１，Ｙ－１９２，３０
  233. ＲＥＴＵＲＮ
  236. ’－－－　テキ　イト゛ウ
  237. ＠ＴＫＭＯＶＥ
  238. ＦＯＲ　Ｉ＝０　ＴＯ　ＦＭＡＸ－１
  239. 　Ｙ＝ＳＰＧＥＴＶ（ＦＮ＋Ｉ，４）　　’サ゛ヒョウ
  240. 　ＩＦ　Ｙ＝＝９９９　ＴＨＥＮ　＠ＴＫＭＯＶＥ２
  242. 　Ｃ＝ＳＰＧＥＴＶ（ＦＮ＋Ｉ，０）　　’シュルイ
  243. 　Ｔ＝ＳＰＧＥＴＶ（ＦＮ＋Ｉ，２）　　’ト゛ウサ　シ゛カン
  244. 　ＳＰＳＥＴＶ　ＦＮ＋Ｉ，２，Ｔ＋１　’シ゛カン＋１
  246. 　Ｘ＝ＳＰＧＥＴＶ（ＦＮ＋Ｉ，３）　　’サ゛ヒョウ
  247. 　Ｒ＝ＦＲ（Ｉ）　　　　　　　　　　　’カクト゛
  249. 　ＧＯＳＵＢ　ＪＭＰＴＢＬ＄（Ｃ）
  251. 　Ｘ＝Ｘ＋ＣＯＳ（Ｒ）＊ＦＤ
  252. 　Ｙ＝Ｙ＋ＳＩＮ（Ｒ）＊ＦＤ
  253. 　ＩＦ　Ｘ＜－８　　ＯＲ　Ｘ＞２６３　ＴＨＥＮ　Ｙ＝９９９
  254. 　ＩＦ　Ｙ＜－３１　ＯＲ　Ｙ＞１９９　ＴＨＥＮ　Ｙ＝９９９
  255. 　ＳＰＳＥＴＶ　ＦＮ＋Ｉ，３，Ｘ　　　’サ゛ヒョウ
  256. 　ＳＰＳＥＴＶ　ＦＮ＋Ｉ，４，Ｙ　　　’
  257. 　ＳＰＯＦＳ　ＦＮ＋Ｉ，Ｘ，Ｙ
  259. 　ＩＦ　ＦＲ（Ｉ）！＝Ｒ　ＴＨＥＮ　ＦＲ（Ｉ）＝Ｒ：ＳＰＡＮＧＬＥ　ＦＮ＋Ｉ，ＦＬＯＯＲ（ＤＥＧ（Ｒ－ＴＫＯＦ（Ｃ）））
  260. 　ＧＯＳＵＢ　＠ＨＩＴＣＨＫ
  262. ＠ＴＫＭＯＶＥ２
  263. ＮＥＸＴ
  264. ＲＥＴＵＲＮ
  267. ’－－－　ＳＭＯＫＥ
  268. ＠ＴＫ０
  269. ＦＤ＝Ｔ／１５
  270. Ｘ＝Ｘ＋ＲＮＤ（５）－２
  271. Ｙ＝Ｙ＋ＲＮＤ（５）－２
  272. ＩＦ　Ｔ＞４０　ＴＨＥＮ　Ｙ＝９９９
  273. ＲＥＴＵＲＮ
  275. ’－－－　ＦＩＲＥ
  276. ＠ＴＫ１
  277. ＦＤ＝２
  278. ＲＥＴＵＲＮ
  280. ’－－－　ＨＯＭＩＮＧ
  281. ＠ＴＫ２
  282. ＦＤ＝Ｔ／１７
  283. ＩＦ　ＲＮＤ（３）　ＴＨＥＮ　ＲＥＴＵＲＮ
  284. ＧＯＳＵＢ　＠ＴＲＫＩＮＧ
  285. Ｒ＝Ｒ＋（ＳＧＮ（Ｒ１）＊０．０４）
  286. ＲＥＴＵＲＮ
  288. ’－－－　ＢＥＡＭ
  289. ＠ＴＫ３
  290. ＦＤ＝ＦＬＯＯＲ（Ｔ＊Ｔ／２００）
  291. ＩＦ　ＦＤ＞６　ＴＨＥＮ　ＦＤ＝６
  292. ＲＥＴＵＲＮ
  294. ’－－－　１ＵＰ
  295. ＠ＴＫ４
  296. ＦＤ＝０
  297. Ｙ＝Ｙ＋（（Ｔ－３５）／３０）
  298. ＲＥＴＵＲＮ
  300. ’－－－　ＢＯＭＢ
  301. ＠ＴＫ５
  302. ＦＤ＝０．５
  303. Ｘ＝Ｘ＋ＣＯＳ（ＲＡＤ（（Ｔ＊２）％３６０））＊２
  304. ＲＥＴＵＲＮ
  306. ＠ＴＫ６
  307. ＲＥＴＵＲＮ
  309. ＠ＴＫ７
  310. ＲＥＴＵＲＮ
  312. ’－－－　Ｓ　ＣＵＲＶＥ
  313. ＠ＴＫ８
  314. ＦＤ＝２
  315. Ｒ１＝ＲＡＤ（１８０／５０）
  316. ＩＦ　ＡＢＳ（５０－（Ｔ％１００））＜２６　ＴＨＥＮ　Ｒ１＝－Ｒ１
  317. Ｒ＝Ｒ＋Ｒ１
  318. ＩＦ　（Ｔ％２０）　ＴＨＥＮ　ＲＥＴＵＲＮ
  319. ＮＥＷＲ＝Ｒ：ＧＯＳＵＢ　＠ＴＫＦＩＲＥ
  320. ＲＥＴＵＲＮ
  322. ’－－－　ＳＷ　ＢＡＣＫ
  323. ＠ＴＫ９
  324. Ｒ＝ＳＧＮ（７０－Ｔ）＊１．５７
  325. ＦＤ＝ＦＬＯＯＲ（ＡＢＳ（６０－Ｔ）／２０）
  326. ＩＦ　ＦＤ＞０　ＴＨＥＮ　ＲＥＴＵＲＮ
  327. ＩＦ　（Ｔ％１６）　ＴＨＥＮ　ＲＥＴＵＲＮ
  328. ＩＦ　ＲＮＤ（１０）＞ＬＶＬ　ＴＨＥＮ　ＲＥＴＵＲＮ
  329. ＢＥＥＰ　３８
  330. ＮＥＷＲ＝ＲＡＤ（９０）：ＮＥＷＣ＝２：ＧＯＳＵＢ　＠ＴＫＢＯＲＮ
  331. ＲＥＴＵＲＮ
  333. ’－－－　Ｖ　ＳＨＯＴ
  334. ＠ＴＫ１０
  335. ＦＤ＝ＦＬＯＯＲ（ＡＢＳ（６０－Ｔ）／１８）
  336. ＩＦ　Ｔ＞１００　ＴＨＥＮ　ＲＥＴＵＲＮ
  337. ＩＦ　ＦＤ＞０　ＴＨＥＮ　ＲＥＴＵＲＮ
  338. ＧＯＳＵＢ　＠ＴＲＫＩＮＧ
  339. Ｒ＝Ｒ＋（ＳＧＮ（Ｒ１）＊０．０５）
  340. ＩＦ　（Ｔ％１４）　ＴＨＥＮ　ＲＥＴＵＲＮ
  341. ＮＥＷＲ＝Ｒ－０．３：ＧＯＳＵＢ　＠ＴＫＦＩＲＥ
  342. ＮＥＷＲ＝Ｒ＋０．３：ＧＯＳＵＢ　＠ＴＫＦＩＲＥ
  343. ＢＥＥＰ　４
  344. ＲＥＴＵＲＮ
  346. ’－－－　Ｕ　ＴＵＲＮ
  347. ＠ＴＫ１１
  348. ＦＤ＝ＡＢＳ（７０－Ｔ）／１５
  349. Ｒ１＝ＲＡＤ（１８０／１４０）
  350. ＩＦ　（Ｉ％２）　ＴＨＥＮ　Ｒ１＝－Ｒ１
  351. Ｒ＝Ｒ＋Ｒ１
  352. ＩＦ　ＦＤ＞１　ＯＲ　（Ｔ％１５）　ＴＨＥＮ　ＲＥＴＵＲＮ
  353. ＮＥＷＲ＝ＡＴＡＮ（ＡＹ－Ｙ，ＡＸ－Ｘ）
  354. ＧＯＳＵＢ　＠ＴＫＦＩＲＥ
  355. ＢＥＥＰ　４
  356. ＲＥＴＵＲＮ
  358. ’－－－　ＳＰＩＮ
  359. ＠ＴＫ１２
  360. ＦＤ＝２
  361. ＩＦ　Ｔ＞１７０　ＴＨＥＮ　ＲＥＴＵＲＮ
  362. ＩＦ　Ｔ＞１００　ＴＨＥＮ　＠ＴＫＡ１２Ｂ
  363. ＩＦ　（Ｔ％３０）　ＴＨＥＮ　ＲＥＴＵＲＮ
  364. Ｊ＝８５＋ＦＬＯＯＲ（Ｉ％２）＊８５
  365. Ｒ＝ＡＴＡＮ（６４－Ｙ，Ｊ－Ｘ）
  366. ＲＥＴＵＲＮ
  367. ＠ＴＫＡ１２Ｂ
  368. ＦＤ＝０
  369. ＩＦ　（Ｔ％８）　ＴＨＥＮ　ＲＥＴＵＲＮ
  370. Ｒ＝Ｒ＋０．８
  371. ＮＥＷＲ＝Ｒ：ＧＯＳＵＢ　＠ＴＫＦＩＲＥ
  372. ＲＥＴＵＲＮ
  374. ’－－－　ＵＦＯ
  375. ＠ＴＫ１３
  376. ＦＤ＝１＋（Ｔ／１５０）
  377. ＩＦ　ＲＮＤ（４）＝＝０　ＴＨＥＮ　Ｒ＝Ｒ－ＲＡＤ（８）
  378. ＩＦ　ＲＮＤ（４）＝＝０　ＴＨＥＮ　Ｒ＝Ｒ＋ＲＡＤ（８）
  379. ＩＦ　（Ｔ％６０）　ＴＨＥＮ　ＲＥＴＵＲＮ
  380. ＮＥＷＲ＝ＡＴＡＮ（ＡＹ－Ｙ，ＡＸ－Ｘ）
  381. ＧＯＳＵＢ　＠ＴＫＦＩＲＥ
  382. ＲＥＴＵＲＮ
  385. ’－－－　ＨＯＭＩＮＧ　ＭＩＳＳＩＬＥ
  386. ＠ＴＫ１４
  387. ＩＦ　Ｔ＞２４０　ＴＨＥＮ　Ｊ＝Ｉ：ＧＯＴＯ　＠ＴＫＤＥＡＤ
  389. ＦＤ＝３．５－（Ｔ／３５）
  390. ＩＦ　ＦＤ＜１．６　ＴＨＥＮ　ＦＤ＝１．６
  391. ＧＯＳＵＢ　＠ＴＲＫＩＮＧ
  392. Ｒ＝Ｒ＋（ＳＧＮ（Ｒ１）＊０．０５）
  393. ＲＥＴＵＲＮ
  395. ’－－－　ＳＩＤＥ　ＳＨＯＴ
  396. ＠ＴＫ１５
  397. ＦＤ＝ＦＬＯＯＲ（（Ｔ％９０）／３０）
  398. ＩＦ　ＡＢＳ（ＡＹ－Ｙ）＞２０　ＴＨＥＮ　ＲＥＴＵＲＮ
  399. ＩＦ　（Ｔ％２０）　ＴＨＥＮ　ＲＥＴＵＲＮ
  400. ＮＥＷＲ＝ＲＡＤ（　　０）：ＧＯＳＵＢ　＠ＴＫＦＩＲＥ
  401. ＮＥＷＲ＝ＲＡＤ（１８０）：ＧＯＳＵＢ　＠ＴＫＦＩＲＥ
  402. ＲＥＴＵＲＮ
  404. ’－－－　ＮＥＡＲ　ＭＩＳＳ
  405. ＠ＴＫ１６
  406. ＦＤ＝２．２
  407. Ｊ＝Ｔ％６４
  408. ＩＦ　Ｊ　ＴＨＥＮ　ＲＥＴＵＲＮ
  409. Ｒ＝ＡＴＡＮ（１２０，（ＡＸ－４８＋ＲＮＤ（９６））－Ｘ）
  410. ＲＥＴＵＲＮ
  412. ’－－－　ＴＳＵＢＯ
  413. ＠ＴＫ１７
  414. Ｊ＝Ｔ％６０
  415. ＦＤ＝０
  416. Ｙ＝Ｙ＋１
  417. ＩＦ　Ｊ＝＝５９　ＴＨＥＮ　＠ＴＫ１７Ｂ
  418. ＩＦ　Ｊ＞３０　ＴＨＥＮ　ＲＥＴＵＲＮ
  419. ＧＯＳＵＢ　＠ＴＲＫＩＮＧ
  420. Ｒ＝Ｒ＋（ＳＧＮ（Ｒ１）＊０．０４）
  421. ＲＥＴＵＲＮ
  423. ＠ＴＫ１７Ｂ
  424. ＮＥＷＲ＝Ｒ：ＧＯＳＵＢ　＠ＴＫＦＩＲＥ
  425. ＲＥＴＵＲＮ
  427. ’－－－　
  428. ＠ＴＫ１８
  429. ＠ＴＫ１９
  430. ＲＥＴＵＲＮ
  432. ’－－－　ＢＯＳＳ１
  433. ＠ＴＫ２０
  434. ＦＤ＝０．５
  435. ＩＦ　Ｔ＜９０＊２　ＴＨＥＮ　ＲＥＴＵＲＮ
  436. ＦＤ＝０
  437. Ｘ＝Ｘ＋ＣＯＳ（ＲＡＤ（（Ｔ％９０）＊４））＊２
  438. Ｙ＝Ｙ＋ＳＩＮ（ＲＡＤ（（Ｔ％４０）＊９））＊２
  439. ＩＦ　（Ｔ％４０）　ＴＨＥＮ　ＲＥＴＵＲＮ
  440. ＩＦ　（Ｔ％２００）＜２０＊ＬＶＬ　ＴＨＥＮ　＠ＴＫ２０Ｂ
  441. ＦＯＲ　ＮＥＷＲ＝０　ＴＯ　３．１４　ＳＴＥＰ　０．４５
  442. 　ＧＯＳＵＢ　＠ＴＫＦＩＲＥ
  443. ＮＥＸＴ
  444. ＢＥＥＰ　１１
  445. ＲＥＴＵＲＮ
  447. ＠ＴＫ２０Ｂ
  448. ＴＹ＝Ｙ
  449. ＮＥＷＲ＝ＲＡＤ（９０）
  450. ＧＯＳＵＢ　＠ＴＫＢＥＡＭ
  451. Ｙ＝Ｙ－３２
  452. ＧＯＳＵＢ　＠ＴＫＢＥＡＭ
  453. Ｙ＝Ｙ－３２
  454. ＧＯＳＵＢ　＠ＴＫＢＥＡＭ
  455. Ｙ＝ＴＹ
  456. ＢＥＥＰ　５
  457. ＲＥＴＵＲＮ
  459. ’－－－　ＢＯＳＳ２
  460. ＠ＴＫ２１
  461. ＦＤ＝０．５
  462. ＩＦ　Ｔ＜９０＊２　ＴＨＥＮ　ＲＥＴＵＲＮ
  463. ＦＤ＝０
  464. Ｊ＝１３０－（ＬＶＬ＊４）
  465. ＩＦ　Ｊ＜１００　ＴＨＥＮ　Ｊ＝１００
  466. Ｊ＝Ｔ％Ｊ
  467. ＩＦ　Ｊ＞＝９０　ＴＨＥＮ　＠ＴＫ２１Ｂ
  468. Ｘ＝Ｘ＋ＣＯＳ（ＲＡＤ（Ｊ＊４））＊１．５
  470. ＧＯＳＵＢ　＠ＴＲＫＩＮＧ
  471. Ｒ＝Ｒ＋（ＳＧＮ（Ｒ１）＊０．０１）
  472. ＩＦ　（Ｔ％４０）　ＴＨＥＮ　ＲＥＴＵＲＮ
  474. ＦＯＲ　ＮＥＷＲ＝０　ＴＯ　３．１４　ＳＴＥＰ　０．６
  475. 　ＧＯＳＵＢ　＠ＴＫＦＩＲＥ
  476. ＮＥＸＴ
  477. ＲＥＴＵＲＮ
  479. ＠ＴＫ２１Ｂ
  480. ＩＦ　（Ｔ％５）　ＴＨＥＮ　ＲＥＴＵＲＮ
  481. ＩＦ　ＲＮＤ（１４）　ＴＨＥＮ　ＢＥＥＰ　６
  482. ＴＸ＝Ｘ：ＴＹ＝Ｙ
  483. ＮＥＷＲ＝Ｒ
  484. Ｘ＝ＴＸ＋ＣＯＳ（ＮＥＷＲ）＊３０
  485. Ｙ＝ＴＹ＋ＳＩＮ（ＮＥＷＲ）＊３０
  486. ＧＯＳＵＢ　＠ＴＫＢＥＡＭ
  487. Ｘ＝ＴＸ：Ｙ＝ＴＹ
  488. ＲＥＴＵＲＮ
  490. ’－－－　ＢＯＳＳ３
  491. ＠ＴＫ２２
  492. ＦＤ＝（（９０＊２）－Ｔ）／２２０
  493. ＩＦ　Ｔ＜９０＊２　ＴＨＥＮ　ＲＥＴＵＲＮ　’トウシ゛ョウ
  494. ＦＤ＝０
  495. Ｊ＝Ｔ％３６０
  496. ＩＦ　Ｊ＜１８０　ＴＨＥＮ　＠ＴＫ２２Ｂ
  497. Ｘ＝Ｘ＋ＣＯＳ（ＲＡＤ（（Ｊ＊２）％３６０））
  498. ＩＦ　（Ｔ％９０）＝＝０　ＴＨＥＮ　＠ＴＫ２２Ｄ
  499. ＩＦ　（Ｔ％１２）＝＝０　ＴＨＥＮ　＠ＴＫ２２Ｃ
  500. ＲＥＴＵＲＮ
  502. ＠ＴＫ２２Ｂ
  503. Ｙ＝Ｙ＋（９０－Ｊ）／４０
  504. ＩＦ　（Ｔ％３０）　ＴＨＥＮ　ＲＥＴＵＲＮ
  505. ＢＥＥＰ　９
  506. ＦＯＲ　ＮＥＷＲ＝０　ＴＯ　６．２８　ＳＴＥＰ　０．７
  507. ＧＯＳＵＢ　＠ＴＫＦＩＲＥ
  508. ＮＥＸＴ
  509. ＲＥＴＵＲＮ
  511. ＠ＴＫ２２Ｃ
  512. ＩＦ　ＬＶＬ＜ＲＮＤ（２０）　ＴＨＥＮ　ＲＥＴＵＲＮ
  513. ＢＥＥＰ　３８
  514. ＴＸ＝Ｘ　　’ＢＡＣＫＵＰ
  515. Ｘ＝ＴＸ＋ＲＮＤ（２）＊８０－４０
  516. ＮＥＷＲ＝ＲＡＤ（９０）
  517. ＮＥＷＣ＝２
  518. ＧＯＳＵＢ　＠ＴＫＢＯＲＮ
  519. Ｘ＝ＴＸ
  520. ＲＥＴＵＲＮ
  522. ＠ＴＫ２２Ｄ
  523. ＢＥＥＰ　１１
  524. ＮＥＷＲ＝ＲＡＤ（２７０）
  525. ＮＥＷＣ＝１４
  526. ＧＯＳＵＢ　＠ＴＫＢＯＲＮ
  527. ＲＥＴＵＲＮ
  529. ＠ＴＫ２３
  530. ＠ＴＫ２４
  531. ＠ＴＫ２５
  532. ＲＥＴＵＲＮ
  535. ’－－－　シ゛キ　ヲ　ツイセキ
  536. ＠ＴＲＫＩＮＧ
  537. Ｒ１＝ＡＴＡＮ（ＡＹ－Ｙ，ＡＸ－Ｘ）－Ｒ
  538. ＩＦ　Ｒ１＞　３．１４　ＴＨＥＮ　Ｒ１＝Ｒ１－６．２８
  539. ＩＦ　Ｒ１＜－３．１４　ＴＨＥＮ　Ｒ１＝Ｒ１＋６．２８
  540. ＲＥＴＵＲＮ
  542. ’－－－　テキ＋タマ　アタリ　ハンテイ
  543. ＠ＨＩＴＣＨＫ
  544. ＩＦ　Ｙ＝＝９９９　ＴＨＥＮ　ＲＥＴＵＲＮ
  545. ＩＦ　Ｃ＜８　ＴＨＥＮ　ＲＥＴＵＲＮ　　’ムテキキャラ
  547. ＩＦ　ＳＰＨＩＴ（ＦＮ＋Ｉ，ＢＮ）＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  548. Ｊ＝ＳＰＨＩＴＮＯ
  549. ＩＦ　（Ｊ＜ＢＮ）　ＯＲ　（Ｊ＞＝ＢＮ＋ＢＭＡＸ）　ＴＨＥＮ　ＲＥＴＵＲＮ
  550. ＩＦ　ＳＰＣＨＫ（Ｊ）＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  551. ＳＰＯＦＳ　Ｊ，０，９９９
  553. Ｊ＝Ｉ
  555. ＠ＴＫＤＡＭＡＧＥ
  556. ＮＮ＝ＦＮ＋Ｊ
  557. ＩＦ　ＳＰＧＥＴＶ（ＮＮ，４）＝＝９９９　ＴＨＥＮ　ＲＥＴＵＲＮ
  558. Ｃ＝ＳＰＧＥＴＶ（ＮＮ，０）
  559. ＩＦ　Ｃ＜１　ＴＨＥＮ　ＲＥＴＵＲＮ
  561. ＨＰ＝ＳＰＧＥＴＶ（ＮＮ，１）
  562. ＩＦ　ＨＰ　ＴＨＥＮ　ＨＰ＝ＨＰ－１　　’テキ　タイリョク－１
  563. ＳＰＳＥＴＶ　ＮＮ，１，ＨＰ
  564. ＩＦ　ＨＰ　ＴＨＥＮ　ＢＥＥＰ　０，２０４８：ＲＥＴＵＲＮ
  566. Ｘ＝ＳＰＧＥＴＶ（ＮＮ，３）　　’サ゛ヒョウ
  567. Ｙ＝ＳＰＧＥＴＶ（ＮＮ，４）　　’サ゛ヒョウ
  568. ＢＥＥＰ　１３，２０９６
  569. ＧＯＳＵＢ　＠ＴＫＤＥＡＤ
  570. ＳＣ＝ＳＣ＋１
  572. ＩＦ　Ｃ＜８　ＴＨＥＮ　ＲＥＴＵＲＮ
  573. ’アイテム　ニ　シナイ
  575. ＩＦ　Ｃ＜２０　ＴＨＥＮ　＠ＨＩＴＣＨＫ２
  576. ’－－－　ホ゛ス　タオシタ
  577. ＠ＢＯＳＤＥＡＤ
  578. ＢＧＭＮ＝１５
  579. ＢＧＭＰＬＡＹ　ＢＧＭＮ
  580. ＬＶＬ＝ＬＶＬ＋１
  581. ＢＯＳＳ＝ＢＯＳＰＯＳ＋１００００
  582. ＲＥＴＵＲＮ
  584. ’－－－　テキヲ　タオシタ
  585. ＠ＨＩＴＣＨＫ２
  586. ＩＦ　ＲＮＤ（８）＝＝０　ＴＨＥＮ　ＮＥＷＣ＝４：ＧＯＴＯ　＠ＩＴＥＭＡＤＤ　’１ＵＰ
  587. ＩＦ　ＲＮＤ（８）＝＝０　ＴＨＥＮ　ＮＥＷＣ＝５：ＧＯＴＯ　＠ＩＴＥＭＡＤＤ　’ＢＯＭＢ
  588. ＲＥＴＵＲＮ
  589. ＠ＩＴＥＭＡＤＤ　　’アイテム　ハッセイ
  590. ＮＥＷＲ＝ＲＡＤ（９０）
  591. ＧＯＳＵＢ　＠ＴＫＢＯＲＮ２
  592. ＲＥＴＵＲＮ
  594. ’－－－　ハイケイ　ショリ
  595. ＠ＭＡＰＣＴＲ
  597. ’－－－　ＢＧ０　テマエ　スクロ－ル
  598. ＨＹ＝（ＨＹ－１）ＡＮＤ　５１１
  599. ＢＧＯＦＳ　０，０，ＨＹ
  600. ＧＯＳＵＢ　＠ＤＲＡＷＢＧ０
  602. ’－－－　ＢＧ１　オク　スクロ－ル
  603. ＩＦ　（ＨＹ％４）　ＴＨＥＮ　ＲＥＴＵＲＮ
  604. ＧＹ＝（ＧＹ－１）ＡＮＤ　５１１
  605. ＢＧＯＦＳ　１，０，ＧＹ
  606. ＧＯＳＵＢ　＠ＤＲＡＷＢＧ１
  608. ＩＦ　ＯＶＲ　ＯＲ　ＭＳＧ　ＴＨＥＮ　ＲＥＴＵＲＮ
  609. ＩＦ　ＢＯＳＳ＝＝０　ＴＨＥＮ　Ａ＄＝”ＳＴＡＧＥ　”＋ＳＴＲ＄（ＬＶＬ）：ＢＧＭＮ＝２３：ＢＧＭＰＬＡＹ　ＢＧＭＮ：ＧＯＳＵＢ　＠ＰＮＴＳＵＢ２
  611. ＢＯＳＳ＝ＢＯＳＳ＋１
  612. ＩＦ　ＢＯＳＳ＞＝ＢＯＳＰＯＳ　ＴＨＥＮ　＠ＢＯＳＳ１
  614. ’－－－　テキシュツケ゛ン　ショリ
  615. ＩＦ　（ＧＹ％４）　ＴＨＥＮ　ＲＥＴＵＲＮ
  616. ＩＦ　ＲＮＤ（１２）＞ＬＶＬ　ＴＨＥＮ　ＲＥＴＵＲＮ
  617. Ｘ＝ＲＮＤ（２５６－６４）＋３２：Ｙ＝－２４
  618. ＮＥＷＣ＝ＦＬＯＯＲ（（ＧＹ／（４＊５））％１０）＋８
  619. ＮＥＷＲ＝ＲＡＤ（９０）
  620. ＧＯＳＵＢ　＠ＴＫＢＯＲＮ
  621. ＲＥＴＵＲＮ
  623. ’－－－　ホ゛ス　シュツケ゛ン　ショリ
  624. ＠ＢＯＳＳ１
  625. Ｊ＝ＢＯＳＳ－ＢＯＳＰＯＳ
  626. ＩＦ　Ｊ＞１００５０　ＴＨＥＮ　ＢＯＳＳ＝０：ＲＥＴＵＲＮ
  627. ＩＦ　Ｊ＞１００００　ＴＨＥＮ　＠ＢＯＳＳ３
  628. ＩＦ　Ｊ＞１５００　　ＴＨＥＮ　＠ＢＯＳＳ４
  629. ＩＦ　Ｊ＞９００　　　ＴＨＥＮ　ＲＥＴＵＲＮ
  630. ＩＦ　Ｊ＞２０　　　　ＴＨＥＮ　＠ＢＯＳＳ２
  632. ’－－－　ホ゛ス　テマエ
  633. ＩＦ　ＢＯＳＳ！＝ＢＯＳＰＯＳ　ＴＨＥＮ　ＲＥＴＵＲＮ
  634. ＢＧＭＮ＝１３
  635. ＢＧＭＰＬＡＹ　ＢＧＭＮ
  636. Ａ＄＝”ＷＡＲＮＩＮＧ！！”：ＧＯＳＵＢ　＠ＰＮＴＳＵＢ２
  637. ＲＥＴＵＲＮ
  639. ’－－－　ホ゛ス　トウシ゛ョウ
  640. ＠ＢＯＳＳ２
  641. Ｘ＝１２８：Ｙ＝－３１
  642. ＮＥＷＣ＝２０＋（（ＬＶＬ－１）　％　３）
  643. ＮＥＷＲ＝ＲＡＤ（９０）
  644. ＧＯＳＵＢ　＠ＴＫＢＯＲＮ
  645. ＩＦ　Ｊ＞＝０　ＴＨＥＮ　ＢＯＳＳ＝ＢＯＳＰＯＳ＋９００
  646. ＲＥＴＵＲＮ
  648. ’－－－　ホ゛ス　タイシ゛ョウ
  649. ＠ＢＯＳＳ３
  650. Ｘ＝１２８＋ＲＮＤ（１２８）－６４
  651. Ｙ＝９６＋ＲＮＤ（９６）－４８
  652. ＮＥＷＲ＝ＲＡＤ（ＲＮＤ（３６０））
  653. ＩＦ　ＲＮＤ（１０）＝＝０　ＴＨＥＮ　ＢＥＥＰ　１３
  654. ＧＯＳＵＢ　＠ＴＫＳＭＯＫＥ
  655. ＲＥＴＵＲＮ
  657. ’－－－　ホ゛ス　シ゛ハ゛ク
  658. ＠ＢＯＳＳ４
  659. ＦＯＲ　Ｊ＝０　ＴＯ　ＦＭＡＸ－１
  660. 　Ｘ＝ＳＰＧＥＴＶ（ＦＮ＋Ｊ，３）　　’サ゛ヒョウ
  661. 　Ｙ＝ＳＰＧＥＴＶ（ＦＮ＋Ｊ，４）　　’サ゛ヒョウ
  662. 　ＩＦ　Ｙ！＝９９９　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＫＤＥＡＤ
  663. ＮＥＸＴ
  664. ＧＯＳＵＢ　＠ＢＯＳＤＥＡＤ
  665. ＲＥＴＵＲＮ
  667. ’－－－　テキ　ハ゛クハツ
  668. ＠ＴＫＤＥＡＤ
  669. ＮＥＷＣ＝０
  670. ＧＯＴＯ　＠ＴＫＢＯＲＮ２
  672. ’－－－　ＢＥＡＭ
  673. ＠ＴＫＢＥＡＭ
  674. ＮＥＷＣ＝３
  675. ＧＯＴＯ　＠ＴＫＢＯＲＮ
  677. ’－－－　ハ゛クハツ
  678. ＠ＴＫＳＭＯＫＥ
  679. ＮＥＷＣ＝０
  680. ＧＯＴＯ　＠ＴＫＢＯＲＮ
  682. ’－－－　テキタ゛ンハッシャ
  683. ＠ＴＫＦＩＲＥ
  684. ＮＥＷＣ＝１
  685. ＩＦ　ＲＮＤ（９）＞ＬＶＬ　ＴＨＥＮ　ＲＥＴＵＲＮ
  686. ＧＯＴＯ　＠ＴＫＢＯＲＮ
  688. ’－－－　テキ／エフェクト　シュツケ゛ン
  689. ＠ＴＫＢＯＲＮ
  690. Ｊ＝０
  691. ＠ＴＫＢＯＲＮ１　　’スフ゜ライト　ノ　アキ　サカ゛ス
  693. ＩＦ　ＳＰＧＥＴＶ（ＦＮ＋Ｊ，４）＝＝９９９　ＴＨＥＮ　＠ＴＫＢＯＲＮ２
  694. Ｊ＝Ｊ＋１
  695. ＩＦ　Ｊ＜ＦＭＡＸ　ＴＨＥＮ　＠ＴＫＢＯＲＮ１
  696. Ｊ＝－１　　　’アキカ゛　ナイ
  697. ＲＥＴＵＲＮ
  699. ＠ＴＫＢＯＲＮ２　　’スフ゜ライト　ノ　アキケンシュツ
  700. Ｗ＝ＴＫＷ（ＮＥＷＣ）
  701. Ｈ＝ＴＫＨ（ＮＥＷＣ）
  702. ＮＮ＝ＦＮ＋Ｊ
  703. ＳＰＳＥＴ　ＮＮ，ＴＫＣ（ＮＥＷＣ），ＴＫＰＬ（ＮＥＷＣ），０，０，１，Ｗ，Ｈ
  704. ＳＰＨＯＭＥ　ＮＮ，Ｗ／２，Ｈ／２
  705. ＳＰＣＯＬ　ＮＮ，－Ｗ／２，－Ｈ／２，Ｗ，Ｈ，ＴＲＵＥ
  706. ＳＰＯＦＳ　ＮＮ，Ｘ，Ｙ
  707. ＳＰＳＣＡＬＥ　ＮＮ，ＴＫＳＣ（ＮＥＷＣ）
  708. ＳＰＡＮＩＭ　ＮＮ，ＴＫＡ（ＮＥＷＣ），８
  709. ＳＰＡＮＧＬＥ　ＮＮ，ＦＬＯＯＲ（ＤＥＧ（ＮＥＷＲ－ＴＫＯＦ（ＮＥＷＣ）））
  710. ＦＲ（Ｊ）＝ＮＥＷＲ
  711. ＳＰＳＥＴＶ　ＮＮ，０，ＮＥＷＣ　’シュルイ
  712. ＳＰＳＥＴＶ　ＮＮ，１，ＴＫＨＰ（ＮＥＷＣ）　’タイリョク
  713. ＳＰＳＥＴＶ　ＮＮ，２，０　　　　’ト゛ウサ　シ゛カン
  714. ＳＰＳＥＴＶ　ＮＮ，３，Ｘ　　　　’サ゛ヒョウ
  715. ＳＰＳＥＴＶ　ＮＮ，４，Ｙ　　　　’サ゛ヒョウ
  716. ＲＥＴＵＲＮ
  718. ’－－－ＢＧ０　テマエ
  719. ＠ＤＲＡＷＢＧ０
  720. ＩＦ　（ＨＹ％８）　ＴＨＥＮ　ＲＥＴＵＲＮ
  721. ＰＡＬ＝１０＋（（ＬＶＬ＋２）％５）
  722. Ｙ＝（（ＨＹ／８）－１）ＡＮＤ　６３
  723. ＩＦ　ＢＯＳＳ＞（ＢＯＳＰＯＳ＋１０４０）　ＴＨＥＮ　＠ＣＬＲＢＧ０
  725. ＦＯＲ　Ｘ＝０　ＴＯ　３１
  726. 　Ｃ＝０
  727. 　ＩＦ　Ｘ＜＝１　　ＴＨＥＮ　Ｃ＝７９６＋Ｘ＋（Ｙ％４）＊３２
  728. 　ＩＦ　Ｘ＞＝３０　ＴＨＥＮ　Ｃ＝７６８＋Ｘ＋（Ｙ％４）＊３２
  729. 　ＢＧＰＵＴ　０，Ｘ，Ｙ，Ｃ，ＰＡＬ，０，０
  730. ＮＥＸＴ
  731. ＲＥＴＵＲＮ
  733. ＠ＣＬＲＢＧ０
  734. ＦＯＲ　Ｘ＝０　ＴＯ　３１
  735. 　Ｃ＝０：ＢＧＰＵＴ　０，Ｘ，Ｙ，Ｃ，ＰＡＬ，０，０
  736. ＮＥＸＴ
  737. ＲＥＴＵＲＮ
  739. ’－－－ＢＧ１　オク
  740. ＠ＤＲＡＷＢＧ１
  741. ＩＦ　（ＧＹ％８）　ＴＨＥＮ　ＲＥＴＵＲＮ
  742. Ｙ＝（（ＧＹ／８）－１）ＡＮＤ　６３
  743. ＩＦ　ＢＯＳＳ＞ＢＯＳＰＯＳ　ＴＨＥＮ　＠ＣＬＲＢＧ１
  745. ＰＡＬ＝１０＋（ＬＶＬ％５）
  746. ＦＯＲ　Ｘ＝０　ＴＯ　３１
  747. 　Ｃ＝ＲＮＤ（４）＋７９０
  748. 　Ｊ＝ＡＢＳ（Ｘ－１６）
  749. 　ＩＦ　Ｊ＞４　ＡＮＤ　（（Ｙ％８）＞１）　ＴＨＥＮ　Ｃ＝０
  750. 　ＢＧＰＵＴ　１，Ｘ，Ｙ，Ｃ，ＰＡＬ，０，０
  751. ＮＥＸＴ
  752. ＲＥＴＵＲＮ
  754. ＠ＣＬＲＢＧ１
  755. ＦＯＲ　Ｘ＝０　ＴＯ　３１
  756. 　Ｃ＝０：ＢＧＰＵＴ　１，Ｘ，Ｙ，Ｃ，ＰＡＬ，０，０
  757. ＮＥＸＴ
  758. ＲＥＴＵＲＮ
  760. ’－－－　ショキカ
  761. ＠ＩＮＩＴ
  763. ＣＬＥＡＲ
  764. ＡＣＬＳ
  765. ＬＶＬ＝１
  766. ＧＹ＝０：ＨＹ＝０　　　’ＢＧ　サ゛ヒョウ
  767. ＢＯＳＰＯＳ＝３００　　’ホ゛ス　トウシ゛ョウ　シ゛キ
  769. ＢＭＡＸ＝１６　　’タマシュツケ゛ンスウ
  770. ＦＭＡＸ＝３２　　’テキシュツケ゛ンスウ
  771. ＴＭＡＸ＝２６　　’テキノ　シュルイ
  773. ＤＩＭ　ＦＲ（ＦＭＡＸ）
  775. ＤＩＭ　ＴＫＣ（ＴＭＡＸ）　　’キャラクタ
  776. ＤＩＭ　ＴＫＰＬ（ＴＭＡＸ）　’ハ゜レット
  777. ＤＩＭ　ＴＫＡ（ＴＭＡＸ）　　’アニメ　スウ
  778. ＤＩＭ　ＴＫＷ（ＴＭＡＸ）　　’ハハ゛
  779. ＤＩＭ　ＴＫＨ（ＴＭＡＸ）　　’タカサ
  780. ＤＩＭ　ＴＫＳＣ（ＴＭＡＸ）　’スケール
  781. ＤＩＭ　ＴＫＨＰ（ＴＭＡＸ）　’タイリョク
  782. ＤＩＭ　ＴＫＯＦ（ＴＭＡＸ）　’カイテン　オフセット
  783. ＤＩＭ　ＪＭＰＴＢＬ＄（ＴＭＡＸ）
  785. ＦＯＲ　Ｉ＝０　ＴＯ　ＴＭＡＸ－１
  786. 　ＪＭＰＴＢＬ＄（Ｉ）＝”＠ＴＫ”＋ＳＴＲ＄（Ｉ）
  787. ＮＥＸＴ
  789. ＡＮ＝６０　　　’シ゛キ　スフ゜ライトＮＯ．
  790. ＢＮ＝６２　　　’タマ　スフ゜ライトＮＯ．
  791. ＦＮ＝０　　　　’テキ　スフ゜ライトＮＯ．
  793. ’－－－　シ゛キ　ショキカ
  794. ＰＡＬ＝１１
  795. ＡＤ＝３
  796. Ｗ＝１６：Ｈ＝３２
  797. ＳＰＳＥＴ　ＡＮ，２８８，ＰＡＬ，０，０，１，Ｗ，Ｈ
  798. ＳＰＨＯＭＥ　ＡＮ，Ｗ／２，Ｈ／２
  799. ＳＰＣＯＬ　ＡＮ，－Ｗ／４，－Ｈ／４，Ｗ／２，Ｈ／２，ＦＡＬＳＥ
  800. ＳＰＯＦＳ　ＡＮ，９９９，９９９
  802. ’－－－　タマ　ショキカ
  803. ＰＡＬ＝４
  804. Ｗ＝１６：Ｈ＝１６
  805. ＦＯＲ　Ｉ＝０　ＴＯ　ＢＭＡＸ－１
  806. 　Ｊ＝ＢＮ＋Ｉ　　　　　’カンリ　ハ゛ンコ゛ウ
  807. 　ＳＰＳＥＴ　Ｊ，３７，ＰＡＬ，０，０，１，Ｗ，Ｈ
  808. 　ＳＰＨＯＭＥ　Ｊ，Ｗ／２，Ｈ／２
  809. 　ＳＰＣＯＬ　Ｊ，－Ｗ／２，－Ｈ／２，Ｗ，Ｈ，ＦＡＬＳＥ
  810. 　ＳＰＯＦＳ　Ｊ，９９９，９９９
  811. ＮＥＸＴ
  813. ’－－－　テキ　ショキカ
  814. ＰＡＬ＝３
  815. ＦＯＲ　Ｉ＝０　ＴＯ　ＦＭＡＸ－１
  816. 　Ｊ＝ＦＮ＋Ｉ　　　　　’カンリ　ハ゛ンコ゛ウ
  817. 　ＳＰＳＥＴ　Ｊ，１４２，ＰＡＬ，０，０，１，Ｗ，Ｈ
  818. 　ＳＰＨＯＭＥ　Ｊ，Ｗ／２，Ｈ／２
  819. 　ＳＰＣＯＬ　Ｊ，－Ｗ／２，－Ｈ／２，Ｗ，Ｈ，ＴＲＵＥ
  820. 　ＳＰＯＦＳ　Ｊ，９９９，９９９
  821. 　ＳＰＳＥＴＶ　Ｊ，１，０　　　　’タイリョク
  822. 　ＳＰＳＥＴＶ　Ｊ，３，９９９　　’サ゛ヒョウ
  823. 　ＳＰＳＥＴＶ　Ｊ，４，９９９　　’サ゛ヒョウ
  824. ＮＥＸＴ
  826. ’－－－　キャラクタテ゛ータ　ナラヘ゛カエ
  827. ＤＩＭ　ＢＦ＄（６４）
  829. ’スフ゜ライトハ゛ンコ゛ウ　２５６－２８７
  830. ＣＨＲＩＮＩＴ　”ＳＰＵ４”
  831. ＢＦＭＡＸ＝２＊１＊４　　　’キャラクタスウ
  832. ＦＯＲ　Ｃ＝０　ＴＯ　３１＊４　ＳＴＥＰ　ＢＦＭＡＸ
  833. 　ＦＯＲ　Ｉ＝０　ＴＯ　ＢＦＭＡＸ－１
  834. 　　Ｊ＝Ｃ＋（Ｉ％２）
  835. 　　Ｊ＝Ｊ＋ＦＬＯＯＲ（（Ｉ％４）／２）＊４
  836. 　　Ｊ＝Ｊ＋（ＦＬＯＯＲ（Ｉ／４）％２）＊２
  837. 　　ＣＨＲＲＥＡＤ（”ＳＰＵ４”，Ｊ），ＢＦ＄（Ｉ）
  838. 　ＮＥＸＴ
  839. 　ＦＯＲ　Ｉ＝０　ＴＯ　ＢＦＭＡＸ－１
  840. 　　Ｊ＝Ｃ＋Ｉ
  841. 　　ＣＨＲＳＥＴ　”ＳＰＵ４”，Ｊ，ＢＦ＄（Ｉ）
  842. 　ＮＥＸＴ
  843. ＮＥＸＴ
  845. ’スフ゜ライトハ゛ンコ゛ウ　３２０－３８３
  846. ＣＨＲＩＮＩＴ　”ＳＰＵ５”
  847. ＢＦＭＡＸ＝２＊２＊４　　　’キャラクタスウ
  848. ＦＯＲ　Ｃ＝０　ＴＯ　６３＊４　ＳＴＥＰ　ＢＦＭＡＸ
  849. 　ＦＯＲ　Ｉ＝０　ＴＯ　ＢＦＭＡＸ－１
  850. 　　Ｊ＝Ｃ＋（Ｉ％２）
  851. 　　Ｊ＝Ｊ＋ＦＬＯＯＲ（（Ｉ％４）／２）＊４
  852. 　　Ｊ＝Ｊ＋ＦＬＯＯＲ（Ｉ／８）＊８
  853. 　　Ｊ＝Ｊ＋（ＦＬＯＯＲ（Ｉ／４）％２）＊２
  854. 　　ＣＨＲＲＥＡＤ（”ＳＰＵ５”，Ｊ），ＢＦ＄（Ｉ）
  855. 　ＮＥＸＴ
  856. 　ＦＯＲ　Ｉ＝０　ＴＯ　ＢＦＭＡＸ－１
  857. 　　Ｊ＝Ｃ＋Ｉ
  858. 　　ＣＨＲＳＥＴ　”ＳＰＵ５”，Ｊ，ＢＦ＄（Ｉ）
  859. 　ＮＥＸＴ
  860. ＮＥＸＴ
  862. ’スフ゜ライトハ゛ンコ゛ウ　４４８－５１１
  863. ＣＨＲＩＮＩＴ　”ＳＰＵ７”
  864. ＢＦＭＡＸ＝４＊４＊４　　　’キャラクタスウ
  865. ＦＯＲ　Ｃ＝０　ＴＯ　６３＊４　ＳＴＥＰ　ＢＦＭＡＸ
  866. 　ＦＯＲ　Ｉ＝０　ＴＯ　ＢＦＭＡＸ－１
  867. 　　Ｊ＝Ｃ＋ＦＬＯＯＲ（Ｉ／１６）＊１６
  868. 　　Ｊ＝Ｊ＋ＦＬＯＯＲ（（Ｉ％８）／２）＊４
  869. 　　Ｊ＝Ｊ＋（ＦＬＯＯＲ（Ｉ／８）％２）＊２
  870. 　　Ｊ＝Ｊ＋（Ｉ％２）
  871. 　　ＣＨＲＲＥＡＤ（”ＳＰＵ７”，Ｊ），ＢＦ＄（Ｉ）
  872. 　ＮＥＸＴ
  873. 　ＦＯＲ　Ｉ＝０　ＴＯ　ＢＦＭＡＸ－１
  874. 　　Ｊ＝Ｃ＋Ｉ
  875. 　　ＣＨＲＳＥＴ　”ＳＰＵ７”，Ｊ，ＢＦ＄（Ｉ）
  876. 　ＮＥＸＴ
  877. ＮＥＸＴ
  879. ’－－－　
  880. ＲＥＳＴＯＲＥ　＠ＴＥＫＩＤＡＴＡ
  881. ＦＯＲ　Ｉ＝０　ＴＯ　ＴＭＡＸ－１
  882. 　ＲＥＡＤ　ＴＫＣ（Ｉ）
  883. 　ＲＥＡＤ　ＴＫＰＬ（Ｉ）
  884. 　ＲＥＡＤ　ＴＫＡ（Ｉ）
  885. 　ＲＥＡＤ　ＴＫＳＣ（Ｉ）
  886. 　ＲＥＡＤ　ＴＫＷ（Ｉ），ＴＫＨ（Ｉ）
  887. 　ＲＥＡＤ　ＴＫＨＰ（Ｉ），ＴＫＯＦ（Ｉ）
  888. ＮＥＸＴ
  890. ＠ＴＥＫＩＤＡＴＡ
  891. ’　　　　キャラ，ハ゜，アニ，スケール，Ｗ，　Ｈ，ＨＰ，オフセット
  892. ＤＡＴＡ　２４８，１２，　８，１５０，１６，１６，　１，０
  893. ＤＡＴＡ　　４０，　４，　２，１２０，１６，１６，　１，０
  894. ＤＡＴＡ　２３７，　４，　２，１２０，１６，１６，　１，０
  895. ＤＡＴＡ　１６９，　３，　１，２００，１６，１６，　１，－０．０１
  897. ’アイテム
  898. ＤＡＴＡ　２８８，　４，　１，１２０，１６，１６，　４，１．５７
  899. ＤＡＴＡ　２３４，　４，　２，１２０，１６，１６，　４，１．５７
  900. ＤＡＴＡ　　　０，　０，　０，　０　，　０，　０，　０，０
  901. ＤＡＴＡ　　　０，　０，　０，　０　，　０，　０，　０，０
  903. ’テキ
  904. ＤＡＴＡ　１３６，　２，　１，１２０，１６，１６，　１，０
  905. ＤＡＴＡ　１７６，　２，　２，１８０，１６，１６，　４，０
  906. ＤＡＴＡ　３７６，１２，　１，１００，３２，３２，　１，０
  907. ＤＡＴＡ　２０４，　４，　１，１２０，１６，１６，　１，０
  908. ＤＡＴＡ　１７４，　３，　２，１８０，１６，１６，　２，０
  909. ＤＡＴＡ　１８４，　３，　２，１５０，１６，１６，　２，４．７１
  910. ＤＡＴＡ　２７２，１１，　３，１００，３２，１６，　１，３．１４
  911. ＤＡＴＡ　１７８，　３，　６，１５０，１６，１６，　６，０
  912. ＤＡＴＡ　３８０，１２，　１，１００，３２，３２，　２，３．１４
  913. ＤＡＴＡ　２０６，１１，　１，１５０，１６，１６，　４，－１．５７
  915. ’ミシヨウ
  916. ＤＡＴＡ　　　０，　０，　０，　０　，　０，　０，　０，０
  917. ＤＡＴＡ　　　０，　０，　０，　０　，　０，　０，　０，０
  919. ’ホ゛ス
  920. ＤＡＴＡ　３４０，１２，　１，２００，３２，３２，７０，１．５６
  921. ＤＡＴＡ　３７２，１２，　１，２００，３２，３２，９０，３．１３
  922. ＤＡＴＡ　４４８，１２，　１，１２０，６４，６４，９０，０
  924. ’ミシヨウ
  925. ＤＡＴＡ　　　０，　０，　０，　０　，　０，　０，　０，０
  926. ＤＡＴＡ　　　０，　０，　０，　０　，　０，　０，　０，０
  927. ＤＡＴＡ　　　０，　０，　０，　０　，　０，　０，　０，０
  929. ＰＡＬ＝１０
  930. ＦＯＲ　Ｙ＝０　ＴＯ　６３
  931. 　ＧＯＳＵＢ　＠ＣＬＲＢＧ０　’ＢＧ０　テマエ
  932. 　ＧＯＳＵＢ　＠ＣＬＲＢＧ１　’ＢＧ１　オク
  933. ＮＥＸＴ
  935. ’－－－　ＧＲＡＰＨＩＣ
  936. ＦＯＲ　Ｉ＝０　ＴＯ　４００
  937. 　Ｘ＝ＲＮＤ（２５６）：Ｙ＝ＲＮＤ（１９６）
  938. 　ＧＰＳＥＴ　Ｘ，Ｙ，２４２＋ＲＮＤ（５）
  939. ＮＥＸＴ
  941. ＲＥＴＵＲＮ
  943. ’－－－　
  944. ＠ＴＩＴＬＥ
  946. ＢＧＭＳＴＯＰ
  947. ＶＩＳＩＢＬＥ　１，１，０，０，１，１　　’ＢＧＯＦＦ
  948. ＣＬＳ
  949. ＣＯＬＯＲ　０
  950. ＢＥＥＰ　４２
  951. ＲＥＳＴＯＲＥ　＠ＴＩＴＬＥ２
  953. Ｙ＝４
  954. ＠ＴＩＴＬＥ１
  955. ＲＥＡＤ　Ａ＄
  956. ＩＦ　Ａ＄＝＝”ＥＮＤ”　ＴＨＥＮ　＠ＴＩＴＬＥ３
  957. Ｙ＝２３
  958. ＧＯＳＵＢ　＠ＰＮＴＳＵＢ
  959. ＶＳＹＮＣ　３
  960. ’Ｙ＝Ｙ＋１
  961. ＧＯＴＯ　＠ＴＩＴＬＥ１
  963. ＠ＴＩＴＬＥ２
  964. ＤＡＴＡ　”клк┗клклклклклклклклк┗кл”
  965. ＤＡＴＡ　”л　┌┐　　─┐┌┐　─　　　──　　　┌┐　к”
  966. ＤＡＴＡ　”к　┴┤●│　│┘│　─│　　─┬　●│┘│　л”
  967. ＤＡＴＡ　”л　─┘─┘├┘─┘　─┘ユж─┘イ─┘─┘　к”
  968. ＤＡＴＡ　”к　ＤＡＮＭＡＫＵ　ＳＨＯＯＴＩＮＧ　ＧＡＭＥл”
  969. ＤＡＴＡ　”лклклклклклклклклклклклк”
  970. ＤＡＴＡ　””
  971. ＤＡＴＡ　”ＨＯＷ　ＴＯ　ＰＬＡＹ”
  972. ＤＡＴＡ　””
  973. ＤＡＴＡ　”［Ａ］ＢＵＴＴＯＮ：フツウ　ショット”
  974. ＤＡＴＡ　””
  975. ＤＡＴＡ　”［Ｂ］ＢＵＴＴＯＮ：スコ゛イ　ホ゛ム”
  976. ＤＡＴＡ　””
  977. ＤＡＴＡ　”［П］ＢＵＴＴＯＮ：シ゛キ　イト゛ウ”
  978. ＤＡＴＡ　””
  979. ＤＡＴＡ　””
  980. ＤＡＴＡ　””
  981. ＤＡＴＡ　””
  982. ＤＡＴＡ　””
  983. ＤＡＴＡ　”ＰＵＳＨ　ＡＮＹ　ＢＵＴＴＯＮ”
  984. ＤＡＴＡ　””
  985. ＤＡＴＡ　”ＥＮＤ”
  987. ＠ＴＩＴＬＥ３
  989. ＧＯＳＵＢ　＠ＢＴＷＡＩＴ
  990. ＧＯＳＵＢ　＠ＢＴＮＯＦＦ
  992. ’－－－　（カクシ　キノウ）ムテキ
  993. ＩＦ　ＢＴ　ＡＮＤ　４＋８　ＴＨＥＮ　ＤＥＢＵＧ＝ＤＥＢＵＧ　ＸＯＲ　１
  995. ’－－－　（カクシ　キノウ）メン　セレクト　
  996. ＩＦ　ＢＴ　ＡＮＤ　１　ＴＨＥＮ　ＬＶＬ＝ＬＶＬ＋１
  997. ＩＦ　ＢＴ　ＡＮＤ　２　ＴＨＥＮ　ＬＶＬ＝ＬＶＬ－１
  998. ＩＦ　ＬＶＬ＜１　　ＴＨＥＮ　ＬＶＬ＝１
  999. ＩＦ　ＬＶＬ＞９９　ＴＨＥＮ　ＬＶＬ＝９９
  1000. ＩＦ　（ＢＴ　ＡＮＤ　＆ＨＦ）＝＝０　ＴＨＥＮ　＠ＴＩＴＬＥ４
  1002. Ａ＄＝”［↑↓］ＳＴＡＧＥ　”＋ＳＴＲ＄（ＬＶＬ）＋”　”
  1003. Ｙ＝１７
  1004. ＧＯＳＵＢ　＠ＰＮＴＳＵＢ
  1006. Ａ＄＝”フツウモ－ト゛”
  1007. ＩＦ　ＤＥＢＵＧ　ＴＨＥＮ　Ａ＄＝”ムテキモ－ト゛”
  1008. Ａ＄＝”［←→］”＋Ａ＄
  1009. Ｙ＝１９
  1010. ＧＯＳＵＢ　＠ＰＮＴＳＵＢ
  1012. ＧＯＴＯ　＠ＴＩＴＬＥ３
  1014. ’－－－　スタ－ト
  1015. ＠ＴＩＴＬＥ４
  1016. ＣＬＳ
  1017. ＶＩＳＩＢＬＥ　１，１，１，１，１，１
  1018. ＲＥＴＵＲＮ
  1020. ’－－－　テキスト
  1021. ＠ＰＮＴＳＵＢ２
  1022. ＣＯＬＯＲ　３
  1023. ＭＳＧ＝４　　　’ヒョウシ゛　シ゛カン
  1024. ＠ＰＮＴＳＵＢ３
  1025. Ｙ＝９６／８
  1026. ＠ＰＮＴＳＵＢ
  1027. Ｘ＝１６－（ＬＥＮ（Ａ＄）／２）
  1028. ＬＯＣＡＴＥ　Ｘ，Ｙ
  1029. ＰＲＩＮＴ　Ａ＄
  1030. ＲＥＴＵＲＮ
  1032. ’－－－　ホ゛タン　オス
  1033. ＠ＢＴＷＡＩＴ
  1034. ＶＳＹＮＣ　１
  1035. ＢＴ＝ＢＵＴＴＯＮ（）
  1036. ＩＦ　ＢＴ＝＝０　ＴＨＥＮ　＠ＢＴＷＡＩＴ
  1037. ＢＥＥＰ　３
  1038. ＲＥＴＵＲＮ
  1040. ’－－－　ホ゛タン　ハナス
  1041. ＠ＢＴＮＯＦＦ
  1042. ＶＳＹＮＣ　１
  1043. ＩＦ　ＢＵＴＴＯＮ（）　ＴＨＥＮ　＠ＢＴＮＯＦＦ
  1044. ＲＥＴＵＲＮ
  1046. ’┌─────────────────────────┐
  1047. ’│オワリ　　　　　　　　　　　　　　　　　　　　　　│
  1048. ’└─────────────────────────┘