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