DO WHILE bedingung=erfüllt
  ...
  DO     
    ...
    IF fehler=aufgetreten then 
      fehlerflag=true    
      EXIT DO                                     'innere Schleife beenden
    END IF
    ...
  LOOP WHILE bedingung=erfüllt
  IF fehlerflag=true then EXIT DO                 'äußere Schleife beenden
  ...
LOOP
if fehlerflag=true THEN GOTO ENDE                 'da, wo ich eigentlich hin 
' will
 
...
 
ende:
END SUB