0 BEGIN PGM 90301_en MM 1 ;Program for engraving a multi-digit number 2 ; 3 ;Open the tabel in which the number is defined 4 FN 26: TABOPEN 90303_en.TAB 5 ; 6 ;Read line 0 column 1 7 FN 28: TABREAD Q1 =0 /"1" 8 ;Convert number into ASCII code 9 FN 1: Q1 =+Q1 + +48 10 ;Call subprogram for engraving 11 CALL LBL 1 12 ; 13 ;Read line 0 column 2 14 FN 28: TABREAD Q1 =0 /"2" 15 ;Convert number into ASCII code 16 FN 1: Q1 =+Q1 + +48 17 ;Call subprogram for engraving 18 CALL LBL 1 19 ; 20 ;Read line 0 column 3 21 FN 28: TABREAD Q1 =0 /"3" 22 ;Convert number into ASCII code 23 FN 1: Q1 =+Q1 + +48 24 ;Call subprogram for engraving 25 CALL LBL 1 26 ; 27 ;Read line 0 column 4 28 FN 28: TABREAD Q1 =0 /"4" 29 ;Convert number into ASCII code 30 FN 1: Q1 =+Q1 + +48 31 ;Call subprogram for engraving 32 CALL LBL 1 33 ; 34 ;Read line 0 column 5 35 FN 28: TABREAD Q1 =0 /"5" 36 ;Convert number into ASCII code 37 FN 1: Q1 =+Q1 + +48 38 ;Call subprogram for engraving 39 CALL LBL 1 40 ; 41 ;Read line 0 column 6 42 FN 28: TABREAD Q1 =0 /"6" 43 ;Convert number into ASCII code 44 FN 1: Q1 =+Q1 + +48 45 ;Call subprogram for engraving 46 CALL LBL 1 47 ; 48 ;Read line 0 column 7 49 FN 28: TABREAD Q1 =0 /"7" 50 ;Convert number into ASCII code 51 FN 1: Q1 =+Q1 + +48 52 ;Call subprogram for engraving 53 CALL LBL 1 54 ; 55 ;Read line 0 column 8 56 FN 28: TABREAD Q1 =0 /"8" 57 ;Convert number into ASCII code 58 FN 1: Q1 =+Q1 + +48 59 ;Call subprogram for engraving 60 CALL LBL 1 61 ; 62 ; 63 ;Go to end of program 64 FN 9: IF +0 EQU +0 GOTO LBL 199 65 ; 66 ;Subprogram for engraving numbers 67 LBL 1 68 FN 0: Q9 =+Q4 69 FN 9: IF +Q2 EQU +1 GOTO LBL 4 70 FN 4: Q9 =+Q4 DIV +Q5 71 LBL 4 72 FN 9: IF +Q16 EQU +0 GOTO LBL 6 73 FN 2: Q29 =+Q17 - +90 74 FN 11: IF +Q17 GT +0 GOTO LBL 5 75 FN 1: Q29 =+Q17 + +90 76 LBL 5 77 FN 7: Q21 = COS +Q17 78 FN 3: Q21 =+Q21 * +Q16 79 FN 1: Q21 =+Q21 + +Q11 80 FN 6: Q22 = SIN +Q17 81 FN 3: Q22 =+Q22 * +Q16 82 FN 1: Q22 =+Q22 + +Q12 83 LBL 6 84 CYCL DEF 10.0 DREHUNG 85 CYCL DEF 10.1 ROT+Q29 86 CYCL DEF 7.0 NULLPUNKT 87 CYCL DEF 7.1 X+Q21 88 CYCL DEF 7.2 Y+Q22 89 FN 4: Q20 =+Q5 DIV +10 90 CYCL DEF 11.0 MASSFAKTOR 91 CYCL DEF 11.1 SCL Q20 92 FN 10: IF +Q1 NE +0 GOTO LBL Q1 93 FN 9: IF +Q1 EQU +0 GOTO LBL 9 94 LBL 32 95 FN 1: Q33 =+Q108 + +6 96 FN 9: IF +9 EQU +9 GOTO LBL 9 97 LBL 45 98 L X-2 Y+5 R0 F9998 99 L Z+Q9 R0 FQ7 100 L X+2 R0 FQ6 101 FN 1: Q33 =+Q108 + +5.5 102 FN 9: IF +9 EQU +9 GOTO LBL 9 103 LBL 46 104 CC X-1.5 Y+1 105 LP PR+0.5 PA+0 R0 F9998 106 L Z+Q9 R0 FQ7 107 CP PA+0 DR- R0 FQ6 108 FN 1: Q33 =+Q108 + +4.5 109 FN 9: IF +9 EQU +9 GOTO LBL 9 110 LBL 47 111 L X-2.5 Y+1 R0 F9998 112 L Z+Q9 R0 FQ7 113 L X+2.5 Y+10 R0 FQ6 114 FN 1: Q33 =+Q108 + +6.5 115 FN 9: IF +9 EQU +9 GOTO LBL 9 116 LBL 48 117 L X-2.639 Y+2.639 R0 FMAX 118 L Z+Q9 R0 FQ7 119 CC X+0 Y+2.639 120 CP PA+0 DR+ 121 L Y+7.361 R0 FQ6 122 CC X+0 Y+7.361 123 CP PA+180 DR+ 124 L Y+2.639 125 FN 1: Q33 =+Q108 + +6.5 126 FN 9: IF +9 EQU +9 GOTO LBL 9 127 LBL 49 128 L X-2.111 Y+7.778 R0 F9998 129 L Z+Q9 R0 FQ7 130 L X+0.111 Y+10 R0 FQ6 131 L Y+0 132 FN 1: Q33 =+Q108 + +6.3 133 FN 9: IF +9 EQU +9 GOTO LBL 9 134 LBL 50 135 L X-2.404 Y+8.147 R0 FMAX 136 L Z+Q9 R0 FQ7 137 CC X+0.012 Y+7.5 138 C X+2.007 Y+5.996 DR- R0 FQ6 139 L X-2.511 Y+0 140 L X+2.489 141 FN 1: Q33 =+Q108 + +7.9 142 FN 9: IF +9 EQU +9 GOTO LBL 9 143 LBL 51 144 L X-2.455 Y+8.147 R0 FMAX 145 CC X-0.041 Y+7.5 146 L Z+Q9 R0 FQ7 147 C X+0.515 Y+5.063 DR- R0 FQ6 148 L Y+4.938 149 CC X-0.041 Y+2.5 150 C X-2.455 Y+1.853 DR- 151 FN 1: Q33 =+Q108 + +8.3 152 FN 9: IF +9 EQU +9 GOTO LBL 9 153 LBL 52 154 L X+0.972 Y+10 R0 FMAX 155 L Z+Q9 R0 FQ7 156 L X-2.361 Y+1.953 R0 FQ6 157 L Y+1.111 158 L X+2.361 159 L Z+Q8 R0 FMAX 160 L X+0.972 Y+4.444 R0 FMAX 161 L Z+Q9 R0 FQ7 162 L Y+0 R0 FQ6 163 FN 1: Q33 =+Q108 + +8.3 164 FN 9: IF +9 EQU +9 GOTO LBL 9 165 LBL 53 166 CC X-0.043 Y+2.5 167 L X-2.457 Y+1.853 R0 FMAX 168 L Z+Q9 R0 FQ7 169 CP PA+0 DR+ R0 FQ6 170 L Y+4.167 171 CC X-0.043 Y+4.167 172 C X-2.457 Y+4.814 DR+ 173 L Y+10 174 L X+2.457 175 FN 1: Q33 =+Q108 + +8.3 176 FN 9: IF +9 EQU +9 GOTO LBL 9 177 LBL 54 178 CC X+0 Y+4.167 179 L X-2.5 Y+4.167 R0 FMAX 180 L Z+Q9 R0 FQ7 181 CP PA+0 DR- R0 FQ6 182 L Y+2.5 183 CC X+0 Y+2.5 184 CP PA+180 DR- 185 L Y+7.5 186 CC X+0 Y+7.5 187 C X+2.415 Y+8.147 DR- 188 FN 1: Q33 =+Q108 + +8.3 189 FN 9: IF +9 EQU +9 GOTO LBL 9 190 LBL 55 191 L X-2.222 Y+8.889 R0 FMAX 192 L Z+Q9 R0 FQ7 193 L Y+10 R0 FQ6 194 L X+2.222 195 L Y+9.113 196 L X-2.222 Y+0 197 FN 1: Q33 =+Q108 + +7.5 198 FN 9: IF +9 EQU +9 GOTO LBL 9 199 LBL 56 200 CC X+0 Y+7.5 201 L X-0.006 Y+5 R0 FMAX 202 L Z+Q9 R0 FQ7 203 CP PA+270 DR- 204 CC X+0 Y+2.5 205 CP PA+90 DR- 206 FN 1: Q33 =+Q108 + +8.3 207 FN 9: IF +9 EQU +9 GOTO LBL 9 208 LBL 57 209 L X-2.415 Y+1.853 R0 FMAX 210 L Z+Q9 R0 FQ7 211 CC X+0 Y+2.5 212 CP PA+0 DR+ R0 FQ6 213 L Y+7.5 214 CC X+0 Y+7.5 215 CP PA+180 DR+ 216 L Y+5.833 217 CC X+0 Y+5.833 218 CP PA+0 DR+ 219 FN 1: Q33 =+Q108 + +8.3 220 FN 9: IF +9 EQU +9 GOTO LBL 9 221 LBL 58 222 L X+0 Y+2.5 R0 FMAX 223 L Z+Q9 R0 FQ7 224 L Z+Q8 R0 FMAX 225 L Y+7.5 R0 FMAX 226 L Z+Q9 R0 FQ7 227 FN 1: Q33 =+Q108 + +8.3 228 FN 9: IF +9 EQU +9 GOTO LBL 9 229 LBL 65 230 L X-3.639 Y+0 R0 FMAX 231 L Z+Q9 R0 FQ7 232 L X+0 Y+10 R0 FQ6 233 L X+3.639 Y+0 234 L X+2.426 Y+3.333 235 L X-2.426 236 FN 1: Q33 =+Q108 + +9.5 237 FN 9: IF +9 EQU +9 GOTO LBL 9 238 LBL 66 239 L X-3.056 Y+5 R0 FMAX 240 L Z+Q9 R0 FQ7 241 L X+0.556 R0 FQ6 242 CC X+0.556 Y+7.5 243 CP PA+90 DR+ 244 L X-3.056 245 L Y+0 246 L X+0.556 247 CC X+0.556 Y+2.5 248 CP PA+90 DR+ 249 FN 1: Q33 =+Q108 + +9.5 250 FN 9: IF +9 EQU +9 GOTO LBL 9 251 LBL 67 252 CC X+0.057 Y+6.667 253 L X+3.276 Y+7.529 R0 FMAX 254 L Z+Q9 R0 FQ7 255 CP PA+180 DR+ R0 FQ6 256 L Y+3.333 257 CC X+0.057 Y+3.333 258 C X+3.276 Y+2.471 DR+ 259 FN 1: Q33 =+Q108 + +9.6 260 FN 9: IF +9 EQU +9 GOTO LBL 9 261 LBL 68 262 L X-3.055 Y+10 R0 FMAX 263 L Z+Q9 R0 FQ7 264 L Y+0 R0 FQ6 265 L X-0.278 266 CC X-0.278 Y+3.333 267 CP PA+0 DR+ 268 L Y+6.667 269 CC X-0.278 Y+6.667 270 CP PA+90 DR+ 271 L X-3.056 272 FN 1: Q33 =+Q108 + +9.5 273 FN 9: IF +9 EQU +9 GOTO LBL 9 274 LBL 69 275 L X+3.056 Y+10 R0 FMAX 276 L Z+Q9 R0 FQ7 277 L X-3.056 R0 FQ6 278 L Y+0 279 L X+3.056 280 L Z+Q8 R0 FMAX 281 L X+0.833 Y+5 R0 FMAX 282 L Z+Q9 R0 FQ7 283 L X-3.056 R0 FQ6 284 FN 1: Q33 =+Q108 + +8.8 285 FN 9: IF +9 EQU +9 GOTO LBL 9 286 LBL 70 287 L X+3.056 Y+10 R0 FMAX 288 L Z+Q9 R0 FQ7 289 L X-3.056 FQ6 290 L Y+0 291 L Y+5 292 L X+0.833 293 FN 1: Q33 =+Q108 + +9.5 294 FN 9: IF +9 EQU +9 GOTO LBL 9 295 LBL 71 296 CC X+0 Y+6.389 297 L X+3.393 Y+7.624 R0 FMAX 298 L Z+Q9 R0 FQ7 299 CP PA+180 DR+ FQ6 300 L Y+3.611 301 CC X+0 Y+3.611 302 CP PA+0 DR+ 303 L Y+4.444 304 L X+0.833 305 FN 1: Q33 =+Q108 + +10.3 306 FN 9: IF +9 EQU +9 GOTO LBL 9 307 LBL 72 308 L X-3.333 Y+10 R0 FMAX 309 L Z+Q9 R0 FQ7 310 L Y+0 FQ6 311 L Y+5 312 L X+3.333 313 L Y+10 314 L Y+0 315 FN 1: Q33 =+Q108 + +8.8 316 FN 9: IF +9 EQU +9 GOTO LBL 9 317 LBL 73 318 L X-2.5 Y+0 R0 F9998 319 L Z+Q9 R0 FQ7 320 L Y+10 R0 FQ6 321 FN 1: Q33 =+Q108 + +5 322 FN 9: IF +9 EQU +9 GOTO LBL 9 323 LBL 74 324 L X-2.731 Y+2.058 R0 FMAX 325 L Z+Q9 R0 FQ7 326 CC X-0.047 Y+2.778 327 CP PA+0 DR+ FQ6 328 L Y+10 329 FN 1: Q33 =+Q108 + +8.3 330 FN 9: IF +9 EQU +9 GOTO LBL 9 331 LBL 75 332 L X-3.056 Y+10 R0 FMAX 333 L Z+Q9 R0 FQ7 334 L Y+0 R0 FQ6 335 L Y+2.778 336 L X+3.056 Y+10 337 L Z+Q8 R0 FMAX 338 L Y+0 R0 FMAX 339 L Z+Q9 R0 FQ7 340 L X-0.853 Y+5.381 341 FN 1: Q33 =+Q108 + +9.5 342 FN 9: IF +9 EQU +9 GOTO LBL 9 343 LBL 76 344 L X-3.056 Y+10 R0 FMAX 345 L Z+Q9 R0 FQ7 346 L Y+0 R0 FQ6 347 L X+2.8 348 FN 1: Q33 =+Q108 + +7.5 349 FN 9: IF +9 EQU +9 GOTO LBL 9 350 LBL 77 351 L X-3.611 Y+0 R0 F9998 352 L Z+Q9 R0 FQ7 353 L Y+10 R0 FQ6 354 L X+0 Y+3.333 355 L X+3.611 Y+10 356 L Y+0 357 FN 1: Q33 =+Q108 + +10.3 358 FN 9: IF +9 EQU +9 GOTO LBL 9 359 LBL 78 360 L X-3.056 Y+0 R0 F9998 361 L Z+Q9 R0 FQ7 362 L Y+10 R0 FQ6 363 L X+3.056 Y+0 364 L Y+10 365 FN 1: Q33 =+Q108 + +9.5 366 FN 9: IF +9 EQU +9 GOTO LBL 9 367 LBL 79 368 L X-3.056 Y+3.056 R0 FMAX 369 L Z+Q9 R0 FQ7 370 CC X+0 Y+3.056 371 CP PA+0 DR+ FQ6 372 L Y+6.944 373 CC X+0 Y+6.944 374 CP PA+180 DR+ 375 L Y+3.056 376 FN 1: Q33 =+Q108 + +10.3 377 FN 9: IF +9 EQU +9 GOTO LBL 9 378 LBL 80 379 L X-3.056 Y+0 R0 FMAX 380 L Z+Q9 R0 FQ7 381 L Y+10 R0 FQ6 382 L X+0.486 383 CC X+0.486 Y+7.431 384 CP PA+270 DR- 385 L X-3.056 386 FN 1: Q33 =+Q108 + +9 387 FN 9: IF +9 EQU +9 GOTO LBL 9 388 LBL 81 389 CC X+0 Y+3.056 390 L X-3.056 Y+3.056 391 L Z+Q9 R0 FQ7 392 CP PA+0 DR+ FQ6 393 L Y+6.944 394 CC X+0 Y+6.944 395 CP PA+180 DR+ 396 L Y+3.056 397 L Z+Q8 R0 FMAX 398 L X+1.087 Y+1.968 R0 FMAX 399 L Z+Q9 R0 FQ7 400 L X+3.056 Y+0 R0 FQ6 401 FN 1: Q33 =+Q108 + +10.3 402 FN 9: IF +9 EQU +9 GOTO LBL 9 403 LBL 82 404 L X-3.056 Y+0 R0 F9998 405 L Z+Q9 R0 FQ7 406 L Y+10 R0 FQ6 407 L X+0.486 408 CC X+0.486 Y+7.431 409 CP PA+270 DR- 410 L X-3.056 411 L X+0.486 412 L X+2.857 Y+0 413 FN 1: Q33 =+Q108 + +9.5 414 FN 9: IF +9 EQU +9 GOTO LBL 9 415 LBL 83 416 L X-3.143 Y+1.302 R0 FMAX 417 L Z+Q9 R0 FQ7 418 CC X+0 Y+4.444 419 C X+2.232 Y+0.601 DR+ FQ6 420 CC X+1.151 Y+2.463 421 C X+1.708 Y+4.542 DR+ 422 L X-1.708 Y+5.458 423 CC X-1.151 Y+7.537 424 C X-2.232 Y+9.398 DR- 425 CC X+0 Y+5.556 426 C X+3.143 Y+8.698 DR- 427 FN 1: Q33 =+Q108 + +9.1 428 FN 9: IF +9 EQU +9 GOTO LBL 9 429 LBL 84 430 L X-3.056 Y+10 R0 F9998 431 L Z+Q9 R0 FQ7 432 L X+3.056 R0 FQ6 433 L X+0 434 L Y+0 435 FN 1: Q33 =+Q108 + +9.1 436 FN 9: IF +9 EQU +9 GOTO LBL 9 437 LBL 85 438 L X-3.611 Y+10 R0 F9998 439 L Z+Q9 R0 FQ7 440 L Y+3.611 441 CC X+0 Y+3.611 442 CP PA+0 DR+ 443 L Y+10 444 FN 1: Q33 =+Q108 + +9.5 445 FN 9: IF +9 EQU +9 GOTO LBL 9 446 LBL 86 447 L X-3.443 Y+10 R0 F9998 448 L Z+Q9 R0 FQ7 449 L X+0 Y+0 R0 FQ6 450 L X+3.443 Y+10 451 FN 1: Q33 =+Q108 + +9.5 452 FN 9: IF +9 EQU +9 GOTO LBL 9 453 LBL 87 454 L X-4.986 Y+10 R0 F9998 455 L Z+Q9 R0 FQ7 456 L X-2.493 Y+0 R0 FQ6 457 L X+0 Y+10 458 L X+2.493 Y+0 459 L X+4.986 Y+10 460 FN 1: Q33 =+Q108 + +10.4 461 FN 9: IF +9 EQU +9 GOTO LBL 9 462 LBL 88 463 L X-3.124 Y+10 R0 F9998 464 L Z+Q9 R0 FQ7 465 L X+3.124 Y+0 R0 FQ6 466 L Z+Q8 R0 FMAX 467 L X+3.124 Y+10 R0 FMAX 468 L Z+Q9 R0 FQ7 469 L X-3.124 Y+0 FQ6 470 FN 1: Q33 =+Q108 + +8.3 471 FN 9: IF +9 EQU +9 GOTO LBL 9 472 LBL 89 473 L X-3.124 Y+10 R0 F9998 474 L Z+Q9 R0 FQ7 475 L X+0 Y+5 R0 FQ6 476 L X+0 Y+0 477 L Z+Q8 R0 FMAX 478 L Y+5 R0 FMAX 479 L Z+Q9 R0 FQ7 480 L X+3.124 Y+10 FQ6 481 FN 1: Q33 =+Q108 + +8.3 482 FN 9: IF +9 EQU +9 GOTO LBL 9 483 LBL 90 484 L X-3.611 Y+10 R0 F9998 485 L Z+Q9 R0 FQ7 486 L X+3.611 R0 FQ6 487 L X-3.611 Y+0 488 L X+3.611 489 FN 1: Q33 =+Q108 + +9.5 490 FN 9: IF +9 EQU +9 GOTO LBL 9 491 LBL 97 492 L X+2.569 Y+0 R0 F9999 493 Z+Q9 R0 FQ7 494 L Y+6.666 495 L Y+4.097 496 CC X+0 Y+4.097 497 C X-2.569 Y+4.097 DR+ 498 L Y+2.569 499 CC X+0 Y+2.569 500 C X+2.569 Y+2.569 DR+ 501 FN 1: Q33 =+Q108 + +8.3 502 FN 9: IF +9 EQU +9 GOTO LBL 9 503 LBL 98 504 L X-2.569 Y+10 R0 FMAX 505 L Z+Q9 R0 FQ7 506 L Y+0 R0 FQ6 507 L Y+2.569 508 CC X+0 Y+2.569 509 CP PA+0 DR+ 510 L Y+4.097 511 CC X+0 Y+4.097 512 CP PA+180 DR+ 513 FN 1: Q33 =+Q108 + +7 514 FN 9: IF +9 EQU +9 GOTO LBL 9 515 LBL 99 516 L X+2.397 Y+1.285 R0 FMAX 517 L Z+Q9 R0 FQ7 518 CC X+0.172 Y+2.569 519 CP PA+180 DR- R0 FQ6 520 L Y+4.097 521 CC X+0.172 Y+4.097 522 CR X+2.397 Y+5.382 R+2.5 DR- 523 FN 1: Q33 =+Q108 + +7 524 FN 9: IF +9 EQU +9 GOTO LBL 9 525 LBL 100 526 L X+2.569 Y+10 R0 FMAX 527 L Z+Q9 R0 FQ7 528 L Y+0 R0 FQ6 529 L Y+2.569 530 CC X+0 Y+2.569 531 CP PA+180 DR- 532 L Y+4.097 533 CC X+0 Y+4.097 534 CP PA+0 DR- 535 FN 1: Q33 =+Q108 + +7 536 FN 9: IF +9 EQU +9 GOTO LBL 9 537 LBL 101 538 CC X+0 Y+2.569 539 L X+2.105 Y+1.096 R0 F9999 540 L Z+Q9 R0 FQ7 541 C X-2.569 Y+2.569 DR- FQ6 542 L X-2.569 Y+4.097 543 CC X+0 Y+4.097 544 C X+2.569 Y+4.097 DR- 545 L Y+3.403 546 L X-2.569 547 FN 1: Q33 =+Q108 + +7 548 FN 9: IF +9 EQU +9 GOTO LBL 9 549 LBL 102 550 L X-1.25 Y+6.667 R0 FMAX 551 L Z+Q9 R0 FQ7 552 L X+1.25 553 L Z+Q8 R0 FMAX 554 L X+1.667 Y+10 R0 FMAX 555 L Z+Q9 R0 FQ7 556 CC X+1.667 Y+8.333 557 CP PA+180 DR+ R0 FQ6 558 L X+0 Y+0 559 FN 1: Q33 =+Q108 + +6.8 560 FN 9: IF +9 EQU +9 GOTO LBL 9 561 LBL 103 562 L X-2.105 Y-2.238 R0 FMAX 563 L Z+Q9 R0 FQ7 564 CC X+0 Y-0.764 565 CP PA+0 DR+ 566 L Y+6.667 567 L Y+4.097 568 CC X+0 Y+4.097 569 CP PA+180 DR+ 570 L Y+2.569 571 CC X+0 Y+2.569 572 CP PA+0 DR+ 573 FN 1: Q33 =+Q108 + +7.5 574 FN 9: IF +9 EQU +9 GOTO LBL 9 575 LBL 104 576 L X-2.569 Y+10 R0 F9999 577 L Z+Q9 R0 FQ7 578 L Y+0 FQ6 579 L Y+4.097 X-2.569 R0 F9999 580 CC X+0 Y+4.097 581 C X+2.569 Y+4.097 DR- R0 FQ6 582 L Y+0 X+2.569 583 FN 1: Q33 =+Q108 + +7 584 FN 9: IF +9 EQU +9 GOTO LBL 9 585 LBL 105 586 L X+0 Y+0 R0 FMAX 587 L Z+Q9 R0 FQ7 588 L Y+6.667 R0 FQ6 589 L Z+Q8 R0 FMAX 590 L Y+10 R0 FMAX 591 L Z+Q9 R0 FQ7 592 FN 1: Q33 =+Q108 + +4.3 593 FN 9: IF +9 EQU +9 GOTO LBL 9 594 LBL 106 595 L X-1.833 Y-3.333 R0 FMAX 596 L Z+Q9 R0 FQ7 597 CC X-1.833 Y-1.667 598 CP PA+0 DR+ R0 FQ6 599 L Y+6.667 600 L Z+Q8 R0 FMAX 601 L Y+10 R0 FMAX 602 L Z+Q9 R0 FQ7 603 FN 1: Q33 =+Q108 + +5 604 FN 9: IF +9 EQU +9 GOTO LBL 9 605 LBL 107 606 L X-2.17 Y+10 R0 FMAX 607 L Z+Q9 R0 FQ7 608 L Y+0 R0 FQ6 609 L Y+1.111 610 L X+2.17 Y+6.667 611 L Z+Q8 R0 FMAX 612 L Y+0 R0 FMAX 613 L Z+Q9 R0 FQ7 614 L X-0.434 Y+3.333 R0 FQ6 615 FN 1: Q33 =+Q108 + +7 616 FN 9: IF +9 EQU +9 GOTO LBL 9 617 LBL 108 618 L X+0.833 Y+0 R0 FMAX 619 L Z+Q9 R0 FQ7 620 CC X+0.833 Y+1.667 621 CP PA+180 DR- R0 FQ6 622 L Y+10 623 FN 1: Q33 =+Q108 + +7 624 FN 9: IF +9 EQU +9 GOTO LBL 9 625 LBL 109 626 L X-4.444 Y+0 R0 FMAX 627 L Z+Q9 R0 FQ7 628 L Y+6.667 R0 FQ6 629 L Y+4.444 630 CC X-2.222 Y+4.444 631 CP PA+0 DR- 632 L Y+0 633 L Y+4.444 634 CC X+2.222 Y+4.444 635 CP PA+0 DR- 636 L Y+0 637 FN 1: Q33 =+Q108 + +10 638 FN 9: IF +9 EQU +9 GOTO LBL 9 639 LBL 110 640 L X-2.569 Y+0 R0 FMAX 641 L Z+Q9 R0 FQ7 642 L Y+6.667 R0 FQ6 643 L Y+4.097 644 CC X+0 Y+4.097 645 CP PA+0 DR- 646 L Y+0 647 FN 1: Q33 =+Q108 + +7.5 648 FN 9: IF +9 EQU +9 GOTO LBL 9 649 LBL 111 650 L X-2.569 Y+2.569 R0 FMAX 651 L Z+Q9 R0 FQ7 652 L Y+4.097 R0 FQ6 653 CC X+0 Y+4.097 654 CP PA+0 DR- 655 L Y+2.569 656 CC X+0 Y+2.569 657 CP PA+180 DR- 658 FN 1: Q33 =+Q108 + +7 659 FN 9: IF +9 EQU +9 GOTO LBL 9 660 LBL 112 661 L X-2.569 Y-3.333 R0 FMAX 662 L Z+Q9 R0 FQ7 663 L Y+6.667 R0 FQ6 664 L Y+4.097 665 CC X+0 Y+4.097 666 CP PA+0 DR- 667 L Y+2.569 668 CC X+0 Y+2.569 669 CP PA+180 DR- 670 FN 1: Q33 =+Q108 + +7 671 FN 9: IF +9 EQU +9 GOTO LBL 9 672 LBL 113 673 L X+2.569 Y-3.333 R0 FMAX 674 L Z+Q9 R0 FQ7 675 L Y+6.667 R0 FQ6 676 L Y+4.097 677 CC X+0 Y+4.097 678 CP PA+180 DR+ 679 L Y+2.569 680 CC X+0 Y+2.569 681 CP PA+0 DR+ 682 FN 1: Q33 =+Q108 + +7 683 FN 9: IF +9 EQU +9 GOTO LBL 9 684 LBL 114 685 L X-1.215 Y+0 R0 FMAX 686 L Z+Q9 R0 FQ7 687 L Y+6.667 R0 FQ6 688 L Y+4.236 689 CC X+1.215 Y+4.236 690 C X+1.844 Y+6.584 DR- 691 FN 1: Q33 =+Q108 + +6 692 FN 9: IF +9 EQU +9 GOTO LBL 9 693 LBL 115 694 L X-1.994 Y+0.753 R0 FMAX 695 L Z+Q9 R0 FQ7 696 CC X-0.177 Y+2.569 697 C X+1.526 Y+0.646 DR+ R0 FQ6 698 CC X+0.605 Y+1.686 699 C X+0.965 Y+3.027 DR+ 700 L X-1.32 Y+3.639 701 CC X-0.96 Y+4.981 702 C X-1.881 Y+6.021 DR- 703 CC X-0.177 Y+4.097 704 C X+1.64 Y+5.914 DR- 705 FN 1: Q33 =+Q108 + +6 706 FN 9: IF +9 EQU +9 GOTO LBL 9 707 LBL 116 708 L X-1.458 Y+6.667 R0 FMAX 709 L Z+Q9 R0 FQ7 710 L X+1.042 R0 FQ6 711 L Z+Q8 R0 FMAX 712 L X-0.208 Y+10 R0 FMAX 713 L Z+Q9 R0 FQ7 714 L Y+1.667 R0 FQ6 715 CC X+1.458 Y+1.667 716 C X+1.458 Y+0 DR+ 717 FN 1: Q33 =+Q108 + +7 718 FN 9: IF +9 EQU +9 GOTO LBL 9 719 LBL 117 720 L X-2.569 Y+6.667 R0 FMAX 721 L Z+Q9 R0 FQ7 722 L Y+2.569 R0 FQ6 723 CC X+0 Y+2.569 724 CP PA+0 DR+ 725 L Y+0 726 L Y+6.667 727 FN 1: Q33 =+Q108 + +7 728 FN 9: IF +9 EQU +9 GOTO LBL 9 729 LBL 118 730 L X-2.166 Y+6.667 R0 FMAX 731 L Z+Q9 R0 FQ7 732 L X+0 Y+0 R0 FQ6 733 L X+2.166 Y+6.667 734 FN 1: Q33 =+Q108 + +7 735 FN 9: IF +9 EQU +9 GOTO LBL 9 736 LBL 119 737 L X-3.823 Y+6.667 R0 FMAX 738 L Z+Q9 R0 FQ7 739 L X-1.912 Y+0 R0 FQ6 740 L X+0 Y+6.667 741 L X+1.912 Y+0 742 L X+3.823 Y+6.667 743 FN 1: Q33 =+Q108 + +8 744 FN 9: IF +9 EQU +9 GOTO LBL 9 745 LBL 120 746 L X-1.944 Y+0 R0 FMAX 747 L Z+Q9 R0 FQ7 748 L X+1.944 Y+6.667 R0 FQ6 749 L Z+Q8 R0 FMAX 750 L X-1.944 Y+6.667 R0 FMAX 751 L Z+Q9 R0 FQ7 752 L X+1.944 Y+0 R0 FQ6 753 FN 1: Q33 =+Q108 + +7 754 FN 9: IF +9 EQU +9 GOTO LBL 9 755 LBL 121 756 L X-1.724 Y-3.233 R0 FMAX 757 L Z+Q9 R0 FQ7 758 CC X-2.294 Y-1.667 759 C X-0.709 Y-2.182 DR+ R0 FQ6 760 L X+2.166 Y+6.667 761 L Z+Q8 R0 FMAX 762 L X-2.166 Y+6.667 R0 FMAX 763 L Z+Q9 R0 FQ7 764 L X+0 Y+0 R0 FQ6 765 FN 1: Q33 =+Q108 + +7 766 FN 9: IF +9 EQU +9 GOTO LBL 9 767 LBL 122 768 L X-2.222 Y+6.667 R0 FMAX 769 L Z+Q9 R0 FQ7 770 L X+2.222 R0 FQ6 771 L X-2.222 Y+0 772 L X+2.222 773 FN 1: Q33 =+Q108 + +7 774 FN 9: IF +9 EQU +9 GOTO LBL 9 775 LBL 130 776 L X-2.688 Y+0 R0 FMAX 777 L Z+Q9 R0 FQ7 778 L Y+8.333 R0 FQ6 779 CC X-1.021 Y+8.333 780 CP PA+90 DR- 781 L X+0 Y+10 782 CC X+0 Y+8.333 783 CP PA+270 DR- 784 CC X+0 Y+4.167 785 C X+2.259 Y+5.238 DR- 786 CC X-1.757 Y+3.333 787 C X+2.259 Y+1.429 DR- 788 CC X+0 Y+2.5 789 C X+0 Y+0 DR- 790 FN 1: Q33 =+Q108 + +7 791 FN 9: IF +9 EQU +9 GOTO LBL 9 792 LBL 9 793 FN 10: IF +Q16 NE +0 GOTO LBL 7 794 FN 3: Q35 =+Q33 * +Q20 795 FN 1: Q21 =+Q21 + +Q35 796 FN 1: Q21 =+Q21 + +Q24 797 LBL 7 798 FN 9: IF +Q16 EQU +0 GOTO LBL 8 799 FN 4: Q34 =+Q33 DIV +Q16 800 FN 3: Q34 =+Q34 * +57.296 801 FN 3: Q34 =+Q34 * +Q20 802 FN 11: IF +Q17 GT +0 GOTO LBL 2 803 FN 1: Q17 =+Q17 + +Q34 804 FN 12: IF +Q17 LT +0 GOTO LBL 3 805 LBL 2 806 FN 2: Q17 =+Q17 - +Q34 807 LBL 3 808 FN 1: Q17 =+Q17 + +Q14 809 LBL 8 810 CYCL DEF 11.0 MASSFAKTOR 811 CYCL DEF 11.1 SCL 1 812 CYCL DEF 10.0 DREHUNG 813 CYCL DEF 10.1 ROT+0 814 CYCL DEF 7.0 NULLPUNKT 815 CYCL DEF 7.1 X+0 816 CYCL DEF 7.2 Y+0 817 L Z+Q8 R0 F9998 818 ; 819 ;End of program 820 LBL 199 821 LBL 0 822 END PGM 90301_en MM