\ sound 98.2.22 4:15 am 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 ;