プチコン

  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. ’--- メインル-フ゜
  47. ’
  48. @LOOP
  49. ’--- ト゛ラム
  50. OLDB=B
  51. B=BUTTON()
  52. IF OLDB!=0 GOTO @DSKIP
  53. IF B AND 1 THEN BEEP 52
  54. IF B AND 2 THEN BEEP 53
  55. IF B AND 4 THEN BEEP 62
  56. IF B AND 8 THEN BEEP 25
  57. IF B==64 GOTO @EXIT
  58. @DSKIP
  59. ’---
  60. ’--- FOR-NEXT テ゛
  61. ’--- トチュウカラヌケルト
  62. ’--- ナイフ゛メモリカ゛ヘルノテ゛
  63. ’--- GOTO ヲツカッタル-フ゜
  64. ’--- 
  65. K$=INKEY$()
  66. IF K$==”” GOTO @LOOP
  67. I=0
  68. @KLOOP
  69.  IF K$==N$(I) GOTO @PLAY
  70.  I=I+1
  71. IF I<KCNT GOTO @KLOOP
  72. GOTO @LOOP
  73. ’---
  74. @PLAY
  75. P=F*(I)-4096
  76. BEEP V,P
  77. GOTO @LOOP
  78. ’---
  79. @EXIT
  80. SYSBEEP=TRUE
  81. END