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