0  BEGIN PGM 82501_es MM 
1  ;Programa NC para calcular los valores de tolerancia
2  ;y mostrarlos en la pantalla.
3  ;La definicin de la tolerancia que se va a calcular
4  ;se realiza en el programa NC 8250_es.h.
5  ;Si se han guardado todos los ficheros necesarios en
6  ;el mismo directorio, no es preciso ajustar nada en
7  ;este programa NC.
8  ;Si los datos estuviesen guardados en directorios
9  ;diferentes, se deberan ajustar las rutas en las
10 ;definiciones del fichero.
11 ;
12 QS2 = "a" ;Definir minscula para la comprobacin
13 ;
14 ;Comprobar si se trata de taladro estndar o de eje estndar
15 Q2 = STRCOMP( SRC_QS1 SEA_QS2 )
16 ;
17 ;Abrir tabla para Taladro estndar
18 FN 26: TABOPEN 82503_hole.TAB
19 ;
20 ;Si se trata de taladro, salto a LBL1
21 FN 9: IF +Q2 EQU -1 GOTO LBL 1
22 ;
23 ;Abrir tabla para eje estndar
24 FN 26: TABOPEN 82503_shaft.TAB
25 ;
26 ;Label LBL1
27 LBL 1
28 ;
29 Q2 = 0 ;Contador de nmero de fila
30 ;
31 ;Leer valor de la fila 0, columna "BEREICH" de la tabla
32 FN 28: TABREAD Q3 =Q2 /"BEREICH"
33 ;
34 ;Label LBL11
35 LBL 11
36 ;
37 ;Comprobar si el palpador definido se encuentra en el rea
38 FN 11: IF +Q1 GT +Q3 GOTO LBL 12
39 ;
40 ;Leer cota superior de la tabla
41 FN 28: TABREAD Q4 =Q2 / QS1
42 ;
43 ;Aumentar en uno el nmero de fila
44 Q3 = Q2 + 1
45 ;
46 ;Leer cota inferior de la tabla
47 FN 28: TABREAD Q5 =Q3 / QS1
48 ;
49 ;Salto a LBL99
50 FN 9: IF +1 EQU +1 GOTO LBL 99
51 ;
52 ;Label LBL12
53 LBL 12
54 ;Aumentar en dos el nmero de fila
55 Q2 = Q2 + 2
56 ;
57 ;Leer valor de la fila Q2, columna "BEREICH" de la tabla
58 FN 28: TABREAD Q3 =Q2 /"BEREICH"
59 ;
60 ;Salto a LBL11
61 FN 9: IF +1 EQU +1 GOTO LBL 11
62 ;
63 ;Label LBL99
64 LBL 99
65 ;
66 ;Calcular cota mxima en mm
67 Q2 = Q1 + ( Q4 / 1000 )
68 ;
69 ;Calcular cota mnima en mm
70 Q3 = Q1 + ( Q5 / 1000 )
71 ;
72 ;Componer texto para el palpador
73 QS2 = TOCHAR( DAT+Q1 DECIMALS0 ) || QS1
74 ;
75 ;Mostrar en la pantalla el fichero de mscara 82502_es.a
76 FN 16: F-PRINT 82502_es.A / SCREEN:
77 ;
78 ;Final del programa
79 END PGM 82501_es MM