Heidenhain iTNC 530
Hier findest Du einige Parameterprogramme für Fräsmaschinen mit der Heidenhain iTNC 530 Steuerung. Für tägliche und sich oft wiederholende Bearbeitungen kann man sich schonmal das Leben erleichtern.
Text gravieren
Ein kleines Programm von Heidenhain selbst entwickelt, mit dem man Text gravieren kann. Soll ab Steuerung TNC 155 B/Q funktionieren. Einige Vorschubfehler sind mir im laufenden Betrieb aufgefallen, habe ich korrigiert. Da ich das F9999 durch FMAX ersetzt habe, wird es auf einer TNC 155 wahrscheinlich nicht funktionieren... Ein paar weitere Sonderzeichen hab ich noch hinzugefügt: [ ] ( ) \ / : ; , + = < >
gravieren.h
Code eingefügt.
0 BEGIN PGM Gravieren MM
1 BLK FORM 0.1 Z X+0 Y-50 Z-5
2 BLK FORM 0.2 X+100 Y+0 Z+0
3 ;
4 ; Variablen definieren
5 ;
6 ; Art der Gravur
7 FN 0: Q991 =+0
8 ; -> 0: Text auf Gerade
9 ; -> 1: Text auf Kreis
10 ;
11 ; Texteingabe
12 DECLARE STRING QS1 = "[(Text)\:.;, /(<08+-=15>)]"
13 ;
14 ; Abfrage, ob linear oder rotierend
15 FN 9: IF +Q991 EQU +0 GOTO LBL "TEXT_LINE"
16 FN 9: IF +Q991 EQU +1 GOTO LBL "TEXT_CIRCLE"
17 ;
18 ; Text auf Gerade
19 LBL "TEXT_LINE"
20 FN 0: Q5 =+5 ;Schrifthoehe
21 FN 0: Q21 =+5 ;X Startpunkt
22 FN 0: Q22 =-29 ;Y Startpunkt
23 FN 9: IF +0 EQU +0 GOTO LBL "GLOBALS"
24 ;
25 ; Text auf Kreis
26 LBL "TEXT_CIRCLE"
27 FN 0: Q5 =+5 ;Schrifthoehe
28 FN 0: Q11 =+50 ; X Kreismitte
29 FN 0: Q12 =-50 ; Y Kreismitte
30 FN 0: Q16 =+35 ;Radius
31 FN 0: Q17 =-180 ;Startwinkel
32 FN 9: IF +0 EQU +0 GOTO LBL "GLOBALS"
33 ;
34 ; Globale Einstellungen
35 LBL "GLOBALS"
36 FN 0: Q2 =+1 ; Massfaktorwirkung
37 ; Q2 = Inhalt von MP 7410
38 ; -> 0: Wirkt in 3 Achsen
39 ; -> 1: Wirkt in 2 Achsen
40 ;
41 FN 0: Q995 =+29 ; Werkzeugnummer
42 FN 0: Q996 =+4000 ; Drehzahl
43 FN 0: Q4 =-1 ; Tiefe Gravur
44 FN 0: Q6 =+1000 ; Vorschub
45 FN 0: Q7 =+1000 ; Eintauchvorschub
46 FN 0: Q8 =+5 ; Sicherheitsabstand
47 FN 0: Q88 =+50 ; 2. Sicherheitsabstand
48 ;
49 ; Ab hier nichts mehr aendern!!
50 ;
51 TOOL CALL Q995 Z SQ996
52 FN 9: IF +Q991 EQU +0 GOTO LBL "START_LINE"
53 FN 9: IF +Q991 EQU +1 GOTO LBL "START_CIRCLE"
54 LBL "START_LINE"
55 CYCL DEF 301 ~
Q1998=+1
56 L X+Q21 Y+Q22 FMAX
/ 57 L X+Q21 Y+Q22 FMAX M3
58 L Z+Q8 FMAX M8
59 CALL LBL "SCHREIBEN"
60 FN 9: IF +0 EQU +0 GOTO LBL "NEXT"
61 LBL "START_CIRCLE"
62 CYCL DEF 301 ~
Q1998=+1
63 L X+Q11 Y+Q12 FMAX
/ 64 L X+Q11 Y+Q12 FMAX M3
65 L Z+Q8 FMAX M8
66 CALL LBL "SCHREIBEN"
67 ;
68 LBL "NEXT"
69 FN 0: Q16 =+0 ; Reset Radius
70 FN 0: Q14 =+0 ; Reset Winkel
71 FN 0: Q29 =+0 ; Reset Rotation
72 FN 9: IF +0 EQU +0 GOTO LBL "END-PGM"
73 ;
74 LBL "SCHREIBEN"
75 Q3 = STRLEN( SRC_QS1 )
76 FN 2: Q15 =+Q3 - +1
77 FN 0: Q10 =+0
78 LBL "JH"
79 CALL LBL "CODE"
80 FN 1: Q10 =+Q10 + +1
81 CALL LBL "JH" REPQ15
82 LBL 0
83 ;
84 LBL "CODE"
85 FN 0: Q9 =+Q4
86 FN 9: IF +Q2 EQU +1 GOTO LBL 4
87 FN 4: Q9 =+Q4 DIV +Q5
88 ;
89 LBL 4
90 FN 9: IF +Q16 EQU +0 GOTO LBL 6
91 FN 2: Q29 =+Q17 - +90
92 FN 11: IF +Q17 GT +0 GOTO LBL 5
93 FN 1: Q29 =+Q17 + +90
94 ;
95 LBL 5
96 FN 7: Q21 = COS +Q17
97 FN 3: Q21 =+Q21 * +Q16
98 FN 1: Q21 =+Q21 + +Q11
99 FN 6: Q22 = SIN +Q17
100 FN 3: Q22 =+Q22 * +Q16
101 FN 1: Q22 =+Q22 + +Q12
102 ;
103 LBL 6
104 CYCL DEF 7.0 NULLPUNKT
105 CYCL DEF 7.1 X+Q21
106 CYCL DEF 7.2 Y+Q22
107 FN 4: Q20 =+Q5 DIV +10
108 CYCL DEF 11.0 MASSFAKTOR
109 CYCL DEF 11.1 SCL Q20
110 CYCL DEF 10.0 DREHUNG
111 CYCL DEF 10.1 ROT+Q29
112 ;
113 ; Zeichentabelle
114 ;
115 LBL "L30"
116 QS11 = " "
117 FN 0: Q1 =+30
118 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
119 FN 11: IF +Q13 GT +Q10 GOTO LBL "L31"
120 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
121 ;
122 LBL "L31"
123 QS11 = "<"
124 FN 0: Q1 =+31
125 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
126 FN 11: IF +Q13 GT +Q10 GOTO LBL "L32"
127 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
128 ;
129 LBL "L32"
130 QS11 = ">"
131 FN 0: Q1 =+32
132 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
133 FN 11: IF +Q13 GT +Q10 GOTO LBL "L33"
134 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
135 ;
136 LBL "L33"
137 QS11 = "["
138 FN 0: Q1 =+33
139 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
140 FN 11: IF +Q13 GT +Q10 GOTO LBL "L34"
141 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
142 ;
143 LBL "L34"
144 QS11 = "]"
145 FN 0: Q1 =+34
146 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
147 FN 11: IF +Q13 GT +Q10 GOTO LBL "L35"
148 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
149 ;
150 LBL "L35"
151 QS11 = "\"
152 FN 0: Q1 =+35
153 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
154 FN 11: IF +Q13 GT +Q10 GOTO LBL "L36"
155 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
156 ;
157 LBL "L36"
158 QS11 = "("
159 FN 0: Q1 =+36
160 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
161 FN 11: IF +Q13 GT +Q10 GOTO LBL "L37"
162 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
163 ;
164 LBL "L37"
165 QS11 = ")"
166 FN 0: Q1 =+37
167 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
168 FN 11: IF +Q13 GT +Q10 GOTO LBL "L38"
169 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
170 ;
171 LBL "L38"
172 QS11 = "+"
173 FN 0: Q1 =+38
174 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
175 FN 11: IF +Q13 GT +Q10 GOTO LBL "L39"
176 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
177 ;
178 LBL "L39"
179 QS11 = "="
180 FN 0: Q1 =+39
181 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
182 FN 11: IF +Q13 GT +Q10 GOTO LBL "L40"
183 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
184 ;
185 LBL "L40"
186 QS11 = ":"
187 FN 0: Q1 =+40
188 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
189 FN 11: IF +Q13 GT +Q10 GOTO LBL "L41"
190 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
191 ;
192 LBL "L41"
193 QS11 = ","
194 FN 0: Q1 =+41
195 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
196 FN 11: IF +Q13 GT +Q10 GOTO LBL "L42"
197 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
198 ;
199 LBL "L42"
200 QS11 = ";"
201 FN 0: Q1 =+42
202 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
203 FN 11: IF +Q13 GT +Q10 GOTO LBL "L45"
204 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
205 ;
206 LBL "L45"
207 QS11 = "-"
208 FN 0: Q1 =+45
209 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
210 FN 11: IF +Q13 GT +Q10 GOTO LBL "L46"
211 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
212 ;
213 LBL "L46"
214 QS11 = "."
215 FN 0: Q1 =+46
216 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
217 FN 11: IF +Q13 GT +Q10 GOTO LBL "L47"
218 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
219 ;
220 LBL "L47"
221 QS11 = "/"
222 FN 0: Q1 =+47
223 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
224 FN 11: IF +Q13 GT +Q10 GOTO LBL "L48"
225 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
226 ;
227 LBL "L48"
228 QS11 = "0"
229 FN 0: Q1 =+48
230 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
231 FN 11: IF +Q13 GT +Q10 GOTO LBL "L49"
232 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
233 ;
234 LBL "L49"
235 QS11 = "1"
236 FN 0: Q1 =+49
237 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
238 FN 11: IF +Q13 GT +Q10 GOTO LBL "L50"
239 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
240 ;
241 LBL "L50"
242 QS11 = "2"
243 FN 0: Q1 =+50
244 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
245 FN 11: IF +Q13 GT +Q10 GOTO LBL "L51"
246 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
247 ;
248 LBL "L51"
249 QS11 = "3"
250 FN 0: Q1 =+51
251 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
252 FN 11: IF +Q13 GT +Q10 GOTO LBL "L52"
253 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
254 ;
255 LBL "L52"
256 QS11 = "4"
257 FN 0: Q1 =+52
258 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
259 FN 11: IF +Q13 GT +Q10 GOTO LBL "L53"
260 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
261 ;
262 LBL "L53"
263 QS11 = "5"
264 FN 0: Q1 =+53
265 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
266 FN 11: IF +Q13 GT +Q10 GOTO LBL "L54"
267 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
268 ;
269 LBL "L54"
270 QS11 = "6"
271 FN 0: Q1 =+54
272 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
273 FN 11: IF +Q13 GT +Q10 GOTO LBL "L55"
274 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
275 ;
276 LBL "L55"
277 QS11 = "7"
278 FN 0: Q1 =+55
279 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
280 FN 11: IF +Q13 GT +Q10 GOTO LBL "L56"
281 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
282 ;
283 LBL "L56"
284 QS11 = "8"
285 FN 0: Q1 =+56
286 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
287 FN 11: IF +Q13 GT +Q10 GOTO LBL "L57"
288 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
289 ;
290 LBL "L57"
291 QS11 = "9"
292 FN 0: Q1 =+57
293 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
294 FN 11: IF +Q13 GT +Q10 GOTO LBL "A"
295 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
296 ;
297 LBL "A" ;
298 QS11 = "A"
299 FN 0: Q1 =+65
300 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
301 FN 11: IF +Q13 GT +Q10 GOTO LBL "LB"
302 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
303 ;
304 LBL "LB"
305 FN 0: Q1 =+66
306 QS11 = "B"
307 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
308 FN 11: IF +Q13 GT +Q10 GOTO LBL "LC"
309 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
310 ;
311 LBL "LC"
312 FN 0: Q1 =+67
313 QS11 = "C"
314 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
315 FN 11: IF +Q13 GT +Q10 GOTO LBL "LD"
316 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
317 ;
318 LBL "LD"
319 QS11 = "D"
320 FN 0: Q1 =+68
321 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
322 FN 11: IF +Q13 GT +Q10 GOTO LBL "LE"
323 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
324 ;
325 LBL "LE"
326 QS11 = "E"
327 FN 0: Q1 =+69
328 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
329 FN 11: IF +Q13 GT +Q10 GOTO LBL "LF"
330 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
331 ;
332 LBL "LF"
333 QS11 = "F"
334 FN 0: Q1 =+70
335 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
336 FN 11: IF +Q13 GT +Q10 GOTO LBL "LG"
337 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
338 ;
339 LBL "LG"
340 QS11 = "G"
341 FN 0: Q1 =+71
342 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
343 FN 11: IF +Q13 GT +Q10 GOTO LBL "LH"
344 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
345 ;
346 LBL "LH"
347 QS11 = "H"
348 FN 0: Q1 =+72
349 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
350 FN 11: IF +Q13 GT +Q10 GOTO LBL "LI"
351 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
352 ;
353 LBL "LI"
354 QS11 = "I"
355 FN 0: Q1 =+73
356 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
357 FN 11: IF +Q13 GT +Q10 GOTO LBL "LJ"
358 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
359 ;
360 LBL "LJ"
361 QS11 = "J"
362 FN 0: Q1 =+74
363 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
364 FN 11: IF +Q13 GT +Q10 GOTO LBL "LK"
365 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
366 ;
367 LBL "LK"
368 QS11 = "K"
369 FN 0: Q1 =+75
370 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
371 FN 11: IF +Q13 GT +Q10 GOTO LBL "LL"
372 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
373 ;
374 LBL "LL"
375 QS11 = "L"
376 FN 0: Q1 =+76
377 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
378 FN 11: IF +Q13 GT +Q10 GOTO LBL "LM"
379 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
380 ;
381 LBL "LM"
382 QS11 = "M"
383 FN 0: Q1 =+77
384 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
385 FN 11: IF +Q13 GT +Q10 GOTO LBL "LN"
386 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
387 ;
388 LBL "LN"
389 QS11 = "N"
390 FN 0: Q1 =+78
391 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
392 FN 11: IF +Q13 GT +Q10 GOTO LBL "LO"
393 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
394 ;
395 LBL "LO"
396 QS11 = "O"
397 FN 0: Q1 =+79
398 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
399 FN 11: IF +Q13 GT +Q10 GOTO LBL "LP"
400 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
401 ;
402 LBL "LP"
403 QS11 = "P"
404 FN 0: Q1 =+80
405 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
406 FN 11: IF +Q13 GT +Q10 GOTO LBL "LQ"
407 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
408 ;
409 LBL "LQ"
410 QS11 = "Q"
411 FN 0: Q1 =+81
412 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
413 FN 11: IF +Q13 GT +Q10 GOTO LBL "LR"
414 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
415 ;
416 LBL "LR"
417 QS11 = "R"
418 FN 0: Q1 =+82
419 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
420 FN 11: IF +Q13 GT +Q10 GOTO LBL "LS"
421 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
422 ;
423 LBL "LS"
424 QS11 = "S"
425 FN 0: Q1 =+83
426 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
427 FN 11: IF +Q13 GT +Q10 GOTO LBL "LT"
428 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
429 ;
430 LBL "LT"
431 QS11 = "T"
432 FN 0: Q1 =+84
433 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
434 FN 11: IF +Q13 GT +Q10 GOTO LBL "LU"
435 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
436 ;
437 LBL "LU"
438 QS11 = "U"
439 FN 0: Q1 =+85
440 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
441 FN 11: IF +Q13 GT +Q10 GOTO LBL "LV"
442 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
443 ;
444 LBL "LV"
445 QS11 = "V"
446 FN 0: Q1 =+86
447 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
448 FN 11: IF +Q13 GT +Q10 GOTO LBL "LW"
449 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
450 ;
451 LBL "LW"
452 QS11 = "W"
453 FN 0: Q1 =+87
454 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
455 FN 11: IF +Q13 GT +Q10 GOTO LBL "LX"
456 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
457 ;
458 LBL "LX"
459 QS11 = "X"
460 FN 0: Q1 =+88
461 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
462 FN 11: IF +Q13 GT +Q10 GOTO LBL "LY"
463 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
464 ;
465 LBL "LY"
466 QS11 = "Y"
467 FN 0: Q1 =+89
468 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
469 FN 11: IF +Q13 GT +Q10 GOTO LBL "LZ"
470 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
471 ;
472 LBL "LZ"
473 QS11 = "Z"
474 FN 0: Q1 =+90
475 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
476 FN 11: IF +Q13 GT +Q10 GOTO LBL "LAA"
477 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
478 ;
479 LBL "LAA" ;
480 QS11 = "a"
481 FN 0: Q1 =+97
482 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
483 FN 11: IF +Q13 GT +Q10 GOTO LBL "LBB"
484 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
485 ;
486 LBL "LBB"
487 FN 0: Q1 =+98
488 QS11 = "b"
489 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
490 FN 11: IF +Q13 GT +Q10 GOTO LBL "LCC"
491 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
492 ;
493 LBL "LCC"
494 FN 0: Q1 =+99
495 QS11 = "c"
496 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
497 FN 11: IF +Q13 GT +Q10 GOTO LBL "LDD"
498 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
499 ;
500 LBL "LDD"
501 QS11 = "d"
502 FN 0: Q1 =+100
503 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
504 FN 11: IF +Q13 GT +Q10 GOTO LBL "LEE"
505 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
506 ;
507 LBL "LEE"
508 QS11 = "e"
509 FN 0: Q1 =+101
510 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
511 FN 11: IF +Q13 GT +Q10 GOTO LBL "LFF"
512 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
513 ;
514 LBL "LFF"
515 QS11 = "f"
516 FN 0: Q1 =+102
517 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
518 FN 11: IF +Q13 GT +Q10 GOTO LBL "LGG"
519 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
520 ;
521 LBL "LGG"
522 QS11 = "g"
523 FN 0: Q1 =+103
524 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
525 FN 11: IF +Q13 GT +Q10 GOTO LBL "LHH"
526 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
527 ;
528 LBL "LHH"
529 QS11 = "h"
530 FN 0: Q1 =+104
531 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
532 FN 11: IF +Q13 GT +Q10 GOTO LBL "LII"
533 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
534 ;
535 LBL "LII"
536 QS11 = "i"
537 FN 0: Q1 =+105
538 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
539 FN 11: IF +Q13 GT +Q10 GOTO LBL "LJJ"
540 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
541 ;
542 LBL "LJJ"
543 QS11 = "j"
544 FN 0: Q1 =+106
545 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
546 FN 11: IF +Q13 GT +Q10 GOTO LBL "LKK"
547 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
548 ;
549 LBL "LKK"
550 QS11 = "k"
551 FN 0: Q1 =+107
552 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
553 FN 11: IF +Q13 GT +Q10 GOTO LBL "LLL"
554 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
555 ;
556 LBL "LLL"
557 QS11 = "l"
558 FN 0: Q1 =+108
559 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
560 FN 11: IF +Q13 GT +Q10 GOTO LBL "LMM"
561 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
562 ;
563 LBL "LMM"
564 QS11 = "m"
565 FN 0: Q1 =+109
566 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
567 FN 11: IF +Q13 GT +Q10 GOTO LBL "LNN"
568 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
569 ;
570 LBL "LNN"
571 QS11 = "n"
572 FN 0: Q1 =+110
573 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
574 FN 11: IF +Q13 GT +Q10 GOTO LBL "LOO"
575 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
576 ;
577 LBL "LOO"
578 QS11 = "o"
579 FN 0: Q1 =+111
580 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
581 FN 11: IF +Q13 GT +Q10 GOTO LBL "LPP"
582 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
583 ;
584 LBL "LPP"
585 QS11 = "p"
586 FN 0: Q1 =+112
587 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
588 FN 11: IF +Q13 GT +Q10 GOTO LBL "LQQ"
589 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
590 ;
591 LBL "LQQ"
592 QS11 = "q"
593 FN 0: Q1 =+113
594 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
595 FN 11: IF +Q13 GT +Q10 GOTO LBL "LRR"
596 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
597 ;
598 LBL "LRR"
599 QS11 = "r"
600 FN 0: Q1 =+114
601 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
602 FN 11: IF +Q13 GT +Q10 GOTO LBL "LSS"
603 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
604 ;
605 LBL "LSS"
606 QS11 = "s"
607 FN 0: Q1 =+115
608 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
609 FN 11: IF +Q13 GT +Q10 GOTO LBL "LTT"
610 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
611 ;
612 LBL "LTT"
613 QS11 = "t"
614 FN 0: Q1 =+116
615 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
616 FN 11: IF +Q13 GT +Q10 GOTO LBL "LUU"
617 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
618 ;
619 LBL "LUU"
620 QS11 = "u"
621 FN 0: Q1 =+117
622 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
623 FN 11: IF +Q13 GT +Q10 GOTO LBL "LVV"
624 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
625 ;
626 LBL "LVV"
627 QS11 = "v"
628 FN 0: Q1 =+118
629 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
630 FN 11: IF +Q13 GT +Q10 GOTO LBL "LWW"
631 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
632 ;
633 LBL "LWW"
634 QS11 = "w"
635 FN 0: Q1 =+119
636 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
637 FN 11: IF +Q13 GT +Q10 GOTO LBL "LXX"
638 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
639 ;
640 LBL "LXX"
641 QS11 = "x"
642 FN 0: Q1 =+120
643 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
644 FN 11: IF +Q13 GT +Q10 GOTO LBL "LYY"
645 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
646 ;
647 LBL "LYY"
648 QS11 = "y"
649 FN 0: Q1 =+121
650 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
651 FN 11: IF +Q13 GT +Q10 GOTO LBL "LZZ"
652 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
653 ;
654 LBL "LZZ"
655 QS11 = "z"
656 FN 0: Q1 =+122
657 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
658 FN 11: IF +Q13 GT +Q10 GOTO LBL "LAA"
659 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
660 ;
661 FN 0: Q1 =+0
662 LBL 299
663 FN 10: IF +Q1 NE +0 GOTO LBL Q1
664 FN 9: IF +Q1 EQU +0 GOTO LBL 9
665 ;
666 ; Berechnung und Mittelbahn Zeichen
667 ;
668 LBL 30 ; Leerzeichen
669 FN 1: Q33 =+Q108 + +6
670 FN 9: IF +9 EQU +9 GOTO LBL 9
671 ;
672 LBL 31 ; <
673 L X+6.667 Y+1 R0 FMAX
674 L Z+Q9 R0 FQ7
675 L X+0 Y+5 R0 FQ6
676 L X+6.667 Y+9 R0 FMAX
677 FN 1: Q33 =+Q108 + +12.5
678 FN 9: IF +9 EQU +9 GOTO LBL 9
679 ;
680 LBL 32 ; >
681 L X-3.167 Y+1 R0 FMAX
682 L Z+Q9 R0 FQ7
683 L X+3.5 Y+5 R0 FQ6
684 L X-3.167 Y+9 R0 FMAX
685 FN 1: Q33 =+Q108 + +5.5
686 FN 9: IF +9 EQU +9 GOTO LBL 9
687 ;
688 LBL 33 ; [
689 L X+3.055 Y+10 R0 FMAX
690 L Z+Q9 R0 FQ7
691 L X+0 R0 FQ6
692 L Y+0
693 L X+3.055
694 FN 1: Q33 =+Q108 + +7.5
695 FN 9: IF +9 EQU +9 GOTO LBL 9
696 ;
697 LBL 34 ; ]
698 L X+0 Y+10 R0 FMAX
699 L Z+Q9 R0 FQ7
700 L X+3.055 R0 FQ6
701 L Y+0
702 L X+0
703 FN 1: Q33 =+Q108 + +7.5
704 FN 9: IF +9 EQU +9 GOTO LBL 9
705 ;
706 LBL 35 ; \
707 L X+4.5 Y+1 R0 FMAX
708 L Z+Q9 R0 FQ7
709 L X-0.5 Y+10 R0 FQ6
710 FN 1: Q33 =+Q108 + +8.5
711 FN 9: IF +9 EQU +9 GOTO LBL 9
712 ;
713 LBL 36 ; (
714 L X+3.228 Y+0 R0 FMAX
715 L Z+Q9 R0 FQ7
716 CC X+3.228 Y+3.333
717 CP PA+180 DR- FQ6
718 L Y+6.667
719 CC X+3.228 Y+6.667
720 CP PA+105 DR-
721 FN 1: Q33 =+Q108 + +7.5
722 FN 9: IF +9 EQU +9 GOTO LBL 9
723 ;
724 LBL 37 ; )
725 L X+0.278 Y+0 R0 FMAX
726 L Z+Q9 R0 FQ7
727 CC X+0.278 Y+3.333
728 CP PA+0 DR+ FQ6
729 L Y+6.667
730 CC X+0.278 Y+6.667
731 CP PA+75 DR+
732 FN 1: Q33 =+Q108 + +8.5
733 FN 9: IF +9 EQU +9 GOTO LBL 9
734 ;
735 LBL 38 ; +
736 L X-2 Y+5 R0 FMAX
737 L Z+Q9 R0 FQ7
738 L X+2 R0 FQ6
739 L Z+Q8 R0 FMAX
740 L X+0 Y+7 R0 FMAX
741 L Z+Q9 R0 FQ7
742 L Y+3 R0 FQ6
743 FN 1: Q33 =+Q108 + +7
744 FN 9: IF +9 EQU +9 GOTO LBL 9
745 ;
746 LBL 39 ; =
747 L X-2 Y+4 R0 FMAX
748 L Z+Q9 R0 FQ7
749 L X+2 R0 FQ6
750 L Z+Q8 R0 FMAX
751 L X-2 Y+6 R0 FMAX
752 L Z+Q9 R0 FQ7
753 L X+2 R0 FQ6
754 FN 1: Q33 =+Q108 + +7
755 FN 9: IF +9 EQU +9 GOTO LBL 9
756 ;
757 LBL 40 ; :
758 CC X-1.5 Y+7
759 LP PR+0.5 PA+0 R0 FMAX
760 L Z+Q9 R0 FQ7
761 CP PA+0 DR- R0 FQ6
762 L Z+Q8 R0 FMAX
763 CC X-1.5 Y+1
764 LP PR+0.5 PA+0 R0 FMAX
765 L Z+Q9 R0 FQ7
766 CP PA+0 DR- R0 FQ6
767 FN 1: Q33 =+Q108 + +4.5
768 FN 9: IF +9 EQU +9 GOTO LBL 9
769 ;
770 LBL 41 ; ,
771 CC X-1.5 Y+1
772 LP PR+0.5 PA+0 R0 FMAX
773 L Z+Q9 R0 FQ7
774 CP PA+0 DR- R0 FQ6
775 L X-2 Y-1 R0 FQ6
776 FN 1: Q33 =+Q108 + +4.5
777 FN 9: IF +9 EQU +9 GOTO LBL 9
778 ;
779 LBL 42 ; ;
780 CC X-1.5 Y+7
781 LP PR+0.5 PA+0 R0 FMAX
782 L Z+Q9 R0 FQ7
783 CP PA+0 DR- R0 FQ6
784 L Z+Q8 R0 FMAX
785 CC X-1.5 Y+1
786 LP PR+0.5 PA+0 R0 FMAX
787 L Z+Q9 R0 FQ7
788 CP PA+0 DR- R0 FQ6
789 L X-2 Y-1 R0 FQ6
790 FN 1: Q33 =+Q108 + +4.5
791 FN 9: IF +9 EQU +9 GOTO LBL 9
792 ;
793 LBL 45 ; -
794 L X-2 Y+5 R0 FMAX
795 L Z+Q9 R0 FQ7
796 L X+2 R0 FQ6
797 FN 1: Q33 =+Q108 + +7
798 FN 9: IF +9 EQU +9 GOTO LBL 9
799 ;
800 LBL 46 ; .
801 CC X-1.5 Y+1
802 LP PR+0.5 PA+0 R0 FMAX
803 L Z+Q9 R0 FQ7
804 CP PA+0 DR- R0 FQ6
805 FN 1: Q33 =+Q108 + +4.5
806 FN 9: IF +9 EQU +9 GOTO LBL 9
807 ;
808 LBL 47 ; /
809 L X-0.5 Y+1 R0 FMAX
810 L Z+Q9 R0 FQ7
811 L X+4.5 Y+10 R0 FQ6
812 FN 1: Q33 =+Q108 + +8.5
813 FN 9: IF +9 EQU +9 GOTO LBL 9
814 ;
815 LBL 48 ; 0
816 L X-2.639 Y+2.639 R0 FMAX
817 L Z+Q9 R0 FQ7
818 CC X+0 Y+2.639
819 CP PA+0 DR+
820 L Y+7.361 R0 FQ6
821 CC X+0 Y+7.361
822 CP PA+180 DR+
823 L Y+2.639
824 FN 1: Q33 =+Q108 + +6.5
825 FN 9: IF +9 EQU +9 GOTO LBL 9
826 ;
827 LBL 49 ; 1
828 L X-2.111 Y+7.778 R0 FMAX
829 L Z+Q9 R0 FQ7
830 L X+0.111 Y+10 R0 FQ6
831 L Y+0
832 FN 1: Q33 =+Q108 + +6.3
833 FN 9: IF +9 EQU +9 GOTO LBL 9
834 ;
835 LBL 50 ; 2
836 L X-2.404 Y+8.147 R0 FMAX
837 L Z+Q9 R0 FQ7
838 CC X+0.012 Y+7.5
839 C X+2.007 Y+5.996 DR- R0 FQ6
840 L X-2.511 Y+0
841 L X+2.489
842 FN 1: Q33 =+Q108 + +7.9
843 FN 9: IF +9 EQU +9 GOTO LBL 9
844 ;
845 LBL 51 ; 3
846 L X-2.455 Y+8.147 R0 FMAX
847 CC X-0.041 Y+7.5
848 L Z+Q9 R0 FQ7
849 C X+0.515 Y+5.063 DR- R0 FQ6
850 L Y+4.938
851 CC X-0.041 Y+2.5
852 C X-2.455 Y+1.853 DR-
853 FN 1: Q33 =+Q108 + +8.3
854 FN 9: IF +9 EQU +9 GOTO LBL 9
855 ;
856 LBL 52 ; 4
857 L X+0.972 Y+10 R0 FMAX
858 L Z+Q9 R0 FQ7
859 L X-2.361 Y+1.953 R0 FQ6
860 L Y+1.111
861 L X+2.361
862 L Z+Q8 R0 FMAX
863 L X+0.972 Y+4.444 R0 FMAX
864 L Z+Q9 R0 FQ7
865 L Y+0 R0 FQ6
866 FN 1: Q33 =+Q108 + +8.3
867 FN 9: IF +9 EQU +9 GOTO LBL 9
868 ;
869 LBL 53 ; 5
870 CC X-0.043 Y+2.5
871 L X-2.457 Y+1.853 R0 FMAX
872 L Z+Q9 R0 FQ7
873 CP PA+0 DR+ R0 FQ6
874 L Y+4.167
875 CC X-0.043 Y+4.167
876 C X-2.457 Y+4.814 DR+
877 L Y+10
878 L X+2.457
879 FN 1: Q33 =+Q108 + +8.3
880 FN 9: IF +9 EQU +9 GOTO LBL 9
881 ;
882 LBL 54 ; 6
883 CC X+0 Y+4.167
884 L X-2.5 Y+4.167 R0 FMAX
885 L Z+Q9 R0 FQ7
886 CP PA+0 DR- R0 FQ6
887 L Y+2.5
888 CC X+0 Y+2.5
889 CP PA+180 DR-
890 L Y+7.5
891 CC X+0 Y+7.5
892 C X+2.415 Y+8.147 DR-
893 FN 1: Q33 =+Q108 + +8.3
894 FN 9: IF +9 EQU +9 GOTO LBL 9
895 ;
896 LBL 55 ; 7
897 L X-2.222 Y+8.889 R0 FMAX
898 L Z+Q9 R0 FQ7
899 L Y+10 R0 FQ6
900 L X+2.222
901 L Y+9.113
902 L X-2.222 Y+0
903 FN 1: Q33 =+Q108 + +7.5
904 FN 9: IF +9 EQU +9 GOTO LBL 9
905 ;
906 LBL 56 ; 8
907 CC X+0 Y+7.5
908 L X-0.006 Y+5 R0 FMAX
909 L Z+Q9 R0 FQ7
910 CP PA+270 DR-
911 CC X+0 Y+2.5
912 CP PA+90 DR-
913 FN 1: Q33 =+Q108 + +8.3
914 FN 9: IF +9 EQU +9 GOTO LBL 9
915 ;
916 LBL 57 ; 9
917 L X-2.415 Y+1.853 R0 FMAX
918 L Z+Q9 R0 FQ7
919 CC X+0 Y+2.5
920 CP PA+0 DR+ R0 FQ6
921 L Y+7.5
922 CC X+0 Y+7.5
923 CP PA+180 DR+
924 L Y+5.833
925 CC X+0 Y+5.833
926 CP PA+0 DR+
927 FN 1: Q33 =+Q108 + +8.3
928 FN 9: IF +9 EQU +9 GOTO LBL 9
929 ;
930 LBL 65 ; A
931 L X-3.639 Y+0 R0 FMAX
932 L Z+Q9 R0 FQ7
933 L X+0 Y+10 R0 FQ6
934 L X+3.639 Y+0
935 L X+2.426 Y+3.333
936 L X-2.426
937 FN 1: Q33 =+Q108 + +9.5
938 FN 9: IF +9 EQU +9 GOTO LBL 9
939 ;
940 LBL 66 ; B
941 L X-3.056 Y+5 R0 FMAX
942 L Z+Q9 R0 FQ7
943 L X+0.556 R0 FQ6
944 CC X+0.556 Y+7.5
945 CP PA+90 DR+
946 L X-3.056
947 L Y+0
948 L X+0.556
949 CC X+0.556 Y+2.5
950 CP PA+90 DR+
951 FN 1: Q33 =+Q108 + +9.5
952 FN 9: IF +9 EQU +9 GOTO LBL 9
953 ;
954 LBL 67 ; C
955 CC X+0.057 Y+6.667
956 L X+3.276 Y+7.529 R0 FMAX
957 L Z+Q9 R0 FQ7
958 CP PA+180 DR+ R0 FQ6
959 L Y+3.333
960 CC X+0.057 Y+3.333
961 C X+3.276 Y+2.471 DR+
962 FN 1: Q33 =+Q108 + +9.6
963 FN 9: IF +9 EQU +9 GOTO LBL 9
964 ;
965 LBL 68 ; D
966 L X-3.055 Y+10 R0 FMAX
967 L Z+Q9 R0 FQ7
968 L Y+0 R0 FQ6
969 L X-0.278
970 CC X-0.278 Y+3.333
971 CP PA+0 DR+
972 L Y+6.667
973 CC X-0.278 Y+6.667
974 CP PA+90 DR+
975 L X-3.056
976 FN 1: Q33 =+Q108 + +9.5
977 FN 9: IF +9 EQU +9 GOTO LBL 9
978 ;
979 LBL 69 ; E
980 L X+3.056 Y+10 R0 FMAX
981 L Z+Q9 R0 FQ7
982 L X-3.056 R0 FQ6
983 L Y+0
984 L X+3.056
985 L Z+Q8 R0 FMAX
986 L X+0.833 Y+5 R0 FMAX
987 L Z+Q9 R0 FQ7
988 L X-3.056 R0 FQ6
989 FN 1: Q33 =+Q108 + +8.8
990 FN 9: IF +9 EQU +9 GOTO LBL 9
991 ;
992 LBL 70 ; F
993 L X+3.056 Y+10 R0 FMAX
994 L Z+Q9 R0 FQ7
995 L X-3.056 FQ6
996 L Y+0
997 L Y+5
998 L X+0.833
999 FN 1: Q33 =+Q108 + +9.5
1000 FN 9: IF +9 EQU +9 GOTO LBL 9
1001 ;
1002 LBL 71 ; G
1003 CC X+0 Y+6.389
1004 L X+3.393 Y+7.624 R0 FMAX
1005 L Z+Q9 R0 FQ7
1006 CP PA+180 DR+ FQ6
1007 L Y+3.611
1008 CC X+0 Y+3.611
1009 CP PA+0 DR+
1010 L Y+4.444
1011 L X+0.833
1012 FN 1: Q33 =+Q108 + +10.3
1013 FN 9: IF +9 EQU +9 GOTO LBL 9
1014 ;
1015 LBL 72 ; H
1016 L X-3.333 Y+10 R0 FMAX
1017 L Z+Q9 R0 FQ7
1018 L Y+0 FQ6
1019 L Y+5
1020 L X+3.333
1021 L Y+10
1022 L Y+0
1023 FN 1: Q33 =+Q108 + +8.8
1024 FN 9: IF +9 EQU +9 GOTO LBL 9
1025 ;
1026 LBL 73 ; I
1027 L X-2.5 Y+0 R0 FMAX
1028 L Z+Q9 R0 FQ7
1029 L Y+10 R0 FQ6
1030 FN 1: Q33 =+Q108 + +5
1031 FN 9: IF +9 EQU +9 GOTO LBL 9
1032 ;
1033 LBL 74 ; J
1034 L X-2.731 Y+2.058 R0 FMAX
1035 L Z+Q9 R0 FQ7
1036 CC X-0.047 Y+2.778
1037 CP PA+0 DR+ FQ6
1038 L Y+10
1039 FN 1: Q33 =+Q108 + +8.3
1040 FN 9: IF +9 EQU +9 GOTO LBL 9
1041 ;
1042 LBL 75 ; K
1043 L X-3.056 Y+10 R0 FMAX
1044 L Z+Q9 R0 FQ7
1045 L Y+0 R0 FQ6
1046 L Y+2.778
1047 L X+3.056 Y+10
1048 L Z+Q8 R0 FMAX
1049 L Y+0 R0 FMAX
1050 L Z+Q9 R0 FQ7
1051 L X-0.853 Y+5.381
1052 FN 1: Q33 =+Q108 + +9.5
1053 FN 9: IF +9 EQU +9 GOTO LBL 9
1054 ;
1055 LBL 76 ; L
1056 L X-3.056 Y+10 R0 FMAX
1057 L Z+Q9 R0 FQ7
1058 L Y+0 R0 FQ6
1059 L X+2.8
1060 FN 1: Q33 =+Q108 + +7.5
1061 FN 9: IF +9 EQU +9 GOTO LBL 9
1062 ;
1063 LBL 77 ; M
1064 L X-3.611 Y+0 R0 FMAX
1065 L Z+Q9 R0 FQ7
1066 L Y+10 R0 FQ6
1067 L X+0 Y+3.333
1068 L X+3.611 Y+10
1069 L Y+0
1070 FN 1: Q33 =+Q108 + +10.3
1071 FN 9: IF +9 EQU +9 GOTO LBL 9
1072 ;
1073 LBL 78 ; N
1074 L X-3.056 Y+0 R0 FMAX
1075 L Z+Q9 R0 FQ7
1076 L Y+10 R0 FQ6
1077 L X+3.056 Y+0
1078 L Y+10
1079 FN 1: Q33 =+Q108 + +9.5
1080 FN 9: IF +9 EQU +9 GOTO LBL 9
1081 ;
1082 LBL 79 ; O
1083 L X-3.056 Y+3.056 R0 FMAX
1084 L Z+Q9 R0 FQ7
1085 CC X+0 Y+3.056
1086 CP PA+0 DR+ FQ6
1087 L Y+6.944
1088 CC X+0 Y+6.944
1089 CP PA+180 DR+
1090 L Y+3.056
1091 FN 1: Q33 =+Q108 + +10.3
1092 FN 9: IF +9 EQU +9 GOTO LBL 9
1093 ;
1094 LBL 80 ; P
1095 L X-3.056 Y+0 R0 FMAX
1096 L Z+Q9 R0 FQ7
1097 L Y+10 R0 FQ6
1098 L X+0.486
1099 CC X+0.486 Y+7.431
1100 CP PA+270 DR-
1101 L X-3.056
1102 FN 1: Q33 =+Q108 + +9
1103 FN 9: IF +9 EQU +9 GOTO LBL 9
1104 ;
1105 LBL 81 ; Q
1106 CC X+0 Y+3.056
1107 L X-3.056 Y+3.056
1108 L Z+Q9 R0 FQ7
1109 CP PA+0 DR+ FQ6
1110 L Y+6.944
1111 CC X+0 Y+6.944
1112 CP PA+180 DR+
1113 L Y+3.056
1114 L Z+Q8 R0 FMAX
1115 L X+1.087 Y+1.968 R0 FMAX
1116 L Z+Q9 R0 FQ7
1117 L X+3.056 Y+0 R0 FQ6
1118 FN 1: Q33 =+Q108 + +10.3
1119 FN 9: IF +9 EQU +9 GOTO LBL 9
1120 ;
1121 LBL 82 ; R
1122 L X-3.056 Y+0 R0 FMAX
1123 L Z+Q9 R0 FQ7
1124 L Y+10 R0 FQ6
1125 L X+0.486
1126 CC X+0.486 Y+7.431
1127 CP PA+270 DR-
1128 L X-3.056
1129 L X+0.486
1130 L X+2.857 Y+0
1131 FN 1: Q33 =+Q108 + +9.5
1132 FN 9: IF +9 EQU +9 GOTO LBL 9
1133 ;
1134 LBL 83 ; S
1135 L X-3.143 Y+1.302 R0 FMAX
1136 L Z+Q9 R0 FQ7
1137 CC X+0 Y+4.444
1138 C X+2.232 Y+0.601 DR+ FQ6
1139 CC X+1.151 Y+2.463
1140 C X+1.708 Y+4.542 DR+
1141 L X-1.708 Y+5.458
1142 CC X-1.151 Y+7.537
1143 C X-2.232 Y+9.398 DR-
1144 CC X+0 Y+5.556
1145 C X+3.143 Y+8.698 DR-
1146 FN 1: Q33 =+Q108 + +9.1
1147 FN 9: IF +9 EQU +9 GOTO LBL 9
1148 ;
1149 LBL 84 ; T
1150 L X-3.056 Y+10 R0 FMAX
1151 L Z+Q9 R0 FQ7
1152 L X+3.056 R0 FQ6
1153 L X+0
1154 L Y+0
1155 FN 1: Q33 =+Q108 + +9.1
1156 FN 9: IF +9 EQU +9 GOTO LBL 9
1157 ;
1158 LBL 85 ; U
1159 L X-3.611 Y+10 R0 FMAX
1160 L Z+Q9 R0 FQ7
1161 L Y+3.611
1162 CC X+0 Y+3.611
1163 CP PA+0 DR+
1164 L Y+10
1165 FN 1: Q33 =+Q108 + +9.5
1166 FN 9: IF +9 EQU +9 GOTO LBL 9
1167 ;
1168 LBL 86 ; V
1169 L X-3.443 Y+10 R0 FMAX
1170 L Z+Q9 R0 FQ7
1171 L X+0 Y+0 R0 FQ6
1172 L X+3.443 Y+10
1173 FN 1: Q33 =+Q108 + +9.5
1174 FN 9: IF +9 EQU +9 GOTO LBL 9
1175 ;
1176 LBL 87 ; W
1177 L X-4.986 Y+10 R0 FMAX
1178 L Z+Q9 R0 FQ7
1179 L X-2.493 Y+0 R0 FQ6
1180 L X+0 Y+10
1181 L X+2.493 Y+0
1182 L X+4.986 Y+10
1183 FN 1: Q33 =+Q108 + +10.4
1184 FN 9: IF +9 EQU +9 GOTO LBL 9
1185 ;
1186 LBL 88 ; X
1187 L X-3.124 Y+10 R0 FMAX
1188 L Z+Q9 R0 FQ7
1189 L X+3.124 Y+0 R0 FQ6
1190 L Z+Q8 R0 FMAX
1191 L X+3.124 Y+10 R0 FMAX
1192 L Z+Q9 R0 FQ7
1193 L X-3.124 Y+0 FQ6
1194 FN 1: Q33 =+Q108 + +8.3
1195 FN 9: IF +9 EQU +9 GOTO LBL 9
1196 ;
1197 LBL 89 ; Y
1198 L X-3.124 Y+10 R0 FMAX
1199 L Z+Q9 R0 FQ7
1200 L X+0 Y+5 R0 FQ6
1201 L X+0 Y+0
1202 L Z+Q8 R0 FMAX
1203 L Y+5 R0 FMAX
1204 L Z+Q9 R0 FQ7
1205 L X+3.124 Y+10 FQ6
1206 FN 1: Q33 =+Q108 + +8.3
1207 FN 9: IF +9 EQU +9 GOTO LBL 9
1208 ;
1209 LBL 90 ; Z
1210 L X-3.611 Y+10 R0 FMAX
1211 L Z+Q9 R0 FQ7
1212 L X+3.611 R0 FQ6
1213 L X-3.611 Y+0
1214 L X+3.611
1215 FN 1: Q33 =+Q108 + +9.5
1216 FN 9: IF +9 EQU +9 GOTO LBL 9
1217 ;
1218 LBL 97 ; a
1219 L X+2.569 Y+0 R0 FMAX
1220 Z+Q9 R0 FQ7
1221 L Y+6.666
1222 L Y+4.097
1223 CC X+0 Y+4.097
1224 C X-2.569 Y+4.097 DR+
1225 L Y+2.569
1226 CC X+0 Y+2.569
1227 C X+2.569 Y+2.569 DR+
1228 FN 1: Q33 =+Q108 + +8.3
1229 FN 9: IF +9 EQU +9 GOTO LBL 9
1230 ;
1231 LBL 98 ; b
1232 L X-2.569 Y+10 R0 FMAX
1233 L Z+Q9 R0 FQ7
1234 L Y+0 R0 FQ6
1235 L Y+2.569
1236 CC X+0 Y+2.569
1237 CP PA+0 DR+
1238 L Y+4.097
1239 CC X+0 Y+4.097
1240 CP PA+180 DR+
1241 FN 1: Q33 =+Q108 + +7
1242 FN 9: IF +9 EQU +9 GOTO LBL 9
1243 ;
1244 LBL 99 ; c
1245 L X+2.397 Y+1.285 R0 FMAX
1246 L Z+Q9 R0 FQ7
1247 CC X+0.172 Y+2.569
1248 CP PA+180 DR- R0 FQ6
1249 L Y+4.097
1250 CC X+0.172 Y+4.097
1251 CR X+2.397 Y+5.382 R+2.5 DR-
1252 FN 1: Q33 =+Q108 + +7
1253 FN 9: IF +9 EQU +9 GOTO LBL 9
1254 ;
1255 LBL 100 ; d
1256 L X+2.569 Y+10 R0 FMAX
1257 L Z+Q9 R0 FQ7
1258 L Y+0 R0 FQ6
1259 L Y+2.569
1260 CC X+0 Y+2.569
1261 CP PA+180 DR-
1262 L Y+4.097
1263 CC X+0 Y+4.097
1264 CP PA+0 DR-
1265 FN 1: Q33 =+Q108 + +7
1266 FN 9: IF +9 EQU +9 GOTO LBL 9
1267 ;
1268 LBL 101 ; e
1269 CC X+0 Y+2.569
1270 L X+2.105 Y+1.096 R0 FMAX
1271 L Z+Q9 R0 FQ7
1272 C X-2.569 Y+2.569 DR- FQ6
1273 L X-2.569 Y+4.097
1274 CC X+0 Y+4.097
1275 C X+2.569 Y+4.097 DR-
1276 L Y+3.403
1277 L X-2.569
1278 FN 1: Q33 =+Q108 + +7
1279 FN 9: IF +9 EQU +9 GOTO LBL 9
1280 ;
1281 LBL 102 ; f
1282 L X-1.25 Y+6.667 R0 FMAX
1283 L Z+Q9 R0 FQ7
1284 L X+1.25
1285 L Z+Q8 R0 FMAX
1286 L X+1.667 Y+10 R0 FMAX
1287 L Z+Q9 R0 FQ7
1288 CC X+1.667 Y+8.333
1289 CP PA+180 DR+ R0 FQ6
1290 L X+0 Y+0
1291 FN 1: Q33 =+Q108 + +6.8
1292 FN 9: IF +9 EQU +9 GOTO LBL 9
1293 ;
1294 LBL 103 ; g
1295 L X-2.105 Y-2.238 R0 FMAX
1296 L Z+Q9 R0 FQ7
1297 CC X+0 Y-0.764
1298 CP PA+0 DR+
1299 L Y+6.667
1300 L Y+4.097
1301 CC X+0 Y+4.097
1302 CP PA+180 DR+
1303 L Y+2.569
1304 CC X+0 Y+2.569
1305 CP PA+0 DR+
1306 FN 1: Q33 =+Q108 + +7.5
1307 FN 9: IF +9 EQU +9 GOTO LBL 9
1308 ;
1309 LBL 104 ; h
1310 L X-2.569 Y+10 R0 FMAX
1311 L Z+Q9 R0 FQ7
1312 L Y+0 FQ6
1313 L Y+4.097 X-2.569 R0 FMAX
1314 CC X+0 Y+4.097
1315 C X+2.569 Y+4.097 DR- R0 FQ6
1316 L Y+0 X+2.569
1317 FN 1: Q33 =+Q108 + +7
1318 FN 9: IF +9 EQU +9 GOTO LBL 9
1319 ;
1320 LBL 105 ; i
1321 L X+0 Y+0 R0 FMAX
1322 L Z+Q9 R0 FQ7
1323 L Y+6.667 R0 FQ6
1324 L Z+Q8 R0 FMAX
1325 L Y+10 R0 FMAX
1326 L Z+Q9 R0 FQ7
1327 FN 1: Q33 =+Q108 + +4.5
1328 FN 9: IF +9 EQU +9 GOTO LBL 9
1329 ;
1330 LBL 106 ; j
1331 L X-1.833 Y-3.333 R0 FMAX
1332 L Z+Q9 R0 FQ7
1333 CC X-1.833 Y-1.667
1334 CP PA+0 DR+ R0 FQ6
1335 L Y+6.667
1336 L Z+Q8 R0 FMAX
1337 L Y+10 R0 FMAX
1338 L Z+Q9 R0 FQ7
1339 FN 1: Q33 =+Q108 + +5
1340 FN 9: IF +9 EQU +9 GOTO LBL 9
1341 ;
1342 LBL 107 ; k
1343 L X-2.17 Y+10 R0 FMAX
1344 L Z+Q9 R0 FQ7
1345 L Y+0 R0 FQ6
1346 L Y+1.111
1347 L X+2.17 Y+6.667
1348 L Z+Q8 R0 FMAX
1349 L Y+0 R0 FMAX
1350 L Z+Q9 R0 FQ7
1351 L X-0.434 Y+3.333 R0 FQ6
1352 FN 1: Q33 =+Q108 + +7
1353 FN 9: IF +9 EQU +9 GOTO LBL 9
1354 ;
1355 LBL 108 ; l
1356 L X+0.833 Y+0 R0 FMAX
1357 L Z+Q9 R0 FQ7
1358 CC X+0.833 Y+1.667
1359 CP PA+180 DR- R0 FQ6
1360 L Y+10
1361 FN 1: Q33 =+Q108 + +7
1362 FN 9: IF +9 EQU +9 GOTO LBL 9
1363 ;
1364 LBL 109 ; m
1365 L X-4.444 Y+0 R0 FMAX
1366 L Z+Q9 R0 FQ7
1367 L Y+6.667 R0 FQ6
1368 L Y+4.444
1369 CC X-2.222 Y+4.444
1370 CP PA+0 DR-
1371 L Y+0
1372 L Y+4.444
1373 CC X+2.222 Y+4.444
1374 CP PA+0 DR-
1375 L Y+0
1376 FN 1: Q33 =+Q108 + +10
1377 FN 9: IF +9 EQU +9 GOTO LBL 9
1378 ;
1379 LBL 110 ; n
1380 L X-2.569 Y+0 R0 FMAX
1381 L Z+Q9 R0 FQ7
1382 L Y+6.667 R0 FQ6
1383 L Y+4.097
1384 CC X+0 Y+4.097
1385 CP PA+0 DR-
1386 L Y+0
1387 FN 1: Q33 =+Q108 + +7.5
1388 FN 9: IF +9 EQU +9 GOTO LBL 9
1389 ;
1390 LBL 111 ; o
1391 L X-2.569 Y+2.569 R0 FMAX
1392 L Z+Q9 R0 FQ7
1393 L Y+4.097 R0 FQ6
1394 CC X+0 Y+4.097
1395 CP PA+0 DR-
1396 L Y+2.569
1397 CC X+0 Y+2.569
1398 CP PA+180 DR-
1399 FN 1: Q33 =+Q108 + +7
1400 FN 9: IF +9 EQU +9 GOTO LBL 9
1401 ;
1402 LBL 112 ; p
1403 L X-2.569 Y-3.333 R0 FMAX
1404 L Z+Q9 R0 FQ7
1405 L Y+6.667 R0 FQ6
1406 L Y+4.097
1407 CC X+0 Y+4.097
1408 CP PA+0 DR-
1409 L Y+2.569
1410 CC X+0 Y+2.569
1411 CP PA+180 DR-
1412 FN 1: Q33 =+Q108 + +7
1413 FN 9: IF +9 EQU +9 GOTO LBL 9
1414 ;
1415 LBL 113 ; q
1416 L X+2.569 Y-3.333 R0 FMAX
1417 L Z+Q9 R0 FQ7
1418 L Y+6.667 R0 FQ6
1419 L Y+4.097
1420 CC X+0 Y+4.097
1421 CP PA+180 DR+
1422 L Y+2.569
1423 CC X+0 Y+2.569
1424 CP PA+0 DR+
1425 FN 1: Q33 =+Q108 + +7
1426 FN 9: IF +9 EQU +9 GOTO LBL 9
1427 ;
1428 LBL 114 ; r
1429 L X-1.215 Y+0 R0 FMAX
1430 L Z+Q9 R0 FQ7
1431 L Y+6.667 R0 FQ6
1432 L Y+4.236
1433 CC X+1.215 Y+4.236
1434 C X+1.844 Y+6.584 DR-
1435 FN 1: Q33 =+Q108 + +6
1436 FN 9: IF +9 EQU +9 GOTO LBL 9
1437 ;
1438 LBL 115 ; s
1439 L X-1.994 Y+0.753 R0 FMAX
1440 L Z+Q9 R0 FQ7
1441 CC X-0.177 Y+2.569
1442 C X+1.526 Y+0.646 DR+ R0 FQ6
1443 CC X+0.605 Y+1.686
1444 C X+0.965 Y+3.027 DR+
1445 L X-1.32 Y+3.639
1446 CC X-0.96 Y+4.981
1447 C X-1.881 Y+6.021 DR-
1448 CC X-0.177 Y+4.097
1449 C X+1.64 Y+5.914 DR-
1450 FN 1: Q33 =+Q108 + +6
1451 FN 9: IF +9 EQU +9 GOTO LBL 9
1452 ;
1453 LBL 116 ; t
1454 L X-1.458 Y+6.667 R0 FMAX
1455 L Z+Q9 R0 FQ7
1456 L X+1.042 R0 FQ6
1457 L Z+Q8 R0 FMAX
1458 L X-0.208 Y+10 R0 FMAX
1459 L Z+Q9 R0 FQ7
1460 L Y+1.667 R0 FQ6
1461 CC X+1.458 Y+1.667
1462 C X+1.458 Y+0 DR+
1463 FN 1: Q33 =+Q108 + +7
1464 FN 9: IF +9 EQU +9 GOTO LBL 9
1465 ;
1466 LBL 117 ; u
1467 L X-2.569 Y+6.667 R0 FMAX
1468 L Z+Q9 R0 FQ7
1469 L Y+2.569 R0 FQ6
1470 CC X+0 Y+2.569
1471 CP PA+0 DR+
1472 L Y+0
1473 L Y+6.667
1474 FN 1: Q33 =+Q108 + +7
1475 FN 9: IF +9 EQU +9 GOTO LBL 9
1476 ;
1477 LBL 118 ; v
1478 L X-2.166 Y+6.667 R0 FMAX
1479 L Z+Q9 R0 FQ7
1480 L X+0 Y+0 R0 FQ6
1481 L X+2.166 Y+6.667
1482 FN 1: Q33 =+Q108 + +7
1483 FN 9: IF +9 EQU +9 GOTO LBL 9
1484 ;
1485 LBL 119 ; w
1486 L X-3.823 Y+6.667 R0 FMAX
1487 L Z+Q9 R0 FQ7
1488 L X-1.912 Y+0 R0 FQ6
1489 L X+0 Y+6.667
1490 L X+1.912 Y+0
1491 L X+3.823 Y+6.667
1492 FN 1: Q33 =+Q108 + +8
1493 FN 9: IF +9 EQU +9 GOTO LBL 9
1494 ;
1495 LBL 120 ; x
1496 L X-1.944 Y+0 R0 FMAX
1497 L Z+Q9 R0 FQ7
1498 L X+1.944 Y+6.667 R0 FQ6
1499 L Z+Q8 R0 FMAX
1500 L X-1.944 Y+6.667 R0 FMAX
1501 L Z+Q9 R0 FQ7
1502 L X+1.944 Y+0 R0 FQ6
1503 FN 1: Q33 =+Q108 + +7
1504 FN 9: IF +9 EQU +9 GOTO LBL 9
1505 ;
1506 LBL 121 ; y
1507 L X-1.724 Y-3.233 R0 FMAX
1508 L Z+Q9 R0 FQ7
1509 CC X-2.294 Y-1.667
1510 C X-0.709 Y-2.182 DR+ R0 FQ6
1511 L X+2.166 Y+6.667
1512 L Z+Q8 R0 FMAX
1513 L X-2.166 Y+6.667 R0 FMAX
1514 L Z+Q9 R0 FQ7
1515 L X+0 Y+0 R0 FQ6
1516 FN 1: Q33 =+Q108 + +7
1517 FN 9: IF +9 EQU +9 GOTO LBL 9
1518 ;
1519 LBL 122 ; z
1520 L X-2.222 Y+6.667 R0 FMAX
1521 L Z+Q9 R0 FQ7
1522 L X+2.222 R0 FQ6
1523 L X-2.222 Y+0
1524 L X+2.222
1525 FN 1: Q33 =+Q108 + +7
1526 FN 9: IF +9 EQU +9 GOTO LBL 9
1527 ;
1528 LBL 130 ; SZ
1529 L X-2.688 Y+0 R0 FMAX
1530 L Z+Q9 R0 FQ7
1531 L Y+8.333 R0 FQ6
1532 CC X-1.021 Y+8.333
1533 CP PA+90 DR-
1534 L X+0 Y+10
1535 CC X+0 Y+8.333
1536 CP PA+270 DR-
1537 CC X+0 Y+4.167
1538 C X+2.259 Y+5.238 DR-
1539 CC X-1.757 Y+3.333
1540 C X+2.259 Y+1.429 DR-
1541 CC X+0 Y+2.5
1542 C X+0 Y+0 DR-
1543 FN 1: Q33 =+Q108 + +7
1544 FN 9: IF +9 EQU +9 GOTO LBL 9
1545 ;
1546 LBL 9
1547 FN 10: IF +Q16 NE +0 GOTO LBL 7
1548 FN 3: Q35 =+Q33 * +Q20
1549 FN 1: Q21 =+Q21 + +Q35
1550 FN 1: Q21 =+Q21 + +Q24
1551 ;
1552 LBL 7
1553 FN 9: IF +Q16 EQU +0 GOTO LBL 8
1554 FN 4: Q34 =+Q33 DIV +Q16
1555 FN 3: Q34 =+Q34 * +57.296
1556 FN 3: Q34 =+Q34 * +Q20
1557 FN 11: IF +Q17 GT +0 GOTO LBL 2
1558 FN 1: Q17 =+Q17 + +Q34
1559 FN 12: IF +Q17 LT +0 GOTO LBL 3
1560 ;
1561 LBL 2
1562 FN 2: Q17 =+Q17 - +Q34
1563 ;
1564 LBL 3
1565 FN 1: Q17 =+Q17 + +Q14
1566 ;
1567 LBL 8
1568 CYCL DEF 11.0 MASSFAKTOR
1569 CYCL DEF 11.1 SCL 1
1570 CYCL DEF 10.0 DREHUNG
1571 CYCL DEF 10.1 ROT+0
1572 CYCL DEF 7.0 NULLPUNKT
1573 CYCL DEF 7.1 X+0
1574 CYCL DEF 7.2 Y+0
1575 L Z+Q8 FMAX
1576 ;
1577 LBL 199
1578 LBL 0
1579 ;
1580 LBL "END-PGM"
1581 L Z+Q88 FMAX M9
1582 END PGM Gravieren MMUnd hier noch die produktive Variante, man fügt nur einen Teil mit den Variablenabfragen ins produktive Programm ein und ruft dann das Gravurprogramm darin auf, in das man die Variablen dann quasi übergibt:
Aufruf für produktives Programm:
6 ; ---- Gravieren START ----------- ;
7 ;
8 ; Variablen definieren
9 ;
10 ; Art der Gravur
11 FN 0: Q991 =+0
12 ; -> 0: Text auf Gerade
13 ; -> 1: Text auf Kreis
14 ;
15 ; Texteingabe
16 DECLARE STRING QS1 = "[(Text)\:.;, /(<08+-=15>)]"
17 ;
18 ; Globale Einstellungen
19 FN 0: Q2 =+1 ; Massfaktorwirkung
20 ; Q2 = Inhalt von MP 7410
21 ; -> 0: Wirkt in 3 Achsen
22 ; -> 1: Wirkt in 2 Achsen
23 ;
24 FN 0: Q995 =+29 ; Werkzeugnummer
25 FN 0: Q996 =+4000 ; Drehzahl
26 FN 0: Q4 =-1 ; Tiefe
27 FN 0: Q6 =+1000 ; Vorschub
28 FN 0: Q7 =+1000 ; Eintauchvorschub
29 FN 0: Q8 =+5 ; Sicherheitsabstand
30 FN 0: Q88 =+50 ; 2. Sicherheitsabstand
31 ;
32 ; Abfrage, ob linear oder rotierend
33 FN 9: IF +Q991 EQU +0 GOTO LBL "TEXT_LINE"
34 FN 9: IF +Q991 EQU +1 GOTO LBL "TEXT_CIRCLE"
35 ;
36 ; Text auf Gerade
37 LBL "TEXT_LINE"
38 FN 0: Q5 =+5 ;Schrifthoehe
39 FN 0: Q21 =+25 ;X Startpunkt
40 FN 0: Q22 =-25 ;Y Startpunkt
41 CALL PGM TNC:\Arbeit\Gravur-PGMCall.H
42 FN 9: IF +0 EQU +0 GOTO LBL "PGM-END"
43 ;
44 ; Text auf Kreis
45 LBL "TEXT_CIRCLE"
46 FN 0: Q5 =+5 ;Schrifthoehe
47 FN 0: Q11 =+50 ; X Kreismitte
48 FN 0: Q12 =-50 ; Y Kreismitte
49 FN 0: Q16 =+35 ;Radius
50 FN 0: Q17 =+90 ;Startwinkel
51 CALL PGM TNC:\Arbeit\Gravur-PGMCall.H
52 FN 9: IF +0 EQU +0 GOTO LBL "PGM-END"
53 ;
54 LBL "PGM-END"
55 ;
56 ; ---- Gravieren ENDE ------------ ;pgm-aufruf-gravieren.h
Code eingefügt.
0 BEGIN PGM Gravur-PGMCall MM
1 ;
2 FN 9: IF +0 EQU +0 GOTO LBL "START"
3 ;
4 ; Folgendes ins PGM einfuegen:
5 ;
6 ; ---- Gravieren START ----------- ;
7 ;
8 ; Variablen definieren
9 ;
10 ; Art der Gravur
11 FN 0: Q991 =+0
12 ; -> 0: Text auf Gerade
13 ; -> 1: Text auf Kreis
14 ;
15 ; Texteingabe
16 DECLARE STRING QS1 = "[(Text)\:.;, /(<08+-=15>)]"
17 ;
18 ; Globale Einstellungen
19 FN 0: Q2 =+1 ; Massfaktorwirkung
20 ; Q2 = Inhalt von MP 7410
21 ; -> 0: Wirkt in 3 Achsen
22 ; -> 1: Wirkt in 2 Achsen
23 ;
24 FN 0: Q995 =+29 ; Werkzeugnummer
25 FN 0: Q996 =+4000 ; Drehzahl
26 FN 0: Q4 =-1 ; Tiefe
27 FN 0: Q6 =+1000 ; Vorschub
28 FN 0: Q7 =+1000 ; Eintauchvorschub
29 FN 0: Q8 =+5 ; Sicherheitsabstand
30 FN 0: Q88 =+50 ; 2. Sicherheitsabstand
31 ;
32 ; Abfrage, ob linear oder rotierend
33 FN 9: IF +Q991 EQU +0 GOTO LBL "TEXT_LINE"
34 FN 9: IF +Q991 EQU +1 GOTO LBL "TEXT_CIRCLE"
35 ;
36 ; Text auf Gerade
37 LBL "TEXT_LINE"
38 FN 0: Q5 =+5 ;Schrifthoehe
39 FN 0: Q21 =+25 ;X Startpunkt
40 FN 0: Q22 =-25 ;Y Startpunkt
41 CALL PGM TNC:\Arbeit\Gravur-PGMCall.H
42 FN 9: IF +0 EQU +0 GOTO LBL "PGM-END"
43 ;
44 ; Text auf Kreis
45 LBL "TEXT_CIRCLE"
46 FN 0: Q5 =+5 ;Schrifthoehe
47 FN 0: Q11 =+50 ; X Kreismitte
48 FN 0: Q12 =-50 ; Y Kreismitte
49 FN 0: Q16 =+35 ;Radius
50 FN 0: Q17 =+90 ;Startwinkel
51 CALL PGM TNC:\Arbeit\Gravur-PGMCall.H
52 FN 9: IF +0 EQU +0 GOTO LBL "PGM-END"
53 ;
54 LBL "PGM-END"
55 ;
56 ; ---- Gravieren ENDE ------------ ;
57 ;
58 ; Ab hier nichts mehr aendern!!
59 ;
60 LBL "START"
61 TOOL CALL Q995 Z SQ996
62 FN 9: IF +Q991 EQU +0 GOTO LBL "START_LINE"
63 FN 9: IF +Q991 EQU +1 GOTO LBL "START_CIRCLE"
64 LBL "START_LINE"
65 CYCL DEF 301 ~
Q1998=+1
66 L X+Q21 Y+Q22 FMAX
/ 67 L X+Q21 Y+Q22 FMAX M3
68 L Z+Q8 FMAX M8
69 CALL LBL "SCHREIBEN"
70 FN 9: IF +0 EQU +0 GOTO LBL "NEXT"
71 LBL "START_CIRCLE"
72 CYCL DEF 301 ~
Q1998=+1
73 L X+Q11 Y+Q12 FMAX
/ 74 L X+Q11 Y+Q12 FMAX M3
75 L Z+Q8 FMAX M8
76 CALL LBL "SCHREIBEN"
77 ;
78 LBL "NEXT"
79 FN 0: Q16 =+0 ; Reset Radius
80 FN 0: Q14 =+0 ; Reset Winkel
81 FN 0: Q29 =+0 ; Reset Rotation
82 FN 9: IF +0 EQU +0 GOTO LBL "END-PGM"
83 ;
84 LBL "SCHREIBEN"
85 Q3 = STRLEN( SRC_QS1 )
86 FN 2: Q15 =+Q3 - +1
87 FN 0: Q10 =+0
88 LBL "JH"
89 CALL LBL "CODE"
90 FN 1: Q10 =+Q10 + +1
91 CALL LBL "JH" REPQ15
92 LBL 0
93 ;
94 LBL "CODE"
95 FN 0: Q9 =+Q4
96 FN 9: IF +Q2 EQU +1 GOTO LBL 4
97 FN 4: Q9 =+Q4 DIV +Q5
98 ;
99 LBL 4
100 FN 9: IF +Q16 EQU +0 GOTO LBL 6
101 FN 2: Q29 =+Q17 - +90
102 FN 11: IF +Q17 GT +0 GOTO LBL 5
103 FN 1: Q29 =+Q17 + +90
104 ;
105 LBL 5
106 FN 7: Q21 = COS +Q17
107 FN 3: Q21 =+Q21 * +Q16
108 FN 1: Q21 =+Q21 + +Q11
109 FN 6: Q22 = SIN +Q17
110 FN 3: Q22 =+Q22 * +Q16
111 FN 1: Q22 =+Q22 + +Q12
112 ;
113 LBL 6
114 CYCL DEF 7.0 NULLPUNKT
115 CYCL DEF 7.1 X+Q21
116 CYCL DEF 7.2 Y+Q22
117 FN 4: Q20 =+Q5 DIV +10
118 CYCL DEF 11.0 MASSFAKTOR
119 CYCL DEF 11.1 SCL Q20
120 CYCL DEF 10.0 DREHUNG
121 CYCL DEF 10.1 ROT+Q29
112 ;
113 ; Zeichentabelle
114 ;
115 LBL "L30"
116 QS11 = " "
117 FN 0: Q1 =+30
118 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
119 FN 11: IF +Q13 GT +Q10 GOTO LBL "L31"
120 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
121 ;
122 LBL "L31"
123 QS11 = "<"
124 FN 0: Q1 =+31
125 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
126 FN 11: IF +Q13 GT +Q10 GOTO LBL "L32"
127 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
128 ;
129 LBL "L32"
130 QS11 = ">"
131 FN 0: Q1 =+32
132 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
133 FN 11: IF +Q13 GT +Q10 GOTO LBL "L33"
134 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
135 ;
136 LBL "L33"
137 QS11 = "["
138 FN 0: Q1 =+33
139 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
140 FN 11: IF +Q13 GT +Q10 GOTO LBL "L34"
141 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
142 ;
143 LBL "L34"
144 QS11 = "]"
145 FN 0: Q1 =+34
146 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
147 FN 11: IF +Q13 GT +Q10 GOTO LBL "L35"
148 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
149 ;
150 LBL "L35"
151 QS11 = "\"
152 FN 0: Q1 =+35
153 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
154 FN 11: IF +Q13 GT +Q10 GOTO LBL "L36"
155 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
156 ;
157 LBL "L36"
158 QS11 = "("
159 FN 0: Q1 =+36
160 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
161 FN 11: IF +Q13 GT +Q10 GOTO LBL "L37"
162 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
163 ;
164 LBL "L37"
165 QS11 = ")"
166 FN 0: Q1 =+37
167 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
168 FN 11: IF +Q13 GT +Q10 GOTO LBL "L38"
169 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
170 ;
171 LBL "L38"
172 QS11 = "+"
173 FN 0: Q1 =+38
174 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
175 FN 11: IF +Q13 GT +Q10 GOTO LBL "L39"
176 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
177 ;
178 LBL "L39"
179 QS11 = "="
180 FN 0: Q1 =+39
181 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
182 FN 11: IF +Q13 GT +Q10 GOTO LBL "L40"
183 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
184 ;
185 LBL "L40"
186 QS11 = ":"
187 FN 0: Q1 =+40
188 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
189 FN 11: IF +Q13 GT +Q10 GOTO LBL "L41"
190 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
191 ;
192 LBL "L41"
193 QS11 = ","
194 FN 0: Q1 =+41
195 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
196 FN 11: IF +Q13 GT +Q10 GOTO LBL "L42"
197 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
198 ;
199 LBL "L42"
200 QS11 = ";"
201 FN 0: Q1 =+42
202 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
203 FN 11: IF +Q13 GT +Q10 GOTO LBL "L45"
204 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
205 ;
206 LBL "L45"
207 QS11 = "-"
208 FN 0: Q1 =+45
209 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
210 FN 11: IF +Q13 GT +Q10 GOTO LBL "L46"
211 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
212 ;
213 LBL "L46"
214 QS11 = "."
215 FN 0: Q1 =+46
216 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
217 FN 11: IF +Q13 GT +Q10 GOTO LBL "L47"
218 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
219 ;
220 LBL "L47"
221 QS11 = "/"
222 FN 0: Q1 =+47
223 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
224 FN 11: IF +Q13 GT +Q10 GOTO LBL "L48"
225 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
226 ;
227 LBL "L48"
228 QS11 = "0"
229 FN 0: Q1 =+48
230 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
231 FN 11: IF +Q13 GT +Q10 GOTO LBL "L49"
232 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
233 ;
234 LBL "L49"
235 QS11 = "1"
236 FN 0: Q1 =+49
237 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
238 FN 11: IF +Q13 GT +Q10 GOTO LBL "L50"
239 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
240 ;
241 LBL "L50"
242 QS11 = "2"
243 FN 0: Q1 =+50
244 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
245 FN 11: IF +Q13 GT +Q10 GOTO LBL "L51"
246 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
247 ;
248 LBL "L51"
249 QS11 = "3"
250 FN 0: Q1 =+51
251 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
252 FN 11: IF +Q13 GT +Q10 GOTO LBL "L52"
253 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
254 ;
255 LBL "L52"
256 QS11 = "4"
257 FN 0: Q1 =+52
258 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
259 FN 11: IF +Q13 GT +Q10 GOTO LBL "L53"
260 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
261 ;
262 LBL "L53"
263 QS11 = "5"
264 FN 0: Q1 =+53
265 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
266 FN 11: IF +Q13 GT +Q10 GOTO LBL "L54"
267 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
268 ;
269 LBL "L54"
270 QS11 = "6"
271 FN 0: Q1 =+54
272 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
273 FN 11: IF +Q13 GT +Q10 GOTO LBL "L55"
274 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
275 ;
276 LBL "L55"
277 QS11 = "7"
278 FN 0: Q1 =+55
279 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
280 FN 11: IF +Q13 GT +Q10 GOTO LBL "L56"
281 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
282 ;
283 LBL "L56"
284 QS11 = "8"
285 FN 0: Q1 =+56
286 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
287 FN 11: IF +Q13 GT +Q10 GOTO LBL "L57"
288 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
289 ;
290 LBL "L57"
291 QS11 = "9"
292 FN 0: Q1 =+57
293 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
294 FN 11: IF +Q13 GT +Q10 GOTO LBL "A"
295 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
296 ;
297 LBL "A" ;
298 QS11 = "A"
299 FN 0: Q1 =+65
300 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
301 FN 11: IF +Q13 GT +Q10 GOTO LBL "LB"
302 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
303 ;
304 LBL "LB"
305 FN 0: Q1 =+66
306 QS11 = "B"
307 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
308 FN 11: IF +Q13 GT +Q10 GOTO LBL "LC"
309 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
310 ;
311 LBL "LC"
312 FN 0: Q1 =+67
313 QS11 = "C"
314 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
315 FN 11: IF +Q13 GT +Q10 GOTO LBL "LD"
316 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
317 ;
318 LBL "LD"
319 QS11 = "D"
320 FN 0: Q1 =+68
321 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
322 FN 11: IF +Q13 GT +Q10 GOTO LBL "LE"
323 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
324 ;
325 LBL "LE"
326 QS11 = "E"
327 FN 0: Q1 =+69
328 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
329 FN 11: IF +Q13 GT +Q10 GOTO LBL "LF"
330 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
331 ;
332 LBL "LF"
333 QS11 = "F"
334 FN 0: Q1 =+70
335 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
336 FN 11: IF +Q13 GT +Q10 GOTO LBL "LG"
337 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
338 ;
339 LBL "LG"
340 QS11 = "G"
341 FN 0: Q1 =+71
342 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
343 FN 11: IF +Q13 GT +Q10 GOTO LBL "LH"
344 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
345 ;
346 LBL "LH"
347 QS11 = "H"
348 FN 0: Q1 =+72
349 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
350 FN 11: IF +Q13 GT +Q10 GOTO LBL "LI"
351 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
352 ;
353 LBL "LI"
354 QS11 = "I"
355 FN 0: Q1 =+73
356 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
357 FN 11: IF +Q13 GT +Q10 GOTO LBL "LJ"
358 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
359 ;
360 LBL "LJ"
361 QS11 = "J"
362 FN 0: Q1 =+74
363 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
364 FN 11: IF +Q13 GT +Q10 GOTO LBL "LK"
365 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
366 ;
367 LBL "LK"
368 QS11 = "K"
369 FN 0: Q1 =+75
370 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
371 FN 11: IF +Q13 GT +Q10 GOTO LBL "LL"
372 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
373 ;
374 LBL "LL"
375 QS11 = "L"
376 FN 0: Q1 =+76
377 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
378 FN 11: IF +Q13 GT +Q10 GOTO LBL "LM"
379 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
380 ;
381 LBL "LM"
382 QS11 = "M"
383 FN 0: Q1 =+77
384 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
385 FN 11: IF +Q13 GT +Q10 GOTO LBL "LN"
386 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
387 ;
388 LBL "LN"
389 QS11 = "N"
390 FN 0: Q1 =+78
391 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
392 FN 11: IF +Q13 GT +Q10 GOTO LBL "LO"
393 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
394 ;
395 LBL "LO"
396 QS11 = "O"
397 FN 0: Q1 =+79
398 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
399 FN 11: IF +Q13 GT +Q10 GOTO LBL "LP"
400 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
401 ;
402 LBL "LP"
403 QS11 = "P"
404 FN 0: Q1 =+80
405 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
406 FN 11: IF +Q13 GT +Q10 GOTO LBL "LQ"
407 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
408 ;
409 LBL "LQ"
410 QS11 = "Q"
411 FN 0: Q1 =+81
412 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
413 FN 11: IF +Q13 GT +Q10 GOTO LBL "LR"
414 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
415 ;
416 LBL "LR"
417 QS11 = "R"
418 FN 0: Q1 =+82
419 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
420 FN 11: IF +Q13 GT +Q10 GOTO LBL "LS"
421 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
422 ;
423 LBL "LS"
424 QS11 = "S"
425 FN 0: Q1 =+83
426 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
427 FN 11: IF +Q13 GT +Q10 GOTO LBL "LT"
428 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
429 ;
430 LBL "LT"
431 QS11 = "T"
432 FN 0: Q1 =+84
433 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
434 FN 11: IF +Q13 GT +Q10 GOTO LBL "LU"
435 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
436 ;
437 LBL "LU"
438 QS11 = "U"
439 FN 0: Q1 =+85
440 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
441 FN 11: IF +Q13 GT +Q10 GOTO LBL "LV"
442 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
443 ;
444 LBL "LV"
445 QS11 = "V"
446 FN 0: Q1 =+86
447 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
448 FN 11: IF +Q13 GT +Q10 GOTO LBL "LW"
449 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
450 ;
451 LBL "LW"
452 QS11 = "W"
453 FN 0: Q1 =+87
454 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
455 FN 11: IF +Q13 GT +Q10 GOTO LBL "LX"
456 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
457 ;
458 LBL "LX"
459 QS11 = "X"
460 FN 0: Q1 =+88
461 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
462 FN 11: IF +Q13 GT +Q10 GOTO LBL "LY"
463 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
464 ;
465 LBL "LY"
466 QS11 = "Y"
467 FN 0: Q1 =+89
468 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
469 FN 11: IF +Q13 GT +Q10 GOTO LBL "LZ"
470 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
471 ;
472 LBL "LZ"
473 QS11 = "Z"
474 FN 0: Q1 =+90
475 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
476 FN 11: IF +Q13 GT +Q10 GOTO LBL "LAA"
477 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
478 ;
479 LBL "LAA" ;
480 QS11 = "a"
481 FN 0: Q1 =+97
482 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
483 FN 11: IF +Q13 GT +Q10 GOTO LBL "LBB"
484 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
485 ;
486 LBL "LBB"
487 FN 0: Q1 =+98
488 QS11 = "b"
489 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
490 FN 11: IF +Q13 GT +Q10 GOTO LBL "LCC"
491 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
492 ;
493 LBL "LCC"
494 FN 0: Q1 =+99
495 QS11 = "c"
496 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
497 FN 11: IF +Q13 GT +Q10 GOTO LBL "LDD"
498 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
499 ;
500 LBL "LDD"
501 QS11 = "d"
502 FN 0: Q1 =+100
503 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
504 FN 11: IF +Q13 GT +Q10 GOTO LBL "LEE"
505 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
506 ;
507 LBL "LEE"
508 QS11 = "e"
509 FN 0: Q1 =+101
510 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
511 FN 11: IF +Q13 GT +Q10 GOTO LBL "LFF"
512 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
513 ;
514 LBL "LFF"
515 QS11 = "f"
516 FN 0: Q1 =+102
517 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
518 FN 11: IF +Q13 GT +Q10 GOTO LBL "LGG"
519 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
520 ;
521 LBL "LGG"
522 QS11 = "g"
523 FN 0: Q1 =+103
524 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
525 FN 11: IF +Q13 GT +Q10 GOTO LBL "LHH"
526 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
527 ;
528 LBL "LHH"
529 QS11 = "h"
530 FN 0: Q1 =+104
531 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
532 FN 11: IF +Q13 GT +Q10 GOTO LBL "LII"
533 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
534 ;
535 LBL "LII"
536 QS11 = "i"
537 FN 0: Q1 =+105
538 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
539 FN 11: IF +Q13 GT +Q10 GOTO LBL "LJJ"
540 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
541 ;
542 LBL "LJJ"
543 QS11 = "j"
544 FN 0: Q1 =+106
545 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
546 FN 11: IF +Q13 GT +Q10 GOTO LBL "LKK"
547 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
548 ;
549 LBL "LKK"
550 QS11 = "k"
551 FN 0: Q1 =+107
552 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
553 FN 11: IF +Q13 GT +Q10 GOTO LBL "LLL"
554 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
555 ;
556 LBL "LLL"
557 QS11 = "l"
558 FN 0: Q1 =+108
559 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
560 FN 11: IF +Q13 GT +Q10 GOTO LBL "LMM"
561 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
562 ;
563 LBL "LMM"
564 QS11 = "m"
565 FN 0: Q1 =+109
566 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
567 FN 11: IF +Q13 GT +Q10 GOTO LBL "LNN"
568 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
569 ;
570 LBL "LNN"
571 QS11 = "n"
572 FN 0: Q1 =+110
573 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
574 FN 11: IF +Q13 GT +Q10 GOTO LBL "LOO"
575 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
576 ;
577 LBL "LOO"
578 QS11 = "o"
579 FN 0: Q1 =+111
580 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
581 FN 11: IF +Q13 GT +Q10 GOTO LBL "LPP"
582 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
583 ;
584 LBL "LPP"
585 QS11 = "p"
586 FN 0: Q1 =+112
587 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
588 FN 11: IF +Q13 GT +Q10 GOTO LBL "LQQ"
589 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
590 ;
591 LBL "LQQ"
592 QS11 = "q"
593 FN 0: Q1 =+113
594 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
595 FN 11: IF +Q13 GT +Q10 GOTO LBL "LRR"
596 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
597 ;
598 LBL "LRR"
599 QS11 = "r"
600 FN 0: Q1 =+114
601 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
602 FN 11: IF +Q13 GT +Q10 GOTO LBL "LSS"
603 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
604 ;
605 LBL "LSS"
606 QS11 = "s"
607 FN 0: Q1 =+115
608 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
609 FN 11: IF +Q13 GT +Q10 GOTO LBL "LTT"
610 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
611 ;
612 LBL "LTT"
613 QS11 = "t"
614 FN 0: Q1 =+116
615 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
616 FN 11: IF +Q13 GT +Q10 GOTO LBL "LUU"
617 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
618 ;
619 LBL "LUU"
620 QS11 = "u"
621 FN 0: Q1 =+117
622 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
623 FN 11: IF +Q13 GT +Q10 GOTO LBL "LVV"
624 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
625 ;
626 LBL "LVV"
627 QS11 = "v"
628 FN 0: Q1 =+118
629 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
630 FN 11: IF +Q13 GT +Q10 GOTO LBL "LWW"
631 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
632 ;
633 LBL "LWW"
634 QS11 = "w"
635 FN 0: Q1 =+119
636 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
637 FN 11: IF +Q13 GT +Q10 GOTO LBL "LXX"
638 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
639 ;
640 LBL "LXX"
641 QS11 = "x"
642 FN 0: Q1 =+120
643 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
644 FN 11: IF +Q13 GT +Q10 GOTO LBL "LYY"
645 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
646 ;
647 LBL "LYY"
648 QS11 = "y"
649 FN 0: Q1 =+121
650 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
651 FN 11: IF +Q13 GT +Q10 GOTO LBL "LZZ"
652 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
653 ;
654 LBL "LZZ"
655 QS11 = "z"
656 FN 0: Q1 =+122
657 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 )
658 FN 11: IF +Q13 GT +Q10 GOTO LBL "LAA"
659 FN 12: IF +Q13 LT +Q3 GOTO LBL 299
660 ;
661 FN 0: Q1 =+0
662 LBL 299
663 FN 10: IF +Q1 NE +0 GOTO LBL Q1
664 FN 9: IF +Q1 EQU +0 GOTO LBL 9
665 ;
666 ; Berechnung und Mittelbahn Zeichen
667 ;
668 LBL 30 ; Leerzeichen
669 FN 1: Q33 =+Q108 + +6
670 FN 9: IF +9 EQU +9 GOTO LBL 9
671 ;
672 LBL 31 ; <
673 L X+6.667 Y+1 R0 FMAX
674 L Z+Q9 R0 FQ7
675 L X+0 Y+5 R0 FQ6
676 L X+6.667 Y+9 R0 FMAX
677 FN 1: Q33 =+Q108 + +12.5
678 FN 9: IF +9 EQU +9 GOTO LBL 9
679 ;
680 LBL 32 ; >
681 L X-3.167 Y+1 R0 FMAX
682 L Z+Q9 R0 FQ7
683 L X+3.5 Y+5 R0 FQ6
684 L X-3.167 Y+9 R0 FMAX
685 FN 1: Q33 =+Q108 + +5.5
686 FN 9: IF +9 EQU +9 GOTO LBL 9
687 ;
688 LBL 33 ; [
689 L X+3.055 Y+10 R0 FMAX
690 L Z+Q9 R0 FQ7
691 L X+0 R0 FQ6
692 L Y+0
693 L X+3.055
694 FN 1: Q33 =+Q108 + +7.5
695 FN 9: IF +9 EQU +9 GOTO LBL 9
696 ;
697 LBL 34 ; ]
698 L X+0 Y+10 R0 FMAX
699 L Z+Q9 R0 FQ7
700 L X+3.055 R0 FQ6
701 L Y+0
702 L X+0
703 FN 1: Q33 =+Q108 + +7.5
704 FN 9: IF +9 EQU +9 GOTO LBL 9
705 ;
706 LBL 35 ; \
707 L X+4.5 Y+1 R0 FMAX
708 L Z+Q9 R0 FQ7
709 L X-0.5 Y+10 R0 FQ6
710 FN 1: Q33 =+Q108 + +8.5
711 FN 9: IF +9 EQU +9 GOTO LBL 9
712 ;
713 LBL 36 ; (
714 L X+3.228 Y+0 R0 FMAX
715 L Z+Q9 R0 FQ7
716 CC X+3.228 Y+3.333
717 CP PA+180 DR- FQ6
718 L Y+6.667
719 CC X+3.228 Y+6.667
720 CP PA+105 DR-
721 FN 1: Q33 =+Q108 + +7.5
722 FN 9: IF +9 EQU +9 GOTO LBL 9
723 ;
724 LBL 37 ; )
725 L X+0.278 Y+0 R0 FMAX
726 L Z+Q9 R0 FQ7
727 CC X+0.278 Y+3.333
728 CP PA+0 DR+ FQ6
729 L Y+6.667
730 CC X+0.278 Y+6.667
731 CP PA+75 DR+
732 FN 1: Q33 =+Q108 + +8.5
733 FN 9: IF +9 EQU +9 GOTO LBL 9
734 ;
735 LBL 38 ; +
736 L X-2 Y+5 R0 FMAX
737 L Z+Q9 R0 FQ7
738 L X+2 R0 FQ6
739 L Z+Q8 R0 FMAX
740 L X+0 Y+7 R0 FMAX
741 L Z+Q9 R0 FQ7
742 L Y+3 R0 FQ6
743 FN 1: Q33 =+Q108 + +7
744 FN 9: IF +9 EQU +9 GOTO LBL 9
745 ;
746 LBL 39 ; =
747 L X-2 Y+4 R0 FMAX
748 L Z+Q9 R0 FQ7
749 L X+2 R0 FQ6
750 L Z+Q8 R0 FMAX
751 L X-2 Y+6 R0 FMAX
752 L Z+Q9 R0 FQ7
753 L X+2 R0 FQ6
754 FN 1: Q33 =+Q108 + +7
755 FN 9: IF +9 EQU +9 GOTO LBL 9
756 ;
757 LBL 40 ; :
758 CC X-1.5 Y+7
759 LP PR+0.5 PA+0 R0 FMAX
760 L Z+Q9 R0 FQ7
761 CP PA+0 DR- R0 FQ6
762 L Z+Q8 R0 FMAX
763 CC X-1.5 Y+1
764 LP PR+0.5 PA+0 R0 FMAX
765 L Z+Q9 R0 FQ7
766 CP PA+0 DR- R0 FQ6
767 FN 1: Q33 =+Q108 + +4.5
768 FN 9: IF +9 EQU +9 GOTO LBL 9
769 ;
770 LBL 41 ; ,
771 CC X-1.5 Y+1
772 LP PR+0.5 PA+0 R0 FMAX
773 L Z+Q9 R0 FQ7
774 CP PA+0 DR- R0 FQ6
775 L X-2 Y-1 R0 FQ6
776 FN 1: Q33 =+Q108 + +4.5
777 FN 9: IF +9 EQU +9 GOTO LBL 9
778 ;
779 LBL 42 ; ;
780 CC X-1.5 Y+7
781 LP PR+0.5 PA+0 R0 FMAX
782 L Z+Q9 R0 FQ7
783 CP PA+0 DR- R0 FQ6
784 L Z+Q8 R0 FMAX
785 CC X-1.5 Y+1
786 LP PR+0.5 PA+0 R0 FMAX
787 L Z+Q9 R0 FQ7
788 CP PA+0 DR- R0 FQ6
789 L X-2 Y-1 R0 FQ6
790 FN 1: Q33 =+Q108 + +4.5
791 FN 9: IF +9 EQU +9 GOTO LBL 9
792 ;
793 LBL 45 ; -
794 L X-2 Y+5 R0 FMAX
795 L Z+Q9 R0 FQ7
796 L X+2 R0 FQ6
797 FN 1: Q33 =+Q108 + +7
798 FN 9: IF +9 EQU +9 GOTO LBL 9
799 ;
800 LBL 46 ; .
801 CC X-1.5 Y+1
802 LP PR+0.5 PA+0 R0 FMAX
803 L Z+Q9 R0 FQ7
804 CP PA+0 DR- R0 FQ6
805 FN 1: Q33 =+Q108 + +4.5
806 FN 9: IF +9 EQU +9 GOTO LBL 9
807 ;
808 LBL 47 ; /
809 L X-0.5 Y+1 R0 FMAX
810 L Z+Q9 R0 FQ7
811 L X+4.5 Y+10 R0 FQ6
812 FN 1: Q33 =+Q108 + +8.5
813 FN 9: IF +9 EQU +9 GOTO LBL 9
814 ;
815 LBL 48 ; 0
816 L X-2.639 Y+2.639 R0 FMAX
817 L Z+Q9 R0 FQ7
818 CC X+0 Y+2.639
819 CP PA+0 DR+
820 L Y+7.361 R0 FQ6
821 CC X+0 Y+7.361
822 CP PA+180 DR+
823 L Y+2.639
824 FN 1: Q33 =+Q108 + +6.5
825 FN 9: IF +9 EQU +9 GOTO LBL 9
826 ;
827 LBL 49 ; 1
828 L X-2.111 Y+7.778 R0 FMAX
829 L Z+Q9 R0 FQ7
830 L X+0.111 Y+10 R0 FQ6
831 L Y+0
832 FN 1: Q33 =+Q108 + +6.3
833 FN 9: IF +9 EQU +9 GOTO LBL 9
834 ;
835 LBL 50 ; 2
836 L X-2.404 Y+8.147 R0 FMAX
837 L Z+Q9 R0 FQ7
838 CC X+0.012 Y+7.5
839 C X+2.007 Y+5.996 DR- R0 FQ6
840 L X-2.511 Y+0
841 L X+2.489
842 FN 1: Q33 =+Q108 + +7.9
843 FN 9: IF +9 EQU +9 GOTO LBL 9
844 ;
845 LBL 51 ; 3
846 L X-2.455 Y+8.147 R0 FMAX
847 CC X-0.041 Y+7.5
848 L Z+Q9 R0 FQ7
849 C X+0.515 Y+5.063 DR- R0 FQ6
850 L Y+4.938
851 CC X-0.041 Y+2.5
852 C X-2.455 Y+1.853 DR-
853 FN 1: Q33 =+Q108 + +8.3
854 FN 9: IF +9 EQU +9 GOTO LBL 9
855 ;
856 LBL 52 ; 4
857 L X+0.972 Y+10 R0 FMAX
858 L Z+Q9 R0 FQ7
859 L X-2.361 Y+1.953 R0 FQ6
860 L Y+1.111
861 L X+2.361
862 L Z+Q8 R0 FMAX
863 L X+0.972 Y+4.444 R0 FMAX
864 L Z+Q9 R0 FQ7
865 L Y+0 R0 FQ6
866 FN 1: Q33 =+Q108 + +8.3
867 FN 9: IF +9 EQU +9 GOTO LBL 9
868 ;
869 LBL 53 ; 5
870 CC X-0.043 Y+2.5
871 L X-2.457 Y+1.853 R0 FMAX
872 L Z+Q9 R0 FQ7
873 CP PA+0 DR+ R0 FQ6
874 L Y+4.167
875 CC X-0.043 Y+4.167
876 C X-2.457 Y+4.814 DR+
877 L Y+10
878 L X+2.457
879 FN 1: Q33 =+Q108 + +8.3
880 FN 9: IF +9 EQU +9 GOTO LBL 9
881 ;
882 LBL 54 ; 6
883 CC X+0 Y+4.167
884 L X-2.5 Y+4.167 R0 FMAX
885 L Z+Q9 R0 FQ7
886 CP PA+0 DR- R0 FQ6
887 L Y+2.5
888 CC X+0 Y+2.5
889 CP PA+180 DR-
890 L Y+7.5
891 CC X+0 Y+7.5
892 C X+2.415 Y+8.147 DR-
893 FN 1: Q33 =+Q108 + +8.3
894 FN 9: IF +9 EQU +9 GOTO LBL 9
895 ;
896 LBL 55 ; 7
897 L X-2.222 Y+8.889 R0 FMAX
898 L Z+Q9 R0 FQ7
899 L Y+10 R0 FQ6
900 L X+2.222
901 L Y+9.113
902 L X-2.222 Y+0
903 FN 1: Q33 =+Q108 + +7.5
904 FN 9: IF +9 EQU +9 GOTO LBL 9
905 ;
906 LBL 56 ; 8
907 CC X+0 Y+7.5
908 L X-0.006 Y+5 R0 FMAX
909 L Z+Q9 R0 FQ7
910 CP PA+270 DR-
911 CC X+0 Y+2.5
912 CP PA+90 DR-
913 FN 1: Q33 =+Q108 + +8.3
914 FN 9: IF +9 EQU +9 GOTO LBL 9
915 ;
916 LBL 57 ; 9
917 L X-2.415 Y+1.853 R0 FMAX
918 L Z+Q9 R0 FQ7
919 CC X+0 Y+2.5
920 CP PA+0 DR+ R0 FQ6
921 L Y+7.5
922 CC X+0 Y+7.5
923 CP PA+180 DR+
924 L Y+5.833
925 CC X+0 Y+5.833
926 CP PA+0 DR+
927 FN 1: Q33 =+Q108 + +8.3
928 FN 9: IF +9 EQU +9 GOTO LBL 9
929 ;
930 LBL 65 ; A
931 L X-3.639 Y+0 R0 FMAX
932 L Z+Q9 R0 FQ7
933 L X+0 Y+10 R0 FQ6
934 L X+3.639 Y+0
935 L X+2.426 Y+3.333
936 L X-2.426
937 FN 1: Q33 =+Q108 + +9.5
938 FN 9: IF +9 EQU +9 GOTO LBL 9
939 ;
940 LBL 66 ; B
941 L X-3.056 Y+5 R0 FMAX
942 L Z+Q9 R0 FQ7
943 L X+0.556 R0 FQ6
944 CC X+0.556 Y+7.5
945 CP PA+90 DR+
946 L X-3.056
947 L Y+0
948 L X+0.556
949 CC X+0.556 Y+2.5
950 CP PA+90 DR+
951 FN 1: Q33 =+Q108 + +9.5
952 FN 9: IF +9 EQU +9 GOTO LBL 9
953 ;
954 LBL 67 ; C
955 CC X+0.057 Y+6.667
956 L X+3.276 Y+7.529 R0 FMAX
957 L Z+Q9 R0 FQ7
958 CP PA+180 DR+ R0 FQ6
959 L Y+3.333
960 CC X+0.057 Y+3.333
961 C X+3.276 Y+2.471 DR+
962 FN 1: Q33 =+Q108 + +9.6
963 FN 9: IF +9 EQU +9 GOTO LBL 9
964 ;
965 LBL 68 ; D
966 L X-3.055 Y+10 R0 FMAX
967 L Z+Q9 R0 FQ7
968 L Y+0 R0 FQ6
969 L X-0.278
970 CC X-0.278 Y+3.333
971 CP PA+0 DR+
972 L Y+6.667
973 CC X-0.278 Y+6.667
974 CP PA+90 DR+
975 L X-3.056
976 FN 1: Q33 =+Q108 + +9.5
977 FN 9: IF +9 EQU +9 GOTO LBL 9
978 ;
979 LBL 69 ; E
980 L X+3.056 Y+10 R0 FMAX
981 L Z+Q9 R0 FQ7
982 L X-3.056 R0 FQ6
983 L Y+0
984 L X+3.056
985 L Z+Q8 R0 FMAX
986 L X+0.833 Y+5 R0 FMAX
987 L Z+Q9 R0 FQ7
988 L X-3.056 R0 FQ6
989 FN 1: Q33 =+Q108 + +8.8
990 FN 9: IF +9 EQU +9 GOTO LBL 9
991 ;
992 LBL 70 ; F
993 L X+3.056 Y+10 R0 FMAX
994 L Z+Q9 R0 FQ7
995 L X-3.056 FQ6
996 L Y+0
997 L Y+5
998 L X+0.833
999 FN 1: Q33 =+Q108 + +9.5
1000 FN 9: IF +9 EQU +9 GOTO LBL 9
1001 ;
1002 LBL 71 ; G
1003 CC X+0 Y+6.389
1004 L X+3.393 Y+7.624 R0 FMAX
1005 L Z+Q9 R0 FQ7
1006 CP PA+180 DR+ FQ6
1007 L Y+3.611
1008 CC X+0 Y+3.611
1009 CP PA+0 DR+
1010 L Y+4.444
1011 L X+0.833
1012 FN 1: Q33 =+Q108 + +10.3
1013 FN 9: IF +9 EQU +9 GOTO LBL 9
1014 ;
1015 LBL 72 ; H
1016 L X-3.333 Y+10 R0 FMAX
1017 L Z+Q9 R0 FQ7
1018 L Y+0 FQ6
1019 L Y+5
1020 L X+3.333
1021 L Y+10
1022 L Y+0
1023 FN 1: Q33 =+Q108 + +8.8
1024 FN 9: IF +9 EQU +9 GOTO LBL 9
1025 ;
1026 LBL 73 ; I
1027 L X-2.5 Y+0 R0 FMAX
1028 L Z+Q9 R0 FQ7
1029 L Y+10 R0 FQ6
1030 FN 1: Q33 =+Q108 + +5
1031 FN 9: IF +9 EQU +9 GOTO LBL 9
1032 ;
1033 LBL 74 ; J
1034 L X-2.731 Y+2.058 R0 FMAX
1035 L Z+Q9 R0 FQ7
1036 CC X-0.047 Y+2.778
1037 CP PA+0 DR+ FQ6
1038 L Y+10
1039 FN 1: Q33 =+Q108 + +8.3
1040 FN 9: IF +9 EQU +9 GOTO LBL 9
1041 ;
1042 LBL 75 ; K
1043 L X-3.056 Y+10 R0 FMAX
1044 L Z+Q9 R0 FQ7
1045 L Y+0 R0 FQ6
1046 L Y+2.778
1047 L X+3.056 Y+10
1048 L Z+Q8 R0 FMAX
1049 L Y+0 R0 FMAX
1050 L Z+Q9 R0 FQ7
1051 L X-0.853 Y+5.381
1052 FN 1: Q33 =+Q108 + +9.5
1053 FN 9: IF +9 EQU +9 GOTO LBL 9
1054 ;
1055 LBL 76 ; L
1056 L X-3.056 Y+10 R0 FMAX
1057 L Z+Q9 R0 FQ7
1058 L Y+0 R0 FQ6
1059 L X+2.8
1060 FN 1: Q33 =+Q108 + +7.5
1061 FN 9: IF +9 EQU +9 GOTO LBL 9
1062 ;
1063 LBL 77 ; M
1064 L X-3.611 Y+0 R0 FMAX
1065 L Z+Q9 R0 FQ7
1066 L Y+10 R0 FQ6
1067 L X+0 Y+3.333
1068 L X+3.611 Y+10
1069 L Y+0
1070 FN 1: Q33 =+Q108 + +10.3
1071 FN 9: IF +9 EQU +9 GOTO LBL 9
1072 ;
1073 LBL 78 ; N
1074 L X-3.056 Y+0 R0 FMAX
1075 L Z+Q9 R0 FQ7
1076 L Y+10 R0 FQ6
1077 L X+3.056 Y+0
1078 L Y+10
1079 FN 1: Q33 =+Q108 + +9.5
1080 FN 9: IF +9 EQU +9 GOTO LBL 9
1081 ;
1082 LBL 79 ; O
1083 L X-3.056 Y+3.056 R0 FMAX
1084 L Z+Q9 R0 FQ7
1085 CC X+0 Y+3.056
1086 CP PA+0 DR+ FQ6
1087 L Y+6.944
1088 CC X+0 Y+6.944
1089 CP PA+180 DR+
1090 L Y+3.056
1091 FN 1: Q33 =+Q108 + +10.3
1092 FN 9: IF +9 EQU +9 GOTO LBL 9
1093 ;
1094 LBL 80 ; P
1095 L X-3.056 Y+0 R0 FMAX
1096 L Z+Q9 R0 FQ7
1097 L Y+10 R0 FQ6
1098 L X+0.486
1099 CC X+0.486 Y+7.431
1100 CP PA+270 DR-
1101 L X-3.056
1102 FN 1: Q33 =+Q108 + +9
1103 FN 9: IF +9 EQU +9 GOTO LBL 9
1104 ;
1105 LBL 81 ; Q
1106 CC X+0 Y+3.056
1107 L X-3.056 Y+3.056
1108 L Z+Q9 R0 FQ7
1109 CP PA+0 DR+ FQ6
1110 L Y+6.944
1111 CC X+0 Y+6.944
1112 CP PA+180 DR+
1113 L Y+3.056
1114 L Z+Q8 R0 FMAX
1115 L X+1.087 Y+1.968 R0 FMAX
1116 L Z+Q9 R0 FQ7
1117 L X+3.056 Y+0 R0 FQ6
1118 FN 1: Q33 =+Q108 + +10.3
1119 FN 9: IF +9 EQU +9 GOTO LBL 9
1120 ;
1121 LBL 82 ; R
1122 L X-3.056 Y+0 R0 FMAX
1123 L Z+Q9 R0 FQ7
1124 L Y+10 R0 FQ6
1125 L X+0.486
1126 CC X+0.486 Y+7.431
1127 CP PA+270 DR-
1128 L X-3.056
1129 L X+0.486
1130 L X+2.857 Y+0
1131 FN 1: Q33 =+Q108 + +9.5
1132 FN 9: IF +9 EQU +9 GOTO LBL 9
1133 ;
1134 LBL 83 ; S
1135 L X-3.143 Y+1.302 R0 FMAX
1136 L Z+Q9 R0 FQ7
1137 CC X+0 Y+4.444
1138 C X+2.232 Y+0.601 DR+ FQ6
1139 CC X+1.151 Y+2.463
1140 C X+1.708 Y+4.542 DR+
1141 L X-1.708 Y+5.458
1142 CC X-1.151 Y+7.537
1143 C X-2.232 Y+9.398 DR-
1144 CC X+0 Y+5.556
1145 C X+3.143 Y+8.698 DR-
1146 FN 1: Q33 =+Q108 + +9.1
1147 FN 9: IF +9 EQU +9 GOTO LBL 9
1148 ;
1149 LBL 84 ; T
1150 L X-3.056 Y+10 R0 FMAX
1151 L Z+Q9 R0 FQ7
1152 L X+3.056 R0 FQ6
1153 L X+0
1154 L Y+0
1155 FN 1: Q33 =+Q108 + +9.1
1156 FN 9: IF +9 EQU +9 GOTO LBL 9
1157 ;
1158 LBL 85 ; U
1159 L X-3.611 Y+10 R0 FMAX
1160 L Z+Q9 R0 FQ7
1161 L Y+3.611
1162 CC X+0 Y+3.611
1163 CP PA+0 DR+
1164 L Y+10
1165 FN 1: Q33 =+Q108 + +9.5
1166 FN 9: IF +9 EQU +9 GOTO LBL 9
1167 ;
1168 LBL 86 ; V
1169 L X-3.443 Y+10 R0 FMAX
1170 L Z+Q9 R0 FQ7
1171 L X+0 Y+0 R0 FQ6
1172 L X+3.443 Y+10
1173 FN 1: Q33 =+Q108 + +9.5
1174 FN 9: IF +9 EQU +9 GOTO LBL 9
1175 ;
1176 LBL 87 ; W
1177 L X-4.986 Y+10 R0 FMAX
1178 L Z+Q9 R0 FQ7
1179 L X-2.493 Y+0 R0 FQ6
1180 L X+0 Y+10
1181 L X+2.493 Y+0
1182 L X+4.986 Y+10
1183 FN 1: Q33 =+Q108 + +10.4
1184 FN 9: IF +9 EQU +9 GOTO LBL 9
1185 ;
1186 LBL 88 ; X
1187 L X-3.124 Y+10 R0 FMAX
1188 L Z+Q9 R0 FQ7
1189 L X+3.124 Y+0 R0 FQ6
1190 L Z+Q8 R0 FMAX
1191 L X+3.124 Y+10 R0 FMAX
1192 L Z+Q9 R0 FQ7
1193 L X-3.124 Y+0 FQ6
1194 FN 1: Q33 =+Q108 + +8.3
1195 FN 9: IF +9 EQU +9 GOTO LBL 9
1196 ;
1197 LBL 89 ; Y
1198 L X-3.124 Y+10 R0 FMAX
1199 L Z+Q9 R0 FQ7
1200 L X+0 Y+5 R0 FQ6
1201 L X+0 Y+0
1202 L Z+Q8 R0 FMAX
1203 L Y+5 R0 FMAX
1204 L Z+Q9 R0 FQ7
1205 L X+3.124 Y+10 FQ6
1206 FN 1: Q33 =+Q108 + +8.3
1207 FN 9: IF +9 EQU +9 GOTO LBL 9
1208 ;
1209 LBL 90 ; Z
1210 L X-3.611 Y+10 R0 FMAX
1211 L Z+Q9 R0 FQ7
1212 L X+3.611 R0 FQ6
1213 L X-3.611 Y+0
1214 L X+3.611
1215 FN 1: Q33 =+Q108 + +9.5
1216 FN 9: IF +9 EQU +9 GOTO LBL 9
1217 ;
1218 LBL 97 ; a
1219 L X+2.569 Y+0 R0 FMAX
1220 Z+Q9 R0 FQ7
1221 L Y+6.666
1222 L Y+4.097
1223 CC X+0 Y+4.097
1224 C X-2.569 Y+4.097 DR+
1225 L Y+2.569
1226 CC X+0 Y+2.569
1227 C X+2.569 Y+2.569 DR+
1228 FN 1: Q33 =+Q108 + +8.3
1229 FN 9: IF +9 EQU +9 GOTO LBL 9
1230 ;
1231 LBL 98 ; b
1232 L X-2.569 Y+10 R0 FMAX
1233 L Z+Q9 R0 FQ7
1234 L Y+0 R0 FQ6
1235 L Y+2.569
1236 CC X+0 Y+2.569
1237 CP PA+0 DR+
1238 L Y+4.097
1239 CC X+0 Y+4.097
1240 CP PA+180 DR+
1241 FN 1: Q33 =+Q108 + +7
1242 FN 9: IF +9 EQU +9 GOTO LBL 9
1243 ;
1244 LBL 99 ; c
1245 L X+2.397 Y+1.285 R0 FMAX
1246 L Z+Q9 R0 FQ7
1247 CC X+0.172 Y+2.569
1248 CP PA+180 DR- R0 FQ6
1249 L Y+4.097
1250 CC X+0.172 Y+4.097
1251 CR X+2.397 Y+5.382 R+2.5 DR-
1252 FN 1: Q33 =+Q108 + +7
1253 FN 9: IF +9 EQU +9 GOTO LBL 9
1254 ;
1255 LBL 100 ; d
1256 L X+2.569 Y+10 R0 FMAX
1257 L Z+Q9 R0 FQ7
1258 L Y+0 R0 FQ6
1259 L Y+2.569
1260 CC X+0 Y+2.569
1261 CP PA+180 DR-
1262 L Y+4.097
1263 CC X+0 Y+4.097
1264 CP PA+0 DR-
1265 FN 1: Q33 =+Q108 + +7
1266 FN 9: IF +9 EQU +9 GOTO LBL 9
1267 ;
1268 LBL 101 ; e
1269 CC X+0 Y+2.569
1270 L X+2.105 Y+1.096 R0 FMAX
1271 L Z+Q9 R0 FQ7
1272 C X-2.569 Y+2.569 DR- FQ6
1273 L X-2.569 Y+4.097
1274 CC X+0 Y+4.097
1275 C X+2.569 Y+4.097 DR-
1276 L Y+3.403
1277 L X-2.569
1278 FN 1: Q33 =+Q108 + +7
1279 FN 9: IF +9 EQU +9 GOTO LBL 9
1280 ;
1281 LBL 102 ; f
1282 L X-1.25 Y+6.667 R0 FMAX
1283 L Z+Q9 R0 FQ7
1284 L X+1.25
1285 L Z+Q8 R0 FMAX
1286 L X+1.667 Y+10 R0 FMAX
1287 L Z+Q9 R0 FQ7
1288 CC X+1.667 Y+8.333
1289 CP PA+180 DR+ R0 FQ6
1290 L X+0 Y+0
1291 FN 1: Q33 =+Q108 + +6.8
1292 FN 9: IF +9 EQU +9 GOTO LBL 9
1293 ;
1294 LBL 103 ; g
1295 L X-2.105 Y-2.238 R0 FMAX
1296 L Z+Q9 R0 FQ7
1297 CC X+0 Y-0.764
1298 CP PA+0 DR+
1299 L Y+6.667
1300 L Y+4.097
1301 CC X+0 Y+4.097
1302 CP PA+180 DR+
1303 L Y+2.569
1304 CC X+0 Y+2.569
1305 CP PA+0 DR+
1306 FN 1: Q33 =+Q108 + +7.5
1307 FN 9: IF +9 EQU +9 GOTO LBL 9
1308 ;
1309 LBL 104 ; h
1310 L X-2.569 Y+10 R0 FMAX
1311 L Z+Q9 R0 FQ7
1312 L Y+0 FQ6
1313 L Y+4.097 X-2.569 R0 FMAX
1314 CC X+0 Y+4.097
1315 C X+2.569 Y+4.097 DR- R0 FQ6
1316 L Y+0 X+2.569
1317 FN 1: Q33 =+Q108 + +7
1318 FN 9: IF +9 EQU +9 GOTO LBL 9
1319 ;
1320 LBL 105 ; i
1321 L X+0 Y+0 R0 FMAX
1322 L Z+Q9 R0 FQ7
1323 L Y+6.667 R0 FQ6
1324 L Z+Q8 R0 FMAX
1325 L Y+10 R0 FMAX
1326 L Z+Q9 R0 FQ7
1327 FN 1: Q33 =+Q108 + +4.5
1328 FN 9: IF +9 EQU +9 GOTO LBL 9
1329 ;
1330 LBL 106 ; j
1331 L X-1.833 Y-3.333 R0 FMAX
1332 L Z+Q9 R0 FQ7
1333 CC X-1.833 Y-1.667
1334 CP PA+0 DR+ R0 FQ6
1335 L Y+6.667
1336 L Z+Q8 R0 FMAX
1337 L Y+10 R0 FMAX
1338 L Z+Q9 R0 FQ7
1339 FN 1: Q33 =+Q108 + +5
1340 FN 9: IF +9 EQU +9 GOTO LBL 9
1341 ;
1342 LBL 107 ; k
1343 L X-2.17 Y+10 R0 FMAX
1344 L Z+Q9 R0 FQ7
1345 L Y+0 R0 FQ6
1346 L Y+1.111
1347 L X+2.17 Y+6.667
1348 L Z+Q8 R0 FMAX
1349 L Y+0 R0 FMAX
1350 L Z+Q9 R0 FQ7
1351 L X-0.434 Y+3.333 R0 FQ6
1352 FN 1: Q33 =+Q108 + +7
1353 FN 9: IF +9 EQU +9 GOTO LBL 9
1354 ;
1355 LBL 108 ; l
1356 L X+0.833 Y+0 R0 FMAX
1357 L Z+Q9 R0 FQ7
1358 CC X+0.833 Y+1.667
1359 CP PA+180 DR- R0 FQ6
1360 L Y+10
1361 FN 1: Q33 =+Q108 + +7
1362 FN 9: IF +9 EQU +9 GOTO LBL 9
1363 ;
1364 LBL 109 ; m
1365 L X-4.444 Y+0 R0 FMAX
1366 L Z+Q9 R0 FQ7
1367 L Y+6.667 R0 FQ6
1368 L Y+4.444
1369 CC X-2.222 Y+4.444
1370 CP PA+0 DR-
1371 L Y+0
1372 L Y+4.444
1373 CC X+2.222 Y+4.444
1374 CP PA+0 DR-
1375 L Y+0
1376 FN 1: Q33 =+Q108 + +10
1377 FN 9: IF +9 EQU +9 GOTO LBL 9
1378 ;
1379 LBL 110 ; n
1380 L X-2.569 Y+0 R0 FMAX
1381 L Z+Q9 R0 FQ7
1382 L Y+6.667 R0 FQ6
1383 L Y+4.097
1384 CC X+0 Y+4.097
1385 CP PA+0 DR-
1386 L Y+0
1387 FN 1: Q33 =+Q108 + +7.5
1388 FN 9: IF +9 EQU +9 GOTO LBL 9
1389 ;
1390 LBL 111 ; o
1391 L X-2.569 Y+2.569 R0 FMAX
1392 L Z+Q9 R0 FQ7
1393 L Y+4.097 R0 FQ6
1394 CC X+0 Y+4.097
1395 CP PA+0 DR-
1396 L Y+2.569
1397 CC X+0 Y+2.569
1398 CP PA+180 DR-
1399 FN 1: Q33 =+Q108 + +7
1400 FN 9: IF +9 EQU +9 GOTO LBL 9
1401 ;
1402 LBL 112 ; p
1403 L X-2.569 Y-3.333 R0 FMAX
1404 L Z+Q9 R0 FQ7
1405 L Y+6.667 R0 FQ6
1406 L Y+4.097
1407 CC X+0 Y+4.097
1408 CP PA+0 DR-
1409 L Y+2.569
1410 CC X+0 Y+2.569
1411 CP PA+180 DR-
1412 FN 1: Q33 =+Q108 + +7
1413 FN 9: IF +9 EQU +9 GOTO LBL 9
1414 ;
1415 LBL 113 ; q
1416 L X+2.569 Y-3.333 R0 FMAX
1417 L Z+Q9 R0 FQ7
1418 L Y+6.667 R0 FQ6
1419 L Y+4.097
1420 CC X+0 Y+4.097
1421 CP PA+180 DR+
1422 L Y+2.569
1423 CC X+0 Y+2.569
1424 CP PA+0 DR+
1425 FN 1: Q33 =+Q108 + +7
1426 FN 9: IF +9 EQU +9 GOTO LBL 9
1427 ;
1428 LBL 114 ; r
1429 L X-1.215 Y+0 R0 FMAX
1430 L Z+Q9 R0 FQ7
1431 L Y+6.667 R0 FQ6
1432 L Y+4.236
1433 CC X+1.215 Y+4.236
1434 C X+1.844 Y+6.584 DR-
1435 FN 1: Q33 =+Q108 + +6
1436 FN 9: IF +9 EQU +9 GOTO LBL 9
1437 ;
1438 LBL 115 ; s
1439 L X-1.994 Y+0.753 R0 FMAX
1440 L Z+Q9 R0 FQ7
1441 CC X-0.177 Y+2.569
1442 C X+1.526 Y+0.646 DR+ R0 FQ6
1443 CC X+0.605 Y+1.686
1444 C X+0.965 Y+3.027 DR+
1445 L X-1.32 Y+3.639
1446 CC X-0.96 Y+4.981
1447 C X-1.881 Y+6.021 DR-
1448 CC X-0.177 Y+4.097
1449 C X+1.64 Y+5.914 DR-
1450 FN 1: Q33 =+Q108 + +6
1451 FN 9: IF +9 EQU +9 GOTO LBL 9
1452 ;
1453 LBL 116 ; t
1454 L X-1.458 Y+6.667 R0 FMAX
1455 L Z+Q9 R0 FQ7
1456 L X+1.042 R0 FQ6
1457 L Z+Q8 R0 FMAX
1458 L X-0.208 Y+10 R0 FMAX
1459 L Z+Q9 R0 FQ7
1460 L Y+1.667 R0 FQ6
1461 CC X+1.458 Y+1.667
1462 C X+1.458 Y+0 DR+
1463 FN 1: Q33 =+Q108 + +7
1464 FN 9: IF +9 EQU +9 GOTO LBL 9
1465 ;
1466 LBL 117 ; u
1467 L X-2.569 Y+6.667 R0 FMAX
1468 L Z+Q9 R0 FQ7
1469 L Y+2.569 R0 FQ6
1470 CC X+0 Y+2.569
1471 CP PA+0 DR+
1472 L Y+0
1473 L Y+6.667
1474 FN 1: Q33 =+Q108 + +7
1475 FN 9: IF +9 EQU +9 GOTO LBL 9
1476 ;
1477 LBL 118 ; v
1478 L X-2.166 Y+6.667 R0 FMAX
1479 L Z+Q9 R0 FQ7
1480 L X+0 Y+0 R0 FQ6
1481 L X+2.166 Y+6.667
1482 FN 1: Q33 =+Q108 + +7
1483 FN 9: IF +9 EQU +9 GOTO LBL 9
1484 ;
1485 LBL 119 ; w
1486 L X-3.823 Y+6.667 R0 FMAX
1487 L Z+Q9 R0 FQ7
1488 L X-1.912 Y+0 R0 FQ6
1489 L X+0 Y+6.667
1490 L X+1.912 Y+0
1491 L X+3.823 Y+6.667
1492 FN 1: Q33 =+Q108 + +8
1493 FN 9: IF +9 EQU +9 GOTO LBL 9
1494 ;
1495 LBL 120 ; x
1496 L X-1.944 Y+0 R0 FMAX
1497 L Z+Q9 R0 FQ7
1498 L X+1.944 Y+6.667 R0 FQ6
1499 L Z+Q8 R0 FMAX
1500 L X-1.944 Y+6.667 R0 FMAX
1501 L Z+Q9 R0 FQ7
1502 L X+1.944 Y+0 R0 FQ6
1503 FN 1: Q33 =+Q108 + +7
1504 FN 9: IF +9 EQU +9 GOTO LBL 9
1505 ;
1506 LBL 121 ; y
1507 L X-1.724 Y-3.233 R0 FMAX
1508 L Z+Q9 R0 FQ7
1509 CC X-2.294 Y-1.667
1510 C X-0.709 Y-2.182 DR+ R0 FQ6
1511 L X+2.166 Y+6.667
1512 L Z+Q8 R0 FMAX
1513 L X-2.166 Y+6.667 R0 FMAX
1514 L Z+Q9 R0 FQ7
1515 L X+0 Y+0 R0 FQ6
1516 FN 1: Q33 =+Q108 + +7
1517 FN 9: IF +9 EQU +9 GOTO LBL 9
1518 ;
1519 LBL 122 ; z
1520 L X-2.222 Y+6.667 R0 FMAX
1521 L Z+Q9 R0 FQ7
1522 L X+2.222 R0 FQ6
1523 L X-2.222 Y+0
1524 L X+2.222
1525 FN 1: Q33 =+Q108 + +7
1526 FN 9: IF +9 EQU +9 GOTO LBL 9
1527 ;
1528 LBL 130 ; SZ
1529 L X-2.688 Y+0 R0 FMAX
1530 L Z+Q9 R0 FQ7
1531 L Y+8.333 R0 FQ6
1532 CC X-1.021 Y+8.333
1533 CP PA+90 DR-
1534 L X+0 Y+10
1535 CC X+0 Y+8.333
1536 CP PA+270 DR-
1537 CC X+0 Y+4.167
1538 C X+2.259 Y+5.238 DR-
1539 CC X-1.757 Y+3.333
1540 C X+2.259 Y+1.429 DR-
1541 CC X+0 Y+2.5
1542 C X+0 Y+0 DR-
1543 FN 1: Q33 =+Q108 + +7
1544 FN 9: IF +9 EQU +9 GOTO LBL 9
1545 ;
1546 LBL 9
1547 FN 10: IF +Q16 NE +0 GOTO LBL 7
1548 FN 3: Q35 =+Q33 * +Q20
1549 FN 1: Q21 =+Q21 + +Q35
1550 FN 1: Q21 =+Q21 + +Q24
1551 ;
1552 LBL 7
1553 FN 9: IF +Q16 EQU +0 GOTO LBL 8
1554 FN 4: Q34 =+Q33 DIV +Q16
1555 FN 3: Q34 =+Q34 * +57.296
1556 FN 3: Q34 =+Q34 * +Q20
1557 FN 11: IF +Q17 GT +0 GOTO LBL 2
1558 FN 1: Q17 =+Q17 + +Q34
1559 FN 12: IF +Q17 LT +0 GOTO LBL 3
1560 ;
1561 LBL 2
1562 FN 2: Q17 =+Q17 - +Q34
1563 ;
1564 LBL 3
1565 FN 1: Q17 =+Q17 + +Q14
1566 ;
1567 LBL 8
1568 CYCL DEF 11.0 MASSFAKTOR
1569 CYCL DEF 11.1 SCL 1
1570 CYCL DEF 10.0 DREHUNG
1571 CYCL DEF 10.1 ROT+0
1572 CYCL DEF 7.0 NULLPUNKT
1573 CYCL DEF 7.1 X+0
1574 CYCL DEF 7.2 Y+0
1575 L Z+Q8 FMAX
1576 ;
1577 LBL 199
1578 LBL 0
1579 ;
1539 LBL "END-PGM"
1540 L Z+Q88 FMAX M9
1541 END PGM Gravieren MM- gravieren.h (35,8 KiB)
- pgm-aufruf-gravieren.h (36,0 KiB)