Try Parsing "accept.txt"

State of parser when error occurs:
Stack: KRthenLOendifM$
Input: thenid:=celsewhilec<c+iddoid:=idendendif$
T: K I: then