プチコンmkII
  1. ’┌─────────────┐
  2. ’│ＳＡＭＰＬＥ６　　　　　　│
  3. ’│　シ－ケンサ－　ｖ１．１　│
  4. ’└─────────────┘
  5. ＶＩＳＩＢＬＥ　１，１，１，１，０，０
  6. ＢＧＭＳＴＯＰ
  7. ’－－－
  8. ＣＬＥＡＲ
  9. ＤＩＭ　Ｓ（８，１６）
  10. ＤＩＭ　Ｎ（８）
  11. ＤＩＭ　Ｆ（８，１６），Ｖ（８，１６），Ｐ（８，１６）
  12. ＤＡＴＡ　５２，５３，２７，２６，２８，６２，４７，２５
  13. ＦＯＲ　Ｉ＝０　ＴＯ　７：ＲＥＡＤ　Ｎ（Ｉ）：ＮＥＸＴ
  14. ＭＡＸ＝８
  15. ＧＯＳＵＢ　＠ＳＣＩＮＩＴ
  17. ’－－－
  18. ＧＯＳＵＢ　＠ＩＮＩＴ
  19. ＧＯＳＵＢ　＠ＳＣＰＵＴ
  20. ＩＣＯＮＳＥＴ　２，５　：’ＰＥＮ
  21. ＩＣＯＮＳＥＴ　３，３９：’ＥＲＡＳＥＲ
  23. ’－－－
  24. ＴＭＰ＝１２０：ＴＴ＝１／６０：ＴＣ＝ＴＴ
  25. ＧＯＳＵＢ　＠ＣＬＣＴＭＰ
  26. ＭＤ＝０：ＯＦＳ＝０
  27. ＰＬＹ＝ＦＡＬＳＥ
  28. ＦＯＲ　Ｉ＝０　ＴＯ　３
  29. 　ＢＲＥＰＥＡＴ　Ｉ，３０，４
  30. ＮＥＸＴ
  32. ’－－－
  33. ＠ＬＯＯＰ
  34. 　’
  35. 　Ｂ＝ＢＵＴＴＯＮ（１）
  36. 　ＯＬＤＳＴ＝ＴＳＴ：ＯＴＸ＝ＴＸ：ＯＴＹ＝ＴＹ
  37. 　ＴＳＴ＝ＴＣＨＳＴ：ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ
  38. 　’
  39. 　ＧＯＳＵＢ　＠ＣＴＲＬ
  40. 　ＧＯＳＵＢ　＠ＳＥＱＥＤＩＴ
  41. 　ＧＯＳＵＢ　＠ＳＥＱＰＬＡＹ
  42. 　ＧＯＳＵＢ　＠ＰＵＴＳＴ
  43. 　’
  44. 　ＶＳＹＮＣ　１
  45. 　’
  46. ＧＯＴＯ　＠ＬＯＯＰ
  48. ＥＮＤ
  50. ’－－－
  51. ＠ＰＵＴＳＴ
  52. ＬＯＣＡＴＥ　２４，０
  53. ＰＲＩＮＴ　”ＳＰＤ：　　　”；
  54. ＬＯＣＡＴＥ　ＣＳＲＸ－３，０
  55. ＰＲＩＮＴ　ＴＭＰ；
  56. ＲＥＴＵＲＮ
  58. ’－－－
  59. ＠ＣＴＲＬ
  60. ＯＴ＝ＴＭＰ
  61. Ｉ＝ＩＣＯＮＣＨＫ（）
  62. ＩＦ　Ｉ！＝－１　ＴＨＥＮ　ＭＤ＝Ｉ－２
  63. ’－－－
  64. ＩＦ　Ｂ＝＝６４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＣＣＬＲ
  65. ＩＦ　Ｂ＝＝４　ＴＨＥＮ　ＴＭＰ＝ＴＭＰ－１
  66. ＩＦ　Ｂ＝＝８　ＴＨＥＮ　ＴＭＰ＝ＴＭＰ＋１
  67. ＩＦ　ＴＭＰ＜１０　　ＴＨＥＮ　ＴＭＰ＝１０
  68. ＩＦ　ＴＭＰ＞２４０　ＴＨＥＮ　ＴＭＰ＝２４０
  69. ＩＦ　ＯＴ！＝ＴＭＰ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＬＣＴＭＰ
  70. ＲＥＴＵＲＮ
  72. ’－－－
  73. ＠ＳＣＣＬＲ
  74. ＧＯＳＵＢ　＠ＳＣＩＮＩＴ
  75. ＦＯＲ　Ｉ＝０　ＴＯ　ＭＡＸ－１
  76. 　ＦＯＲ　Ｏ＝０　ＴＯ　１５
  77. 　　ＧＯＳＵＢ　＠ＳＣＰＵＴ１
  78. 　ＮＥＸＴ
  79. ＮＥＸＴ
  80. ＲＥＴＵＲＮ
  82. ’－－－
  83. ＠ＳＥＱＥＤＩＴ
  84. ＩＦ　ＴＳＴ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  85. Ｃ＝１：ＩＦ　ＭＤ＝＝１　ＴＨＥＮ　Ｃ＝０
  86. Ｘ＝ＦＬＯＯＲ（ＴＸ／８）
  87. Ｙ＝ＦＬＯＯＲ（ＴＹ／８）
  88. ＥＹ＝ＭＡＸ＊２＋ＳＹ－１
  89. ＩＦ　Ｙ＜ＳＹ　ＴＨＥＮ　ＲＥＴＵＲＮ
  90. ＩＦ　Ｙ＞ＥＹ　ＴＨＥＮ　ＲＥＴＵＲＮ
  91. Ｏ＝ＦＬＯＯＲ（Ｘ／２）
  92. Ｉ＝ＦＬＯＯＲ（（Ｙ－ＳＹ）／２）
  93. Ｓ（Ｉ，Ｏ）＝Ｃ
  94. ＧＯＳＵＢ　＠ＳＣＰＵＴ１
  95. ＲＥＴＵＲＮ
  97. ’－－－
  98. ＠ＣＬＣＴＭＰ
  99. Ｔ＝６０＊６０　：’ＶＳＹＮＣ（１）→１／６０ＳＥＣ
  100. Ｃ＝ＴＭＰ＊４　：’１６フ゛オンフ゜キシ゛ュン
  101. ＴＭＡＸ＝Ｔ／Ｃ／４８　：’フ゛ンカイノウ４８
  102. ＲＥＴＵＲＮ
  104. ’－－－
  105. ＠ＳＥＱＰＬＡＹ
  106. ’－－－
  107. ＬＯＣＡＴＥ　０，２２：ＰＲＩＮＴ　ＴＭＡＸ，ＴＴ，ＴＣ
  108. ＴＣ＝ＴＣ－ＴＴ
  109. ＩＦ　ＴＣ＞０　ＴＨＥＮ　ＲＥＴＵＲＮ
  110. ＧＯＳＵＢ　＠ＳＣＰＬＡＹ
  111. ＴＣ＝ＴＣ＋ＴＭＡＸ
  112. ＲＥＴＵＲＮ
  113. ’－－－
  114. ＠ＳＣＰＬＡＹ
  115. ＦＯＲ　Ｉ＝０　ＴＯ　ＭＡＸ－１
  116. 　ＩＦ　Ｓ（Ｉ，ＯＦＳ）＝＝０　ＧＯＴＯ　＠ＳＣＰＳＫＩＰ
  117. 　ＢＥＥＰ　Ｎ（Ｉ），Ｆ（Ｉ，ＯＦＳ），Ｖ（Ｉ，ＯＦＳ），Ｐ（Ｉ，ＯＦＳ）
  118. ＠ＳＣＰＳＫＩＰ
  119. ＮＥＸＴ
  120. ’－－－
  121. ＯＦＳ＝ＯＦＳ＋１
  122. ＯＦＳ＝ＯＦＳ　ＡＮＤ　１５
  123. ＢＧＰＡＧＥ　１
  124. ＢＧＯＦＳ　１，－ＯＦＳ＊１６，０
  125. ＢＧＰＡＧＥ　０
  126. ＢＧＯＦＳ　１，－ＯＦＳ＊１６，０
  127. ＲＥＴＵＲＮ
  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. ＲＥＴＵＲＮ
  168. ’－－－
  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. ＣＯＬＯＲ　１
  201. ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ”ТТТТТТТТТТТТТТТТТТТТТТТТТТТТТТТТ”；
  202. ＣＯＬＯＲ　０
  203. ＰＮＬＳＴＲ　Ｘ，Ｙ，”ТТТТТТТТТТТТТТТТТТТТТТТТТТТТТТТТ”
  204. ’－－－
  205. ＰＮＬＳＴＲ　０，０，”Ф：ＣＬＥＡＲ”
  206. ’－－－
  207. ＢＧＰＡＧＥ　１
  208. ＧＯＳＵＢ　＠ＢＧＣＬＳ
  209. Ｃ＝１：ＧＯＳＵＢ　＠ＯＦＳＢＡＲ
  210. ＢＧＰＡＧＥ　０
  211. ＧＯＳＵＢ　＠ＢＧＣＬＳ
  212. Ｃ＝２：ＧＯＳＵＢ　＠ＯＦＳＢＡＲ
  213. ＲＥＴＵＲＮ
  215. ’－－－
  216. ＠ＯＦＳＢＡＲ
  217. Ｏ＝８＊２
  218. ＦＯＲ　Ｙ＝０　ＴＯ　２３
  219. 　ＢＧＰＵＴ　１，０，Ｙ，１５，Ｃ，０，０
  220. 　ＢＧＰＵＴ　１，１，Ｙ，１５，Ｃ，０，０
  221. ＮＥＸＴ
  222. ＲＥＴＵＲＮ
  224. ’－－－
  225. ＠ＢＧＣＬＳ
  226. ＦＯＲ　Ｘ＝０　ＴＯ　６３
  227. 　ＦＯＲ　Ｙ＝０　ＴＯ　２３
  228. 　　ＢＧＰＵＴ　０，Ｘ，Ｙ，０，０，０，０
  229. 　　ＢＧＰＵＴ　１，Ｘ，Ｙ，１５，１４，０，０
  230. 　ＮＥＸＴ
  231. ＮＥＸＴ
  232. ＲＥＴＵＲＮ