プチコンmkII
  1. ’┌──────────────────┐
  2. ’│ＳＡＭＰＬＥ８　　　　　　　　　　　│
  3. ’│　ヘ゛ンリ　ナ　メイレイ　　　　　　│
  4. ’└──────────────────┘
  5. ＣＬＥＡＲ
  6. ＩＦ　ＶＥＲＳＩＯＮ＜＆Ｈ１０５０　ＴＨＥＮ　ＥＮＤ
  7. ＡＣＬＳ
  9. ’－－－　ＳＯＲＴ／ＲＳＯＲＴヨウ　ハイレツ
  10. ＨＭＡＸ＝５　　　’ヨウソスウ
  11. ＤＩＭ　ＨＥＮＳＵ（ＨＭＡＸ）
  13. ’－－－　メニュー　ショキカ
  14. ＭＥＮＵＭＡＸ＝７
  15. ＤＩＭ　ＭＥＮＵ＄（ＭＥＮＵＭＡＸ）
  16. ＤＩＭ　ＩＮＦＯ＄（ＭＥＮＵＭＡＸ）
  18. ＦＯＲ　Ｉ＝０　ＴＯ　ＭＥＮＵＭＡＸ－１
  19. 　ＲＥＡＤ　ＭＥＮＵ＄（Ｉ）
  20. 　ＲＥＡＤ　ＩＮＦＯ＄（Ｉ）
  21. ＮＥＸＴ
  23. ＤＡＴＡ　”ＩＮＳＴＲ”
  24. ＤＡＴＡ　”モシ゛レツ　ヲ　サカ゛ス　カンスウ”
  25. ＤＡＴＡ　”ＲＩＧＨＴ＄”
  26. ＤＡＴＡ　”ミキ゛カ゛ワ　カラ　モシ゛ヲ　トリタ゛ス”
  27. ＤＡＴＡ　”ＬＥＦＴ＄”
  28. ＤＡＴＡ　”ヒタ゛リカ゛ワ　カラ　モシ゛ヲ　トリタ゛ス”
  29. ＤＡＴＡ　”ＳＵＢＳＴ＄”
  30. ＤＡＴＡ　”モシ゛レツヲ　フ゛フ゛ンテキニ　オキカエル”
  31. ＤＡＴＡ　”ＳＷＡＰ”
  32. ＤＡＴＡ　”ヘンスウノ　ナカミヲ　コウカン”
  33. ＤＡＴＡ　”ＳＯＲＴ”
  34. ＤＡＴＡ　”ハイレツヲ　ショウシ゛ュンニ　ナラヘ゛カエ”
  35. ＤＡＴＡ　”ＲＳＯＲＴ”
  36. ＤＡＴＡ　”ハイレツヲ　コウシ゛ュンニ　ナラヘ゛カエ”
  38. ’－－－　ＭＡＩＮ　ＬＯＯＰ
  39. ＠ＭＡＩＮ
  40. ＣＬＳ
  41. ＣＯＬＯＲ　０
  42. ＰＲＩＮＴ　”┌────────────────────┐”
  43. ＰＲＩＮＴ　”│ＳＡＭＰＬＥ８　ヘ゛ンリナ　メイレイ　ヲ│”
  44. ＰＲＩＮＴ　”│　　　　　　　　コ゛ショウカイ　シマス　│”
  45. ＰＲＩＮＴ　”└────────────────────┘”
  46. ＰＲＩＮＴ
  48. ＦＯＲ　Ｉ＝０　ＴＯ　ＭＥＮＵＭＡＸ－１
  49. 　Ｙ＝Ｉ＊２＋５
  50. 　ＣＯＬＯＲ　９
  51. 　ＬＯＣＡＴＥ　０，Ｙ
  52. 　ＰＲＩＮＴ　Ｉ＋１；”　”；
  53. 　ＣＯＬＯＲ　０
  54. 　ＰＲＩＮＴ　ＭＥＮＵ＄（Ｉ）；”　”；
  55. 　ＣＯＬＯＲ　３
  56. 　ＬＯＣＡＴＥ　１０，Ｙ
  57. 　ＰＲＩＮＴ　ＩＮＦＯ＄（Ｉ）
  58. ＮＥＸＴ
  60. ＣＯＬＯＲ　０
  61. ＬＯＣＡＴＥ　０，１９
  62. ＩＮＰＵＴ　”Ж：ト゛レカ　エランテ゛（０＝ＥＮＤ）”；ＣＭＤ
  63. ＣＬＳ
  64. ＩＦ　ＣＭＤ＜＝０　ＴＨＥＮ　ＥＮＤ
  65. ＩＦ　ＣＭＤ＞ＭＥＮＵＭＡＸ　ＴＨＥＮ　＠ＭＡＩＮ
  66. ＣＯＬＯＲ　３
  67. ＰＲＩＮＴ　”───────────────────────────”
  68. ＰＲＩＮＴ　
  69. ＰＲＩＮＴ　ＭＥＮＵ＄（ＣＭＤ－１）：ＰＲＩＮＴ　
  70. ＰＲＩＮＴ　”　　”；ＩＮＦＯ＄（ＣＭＤ－１）
  71. ＰＲＩＮＴ　”───────────────────────────”
  72. ＣＯＬＯＲ　７
  73. ＰＲＩＮＴ　”シ゛ッコウレイ：”：ＰＲＩＮＴ　
  74. ＣＯＬＯＲ　０
  76. ＩＦ　ＣＭＤ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ１
  77. ＩＦ　ＣＭＤ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ２
  78. ＩＦ　ＣＭＤ＝＝３　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ３
  79. ＩＦ　ＣＭＤ＝＝４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ４
  80. ＩＦ　ＣＭＤ＝＝５　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ５
  81. ＩＦ　ＣＭＤ＝＝６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ６
  82. ＩＦ　ＣＭＤ＝＝７　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ７
  84. ＧＯＳＵＢ　＠ＨＩＴＡＮＹ
  85. ＧＯＴＯ　＠ＭＡＩＮ
  87. ’－－－　ＩＮＳＴＲ
  88. ＠ＴＥＳＴ１
  89. Ａ＄＝”ＡＢＣＤＥＦＧＨＩＪＫＬＭＮ”
  90. Ｂ＄＝”ＥＦＧ”
  91. ＰＲＩＮＴ　”「”；Ａ＄；”」カラ”
  92. ＰＲＩＮＴ　”「”；Ｂ＄；”」ヲ　サカ゛ス”
  93. ＧＯＳＵＢ　＠ＰＵＴＣＭＤ
  94. ＰＴ＝ＩＮＳＴＲ（Ａ＄，Ｂ＄）
  95. ＰＲＩＮＴ　”ヒタ゛リカラ　”；ＰＴ＋１；
  96. ＰＲＩＮＴ　”　モシ゛メ　ニ　ミツケタ”
  97. ＲＥＴＵＲＮ
  99. ’－－－　ＲＩＧＨＴ＄
  100. ＠ＴＥＳＴ２
  101. Ａ＄＝”ＡＢＣＤＥＦＧＨＩＪＫＬＭＮ”
  102. ＳＺ＝４
  103. ＰＲＩＮＴ　”「”；Ａ＄；”」ノ”
  104. ＰＲＩＮＴ　”ミキ゛カラ　”；ＳＺ；”　モシ゛”
  105. ＧＯＳＵＢ　＠ＰＵＴＣＭＤ
  106. ＰＲＩＮＴ　ＲＩＧＨＴ＄（Ａ＄，ＳＺ）
  107. ＲＥＴＵＲＮ
  109. ’－－－　ＬＥＦＴ＄
  110. ＠ＴＥＳＴ３
  111. Ａ＄＝”ＡＢＣＤＥＦＧＨＩＪＫＬＭＮ”
  112. ＳＺ＝４
  113. ＰＲＩＮＴ　”「”；Ａ＄；”」ノ”
  114. ＰＲＩＮＴ　”ヒタ゛リカラ　”；ＳＺ；”　モシ゛”
  115. ＧＯＳＵＢ　＠ＰＵＴＣＭＤ
  116. ＰＲＩＮＴ　ＬＥＦＴ＄（Ａ＄，ＳＺ）
  117. ＲＥＴＵＲＮ
  119. ’－－－　ＳＵＢＳＴ＄
  120. ＠ＴＥＳＴ４
  121. Ａ＄＝”ＡＢＣＤＥＦＧＨＩＪＫＬＭＮ”
  122. Ｂ＄＝”１２３４”
  123. ＰＴ＝５
  124. ＳＺ＝ＬＥＮ（Ｂ＄）
  125. ＰＲＩＮＴ　”「”；Ａ＄；”」ノ”
  126. ＰＲＩＮＴ　”ヒタ゛リカラ　”；ＰＴ＋１；
  127. ＰＲＩＮＴ　”　－　”；ＰＴ＋ＳＺ；”　モシ゛メヲ　”
  128. ＰＲＩＮＴ　”「”；Ｂ＄；”」ニ　オキカエ”
  129. ＧＯＳＵＢ　＠ＰＵＴＣＭＤ
  130. ＰＲＩＮＴ　ＳＵＢＳＴ＄（Ａ＄，ＰＴ，ＳＺ，Ｂ＄）
  131. ＲＥＴＵＲＮ
  133. ’－－－　ＳＷＡＰ
  134. ＠ＴＥＳＴ５
  135. ＨＥＮＳＵ１　＝　ＲＮＤ（１００００）
  136. ＨＥＮＳＵ２　＝　ＲＮＤ（１００００）
  137. ＰＲＩＮＴ　”ＨＥＮＳＵ１＝”；ＨＥＮＳＵ１；””
  138. ＰＲＩＮＴ　”ＨＥＮＳＵ２＝”；ＨＥＮＳＵ２；””
  139. ＳＷＡＰ　ＨＥＮＳＵ１，ＨＥＮＳＵ２
  140. ＧＯＳＵＢ　＠ＰＵＴＣＭＤ
  141. ＰＲＩＮＴ　”ＨＥＮＳＵ１＝”；ＨＥＮＳＵ１；””
  142. ＰＲＩＮＴ　”ＨＥＮＳＵ２＝”；ＨＥＮＳＵ２；””
  143. ＲＥＴＵＲＮ
  145. ’－－－　ＳＯＲＴ　
  146. ＠ＴＥＳＴ６
  147. ＧＯＳＵＢ　＠ＨＩＮＩＴ
  148. ＳＯＲＴ　０，ＨＭＡＸ，ＨＥＮＳＵ
  149. ＧＯＳＵＢ　＠ＰＵＴＣＭＤ
  150. ＧＯＳＵＢ　＠ＨＰＲＩＮＴ
  151. ＲＥＴＵＲＮ
  153. ’－－－　ＲＳＯＲＴ　
  154. ＠ＴＥＳＴ７
  155. ＧＯＳＵＢ　＠ＨＩＮＩＴ
  156. ＲＳＯＲＴ　０，ＨＭＡＸ，ＨＥＮＳＵ
  157. ＧＯＳＵＢ　＠ＰＵＴＣＭＤ
  158. ＧＯＳＵＢ　＠ＨＰＲＩＮＴ
  159. ＲＥＴＵＲＮ
  161. ’－－－　コマント゛メイ
  162. ＠ＰＵＴＣＭＤ
  163. ＰＲＩＮＴ
  164. ＣＯＬＯＲ　４
  165. ＰＲＩＮＴ　”　　”；
  166. ＰＲＩＮＴ　ＭＥＮＵ＄（ＣＭＤ－１）；”ヲ　シ゛ッコウ”
  167. ＰＲＩＮＴ　”　　　　　↓”
  168. ＣＯＬＯＲ　０
  169. ＰＲＩＮＴ
  170. ＲＥＴＵＲＮ
  172. ’－－－　ハイレツ　ショキカ
  173. ＠ＨＩＮＩＴ
  174. ＦＯＲ　Ｉ＝０　ＴＯ　ＨＭＡＸ－１
  175. 　ＨＥＮＳＵ（Ｉ）＝ＲＮＤ（１００００）
  176. ＮＥＸＴ
  178. ’－－－　ハイレツ　ヒョウシ゛
  179. ＠ＨＰＲＩＮＴ
  180. ＦＯＲ　Ｉ＝０　ＴＯ　ＨＭＡＸ－１
  181. 　ＰＲＩＮＴ　”ＨＥＮＳＵ（”；Ｉ；”）＝”；ＨＥＮＳＵ（Ｉ）
  182. ＮＥＸＴ
  183. ＲＥＴＵＲＮ
  185. ’－－－　
  186. ＠ＨＩＴＡＮＹ
  187. ＧＯＳＵＢ　＠ＫＥＹＯＦＦ
  188. ＬＯＣＡＴＥ　７，２３
  189. ＰＲＩＮＴ　”ＨＩＴ　ＡＮＹ　ＢＵＴＴＯＮ”；
  190. ＠ＨＩＴＡＮＹ２
  191. ＩＦ　ＢＵＴＴＯＮ（）　ＴＨＥＮ　ＲＥＴＵＲＮ
  192. ＧＯＴＯ　＠ＨＩＴＡＮＹ２
  194. ’－－－　
  195. ＠ＫＥＹＯＦＦ
  196. ＩＦ　ＢＵＴＴＯＮ（）　ＴＨＥＮ　＠ＫＥＹＯＦＦ
  197. ＲＥＴＵＲＮ