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