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