プチコンmkII
  1. ’┌──────────────────┐
  2. ’│ＳＡＭＰＬＥ９　　　　　　　　　　　│
  3. ’│　ＳＰＲＩＴＥ／ＢＧカンレン　　　　│
  4. ’└──────────────────┘
  5. ＣＬＥＡＲ
  7. ’－－－　メニュー　ショキカ
  8. ＭＥＮＵＭＡＸ＝６
  9. ＤＩＭ　ＭＥＮＵ＄（ＭＥＮＵＭＡＸ）
  10. ＤＩＭ　ＩＮＦＯ＄（ＭＥＮＵＭＡＸ）
  12. ＦＯＲ　Ｉ＝０　ＴＯ　ＭＥＮＵＭＡＸ－１
  13. 　ＲＥＡＤ　ＭＥＮＵ＄（Ｉ）
  14. 　ＲＥＡＤ　ＩＮＦＯ＄（Ｉ）
  15. ＮＥＸＴ
  17. ＤＡＴＡ　”ＳＰＧＥＴＶ／ＳＰＳＥＴＶ”
  18. ＤＡＴＡ　”スフ゜ライトニ　シ゛ョウホウヲ　ヨミ／カキ”
  19. ＤＡＴＡ　”ＳＰＣＯＬ／ＳＰＨＩＴ”
  20. ＤＡＴＡ　”スフ゜ライト　ノ　ショウトツヲ　ケンシュツ”
  21. ＤＡＴＡ　”ＳＰＨＯＭＥ”
  22. ＤＡＴＡ　”スフ゜ライト　ノ　キシ゛ュンサ゛ヒョウ　セッテイ”
  23. ＤＡＴＡ　”ＳＰＲＥＡＤ／ＳＰＣＨＫ”
  24. ＤＡＴＡ　”スフ゜ライト　ノ　シ゛ョウタイヲ　ヨミトル”
  25. ＤＡＴＡ　”ＢＧＦＩＬＬ／ＢＧＣＯＰＹ／ＢＧＣＬＲ”
  26. ＤＡＴＡ　”ＢＧノ　ヌリツフ゛シ／コヒ゜ー／ショウキョ”
  27. ＤＡＴＡ　”ＢＧＣＨＫ／ＢＧＲＥＡＤ”
  28. ＤＡＴＡ　”ＢＧノシ゛ョウタイヲ　ヨミトル／ＢＧノ　キャラヨミトリ”
  30. ’－－－　ＭＡＩＮ　ＬＯＯＰ
  31. ＠ＭＡＩＮ
  32. ＡＣＬＳ
  33. ＣＯＬＯＲ　０
  34. ＰＲＩＮＴ　”┌────────────────────┐”
  35. ＰＲＩＮＴ　”│ＳＡＭＰＬＥ９　　　　　　　　　　　　　│”
  36. ＰＲＩＮＴ　”│　ＳＰＲＩＴＥ／ＢＧカンレン　メイレイ　│”
  37. ＰＲＩＮＴ　”└────────────────────┘”
  39. ＦＯＲ　Ｉ＝０　ＴＯ　ＭＥＮＵＭＡＸ－１
  40. 　Ｙ＝Ｉ＊３＋４
  41. 　ＣＯＬＯＲ　９
  42. 　ＬＯＣＡＴＥ　０，Ｙ
  43. 　ＰＲＩＮＴ　Ｉ＋１；”　”；
  44. 　ＣＯＬＯＲ　０
  45. 　ＰＲＩＮＴ　ＭＥＮＵ＄（Ｉ）；”　”；
  46. 　ＣＯＬＯＲ　３
  47. 　ＬＯＣＡＴＥ　２，Ｙ＋１
  48. 　ＰＲＩＮＴ　ＩＮＦＯ＄（Ｉ）
  49. ＮＥＸＴ
  51. ＣＯＬＯＲ　０
  52. ＬＯＣＡＴＥ　０，２２
  53. ＩＮＰＵＴ　”Ж：ト゛レカ　エランテ゛（０＝ＥＮＤ）”；ＣＭＤ
  54. ＣＬＳ
  55. ＩＦ　ＣＭＤ＜＝０　ＴＨＥＮ　ＥＮＤ
  56. ＩＦ　ＣＭＤ＞ＭＥＮＵＭＡＸ　ＴＨＥＮ　＠ＭＡＩＮ
  57. ＣＯＬＯＲ　３
  58. ＰＲＩＮＴ　”───────────────────────────”
  59. ＰＲＩＮＴ　
  60. ＰＲＩＮＴ　ＭＥＮＵ＄（ＣＭＤ－１）：ＰＲＩＮＴ　
  61. ＰＲＩＮＴ　”　　”；ＩＮＦＯ＄（ＣＭＤ－１）
  62. ＰＲＩＮＴ　”───────────────────────────”
  63. ＣＯＬＯＲ　７
  64. ＰＲＩＮＴ　”シ゛ッコウレイ：”：ＰＲＩＮＴ　
  65. ＣＯＬＯＲ　０
  67. ＩＦ　ＣＭＤ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ１
  68. ＩＦ　ＣＭＤ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ２
  69. ＩＦ　ＣＭＤ＝＝３　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ３
  70. ＩＦ　ＣＭＤ＝＝４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ４
  71. ＩＦ　ＣＭＤ＝＝５　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ５
  72. ＩＦ　ＣＭＤ＝＝６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ６
  74. ＧＯＳＵＢ　＠ＨＩＴＡＮＹ
  75. ＧＯＴＯ　＠ＭＡＩＮ
  78. ’－－－　ＳＰＧＥＴＶ／ＳＰＳＥＴＶ
  79. ＠ＴＥＳＴ１
  80. ＰＡＬ＝２
  81. ＮＵＭ　＝　０　　’スフ゜ライトＮＯ．
  82. ＰＲＩＮＴ　”ランスウヲ　ユーサ゛ーヘンスウニ　ヨミ／カキ”
  83. ＣＯＬＯＲ　３
  84. ＳＰＳＥＴ　ＮＵＭ，６８，ＰＡＬ，０，０，１
  85. ＳＰＯＦＳ　ＮＵＭ，１２８，１６０
  86. ＦＯＲ　Ｉ＝０　ＴＯ　７
  87. 　ＶＬ＝ＲＮＤ（１００００）
  88. 　ＳＰＳＥＴＶ　ＮＵＭ，Ｉ，ＶＬ
  89. 　ＬＯＣＡＴＥ　０，１０＋Ｉ
  90. 　ＰＲＩＮＴ　ＶＬ；”　→　ＨＥＮＳＵ（”；Ｉ；”）”
  91. ＮＥＸＴ
  92. ＣＯＬＯＲ　４
  93. ＦＯＲ　Ｉ＝０　ＴＯ　７
  94. 　ＶＬ＝ＳＰＧＥＴＶ（ＮＵＭ，Ｉ）
  95. 　ＬＯＣＡＴＥ　１６，１０＋Ｉ
  96. 　ＰＲＩＮＴ　”ＨＥＮＳＵ（”；Ｉ；”）　→　”；ＶＬ
  97. ＮＥＸＴ
  98. ＲＥＴＵＲＮ
  100. ’－－－　ＳＰＣＯＬ／ＳＰＨＩＴ
  101. ＠ＴＥＳＴ２
  103. ＰＡＬ＝１２
  104. ＡＮ＝０　　　’スフ゜ライトＮＯ．
  105. ＦＮ＝１０　　’スフ゜ライトＮＯ．
  106. ＡＷ＝１６　　’ＷＩＤＴＨ
  107. ＡＨ＝３２　　’ＨＥＩＧＨＴ
  108. ＡＸ＝１２８：ＡＹ＝９６
  109. ＡＸ１＝２：ＡＹ１＝１
  111. ＳＰＳＥＴ　ＡＮ，２８８，ＰＡＬ，０，０，２，ＡＷ，ＡＨ
  112. ＳＰＣＯＬ　ＡＮ，－ＡＷ／２，－ＡＨ／２，ＡＷ，ＡＨ，ＦＡＬＳＥ
  113. ＳＰＨＯＭＥ　ＡＮ，ＡＷ／２，ＡＨ／２
  115. ＦＭＡＸ＝８　　’ＴＥＫＩ　ＭＡＸ
  116. ＦＷ＝１６　　　’ＷＩＤＴＨ
  117. ＦＨ＝１６　　　’ＨＥＩＧＨＴ
  119. ＦＯＲ　Ｉ＝０　ＴＯ　ＦＭＡＸ－１
  120. 　ＮＵＭ　＝　ＦＮ＋Ｉ
  121. 　ＳＣＬ　＝　２００
  122. 　ＣＨ　＝　１３７
  124. 　ＳＰＳＥＴ　ＮＵＭ，ＣＨ，ＰＡＬ，０，０，２
  125. 　ＳＰＳＣＡＬＥ　ＮＵＭ，ＳＣＬ
  126. 　ＦＸ＝４８　＋　（（Ｉ％４）＊４８）
  127. 　ＦＹ＝７２　＋　ＦＬＯＯＲ（Ｉ／４）＊４８
  128. 　ＳＰＨＯＭＥ　ＮＵＭ，ＦＷ／２，ＦＨ／２
  129. 　ＳＰＣＯＬ　ＮＵＭ，－ＦＷ／２，－ＦＨ／２，ＦＷ，ＦＨ，ＴＲＵＥ
  130. 　ＳＰＯＦＳ　ＮＵＭ，ＦＸ，ＦＹ
  131. 　ＬＯＣＡＴＥ　ＦＸ／８－２，ＦＹ／８＋２
  132. 　ＰＲＩＮＴ　”ＮＯ．”；ＮＵＭ
  134. ＮＥＸＴ
  136. ＦＯＲ　Ｉ＝０　ＴＯ　６００
  137. 　ＩＦ　ＡＸ＜８　　ＯＲ　ＡＸ＞２４６　ＴＨＥＮ　ＡＸ１＝－ＡＸ１
  138. 　ＩＦ　ＡＹ＜１６　ＯＲ　ＡＹ＞１７４　ＴＨＥＮ　ＡＹ１＝－ＡＹ１
  140. 　ＡＸ＝ＡＸ＋ＡＸ１：ＡＹ＝ＡＹ＋ＡＹ１
  141. 　ＳＰＯＦＳ　ＡＮ，ＡＸ，ＡＹ
  143. 　ＨＩＴ＝ＳＰＨＩＴ（ＡＮ，０）
  144. 　ＣＯＬＯＲ　０
  145. 　ＬＯＣＡＴＥ　１，１９
  146. 　ＰＲＩＮＴ　”ＳＰＨＩＴカンスウ　モト゛リチ：”；
  147. 　ＩＦ　ＨＩＴ　ＴＨＥＮ　ＣＯＬＯＲ　１３
  148. 　ＰＲＩＮＴ　ＨＩＴ；
  149. 　ＰＲＩＮＴ　
  150. 　ＣＯＬＯＲ　０
  151. 　ＬＯＣＡＴＥ　１，２１
  152. 　ＰＲＩＮＴ　”ＳＰＨＩＴＮＯ　ノ　アタイ：”；
  153. 　ＣＯＬＯＲ　４
  154. 　ＰＲＩＮＴ　ＳＰＨＩＴＮＯ；”　”
  155. 　ＶＳＹＮＣ　１
  156. ＮＥＸＴ
  158. ＲＥＴＵＲＮ
  160. ’－－－　ＳＰＨＯＭＥ
  161. ＠ＴＥＳＴ３
  163. ＰＡＬ＝４
  164. ＮＵＭ　＝　０　　’スフ゜ライトＮＯ．
  165. ＡＷ＝１６　　　’ＷＩＤＴＨ
  166. ＡＨ＝１６　　　’ＨＥＩＧＨＴ
  167. ＣＨ＝６８
  168. ＳＣＬ　＝　２００
  169. ＡＸ　＝　１２８
  170. ＡＹ　＝　９６
  171. ＡＮＧ　＝　３５９
  172. ＤＩＲ　＝　１
  174. ＳＰＳＥＴ　ＮＵＭ，ＣＨ，ＰＡＬ，０，０，２
  175. ＳＰＯＦＳ　ＮＵＭ，ＡＸ，ＡＹ
  176. ＳＰＳＣＡＬＥ　ＮＵＭ，ＳＣＬ
  178. ＧＬＩＮＥ　ＡＸ，ＡＹ－３２，ＡＸ，ＡＹ＋３２，２
  179. ＧＬＩＮＥ　ＡＸ－３２，ＡＹ，ＡＸ＋３２，ＡＹ，２
  181. ＧＯＳＵＢ　＠ＰＵＴＣＭＤ
  183. ＨＸ　＝　０：ＨＹ　＝　０
  184. ＧＯＳＵＢ　＠ＴＵＲＮＳＵＢ
  186. ＨＸ　＝　ＡＷ／２：ＨＹ　＝　ＡＨ／２
  187. ＧＯＳＵＢ　＠ＴＵＲＮＳＵＢ
  189. ＨＸ　＝　ＡＷ－１：ＨＹ　＝　ＡＨ－１
  190. ＧＯＳＵＢ　＠ＴＵＲＮＳＵＢ
  191. ＲＥＴＵＲＮ
  193. ’－－－
  194. ＠ＴＵＲＮＳＵＢ
  195. ＰＲＩＮＴ　”（”；ＨＸ；”，”；ＨＹ；”）テ゛　カイテン”
  196. ＰＲＩＮＴ　
  197. ＳＰＨＯＭＥ　ＮＵＭ，ＨＸ，ＨＹ
  198. ＳＰＡＮＧＬＥ　ＮＵＭ，０
  199. ＶＳＹＮＣ　１
  200. ＳＰＡＮＧＬＥ　ＮＵＭ，ＡＮＧ，１８０，ＤＩＲ
  202. ＠ＳＰＢＵＳＹ
  203. ＶＳＹＮＣ　１
  204. ＩＦ　ＳＰＣＨＫ（ＡＮ）　ＴＨＥＮ　＠ＳＰＢＵＳＹ
  205. ＲＥＴＵＲＮ
  207. ’－－－　ＳＰＲＥＡＤ／ＳＰＣＨＫ
  208. ＠ＴＥＳＴ４
  210. ＰＡＬ＝４
  211. ＡＮ＝０　　　　’スフ゜ライトＮＯ．
  212. ＡＭＡＸ＝１２　’ＭＡＸ
  213. ＡＷ＝１６　　　’ＷＩＤＴＨ
  214. ＡＨ＝１６　　　’ＨＥＩＧＨＴ
  216. ＦＯＲ　Ｉ＝０　ＴＯ　ＡＭＡＸ－１
  218. 　ＮＵＭ　＝　ＡＮ＋Ｉ
  219. 　ＳＣＬ　＝　１００　　　　　　　　’スケール
  220. 　ＣＨ　＝　ＲＮＤ（２５６）
  221. 　ＡＮＧ　＝　０
  222. 　ＳＥＣ　＝　ＲＮＤ（９）＋１　　　’ホカンシ゛カン
  223. 　ＳＰＳＥＴ　ＮＵＭ，ＣＨ，ＰＡＬ，０，０，２
  224. 　ＳＰＳＣＡＬＥ　ＮＵＭ，ＳＣＬ
  225. 　ＳＰＨＯＭＥ　ＮＵＭ，ＡＷ／２，ＡＨ／２
  226. 　ＳＰＯＦＳ　ＮＵＭ，１２８，８
  227. 　ＶＳＹＮＣ　１
  228. 　ＡＸ＝２４０：ＡＹ＝８＋（Ｉ＊１６）
  229. 　ＳＰＯＦＳ　ＮＵＭ，ＡＸ，ＡＹ，６０＊ＳＥＣ
  231. ＮＥＸＴ
  233. ＴＹ＝８
  234. ＬＯＣＡＴＥ　１，ＴＹ－１
  235. ＰＲＩＮＴ　”ＳＰＲＥＡＤ／ＳＰＣＨＫ　モト゛リチ”
  237. ＠ＳＰＲＭＡＩＮ
  238. ＢＵＳＹ＝０
  239. ＦＯＲ　Ｉ＝０　ＴＯ　ＡＭＡＸ－１
  240. 　ＮＵＭ　＝　ＡＮ＋Ｉ
  241. 　ＳＰＲＥＡＤ（ＮＵＭ），ＡＸ，ＡＹ，ＡＮＧ，ＳＣＬ，ＣＨ
  242. 　ＳＰＣ＝ＳＰＣＨＫ（ＮＵＭ）
  244. 　ＣＯＬＯＲ　０
  245. 　ＬＯＣＡＴＥ　０，ＴＹ＋Ｉ
  246. 　ＰＲＩＮＴ　ＮＵＭ；”：”；
  247. 　ＬＯＣＡＴＥ　３，ＴＹ＋Ｉ
  248. 　ＰＲＩＮＴ　”（”；ＡＸ
  249. 　ＬＯＣＡＴＥ　７，ＴＹ＋Ｉ
  250. 　ＰＲＩＮＴ　”，”；ＡＹ；”）”
  251. 　ＣＯＬＯＲ　０
  252. 　ＬＯＣＡＴＥ　１３，ＴＹ＋Ｉ
  253. 　ＰＲＩＮＴ　”ＳＰＣＨＫ＝”；
  254. 　ＩＦ　ＳＰＣ　ＴＨＥＮ　ＣＯＬＯＲ　４　ＥＬＳＥ　ＣＯＬＯＲ　０
  255. 　ＰＲＩＮＴ　ＳＰＣ；
  256. 　ＶＳＹＮＣ　１
  257. 　ＢＵＳＹ＝ＢＵＳＹ＋ＳＰＣ
  258. ＮＥＸＴ
  259. ＩＦ　ＢＵＳＹ　ＴＨＥＮ　＠ＳＰＲＭＡＩＮ
  260. ＲＥＴＵＲＮ
  262. ’－－－　ＢＧＦＩＬＬ／ＢＧＣＯＰＹ／ＢＧＣＬＲ
  263. ＠ＴＥＳＴ５
  264. ＰＡＬ＝９　　’ハ゜レット
  265. ＬＯＣＡＴＥ　０，８
  266. ＰＲＩＮＴ　”ＢＧＦＩＬＬメイレイヲ　シ゛ッコウ”
  267. ＬＡＹ＝０
  268. Ｘ１＝８：Ｙ１＝９
  269. Ｘ２＝５０：Ｙ２＝１４
  270. ＣＨ＝３２
  271. Ｈ＝０：Ｖ＝０
  272. ＢＧＦＩＬＬ　ＬＡＹ，Ｘ１，Ｙ１，Ｘ２，Ｙ２，ＣＨ，ＰＡＬ，０，０
  273. ＷＡＩＴ　１８０
  275. Ｘ１＝０　　　：Ｙ１＝１５
  276. Ｘ２＝Ｘ１＋１０：Ｙ２＝Ｙ１＋４
  277. ＦＯＲ　Ｙ＝０　ＴＯ　（Ｙ２－Ｙ１）
  278. 　ＦＯＲ　Ｘ＝０　ＴＯ　（Ｘ２－Ｘ１）
  279. 　　ＣＨ＝Ｘ＋（Ｙ＊３２）
  280. 　　ＢＧＰＵＴ　ＬＡＹ，Ｘ１＋Ｘ，Ｙ１＋Ｙ，ＣＨ，ＰＡＬ，０，０
  281. 　ＮＥＸＴ
  282. ＮＥＸＴ
  283. ＬＯＣＡＴＥ　０，１３
  284. ＰＲＩＮＴ　”ＢＧＣＯＰＹメイレイヲ　シ゛ッコウ”
  285. ＰＲＩＮＴ　”　コヒ゜ーモト　→　コヒ゜ーサキ”
  286. Ｘ３＝Ｘ１＋１６：Ｙ３＝Ｙ１
  287. ＢＧＣＯＰＹ　ＬＡＹ，Ｘ１，Ｙ１，Ｘ２，Ｙ２，Ｘ３，Ｙ３
  288. ＷＡＩＴ　１８０
  290. ＧＯＳＵＢ　＠ＨＩＴＡＮＹ
  291. ＣＯＬＯＲ　０
  292. ＬＯＣＡＴＥ　０，２１
  293. ＰＲＩＮＴ　”ＢＧＣＬＲメイレイヲ　シ゛ッコウ”
  294. ＢＧＣＬＲ　ＬＡＹ
  296. ＲＥＴＵＲＮ
  298. ＠ＢＧＢＵＳＹ
  299. ＶＳＹＮＣ　１
  300. ＢＵＳＹ＝ＢＧＣＨＫ（ＬＡＹ）
  301. ＬＯＣＡＴＥ　０，１４
  302. ＣＯＬＯＲ　０
  303. ＰＲＩＮＴ　”ＢＧＣＨＫモト゛リチ：”；
  304. ＩＦ　ＢＵＳＹ　ＴＨＥＮ　ＣＯＬＯＲ　３
  305. ＰＲＩＮＴ　ＢＵＳＹ
  306. ＩＦ　ＢＵＳＹ　ＴＨＥＮ　＠ＢＧＢＵＳＹ
  307. 　’０＝シュウリョウ
  308. ＲＥＴＵＲＮ
  310. ’－－－　ＢＧＣＨＫ／ＢＧＲＥＡＤ
  311. ＠ＴＥＳＴ６
  313. ＰＡＬ＝９　　’ハ゜レット
  314. ＬＡＹ＝０
  315. Ｘ１＝０　　　　：Ｙ１＝１０
  316. Ｘ２＝Ｘ１＋３１：Ｙ２＝Ｙ１＋４
  317. ＦＯＲ　Ｙ＝０　ＴＯ　（Ｙ２－Ｙ１）－１
  318. 　ＦＯＲ　Ｘ＝０　ＴＯ　（Ｘ２－Ｘ１）－１
  319. 　　ＣＨ＝Ｘ＋（Ｙ＊３２）
  320. 　　ＢＧＰＵＴ　ＬＡＹ，Ｘ１＋Ｘ，Ｙ１＋Ｙ，ＣＨ，ＰＡＬ，０，０
  321. 　ＮＥＸＴ
  322. ＮＥＸＴ
  324. ＬＯＣＡＴＥ　０，８
  325. ＰＲＩＮＴ　”ＢＧＣＨＫカンスウテ゛　シ゛ョウホウ　シュトク”
  327. ＢＸ＝５１１：ＢＹ＝５１１：ＳＥＣ＝３
  328. ＢＧＯＦＳ　ＬＡＹ，ＢＸ，ＢＹ，６０＊ＳＥＣ
  329. ＧＯＳＵＢ　＠ＢＧＢＵＳＹ
  330. ＷＡＩＴ　６０
  331. ＢＸ＝０：ＢＹ＝０：ＳＥＣ＝３
  332. ＢＧＯＦＳ　ＬＡＹ，ＢＸ，ＢＹ，６０＊ＳＥＣ
  333. ＧＯＳＵＢ　＠ＢＧＢＵＳＹ
  335. ＷＡＩＴ　６０
  337. ＳＣ＄＝””
  338. Ｘ＝ＦＬＯＯＲ（（Ｘ１＋Ｘ２）／２）
  339. Ｙ＝ＦＬＯＯＲ（（Ｙ１＋Ｙ２）／２）
  340. ＬＯＣＡＴＥ　０，１６
  341. ＰＲＩＮＴ　”ＢＧＲＥＡＤヲシ゛ッコウ”
  342. ＢＧＲＥＡＤ（ＬＡＹ，Ｘ，Ｙ），ＳＣ＄　　’
  343. ＰＲＩＮＴ　”　Ｘ＝”；Ｘ；”，Ｙ＝”；Ｙ
  344. ＰＲＩＮＴ　”　モト゛リチ（１６シンスウ４ケタ）：”；ＳＣ＄
  346. ＰＲＩＮＴ
  347. ＰＲＩＮＴ　”ＢＧＰＵＴヲシ゛ッコウ．コ－ト゛＝”；ＳＣ＄
  348. Ｘ＝１０：Ｙ＝２１
  349. ＢＧＰＵＴ　ＬＡＹ，Ｘ，Ｙ，ＳＣ＄
  350. 　　　’１６シンスウ４ケタ
  352. ＲＥＴＵＲＮ
  354. ’－－－　コマント゛メイ
  355. ＠ＰＵＴＣＭＤ
  356. ＰＲＩＮＴ
  357. ＣＯＬＯＲ　４
  358. ＰＲＩＮＴ　”　　”；
  359. ＰＲＩＮＴ　ＭＥＮＵ＄（ＣＭＤ－１）；”ヲ　シ゛ッコウ”
  360. ＰＲＩＮＴ　”　　　　　↓”
  361. ＣＯＬＯＲ　０
  362. ＰＲＩＮＴ
  363. ＲＥＴＵＲＮ
  365. ’－－－　
  366. ＠ＨＩＴＡＮＹ
  367. ＧＯＳＵＢ　＠ＫＥＹＯＦＦ
  368. ＠ＨＩＴＡＮＹ２
  369. ＣＯＬＯＲ　ＲＮＤ（１３）＋１
  370. ＬＯＣＡＴＥ　７，２３
  371. ＰＲＩＮＴ　”ＨＩＴ　ＡＮＹ　ＢＵＴＴＯＮ”；
  372. ＶＳＹＮＣ　５
  373. ＩＦ　ＢＵＴＴＯＮ（）　ＴＨＥＮ　ＲＥＴＵＲＮ
  374. ＧＯＴＯ　＠ＨＩＴＡＮＹ２
  376. ’－－－　
  377. ＠ＫＥＹＯＦＦ
  378. ＩＦ　ＢＵＴＴＯＮ（）　ＴＨＥＮ　＠ＫＥＹＯＦＦ
  379. ＲＥＴＵＲＮ
  381. ’┌─────────────────────────┐
  382. ’│　オワリ　　　　　　　　　　　　　　　　　　　　　│
  383. ’└─────────────────────────┘