Code:
Ir_code_6666us

For I = 0 To 7
 If Wert.7 = 0 Then
     Wait 833us
     Ir_code_833us
 Else
    Wait 3333us
    Ir_code_833us
 End If
 Rotate Wert , Left , 1

Next