プログラムリスト

SYS/EX3KEYDRUM

トップメニュー「SmileBASICでプログラムを作る」から、LOAD"SYS/EX3KEYDRUM"↵でプログラムが読み込まれます。キーボードの「EDIT」キーを押すと、このプログラムが自由に編集できます。


'
' EXAMPLE3     
' かんい けんばん ドラム 
'
VISIBLE 1,1,1,1
CLS
COLOR 15
SYSBEEP=FALSE  'システムSEをオフ
PRINT"KEYBOARD+DRUMS V3.0"
PRINT
PRINT "     "
PRINT "   SD GHJ L;"
PRINT ""
PRINT "?ZXCVBNM,.'"
PRINT ""
PRINT
PRINT":BASS DRUM"
PRINT":COWBELL"
PRINT":CYMBAL"
PRINT":SNARE DRUM"
PRINT
PRINT":EXIT"

'--- (0-19)
DATA "?"
DATA "Z","S"
DATA "X","D"
DATA "C"
DATA "V","G"
DATA "B","H"
DATA "N","J"
DATA "M"
DATA ",","L"
DATA ".",";"
DATA "'"

'---

KCNT=18
DIM N$[KCNT]
FOR I=0 TO KCNT-1
 READ N$[I]
NEXT

'---
F=100 'ハンオンブン
V=22 'おんしょく

'
'--- 
'
@LOOP

'--- ドラム
B=BUTTON(1)
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
VSYNC 1

'--- 

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-F '?=>B
BEEP V,P
GOTO @LOOP

'---
@EXIT
SYSBEEP=TRUE
END