0  BEGIN PGM 2115 MM 
1  FN 0: Q1 =+50
2  FN 0: Q2 =+50
3  FN 0: Q3 =-10
4  FN 0: Q4 =-1
5  FN 0: Q5 =+6
6  FN 0: Q9 =+80
7  FN 0: Q7 =+30
8  FN 0: Q10 =+2
9  FN 0: Q11 =+500
10 FN 0: Q12 =+250
11 FN 0: Q14 =+0
12 FN 0: Q15 =+1
13 BLK FORM 0.1 Z X+0 Y+0 Z-22
14 BLK FORM 0.2  X+100  Y+100  Z+0
15 TOOL CALL 16 Z S4000
16 CALL LBL 1
17 L  Z+100 R0 F9999 M2
18 LBL 1
19 FN 4: Q20 =+Q9 DIV +2
20 FN 1: Q21 =+Q20 + +Q14
21 Q22 = 360 / Q5 / 2
22 Q6 = Q21 / COS Q22
23 CC  X+Q1  Y+Q2
24 FN 0: Q27 =+Q7
25 FN 4: Q28 =+Q108 DIV +2
26 FN 3: Q29 =+Q108 * +2
27 FN 1: Q29 =+Q6 + +Q29
28 FN 0: Q35 =+1
29 FN 4: Q37 =+360 DIV +Q5
30 FN 3: Q37 =+Q37 * +Q4
31 LP  PR+Q29  PA+Q7 R0 F9999 M3
32 L  Z+Q10 F9999
33 L  Z+Q3 FQ11
34 FN 9: IF +Q15 EQU +1 GOTO LBL 11
35 FN 9: IF +Q15 EQU +2 GOTO LBL 12
36 LP  PR+Q6  PA+Q7 R0 FQ12
37 RND RQ28 FQ12
38 FN 9: IF +0 EQU +0 GOTO LBL 2
39 LBL 11
40 LP  PR+Q6  PA+Q7 RL FQ12
41 RND RQ28 FQ12
42 FN 9: IF +0 EQU +0 GOTO LBL 2
43 LBL 12
44 LP  PR+Q6  PA+Q7 RR FQ12
45 RND RQ28 FQ12
46 LBL 2
47 FN 1: Q35 =+Q35 + +1
48 FN 1: Q27 =+Q27 + +Q37
49 LP  PR+Q6  PA+Q27 FQ12
50 FN 12: IF +Q35 LT +Q5 GOTO LBL 2
51 LP  PR+Q6  PA+Q7 FQ12
52 RND RQ28
53 LP  PR+Q29  PA+Q7 R0 FQ12
54 L  Z+Q10 R0 F9999
55 LBL 0
56 END PGM 2115 MM