0 BEGIN PGM 82651_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 8265_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
9 ;directory's zijn opgeslagen, moet u de
10 ;paden in de bestandsdefinities aanpassen.
11 ;
QS2 = "a" ;Kleine letter voor controle definiëren
12 ;
13 ;Controleren of er sprake is van een eenheidsboring
14 ;of een eenheidsas
Q2 = STRCOMP( SRC_QS1 SEA_QS2 )
15 ;
16 ;Tabel voor eenheidsboring openen
17 FN 26: TABOPEN Hole_82653.TAB
18 ;
19 ;Indien boring, spring naar LBL1
20 FN 9: IF +Q2 EQU -1 GOTO LBL 1
21 ;
22 ;Tabel voor eenheidsas openen
23 FN 26: TABOPEN Shaft_82653.TAB
24 ;
25 ;Spronglabel LBL1
26 LBL 1
27 ;
Q2 = 0 ;Teller regelnummer
28 ;
29 ;Waarde uit regel 0 kolom "Bereich" van de tabel lezen
30 FN 28: TABREAD Q3 =Q2 /"BEREICH"
31 ;
32 ;Spronglabel LBL11
33 LBL 11
34 ;
35 ;Controleren of de gedefinieerde passing binnen het bereik ligt
36 FN 11: IF +Q1 GT +Q3 GOTO LBL 12
37 ;
38 ;Maximale grensmaat uit de tabel lezen
39 FN 28: TABREAD Q4 =Q2 / QS1
40 ;
41 ;Regelnummer met één verhogen
Q3 = Q2 + 1
42 ;
43 ;Minimale grensmaat uit de tabel lezen
44 FN 28: TABREAD Q5 =Q3 / QS1
45 ;
46 ;Spring naar LBL99
47 FN 9: IF +1 EQU +1 GOTO LBL 99
48 ;
49 ;Spronglabel LBL12
50 LBL 12
51 ;Regelnummer met twee verhogen
Q2 = Q2 + 2
52 ;
53 ;Waarde uit regel Q2 kolom "Bereich" van de tabel lezen 
54 FN 28: TABREAD Q3 =Q2 /"BEREICH"
55 ;
56 ;Spring naar LBL11
57 FN 9: IF +1 EQU +1 GOTO LBL 11
58 ;
59 ;Spronglabel LBL99
60 LBL 99
61 ;
62 ;Maximale maat in mm berekenen
Q2 = Q1 + ( Q4 / 1000 )
63 ;
64 ;Minimale maat in mm berekenen
Q3 = Q1 + ( Q5 / 1000 )
65 ;
66 ;Tekst voor passing samenstellen
QS2 = TOCHAR( DAT+Q1 DECIMALS0 ) || QS1
67 ;
68 ;Inhoud van het maskerbestand 82502_de.a op het
69 ;beeldscherm weergeven
70 FN 16: F-PRINT 82652_nl.A / SCREEN:
71 ;
72 ;Einde van programma
73 END PGM 82651_nl MM