プチコンmkII
  1. ’┌──────────┐”
  2. ’│ＳＡＭＰＬＥ５　　　│”
  3. ’│　ハ゛イオリス゛ム　│”
  4. ’└──────────┘”
  5. ＶＩＳＩＢＬＥ　１，１，０，０，０，１
  6. ＧＰＡＧＥ　０：ＧＣＯＬＯＲ　０：ＧＣＬＳ
  7. ＣＯＬＯＲ　０：ＣＬＳ
  8. ＣＬＥＡＲ
  9. ’－－－　
  10. ＤＩＭ　ＭＤＡＹ（１２）
  11. ＤＡＴＡ　３１，２８，３１，３０，３１，３０
  12. ＤＡＴＡ　３１，３１，３０，３１，３０，３１
  13. ＦＯＲ　Ｉ＝０　ＴＯ　１１
  14. 　ＲＥＡＤ　ＭＤＡＹ（Ｉ）
  15. ＮＥＸＴ　Ｉ
  16. ’－－－　
  17. ＳＰＣ　＝　８
  18. ＢＧＴ　＝　４
  19. ＬＩＮＥＨ　＝　６０
  20. ＬＩＮＥＣ　＝　ＢＧＴ　＋　ＳＰＣ　＋　ＬＩＮＥＨ
  21. ＤＡＹＷ　＝　８：ＤＲＡＷＤ　＝　３０
  22. ＢＧＬ　＝　（２５６　－　（ＤＲＡＷＤ　－　１）　＊　ＤＡＹＷ　－　ＳＰＣ　＊　２）　／　２
  23. ＢＧＲ　＝　ＢＧＬ　＋　ＤＡＹＷ　＊　（ＤＲＡＷＤ　－　１）　＋　ＳＰＣ　＊　２
  24. ＢＧＢ　＝　ＢＧＴ　＋　（ＳＰＣ　＋　ＬＩＮＥＨ）　＊　２　＋　ＳＰＣ
  25. ＤＩＭ　ＤＤＡＹ（ＤＲＡＷＤ）
  26. ＣＯＬＯＲ　０
  27. ’－－－　
  28. ＠ＳＴＡＲＴ
  29. ＣＬＳ
  30. ＧＣＬＳ　１４
  31. ＦＯＲ　Ｉ　＝　０　ＴＯ　ＤＲＡＷＤ　－　１
  32. 　ＤＤＡＹ（Ｉ）　＝　ＦＡＬＳＥ
  33. ＮＥＸＴ
  34. ＰＲＩＮＴ”┌────────┐”
  35. ＰＲＩＮＴ”│ハ゛イオリス゛ム│”
  36. ＰＲＩＮＴ”└────────┘”
  37. ’－－－　
  38. ＠ＩＮＰＵＴＤＡＹ
  39. ＩＮＰＵＴ　”Ж：タンシ゛ョウヒ゛ハ（ＹＹＹＹＭＭＤＤ）”；　ＤＴ＄
  40. ＩＦ　ＬＥＮ（ＤＴ＄）　！＝　８　ＴＨＥＮ　＠ＥＲＲＯＲ
  41. ＢＹＥＡＲ　＝　ＶＡＬ（ＭＩＤ＄（ＤＴ＄，　０，　４））
  42. ＢＭＯＮ　＝　ＶＡＬ（ＭＩＤ＄（ＤＴ＄，　４，　２））
  43. ＢＤＡＹ　＝　ＶＡＬ（ＭＩＤ＄（ＤＴ＄，　６，　２））
  44. ＩＦ　ＢＹＥＡＲ　＜　１９００　ＴＨＥＮ　＠ＥＲＲＯＲ
  45. ＩＦ　ＢＭＯＮ　＜　１　ＯＲ　ＢＭＯＮ　＞　１２　ＴＨＥＮ　＠ＥＲＲＯＲ
  46. ＩＦ　ＢＤＡＹ　＜　１　ＴＨＥＮ　＠ＥＲＲＯＲ
  47. ＤＴＲＥＡＤ（ＤＡＴＥ＄），　ＮＹＥＡＲ，　ＮＭＯＮ，　ＮＤＡＹ
  48. ＩＦ　ＢＹＥＡＲ　＞　ＮＹＥＡＲ　ＴＨＥＮ　＠ＥＲＲＯＲ
  49. ＹＥＡＲ　＝　ＮＹＥＡＲ
  50. ＭＯＮ　＝　ＮＭＯＮ
  51. ＤＡＹ　＝　ＮＤＡＹ
  52. ＧＯＳＵＢ　＠ＣＡＬＣＤＡＹ
  53. ＴＯＴＡＬ　＝　ＣＤＡＹ
  54. ＹＥＡＲ　＝　ＢＹＥＡＲ
  55. ＭＯＮ　＝　ＢＭＯＮ
  56. ＤＡＹ　＝　ＢＤＡＹ
  57. ＧＯＳＵＢ　＠ＣＡＬＣＤＡＹ
  58. ＬＥＡＰ　＝　０
  59. ＩＦ　ＭＯＮ　＝＝　２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＨＫＬＥＡＰ
  60. ＩＦ　ＤＡＹ　＞　ＭＤＡＹ（ＭＯＮ　－　１）　＋　ＬＥＡＰ　ＴＨＥＮ　＠ＥＲＲＯＲ
  61. ＴＯＴＡＬ　＝　ＴＯＴＡＬ　＋　ＹＥＡＲＤＡＹ　－　ＣＤＡＹ
  62. ＩＦ　ＢＹＥＡＲ　＝＝　ＮＹＥＡＲ　ＴＨＥＮ　＠ＤＲＡＷ
  63. ＦＯＲ　ＹＥＡＲ　＝　ＢＹＥＡＲ　ＴＯ　ＮＹＥＡＲ　－　１
  64. 　ＴＯＴＡＬ　＝　ＴＯＴＡＬ　＋　３６５
  65. 　ＧＯＳＵＢ　＠ＣＨＫＬＥＡＰ
  66. 　ＴＯＴＡＬ　＝　ＴＯＴＡＬ　＋　ＬＥＡＰ
  67. ＮＥＸＴ
  68. ’－－－　
  69. ＠ＤＲＡＷ
  70. ＣＬＳ
  71. ＧＣＬＳ　４
  72. ＧＦＩＬＬ　ＢＧＬ，　ＢＧＴ，　ＢＧＲ，　ＢＧＢ，　１５
  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. 　ＴＸ　＝　ＴＸ　＋　ＳＴＥＰＤ
  102. 　ＤＡＹ　＝　ＤＡＹ　＋　ＳＴＥＰＤ
  103. 　ＩＦ　ＤＡＹ　＞　ＭＤＡＹ（ＮＭＯＮＴＨ）　ＴＨＥＮ　ＮＤＡＹ　＝　ＮＤＡＹ　－　ＭＤＡＹ（ＮＭＯＮＴＨ）
  104. ＮＥＸＴ
  105. ＧＣＯＬＯＲ　１４
  106. ＴＸ　＝　２
  107. ＴＹ　＝　２０
  108. Ｘ１　＝　ＴＸ　＊　８　－　４
  109. Ｙ１　＝　ＴＹ　＊　８　－　４
  110. Ｘ２　＝　２５６　－　Ｘ１
  111. Ｙ２　＝　Ｙ１　＋　（８　＋　４）　＊　２
  112. ＧＦＩＬＬ　Ｘ１，　Ｙ１，　Ｘ２，　Ｙ２，　１５
  113. ＧＢＯＸ　Ｘ１，　Ｙ１，　Ｘ２，　Ｙ２
  114. ’－－－
  115. ＬＯＣＡＴＥ　ＴＸ，　ＴＹ
  116. ＰＲＩＮＴ　”シンタイ　　　カンシ゛ョウ　　　チセイ”
  117. Ｙ　＝　ＴＹ　＊　８　＋　４
  118. Ｘ　＝　７　＊　８
  119. ＧＬＩＮＥ　Ｘ，　Ｙ，　Ｘ　＋　８，　Ｙ，　４
  120. Ｘ　＝　１６　＊　８
  121. ＧＬＩＮＥ　Ｘ，　Ｙ，　Ｘ　＋　８，　Ｙ，　２
  122. Ｘ　＝　２２　＊　８
  123. ＧＬＩＮＥ　Ｘ，　Ｙ，　Ｘ　＋　８，　Ｙ，　１１
  124. ＴＹ　＝　ＴＹ　＋　１
  125. ＬＯＣＡＴＥ　ＴＸ，　ＴＹ
  126. ＰＲＩＮＴ　”チュウイヒ゛”
  127. Ｘ１　＝　（ＴＸ　＋　７）　＊　８
  128. Ｙ１　＝　ＴＹ　＊　８
  129. ＧＢＯＸ　Ｘ１，　Ｙ１，　Ｘ１　＋　８，　Ｙ１　＋　８，　２
  130. ＧＣＯＬＯＲ　４
  131. ＢＤＡＹ　＝　２３
  132. ＧＯＳＵＢ　＠ＤＲＡＷＬＩＮＥ
  133. ＧＣＯＬＯＲ　２
  134. ＢＤＡＹ　＝　２８
  135. ＧＯＳＵＢ　＠ＤＲＡＷＬＩＮＥ
  136. ＧＣＯＬＯＲ　１１
  137. ＢＤＡＹ　＝　３３
  138. ＧＯＳＵＢ　＠ＤＲＡＷＬＩＮＥ
  139. ＧＣＯＬＯＲ　１４
  140. Ｘ　＝　ＢＧＬ　＋　ＳＰＣ　－　ＤＡＹＷ　／　２
  141. Ｙ１　＝　ＬＩＮＥＣ　－　ＤＡＹＷ　／　２
  142. Ｙ２　＝　Ｙ１　＋　ＤＡＹＷ
  143. ＦＯＲ　Ｉ　＝　Ｏ　ＴＯ　ＤＲＡＷＤ　－　１
  144. 　ＩＦ　ＤＤＡＹ（Ｉ）　ＴＨＥＮ　ＧＢＯＸ　Ｘ，　Ｙ１，　Ｘ　＋　ＤＡＹＷ，　Ｙ２，　２
  145. 　Ｘ　＝　Ｘ　＋　ＤＡＹＷ
  146. ＮＥＸＴ
  147. ’－－－
  148. ＣＯＬＯＲ　０
  149. ＬＯＣＡＴＥ　０，２３
  150. ＰＲＩＮＴ”А＝モウイチト゛”；
  151. ＠ＬＯＯＰ
  152. ＩＦ　ＢＵＴＴＯＮ（）＝＝１６　ＴＨＥＮ　＠ＳＴＡＲＴ
  153. ＧＯＴＯ　＠ＬＯＯＰ
  155. ’－－－　
  156. ＠ＣＡＬＣＤＡＹ
  157. ＣＤＡＹ　＝　ＤＡＹ
  158. ＩＦ　ＭＯＮ　＝＝　１　ＴＨＥＮ　＠ＪＡＮ
  159. ＦＯＲ　Ｉ　＝　１　ＴＯ　ＭＯＮ　－　１
  160. 　ＣＤＡＹ　＝　ＣＤＡＹ　＋　ＭＤＡＹ（Ｉ　－　１）
  161. ＮＥＸＴ
  162. ’－－－　
  163. ＠ＪＡＮ
  164. ＬＥＡＰ　＝　０
  165. ＩＦ　ＭＯＮ　＞　２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＨＫＬＥＡＰ
  166. ＣＤＡＹ　＝　ＣＤＡＹ　＋　ＬＥＡＰ
  167. ＲＥＴＵＲＮ
  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. ＧＯＴＯ　＠ＩＮＰＵＴＤＡＹ