プチコン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. 　　ＲＥＡＤ　ＣＳ＄（Ｉ，Ｊ）
  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. ＤＡＴＡ　１９２，１２８，７６，１１，０，０
  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. ＧＳＸ＝２５６：ＡＮＴＯＰ＝８４
  113. Ｗ１＝０：Ｗ２＝０：ＯＬＤＡＣ＝－１
  114. ＳＰＩＮ（３）＝２：ＳＰＩＮ（４）＝１６
  115. ＧＯＳＵＢ　＠ＺＳＷＯＮ
  116. ＧＯＳＵＢ　＠ＭＫＯＦＳ
  117. ＧＯＳＵＢ　＠ＳＥＴＣＳＵＢ
  118. ＧＯＳＵＢ　＠ＤＩＳＰＩＮＩＴ
  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. ＲＥＴＵＲＮ
  191. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  192. ＠ＣＭＣＨＥＣＫ
  193. ＩＦ　ＣＴＹＰＥ！＝１　ＴＨＥＮ　＠ＣＭＳ
  194. ＶＸ＝ＶＸ＊ＢＺＣ（ＣＳＸ）
  195. ＶＹ＝ＶＹ＊ＢＺＣ（ＣＳＹ）
  196. ’－－－
  197. ＠ＣＭＳ
  198. ＣＸ＝ＣＸ＋ＶＸ
  199. ＩＦ　ＣＸ＜０　ＴＨＥＮ　ＣＸ＝０
  200. ＩＦ　ＣＸ＞３２－ＺＸ　ＴＨＥＮ　ＣＸ＝３２－ＺＸ
  201. ＣＹ＝ＣＹ＋ＶＹ
  202. ＩＦ　ＣＹ＜０　ＴＨＥＮ　ＣＹ＝０
  203. ＩＦ　ＣＹ＞８－ＺＹ　ＴＨＥＮ　ＣＹ＝８－ＺＹ
  204. ’－－－
  205. ＩＦ　ＣＴＹＰＥ！＝１　ＴＨＥＮ　ＲＥＴＵＲＮ
  206. ’－－－　イチ　ホセイ
  207. ＣＸ＝ＦＬＯＯＲ（ＣＸ／ＢＺＣ（ＣＳＸ））＊ＢＺＣ（ＣＳＸ）
  208. ＣＹ＝ＦＬＯＯＲ（ＣＹ／ＢＺＣ（ＣＳＹ））＊ＢＺＣ（ＣＳＹ）
  209. ＲＥＴＵＲＮ
  211. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  212. ＠ＳＥＬＣＯＬ　’イロセンタク
  213. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  214. Ｘ＝ＨＤＸ：Ｙ＝ＨＤＹ：Ｗ＝２５５：Ｈ＝１５
  215. ＧＯＳＵＢ　＠ＴＯＵＣＨ
  216. ＩＦ　Ｒ　ＧＯＴＯ　＠＿ＣＯＬＮＥＷ
  217. ’－－－　ハ゛ンク
  218. Ｘ＝ＰＤＸ：Ｙ＝ＰＤＹ：Ｗ＝６３：Ｈ＝Ｗ
  219. ＧＯＳＵＢ　＠ＴＯＵＣＨ
  220. ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  221. Ｘ＝ＦＬＯＯＲ（（Ｘ－ＰＤＸ）／１６）
  222. Ｙ＝ＦＬＯＯＲ（（Ｙ－ＰＤＹ）／１６）
  223. ＳＰＣＨＲ　ＰＡＬ＋２，ＰＡＬ＋４８，０，０，０，１
  224. Ｃ＝ＰＡＬ：ＰＡＬ＝Ｙ＊４＋Ｘ
  225. ＳＰＣＨＲ　ＰＡＬ＋２，ＰＡＬ＋４８，ＸＣ，０，０，１
  226. ＩＦ　Ｃ＝＝ＰＡＬ　ＴＨＥＮ　ＲＥＴＵＲＮ
  227. ＧＯＴＯ　＠ＳＥＴＣＯＬＯＲ
  228. ’－－－　イロ
  229. ＠＿ＣＯＬＮＥＷ
  230. ＣＯＬ＝ＦＬＯＯＲ（（Ｘ－ＨＤＸ）／１６）
  231. ’－－－
  232. ＠ＣＯＬＣＳＲ
  233. Ｘ＝ＣＯＬ＊１６：Ｙ＝０
  234. ＳＰＯＦＳ　０，ＨＤＸ＋Ｘ，ＨＤＹ＋Ｙ
  235. ’－－－
  236. ＠ＣＯＬＲＧＢ
  237. Ｘ＝１９：Ｃ＝ＰＡＬ＊１６＋ＣＯＬ
  238. ＣＯＬＲＥＡＤ（ＣＴ＄，Ｃ），ＳＰＩＮ（０），ＳＰＩＮ（１），ＳＰＩＮ（２）
  239. ’－－－
  240. ＠ＰＵＴＳＰＩＮ
  241. Ｎ＝０：Ｙ＝　２：Ｃ＝１３：ＧＯＳＵＢ　＠ＰＳＰＩＮ
  242. Ｎ＝１：Ｙ＝　５：Ｃ＝　４：ＧＯＳＵＢ　＠ＰＳＰＩＮ
  243. Ｎ＝２：Ｙ＝　８：Ｃ＝１１：ＧＯＳＵＢ　＠ＰＳＰＩＮ
  244. Ｘ＝２４
  245. Ｎ＝３：Ｙ＝１２：Ｃ＝　０：ＧＯＳＵＢ　＠ＰＳＰＩＮ
  246. Ｎ＝４：Ｙ＝１４：Ｃ＝　０：ＧＯＳＵＢ　＠ＰＳＰＩＮ
  247. ＲＥＴＵＲＮ
  248. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  249. ＠ＣＯＬＢＯＸ
  250. ＦＯＲ　Ｉ＝０　ＴＯ　１５
  251. 　Ｘ＝Ｉ＊１６＋ＨＤＸ＋１：Ｙ＝ＨＤＹ＋１
  252. 　ＧＦＩＬＬ　Ｘ＋１，Ｙ，Ｘ＋１１，Ｙ＋１２，ＰＡＬ＊１６＋Ｉ
  253. 　ＧＦＩＬＬ　Ｘ，Ｙ＋１，Ｘ＋１２，Ｙ＋１１，ＰＡＬ＊１６＋Ｉ
  254. ＮＥＸＴ
  255. Ｘ＝ＨＤＸ＋１：Ｙ＝ＨＤＹ＋１
  256. ＧＬＩＮＥ　Ｘ，Ｙ＋１２，Ｘ＋１２，Ｙ，ＰＡＬ＊１６＋１５
  257. ＲＥＴＵＲＮ
  259. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  260. ＠ＤＲＡＷＣＯＬ　’ト゛ットヲオク
  261. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  262. ＩＦ　ＢＮ　ＡＮＤ　２５６　ＴＨＥＮ　＠＿ＳＰＯＩＴ
  263. ＩＦ　ＴＳ　ＧＯＴＯ　＠ＤＲＣＨＥＣＫ
  264. ＩＦ　ＤＲ　ＴＨＥＮ　＠ＤＣＯＬＳＵＢ
  265. ＲＥＴＵＲＮ
  267. ’－－－　
  268. ＠ＤＲＣＨＥＣＫ
  269. Ｘ＝ＥＸ：Ｙ＝ＥＹ：Ｗ＝１２７：Ｈ＝Ｗ
  270. ＧＯＳＵＢ　＠ＴＯＵＣＨ
  271. ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  272. ’－－－
  273. ＧＯＳＵＢ　＠ＣＡＬＣＺ：Ｚ＝ＺＳＴ（ＣＳＺ）
  274. Ｘ＝ＥＸ＋（ＦＬＯＯＲ（（ＴＸ－ＥＸ）／Ｚ）＊Ｚ）
  275. Ｙ＝ＥＹ＋（ＦＬＯＯＲ（（ＴＹ－ＥＹ）／Ｚ）＊Ｚ）
  276. Ｃ＝ＰＡＬ＊１６＋ＣＯＬ：ＤＲ＝ＴＲＵＥ
  277. ＩＦ　（Ｃ　ＡＮＤ　１５）＝＝０　ＴＨＥＮ　Ｃ＝０
  278. ＩＦ　ＭＯＤＥ＝＝１　ＧＯＴＯ　＠＿ＣＬＥＡＲ
  279. ＩＦ　ＭＯＤＥ＝＝３　ＧＯＴＯ　＠＿ＰＥＮ
  280. ’－－－
  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. ＲＥＴＵＲＮ
  308. ’－－－
  309. ＠ＺＳＷＯＮ
  310. Ｎ＝１：ＧＯＴＯ　＠ＺＳＷ
  311. ＠ＺＳＷＯＦＦ
  312. Ｎ＝０
  313. ＠ＺＳＷ
  314. ＦＯＲ　Ｙ＝０　ＴＯ　７
  315. 　ＦＯＲ　Ｘ＝０　ＴＯ　７
  316. 　　ＳＷ（Ｘ，Ｙ）＝Ｎ
  317. 　ＮＥＸＴ
  318. ＮＥＸＴ
  319. ＲＥＴＵＲＮ
  321. ’－－－
  322. ＠ＺＳＷＳＥＴ
  323. ＳＷ（Ｘ，Ｙ）＝１
  324. ＲＥＴＵＲＮ
  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. ＧＰＡＧＥ　０
  358. ＧＦＩＬＬ　Ｘ，Ｙ，Ｘ＋７，Ｙ＋７，０
  359. ＧＰＵＴＣＨＲ　Ｘ，Ｙ，ＣＮ＄，Ｉ，ＰＡＬ，１
  360. ＧＰＡＧＥ　１
  361. ＲＥＴＵＲＮ
  363. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  364. ＠ＣＨＫＭＯＤＥ　’モ－ト゛カクニン
  365. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  366. ＩＦ　Ｂ＝＝１６　ＴＨＥＮ　＠ＣＯＰＹ
  367. ＩＦ　Ｂ＝＝３２　ＴＨＥＮ　＠ＰＡＳＴＥ
  368. ＩＦ　Ｂ＝＝６４　ＴＨＥＮ　＠ＲＥＶＨ
  369. ＩＦ　Ｂ＝＝１２８　ＴＨＥＮ　＠ＲＥＶＶ
  370. ＩＦ　Ｂ＝＝５１２　ＴＨＥＮ　＠ＵＮＤＯ
  371. ’－－－
  372. ＩＦ　ＭＯＤＥ＝＝ＩＣ　ＴＨＥＮ　ＲＥＴＵＲＮ
  373. ＩＦ　ＩＣ＝＝－１　ＴＨＥＮ　ＲＥＴＵＲＮ
  374. ＩＦ　ＩＣ＝＝０　ＧＯＴＯ　＠ＦＩＬＥＭＯＤＥ
  375. ＭＯＤＥ＝ＩＣ
  376. ’－－－
  377. ＠ＰＵＴＭＯＤＥ
  378. ＰＮＬＳＴＲ　２７，２０，ＭＤ＄（ＭＯＤＥ）
  379. ＲＥＴＵＲＮ
  381. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  382. ＠ＬＢＵＴＳＵＢ　’　ＶＸ，ＶＹ
  383. ＧＰＡＧＥ　０
  384. ＤＸ＝ＺＸ＊８：ＸＸ＝ＧＸ＋ＤＸ－１
  385. ＤＹ＝ＺＹ＊８：ＹＹ＝ＧＹ＋ＤＹ－１
  386. ＩＦ　ＶＹ＞０　ＴＨＥＮ　＠ＳＣＲＬＤ
  387. ＩＦ　ＶＹ＜０　ＴＨＥＮ　＠ＳＣＲＬＵ
  388. ＩＦ　ＶＸ＞０　ＴＨＥＮ　＠ＳＣＲＬＲ
  389. ’－－－　←
  390. ＧＣＯＰＹ　ＧＸ，ＧＹ，ＧＸ，ＹＹ，ＧＸ＋ＤＸ，ＧＹ，１
  391. ＧＣＯＰＹ　ＧＸ＋１，ＧＹ，ＸＸ＋２，ＹＹ，ＧＸ，ＧＹ，１
  392. ＧＰＡＧＥ　１
  393. ＲＥＴＵＲＮ
  394. ’－－－　→
  395. ＠ＳＣＲＬＲ
  396. ＧＣＯＰＹ　ＸＸ，ＧＹ，ＸＸ，ＹＹ，ＧＸ－１，ＧＹ，１
  397. ＧＣＯＰＹ　ＧＸ－２，ＧＹ，ＸＸ－１，ＹＹ，ＧＸ－１，ＧＹ，１
  398. ＧＰＡＧＥ　１
  399. ＲＥＴＵＲＮ
  400. ’－－－　↑
  401. ＠ＳＣＲＬＵ
  402. ＧＣＯＰＹ　ＧＸ，ＧＹ，ＸＸ，ＧＹ，ＧＸ，ＧＹ＋ＤＹ，１
  403. ＧＣＯＰＹ　ＧＸ，ＧＹ＋１，ＸＸ，ＹＹ＋２，ＧＸ，ＧＹ，１
  404. ＧＰＡＧＥ　１
  405. ＲＥＴＵＲＮ
  406. ’－－－　↓
  407. ＠ＳＣＲＬＤ
  408. ＧＣＯＰＹ　ＧＸ，ＹＹ，ＸＸ，ＹＹ，ＧＸ，ＧＹ－１，１
  409. ＧＣＯＰＹ　ＧＸ，ＧＹ－２，ＸＸ，ＹＹ－１，ＧＸ，ＧＹ－１，１
  410. ＧＰＡＧＥ　１
  411. ＲＥＴＵＲＮ
  413. ’－－－　←→
  414. ＠ＲＥＶＨ
  415. ＧＰＡＧＥ　０
  416. Ｘ１＝ＧＸ：Ｘ２＝ＧＸ＋（ＺＸ＊８）－１：Ｘ３＝ＧＸ－１
  417. ＹＹ＝ＧＹ＋（ＺＹ＊８）－１：ＤＸ＝ＦＬＯＯＲ（ＺＸ＊４）
  418. ＦＯＲ　ＸＸ＝０　ＴＯ　ＤＸ－１
  419. 　ＧＣＯＰＹ　Ｘ１，ＧＹ，Ｘ１，ＹＹ，Ｘ３，ＧＹ，１
  420. 　ＧＣＯＰＹ　Ｘ２，ＧＹ，Ｘ２，ＹＹ，Ｘ１，ＧＹ，１
  421. 　ＧＣＯＰＹ　Ｘ３，ＧＹ，Ｘ３，ＹＹ，Ｘ２，ＧＹ，１
  422. 　ＧＦＩＬＬ　Ｘ３，ＧＹ，Ｘ３，ＹＹ，０
  423. 　Ｘ１＝Ｘ１＋１：Ｘ２＝Ｘ２－１
  424. ＮＥＸＴ
  425. ＧＰＡＧＥ　１
  426. ＲＥＴＵＲＮ
  427. ’－－－　↑↓
  428. ＠ＲＥＶＶ
  429. ＧＰＡＧＥ　０
  430. ＸＸ＝ＧＸ＋（ＺＸ＊８）－１：ＤＹ＝ＦＬＯＯＲ（ＺＹ＊４）
  431. Ｙ１＝ＧＹ：Ｙ２＝ＧＹ＋（ＺＹ＊８）－１：Ｙ３＝ＧＹ－１
  432. ＦＯＲ　ＹＹ＝０　ＴＯ　ＤＹ－１
  433. 　ＧＣＯＰＹ　ＧＸ，Ｙ１，ＸＸ，Ｙ１，ＧＸ，Ｙ３，１
  434. 　ＧＣＯＰＹ　ＧＸ，Ｙ２，ＸＸ，Ｙ２，ＧＸ，Ｙ１，１
  435. 　ＧＣＯＰＹ　ＧＸ，Ｙ３，ＸＸ，Ｙ３，ＧＸ，Ｙ２，１
  436. 　ＧＦＩＬＬ　ＧＸ，Ｙ３，ＸＸ，Ｙ３，０
  437. 　Ｙ１＝Ｙ１＋１：Ｙ２＝Ｙ２－１
  438. ＮＥＸＴ
  439. ＧＰＡＧＥ　１
  440. ＲＥＴＵＲＮ
  442. ’－－－カンイコヒ゜－（ウエカ゛メンニノコス）
  443. ＠ＣＯＰＹ
  444. ＩＸ＝ＧＸ：ＩＹ＝ＧＹ
  445. ’－－－
  446. ＠ＰＵＳＨＩＭＧ
  447. ＧＰＡＧＥ　０
  448. Ｘ＝ＣＸ＊８：Ｙ＝ＣＹ＊８
  449. ＧＦＩＬＬ　ＩＸ，ＩＹ，ＩＸ＋６３，ＩＹ＋６３，０
  450. Ｊ＝（（ＢＮ　ＡＮＤ　２５６）！＝０）
  451. ＧＣＯＰＹ　Ｘ，Ｙ，Ｘ＋ＺＸ＊８－１，Ｙ＋ＺＹ＊８－１，ＩＸ，ＩＹ，Ｊ
  452. ＧＰＡＧＥ　１
  453. ＲＥＴＵＲＮ
  455. ’－－－ＲＥＤＯ
  456. ＠ＲＥＤＯ
  457. ＩＸ＝ＲＸ：ＩＹ＝ＲＹ
  458. ＧＯＳＵＢ　＠ＰＵＳＨＩＭＧ
  459. ＲＥＴＵＲＮ
  461. ’－－－ＵＮＤＯ
  462. ＠ＵＮＤＯ
  463. ＩＸ＝ＲＸ：ＩＹ＝ＲＹ
  464. ＧＯＴＯ　＠ＰＳＴＳＵＢ
  466. ’－－－ＰＡＳＴＥ
  467. ＠ＰＡＳＴＥ
  468. ＧＯＳＵＢ　＠ＲＥＤＯ
  469. ＩＸ＝ＧＸ：ＩＹ＝ＧＹ
  470. ’－－－
  471. ＠ＰＳＴＳＵＢ
  472. Ｊ＝ＢＮ　ＡＮＤ　２５６
  473. ＤＸ＝ＺＳＴ（ＣＳＺ）：ＤＹ＝ＺＳＴ（ＣＳＺ）
  474. ＦＯＲ　ＹＹ＝０　ＴＯ　ＺＹ＊８－１
  475. 　ＦＯＲ　ＸＸ＝０　ＴＯ　ＺＸ＊８－１
  476. 　　ＧＰＡＧＥ　０
  477. 　　Ｉ＝ＧＳＰＯＩＴ（ＩＸ＋ＸＸ，ＩＹ＋ＹＹ）
  478. 　　ＧＰＡＧＥ　１
  479. 　　ＩＦ　Ｊ＝＝０　ＴＨＥＮ　＠ＰＳＴＯＫ
  480. 　　ＩＦ　（Ｉ　ＡＮＤ　１５）＝＝０　ＴＨＥＮ　＠ＳＫＰＰＳＴ
  481. ＠ＰＳＴＯＫ
  482. 　　ＧＰＳＥＴ　ＥＸ＋ＸＸ＊ＤＸ，ＥＹ＋ＹＹ＊ＤＹ，Ｉ
  483. ＠ＳＫＰＰＳＴ
  484. 　ＮＥＸＴ
  485. ＮＥＸＴ
  486. ’－－－
  487. ＧＯＳＵＢ　＠ＺＳＷＯＮ
  488. ＧＯＳＵＢ　＠ＤＲＡＷＳＵＢ
  489. ＧＯＳＵＢ　＠ＣＨＲＺＯＯＭ
  490. ＲＥＴＵＲＮ
  492. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  493. ＠ＳＰＢＵＴ　’スフ゜ライトホ゛タン
  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. 　ＩＦ　ＳＢ（Ｉ，＿Ｃ）＝＝ＸＣ　ＴＨＥＮ　＠ＳＫＩＰＳＰ
  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. ＲＥＴＵＲＮ
  574. ’－－－　ｓｅｔ　ｃｈｒｂａｎｋ
  575. ＠ＳＢＣＨＲＢＫ
  576. ＣＢＡＮＫ（ＣＴＹＰＥ）＝Ｉ
  577. ＧＯＴＯ　＠＿ＳＫＩＰＳＳＢ
  579. ’－－－　ｃｈａｎｇｅ　ＢＧＵ／ＳＰＵ／ＢＧＦ
  580. ＠ＳＢＴＹＰＥ
  581. ＧＯＳＵＢ　＠ＣＬＲＣＳＲ
  582. ＣＴＹＰＥ＝Ｉ－Ｇ
  583. ＧＯＳＵＢ　＠ＣＭＣＨＥＣＫ
  584. ’－－－
  585. ＠＿ＳＫＩＰＳＳＢ
  586. ＩＦ　ＯＬＤＣＴ！＝ＣＴＹＰＥ　ＴＨＥＮ　＠＿ＳＳＢＥ
  587. ＩＦ　ＯＬＤＣＢ！＝ＣＢＡＮＫ（ＣＴＹＰＥ）　ＴＨＥＮ　＠＿ＳＳＢＥ
  588. ＩＦ　ＯＬＤＸ！＝ＣＳＸ　ＴＨＥＮ　＠＿ＳＳＢＥ
  589. ＩＦ　ＯＬＤＹ＝＝ＣＳＹ　ＴＨＥＮ　ＲＥＴＵＲＮ
  590. ＠＿ＳＳＢＥ
  591. ＧＯＳＵＢ　＠ＳＥＴＣＴＹＰＥ
  592. ＧＯＳＵＢ　＠ＣＨＲＡＬＬ
  593. ＧＯＳＵＢ　＠ＣＨＲＺＯＯＭ
  594. ＲＥＴＵＲＮ
  596. ’－－－　ｓｅｔ　ｓｉｚｅ
  597. ＠ＳＢＳＹ
  598. ＣＳＹ＝Ｉ－Ｇ：ＧＯＳＵＢ　＠ＣＬＲＣＳＲ
  599. ＩＦ　ＣＳＹ＝＝３　ＡＮＤ　ＣＳＸ＜２　ＴＨＥＮ　ＣＳＹ＝２：ＢＥＥＰ
  600. ＩＦ　ＣＳＹ＜２　ＡＮＤ　ＣＳＸ＝＝３　ＴＨＥＮ　ＣＳＸ＝２：ＢＥＥＰ
  601. ＧＯＴＯ　＠＿ＳＢＳＥ
  602. ’－－－
  603. ＠ＳＢＳＸ
  604. ＣＳＸ＝Ｉ－Ｇ：ＧＯＳＵＢ　＠ＣＬＲＣＳＲ
  605. ＩＦ　ＣＳＸ＝＝３　ＡＮＤ　ＣＳＹ＜２　ＴＨＥＮ　ＣＳＸ＝２：ＢＥＥＰ
  606. ＩＦ　ＣＳＸ＜２　ＡＮＤ　ＣＳＹ＝＝３　ＴＨＥＮ　ＣＳＹ＝２：ＢＥＥＰ
  607. ’－－－
  608. ＠＿ＳＢＳＥ
  609. ＺＸ＝ＢＣＮＴ（ＣＳＸ）：ＺＹ＝ＢＣＮＴ（ＣＳＹ）
  610. ＧＯＳＵＢ　＠ＣＡＬＣＺ：ＺＺ＝ＢＣＮＴ（ＣＳＺ）
  611. ＩＦ　ＣＸ＋ＺＸ＞＝３２　ＴＨＥＮ　ＣＸ＝３２－ＺＸ
  612. ＩＦ　ＣＹ＋ＺＹ＞＝８　ＴＨＥＮ　ＣＹ＝８－ＺＹ
  613. ＣＸ＝ＦＬＯＯＲ（ＣＸ／ＺＸ）＊ＺＸ
  614. ＣＹ＝ＦＬＯＯＲ（ＣＹ／ＺＹ）＊ＺＹ
  615. ＧＯＴＯ　＠＿ＳＫＩＰＳＳＢ
  617. ’－－－　ハ゛ンクタンイテ゛イロヘンコウ
  618. ＠ＳＥＴＣＳＵＢ
  619. ＴＭＰ＝ＣＯＬ
  620. Ｐ＝ＰＡＬ＊１６
  621. ＦＯＲ　ＣＯＬ＝０　ＴＯ　１５
  622. 　ＳＰＰＡＧＥ　０：ＢＧＰＡＧＥ　０
  623. 　ＣＯＬＲＥＡＤ（ＣＴ＄，Ｐ），ＳＰＩＮ（０），ＳＰＩＮ（１），ＳＰＩＮ（２）
  624. 　Ｃ＄＝ＨＥＸ＄（ＳＰＩＮ（０），２）
  625. 　Ｃ＄＝Ｃ＄＋ＨＥＸ＄（ＳＰＩＮ（１），２）
  626. 　Ｃ＄＝Ｃ＄＋ＨＥＸ＄（ＳＰＩＮ（２），２）
  627. 　Ｐ２＝Ｐ：ＧＯＳＵＢ　＠ＣＳＥＴ
  628. 　Ｐ＝Ｐ＋１
  629. ＮＥＸＴ
  630. ＣＯＬ＝ＴＭＰ
  631. ＧＯＴＯ　＠ＣＯＬＢＯＸ
  633. ’－－－イロヘンコウ（スフ゜ライトＢＧト゛クリツ）
  634. ＠ＣＳＥＴ
  635. ＦＯＲ　Ｉ＝０　ＴＯ　１
  636. 　ＳＰＰＡＧＥ　Ｉ：ＢＧＰＡＧＥ　Ｉ：ＧＰＡＧＥ　Ｉ
  637. 　ＣＯＬＳＥＴ　ＣＴ＄，Ｐ，Ｃ＄
  638. 　ＣＯＬＳＥＴ　”ＧＲＰ”，Ｐ２，Ｃ＄
  639. ＮＥＸＴ
  640. ＲＥＴＵＲＮ
  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. ＮＥＸＴ
  683. ’－－－　キャラクタメイセイセイ
  684. ＠ＳＥＴＣＳＴＲ
  685. ＣＮ＄＝ＣＳＴＲ＄（ＣＴＹＰＥ）
  686. ＣＮ＄＝ＣＮ＄＋ＳＴＲ＄（ＣＢＡＮＫ（ＣＴＹＰＥ））
  687. ＣＴ＄＝ＣＴＹＰＥ＄（ＣＴＹＰＥ）
  688. ＲＥＴＵＲＮ
  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. ’－－－
  718. ＠ＡＴＯＰ
  719. ＯＬＤＡＮ＝Ｎ：ＯＬＤＡＸ＝ＡＸ：ＯＬＤＡＹ＝ＡＹ
  720. ＯＬＤＡＰ＝ＰＡＬ：ＯＬＤＡＣ＝Ｃ：ＯＬＤＡＷ＝Ｗ
  721. ＳＰＰＡＧＥ　０
  722. ＳＰＳＥＴ　ＡＮＴＯＰ，Ｎ，ＰＡＬ，０，０，ＰＲ，ＡＸ，ＡＹ
  723. ＳＰＯＦＳ　ＡＮＴＯＰ，１８４，８０
  724. ＳＰＡＮＩＭ　ＡＮＴＯＰ，Ｃ，Ｗ，０
  725. ＳＰＰＡＧＥ　１
  726. ＲＥＴＵＲＮ
  728. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  729. ＠ＤＩＳＰＩＮＩＴ　’カ゛メンノショキカ
  730. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  731. ＣＬＳ：ＣＯＬＯＲ　０：ＧＰＡＧＥ　０
  732. ’＋－－－－－－－－－＋
  733. ’｜　ウエ　カ゛メン　｜
  734. ’＋－－－－－－－－－＋
  735. ＬＯＣＡＴＥ　０，２３
  736. ＰＲＩＮＴ”ＣＨＡＲＡＣＴＥＲ　ＥＤＩＴＯＲ　ｖ２．１”；
  737. ＣＯＬＯＲ　１４：Ｘ＝１０：Ｙ＝９
  738. ＲＸ＝（Ｘ＋１）＊８：ＲＹ＝（Ｙ＋１）＊８
  739. ＧＯＳＵＢ　＠ＰＵＴＷＩＮ
  740. ＣＯＬＯＲ　７：Ｘ＝０：Ｙ＝９
  741. ＧＸ＝（Ｘ＋１）＊８：ＧＹ＝（Ｙ＋１）＊８
  742. ＧＯＳＵＢ　＠ＰＵＴＷＩＮ
  743. ＬＯＣＡＴＥ　０，１９
  744. ＰＲＩＮＴ”А＝ＣＯＰＹ　　　　К＝ＰＡＳＴＥ２”
  745. ＰＲＩＮＴ”Б＝ＰＡＳＴＥ”
  746. ＰＲＩＮＴ”Ф＝←→　Х＝↑↓
  747. ＰＲＩＮＴ”КП＝ＳＣＲＯＬＬ”
  748. ＣＯＬＯＲ　０
  749. Ｘ＝２２：Ｙ＝９：ＧＯＳＵＢ　＠ＰＵＴＷＩＮ
  750. ＬＯＣＡＴＥ　Ｘ，Ｙ＋１：ＣＯＬＯＲ　７
  751. ＰＲＩＮＴ　”　　ＳＰＡＮＩＭ”：ＣＯＬＯＲ　０
  752. ＧＦＩＬＬ　０，６７，２５５，６８，１５
  753. ＧＯＳＵＢ　＠ＣＨＲＡＬＬ
  754. ’＋－－－－－－－－－＋
  755. ’｜　シタ　カ゛メン　｜
  756. ’＋－－－－－－－－－＋
  757. ＰＮＬＴＹＰＥ　”ＯＦＦ”
  758. ＧＰＡＧＥ　１：ＧＣＯＬＯＲ　０：ＧＣＬＳ
  759. ’－－－　ヘンシュウエリア
  760. Ｘ＝０：Ｙ＝２
  761. ＰＮＬＳＴＲ　Ｘ，Ｙ，　”┌”＋”─”＊１６＋”┐”
  762. ＦＯＲ　Ｉ＝１　ＴＯ　１６
  763. 　’ＰＮＬＳＴＲ　Ｘ，Ｙ＋Ｉ，”│”＋”С”＊１６＋”│”
  764. 　ＰＮＬＳＴＲ　Ｘ，Ｙ＋Ｉ，”│”＋”　”＊１６＋”│”
  765. ＮＥＸＴ　Ｉ
  766. Ｉ＝Ｙ＋Ｉ：Ｃ＄＝”│”＋”　”＊１６＋”│”
  767. ＰＮＬＳＴＲ　Ｘ，Ｉ＋０，　”├”＋”─”＊１６＋”┤”
  768. ＰＮＬＳＴＲ　Ｘ，Ｉ＋１，　Ｃ＄
  769. ＰＮＬＳＴＲ　Ｘ，Ｉ＋２，　Ｃ＄
  770. ＰＮＬＳＴＲ　Ｘ，Ｉ＋３，　”└”＋”─”＊１６＋”┘”
  771. Ｉ＝Ｘ＋１７：Ｊ＝Ｙ＋１０
  772. ＰＮＬＳＴＲ　Ｉ，Ｊ　　，　”├──┐”
  773. ＦＯＲ　Ｋ＝１　ＴＯ　６
  774. 　ＰＮＬＳＴＲ　Ｉ，Ｊ＋Ｋ，”│　　│”
  775. ＮＥＸＴ
  776. ＰＮＬＳＴＲ　Ｉ，Ｊ＋Ｋ，　”┼──┘”
  777. ’－－－
  778. ＥＸ＝（Ｘ＋１）＊８：ＥＹ＝（Ｙ＋１）＊８
  779. ＤＲ＝ＦＡＬＳＥ
  780. ＧＯＳＵＢ　＠ＣＨＲＺＯＯＭ
  781. ＦＯＲ　Ｉ＝０　ＴＯ　ＳＢＭＡＸ－１
  782. 　ＳＰＯＦＳ　Ｉ＋ＳＰＴＯＰ，ＳＢ（Ｉ，＿Ｘ），ＳＢ（Ｉ，＿Ｙ）
  783. ＮＥＸＴ
  784. ’－－－
  785. ＰＮＬＳＴＲ　２７，２，”ｃｏｌｏｒ”，７
  786. ＰＮＬＳＴＲ　２６，１１，”ＳＰＡＮＩＭ”，７
  787. ＰＮＬＳＴＲ　２２，１２，”ｃｎ”，７
  788. ＰＮＬＳＴＲ　２２，１４，”ｗａ”，７
  789. ＰＮＬＳＴＲ　２２，１６，”ｓｘ”，７
  790. ＰＮＬＳＴＲ　２２，１８，”ｓｙ”，７
  791. ’－－－　イロミホン
  792. ＨＸ＝０：ＨＹ＝０：ＨＤＸ＝ＨＸ＊８：ＨＤＹ＝ＨＹ＊８
  793. ＧＯＳＵＢ　＠ＣＯＬＢＯＸ
  794. ＳＰＳＥＴ　０，１０３，０，０，０，０
  795. ＧＯＳＵＢ　＠ＣＯＬＣＳＲ
  796. ＧＯＳＵＢ　＠ＳＥＴＣＴＹＰＥ
  797. ’－－－　イロハ゛ンク
  798. Ｘ＝２３：Ｙ＝３
  799. ＰＤＸ＝Ｘ＊８＋８：ＰＤＹ＝Ｙ＊８
  800. ＦＯＲ　Ｉ＝０　ＴＯ　１５
  801. 　Ｘ＝ＦＬＯＯＲ（Ｉ％４）＊１６＋ＰＤＸ
  802. 　Ｙ＝ＦＬＯＯＲ（Ｉ／４）＊１６＋ＰＤＹ
  803. 　ＳＰＳＥＴ　Ｉ＋２，Ｉ＋４８，０，０，０，ＰＲ
  804. 　ＳＰＯＦＳ　Ｉ＋２，Ｘ，Ｙ
  805. ＮＥＸＴ
  806. ＳＰＣＨＲ　ＰＡＬ＋２，ＰＡＬ＋４８，ＸＣ，０，０，１
  807. ’－－－　システムアイコン
  808. ＩＣＯＮＰＵＳＥ＝ＦＡＬＳＥ
  809. ＩＣＯＮＰＡＧＥ＝０
  810. ＩＣＯＮＰＭＡＸ＝４
  811. ＩＣＯＮＳＥＴ　０，５９：’ＥＲＡＳＥ
  812. ＩＣＯＮＳＥＴ　１，３９：’ＦＩＬＥ
  813. ＩＣＯＮＳＥＴ　２，６　：’ＰＡＩＮＴ
  814. ＩＣＯＮＳＥＴ　３，５　：’ＰＥＮ
  815. ＧＯＳＵＢ　＠ＰＵＴＭＯＤＥ
  816. ＧＯＳＵＢ　＠ＰＵＴＧＲＩＤ
  817. ＲＥＴＵＲＮ
  818. ’－－－
  819. ＠ＰＵＴＷＩＮ
  820. ＬＯＣＡＴＥ　Ｘ，Ｙ
  821. ＰＲＩＮＴ”┌”＋”─”＊８＋”┐”：Ｙ＝Ｙ＋１
  822. ＦＯＲ　Ｉ＝０　ＴＯ　７
  823. 　ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ”│”＋”　”＊８＋”│”
  824. 　Ｙ＝Ｙ＋１
  825. ＮＥＸＴ
  826. ＬＯＣＡＴＥ　Ｘ，Ｙ
  827. ＰＲＩＮＴ”└”＋”─”＊８＋”┘”
  828. ＲＥＴＵＲＮ
  829. ’－－－
  830. ＠ＰＵＴＧＲＩＤ
  831. ＧＯＳＵＢ　＠ＣＡＬＣＺ：Ｚ＝ＺＳＴ（ＣＳＺ）
  832. ＦＯＲ　Ｙ＝０　ＴＯ　１５
  833. 　Ｊ＝ＦＬＯＯＲ（Ｙ％Ｚ）
  834. 　ＦＯＲ　Ｘ＝０　ＴＯ　１５
  835. 　　Ｋ＝ＦＬＯＯＲ（Ｘ％Ｚ）
  836. 　　ＧＯＳＵＢ　＠ＭＫＧＲＩＤ
  837. 　　ＰＮＬＳＴＲ　Ｘ＋１，Ｙ＋３，Ｃ＄
  838. 　ＮＥＸＴ
  839. ＮＥＸＴ
  840. ＲＥＴＵＲＮ
  841. ’－－－
  842. ＠ＭＫＧＲＩＤ
  843. ＩＦ　Ｊ＝＝０　ＡＮＤ　Ｋ＝＝０　ＴＨＥＮ　Ｃ＄＝”С”：ＲＥＴＵＲＮ
  844. ＩＦ　Ｊ！＝０　ＡＮＤ　Ｋ＝＝０　ＴＨＥＮ　Ｃ＄＝”У”：ＲＥＴＵＲＮ
  845. ＩＦ　Ｋ！＝０　ＡＮＤ　Ｊ＝＝０　ＴＨＥＮ　Ｃ＄＝”Т”：ＲＥＴＵＲＮ
  846. Ｃ＄＝”　”
  847. ＲＥＴＵＲＮ
  849. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  850. ＠ＴＯＵＣＨ　’アタリハンテイ
  851. Ｒ＝ＦＡＬＳＥ
  852. ＩＦ　ＴＳ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  853. ＩＦ　ＴＸ＜Ｘ　ＴＨＥＮ　ＲＥＴＵＲＮ
  854. ＩＦ　ＴＸ＞Ｘ＋Ｗ　ＴＨＥＮ　ＲＥＴＵＲＮ
  855. ＩＦ　ＴＹ＜Ｙ　ＴＨＥＮ　ＲＥＴＵＲＮ
  856. ＩＦ　ＴＹ＞Ｙ＋Ｈ　ＴＨＥＮ　ＲＥＴＵＲＮ
  857. Ｘ＝ＴＸ　ＡＮＤ　＆ＨＦ８
  858. Ｙ＝ＴＹ　ＡＮＤ　＆ＨＦ８
  859. Ｒ＝ＴＲＵＥ
  860. ＲＥＴＵＲＮ
  862. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  863. ＠ＰＳＰＩＮ　’
  864. Ｎ＝ＳＰＩＮ（Ｎ）
  865. ＠ＰＵＴＮＵＭ
  866. Ｎ＄＝ＲＩＧＨＴ＄（”　　　”＋ＳＴＲ＄（Ｎ），４）
  867. ＰＮＬＳＴＲ　Ｘ，Ｙ，Ｎ＄，Ｃ
  868. ＲＥＴＵＲＮ
  870. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  871. ＠ＭＫＯＦＳ　’テキセツナオフセットセッテイ
  872. ＩＦ　ＣＴＹＰＥ＝＝１　ＧＯＴＯ　＠＿ＯＦＳＳＰ
  873. ’－－－
  874. ＣＨ＝ＣＹ＊３２＋ＣＸ
  875. ＦＯＲ　Ｙ＝０　ＴＯ　ＺＹ－１
  876. 　ＦＯＲ　Ｘ＝０　ＴＯ　ＺＸ－１
  877. 　　ＯＦＳ（Ｘ，Ｙ）＝ＣＨ＋Ｘ＋（Ｙ＊３２）
  878. 　ＮＥＸＴ
  879. ＮＥＸＴ
  880. ＲＥＴＵＲＮ
  881. ’－－－
  882. ＠＿ＯＦＳＳＰ
  883. Ｘ＝ＢＺＣ（ＣＳＸ）：Ｙ＝ＢＺＣ（ＣＳＹ）
  884. ＣＨ＝ＦＬＯＯＲ（ＣＸ／Ｘ）
  885. ＣＨ＝ＣＨ＋ＦＬＯＯＲ（ＣＹ／Ｙ）＊（３２／Ｘ）
  886. ＣＨ＝ＣＨ＊（Ｘ＊Ｙ）
  887. ＦＯＲ　Ｙ＝０　ＴＯ　ＺＹ－１
  888. 　ＦＯＲ　Ｘ＝０　ＴＯ　ＺＸ－１
  889. 　　ＯＦＳ（Ｘ，Ｙ）＝ＣＨ＋Ｘ＋（Ｙ＊ＺＸ）
  890. 　ＮＥＸＴ
  891. ＮＥＸＴ
  892. ＲＥＴＵＲＮ
  894. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  895. ＠ＣＨＲＺＯＯＭ　’シタカ゛メンニキャラヒョウシ゛
  896. ＧＯＳＵＢ　＠ＭＫＯＦＳ
  897. ＧＯＳＵＢ　＠ＣＡＬＣＺ：Ｚ＝ＺＳＴ（ＣＳＺ）
  898. ＳＰＰＡＧＥ　０：ＢＧＰＡＧＥ　０：ＧＰＡＧＥ　１
  899. ＧＦＩＬＬ　ＥＸ，ＥＹ，ＥＸ＋１２７，ＥＹ＋１２７，０
  900. ＦＯＲ　Ｙ＝０　ＴＯ　ＺＹ－１
  901. 　ＹＯ＝ＥＹ＋（Ｙ＊Ｚ＊８）
  902. 　ＦＯＲ　Ｘ＝０　ＴＯ　ＺＸ－１
  903. 　　ＸＯ＝ＥＸ＋（Ｘ＊Ｚ＊８）
  904. 　　ＧＰＵＴＣＨＲ　ＸＯ，ＹＯ，ＣＮ＄，ＯＦＳ（Ｘ，Ｙ），ＰＡＬ，Ｚ
  905. 　ＮＥＸＴ
  906. ＮＥＸＴ
  907. ＳＰＰＡＧＥ　１：ＢＧＰＡＧＥ　１
  908. ＧＯＳＵＢ　＠ＰＵＴＧＲＩＤ
  909. ＲＥＴＵＲＮ
  910. ’－－－
  911. ＠ＣＡＬＣＺ
  912. ＣＳＺ＝ＣＳＸ
  913. ＩＦ　ＣＳＺ＜ＣＳＹ　ＴＨＥＮ　ＣＳＺ＝ＣＳＹ
  914. ＲＥＴＵＲＮ
  916. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  917. ＠ＣＨＲＡＬＬ　’ウエカ゛メンニ１ハ゛ンクフ゛ンノキャラヒョウシ゛
  918. Ｃ＄＝ＣＮ＄＋”／”＋ＣＴ＄＋”／（”
  919. Ｃ＄＝Ｃ＄＋ＳＴＲ＄（ＺＸ＊８）＋”，”
  920. Ｃ＄＝Ｃ＄＋ＳＴＲ＄（ＺＹ＊８）＋”）　”
  921. ＰＮＬＳＴＲ　１，２３，　Ｃ＄
  922. ＳＰＰＡＧＥ　０：ＢＧＰＡＧＥ　０：ＧＰＡＧＥ　０
  923. ＧＦＩＬＬ　０，０，２５５，６３，０
  924. Ｘ＝０：Ｙ＝０：Ｉ＝０：Ｓ＝ＺＸ＊ＺＹ
  925. ＩＦ　ＣＴＹＰＥ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＨＲＳＰ
  926. ＩＦ　ＣＴＹＰＥ！＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＨＲＢＧ
  927. ＳＰＰＡＧＥ　１：ＢＧＰＡＧＥ　１：ＧＰＡＧＥ　１
  928. ＲＥＴＵＲＮ
  929. ’－－－　ｂｇ　ｃｈｒ
  930. ＠ＣＨＲＢＧ
  931. ＧＰＵＴＣＨＲ　Ｘ，Ｙ，ＣＮ＄，Ｉ，ＰＡＬ，１
  932. Ｘ＝Ｘ＋８
  933. ＩＦ　Ｘ＞＝ＧＳＸ　ＴＨＥＮ　Ｘ＝０：Ｙ＝Ｙ＋８
  934. Ｉ＝Ｉ＋１
  935. ＩＦ　Ｉ＜２５６　ＴＨＥＮ　＠ＣＨＲＢＧ
  936. ＲＥＴＵＲＮ
  937. ’－－－　ｓｐｒｉｔｅ　ｃｈｒ
  938. ＠ＣＨＲＳＰ
  939. ＹＹ＝Ｙ：ＤＸ＝ＢＺＣ（ＣＳＸ）：ＤＹ＝ＢＺＣ（ＣＳＹ）
  940. ＦＯＲ　Ｊ＝０　ＴＯ　ＤＹ－１
  941. 　ＸＸ＝Ｘ
  942. 　ＦＯＲ　Ｋ＝０　ＴＯ　ＤＸ－１
  943. 　　ＧＰＵＴＣＨＲ　ＸＸ，ＹＹ，ＣＮ＄，Ｉ，ＰＡＬ，１
  944. 　　ＸＸ＝ＸＸ＋８：Ｉ＝Ｉ＋１
  945. 　ＮＥＸＴ
  946. 　ＹＹ＝ＹＹ＋８
  947. ＮＥＸＴ
  948. Ｘ＝Ｘ＋ＤＸ＊８
  949. ＩＦ　Ｘ＞＝ＧＳＸ　ＴＨＥＮ　Ｘ＝０：Ｙ＝Ｙ＋ＤＹ＊８
  950. ＩＦ　Ｉ＜２５６　ＴＨＥＮ　＠ＣＨＲＳＰ
  951. ＲＥＴＵＲＮ
  953. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  954. ＠ＦＩＬＥＭＯＤＥ　’ファイルノヨミカキ
  955. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  956. ＰＮＬＴＹＰＥ　”ＫＹＡ”：ＩＣＯＮＣＬＲ
  957. ＧＣＬＳ　０
  958. ＧＣＯＰＹ　０，０，０，２５５，６３，０，０，ＴＲＵＥ
  959. ＧＰＡＧＥ　０，１，１
  960. ’－－－
  961. ＠＿ＦＬＯＯＰ
  962. ＣＬＳ
  963. ＬＯＣＡＴＥ　０，８
  964. ＰＲＩＮＴ”─”＊３２；
  965. ＰＲＩＮＴ”　Ｌ：ＣＨＲヨミコミ”
  966. ＰＲＩＮＴ”　Ｓ：ＣＨＲホソ゛ン”
  967. ＰＲＩＮＴ”ＬＣ：イロヨミコミ”
  968. ＰＲＩＮＴ”ＳＣ：イロホソ゛ン”
  969. ＰＲＩＮＴ”　Ｑ：ファイルメニュ－オワリ”
  970. ＰＲＩＮＴ”　Ｅ：ツ－ルオワリ”
  971. ＰＲＩＮＴ”─”＊３２；
  972. ’－－－
  973. ＩＮＰＵＴ”コマント゛”；Ｋ＄
  974. ＩＦ　Ｋ＄＝＝”Ｑ”　ＧＯＴＯ　＠＿ＦＱＵＩＴ
  975. ＩＦ　Ｋ＄＝＝”Ｅ”　ＧＯＴＯ　＠＿ＦＥＸＩＴ
  976. ＩＦ　Ｋ＄＝＝”Ｓ”　ＧＯＴＯ　＠＿ＦＳＡＶＥ
  977. ＩＦ　Ｋ＄＝＝”Ｌ”　ＧＯＴＯ　＠＿ＦＬＯＡＤ
  978. ＩＦ　Ｋ＄＝＝”ＳＣ”　ＧＯＴＯ　＠＿ＦＣＳＡＶＥ
  979. ＩＦ　Ｋ＄＝＝”ＬＣ”　ＧＯＴＯ　＠＿ＦＣＬＯＡＤ
  980. ＧＯＴＯ　＠＿ＦＬＯＯＰ
  982. ’－－－
  983. ＠ＬＣＳＵＢ
  984. ’ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ
  985. ＦＯＲ　Ｉ＝０　ＴＯ　１
  986. 　ＢＧＰＡＧＥ　Ｉ：ＳＰＰＡＧＥ　Ｉ
  987. 　ＬＯＡＤ　Ｎ＄，ＦＡＬＳＥ
  988. ＮＥＸＴ
  989. ’ＳＹＳＢＥＥＰ＝ＴＲＵＥ
  990. ＲＥＴＵＲＮ
  992. ’－－－イロヨミコミ
  993. ＠＿ＦＣＬＯＡＤ
  994. ＩＮＰＵＴ”スフ゜ライトノイロヲＬＯＡＤシマスカ（Ｙ／Ｎ）”；Ｋ＄
  995. ＩＦ　Ｋ＄！＝”Ｙ”　ＴＨＥＮ　＠ＦＬＤ＿ＢＧ
  996. ＩＮＰＵＴ”ＳＰ／ヨミコムナマエ（ＣＯＬ）：”；Ｋ＄
  997. Ｎ＄＝”ＣＯＬ１：”＋Ｋ＄
  998. ＧＯＳＵＢ　＠ＬＣＳＵＢ
  999. ’
  1000. ＠ＦＬＤ＿ＢＧ
  1001. ＩＮＰＵＴ”ＢＧノイロヲＬＯＡＤシマスカ（Ｙ／Ｎ）”；Ｋ＄
  1002. ＩＦ　Ｋ＄！＝”Ｙ”　ＴＨＥＮ　＠＿ＦＱＵＩＴ
  1003. ＩＮＰＵＴ”ＢＧ／ヨミコムナマエ（ＣＯＬ）：”；Ｋ＄
  1004. Ｎ＄＝”ＣＯＬ０：”＋Ｋ＄
  1005. ＧＯＳＵＢ　＠ＬＣＳＵＢ
  1006. ＧＯＴＯ　＠＿ＦＱＵＩＴ
  1008. ’－－－イロホソ゛ン
  1009. ＠＿ＦＣＳＡＶＥ
  1010. ＳＰＰＡＧＥ　０：ＢＧＰＡＧＥ　０
  1011. ＩＮＰＵＴ”スフ゜ライトノイロヲＳＡＶＥシマスカ（Ｙ／Ｎ）”；Ｋ＄
  1012. ＩＦ　Ｋ＄！＝”Ｙ”　ＴＨＥＮ　＠ＦＳＶ＿ＢＧ
  1013. ＩＮＰＵＴ”ＳＰ：ホソ゛ンスルナマエ（ＣＯＬ）：”；Ｋ＄
  1014. Ｎ＄＝”ＣＯＬ１：”＋Ｋ＄
  1015. ＳＡＶＥ　Ｎ＄
  1016. ’
  1017. ＠ＦＳＶ＿ＢＧ
  1018. ＩＮＰＵＴ”ＢＧノイロヲＳＡＶＥシマスカ（Ｙ／Ｎ）”；Ｋ＄
  1019. ＩＦ　Ｋ＄！＝”Ｙ”　ＴＨＥＮ　＠＿ＦＱＵＩＴ
  1020. ＩＮＰＵＴ”ＢＧ：ホソ゛ンスルナマエ（ＣＯＬ）：”；Ｋ＄
  1021. Ｎ＄＝”ＣＯＬ０：”＋Ｋ＄
  1022. ＳＡＶＥ　Ｎ＄
  1023. ＧＯＴＯ　＠＿ＦＱＵＩＴ
  1025. ’－－－
  1026. ＠＿ＦＬＯＡＤ
  1027. ＩＮＰＵＴ”ヨミコムナマエ（ＣＨＲ）：”；Ｋ＄
  1028. Ｋ＄＝ＣＮ＄＋”：”＋Ｋ＄：ＰＲＩＮＴ　Ｋ＄
  1029. ＢＧＰＡＧＥ　０：ＳＰＰＡＧＥ　０
  1030. ＬＯＡＤ　Ｋ＄，ＦＡＬＳＥ
  1031. ＢＧＰＡＧＥ　１：ＳＰＰＡＧＥ　１
  1032. ’－－－スフ゜ライトハシタヲヨマナイ
  1033. ＩＦ　ＣＴＹＰＥ＝＝１　ＧＯＴＯ　＠＿ＦＱＵＩＴ
  1034. ＬＯＡＤ　Ｋ＄，ＦＡＬＳＥ
  1035. ＧＯＴＯ　＠＿ＦＱＵＩＴ
  1036. ’－－－
  1037. ＠＿ＦＳＡＶＥ
  1038. ＩＮＰＵＴ”ホソ゛ンスルナマエ（ＣＨＲ）：”；Ｋ＄
  1039. Ｋ＄＝ＣＮ＄＋”：”＋Ｋ＄：ＰＲＩＮＴ　Ｋ＄
  1040. ＢＧＰＡＧＥ　０：ＳＰＰＡＧＥ　０
  1041. ＳＡＶＥ　Ｋ＄
  1042. ’－－－
  1043. ＠＿ＦＱＵＩＴ
  1044. ＢＧＰＡＧＥ　１：ＳＰＰＡＧＥ　１
  1045. ＧＰＡＧＥ　０，０，０
  1046. ＧＯＳＵＢ　＠ＤＩＳＰＩＮＩＴ
  1047. ＲＥＴＵＲＮ
  1048. ’－－－
  1049. ＠＿ＦＥＸＩＴ
  1050. ＩＣＯＮＣＬＲ
  1051. ＡＣＬＳ
  1052. ＰＲＩＮＴ　”オツカレサマ！”
  1053. ＥＮＤ