0  BEGIN PGM 7100 MM 
1  BLK FORM 0.1 Z X-50 Y-50 Z-55
2  BLK FORM 0.2  X+50  Y+50  Z+0
3  FN 0: Q1 =+0
4  FN 0: Q2 =+0
5  FN 0: Q3 =-50
6  FN 0: Q4 =+50
7  FN 0: Q5 =+45
8  FN 0: Q6 =+3
9  FN 0: Q7 =+500
10 FN 0: Q8 =+800
11 FN 0: Q9 =+5
12 TOOL CALL 157 Z S8000 DL-Q9
13 FN 1: Q10 =+Q4 + +Q9
14 FN 1: Q11 =+Q10 + +Q6
15 FN 4: Q12 =+90 DIV +Q5
16 FN 2: Q13 =+Q5 - +1
17 L  Z+200 R0 F9999
18 L  X+Q1  Y+Q2 R0 F9999 M3
19 CC  X+Q1  Z+Q3
20 LP  PR+Q11  PA+0 R0 FMAX
21 LP  PR+Q10 R0 FQ7
22 LBL 1
23 CC  Z+Q3  X+Q1
24 CP IPA+Q12 DR+ FQ7
25 CC  X+Q1  Y+Q2
26 CP IPA+360 DR+ FQ8
27 CALL LBL 1 REPQ13
28 L  Z+100 R0 F9999 M2
29 END PGM 7100 MM