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