プチコン

  1. ’┌───────────────────┐
  2. ’│SAMPLE3            │
  3. ’│ カンイ「ケンハ゛ン」ト「ト゛ラム」 │
  4. ’└───────────────────┘
  5. VISIBLE 1,1,0,0,0,0
  6. CLS:COLOR 0
  7. SYSBEEP=FALSE
  8. PRINT”KEYBOARD+DRUMS v1.00”
  9. PRINT
  10. PRINT” ┌─┬─┐ ┌─┬─┬─┐ ┌─┬─┐ ┌─┐”
  11. PRINT” │A│S│ │F│G│H│ │K│L│ │:│”
  12. PRINT”┌┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┐”
  13. PRINT”│’│Z│X│C│V│B│N│M│,│.│/│%│”
  14. PRINT”└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘”
  15. PRINT
  16. PRINT”↑:BASSDRUM”
  17. PRINT”←:COWBELL”
  18. PRINT”→:CYMBAL”
  19. PRINT”↓:SNAREDRUM”
  20. PRINT
  21. PRINT”Ф:EXIT”
  22. ’--- ケンハ゛ン(0-19)
  23. DATA ”’”,”A”
  24. DATA ”Z”,”S”
  25. DATA ”X”
  26. DATA ”C”,”F”
  27. DATA ”V”,”G”
  28. DATA ”B”,”H”
  29. DATA ”N”
  30. DATA ”M”,”K”
  31. DATA ”,”,”L”
  32. DATA ”.”
  33. DATA ”/”,”:”
  34. DATA ”%”
  35. ’---
  36. CLEAR
  37. DIM N$(20)
  38. KCNT=20
  39. FOR I=0 TO KCNT-1
  40.  READ N$(I)
  41. NEXT I
  42. ’---
  43. F=4096/12
  44. V=22
  45. ’--- メインル-フ゜
  46. @LOOP
  47. ’--- ト゛ラム
  48. OLDB=B
  49. B=BUTTON()
  50. IF OLDB!=0 GOTO @DSKIP
  51. IF B AND 1 THEN BEEP 52
  52. IF B AND 2 THEN BEEP 53
  53. IF B AND 4 THEN BEEP 62
  54. IF B AND 8 THEN BEEP 25
  55. IF B==64 GOTO @EXIT
  56. @DSKIP
  57. ’---
  58. ’--- FOR-NEXT テ゛
  59. ’--- トチュウカラヌケルト
  60. ’--- ナイフ゛メモリカ゛ヘルノテ゛
  61. ’--- GOTO ヲツカッタル-フ゜
  62. ’--- 
  63. K$=INKEY$()
  64. IF K$==”” GOTO @LOOP
  65. I=0
  66. @KLOOP
  67.  IF K$==N$(I) GOTO @PLAY
  68.  I=I+1
  69. IF I<KCNT GOTO @KLOOP
  70. GOTO @LOOP
  71. ’---
  72. @PLAY
  73. P=F*(I)-4096
  74. BEEP V,P
  75. GOTO @LOOP
  76. ’---
  77. @EXIT
  78. SYSBEEP=TRUE
  79. END