プチコンまとめWiki (初代/mkII)

投稿プログラム : TENORI-MV

パンくずリスト

2012年01月06日投稿

/ 投稿者：バイカウントメルビル / タグ : 投稿プログラム 音楽 電子楽器 初代対応 QRコード / 検索用→【メルビル】

はじめに

このプログラムは、shiroさんのプログラム『TENORI-COM』を改造したものとなっています。 TENORI-COMの元ネタはヤマハです。

概要

shiroさんのプログラムに、保存や、読み込み機能を付けたプログラムです。

スクリーンショット・動画

今のところ特にありません。

QR コード

プチコンmkII 向けの QR コードです。

1/22/2
qr0.pngqr1.png

プログラムリスト

  1. ’───　ショキカショリ　───
  2. ＶＩＳＩＢＬＥ　１，１，０，０，０，１
  3. ＰＮＬＴＹＰＥ　”ＯＦＦ”ＧＰＡＧＥ　１ＣＯＬＯＲ　０
  5. ’───　　リセット　　　───
  6. ＠ＳＴ
  7. ＣＬＥＡＲ：ＧＣＬＳ　０：ＣＬＳ
  8. ＤＩＭ　Ｌ（３２，２４），Ｃ＄（２）
  9. Ｃ＄（０）＝”○”：Ｃ＄（１）＝”●”
  10. ＧＯＳＵＢ＠ＳＣ
  11. ？”А・・・ショキカ”
  12. ？”Ф・・・ホソ゛ン　Х・・・ヨミコミ”
  14. ’───　メインルーフ゜　───
  15. ＠ＬＰ
  16. ＦＯＲ　Ｘ＝０　ＴＯ　３１
  17. 　ＧＦＩＬＬ　Ｘ＊８，０，Ｘ＊８＋６，１９１，６
  18. 　ＦＯＲ　Ｙ＝０　ＴＯ　２３
  19. 　　ＩＦ　Ｌ（Ｘ，Ｙ）　ＴＨＥＮ　ＢＥＥＰ　０，（２０−Ｙ）＊４０９６／１２
  20. 　　Ｂ＝ＢＵＴＴＯＮ（）
  21. 　　ＩＦ　Ｂ　ＡＮＤ　１６　ＴＨＥＮ　Ｙ＝２３：ＮＥＸＴ　Ｙ：Ｘ＝３１：ＮＥＸＴ　Ｘ：ＧＯＴＯ＠ＳＴ
  22. 　　ＩＦ　Ｂ　ＡＮＤ　３２　ＴＨＥＮ　ＧＯＳＵＢ＠ＳＶ
  23. 　　ＩＦ　Ｂ　ＡＮＤ　１２８　ＴＨＥＮ　ＧＯＳＵＢ＠ＬＤ
  24. 　　ＧＯＳＵＢ＠ＴＩ
  25. 　ＮＥＸＴ　Ｙ
  26. 　ＧＯＳＵＢ＠ＳＣ：ＧＯＳＵＢ＠ＴＩ：ＧＯＳＵＢ＠ＳＣ
  27. 　ＧＦＩＬＬ　Ｘ＊８，０，Ｘ＊８＋６，１９１，０
  28. ＮＥＸＴ　Ｘ
  29. ＧＯＴＯ　＠ＬＰ
  31. ’───　タッチハンテイ　───
  32. ＠ＴＩ
  33. ＩＦ　ＴＣＨＳＴ＝＝ＦＡＬＳＥ　ＴＨＥＮ　Ｔ０＝ＦＡＬＳＥ：ＲＥＴＵＲＮ
  34. ＩＦ　Ｔ０　ＴＨＥＮ　ＲＥＴＵＲＮ
  35. ＴＸ＝ＦＬＯＯＲ（ＴＣＨＸ／８）
  36. ＴＹ＝ＦＬＯＯＲ（ＴＣＨＹ／８）
  37. Ｌ（ＴＸ，ＴＹ）＝１−Ｌ（ＴＸ，ＴＹ）
  38. Ｔ０＝ＴＲＵＥ
  39. ＲＥＴＵＲＮ
  41. ’───シタカ゛メンニカク───
  42. ＠ＳＣ
  43. ＦＯＲ　Ｊ＝０　ＴＯ　２３
  44. 　ＦＯＲ　Ｉ＝０　ＴＯ　３１
  45. 　　ＰＮＬＳＴＲ　Ｉ，Ｊ，Ｃ＄（Ｌ（Ｉ，Ｊ））　
  46. 　ＮＥＸＴ　Ｉ
  47. ＮＥＸＴ　Ｊ
  48. ＲＥＴＵＲＮ
  50. ’───　　　セーフ゛　　───
  51. ＠ＳＶ
  52. ＩＮＰＵＴ”ホソ゛ンスルナマエハ”；ＳＶ＄
  53. ＭＥＭ＄＝””
  54. ＦＯＲ　ＳＹ＝０　ＴＯ　２３
  55. 　ＦＯＲ　ＳＸ＝０　ＴＯ　３１　ＳＴＥＰ　８
  56. 　　Ｓ＝０
  57. 　　ＩＦ　Ｌ（ＳＸ＋０，ＳＹ）＝＝ＴＲＵＥ　ＴＨＥＮ　Ｓ＝Ｓ＋１
  58. 　　ＩＦ　Ｌ（ＳＸ＋１，ＳＹ）＝＝ＴＲＵＥ　ＴＨＥＮ　Ｓ＝Ｓ＋２
  59. 　　ＩＦ　Ｌ（ＳＸ＋２，ＳＹ）＝＝ＴＲＵＥ　ＴＨＥＮ　Ｓ＝Ｓ＋４
  60. 　　ＩＦ　Ｌ（ＳＸ＋３，ＳＹ）＝＝ＴＲＵＥ　ＴＨＥＮ　Ｓ＝Ｓ＋８
  61. 　　ＩＦ　Ｌ（ＳＸ＋４，ＳＹ）＝＝ＴＲＵＥ　ＴＨＥＮ　Ｓ＝Ｓ＋１６
  62. 　　ＩＦ　Ｌ（ＳＸ＋５，ＳＹ）＝＝ＴＲＵＥ　ＴＨＥＮ　Ｓ＝Ｓ＋３２
  63. 　　ＩＦ　Ｌ（ＳＸ＋６，ＳＹ）＝＝ＴＲＵＥ　ＴＨＥＮ　Ｓ＝Ｓ＋６４
  64. 　　ＩＦ　Ｌ（ＳＸ＋７，ＳＹ）＝＝ＴＲＵＥ　ＴＨＥＮ　Ｓ＝Ｓ＋１２８
  65. 　　ＭＥＭ＄＝ＭＥＭ＄＋ＣＨＲ＄（Ｓ）
  66. 　ＮＥＸＴ　ＳＸ
  67. ＮＥＸＴ　ＳＹ
  68. ＳＡＶＥ”ＭＥＭ：”＋ＳＶ＄
  69. ＲＥＴＵＲＮ
  71. ’───　　　ロート゛　　───
  72. ＠ＬＤ
  73. ＩＮＰＵＴ”ヨミコムナマエ”；ＬＤ＄
  74. ＬＯＡＤ”ＭＥＭ：”＋ＬＤ＄
  75. ＦＯＲ　Ｉ＝０　ＴＯ　９５
  76. 　Ｌ＝ＡＳＣ（ＭＩＤ＄（ＭＥＭ＄，Ｉ，１））
  77. 　ＩＦ　Ｌ　ＡＮＤ　１　ＴＨＥＮ　Ｌ（Ｉ％４＊８＋０，ＦＬＯＯＲ（Ｉ／４））＝ＴＲＵＥ
  78. 　ＩＦ　Ｌ　ＡＮＤ　２　ＴＨＥＮ　Ｌ（Ｉ％４＊８＋１，ＦＬＯＯＲ（Ｉ／４））＝ＴＲＵＥ
  79. 　ＩＦ　Ｌ　ＡＮＤ　４　ＴＨＥＮ　Ｌ（Ｉ％４＊８＋２，ＦＬＯＯＲ（Ｉ／４））＝ＴＲＵＥ
  80. 　ＩＦ　Ｌ　ＡＮＤ　８　ＴＨＥＮ　Ｌ（Ｉ％４＊８＋３，ＦＬＯＯＲ（Ｉ／４））＝ＴＲＵＥ
  81. 　ＩＦ　Ｌ　ＡＮＤ　１６　ＴＨＥＮ　Ｌ（Ｉ％４＊８＋４，ＦＬＯＯＲ（Ｉ／４））＝ＴＲＵＥ
  82. 　ＩＦ　Ｌ　ＡＮＤ　３２　ＴＨＥＮ　Ｌ（Ｉ％４＊８＋５，ＦＬＯＯＲ（Ｉ／４））＝ＴＲＵＥ
  83. 　ＩＦ　Ｌ　ＡＮＤ　６４　ＴＨＥＮ　Ｌ（Ｉ％４＊８＋６，ＦＬＯＯＲ（Ｉ／４））＝ＴＲＵＥ
  84. 　ＩＦ　Ｌ　ＡＮＤ　１２８　ＴＨＥＮ　Ｌ（Ｉ％４＊８＋７，ＦＬＯＯＲ（Ｉ／４））＝ＴＲＵＥ
  85. ＮＥＸＴ
  86. ＲＥＴＵＲＮ

