0  BEGIN PGM 8225_FR MM 
1  ;Programme CN permettant de réaliser un
2  ;usinage simple.
3  ;À la fin de l'usinage, la CN appelle
4  ;un autre programme dans lequel elle
5  ;poursuit le comptage, compare l'heure
6  ;actuelle avec une heure que vous avez
7  ;définie dans le programme 8220_fr.h
8  ;puis, suivant le résultat obtenu, met
9  ;le compteur à zéro ou revient dans ce
10 ;programme.
11 ;
12 BLK FORM 0.1 Z X-50 Y-50 Z-20
13 BLK FORM 0.2  X+50  Y+50  Z+0
14 ;
15 ;Appel d'outil
16 TOOL CALL 8 Z S9000 F1000
17 L  Z+100 R0 FMAX M3
18 ;
19 ;Exemple d'usinage
20 CYCL DEF 252 POCHE CIRCULAIRE ~
    Q215=+0    ;OPERATIONS D'USINAGE ~
    Q223=+50   ;DIAMETRE DU CERCLE ~
    Q368=+0    ;SUREPAIS. LATERALE ~
    Q207=+500  ;AVANCE FRAISAGE ~
    Q351=+1    ;MODE FRAISAGE ~
    Q201=-18   ;PROFONDEUR ~
    Q202=+5    ;PROFONDEUR DE PASSE ~
    Q369=+0    ;SUREP. DE PROFONDEUR ~
    Q206=+150  ;AVANCE PLONGEE PROF. ~
    Q338=+0    ;PASSE DE FINITION ~
    Q200=+2    ;DISTANCE D'APPROCHE ~
    Q203=+0    ;COORD. SURFACE PIECE ~
    Q204=+50   ;SAUT DE BRIDE ~
    Q370=+1    ;FACTEUR RECOUVREMENT ~
    Q366=+1    ;PLONGEE ~
    Q385=+500  ;AVANCE DE FINITION ~
    Q439=+0    ;REFERENCE AVANCE
21 L  X+0  Y+0 R0 FMAX M99
22 ;
23 ;Appel du programme permettant de poursuivre
24 ;le comptage et de comparer les heures
25 CALL PGM 82251_fr.h
26 ;
27 ;Fin du programme
28 M30
29 END PGM 8225_FR MM