0  BEGIN PGM 2030 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 51 Z S3000
4  FN 0: Q1 =+50
5  FN 0: Q2 =+50
6  FN 0: Q3 =-10
7  FN 0: Q4 =-1
8  FN 0: Q5 =+6
9  FN 0: Q6 =+45
10 FN 0: Q7 =+0
11 FN 0: Q10 =+2
12 FN 0: Q11 =+150
13 FN 0: Q12 =+300
14 FN 0: Q14 =+0
15 FN 0: Q15 =+1
16 L  Z+100 R0 F9999 M3
17 LBL 1
18 CC  X+Q1  Y+Q2
19 FN 0: Q27 =+0
20 FN 0: Q35 =+1
21 FN 1: Q26 =+Q6 + +Q14
22 FN 4: Q28 =+Q108 DIV +2
23 FN 3: Q29 =+Q108 * +2
24 FN 1: Q29 =+Q26 + +Q29
25 FN 4: Q37 =+360 DIV +Q5
26 FN 3: Q37 =+Q37 * +Q4
27 FN 0: Q27 =+Q7
28 LP  PR+Q29  PA+Q7 R0 F9999
29 L  Z+Q10 F9999
30 L  Z+Q3 FQ11
31 FN 9: IF +Q15 EQU +1 GOTO LBL 11
32 FN 9: IF +Q15 EQU +2 GOTO LBL 12
33 LP  PR+Q26  PA+Q7 R0 FQ12
34 RND RQ28
35 FN 9: IF +0 EQU +0 GOTO LBL 2
36 LBL 11
37 LP  PR+Q26  PA+Q7 RL FQ12
38 RND RQ28
39 FN 9: IF +0 EQU +0 GOTO LBL 2
40 LBL 12
41 LP  PR+Q26  PA+Q7 RR FQ12
42 RND RQ28
43 FN 9: IF +0 EQU +0 GOTO LBL 2
44 LBL 2
45 FN 1: Q35 =+Q35 + +1
46 FN 1: Q27 =+Q27 + +Q37
47 FN 6: Q22 = SIN +Q27
48 FN 3: Q22 =+Q22 * +Q26
49 FN 1: Q22 =+Q22 + +Q2
50 FN 7: Q21 = COS +Q27
51 FN 3: Q21 =+Q21 * +Q26
52 FN 1: Q21 =+Q21 + +Q1
53 L  X+Q21  Y+Q22 FQ12
54 FN 12: IF +Q35 LT +Q5 GOTO LBL 2
55 LP  PR+Q26  PA+Q7
56 RND RQ28
57 LP  PR+Q29  PA+Q7 R0
58 L  Z+Q10 R0 F9999
59 LBL 0
60 L  Z+100 R0 F9999 M2
61 END PGM 2030 MM