セーブとロードの短縮

  1. ’───　　　セーフ゛　　───
  2. ＠ＳＶ
  3. ＦＯＲ　Ｌ＝１　ＴＯ　１
  4. ＩＮＰＵＴ”ホソ゛ンスルナマエハ”；ＮＭ＄
  5. ＧＯＳＵＢ　＠ＣＨＫＮＡＭＥ
  6. ＮＥＸＴ
  7. ＭＥＭ＄＝””
  8. ＦＯＲ　ＳＹ＝０　ＴＯ　２３
  9. 　ＦＯＲ　ＳＸ＝０　ＴＯ　３１　ＳＴＥＰ　８
  10. 　　Ｄ＝１：Ｓ＝０
  11. 　　ＦＯＲ　Ｚ＝０　ＴＯ　７
  12. 　　　ＩＦ　Ｌ（ＳＸ＋Ｚ，ＳＹ）＝＝ＴＲＵＥ　ＴＨＥＮ　Ｓ＝Ｓ＋Ｄ
  13. 　　　Ｄ＝Ｄ＋Ｄ　’Ｄ＝Ｄ＊２
  14. 　　ＮＥＸＴ　Ｚ
  15. 　　ＭＥＭ＄＝ＭＥＭ＄＋ＣＨＲ＄（Ｓ）
  16. 　ＮＥＸＴ　ＳＸ
  17. ＮＥＸＴ　ＳＹ
  18. ＳＡＶＥ”ＭＥＭ：”＋ＮＭ＄
  19. ＲＥＴＵＲＮ
  21. ’───　　　ロート゛　　───
  22. ＠ＬＤ
  23. ＦＯＲ　Ｌ＝１　ＴＯ　１
  24. ＩＮＰＵＴ”ヨミコムナマエ”；ＮＭ＄
  25. ＧＯＳＵＢ＠ＣＨＫＮＡＭＥ
  26. ＮＥＸＴ
  27. ＬＯＡＤ”ＭＥＭ：”＋ＮＭ＄
  28. ＩＦ　ＲＥＳＵＬＴ！＝１　ＯＲ　ＬＥＮ（ＭＥＭ＄）！＝９６　ＴＨＥＮ　ＲＥＴＵＲＮ
  29. ＦＯＲ　Ｉ＝０　ＴＯ　９５
  30. 　Ｌ＝ＡＳＣ（ＭＩＤ＄（ＭＥＭ＄，Ｉ，１））：Ｄ＝１
  31. 　ＦＯＲ　Ｚ＝０　ＴＯ　７
  32. 　　ＩＦ　Ｌ　ＡＮＤ　Ｄ　ＴＨＥＮ　Ｌ（Ｉ％４＊８＋Ｚ，ＦＬＯＯＲ（Ｉ／４））＝ＴＲＵＥ
  33. 　　’Ｌ（Ｉ％４＊８＋Ｚ，Ｉ／４）＝（Ｌ　ＡＮＤ　Ｄ）！＝０
  34. 　　Ｄ＝Ｄ＋Ｄ　’Ｄ＝Ｄ＊２
  35. 　ＮＥＸＴ
  36. ＮＥＸＴ
  37. ＲＥＴＵＲＮ
  39. ’────ネームチェック───
  40. ＠ＣＨＫＮＡＭＥ
  41. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＮＭ＄）−１
  42. 　ＦＯＲ　Ｊ＝０　ＴＯ　３６
  43. 　　Ｍ＄＝ＣＨＲ＄（４８＋Ｊ＋（Ｊ＞９）＊７＋（Ｊ＞３５）＊４）
  44. 　　ＩＦ　ＭＩＤ＄（ＮＭ＄，Ｉ，１）＝＝Ｍ＄　ＴＨＥＮ　Ｆ＝１
  45. 　ＮＥＸＴ
  46. 　Ｌ＝Ｌ　ＡＮＤ　Ｆ：Ｆ＝０
  47. ＮＥＸＴ
  48. Ｌ＝Ｌ　ＡＮＤ　（ＬＥＮ（ＮＭ＄）＜＝８　ＡＮＤ　ＬＥＮ（ＮＭ＄）＞＝１）
  49. ＲＥＴＵＲＮ

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • 名無しさん : これは楽譜の保存と読み出しが利くので嬉しいです。 (2012/01/16 (月) 22:59:15)
  • RND 128 : 29行目 GOTO忘れ。 (2012/01/17 (火) 01:56:10)
  • RND 128 : 56~63,76~83は改良次第で短縮可能。 (2012/01/17 (火) 02:01:20)
  • バイカウントメルビル : 指摘ありがとうございます(*^_^*) (2012/01/17 (火) 20:12:28)
  • RND 128 : セーブとロード部分の短縮をしてもいいですか？ (2012/01/29 (日) 00:57:37)
  • バイカウントメルビル : ↑どうぞどうぞ (2012/01/29 (日) 10:21:12)
  • RND 128 : エラーを防ぐネームチェック機能も入れときました。 (2012/01/29 (日) 14:30:34)
  • バイカウントメルビル : ありがとうございますｍ（__）ｍ (2012/02/11 (土) 21:24:05)
  • 名無しさん : QRじゃないときつい(汗) (2012/03/24 (土) 21:04:45)
  • ジオライド : QRコード載せました。名前はTENORIです。 (2012/03/25 (日) 02:22:17)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.108 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:10 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30