0  BEGIN PGM 2080 MM 
1  FN 0: Q16 =+100
2  FN 0: Q17 =+0
3  FN 0: Q7 =+1000
4  FN 0: Q3 =-30
5  FN 0: Q5 =+1000
6  FN 0: Q6 =+5
7  FN 0: Q8 =+1000
8  FN 0: Q10 =+2
9  FN 0: Q11 =+500
10 FN 0: Q12 =+2000
11 FN 0: Q15 =+40
12 FN 0: Q18 =+0
13 BLK FORM 0.1 Z X+0 Y+0 Z-100
14 BLK FORM 0.2  X+400  Y+1000  Z+0
15 TOOL CALL 51 Z S5000
16 L  Z+20 R0 F9999 M3
17 CYCL DEF 7.0 DATUM SHIFT
18 CYCL DEF 7.1  X+Q16
19 CYCL DEF 7.2  Y+Q17
20 CYCL DEF 10.0 ROTATION
21 CYCL DEF 10.1  ROT+Q18
22 CALL LBL 1
23 CYCL DEF 10.0 ROTATION
24 CYCL DEF 10.1  ROT+0
25 CYCL DEF 7.0 DATUM SHIFT
26 CYCL DEF 7.1  X+0
27 CYCL DEF 7.2  Y+0
28 L  Z+20 R0 F9999 M2
29 LBL 1
30 FN 0: Q1 =+0
31 FN 0: Q2 =+0
32 FN 0: Q31 =-Q7
33 FN 1: Q32 =+Q2 + +Q7
34 FN 0: Q33 =+0
35 FN 3: Q35 =+Q6 * +Q8
36 FN 3: Q36 =+Q35 * +Q35
37 FN 4: Q37 =+Q7 DIV +2
38 FN 4: Q38 =+Q7 DIV +Q5
39 FN 3: Q30 =+Q38 * +2
40 CALL LBL 10
41 FN 0: Q34 =+Q25
42 FN 2: Q34 =+Q1 - +Q34
43 FN 0: Q22 =+Q2
44 FN 10: IF +Q15 NE +0 GOTO LBL Q15
45 LBL 40
46 L  X+Q1  Y+Q2 R0 F9999 M3
47 FN 9: IF +0 EQU +0 GOTO LBL 43
48 LBL 41
49 L  X+Q1  Y+Q2 RL F9999 M3
50 FN 9: IF +0 EQU +0 GOTO LBL 43
51 LBL 42
52 L  X+Q1  Y+Q2 RR F9999 M3
53 LBL 43
54 L  Z+Q10 F9999
55 L  Z+Q3 FQ11
56 LBL 5
57 FN 1: Q22 =+Q22 + +Q38
58 FN 1: Q33 =+Q33 + +Q38
59 FN 11: IF +Q22 GT +Q32 GOTO LBL 99
60 FN 9: IF +Q22 EQU +Q32 GOTO LBL 99
61 FN 1: Q31 =+Q31 + +Q30
62 CALL LBL 10
63 FN 1: Q21 =+Q34 + +Q25
64 L  X+Q21  Y+Q22 FQ12
65 FN 12: IF +Q33 LT +Q32 GOTO LBL 5
66 FN 9: IF +Q33 EQU +Q32 GOTO LBL 5
67 LBL 99
68 L  X+Q1  Y+Q32 F9999
69 L  Z+Q10 F9999
70 L IX+Q108 IY+Q108 R0
71 LBL 0
72 LBL 10
73 FN 4: Q25 =+Q31 DIV +2
74 FN 3: Q25 =+Q25 * +Q25
75 FN 2: Q25 =+Q36 - +Q25
76 FN 5: Q25 = SQRT +Q25
77 FN 2: Q25 =+Q35 - +Q25
78 LBL 0
79 END PGM 2080 MM