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