0 BEGIN PGM 8270_FR MM 
1 ;Programme CN permettant d'activer un
2 ;point de référence et de simuler un
3 ;usinage. Dans cet exemple de programme,
4 ;l'usinage est simulé par une
5 ;temporisation. La CN appelle ensuite un
6 ;autre programme CN pour écrire des
7 ;valeurs dans un tableau de protocole.
8 ;À la fin de l'exécution du
9 ;programme CN appelé, la CN ferme le
10 ;programme CN.
11 BLK FORM 0.1 Z X-25 Y-25 Z-70
12 BLK FORM 0.2  X+25  Y+25  Z+0
13 ;
14 ;Activation du point de référence
15 CYCL DEF 247 BEZUGSPUNKT SETZEN ~
   Q339=+2    ;BEZUGSPUNKT-NUMMER
16 ;
17 ;Appel de l'outil
18 TOOL CALL 3 Z S10000 F300
19 ;
20 ;Dégagement
21 L  Z+100 R0 FMAX M3
22 ;
23 ;Simulation d'un usinage par temporisation
24 CYCL DEF 9.0 VERWEILZEIT
25 CYCL DEF 9.1 V.ZEIT120
26 ;
27 ;Appel du programme CN 82701_fr.h pour
28 ;écrire des valeurs de ce programme CN
29 ;dans un tableau de protocole
30 CALL PGM 82701_fr.h
31 ;
32 ;Fin du programme
33 M30
34 END PGM 8270_FR MM