include bamplay.e
include midi2bam.e

------------------------------------------------------------------------

--constant false=0
constant true=1
constant stdout=1

------------------------------------------------------------------------

--test the midi-converter

integer vol,key

if load_midi_file("simon2.mid") then
  printf(stdout,"load sucessful\n",{})
  --begin main loop
  while true do
    
    --read the keyboard
    key=get_key()
   
    --break the loop if any key is pressed
    if key>=0 then
      if key='-' then
        vol=large(get_fm_vol()-2,0)
        set_fm_vol(vol)
        printf(stdout,"volume down to %d\n",{vol})
      elsif key='+' then
        vol=small(get_fm_vol()+2,15)
        set_fm_vol(vol)
        printf(stdout,"volume up to %d\n",{vol})
      else  
        exit
      end if
    end if

    advance_bam()

  end while  
  
else  
  printf(stdout,"load failed\n",{})
end if