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