0  BEGIN PGM 82501_it MM 
1  ;Programma NC per determinare i valori di
2  ;tolleranza e visualizzarli sullo schermo.
3  ;La tolleranza da determinare viene definita
4  ;nel programma NC 8250_it.h.
5  ;Se tutti i file richiesti vengono salvati
6  ;nella stessa directory, non  necessario
7  ;eseguire alcun adattamento in questo
8  ;programma NC.
9  ;Qualora i file debbano essere salvati in
10 ;directory diverse,  necessario adattare i
11 ;percorsi nelle definizioni dei file.
12 ;
13 QS2 = "a" ;Definizione lettera minuscola per verifica
14 ;
15 ;Verifica se foro standard o albero standard
16 Q2 = STRCOMP( SRC_QS1 SEA_QS2 )
17 ;
18 ;Apertura tabella per foro standard
19 FN 26: TABOPEN 82503_hole.TAB
20 ;
21 ;Se foro, salto a LBL1
22 FN 9: IF +Q2 EQU -1 GOTO LBL 1
23 ;
24 ;Apertura tabella per albero standard
25 FN 26: TABOPEN 82503_shaft.TAB
26 ;
27 ;Label di salto LBL1
28 LBL 1
29 ;
30 Q2 = 0 ;Numero riga contatore
31 ;
32 ;Lettura valore da riga 0 colonna "BEREICH" della tabella
33 FN 28: TABREAD Q3 =Q2 /"BEREICH"
34 ;
35 ;Label di salto LBL11
36 LBL 11
37 ;
38 ;Verifica se l'accoppiamento definito rientra nel range
39 FN 11: IF +Q1 GT +Q3 GOTO LBL 12
40 ;
41 ;Lettura quota superiore dalla tabella
42 FN 28: TABREAD Q4 =Q2 / QS1
43 ;
44 ;Incremento del numero di riga di uno
45 Q3 = Q2 + 1
46 ;
47 ;Lettura quota inferiore dalla tabella
48 FN 28: TABREAD Q5 =Q3 / QS1
49 ;
50 ;Salto a LBL99
51 FN 9: IF +1 EQU +1 GOTO LBL 99
52 ;
53 ;Label di salto LBL12
54 LBL 12
55 ;Incremento del numero di riga di due
56 Q2 = Q2 + 2
57 ;
58 ;Lettura valore da riga Q2 colonna "BEREICH" della tabella
59 FN 28: TABREAD Q3 =Q2 /"BEREICH"
60 ;
61 ;Salto a LBL11
62 FN 9: IF +1 EQU +1 GOTO LBL 11
63 ;
64 ;Label di salto LBL99
65 LBL 99
66 ;
67 ;Calcolo quota massima in mm
68 Q2 = Q1 + ( Q4 / 1000 )
69 ;
70 ;Calcolo quota minima in mm
71 Q3 = Q1 + ( Q5 / 1000 )
72 ;
73 ;Composizione testo per accoppiamento
74 QS2 = TOCHAR( DAT+Q1 DECIMALS0 ) || QS1
75 ;
76 ;Visualizzazione su schermo del contenuto del file maschera 82502_it.a
77 FN 16: F-PRINT 82502_it.A / SCREEN:
78 ;
79 ;Fine programma
80 END PGM 82501_it MM