0  BEGIN PGM 279 MM 
1  ;Q372 = Zahl
2  ;Q201 = Tiefe
3  ;Q200 = Sichere Hoehe
4  ;Q207 = F
5  ;Q374 = Massstab
6  ;
7  ;
8  ;Q225 = Mittelpukt in x
9  ;Q226 = Mittelpukt in Y
10 ;Q244 = Radius
11 ;Q245 = Startwinkel
12 ;Q241 = Winkelschritte Zeichenmenge
13 ;
14 ;Q373 Fraesart: 1 Linear 2 Kreis
15 ;Berechnung der Tiefe (Q201 ist negativ)
16 Q59 = +Q203 + +Q201
FN 18: SYSREAD Q0 = ID210 NR3
FN 9: IF +Q0 EQU +0 GOTO LBL 599
FN 14: ERROR = 1008
LBL 599
FN 10: IF +Q109 NE -1 GOTO LBL 598
FN 14: ERROR = 1001
LBL 598
17 FN 9: IF +Q373 EQU +1 GOTO LBL 10
18 FN 9: IF +Q373 EQU +2 GOTO LBL 3
19 FN 9: IF +Q373 EQU +3 GOTO LBL 4
20 FN 10: IF +Q373 NE +4 GOTO LBL 9999
21 ;
22 ;===========================
23 ;Automatische Kreisberechnung
24 ;
25 ;
26 L  Z+Q200 R0 FMAX
27 L  X+Q225  Y+Q226 R0 FMAX
28 CC  X+Q225  Y+Q226
29 ;
30 FN 4: Q20 =+Q244 DIV +2
31 LP IPR+Q20  PA+Q245
32 FN 1: Q58 =+Q245 + -90
33 CYCL DEF 10.0 DREHUNG
34 CYCL DEF 10.1 IROT+Q58
35 ;
36 ;
37 ;==============================
38 ;Massstab uebernehmen
39 ;=============================
40 CYCL DEF 26.0 MASSFAKTOR ACHSSP.
41 CYCL DEF 26.1 X+Q374 Y+Q374
42 ;
43 L IX-4
44 ;
45 FN 9: IF +0 EQU +0 GOTO LBL 2
46 ;
47 ;===========================
48 ;Automatische Kreisberechnung
49 ;
50 LBL 4
51 FN 3: Q1 =+Q241 * +8
52 FN 3: Q1 =+Q1 * +Q374
53 FN 4: Q1 =+Q1 DIV +3.14
54 FN 0: Q244 =+Q1
55 FN 3: Q1 =+Q244 * +3.14
56 FN 3: Q3 =+Q374 * +8
57 ;
58 FN 4: Q2 =+Q1 DIV +Q3
59 FN 4: Q241 =+Q2 DIV +1
60 ;
61 L  Z+Q200 R0 FMAX
62 L  X+Q225  Y+Q226 R0 FMAX
63 CC  X+Q225  Y+Q226
64 ;
65 FN 4: Q20 =+Q244 DIV +2
66 LP IPR+Q20  PA+Q245
67 FN 1: Q58 =+Q245 + -90
68 CYCL DEF 10.0 DREHUNG
69 CYCL DEF 10.1 IROT+Q58
70 ;
71 ;
72 ;==============================
73 ;Massstab uebernehmen
74 ;=============================
75 CYCL DEF 26.0 MASSFAKTOR ACHSSP.
76 CYCL DEF 26.1 X+Q374 Y+Q374
77 ;
78 L IX-4
79 ;
80 FN 9: IF +0 EQU +0 GOTO LBL 2
81 ;
82 ;===========================
83 ;Automatische Kreisabstandsberechnung
84 ;
85 LBL 3
86 FN 3: Q1 =+Q244 * +3.14
87 FN 3: Q3 =+Q374 * +8
88 ;
89 FN 4: Q2 =+Q1 DIV +Q3
90 FN 4: Q241 =+Q2 DIV +1
91 ;
92 L  Z+Q200 R0 FMAX
93 L  X+Q225  Y+Q226 R0 FMAX
94 CC  X+Q225  Y+Q226
95 ;
96 FN 4: Q20 =+Q244 DIV +2
97 LP IPR+Q20  PA+Q245
98 FN 1: Q58 =+Q245 + -90
99 CYCL DEF 10.0 DREHUNG
100 CYCL DEF 10.1 IROT+Q58
101 ;
102 ;
103 ;==============================
104 ;Massstab uebernehmen
105 ;=============================
106 CYCL DEF 26.0 MASSFAKTOR ACHSSP.
107 CYCL DEF 26.1 X+Q374 Y+Q374
108 ;
109 L IX-4
110 ;
111 FN 9: IF +0 EQU +0 GOTO LBL 2
112 ;
113 LBL 10
114 ;
115 ;
116 ;==============================
117 ;Massstab uebernehmen
118 ;=============================
119 CYCL DEF 26.0 MASSFAKTOR ACHSSP.
120 CYCL DEF 26.1 X+Q374 Y+Q374
121 LBL 2
122 ;
123 ;
124 ;*************************8**********
125 ;Zeichen filtern und Gravieren
126 ;
127 ;------Sonderzeichen---------
128 FN 9: IF +Q372 EQU +109 GOTO LBL 109
129 FN 9: IF +Q372 EQU +128 GOTO LBL 128
130 ;
131 ;
132 ;------Zahlen 0-9 ----------
133 FN 0: Q1 =+0
134 FN 0: Q2 =+48
135 LBL 501
136 FN 9: IF +Q372 EQU +Q1 GOTO LBL +Q2
137 FN 1: Q1 =+Q1 + +1
138 FN 1: Q2 =+Q2 + +1
139 FN 12: IF +Q1 LT +10 GOTO LBL 501
140 ;
141 ;-------Bchstaben gross ---------
142 FN 0: Q1 =+32
143 LBL 502
144 FN 9: IF +Q372 EQU +Q1 GOTO LBL +Q1
145 FN 1: Q1 =+Q1 + +1
146 FN 12: IF +Q1 LT +91 GOTO LBL 502
147 ;
148 ;
149 ;
150 ;-----Buchstaben klein------
151 FN 0: Q1 =+97
152 FN 0: Q2 =+65
153 LBL 503
154 FN 9: IF +Q372 EQU +Q1 GOTO LBL +Q2
155 FN 1: Q1 =+Q1 + +1
156 FN 1: Q2 =+Q2 + +1
157 FN 12: IF +Q1 LT +123 GOTO LBL 503
158 ;
159 ;
160 ;-----Nichts gefunden --------
161 FN 9: IF +0 EQU +0 GOTO LBL 999
162 ;
163 ;
164 ;
165 ;********************************
166 ;    ZEICHEN GRAVIEREN
167 ;===============================
168 ;ZEICHEN 32 => BLANK
169 LBL 32
170 FN 9: IF +0 EQU +0 GOTO LBL 999
171 ;
172 ;
173 ;
174 ;===============================
175 ;ZEICHEN 33 => !
176 LBL 33
177 L  Z+Q200 FMAX
178 L IY+10 IX+2.5 FMAX
179 L  Z+Q59 F+Q207
180 L IY-6 F+Q207
181 L  Z+Q200 FMAX
182 L IY-4 FMAX
183 L  Z+Q59 F+Q207
184 L  Z+Q200 FMAX
185 L IX-2.5 R0 FMAX
186 FN 9: IF +0 EQU +0 GOTO LBL 999
187 ;
188 ;
189 ;
190 ;===============================
191 ;ZEICHEN 34 => "
192 LBL 34
193 ;
194 FN 9: IF +0 EQU +0 GOTO LBL 999
195 ;
196 ;
197 ;
198 ;===============================
199 ;ZEICHEN 35 => #
200 LBL 35
201 FN 9: IF +0 EQU +0 GOTO LBL 999
202 ;
203 ;
204 ;
205 ;===============================
206 ;ZEICHEN 36 => $
207 LBL 36
208 FN 9: IF +0 EQU +0 GOTO LBL 999
209 ;
210 ;
211 ;
212 ;===============================
213 ;ZEICHEN 37 => %
214 LBL 37
215 FN 9: IF +0 EQU +0 GOTO LBL 999
216 ;
217 ;
218 ;
219 ;===============================
220 ;ZEICHEN 38 => &
221 LBL 38
222 FN 9: IF +0 EQU +0 GOTO LBL 999
223 ;
224 ;
225 ;
226 ;===============================
227 ;ZEICHEN 39 => '
228 LBL 39
229 FN 9: IF +0 EQU +0 GOTO LBL 999
230 ;
231 ;
232 ;
233 ;===============================
234 ;ZEICHEN 40 => (
235 LBL 40
236 FN 9: IF +0 EQU +0 GOTO LBL 999
237 ;
238 ;
239 ;
240 ;===============================
241 ;ZEICHEN 41 => )
242 LBL 41
243 FN 9: IF +0 EQU +0 GOTO LBL 999
244 ;
245 ;
246 ;
247 ;===============================
248 ;ZEICHEN 42 => *
249 LBL 42
250 L  Z+Q200 FMAX
251 L IY+5 FMAX
252 L  Z+Q59 F+Q207
253 L IX+5 F+Q207
254 L  Z+Q200 FMAX
255 L IY+2.5 IX-2.5 FMAX
256 L  Z+Q59 F+Q207
257 L IY-5 F+Q207
258 L  Z+Q200 FMAX
259 L IY+1 IX+1.5 FMAX
260 L  Z+Q59 F+Q207
261 L IX-3 IY+3 F+Q207
262 L  Z+Q200 FMAX
263 L IX+3 FMAX
264 L  Z+Q59 F+Q207
265 L IX-3 IY-3 F+Q207
266 L  Z+Q200 FMAX
267 L IX-1 IY-3.5 R0 FMAX
268 FN 9: IF +0 EQU +0 GOTO LBL 999
269 ;
270 ;
271 ;
272 ;===============================
273 ;ZEICHEN 43 => +
274 LBL 43
275 L  Z+Q200 FMAX
276 L IY+5 FMAX
277 L  Z+Q59 F+Q207
278 L IX+5 F+Q207
279 L  Z+Q200 FMAX
280 L IY+2.5 IX-2.5 FMAX
281 L  Z+Q59 F+Q207
282 L IY-5 F+Q207
283 L  Z+Q200 FMAX
284 L IX-2.5 IY-2.5 R0 FMAX
285 FN 9: IF +0 EQU +0 GOTO LBL 999
286 ;
287 ;
288 ;
289 ;===============================
290 ;ZEICHEN 44 => ,
291 LBL 44
292 L  Z+Q200 FMAX
293 L IX+2 IY+1.5 FMAX
294 L  Z+Q59 F+Q207
295 L IY-3 F+Q207
296 L  Z+Q200 FMAX
297 L IX-2 IY+1.5 R0 FMAX
298 FN 9: IF +0 EQU +0 GOTO LBL 999
299 ;
300 ;
301 ;
302 ;===============================
303 ;ZEICHEN 45 => -
304 LBL 45
305 L  Z+Q200 FMAX
306 L IY+5 FMAX
307 L  Z+Q59 F+Q207
308 L IX+5 F+Q207
309 L  Z+Q200 FMAX
310 L IX-5 IY-5 R0 FMAX
311 FN 9: IF +0 EQU +0 GOTO LBL 999
312 ;
313 ;
314 ;
315 ;===============================
316 ;ZEICHEN 46 => .
317 LBL 46
318 L  Z+Q200 FMAX
319 L IX+2.5 FMAX
320 L  Z+Q59 F+Q207
321 L  Z+Q200 FMAX
322 L IX-2.5 R0 FMAX
323 ;
324 FN 9: IF +0 EQU +0 GOTO LBL 999
325 ;
326 ;
327 ;
328 ;===============================
329 ;ZEICHEN 47 => /
330 LBL 47
331 L  Z+Q200 FMAX
332 L IY+10 IX+4 FMAX
333 L  Z+Q59 F+Q207
334 L IX-3 IY-10 F+Q207
335 L  Z+Q200 FMAX
336 L IX-1 R0 FMAX
337 FN 9: IF +0 EQU +0 GOTO LBL 999
338 ;
339 ;
340 ;
341 ;===============================
342 ;ZEICHEN 48 => 0
343 LBL 48
344 L  Z+Q200 FMAX
345 L IY+2.5 F+Q207
346 L  Z+Q59 F+Q207
347 CC IX+2.5 IY+0
348 C IX+5 IY+0 DR+
349 L IY+5 F+Q207
350 CC IX-2.5 IY+0
351 C IX-5 IY+0 DR+
352 L IY-5
353 L  Z+Q200 FMAX
354 L IY-2.5 FMAX
355 FN 9: IF +0 EQU +0 GOTO LBL 999
356 ;
357 ;
358 ;
359 ;===============================
360 ;ZEICHEN 49 => 1
361 LBL 49
362 L  Z+Q200 FMAX
363 L IX+1 IY+7 FMAX
364 L  Z+Q59 F+Q207
365 L IX+1.5 IY+3 F+Q207
366 L IY-10 F+Q207
367 L IX+1.5 F+Q207
368 L IX-3 F+Q207
369 L  Z+Q200 FMAX
370 L IX-1 FMAX
371 FN 9: IF +0 EQU +0 GOTO LBL 999
372 ;
373 ;
374 ;
375 ;===============================
376 ;ZEICHEN 50 => 2
377 LBL 50
378 L  Z+Q200 FMAX
379 L IY+10 FMAX
380 L  Z+Q59 F+Q207
381 L IX+5 F+Q207
382 L IY-5 F+Q207
383 L IX-5 F+Q207
384 L IY-5 F+Q207
385 L IX+5 F+Q207
386 L  Z+Q200 FMAX
387 L IX-5 FMAX
388 ;
389 FN 9: IF +0 EQU +0 GOTO LBL 999
390 ;
391 ;
392 ;
393 ;===============================
394 ;ZEICHEN 51 => 3
395 LBL 51
396 L  Z+Q200 FMAX
397 L  Z+Q59 F+Q207
398 CC IX+2.5 IY+2.5
399 L IX+2.5 F+Q207
400 C IX+0 IY+5 DR+
401 CC IX+0 IY+2.5
402 C IX+0 IY+5 DR+
403 L IX-2.5
404 L  Z+Q200 FMAX
405 L IY-10 FMAX
406 FN 9: IF +0 EQU +0 GOTO LBL 999
407 ;
408 ;
409 ;
410 ;===============================
411 ;ZEICHEN 52 => 4
412 LBL 52
413 L  Z+Q200 FMAX
414 L IX+3.5 F+Q207
415 L  Z+Q59 F+Q207
416 L IY+10 F+Q207
417 L IY-6 IX-3.5 F+Q207
418 L IX+5 F+Q207
419 L  Z+Q200 FMAX
420 L IY-4 IX-5 FMAX
421 FN 9: IF +0 EQU +0 GOTO LBL 999
422 ;
423 ;
424 ;
425 ;===============================
426 ;ZEICHEN 53 => 5
427 LBL 53
428 L  Z+Q200 FMAX
429 L IY+10 IX+5 FMAX
430 L  Z+Q59 F+Q207
431 L IX-5 F+Q207
432 L IY-5 F+Q207
433 L IX+2.5 F+Q207
434 CC IX+0 IY-2.5
435 C IX-2.5 IY-2.5 DR-
436 L  Z+Q200 FMAX
437 L IY-2.5 F+Q207
438 ;
439 ;
440 FN 9: IF +0 EQU +0 GOTO LBL 999
441 ;
442 ;
443 ;
444 ;===============================
445 ;ZEICHEN 54 => 6
446 LBL 54
447 L  Z+Q200 FMAX
448 L IX+5 IY+10 R0 FMAX
449 L  Z+Q59 F+Q207
450 CC IX+0 IY-5
451 C IX-5 IY-5 DR+
452 L IY-2.5 F+Q207
453 CC IX+2.5 IY+0
454 C IX+0 IY+0 DR+
455 L  Z+Q200 FMAX
456 L IY-2.5 F+Q207
457 FN 9: IF +0 EQU +0 GOTO LBL 999
458 ;
459 ;
460 ;
461 ;===============================
462 ;ZEICHEN 55 => 7
463 LBL 55
464 L  Z+Q200 FMAX
465 L IY+10 F+Q207
466 L  Z+Q59 F+Q207
467 L IX+5 F+Q207
468 L IY-10 IX-3 F+Q207
469 L  Z+Q200 FMAX
470 L IX-2 F+Q207
471 FN 9: IF +0 EQU +0 GOTO LBL 999
472 ;
473 ;
474 ;
475 ;===============================
476 ;ZEICHEN 56 => 8
477 LBL 56
478 L  Z+Q200 FMAX
479 L IX+2.5 IY+5 R0 FMAX
480 L  Z+Q59 F+Q207
481 CC IX+0 IY+2.5
482 C IX+0 IY+0 DR+
483 CC IX+0 IY-2.5
484 C IX+0 IY+0 DR+
485 L  Z+Q200 FMAX
486 L IY-5 IX-2.5 F+Q207
487 ;
488 FN 9: IF +0 EQU +0 GOTO LBL 999
489 ;
490 ;
491 ;
492 ;===============================
493 ;ZEICHEN 57 => 9
494 LBL 57
495 L  Z+Q200 FMAX
496 L  Z+Q59 F+Q207
497 CC IX+0 IY+5
498 C IX+5 IY+5 DR+
499 L IY+2.5 F+Q207
500 CC IX-2.5 IY+0
501 C IX+0 IY+0 DR+
502 L  Z+Q200 FMAX
503 L IY-7.5 IX-5 F+Q207
504 FN 9: IF +0 EQU +0 GOTO LBL 999
505 ;
506 ;
507 ;
508 ;===============================
509 ;ZEICHEN 58 => :
510 LBL 58
511 L  Z+Q200 FMAX
512 L IY+7 IX+2.5 FMAX
513 L  Z+Q59 F+Q207
514 L  Z+Q200 FMAX
515 L IY-4 FMAX
516 L  Z+Q59 F+Q207
517 L  Z+Q200 FMAX
518 L IY-3 IX-2.5 R0 FMAX
519 FN 9: IF +0 EQU +0 GOTO LBL 999
520 ;
521 ;
522 ;
523 ;===============================
524 ;ZEICHEN 59 => ;
525 LBL 59
526 ;
527 FN 9: IF +0 EQU +0 GOTO LBL 999
528 ;
529 ;
530 ;
531 ;===============================
532 ;ZEICHEN 60 => <
533 LBL 60
534 L  Z+Q200 FMAX
535 L IY+10 IX+5 FMAX
536 L  Z+Q59 F+Q207
537 L IX-5 IY-5 F+Q207
538 L IY-5 IX+5 F+Q207
539 L  Z+Q200 FMAX
540 L IX-5 R0 FMAX
541 FN 9: IF +0 EQU +0 GOTO LBL 999
542 ;
543 ;
544 ;
545 ;===============================
546 ;ZEICHEN 61 => =
547 LBL 61
548 L  Z+Q200 FMAX
549 L IY+7 FMAX
550 L  Z+Q59 F+Q207
551 L IX+5 F+Q207
552 L  Z+Q200 FMAX
553 L IY-4 FMAX
554 L  Z+Q59 F+Q207
555 L IX-5 F+Q207
556 L  Z+Q200 FMAX
557 L IY-3 R0 FMAX
558 FN 9: IF +0 EQU +0 GOTO LBL 999
559 ;
560 ;
561 ;
562 ;===============================
563 ;ZEICHEN 62 => >
564 LBL 62
565 L  Z+Q200 FMAX
566 L IY+10 FMAX
567 L  Z+Q59 F+Q207
568 L IX+5 IY-5 F+Q207
569 L IY-5 IX-5 F+Q207
570 L  Z+Q200 FMAX
571 FN 9: IF +0 EQU +0 GOTO LBL 999
572 ;
573 ;
574 ;
575 ;===============================
576 ;ZEICHEN 63 => ?
577 LBL 63
578 ;
579 FN 9: IF +0 EQU +0 GOTO LBL 999
580 ;
581 ;
582 ;
583 ;===============================
584 ;ZEICHEN 64 => @
585 LBL 64
586 ;
587 FN 9: IF +0 EQU +0 GOTO LBL 999
588 ;
589 ;
590 ;
591 ;===============================
592 ;ZEICHEN 65 => A
593 LBL 65
594 L  Z+Q200 FMAX
595 L  Z+Q59 F+Q207
596 L IY+7.5 F+Q207
597 L IX+2.5 IY+2.5 F+Q207
598 L IY-2.5 IX+2.5 F+Q207
599 L IY-3.5 F+Q207
600 L IX-5 F+Q207
601 L IX+5 F+Q207
602 L IY-4 F+Q207
603 L  Z+Q200 FMAX
604 L IX-5 F+Q207
605 FN 9: IF +0 EQU +0 GOTO LBL 999
606 ;
607 ;
608 ;
609 ;===============================
610 ;ZEICHEN 66 => B
611 LBL 66
612 L  Z+Q200 FMAX
613 L  Z+Q59 F+Q207
614 L IY+10
615 L IX+2.5
616 CC IX+0 IY-2.5
617 C IX+0 IY-5 DR-
618 L IX-2.5
619 L IX+2.5
620 CC IX+0 IY-2.5
621 C IX+0 IY-5 DR-
622 L IX-2.5
623 L  Z+Q200 FMAX
624 FN 9: IF +0 EQU +0 GOTO LBL 999
625 ;
626 ;
627 ;
628 ;===============================
629 ;ZEICHEN 67 => C
630 LBL 67
631 L  Z+Q200 FMAX
632 L IY+7.5 IX+5 F+Q207
633 L  Z+Q59 F+Q207
634 CC IX-2.5 IY+0
635 C IX-5 IY+0 DR+
636 L IY-5
637 CC IX+2.5 IY+0
638 C IX+5 IY+0 DR+
639 L  Z+Q200 FMAX
640 L IY-2.5 IX-5 FMAX
641 FN 9: IF +0 EQU +0 GOTO LBL 999
642 ;
643 ;
644 ;
645 ;===============================
646 ;ZEICHEN 68 => D
647 LBL 68
648 L  Z+Q200 FMAX
649 L  Z+Q59 F+Q207
650 L IY+10
651 L IX+2.5
652 CC IX+0 IY-2.5
653 C IX+2.5 IY-2.5 DR-
654 L IY-5
655 CC IX-2.5 IY+0
656 C IX-2.5 IY-2.5 DR-
657 L IX-2.5
658 L  Z+Q200 FMAX
659 FN 9: IF +0 EQU +0 GOTO LBL 999
660 ;
661 ;
662 ;
663 ;===============================
664 ;ZEICHEN 69 => E
665 LBL 69
666 L  Z+Q200 FMAX
667 L IY+10 IX+5 F+Q207
668 L  Z+Q59 F+Q207
669 L IX-5 F+Q207
670 L IY-5 F+Q207
671 L IX+5 F+Q207
672 L IX-5 F+Q207
673 L IY-5 F+Q207
674 L IX+5 F+Q207
675 L  Z+Q200 FMAX
676 L IX-5 FMAX
677 FN 9: IF +0 EQU +0 GOTO LBL 999
678 ;
679 ;
680 ;
681 ;===============================
682 ;ZEICHEN 70 => F
683 LBL 70
684 L  Z+Q200 FMAX
685 L IY+10 IX+5 F+Q207
686 L  Z+Q59 F+Q207
687 L IX-5 F+Q207
688 L IY-5 F+Q207
689 L IX+4 F+Q207
690 L IX-4 F+Q207
691 L IY-5 F+Q207
692 L  Z+Q200 FMAX
693 FN 9: IF +0 EQU +0 GOTO LBL 999
694 ;
695 ;
696 ;
697 ;===============================
698 ;ZEICHEN 71 => G
699 LBL 71
700 L  Z+Q200 FMAX
701 L IY+7.5 IX+5 F+Q207
702 L  Z+Q59 F+Q207
703 CC IX-2.5 IY+0
704 C IX-5 IY+0 DR+
705 L IY-5
706 CC IX+2.5 IY+0
707 C IX+5 IY+0 DR+
708 L IY+2.5 F+Q207
709 L IX-2.5
710 L  Z+Q200 FMAX
711 L IY-5 IX-2.5 FMAX
712 FN 9: IF +0 EQU +0 GOTO LBL 999
713 ;
714 ;
715 ;
716 ;===============================
717 ;ZEICHEN 72 => H
718 LBL 72
719 L  Z+Q200 FMAX
720 L  Z+Q59 F+Q207
721 L IY+10 F+Q207
722 L IY-5 F+Q207
723 L IX+5 F+Q207
724 L IY+5 F+Q207
725 L IY-10 F+Q207
726 L  Z+Q200 FMAX
727 L IX-5 FMAX
728 FN 9: IF +0 EQU +0 GOTO LBL 999
729 ;
730 ;
731 ;
732 ;===============================
733 ;ZEICHEN 73 => I
734 LBL 73
735 L  Z+Q200 FMAX
736 L IY+10 IX+1 F+Q207
737 L  Z+Q59 F+Q207
738 L IX+3 F+Q207
739 L IX-1.5 F+Q207
740 L IY-10 F+Q207
741 L IX-1.5 F+Q207
742 L IX+3 F+Q207
743 L  Z+Q200 FMAX
744 L IX-4 FMAX
745 FN 9: IF +0 EQU +0 GOTO LBL 999
746 ;
747 ;
748 ;
749 ;===============================
750 ;ZEICHEN 74 => J
751 LBL 74
752 L  Z+Q200 FMAX
753 L IY+2.5 F+Q207
754 L  Z+Q59 F+Q207
755 CC IX+2.5 IY+0
756 C IX+5 IY+0 DR+
757 L IY+7.5 F+Q207
758 L IX-5
759 L  Z+Q200 FMAX
760 L IY-10 FMAX
761 FN 9: IF +0 EQU +0 GOTO LBL 999
762 ;
763 ;
764 ;
765 ;===============================
766 ;ZEICHEN 75 => K
767 LBL 75
768 L  Z+Q200 FMAX
769 L  Z+Q59 F+Q207
770 L IY+10 F+Q207
771 L IY-5 F+Q207
772 L IY+5 IX+5 F+Q207
773 L IY-5 IX-5 F+Q207
774 L IY-5 IX+5 F+Q207
775 L  Z+Q200 FMAX
776 L IX-5 F+Q207
777 FN 9: IF +0 EQU +0 GOTO LBL 999
778 ;
779 ;
780 ;
781 ;===============================
782 ;ZEICHEN 76 => L
783 LBL 76
784 L  Z+Q200 FMAX
785 L IX+5 F+Q207
786 L  Z+Q59 F+Q207
787 L IX-5 F+Q207
788 L IY+10 F+Q207
789 L  Z+Q200 FMAX
790 L IY-10 F+Q207
791 FN 9: IF +0 EQU +0 GOTO LBL 999
792 ;
793 ;
794 ;
795 ;===============================
796 ;ZEICHEN 77 => M
797 LBL 77
798 L  Z+Q200 FMAX
799 L  Z+Q59 F+Q207
800 L IY+10 F+Q207
801 L IY-5 IX+2.5 F+Q207
802 L IY+5 IX+2.5 F+Q207
803 L IY-10 F+Q207
804 L  Z+Q200 FMAX
805 L IX-5 FMAX
806 FN 9: IF +0 EQU +0 GOTO LBL 999
807 ;
808 ;
809 ;
810 ;===============================
811 ;ZEICHEN 78 => N
812 LBL 78
813 L  Z+Q200 FMAX
814 L  Z+Q59 F+Q207
815 L IY+10 F+Q207
816 L IY-10 IX+5 F+Q207
817 L IY+10 F+Q207
818 L  Z+Q200 FMAX
819 L IX-5 IY-10 FMAX
820 FN 9: IF +0 EQU +0 GOTO LBL 999
821 ;
822 ;
823 ;
824 ;===============================
825 ;ZEICHEN 79 => O
826 LBL 79
827 L  Z+Q200 FMAX
828 L IY+2.5 F+Q207
829 L  Z+Q59 F+Q207
830 CC IX+2.5 IY+0
831 C IX+5 IY+0 DR+
832 L IY+5 F+Q207
833 CC IX-2.5 IY+0
834 C IX-5 IY+0 DR+
835 L IY-5
836 L  Z+Q200 FMAX
837 L IY-2.5 FMAX
838 FN 9: IF +0 EQU +0 GOTO LBL 999
839 ;
840 ;
841 ;
842 ;===============================
843 ;ZEICHEN 80 => P
844 LBL 80
845 L  Z+Q200 FMAX
846 L  Z+Q59 F+Q207
847 L IY+10
848 L IX+2.5
849 CC IX+0 IY-2.5
850 C IX+0 IY-5 DR-
851 L IX-2.5
852 L IY-5
853 L  Z+Q200 FMAX
854 FN 9: IF +0 EQU +0 GOTO LBL 999
855 ;
856 ;
857 ;
858 ;===============================
859 ;ZEICHEN 81 => Q
860 LBL 81
861 L  Z+Q200 FMAX
862 L IY+2.5 F+Q207
863 L  Z+Q59 F+Q207
864 CC IX+2.5 IY+0
865 C IX+5 IY+0 DR+
866 L IY+5 F+Q207
867 CC IX-2.5 IY+0
868 C IX-5 IY+0 DR+
869 L IY-5
870 L  Z+Q200 FMAX
871 L IX+2.5
872 L  Z+Q59 F+Q207
873 L IX+2.5 IY-2.5
874 L  Z+Q200 FMAX
875 L IX-5 FMAX
876 FN 9: IF +0 EQU +0 GOTO LBL 999
877 ;
878 ;
879 ;
880 ;===============================
881 ;ZEICHEN 82 => R
882 LBL 82
883 L  Z+Q200 FMAX
884 L  Z+Q59 F+Q207
885 L IY+10
886 L IX+2.5
887 CC IX+0 IY-2.5
888 C IX+0 IY-5 DR-
889 L IX-2.5
890 L IX+2.5
891 L IX+2.5 IY-5
892 L  Z+Q200 FMAX
893 L IX-5 FMAX
894 FN 9: IF +0 EQU +0 GOTO LBL 999
895 ;
896 ;
897 ;
898 ;===============================
899 ;ZEICHEN 83 => S
900 LBL 83
901 L  Z+Q200 FMAX
902 L IY+7.5 IX+5 FMAX
903 L  Z+Q59 F+Q207
904 CC IX-2.5 IY+0
905 C IX-2.5 IY-2.5 DR+
906 CC IY-2.5 IX+0
907 C IX-2.5 IY-2.5 DR-
908 L  Z+Q200 FMAX
909 L IY-2.5 FMAX
910 FN 9: IF +0 EQU +0 GOTO LBL 999
911 ;
912 ;
913 ;
914 ;===============================
915 ;ZEICHEN 84 => T
916 LBL 84
917 L  Z+Q200 FMAX
918 L IY+10 F+Q207
919 L  Z+Q59 F+Q207
920 L IX+5 F+Q207
921 L IX-2.5 F+Q207
922 L IY-10 F+Q207
923 L  Z+Q200 FMAX
924 L IX-2.5 FMAX
925 FN 9: IF +0 EQU +0 GOTO LBL 999
926 ;
927 ;
928 ;
929 ;===============================
930 ;ZEICHEN 85 => U
931 LBL 85
932 L  Z+Q200 FMAX
933 L IY+10 F+Q207
934 L  Z+Q59 F+Q207
935 L IY-7.5 F+Q207
936 CC IX+2.5 IY+0
937 C IX+5 IY+0 DR+
938 L IY+7.5 F+Q207
939 L  Z+Q200 FMAX
940 L IX-5 IY-10 FMAX
941 FN 9: IF +0 EQU +0 GOTO LBL 999
942 ;
943 ;
944 ;
945 ;===============================
946 ;ZEICHEN 86 => V
947 LBL 86
948 L  Z+Q200 FMAX
949 L IY+10 F+Q207
950 L  Z+Q59 F+Q207
951 L IY-5 F+Q207
952 L IY-5 IX+2.5 F+Q207
953 L IY+5 IX+2.5 F+Q207
954 L IY+5 F+Q207
955 L  Z+Q200 FMAX
956 L IX-5 IY-10 FMAX
957 FN 9: IF +0 EQU +0 GOTO LBL 999
958 ;
959 ;
960 ;
961 ;===============================
962 ;ZEICHEN 87 => W
963 LBL 87
964 L  Z+Q200 FMAX
965 L IY+10 F+Q207
966 L  Z+Q59 F+Q207
967 L IY-10 F+Q207
968 L IY+5 IX+2.5 F+Q207
969 L IY-5 IX+2.5 F+Q207
970 L IY+10 F+Q207
971 L  Z+Q200 FMAX
972 L IX-5 IY-10 FMAX
973 FN 9: IF +0 EQU +0 GOTO LBL 999
974 ;
975 ;
976 ;
977 ;===============================
978 ;ZEICHEN 88 => X
979 LBL 88
980 L  Z+Q200 FMAX
981 L  Z+Q59 F+Q207
982 L IY+10 IX+5 F+Q207
983 L  Z+Q200 FMAX
984 L IY-10 FMAX
985 L  Z+Q59 F+Q207
986 L IY+10 IX-5 F+Q207
987 L  Z+Q200 FMAX
988 L IY-10 FMAX
989 FN 9: IF +0 EQU +0 GOTO LBL 999
990 ;
991 ;
992 ;
993 ;===============================
994 ;ZEICHEN 89 => Y
995 LBL 89
996 L  Z+Q200 FMAX
997 L IY+10 FMAX
998 L  Z+Q59 F+Q207
999 L IY-3 F+Q207
1000 L IY-3 IX+2.5 F+Q207
1001 L IY-4 F+Q207
1002 L IY+4 F+Q207
1003 L IY+3 IX+2.5 F+Q207
1004 L IY+3 F+Q207
1005 L  Z+Q200 FMAX
1006 L IY-10 IX-5 FMAX
1007 FN 9: IF +0 EQU +0 GOTO LBL 999
1008 ;
1009 ;
1010 ;
1011 ;===============================
1012 ;ZEICHEN 90 => Z
1013 LBL 90
1014 L  Z+Q200 FMAX
1015 L IY+10 FMAX
1016 L  Z+Q59 F+Q207
1017 L IX+5 F+Q207
1018 L IY-10 IX-5 F+Q207
1019 L IX+5 F+Q207
1020 L  Z+Q200 FMAX
1021 L IX-5 FMAX
1022 FN 9: IF +0 EQU +0 GOTO LBL 999
1023 ;
1024 ;
1025 ;
1026 ;===============================
1027 ;ZEICHEN 109 => m
1028 LBL 109
1029 L  Z+Q200 FMAX
1030 L  Z+Q59 F+Q207
1031 L IY+5 F+Q207
1032 L IX+2.5 F+Q207
1033 L IY-5 F+Q207
1034 L IY+5 F+Q207
1035 L IX+2.5 F+Q207
1036 L IY-5 F+Q207
1037 L  Z+Q200 FMAX
1038 L IX-5 F+Q207
1039 FN 9: IF +0 EQU +0 GOTO LBL 999
1040 ;
1041 ;
1042 ;
1043 ;===============================
1044 ;ZEICHEN 128 => DURCHMESSER
1045 LBL 128
1046 L  Z+Q200 FMAX
1047 L  Z+Q200 FMAX
1048 L IX+2.5 IY+10 FMAX
1049 L  Z+Q59 F+Q207
1050 CC IX+0 IY-2.5
1051 C IX+0 IY+0 DR- F+Q207
1052 L  Z+Q200 FMAX
1053 L IX+2.5 R0 FMAX
1054 L  Z+Q59 F+Q207
1055 L IY-5 IX-5 F+Q207
1056 L  Z+Q200 FMAX
1057 L IY-5 F+Q207
1058 FN 9: IF +0 EQU +0 GOTO LBL 999
1059 ;
1060 ;
1061 ;====================================
1062 LBL 999
1063 ;
1064 ;
1065 L IX+8 FMAX
1066 ;
1067 LBL 9991
1068 ;
1069 ;
1070 ;
1071 FN 4: Q1 =+360 DIV +Q241
1072 FN 2: Q245 =+Q245 - +Q1
1073 ;
1074 CYCL DEF 10.0 DREHUNG
1075 CYCL DEF 10.1 IROT-Q58
1076 ;==================
1077 CYCL DEF 11.0 MASSFAKTOR
1078 CYCL DEF 11.1 SCL 1
1079 LBL 9999
1080 END PGM 279 MM 
