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