0  BEGIN PGM SL2_T MM 
1  CALL LBL Q0 ; BEARBEITUNGSFUNKTION
2  FN 17: SYSWRITE ID 212 =+3
3  FN 18: SYSREAD Q0 = ID270 NR1 IDX3
4  L  Z+Q0 R0 FQ11
5  FN 9: IF +0 EQU +0 GOTO LBL 20
6  ; FUER SL-2 TASCHENFUNKTIONEN  :
7  ; Q0==21 LBL 21 VORBOHREN
8  ; Q0==22 LBL 22 RAEUMEN/NACHRAEUMEN
9  ; Q0==23 LBL 23 SCHLICHTEN TIEFE
10 ; Q0==24 LBL 24 SCHLICHTEN SEITE
11 ; GLOBALE Q-PARAMETER
12 ; Q1 FRAESTIEFE
13 ; Q2 BAHN-UEBERLAPPUNG
14 ; Q3 SCHLICHTAUFMASS   SEITE
15 ; Q4 SCHLICHTAUFMASS TIEFE
16 ; Q5 WERKSTUECKOBERFLAECHE
17 ; Q6 SICHERHEITSABSTAND
18 ; Q7 RUECKZUGSHOEHE
19 ; Q8 RUNDUNGSRADIUS
20 ; Q9 DREHSINN -1/+1
21 ; Q10 ZUSTELLTIEFE
22 ; Q11 VORSCHUB TIEFENZUSTELLUNG
23 ; Q12 VORSCHUB RAEUMEN
24 ; Q13 NR. AUSRAEUMWERKZEUG
25 ; Q14 SCHLICHTAUFMASS SEITE
26 ; Q18 NR. VORAEUMWERKZEUG
27 ; Q19 PENDELVORSCHUB
28 ; LOCALE Q-PARAMETER
29 ; && WC WORST CASE  |BETRAG|
30 ; Q20 WC |SICHERER ABSTAND RZH-WSH|
31 ; Q21 WC WERKSTUECKHOEHEWSH
32 ; Q22 |REALE BEARBEITUNGSTIEFE|
33 ; Q23 REALE BEARBEITUNGSTIEFE
34 ; Q24 RADIUS FUER AEQUIDISTANTENBERECHNUNG
35 ; Q25 RADIUS DES BEARBEITUNGSWERKZEUGS
36 ; Q26 REALES SEITENAUFMASS
37 ; Q27 |AKT.BEARBEITUNGSTIEFE|
38 ; Q28 RADIUS VORRAEUMWERKZEUG
39 ; Q29 MM/INCH
40 LBL 21 ; VORBOHREN
41 FN 17: SYSWRITE ID 30 NR11 =+Q9 ;DREHRICHTUNG
42 FN 22: FUNCT Q0 FNR3 ; KONTUREN LESEN
43 FN 18: SYSREAD Q35 = ID1000 NR7483 ;MP7483: Werkzeugname/nummer erlaubt
44 FN 18: SYSREAD Q30 = ID30 NR52 IDX13 ;ABFRAGE, OB TOOLNAME PROGR. IST
45 FN 9: IF +Q30 EQU +0 GOTO LBL 47
46 FN 10: IF +Q35 NE +2 GOTO LBL 44
47 FN 14: ERROR= 1094 ;Toolnamen nicht erlaubt
48 LBL 44
49 FN 18: SYSREAD Q13 = ID990 NR10 IDX13 ;ZUM TOOLNAMEN EINE NUMMER SUCHEN
50 FN 10: IF +Q13 NE -1 GOTO LBL 33
51 FN 14: ERROR= 1092 ;ES KONNTE KEINE NUMMER GEFUNDEN WERDEN
52 LBL 47
53 FN 10: IF +Q35 NE +1 GOTO LBL 33
54 FN 9: IF +Q13 EQU +0 GOTO LBL 33 ;TOOLNR 0 immer erlaubt
55 FN 14: ERROR= 1093 ;Toolnummern nicht erlaubt
56 LBL 33
57 Q35 = FRAC Q13 * 10
58 Q13 = INT Q13
59 FN 18: SYSREAD Q24 = ID200 NR6 IDXQ13 .Q35 ; KORR.RADIUS
60 FN 18: SYSREAD Q25 = ID200 NR6 IDX0 ; BOHRRADIUS
61 CALL LBL 1
62 FN 17: SYSWRITE ID 31 NR27 =+0 ; VOLLE TASCHENBREITE
63 Q26 = Q24 + Q3 - Q25 ; AUFMASS FUER KORREKTUR
64 FN 17: SYSWRITE ID 30 NR14 =+Q26
65 CALL LBL 12
66 ; P1 0 KONTUR IM ARBEITSSPEICHER
67 ; P2 1 KORRIGIEREN (FRAESERRADIUS+TOOLAUFMASS+AUFMASS)
68 FN 22: FUNCT Q0 FNR47 PIN0 PIN1 PIN0 PEX+4 ;VORBOHREN
69 LBL 0
70 LBL 22 ; RAEUMEN
71 FN 17: SYSWRITE ID 31 NR53 =+Q404
72 FN 17: SYSWRITE ID 31 NR51 =+Q401
73 FN 17: SYSWRITE ID 30 NR11 =+Q9 ;DREHRICHTUNG
74 FN 22: FUNCT Q0 FNR3 ; KONTUREN LESEN
75 FN 18: SYSREAD Q24 = ID200 NR6 IDX0 ; AKT. FRAESRADIUS
76 FN 0: Q25 =+Q24 ; FRAESRADIUS
77 FN 0: Q15 =+Q24 ; FRAESRADIUS
78 CALL LBL 1
79 CALL LBL 12
80 CALL LBL 14
81 FN 9: IF +Q18 EQU +0 GOTO LBL 99
82 FN 9: IF +Q25 EQU +Q28 GOTO LBL 18
83 FN 11: IF +Q25 GT +Q28 GOTO LBL 18
84 LBL 99
85 FN 17: SYSWRITE ID 30 NR14 =+Q3 ; AUFMASS KORREKTUR
86 FN 9: IF +Q404 EQU +0 GOTO LBL 48
87 FN 11: IF +Q18 GT +0 GOTO LBL 25
88 LBL 48
89 FN 11: IF +Q24 GT +Q25 GOTO LBL 25 ; RAD. BREITE > WZ.RAD.
90 ; PI1 0 KONTUR IM ARBEITSSPEICHER
91 ; PI2 1 VORHER KORRIGIEREN (FR-RADIUS+FR-AUFMASS+AUFMASS)
92 ; PI3 2 FILTER FUER KONTURUEBERGAENGE (Q8-RADIUS) BENUTZEN
93 ; PE1 4 HELIKAL EINPENDELN UND FRAESBAHNEN IN EBENE VERBINDEN
94 FN 22: FUNCT Q0 FNR48 PIN0 PIN1 PIN2 PEX+5
95 FN 17: SYSWRITE ID 31 NR25 =+Q15 ;RAEUMRADIUS
96 LBL 0
97 LBL 25
98 FN 18: SYSREAD Q29 = ID410 NR8 ; ANZAHL DER SCHICHTEN
99 FN 0: Q16 =+Q28 ; RAEUMRADIUS
100 LBL 26
101 FN 18: SYSREAD Q25 = ID200 NR1 IDX0 ;  WERKZEUGRADIUS PLUS DR
102 FN 1: Q25 =+Q25 + +Q3 ; PLUS AUFMASS
103 FN 1: Q28 =+Q16 + +Q3 ; RAEUM.RADIUS + AUFMASS
104 FN 9: IF +Q29 EQU +0 GOTO LBL 27
105 FN 22: FUNCT Q0 FNR115 ; SCHICHTWEISE LESEN
106 LBL 27
107 FN 22: FUNCT Q0 FNR4 PIN0 PIN1027 ; COPY IN 259
108 FN 22: FUNCT Q0 FNR30 PIN0 PIN1025 PEX+Q25 ; KORR. MIT WERKZEUGRADIUS
109 FN 18: SYSREAD Q0 = ID410 NR6 IDX1025 ; GIBT ES ERGEBNIS ?
110 FN 9: IF +Q0 EQU +0 GOTO LBL 30
111 FN 22: FUNCT Q0 FNR30 PIN0 PIN1026 PEX+Q28 ; KORR. MIT VORAEUMRADIUS
112 FN 18: SYSREAD Q0 = ID410 NR6 IDX1026 ; GIBT ES ERGEBNIS ?
113 FN 9: IF +Q0 EQU +0 GOTO LBL 30
114 FN 2: Q28 =+Q28 - +Q25 ; RADIUS + WERKZEUGRADIUS
115 FN 1: Q28 =+Q28 + +0.01 ; RADIUS + 10u
116 FN 22: FUNCT Q0 FNR11 PIN1026 PIN0 ; TASCHE IN INSEL LOC(258)
117 FN 22: FUNCT Q0 FNR30 PIN0 PIN1026 PEX+Q28 ; INSEL KORRIGIEREN
118 FN 18: SYSREAD Q0 = ID410 NR6 IDX1026 ; GIBT ES ERGEBNIS ?
119 FN 9: IF +Q0 EQU +0 GOTO LBL 30
120 FN 22: FUNCT Q0 FNR4 PIN1025 PIN1026 PIN2 ; KONTUREN IN ARBEITSBEREICH
121 FN 22: FUNCT Q0 FNR5 PIN1025 ; SPEICHER FREIGEBEN
122 FN 22: FUNCT Q0 FNR5 PIN1026 ; SPEICHER FREIGEBEN
123 FN 22: FUNCT Q0 FNR5 ; GARBAGE - COLLECTION
124 FN 22: FUNCT Q0 FNR33 PIN0 PIN0 PIN2 ; KONTUREN KOMB.  TASCHE-INSEL
125 FN 9: IF +Q0 EQU +0 GOTO LBL 28
126 LBL 30 ; STREIFEN RAEUMEN
127 FN 22: FUNCT Q0 FNR4 PIN1027 PIN0 ; KONTUREN IN ARBEITSBEREICH LADEN
128 FN 22: FUNCT Q0 FNR48 PIN0 PIN1 PIN2 PEX+5 ; STREIFEN RAEUMEN (Q24)
129 FN 18: SYSREAD Q29 = ID410 NR8 ; ANZAHL DER SCHICHTEN
130 FN 0: Q25 =+Q15
131 FN 0: Q28 =+Q16
132 FN 11: IF +Q29 GT +0 GOTO LBL 26 ; WEITERE SCHICHT ?
133 FN 17: SYSWRITE ID 31 NR25 =+Q15 ; WERKZEUGRADIUS
134 LBL 0
135 LBL 28 ; NACHRAEUMBEREICHE RAEUMEN
136 FN 22: FUNCT Q0 FNR48 PIN0 PIN0 PIN2 PEX+13
137 FN 22: FUNCT Q0 FNR4 PIN1027 PIN0 ; KONTUREN IN ARBEITSBEREICH
138 FN 18: SYSREAD Q29 = ID410 NR8 ; ANZAHL DER SCHICHTEN
139 FN 0: Q25 =+Q15
140 FN 0: Q28 =+Q16
141 FN 11: IF +Q29 GT +0 GOTO LBL 26 ; WEITERE SCHICHT ?
142 FN 17: SYSWRITE ID 31 NR25 =+Q15 ; WERKZEUGRADIUS
143 LBL 0
144 LBL 23 ; TIEFENSCHLICHTEN
145 FN 17: SYSWRITE ID 30 NR11 =+Q9 ;DREHRICHTUNG
146 FN 22: FUNCT Q0 FNR3 ; KONTUREN LESEN
147 FN 18: SYSREAD Q24 = ID200 NR6 IDX0
148 FN 0: Q15 =+Q24 ; FRAESRADIUS
149 CALL LBL 1
150 Q27 = ABS ( Q23 )
151 FN 17: SYSWRITE ID 30 NR2 =+Q23
152 FN 17: SYSWRITE ID 30 NR3 =+Q27
153 FN 17: SYSWRITE ID 30 NR4 =+Q11 ;V-TIEF
154 FN 17: SYSWRITE ID 30 NR10 =+Q12 ;V-FRAES
155 FN 17: SYSWRITE ID 31 NR27 =+0
156 FN 17: SYSWRITE ID 31 NR16 =+0
157 FN 17: SYSWRITE ID 31 NR45 =+Q208 ;V-RUECK
158 FN 18: SYSREAD Q27 = ID31 NR32
159 FN 12: IF +Q27 LT +32 GOTO LBL 42 ;VORHER SEITESCHLICHTEN
160 FN 17: SYSWRITE ID 30 NR14 =+0 ;AUFMASS
161 LBL 42
162 ; PI1 0 KONTUR IM ARBEITSSPEICHER
163 ; PI2 1 KORRIGIEREN (FRAESERRADIUS+TOOLAUFMASS)
164 ; PI3 2 FILTER FUER KONTURUEBERGAENGE (Q8-RADIUS) BENUTZEN
165 ; PE1 3 FRAESBAHNEN IN EBENE VERBINDEN
166 ; PE2   AUFMASS FUER TIEFEANSCHLICHTEN(Q4)
167 FN 22: FUNCT Q0 FNR46 PIN0 PIN1 PIN2 PEX+7 PEX+Q4
168 FN 17: SYSWRITE ID 31 NR25 =+Q15 ; RADIUS FR SEITENSCHLICHTEN
169 LBL 0
170 LBL 24 ; SEITENSCHLICHTEN
171 FN 17: SYSWRITE ID 30 NR11 =+Q9 ;DREHRICHTUNG
172 FN 22: FUNCT Q0 FNR3 ; KONTUREN LESEN
173 FN 18: SYSREAD Q24 = ID200 NR6 IDX0
174 CALL LBL 1
175 FN 18: SYSREAD Q27 = ID31 NR32
176 FN 2: Q27 =+Q27 - +32
177 FN 11: IF +Q27 GT +15 GOTO LBL 35 ;VORHER TIEFESCHLICHTEN
178 CALL LBL 12
179 FN 9: IF +0 EQU +0 GOTO LBL 36
180 LBL 35
181 CALL LBL 13
182 LBL 36
183 FN 18: SYSREAD Q25 = ID31 NR25 ; RAEUMRAD.
184 FN 18: SYSREAD Q26 = ID200 NR6 IDX0 ; SCHLICHTRAD.
185 FN 17: SYSWRITE ID 31 NR17 =+Q14 ; SCHLICHTAUFMASS SEITE
186 FN 17: SYSWRITE ID 30 NR10 =+Q12
187 FN 18: SYSREAD Q35 = ID1000 NR7483 ;MP7483: Werkzeugname/nummer erlaubt
188 Q18 = Q438
189 FN 18: SYSREAD Q28 = ID30 NR52 IDX438 ;ABFRAGE, OB TOOLNAME PROGR. IST
190 FN 9: IF +Q28 EQU -1 GOTO LBL 55
191 FN 9: IF +Q28 EQU +0 GOTO LBL 55
192 FN 10: IF +Q35 NE +2 GOTO LBL 56
193 FN 14: ERROR= 1094 ;Toolnamen nicht erlaubt
194 LBL 56
195 FN 18: SYSREAD Q18 = ID990 NR10 IDX438 ;ZUM TOOLNAMEN EINE NUMMER SUCHEN
196 FN 10: IF +Q18 NE -1 GOTO LBL 54
197 FN 14: ERROR= 1092 ;ES KONNTE KEINE NUMMER GEFUNDEN WERDEN
198 LBL 55
199 FN 10: IF +Q35 NE +1 GOTO LBL 54
200 FN 9: IF +Q18 EQU +0 GOTO LBL 54 ;TOOLNR 0 immer erlaubt
201 FN 14: ERROR= 1093 ;Toolnummern nicht erlaubt
202 LBL 54
203 FN 12: IF +Q18 LT +0 GOTO LBL 49 ;
204 Q35 = FRAC Q18 * 10
205 Q18 = INT Q18
206 FN 18: SYSREAD Q25 = ID200 NR6 IDXQ18 .Q35 ; RADIUS RW.
207 FN 11: IF +Q18 GT +0 GOTO LBL 49
208 Q25 = 0
209 LBL 49
210 FN 11: IF +Q25 GT +0 GOTO LBL 37 ; RAEUMRADIUS
211 Q25 = Q3 - Q26 - Q14 ; RESTBREITE
212 FN 11: IF +Q25 GT +0 GOTO LBL 31
213 FN 14: ERROR= 1003
214 LBL 0
215 LBL 31
216 FN 17: SYSWRITE ID 31 NR17 =+Q25 ; S_AUFMASS
217 FN 22: FUNCT Q0 FNR45 PIN0 PIN1 PIN2 PEX+1 PEX+Q14
218 LBL 0
219 LBL 37
220 Q25 = Q25 + Q3 - Q26 - Q14 ; RESTBREITE
221 FN 11: IF +Q25 GT +0 GOTO LBL 38
222 FN 14: ERROR= 1003
223 LBL 0
224 LBL 38
225 FN 9: IF +Q14 EQU +0 GOTO LBL 39
226 Q27 = Q27 % 2
227 FN 9: IF +Q27 EQU +0 GOTO LBL 39
228 Q24 = Q25 / ABS Q14 ; ANZAHL DER ZUSTELLUNEGEN
229 FN 11: IF +Q24 GT +1 GOTO LBL 40
230 LBL 39
231 FN 17: SYSWRITE ID 31 NR17 =+Q25 ; SCHLICHTAUFMASS SEITE
232 FN 22: FUNCT Q0 FNR45 PIN0 PIN1 PIN2 PEX+1 PEX+Q14
233 LBL 0
234 LBL 40
235 Q24 = Q25 % Q14 ; MOD. RESTBREITE
236 FN 11: IF +Q24 GT +0.016 GOTO LBL 39
237 FN 12: IF +Q25 LT +Q14 GOTO LBL 39
238 FN 2: Q25 =+Q25 - +Q14
239 FN 1: Q24 =+Q24 + +Q14
240 LBL 41
241 ; PI1 0 KONTUR IM ARBEITSSPEICHER
242 ; PI2 1 KORRIGIEREN (FRAESERRADIUS+TOOLAUFMASS)
243 ; PI3 2 FILTER FUER KONTURUEBERGAENGE BENUTZEN
244 ; PE1 SEITLICH ANSCHLICHTEN
245 ; PE2 RESTBREITE
246 FN 17: SYSWRITE ID 31 NR17 =+Q24 ; SCHLICHTAUFMASS SEITE
247 FN 22: FUNCT Q0 FNR45 PIN0 PIN1 PIN2 PEX+1 PEX+Q25
248 FN 2: Q25 =+Q25 - +Q24
249 Q24 = Q14
250 FN 11: IF +Q25 GT +0.001 GOTO LBL 41
251 LBL 0
252 LBL 1
253 FN 18: SYSREAD Q29 = ID10 NR5 IDX2
254 FN 9: IF +Q29 EQU +0 GOTO LBL 2
255 FN 3: Q1 =+Q1 * +25.4 ; MM-INCH UMRECHNUNG
256 FN 3: Q3 =+Q3 * +25.4
257 FN 3: Q4 =+Q4 * +25.4
258 FN 3: Q5 =+Q5 * +25.4
259 FN 3: Q6 =+Q6 * +25.4
260 FN 3: Q7 =+Q7 * +25.4
261 FN 3: Q8 =+Q8 * +25.4
262 LBL 2 ; SYSTEMPARAMETER BESCHREIBEN
263 FN 17: SYSWRITE ID 30 NR14 =+Q3 ;AUFMASS
264 FN 17: SYSWRITE ID 31 NR16 =+Q4 ;T_AUFMASS
265 FN 17: SYSWRITE ID 31 NR17 =+0 ;S_AUFMASS
266 FN 17: SYSWRITE ID 31 NR19 =+0 ;PENDELWINKEL
267 FN 17: SYSWRITE ID 31 NR20 =+0 ;PENDELHUB
268 FN 17: SYSWRITE ID 31 NR21 =+0 ;PENDELVORSCHUB
269 FN 17: SYSWRITE ID 31 NR45 =+0 ;VORSCHUB RUECKZUG GLEICH EILGANG
270 FN 0: Q26 =+Q8 ; AUS UEBERGANGSRADIUS BAHNABWEICHUNG
271 FN 9: IF +Q26 EQU +0 GOTO LBL 3
272 FN 4: Q26 =+Q26 DIV +4 ; BAHNABWEICHUNG
273 FN 11: IF +Q26 GT +0.016 GOTO LBL 3
274 FN 0: Q26 =+0.016 ; MIN.BAHNABWEICHUNG
275 LBL 3
276 FN 17: SYSWRITE ID 31 NR18 =+Q26
277 FN 18: SYSREAD Q21 = ID20 NR3 ;WZ-Achse
278 FN 1: Q21 =+Q21 + +1 ; wg. x==1
279 FN 18: SYSREAD Q22 = ID220 NR2 IDXQ21 ;VERSCHIEBUNG
280 FN 18: SYSREAD Q23 = ID210 NR4 IDXQ21 ;SKALIERUNG
281 Q21 = Q23 * Q5 + Q22 ;WS-HOEHE ; TRANSFORMATION
282 Q22 = Q23 * Q7 + Q22 ;RZG-HOEHE ; TRANSFORMATION
283 FN 17: SYSWRITE ID 31 NR23 =+Q21 ;WS-HOEHE
284 Q29 = SGN Q1
285 FN 10: IF +Q1 NE +0 GOTO LBL 43
286 Q29 = SGN ( Q21 - Q22 )
287 LBL 43
288 Q20 = Q29 * ( Q21 - Q22 )
289 Q22 = ABS Q6 * Q23 ;
290 FN 11: IF +Q20 GT +Q22 GOTO LBL 6
291 FN 0: Q20 =+Q22 ; RUECKZUG HOEHER MACHEN
292 LBL 6
293 FN 17: SYSWRITE ID 30 NR1 =+Q22 ;MOD.SICHERHEITSABSTAND
294 Q22 = Q21 - Q29 * Q22
295 FN 17: SYSWRITE ID 31 NR24 =+Q22 ;ZYKLUSANFANGSHOEHE
296 Q22 = Q21 - Q29 * Q20
297 FN 17: SYSWRITE ID 31 NR22 =+Q22 ;RUECKZUGSHOEHE
298 Q23 = ( Q1 * Q23 ) ; BEARBEITUNGSTIEFE(SKALIERUNG IN WZ-ACHSE)
299 Q22 = ABS Q23 ; BETRAG BEARBEITUNGSTIEFE
300 FN 17: SYSWRITE ID 214 NR6 =+132 ; K-PARL. BEARB.
301 FN 17: SYSWRITE ID 214 NR6 IDX1 =+Q9 ; DREHSINN
302 FN 0: Q29 =+Q24
303 FN 9: IF +Q2 EQU +0 GOTO LBL 10
304 FN 9: IF +Q2 EQU +1 GOTO LBL 10
305 FN 3: Q29 =+Q24 * +Q2 ; ABSTAND DER AEQUIDISTANTEN
306 LBL 10
307 FN 17: SYSWRITE ID 31 NR26 =+Q29 ;RAD.ZUSTELLUNG
308 LBL 0
309 LBL 12
310 Q22 = Q22 - Q4 ; BETRAG BEARBEITUNGSTIEFE
311 FN 11: IF +Q22 GT +0 GOTO LBL 13
312 Q22 = 0
313 LBL 13
314 Q23 = SGN Q1 * Q22
315 FN 17: SYSWRITE ID 30 NR2 =+Q23 ;BOHRTIEFE
316 Q20 = ABS Q10 ; BETRAG ZUSTELLUNG
317 FN 17: SYSWRITE ID 30 NR3 =+Q20 ;BETRAG ZUSTELLUNG
318 FN 17: SYSWRITE ID 30 NR4 =+Q11 ;V-TIEF
319 LBL 0
320 LBL 14
321 FN 17: SYSWRITE ID 30 NR10 =+Q12 ;V-FRAES
322 FN 17: SYSWRITE ID 31 NR21 =+Q19 ;PENDELVORSCHUB
323 FN 17: SYSWRITE ID 31 NR45 =+Q208 ;VORSCHUB RUECKZUG
324 FN 9: IF +Q19 EQU +0 GOTO LBL 15
325 FN 17: SYSWRITE ID 31 NR19 =+10 ; PENDELWINKEL DEF
326 FN 4: Q24 =+Q10 DIV +2
327 FN 17: SYSWRITE ID 31 NR20 =+Q24 ; PENDELHUB DEF
328 LBL 15
329 FN 0: Q24 =+0
330 FN 0: Q28 =+0
331 FN 18: SYSREAD Q35 = ID1000 NR7483 ;MP7483: Werkzeugname/nummer erlaubt
332 FN 18: SYSREAD Q30 = ID30 NR52 IDX18 ;ABFRAGE, OB TOOLNAME PROGR. IST
333 FN 9: IF +Q30 EQU +0 GOTO LBL 45
334 FN 10: IF +Q35 NE +2 GOTO LBL 46
335 FN 14: ERROR= 1094 ;Toolnamen nicht erlaubt
336 LBL 46
337 FN 18: SYSREAD Q18 = ID990 NR10 IDX18 ;ZUM TOOLNAMEN EINE NUMMER SUCHEN
338 FN 10: IF +Q18 NE -1 GOTO LBL 34
339 FN 14: ERROR= 1092 ;ES KONNTE KEINE NUMMER GEFUNDEN WERDEN
340 LBL 45
341 FN 10: IF +Q35 NE +1 GOTO LBL 34
342 FN 9: IF +Q18 EQU +0 GOTO LBL 34 ;TOOLNR 0 immer erlaubt
343 FN 14: ERROR= 1093 ;Toolnummern nicht erlaubt
344  
345 LBL 34
346 FN 9: IF +Q18 EQU +0 GOTO LBL 16 ; NR.RAEUMWERKZEUG
347 FN 12: IF +Q18 LT +0 GOTO LBL 16 ;
348 Q35 = FRAC Q18 * 10
349 Q18 = INT Q18
350 FN 18: SYSREAD Q24 = ID200 NR6 IDXQ18 .Q35 ; RADIUS RW.
351 FN 0: Q28 =+Q24
352 FN 4: Q24 =+Q24 DIV +2
353 LBL 16
354 FN 17: SYSWRITE ID 31 NR27 =+Q24 ;RAD. BREITE
355 LBL 0
356 LBL 18
357 FN 14: ERROR= 1003
358 LBL 20
359 END PGM SL2_T MM 
