0 BEGIN PGM 7090_es MM 
1 ;Programa para la realización de una
2 ;tolva cuadrangular y una cajera en
3 ;el fondo.
4 ;Definición de todos los vértices
5 ;en X e 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 ;Llamada de herramienta de fresado
11 TOOL CALL 6 Z S4000
12 ;
13 L  Z+50 R0 FMAX M3
14 ;Definición de los vértices superiores
15 FN 0: Q1 =+10 ;1r VÉRTICE COORDENADA X
16 FN 0: Q2 =+10 ;1r VÉRTICE COORDENADA Y
17 FN 0: Q3 =+10 ;2.º VÉRTICE COORDENADA X
18 FN 0: Q4 =+90 ;2.º VÉRTICE COORDENADA Y
19 FN 0: Q5 =+90 ;3r VÉRTICE COORDENADA X
20 FN 0: Q6 =+90 ;3r VÉRTICE COORDENADA Y
21 FN 0: Q7 =+90 ;4.º VÉRTICE COORDENADA X
22 FN 0: Q8 =+10 ;4.º VÉRTICE COORDENADA Y
23 FN 0: Q9 =+8 ;RADIO ESQUINA
24 ;
25 ;Definición de los vértices inferiores
26 FN 0: Q11 =+30 ;1r VÉRTICE COORDENADA X
27 FN 0: Q12 =+30 ;1r VÉRTICE COORDENADA Y
28 FN 0: Q13 =+30 ;2.º VÉRTICE COORDENADA X
29 FN 0: Q14 =+70 ;2.º VÉRTICE COORDENADA Y
30 FN 0: Q15 =+70 ;3r VÉRTICE COORDENADA X
31 FN 0: Q16 =+70 ;3r VÉRTICE COORDENADA Y
32 FN 0: Q17 =+70 ;4.º VÉRTICE COORDENADA X
33 FN 0: Q18 =+30 ;4.º VÉRTICE COORDENADA Y
34 FN 0: Q19 =+14.9 ;RADIO ESQUINA
35 ;
36 ;Datos de corte
37 FN 0: Q20 =+100 ;AVANCE AL PROFUNDIZAR
38 FN 0: Q21 =+250 ;AVANCE DE FRESADO
39 FN 0: Q24 =+1 ;SOBREMEDIDA LATERAL
40 FN 0: Q25 =+2 ;DISTANCIA DE SEGURIDAD
41 FN 0: Q26 =+3 ;PROFUNDIDAD DE APROXIMACIÓN CAJERA
42 FN 0: Q27 =+20 ;NÚMERO DE APROXIMACIIONES DE PROFUNDIZACIÓN TOLVA
43 FN 0: Q28 =+25 ;PROFUNDIDAD TOLVA
44 FN 0: Q29 =+30 ;PROFUNDIDAD CAJERA INFERIOR (ABSOLUTA)
45 ;Llamada programa 70901_es
46 CALL PGM 70901_es.h
47 ;
48 ;Final del programa
49 L  Z+200 R0 FMAX M2
50 END PGM 7090_es MM