プチコン

  1. ’┌──────────────────────────┐
  2. ’│　ＧＲＡＰＨＩＣ　ＥＤＩＴＯＲ　ＶＥＲ１．００　　　│
  3. ’├──────────────────────────┤
  4. ’│　　　（Ｃ）ＳｍｉｌｅＢｏｏｍ　Ｃｏ．Ｌｔｄ．　　　│
  5. ’└──────────────────────────┘
  6. ＶＩＳＩＢＬＥ　１，１，０，０，１，１
  7. ＣＬＥＡＲ
  8. ＣＬＳ：ＣＯＬＯＲ　０
  9. ＳＰＰＡＧＥ　０：ＳＰＣＬＲ
  10. ＳＰＰＡＧＥ　１：ＳＰＣＬＲ
  11. ＤＩＭ　ＲＧＢ（３）
  12. ＤＩＭ　ＺＳ（４）
  14. ’－－－　カクタ゛イサイス゛
  15. ＤＡＴＡ　０，１，３，７
  16. ＦＯＲ　Ｉ＝０　ＴＯ　３：ＲＥＡＤ　ＺＳ（Ｉ）：ＮＥＸＴ
  18. ’－－－　ヘンスウ　ショキカ
  19. ＣＸ＝０：ＣＹ＝０：ＣＯＬ＝０
  20. ＺＭ＝０：ＭＡＸＺＭ＝４
  21. ＴＬ＝０：ＭＡＸＴＬ＝７：ＴＳＴＥＰ＝０
  22. ＯＴＸ＝－１：ＯＴＹ＝－１
  23. ＸＣ＝７：ＰＲ＝１：ＧＭ＝０
  25. ’－－－　カ゛メン　ショキカ
  26. ＧＯＳＵＢ　＠ＤＩＳＰＩＮＩＴ
  28. ’┌─────────┐
  29. ’│　メインル－フ゜　│
  30. ’└─────────┘
  31. ＠ＭＡＩＮ
  32. 　’
  33. 　ＯＸ＝ＴＸ：ＯＹ＝ＴＹ：ＯＳ＝ＴＳ
  34. 　ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ：ＴＳ＝ＴＣＨＳＴ
  35. 　ＯＬＤＢ＝Ｂ：Ｂ＝ＢＵＴＴＯＮ（）
  36. 　ＯＬＤＩＣ＝ＩＣ：ＩＣ＝ＩＣＯＮＣＨＫ（）
  37. 　’
  38. 　ＧＯＳＵＢ　＠ＳＥＬＣＯＬ
  39. 　ＧＯＳＵＢ　＠ＤＲＡＷＳＵＢ
  40. 　ＧＯＳＵＢ　＠ＣＨＫＭＯＤＥ
  41. 　’
  42. 　ＶＳＹＮＣ　０
  43. 　’
  44. ＧＯＴＯ　＠ＭＡＩＮ
  46. ’┌────────┐
  47. ’│　サフ゛ショリ　│
  48. ’└────────┘
  50. ’──────────────────────────
  51. ＠ＤＩＳＰＩＮＩＴ　’カ゛メンノショキカ
  52. ’──────────────────────────
  53. ＰＮＬＴＹＰＥ　”ＯＦＦ”
  54. ＣＬＳ：ＣＯＬＯＲ　０
  55. ＧＣＯＬＯＲ　０：ＧＰＡＧＥ　０：ＧＣＬＳ　０
  56. ＰＲＩＮＴ　”カ゛メンヲケシマスカ（А＝ＹＥＳ）”
  57. ＧＯＳＵＢ　＠ＢＵＴＣＨＫ
  58. ＧＣ＝ＦＡＬＳＥ
  59. ＩＦ　Ｋ＝＝１６　ＴＨＥＮ　ＧＣ＝ＴＲＵＥ
  60. ＣＬＳ
  62. ’┌─────────┐
  63. ’│　ウエ　カ゛メン　│
  64. ’└─────────┘
  65. ＰＲＩＮＴ”┌──────────────────────────────┐”；
  66. ＰＲＩＮＴ”│ＧＲＡＰＨＩＣ　ＥＤＩＴＯＲ　ｖ１．０　　　　　　　　　　　│”；
  67. ＰＲＩＮＴ”└──────────────────────────────┘”；
  69. ’－－－　イロミホン
  70. Ｘ＝１４：Ｙ＝４
  71. ＬＯＣＡＴＥ　Ｘ，Ｙ
  72. ＰＲＩＮＴ　”┌────────────────┐”
  73. ＦＯＲ　Ｉ＝１　ＴＯ　１６
  74. 　ＬＯＣＡＴＥ　Ｘ，Ｉ＋Ｙ
  75. 　ＰＲＩＮＴ”│　　　　　　　　　　　　　　　　│”
  76. ＮＥＸＴ
  77. ＬＯＣＡＴＥ　Ｘ，Ｉ＋Ｙ
  78. ＰＲＩＮＴ　”└────────────────┘”
  79. ＨＸ＝Ｘ＋１：ＨＹ＝Ｙ＋１
  80. ＧＯＳＵＢ　＠ＣＯＬＢＯＸ
  81. ＧＯＳＵＢ　＠ＣＯＬＣＳＲ
  83. ’－－－　ツ－ルリスト
  84. ＭＸ＝０：ＭＹ＝６
  85. ＬＯＣＡＴＥ　ＭＸ，ＭＹ－２
  86. ＰＲＩＮＴ　”＜Ф：ＴＯＯＬ＞”
  87. ＰＲＩＮＴ
  88. ＰＲＩＮＴ　”　ＰＳＥＴ”
  89. ＰＲＩＮＴ　”　ＬＩＮＥ”
  90. ＰＲＩＮＴ　”　ＢＯＸ”
  91. ＰＲＩＮＴ　”　ＣＩＲＣＬＥ”
  92. ＰＲＩＮＴ　”　ＰＡＩＮＴ”
  93. ＰＲＩＮＴ　”　ＦＩＬＬ”
  94. ＰＲＩＮＴ　”　ＣＬＳ”
  96. ’－－－　ヘ゜ンサキ
  97. ＺＸ＝０：ＺＹ＝ＣＳＲＹ＋３
  98. ＬＯＣＡＴＥ　ＺＸ，ＺＹ－２
  99. ＰＲＩＮＴ　”＜Ё：ＰＳＥＴ－ＰＥＮ＞”
  100. ＰＲＩＮＴ
  101. ＰＲＩＮＴ　”　ｘ１”
  102. ＰＲＩＮＴ　”　ｘ２”
  103. ＰＲＩＮＴ　”　ｘ４”
  104. ＰＲＩＮＴ　”　ｘ８”
  106. ’－－－
  107. ＬＯＣＡＴＥ　０，２３
  108. ＰＲＩＮＴ　”＜А：ＦＩＬＥ＞”；
  109. ＧＯＳＵＢ　＠ＰＵＴＭＯＤＥ
  111. ’┌─────────┐
  112. ’│　シタ　カ゛メン　│
  113. ’└─────────┘
  114. ＰＮＬＴＹＰＥ　”ＯＦＦ”
  115. ＧＰＡＧＥ　１：ＧＣＯＬＯＲ　０
  116. ＩＦ　ＧＣ　ＴＨＥＮ　ＧＣＬＳ　０
  118. ’－－－　
  119. ＳＰＳＥＴ　０，１１０，０，０，０，０
  120. ＳＰＯＦＳ　０，－１６，－１６
  122. ’－－－　システムアイコン
  123. ＩＣＯＮＰＵＳＥ＝ＦＡＬＳＥ
  124. ’ＩＣＯＮＰＡＧＥ＝０
  125. ’ＩＣＯＮＰＭＡＸ＝４
  126. ＦＯＲ　Ｉ＝０　ＴＯ　３
  127. 　ＩＣＯＮＣＬＲ　Ｉ
  128. ＮＥＸＴ
  129. ＲＥＴＵＲＮ
  131. ’──────────────────────────
  132. ＠ＢＵＴＣＨＫ
  133. ’──────────────────────────
  134. Ｏ＝Ｂ
  135. Ｂ＝ＢＵＴＴＯＮ（）
  136. Ｋ＝Ｂ　ＡＮＤ　（ＮＯＴ　Ｏ）
  137. ＶＳＹＮＣ　１
  138. ＩＦ　Ｋ＝＝０　ＧＯＴＯ　＠ＢＵＴＣＨＫ
  139. ＬＯＣＡＴＥ　０，０：ＰＲＩＮＴ　Ｋ
  140. ＲＥＴＵＲＮ
  142. ’──────────────────────────
  143. ＠ＴＯＵＣＨ　’アタリハンテイ
  144. ’──────────────────────────
  145. Ｒ＝ＦＡＬＳＥ
  146. ＩＦ　ＴＳ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  147. ＩＦ　ＴＸ＜Ｘ　ＴＨＥＮ　ＲＥＴＵＲＮ
  148. ＩＦ　ＴＸ＞Ｘ＋Ｗ　ＴＨＥＮ　ＲＥＴＵＲＮ
  149. ＩＦ　ＴＹ＜Ｙ　ＴＨＥＮ　ＲＥＴＵＲＮ
  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. ＩＦ　ＶＸ＋ＶＹ＝＝０　ＴＨＥＮ　ＷＴ＝０：ＧＯＴＯ　＠ＣＯＬＣＳＲ
  180. ＩＦ　ＯＬＤＢ＝＝０　ＧＯＴＯ　＠ＳＥＬＭＯＶ
  181. ’－－－　ホ゛タンリヒ゜－ト
  182. ＭＡＸ１＝６０＊４：ＭＡＸ２＝６０
  183. ＩＦ　ＷＴ＜ＭＡＸ１　ＧＯＴＯ　＠ＷＴＵＰ
  184. ＷＴ２＝ＷＴ２＋１
  185. ＩＦ　ＷＴ２＜ＭＡＸ２　ＴＨＥＮ　ＲＥＴＵＲＮ
  186. ＷＴ２＝０
  187. ＧＯＴＯ　＠ＳＥＬＭＯＶ２
  188. ＠ＷＴＵＰ
  189. ＷＴ＝ＷＴ＋１
  190. ＩＦ　ＷＴ＜ＭＡＸ１　ＴＨＥＮ　ＲＥＴＵＲＮ
  191. ＷＴ２＝０
  192. ＲＥＴＵＲＮ
  193. ’－－－
  194. ＠ＳＥＬＭＯＶ
  195. ＷＴ＝０
  196. ＠ＳＥＬＭＯＶ２
  197. ＧＯＳＵＢ　＠ＣＯＬＣＬＲ
  198. ＣＸ＝ＣＸ＋ＶＸ：ＣＹ＝ＣＹ＋ＶＹ
  199. ＩＦ　ＣＸ＜０　ＴＨＥＮ　ＣＹ＝ＣＹ－１：ＣＹ＝ＣＹ　ＡＮＤ　１５
  200. ＩＦ　ＣＸ＞１５　ＴＨＥＮ　ＣＹ＝ＣＹ＋１：ＣＹ＝ＣＹ　ＡＮＤ　１５
  201. ＩＦ　ＣＹ＜０　ＴＨＥＮ　ＣＸ＝ＣＸ－１：ＣＸ＝ＣＸ　ＡＮＤ　１５
  202. ＩＦ　ＣＹ＞１５　ＴＨＥＮ　ＣＸ＝ＣＸ＋１：ＣＸ＝ＣＸ　ＡＮＤ　１５
  203. ＣＸ＝ＣＸ　ＡＮＤ　１５
  204. ＣＹ＝ＣＹ　ＡＮＤ　１５
  205. ＧＯＴＯ　＠ＣＯＬＣＳＲ
  206. ’－－－
  207. ＠ＣＯＬＣＬＲ
  208. ＬＯＣＡＴＥ　ＨＸ＋ＣＸ，ＨＹ＋ＣＹ
  209. ＰＲＩＮＴ　”　”
  210. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  245. ’──────────────────────────
  246. ＠ＤＲＡＷＳＵＢ　’ト゛ットヲオク
  247. ’──────────────────────────
  248. ’－－－　ステッフ゜カクニン
  249. ＩＦ　ＴＳＴＥＰ＝＝１　ＧＯＴＯ　＠＿ＤＳＴＥＰ１
  251. ’－－－　０：オサレルマテ゛
  252. ＩＦ　ＴＳ＝＝ＦＡＬＳＥ　ＧＯＴＯ　＠＿ＤＳＫＩＰ０
  253. ＴＸ１＝ＴＸ：ＴＹ１＝ＴＹ
  254. ＴＸ２＝ＴＸ：ＴＹ２＝ＴＹ
  255. ＳＰＯＦＳ　０，ＴＸ１，ＴＹ１
  256. ’－－－　Кホ゛タン：ＳＰＯＩＴ
  257. ＩＦ　Ｂ　ＡＮＤ　２５６　ＧＯＴＯ　＠＿ＳＰＯＩＴ
  258. ＳＰＣＨＲ　０，１１０，０，０，０，ＰＲ
  259. ＧＯＴＯ　＠＿ＤＪＵＭＰ
  261. ’－－－　
  262. ＠＿ＤＳＫＩＰ０
  263. ＯＴＸ＝－１：ＯＴＹ＝－１
  264. ＳＰＯＦＳ　０，－１６，－１６
  265. ＲＥＴＵＲＮ
  267. ’－－－　１：ハナサレルマテ゛
  268. ＠＿ＤＳＴＥＰ１
  269. ＩＦ　ＴＳ＝＝ＦＡＬＳＥ　ＧＯＴＯ　＠＿ＤＪＵＭＰ
  270. ＴＸ２＝ＴＸ：ＴＹ２＝ＴＹ
  271. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  307. ’－－－
  308. ＠＿ＳＰＯＩＴ
  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. ＲＥＴＵＲＮ
  335. ’──────────────────────────
  336. ＠ＣＨＫＭＯＤＥ　’モ－ト゛カクニン
  337. ’──────────────────────────
  338. ＩＦ　ＯＬＤＢ！＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  339. ＩＦ　Ｂ＝＝　１６　ＧＯＴＯ　＠ＦＩＬＥＭＯＤＥ
  340. ＩＦ　Ｂ＝＝　６４　ＧＯＴＯ　＠ＴＯＯＬＳＥＬ
  341. ＩＦ　Ｂ＝＝１２８　ＧＯＴＯ　＠ＺＯＯＭＳＥＬ
  342. ＩＦ　Ｂ＝＝５１２　ＧＯＴＯ　＠ＧＲＩＤ
  343. ＲＥＴＵＲＮ
  344. ’－－－
  345. ＠ＧＲＩＤ
  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. ＬＯＣＡＴＥ　ＭＸ，ＭＹ＋ＴＬ
  373. ＰＲＩＮＴ　”Й”；
  374. ＬＯＣＡＴＥ　ＺＸ，ＺＹ＋ＺＭ
  375. ＰＲＩＮＴ　”Й”；
  376. ＲＥＴＵＲＮ
  378. ’──────────────────────────
  379. ＠ＦＩＬＥＭＯＤＥ　’ファイルノヨミカキ
  380. ’──────────────────────────
  381. ＰＮＬＴＹＰＥ　”ＫＹＡ”
  382. ＦＯＲ　Ｉ＝０　ＴＯ　３：ＩＣＯＮＣＬＲ　Ｉ：ＮＥＸＴ
  383. ’ＧＯＴＯ　＠＿ＦＬＯＯＰ
  384. ’－－－
  385. ＣＬＳ：ＧＰＡＧＥ　０：ＧＣＬＳ
  386. ＩＮＰＵＴ　”ウエニコヒ゜－シマスカ（Ｙ／Ｎ）”；Ｋ＄
  387. ＩＦ　Ｋ＄！＝”Ｙ”　ＧＯＴＯ　＠＿ＦＬＯＯＰ
  388. ’－－－
  389. ＦＯＲ　Ｙ＝０　ＴＯ　１９１
  390. 　ＦＯＲ　Ｘ＝０　ＴＯ　２５５
  391. 　　ＧＰＡＧＥ　１
  392. 　　Ｃ＝ＧＳＰＯＩＴ（Ｘ，Ｙ）
  393. 　　ＧＰＡＧＥ　０
  394. 　　ＧＰＳＥＴ　Ｘ，Ｙ，Ｃ
  395. 　ＮＥＸＴ
  396. ＮＥＸＴ
  397. ＧＰＡＧＥ　１
  399. ’－－－
  400. ＠＿ＦＬＯＯＰ
  401. ＣＬＳ
  402. ＰＲＩＮＴ”────────────────────────────────”；
  403. ＰＲＩＮＴ”　Ｌ：ＧＲＰヨミコミ”
  404. ＰＲＩＮＴ”　Ｓ：ＧＲＰホソ゛ン”
  405. ＰＲＩＮＴ”ＬＣ：イロヨミコミ”
  406. ＰＲＩＮＴ”ＳＣ：イロホソ゛ン”
  407. ＰＲＩＮＴ”　Ｑ：ファイルメニュ－オワリ”
  408. ＰＲＩＮＴ”　Ｅ：ツ－ルオワリ”
  409. ＰＲＩＮＴ”────────────────────────────────”；
  410. ’－－－
  411. ＩＮＰＵＴ”コマント゛”；Ｋ＄
  412. ＩＦ　Ｋ＄＝＝”Ｑ”　ＧＯＴＯ　＠＿ＦＱＵＩＴ
  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. ’－－－
  441. ＠＿ＦＳＡＶＥ
  442. ＩＮＰＵＴ”ホソ゛ンスルナマエ（ＧＲＰ）：”；Ｋ＄
  443. Ｋ＄＝”ＧＲＰ１：”＋Ｋ＄：ＰＲＩＮＴ　Ｋ＄
  444. ＳＡＶＥ　Ｋ＄
  445. ’－－－
  446. ＠＿ＦＱＵＩＴ
  447. ＧＯＳＵＢ　＠ＤＩＳＰＩＮＩＴ
  448. ＲＥＴＵＲＮ
  449. ’－－－
  450. ＠＿ＦＥＸＩＴ
  451. ＦＯＲ　Ｉ＝１　ＴＯ　０　ＳＴＥＰ　－１
  452. 　ＳＰＰＡＧＥ　Ｉ：ＳＰＣＬＲ
  453. 　ＧＰＡＧＥ　Ｉ：ＧＣＬＳ
  454. ＮＥＸＴ
  455. ＦＯＲ　Ｉ＝０　ＴＯ　２５５
  456. 　ＣＯＬＩＮＩＴ　”ＧＲＰ”，Ｉ
  457. 　ＣＯＬＩＮＩＴ　”ＢＧ”，Ｉ
  458. ＮＥＸＴ
  459. ＣＯＬＯＲ　０
  460. ＣＬＳ
  461. ＰＲＩＮＴ　”オツカレサマ！”
  462. ＥＮＤ

動作ムービーを見る