\ sound 98.2.22 NAB

: SystemSound ( soundID --) 
  >byte SndPlaySystemSound ;

: SndOldDoCmd ( &sndcmd -- err)
  0  rot rot  0 0  SndDoCmd drop ;

create sndcmd 1 >byte , 0 , 0 , 0 , 0 ,

: sound ( vol0..64  ms  hz --)
   sndcmd 2 cells + !  \ hz
   sndcmd 3 cells + !  \ ms
   sndcmd 4 cells + !  \ vol
   sndcmd >abs  SndOldDoCmd ;
