0  BEGIN PGM 82501_fr MM 
1  ;Programme CN permettant de dterminer les valeurs
2  ;de tolrance et de les afficher  l'cran.
3  ;La dfinition de la tolrance  dterminer
4  ;s'effectue dans le programme CN 8250_fr.h.
5  ;Si vous avez enregistr tous les fichiers requis
6  ;dans le mme rpertoire, vous n'avez rien 
7  ;adapter dans ce programme CN.
8  ;Si les fichiers se trouvent enregistrs dans des
9  ;rpertoires diffrents, il vous faudra adapter
10 ;les chemins des fichiers en consquence.
11 ;
12 ;
13 QS2 = "a" ;Dfinition de la minuscule de contrle
14 ;
15 ;Contrle permettant de vrifier s'il s'agit d'un
16 ;Trou standard ou d'un Arbre standard
17 Q2 = STRCOMP( SRC_QS1 SEA_QS2 )
18 ;
19 ;Ouverture du tableau pour le Trou standard
20 FN 26: TABOPEN 82503_hole.TAB
21 ;
22 ;Si trou, alors saut au LBL1
23 FN 9: IF +Q2 EQU -1 GOTO LBL 1
24 ;
25 ;Ouverture du tableau pour l'Arbre standard
26 FN 26: TABOPEN 82503_shaft.TAB
27 ;
28 ;Marque de saut LBL1
29 LBL 1
30 ;
31 Q2 = 0 ;Compteur de numro de ligne
32 ;
33 ;Lecture de la valeur qui se trouve  la ligne 0,
34 ;colonne "BEREICH" du tableau
35 FN 28: TABREAD Q3 =Q2 /"BEREICH"
36 ;
37 ;Marque de saut LBL11
38 LBL 11
39 ;
40 ;Contrle permettant de vrifier si l'ajustement
41 ;dfini se trouve dans la plage
42 FN 11: IF +Q1 GT +Q3 GOTO LBL 12
43 ;
44 ;Lecture de la cote suprieure du tableau
45 FN 28: TABREAD Q4 =Q2 / QS1
46 ;
47 ;Incrmentation du numro de ligne de un
48 Q3 = Q2 + 1
49 ;
50 ;Lecture de la cote infrieure du tableau
51 FN 28: TABREAD Q5 =Q3 / QS1
52 ;
53 ;Saut au LBL99
54 FN 9: IF +1 EQU +1 GOTO LBL 99
55 ;
56 ;Marque de saut LBL12
57 LBL 12
58 ;Incrmentation du numro de ligne de deux
59 Q2 = Q2 + 2
60 ;
61 ;Lecture de la valeur qui se trouve  la ligne Q2,
62 ;colonne "BEREICH" du tableau
63 FN 28: TABREAD Q3 =Q2 /"BEREICH"
64 ;
65 ;Saut au LBL11
66 FN 9: IF +1 EQU +1 GOTO LBL 11
67 ;
68 ;Marque de saut LBL99
69 LBL 99
70 ;
71 ;Calcul de la cote maximale, en mm
72 Q2 = Q1 + ( Q4 / 1000 )
73 ;
74 ;Calcul de la cote minimale, en mm
75 Q3 = Q1 + ( Q5 / 1000 )
76 ;
77 ;Compilation du texte pour l'ajustement
78 QS2 = TOCHAR( DAT+Q1 DECIMALS0 ) || QS1
79 ;
80 ;Affichage du contenu du fichier de masque
81 ;82502_fr.a  l'cran
82 FN 16: F-PRINT 82502_fr.A / SCREEN:
83 ;
84 ;Fin du programme
85 END PGM 82501_fr MM