Übersetzen von C in PHP

[Charlie]

Aloa,

wer kann mir folgenden Code in PHP übersetzen:

i : = 4;
DO WHILE KONTO (i) = 0
i : = i + 1;
END;
C2 : = i mod 2;
D2 : = 0;
A5 : = 0;
DO WHILE i < 10
CASE KONTO (i) OF
0:
KONTO (i) : = 5;
1:
KONTO (i) : = 6;
5:
KONTO (i) : = 10;
6:
KONTO (i) : = 1;
END;
Seite 42
Kennziffer Berechnungsmethode für Prüfziffern
noch
87
IF C2 = D2 THEN
BEGIN
IF KONTO (i) > 5 THEN
BEGIN
IF C2 = 0 AND D2 = 0 THEN
BEGIN
C2 : = 1;
D2 : = 1;
A5 : = A5 + 6 - (KONTO (i) - 6);
END ELSE
BEGIN
C2 : = 0;
D2 : = 0;
A5 : = A5 + KONTO (i);
END
END ELSE
BEGIN
IF C2 = 0 AND D2 = 0 THEN
BEGIN
C2 : = 1;
A5 : = A5 + KONTO (i);
END ELSE
BEGIN
C2 : = 0
A5 : = A5 + KONTO (i);
END
END;
END ELSE
BEGIN
IF KONTO (i) > 5 THEN
BEGIN
IF C2 = 0 THEN
BEGIN
C2 : = 1;
D2 : = 0;
A5 : = A5 - 6 + (KONTO (i) - 6);
END ELSE
BEGIN
C2 : = 0;
D2 : = 1;
A5 : = A5 - KONTO (i);
END
END ELSE
BEGIN
IF C2 = 0 THEN
BEGIN
C2 : = 1;
A5 : = A5 - KONTO (i);
END ELSE
BEGIN
C2 := 0;
A5 := A5 - KONTO (i);
END
END;
END;
i := i + 1;
END
Seite 43
Kennziffer Berechnungsmethode für Prüfziffern
noch
87
DO WHILE A5 < 0 OR A5 > 4
IF A5 > 4 THEN
BEGIN
A5 := A5 - 5;
END ELSE
BEGIN
A5 := A5 + 5;
END
END;
IF D2 = 0 THEN
BEGIN
P := TAB1 (A5);
END ELSE
BEGIN
P := TAB2 (A5);
END
IF P = KONTO (10) THEN
BEGIN
Prüfziffer OK;
END ELSE
BEGIN
IF KONTO (4) = 0 THEN
BEGIN
IF P > 4 THEN
BEGIN
P := P - 5;
END ELSE
BEGIN
P := P + 5;
END
IF P = KONTO (10) THEN
BEGIN
Prüfziffer OK;
END
END;
END

danke+lg
Charlie