プチコンmkII
  1. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  2. ’ＳＣＲＥＥＮ　ＥＤＩＴＯＲ
  3. ’（Ｃ）ＳｍｉｌｅＢｏｏｍ　Ｃｏ．Ｌｔｄ．
  4. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  5. ＶＩＳＩＢＬＥ　１，１，０，０，０，０
  6. ＣＬＥＡＲ：ＣＬＳ：ＣＯＬＯＲ　０
  7. ＤＩＭ　ＳＷ＄（２）
  8. ＳＷ＄（０）＝”ＯＦＦ”：ＳＷ＄（１）＝”ＯＮ　”
  9. ＧＰＡＧＥ　０：ＧＣＬＳ　０
  10. ＧＰＡＧＥ　１：ＧＣＬＳ　０
  11. ＦＯＲ　Ｉ＝０　ＴＯ　３
  12. 　ＢＲＥＰＥＡＴ　Ｉ，２０，４
  13. ＮＥＸＴ
  14. ’－－－　ヘンシュウエリア
  15. ＢＧＬＸ＝０：ＢＧＬＹ＝０
  16. Ｋ１＝０：Ｋ２＝０
  17. ＧＤＸ＝０：ＧＤＹ＝０
  18. ＧＲＸ＝０：ＧＲＹ＝０：ＧＲＣ＝１３
  19. ＧＲＩＤ＝ＴＲＵＥ：ＧＲＳ＝２
  20. ’－－－　ヘンスウ　ショキカ
  21. ＰＡＬ＝０：ＬＡＹＥＲ＝０
  22. ＲＥＶＨ＝ＦＡＬＳＥ：ＲＥＶＶ＝ＦＡＬＳＥ
  23. ＶＩＥＷ＝ＴＲＵＥ：ＶＢ０＝１：ＶＢ１＝１：ＸＣ＝７
  24. ＣＸ＝０：ＣＹ＝０：ＣＳＸ＝１：ＣＳＹ＝１
  25. ＣＨ＝０：ＣＢＡＮＫ＝０：ＣＮ＄＝”ＢＧＵ”
  26. Ｂ＝０：ＰＲ＝１：ＤＲＧ＝ＦＡＬＳＥ
  27. ’－－－　カ゛メン　ショキカ
  28. ＢＧＰＧ＝０：ＭＦ＝ＦＡＬＳＥ
  29. ＧＯＳＵＢ　＠ＤＩＳＰＩＮＩＴ
  30. ’－－－
  31. ＩＮＰＵＴ”キャラヲヨミコミマスカ（Ｙ／Ｎ）”；Ｋ＄
  32. ＩＦ　Ｋ＄！＝”Ｙ”　ＴＨＥＮ　＠ＳＫＩＰＣＬ
  33. ’－－－
  34. ＧＯＳＵＢ　＠＿ＣＬＯＡＤ
  35. ＧＯＴＯ　＠ＭＡＩＮ
  36. ’－－－
  37. ＠ＳＫＩＰＣＬ
  38. ＧＯＳＵＢ　＠ＤＩＳＰＳＥＴ
  39. ＧＯＳＵＢ　＠ＣＨＲＡＬＬ
  41. ’＝＝＝＝＝＝＝＝＝＝＝
  42. ’　　メインル－フ゜　　
  43. ’＝＝＝＝＝＝＝＝＝＝＝
  44. ＠ＭＡＩＮ
  45. 　’
  46. 　ＯＸ＝ＴＸ：ＯＹ＝ＴＹ：ＯＳ＝ＴＳ
  47. 　ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ：ＴＳ＝ＴＣＨＳＴ
  48. 　ＯＬＤＢ＝Ｂ：Ｂ＝ＢＴＲＩＧ（）：ＢＮ＝ＢＵＴＴＯＮ（）
  49. 　’
  50. 　ＧＯＳＵＢ　＠ＳＥＬＥＣＴ
  51. 　ＧＯＳＵＢ　＠ＣＳＲＭＯＶＥ
  52. 　ＧＯＳＵＢ　＠ＤＲＡＷＣＨＲ
  53. 　ＧＯＳＵＢ　＠ＰＵＴＣＳＥＬ
  54. 　’
  55. 　ＶＳＹＮＣ　１
  56. 　’
  57. ＧＯＴＯ　＠ＭＡＩＮ
  59. ’＝＝＝＝＝＝＝＝＝＝
  60. ’　　サフ゛ショリ　　
  61. ’＝＝＝＝＝＝＝＝＝＝
  62. ＠ＤＩＳＰＳＥＴ
  63. ＣＬＳ：ＣＯＬＯＲ　０：ＩＣＯＮＣＬＲ
  64. ＰＮＬＴＹＰＥ　”ＯＦＦ”
  65. ＧＯＳＵＢ　＠ＣＬＲＭＥＮＵ
  66. ＧＯＳＵＢ　＠ＰＵＴＯＦＳ
  67. ＧＯＳＵＢ　＠ＳＥＴＧＲＩＤ
  68. ＢＧＰＡＧＥ　１：ＳＰＰＡＧＥ　１：ＧＰＡＧＥ　１
  69. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  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. 　ＳＰＯＦＳ　Ｎ，Ｘ，Ｙ
  174. 　Ｎ＝Ｎ＋１
  175. ＮＥＸＴ
  176. ＧＯＳＵＢ　＠ＰＡＬＩＣＯＮ
  177. ’－－－　ツ－ル
  178. ＠ＴＬＮＡＭＥ
  179. ＤＡＴＡ　７５，”テマエノ　レイヤ－”
  180. ＤＡＴＡ　７４，”オクノ　レイヤ－”
  181. ＤＡＴＡ　９０，”リョウホウヒョウシ゛”
  182. ＤＡＴＡ　９０，”－”
  183. ＤＡＴＡ　９０，”－”
  184. ＤＡＴＡ　８０，”サユウハンテン”
  185. ＤＡＴＡ　８１，”シ゛ョウケ゛ハンテン”
  186. ＴＤＸ＝１＊８：ＴＤＹ＝９＊８＋４
  187. Ｙ＝ＴＤＹ：ＴＬＳＰ＝Ｎ
  188. ＲＥＳＴＯＲＥ　＠ＴＬＮＡＭＥ
  189. ＦＯＲ　Ｉ＝０　ＴＯ　６
  190. 　ＲＥＡＤ　Ｃ，Ｎ＄
  191. 　ＳＰＳＥＴ　Ｎ，Ｃ，０，０，０，ＰＲ
  192. 　ＳＰＯＦＳ　Ｎ，ＴＤＸ，Ｙ
  193. 　ＰＮＬＳＴＲ　ＴＤＸ／８＋２，Ｙ／８＋１，Ｎ＄
  194. 　Ｙ＝Ｙ＋１６
  195. 　Ｎ＝Ｎ＋１
  196. ＮＥＸＴ
  197. ＧＯＳＵＢ　＠ＴＬＩＣＯＮ
  198. ＲＥＴＵＲＮ
  200. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  202. ＠ＣＢＩＣＯＮ
  203. ＦＯＲ　Ｉ＝０　ＴＯ　３
  204. 　Ｃ＝０：ＩＦ　ＣＢＡＮＫ＝＝Ｉ　ＴＨＥＮ　Ｃ＝ＸＣ
  205. 　ＳＰＣＨＲ　Ｉ，Ｉ＋４８，Ｃ，０，０，ＰＲ
  206. ＮＥＸＴ
  207. ＲＥＴＵＲＮ
  208. ’－－－
  209. ＠ＰＡＬＩＣＯＮ
  210. ＦＯＲ　Ｉ＝０　ＴＯ　１５
  211. 　Ｃ＝０：ＩＦ　ＰＡＬ＝＝Ｉ　ＴＨＥＮ　Ｃ＝ＸＣ
  212. 　ＳＰＣＨＲ　Ｉ＋ＰＡＬＳＰ，Ｉ＋４８，Ｃ，０，０，ＰＲ
  213. ＮＥＸＴ
  214. ＲＥＴＵＲＮ
  215. ’－－－
  216. ＠ＳＥＴＬＡＹ
  217. ＶＢ０＝１：ＶＢ１＝１
  218. ＩＦ　ＶＩＥＷ　ＴＨＥＮ　＠ＳＬＥＮＤ
  219. ＶＢ０＝（ＬＡＹＥＲ＝＝０）
  220. ＶＢ１＝（ＬＡＹＥＲ＝＝１）
  221. ＠ＳＬＥＮＤ
  222. ＶＩＳＩＢＬＥ　１，１，ＶＢ０，ＶＢ１，１，０
  223. ＲＥＴＵＲＮ
  225. ’－－－
  226. ＠ＴＬＩＣＯＮ
  227. ’－－－　ヘンシュウスクリ－ン
  228. Ｃ＝０：ＩＦ　ＬＡＹＥＲ＝＝０　ＴＨＥＮ　Ｃ＝ＸＣ
  229. ＳＰＣＨＲ　ＴＬＳＰ＋０，７５，Ｃ，０，０，ＰＲ
  230. Ｃ＝０：ＩＦ　ＬＡＹＥＲ＝＝１　ＴＨＥＮ　Ｃ＝ＸＣ
  231. ＳＰＣＨＲ　ＴＬＳＰ＋１，７４，Ｃ，０，０，ＰＲ
  232. ’－－－　リョウホウヒョウシ゛
  233. Ｎ＝９０：Ｃ＝０：ＩＦ　ＶＩＥＷ　ＴＨＥＮ　Ｎ＝９１：Ｃ＝ＸＣ
  234. ＳＰＣＨＲ　ＴＬＳＰ＋２，Ｎ，Ｃ，０，０，ＰＲ
  235. ’－－－　ハンテン
  236. Ｃ＝０：ＩＦ　ＲＥＶＨ　ＴＨＥＮ　Ｃ＝ＸＣ
  237. ＳＰＣＨＲ　ＴＬＳＰ＋５，８０，Ｃ，０，０，ＰＲ
  238. Ｃ＝０：ＩＦ　ＲＥＶＶ　ＴＨＥＮ　Ｃ＝ＸＣ
  239. ＳＰＣＨＲ　ＴＬＳＰ＋６，８１，Ｃ，０，０，ＰＲ
  240. ＲＥＴＵＲＮ
  242. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  243. ＠ＴＯＵＣＨ　’アタリハンテイ
  244. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  245. Ｒ＝ＦＡＬＳＥ
  246. ＩＦ　ＴＳ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  247. ＩＦ　ＴＸ＜Ｘ　ＴＨＥＮ　ＲＥＴＵＲＮ
  248. ＩＦ　ＴＸ＞Ｘ＋Ｗ　ＴＨＥＮ　ＲＥＴＵＲＮ
  249. ＩＦ　ＴＹ＜Ｙ　ＴＨＥＮ　ＲＥＴＵＲＮ
  250. ＩＦ　ＴＹ＞Ｙ＋Ｈ　ＴＨＥＮ　ＲＥＴＵＲＮ
  251. Ｘ＝ＴＸ　ＡＮＤ　＆ＨＦ８
  252. Ｙ＝ＴＹ　ＡＮＤ　＆ＨＦ８
  253. Ｒ＝ＴＲＵＥ
  254. ＲＥＴＵＲＮ
  256. ’──────────────────────────
  257. ＠ＣＳＲＭＯＶＥ　’シタカ゛メンノスクロ－ル
  258. ’──────────────────────────
  259. ＶＸ＝０：ＶＹ＝０
  260. ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＶＹ＝ＶＹ－１
  261. ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　ＶＹ＝ＶＹ＋１
  262. ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　ＶＸ＝ＶＸ－１
  263. ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　ＶＸ＝ＶＸ＋１
  264. ＩＦ　ＶＸ＋ＶＹ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  265. ＩＦ　ＢＮ　ＡＮＤ　５１２　ＧＯＴＯ　＠ＳＥＬＳＩＺＥ
  266. ＩＦ　ＢＮ　ＡＮＤ　１６　ＴＨＥＮ　＠ＭＯＶＣＳＲ２
  267. ＩＦ　ＭＦ＝＝ＦＡＬＳＥ　ＴＨＥＮ　＠ＭＶＢＧＯＦＳ
  269. ’－－－メニュ－ヒョウシ゛チュウ
  270. ＠ＭＯＶＣＳＲ２
  271. ＧＯＳＵＢ　＠ＣＣＳＲＣＬＲ
  272. Ｘ＝ＦＬＯＯＲ（ＣＨ％３２）＋ＶＸ
  273. Ｙ＝ＦＬＯＯＲ（ＣＨ／３２）＋ＶＹ
  274. ＩＦ　Ｘ＜０　ＴＨＥＮ　Ｘ＝０
  275. ＩＦ　Ｘ＞３１　ＴＨＥＮ　Ｘ＝３１
  276. ＩＦ　Ｙ＜０　ＴＨＥＮ　Ｙ＝０
  277. ＩＦ　Ｙ＞７　ＴＨＥＮ　Ｙ＝７
  278. ＣＨ＝（Ｘ＋（Ｙ＊３２））　ＡＮＤ　２５５
  279. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  359. ’－－－
  360. ＠ＰＵＴＯＦＳ
  361. Ｃ＝０：ＣＯＬＯＲ　Ｃ：Ｘ＝０：Ｙ＝１２
  362. ’
  363. ＬＯＣＡＴＥ　Ｘ，Ｙ：
  364. Ｘ＝（ＢＧＬＸ／８）　ＡＮＤ　６３
  365. Ｙ＝（ＢＧＬＹ／８）　ＡＮＤ　６３
  366. ＰＲＩＮＴ”　　ＯＦＳ：”；Ｘ；”，”；Ｙ；”　　　　”
  367. ＰＲＩＮＴ”　　ＣＨＲ：＆ｈ”；
  368. Ｎ＝ＣＢＡＮＫ＊２５６＋ＣＨ
  369. ＰＲＩＮＴ　ＨＥＸ＄（Ｎ，３）；”（”；Ｎ；”）　　”
  370. ＰＲＩＮＴ”　ＢＡＮＫ：”；ＣＢＡＮＫ
  371. ＰＲＩＮＴ”　　ＰＡＬ：”；ＰＡＬ
  372. ＰＲＩＮＴ”ＬＡＹＥＲ：”；ＬＡＹＥＲ
  373. ＰＲＩＮＴ”　ＲＥＶＨ：”；ＳＷ＄（ＲＥＶＨ）
  374. ＰＲＩＮＴ”　ＲＥＶＶ：”；ＳＷ＄（ＲＥＶＶ）
  375. ＰＲＩＮＴ”　ＶＩＥＷ：”；ＳＷ＄（ＶＩＥＷ）
  376. ＲＥＴＵＲＮ
  378. ’──────────────────────────
  379. ＠ＳＥＬＥＣＴ　’メニュ－ニヨルセンタク
  380. ’──────────────────────────
  381. ＩＦ　ＭＦ　ＴＨＥＮ　＠ＭＥＮＵＭＤ
  382. ＩＦ　Ｂ＝＝３２　ＴＨＥＮ　＠ＳＥＬＧＲＩＤ
  383. ＩＦ　Ｂ＝＝６４　ＴＨＥＮ　＠ＭＥＮＵＯＮ
  384. ＩＦ　Ｂ＝＝１２８　ＴＨＥＮ　＠ＳＥＬＬＡＹ
  385. ＲＥＴＵＲＮ
  387. ’－－－メニュ－ヲヒョウシ゛
  388. ＠ＭＥＮＵＯＮ
  389. ＭＦ＝ＴＲＵＥ
  390. ＧＯＳＵＢ　＠ＰＵＴＭＥＮＵ
  391. ＲＥＴＵＲＮ
  393. ’－－－ク゛リット゛キリカエ
  394. ＠ＳＥＬＧＲＩＤ
  395. ＧＲＩＤ＝ＧＲＩＤ　ＸＯＲ　１
  396. ＧＯＳＵＢ　＠ＰＵＴＧＲＩＤ
  397. ＧＯＳＵＢ　＠ＰＵＴＯＦＳ
  398. ＲＥＴＵＲＮ
  400. ’－－－レイヤ－キリカエ
  401. ＠ＳＥＬＬＡＹ
  402. ＬＡＹＥＲ＝ＬＡＹＥＲ　ＸＯＲ　１
  403. ＧＯＳＵＢ　＠ＳＥＴＬＡＹ
  404. ＧＯＳＵＢ　＠ＰＵＴＯＦＳ
  405. ＲＥＴＵＲＮ
  407. ’－－－
  408. ＠ＭＥＮＵＭＤ
  409. ＩＦ　Ｂ＝＝１６　ＴＨＥＮ　＠ＴＯＦＩＬＥ
  410. ＩＦ　Ｂ！＝６４　ＴＨＥＮ　＠ＳＥＬＣＨＲ
  412. ’－－－メニュ－クロ－ス゛
  413. ＠ＭＥＮＵＯＦＦ
  414. ＭＦ＝ＦＡＬＳＥ
  415. ＤＲＧ＝ＦＡＬＳＥ
  416. ＧＯＳＵＢ　＠ＣＬＲＭＥＮＵ
  417. ＧＯＳＵＢ　＠ＳＥＴＧＲＩＤ
  418. ＲＥＴＵＲＮ
  420. ’－－－ファィルモ－ト゛ヘ
  421. ＠ＴＯＦＩＬＥ
  422. ＧＯＳＵＢ　＠ＭＥＮＵＯＦＦ
  423. ＧＯＴＯ　＠ＦＩＬＥＭＯＤＥ
  425. ’－－－キャラセンタク
  426. ＠ＳＥＬＣＨＲ
  427. ＧＯＳＵＢ　＠ＰＵＴＣＳＥＬ
  428. Ｘ＝ＧＤＸ：Ｙ＝ＧＤＹ：Ｗ＝２５５：Ｈ＝６３
  429. ＧＯＳＵＢ　＠ＴＯＵＣＨ
  430. ＩＦ　Ｒ　ＴＨＥＮ　＠ＳＥＬＣＴＯＰ
  432. ’－－－ト゛ラック゛チュウカ？
  433. ＩＦ　ＤＲＧ　ＴＨＥＮ　ＤＲＧ＝ＦＡＬＳＥ
  434. ＧＯＴＯ　＠ＳＥＬＰＡＬ
  436. ’－－－ト゛ラック゛マエ？
  437. ＠ＳＥＬＣＴＯＰ
  438. ＩＦ　ＤＲＧ＝＝ＦＡＬＳＥ　ＴＨＥＮ　＠ＳＥＬＣ１ＳＴ
  440. ’－－－シゥウテン
  441. ＮＸ＝ＦＬＯＯＲ（Ｘ／８）
  442. ＮＹ＝ＦＬＯＯＲ（Ｙ／８）
  443. Ｘ＝ＦＬＯＯＲ（ＯＬＤＣＨ％３２）：ＯＸ＝Ｘ
  444. Ｙ＝ＦＬＯＯＲ（ＯＬＤＣＨ／３２）：ＯＹ＝Ｙ
  445. ＩＦ　Ｘ＞ＮＸ　ＴＨＥＮ　ＯＸ＝ＮＸ：ＮＸ＝Ｘ
  446. ＩＦ　Ｙ＞ＮＹ　ＴＨＥＮ　ＯＹ＝ＮＹ：ＮＹ＝Ｙ
  447. ＣＨＮＥＷ＝ＯＹ＊３２＋ＯＸ
  448. ＯＸ＝（ＮＸ－ＯＸ）＋１
  449. ＯＹ＝（ＮＹ－ＯＹ）＋１
  450. ＧＯＳＵＢ　＠ＣＣＳＲＣＬＲ
  451. ＣＨ＝ＣＨＮＥＷ
  452. ＣＳＸ＝ＯＸ：ＣＳＹ＝ＯＹ
  453. ＧＯＴＯ　＠ＳＥＬＰＡＬ
  455. ’－－－シテン
  456. ＠ＳＥＬＣ１ＳＴ
  457. ＩＦ　ＯＳ＝＝ＦＡＬＳＥ　ＴＨＥＮ　＠ＳＥＬＰＡＬ
  459. ＤＲＧ＝ＴＲＵＥ
  460. ＯＸ＝Ｘ：ＯＹ＝Ｙ
  461. ＧＯＳＵＢ　＠ＣＣＳＲＣＬＲ
  462. ＣＳＸ＝１：ＣＳＹ＝１
  463. Ｘ＝ＦＬＯＯＲ（（ＯＸ－ＧＤＸ）／８）
  464. Ｙ＝ＦＬＯＯＲ（（ＯＹ－ＧＤＹ）／８）
  465. ＣＨ＝Ｙ＊３２＋Ｘ
  466. ＯＬＤＣＨ＝ＣＨ
  468. ’－－－　イロ
  469. ＠ＳＥＬＰＡＬ
  470. Ｘ＝ＰＤＸ：Ｙ＝ＰＤＹ：Ｗ＝６３：Ｈ＝Ｗ
  471. ＧＯＳＵＢ　＠ＴＯＵＣＨ
  472. ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＧＯＴＯ　＠ＳＥＬＣＢ
  473. ’
  474. Ｘ＝ＦＬＯＯＲ（（Ｘ－ＰＤＸ）／１６）
  475. Ｙ＝ＦＬＯＯＲ（（Ｙ－ＰＤＹ）／１６）
  476. ＰＡＬ＝Ｙ＊４＋Ｘ
  477. ＧＯＳＵＢ　＠ＰＡＬＩＣＯＮ
  478. ＧＯＳＵＢ　＠ＣＨＲＡＬＬ
  479. ＧＯＳＵＢ　＠ＰＵＴＯＦＳ
  480. ＲＥＴＵＲＮ
  482. ’－－－　キャラハ゛ンク
  483. ＠ＳＥＬＣＢ
  484. Ｘ＝ＣＤＸ：Ｙ＝ＣＤＹ：Ｗ＝６３：Ｈ＝１５
  485. ＧＯＳＵＢ　＠ＴＯＵＣＨ
  486. ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＧＯＴＯ　＠ＳＥＬＴＯＯＬ
  487. ’
  488. ＣＢＡＮＫ＝ＦＬＯＯＲ（（Ｘ－ＣＤＸ）／１６）
  489. ＧＯＳＵＢ　＠ＣＢＩＣＯＮ
  490. ＧＯＳＵＢ　＠ＣＨＲＡＬＬ
  491. ＧＯＳＵＢ　＠ＰＵＴＯＦＳ
  492. ＲＥＴＵＲＮ
  494. ’－－－　ツ－ルキリカエ
  495. ＠ＳＥＬＴＯＯＬ
  496. Ｘ＝ＴＤＸ：Ｙ＝ＴＤＹ：Ｗ＝１６７：Ｈ＝１１１
  497. ＧＯＳＵＢ　＠ＴＯＵＣＨ
  498. ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  499. ＩＦ　ＯＳ　ＴＨＥＮ　ＲＥＴＵＲＮ
  500. ’
  501. Ｙ＝ＦＬＯＯＲ（（Ｙ－ＴＤＹ）／１６）
  502. ＯＮ　Ｙ　ＧＯＴＯ　＠ＬＹ，＠ＬＹ，＠ＶＷ，＠ＯＦ，＠ＯＦ，＠ＲＨ，＠ＲＶ
  503. ＲＥＴＵＲＮ
  504. ’－－－
  505. ＠ＬＹ
  506. ＬＡＹＥＲ＝Ｙ
  507. ＧＯＴＯ　＠ＯＦ
  508. ’－－－
  509. ＠ＶＷ
  510. ＶＩＥＷ＝ＶＩＥＷ　ＸＯＲ　１
  511. ＧＯＴＯ　＠ＯＦ
  512. ’－－－
  513. ＠ＲＨ
  514. ＲＥＶＨ＝ＲＥＶＨ　ＸＯＲ　１
  515. ＧＯＴＯ　＠ＯＦ
  516. ’－－－
  517. ＠ＲＶ
  518. ＲＥＶＶ＝ＲＥＶＶ　ＸＯＲ　１
  519. ’－－－
  520. ＠ＯＦ
  521. ＧＯＳＵＢ　＠ＰＵＴＯＦＳ
  522. ＧＯＳＵＢ　＠ＴＬＩＣＯＮ
  523. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  569. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  570. ＠ＣＨＲＡＬＬ
  571. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  572. ’－－－ウエカ゛メンハＢＧテ゛カク
  573. ＢＧＰＡＧＥ　０
  574. ＦＯＲ　Ｙ＝０　ＴＯ　７
  575. 　ＦＯＲ　Ｘ＝０　ＴＯ　３１
  576. 　　Ｎ＝ＣＢＡＮＫ＊２５６＋Ｙ＊３２＋Ｘ
  577. 　　ＢＧＰＵＴ　０，Ｘ，Ｙ，Ｎ，ＰＡＬ，０，０
  578. 　ＮＥＸＴ
  579. ＮＥＸＴ
  580. ＢＧＰＡＧＥ　１
  581. ’－－－シタカ゛メンハク゛ラフィック
  582. ＧＰＡＧＥ　１：ＢＧＰＡＧＥ　１
  583. Ｃ＄＝ＣＮ＄＋ＳＴＲ＄（ＣＢＡＮＫ）
  584. ＧＦＩＬＬ　０，０，２５６，６４，０
  585. ＦＯＲ　Ｉ＝０　ＴＯ　２５５
  586. 　Ｘ＝ＧＤＸ＋ＦＬＯＯＲ（Ｉ％３２）＊８
  587. 　Ｙ＝ＧＤＹ＋ＦＬＯＯＲ（Ｉ／３２）＊８
  588. 　ＧＰＵＴＣＨＲ　Ｘ，Ｙ，Ｃ＄，Ｉ，ＰＡＬ，１
  589. ＮＥＸＴ
  590. ＲＥＴＵＲＮ
  592. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  593. ＠ＦＩＬＥＭＯＤＥ　’ファイルノヨミカキ
  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. ＲＥＴＵＲＮ
  685. ’－－－
  686. ＠＿ＦＥＸＩＴ
  687. ＦＯＲ　Ｉ＝１　ＴＯ　０　ＳＴＥＰ　－１
  688. 　ＳＰＰＡＧＥ　Ｉ：ＳＰＣＬＲ
  689. 　ＧＰＡＧＥ　Ｉ：ＧＣＬＳ
  690. ＮＥＸＴ
  691. ＦＯＲ　Ｉ＝０　ＴＯ　２５５
  692. 　ＣＯＬＩＮＩＴ　”ＧＲＰ”，Ｉ
  693. 　ＣＯＬＩＮＩＴ　”ＢＧ”，Ｉ
  694. ＮＥＸＴ
  695. ＣＯＬＯＲ　０
  696. ＣＬＳ
  697. ＰＲＩＮＴ　”オツカレサマ！”
  698. ＥＮＤ