0  BEGIN PGM 8130-FR MM 
1  ;Compteur de pi�ces.
2  ;Au d�but du programme, vous d�finissez le
3  ;nombre de r�p�titions souhait�es.
4  ;Au d�marrage du programme, le nombre
5  ;d'ex�cutions de programme jusqu'alors
6  ;effectu�es s'affichent � l'�cran. Si le
7  ;nombre programm� est atteint, cela est
8  ;�galement signal� et ce compteur est remis
9  ;� z�ro.
10 ;
11 ;
12 ;Saisie des r�p�tition souhait�es
13 QR2 = 8 ;NOMBRE DE REPETITIONS
14 ;
15 ;Affichage du nombre de r�p�titions effectu�es jusqu'�
16 ;pr�sent
17 FN 16: F-PRINT 81301-fr.a / Screen:
18 ;
19 QR1 = QR1 + 1 ;Poursuite du comptage
20 ;
21 ;
22 ;Ex�cution de l'usinage souhait�, �ventuellement avec un
23 ;PGM CALL. Aucune fonction M2 ou M30 ne doit alors se
24 ;trouver dans le programme appel�.
25 CALL PGM 81303-fr.h
26 STOP
27 ;
28 ;
29 ;Comparaison pour voir si le nombre de r�p�titions
30 ;est atteint.
31 FN 12: IF +QR1 LT +QR2 GOTO LBL 99
32 ;Affichage indiquant que le nombre de r�p�titions est
33 ;atteint.
34 FN 16: F-PRINT 81302-fr.a / Screen:
35 ;
36 QR1 = 0 ;R�initialisation du compteur
37 QR2 = 0 ;R�initialisation des r�p�titions souhait�es
38 ;
39 ;Fin du programme
40 M30
41 ;
42 ;Marque de saut si d'autres r�p�titions sont
43 ;n�cessaires
44 LBL 99
45 ;Fin du programme
46 M30
47 END PGM 8130-FR MM