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