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