
  uses minwin
  uses minmidi

  def MM midiOutShortMsg hMidi, 0X%1
  def MT sleep

  sys hMidi
  int er=midiOutOpen(hMidi, 0, 0, 0, CALLBACK_NULL) ' 0=synth a 2=soft synth
  MM 0xff     'reset
  MM 0x79B0   'reset all controllers
 
  'MM 0000C0 'PROG PIANO
  'CHANNEL 09 PROG PERCUSSION
  'MM 000EC0 'PROG TUBULAR BELLS
 int c1,c2,c3
 int i,J
  do
    if getasynckeystate 27
      exit do
    endif
    MM 4007B9 'VOL
    MM 400AB9 'PAN
    MM 452399 'NOTE ON
    MT 100
    MM 452399 'NOTE ON
    MT 100
    for i=1 to 6
      MT 100
      MM 452599 'NOTE ON
    next
    MT 100
    MM 452799 'NOTE ON
    MT 250
    MM 452799 'NOTE ON
    MT 450
  loop
  MT 500

  MT 3000


  midiOutClose(hMidi)
 
