B4R Question Convert code snippet to B4R

[Eme Fibonacci]

please, How to convert this code in C for B4R?

void putByte(byte data) {
  byte i = 8;
  byte mask;
  while(i > 0) {
    mask = 0x01 << (i - 1);      // get bitmask
    digitalWrite( clock, LOW);   // tick
    if (data & mask){            // choose bit
      digitalWrite(dataIn, HIGH);// send 1
    }else{
      digitalWrite(dataIn, LOW); // send 0
    }
    digitalWrite(clock, HIGH);   // tock
    --i;                         // move to lesser bit
  }
}

Thank you.

 

[Erel]

For i = 7 To 0 Step -1
 Clock.DigitalWrite (False)
 Dim value As Boolean
 If Bit.Get(Data, i) = 1 Then value = True Else Value = False
 Pin.DigitalWrite (value)
 Clock.DigitalWrite (True)
Next