プチコンmkII

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

  1. ’┌──────────┐
  2. ’│ＳＡＭＰＬＥ７　　　│
  3. ’│　シンリャクミスイ　│
  4. ’└──────────┘
  5. ＶＩＳＩＢＬＥ　１，１，０，０，０，０
  6. ＣＬＳ：ＣＯＬＯＲ　０
  7. ＣＬＥＡＲ
  8. ’ＤＩＭ　？？？
  10. ’－－－
  11. ＰＸ＝１０：ＰＹ＝２１
  12. ＬＯＣＡＴＥ　ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
  13. ＭＸ＝ＰＸ：ＭＹ＝ＰＹ：ＭＳＴ＝ＦＡＬＳＥ
  14. ＬＯＣＡＴＥ　０，２２
  15. ＰＲＩＮＴ”────────────────────────────────”；
  17. ＠ＬＯＯＰ
  18. 　ＧＯＳＵＢ　＠ＭＹＳＨＩＰ
  19. 　ＧＯＳＵＢ　＠ＭＹＳＨＯＴ
  20. 　ＶＳＹＮＣ　１
  21. ＧＯＴＯ　＠ＬＯＯＰ
  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. ＲＥＴＵＲＮ