プチコンmkII
  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. ＮＥＸＴ
  32. ’－－－
  33. Ｎ＄＝”ＳＰＳ０”
  34. Ｃ＄＝”０”＊８：Ｚ＄＝Ｃ＄＊８
  35. Ｂ＄＝”Ｆ０００００００”＋Ｃ＄＊７
  36. ＣＨＲＳＥＴ　Ｎ＄，０，Ｂ＄
  37. ＣＨＲＳＥＴ　Ｎ＄，１，Ｚ＄
  38. ＣＨＲＳＥＴ　Ｎ＄，２，Ｚ＄
  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. ’－－－
  66. ＯＬＤＣＭＤ＝－１：ＣＭＤ＝４
  67. ＤＲ＝０：ＧＲ＝１：ＴＭ＝ＦＡＬＳＥ
  68. ＲＥＣ＝０：ＣＯＬ＝１５：ＱＴ＝０：ＷＭ＝１６
  69. ＭＸ＝０：ＭＹ＝０：ＭＷ＝８：ＭＢ＝－１：ＭＣ＝０
  70. ＧＯＳＵＢ　＠ＩＮＩＴ
  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. ＥＮＤ
  100. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  101. ’　　ｉｎｉｔｉａｌｉｚｅ
  102. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  103. ＠ＩＮＩＴ
  104. ＣＬＳ
  105. ＰＲＩＮＴ”ＤＲＡＷ　ＥＤＩＴＯＲ　Ｖ１．１”
  106. ＰＲＩＮＴ”─”＊３２；
  107. ＣＯＬＯＲ　７
  108. ＦＯＲ　Ｉ＝０　ＴＯ　ＣＭＤＭＡＸ－１
  109. 　ＰＲＩＮＴ　”　”＋Ｃ＄（Ｉ）
  110. ＮＥＸＴ
  111. ’－－－
  112. ＬＯＣＡＴＥ　０，１１
  113. ＰＲＩＮＴ”А：ｆｉｌｅ　К：ｇｒｉｄ”
  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. 　　ＧＦＩＬＬ　ＴＸ，ＴＹ，ＴＸ＋７，ＴＹ＋７，Ｃ
  141. 　ＮＥＸＴ
  142. ＮＥＸＴ
  143. ＬＯＣＡＴＥ　ＣＸ－１，ＣＹ＋１６
  144. ＰＲＩＮＴ”└”＋”─”＊１６＋”┘”；
  145. ＧＰＡＧＥ　１
  146. ＧＯＳＵＢ　＠ＰＵＴＣＯＬ０
  147. ＧＯＳＵＢ　＠ＰＵＴＧＲＩＤ
  148. ＲＥＴＵＲＮ
  150. ’－－－
  151. ＠ＰＵＴＧＲＩＤ
  152. ＳＣ＝＆Ｈ０：ＩＦ　ＧＲ　ＴＨＥＮ　ＳＣ＝＆ＨＥ００１
  153. ＢＧＦＩＬＬ　１，０，０，３１，２３，ＳＣ
  154. ＲＥＴＵＲＮ
  156. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  157. ’　ｂｕｔｔｏｎ　ｃｏｎｔｒｏｌ
  158. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  159. ＠ＢＵＴＣＴＲＬ
  160. Ｄ＝ＢＴ　ＡＮＤ　１５
  161. ＩＦ　Ｄ　ＴＨＥＮ　＠ＢＵＴＤＩＲ
  162. ＩＦ　ＢＴ＝＝１２８　ＴＨＥＮ　＠ＢＵＴＹ
  163. ＩＦ　ＯＢ　ＴＨＥＮ　ＲＥＴＵＲＮ
  164. ＩＦ　ＢＴ＝＝３２　ＴＨＥＮ　＠ＢＵＴＢ
  165. ＩＦ　ＢＴ＝＝６４　ＴＨＥＮ　＠ＢＵＴＸ
  166. ＩＦ　ＢＴ＝＝１６　ＴＨＥＮ　＠ＢＵＴＡ
  167. ＩＦ　ＢＴ＝＝５１２　ＴＨＥＮ　＠ＢＵＴＲ
  168. ＩＦ　ＢＴ＝＝１０２４　ＴＨＥＮ　＠ＢＳＴＡＲＴ
  169. ＲＥＴＵＲＮ
  171. ’－－－
  172. ＠ＢＳＴＡＲＴ
  173. ＶＩＳＩＢＬＥ　１，１，０，０，０，０：ＣＬＳ
  174. ＩＮＰＵＴ”ＢＧＭ（０－，－１＝ＯＦＦ）＝”；ＭＢ
  175. ＩＮＰＵＴ”ＷＡＩＴ（０－）＝”；ＭＷ
  176. ＢＧＭＰＬＡＹ　ＭＢ
  177. ＶＩＳＩＢＬＥ　１，１，１，１，１，１
  178. ＧＯＳＵＢ　＠ＩＮＩＴ
  179. ＲＥＴＵＲＮ
  181. ’－－－Б：ｔｅｘｔ
  182. ＠ＢＵＴＢ
  183. ＴＭ＝ＴＲＵＥ：ＴＷ＝０：ＰＮＬＴＹＰＥ”ＫＹＡ”
  184. ＢＧＰＡＧＥ　０：ＤＲ＝０
  185. ＲＥＴＵＲＮ
  187. ’－－－А：ｆｉｌｅ　ｍｅｎｕ
  188. ＠ＢＵＴＡ
  189. ＧＯＳＵＢ　＠ＦＩＬＥ
  190. ＧＰＡＧＥ　０：ＧＣＬＳ　０：ＧＰＡＧＥ　１
  191. ＧＯＳＵＢ　＠ＩＮＩＴ
  192. ＧＯＳＵＢ　＠ＣＬＲＣＯＬ
  193. ＧＯＳＵＢ　＠ＰＵＴＲＥＣ
  194. ＧＯＳＵＢ　＠ＲＥＰＬＡＹ
  195. ＲＥＴＵＲＮ
  197. ’－－－К：ｇｒｉｄ
  198. ＠ＢＵＴＲ
  199. ＧＲ＝ＧＲ　ＸＯＲ　１：ＤＲ＝０
  200. ＧＯＳＵＢ　＠ＰＵＴＧＲＩＤ
  201. ＲＥＴＵＲＮ
  203. ’－－－Х：ｄｅｌｅｔｅ
  204. ＠ＢＵＴＹ
  205. ＩＦ　ＲＥＣ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  206. ＲＥＣ＝ＲＥＣ－１：ＤＲ＝０
  207. ＧＯＳＵＢ　＠ＣＬＲＣＯＬ
  208. ＧＯＳＵＢ　＠ＰＵＴＲＥＣ
  209. ＧＯＳＵＢ　＠ＲＥＰＬＡＹ
  210. ＧＯＳＵＢ　＠ＰＵＴＳＴ
  211. ＯＬＤＣＭＤ＝－１
  212. ＲＥＴＵＲＮ
  214. ’－－－
  215. ＠ＧＥＴＶＥＣ
  216. ＶＸ＝０：ＶＹ＝０
  217. ＩＦ　Ｄ　ＡＮＤ　１　ＴＨＥＮ　ＶＹ＝－１
  218. ＩＦ　Ｄ　ＡＮＤ　２　ＴＨＥＮ　ＶＹ＝１
  219. ＩＦ　Ｄ　ＡＮＤ　４　ＴＨＥＮ　ＶＸ＝－１
  220. ＩＦ　Ｄ　ＡＮＤ　８　ＴＨＥＮ　ＶＸ＝１
  221. ＲＥＴＵＲＮ
  223. ’－－－
  224. ＠ＢＵＴＤＩＲ
  225. ＧＯＳＵＢ　＠ＧＥＴＶＥＣ
  226. ＩＦ　ＶＸ＋ＶＹ＝＝０　ＴＨＥＮ　＠ＰＵＴＣＯＬ
  227. ’－－－
  228. ＠ＭＯＶＣＯＬ
  229. ＧＯＳＵＢ　＠ＣＬＲＣＯＬ
  230. ＣＯＬ＝ＣＯＬ＋（ＶＹ＊１６）＋ＶＸ
  231. ＣＯＬ＝ＣＯＬ　ＡＮＤ　２５５
  232. ’－－－
  233. ＠ＰＵＴＣＯＬ０
  234. ＬＯＣＡＴＥ　２９，０
  235. ＰＲＩＮＴ　ＲＩＧＨＴ＄（”　”＋ＳＴＲ＄（ＣＯＬ），３）；
  236. ’－－－
  237. ＠ＰＵＴＣＯＬ
  238. ＬＯＣＡＴＥ　ＣＸ＋ＣＯＬ％１６，ＣＹ＋ＣＯＬ／１６
  239. ＣＣ＝ＲＮＤ（１５）
  240. ＣＯＬＯＲ　ＣＣ：ＰＲＩＮＴ”□”：ＣＯＬＯＲ　１５
  241. ＲＥＴＵＲＮ
  242. ’－－－
  243. ＠ＣＬＲＣＯＬ
  244. ＬＯＣＡＴＥ　ＣＸ＋ＣＯＬ％１６，ＣＹ＋ＣＯＬ／１６
  245. ＰＲＩＮＴ”　”
  246. ＲＥＴＵＲＮ
  248. ’－－－Ф：ｃｏｍｍａｎｄ　ｓｅｌｅｃｔ
  249. ＠ＢＵＴＸ
  250. ＬＯＣＡＴＥ　０，２＋ＣＭＤ：ＰＲＩＮＴ”　”
  251. ＶＹ＝１：ＩＦ　ＢＮ　ＡＮＤ　２５６　ＴＨＥＮ　ＶＹ＝－１
  252. ＣＭＤ＝ＣＭＤ＋ＶＹ
  253. ＩＦ　ＣＭＤ＜０　ＴＨＥＮ　ＣＭＤ＝ＣＭＤＭＡＸ－１
  254. ＣＭＤ＝ＣＭＤ％ＣＭＤＭＡＸ
  255. ＤＲ＝０：ＧＯＳＵＢ　＠ＰＵＴＳＴ
  256. ＲＥＴＵＲＮ
  258. ’＝＝＝＝＝＝＝＝＝＝＝＝＝
  259. ’　ｃｈｅｃｋ　ｔｏｕｃｈ　
  260. ’＝＝＝＝＝＝＝＝＝＝＝＝＝
  261. ＠ＴＯＵＣＨ
  262. ＯＮ　ＤＲ　ＧＯＴＯ　＠Ｌ０，＠Ｌ１，＠Ｌ２
  263. ＲＥＴＵＲＮ
  264. ’－－－
  265. ＠Ｌ０
  266. ＩＦ　ＴＳ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  267. ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ
  268. ＩＦ　ＣＭＤ＝＝３　ＴＨＥＮ　＠Ｌ０Ｐ
  269. ＩＦ　ＣＭＤ＝＝５　ＴＨＥＮ　＠Ｌ０ＣＬＳ
  270. ＥＸ＝ＴＸ：ＥＹ＝ＴＹ：ＤＲ＝１
  271. ＲＥＴＵＲＮ
  273. ’－－－
  274. ＠Ｌ０Ｐ
  275. Ｎ＝ＧＳＰＯＩＴ（ＴＸ，ＴＹ）
  276. ＩＦ　Ｎ＝＝ＣＯＬ　ＴＨＥＮ　ＲＥＴＵＲＮ
  277. ＧＰＡＩＮＴ　ＴＸ，ＴＹ，ＣＯＬ
  278. ＧＯＴＯ　＠ＬＲＥＣ
  280. ’－－－
  281. ＠Ｌ０ＣＬＳ
  282. ＩＦ　ＯＬＤＣＭＤ＝＝ＣＭＤ　ＴＨＥＮ　ＲＥＴＵＲＮ
  283. ＧＣＬＳ　ＣＯＬ
  284. ＧＯＴＯ　＠ＬＲＥＣ
  286. ’－－－
  287. ＠Ｌ１
  288. Ｘ＝ＴＸ：Ｙ＝ＴＹ
  289. ＥＸ＝ＴＣＨＸ：ＥＹ＝ＴＣＨＹ
  290. ＧＯＳＵＢ　＠ＧＵＩＤＥ
  291. ＩＦ　ＴＳ＝＝０　ＴＨＥＮ　＠Ｌ１ＳＵＢ
  292. ＩＦ　ＣＭＤ＝＝４　ＴＨＥＮ　＠Ｌ１ＰＳ
  293. ＲＥＴＵＲＮ
  294. ’－－－
  295. ＠Ｌ１ＳＵＢ
  296. ＯＮ　ＣＭＤ　ＧＯＴＯ　＠Ｌ１Ｌ，＠Ｌ１Ｃ，＠Ｌ１Ｂ
  297. ＩＦ　ＣＭＤ！＝６　ＴＨＥＮ　ＲＥＴＵＲＮ
  298. ’－－－
  299. ＧＦＩＬＬ　ＴＸ，ＴＹ，ＥＸ，ＥＹ，ＣＯＬ
  300. ＧＯＴＯ　＠ＬＲＥＣ
  301. ’－－－
  302. ＠Ｌ１Ｂ
  303. ＧＢＯＸ　ＴＸ，ＴＹ，ＥＸ，ＥＹ，ＣＯＬ
  304. ’－－－
  305. ＠ＬＲＥＣ
  306. ＧＯＳＵＢ　＠ＣＭＤＲＥＣ：ＤＲ＝０
  307. ＲＥＴＵＲＮ
  308. ’－－－
  309. ＠Ｌ１Ｃ
  310. ＥＸ＝Ｒ：ＧＣＩＲＣＬＥ　ＴＸ，ＴＹ，ＥＸ，ＣＯＬ
  311. ＧＯＴＯ　＠ＬＲＥＣ
  312. ’－－－
  313. ＠Ｌ１Ｌ
  314. ＧＬＩＮＥ　ＴＸ，ＴＹ，ＥＸ，ＥＹ，ＣＯＬ
  315. ＧＯＳＵＢ　＠ＣＭＤＲＥＣ
  316. ＴＸ＝ＥＸ：ＴＹ＝ＥＹ：ＤＲ＝２
  317. ＲＥＴＵＲＮ
  318. ’－－－
  319. ＠Ｌ１ＰＳ
  320. ＧＯＳＵＢ　＠Ｌ１Ｌ：ＤＲ＝１
  321. ＲＥＴＵＲＮ
  322. ’－－－
  323. ＠Ｌ２
  324. ＩＦ　ＴＳ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  325. ＴＸ＝ＥＸ：ＴＹ＝ＥＹ：ＤＲ＝１
  326. ＲＥＴＵＲＮ
  328. ’＝＝＝＝＝＝＝＝
  329. ’　ｒｅｃｏｒｄ　
  330. ’＝＝＝＝＝＝＝＝
  331. ＠ＣＭＤＲＥＣ
  332. ＯＬＤＣＭＤ＝ＣＭＤ
  333. ＩＦ　ＲＥＣ＞＝ＲＥＣＭＡＸ　ＴＨＥＮ　ＲＥＴＵＲＮ
  334. Ｂ（ＲＥＣ，＿ＣＭＤ）＝ＣＭＤ＋（ＣＯＬ＊２５６）
  335. Ｂ（ＲＥＣ，＿ＴＸＹ）＝ＴＸ＊２５６＋ＴＹ
  336. Ｂ（ＲＥＣ，＿ＥＸＹ）＝ＥＸ＊２５６＋ＥＹ
  337. ＲＥＣ＝ＲＥＣ＋１
  338. ’－－－
  339. ＠ＰＵＴＲＥＣ
  340. ＬＯＣＡＴＥ　２２，０：Ｒ＝ＲＥＣＭＡＸ－ＲＥＣ
  341. ＰＲＩＮＴ　ＲＩＧＨＴ＄（”　　　”＋ＳＴＲ＄（Ｒ），４）；
  342. ＲＥＴＵＲＮ
  343. ’－－－
  344. ＠ＰＵＴＮ
  345. ＰＲＩＮＴ　ＲＩＧＨＴ＄（”　　”＋ＳＴＲ＄（Ｎ），３）；
  346. ＲＥＴＵＲＮ
  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. ’－－－
  388. ＠ＴＸＩＮ２
  389. ＴＸ＄（ＭＹ）＝ＳＵＢＳＴ＄（ＴＸ＄（ＭＹ），ＭＸ，１，Ｋ＄）
  390. ＧＯＳＵＢ　＠ＰＵＴＳＴ
  391. ’－－－
  392. ＠ＴＸＭＯＶ
  393. ＢＧＰＵＴ　０，ＭＸ＋ＷＸ，ＭＹ＋ＷＹ，１，０，０，０
  394. ＭＸ＝ＭＸ＋ＶＸ：Ｍ＝ＴＸＬＥＮ－１
  395. ＩＦ　ＭＸ＜０　ＴＨＥＮ　ＭＸ＝Ｍ：ＶＹ＝ＶＹ－１
  396. ＩＦ　ＭＸ＞Ｍ　ＴＨＥＮ　ＭＸ＝０：ＶＹ＝ＶＹ＋１
  397. ＭＹ＝ＭＹ＋ＶＹ
  398. ＩＦ　ＭＹ＞ＴＸＭＡＸ－１　ＴＨＥＮ　ＭＹ＝０
  399. ＩＦ　ＭＹ＜０　ＴＨＥＮ　ＭＹ＝ＴＸＭＡＸ－１
  400. Ｗ＝０
  401. ＲＥＴＵＲＮ
  403. ’＝＝＝＝＝＝＝＝＝＝＝＝
  404. ’　ｐｕｔ　ｓｔａｔｕｓ　
  405. ’＝＝＝＝＝＝＝＝＝＝＝＝
  406. ＠ＰＵＴＳＴ
  407. ＬＯＣＡＴＥ　０，２＋ＣＭＤ：ＰＲＩＮＴ”Ф”
  408. ’－－－
  409. ＦＯＲ　Ｉ＝０　ＴＯ　ＴＸＭＡＸ－１
  410. 　ＬＯＣＡＴＥ　ＷＸ，ＷＹ＋Ｉ
  411. 　ＰＲＩＮＴ　ＴＸ＄（Ｉ）；
  412. 　ＰＮＬＳＴＲ　ＷＸ，ＷＹ＋Ｉ，ＴＸ＄（Ｉ）
  413. ＮＥＸＴ
  414. ’－－－
  415. ＬＯＣＡＴＥ　６，１５：Ｎ＝ＭＷ：ＧＯＳＵＢ　＠ＰＵＴＮ
  416. ＬＯＣＡＴＥ　６，１６：Ｎ＝ＭＢ：ＧＯＳＵＢ　＠ＰＵＴＮ
  417. ＲＥＴＵＲＮ
  419. ’＝＝＝＝＝＝＝＝＝＝＝＝
  420. ’　ｇｕｉｄｅ　ｌｉｎｅ　
  421. ’＝＝＝＝＝＝＝＝＝＝＝＝
  422. ＠ＧＵＩＤＥ
  423. ＯＮ　ＣＭＤ　ＧＯＴＯ　＠ＳＰＬ，＠ＳＰＣ，＠ＳＰＢ
  424. ＩＦ　ＣＭＤ＝＝６　ＴＨＥＮ　＠ＳＰＢ
  425. ＲＥＴＵＲＮ
  427. ’＝＝＝＝＝＝＝＝＝＝＝＝＝
  428. ’　ｓｐｒｉｔｅ　ｌｉｎｅ　
  429. ’＝＝＝＝＝＝＝＝＝＝＝＝＝
  430. ＠ＳＰＬ
  431. Ｎ＝０：Ｍ＝２０：Ｃ＝ＲＮＤ（１６）
  432. ＧＯＳＵＢ　＠ＳＰＬＳＵＢ
  433. ＧＯＴＯ　＠ＳＰＯＦＦ
  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. ＲＥＴＵＲＮ
  474. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  475. ’　ｓｐｒｉｔｅ　ｃｉｒｃｌｅ　
  476. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  477. ＠ＳＰＣ
  478. ＶＸ＝ＡＢＳ（ＥＸ－Ｘ）
  479. ＶＹ＝ＡＢＳ（ＥＹ－Ｙ）
  480. Ｒ＝ＳＱＲ（ＶＸ＊ＶＸ＋ＶＹ＊ＶＹ）
  481. Ｍ＝２０：ＳＴ＝３６０／Ｍ
  482. Ｊ＝Ｗ／ＳＴ：Ｗ＝Ｗ＋ＷＭ
  483. Ｃ＝ＲＮＤ（１６）
  484. ＦＯＲ　Ｎ＝０　ＴＯ　Ｍ－１
  485. 　Ａ＝ＲＡＤ（Ｊ％３６０）：Ｊ＝Ｊ＋ＳＴ
  486. 　ＯＸ＝Ｘ＋ＣＯＳ（Ａ）＊Ｒ
  487. 　ＯＹ＝Ｙ＋ＳＩＮ（Ａ）＊Ｒ
  488. 　ＳＰＯＦＳ　Ｎ，ＯＸ，ＯＹ
  489. 　ＳＰＣＨＲ　Ｎ，０，Ｃ，０，０，０
  490. ＮＥＸＴ
  491. ＳＰＯＦＳ　Ｍ，Ｘ－１，Ｙ－１
  492. ＳＰＣＨＲ　Ｍ，１，Ｃ，０，０，０
  493. ＲＥＴＵＲＮ
  495. ’＝＝＝＝＝＝＝＝＝＝＝＝
  496. ’　ｓｐｒｉｔｅ　ｂｏｘ　
  497. ’＝＝＝＝＝＝＝＝＝＝＝＝
  498. ＠ＳＰＢ
  499. ＴＭＰＸ＝ＥＸ：ＴＭＰＹ＝ＥＹ
  500. Ｎ＝０：Ｍ＝２０：Ｃ＝ＲＮＤ（１６）
  501. Ｘ＝ＴＸ：Ｙ＝ＴＹ：ＥＹ＝Ｙ
  502. ＧＯＳＵＢ　＠ＳＰＬＳＵＢ
  503. Ｘ＝ＥＸ：Ｙ＝ＴＹ：ＥＹ＝ＴＭＰＹ
  504. ＧＯＳＵＢ　＠ＳＰＬＳＵＢ
  505. Ｘ＝ＥＸ：Ｙ＝ＥＹ：ＥＸ＝ＴＸ
  506. ＧＯＳＵＢ　＠ＳＰＬＳＵＢ
  507. Ｘ＝ＴＸ：Ｙ＝ＥＹ：ＥＸ＝Ｘ：ＥＹ＝ＴＹ
  508. ＧＯＳＵＢ　＠ＳＰＬＳＵＢ
  509. ＥＸ＝ＴＭＰＸ：ＥＹ＝ＴＭＰＹ
  510. ’－－－
  511. ＠ＳＰＯＦＦ
  512. ＦＯＲ　Ｉ＝Ｎ　ＴＯ　ＳＰＭＡＸ－１
  513. 　ＳＰＯＦＳ　Ｉ，－１６，－１６
  514. ＮＥＸＴ
  515. ＲＥＴＵＲＮ
  517. ’＝＝＝＝＝＝＝＝＝＝＝
  518. ’　ｆｉｌｅ　ｍｅｎｕ　
  519. ’＝＝＝＝＝＝＝＝＝＝＝
  520. ＠ＦＩＬＥ
  521. ＣＬＳ：ＧＰＡＧＥ　０：ＧＣＬＳ　０
  522. ＧＰ＝１：ＧＰＡＧＥ　ＧＰ
  523. ＧＦ＄＝”ＧＲＰ”＋ＳＴＲ＄（ＧＰ）＋”：”
  524. ＰＲＩＮＴ”ＦＩＬＥ　ＭＥＮＵ”
  525. ＰＲＩＮＴ”＝”＊３２；
  526. ＰＲＩＮＴ”　Ｌ：キロクノヨミコミ”
  527. ＰＲＩＮＴ”　Ｓ：キロクノカキコミ”
  528. ＰＲＩＮＴ”ＳＧ：カ゛ソ゛ウノカキコミ”
  529. ＰＲＩＮＴ”　Ｘ：カ゛メンショウキョ”
  530. ＰＲＩＮＴ”　Ｑ：メニュ－ヲヌケル”
  531. ＰＲＩＮＴ”　Ｅ：ツ－ルシュウリョウ”
  532. ＰＲＩＮＴ”＝”＊３２；
  533. ＩＮＰＵＴ”ト゛ウスル”；Ｋ＄
  534. ＩＦ　Ｋ＄＝＝”Ｓ”　ＴＨＥＮ　＠ＳＶＲＥＣ
  535. ＩＦ　Ｋ＄＝＝”Ｌ”　ＴＨＥＮ　＠ＬＤＲＥＣ
  536. ＩＦ　Ｋ＄＝＝”ＳＧ”　ＴＨＥＮ　＠ＳＶＧＲＰ
  537. ＩＦ　Ｋ＄＝＝”Ｅ”　ＴＨＥＮ　ＱＴ＝１
  538. ＩＦ　Ｋ＄＝＝”Ｘ”　ＴＨＥＮ　＠ＸＣＬＳ
  539. ＲＥＴＵＲＮ
  541. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  542. ＠ＸＣＬＳ
  543. ＩＮＰＵＴ”ショウキヨシマスカ”；Ｋ＄
  544. ＩＦ　Ｋ＄！＝”Ｙ”　ＴＨＥＮ　＠ＦＩＬＥ
  545. ＲＥＣ＝０
  546. ＲＥＴＵＲＮ
  548. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  549. ＠ＧＬＮＵＭ
  550. ＴＯＴＡＬ＝ＴＯＴＡＬ＋１
  551. ＩＦ　Ｙ＞１９１　ＴＨＥＮ　＠ＬＤＥＲＲ
  552. Ｎ＝ＧＳＰＯＩＴ（Ｘ，Ｙ）
  553. Ｘ＝Ｘ＋１：ＩＦ　Ｘ＜２５６　ＴＨＥＮ　ＲＥＴＵＲＮ
  554. Ｘ＝０：Ｙ＝Ｙ＋１
  555. ＲＥＴＵＲＮ
  556. ’－－－
  557. ＠ＧＬＣＨＲ
  558. ＧＯＳＵＢ　＠ＧＬＮＵＭ
  559. Ｎ＄＝ＣＨＲ＄（Ｎ）：ＲＥＴＵＲＮ
  560. ’－－－
  561. ＠ＧＬＷＯＲＤ
  562. ＧＯＳＵＢ　＠ＧＬＮＵＭ：Ｗ＝Ｎ＊２５６
  563. ＧＯＳＵＢ　＠ＧＬＮＵＭ：Ｗ＝Ｗ＋Ｎ
  564. ＲＥＴＵＲＮ
  565. ’－－－
  566. ＠ＬＤＥＲＲ
  567. ＰＲＩＮＴ”コノファィルハ、ツカエマセン”
  568. ＠ＬＤＬＯＯＰ
  569. ＩＦ　ＩＮＫＥＹ＄（）＝＝””　ＴＨＥＮ　＠ＬＤＬＯＯＰ
  570. ＲＥＴＵＲＮ
  572. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  573. ＠ＬＤＲＥＣ
  574. ＧＰＡＧＥ　１：Ｘ＝０：Ｙ＝０：ＴＯＴＡＬ＝０
  575. ＩＮＰＵＴ”ヨミコムファィルメイ”；Ｋ＄
  576. ＬＯＡＤ　ＧＦ＄＋Ｋ＄
  577. ＩＦ　ＲＥＳＵＬＴ！＝ＴＲＵＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  578. ’－－－　ｈｅａｄｅｒ
  579. ＧＯＳＵＢ　＠ＧＬＣＨＲ：Ｃ＄＝Ｎ＄
  580. ＧＯＳＵＢ　＠ＧＬＣＨＲ：Ｃ＄＝Ｃ＄＋Ｎ＄
  581. ＧＯＳＵＢ　＠ＧＬＣＨＲ：Ｃ＄＝Ｃ＄＋Ｎ＄
  582. ＧＯＳＵＢ　＠ＧＬＣＨＲ：Ｃ＄＝Ｃ＄＋Ｎ＄
  583. ＩＦ　Ｃ＄！＝”ＤＥ１：”　ＴＨＥＮ　＠ＬＤＥＲＲ
  584. ’－－－　
  585. ＧＯＳＵＢ　＠ＧＬＷＯＲＤ：Ｈ＝Ｗ
  586. ＧＯＳＵＢ　＠ＧＬＷＯＲＤ：ＲＥＣ＝Ｗ
  587. ＧＯＳＵＢ　＠ＧＬＷＯＲＤ：ＭＷ＝Ｗ
  588. ＧＯＳＵＢ　＠ＧＬＷＯＲＤ：ＭＢ＝Ｗ－１
  589. ＧＯＳＵＢ　＠ＧＬＷＯＲＤ
  590. ＧＯＳＵＢ　＠ＧＬＷＯＲＤ
  591. ’－－－　ｔｅｘｔ
  592. ＦＯＲ　ＩＸ＝０　ＴＯ　ＴＸＭＡＸ－１
  593. 　ＴＸ＄（ＩＸ）＝””
  594. 　ＦＯＲ　Ｊ＝０　ＴＯ　ＴＸＬＥＮ－１
  595. 　　ＧＯＳＵＢ　＠ＧＬＣＨＲ
  596. 　　ＴＸ＄（ＩＸ）＝ＴＸ＄（ＩＸ）＋Ｎ＄
  597. 　ＮＥＸＴ
  598. ＮＥＸＴ
  599. ’－－－　ｓｋｉｐ
  600. ＦＯＲ　Ｉ＝０　ＴＯ　（ＨＳＩＺＥ－ＴＯＴＡＬ）－１
  601. 　ＧＯＳＵＢ　＠ＧＬＮＵＭ
  602. ＮＥＸＴ
  603. ’－－－　ｃｏｍｍａｎｄ
  604. ＦＯＲ　Ｉ＝０　ＴＯ　ＲＥＣ－１
  605. 　ＧＯＳＵＢ　＠ＧＬＷＯＲＤ：Ｂ（Ｉ，＿ＣＭＤ）＝Ｗ
  606. 　ＧＯＳＵＢ　＠ＧＬＷＯＲＤ：Ｂ（Ｉ，＿ＴＸＹ）＝Ｗ
  607. 　ＧＯＳＵＢ　＠ＧＬＷＯＲＤ：Ｂ（Ｉ，＿ＥＸＹ）＝Ｗ
  608. 　ＬＯＣＡＴＥ　０，２３
  609. 　ＰＲＩＮＴ　Ｉ；”／”；ＲＥＣ；
  610. ＮＥＸＴ
  611. ＲＥＴＵＲＮ
  613. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  614. ＠ＧＳＮＵＭ
  615. ＴＯＴＡＬ＝ＴＯＴＡＬ＋１
  616. ＩＦ　Ｙ＞１９１　ＴＨＥＮ　ＲＥＴＵＲＮ
  617. ＧＰＳＥＴ　Ｘ，Ｙ，Ｎ
  618. Ｘ＝Ｘ＋１：ＩＦ　Ｘ＜２５６　ＴＨＥＮ　ＲＥＴＵＲＮ
  619. Ｘ＝０：Ｙ＝Ｙ＋１
  620. ＲＥＴＵＲＮ
  621. ’－－－
  622. ＠ＧＳＷＯＲＤ
  623. Ｎ＝（Ｗ／２５６）　ＡＮＤ　２５５
  624. ＧＯＳＵＢ　＠ＧＳＮＵＭ
  625. Ｎ＝Ｗ　ＡＮＤ　２５５
  626. ＧＯＳＵＢ　＠ＧＳＮＵＭ
  627. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  668. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  669. ＠ＳＶＧＲＰ
  670. ＧＰＡＧＥ　１
  671. ＩＮＰＵＴ”カ゛ソ゛ウトシテホソ゛ンスルファィルメイ”；Ｋ＄
  672. ＳＡＶＥ　ＧＦ＄＋Ｋ＄
  673. ＲＥＴＵＲＮ
  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. ＧＰＡＩＮＴ　ＴＸ，ＴＹ，Ｘ：ＲＥＴＵＲＮ