プチコンmkII
  1. ’┌──────────────────┐
  2. ’│ＧＡＭＥ５　　　　　　　　　　　　　│
  3. ’│　カクトウ　ケ゛ーム　　　　　　　　│
  4. ’└──────────────────┘
  6. ＧＯＳＵＢ　＠ＩＮＩＴ
  8. ＠ＳＴＡＲＴ
  9. ＧＯＳＵＢ　＠ＴＩＴＬＥ
  11. ’－－－　ＭＡＩＮ
  12. ＠ＭＡＩＮ
  14. ＩＮＯＴ＝（Ｉ＋１）％２　　　　　　　　’アイテノ　ＩＤ
  15. ＮＮＯＴ＝ＡＮ＋ＩＮＯＴ　　　　　　　　’アイテノ　スフ゜ライトＮＯ．
  16. ＸＮＯＴ＝ＳＰＧＥＴＶ（ＮＮＯＴ，ＶＸ）
  18. Ｎ＝ＡＮ＋Ｉ
  19. ＧＯＳＵＢ　＠ＶＰＯＰ
  21. Ｘ１＝１－（Ｉ＊２）
  23. ＢＴ＝０
  24. ＩＦ　Ｉ＝＝０　ＴＨＥＮ　ＢＴ＝ＢＵＴＴＯＮ（）
  25. ＩＦ　Ｉ＝＝１　ＡＮＤ　ＲＮＤ（２）＝＝０　ＴＨＥＮ　ＢＴ＝ＰＯＷ（２，ＲＮＤ（８））
  27. ＧＯＳＵＢ　＠ＪＵＭＰ
  28. ＧＯＳＵＢ　＠ＰＵＮＣＨ
  29. ＧＯＳＵＢ　＠ＤＡＭＡＧＥ
  31. ＩＦ　（ＢＴ　ＡＮＤ　１）　ＴＨＥＮ　ＫＥＮ＝１６
  32. ＩＦ　（ＢＴ　ＡＮＤ　２）　ＴＨＥＮ　ＫＥＮ＝４０
  33. ＩＦ　（ＢＴ　ＡＮＤ　４）　ＴＨＥＮ　Ｘ＝Ｘ－１
  34. ＩＦ　（ＢＴ　ＡＮＤ　８）　ＴＨＥＮ　Ｘ＝Ｘ＋１
  36. ＩＦ　ＡＢＳ（Ｘ－ＸＮＯＴ）＜１２８　ＴＨＥＮ　Ｘ＝Ｘ－Ｘ１　’チカツ゛キスキ゛
  37. ＩＦ　Ｘ＜３２　　ＴＨＥＮ　Ｘ＝３２
  38. ＩＦ　Ｘ＞２２４　ＴＨＥＮ　Ｘ＝２２４
  40. ＳＰＯＦＳ　Ｎ，Ｘ，Ｙ
  41. ＧＯＳＵＢ　＠ＨＩＴＣＨＫ
  43. ＧＯＳＵＢ　＠ＶＰＵＳＨ
  45. ＶＳＹＮＣ　１
  46. ＩＦ　ＨＰ＜＝０　ＴＨＥＮ　＠ＧＯＶＥＲ
  48. Ｉ＝（Ｉ＋１）％２
  50. ＧＯＴＯ　＠ＭＡＩＮ
  52. ’－－－　シュウリョウ
  53. ＠ＧＯＶＥＲ
  54. ＢＧＭＳＴＯＰ
  55. ＳＰＣＨＲ　ＡＮ＋Ｉ，３２０＋１６＊２
  56. Ａ＝０
  57. Ａ１＝－１
  58. ＩＦ　Ｉ＝＝１　ＴＨＥＮ　Ａ１＝－Ａ１
  60. ＠ＧＯＶＥＲ２
  61. Ａ＝Ａ＋Ａ１
  62. ＳＰＡＮＧＬＥ　ＡＮ＋Ｉ，Ａ
  63. ＶＳＹＮＣ　１
  64. ＩＦ　Ａ＞＝－４５　ＡＮＤ　Ａ＜＝４５　ＴＨＥＮ　＠ＧＯＶＥＲ２
  66. ＢＧＭＰＬＡＹ　４
  67. ＷＡＩＴ　１８０
  68. ＧＯＴＯ　＠ＳＴＡＲＴ
  70. ’－－－テ゛－タ　ヨミコミ
  71. ＠ＶＰＯＰ
  72. Ｘ　　＝ＳＰＧＥＴＶ（Ｎ，ＶＸ）
  73. Ｙ　　＝ＳＰＧＥＴＶ（Ｎ，ＶＹ）
  74. ＨＰ　＝ＳＰＧＥＴＶ（Ｎ，ＶＨＰ）
  75. ＪＭＰ＝ＳＰＧＥＴＶ（Ｎ，ＶＪＭＰ）
  76. ＰＣＨ＝ＳＰＧＥＴＶ（Ｎ，ＶＰＣＨ）
  77. ＫＥＮ＝ＳＰＧＥＴＶ（Ｎ，ＶＫＥＮ）
  78. ＤＭＧ＝ＳＰＧＥＴＶ（Ｎ，ＶＤＭＧ）
  79. ＲＥＴＵＲＮ
  81. ’－－－テ゛－タ　カクノウ
  82. ＠ＶＰＵＳＨ
  83. ＳＰＳＥＴＶ　Ｎ，ＶＸ　　，Ｘ
  84. ＳＰＳＥＴＶ　Ｎ，ＶＹ　　，Ｙ
  85. ＳＰＳＥＴＶ　Ｎ，ＶＨＰ　，ＨＰ
  86. ＳＰＳＥＴＶ　Ｎ，ＶＪＭＰ，ＪＭＰ
  87. ＳＰＳＥＴＶ　Ｎ，ＶＰＣＨ，ＰＣＨ
  88. ＳＰＳＥＴＶ　Ｎ，ＶＫＥＮ，ＫＥＮ
  89. ＳＰＳＥＴＶ　Ｎ，ＶＤＭＧ，ＤＭＧ
  90. ＲＥＴＵＲＮ
  92. ’－－－　シ゛ャンフ゜　
  93. ＠ＪＵＭＰ
  94. ＩＦ　ＪＭＰ　ＴＨＥＮ　＠ＪＵＭＰ２
  96. ＩＦ　ＤＭＧ　ＴＨＥＮ　ＲＥＴＵＲＮ
  97. ＩＦ　Ｙ＜ＪＹ　ＴＨＥＮ　Ｙ＝Ｙ＋ＪＭＰＭＡＸ
  98. ＩＦ　Ｙ＞ＪＹ　ＴＨＥＮ　Ｙ＝ＪＹ：ＪＭＰ＝０
  99. ＩＦ　（ＢＴ　ＡＮＤ　１６）　ＴＨＥＮ　＠ＪＵＭＰ３
  100. ＲＥＴＵＲＮ
  102. ’－－－　シ゛ャンフ゜　スタ－ト
  103. ＠ＪＵＭＰ３
  104. ＪＭＰ＝ＪＭＰＭＡＸ
  105. ’ＢＥＥＰ　８
  106. ＲＥＴＵＲＮ
  108. ’－－－　シ゛ャンフ゜　チュウ
  109. ＠ＪＵＭＰ２
  110. Ｙ＝Ｙ＋（ＪＭＰＨＦ－ＪＭＰ）
  111. ＪＭＰ＝ＪＭＰ－０．５
  112. ＩＦ　ＪＭＰ＜０　ＴＨＥＮ　ＪＭＰ＝０
  113. ＲＥＴＵＲＮ
  115. ’－－－　アタリハンテイ
  116. ＠ＨＩＴＣＨＫ
  117. Ｘ２＝Ｘ１＊８０
  118. ＩＦ　ＰＣＨ＜ＰＣＨＨＦ　ＴＨＥＮ　Ｘ２＝Ｘ２／２
  119. ＫＸ＝Ｘ＋Ｘ２　　　　　　　　’ケン　ノ　サ゛ヒョウ
  120. ＫＹ＝Ｙ＋ＫＥＮ
  121. ＳＰＯＦＳ　ＢＮ＋Ｉ，ＫＸ，ＫＹ
  122. ＩＦ　ＳＰＣＨＫ（ＣＮ＋Ｉ）＝＝０　ＴＨＥＮ　ＳＰＯＦＳ　ＣＮ＋Ｉ，９９９，９９９
  124. ＩＦ　ＤＭＧ　ＴＨＥＮ　ＲＥＴＵＲＮ
  125. ＩＦ　ＰＣＨ＜ＰＣＨＨＦ　ＴＨＥＮ　ＲＥＴＵＲＮ
  127. ＩＦ　ＡＢＳ（ＫＸ－ＸＮＯＴ）＞６４　ＴＨＥＮ　ＲＥＴＵＲＮ
  129. ＤＭＧＮＯＴ＝ＳＰＧＥＴＶ（ＮＮＯＴ，ＶＤＭＧ）
  130. ＩＦ　ＤＭＧＮＯＴ　ＴＨＥＮ　ＲＥＴＵＲＮ　　’アイテカ゛　タ゛メーシ゛チュウ
  132. ＫＥＮＮＯＴ＝ＳＰＧＥＴＶ（ＮＮＯＴ，ＶＫＥＮ）
  133. ＩＦ　ＡＢＳ（ＫＥＮ－ＫＥＮＮＯＴ）＜８　ＴＨＥＮ　＠ＤＥＦＥＮＤ
  135. ＳＰＳＥＴＶ　ＮＮＯＴ，ＶＤＭＧ，８　　’コウケ゛キ　ヒット
  136. ＲＥＴＵＲＮ
  138. ’－－－　ホ゛ウキ゛ョ　サレタ
  139. ＠ＤＥＦＥＮＤ
  140. ＳＰＯＦＳ　ＣＮ＋Ｉ，ＫＸ，ＫＹ
  141. ＫＸ２＝ＫＸ＋ＲＮＤ（６０）－３０
  142. ＫＹ２＝ＫＹ＋ＲＮＤ（６０）－３０
  144. ＰＣＨ＝ＰＣＨＭＡＸ／２
  145. ＳＰＯＦＳ　ＣＮ＋Ｉ，ＫＸ２，ＫＹ２，４０
  146. ＢＥＥＰ　８
  147. ＲＥＴＵＲＮ
  149. ’－－－　タ゛メーシ゛
  150. ＠ＤＡＭＡＧＥ
  151. ＩＦ　ＤＭＧ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  152. Ｘ＝Ｘ－Ｘ１
  153. ＤＭＧ＝ＤＭＧ－１
  154. ＩＦ　ＤＭＧ　ＴＨＥＮ　ＲＥＴＵＲＮ
  155. ＨＰ＝ＨＰ－１
  156. ＩＦ　ＨＰ＜０　ＴＨＥＮ　ＨＰ＝０
  157. ＧＯＳＵＢ　＠ＰＲＴＨＰ２
  158. ＲＥＴＵＲＮ
  160. ’－－－　コウケ゛キ
  161. ＠ＰＵＮＣＨ
  162. ＩＦ　ＰＣＨ　ＴＨＥＮ　＠ＰＵＮＣＨ２
  163. ＩＦ　ＤＭＧ　ＴＨＥＮ　ＲＥＴＵＲＮ
  164. ＩＦ　（ＢＴ　ＡＮＤ　３２）＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  165. ＰＣＨ＝ＰＣＨＭＡＸ
  166. ＢＥＥＰ　１
  167. ＳＰＣＨＲ　Ｎ，３２０＋１６
  168. ＲＥＴＵＲＮ
  170. ’－－－　コウケ゛キ　チュウ
  171. ＠ＰＵＮＣＨ２
  172. Ｘ＝Ｘ＋（ＰＣＨ－ＰＣＨＨＦ）＊Ｘ１
  173. ＩＦ　ＰＣＨ＜ＰＣＨＨＦ　ＴＨＥＮ　ＳＰＣＨＲ　Ｎ，３２０
  174. ＰＣＨ＝ＰＣＨ－１
  175. ＩＦ　ＰＣＨ＜０　ＴＨＥＮ　ＰＣＨ＝０
  176. ＲＥＴＵＲＮ
  178. ’－－－　タイリョク　ヒョウシ゛
  179. ＠ＰＲＴＨＰ
  180. ＨＸ＝（Ｉ＊１６）＋２
  181. ＣＯＬＯＲ　０
  182. ＬＯＣＡＴＥ　ＨＸ，０
  183. ＰＲＩＮＴ　ＮＡＭ＄（Ｉ）
  184. ＣＯＬＯＲ　４
  185. ＦＯＲ　ＴＭＰ＝０　ＴＯ　１０
  186. 　ＬＯＣＡＴＥ　ＴＭＰ＋ＨＸ，１　
  187. 　ＰＲＩＮＴ　”┿”；
  188. ＮＥＸＴ
  190. ＠ＰＲＴＨＰ２
  191. ＨＸ＝（Ｉ＊１６）＋２
  192. ＣＯＬＯＲ　１３
  193. ＦＯＲ　ＴＭＰ＝１０　ＴＯ　ＨＰ　ＳＴＥＰ　－１
  194. 　ＬＯＣＡＴＥ　ＴＭＰ＋ＨＸ，１　
  195. 　ＰＲＩＮＴ　”┿”；
  196. ＮＥＸＴ
  197. ＲＥＴＵＲＮ
  199. ’－－－　ショキカ
  200. ＠ＩＮＩＴ
  201. ＣＬＥＡＲ
  202. ＡＣＬＳ
  204. ＰＲＩＮＴ　”　　　　　　　　　ショキカ　チュウ”
  206. ＤＩＭ　ＮＡＭ＄（２）
  207. ＮＡＭ＄（０）＝”ＹＯＵ”
  208. ＮＡＭ＄（１）＝”ＣＰＵ”
  210. ＰＡＬ＝２
  211. Ｃ２＝０
  212. ＪＩＭＥＮ＝２０
  213. ＪＹ＝ＪＩＭＥＮ＊８－６４
  215. ＡＮ＝４　　’カラタ゛　スフ゜ライトＮＯ．
  216. ＢＮ＝２　　’フ゛キ　スフ゜ライトＮＯ．
  217. ＣＮ＝０　　’ヒハ゛ナ　スフ゜ライトＮＯ．
  219. ＪＭＰＭＡＸ＝１０
  220. ＰＣＨＭＡＸ＝９
  221. ＰＣＨＨＦ＝ＦＬＯＯＲ（ＰＣＨＭＡＸ／２）
  222. ＪＭＰＨＦ＝ＦＬＯＯＲ（ＪＭＰＭＡＸ／２）
  224. ＮＵＭ＝６４：ＧＯＳＵＢ　＠ＣＨＲＺＯＯＭ
  225. ＮＵＭ＝８１：ＧＯＳＵＢ　＠ＣＨＲＺＯＯＭ
  226. ＮＵＭ＝８８：ＧＯＳＵＢ　＠ＣＨＲＺＯＯＭ
  227. ＮＵＭ＝１６：ＧＯＳＵＢ　＠ＣＨＲＺＯＯＭ
  229. Ｗ＝６４　　’キャラクタ　サイス゛
  230. Ｈ＝６４
  232. ＶＸ＝０　　　’サ゛ヒョウ
  233. ＶＹ＝１　　　’
  234. ＶＨＰ＝２　　’タイリョク
  235. ＶＪＭＰ＝３　’シ゛ャンフ゜
  236. ＶＰＣＨ＝４　’ハ゜ンチ
  237. ＶＫＥＮ＝５　’ケン　ノ　イチ
  238. ＶＤＭＧ＝６　’タ゛メーシ゛
  240. ＦＯＲ　Ｉ＝０　ＴＯ　１
  241. 　Ｎ＝ＡＮ＋Ｉ
  242. 　ＰＡＬ＝２＋（Ｉ＊２）
  243. 　ＳＰＳＥＴ　Ｎ，３２０，ＰＡＬ，Ｉ，０，１，Ｗ，Ｈ
  244. 　ＳＰＨＯＭＥ　Ｎ，Ｗ／２，Ｈ／２
  245. 　ＳＰＳＣＡＬＥ　Ｎ，２００
  247. 　Ｎ＝ＢＮ＋Ｉ
  248. 　ＳＰＳＥＴ　Ｎ，３６８，ＰＡＬ，Ｉ，０，１，Ｗ，Ｈ
  249. 　ＳＰＨＯＭＥ　Ｎ，Ｗ／２，Ｈ／２
  250. 　ＳＰＳＣＡＬＥ　Ｎ，１００
  252. 　Ｎ＝ＣＮ＋Ｉ
  253. 　ＳＰＳＥＴ　Ｎ，２０，ＰＡＬ，Ｉ，０，１
  254. 　ＳＰＨＯＭＥ　Ｎ，８，８
  255. 　ＳＰＳＣＡＬＥ　Ｎ，２００
  256. 　ＳＰＡＮＩＭ　Ｎ，４，２０
  257. ＮＥＸＴ
  259. ’－－－　ハイケイ
  260. ＧＣＬＳ
  262. ＧＰＡＧＥ　０
  263. ＦＯＲ　Ｙ＝０　ＴＯ　ＪＹ－１
  264. 　Ｃ＝２４２＋（５＊Ｙ／ＪＹ）
  265. 　ＧＬＩＮＥ　０，Ｙ，２５５，Ｙ，Ｃ
  266. ＮＥＸＴ
  268. Ｊ＝０
  269. ＦＯＲ　Ｙ＝ＪＹ　ＴＯ　１９１
  270. 　Ｊ＝ＦＬＯＯＲ（４＊（Ｙ－ＪＹ）／（１９１－ＪＹ））＋１
  271. 　Ｃ　＝　２４７－（Ｊ＊３６）－（Ｊ＊６）
  272. 　ＧＬＩＮＥ　０，Ｙ，２５５，Ｙ，Ｃ
  273. ＮＥＸＴ
  275. Ｙ＝ＪＹ
  276. Ｃ＝０
  277. ＦＯＲ　Ｊ＝０　ＴＯ　１３
  278. 　ＧＬＩＮＥ　０，Ｙ，２５５，Ｙ，Ｃ
  279. 　Ｙ＝Ｙ＋Ｊ
  280. ＮＥＸＴ
  282. ＦＯＲ　Ｘ＝０　ＴＯ　１２８　ＳＴＥＰ　１０
  283. 　ＧＬＩＮＥ　１２８＋Ｘ，ＪＹ，１２８＋Ｘ＊５，１９１，Ｃ
  284. 　ＧＬＩＮＥ　１２８－Ｘ，ＪＹ，１２８－Ｘ＊５，１９１，Ｃ
  285. ＮＥＸＴ
  287. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  317. ’－－－　タイトル
  318. ＠ＴＩＴＬＥ
  320. ＢＧＭＳＴＯＰ
  321. ＣＬＳ
  323. ＦＯＲ　Ｉ＝０　ＴＯ　１
  324. 　Ｎ＝ＡＮ＋Ｉ
  325. 　Ｘ＝（（１２８＋６４）＊Ｉ）＋３２
  326. 　Ｙ＝ＪＹ
  327. 　ＨＰ＝１１
  328. 　ＫＥＮ＝１６
  329. 　ＤＭＧ＝０
  330. 　ＰＣＨ＝０
  331. 　ＳＰＯＦＳ　Ｎ，Ｘ，Ｙ
  332. 　ＳＰＣＨＲ　Ｎ，３２０
  333. 　ＧＯＳＵＢ　＠ＶＰＵＳＨ
  335. 　ＳＰＯＦＳ　ＢＮ＋Ｉ，９９９，９９９
  336. 　ＳＰＯＦＳ　ＣＮ＋Ｉ，９９９，９９９
  337. ＮＥＸＴ
  339. ＷＡＩＴ　２０
  340. ＣＯＬＯＲ　０
  341. ＲＥＳＴＯＲＥ　＠ＴＩＴＬＥ２
  343. Ｙ＝３
  344. ＠ＴＩＴＬＥ１
  345. ＲＥＡＤ　Ａ＄
  346. ＩＦ　Ａ＄＝＝”ＥＮＤ”　ＴＨＥＮ　＠ＴＩＴＬＥ３
  347. ＧＯＳＵＢ　＠ＰＮＴＳＵＢ
  348. Ｙ＝Ｙ＋１
  349. ＧＯＴＯ　＠ＴＩＴＬＥ１
  351. ＠ＴＩＴＬＥ２
  352. ＤＡＴＡ　”　┿　　　┝┿┿　┿　　　┿　”
  353. ＤＡＴＡ　”┿┿┿┿　┸　┿　┿蒻　┿┿┿”
  354. ＤＡＴＡ　”　┿　┿　　┝┸　┿┥　┿　┿”
  355. ＤＡＴＡ　”┝┸┝┸　┝┸　　┿　　　┝┸”
  356. ＤＡＴＡ　””
  357. ＤＡＴＡ　”　┝┸　┫　　　　　┝┸　”
  358. ＤＡＴＡ　”┝┿┿┿　　　　　┝┸　　”
  359. ＤＡＴＡ　”┸　┿　　┿┿┿　┿　　┿”
  360. ＤＡＴＡ　”　┝┸　　　　　　┿┿┿┿”
  361. ＤＡＴＡ　”ＫＡＫＵＴＯＵ　ＧＡＭＥ”
  362. ＤＡＴＡ　””
  363. ＤＡＴＡ　”ＨＯＷ　ＴＯ　ＰＬＡＹ”
  364. ＤＡＴＡ　””
  365. ＤＡＴＡ　”［Ａ］ＢＵＴＴＯＮ：シ゛ャンフ゜”
  366. ＤＡＴＡ　”［Ｂ］ＢＵＴＴＯＮ：コウケ゛キ”
  367. ＤＡＴＡ　”［←→］ＢＵＴＴＯＮ：イト゛ウ”
  368. ＤＡＴＡ　”［↑↓］ＢＵＴＴＯＮ：ケン　カマエ”
  369. ＤＡＴＡ　””
  370. ＤＡＴＡ　”ＰＵＳＨ　ＡＮＹ　ＢＵＴＴＯＮ”
  371. ＤＡＴＡ　””
  372. ＤＡＴＡ　”ＥＮＤ”
  374. ’－－－　オシ゛キ゛
  375. ＠ＴＩＴＬＥ３
  376. Ａ＝０
  377. Ａ１＝１
  379. ＠ＴＩＴＬＥ４
  380. Ａ＝Ａ＋Ａ１
  381. ＩＦ　Ａ＜＝０　ＯＲ　Ａ＞＝３０　ＴＨＥＮ　Ａ１＝－Ａ１
  382. ＳＰＡＮＧＬＥ　ＡＮ＋０，Ａ
  383. ＳＰＡＮＧＬＥ　ＡＮ＋１，－Ａ
  385. ＶＳＹＮＣ　２
  386. ＢＴ＝ＢＵＴＴＯＮ（）
  387. ＩＦ　ＢＴ＝＝０　ＴＨＥＮ　＠ＴＩＴＬＥ４
  389. ＳＰＡＮＧＬＥ　ＡＮ＋０，０
  390. ＳＰＡＮＧＬＥ　ＡＮ＋１，０
  391. ＣＬＳ
  393. Ｊ＝２０
  394. ＦＯＲ　Ｉ＝０　ＴＯ　８
  395. 　ＢＥＥＰ　５８
  396. 　ＷＡＩＴ　Ｊ＋５
  397. 　Ｊ＝Ｊ／２
  398. ＮＥＸＴ
  399. ＦＯＲ　Ｉ＝０　ＴＯ　１
  400. 　ＧＯＳＵＢ　＠ＰＲＴＨＰ
  401. ＮＥＸＴ
  402. ＢＧＭＰＬＡＹ　１
  404. Ｉ＝０
  405. ＲＥＴＵＲＮ
  407. ’－－－　モシ゛　ヒョウシ゛
  408. ＠ＰＮＴＳＵＢ２
  409. ＣＯＬＯＲ　３
  410. ＠ＰＮＴＳＵＢ３
  411. Ｙ＝９６／８
  412. ＠ＰＮＴＳＵＢ
  413. Ｘ＝１６－（ＬＥＮ（Ａ＄）／２）
  414. ＬＯＣＡＴＥ　Ｘ，Ｙ
  415. ＰＲＩＮＴ　Ａ＄
  416. ＲＥＴＵＲＮ
  418. ’┌─────────────────────────┐
  419. ’│オワリ　　　　　　　　　　　　　　　　　　　　　　│
  420. ’└─────────────────────────┘