BEGIN PGM 262 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
FN 17: SYSWRITE ID 212 =+3
QL12 = Q512
FN 10: IF +QL12 NE +0 GOTO LBL 203
QL12 = Q207
LBL 203
FN 18: SYSREAD Q0 = ID1000 NR7441
FN 18: SYSREAD Q25 = ID200 NR1
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 12: IF +Q201 LT +0 GOTO LBL 206
FN 9: IF +Q201 EQU +0 GOTO LBL 206
FN 14: ERROR= 1077
LBL 206
FN 10: IF +Q109 NE -1 GOTO LBL 198
FN 14: ERROR= 1001
LBL 198
Q18 = ( Q335 - ABS Q239 ) / 2
FN 11: IF +Q18 GT +Q25 GOTO LBL 201
FN 14: ERROR= 1003
LBL 201
FN 10: IF +Q351 NE +0 GOTO LBL 196
FN 14: ERROR= 1069
LBL 196
FN 9: IF +Q201 EQU +0 GOTO LBL 254
FN 12: IF +Q201 LT +0 GOTO LBL 197
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
Q21 = ABS Q200
Q22 = ABS Q204
FN 11: IF +Q21 GT +Q22 GOTO LBL 2
Q19 = Q203 + Q204
LBL 2
Q20 = Q203 + Q200
Q24 = Q203 + Q201
LBL 192
Q26 = Q335 / 2 ; GEW.-RADIUS
Q27 = ( Q26 - Q25 ) / 2 ; CCX-VERSATZ
Q28 = Q26 - Q27 ; PR
Q29 = Q27
Q39 = ABS Q239
FN 12: IF +Q27 LT +Q39 GOTO LBL 191
FN 9: IF +Q27 EQU +Q39 GOTO LBL 191
Q27 = Q26 - Q25 - Q239 ; CCX-VERSATZ bei Spalt >2xP
Q28 = Q26 - Q27 ; PR bei Spalt >2xP
Q29 = ABS Q239 ; EINFAHR-R.
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
FN 12: IF +Q239 LT +0 GOTO LBL 20
FN 3: Q239 =+Q239 * +Q30
FN 12: IF +Q351 LT +0 GOTO LBL 25
; Gleichlauf Rechtsgewinde GF
; Z+ DR+ RL
LBL 11
CC IX-Q27 IY+0
L  Z+Q24 R0 FQ253 M110
APPR PCT  PR+Q28  PA+180  CCA180 R+Q29 RL FQL12
CC  X+Q31  Y+Q32
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
CC IX-Q27 IY+0
DEP CT  CCA180 R+Q29 FQ207
CC  X+Q31  Y+Q32
LP  PR+0  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
FN 9: IF +Q35 EQU +1 GOTO LBL 26
Q23 = Q24 + ( Q35 - 1 ) * Q36 + ABS Q239 * Q30
LBL 26
CC IX-Q27 IY+0
L  Z+Q23 R0 FQ253 M110
APPR PCT  PR+Q28  PA+180  CCA180 R+Q29 RR FQL12
CC  X+Q31  Y+Q32
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
CC IX-Q27 IY+0
DEP CT  CCA180 R+Q29 FQ207
CC  X+Q31  Y+Q32
LP  PR+0  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 11: IF +Q351 GT +0 GOTO LBL 27
CC IX-Q27 IY+0
L  Z+Q24 R0 FQ253 M110
APPR PCT  PR+Q28  PA+180  CCA180 R+Q29 RR FQL12
CC  X+Q31  Y+Q32
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
CC IX-Q27 IY+0
DEP CT  CCA180 R+Q29 FQ207
CC  X+Q31  Y+Q32
LP  PR+0  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
FN 9: IF +Q35 EQU +1 GOTO LBL 28
Q23 = Q24 + ( Q35 - 1 ) * Q36 + ABS Q239 * Q30
LBL 28
CC IX-Q27 IY+0
L  Z+Q23 R0 FQ253 M110
APPR PCT  PR+Q28  PA+180  CCA180 R+Q29 RL FQL12
CC  X+Q31  Y+Q32
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
CC IX-Q27 IY+0
DEP CT  CCA180 R+Q29 FQ207
CC  X+Q31  Y+Q32
LP  PR+0  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 262 MM 
