Tried THIS ???
...

Vsnd var byte [4]

Vsnd[0] = 121
Vsnd[1] = 120
Vsnd[2] = 119
Vsnd[3] = 116

FOR A = 0 to 3
SOUND Speaker,[Vsnd[A],10]
NEXT A

...

Alain