0  BEGIN PGM 82501_nl MM 
1  ;NC-programma om de tolerantiewaarden te
2  ;bepalen en op het beeldscherm weer te geven.
3  ;De definitie van de te bepalen tolerantie
4  ;vindt plaats in het NC-programma 8250_nl.h.
5  ;Wanneer u alle benodigde bestanden in
6  ;dezelfde directory hebt opgeslagen, hoeft
7  ;u niets aan dit NC-programma aan te passen.
8  ;Als de bestanden in verschillende directory's
9  ;zijn opgeslagen, moet u de paden in de
10 ;bestandsdefinities aanpassen.
11 ;
12 QS2 = "a" ;Kleine letter voor controle definiren
13 ;
14 ;Controleren of er sprake is van een eenheidsboring
15 ;of een eenheidsas
16 Q2 = STRCOMP( SRC_QS1 SEA_QS2 )
17 ;
18 ;Tabel voor eenheidsboring openen
19 FN 26: TABOPEN 82503_hole.TAB
20 ;
21 ;Indien boring, spring naar LBL1
22 FN 9: IF +Q2 EQU -1 GOTO LBL 1
23 ;
24 ;Tabel voor eenheidsas openen
25 FN 26: TABOPEN 82503_shaft.TAB
26 ;
27 ;Spronglabel LBL1
28 LBL 1
29 ;
30 Q2 = 0 ;Teller regelnummer
31 ;
32 ;Waarde uit regel 0 kolom "Bereich" van de tabel lezen
33 FN 28: TABREAD Q3 =Q2 /"BEREICH"
34 ;
35 ;Spronglabel LBL11
36 LBL 11
37 ;
38 ;Controleren of de gedefinieerde passing binnen het bereik ligt
39 FN 11: IF +Q1 GT +Q3 GOTO LBL 12
40 ;
41 ;Maximale grensmaat uit de tabel lezen
42 FN 28: TABREAD Q4 =Q2 / QS1
43 ;
44 ;Regelnummer met n verhogen
45 Q3 = Q2 + 1
46 ;
47 ;Minimale grensmaat uit de tabel lezen
48 FN 28: TABREAD Q5 =Q3 / QS1
49 ;
50 ;Spring naar LBL99
51 FN 9: IF +1 EQU +1 GOTO LBL 99
52 ;
53 ;Spronglabel LBL12
54 LBL 12
55 ;Regelnummer met twee verhogen
56 Q2 = Q2 + 2
57 ;
58 ;Waarde uit regel Q2 kolom "Bereich" van de tabel lezen
59 FN 28: TABREAD Q3 =Q2 /"BEREICH"
60 ;
61 ;Spring naar LBL11
62 FN 9: IF +1 EQU +1 GOTO LBL 11
63 ;
64 ;Spronglabel LBL99
65 LBL 99
66 ;
67 ;Maximale maat in mm berekenen
68 Q2 = Q1 + ( Q4 / 1000 )
69 ;
70 ;Minimale maat in mm berekenen
71 Q3 = Q1 + ( Q5 / 1000 )
72 ;
73 ;Tekst voor passing samenstellen
74 QS2 = TOCHAR( DAT+Q1 DECIMALS0 ) || QS1
75 ;
76 ;Inhoud van het maskerbestand 82502_de.a op het
77 ;beeldscherm weergeven
78 FN 16: F-PRINT 82502_nl.A / SCREEN:
79 ;
80 ;Einde van programma
81 END PGM 82501_nl MM