@Sauer:

Man braucht eine weitere Variable zum Abzählen der Schleifen - und das ist in meinem Fall C
Unter Do...Loop until wär's das selbe.