appxyhelpa0pluslengthxlengthyxyplusx0xplusxsysplusxylengthnil0lengthconsxyslengthyhelpaclyszsifgeclclyszsgex0truege0sxfalsegesxsygexyiftrueclyszsniliffalseclyszshelpbclyszstake0consxxsysxtake0nilconsyysytakescconsxxsystakecxsystakescnilconsyystakecnilyshelpbclyszsconstakecyszshelpasclyszsapp2helpa400plus2length1s1nil0cons2if5ge2true0false0helpb4take3xs0INNERMOST./TRS/SchneiderKamp/trs/otto02.trs