プチコンmkII
  1. ’┌──────────────────┐
  2. ’│ＳＡＭＰＬＥ１０　　　　　　　　　　│
  3. ’│　コウト゛ナ　ク゛ラフィック　キノウ│
  4. ’└──────────────────┘
  5. ＣＬＥＡＲ
  7. ’－－－　メニュー　ショキカ
  8. ＭＥＮＵＭＡＸ＝４
  9. ＤＩＭ　ＭＥＮＵ＄（ＭＥＮＵＭＡＸ）
  10. ＤＩＭ　ＩＮＦＯ＄（ＭＥＮＵＭＡＸ）
  12. ＦＯＲ　Ｉ＝０　ＴＯ　ＭＥＮＵＭＡＸ－１
  13. 　ＲＥＡＤ　ＭＥＮＵ＄（Ｉ）
  14. 　ＲＥＡＤ　ＩＮＦＯ＄（Ｉ）
  15. ＮＥＸＴ
  17. ＤＡＴＡ　”ＧＰＡＧＥ”
  18. ＤＡＴＡ　”ク゛ラフィックカ゛メンヲ　キリカエル”
  19. ＤＡＴＡ　”ＧＤＲＡＷＭＤ”
  20. ＤＡＴＡ　”ヒ゛ョウカ゛モート゛ヲ　ヘンコウ　スル”
  21. ＤＡＴＡ　”ＧＰＲＩＯ”
  22. ＤＡＴＡ　”ク゛ラフィックノ　ユウセント゛ヲ　ヘンコウ”
  23. ＤＡＴＡ　”ＧＣＯＰＹ”
  24. ＤＡＴＡ　”ク゛ラフィックカ゛メンヲ　コヒ゜ー　スル”
  26. ’－－－　ＭＡＩＮ　ＬＯＯＰ
  27. ＠ＭＡＩＮ
  28. ＡＣＬＳ
  29. ＣＯＬＯＲ　０
  30. ＰＲＩＮＴ　”┌────────────────────┐”
  31. ＰＲＩＮＴ　”│ＳＡＭＰＬＥ１０　　　　　　　　　　　　│”
  32. ＰＲＩＮＴ　”│　　コウト゛ナ　ク゛ラフィック　キノウ　│”
  33. ＰＲＩＮＴ　”└────────────────────┘”
  34. ＰＲＩＮＴ
  36. ＦＯＲ　Ｉ＝０　ＴＯ　ＭＥＮＵＭＡＸ－１
  37. 　Ｙ＝Ｉ＊３＋５
  38. 　ＣＯＬＯＲ　９
  39. 　ＬＯＣＡＴＥ　０，Ｙ
  40. 　ＰＲＩＮＴ　Ｉ＋１；”　”；
  41. 　ＣＯＬＯＲ　０
  42. 　ＰＲＩＮＴ　ＭＥＮＵ＄（Ｉ）；”　”；
  43. 　ＣＯＬＯＲ　３
  44. 　ＬＯＣＡＴＥ　２，Ｙ＋１
  45. 　ＰＲＩＮＴ　ＩＮＦＯ＄（Ｉ）
  46. ＮＥＸＴ
  48. ＣＯＬＯＲ　０
  49. ＬＯＣＡＴＥ　０，１９
  50. ＩＮＰＵＴ　”Ж：ト゛レカ　エランテ゛（０＝ＥＮＤ）”；ＣＭＤ
  51. ＣＬＳ
  52. ＩＦ　ＣＭＤ＜＝０　ＴＨＥＮ　ＥＮＤ
  53. ＩＦ　ＣＭＤ＞ＭＥＮＵＭＡＸ　ＴＨＥＮ　＠ＭＡＩＮ
  54. ＣＯＬＯＲ　３
  55. ＰＲＩＮＴ　”───────────────────────────”
  56. ＰＲＩＮＴ　
  57. ＰＲＩＮＴ　ＭＥＮＵ＄（ＣＭＤ－１）：ＰＲＩＮＴ　
  58. ＰＲＩＮＴ　”　　”；ＩＮＦＯ＄（ＣＭＤ－１）
  59. ＰＲＩＮＴ　”───────────────────────────”
  60. ＣＯＬＯＲ　７
  61. ＰＲＩＮＴ　”シ゛ッコウレイ：”：ＰＲＩＮＴ　
  62. ＣＯＬＯＲ　０
  64. ＩＦ　ＣＭＤ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ１
  65. ＩＦ　ＣＭＤ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ２
  66. ＩＦ　ＣＭＤ＝＝３　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ３
  67. ＩＦ　ＣＭＤ＝＝４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ４
  69. ＧＯＳＵＢ　＠ＨＩＴＡＮＹ
  70. ＧＯＴＯ　＠ＭＡＩＮ
  73. ’－－－　ＧＰＡＧＥ
  74. ＠ＴＥＳＴ１
  75. ＦＯＲ　Ｉ＝０　ＴＯ　３
  76. 　Ｐ１＝Ｉ　　’ヒ゛ョウカ゛ヘ゜ーシ゛
  77. 　Ｐ２＝Ｉ　　’ヒョウシ゛ヘ゜ーシ゛
  78. 　ＧＰＡＧＥ　０，Ｐ１，Ｐ２
  79. 　ＦＯＲ　Ａ＝０　ＴＯ　３５９
  80. 　　Ｘ１＝１２８
  81. 　　Ｙ１＝９６
  82. 　　Ｒ＝ＲＡＤ（Ａ）
  83. 　　Ｘ２＝ＣＯＳ（Ｒ）＊９６＋Ｘ１
  84. 　　Ｙ２＝ＳＩＮ（Ｒ）＊９６＋Ｙ１
  85. 　　ＣＯＬ＝（（（（Ａ／５）＋Ｉ）％４）＜２）＊２
  86. 　　ＧＬＩＮＥ　Ｘ１，Ｙ１，Ｘ２，Ｙ２，ＣＯＬ
  87. 　ＮＥＸＴ
  88. 　Ｘ＝３２
  89. 　Ｙ＝８０
  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. ＧＤＲＡＷＭＤ　ＦＡＬＳＥ　　’ツウシ゛ョウ
  121. ＲＥＴＵＲＮ
  123. ’－－－　ＧＰＲＩＯ
  124. ＠ＴＥＳＴ３
  125. ＰＡＬ＝２
  126. ＡＮ＝０：ＡＸ＝１２８：ＡＹ＝９６：Ｗ＝１６：Ｈ＝１６
  127. ＳＰＲ＝２
  128. ＳＰＳＥＴ　ＡＮ，６８，ＰＡＬ，０，０，ＳＰＲ，Ｗ，Ｈ
  129. ＳＰＨＯＭＥ　ＡＮ，Ｗ／２，Ｈ／２
  130. ＳＰＳＣＡＬＥ　ＡＮ，２００
  131. ＳＰＯＦＳ　ＡＮ，ＡＸ，ＡＹ
  133. ＰＡＬ＝９
  134. ＦＯＲ　Ｙ＝０　ＴＯ　７
  135. 　ＦＯＲ　Ｘ＝０　ＴＯ　７
  136. 　　ＢＧＰＵＴ　０，Ｘ＋　８，Ｙ＋　３，４８，ＰＡＬ，０，０
  137. 　　ＢＧＰＵＴ　１，Ｘ＋１６，Ｙ＋１２，３２，ＰＡＬ，０，０
  138. 　ＮＥＸＴ
  139. ＮＥＸＴ
  141. ＰＲＩＮＴ　”スフ゜ライト　ノ”
  142. ＰＲＩＮＴ　”　ユウセンシ゛ュンイ＝”；ＳＰＲ
  143. ＰＲＩＮＴ
  144. ＦＯＲ　Ｉ＝０　ＴＯ　２５５　ＳＴＥＰ　８
  145. 　ＧＬＩＮＥ　Ｉ，０，１２８，１９１，４
  146. ＮＥＸＴ
  147. ＦＯＲ　Ｉ＝０　ＴＯ　３
  148. 　ＧＰＲＩＯ　Ｉ
  149. 　ＰＲＩＮＴ　”ク゛ラフィック　ノ”
  150. 　ＰＲＩＮＴ　”　ユウセンシ゛ュンイ＝”；Ｉ
  151. 　ＰＲＩＮＴ
  152. 　ＷＡＩＴ　１２０
  153. ＮＥＸＴ
  154. ＧＰＲＩＯ　３
  155. ＲＥＴＵＲＮ
  157. ’－－－　ＧＣＯＰＹ
  158. ＠ＴＥＳＴ４
  159. ＧＣＬＳ
  160. ＦＯＲ　ＭＯＤＥ＝０　ＴＯ　１
  161. 　ＬＯＣＡＴＥ　１６＊ＭＯＤＥ，１４
  162. 　ＰＲＩＮＴ　”　カラー０ヲ　コヒ゜ー”；
  163. 　ＩＦ　ＭＯＤＥ＝＝０　ＴＨＥＮ　ＰＲＩＮＴ　”シナイ”
  164. 　ＩＦ　ＭＯＤＥ＝＝１　ＴＨＥＮ　ＰＲＩＮＴ　”スル”
  166. 　ＦＯＲ　Ａ＝０　ＴＯ　３５９
  167. 　　Ｘ１＝６４＋（１２８＊ＭＯＤＥ）
  168. 　　Ｙ１＝６４
  169. 　　Ｒ＝ＲＡＤ（Ａ）
  170. 　　Ｘ２＝ＣＯＳ（Ｒ）＊３２＋Ｘ１
  171. 　　Ｙ２＝ＳＩＮ（Ｒ）＊３２＋Ｙ１
  172. 　　ＣＯＬ＝ＦＬＯＯＲ（１６＊Ａ／３６０）　　’カラー
  173. 　　ＧＬＩＮＥ　Ｘ１，Ｙ１，Ｘ２，Ｙ２，ＣＯＬ
  174. 　ＮＥＸＴ
  176. 　ＦＯＲ　Ｉ＝０　ＴＯ　８
  177. 　　Ｐ＝０　　　　　　　　　’テンソウモト　ヘ゜ーシ゛
  178. 　　Ｘ１＝３２＋（１２８＊ＭＯＤＥ）　’テンソウモト　シテン
  179. 　　Ｙ１＝３２
  180. 　　Ｘ２＝Ｘ１＋６４　　　　’テンソウモト　シュウテン
  181. 　　Ｙ２＝Ｙ１＋６４
  182. 　　Ｘ３＝ＲＮＤ（６４）＋（１２８＊ＭＯＤＥ）　’テンソウサキ　シテン
  183. 　　Ｙ３＝１２８
  184. 　　ＧＣＯＰＹ　Ｐ，Ｘ１，Ｙ１，Ｘ２，Ｙ２，Ｘ３，Ｙ３，ＭＯＤＥ
  185. 　　ＷＡＩＴ　３０
  186. 　ＮＥＸＴ
  187. 　ＷＡＩＴ　６０
  188. ＮＥＸＴ
  189. ＲＥＴＵＲＮ
  191. ’－－－　コマント゛メイ
  192. ＠ＰＵＴＣＭＤ
  193. ＰＲＩＮＴ
  194. ＣＯＬＯＲ　４
  195. ＰＲＩＮＴ　”　　”；
  196. ＰＲＩＮＴ　ＭＥＮＵ＄（ＣＭＤ－１）；”ヲ　シ゛ッコウ”
  197. ＰＲＩＮＴ　”　　　　　↓”
  198. ＣＯＬＯＲ　０
  199. ＰＲＩＮＴ
  200. ＲＥＴＵＲＮ
  202. ’－－－　
  203. ＠ＨＩＴＡＮＹ
  204. ＧＯＳＵＢ　＠ＫＥＹＯＦＦ
  205. ＠ＨＩＴＡＮＹ２
  206. ＣＯＬＯＲ　ＲＮＤ（１３）＋１
  207. ＬＯＣＡＴＥ　７，２３
  208. ＰＲＩＮＴ　”ＨＩＴ　ＡＮＹ　ＢＵＴＴＯＮ”；
  209. ＶＳＹＮＣ　５
  210. ＩＦ　ＢＵＴＴＯＮ（）　ＴＨＥＮ　ＲＥＴＵＲＮ
  211. ＧＯＴＯ　＠ＨＩＴＡＮＹ２
  213. ’－－－　
  214. ＠ＫＥＹＯＦＦ
  215. ＩＦ　ＢＵＴＴＯＮ（）　ＴＨＥＮ　＠ＫＥＹＯＦＦ
  216. ＲＥＴＵＲＮ
  218. ’－－－　
  219. ＠ＧＰＵＴＳＴＲ
  220. ＰＡＬ＝０　　’ハ゜レット
  221. ＳＺ＝４　　　’サイス゛
  222. ＦＯＲ　ＰＴＲ＝０　ＴＯ　ＬＥＮ（Ａ＄）－１
  223. 　ＮＵＭ＝ＡＳＣ（ＭＩＤ＄（Ａ＄，ＰＴＲ，１））
  224. 　ＧＰＵＴＣＨＲ　Ｘ，Ｙ，”ＢＧＦ０”，ＮＵＭ，ＰＡＬ，ＳＺ
  225. 　Ｘ＝Ｘ＋（８＊ＳＺ）
  226. ＮＥＸＴ
  227. ＲＥＴＵＲＮ
  229. ’┌─────────────────────────┐
  230. ’│　オワリ　　　　　　　　　　　　　　　　　　　　　│
  231. ’└─────────────────────────┘