'Z„hlschleife, Version mit WHILE

COLOR 14, 1
CLS

Zaehler = 0
DO
 PRINT "Schleife wird zum"; Zaehler; ". Mal durchlaufen."
 Zaehler = Zaehler + 1
LOOP WHILE Zaehler < 10
PRINT "Wert des Schleifenz„hlers ist"; Zaehler; "=> PROGRAMMABBRUCH."