プチコンmkII

サンプルプログラム７ (その３)でできたリスト

  1. ’┌──────────┐
  2. ’│ＳＡＭＰＬＥ７　　　│
  3. ’│　シンリャクミスイ　│
  4. ’└──────────┘
  5. ＶＩＳＩＢＬＥ　１，１，０，０，０，０
  6. ＣＬＳ：ＣＯＬＯＲ　０
  7. ＣＬＥＡＲ
  8. ＤＩＭ　ＥＸ（２０），ＥＹ（２０），ＥＤ（２０）

  10. ’－－－
  11. ＥＭＡＸ＝２０
  12. ＦＯＲ　Ｉ＝０　ＴＯ　ＥＭＡＸ－１
  13. 　ＥＸ（Ｉ）＝ＦＬＯＯＲ（Ｉ％１０）＊２
  14. 　ＥＹ（Ｉ）＝ＦＬＯＯＲ（Ｉ／１０）＊２＋３
  15. 　ＥＤ（Ｉ）＝０
  16. 　ＬＯＣＡＴＥ　ＥＸ（Ｉ），ＥＹ（Ｉ）
  17. 　ＰＲＩＮＴ　”Е”
  18. ＮＥＸＴ
  19. ＥＤＷ＝ＦＡＬＳＥ
  20. ’－－－
  21. ＰＸ＝１０：ＰＹ＝２１
  22. ＬＯＣＡＴＥ　ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
  23. ＭＸ＝ＰＸ：ＭＹ＝ＰＹ：ＭＳＴ＝ＦＡＬＳＥ
  24. ＬＯＣＡＴＥ　０，２２
  25. ＰＲＩＮＴ”────────────────────────────────”；

  27. ＠ＬＯＯＰ
  28. 　ＧＯＳＵＢ　＠ＭＹＳＨＩＰ
  29. 　ＧＯＳＵＢ　＠ＭＹＳＨＯＴ
  30. 　ＧＯＳＵＢ　＠ＡＬＩＥＮ
  31. 　ＶＳＹＮＣ　１
  32. ＧＯＴＯ　＠ＬＯＯＰ

  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. ＲＥＴＵＲＮ

  67. ’－－－　シンリャクシャ
  68. ＠ＡＬＩＥＮ
  69. ＭＤ＝ＦＡＬＳＥ
  70. ＩＦ　ＥＤＷ　ＴＨＥＮ　ＭＤ＝ＥＤＷ：ＥＤＷ＝ＦＡＬＳＥ
  71. ’－－－
  72. ＦＯＲ　Ｉ＝０　ＴＯ　ＥＭＡＸ－１
  73. 　ＬＯＣＡＴＥ　ＥＸ（Ｉ），ＥＹ（Ｉ）：ＰＲＩＮＴ”　”
  74. 　ＩＦ　ＭＤ＝＝ＦＡＬＳＥ　ＴＨＥＮ　＠ＥＭＶ
  75. 　’－－－　
  76. 　ＥＤ（Ｉ）＝（ＥＤ（Ｉ）＋１）　ＡＮＤ　３
  77. 　’－－－
  78. 　＠ＥＭＶ
  79. 　ＧＯＳＵＢ　＠ＥＭＯＶＥ
  80. ＮＥＸＴ
  81. ＲＥＴＵＲＮ
  82. ’－－－
  83. ＠ＥＭＯＶＥ
  84. ＯＮ　ＥＤ（Ｉ）　ＧＯＴＯ　＠ＲＩ，＠ＤＷ，＠ＬＦ，＠ＤＷ

  86. ＠ＤＷ
  87. ＥＹ（Ｉ）＝ＥＹ（Ｉ）＋１
  88. ＩＦ　ＥＹ（Ｉ）＞２０　ＴＨＥＮ　ＥＹ（Ｉ）＝３
  89. ＥＤ（Ｉ）＝（ＥＤ（Ｉ）＋１）　ＡＮＤ　３
  90. ＧＯＴＯ　＠ＥＰＵＴ

  92. ＠ＲＩ
  93. ＥＸ（Ｉ）＝ＥＸ（Ｉ）＋１
  94. ＩＦ　ＥＸ（Ｉ）＜３１　ＴＨＥＮ　＠ＥＰＵＴ
  95. ＥＤＷ＝ＴＲＵＥ
  96. ＧＯＴＯ　＠ＥＰＵＴ

  98. ＠ＬＦ
  99. ＥＸ（Ｉ）＝ＥＸ（Ｉ）－１
  100. ＩＦ　ＥＸ（Ｉ）＞０　ＴＨＥＮ　＠ＥＰＵＴ
  101. ＥＤＷ＝ＴＲＵＥ

  103. ＠ＥＰＵＴ
  104. ＬＯＣＡＴＥ　ＥＸ（Ｉ），ＥＹ（Ｉ）
  105. ＰＲＩＮＴ　”Е”
  106. ＲＥＴＵＲＮ