Voici un exemple de code :
PROCEDURE RegleSon(NiveauVolume)
// le paramètre xxVolume est un entier court et doit être comprise entre 1 et 100
Res est un entier
SonStereo est compose de
CoteGauche est un entier sans signe
CoteDroit est un entier sans signe
FIN
SonStereo.CoteGauche = 65535 * NiveauVolume / 100
SonStereo.CoteDroit = SonStereo.CoteGauche
Transfert(&Res, &SonStereo, 4)
MCIVolume("WAV", Res)