0 BEGIN PGM Gravieren MM 1 BLK FORM 0.1 Z X+0 Y-130 Z-58 2 BLK FORM 0.2 X+170 Y+0 Z+0 3 ; 4 ; Variablen definieren 5 ; 6 DECLARE STRING QS1 = "M3 M4 M5 M6 M8 M10 M12 M14 M16" 7 ; 8 FN 0: Q2 =+0 ; MF Wirkung (O = XYZ, 1= XZ) 9 ; MP7431 Kreisendpunkt Toleranz min 0.002 10 ; Q2 = Inhalt von MP 7410/213 11 FN 0: Q4 =-0.3 ; Tiefe 12 FN 0: Q6 =+100 ; Vorschub 13 FN 0: Q7 =+100 ; Eintauchvorschub 14 FN 0: Q8 =+5 ; Sicherheitsabstand Z 15 FN 0: Q998 =+55 ; Werkzeugnummer 16 FN 0: Q999 =+4000 ; Drehzahl 17 FN 0: Q5 =+5 ; Schrifthoehe 18 FN 0: Q16 =+0 ; Radius 19 FN 0: Q14 =+0 ; Winkel 20 FN 0: Q29 =+0 ; Schriftzeichen Ausrichtung 21 FN 0: Q21 =+15 ; Startpunkt X 22 FN 0: Q22 =-120 ; Startpunkt Y 23 ; 24 ; Ab hier nichts mehr aendern!! 25 ; 26 TOOL CALL Q998 Z SQ999 27 CYCL DEF 301 ~ Q1998=+1 28 L Z+50 R0 FMAX M3 29 LBL "SCHREIBEN" 30 Q3 = STRLEN( SRC_QS1 ) 31 FN 2: Q15 =+Q3 - +1 32 FN 0: Q10 =+0 ; zu untersuchende Stelle 33 LBL "JH" 34 CALL LBL "CODE" 35 FN 1: Q10 =+Q10 + +1 ;zu untersuchende Stelle 36 CALL LBL "JH" REPQ15 37 LBL 0 38 LBL "CODE" 39 FN 0: Q9 =+Q4 40 FN 9: IF +Q2 EQU +1 GOTO LBL 4 41 FN 4: Q9 =+Q4 DIV +Q5 42 LBL 4 43 FN 9: IF +Q16 EQU +0 GOTO LBL 6 44 FN 2: Q29 =+Q17 - +90 45 FN 11: IF +Q17 GT +0 GOTO LBL 5 46 FN 1: Q29 =+Q17 + +90 47 LBL 5 48 FN 7: Q21 = COS +Q17 49 FN 3: Q21 =+Q21 * +Q16 50 FN 1: Q21 =+Q21 + +Q11 51 FN 6: Q22 = SIN +Q17 52 FN 3: Q22 =+Q22 * +Q16 53 FN 1: Q22 =+Q22 + +Q12 54 LBL 6 55 CYCL DEF 7.0 NULLPUNKT 56 CYCL DEF 7.1 X+Q21 57 CYCL DEF 7.2 Y+Q22 58 FN 4: Q20 =+Q5 DIV +10 59 CYCL DEF 11.0 MASSFAKTOR 60 CYCL DEF 11.1 SCL Q20 61 CYCL DEF 10.0 DREHUNG 62 CYCL DEF 10.1 ROT+Q29 63 LBL "L32" 64 QS11 = " " 65 FN 0: Q1 =+32 ; zu suchendes Zeichen 66 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 67 FN 11: IF +Q13 GT +Q10 GOTO LBL "L45" 68 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 69 LBL "L45" 70 QS11 = "-" 71 FN 0: Q1 =+45 ; zu suchendes Zeichen 72 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 73 FN 11: IF +Q13 GT +Q10 GOTO LBL "L46" 74 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 75 LBL "L46" 76 QS11 = "." 77 FN 0: Q1 =+46 ; zu suchendes Zeichen 78 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 79 FN 11: IF +Q13 GT +Q10 GOTO LBL "L47" 80 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 81 LBL "L47" 82 QS11 = "/" 83 FN 0: Q1 =+47 ; zu suchendes Zeichen 84 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 85 FN 11: IF +Q13 GT +Q10 GOTO LBL "L48" 86 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 87 LBL "L48" 88 QS11 = "0" 89 FN 0: Q1 =+48 ; zu suchendes Zeichen 90 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 91 FN 11: IF +Q13 GT +Q10 GOTO LBL "L49" 92 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 93 LBL "L49" 94 QS11 = "1" 95 FN 0: Q1 =+49 ; zu suchendes Zeichen 96 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 97 FN 11: IF +Q13 GT +Q10 GOTO LBL "L50" 98 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 99 LBL "L50" 100 QS11 = "2" 101 FN 0: Q1 =+50 ; zu suchendes Zeichen 102 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 103 FN 11: IF +Q13 GT +Q10 GOTO LBL "L51" 104 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 105 LBL "L51" 106 QS11 = "3" 107 FN 0: Q1 =+51 ; zu suchendes Zeichen 108 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 109 FN 11: IF +Q13 GT +Q10 GOTO LBL "L52" 110 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 111 LBL "L52" 112 QS11 = "4" 113 FN 0: Q1 =+52 ; zu suchendes Zeichen 114 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 115 FN 11: IF +Q13 GT +Q10 GOTO LBL "L53" 116 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 117 LBL "L53" 118 QS11 = "5" 119 FN 0: Q1 =+53 ; zu suchendes Zeichen 120 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 121 FN 11: IF +Q13 GT +Q10 GOTO LBL "L54" 122 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 123 LBL "L54" 124 QS11 = "6" 125 FN 0: Q1 =+54 ; zu suchendes Zeichen 126 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 127 FN 11: IF +Q13 GT +Q10 GOTO LBL "L55" 128 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 129 LBL "L55" 130 QS11 = "7" 131 FN 0: Q1 =+55 ; zu suchendes Zeichen 132 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 133 FN 11: IF +Q13 GT +Q10 GOTO LBL "L56" 134 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 135 LBL "L56" 136 QS11 = "8" 137 FN 0: Q1 =+56 ; zu suchendes Zeichen 138 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 139 FN 11: IF +Q13 GT +Q10 GOTO LBL "L57" 140 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 141 LBL "L57" 142 QS11 = "9" 143 FN 0: Q1 =+57 ; zu suchendes Zeichen 144 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 145 FN 11: IF +Q13 GT +Q10 GOTO LBL "L58" 146 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 147 LBL "L58" 148 QS11 = ":" 149 FN 0: Q1 =+58 ; zu suchendes Zeichen 150 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 151 FN 11: IF +Q13 GT +Q10 GOTO LBL "A" 152 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 153 LBL "A" ; 154 QS11 = "A" 155 FN 0: Q1 =+65 ; zu suchendes Zeichen 156 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 157 FN 11: IF +Q13 GT +Q10 GOTO LBL "LB" 158 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 159 LBL "LB" 160 FN 0: Q1 =+66 ; zu suchendes Zeichen 161 QS11 = "B" 162 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 163 FN 11: IF +Q13 GT +Q10 GOTO LBL "LC" 164 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 165 LBL "LC" 166 FN 0: Q1 =+67 ; zu suchendes Zeichen 167 QS11 = "C" 168 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 169 FN 11: IF +Q13 GT +Q10 GOTO LBL "LD" 170 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 171 LBL "LD" 172 QS11 = "D" 173 FN 0: Q1 =+68 ; zu suchendes Zeichen 174 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 175 FN 11: IF +Q13 GT +Q10 GOTO LBL "LE" 176 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 177 LBL "LE" 178 QS11 = "E" 179 FN 0: Q1 =+69 ; zu suchendes Zeichen 180 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 181 FN 11: IF +Q13 GT +Q10 GOTO LBL "LF" 182 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 183 LBL "LF" 184 QS11 = "F" 185 FN 0: Q1 =+70 ; zu suchendes Zeichen 186 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 187 FN 11: IF +Q13 GT +Q10 GOTO LBL "LG" 188 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 189 LBL "LG" 190 QS11 = "G" 191 FN 0: Q1 =+71 ; zu suchendes Zeichen 192 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 193 FN 11: IF +Q13 GT +Q10 GOTO LBL "LH" 194 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 195 LBL "LH" 196 QS11 = "H" 197 FN 0: Q1 =+72 ; zu suchendes Zeichen 198 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 199 FN 11: IF +Q13 GT +Q10 GOTO LBL "LI" 200 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 201 LBL "LI" 202 QS11 = "I" 203 FN 0: Q1 =+73 ; zu suchendes Zeichen 204 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 205 FN 11: IF +Q13 GT +Q10 GOTO LBL "LJ" 206 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 207 LBL "LJ" 208 QS11 = "J" 209 FN 0: Q1 =+74 ; zu suchendes Zeichen 210 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 211 FN 11: IF +Q13 GT +Q10 GOTO LBL "LK" 212 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 213 LBL "LK" 214 QS11 = "K" 215 FN 0: Q1 =+75 ; zu suchendes Zeichen 216 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 217 FN 11: IF +Q13 GT +Q10 GOTO LBL "LL" 218 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 219 LBL "LL" 220 QS11 = "L" 221 FN 0: Q1 =+76 ; zu suchendes Zeichen 222 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 223 FN 11: IF +Q13 GT +Q10 GOTO LBL "LM" 224 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 225 LBL "LM" 226 QS11 = "M" 227 FN 0: Q1 =+77 ; zu suchendes Zeichen 228 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 229 FN 11: IF +Q13 GT +Q10 GOTO LBL "LN" 230 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 231 LBL "LN" 232 QS11 = "N" 233 FN 0: Q1 =+78 ; zu suchendes Zeichen 234 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 235 FN 11: IF +Q13 GT +Q10 GOTO LBL "LO" 236 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 237 LBL "LO" 238 QS11 = "O" 239 FN 0: Q1 =+79 ; zu suchendes Zeichen 240 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 241 FN 11: IF +Q13 GT +Q10 GOTO LBL "LP" 242 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 243 LBL "LP" 244 QS11 = "P" 245 FN 0: Q1 =+80 ; zu suchendes Zeichen 246 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 247 FN 11: IF +Q13 GT +Q10 GOTO LBL "LQ" 248 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 249 LBL "LQ" 250 QS11 = "Q" 251 FN 0: Q1 =+81 ; zu suchendes Zeichen 252 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 253 FN 11: IF +Q13 GT +Q10 GOTO LBL "LR" 254 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 255 LBL "LR" 256 QS11 = "R" 257 FN 0: Q1 =+82 ; zu suchendes Zeichen 258 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 259 FN 11: IF +Q13 GT +Q10 GOTO LBL "LS" 260 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 261 LBL "LS" 262 QS11 = "S" 263 FN 0: Q1 =+83 ; zu suchendes Zeichen 264 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 265 FN 11: IF +Q13 GT +Q10 GOTO LBL "LT" 266 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 267 LBL "LT" 268 QS11 = "T" 269 FN 0: Q1 =+84 ; zu suchendes Zeichen 270 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 271 FN 11: IF +Q13 GT +Q10 GOTO LBL "LU" 272 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 273 LBL "LU" 274 QS11 = "U" 275 FN 0: Q1 =+85 ; zu suchendes Zeichen 276 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 277 FN 11: IF +Q13 GT +Q10 GOTO LBL "LV" 278 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 279 LBL "LV" 280 QS11 = "V" 281 FN 0: Q1 =+86 ; zu suchendes Zeichen 282 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 283 FN 11: IF +Q13 GT +Q10 GOTO LBL "LW" 284 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 285 LBL "LW" 286 QS11 = "W" 287 FN 0: Q1 =+87 ; zu suchendes Zeichen 288 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 289 FN 11: IF +Q13 GT +Q10 GOTO LBL "LX" 290 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 291 LBL "LX" 292 QS11 = "X" 293 FN 0: Q1 =+88 ; zu suchendes Zeichen 294 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 295 FN 11: IF +Q13 GT +Q10 GOTO LBL "LY" 296 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 297 LBL "LY" 298 QS11 = "Y" 299 FN 0: Q1 =+89 ; zu suchendes Zeichen 300 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 301 FN 11: IF +Q13 GT +Q10 GOTO LBL "LZ" 302 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 303 LBL "LZ" 304 QS11 = "Z" 305 FN 0: Q1 =+90 ; zu suchendes Zeichen 306 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 307 FN 11: IF +Q13 GT +Q10 GOTO LBL "LAA" 308 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 309 STOP 310 LBL "LAA" ; 311 QS11 = "a" 312 FN 0: Q1 =+97 ; zu suchendes Zeichen 313 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 314 FN 11: IF +Q13 GT +Q10 GOTO LBL "LBB" 315 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 316 LBL "LBB" 317 FN 0: Q1 =+98 ; zu suchendes Zeichen 318 QS11 = "b" 319 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 320 FN 11: IF +Q13 GT +Q10 GOTO LBL "LCC" 321 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 322 LBL "LCC" 323 FN 0: Q1 =+99 ; zu suchendes Zeichen 324 QS11 = "c" 325 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 326 FN 11: IF +Q13 GT +Q10 GOTO LBL "LDD" 327 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 328 LBL "LDD" 329 QS11 = "d" 330 FN 0: Q1 =+100 ; zu suchendes Zeichen 331 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 332 FN 11: IF +Q13 GT +Q10 GOTO LBL "LEE" 333 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 334 LBL "LEE" 335 QS11 = "e" 336 FN 0: Q1 =+101 ; zu suchendes Zeichen 337 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 338 FN 11: IF +Q13 GT +Q10 GOTO LBL "LFF" 339 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 340 LBL "LFF" 341 QS11 = "f" 342 FN 0: Q1 =+102 ; zu suchendes Zeichen 343 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 344 FN 11: IF +Q13 GT +Q10 GOTO LBL "LGG" 345 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 346 LBL "LGG" 347 QS11 = "g" 348 FN 0: Q1 =+103 ; zu suchendes Zeichen 349 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 350 FN 11: IF +Q13 GT +Q10 GOTO LBL "LHH" 351 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 352 LBL "LHH" 353 QS11 = "h" 354 FN 0: Q1 =+104 ; zu suchendes Zeichen 355 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 356 FN 11: IF +Q13 GT +Q10 GOTO LBL "LII" 357 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 358 LBL "LII" 359 QS11 = "i" 360 FN 0: Q1 =+105 ; zu suchendes Zeichen 361 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 362 FN 11: IF +Q13 GT +Q10 GOTO LBL "LJJ" 363 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 364 LBL "LJJ" 365 QS11 = "j" 366 FN 0: Q1 =+106 ; zu suchendes Zeichen 367 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 368 FN 11: IF +Q13 GT +Q10 GOTO LBL "LKK" 369 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 370 LBL "LKK" 371 QS11 = "k" 372 FN 0: Q1 =+107 ; zu suchendes Zeichen 373 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 374 FN 11: IF +Q13 GT +Q10 GOTO LBL "LLL" 375 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 376 LBL "LLL" 377 QS11 = "l" 378 FN 0: Q1 =+108 ; zu suchendes Zeichen 379 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 380 FN 11: IF +Q13 GT +Q10 GOTO LBL "LMM" 381 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 382 LBL "LMM" 383 QS11 = "m" 384 FN 0: Q1 =+109 ; zu suchendes Zeichen 385 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 386 FN 11: IF +Q13 GT +Q10 GOTO LBL "LNN" 387 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 388 LBL "LNN" 389 QS11 = "n" 390 FN 0: Q1 =+110 ; zu suchendes Zeichen 391 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 392 FN 11: IF +Q13 GT +Q10 GOTO LBL "LOO" 393 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 394 LBL "LOO" 395 QS11 = "o" 396 FN 0: Q1 =+111 ; zu suchendes Zeichen 397 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 398 FN 11: IF +Q13 GT +Q10 GOTO LBL "LPP" 399 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 400 LBL "LPP" 401 QS11 = "p" 402 FN 0: Q1 =+112 ; zu suchendes Zeichen 403 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 404 FN 11: IF +Q13 GT +Q10 GOTO LBL "LQQ" 405 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 406 LBL "LQQ" 407 QS11 = "q" 408 FN 0: Q1 =+113 ; zu suchendes Zeichen 409 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 410 FN 11: IF +Q13 GT +Q10 GOTO LBL "LRR" 411 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 412 LBL "LRR" 413 QS11 = "r" 414 FN 0: Q1 =+114 ; zu suchendes Zeichen 415 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 416 FN 11: IF +Q13 GT +Q10 GOTO LBL "LSS" 417 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 418 LBL "LSS" 419 QS11 = "s" 420 FN 0: Q1 =+115 ; zu suchendes Zeichen 421 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 422 FN 11: IF +Q13 GT +Q10 GOTO LBL "LTT" 423 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 424 LBL "LTT" 425 QS11 = "t" 426 FN 0: Q1 =+116 ; zu suchendes Zeichen 427 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 428 FN 11: IF +Q13 GT +Q10 GOTO LBL "LUU" 429 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 430 LBL "LUU" 431 QS11 = "u" 432 FN 0: Q1 =+117 ; zu suchendes Zeichen 433 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 434 FN 11: IF +Q13 GT +Q10 GOTO LBL "LVV" 435 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 436 LBL "LVV" 437 QS11 = "v" 438 FN 0: Q1 =+118 ; zu suchendes Zeichen 439 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 440 FN 11: IF +Q13 GT +Q10 GOTO LBL "LWW" 441 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 442 LBL "LWW" 443 QS11 = "w" 444 FN 0: Q1 =+119 ; zu suchendes Zeichen 445 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 446 FN 11: IF +Q13 GT +Q10 GOTO LBL "LXX" 447 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 448 LBL "LXX" 449 QS11 = "x" 450 FN 0: Q1 =+120 ; zu suchendes Zeichen 451 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 452 FN 11: IF +Q13 GT +Q10 GOTO LBL "LYY" 453 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 454 LBL "LYY" 455 QS11 = "y" 456 FN 0: Q1 =+121 ; zu suchendes Zeichen 457 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 458 FN 11: IF +Q13 GT +Q10 GOTO LBL "LZZ" 459 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 460 LBL "LZZ" 461 QS11 = "z" 462 FN 0: Q1 =+122 ; zu suchendes Zeichen 463 Q13 = INSTR( SRC_QS1 SEA_QS11 BEGQ10 ) 464 FN 11: IF +Q13 GT +Q10 GOTO LBL "LAA" 465 FN 12: IF +Q13 LT +Q3 GOTO LBL 299 466 STOP 467 FN 0: Q1 =+0 468 LBL 299 469 FN 10: IF +Q1 NE +0 GOTO LBL Q1 470 FN 9: IF +Q1 EQU +0 GOTO LBL 9 471 LBL 32 ; BLK 472 FN 1: Q33 =+Q108 + +6 473 FN 9: IF +9 EQU +9 GOTO LBL 9 474 LBL 45 ; - 475 L X-2 Y+5 R0 FMAX 476 L Z+Q9 R0 FQ7 477 L X+2 R0 FQ6 478 FN 1: Q33 =+Q108 + +5.5 479 FN 9: IF +9 EQU +9 GOTO LBL 9 480 LBL 46 ; . 481 CC X-1.5 Y+1 482 LP PR+0.5 PA+0 R0 FMAX 483 L Z+Q9 R0 FQ7 484 CP PA+0 DR- R0 FQ6 485 FN 1: Q33 =+Q108 + +4.5 486 FN 9: IF +9 EQU +9 GOTO LBL 9 487 LBL 47 ; / 488 L X-2.5 Y+1 R0 FMAX 489 L Z+Q9 R0 FQ7 490 L X+2.5 Y+10 R0 FQ6 491 FN 1: Q33 =+Q108 + +6.5 492 FN 9: IF +9 EQU +9 GOTO LBL 9 493 LBL 48 ; 0 494 L X-2.639 Y+2.639 R0 FMAX 495 L Z+Q9 R0 FQ7 496 CC X+0 Y+2.639 497 CP PA+0 DR+ 498 L Y+7.361 R0 FQ6 499 CC X+0 Y+7.361 500 CP PA+180 DR+ 501 L Y+2.639 502 FN 1: Q33 =+Q108 + +6.5 503 FN 9: IF +9 EQU +9 GOTO LBL 9 504 LBL 49 ; 1 505 L X-2.111 Y+7.778 R0 FMAX 506 L Z+Q9 R0 FQ7 507 L X+0.111 Y+10 R0 FQ6 508 L Y+0 509 FN 1: Q33 =+Q108 + +6.3 510 FN 9: IF +9 EQU +9 GOTO LBL 9 511 LBL 50 ; 2 512 L X-2.404 Y+8.147 R0 FMAX 513 L Z+Q9 R0 FQ7 514 CC X+0.012 Y+7.5 515 C X+2.007 Y+5.996 DR- R0 FQ6 516 L X-2.511 Y+0 517 L X+2.489 518 FN 1: Q33 =+Q108 + +7.9 519 FN 9: IF +9 EQU +9 GOTO LBL 9 520 LBL 51 ; 3 521 L X-2.455 Y+8.147 R0 FMAX 522 CC X-0.041 Y+7.5 523 L Z+Q9 R0 FQ7 524 C X+0.515 Y+5.063 DR- R0 FQ6 525 L Y+4.938 526 CC X-0.041 Y+2.5 527 C X-2.455 Y+1.853 DR- 528 FN 1: Q33 =+Q108 + +8.3 529 FN 9: IF +9 EQU +9 GOTO LBL 9 530 LBL 52 ; 4 531 L X+0.972 Y+10 R0 FMAX 532 L Z+Q9 R0 FQ7 533 L X-2.361 Y+1.953 R0 FQ6 534 L Y+1.111 535 L X+2.361 536 L Z+Q8 R0 FMAX 537 L X+0.972 Y+4.444 R0 FMAX 538 L Z+Q9 R0 FQ7 539 L Y+0 R0 FQ6 540 FN 1: Q33 =+Q108 + +8.3 541 FN 9: IF +9 EQU +9 GOTO LBL 9 542 LBL 53 ; 5 543 CC X-0.043 Y+2.5 544 L X-2.457 Y+1.853 R0 FMAX 545 L Z+Q9 R0 FQ7 546 CP PA+0 DR+ R0 FQ6 547 L Y+4.167 548 CC X-0.043 Y+4.167 549 C X-2.457 Y+4.814 DR+ 550 L Y+10 551 L X+2.457 552 FN 1: Q33 =+Q108 + +8.3 553 FN 9: IF +9 EQU +9 GOTO LBL 9 554 LBL 54 ; 6 555 CC X+0 Y+4.167 556 L X-2.5 Y+4.167 R0 FMAX 557 L Z+Q9 R0 FQ7 558 CP PA+0 DR- R0 FQ6 559 L Y+2.5 560 CC X+0 Y+2.5 561 CP PA+180 DR- 562 L Y+7.5 563 CC X+0 Y+7.5 564 C X+2.415 Y+8.147 DR- 565 FN 1: Q33 =+Q108 + +8.3 566 FN 9: IF +9 EQU +9 GOTO LBL 9 567 LBL 55 ; 7 568 L X-2.222 Y+8.889 R0 FMAX 569 L Z+Q9 R0 FQ7 570 L Y+10 R0 FQ6 571 L X+2.222 572 L Y+9.113 573 L X-2.222 Y+0 574 FN 1: Q33 =+Q108 + +7.5 575 FN 9: IF +9 EQU +9 GOTO LBL 9 576 LBL 56 ; 8 577 CC X+0 Y+7.5 578 L X-0.006 Y+5 R0 FMAX 579 L Z+Q9 R0 FQ7 580 CP PA+270 DR- FQ6 581 CC X+0 Y+2.5 582 CP PA+90 DR- 583 FN 1: Q33 =+Q108 + +8.3 584 FN 9: IF +9 EQU +9 GOTO LBL 9 585 LBL 57 ; 9 586 L X-2.415 Y+1.853 R0 FMAX 587 L Z+Q9 R0 FQ7 588 CC X+0 Y+2.5 589 CP PA+0 DR+ R0 FQ6 590 L Y+7.5 591 CC X+0 Y+7.5 592 CP PA+180 DR+ 593 L Y+5.833 594 CC X+0 Y+5.833 595 CP PA+0 DR+ 596 FN 1: Q33 =+Q108 + +8.3 597 FN 9: IF +9 EQU +9 GOTO LBL 9 598 LBL 58 ; : 599 L X+0 Y+2.5 R0 FMAX 600 L Z+Q9 R0 FQ7 601 L Z+Q8 R0 FMAX 602 L Y+7.5 R0 FMAX 603 L Z+Q9 R0 FQ7 604 L FQ6 605 FN 1: Q33 =+Q108 + +8.3 606 FN 9: IF +9 EQU +9 GOTO LBL 9 607 LBL 65 ; A (GROSS) 608 L X-3.639 Y+0 R0 FMAX 609 L Z+Q9 R0 FQ7 610 L X+0 Y+10 R0 FQ6 611 L X+3.639 Y+0 612 L X+2.426 Y+3.333 613 L X-2.426 614 FN 1: Q33 =+Q108 + +9.5 615 FN 9: IF +9 EQU +9 GOTO LBL 9 616 LBL 66 ; B 617 L X-3.056 Y+5 R0 FMAX 618 L Z+Q9 R0 FQ7 619 L X+0.556 R0 FQ6 620 CC X+0.556 Y+7.5 621 CP PA+90 DR+ 622 L X-3.056 623 L Y+0 624 L X+0.556 625 CC X+0.556 Y+2.5 626 CP PA+90 DR+ 627 FN 1: Q33 =+Q108 + +9.5 628 FN 9: IF +9 EQU +9 GOTO LBL 9 629 LBL 67 ; C 630 CC X+0.057 Y+6.667 631 L X+3.276 Y+7.529 R0 FMAX 632 L Z+Q9 R0 FQ7 633 CP PA+180 DR+ R0 FQ6 634 L Y+3.333 635 CC X+0.057 Y+3.333 636 C X+3.276 Y+2.471 DR+ 637 FN 1: Q33 =+Q108 + +9.6 638 FN 9: IF +9 EQU +9 GOTO LBL 9 639 LBL 68 ; D 640 L X-3.055 Y+10 R0 FMAX 641 L Z+Q9 R0 FQ7 642 L Y+0 R0 FQ6 643 L X-0.278 644 CC X-0.278 Y+3.333 645 CP PA+0 DR+ 646 L Y+6.667 647 CC X-0.278 Y+6.667 648 CP PA+90 DR+ 649 L X-3.056 650 FN 1: Q33 =+Q108 + +9.5 651 FN 9: IF +9 EQU +9 GOTO LBL 9 652 LBL 69 ; E 653 L X+3.056 Y+10 R0 FMAX 654 L Z+Q9 R0 FQ7 655 L X-3.056 R0 FQ6 656 L Y+0 657 L X+3.056 658 L Z+Q8 R0 FMAX 659 L X+0.833 Y+5 R0 FMAX 660 L Z+Q9 R0 FQ7 661 L X-3.056 R0 FQ6 662 FN 1: Q33 =+Q108 + +8.8 663 FN 9: IF +9 EQU +9 GOTO LBL 9 664 LBL 70 ; F 665 L X+3.056 Y+10 R0 FMAX 666 L Z+Q9 R0 FQ7 667 L X-3.056 FQ6 668 L Y+0 669 L Y+5 670 L X+0.833 671 FN 1: Q33 =+Q108 + +9.5 672 FN 9: IF +9 EQU +9 GOTO LBL 9 673 LBL 71 ; G 674 CC X+0 Y+6.389 675 L X+3.393 Y+7.624 R0 FMAX 676 L Z+Q9 R0 FQ7 677 CP PA+180 DR+ FQ6 678 L Y+3.611 679 CC X+0 Y+3.611 680 CP PA+0 DR+ 681 L Y+4.444 682 L X+0.833 683 FN 1: Q33 =+Q108 + +10.3 684 FN 9: IF +9 EQU +9 GOTO LBL 9 685 LBL 72 ; H 686 L X-3.333 Y+10 R0 FMAX 687 L Z+Q9 R0 FQ7 688 L Y+0 FQ6 689 L Y+5 690 L X+3.333 691 L Y+10 692 L Y+0 693 FN 1: Q33 =+Q108 + +8.8 694 FN 9: IF +9 EQU +9 GOTO LBL 9 695 LBL 73 ; I 696 L X-2.5 Y+0 R0 FMAX 697 L Z+Q9 R0 FQ7 698 L Y+10 R0 FQ6 699 FN 1: Q33 =+Q108 + +5 700 FN 9: IF +9 EQU +9 GOTO LBL 9 701 LBL 74 ; J 702 L X-2.731 Y+2.058 R0 FMAX 703 L Z+Q9 R0 FQ7 704 CC X-0.047 Y+2.778 705 CP PA+0 DR+ FQ6 706 L Y+10 707 FN 1: Q33 =+Q108 + +8.3 708 FN 9: IF +9 EQU +9 GOTO LBL 9 709 LBL 75 ; K 710 L X-3.056 Y+10 R0 FMAX 711 L Z+Q9 R0 FQ7 712 L Y+0 R0 FQ6 713 L Y+2.778 714 L X+3.056 Y+10 715 L Z+Q8 R0 FMAX 716 L Y+0 R0 FMAX 717 L Z+Q9 R0 FQ7 718 L X-0.853 Y+5.381 FQ6 719 FN 1: Q33 =+Q108 + +9.5 720 FN 9: IF +9 EQU +9 GOTO LBL 9 721 LBL 76 ; L 722 L X-3.056 Y+10 R0 FMAX 723 L Z+Q9 R0 FQ7 724 L Y+0 R0 FQ6 725 L X+2.8 726 FN 1: Q33 =+Q108 + +7.5 727 FN 9: IF +9 EQU +9 GOTO LBL 9 728 LBL 77 ; M 729 L X-3.611 Y+0 R0 FMAX 730 L Z+Q9 R0 FQ7 731 L Y+10 R0 FQ6 732 L X+0 Y+3.333 733 L X+3.611 Y+10 734 L Y+0 735 FN 1: Q33 =+Q108 + +10.3 736 FN 9: IF +9 EQU +9 GOTO LBL 9 737 LBL 78 ; N 738 L X-3.056 Y+0 R0 FMAX 739 L Z+Q9 R0 FQ7 740 L Y+10 R0 FQ6 741 L X+3.056 Y+0 742 L Y+10 743 FN 1: Q33 =+Q108 + +9.5 744 FN 9: IF +9 EQU +9 GOTO LBL 9 745 LBL 79 ; O 746 L X-3.056 Y+3.056 R0 FMAX 747 L Z+Q9 R0 FQ7 748 CC X+0 Y+3.056 749 CP PA+0 DR+ FQ6 750 L Y+6.944 751 CC X+0 Y+6.944 752 CP PA+180 DR+ 753 L Y+3.056 754 FN 1: Q33 =+Q108 + +10.3 755 FN 9: IF +9 EQU +9 GOTO LBL 9 756 LBL 80 ; P 757 L X-3.056 Y+0 R0 FMAX 758 L Z+Q9 R0 FQ7 759 L Y+10 R0 FQ6 760 L X+0.486 761 CC X+0.486 Y+7.431 762 CP PA+270 DR- 763 L X-3.056 764 FN 1: Q33 =+Q108 + +9 765 FN 9: IF +9 EQU +9 GOTO LBL 9 766 LBL 81 ; Q 767 CC X+0 Y+3.056 768 L X-3.056 Y+3.056 769 L Z+Q9 R0 FQ7 770 CP PA+0 DR+ FQ6 771 L Y+6.944 772 CC X+0 Y+6.944 773 CP PA+180 DR+ 774 L Y+3.056 775 L Z+Q8 R0 FMAX 776 L X+1.087 Y+1.968 R0 FMAX 777 L Z+Q9 R0 FQ7 778 L X+3.056 Y+0 R0 FQ6 779 FN 1: Q33 =+Q108 + +10.3 780 FN 9: IF +9 EQU +9 GOTO LBL 9 781 LBL 82 ; R 782 L X-3.056 Y+0 R0 FMAX 783 L Z+Q9 R0 FQ7 784 L Y+10 R0 FQ6 785 L X+0.486 786 CC X+0.486 Y+7.431 787 CP PA+270 DR- 788 L X-3.056 789 L X+0.486 790 L X+2.857 Y+0 791 FN 1: Q33 =+Q108 + +9.5 792 FN 9: IF +9 EQU +9 GOTO LBL 9 793 LBL 83 ; S 794 L X-3.143 Y+1.302 R0 FMAX 795 L Z+Q9 R0 FQ7 796 CC X+0 Y+4.444 797 C X+2.232 Y+0.601 DR+ FQ6 798 CC X+1.151 Y+2.463 799 C X+1.708 Y+4.542 DR+ 800 L X-1.708 Y+5.458 801 CC X-1.151 Y+7.537 802 C X-2.232 Y+9.398 DR- 803 CC X+0 Y+5.556 804 C X+3.143 Y+8.698 DR- 805 FN 1: Q33 =+Q108 + +9.1 806 FN 9: IF +9 EQU +9 GOTO LBL 9 807 LBL 84 ; T 808 L X-3.056 Y+10 R0 FMAX 809 L Z+Q9 R0 FQ7 810 L X+3.056 R0 FQ6 811 L X+0 812 L Y+0 813 FN 1: Q33 =+Q108 + +9.1 814 FN 9: IF +9 EQU +9 GOTO LBL 9 815 LBL 85 ; U 816 L X-3.611 Y+10 R0 FMAX 817 L Z+Q9 R0 FQ7 818 L Y+3.611 FQ6 819 CC X+0 Y+3.611 820 CP PA+0 DR+ 821 L Y+10 822 FN 1: Q33 =+Q108 + +9.5 823 FN 9: IF +9 EQU +9 GOTO LBL 9 824 LBL 86 ; V 825 L X-3.443 Y+10 R0 FMAX 826 L Z+Q9 R0 FQ7 827 L X+0 Y+0 R0 FQ6 828 L X+3.443 Y+10 829 FN 1: Q33 =+Q108 + +9.5 830 FN 9: IF +9 EQU +9 GOTO LBL 9 831 LBL 87 ; W 832 L X-4.986 Y+10 R0 FMAX 833 L Z+Q9 R0 FQ7 834 L X-2.493 Y+0 R0 FQ6 835 L X+0 Y+10 836 L X+2.493 Y+0 837 L X+4.986 Y+10 838 FN 1: Q33 =+Q108 + +10.4 839 FN 9: IF +9 EQU +9 GOTO LBL 9 840 LBL 88 ; X 841 L X-3.124 Y+10 R0 FMAX 842 L Z+Q9 R0 FQ7 843 L X+3.124 Y+0 R0 FQ6 844 L Z+Q8 R0 FMAX 845 L X+3.124 Y+10 R0 FMAX 846 L Z+Q9 R0 FQ7 847 L X-3.124 Y+0 FQ6 848 FN 1: Q33 =+Q108 + +8.3 849 FN 9: IF +9 EQU +9 GOTO LBL 9 850 LBL 89 ; Y 851 L X-3.124 Y+10 R0 FMAX 852 L Z+Q9 R0 FQ7 853 L X+0 Y+5 R0 FQ6 854 L X+0 Y+0 855 L Z+Q8 R0 FMAX 856 L Y+5 R0 FMAX 857 L Z+Q9 R0 FQ7 858 L X+3.124 Y+10 FQ6 859 FN 1: Q33 =+Q108 + +8.3 860 FN 9: IF +9 EQU +9 GOTO LBL 9 861 LBL 90 ; Z 862 L X-3.611 Y+10 R0 FMAX 863 L Z+Q9 R0 FQ7 864 L X+3.611 R0 FQ6 865 L X-3.611 Y+0 866 L X+3.611 867 FN 1: Q33 =+Q108 + +9.5 868 FN 9: IF +9 EQU +9 GOTO LBL 9 869 LBL 97 ; AA 870 L X+2.569 Y+0 R0 FMAX 871 Z+Q9 R0 FQ7 872 L Y+6.666 FQ6 873 L Y+4.097 874 CC X+0 Y+4.097 875 C X-2.569 Y+4.097 DR+ 876 L Y+2.569 877 CC X+0 Y+2.569 878 C X+2.569 Y+2.569 DR+ 879 FN 1: Q33 =+Q108 + +8.3 880 FN 9: IF +9 EQU +9 GOTO LBL 9 881 LBL 98 ; BB 882 L X-2.569 Y+10 R0 FMAX 883 L Z+Q9 R0 FQ7 884 L Y+0 R0 FQ6 885 L Y+2.569 886 CC X+0 Y+2.569 887 CP PA+0 DR+ 888 L Y+4.097 889 CC X+0 Y+4.097 890 CP PA+180 DR+ 891 FN 1: Q33 =+Q108 + +7 892 FN 9: IF +9 EQU +9 GOTO LBL 9 893 LBL 99 ; CC 894 L X+2.397 Y+1.285 R0 FMAX 895 L Z+Q9 R0 FQ7 896 CC X+0.172 Y+2.569 897 CP PA+180 DR- R0 FQ6 898 L Y+4.097 899 CC X+0.172 Y+4.097 900 CR X+2.397 Y+5.382 R+2.5 DR- 901 FN 1: Q33 =+Q108 + +7 902 FN 9: IF +9 EQU +9 GOTO LBL 9 903 LBL 100 ; DD 904 L X+2.569 Y+10 R0 FMAX 905 L Z+Q9 R0 FQ7 906 L Y+0 R0 FQ6 907 L Y+2.569 908 CC X+0 Y+2.569 909 CP PA+180 DR- 910 L Y+4.097 911 CC X+0 Y+4.097 912 CP PA+0 DR- 913 FN 1: Q33 =+Q108 + +7 914 FN 9: IF +9 EQU +9 GOTO LBL 9 915 LBL 101 ; EE 916 CC X+0 Y+2.569 917 L X+2.105 Y+1.096 R0 FMAX 918 L Z+Q9 R0 FQ7 919 C X-2.569 Y+2.569 DR- FQ6 920 L X-2.569 Y+4.097 921 CC X+0 Y+4.097 922 C X+2.569 Y+4.097 DR- 923 L Y+3.403 924 L X-2.569 925 FN 1: Q33 =+Q108 + +7 926 FN 9: IF +9 EQU +9 GOTO LBL 9 927 LBL 102 ; FF 928 L X-1.25 Y+6.667 R0 FMAX 929 L Z+Q9 R0 FQ7 930 L X+1.25 FQ6 931 L Z+Q8 R0 FMAX 932 L X+1.667 Y+10 R0 FMAX 933 L Z+Q9 R0 FQ7 934 CC X+1.667 Y+8.333 935 CP PA+180 DR+ R0 FQ6 936 L X+0 Y+0 937 FN 1: Q33 =+Q108 + +6.8 938 FN 9: IF +9 EQU +9 GOTO LBL 9 939 LBL 103 ; GG 940 L X-2.105 Y-2.238 R0 FMAX 941 L Z+Q9 R0 FQ7 942 CC X+0 Y-0.764 943 CP PA+0 DR+ FQ6 944 L Y+6.667 945 L Y+4.097 946 CC X+0 Y+4.097 947 CP PA+180 DR+ 948 L Y+2.569 949 CC X+0 Y+2.569 950 CP PA+0 DR+ 951 FN 1: Q33 =+Q108 + +7.5 952 FN 9: IF +9 EQU +9 GOTO LBL 9 953 LBL 104 ; HH 954 L X-2.569 Y+10 R0 FMAX 955 L Z+Q9 R0 FQ7 956 L Y+0 FQ6 957 L Y+4.097 X-2.569 R0 FMAX 958 CC X+0 Y+4.097 959 C X+2.569 Y+4.097 DR- R0 FQ6 960 L Y+0 X+2.569 961 FN 1: Q33 =+Q108 + +7 962 FN 9: IF +9 EQU +9 GOTO LBL 9 963 LBL 105 ; II 964 L X+0 Y+0 R0 FMAX 965 L Z+Q9 R0 FQ7 966 L Y+6.667 R0 FQ6 967 L Z+Q8 R0 FMAX 968 L Y+10 R0 FMAX 969 L Z+Q9 R0 FQ7 970 L FQ6 971 FN 1: Q33 =+Q108 + +4.3 972 FN 9: IF +9 EQU +9 GOTO LBL 9 973 LBL 106 ; JJ 974 L X-1.833 Y-3.333 R0 FMAX 975 L Z+Q9 R0 FQ7 976 CC X-1.833 Y-1.667 977 CP PA+0 DR+ R0 FQ6 978 L Y+6.667 979 L Z+Q8 R0 FMAX 980 L Y+10 R0 FMAX 981 L Z+Q9 R0 FQ7 982 L FQ6 983 FN 1: Q33 =+Q108 + +5 984 FN 9: IF +9 EQU +9 GOTO LBL 9 985 LBL 107 ; KK 986 L X-2.17 Y+10 R0 FMAX 987 L Z+Q9 R0 FQ7 988 L Y+0 R0 FQ6 989 L Y+1.111 990 L X+2.17 Y+6.667 991 L Z+Q8 R0 FMAX 992 L Y+0 R0 FMAX 993 L Z+Q9 R0 FQ7 994 L X-0.434 Y+3.333 R0 FQ6 995 FN 1: Q33 =+Q108 + +7 996 FN 9: IF +9 EQU +9 GOTO LBL 9 997 LBL 108 ; LL 998 L X+0.833 Y+0 R0 FMAX 999 L Z+Q9 R0 FQ7 1000 CC X+0.833 Y+1.667 1001 CP PA+180 DR- R0 FQ6 1002 L Y+10 1003 FN 1: Q33 =+Q108 + +7 1004 FN 9: IF +9 EQU +9 GOTO LBL 9 1005 LBL 109 ; MM 1006 L X-4.444 Y+0 R0 FMAX 1007 L Z+Q9 R0 FQ7 1008 L Y+6.667 R0 FQ6 1009 L Y+4.444 1010 CC X-2.222 Y+4.444 1011 CP PA+0 DR- 1012 L Y+0 1013 L Y+4.444 1014 CC X+2.222 Y+4.444 1015 CP PA+0 DR- 1016 L Y+0 1017 FN 1: Q33 =+Q108 + +10 1018 FN 9: IF +9 EQU +9 GOTO LBL 9 1019 LBL 110 ; NN 1020 L X-2.569 Y+0 R0 FMAX 1021 L Z+Q9 R0 FQ7 1022 L Y+6.667 R0 FQ6 1023 L Y+4.097 1024 CC X+0 Y+4.097 1025 CP PA+0 DR- 1026 L Y+0 1027 FN 1: Q33 =+Q108 + +7.5 1028 FN 9: IF +9 EQU +9 GOTO LBL 9 1029 LBL 111 ; OO 1030 L X-2.569 Y+2.569 R0 FMAX 1031 L Z+Q9 R0 FQ7 1032 L Y+4.097 R0 FQ6 1033 CC X+0 Y+4.097 1034 CP PA+0 DR- 1035 L Y+2.569 1036 CC X+0 Y+2.569 1037 CP PA+180 DR- 1038 FN 1: Q33 =+Q108 + +7 1039 FN 9: IF +9 EQU +9 GOTO LBL 9 1040 LBL 112 ; PP 1041 L X-2.569 Y-3.333 R0 FMAX 1042 L Z+Q9 R0 FQ7 1043 L Y+6.667 R0 FQ6 1044 L Y+4.097 1045 CC X+0 Y+4.097 1046 CP PA+0 DR- 1047 L Y+2.569 1048 CC X+0 Y+2.569 1049 CP PA+180 DR- 1050 FN 1: Q33 =+Q108 + +7 1051 FN 9: IF +9 EQU +9 GOTO LBL 9 1052 LBL 113 ; QQ 1053 L X+2.569 Y-3.333 R0 FMAX 1054 L Z+Q9 R0 FQ7 1055 L Y+6.667 R0 FQ6 1056 L Y+4.097 1057 CC X+0 Y+4.097 1058 CP PA+180 DR+ 1059 L Y+2.569 1060 CC X+0 Y+2.569 1061 CP PA+0 DR+ 1062 FN 1: Q33 =+Q108 + +7 1063 FN 9: IF +9 EQU +9 GOTO LBL 9 1064 LBL 114 ; RR 1065 L X-1.215 Y+0 R0 FMAX 1066 L Z+Q9 R0 FQ7 1067 L Y+6.667 R0 FQ6 1068 L Y+4.236 1069 CC X+1.215 Y+4.236 1070 C X+1.844 Y+6.584 DR- 1071 FN 1: Q33 =+Q108 + +6 1072 FN 9: IF +9 EQU +9 GOTO LBL 9 1073 LBL 115 ; SS 1074 L X-1.994 Y+0.753 R0 FMAX 1075 L Z+Q9 R0 FQ7 1076 CC X-0.177 Y+2.569 1077 C X+1.526 Y+0.646 DR+ R0 FQ6 1078 CC X+0.605 Y+1.686 1079 C X+0.965 Y+3.027 DR+ 1080 L X-1.32 Y+3.639 1081 CC X-0.96 Y+4.981 1082 C X-1.881 Y+6.021 DR- 1083 CC X-0.177 Y+4.097 1084 C X+1.64 Y+5.914 DR- 1085 FN 1: Q33 =+Q108 + +6 1086 FN 9: IF +9 EQU +9 GOTO LBL 9 1087 LBL 116 ; TT 1088 L X-1.458 Y+6.667 R0 FMAX 1089 L Z+Q9 R0 FQ7 1090 L X+1.042 R0 FQ6 1091 L Z+Q8 R0 FMAX 1092 L X-0.208 Y+10 R0 FMAX 1093 L Z+Q9 R0 FQ7 1094 L Y+1.667 R0 FQ6 1095 CC X+1.458 Y+1.667 1096 C X+1.458 Y+0 DR+ 1097 FN 1: Q33 =+Q108 + +7 1098 FN 9: IF +9 EQU +9 GOTO LBL 9 1099 LBL 117 ; UU 1100 L X-2.569 Y+6.667 R0 FMAX 1101 L Z+Q9 R0 FQ7 1102 L Y+2.569 R0 FQ6 1103 CC X+0 Y+2.569 1104 CP PA+0 DR+ 1105 L Y+0 1106 L Y+6.667 1107 FN 1: Q33 =+Q108 + +7 1108 FN 9: IF +9 EQU +9 GOTO LBL 9 1109 LBL 118 ; VV 1110 L X-2.166 Y+6.667 R0 FMAX 1111 L Z+Q9 R0 FQ7 1112 L X+0 Y+0 R0 FQ6 1113 L X+2.166 Y+6.667 1114 FN 1: Q33 =+Q108 + +7 1115 FN 9: IF +9 EQU +9 GOTO LBL 9 1116 LBL 119 ; WW 1117 L X-3.823 Y+6.667 R0 FMAX 1118 L Z+Q9 R0 FQ7 1119 L X-1.912 Y+0 R0 FQ6 1120 L X+0 Y+6.667 1121 L X+1.912 Y+0 1122 L X+3.823 Y+6.667 1123 FN 1: Q33 =+Q108 + +8 1124 FN 9: IF +9 EQU +9 GOTO LBL 9 1125 LBL 120 ; XX 1126 L X-1.944 Y+0 R0 FMAX 1127 L Z+Q9 R0 FQ7 1128 L X+1.944 Y+6.667 R0 FQ6 1129 L Z+Q8 R0 FMAX 1130 L X-1.944 Y+6.667 R0 FMAX 1131 L Z+Q9 R0 FQ7 1132 L X+1.944 Y+0 R0 FQ6 1133 FN 1: Q33 =+Q108 + +7 1134 FN 9: IF +9 EQU +9 GOTO LBL 9 1135 LBL 121 ; YY 1136 L X-1.724 Y-3.233 R0 FMAX 1137 L Z+Q9 R0 FQ7 1138 CC X-2.294 Y-1.667 1139 C X-0.709 Y-2.182 DR+ R0 FQ6 1140 L X+2.166 Y+6.667 1141 L Z+Q8 R0 FMAX 1142 L X-2.166 Y+6.667 R0 FMAX 1143 L Z+Q9 R0 FQ7 1144 L X+0 Y+0 R0 FQ6 1145 FN 1: Q33 =+Q108 + +7 1146 FN 9: IF +9 EQU +9 GOTO LBL 9 1147 LBL 122 ; ZZ 1148 L X-2.222 Y+6.667 R0 FMAX 1149 L Z+Q9 R0 FQ7 1150 L X+2.222 R0 FQ6 1151 L X-2.222 Y+0 1152 L X+2.222 1153 FN 1: Q33 =+Q108 + +7 1154 FN 9: IF +9 EQU +9 GOTO LBL 9 1155 LBL 130 ; ESZET 1156 L X-2.688 Y+0 R0 FMAX 1157 L Z+Q9 R0 FQ7 1158 L Y+8.333 R0 FQ6 1159 CC X-1.021 Y+8.333 1160 CP PA+90 DR- 1161 L X+0 Y+10 1162 CC X+0 Y+8.333 1163 CP PA+270 DR- 1164 CC X+0 Y+4.167 1165 C X+2.259 Y+5.238 DR- 1166 CC X-1.757 Y+3.333 1167 C X+2.259 Y+1.429 DR- 1168 CC X+0 Y+2.5 1169 C X+0 Y+0 DR- 1170 FN 1: Q33 =+Q108 + +7 1171 FN 9: IF +9 EQU +9 GOTO LBL 9 1172 LBL 9 1173 FN 10: IF +Q16 NE +0 GOTO LBL 7 1174 FN 3: Q35 =+Q33 * +Q20 1175 FN 1: Q21 =+Q21 + +Q35 1176 FN 1: Q21 =+Q21 + +Q24 1177 LBL 7 1178 FN 9: IF +Q16 EQU +0 GOTO LBL 8 1179 FN 4: Q34 =+Q33 DIV +Q16 1180 FN 3: Q34 =+Q34 * +57.296 1181 FN 3: Q34 =+Q34 * +Q20 1182 FN 11: IF +Q17 GT +0 GOTO LBL 2 1183 FN 1: Q17 =+Q17 + +Q34 1184 FN 12: IF +Q17 LT +0 GOTO LBL 3 1185 LBL 2 1186 FN 2: Q17 =+Q17 - +Q34 1187 LBL 3 1188 FN 1: Q17 =+Q17 + +Q14 1189 LBL 8 1190 CYCL DEF 11.0 MASSFAKTOR 1191 CYCL DEF 11.1 SCL 1 1192 CYCL DEF 10.0 DREHUNG 1193 CYCL DEF 10.1 ROT+0 1194 CYCL DEF 7.0 NULLPUNKT 1195 CYCL DEF 7.1 X+0 1196 CYCL DEF 7.2 Y+0 1197 L Z+Q8 R0 FMAX 1198 LBL 199 1199 LBL 0 1200 END PGM Gravieren MM