0 BEGIN PGM 1105_NL MM 
1 ;Programma voor het definiëren van een
2 ;puntenpatroon in de vorm van een kader.
3 ;Voor de bewerking wordt op de berekende
4 ;posities een bewerkingscyclus opgeroepen.
5 ;In dit programma een boorcyclus. Na de
6 ;definitie van alle benodigde parameters,
7 ;van het gereedschap en de bewerkingscyclus
8 ;wordt een subprogramma opgeroepen waarin
9 ;de afzonderlijke posities worden berekend
10 ;en genaderd en de cyclus wordt uitgevoerd.
11 ;
12 ;Invoer parameters
13 FN 0: Q1 =+15 ;STARTPOSITIE OP DE X-AS
14 FN 0: Q2 =+15 ;STARTPOSITIE OP DE Y-AS
15 FN 0: Q30 =+8 ;AANTAL BEWERKINGEN OP X
16 FN 0: Q31 =+8 ;AANTAL BEWERKINGEN OP Y
17 FN 0: Q32 =+10 ;AFSTAND VAN DE BEWERKINGEN OP X
18 FN 0: Q33 =+10 ;AFSTAND VAN DE BEWERKINGEN OP Y
19 FN 0: Q7 =+0 ;ROTATIE
20 FN 0: Q8 =+2 ;VEILIGHEIDSAFSTAND
21 ;Einde parameterinvoer
22 ;
23 BLK FORM 0.1 Z X+0 Y+0 Z-25
24 BLK FORM 0.2  X+100  Y+100  Z+0
25 ;
26 ;Gereedschapsoproep boor
27 TOOL CALL 225 Z S5000
28 ;
29 ;Definitie bewerkingscyclus
30 CYCL DEF 1.0 DIEPBOREN
31 CYCL DEF 1.1 AFSTQ8
32 CYCL DEF 1.2 DIEPTE-20
33 CYCL DEF 1.3 VERPL10
34 CYCL DEF 1.4 STTIJD0
35 CYCL DEF 1.5 F100
36 ;
37 CALL LBL 20 ;Oproep subprogramma posities
38 ;
39 ;Terugtrekken en programma-einde
40 L  Z+100 R0 FMAX M2
41 ;
42 LBL 20 ;Definitie van de posities
43 FN 12: IF +Q30 LT +3 GOTO LBL 5
44 FN 12: IF +Q31 LT +3 GOTO LBL 5
45 ;Nulpunt naar eerste positie verschuiven
46 CYCL DEF 7.0 NULPUNT
47 CYCL DEF 7.1  X+Q1
48 CYCL DEF 7.2  Y+Q2
49 ;Rotatie instellen
50 CYCL DEF 10.0 ROTATIE
51 CYCL DEF 10.1  ROT+Q7
52 ;
53 L  Z+100 R0 FMAX ;Naar veilige hoogte verplaatsen
54 L  X+0  Y+0 R0 FMAX M3 ;Eerste positie benaderen
55 L  Z+Q8 R0 FMAX M99 ;Naar veiligheidsafstand verplaatsen en cyclus oproepen
56 FN 2: Q34 =+Q30 - +1 ;Teller kolommen
57 LBL 1
58 FN 2: Q34 =+Q34 - +1 ;Teller kolommen
59 L IX+Q32 FMAX M99 ;Volgende positie naderen en cyclus oproepen
60 FN 11: IF +Q34 GT +0 GOTO LBL 1 ;Vergelijking of er meer kolommen nodig zijn
61 FN 2: Q35 =+Q31 - +1 ;Teller regels
62 LBL 2
63 FN 2: Q35 =+Q35 - +1 ;Teller regels
64 L IY+Q33 FMAX M99 ;Volgende positie naderen en cyclus oproepen
65 FN 11: IF +Q35 GT +0 GOTO LBL 2 ;Vergelijking of er nog meer regels nodig zijn
66 FN 2: Q34 =+Q30 - +1 ;Teller kolommen
67 LBL 3
68 FN 2: Q34 =+Q34 - +1 ;Teller kolommen
69 L IX-Q32 FMAX M99 ;Volgende positie naderen en cyclus oproepen
70 FN 11: IF +Q34 GT +0 GOTO LBL 3 ;Vergelijking of er nog meer kolommen nodig zijn
71 FN 2: Q36 =+Q31 - +2 ;Teller regels
72 LBL 4
73 FN 2: Q36 =+Q36 - +1 ;Teller regels
74 L IY-Q33 FMAX M99 ;Volgende positie naderen en cyclus oproepen
75 FN 11: IF +Q36 GT +0 GOTO LBL 4 ;Vergelijking of er nog meer regels nodig zijn
76 FN 9: IF +0 EQU +0 GOTO LBL 6 ;Sprong naar einde van subprogramma
77 LBL 5
78 FN 14: ERROR= 1011
79 LBL 6
80 ;Nulpunt en rotatie terugzetten
81 CYCL DEF 7.0 NULPUNT
82 CYCL DEF 7.1  X+0
83 CYCL DEF 7.2  Y+0
84 CYCL DEF 7.3  Z+0
85 CYCL DEF 10.0 ROTATIE
86 CYCL DEF 10.1  ROT+0
87 LBL 0
88 END PGM 1105_NL MM