subroutine tone(note,octave,level)
!  TONE        SUBROUTINE  AUDIO       C.AUDIO     SBP         98.05.29
!tpl  call tone(note,oct,level) !CR tone alarm 1-12, 5-8, 1-3
!  scale is a=440, us standard
!  1=c7 12=b7
!  exclude non-sine Timbre  for now
implicit none
integer scale(0:15),timbre(0:7),note,octave,level,sote,timb

data timbre/0,'50000'o,'60000'o,'70000'o,'40000'o, &
   '30000'o,'20000'o,'10000'o/
data scale/2093,2093,2217,2349,2489,2637,2794,2960,3136,3322, &
   3520,3729,4*3951/
sote=ishft(scale(note.and.15),-8+octave) !note
timb=timbre(level.and.7) !level and type mask
call vxputnm('AUDIO_OUTPUT',1,2,(sote.and.'7777'o).or.timb) !SYN/CESR

end