BEGIN PGM 418 MM 
FN 18: SYSREAD Q0 = ID2000 NR10 IDX4158
FN 9: IF +Q0 EQU +1 GOTO LBL 254
FN 18: SYSREAD Q0 = ID990 NR2 IDX16
FN 9: IF +Q0 EQU +0 GOTO LBL 254
CALL PGM CHECK_MP7295.CYC
Q198 = 418
FN 10: IF +Q303 NE +1 GOTO LBL 10
CALL PGM INIT41X.CYC
LBL 10
CALL PGM INIT.CYC
Q19 = Q320
Q54 = 0 + Q41
Q55 = 90 + Q41
Q56 = 180 + Q41
Q57 = 270 + Q41
FN 12: IF +Q261 LT +Q260 GOTO LBL 130
FN 14: ERROR= 1016
LBL 130
FN 1: Q1 =+Q109 + +1
FN 18: SYSREAD Q0 = ID270 NR1 IDXQ1
FN 11: IF +Q0 GT +Q260 GOTO LBL 120
L  Z+Q260 R0 FQ59
LBL 120
L  X+Q268  Y+Q269 R0 FQ59
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q54
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q1 =+Q141
FN 0: Q2 =+Q142
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q55
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q3 =+Q141
FN 0: Q4 =+Q142
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q56
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q5 =+Q141
FN 0: Q6 =+Q142
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q57
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q7 =+Q141
FN 0: Q8 =+Q142
L  Z+Q260 R0 FQ59
FN 24: Q1 = CDATA Q1
; *** 2. BOHRUNG ************** 
L  X+Q270  Y+Q271 R0 FQ59
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q54
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q11 =+Q141
FN 0: Q12 =+Q142
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q55
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q13 =+Q141
FN 0: Q14 =+Q142
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q56
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q15 =+Q141
FN 0: Q16 =+Q142
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q57
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q17 =+Q141
FN 0: Q18 =+Q142
L  Z+Q260 R0 FQ59
FN 24: Q10 = CDATA Q11
; *** 3. BOHRUNG ************** 
L  X+Q316  Y+Q317 R0 FQ59
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q54
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q21 =+Q141
FN 0: Q22 =+Q142
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q55
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q23 =+Q141
FN 0: Q24 =+Q142
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q56
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q25 =+Q141
FN 0: Q26 =+Q142
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q57
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q27 =+Q141
FN 0: Q28 =+Q142
L  Z+Q260 R0 FQ59
FN 24: Q20 = CDATA Q21
; *** 4. BOHRUNG ************** 
L  X+Q318  Y+Q319 R0 FQ59
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q54
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q31 =+Q141
FN 0: Q32 =+Q142
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q55
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q33 =+Q141
FN 0: Q34 =+Q142
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q56
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q35 =+Q141
FN 0: Q36 =+Q142
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q57
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q37 =+Q141
FN 0: Q38 =+Q142
L  Z+Q260 R0 FQ59
FN 24: Q30 = CDATA Q31
; ** GERADENGLEICHUNGEN 
Q40 = Q20 - Q1 ; A 
Q9 = Q21 - Q2 ; B 
Q42 = Q30 - Q10 ; C 
Q43 = Q31 - Q11 ; D 
Q44 = Q40 / Q9 ; E 
Q45 = Q42 / Q43 ; F 
Q46 = ( Q10 - Q1 + ( Q2 * Q44 ) - ( Q45 * Q11 ) ) / ( Q44 - Q45 )
Q47 = Q1 + ( ( Q20 - Q1 ) * ( ( Q46 - Q2 ) / ( Q21 - Q2 ) ) )
Q45 = Q46
Q46 = Q47
Q47 = Q45
Q31 = Q46
Q32 = Q47
FN 12: IF +Q31 LT +99999.999 GOTO LBL 96
FN 14: ERROR= 1080
LBL 96
FN 12: IF +Q32 LT +99999.999 GOTO LBL 97
FN 14: ERROR= 1080
LBL 97
FN 11: IF +Q31 GT -99999.999 GOTO LBL 98
FN 14: ERROR= 1080
LBL 98
FN 11: IF +Q32 GT -99999.999 GOTO LBL 99
FN 14: ERROR= 1080
LBL 99
Q151 = Q31
Q152 = Q32
FN 10: IF +Q113 NE +1 GOTO LBL 170
Q151 = Q31 / 25.4
Q152 = Q32 / 25.4
LBL 170
CALL PGM PRESET.CYC
FN 17: SYSWRITE ID 990 NR1 =+0
FN 17: SYSWRITE ID 990 NR2 =+0
FN 9: IF +Q381 EQU +0 GOTO LBL 254
TCH PROBE 417 BZPKT TS.-ACHSE ~
Q263=+Q382 ;1. PUNKT 1. ACHSE ~
Q264=+Q383 ;1. PUNKT 2. ACHSE ~
Q294=+Q384 ;1. PUNKT 3. ACHSE ~
Q320=+Q19 ;SICHERHEITS-ABST. ~
Q260=+Q260 ;SICHERE HOEHE ~
Q305=+Q305 ;NR. IN TABELLE ~
Q333=+Q333 ;BEZUGSPUNKT ~
Q303=+Q303 ;MESSWERT-UEBERGABE
LBL 254
Q199 = 0
END PGM 418 MM 
