Publié : mer. 19/avr./2006 19:46
KarLKoX a écrit :Aaahhh Jester ... un des mes zikos préférés

Forums PureBasic - Français
http://forums.purebasic.com/french/
KarLKoX a écrit :Aaahhh Jester ... un des mes zikos préférés
Code : Tout sélectionner
Procedure.a Ror(valeur.a)
ProcedureReturn ((valeur >> 1) & %01111111) + ((valeur << 7) & %10000000)
EndProcedure