0  BEGIN PGM 8125-fr MM 
1  ;Compteur de pices
2  ;Dans ce programme, le nombre de pices usines
3  ;est enregistr dans un tableau de manire  ce
4  ;que les valeurs soient conserves mme aprs
5  ;une mise hors tension.
6  ;Au dmarrage du programme, la valeur 1 doit tre
7  ;inscrite dans la ligne 0/ colonne Q1 du tableau.
8  ;Vous devez indiquer le nombre de rptitions
9  ;souhaites au dbut du programme. Une fois le
10 ;programme lanc, l'cran affiche le nombre de
11 ;fois qu'il a t excut.
12 ;Si le nombre de rptitions programmes n'est pas
13 ;atteint, cela est galement affich  l'cran et
14 ;le tableau sera rinitialis  valeur 1.
15 ;
16 ;
17 ;Saisie du nombre de rptitions souhait
18 Q10 = 8 ;NOMBRE DE REPETITIONS
19 ;
20 ;Ouverture du tableau
21 FN 26: TABOPEN 81251-fr.tab
22 ;Lecture de la valeur actuelle du tableau
23 FN 28: TABREAD Q1 =0 /"Q1"
24 ;
25 FN 0: Q2 =+Q1 ;Copie de la valeur
26 Q5 = Q1 - 1 ;Calcul du nombre de fois o le programme a t excut jusqu'~
 prsent
27 ;
28 ;Affichage du nombre de rptitions effectues jusqu' prsent
29 FN 16: F-PRINT 81252-fr.a / Screen:
30 ;
31 Q1 = Q1 + 1 ;Poursuite du comptage
32 ;
33 ;
34 ;Excution de l'usinage souhait. Possible avec
35 ;PGM CALL mais le programme appel ne doit alors
36 ;contenir aucune fonction M2 ou M30.
37 CALL PGM 81254-fr.h
38 STOP
39 ;
40 ;
41 ;Comparaison pour voir si le nombre de rptitions
42 ;est atteint.
43 FN 12: IF +Q2 LT +Q10 GOTO LBL 99
44 ;Affichage indiquant que le nombre de rptitions
45 ;est atteint.
46 FN 16: F-PRINT 81253-fr.a / Screen:
47 ;
48 Q1 = 1 ;Rinitialisation du compteur
49 ;Inscription de la valeur du compteur dans le tableau
50 FN 27: TABWRITE 0 /"Q1" = Q1
51 ;Fin du programme
52 STOP
53 M30
54 ;
55 ;Marque de saut si d'autres rptitions sont ncessaires
56 LBL 99
57 ;Inscription de la valeur du compteur dans le tableau
58 FN 27: TABWRITE 0 /"Q1" = Q1
59 ;Fin du programme
60 M30
61 END PGM 8125-fr MM