0  BEGIN PGM 7005 MM 
1  BLK FORM 0.1 Z X-50 Y+0 Z-50
2  BLK FORM 0.2  X+50  Y+100  Z+1
3  FN 0: Q1 =+0
4  FN 0: Q2 =-50
5  FN 0: Q3 =+0
6  FN 0: Q4 =+50
7  FN 0: Q5 =+100
8  FN 0: Q6 =+35
9  FN 0: Q7 =+25
10 FN 0: Q8 =+300
11 FN 0: Q9 =+200
12 FN 0: Q10 =+10
13 TOOL CALL 160 Z S8000
14 TOOL CALL  DL-Q108
15 FN 1: Q24 =+Q108 + +Q4
16 FN 2: Q25 =+Q5 - +Q3
17 FN 4: Q26 =+Q25 DIV +Q7
18 FN 4: Q26 =+Q26 DIV +2
19 FN 2: Q27 =+Q6 - +Q4
20 FN 4: Q28 =+Q27 DIV +Q7
21 FN 4: Q28 =+Q28 DIV +2
22 FN 2: Q29 =+Q7 - +1
23 FN 1: Q30 =+Q24 + +Q1
24 FN 1: Q31 =+Q10 + +Q108
25 L  Z+100 R0 F9999 M3
26 L  X+Q30  Y+Q3 F9999
27 CC  X+Q1  Z+Q2
28 L  Z+Q31 R0 F9999
29 LP  PR+Q24  PA+90 R0 FQ9
30 CP IPA-180 DR- FQ8
31 LBL 1
32 L IY+Q26 R0 FQ8
33 LP IPR+Q28 FQ8
34 CP IPA+180 DR+ FQ8
35 L IY+Q26 R0 FQ8
36 LP IPR+Q28 FQ8
37 CP IPA-180 DR- FQ8
38 CALL LBL 1 REPQ29
39 L  Z+100 R0 F9999 M2
40 END PGM 7005 MM