BEGIN PGM 412 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 = 412
FN 10: IF +Q303 NE +1 GOTO LBL 10
CALL PGM INIT41X.CYC
LBL 10
CALL PGM INIT.CYC
Q19 = Q320
FN 10: IF +Q247 NE +0 GOTO LBL 104
FN 14: ERROR= 1066
LBL 104
FN 11: IF +Q247 GT +4.9999 GOTO LBL 105
FN 12: IF +Q247 LT -4.9999 GOTO LBL 105
FN 14: ERROR= 1067
LBL 105
Q320 = Q320 + Q2 + Q3
FN 0: Q9 =+0
Q5 = ( Q262 / 2 ) - Q320
FN 11: IF +Q5 GT +0 GOTO LBL 12
FN 0: Q5 =+0
LBL 12
Q10 = Q325 + Q41
FN 12: IF +Q261 LT +Q260 GOTO LBL 130
FN 0: Q260 =+Q261
FN 0: Q301 =+0
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
CC  X+Q321  Y+Q322
LP  PR+Q5  PA+Q325 R0 FQ59
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q10
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q27 =+Q141
FN 0: Q28 =+Q142
FN 1: Q10 =+Q10 + +Q247
FN 9: IF +Q5 EQU +0 GOTO LBL 23
FN 9: IF +Q301 EQU +0 GOTO LBL 21
L  Z+Q260 R0 FQ59
; Abfrage der Verfahrart dazu
FN 9: IF +Q365 EQU +1 GOTO LBL 21
LP  PR+Q5 IPA+Q247 R0 FQ59
FN 9: IF +0 EQU +0 GOTO LBL 23
; Ende Verfahrart
LBL 21
FN 12: IF +Q247 LT +0 GOTO LBL 22
CP IPA+Q247 DR+ R0 FQ59
FN 9: IF +0 EQU +0 GOTO LBL 23
LBL 22
CP IPA+Q247 DR- R0 FQ59
LBL 23
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q10
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q25 =+Q141
FN 0: Q26 =+Q142
FN 1: Q10 =+Q10 + +Q247
FN 9: IF +Q5 EQU +0 GOTO LBL 26
FN 9: IF +Q301 EQU +0 GOTO LBL 24
L  Z+Q260 R0 FQ59
; Abfrage der Verfahrart dazu
FN 9: IF +Q365 EQU +1 GOTO LBL 24
LP  PR+Q5 IPA+Q247 R0 FQ59
FN 9: IF +0 EQU +0 GOTO LBL 26
; Ende Verfahrart
LBL 24
FN 12: IF +Q247 LT +0 GOTO LBL 25
CP IPA+Q247 DR+ R0 FQ59
FN 9: IF +0 EQU +0 GOTO LBL 26
LBL 25
CP IPA+Q247 DR- R0 FQ59
LBL 26
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q10
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q23 =+Q141
FN 0: Q24 =+Q142
; Nur 3 Messpunkte
FN 9: IF +Q423 EQU +3 GOTO LBL 50
FN 1: Q10 =+Q10 + +Q247
FN 9: IF +Q5 EQU +0 GOTO LBL 29
FN 9: IF +Q301 EQU +0 GOTO LBL 27
L  Z+Q260 R0 FQ59
; Abfrage der Verfahrart dazu
FN 9: IF +Q365 EQU +1 GOTO LBL 27
LP  PR+Q5 IPA+Q247 R0 FQ59
FN 9: IF +0 EQU +0 GOTO LBL 29
; Ende Verfahrart
LBL 27
FN 12: IF +Q247 LT +0 GOTO LBL 28
CP IPA+Q247 DR+ R0 FQ59
FN 9: IF +0 EQU +0 GOTO LBL 29
LBL 28
CP IPA+Q247 DR- R0 FQ59
LBL 29
TCH PROBE 1.0 BEZUGSPUNKT POLAR
TCH PROBE 1.1 X WINKEL:+Q10
TCH PROBE 1.2  Z+Q261
CALL PGM SUB_POSREAD.CYC
FN 0: Q21 =+Q141
FN 0: Q22 =+Q142
LBL 50
L  Z+Q260 R0 FQ59
FN 10: IF +Q423 NE +3 GOTO LBL 51
; Kreisberechnung aus 3 Pkt
FN 23: Q31 = CDATA Q23
FN 9: IF +0 EQU +0 GOTO LBL 52
LBL 51
; Kreisberechnung aus 4 Pkt
FN 24: Q31 = CDATA Q21
LBL 52
Q151 = Q31
Q152 = Q32
Q153 = ( Q33 + Q2 ) * 2
FN 10: IF +Q113 NE +1 GOTO LBL 170
Q151 = Q31 / 25.4
Q152 = Q32 / 25.4
Q153 = ( Q33 + Q2 ) * 2 / 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 412 MM 
