0  BEGIN PGM 7040 MM 
1  FN 0: Q1 =+0
2  FN 0: Q2 =+0
3  FN 0: Q3 =+25
4  FN 0: Q4 =+0
5  FN 0: Q5 =+20
6  FN 0: Q10 =+20
7  FN 0: Q11 =+80
8  FN 0: Q14 =+600
9  FN 0: Q15 =+9999
10 FN 0: Q16 =+300
11 BLK FORM 0.1 Z X-21 Y-50 Z-51
12 BLK FORM 0.2  X+21  Y+50  Z+1
13 TOOL CALL 157 Z S8000
14 TOOL CALL  DL-Q108
15 FN 2: Q6 =+Q5 - +Q108
16 FN 1: Q18 =+Q6 + +Q1
17 FN 1: Q19 =+Q2 + +Q3
18 FN 2: Q20 =+Q2 - +Q3
19 FN 4: Q12 =+180 DIV +Q11
20 FN 4: Q13 =+Q11 DIV +2
21 FN 2: Q13 =+Q13 - +1
22 L  X+Q18  Y+Q20  Z+Q10 R0 FQ15 M3
23 L  Z+Q4 FQ16
24 LBL 1
25 CC  Y+Q2  Z+Q4
26 CP IPA+180 DR+ FQ14
27 CC  X+Q1  Y+Q19
28 CP IPA+Q12 DR+ FQ14
29 CC  Y+Q2  Z+Q4
30 CP IPA-180 DR- FQ14
31 CC  X+Q1  Y+Q20
32 CP IPA-Q12 DR- FQ14
33 CALL LBL 1 REPQ13
34 L  Z+100 R0 FQ15 M2
35 END PGM 7040 MM