プチコンmkII

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

  1. ’┌──────────┐
  2. ’│ＳＡＭＰＬＥ７　　　│
  3. ’│　シンリャクミスイ　│
  4. ’└──────────┘
  5. ＶＩＳＩＢＬＥ　１，１，０，０，０，０
  6. ＣＬＳ：ＣＯＬＯＲ　０
  7. ＣＬＥＡＲ
  8. ’ＤＩＭ　？？？
  10. ’－－－
  11. ＰＸ＝１０：ＰＹ＝２１
  12. ＬＯＣＡＴＥ　ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
  13. ＬＯＣＡＴＥ　０，２２
  14. ＰＲＩＮＴ”────────────────────────────────”；
  16. ＠ＬＯＯＰ
  17. 　ＧＯＳＵＢ　＠ＭＹＳＨＩＰ
  18. 　ＶＳＹＮＣ　１
  19. ＧＯＴＯ　＠ＬＯＯＰ
  21. ’－－－　シ゛フ゛ン
  22. ＠ＭＹＳＨＩＰ
  23. Ｂ＝ＢＵＴＴＯＮ（）：ＶＸ＝０
  24. ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　ＶＸ＝－１
  25. ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　ＶＸ＝１
  26. ＩＦ　ＶＸ＝＝０　ＴＨＥＮ　＠ＮＯＴＭＯＶＥ
  27. ＬＯＣＡＴＥ　ＰＸ，ＰＹ：ＰＲＩＮＴ”　”
  28. ＰＸ＝ＰＸ＋ＶＸ
  29. ＩＦ　ＰＸ＜０　ＴＨＥＮ　ＰＸ＝０
  30. ＩＦ　ＰＸ＞３１　ＴＨＥＮ　ＰＸ＝３１
  31. ＬＯＣＡＴＥ　ＰＸ，ＰＹ：ＰＲＩＮＴ”Г”；
  32. ’－－－
  33. ＠ＮＯＴＭＯＶＥ
  34. ＲＥＴＵＲＮ