'{$STAMP BS2}
' multitone midi out
HIGH 15 ' power LED on
' declare variables:
main:
SEROUT 9, 12, [ 146, 69, 64] 'note on middle c medium velocity
PAUSE 500
SEROUT 9, 12, [146, 69, 0] ' note on middle c 0 velocity (same as note off)
SEROUT 9, 12, [ 144, 79, 64] 'note on middle c medium velocity
PAUSE 400
SEROUT 9, 12, [144, 79, 0] ' note on middle c 0 velocity (same as note off)
SEROUT 9, 12, [147, 69, 64] 'note on middle c medium velocity
pause 200
SEROUT 9, 12, [147, 69, 0] ' note on middle c 0 velocity (same as note off)
GOTO main