- ’┌───────────────────┐
- ’│SAMPLE3 │
- ’│ カンイ「ケンハ゛ン」ト「ト゛ラム」 │
- ’└───────────────────┘
- VISIBLE 1,1,0,0,0,0
- CLS:COLOR 0
- SYSBEEP=FALSE
- PRINT”KEYBOARD+DRUMS v1.00”
- PRINT
- PRINT” ┌─┬─┐ ┌─┬─┬─┐ ┌─┬─┐ ┌─┐”
- PRINT” │A│S│ │F│G│H│ │K│L│ │:│”
- PRINT”┌┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┐”
- PRINT”│’│Z│X│C│V│B│N│M│,│.│/│%│”
- PRINT”└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘”
- PRINT
- PRINT”↑:BASSDRUM”
- PRINT”←:COWBELL”
- PRINT”→:CYMBAL”
- PRINT”↓:SNAREDRUM”
- PRINT
- PRINT”Ф:EXIT”
- ’--- ケンハ゛ン(0-19)
- DATA ”’”,”A”
- DATA ”Z”,”S”
- DATA ”X”
- DATA ”C”,”F”
- DATA ”V”,”G”
- DATA ”B”,”H”
- DATA ”N”
- DATA ”M”,”K”
- DATA ”,”,”L”
- DATA ”.”
- DATA ”/”,”:”
- DATA ”%”
- ’---
- CLEAR
- DIM N$(20)
- KCNT=20
- FOR I=0 TO KCNT-1
- READ N$(I)
- NEXT I
- ’---
- F=4096/12
- V=22
- ’
- ’--- メインル-フ゜
- ’
- @LOOP
- ’--- ト゛ラム
- OLDB=B
- B=BUTTON()
- IF OLDB!=0 GOTO @DSKIP
- IF B AND 1 THEN BEEP 52
- IF B AND 2 THEN BEEP 53
- IF B AND 4 THEN BEEP 62
- IF B AND 8 THEN BEEP 25
- IF B==64 GOTO @EXIT
- @DSKIP
- ’---
- ’--- FOR-NEXT テ゛
- ’--- トチュウカラヌケルト
- ’--- ナイフ゛メモリカ゛ヘルノテ゛
- ’--- GOTO ヲツカッタル-フ゜
- ’---
- K$=INKEY$()
- IF K$==”” GOTO @LOOP
- I=0
- @KLOOP
- IF K$==N$(I) GOTO @PLAY
- I=I+1
- IF I<KCNT GOTO @KLOOP
- GOTO @LOOP
- ’---
- @PLAY
- P=F*(I)-4096
- BEEP V,P
- GOTO @LOOP
- ’---
- @EXIT
- SYSBEEP=TRUE
- END