//Comment extraire la valeur binaire d'un nombre [0 ou 1] et l'afficher par groupe de 4
integer iChan = 66; //canal pour passer le nombre entier en entrée

string gkInteger2Binary(integer iVal)
{
integer iGroup = 4; //c'est le nombre de chiffres binaires par groupe
integer iLong = 32; //c'est le type d'entier 64, 32 ou 16 bits
integer x; integer y; //itérateurs
string sMess; //pour y ranger les 0 et 1
y = 0;
for(x = 0; x < 32; ++x)
{
//Le & permet d'extraire le chiffre binaire situé à une position calculée
//en élevant 2 à la puissance donnant la position du chiffre binaire en
//partant de la droite (à partir de 0)
//sMess contiendra la structure binaire de iVal, mais comme les chiffres binaires
//sont détectés de la droite vers la gauche, cela explique la curieuse concaténation ;
//ainsi le 0 ou le 1 sera ajouté à gauche de ce que contient déjà sMess
if(iVal & (integer)(llPow((float)2.0, x)))
{
sMess = "1" + sMess;
}
else
{
sMess = "0" + sMess;
}
y = y + 1;
if(y >= 4)
{
sMess = " " + sMess;
y = 0;
}
}
return sMess;
}
default
{
state_entry()
{
llSay(0, "Entrer un nombre entier (signé ou non) : /" + (string)iChan + " nnnnnnnnnnn");
llListen(iChan, "", NULL_KEY, "");
}

listen(integer iChanel, string sName, key kId, string sMessage)
{
llSay(0, sMessage + " ===> " + gkInteger2Binary((integer)sMessage));
}
}