プチコンmkII
  1. ’
  2. ’■ＢＧＭＰＲＧヨウ　ハケイサクセイツ－ル　ｖ１．１
  3. ’───────────────────────────
  4. ’（ｃ）ＳｍｉｌｅＢｏｏｍ
  5. ’・６４／１２８コノ　ウェ－フ゛テ゛－タヲツクル
  6. ’・ＭＥＭ＄テ゛ホソ゛ン
  7. ’・ファィルカ゛ナイトキノエラ－タイサク
  8. ’
  9. ＡＣＬＳ
  11. ’－－－カンキョウショキカ
  12. ＣＬＥＡＲ：ＭＡＸ＝３２
  13. ＤＩＭ　Ｗ（ＭＡＸ，１２８），ＡＤＳＲ＄（ＭＡＸ）
  14. ＤＩＭ　ＥＧ（４），ＥＧＮ＄（４）
  15. ＥＧＮ＄（０）＝”Ａ：”：ＥＧＮ＄（１）＝”Ｄ：”
  16. ＥＧＮ＄（２）＝”Ｓ：”：ＥＧＮ＄（３）＝”Ｒ：”
  17. ＰＮＬＴＹＰＥ”ＯＦＦ”
  18. ＦＯＲ　Ｉ＝０　ＴＯ　３
  19. 　ＩＣＯＮＣＬＲ　Ｉ
  20. ＮＥＸＴ
  21. ＰＧ＝１：ＯＹ＝１６：ＴＣ＝０
  22. ＯＬＤＢＮ＝－１：ＢＷ＝０
  23. ＧＯＳＵＢ　＠ＤＳＰＩＮＩＴ
  25. ’－－－
  26. ＷＳ＝０：ＧＯＳＵＢ　＠ＳＩＺＥ
  27. ＦＯＲ　ＮＯ＝０　ＴＯ　ＭＡＸ－１
  28. 　ＧＯＳＵＢ　＠ＭＫＳＩＮ
  29. 　ＡＤＳＲ＄（ＮＯ）＝”７Ｆ３Ｆ０Ｆ３Ｆ”
  30. ＮＥＸＴ
  31. ’－－－
  32. ＮＯ＝０：ＧＯＳＵＢ　＠ＷＡＶＳＥＴ
  34. ’－－－メインル－フ゜
  35. ＠ＭＬＯＯＰ
  36. Ｂ＝ＢＴＲＩＧ（）：ＢＮ＝ＢＵＴＴＯＮ（）
  37. ＳＰＯＦＳ　０，ＴＣＨＸ，ＴＣＨＹ
  38. ＧＯＳＵＢ　＠ＦＩＬＥＳＵＢ
  39. ＧＯＳＵＢ　＠ＳＥＬＮＯ
  40. ＧＯＳＵＢ　＠ＥＤＩＴ
  41. ＶＳＹＮＣ　１
  42. ＩＦ　Ｂ！＝１０２４　ＴＨＥＮ　＠ＭＬＯＯＰ
  43. ’－－－アトシマツ
  44. ＣＨＲＩＮＩＴ　”ＢＧＵ０”
  45. ＥＮＤ
  47. ’－－－ファィルカンケイ
  48. ＠ＦＩＬＥＳＵＢ
  49. ＩＦ　Ｂ＝＝６４　ＴＨＥＮ　＠ＦＳＡＶＥ
  50. ＩＦ　Ｂ！＝１２８　ＴＨＥＮ　ＲＥＴＵＲＮ
  52. ’－－－ヨミコミ
  53. ＠ＦＬＯＡＤ
  54. ＧＯＳＵＢ　＠ＭＫＦＮＡＭＥ
  55. ＬＯＡＤ　ＮＥ＄
  56. ＩＦ　ＲＥＳＵＬＴ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  57. ＷＳ＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＭＥＭ＄，０，２））
  58. ＧＯＳＵＢ　＠ＳＩＺＥＣＮＧ
  59. ＡＤＳＲ＄（ＮＯ）＝ＭＩＤ＄（ＭＥＭ＄，２，８）
  60. ＰＲＩＮＴ　”　　ＷＳ：”；ＷＳ
  61. ＰＲＩＮＴ　”ＡＤＳＲ：”；ＡＤＳＲ＄（ＮＯ）
  62. ＬＯＡＤ　ＮＷ＄
  63. ＩＦ　ＲＥＳＵＬＴ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  64. ＦＯＲ　Ｉ＝０　ＴＯ　ＷＳ－１
  65. 　Ｗ＄＝ＭＩＤ＄（ＭＥＭ＄，Ｉ＊２，２）
  66. 　Ｖ＝ＶＡＬ（”＆Ｈ”＋Ｗ＄）
  67. 　ＩＦ　Ｖ＞１２７　ＴＨＥＮ　Ｖ＝（２５６－Ｖ）＊－１
  68. 　Ｗ（ＮＯ，Ｉ）＝Ｖ
  69. ＮＥＸＴ
  70. ＧＯＳＵＢ　＠ＷＡＶＳＥＴ
  71. ＧＯＳＵＢ　＠ＧＲＰＤＲＡＷ
  72. ＲＥＴＵＲＮ
  74. ’－－－カキコミ
  75. ＠ＦＳＡＶＥ
  76. ＧＯＳＵＢ　＠ＭＫＦＮＡＭＥ
  77. ＧＯＳＵＢ　＠ＭＫＷＡＶＥ
  78. ＭＥＭ＄＝Ｍ＄
  79. ＳＡＶＥ　ＮＷ＄
  80. ＭＥＭ＄＝ＨＥＸ＄（ＷＳ，２）＋ＡＤＳＲ＄（ＮＯ）
  81. ＳＡＶＥ　ＮＥ＄
  82. ＲＥＴＵＲＮ
  84. ’－－－
  85. ＠ＭＫＦＮＡＭＥ
  86. ＮＷ＄＝”ＭＥＭ：ＷＡＶＥ”＋ＳＴＲ＄（ＮＯ＋２２４）
  87. ＮＥ＄＝”ＭＥＭ：ＥＧ”＋ＳＴＲ＄（ＮＯ＋２２４）
  88. ＲＥＴＵＲＮ
  90. ’－－－タイショウキリカエ
  91. ＠ＳＥＬＮＯ
  92. Ｖ＝０
  93. ＩＦ　Ｂ＝＝１　ＴＨＥＮ　Ｖ＝１
  94. ＩＦ　Ｂ＝＝２　ＴＨＥＮ　Ｖ＝－１
  95. ＩＦ　Ｖ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  96. ＮＯ＝ＮＯ＋Ｖ
  97. ＩＦ　ＮＯ＜０　ＴＨＥＮ　ＮＯ＝ＭＡＸ－１
  98. ＩＦ　ＮＯ＞ＭＡＸ－１　ＴＨＥＮ　ＮＯ＝０
  99. ＧＯＳＵＢ　＠ＷＡＶＳＥＴ
  100. ＧＯＳＵＢ　＠ＧＲＰＤＲＡＷ
  101. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  134. ’－－－ハケイサイス゛キリカエ
  135. ＠ＳＩＺＥＳＥＴ
  136. ＧＯＳＵＢ　＠ＳＩＺＥ
  137. ＧＯＳＵＢ　＠ＭＫＳＩＮ
  138. ＧＯＴＯ　＠ＧＲＰＤＲＡＷ
  139. ’－－－
  140. ＠ＳＩＺＥ
  141. ＷＳ＝ＷＳ＋６４
  142. ＩＦ　ＷＳ＞１２８　ＴＨＥＮ　ＷＳ＝６４
  143. ’
  144. ＠ＳＩＺＥＣＮＧ
  145. ＳＴ＝ＦＬＯＯＲ（２５６／ＷＳ）
  146. ＰＮＬＳＴＲ　２８，１，ＳＴＲ＄（ＷＳ）＋”　”
  147. ＲＥＴＵＲＮ
  149. ’－－－カンイエンソウ
  150. ＠ＰＬＡＹ
  151. ＰＲＩＮＴ　”О：＠”；ＮＯ＋２２４；
  152. ＰＲＩＮＴ　”ＣＤＥＦＧＡＢ＜Ｃ”
  153. ＧＯＳＵＢ　＠ＭＫＷＡＶＥ
  154. ＶＣ＝ＮＯ＋２２４
  155. ＢＧＭＰＲＧ　ＶＣ，ＥＧ（０），ＥＧ（１），ＥＧ（２），ＥＧ（３），Ｍ＄
  156. Ｍ＄＝”＠”＋ＳＴＲ＄（ＶＣ）
  157. ＢＧＭＰＬＡＹ　Ｍ＄＋”ＣＤＥＦＧＡＢ＜Ｃ”
  158. ＲＥＴＵＲＮ
  159. ’
  160. ＠ＭＫＷＡＶＥ
  161. ＣＯＬＯＲ　５：Ｍ＄＝””
  162. ＦＯＲ　Ｉ＝０　ＴＯ　ＷＳ－１
  163. 　Ｃ＄＝ＨＥＸ＄（Ｗ（ＮＯ，Ｉ），２）
  164. 　Ｍ＄＝Ｍ＄＋Ｃ＄：ＰＲＩＮＴ　Ｃ＄；
  165. ＮＥＸＴ
  166. ＣＯＬＯＲ　０
  167. ＲＥＴＵＲＮ
  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. Ｃ＄＝Ｃ＄＋”Б＝ＳＩＺＥ：”
  199. ＰＮＬＳＴＲ　０，１，Ｃ＄，７
  200. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  237. ’－－－スフ゜ライト＋－ホ゛タン
  238. ＠ＢＴＯＰＥＮ
  239. ＳＰＳＥＴ　Ｎ＊２＋１，９２，０，０，０，１
  240. ＳＰＯＦＳ　Ｎ＊２＋１，Ｘ，Ｙ
  241. ＳＰＳＥＴ　Ｎ＊２＋２，９３，０，０，０，１
  242. ＳＰＯＦＳ　Ｎ＊２＋２，Ｘ＋１６，Ｙ
  243. ＰＮＬＳＴＲ　Ｘ／８，（Ｙ－８）／８，ＥＧＮ＄（Ｎ），４
  244. ’－－－
  245. ＠ＢＴＮＵＭ
  246. Ｃ＄＝ＨＥＸ＄（ＥＧ（Ｎ），２）
  247. ＰＮＬＳＴＲ　Ｎ＊５＋２，（Ｙ－８）／８，Ｃ＄
  248. ＲＥＴＵＲＮ
  250. ’－－－
  251. ＠ＢＴＣＨＥＣＫ
  252. ＩＦ　ＴＣＨＳＴ　ＴＨＥＮ　＠ＢＴＣＧＯ
  253. ’－－－ハナシタ
  254. ＦＯＲ　Ｎ＝１　ＴＯ　８
  255. 　ＧＯＳＵＢ　＠ＢＴＣＯＦＦ
  256. ＮＥＸＴ
  257. ＯＬＤＢＮ＝－１
  258. ＲＥＴＵＲＮ
  259. ’－－－
  260. ＠ＢＴＣＯＦＦ
  261. ＳＰＲＥＡＤ（Ｎ），Ｘ，Ｙ
  262. Ｘ＝Ｘ　ＡＮＤ　＆ＨＦ８：Ｙ＝Ｙ　ＡＮＤ　＆ＨＦ８
  263. ＳＰＯＦＳ　Ｎ，Ｘ，Ｙ
  264. ＲＥＴＵＲＮ
  265. ’－－－
  266. ＠ＢＴＣＧＯ
  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. ＧＯＴＯ　＠ＢＴＮＵＭ