Die Endlosschleife fehlt. Schreib mal vor das If ein do und hinter das end if ein loop. Wofür is das GOTO 7?