0  BEGIN PGM 9030_en MM 
1  ;NC program for engraving a defined order
2  ;number and a serial unit count on a
3  ;workpiece. You define the order number in a
4  ;table. There you enter each digit of the
5  ;number in a column. The control reads it out
6  ;one after the other and engraves the number.
7  ;The control also saves the parts count in a
8  ;table so that it does not get lost when
9  ;power is switched off. Before engraving,
10 ;the control reads the completed cycles from
11 ;the table and engraves it, then writes the
12 ;new value in the table. Before program start,
13 ;you have to define the engraving tool and the
14 ;parameters for engraving the job number and
15 ;the parts count. Also, you have to define
16 ;the order number in Table 90303_en.tab and
17 ;the reset the quantity in Table 90304_en.tab
18 ;to zero.
19 ;IMPORTANT! Program runs in the Test Run mode
20 ;are also counted by the workpiece counter!
21 ;
22 BLK FORM 0.1 Z  X+0  Y+0  Z-40
23 BLK FORM 0.2  X+100  Y+100  Z+0
24 ;
25 ;Tool call, engraving tool
26 TOOL CALL 200 Z S5000
27 ;
28 ;Retract
29 L  Z+100 R0 FMAX M3
30 ;
31 ;Engrave the order number from the table
32 ;
33 ;Cutting data
34 FN 0: Q2 =+1 ;EFFECT OF THE SCALE FAKTOR
35 ;            ;0 mean effectiv on three axis
36 ;            ;1 mean effectiv on two axis
37 FN 0: Q4 =-1 ;MILLLING DEPTH
38 FN 0: Q6 =+1000 ;FEED RATE FOR MILLING
39 FN 0: Q7 =+200 ;FEED RATE FOR PLUNGING
40 FN 0: Q8 =+1 ;SAFTY CLEARANCE
41 FN 0: Q5 =+10 ;CHARACTER HEIGHT
42 FN 0: Q21 =+20 ;X STARTING POINT
43 FN 0: Q22 =+60 ;Y STARTING POINT
44 FN 0: Q29 =+0 ;ROTATION
45 ;
46 ;Program call for engraving the order number
47 CALL PGM 90301_en.h
48 ;
49 ;
50 ;Engraving the piece number
51 ;
52 ;Cutting data
53 FN 0: Q2 =+1 ;EFFECT OF THE SCALE FAKTOR
54 ;            ;0 mean effectiv on three axis
55 ;            ;1 mean effectiv on two axis
56 FN 0: Q4 =-1 ;MILLLING DEPTH
57 FN 0: Q6 =+1000 ;FEED RATE FOR MILLING
58 FN 0: Q7 =+200 ;FEED RATE FOR PLUNGING
59 FN 0: Q8 =+1 ;SAFTY CLEARANCE
60 FN 0: Q5 =+10 ;CHARACTER HEIGHT
61 FN 0: Q21 =+20 ;X STARTING POINT
62 FN 0: Q22 =+40 ;Y STARTING POINT
63 FN 0: Q29 =+0 ;ROTATION
64 ;
65 ;
66 ;Open the table
67 FN 26: TABOPEN 90304_en.TAB
68 ;Read number of pieces completed
69 FN 28: TABREAD Q80 =0 /"NO"
70 ;Calculate piece number further
71 FN 1: Q80 =+Q80 + +1
72 ;Write new value to table
73 FN 27: TABWRITE 0 /"NO" = Q80
74 ;
75 ;Program call for engraving the piece number
76 CALL PGM 90302_en.h
77 ;
78 ;Retract and program end
79 L  Z+100 R0 FMAX M30
80 END PGM 9030_en MM