0  BEGIN PGM 1075 MM 
1  BLK FORM 0.1 Z X+0 Y+0 Z-32
2  BLK FORM 0.2  X+100  Y+100  Z+0
3  TOOL CALL 15 Z S5000
4  FN 0: Q1 =+50
5  FN 0: Q2 =+50
6  FN 0: Q4 =-1
7  FN 0: Q5 =+180
8  FN 0: Q6 =+40
9  FN 0: Q7 =+0
10 FN 0: Q8 =+15
11 FN 0: Q9 =+0.2
12 FN 0: Q10 =+2
13 FN 0: Q11 =+300
14 FN 0: Q12 =+1000
15 FN 0: Q3 =+0
16 FN 0: Q13 =-30
17 FN 0: Q14 =+0
18 FN 0: Q15 =+1
19 FN 0: Q16 =+2
20 CALL LBL 1
21 L  Z+100 R0 FMAX M2
22 LBL 1
23 FN 3: Q31 =+Q16 * +Q15
24 FN 3: Q38 =+Q108 * +Q15
25 FN 3: Q39 =+Q14 * +Q15
26 FN 0: Q23 =+Q3
27 FN 0: Q25 =+0
28 FN 1: Q26 =+Q6 + +Q38
29 FN 1: Q26 =+Q26 + +Q39
30 FN 1: Q28 =+Q26 + +Q31
31 FN 0: Q27 =+Q7
32 Q36 = TAN Q8 * Q9
33 FN 4: Q36 =+Q36 DIV +Q5
34 FN 4: Q37 =+360 DIV +Q5
35 FN 3: Q37 =+Q37 * +Q4
36 FN 2: Q35 =+Q13 - +Q3
37 Q33 = Q9 / Q5 * SGN Q35
38 Q35 = ( Q13 - Q3 ) / Q33
39 Q35 = ABS Q35
40 CC  X+Q1  Y+Q2
41 LP  PR+Q28  PA+Q7 R0 FMAX M3
42 L  Z+Q10 R0 F9999
43 L  Z+Q3 R0 FQ11
44 LP  PR+Q26  PA+Q7 R0 FQ12
45 LBL 2
46 FN 1: Q26 =+Q26 + +Q36
47 FN 1: Q27 =+Q27 + +Q37
48 FN 7: Q21 = COS +Q27
49 FN 3: Q21 =+Q21 * +Q26
50 FN 1: Q21 =+Q21 + +Q1
51 FN 6: Q22 = SIN +Q27
52 FN 3: Q22 =+Q26 * +Q22
53 FN 1: Q22 =+Q22 + +Q2
54 FN 1: Q23 =+Q23 + +Q33
55 FN 1: Q25 =+Q25 + +1
56 L  X+Q21  Y+Q22  Z+Q23 FQ12
57 FN 12: IF +Q25 LT +Q35 GOTO LBL 2
58 LP IPR+Q31
59 L  Z+Q10 R0 F9999
60 LBL 0
61 END PGM 1075 MM