0  BEGIN PGM 2035 MM 
1  BLK FORM 0.1 Z X+0 Y+0 Z-20
2  BLK FORM 0.2  X+100  Y+100  Z+0
3  TOOL CALL 5 Z S4000
4  FN 0: Q1 =+50
5  FN 0: Q2 =+50
6  FN 0: Q3 =-15
7  FN 0: Q4 =+1
8  FN 0: Q5 =+180
9  FN 0: Q6 =+10
10 FN 0: Q16 =+47
11 FN 0: Q7 =+90
12 FN 0: Q8 =+10
13 FN 0: Q10 =+2
14 FN 0: Q11 =+100
15 FN 0: Q12 =+300
16 FN 0: Q14 =+0
17 FN 0: Q15 =+0
18 L  X+Q1  Y+Q2 R0 F9999 M3
19 L  Z+Q10 R0 F9999
20 CALL LBL 1
21 L  Z+100 R0 F9999 M5 M2
22 LBL 1
23 CC  X+Q1  Y+Q2
24 FN 3: Q38 =+Q108 * +Q15
25 FN 3: Q39 =+Q14 * +Q15
26 FN 1: Q26 =+Q6 + +Q38
27 FN 1: Q26 =+Q26 + +Q39
28 FN 0: Q27 =+Q7
29 FN 4: Q36 =+Q8 DIV +Q5
30 FN 8: Q36 =+Q36 LEN +0
31 FN 4: Q37 =+360 DIV +Q5
32 FN 3: Q37 =+Q37 * +Q4
33 LP  PR+Q26  PA+Q7 R0 F9999 M3
34 L  Z+Q3 FQ11
35 LBL 2
36 FN 1: Q26 =+Q26 + +Q36
37 FN 1: Q27 =+Q27 + +Q37
38 FN 7: Q21 = COS +Q27
39 FN 3: Q21 =+Q21 * +Q26
40 FN 1: Q21 =+Q21 + +Q1
41 FN 6: Q22 = SIN +Q27
42 FN 3: Q22 =+Q22 * +Q26
43 FN 1: Q22 =+Q22 + +Q2
44 FN 11: IF +Q26 GT +Q16 GOTO LBL 99 ;
45 L  X+Q21  Y+Q22  Z+Q3 FQ12
46 FN 12: IF +Q26 LT +Q16 GOTO LBL 2
47 LBL 99
48 L  Z+Q10 F9999
49 LBL 0
50 END PGM 2035 MM