BEGIN PGM MILL25X MM 
Q50 = SGN Q201
Q51 = 1
FN 9: IF +Q50 EQU -1 GOTO LBL 1
Q51 = - 1
LBL 1
Q50 = Q203 + ( Q200 * Q51 )
Q52 = Q203 + ( Q200 * Q51 )
Q72 = ABS Q200
Q73 = ABS Q204
FN 11: IF +Q72 GT +Q73 GOTO LBL 22
Q50 = Q203 + ( Q204 * Q51 )
LBL 22
L  Z+Q50 R0 FMAX
Q51 = Q338
FN 10: IF +Q338 NE +0 GOTO LBL 2
Q51 = Q201
LBL 2
FN 9: IF +0 EQU +0 GOTO LBL Q194
LBL 51
CYCL DEF 14.0 KONTUR
CYCL DEF 14.1 KONTURLABEL5
FN 9: IF +0 EQU +0 GOTO LBL 60
LBL 52
CYCL DEF 14.0 KONTUR
CYCL DEF 14.1 KONTURLABEL6
FN 9: IF +0 EQU +0 GOTO LBL 60
LBL 53
CYCL DEF 14.0 KONTUR
CYCL DEF 14.1 KONTURLABEL7
FN 9: IF +0 EQU +0 GOTO LBL 60
LBL 54
CYCL DEF 14.0 KONTUR
CYCL DEF 14.1 KONTURLABEL8
LBL 60
CYCL DEF 20 KONTUR-DATEN ~
 Q1=+Q201 ;FRAESTIEFE ~
 Q2=+Q370 ;BAHN-UEBERLAPPUNG ~
 Q3=+Q368 ;AUFMASS SEITE ~
 Q4=+Q369 ;AUFMASS TIEFE ~
 Q5=+Q203 ;KOOR. OBERFLAECHE ~
 Q6=+Q200 ;SICHERHEITS-ABST. ~
 Q7=+Q50  ;SICHERE HOEHE ~
 Q8=+0.1  ;RUNDUNGSRADIUS ~
 Q9=+Q351 ;DREHSINN
FN 9: IF +Q215 EQU +2 GOTO LBL 23
CYCL DEF 22 AUSRAEUMEN ~
 Q10=+Q202 ;ZUSTELL-TIEFE ~
 Q11=+Q206 ;VORSCHUB TIEFENZ. ~
 Q12=+Q207 ;VORSCHUB RAEUMEN ~
 Q18=+0    ;VORRAEUM-WERKZEUG ~
 Q19=+Q206 ;VORSCHUB PENDELN
CALL	LBL 98
FN 9: IF +Q215 EQU +1 GOTO LBL 99
LBL 23
FN 9: IF +Q369 EQU +0 GOTO LBL 24
CYCL DEF 23 SCHLICHTEN TIEFE ~
 Q11=+Q206 ;VORSCHUB TIEFENZ. ~
 Q12=+Q207 ;VORSCHUB RAEUMEN
CALL	LBL 98
LBL 24
FN 9: IF +Q368 EQU +0 GOTO LBL 99
CYCL DEF 24 SCHLICHTEN SEITE ~
 Q9=+Q351 ;DREHSINN ~
 Q10=+Q51  ;ZUSTELL-TIEFE ~
 Q11=+Q206 ;VORSCHUB TIEFENZ. ~
 Q12=+Q207 ;VORSCHUB RAEUMEN ~
 Q14=+0    ;AUFMASS SEITE
CALL	LBL 98
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 0
LBL 5
L  X+Q60  Y+Q61 RR
L  X+Q62  Y+Q63
RND RQ220
L  X+Q64  Y+Q65
RND RQ220
L  X+Q66  Y+Q67
RND RQ220
L  X+Q68  Y+Q69
RND RQ220
L  X+Q60  Y+Q61
LBL 0
LBL 6
CC  X+Q31  Y+Q32
LP  PR+Q60  PA+0 RL
CP IPA+360 DR+
LBL 0
LBL 7
L  X+Q60  Y+Q61 RL
L  X+Q62  Y+Q63
CT  X+Q64  Y+Q65
L  X+Q66  Y+Q67
CT  X+Q68  Y+Q69
L  X+Q60  Y+Q61
LBL 0
LBL 8
CC  X+Q33  Y+Q34
LP  PR+Q60  PA+Q61 RL
CP  PA+Q63 DR+
CTP  PR+Q64  PA+Q65
CP  PA+Q67 DR-
CTP  PR+Q68  PA+Q69
CP  PA+Q61 DR+
LBL 0
LBL 98
; FN 22: FUNCT Q0 FNR1
; FN 22: FUNCT Q0 FNR113
CYCL CALL
; FN 22: FUNCT Q0 FNR2
LBL 0
LBL 99
L  Z+Q50 R0 FMAX
FN 9: IF +Q194 EQU +54 GOTO LBL 199
L  X+Q31  Y+Q32 R0 FMAX
LBL 199
END PGM MILL25X MM 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
