Karel Timer Statement

Hallo,

hab ein kleines Programm geschrieben, allerdings hängt sich der Vorgang immer wieder auf!
Beim kompilieren des Programmes wird allerdings kein Fehler angezeigt....
Vielleicht kann mir jemand weiterhelfen

PROGRAM TEST
VAR
zeit : INTEGER
success : INTEGER
over : BOOLEAN
BEGIN
zeit = 0

IF (DIN[39] AND NOT DIN[31])THEN
--alles OK
ELSE

CONNECT TIMER TO zeit
REPEAT
IF zeit > 5000 THEN
over = TRUE
ELSE
over = FALSE
ENDIF
SET_INT_REG(9,zeit,success)
UNTIL (DIN[39] AND NOT DIN[31] OR over)
DISCONNECT TIMER zeit
ENDIF
IF zeit > 5000 THEN
WRITE TPERROR ('GROSS',CR)
DOUT[137] = FALSE
ENDIF
WRITE TPERROR('FERTIG',CR)
END TEST

Gruß
Carsten

Dankeschön,

jetzt funktioniert es wie gewünscht!

Gruß
Carsten