0 BEGIN PGM 9035_es MM 
1 ;Programa NC para determinar automáticamente
2 ;el nombre del fichero y, mediante el ciclo,
3 ;grabarlo en la pieza.
4 ;El control numérico llama un fichero de máscara.
5 ;Éste escribe la ruta del fichero en un fichero
6 ;de texto.
7 ;A continuación, el control numérico llama un
8 ;programa con el que, de la ruta del fichero,
9 ;se selecciona el nombre del programa. El nombre
10 ;del fichero lo guarda el control numérico en el
11 ;QS1. Éste lo incorpora en el retorno a dicho
12 ;programa y lo emplea en el ciclo de grabado 225.
13 ;ˇSi los tres ficheros empleado no están en el
14 ;mismo directorio, deberán adaptarse los datos de
15 ;la ruta en llamadas!
16 ;
17 ;!ˇIMPORTANTE! ˇEl programa no se ejecuta en el
18 ;test del programa, ya que allí no está permitido
19 ;copiar un fichero de texto en un programa NC!
20 ;
21 BLK FORM 0.1 Z  X+0  Y+0  Z-20
22 BLK FORM 0.2  X+100  Y+100  Z+0
23 ;
24 ;Llamada a la herramienta, herramienta de grabado
25 TOOL CALL 151 Z S6000
26 M3
27 ;
28 L  Z+100 R0 FMAX
29 ;
30 ;Escribir el contenido del fichero "máscara" en
31 ;el fichero "File". Al hacerlo, se registra
32 ;mediante la sintaxis el nombre del programa.
33 FN 16: F-PRINT mask.a / FILE.a
34 ;
35 ;Llamar programa para formar la cadena de texto
36 CALL PGM 90351_es.H
37 ;
38 ;
39 ;Grabar el nombre del fichero que está en QS1
40 CYCL DEF 225 GRABAR ~
   QS500= QS1     ;TEXTO DE GRABADO ~
    Q513=+10   ;ALTURA CARACTER ~
    Q514=+0    ;FACTOR DISTANCIA ~
    Q515=+0    ;TIPO LETRA ~
    Q516=+0    ;POS. TEXTO ~
    Q374=+0    ;ANGULO GIRO ~
    Q517=+50   ;RADIO CIRCULO ~
    Q207=+500  ;AVANCE DE FRESADO ~
    Q201=-0.3  ;PROFUNDIDAD ~
    Q206=+150  ;AVANCE PROFUNDIDAD ~
    Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q203=+0    ;COORD. SUPERFICIE ~
    Q204=+50   ;2A DIST. SEGURIDAD
41 ;
42 ;Llamar ciclo en el punto inicial
43 L  X+20  Y+40 R0 FMAX M99
44 ;
45 ;Retirar la hta.
46 L  Z+100 R0 FMAX
47 ;
48 ;Final del programa
49 M30
50 END PGM 9035_es MM