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