BEGIN PGM 1 MM 
Q93 = 0
Q94 = 0
Q95 = 0
CALL PGM Val
CALL PGM error
FN 17: SYSWRITE ID 212 =+3
FN 1: Q28 =+Q109 + +1
FN 18: SYSREAD Q28 = ID270 NR1 IDXQ28
;*******VORHALTEABSTAND***********
FN 0: Q40 =+0.6
Q41 = ABS Q22
FN 12: IF +Q41 LT +30 GOTO LBL 12
Q40 = ABS Q22 / 50
FN 12: IF +Q40 LT +7 GOTO LBL 12
FN 0: Q40 =+7
;==============================
LBL 12
FN 12: IF +Q21 LT +0 GOTO LBL 13
Q40 = NEG Q40
LBL 13
CALL PGM tiefe
FN 1: Q30 =+Q109 + +1
FN 18: SYSREAD Q30 = ID270 NR1 IDXQ30
Q41 = Q30 + Q40
FN 9: IF +Q25 EQU +Q27 GOTO LBL 22
L  Z+Q28 R0 FMAX
L  Z+Q41 R0 FMAX
L  Z+Q30 R0 FQ26
FN 12: IF +Q25 LT +Q27 GOTO LBL 13
LBL 22
CYCL DEF 9.0 VERWEILZEIT
CYCL DEF 9.1 V.ZEITQ49
L  Z+Q28 R0 FMAX
END PGM 1 MM 
