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