BEGIN PGM 267 MM 
Q195 = Q197
Q197 = 0
FN 9: IF +Q195 EQU +1 GOTO LBL 200
Q200 = ABS Q200
Q204 = ABS Q204
Q207 = ABS Q207
Q253 = ABS Q253
Q335 = ABS Q335
Q355 = ABS Q355
LBL 200
;Massfaktor abfragen
FN 18: SYSREAD Q0 = ID210 NR4 IDX1
FN 10: IF +Q0 NE +1 GOTO LBL 205
FN 18: SYSREAD Q0 = ID210 NR4 IDX2
FN 10: IF +Q0 NE +1 GOTO LBL 205
FN 18: SYSREAD Q0 = ID210 NR4 IDX3
FN 10: IF +Q0 NE +1 GOTO LBL 205
FN 18: SYSREAD Q0 = ID210 NR4 IDX7
FN 10: IF +Q0 NE +1 GOTO LBL 205
FN 18: SYSREAD Q0 = ID210 NR4 IDX8
FN 10: IF +Q0 NE +1 GOTO LBL 205
FN 18: SYSREAD Q0 = ID210 NR4 IDX9
FN 10: IF +Q0 NE +1 GOTO LBL 205
FN 9: IF +0 EQU +0 GOTO LBL 204
LBL 205
FN 14: ERROR= 1007
LBL 204
QL12 = Q512
FN 10: IF +QL12 NE +0 GOTO LBL 203
QL12 = Q207
LBL 203
FN 17: SYSWRITE ID 212 =+3
FN 18: SYSREAD Q0 = ID1000 NR7441
Q0 = 2 * FRAC ( Q0 / 2 )
FN 9: IF +Q0 EQU +1 GOTO LBL 199
FN 9: IF +Q110 EQU +0 GOTO LBL 199
FN 9: IF +Q110 EQU +1 GOTO LBL 199
FN 14: ERROR= 1000
LBL 199
FN 18: SYSREAD Q0 = ID1000 NR7441
Q0 = 8 * FRAC ( Q0 / 8 )
FN 12: IF +Q0 LT +4 GOTO LBL 206
FN 11: IF +Q201 GT +0 GOTO LBL 207
FN 12: IF +Q358 LT +0 GOTO LBL 206
FN 9: IF +Q358 EQU +0 GOTO LBL 206
LBL 207
FN 14: ERROR= 1077
LBL 206
FN 10: IF +Q109 NE -1 GOTO LBL 198
FN 14: ERROR= 1001
LBL 198
FN 10: IF +Q351 NE +0 GOTO LBL 196
FN 14: ERROR= 1069
LBL 196
FN 9: IF +Q201 EQU +0 GOTO LBL 253
Q358 = ABS Q358 * ( - 1 )
FN 12: IF +Q201 LT +0 GOTO LBL 197
Q358 = ABS Q358
FN 9: IF +0 EQU +0 GOTO LBL 195
LBL 253
FN 9: IF +Q358 EQU +0 GOTO LBL 254
FN 12: IF +Q358 LT +0 GOTO LBL 197
LBL 195
FN 0: Q30 =-1
FN 9: IF +0 EQU +0 GOTO LBL 194
LBL 197
FN 0: Q30 =+1
LBL 194
FN 9: IF +Q195 EQU +1 GOTO LBL 193
CALL LBL 4
LBL 193
FN 18: SYSREAD Q196 = ID210 NR3
FN 17: SYSWRITE ID 210 NR3 =+0
Q19 = Q203 + Q200
Q11 = ABS Q200
Q12 = ABS Q204
FN 11: IF +Q11 GT +Q12 GOTO LBL 2
Q19 = Q203 + Q204
LBL 2
Q20 = Q203 + Q200
Q24 = Q203 + Q201
Q13 = Q203 + Q358
LBL 192
FN 18: SYSREAD Q25 = ID200 NR1
Q26 = Q335 / 2 ; GEW.-RADIUS
Q29 = ABS ( Q239 / 2 ) ; EINFAHR-R.
Q27 = Q26 + Q25 + ABS Q239 ; CCX-VERSATZ
Q28 = ( ABS Q335 - ( ABS Q239 * 1.2269 ) ) / 2 ; KERNDURCHM.
Q22 = ABS Q239 * 0.75
Q14 = Q27 - ( ( Q27 - Q359 ) / 2 )
FN 11: IF +Q27 GT +Q14 GOTO LBL 191
FN 14: ERROR= 1016
LBL 191
FN 0: Q35 =+1
Q36 = ( ABS Q239 ) * Q355 * Q30 ; VERSATZ IN Z
FN 9: IF +Q355 EQU +0 GOTO LBL 10
Q33 = ABS ( Q201 / ( Q239 * Q355 ) )
Q34 = FRAC Q33
Q35 = INT Q33
FN 9: IF +Q34 EQU +0 GOTO LBL 10
Q35 = Q35 + 1
LBL 10
FN 9: IF +Q109 EQU +0 GOTO LBL 230
FN 9: IF +Q109 EQU +6 GOTO LBL 230
FN 9: IF +Q109 EQU +1 GOTO LBL 231
FN 9: IF +Q109 EQU +7 GOTO LBL 231
FN 9: IF +Q109 EQU +2 GOTO LBL 232
FN 9: IF +Q109 EQU +8 GOTO LBL 232
LBL 230
FN 18: SYSREAD Q31 = ID270 NR1 IDX2
FN 18: SYSREAD Q32 = ID270 NR1 IDX3
FN 9: IF +0 EQU +0 GOTO LBL 233
LBL 231
FN 18: SYSREAD Q31 = ID270 NR1 IDX3
FN 18: SYSREAD Q32 = ID270 NR1 IDX1
FN 9: IF +0 EQU +0 GOTO LBL 233
LBL 232
FN 18: SYSREAD Q31 = ID270 NR1 IDX1
FN 18: SYSREAD Q32 = ID270 NR1 IDX2
LBL 233
CC  X+Q31  Y+Q32
L  Z+Q20 R0 FMAX
; FASE STIRNSEITIG
FN 9: IF +Q358 EQU +0 GOTO LBL 38
FN 11: IF +Q359 GT +0 GOTO LBL "Check_OFFS_SINK"
FN 14: ERROR= 1118
LBL "Check_OFFS_SINK"
Q14 = Q27 - ( ( Q27 - Q359 ) / 2 )
Q15 = Q31 + Q14
LP  PR+Q27  PA+0 R0 FQ253
L  Z+Q13 R0 FQ254 M109
CC  X+Q15 IY+0
CP  PA+180 DR+
CC  X+Q31  Y+Q32
CP IPA-360 DR-
CC  X+Q15 IY+0
CP  PA+0 DR+ M111
LBL 38
CC  X+Q31  Y+Q32
FN 9: IF +Q201 EQU +0 GOTO LBL 99
FN 12: IF +Q239 LT +0 GOTO LBL 20
FN 3: Q239 =+Q239 * +Q30
FN 11: IF +Q351 GT +0 GOTO LBL 25
; Gleichlauf Rechtsgewinde GF
; Z+ DR+ RL
LBL 11
LP  PR+Q27  PA+0 R0 FQ253
L  Z+Q24 R0 FQ253 M109
APPR PCT  PR+Q28  PA+0  CCA180 R+Q22 RR FQL12
LBL 30
CP IPA+360 IZ+Q239 DR+ FQ207
Q35 = Q35 - 1
FN 10: IF +Q355 NE +1 GOTO LBL 31
FN 11: IF +Q35 GT +0 GOTO LBL 30
LBL 31
DEP CT  CCA180 R+Q22 FQ207
LP  PR+Q27  PA+0 R0 FQ253 M111
Q24 = Q24 + Q36
FN 11: IF +Q35 GT +0 GOTO LBL 11
FN 9: IF +0 EQU +0 GOTO LBL 99
; Gegenlauf Rechtsgewinde GF
; Z- DR- RR
LBL 25
Q23 = Q24 + ABS Q239 * Q30
LP  PR+Q27  PA+0 R0 FQ253
FN 9: IF +Q35 EQU +1 GOTO LBL 26
Q23 = Q24 + ( Q35 - 1 ) * Q36 + ABS Q239 * Q30
LBL 26
L  Z+Q23 R0 FQ253 M109
APPR PCT  PR+Q28  PA+0  CCA180 R+Q22 RL FQL12
LBL 32
CP IPA-360 IZ-Q239 DR- FQ207
Q35 = Q35 - 1
FN 10: IF +Q355 NE +1 GOTO LBL 34
FN 11: IF +Q35 GT +0 GOTO LBL 32
LBL 34
DEP CT  CCA180 R+Q22 FQ207
LP  PR+Q27  PA+0 R0 FQ253 M111
Q23 = Q23 - Q36
FN 11: IF +Q35 GT +0 GOTO LBL 26
FN 9: IF +0 EQU +0 GOTO LBL 99
; Gegenlauflauf Linksgewinde GF
; Z+ DR- RR
LBL 20
FN 3: Q239 =+Q239 * +Q30
FN 12: IF +Q351 LT +0 GOTO LBL 27
LP  PR+Q27  PA+0 R0 FQ253
L  Z+Q24 R0 FQ253 M109
APPR PCT  PR+Q28  PA+0  CCA180 R+Q22 RL FQL12
LBL 33
CP IPA-360 IZ-Q239 DR- FQ207
Q35 = Q35 - 1
FN 10: IF +Q355 NE +1 GOTO LBL 35
FN 11: IF +Q35 GT +0 GOTO LBL 33
LBL 35
DEP CT  CCA180 R+Q22 FQ207
LP  PR+Q27  PA+0 R0 FQ253 M111
Q24 = Q24 + Q36
FN 11: IF +Q35 GT +0 GOTO LBL 20
FN 9: IF +0 EQU +0 GOTO LBL 99
; Gleichlauf Linksgewinde GF
; Z- DR+ RL
LBL 27
Q23 = Q24 + ABS Q239 * Q30
LP  PR+Q27  PA+0 R0 FQ253
FN 9: IF +Q35 EQU +1 GOTO LBL 28
Q23 = Q24 + ( Q35 - 1 ) * Q36 + ABS Q239 * Q30
LBL 28
L  Z+Q23 R0 FQ253 M109
APPR PCT  PR+Q28  PA+0  CCA180 R+Q22 RR FQL12
LBL 36
CP IPA+360 IZ+Q239 DR+ FQ207
Q35 = Q35 - 1
FN 10: IF +Q355 NE +1 GOTO LBL 37
FN 11: IF +Q35 GT +0 GOTO LBL 36
LBL 37
DEP CT  CCA180 R+Q29 FQ207
LP  PR+Q27  PA+0 R0 FQ253 M111
Q23 = Q23 - Q36
FN 11: IF +Q35 GT +0 GOTO LBL 28
LBL 99
L  Z+Q20 R0 FMAX
FN 3: Q239 =+Q239 * +Q30
FN 9: IF +Q195 EQU +1 GOTO LBL 251
L  Z+Q19 R0 FMAX
LBL 4
FN 9: IF +Q195 EQU +1 GOTO LBL 192
FN 3: Q200 =+Q200 * +Q30
FN 3: Q204 =+Q204 * +Q30
LBL 0
LBL 251
FN 17: SYSWRITE ID 210 NR3 =+Q196
LBL 254
END PGM 267 MM 
