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