'{$STAMP BS2}
' Simple MIDI out:
HIGH 15 ' power LED on
' declare variables:
i VAR Byte
main:
FOR i = 36 TO 96 ' a good middle range of MIDI notes
SEROUT 9, 12, [144, i, 64]
PAUSE 500
SEROUT 9, 12, [128, i, 0]
NEXT
GOTO main