Ma ktoś prostszy program ? jak tak to proszę o przykład
0 BEGIN PGM 7 MM
1 BLK FORM 0.1 Z X-90,000 Y-50,000 Z-20,000
2 BLK FORM 0.2 X+90,000 Y+50,000 Z+3,000
3 TOOL DEF 1 L+0,000 R+3,050
4 TOOL CALL 1 Z S 2500
5 L R F M13
6 FN 0 : Q10 = +3,100
7 FN 0 : Q35 = +50,000
8 CALL LBL 99 REP
9 L Z+5,000 R0 F9998 M
10 FN 0 : Q10 = +3,000
11 FN 0 : Q35 = +75,000
12 CALL LBL 99 REP
13 L Z+100,000 R0 F9998 M30
14 LBL 99
15 FN 0 : Q1 = +0,000
16 FN 0 : Q2 = +0,000
17 FN 0 : Q3 = +0,000
18 FN 0 : Q4 = +0,000
19 FN 0 : Q5 = +0,000
20 FN 0 : Q8 = +20
21 FN 0 : Q9 = +0,001
22 L R F M
23 FN 0 : Q10 = +Q10
24 L R F M
25 FN 0 : Q11 = -30,000
26 FN 0 : Q12 = -90,000
27 FN 0 : Q30 = +10,000
28 FN 0 : Q31 = +300,000
29 FN 0 : Q35 = +Q35
30 L X+0,000 Y-Q2 R0 F MAX M
31 L R F M
32 FN 2 : Q70 = +Q12 - +Q11
33 FN 4 : Q50 = +Q70 DIV +Q35
34 FN 1 : Q51 = +Q50 + +Q11
35 FN 2 : Q55 = +Q8 - +Q10
36 LBL 40
37 FN 6 : Q56 = SIN +Q51
38 FN 7 : Q57 = COS +Q51
39 FN 3 : Q58 = +Q56 * +Q55
40 FN 3 : Q59 = +Q57 * +Q55
41 FN 0 : Q21 = +Q59
42 FN 0 : Q22 = +Q58
43 FN 1 : Q51 = +Q51 + +Q50
44 FN 2 : Q44 = +Q21 - +Q9
45 CALL LBL 33 REP
46 FN 10 : IF +Q51 NE +Q12 GOTO LBL 40
47 L Z+10,000 R0 F MAX M
48 LBL 0
49 LBL 33
50 L X+0,000 Y-Q2 Z+Q22 R0 FQ30 M
51 L X+Q9 Y-Q44 R0 FQ31 M
52 CC X+0,000 Y-0
53 CP IPA 360 DR +
54 L X+0,000 Y-0 R F M
55 LBL 0
56 END PGM 7 MM