0 BEGIN PGM 9030_nl MM 
1 ;NC-programma om een gedefinieerd opdrachtnummer
2 ;en een opeenvolgend aantal stuks op een werkstuk
3 ;te graveren.
4 ;Het opdrachtnummer definieert u in een tabel,
5 ;daar voert u elk cijfer in een kolom in. Deze
6 ;leest de besturing dan gaandeweg uit en graveert
7 ;het cijfer. Ook het aantal stuks slaat de besturing
8 ;op in een tabel, zodat deze ondanks een
9 ;stroomonderbreking blijft behouden. Vóór het
10 ;graveren leest de besturing de tot dan toe
11 ;uitgevoerde runs uit de tabel, rekent er één bij,
12 ;schrijft de nieuwe waarde in de tabel en graveert
13 ;het aantal stuks op het werkstuk.
14 ;Vóór de programmastart moet u het graveergereedschap
15 ;en de parameters voor het graveren van het
16 ;opdrachtnummer en het aantal stuks definiëren.
17 ;Bovendien moet u het opdrachtnummer in tabel
18 ;90303_nl.tab definiëren en het aantal stuks in de
19 ;tabel 90304_nl.tab op nul terugzetten.
20 ;BELANGRIJK! Programmaruns in de programmatest worden
21 ;in de teller van het aantal stuks meegenomen!
22 ;
23 BLK FORM 0.1 Z  X+0  Y+0  Z-40
24 BLK FORM 0.2  X+100  Y+100  Z+0
25 ;
26 ;Gereedschapsoproep graveergereedschap
27 TOOL CALL 200 Z S5000
28 ;
29 ;Vrijzetten
30 L  Z+100 R0 FMAX M3
31 ;
32 ;Graveren van het opdrachtnummer uit de tabel
33 ;
34 ;Parameter-invoer
35 FN 0: Q2 =+1 ;MAATFACTOREFFECT 2D (1) of 3D (0)
36 FN 0: Q4 =-1 ;FREESDIEPTE
37 FN 0: Q6 =+1000 ;AANZET FREZEN
38 FN 0: Q7 =+200 ;AANZET DIEPTEVERPLAATSING
39 FN 0: Q8 =+1 ;VEILIGHEIDSAFSTAND
40 FN 0: Q5 =+10 ;LETTERGROOTTE
41 FN 0: Q21 =+20 ;X-STARTPUNT
42 FN 0: Q22 =+60 ;Y-STARTPUNT
43 FN 0: Q29 =+0 ;ROTATIE
44 ;Einde parameterinvoer
45 ;
46 ;Programma-oproep voor graveren van het opdrachtnumme
47 CALL PGM 90301_nl.h
48 ;
49 ;
50 ;Graveren van het aantal stuks
51 ;
52 ;Parameter-invoer
53 FN 0: Q2 =+1 ;MAATFACTOREFFECT 2D (1) of 3D (0)
54 FN 0: Q4 =-1 ;FREESDIEPTE
55 FN 0: Q6 =+1000 ;AANZET FREZEN
56 FN 0: Q7 =+200 ;AANZET DIEPTEVERPLAATSING
57 FN 0: Q8 =+1 ;VEILIGHEIDSAFSTAND
58 FN 0: Q5 =+10 ;LETTERGROOTTE
59 FN 0: Q21 =+20 ;X-STARTPUNT
60 FN 0: Q22 =+40 ;Y-STARTPUNT
61 FN 0: Q29 =+0 ;ROTATIE
62 ;Einde parameterinvoer
63 ;
64 ;
65 ;Tabel openen
66 FN 26: TABOPEN 90304_nl.TAB
67 ;Aantal stuks tot nu toe lezen
68 FN 28: TABREAD Q80 =0 /"No"
69 ;Aantal stuks verder rekenen
70 FN 1: Q80 =+Q80 + +1
71 ;Nieuwe waarde in tabel schrijven
72 FN 27: TABWRITE 0 /"No" = Q80
73 ;
74 ;Programma-oproep voor graveren van het aantal
75 ;stuks
76 CALL PGM 90302_nl.h
77 ;
78 ;Vrijzetten en programma-einde
79 L  Z+100 R0 FMAX M30
80 END PGM 9030_nl MM