プチコンmkII
  1. ’┌──────────┐
  2. ’│ＳＡＭＰＬＥ７　　　│
  3. ’│　シンリャクミスイ　│
  4. ’└──────────┘
  5. ＶＩＳＩＢＬＥ　１，１，０，０，０，０
  6. ＣＬＳ：ＣＯＬＯＲ　０
  7. ＣＬＥＡＲ
  8. ＤＩＭ　ＥＸ（２０），ＥＹ（２０），ＥＤ（２０）
  10. ’－－－
  11. ＥＭＡＸ＝２０
  12. ＦＯＲ　Ｉ＝０　ＴＯ　ＥＭＡＸ－１
  13. 　ＥＸ（Ｉ）＝ＦＬＯＯＲ（Ｉ％１０）＊２
  14. 　ＥＹ（Ｉ）＝ＦＬＯＯＲ（Ｉ／１０）＊２＋３
  15. 　ＥＤ（Ｉ）＝０
  16. 　ＬＯＣＡＴＥ　ＥＸ（Ｉ），ＥＹ（Ｉ）
  17. 　ＰＲＩＮＴ　”Е”
  18. ＮＥＸＴ
  19. ＥＷ＝１００：ＥＣ＝０：ＥＤＷ＝ＦＡＬＳＥ
  21. ’－－－
  22. ＰＸ＝１０：ＰＹ＝２１
  23. ＬＯＣＡＴＥ　ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
  24. ＬＩＦＥ＝３：ＳＣ＝０
  25. ＭＸ＝ＰＸ：ＭＹ＝ＰＹ：ＭＳＴ＝ＦＡＬＳＥ
  26. ＬＯＣＡＴＥ　０，２２
  27. ＰＲＩＮＴ”────────────────────────────────”；
  28. ＬＯＣＡＴＥ　０，２３
  29. ＰＲＩＮＴ”Г：”；ＬＥＦＴ；
  30. ＬＯＣＡＴＥ　０，０
  31. ＰＲＩＮＴ”ＳＣＯＲＥ：　”；ＳＣ
  32. ＳＶ＝０
  34. ’－－－
  35. ＠ＬＯＯＰ
  36. 　ＧＯＳＵＢ　＠ＭＹＳＨＩＰ
  37. 　ＧＯＳＵＢ　＠ＭＹＳＨＯＴ
  38. 　ＧＯＳＵＢ　＠ＡＬＩＥＮ
  39. 　ＧＯＳＵＢ　＠ＳＣＯＲＥ
  40. 　ＶＳＹＮＣ　１
  41. ＧＯＴＯ　＠ＬＯＯＰ
  43. ’－－－　スコア
  44. ＠ＳＣＯＲＥ
  45. ＩＦ　ＳＶ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  46. ＳＣ＝ＳＣ＋１０
  47. ＳＶ＝ＳＶ－１０
  48. ＬＯＣＡＴＥ　７，０：ＰＲＩＮＴ　ＳＣ
  49. ＲＥＴＵＲＮ
  51. ’－－－　シ゛フ゛ン
  52. ＠ＭＹＳＨＩＰ
  53. Ｂ＝ＢＵＴＴＯＮ（）：ＶＸ＝０
  54. ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　ＶＸ＝－１
  55. ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　ＶＸ＝１
  56. ＩＦ　ＶＸ＝＝０　ＴＨＥＮ　＠ＮＯＴＭＯＶＥ
  57. ＬＯＣＡＴＥ　ＰＸ，ＰＹ：ＰＲＩＮＴ”　”
  58. ＰＸ＝ＰＸ＋ＶＸ
  59. ＩＦ　ＰＸ＜０　ＴＨＥＮ　ＰＸ＝０
  60. ＩＦ　ＰＸ＞３１　ＴＨＥＮ　ＰＸ＝３１
  61. 　ＬＯＣＡＴＥ　ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
  62. ’－－－
  63. ＠ＮＯＴＭＯＶＥ
  64. ＲＥＴＵＲＮ
  66. ’－－－　タマ
  67. ＠ＭＹＳＨＯＴ
  68. ＩＦ　ＭＳＴ＝＝ＴＲＵＥ　ＴＨＥＮ　＠ＭＳＭＯＶＥ
  69. ＩＦ　ＴＣＨＳＴ＝＝ＦＡＬＳＥ　ＴＨＥＮ　＠ＭＳＳＫＩＰ
  70. ＭＳＴ＝ＴＲＵＥ
  71. ＭＸ＝ＰＸ：ＭＹ＝ＰＹ
  72. ＧＯＴＯ　＠ＭＳＭＯＶＥ２
  73. ’－－－
  74. ＠ＭＳＭＯＶＥ
  75. ＬＯＣＡＴＥ　ＭＸ，ＭＹ：ＰＲＩＮＴ”　”
  76. ’－－－
  77. ＠ＭＳＭＯＶＥ２
  78. ＭＹ＝ＭＹ－１
  79. ＩＦ　ＭＹ＜３　ＴＨＥＮ　ＭＳＴ＝ＦＡＬＳＥ：ＧＯＴＯ　＠ＭＳＳＫＩＰ
  80. ＬＯＣＡＴＥ　ＭＸ，ＭＹ：ＰＲＩＮＴ”・”
  81. ’－－－
  82. ＠ＭＳＳＫＩＰ
  83. ＲＥＴＵＲＮ
  85. ’－－－　シンリャクシャ
  86. ＠ＡＬＩＥＮ
  87. ＭＤ＝ＦＡＬＳＥ
  88. ＩＦ　ＥＤＷ　ＴＨＥＮ　ＭＤ＝ＥＤＷ：ＥＤＷ＝ＦＡＬＳＥ
  89. ’－－－
  90. ＦＯＲ　Ｉ＝０　ＴＯ　ＥＭＡＸ－１
  91. 　ＩＦ　ＥＤ（Ｉ）＝＝－１　ＴＨＥＮ　＠ＰＡＳＳ
  92. 　’－－－
  93. 　ＬＯＣＡＴＥ　ＥＸ（Ｉ），ＥＹ（Ｉ）：ＰＲＩＮＴ”　”
  94. 　ＩＦ　ＭＤ＝＝ＦＡＬＳＥ　ＴＨＥＮ　＠ＥＭＶ
  95. 　’－－－　
  96. 　ＥＤ（Ｉ）＝（ＥＤ（Ｉ）＋１）　ＡＮＤ　３
  97. 　’－－－
  98. 　＠ＥＭＶ
  99. 　ＧＯＳＵＢ　＠ＥＭＯＶＥ
  100. 　’－－－
  101. 　＠ＳＫＩＰ
  102. 　ＩＦ　ＭＳＴ＝＝ＦＡＬＳＥ　ＴＨＥＮ　＠ＰＡＳＳ
  103. 　ＩＦ　ＭＸ！＝ＥＸ（Ｉ）　ＴＨＥＮ　＠ＰＡＳＳ
  104. 　ＩＦ　ＭＹ！＝ＥＹ（Ｉ）　ＴＨＥＮ　＠ＰＡＳＳ
  105. 　’－－－　シホンウ
  106. 　ＬＯＣＡＴＥ　ＥＸ（Ｉ），ＥＹ（Ｉ）：ＰＲＩＮＴ”　”
  107. 　ＥＤ（Ｉ）＝－１
  108. 　ＭＳＴ＝ＦＡＬＳＥ
  109. 　ＳＶ＝ＳＶ＋１０
  110. 　’－－－
  111. ＠ＰＡＳＳ
  112. 　’－－－
  113. ＮＥＸＴ
  114. ＲＥＴＵＲＮ
  116. ’－－－
  117. ＠ＥＭＯＶＥ
  118. ＯＮ　ＥＤ（Ｉ）　ＧＯＴＯ　＠ＲＩ，＠ＤＷ，＠ＬＦ，＠ＤＷ
  120. ＠ＤＷ
  121. ＥＹ（Ｉ）＝ＥＹ（Ｉ）＋１
  122. ＩＦ　ＥＹ（Ｉ）＞２０　ＴＨＥＮ　ＥＹ（Ｉ）＝３
  123. ＥＤ（Ｉ）＝（ＥＤ（Ｉ）＋１）　ＡＮＤ　３
  124. ＧＯＴＯ　＠ＥＰＵＴ
  126. ＠ＲＩ
  127. ＥＸ（Ｉ）＝ＥＸ（Ｉ）＋１
  128. ＩＦ　ＥＸ（Ｉ）＜３１　ＴＨＥＮ　＠ＥＰＵＴ
  129. ＥＤＷ＝ＴＲＵＥ
  130. ＧＯＴＯ　＠ＥＰＵＴ
  132. ＠ＬＦ
  133. ＥＸ（Ｉ）＝ＥＸ（Ｉ）－１
  134. ＩＦ　ＥＸ（Ｉ）＞０　ＴＨＥＮ　＠ＥＰＵＴ
  135. ＥＤＷ＝ＴＲＵＥ
  137. ＠ＥＰＵＴ
  138. ＬＯＣＡＴＥ　ＥＸ（Ｉ），ＥＹ（Ｉ）
  139. ＰＲＩＮＴ　”Е”
  140. ＲＥＴＵＲＮ