0  BEGIN PGM 256 MM 
1  Q220 = ABS Q220
2  FN 9: IF +Q201 EQU +0 GOTO LBL 254
3  Q0 = ABS ( Q218 / 2 )
4  Q1 = ABS ( Q219 / 2 )
5  ; Abfrage, ob Radius reinpasst
6  FN 11: IF +Q0 GT +Q220 GOTO LBL 10
7  FN 14: ERROR= 1023
8  LBL 10
9  FN 11: IF +Q1 GT +Q220 GOTO LBL 11
10 FN 14: ERROR= 1023
11 LBL 11
12 Q0 = ABS ( Q218 + ( 2 * ABS ( Q368 ) ) )
13 Q1 = ABS ( Q219 + ( 2 * ABS ( Q368 ) ) )
12 FN 12: IF +Q0 LT +Q424 GOTO LBL 12
15 FN 9: IF +Q0 EQU +Q424 GOTO LBL 12
16 FN 14: ERROR= 1098
17 LBL 12
12 FN 12: IF +Q1 LT +Q425 GOTO LBL 13
19 FN 9: IF +Q1 EQU +Q425 GOTO LBL 13
20 FN 14: ERROR= 1098
21 LBL 13
22 Q194 = 56
23 CALL PGM INIT25X.CYC
24 CALL PGM PSRD25X.CYC
30 CALL LBL 100
25 CYCL DEF 7.0 NULLPUNKT
26 CYCL DEF 7.1 IX+Q38
27 CYCL DEF 7.2 IY+Q39
28 CYCL DEF 10.0 DREHUNG
29 CYCL DEF 10.1 IROT+Q224
31 CALL PGM RECSTUDMILL.CYC
35 CYCL DEF 10.0 DREHUNG
36 CYCL DEF 10.1 IROT-Q224
32 CYCL DEF 7.0 NULLPUNKT
33 CYCL DEF 7.1 IX-Q38
34 CYCL DEF 7.2 IY-Q39
37 FN 9: IF +0 EQU +0 GOTO LBL 254
38 LBL 100 ;UP STARTPUNKT
39 Q38 = ABS ( Q218 / 2 )
40 Q39 = ABS ( Q219 / 2 )
11 ; *** Schieflagenkompensation ***
11 ; Winkel fr Ecke 1 und 3
41 Q0 = ATAN ( Q39 / Q38 )
11 ; Winkel fr Ecke 2 und 4
41 Q2 = ATAN ( Q39 / Q38 )
22 Q0 = Q0 + Q224
22 Q2 = Q2 - Q224
42 Q1 = SQRT ( ( +Q38 * Q38 ) + ( Q39 * Q39 ) )
41 FN 10: IF +Q367 NE +0 GOTO LBL Q367
42 ;STARTPUNKT=ZENTRUM
43 Q38 = Q31
44 Q39 = Q32
45 FN 9: IF +0 EQU +0 GOTO LBL 9
46 LBL 1 ;ECKE 1
47 Q38 = Q31 + ( COS Q0 * Q1 )
48 Q39 = Q32 + ( SIN Q0 * Q1 )
49 FN 9: IF +0 EQU +0 GOTO LBL 9
50 LBL 2 ;ECKE 2
51 Q38 = Q31 - ( COS Q2 * Q1 )
52 Q39 = Q32 + ( SIN Q2 * Q1 )
53 FN 9: IF +0 EQU +0 GOTO LBL 9
54 LBL 3 ;ECKE 3
55 Q38 = Q31 - ( COS Q0 * Q1 )
56 Q39 = Q32 - ( SIN Q0 * Q1 )
57 FN 9: IF +0 EQU +0 GOTO LBL 9
58 LBL 4 ;ECKE 4
59 Q38 = Q31 + ( COS Q2 * Q1 )
60 Q39 = Q32 - ( SIN Q2 * Q1 )
61 LBL 9
62 LBL 0
63 LBL 254
64 END PGM 256 MM 
