0 BEGIN PGM 3020-de MM 
1 ;Programm zum fertigen eines
2 ;viereckigen Trichters und einer
3 ;Tasche am Grund.
4 ;Definition der aller Eckpunkte
5 ;in X und Y
6 ;
7 BLK FORM 0.1 Z  X+0  Y+0  Z-32
8 BLK FORM 0.2  X+100  Y+100  Z+0
9 ;
10 ;Werkzeugaufruf Fraeser
11 TOOL CALL 6 Z S4000
12 ;
13 L  Z+50 R0 FMAX M3
14 ;Definition der Ecken oben
15 FN 0: Q1 =+10 ;1.ECKE X-KOORDINATE
16 FN 0: Q2 =+10 ;1.ECKE Y_KOORDINATE
17 FN 0: Q3 =+10 ;2.ECKE X-KOORDINATE
18 FN 0: Q4 =+90 ;2.ECKE Y-KOORDINATE
19 FN 0: Q5 =+90 ;3.ECKE X-KOORDINATE
20 FN 0: Q6 =+90 ;3.ECKE Y-KOORDINATE
21 FN 0: Q7 =+90 ;4.ECKE X-KOORDINATE
22 FN 0: Q8 =+10 ;4.ECKE Y-KOORDINATE
23 FN 0: Q9 =+8 ;ECKENRADIUS
24 ;
25 ;Definition der Ecken unten
26 FN 0: Q11 =+30 ;1.ECKE X-KOORDINATE
27 FN 0: Q12 =+30 ;1.ECKE Y-KOORDINATE
28 FN 0: Q13 =+30 ;2.ECKE X-KOORDINATE
29 FN 0: Q14 =+70 ;2.ECKE Y-KOORDINATE
30 FN 0: Q15 =+70 ;3.ECKE X-KOORDINATE
31 FN 0: Q16 =+70 ;3.ECKE Y-KOORDINATE
32 FN 0: Q17 =+70 ;4.ECKE X-KOORDINATE
33 FN 0: Q18 =+30 ;4.ECKE Y-KOORDINATE
34 FN 0: Q19 =+14.9 ;ECKENRADIUS
35 ;
36 ;Schnittdaten
37 FN 0: Q20 =+100 ;VORSCHUB TIEFENZUSTELLUNG
38 FN 0: Q21 =+250 ;VORSCHUB FRAESEN
39 FN 0: Q24 =+1 ;SEITLICHES AUFMASS
40 FN 0: Q25 =+2 ;SICHERHEITSABSTAND
41 FN 0: Q26 =+3 ;ZUSTELLTIEFE TASCHE
42 FN 0: Q27 =+20 ;ANZAHL DER TIEFENZUSTELLUNGEN TRICHTER
43 FN 0: Q28 =+25 ;TIEFE TRICHTER
44 FN 0: Q29 =+30 ;TIEFE TASCHE UNTEN(ABSOLUT)
45 ;Aufruf Programm 70901_de
46 CALL PGM 70901_de
47 ;
48 ;Programmende
49 L  Z+200 R0 FMAX M2
50 END PGM 3020-de MM