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