(lp1 (ccopy_reg _reconstructor p2 (cpygments.token _TokenType p3 c__builtin__ tuple p4 (S'Comment' p5 S'Single' p6 ttRp7 (dp8 S'subtypes' p9 c__builtin__ set p10 ((ltRp11 sS'parent' p12 g2 (g3 g4 (g5 ttRp13 (dp14 g12 g2 (g3 g4 (ttRp15 (dp16 g5 g13 sS'Name' p17 g2 (g3 g4 (g17 ttRp18 (dp19 S'Function' p20 g2 (g3 g4 (g17 g20 ttRp21 (dp22 g9 g10 ((ltRp23 sg12 g18 sbsS'Exception' p24 g2 (g3 g4 (g17 g24 ttRp25 (dp26 g9 g10 ((ltRp27 sg12 g18 sbsS'Tag' p28 g2 (g3 g4 (g17 g28 ttRp29 (dp30 g9 g10 ((ltRp31 sg12 g18 sbsS'Constant' p32 g2 (g3 g4 (g17 g32 ttRp33 (dp34 g9 g10 ((ltRp35 sg12 g18 sbsg12 g15 sS'Pseudo' p36 g2 (g3 g4 (g17 g36 ttRp37 (dp38 g9 g10 ((ltRp39 sg12 g18 sbsS'Attribute' p40 g2 (g3 g4 (g17 g40 ttRp41 (dp42 g9 g10 ((ltRp43 sg12 g18 sbsS'Label' p44 g2 (g3 g4 (g17 g44 ttRp45 (dp46 g9 g10 ((ltRp47 sg12 g18 sbsS'Blubb' p48 g2 (g3 g4 (g17 g48 ttRp49 (dp50 g9 g10 ((ltRp51 sg12 g18 sbsS'Entity' p52 g2 (g3 g4 (g17 g52 ttRp53 (dp54 g9 g10 ((ltRp55 sg12 g18 sbsS'Builtin' p56 g2 (g3 g4 (g17 g56 ttRp57 (dp58 g9 g10 ((lp59 g2 (g3 g4 (g17 g56 g36 ttRp60 (dp61 g9 g10 ((ltRp62 sg12 g57 sbatRp63 sg36 g60 sg12 g18 sbsS'Other' p64 g2 (g3 g4 (g17 g64 ttRp65 (dp66 g9 g10 ((ltRp67 sg12 g18 sbsS'Identifier' p68 g2 (g3 g4 (g17 g68 ttRp69 (dp70 g9 g10 ((ltRp71 sg12 g18 sbsS'Variable' p72 g2 (g3 g4 (g17 g72 ttRp73 (dp74 g12 g18 sS'Global' p75 g2 (g3 g4 (g17 g72 g75 ttRp76 (dp77 g9 g10 ((ltRp78 sg12 g73 sbsS'Instance' p79 g2 (g3 g4 (g17 g72 g79 ttRp80 (dp81 g9 g10 ((ltRp82 sg12 g73 sbsS'Anonymous' p83 g2 (g3 g4 (g17 g72 g83 ttRp84 (dp85 g9 g10 ((ltRp86 sg12 g73 sbsg9 g10 ((lp87 g84 ag80 ag76 ag2 (g3 g4 (g17 g72 S'Class' p88 ttRp89 (dp90 g9 g10 ((ltRp91 sg12 g73 sbatRp92 sg88 g89 sbsg9 g10 ((lp93 g2 (g3 g4 (g17 S'Decorator' p94 ttRp95 (dp96 g9 g10 ((ltRp97 sg12 g18 sbag41 ag33 ag37 ag2 (g3 g4 (g17 S'Namespace' p98 ttRp99 (dp100 g9 g10 ((ltRp101 sg12 g18 sbag69 ag57 ag73 ag65 ag49 ag53 ag21 ag2 (g3 g4 (g17 S'Property' p102 ttRp103 (dp104 g9 g10 ((ltRp105 sg12 g18 sbag45 ag29 ag25 ag2 (g3 g4 (g17 g88 ttRp106 (dp107 g9 g10 ((ltRp108 sg12 g18 sbatRp109 sg102 g103 sg88 g106 sg94 g95 sg98 g99 sbsS'Keyword' p110 g2 (g3 g4 (g110 ttRp111 (dp112 g32 g2 (g3 g4 (g110 g32 ttRp113 (dp114 g9 g10 ((ltRp115 sg12 g111 sbsg12 g15 sg98 g2 (g3 g4 (g110 g98 ttRp116 (dp117 g9 g10 ((ltRp118 sg12 g111 sbsg36 g2 (g3 g4 (g110 g36 ttRp119 (dp120 g9 g10 ((ltRp121 sg12 g111 sbsS'Reserved' p122 g2 (g3 g4 (g110 g122 ttRp123 (dp124 g9 g10 ((ltRp125 sg12 g111 sbsS'Declaration' p126 g2 (g3 g4 (g110 g126 ttRp127 (dp128 g9 g10 ((ltRp129 sg12 g111 sbsg72 g2 (g3 g4 (g110 g72 ttRp130 (dp131 g9 g10 ((ltRp132 sg12 g111 sbsg9 g10 ((lp133 g113 ag123 ag2 (g3 g4 (g110 S'Type' p134 ttRp135 (dp136 g9 g10 ((ltRp137 sg12 g111 sbag127 ag130 ag116 ag119 atRp138 sg134 g135 sbsS'Generic' p139 g2 (g3 g4 (g139 ttRp140 (dp141 S'Prompt' p142 g2 (g3 g4 (g139 g142 ttRp143 (dp144 g9 g10 ((ltRp145 sg12 g140 sbsg12 g15 sS'Deleted' p146 g2 (g3 g4 (g139 g146 ttRp147 (dp148 g9 g10 ((ltRp149 sg12 g140 sbsS'Traceback' p150 g2 (g3 g4 (g139 g150 ttRp151 (dp152 g9 g10 ((ltRp153 sg12 g140 sbsS'Emph' p154 g2 (g3 g4 (g139 g154 ttRp155 (dp156 g9 g10 ((ltRp157 sg12 g140 sbsS'Output' p158 g2 (g3 g4 (g139 g158 ttRp159 (dp160 g9 g10 ((ltRp161 sg12 g140 sbsS'Subheading' p162 g2 (g3 g4 (g139 g162 ttRp163 (dp164 g9 g10 ((ltRp165 sg12 g140 sbsS'Error' p166 g2 (g3 g4 (g139 g166 ttRp167 (dp168 g9 g10 ((ltRp169 sg12 g140 sbsg9 g10 ((lp170 g159 ag155 ag167 ag163 ag151 ag147 ag2 (g3 g4 (g139 S'Heading' p171 ttRp172 (dp173 g9 g10 ((ltRp174 sg12 g140 sbag2 (g3 g4 (g139 S'Inserted' p175 ttRp176 (dp177 g9 g10 ((ltRp178 sg12 g140 sbag2 (g3 g4 (g139 S'Strong' p179 ttRp180 (dp181 g9 g10 ((ltRp182 sg12 g140 sbag143 atRp183 sg179 g180 sg175 g176 sg171 g172 sbsS'Text' p184 g2 (g3 g4 (g184 ttRp185 (dp186 g9 g10 ((lp187 g2 (g3 g4 (g184 S'Symbol' p188 ttRp189 (dp190 g9 g10 ((ltRp191 sg12 g185 sbag2 (g3 g4 (g184 S'Whitespace' p192 ttRp193 (dp194 g9 g10 ((ltRp195 sg12 g185 sbatRp196 sg188 g189 sg192 g193 sg12 g15 sbsS'Punctuation' p197 g2 (g3 g4 (g197 ttRp198 (dp199 g9 g10 ((lp200 g2 (g3 g4 (g197 S'Indicator' p201 ttRp202 (dp203 g9 g10 ((ltRp204 sg12 g198 sbatRp205 sg201 g202 sg12 g15 sbsS'Token' p206 g15 sS'Number' p207 g2 (g3 g4 (S'Literal' p208 g207 ttRp209 (dp210 S'Bin' p211 g2 (g3 g4 (g208 g207 g211 ttRp212 (dp213 g9 g10 ((ltRp214 sg12 g209 sbsS'Binary' p215 g2 (g3 g4 (g208 g207 g215 ttRp216 (dp217 g9 g10 ((ltRp218 sg12 g209 sbsg12 g2 (g3 g4 (g208 ttRp219 (dp220 S'String' p221 g2 (g3 g4 (g208 g221 ttRp222 (dp223 S'Regex' p224 g2 (g3 g4 (g208 g221 g224 ttRp225 (dp226 g9 g10 ((ltRp227 sg12 g222 sbsS'Interpol' p228 g2 (g3 g4 (g208 g221 g228 ttRp229 (dp230 g9 g10 ((ltRp231 sg12 g222 sbsS'Regexp' p232 g2 (g3 g4 (g208 g221 g232 ttRp233 (dp234 g9 g10 ((ltRp235 sg12 g222 sbsg12 g219 sS'Heredoc' p236 g2 (g3 g4 (g208 g221 g236 ttRp237 (dp238 g9 g10 ((ltRp239 sg12 g222 sbsS'Double' p240 g2 (g3 g4 (g208 g221 g240 ttRp241 (dp242 g9 g10 ((ltRp243 sg12 g222 sbsg188 g2 (g3 g4 (g208 g221 g188 ttRp244 (dp245 g9 g10 ((ltRp246 sg12 g222 sbsS'Escape' p247 g2 (g3 g4 (g208 g221 g247 ttRp248 (dp249 g9 g10 ((ltRp250 sg12 g222 sbsS'Character' p251 g2 (g3 g4 (g208 g221 g251 ttRp252 (dp253 g9 g10 ((ltRp254 sg12 g222 sbsS'Interp' p255 g2 (g3 g4 (g208 g221 g255 ttRp256 (dp257 g9 g10 ((ltRp258 sg12 g222 sbsS'Backtick' p259 g2 (g3 g4 (g208 g221 g259 ttRp260 (dp261 g9 g10 ((ltRp262 sg12 g222 sbsS'Char' p263 g2 (g3 g4 (g208 g221 g263 ttRp264 (dp265 g9 g10 ((ltRp266 sg12 g222 sbsg6 g2 (g3 g4 (g208 g221 g6 ttRp267 (dp268 g9 g10 ((ltRp269 sg12 g222 sbsg64 g2 (g3 g4 (g208 g221 g64 ttRp270 (dp271 g9 g10 ((ltRp272 sg12 g222 sbsS'Doc' p273 g2 (g3 g4 (g208 g221 g273 ttRp274 (dp275 g9 g10 ((ltRp276 sg12 g222 sbsg9 g10 ((lp277 g270 ag2 (g3 g4 (g208 g221 S'Atom' p278 ttRp279 (dp280 g9 g10 ((ltRp281 sg12 g222 sbag241 ag264 ag256 ag274 ag237 ag260 ag229 ag244 ag233 ag225 ag267 ag252 ag248 atRp282 sg278 g279 sbsg12 g15 sg207 g209 sS'Scalar' p283 g2 (g3 g4 (g208 g283 ttRp284 (dp285 g9 g10 ((lp286 g2 (g3 g4 (g208 g283 S'Plain' p287 ttRp288 (dp289 g9 g10 ((ltRp290 sg12 g284 sbatRp291 sg12 g219 sg287 g288 sbsg64 g2 (g3 g4 (g208 g64 ttRp292 (dp293 g9 g10 ((ltRp294 sg12 g219 sbsS'Date' p295 g2 (g3 g4 (g208 g295 ttRp296 (dp297 g9 g10 ((ltRp298 sg12 g219 sbsg9 g10 ((lp299 g296 ag222 ag292 ag209 ag284 atRp300 sbsS'Decimal' p301 g2 (g3 g4 (g208 g207 g301 ttRp302 (dp303 g9 g10 ((ltRp304 sg12 g209 sbsS'Float' p305 g2 (g3 g4 (g208 g207 g305 ttRp306 (dp307 g9 g10 ((ltRp308 sg12 g209 sbsS'Hex' p309 g2 (g3 g4 (g208 g207 g309 ttRp310 (dp311 g9 g10 ((ltRp312 sg12 g209 sbsS'Integer' p313 g2 (g3 g4 (g208 g207 g313 ttRp314 (dp315 g9 g10 ((lp316 g2 (g3 g4 (g208 g207 g313 S'Long' p317 ttRp318 (dp319 g9 g10 ((ltRp320 sg12 g314 sbatRp321 sg317 g318 sg12 g209 sbsS'Octal' p322 g2 (g3 g4 (g208 g207 g322 ttRp323 (dp324 g9 g10 ((ltRp325 sg12 g209 sbsg9 g10 ((lp326 g212 ag216 ag323 ag302 ag2 (g3 g4 (g208 g207 S'Oct' p327 ttRp328 (dp329 g9 g10 ((ltRp330 sg12 g209 sbag314 ag306 ag310 atRp331 sg327 g328 sbsg208 g219 sg64 g2 (g3 g4 (g64 ttRp332 (dp333 g9 g10 ((ltRp334 sg12 g15 sbsg166 g2 (g3 g4 (g166 ttRp335 (dp336 g9 g10 ((ltRp337 sg12 g15 sbsS'Operator' p338 g2 (g3 g4 (g338 ttRp339 (dp340 g9 g10 ((lp341 g2 (g3 g4 (g338 S'Word' p342 ttRp343 (dp344 g9 g10 ((ltRp345 sg12 g339 sbatRp346 sg342 g343 sg12 g15 sbsg9 g10 ((lp347 g13 ag335 ag140 ag185 ag18 ag198 ag111 ag219 ag339 ag332 atRp348 sg221 g222 sbsS'Preproc' p349 g2 (g3 g4 (g5 g349 ttRp350 (dp351 g9 g10 ((ltRp352 sg12 g13 sbsg6 g7 sS'Multiline' p353 g2 (g3 g4 (g5 g353 ttRp354 (dp355 g9 g10 ((ltRp356 sg12 g13 sbsg9 g10 ((lp357 g2 (g3 g4 (g5 S'Special' p358 ttRp359 (dp360 g9 g10 ((ltRp361 sg12 g13 sbag350 ag7 ag354 atRp362 sg358 g359 sbsbV// vim:ft=pascal p363 tp364 a(g185 V\u000a\u000a p365 tp366 a(g111 Vunit p367 tp368 a(g185 V tp369 a(g18 VYTools p370 tp371 a(g339 V; tp372 a(g185 V\u000a\u000a p373 tp374 a(g354 V{===============================================================================\u000a\u000a cYcnus.YTools 1.0.3 Beta for Delphi 4+\u000a by licenser and Murphy\u000a\u000a ©2000-2003 by cYcnus\u000a visit www.cYcnus.de\u000a\u000a licenser@cYcnus.de (Heinz N. Gies)\u000a murphy@cYcnus.de (Kornelius Kalnbach)\u000a \u000a this unit is published under the terms of the GPL\u000a\u000a===============================================================================} p375 tp376 a(g185 V\u000a\u000a p377 tp378 a(g111 Vinterface p379 tp380 a(g185 V\u000a\u000a p381 tp382 a(g111 Vuses p383 tp384 a(g185 V\u000a p385 tp386 a(g18 VWindows p387 tp388 a(g339 V, tp389 a(g185 V tp390 a(g18 VSysUtils p391 tp392 a(g339 V, tp393 a(g185 V tp394 a(g18 VClasses p395 tp396 a(g339 V, tp397 a(g185 V tp398 a(g18 VYTypes p399 tp400 a(g339 V; tp401 a(g185 V\u000a\u000a p402 tp403 a(g111 Vconst p404 tp405 a(g185 V\u000a p406 tp407 a(g18 VBackSpace p408 tp409 a(g185 V tp410 a(g339 V= tp411 a(g185 V tp412 a(g264 V#8 p413 tp414 a(g339 V; tp415 a(g185 V\u000a p416 tp417 a(g18 VTab p418 tp419 a(g185 V tp420 a(g339 V= tp421 a(g185 V tp422 a(g264 V#9 p423 tp424 a(g339 V; tp425 a(g185 V\u000a p426 tp427 a(g18 VLF p428 tp429 a(g185 V tp430 a(g339 V= tp431 a(g185 V tp432 a(g264 V#10 p433 tp434 a(g339 V; tp435 a(g185 V tp436 a(g7 V//Line Feed p437 tp438 a(g185 V\u000a p439 tp440 a(g18 VCR p441 tp442 a(g185 V tp443 a(g339 V= tp444 a(g185 V tp445 a(g264 V#13 p446 tp447 a(g339 V; tp448 a(g185 V tp449 a(g7 V//Carriage Return p450 tp451 a(g185 V\u000a p452 tp453 a(g18 VSpace p454 tp455 a(g185 V tp456 a(g339 V= tp457 a(g185 V tp458 a(g264 V#32 p459 tp460 a(g339 V; tp461 a(g185 V\u000a p462 tp463 a(g18 VEOLChars p464 tp465 a(g185 V tp466 a(g339 V= tp467 a(g185 V tp468 a(g198 V[ tp469 a(g18 VCR p470 tp471 a(g339 V, tp472 a(g185 V tp473 a(g18 VLF p474 tp475 a(g198 V] tp476 a(g339 V; tp477 a(g185 V\u000a tp478 a(g354 V{$IFNDEF VER140} p479 tp480 a(g185 V\u000a p481 tp482 a(g18 VsLineBreak p483 tp484 a(g185 V tp485 a(g339 V= tp486 a(g185 V tp487 a(g264 V#13 p488 tp489 a(g264 V#10 p490 tp491 a(g339 V; tp492 a(g185 V\u000a p493 tp494 a(g18 VSwitchChars p495 tp496 a(g185 V tp497 a(g339 V= tp498 a(g185 V tp499 a(g198 V[ tp500 a(g222 V' tp501 a(g222 V/ tp502 a(g222 V' tp503 a(g339 V, tp504 a(g185 V tp505 a(g222 V' tp506 a(g222 V- tp507 a(g222 V' tp508 a(g198 V] tp509 a(g339 V; tp510 a(g185 V\u000a tp511 a(g354 V{$ENDIF} p512 tp513 a(g185 V\u000a p514 tp515 a(g18 VEOL p516 tp517 a(g185 V tp518 a(g339 V= tp519 a(g185 V tp520 a(g18 VsLineBreak p521 tp522 a(g339 V; tp523 a(g185 V\u000a p524 tp525 a(g18 VMaxCard p526 tp527 a(g185 V tp528 a(g339 V= tp529 a(g185 V tp530 a(g57 VHigh p531 tp532 a(g198 V( tp533 a(g135 VCardinal p534 tp535 a(g198 V) tp536 a(g339 V; tp537 a(g185 V\u000a p538 tp539 a(g18 VAllChars p540 tp541 a(g185 V tp542 a(g339 V= tp543 a(g185 V tp544 a(g198 V[ tp545 a(g264 V#0 p546 tp547 a(g339 V. tp548 a(g339 V. tp549 a(g264 V#255 p550 tp551 a(g198 V] tp552 a(g339 V; tp553 a(g185 V\u000a p554 tp555 a(g18 VAlphabetical p556 tp557 a(g185 V tp558 a(g339 V= tp559 a(g185 V tp560 a(g198 V[ tp561 a(g222 V' tp562 a(g222 VA tp563 a(g222 V' tp564 a(g339 V. tp565 a(g339 V. tp566 a(g222 V' tp567 a(g222 VZ tp568 a(g222 V' tp569 a(g339 V, tp570 a(g185 V tp571 a(g222 V' tp572 a(g222 Va tp573 a(g222 V' tp574 a(g339 V. tp575 a(g339 V. tp576 a(g222 V' tp577 a(g222 Vz tp578 a(g222 V' tp579 a(g198 V] tp580 a(g339 V; tp581 a(g185 V\u000a p582 tp583 a(g18 VDecimalChars p584 tp585 a(g185 V tp586 a(g339 V= tp587 a(g185 V tp588 a(g198 V[ tp589 a(g222 V' tp590 a(g222 V0 tp591 a(g222 V' tp592 a(g339 V. tp593 a(g339 V. tp594 a(g222 V' tp595 a(g222 V9 tp596 a(g222 V' tp597 a(g198 V] tp598 a(g339 V; tp599 a(g185 V\u000a p600 tp601 a(g18 VAlphaNumerical p602 tp603 a(g185 V tp604 a(g339 V= tp605 a(g185 V tp606 a(g18 VAlphabetical p607 tp608 a(g185 V tp609 a(g339 V+ tp610 a(g185 V tp611 a(g18 VDecimalChars p612 tp613 a(g339 V; tp614 a(g185 V\u000a p615 tp616 a(g18 VStrangeChars p617 tp618 a(g185 V tp619 a(g339 V= tp620 a(g185 V tp621 a(g198 V[ tp622 a(g264 V#0 p623 tp624 a(g339 V. tp625 a(g339 V. tp626 a(g264 V#31 p627 tp628 a(g339 V, tp629 a(g185 V tp630 a(g264 V#127 p631 tp632 a(g339 V, tp633 a(g185 V tp634 a(g264 V#129 p635 tp636 a(g339 V, tp637 a(g185 V tp638 a(g264 V#141 p639 tp640 a(g339 V. tp641 a(g339 V. tp642 a(g264 V#144 p643 tp644 a(g339 V, tp645 a(g185 V tp646 a(g264 V#157 p647 tp648 a(g339 V, tp649 a(g185 V tp650 a(g264 V#158 p651 tp652 a(g198 V] tp653 a(g339 V; tp654 a(g185 V\u000a\u000a p655 tp656 a(g18 VHexadecimalChars p657 tp658 a(g185 V tp659 a(g339 V= tp660 a(g185 V tp661 a(g18 VDecimalChars p662 tp663 a(g185 V tp664 a(g339 V+ tp665 a(g185 V tp666 a(g198 V[ tp667 a(g222 V' tp668 a(g222 VA tp669 a(g222 V' tp670 a(g339 V. tp671 a(g339 V. tp672 a(g222 V' tp673 a(g222 VF tp674 a(g222 V' tp675 a(g339 V, tp676 a(g185 V tp677 a(g222 V' tp678 a(g222 Va tp679 a(g222 V' tp680 a(g339 V. tp681 a(g339 V. tp682 a(g222 V' tp683 a(g222 Vf tp684 a(g222 V' tp685 a(g198 V] tp686 a(g339 V; tp687 a(g185 V\u000a p688 tp689 a(g18 VOctalChars p690 tp691 a(g185 V tp692 a(g339 V= tp693 a(g185 V tp694 a(g198 V[ tp695 a(g222 V' tp696 a(g222 V0 tp697 a(g222 V' tp698 a(g339 V. tp699 a(g339 V. tp700 a(g222 V' tp701 a(g222 V7 tp702 a(g222 V' tp703 a(g198 V] tp704 a(g339 V; tp705 a(g185 V\u000a p706 tp707 a(g18 VBinaryChars p708 tp709 a(g185 V tp710 a(g339 V= tp711 a(g185 V tp712 a(g198 V[ tp713 a(g222 V' tp714 a(g222 V0 tp715 a(g222 V' tp716 a(g339 V, tp717 a(g185 V tp718 a(g222 V' tp719 a(g222 V1 tp720 a(g222 V' tp721 a(g198 V] tp722 a(g339 V; tp723 a(g185 V\u000a\u000a p724 tp725 a(g18 VQuoteChars p726 tp727 a(g185 V tp728 a(g339 V= tp729 a(g185 V tp730 a(g198 V[ tp731 a(g222 V' tp732 a(g248 V'' p733 tp734 a(g222 V' tp735 a(g339 V, tp736 a(g185 V tp737 a(g222 V' tp738 a(g222 V" tp739 a(g222 V' tp740 a(g198 V] tp741 a(g339 V; tp742 a(g185 V\u000a p743 tp744 a(g18 VWildCards p745 tp746 a(g185 V tp747 a(g339 V= tp748 a(g185 V tp749 a(g198 V[ tp750 a(g222 V' tp751 a(g222 V* tp752 a(g222 V' tp753 a(g339 V, tp754 a(g185 V tp755 a(g222 V' tp756 a(g222 V? tp757 a(g222 V' tp758 a(g198 V] tp759 a(g339 V; tp760 a(g185 V\u000a p761 tp762 a(g18 VFileNameEnemies p763 tp764 a(g185 V tp765 a(g339 V= tp766 a(g185 V tp767 a(g18 VWildCards p768 tp769 a(g185 V tp770 a(g339 V+ tp771 a(g185 V tp772 a(g198 V[ tp773 a(g222 V' tp774 a(g222 V\u005c tp775 a(g222 V' tp776 a(g339 V, tp777 a(g185 V tp778 a(g222 V' tp779 a(g222 V/ tp780 a(g222 V' tp781 a(g339 V, tp782 a(g185 V tp783 a(g222 V' tp784 a(g222 V: tp785 a(g222 V' tp786 a(g339 V, tp787 a(g185 V tp788 a(g222 V' tp789 a(g222 V< tp790 a(g222 V' tp791 a(g339 V, tp792 a(g185 V tp793 a(g222 V' tp794 a(g222 V> tp795 a(g222 V' tp796 a(g339 V, tp797 a(g185 V tp798 a(g222 V' tp799 a(g222 V| tp800 a(g222 V' tp801 a(g198 V] tp802 a(g339 V; tp803 a(g185 V\u000a\u000a p804 tp805 a(g18 VHexChar p806 tp807 a(g339 V: tp808 a(g185 V tp809 a(g111 Varray p810 tp811 a(g198 V[ tp812 a(g18 VTHex p813 tp814 a(g198 V] tp815 a(g185 V tp816 a(g111 Vof p817 tp818 a(g185 V tp819 a(g135 VChar p820 tp821 a(g185 V tp822 a(g339 V= tp823 a(g185 V tp824 a(g198 V( tp825 a(g185 V\u000a p826 tp827 a(g222 V' tp828 a(g222 V0 tp829 a(g222 V' tp830 a(g339 V, tp831 a(g222 V' tp832 a(g222 V1 tp833 a(g222 V' tp834 a(g339 V, tp835 a(g222 V' tp836 a(g222 V2 tp837 a(g222 V' tp838 a(g339 V, tp839 a(g222 V' tp840 a(g222 V3 tp841 a(g222 V' tp842 a(g339 V, tp843 a(g222 V' tp844 a(g222 V4 tp845 a(g222 V' tp846 a(g339 V, tp847 a(g222 V' tp848 a(g222 V5 tp849 a(g222 V' tp850 a(g339 V, tp851 a(g222 V' tp852 a(g222 V6 tp853 a(g222 V' tp854 a(g339 V, tp855 a(g222 V' tp856 a(g222 V7 tp857 a(g222 V' tp858 a(g339 V, tp859 a(g222 V' tp860 a(g222 V8 tp861 a(g222 V' tp862 a(g339 V, tp863 a(g222 V' tp864 a(g222 V9 tp865 a(g222 V' tp866 a(g339 V, tp867 a(g222 V' tp868 a(g222 VA tp869 a(g222 V' tp870 a(g339 V, tp871 a(g222 V' tp872 a(g222 VB tp873 a(g222 V' tp874 a(g339 V, tp875 a(g222 V' tp876 a(g222 VC tp877 a(g222 V' tp878 a(g339 V, tp879 a(g222 V' tp880 a(g222 VD tp881 a(g222 V' tp882 a(g339 V, tp883 a(g222 V' tp884 a(g222 VE tp885 a(g222 V' tp886 a(g339 V, tp887 a(g222 V' tp888 a(g222 VF tp889 a(g222 V' tp890 a(g198 V) tp891 a(g339 V; tp892 a(g185 V\u000a p893 tp894 a(g18 VLowerHexChar p895 tp896 a(g339 V: tp897 a(g185 V tp898 a(g111 Varray p899 tp900 a(g198 V[ tp901 a(g18 VTHex p902 tp903 a(g198 V] tp904 a(g185 V tp905 a(g111 Vof p906 tp907 a(g185 V tp908 a(g135 VChar p909 tp910 a(g185 V tp911 a(g339 V= tp912 a(g185 V tp913 a(g198 V( tp914 a(g185 V\u000a p915 tp916 a(g222 V' tp917 a(g222 V0 tp918 a(g222 V' tp919 a(g339 V, tp920 a(g222 V' tp921 a(g222 V1 tp922 a(g222 V' tp923 a(g339 V, tp924 a(g222 V' tp925 a(g222 V2 tp926 a(g222 V' tp927 a(g339 V, tp928 a(g222 V' tp929 a(g222 V3 tp930 a(g222 V' tp931 a(g339 V, tp932 a(g222 V' tp933 a(g222 V4 tp934 a(g222 V' tp935 a(g339 V, tp936 a(g222 V' tp937 a(g222 V5 tp938 a(g222 V' tp939 a(g339 V, tp940 a(g222 V' tp941 a(g222 V6 tp942 a(g222 V' tp943 a(g339 V, tp944 a(g222 V' tp945 a(g222 V7 tp946 a(g222 V' tp947 a(g339 V, tp948 a(g222 V' tp949 a(g222 V8 tp950 a(g222 V' tp951 a(g339 V, tp952 a(g222 V' tp953 a(g222 V9 tp954 a(g222 V' tp955 a(g339 V, tp956 a(g222 V' tp957 a(g222 Va tp958 a(g222 V' tp959 a(g339 V, tp960 a(g222 V' tp961 a(g222 Vb tp962 a(g222 V' tp963 a(g339 V, tp964 a(g222 V' tp965 a(g222 Vc tp966 a(g222 V' tp967 a(g339 V, tp968 a(g222 V' tp969 a(g222 Vd tp970 a(g222 V' tp971 a(g339 V, tp972 a(g222 V' tp973 a(g222 Ve tp974 a(g222 V' tp975 a(g339 V, tp976 a(g222 V' tp977 a(g222 Vf tp978 a(g222 V' tp979 a(g198 V) tp980 a(g339 V; tp981 a(g185 V\u000a p982 tp983 a(g18 VBaseNChar p984 tp985 a(g339 V: tp986 a(g185 V tp987 a(g111 Varray p988 tp989 a(g198 V[ tp990 a(g18 VTBaseN p991 tp992 a(g198 V] tp993 a(g185 V tp994 a(g111 Vof p995 tp996 a(g185 V tp997 a(g135 VChar p998 tp999 a(g185 V tp1000 a(g339 V= tp1001 a(g185 V tp1002 a(g198 V( tp1003 a(g185 V\u000a p1004 tp1005 a(g222 V' tp1006 a(g222 V0 tp1007 a(g222 V' tp1008 a(g339 V, tp1009 a(g222 V' tp1010 a(g222 V1 tp1011 a(g222 V' tp1012 a(g339 V, tp1013 a(g222 V' tp1014 a(g222 V2 tp1015 a(g222 V' tp1016 a(g339 V, tp1017 a(g222 V' tp1018 a(g222 V3 tp1019 a(g222 V' tp1020 a(g339 V, tp1021 a(g222 V' tp1022 a(g222 V4 tp1023 a(g222 V' tp1024 a(g339 V, tp1025 a(g222 V' tp1026 a(g222 V5 tp1027 a(g222 V' tp1028 a(g339 V, tp1029 a(g222 V' tp1030 a(g222 V6 tp1031 a(g222 V' tp1032 a(g339 V, tp1033 a(g222 V' tp1034 a(g222 V7 tp1035 a(g222 V' tp1036 a(g339 V, tp1037 a(g222 V' tp1038 a(g222 V8 tp1039 a(g222 V' tp1040 a(g339 V, tp1041 a(g222 V' tp1042 a(g222 V9 tp1043 a(g222 V' tp1044 a(g339 V, tp1045 a(g222 V' tp1046 a(g222 VA tp1047 a(g222 V' tp1048 a(g339 V, tp1049 a(g222 V' tp1050 a(g222 VB tp1051 a(g222 V' tp1052 a(g339 V, tp1053 a(g222 V' tp1054 a(g222 VC tp1055 a(g222 V' tp1056 a(g339 V, tp1057 a(g222 V' tp1058 a(g222 VD tp1059 a(g222 V' tp1060 a(g339 V, tp1061 a(g222 V' tp1062 a(g222 VE tp1063 a(g222 V' tp1064 a(g339 V, tp1065 a(g222 V' tp1066 a(g222 VF tp1067 a(g222 V' tp1068 a(g339 V, tp1069 a(g222 V' tp1070 a(g222 VG tp1071 a(g222 V' tp1072 a(g339 V, tp1073 a(g222 V' tp1074 a(g222 VH tp1075 a(g222 V' tp1076 a(g339 V, tp1077 a(g185 V\u000a p1078 tp1079 a(g222 V' tp1080 a(g222 VI tp1081 a(g222 V' tp1082 a(g339 V, tp1083 a(g222 V' tp1084 a(g222 VJ tp1085 a(g222 V' tp1086 a(g339 V, tp1087 a(g222 V' tp1088 a(g222 VK tp1089 a(g222 V' tp1090 a(g339 V, tp1091 a(g222 V' tp1092 a(g222 VL tp1093 a(g222 V' tp1094 a(g339 V, tp1095 a(g222 V' tp1096 a(g222 VM tp1097 a(g222 V' tp1098 a(g339 V, tp1099 a(g222 V' tp1100 a(g222 VN tp1101 a(g222 V' tp1102 a(g339 V, tp1103 a(g222 V' tp1104 a(g222 VO tp1105 a(g222 V' tp1106 a(g339 V, tp1107 a(g222 V' tp1108 a(g222 VP tp1109 a(g222 V' tp1110 a(g339 V, tp1111 a(g222 V' tp1112 a(g222 VQ tp1113 a(g222 V' tp1114 a(g339 V, tp1115 a(g222 V' tp1116 a(g222 VR tp1117 a(g222 V' tp1118 a(g339 V, tp1119 a(g222 V' tp1120 a(g222 VS tp1121 a(g222 V' tp1122 a(g339 V, tp1123 a(g222 V' tp1124 a(g222 VT tp1125 a(g222 V' tp1126 a(g339 V, tp1127 a(g222 V' tp1128 a(g222 VU tp1129 a(g222 V' tp1130 a(g339 V, tp1131 a(g222 V' tp1132 a(g222 VV tp1133 a(g222 V' tp1134 a(g339 V, tp1135 a(g222 V' tp1136 a(g222 VW tp1137 a(g222 V' tp1138 a(g339 V, tp1139 a(g222 V' tp1140 a(g222 VX tp1141 a(g222 V' tp1142 a(g339 V, tp1143 a(g222 V' tp1144 a(g222 VY tp1145 a(g222 V' tp1146 a(g339 V, tp1147 a(g222 V' tp1148 a(g222 VZ tp1149 a(g222 V' tp1150 a(g198 V) tp1151 a(g339 V; tp1152 a(g185 V\u000a\u000a p1153 tp1154 a(g18 VcYcnusOverlayColor p1155 tp1156 a(g185 V tp1157 a(g339 V= tp1158 a(g185 V tp1159 a(g310 V$050001 p1160 tp1161 a(g339 V; tp1162 a(g185 V\u000a\u000a p1163 tp1164 a(g18 VfaFindEveryFile p1165 tp1166 a(g185 V tp1167 a(g339 V= tp1168 a(g185 V tp1169 a(g18 VfaReadOnly p1170 tp1171 a(g185 V tp1172 a(g339 V+ tp1173 a(g185 V tp1174 a(g18 VfaHidden p1175 tp1176 a(g185 V tp1177 a(g339 V+ tp1178 a(g185 V tp1179 a(g18 VfaSysFile p1180 tp1181 a(g185 V tp1182 a(g339 V+ tp1183 a(g185 V tp1184 a(g18 VfaArchive p1185 tp1186 a(g339 V; tp1187 a(g185 V\u000a\u000a p1188 tp1189 a(g18 VplatWin9x p1190 tp1191 a(g185 V tp1192 a(g339 V= tp1193 a(g185 V tp1194 a(g198 V[ tp1195 a(g18 VVER_PLATFORM_WIN32s p1196 tp1197 a(g339 V, tp1198 a(g185 V tp1199 a(g18 VVER_PLATFORM_WIN32_WINDOWS p1200 tp1201 a(g198 V] tp1202 a(g339 V; tp1203 a(g185 V\u000a\u000a\u000a p1204 tp1205 a(g354 V{ Debugging } p1206 tp1207 a(g185 V\u000a tp1208 a(g111 Vprocedure p1209 tp1210 a(g185 V tp1211 a(g21 VClearReport p1212 tp1213 a(g198 V( tp1214 a(g111 Vconst p1215 tp1216 a(g185 V tp1217 a(g18 VReportName p1218 tp1219 a(g339 V: tp1220 a(g185 V tp1221 a(g111 Vstring p1222 tp1223 a(g198 V) tp1224 a(g339 V; tp1225 a(g185 V\u000a tp1226 a(g111 Vprocedure p1227 tp1228 a(g185 V tp1229 a(g21 VReport p1230 tp1231 a(g198 V( tp1232 a(g111 Vconst p1233 tp1234 a(g185 V tp1235 a(g18 VReportName p1236 tp1237 a(g339 V, tp1238 a(g185 V tp1239 a(g18 VText p1240 tp1241 a(g339 V: tp1242 a(g185 V tp1243 a(g111 Vstring p1244 tp1245 a(g198 V) tp1246 a(g339 V; tp1247 a(g185 V\u000a tp1248 a(g111 Vprocedure p1249 tp1250 a(g185 V tp1251 a(g21 VReportFmt p1252 tp1253 a(g198 V( tp1254 a(g111 Vconst p1255 tp1256 a(g185 V tp1257 a(g18 VReportName p1258 tp1259 a(g339 V, tp1260 a(g185 V tp1261 a(g18 VFmt p1262 tp1263 a(g339 V: tp1264 a(g185 V tp1265 a(g111 Vstring p1266 tp1267 a(g339 V; tp1268 a(g185 V tp1269 a(g111 Vconst p1270 tp1271 a(g185 V tp1272 a(g18 VArgs p1273 tp1274 a(g339 V: tp1275 a(g185 V tp1276 a(g111 Varray p1277 tp1278 a(g185 V tp1279 a(g111 Vof p1280 tp1281 a(g185 V tp1282 a(g111 Vconst p1283 tp1284 a(g198 V) tp1285 a(g339 V; tp1286 a(g185 V\u000a\u000a p1287 tp1288 a(g354 V{ Params } p1289 tp1290 a(g185 V\u000a tp1291 a(g111 Vprocedure p1292 tp1293 a(g185 V tp1294 a(g21 VGetParams p1295 tp1296 a(g198 V( tp1297 a(g18 VStrings p1298 tp1299 a(g339 V: tp1300 a(g185 V tp1301 a(g18 VTStrings p1302 tp1303 a(g198 V) tp1304 a(g339 V; tp1305 a(g185 V tp1306 a(g18 Voverload p1307 tp1308 a(g339 V; tp1309 a(g185 V\u000a tp1310 a(g111 Vfunction p1311 tp1312 a(g185 V tp1313 a(g21 VGetParams p1314 tp1315 a(g198 V( tp1316 a(g111 Vconst p1317 tp1318 a(g185 V tp1319 a(g18 VSeparator p1320 tp1321 a(g339 V: tp1322 a(g185 V tp1323 a(g111 Vstring p1324 tp1325 a(g185 V tp1326 a(g339 V= tp1327 a(g185 V tp1328 a(g222 V' tp1329 a(g222 V tp1330 a(g222 V' tp1331 a(g198 V) tp1332 a(g339 V: tp1333 a(g185 V tp1334 a(g111 Vstring p1335 tp1336 a(g339 V; tp1337 a(g185 V tp1338 a(g18 Voverload p1339 tp1340 a(g339 V; tp1341 a(g185 V\u000a\u000a p1342 tp1343 a(g111 Vfunction p1344 tp1345 a(g185 V tp1346 a(g21 VParamNum p1347 tp1348 a(g198 V( tp1349 a(g111 Vconst p1350 tp1351 a(g185 V tp1352 a(g18 VS tp1353 a(g339 V: tp1354 a(g185 V tp1355 a(g111 Vstring p1356 tp1357 a(g198 V) tp1358 a(g339 V: tp1359 a(g185 V tp1360 a(g135 VInteger p1361 tp1362 a(g339 V; tp1363 a(g185 V\u000a tp1364 a(g111 Vfunction p1365 tp1366 a(g185 V tp1367 a(g21 VParamPrefixNum p1368 tp1369 a(g198 V( tp1370 a(g111 Vconst p1371 tp1372 a(g185 V tp1373 a(g18 VPrefix p1374 tp1375 a(g339 V: tp1376 a(g185 V tp1377 a(g111 Vstring p1378 tp1379 a(g198 V) tp1380 a(g339 V: tp1381 a(g185 V tp1382 a(g135 VInteger p1383 tp1384 a(g339 V; tp1385 a(g185 V\u000a tp1386 a(g111 Vfunction p1387 tp1388 a(g185 V tp1389 a(g21 VParam p1390 tp1391 a(g198 V( tp1392 a(g111 Vconst p1393 tp1394 a(g185 V tp1395 a(g18 VS tp1396 a(g339 V: tp1397 a(g185 V tp1398 a(g111 Vstring p1399 tp1400 a(g198 V) tp1401 a(g339 V: tp1402 a(g185 V tp1403 a(g135 VBoolean p1404 tp1405 a(g339 V; tp1406 a(g185 V\u000a tp1407 a(g111 Vfunction p1408 tp1409 a(g185 V tp1410 a(g21 VParamPrefix p1411 tp1412 a(g198 V( tp1413 a(g111 Vconst p1414 tp1415 a(g185 V tp1416 a(g18 VPrefix p1417 tp1418 a(g339 V: tp1419 a(g185 V tp1420 a(g111 Vstring p1421 tp1422 a(g198 V) tp1423 a(g339 V: tp1424 a(g185 V tp1425 a(g135 VBoolean p1426 tp1427 a(g339 V; tp1428 a(g185 V\u000a\u000a p1429 tp1430 a(g111 Vfunction p1431 tp1432 a(g185 V tp1433 a(g21 VSwitch p1434 tp1435 a(g198 V( tp1436 a(g111 Vconst p1437 tp1438 a(g185 V tp1439 a(g18 VSwitch p1440 tp1441 a(g339 V: tp1442 a(g185 V tp1443 a(g111 Vstring p1444 tp1445 a(g339 V; tp1446 a(g185 V tp1447 a(g111 Vconst p1448 tp1449 a(g185 V tp1450 a(g18 VPrefixChars p1451 tp1452 a(g339 V: tp1453 a(g185 V tp1454 a(g18 VTCharSet p1455 tp1456 a(g185 V tp1457 a(g339 V= tp1458 a(g185 V tp1459 a(g18 VSwitchChars p1460 tp1461 a(g339 V; tp1462 a(g185 V\u000a p1463 tp1464 a(g18 VIgnoreCase p1465 tp1466 a(g339 V: tp1467 a(g185 V tp1468 a(g135 VBoolean p1469 tp1470 a(g185 V tp1471 a(g339 V= tp1472 a(g185 V tp1473 a(g111 VTrue p1474 tp1475 a(g198 V) tp1476 a(g339 V: tp1477 a(g185 V tp1478 a(g135 VBoolean p1479 tp1480 a(g339 V; tp1481 a(g185 V\u000a tp1482 a(g111 Vfunction p1483 tp1484 a(g185 V tp1485 a(g21 VGetParam p1486 tp1487 a(g198 V( tp1488 a(g111 Vconst p1489 tp1490 a(g185 V tp1491 a(g18 VPrefix p1492 tp1493 a(g339 V: tp1494 a(g185 V tp1495 a(g111 Vstring p1496 tp1497 a(g185 V tp1498 a(g339 V= tp1499 a(g185 V tp1500 a(g222 V' tp1501 a(g222 V' tp1502 a(g339 V; tp1503 a(g185 V tp1504 a(g111 Vconst p1505 tp1506 a(g185 V tp1507 a(g119 VDefault p1508 tp1509 a(g339 V: tp1510 a(g185 V tp1511 a(g111 Vstring p1512 tp1513 a(g185 V tp1514 a(g339 V= tp1515 a(g185 V tp1516 a(g222 V' tp1517 a(g222 V' tp1518 a(g198 V) tp1519 a(g339 V: tp1520 a(g185 V tp1521 a(g111 Vstring p1522 tp1523 a(g339 V; tp1524 a(g185 V\u000a\u000a p1525 tp1526 a(g354 V{ Dirs & UserName} p1527 tp1528 a(g185 V\u000a tp1529 a(g111 Vfunction p1530 tp1531 a(g185 V tp1532 a(g21 VGetMyDir p1533 tp1534 a(g198 V( tp1535 a(g18 VFullPath p1536 tp1537 a(g339 V: tp1538 a(g185 V tp1539 a(g135 VBoolean p1540 tp1541 a(g185 V tp1542 a(g339 V= tp1543 a(g185 V tp1544 a(g111 VFalse p1545 tp1546 a(g198 V) tp1547 a(g339 V: tp1548 a(g185 V tp1549 a(g111 Vstring p1550 tp1551 a(g339 V; tp1552 a(g185 V\u000a tp1553 a(g111 Vfunction p1554 tp1555 a(g185 V tp1556 a(g21 VWinDir p1557 tp1558 a(g339 V: tp1559 a(g185 V tp1560 a(g111 Vstring p1561 tp1562 a(g339 V; tp1563 a(g185 V\u000a tp1564 a(g111 Vfunction p1565 tp1566 a(g185 V tp1567 a(g21 VSysDir p1568 tp1569 a(g339 V: tp1570 a(g185 V tp1571 a(g111 Vstring p1572 tp1573 a(g339 V; tp1574 a(g185 V\u000a tp1575 a(g111 Vfunction p1576 tp1577 a(g185 V tp1578 a(g21 VUserName p1579 tp1580 a(g339 V: tp1581 a(g185 V tp1582 a(g111 Vstring p1583 tp1584 a(g339 V; tp1585 a(g185 V\u000a\u000a p1586 tp1587 a(g354 V{ Strings & Chars} p1588 tp1589 a(g185 V\u000a tp1590 a(g111 Vfunction p1591 tp1592 a(g185 V tp1593 a(g21 VFirstChar p1594 tp1595 a(g198 V( tp1596 a(g111 Vconst p1597 tp1598 a(g185 V tp1599 a(g18 VS tp1600 a(g339 V: tp1601 a(g185 V tp1602 a(g111 Vstring p1603 tp1604 a(g198 V) tp1605 a(g339 V: tp1606 a(g185 V tp1607 a(g135 VChar p1608 tp1609 a(g339 V; tp1610 a(g185 V\u000a tp1611 a(g111 Vfunction p1612 tp1613 a(g185 V tp1614 a(g21 VLastChar p1615 tp1616 a(g198 V( tp1617 a(g111 Vconst p1618 tp1619 a(g185 V tp1620 a(g18 VS tp1621 a(g339 V: tp1622 a(g185 V tp1623 a(g111 Vstring p1624 tp1625 a(g198 V) tp1626 a(g339 V: tp1627 a(g185 V tp1628 a(g135 VChar p1629 tp1630 a(g339 V; tp1631 a(g185 V\u000a\u000a p1632 tp1633 a(g111 Vfunction p1634 tp1635 a(g185 V tp1636 a(g21 VCharPos p1637 tp1638 a(g198 V( tp1639 a(g18 VC tp1640 a(g339 V: tp1641 a(g185 V tp1642 a(g135 VChar p1643 tp1644 a(g339 V; tp1645 a(g185 V tp1646 a(g111 Vconst p1647 tp1648 a(g185 V tp1649 a(g18 VS tp1650 a(g339 V: tp1651 a(g185 V tp1652 a(g111 Vstring p1653 tp1654 a(g339 V; tp1655 a(g185 V tp1656 a(g18 VOffset p1657 tp1658 a(g339 V: tp1659 a(g185 V tp1660 a(g135 VInteger p1661 tp1662 a(g185 V tp1663 a(g339 V= tp1664 a(g185 V tp1665 a(g314 V1 tp1666 a(g198 V) tp1667 a(g339 V: tp1668 a(g185 V tp1669 a(g135 VInteger p1670 tp1671 a(g339 V; tp1672 a(g185 V tp1673 a(g18 Voverload p1674 tp1675 a(g339 V; tp1676 a(g185 V\u000a tp1677 a(g111 Vfunction p1678 tp1679 a(g185 V tp1680 a(g21 VCharPos p1681 tp1682 a(g198 V( tp1683 a(g18 VC tp1684 a(g339 V: tp1685 a(g185 V tp1686 a(g18 VTCharSet p1687 tp1688 a(g339 V; tp1689 a(g185 V tp1690 a(g111 Vconst p1691 tp1692 a(g185 V tp1693 a(g18 VS tp1694 a(g339 V: tp1695 a(g185 V tp1696 a(g111 Vstring p1697 tp1698 a(g339 V; tp1699 a(g185 V tp1700 a(g18 VOffset p1701 tp1702 a(g339 V: tp1703 a(g185 V tp1704 a(g135 VInteger p1705 tp1706 a(g185 V tp1707 a(g339 V= tp1708 a(g185 V tp1709 a(g314 V1 tp1710 a(g198 V) tp1711 a(g339 V: tp1712 a(g185 V tp1713 a(g135 VInteger p1714 tp1715 a(g339 V; tp1716 a(g185 V tp1717 a(g18 Voverload p1718 tp1719 a(g339 V; tp1720 a(g185 V\u000a tp1721 a(g111 Vfunction p1722 tp1723 a(g185 V tp1724 a(g21 VCharPosR p1725 tp1726 a(g198 V( tp1727 a(g18 VC tp1728 a(g339 V: tp1729 a(g185 V tp1730 a(g135 VChar p1731 tp1732 a(g339 V; tp1733 a(g185 V tp1734 a(g111 Vconst p1735 tp1736 a(g185 V tp1737 a(g18 VS tp1738 a(g339 V: tp1739 a(g185 V tp1740 a(g111 Vstring p1741 tp1742 a(g339 V; tp1743 a(g185 V tp1744 a(g18 VOffset p1745 tp1746 a(g339 V: tp1747 a(g185 V tp1748 a(g135 VInteger p1749 tp1750 a(g185 V tp1751 a(g339 V= tp1752 a(g185 V tp1753 a(g339 V- tp1754 a(g314 V1 tp1755 a(g198 V) tp1756 a(g339 V: tp1757 a(g185 V tp1758 a(g135 VInteger p1759 tp1760 a(g339 V; tp1761 a(g185 V\u000a tp1762 a(g111 Vfunction p1763 tp1764 a(g185 V tp1765 a(g21 VPosEx p1766 tp1767 a(g198 V( tp1768 a(g111 Vconst p1769 tp1770 a(g185 V tp1771 a(g18 VSubStr p1772 tp1773 a(g339 V, tp1774 a(g185 V tp1775 a(g18 VS tp1776 a(g339 V: tp1777 a(g185 V tp1778 a(g111 Vstring p1779 tp1780 a(g339 V; tp1781 a(g185 V tp1782 a(g18 VOffset p1783 tp1784 a(g339 V: tp1785 a(g185 V tp1786 a(g135 VInteger p1787 tp1788 a(g185 V tp1789 a(g339 V= tp1790 a(g185 V tp1791 a(g314 V1 tp1792 a(g198 V) tp1793 a(g339 V: tp1794 a(g185 V tp1795 a(g135 VInteger p1796 tp1797 a(g339 V; tp1798 a(g185 V\u000a tp1799 a(g111 Vfunction p1800 tp1801 a(g185 V tp1802 a(g21 VPosExText p1803 tp1804 a(g198 V( tp1805 a(g111 Vconst p1806 tp1807 a(g185 V tp1808 a(g18 VSubStr p1809 tp1810 a(g339 V, tp1811 a(g185 V tp1812 a(g18 VS tp1813 a(g339 V: tp1814 a(g185 V tp1815 a(g111 Vstring p1816 tp1817 a(g339 V; tp1818 a(g185 V tp1819 a(g18 VOffset p1820 tp1821 a(g339 V: tp1822 a(g185 V tp1823 a(g135 VInteger p1824 tp1825 a(g185 V tp1826 a(g339 V= tp1827 a(g185 V tp1828 a(g314 V1 tp1829 a(g198 V) tp1830 a(g339 V: tp1831 a(g185 V tp1832 a(g135 VInteger p1833 tp1834 a(g339 V; tp1835 a(g185 V\u000a tp1836 a(g111 Vfunction p1837 tp1838 a(g185 V tp1839 a(g21 VPosExAnsiText p1840 tp1841 a(g198 V( tp1842 a(g111 Vconst p1843 tp1844 a(g185 V tp1845 a(g18 VSubStr p1846 tp1847 a(g339 V, tp1848 a(g185 V tp1849 a(g18 VS tp1850 a(g339 V: tp1851 a(g185 V tp1852 a(g111 Vstring p1853 tp1854 a(g339 V; tp1855 a(g185 V tp1856 a(g18 VOffset p1857 tp1858 a(g339 V: tp1859 a(g185 V tp1860 a(g135 VInteger p1861 tp1862 a(g185 V tp1863 a(g339 V= tp1864 a(g185 V tp1865 a(g314 V1 tp1866 a(g198 V) tp1867 a(g339 V: tp1868 a(g185 V tp1869 a(g135 VInteger p1870 tp1871 a(g339 V; tp1872 a(g185 V\u000a\u000a p1873 tp1874 a(g111 Vfunction p1875 tp1876 a(g185 V tp1877 a(g21 VUntilChar p1878 tp1879 a(g198 V( tp1880 a(g111 Vconst p1881 tp1882 a(g185 V tp1883 a(g18 VS tp1884 a(g339 V: tp1885 a(g185 V tp1886 a(g111 Vstring p1887 tp1888 a(g339 V; tp1889 a(g185 V tp1890 a(g18 VBrake p1891 tp1892 a(g339 V: tp1893 a(g185 V tp1894 a(g135 VChar p1895 tp1896 a(g198 V) tp1897 a(g339 V: tp1898 a(g185 V tp1899 a(g111 Vstring p1900 tp1901 a(g339 V; tp1902 a(g185 V tp1903 a(g18 Voverload p1904 tp1905 a(g339 V; tp1906 a(g185 V\u000a tp1907 a(g111 Vfunction p1908 tp1909 a(g185 V tp1910 a(g21 VUntilChar p1911 tp1912 a(g198 V( tp1913 a(g111 Vconst p1914 tp1915 a(g185 V tp1916 a(g18 VS tp1917 a(g339 V: tp1918 a(g185 V tp1919 a(g111 Vstring p1920 tp1921 a(g339 V; tp1922 a(g185 V tp1923 a(g18 VBrake p1924 tp1925 a(g339 V: tp1926 a(g185 V tp1927 a(g18 VTCharSet p1928 tp1929 a(g198 V) tp1930 a(g339 V: tp1931 a(g185 V tp1932 a(g111 Vstring p1933 tp1934 a(g339 V; tp1935 a(g185 V tp1936 a(g18 Voverload p1937 tp1938 a(g339 V; tp1939 a(g185 V\u000a tp1940 a(g111 Vfunction p1941 tp1942 a(g185 V tp1943 a(g21 VUntilLastChar p1944 tp1945 a(g198 V( tp1946 a(g111 Vconst p1947 tp1948 a(g185 V tp1949 a(g18 VS tp1950 a(g339 V: tp1951 a(g185 V tp1952 a(g111 Vstring p1953 tp1954 a(g339 V; tp1955 a(g185 V tp1956 a(g18 VBrake p1957 tp1958 a(g339 V: tp1959 a(g185 V tp1960 a(g135 VChar p1961 tp1962 a(g339 V; tp1963 a(g185 V\u000a p1964 tp1965 a(g18 VIgnoreNoBrake p1966 tp1967 a(g339 V: tp1968 a(g185 V tp1969 a(g135 VBoolean p1970 tp1971 a(g185 V tp1972 a(g339 V= tp1973 a(g185 V tp1974 a(g111 VTrue p1975 tp1976 a(g198 V) tp1977 a(g339 V: tp1978 a(g185 V tp1979 a(g111 Vstring p1980 tp1981 a(g339 V; tp1982 a(g185 V\u000a\u000a p1983 tp1984 a(g111 Vfunction p1985 tp1986 a(g185 V tp1987 a(g21 VFromChar p1988 tp1989 a(g198 V( tp1990 a(g111 Vconst p1991 tp1992 a(g185 V tp1993 a(g18 VS tp1994 a(g339 V: tp1995 a(g185 V tp1996 a(g111 Vstring p1997 tp1998 a(g339 V; tp1999 a(g185 V tp2000 a(g18 VBrake p2001 tp2002 a(g339 V: tp2003 a(g185 V tp2004 a(g135 VChar p2005 tp2006 a(g198 V) tp2007 a(g339 V: tp2008 a(g185 V tp2009 a(g111 Vstring p2010 tp2011 a(g339 V; tp2012 a(g185 V tp2013 a(g18 Voverload p2014 tp2015 a(g339 V; tp2016 a(g185 V\u000a tp2017 a(g111 Vfunction p2018 tp2019 a(g185 V tp2020 a(g21 VFromChar p2021 tp2022 a(g198 V( tp2023 a(g111 Vconst p2024 tp2025 a(g185 V tp2026 a(g18 VS tp2027 a(g339 V: tp2028 a(g185 V tp2029 a(g111 Vstring p2030 tp2031 a(g339 V; tp2032 a(g185 V tp2033 a(g18 VBrake p2034 tp2035 a(g339 V: tp2036 a(g185 V tp2037 a(g18 VTCharSet p2038 tp2039 a(g198 V) tp2040 a(g339 V: tp2041 a(g185 V tp2042 a(g111 Vstring p2043 tp2044 a(g339 V; tp2045 a(g185 V tp2046 a(g18 Voverload p2047 tp2048 a(g339 V; tp2049 a(g185 V\u000a tp2050 a(g111 Vfunction p2051 tp2052 a(g185 V tp2053 a(g21 VFromLastChar p2054 tp2055 a(g198 V( tp2056 a(g111 Vconst p2057 tp2058 a(g185 V tp2059 a(g18 VS tp2060 a(g339 V: tp2061 a(g185 V tp2062 a(g111 Vstring p2063 tp2064 a(g339 V; tp2065 a(g185 V tp2066 a(g18 VBrake p2067 tp2068 a(g339 V: tp2069 a(g185 V tp2070 a(g135 VChar p2071 tp2072 a(g339 V; tp2073 a(g185 V\u000a p2074 tp2075 a(g18 VIgnoreNoBrake p2076 tp2077 a(g339 V: tp2078 a(g185 V tp2079 a(g135 VBoolean p2080 tp2081 a(g185 V tp2082 a(g339 V= tp2083 a(g185 V tp2084 a(g111 VFalse p2085 tp2086 a(g198 V) tp2087 a(g339 V: tp2088 a(g185 V tp2089 a(g111 Vstring p2090 tp2091 a(g339 V; tp2092 a(g185 V\u000a\u000a p2093 tp2094 a(g111 Vfunction p2095 tp2096 a(g185 V tp2097 a(g21 VBetweenChars p2098 tp2099 a(g198 V( tp2100 a(g111 Vconst p2101 tp2102 a(g185 V tp2103 a(g18 VS tp2104 a(g339 V: tp2105 a(g185 V tp2106 a(g111 Vstring p2107 tp2108 a(g339 V; tp2109 a(g185 V tp2110 a(g18 VStart p2111 tp2112 a(g339 V, tp2113 a(g185 V tp2114 a(g18 VFinish p2115 tp2116 a(g339 V: tp2117 a(g185 V tp2118 a(g135 VChar p2119 tp2120 a(g339 V; tp2121 a(g185 V\u000a p2122 tp2123 a(g18 VInclusive p2124 tp2125 a(g339 V: tp2126 a(g185 V tp2127 a(g135 VBoolean p2128 tp2129 a(g185 V tp2130 a(g339 V= tp2131 a(g185 V tp2132 a(g111 VFalse p2133 tp2134 a(g198 V) tp2135 a(g339 V: tp2136 a(g185 V tp2137 a(g111 Vstring p2138 tp2139 a(g339 V; tp2140 a(g185 V\u000a\u000a p2141 tp2142 a(g111 Vfunction p2143 tp2144 a(g185 V tp2145 a(g21 VUntilStr p2146 tp2147 a(g198 V( tp2148 a(g111 Vconst p2149 tp2150 a(g185 V tp2151 a(g18 VS tp2152 a(g339 V: tp2153 a(g185 V tp2154 a(g111 Vstring p2155 tp2156 a(g339 V; tp2157 a(g185 V tp2158 a(g18 VBrake p2159 tp2160 a(g339 V: tp2161 a(g185 V tp2162 a(g111 Vstring p2163 tp2164 a(g198 V) tp2165 a(g339 V: tp2166 a(g185 V tp2167 a(g111 Vstring p2168 tp2169 a(g339 V; tp2170 a(g185 V\u000a tp2171 a(g111 Vfunction p2172 tp2173 a(g185 V tp2174 a(g21 VFromStr p2175 tp2176 a(g198 V( tp2177 a(g111 Vconst p2178 tp2179 a(g185 V tp2180 a(g18 VS tp2181 a(g339 V: tp2182 a(g185 V tp2183 a(g111 Vstring p2184 tp2185 a(g339 V; tp2186 a(g185 V tp2187 a(g18 VBrake p2188 tp2189 a(g339 V: tp2190 a(g185 V tp2191 a(g111 Vstring p2192 tp2193 a(g198 V) tp2194 a(g339 V: tp2195 a(g185 V tp2196 a(g111 Vstring p2197 tp2198 a(g339 V; tp2199 a(g185 V\u000a\u000a p2200 tp2201 a(g111 Vfunction p2202 tp2203 a(g185 V tp2204 a(g21 VStringWrap p2205 tp2206 a(g198 V( tp2207 a(g111 Vconst p2208 tp2209 a(g185 V tp2210 a(g18 VS tp2211 a(g339 V: tp2212 a(g185 V tp2213 a(g111 Vstring p2214 tp2215 a(g339 V; tp2216 a(g185 V tp2217 a(g18 VWidth p2218 tp2219 a(g339 V: tp2220 a(g185 V tp2221 a(g135 VInteger p2222 tp2223 a(g339 V; tp2224 a(g185 V tp2225 a(g111 Vconst p2226 tp2227 a(g185 V tp2228 a(g18 VLineEnd p2229 tp2230 a(g339 V: tp2231 a(g185 V tp2232 a(g111 Vstring p2233 tp2234 a(g185 V tp2235 a(g339 V= tp2236 a(g185 V tp2237 a(g18 VEOL p2238 tp2239 a(g198 V) tp2240 a(g339 V: tp2241 a(g185 V tp2242 a(g111 Vstring p2243 tp2244 a(g339 V; tp2245 a(g185 V\u000a\u000a p2246 tp2247 a(g354 V{ Splitting & Combining } p2248 tp2249 a(g185 V\u000a tp2250 a(g111 Vfunction p2251 tp2252 a(g185 V tp2253 a(g21 VSplit p2254 tp2255 a(g198 V( tp2256 a(g111 Vconst p2257 tp2258 a(g185 V tp2259 a(g18 VS tp2260 a(g339 V, tp2261 a(g185 V tp2262 a(g18 VSeparator p2263 tp2264 a(g339 V: tp2265 a(g185 V tp2266 a(g111 Vstring p2267 tp2268 a(g339 V; tp2269 a(g185 V tp2270 a(g18 VIgnoreMultiSep p2271 tp2272 a(g339 V: tp2273 a(g185 V tp2274 a(g135 VBoolean p2275 tp2276 a(g185 V tp2277 a(g339 V= tp2278 a(g185 V tp2279 a(g111 VTrue p2280 tp2281 a(g339 V; tp2282 a(g185 V\u000a p2283 tp2284 a(g18 VMinCount p2285 tp2286 a(g339 V: tp2287 a(g185 V tp2288 a(g135 VInteger p2289 tp2290 a(g185 V tp2291 a(g339 V= tp2292 a(g185 V tp2293 a(g314 V0 tp2294 a(g198 V) tp2295 a(g339 V: tp2296 a(g185 V tp2297 a(g18 VTStrA p2298 tp2299 a(g339 V; tp2300 a(g185 V tp2301 a(g18 Voverload p2302 tp2303 a(g339 V; tp2304 a(g185 V\u000a tp2305 a(g111 Vprocedure p2306 tp2307 a(g185 V tp2308 a(g21 VSplit p2309 tp2310 a(g198 V( tp2311 a(g111 Vconst p2312 tp2313 a(g185 V tp2314 a(g18 VS tp2315 a(g339 V, tp2316 a(g185 V tp2317 a(g18 VSeparator p2318 tp2319 a(g339 V: tp2320 a(g185 V tp2321 a(g111 Vstring p2322 tp2323 a(g339 V; tp2324 a(g185 V tp2325 a(g18 VStrings p2326 tp2327 a(g339 V: tp2328 a(g185 V tp2329 a(g18 VTStrings p2330 tp2331 a(g339 V; tp2332 a(g185 V\u000a p2333 tp2334 a(g18 VIgnoreMultiSep p2335 tp2336 a(g339 V: tp2337 a(g185 V tp2338 a(g135 VBoolean p2339 tp2340 a(g185 V tp2341 a(g339 V= tp2342 a(g185 V tp2343 a(g111 VTrue p2344 tp2345 a(g198 V) tp2346 a(g339 V; tp2347 a(g185 V tp2348 a(g18 Voverload p2349 tp2350 a(g339 V; tp2351 a(g185 V\u000a tp2352 a(g111 Vfunction p2353 tp2354 a(g185 V tp2355 a(g21 VSplit p2356 tp2357 a(g198 V( tp2358 a(g111 Vconst p2359 tp2360 a(g185 V tp2361 a(g18 VS tp2362 a(g339 V: tp2363 a(g185 V tp2364 a(g111 Vstring p2365 tp2366 a(g339 V; tp2367 a(g185 V tp2368 a(g18 VSeparators p2369 tp2370 a(g339 V: tp2371 a(g185 V tp2372 a(g18 VTCharSet p2373 tp2374 a(g339 V; tp2375 a(g185 V\u000a p2376 tp2377 a(g18 VIgnoreMultiSep p2378 tp2379 a(g339 V: tp2380 a(g185 V tp2381 a(g135 VBoolean p2382 tp2383 a(g185 V tp2384 a(g339 V= tp2385 a(g185 V tp2386 a(g111 VTrue p2387 tp2388 a(g339 V; tp2389 a(g185 V tp2390 a(g18 VMinCount p2391 tp2392 a(g339 V: tp2393 a(g185 V tp2394 a(g135 VInteger p2395 tp2396 a(g185 V tp2397 a(g339 V= tp2398 a(g185 V tp2399 a(g314 V0 tp2400 a(g198 V) tp2401 a(g339 V: tp2402 a(g185 V tp2403 a(g18 VTStrA p2404 tp2405 a(g339 V; tp2406 a(g185 V tp2407 a(g18 Voverload p2408 tp2409 a(g339 V; tp2410 a(g185 V\u000a\u000a p2411 tp2412 a(g111 Vprocedure p2413 tp2414 a(g185 V tp2415 a(g21 VTileStr p2416 tp2417 a(g198 V( tp2418 a(g111 Vconst p2419 tp2420 a(g185 V tp2421 a(g18 VS tp2422 a(g339 V: tp2423 a(g185 V tp2424 a(g111 Vstring p2425 tp2426 a(g339 V; tp2427 a(g185 V tp2428 a(g18 VBrakeStart p2429 tp2430 a(g339 V: tp2431 a(g185 V tp2432 a(g135 VInteger p2433 tp2434 a(g339 V; tp2435 a(g185 V tp2436 a(g18 VBrakeEnd p2437 tp2438 a(g339 V: tp2439 a(g185 V tp2440 a(g135 VInteger p2441 tp2442 a(g339 V; tp2443 a(g185 V\u000a p2444 tp2445 a(g18 Vout p2446 tp2447 a(g185 V tp2448 a(g18 VLeft p2449 tp2450 a(g339 V, tp2451 a(g185 V tp2452 a(g18 VRight p2453 tp2454 a(g339 V: tp2455 a(g185 V tp2456 a(g111 Vstring p2457 tp2458 a(g198 V) tp2459 a(g339 V; tp2460 a(g185 V\u000a\u000a p2461 tp2462 a(g111 Vfunction p2463 tp2464 a(g185 V tp2465 a(g21 VJoin p2466 tp2467 a(g198 V( tp2468 a(g18 VStrings p2469 tp2470 a(g339 V: tp2471 a(g185 V tp2472 a(g18 VTStrings p2473 tp2474 a(g339 V; tp2475 a(g185 V tp2476 a(g18 VSeparator p2477 tp2478 a(g339 V: tp2479 a(g185 V tp2480 a(g111 Vstring p2481 tp2482 a(g185 V tp2483 a(g339 V= tp2484 a(g185 V tp2485 a(g222 V' tp2486 a(g222 V tp2487 a(g222 V' tp2488 a(g198 V) tp2489 a(g339 V: tp2490 a(g185 V tp2491 a(g111 Vstring p2492 tp2493 a(g339 V; tp2494 a(g185 V tp2495 a(g18 Voverload p2496 tp2497 a(g339 V; tp2498 a(g185 V\u000a tp2499 a(g111 Vfunction p2500 tp2501 a(g185 V tp2502 a(g21 VJoin p2503 tp2504 a(g198 V( tp2505 a(g18 VStrA p2506 tp2507 a(g339 V: tp2508 a(g185 V tp2509 a(g18 VTStrA p2510 tp2511 a(g339 V; tp2512 a(g185 V tp2513 a(g18 VSeparator p2514 tp2515 a(g339 V: tp2516 a(g185 V tp2517 a(g111 Vstring p2518 tp2519 a(g185 V tp2520 a(g339 V= tp2521 a(g185 V tp2522 a(g222 V' tp2523 a(g222 V tp2524 a(g222 V' tp2525 a(g198 V) tp2526 a(g339 V: tp2527 a(g185 V tp2528 a(g111 Vstring p2529 tp2530 a(g339 V; tp2531 a(g185 V tp2532 a(g18 Voverload p2533 tp2534 a(g339 V; tp2535 a(g185 V\u000a\u000a p2536 tp2537 a(g111 Vfunction p2538 tp2539 a(g185 V tp2540 a(g21 VMulStr p2541 tp2542 a(g198 V( tp2543 a(g111 Vconst p2544 tp2545 a(g185 V tp2546 a(g18 VS tp2547 a(g339 V: tp2548 a(g185 V tp2549 a(g111 Vstring p2550 tp2551 a(g339 V; tp2552 a(g185 V tp2553 a(g18 VCount p2554 tp2555 a(g339 V: tp2556 a(g185 V tp2557 a(g135 VInteger p2558 tp2559 a(g198 V) tp2560 a(g339 V: tp2561 a(g185 V tp2562 a(g111 Vstring p2563 tp2564 a(g339 V; tp2565 a(g185 V\u000a\u000a p2566 tp2567 a(g354 V{ Strings ausrichten } p2568 tp2569 a(g185 V\u000a tp2570 a(g111 Vfunction p2571 tp2572 a(g185 V tp2573 a(g21 VAlignR p2574 tp2575 a(g198 V( tp2576 a(g111 Vconst p2577 tp2578 a(g185 V tp2579 a(g18 VS tp2580 a(g339 V: tp2581 a(g185 V tp2582 a(g111 Vstring p2583 tp2584 a(g339 V; tp2585 a(g185 V tp2586 a(g18 VWidth p2587 tp2588 a(g339 V: tp2589 a(g185 V tp2590 a(g135 VInteger p2591 tp2592 a(g339 V; tp2593 a(g185 V tp2594 a(g18 VFiller p2595 tp2596 a(g339 V: tp2597 a(g185 V tp2598 a(g135 VChar p2599 tp2600 a(g185 V tp2601 a(g339 V= tp2602 a(g185 V tp2603 a(g222 V' tp2604 a(g222 V tp2605 a(g222 V' tp2606 a(g198 V) tp2607 a(g339 V: tp2608 a(g185 V tp2609 a(g111 Vstring p2610 tp2611 a(g339 V; tp2612 a(g185 V\u000a tp2613 a(g111 Vfunction p2614 tp2615 a(g185 V tp2616 a(g21 VMaxStr p2617 tp2618 a(g198 V( tp2619 a(g111 Vconst p2620 tp2621 a(g185 V tp2622 a(g18 VS tp2623 a(g339 V: tp2624 a(g185 V tp2625 a(g111 Vstring p2626 tp2627 a(g339 V; tp2628 a(g185 V tp2629 a(g18 VMaxLen p2630 tp2631 a(g339 V: tp2632 a(g185 V tp2633 a(g135 VInteger p2634 tp2635 a(g198 V) tp2636 a(g339 V: tp2637 a(g185 V tp2638 a(g111 Vstring p2639 tp2640 a(g339 V; tp2641 a(g185 V\u000a\u000a p2642 tp2643 a(g354 V{ Stringing } p2644 tp2645 a(g185 V\u000a tp2646 a(g111 Vfunction p2647 tp2648 a(g185 V tp2649 a(g21 VTrimAll p2650 tp2651 a(g198 V( tp2652 a(g111 Vconst p2653 tp2654 a(g185 V tp2655 a(g18 VS tp2656 a(g339 V: tp2657 a(g185 V tp2658 a(g111 Vstring p2659 tp2660 a(g198 V) tp2661 a(g339 V: tp2662 a(g185 V tp2663 a(g111 Vstring p2664 tp2665 a(g339 V; tp2666 a(g185 V\u000a\u000a p2667 tp2668 a(g111 Vfunction p2669 tp2670 a(g185 V tp2671 a(g21 VControlChar p2672 tp2673 a(g198 V( tp2674 a(g18 VC tp2675 a(g339 V: tp2676 a(g185 V tp2677 a(g135 VChar p2678 tp2679 a(g198 V) tp2680 a(g339 V: tp2681 a(g185 V tp2682 a(g135 VBoolean p2683 tp2684 a(g339 V; tp2685 a(g185 V\u000a tp2686 a(g111 Vfunction p2687 tp2688 a(g185 V tp2689 a(g21 VFriendlyChar p2690 tp2691 a(g198 V( tp2692 a(g18 VC tp2693 a(g339 V: tp2694 a(g185 V tp2695 a(g135 VChar p2696 tp2697 a(g198 V) tp2698 a(g339 V: tp2699 a(g185 V tp2700 a(g135 VChar p2701 tp2702 a(g339 V; tp2703 a(g185 V\u000a\u000a p2704 tp2705 a(g111 Vfunction p2706 tp2707 a(g185 V tp2708 a(g21 VFriendlyStr p2709 tp2710 a(g198 V( tp2711 a(g111 Vconst p2712 tp2713 a(g185 V tp2714 a(g18 VS tp2715 a(g339 V: tp2716 a(g185 V tp2717 a(g111 Vstring p2718 tp2719 a(g198 V) tp2720 a(g339 V: tp2721 a(g185 V tp2722 a(g111 Vstring p2723 tp2724 a(g339 V; tp2725 a(g185 V tp2726 a(g18 Voverload p2727 tp2728 a(g339 V; tp2729 a(g185 V\u000a tp2730 a(g111 Vfunction p2731 tp2732 a(g185 V tp2733 a(g21 VFriendlyStr p2734 tp2735 a(g198 V( tp2736 a(g18 Va tp2737 a(g339 V: tp2738 a(g185 V tp2739 a(g18 VTByteA p2740 tp2741 a(g198 V) tp2742 a(g339 V: tp2743 a(g185 V tp2744 a(g111 Vstring p2745 tp2746 a(g339 V; tp2747 a(g185 V tp2748 a(g18 Voverload p2749 tp2750 a(g339 V; tp2751 a(g185 V\u000a\u000a p2752 tp2753 a(g111 Vfunction p2754 tp2755 a(g185 V tp2756 a(g21 VQuote p2757 tp2758 a(g198 V( tp2759 a(g111 Vconst p2760 tp2761 a(g185 V tp2762 a(g18 VS tp2763 a(g339 V: tp2764 a(g185 V tp2765 a(g111 Vstring p2766 tp2767 a(g339 V; tp2768 a(g185 V tp2769 a(g18 VQuoter p2770 tp2771 a(g339 V: tp2772 a(g185 V tp2773 a(g135 VChar p2774 tp2775 a(g185 V tp2776 a(g339 V= tp2777 a(g185 V tp2778 a(g222 V' tp2779 a(g222 V" tp2780 a(g222 V' tp2781 a(g198 V) tp2782 a(g339 V: tp2783 a(g185 V tp2784 a(g111 Vstring p2785 tp2786 a(g339 V; tp2787 a(g185 V\u000a tp2788 a(g111 Vfunction p2789 tp2790 a(g185 V tp2791 a(g21 VUnQuote p2792 tp2793 a(g198 V( tp2794 a(g111 Vconst p2795 tp2796 a(g185 V tp2797 a(g18 VS tp2798 a(g339 V: tp2799 a(g185 V tp2800 a(g111 Vstring p2801 tp2802 a(g198 V) tp2803 a(g339 V: tp2804 a(g185 V tp2805 a(g111 Vstring p2806 tp2807 a(g339 V; tp2808 a(g185 V\u000a tp2809 a(g111 Vfunction p2810 tp2811 a(g185 V tp2812 a(g21 VDeQuote p2813 tp2814 a(g198 V( tp2815 a(g111 Vconst p2816 tp2817 a(g185 V tp2818 a(g18 VS tp2819 a(g339 V: tp2820 a(g185 V tp2821 a(g111 Vstring p2822 tp2823 a(g198 V) tp2824 a(g339 V: tp2825 a(g185 V tp2826 a(g111 Vstring p2827 tp2828 a(g339 V; tp2829 a(g185 V\u000a\u000a p2830 tp2831 a(g111 Vfunction p2832 tp2833 a(g185 V tp2834 a(g21 VStrNumerus p2835 tp2836 a(g198 V( tp2837 a(g111 Vconst p2838 tp2839 a(g185 V tp2840 a(g18 VValue p2841 tp2842 a(g339 V: tp2843 a(g185 V tp2844 a(g135 VInteger p2845 tp2846 a(g339 V; tp2847 a(g185 V tp2848 a(g111 Vconst p2849 tp2850 a(g185 V tp2851 a(g18 VSingular p2852 tp2853 a(g339 V, tp2854 a(g185 V tp2855 a(g18 VPlural p2856 tp2857 a(g339 V: tp2858 a(g185 V tp2859 a(g111 Vstring p2860 tp2861 a(g339 V; tp2862 a(g185 V\u000a p2863 tp2864 a(g111 Vconst p2865 tp2866 a(g185 V tp2867 a(g18 VZero p2868 tp2869 a(g339 V: tp2870 a(g185 V tp2871 a(g111 Vstring p2872 tp2873 a(g185 V tp2874 a(g339 V= tp2875 a(g185 V tp2876 a(g222 V' tp2877 a(g222 V0 tp2878 a(g222 V' tp2879 a(g198 V) tp2880 a(g339 V: tp2881 a(g185 V tp2882 a(g111 Vstring p2883 tp2884 a(g339 V; tp2885 a(g185 V\u000a\u000a p2886 tp2887 a(g111 Vfunction p2888 tp2889 a(g185 V tp2890 a(g21 VMakeStr p2891 tp2892 a(g198 V( tp2893 a(g111 Vconst p2894 tp2895 a(g185 V tp2896 a(g18 VItems p2897 tp2898 a(g339 V: tp2899 a(g185 V tp2900 a(g111 Varray p2901 tp2902 a(g185 V tp2903 a(g111 Vof p2904 tp2905 a(g185 V tp2906 a(g111 Vconst p2907 tp2908 a(g339 V; tp2909 a(g185 V tp2910 a(g18 VSeparator p2911 tp2912 a(g339 V: tp2913 a(g185 V tp2914 a(g111 Vstring p2915 tp2916 a(g185 V tp2917 a(g339 V= tp2918 a(g185 V tp2919 a(g222 V' tp2920 a(g222 V' tp2921 a(g198 V) tp2922 a(g339 V: tp2923 a(g185 V tp2924 a(g111 Vstring p2925 tp2926 a(g339 V; tp2927 a(g185 V\u000a tp2928 a(g111 Vprocedure p2929 tp2930 a(g185 V tp2931 a(g21 VShowText p2932 tp2933 a(g198 V( tp2934 a(g111 Vconst p2935 tp2936 a(g185 V tp2937 a(g18 VItems p2938 tp2939 a(g339 V: tp2940 a(g185 V tp2941 a(g111 Varray p2942 tp2943 a(g185 V tp2944 a(g111 Vof p2945 tp2946 a(g185 V tp2947 a(g111 Vconst p2948 tp2949 a(g339 V; tp2950 a(g185 V tp2951 a(g18 VSeparator p2952 tp2953 a(g339 V: tp2954 a(g185 V tp2955 a(g111 Vstring p2956 tp2957 a(g185 V tp2958 a(g339 V= tp2959 a(g185 V tp2960 a(g222 V' tp2961 a(g222 V' tp2962 a(g198 V) tp2963 a(g339 V; tp2964 a(g185 V\u000a\u000a p2965 tp2966 a(g354 V{ Delete } p2967 tp2968 a(g185 V\u000a tp2969 a(g111 Vfunction p2970 tp2971 a(g185 V tp2972 a(g21 VDeleteChars p2973 tp2974 a(g198 V( tp2975 a(g111 Vconst p2976 tp2977 a(g185 V tp2978 a(g18 VS tp2979 a(g339 V: tp2980 a(g185 V tp2981 a(g111 Vstring p2982 tp2983 a(g339 V; tp2984 a(g185 V tp2985 a(g18 VC tp2986 a(g339 V: tp2987 a(g185 V tp2988 a(g135 VChar p2989 tp2990 a(g198 V) tp2991 a(g339 V: tp2992 a(g185 V tp2993 a(g111 Vstring p2994 tp2995 a(g339 V; tp2996 a(g185 V tp2997 a(g18 Voverload p2998 tp2999 a(g339 V; tp3000 a(g185 V\u000a tp3001 a(g111 Vfunction p3002 tp3003 a(g185 V tp3004 a(g21 VDeleteChars p3005 tp3006 a(g198 V( tp3007 a(g111 Vconst p3008 tp3009 a(g185 V tp3010 a(g18 VS tp3011 a(g339 V: tp3012 a(g185 V tp3013 a(g111 Vstring p3014 tp3015 a(g339 V; tp3016 a(g185 V tp3017 a(g18 VC tp3018 a(g339 V: tp3019 a(g185 V tp3020 a(g18 VTCharSet p3021 tp3022 a(g198 V) tp3023 a(g339 V: tp3024 a(g185 V tp3025 a(g111 Vstring p3026 tp3027 a(g339 V; tp3028 a(g185 V tp3029 a(g18 Voverload p3030 tp3031 a(g339 V; tp3032 a(g185 V\u000a tp3033 a(g111 Vfunction p3034 tp3035 a(g185 V tp3036 a(g21 VExtractChars p3037 tp3038 a(g198 V( tp3039 a(g111 Vconst p3040 tp3041 a(g185 V tp3042 a(g18 VS tp3043 a(g339 V: tp3044 a(g185 V tp3045 a(g111 Vstring p3046 tp3047 a(g339 V; tp3048 a(g185 V tp3049 a(g18 VC tp3050 a(g339 V: tp3051 a(g185 V tp3052 a(g18 VTCharSet p3053 tp3054 a(g198 V) tp3055 a(g339 V: tp3056 a(g185 V tp3057 a(g111 Vstring p3058 tp3059 a(g339 V; tp3060 a(g185 V\u000a\u000a p3061 tp3062 a(g354 V{ Find } p3063 tp3064 a(g185 V\u000a tp3065 a(g111 Vfunction p3066 tp3067 a(g185 V tp3068 a(g21 VCharCount p3069 tp3070 a(g198 V( tp3071 a(g111 Vconst p3072 tp3073 a(g185 V tp3074 a(g18 VS tp3075 a(g339 V: tp3076 a(g185 V tp3077 a(g111 Vstring p3078 tp3079 a(g339 V; tp3080 a(g185 V tp3081 a(g18 VC tp3082 a(g339 V: tp3083 a(g185 V tp3084 a(g135 VChar p3085 tp3086 a(g198 V) tp3087 a(g339 V: tp3088 a(g185 V tp3089 a(g135 VInteger p3090 tp3091 a(g339 V; tp3092 a(g185 V\u000a\u000a p3093 tp3094 a(g111 Vfunction p3095 tp3096 a(g185 V tp3097 a(g21 VCharIn p3098 tp3099 a(g198 V( tp3100 a(g111 Vconst p3101 tp3102 a(g185 V tp3103 a(g18 VS tp3104 a(g339 V: tp3105 a(g185 V tp3106 a(g111 Vstring p3107 tp3108 a(g339 V; tp3109 a(g185 V tp3110 a(g18 VC tp3111 a(g339 V: tp3112 a(g185 V tp3113 a(g135 VChar p3114 tp3115 a(g198 V) tp3116 a(g339 V: tp3117 a(g185 V tp3118 a(g135 VBoolean p3119 tp3120 a(g339 V; tp3121 a(g185 V tp3122 a(g18 Voverload p3123 tp3124 a(g339 V; tp3125 a(g185 V\u000a tp3126 a(g111 Vfunction p3127 tp3128 a(g185 V tp3129 a(g21 VCharIn p3130 tp3131 a(g198 V( tp3132 a(g111 Vconst p3133 tp3134 a(g185 V tp3135 a(g18 VS tp3136 a(g339 V: tp3137 a(g185 V tp3138 a(g111 Vstring p3139 tp3140 a(g339 V; tp3141 a(g185 V tp3142 a(g18 VC tp3143 a(g339 V: tp3144 a(g185 V tp3145 a(g18 VTCharSet p3146 tp3147 a(g198 V) tp3148 a(g339 V: tp3149 a(g185 V tp3150 a(g135 VBoolean p3151 tp3152 a(g339 V; tp3153 a(g185 V tp3154 a(g18 Voverload p3155 tp3156 a(g339 V; tp3157 a(g185 V\u000a\u000a p3158 tp3159 a(g111 Vfunction p3160 tp3161 a(g185 V tp3162 a(g21 VStrAtPos p3163 tp3164 a(g198 V( tp3165 a(g111 Vconst p3166 tp3167 a(g185 V tp3168 a(g18 VS tp3169 a(g339 V: tp3170 a(g185 V tp3171 a(g111 Vstring p3172 tp3173 a(g339 V; tp3174 a(g185 V tp3175 a(g57 VPos p3176 tp3177 a(g339 V: tp3178 a(g185 V tp3179 a(g135 VInteger p3180 tp3181 a(g339 V; tp3182 a(g185 V tp3183 a(g111 Vconst p3184 tp3185 a(g185 V tp3186 a(g57 VStr p3187 tp3188 a(g339 V: tp3189 a(g185 V tp3190 a(g111 Vstring p3191 tp3192 a(g198 V) tp3193 a(g339 V: tp3194 a(g185 V tp3195 a(g135 VBoolean p3196 tp3197 a(g339 V; tp3198 a(g185 V\u000a tp3199 a(g111 Vfunction p3200 tp3201 a(g185 V tp3202 a(g21 VStrAtBegin p3203 tp3204 a(g198 V( tp3205 a(g111 Vconst p3206 tp3207 a(g185 V tp3208 a(g18 VS tp3209 a(g339 V, tp3210 a(g185 V tp3211 a(g57 VStr p3212 tp3213 a(g339 V: tp3214 a(g185 V tp3215 a(g111 Vstring p3216 tp3217 a(g198 V) tp3218 a(g339 V: tp3219 a(g185 V tp3220 a(g135 VBoolean p3221 tp3222 a(g339 V; tp3223 a(g185 V\u000a tp3224 a(g111 Vfunction p3225 tp3226 a(g185 V tp3227 a(g21 VStrIn p3228 tp3229 a(g198 V( tp3230 a(g111 Vconst p3231 tp3232 a(g185 V tp3233 a(g18 VS tp3234 a(g339 V, tp3235 a(g185 V tp3236 a(g18 VSubStr p3237 tp3238 a(g339 V: tp3239 a(g185 V tp3240 a(g111 Vstring p3241 tp3242 a(g198 V) tp3243 a(g339 V: tp3244 a(g185 V tp3245 a(g135 VBoolean p3246 tp3247 a(g339 V; tp3248 a(g185 V tp3249 a(g18 Voverload p3250 tp3251 a(g339 V; tp3252 a(g185 V\u000a tp3253 a(g111 Vfunction p3254 tp3255 a(g185 V tp3256 a(g21 VStrIn p3257 tp3258 a(g198 V( tp3259 a(g18 VA tp3260 a(g339 V: tp3261 a(g185 V tp3262 a(g18 VTStrA p3263 tp3264 a(g339 V; tp3265 a(g185 V tp3266 a(g111 Vconst p3267 tp3268 a(g185 V tp3269 a(g18 VS tp3270 a(g339 V: tp3271 a(g185 V tp3272 a(g111 Vstring p3273 tp3274 a(g198 V) tp3275 a(g339 V: tp3276 a(g185 V tp3277 a(g135 VBoolean p3278 tp3279 a(g339 V; tp3280 a(g185 V tp3281 a(g18 Voverload p3282 tp3283 a(g339 V; tp3284 a(g185 V\u000a tp3285 a(g111 Vfunction p3286 tp3287 a(g185 V tp3288 a(g21 VStrIn p3289 tp3290 a(g198 V( tp3291 a(g18 VSL p3292 tp3293 a(g339 V: tp3294 a(g185 V tp3295 a(g18 VTStrings p3296 tp3297 a(g339 V; tp3298 a(g185 V tp3299 a(g111 Vconst p3300 tp3301 a(g185 V tp3302 a(g18 VS tp3303 a(g339 V: tp3304 a(g185 V tp3305 a(g111 Vstring p3306 tp3307 a(g198 V) tp3308 a(g339 V: tp3309 a(g185 V tp3310 a(g135 VBoolean p3311 tp3312 a(g339 V; tp3313 a(g185 V tp3314 a(g18 Voverload p3315 tp3316 a(g339 V; tp3317 a(g185 V\u000a tp3318 a(g111 Vfunction p3319 tp3320 a(g185 V tp3321 a(g21 VStrIndex p3322 tp3323 a(g198 V( tp3324 a(g18 VA tp3325 a(g339 V: tp3326 a(g185 V tp3327 a(g18 VTStrA p3328 tp3329 a(g339 V; tp3330 a(g185 V tp3331 a(g111 Vconst p3332 tp3333 a(g185 V tp3334 a(g18 VS tp3335 a(g339 V: tp3336 a(g185 V tp3337 a(g111 Vstring p3338 tp3339 a(g198 V) tp3340 a(g339 V: tp3341 a(g185 V tp3342 a(g135 VInteger p3343 tp3344 a(g339 V; tp3345 a(g185 V tp3346 a(g18 Voverload p3347 tp3348 a(g339 V; tp3349 a(g185 V\u000a tp3350 a(g111 Vfunction p3351 tp3352 a(g185 V tp3353 a(g21 VStrIndex p3354 tp3355 a(g198 V( tp3356 a(g18 VSL p3357 tp3358 a(g339 V: tp3359 a(g185 V tp3360 a(g18 VTStrings p3361 tp3362 a(g339 V; tp3363 a(g185 V tp3364 a(g111 Vconst p3365 tp3366 a(g185 V tp3367 a(g18 VS tp3368 a(g339 V: tp3369 a(g185 V tp3370 a(g111 Vstring p3371 tp3372 a(g198 V) tp3373 a(g339 V: tp3374 a(g185 V tp3375 a(g135 VInteger p3376 tp3377 a(g339 V; tp3378 a(g185 V tp3379 a(g18 Voverload p3380 tp3381 a(g339 V; tp3382 a(g185 V\u000a\u000a p3383 tp3384 a(g111 Vfunction p3385 tp3386 a(g185 V tp3387 a(g21 VTextAtPos p3388 tp3389 a(g198 V( tp3390 a(g111 Vconst p3391 tp3392 a(g185 V tp3393 a(g18 VS tp3394 a(g339 V: tp3395 a(g185 V tp3396 a(g111 Vstring p3397 tp3398 a(g339 V; tp3399 a(g185 V tp3400 a(g57 VPos p3401 tp3402 a(g339 V: tp3403 a(g185 V tp3404 a(g135 VInteger p3405 tp3406 a(g339 V; tp3407 a(g185 V tp3408 a(g111 Vconst p3409 tp3410 a(g185 V tp3411 a(g18 VText p3412 tp3413 a(g339 V: tp3414 a(g185 V tp3415 a(g111 Vstring p3416 tp3417 a(g198 V) tp3418 a(g339 V: tp3419 a(g185 V tp3420 a(g135 VBoolean p3421 tp3422 a(g339 V; tp3423 a(g185 V\u000a tp3424 a(g111 Vfunction p3425 tp3426 a(g185 V tp3427 a(g21 VTextAtBegin p3428 tp3429 a(g198 V( tp3430 a(g111 Vconst p3431 tp3432 a(g185 V tp3433 a(g18 VS tp3434 a(g339 V, tp3435 a(g185 V tp3436 a(g18 VText p3437 tp3438 a(g339 V: tp3439 a(g185 V tp3440 a(g111 Vstring p3441 tp3442 a(g198 V) tp3443 a(g339 V: tp3444 a(g185 V tp3445 a(g135 VBoolean p3446 tp3447 a(g339 V; tp3448 a(g185 V\u000a tp3449 a(g111 Vfunction p3450 tp3451 a(g185 V tp3452 a(g21 VTextIn p3453 tp3454 a(g198 V( tp3455 a(g111 Vconst p3456 tp3457 a(g185 V tp3458 a(g18 VS tp3459 a(g339 V, tp3460 a(g185 V tp3461 a(g18 VText p3462 tp3463 a(g339 V: tp3464 a(g185 V tp3465 a(g111 Vstring p3466 tp3467 a(g198 V) tp3468 a(g339 V: tp3469 a(g185 V tp3470 a(g135 VBoolean p3471 tp3472 a(g339 V; tp3473 a(g185 V tp3474 a(g18 Voverload p3475 tp3476 a(g339 V; tp3477 a(g185 V\u000a tp3478 a(g111 Vfunction p3479 tp3480 a(g185 V tp3481 a(g21 VTextIn p3482 tp3483 a(g198 V( tp3484 a(g18 VA tp3485 a(g339 V: tp3486 a(g185 V tp3487 a(g18 VTStrA p3488 tp3489 a(g339 V; tp3490 a(g185 V tp3491 a(g111 Vconst p3492 tp3493 a(g185 V tp3494 a(g18 VText p3495 tp3496 a(g339 V: tp3497 a(g185 V tp3498 a(g111 Vstring p3499 tp3500 a(g198 V) tp3501 a(g339 V: tp3502 a(g185 V tp3503 a(g135 VBoolean p3504 tp3505 a(g339 V; tp3506 a(g185 V tp3507 a(g18 Voverload p3508 tp3509 a(g339 V; tp3510 a(g185 V\u000a tp3511 a(g111 Vfunction p3512 tp3513 a(g185 V tp3514 a(g21 VTextIn p3515 tp3516 a(g198 V( tp3517 a(g18 VSL p3518 tp3519 a(g339 V: tp3520 a(g185 V tp3521 a(g18 VTStrings p3522 tp3523 a(g339 V; tp3524 a(g185 V tp3525 a(g111 Vconst p3526 tp3527 a(g185 V tp3528 a(g18 VText p3529 tp3530 a(g339 V: tp3531 a(g185 V tp3532 a(g111 Vstring p3533 tp3534 a(g198 V) tp3535 a(g339 V: tp3536 a(g185 V tp3537 a(g135 VBoolean p3538 tp3539 a(g339 V; tp3540 a(g185 V tp3541 a(g18 Voverload p3542 tp3543 a(g339 V; tp3544 a(g185 V\u000a tp3545 a(g111 Vfunction p3546 tp3547 a(g185 V tp3548 a(g21 VTextIndex p3549 tp3550 a(g198 V( tp3551 a(g18 VA tp3552 a(g339 V: tp3553 a(g185 V tp3554 a(g18 VTStrA p3555 tp3556 a(g339 V; tp3557 a(g185 V tp3558 a(g111 Vconst p3559 tp3560 a(g185 V tp3561 a(g18 VText p3562 tp3563 a(g339 V: tp3564 a(g185 V tp3565 a(g111 Vstring p3566 tp3567 a(g198 V) tp3568 a(g339 V: tp3569 a(g185 V tp3570 a(g135 VInteger p3571 tp3572 a(g339 V; tp3573 a(g185 V tp3574 a(g18 Voverload p3575 tp3576 a(g339 V; tp3577 a(g185 V\u000a tp3578 a(g111 Vfunction p3579 tp3580 a(g185 V tp3581 a(g21 VTextIndex p3582 tp3583 a(g198 V( tp3584 a(g18 VSL p3585 tp3586 a(g339 V: tp3587 a(g185 V tp3588 a(g18 VTStrings p3589 tp3590 a(g339 V; tp3591 a(g185 V tp3592 a(g111 Vconst p3593 tp3594 a(g185 V tp3595 a(g18 VText p3596 tp3597 a(g339 V: tp3598 a(g185 V tp3599 a(g111 Vstring p3600 tp3601 a(g198 V) tp3602 a(g339 V: tp3603 a(g185 V tp3604 a(g135 VInteger p3605 tp3606 a(g339 V; tp3607 a(g185 V tp3608 a(g18 Voverload p3609 tp3610 a(g339 V; tp3611 a(g185 V\u000a\u000a p3612 tp3613 a(g354 V{ Replace } p3614 tp3615 a(g185 V\u000a tp3616 a(g111 Vfunction p3617 tp3618 a(g185 V tp3619 a(g21 VReplaceChars p3620 tp3621 a(g198 V( tp3622 a(g111 Vconst p3623 tp3624 a(g185 V tp3625 a(g18 VS tp3626 a(g339 V: tp3627 a(g185 V tp3628 a(g111 Vstring p3629 tp3630 a(g339 V; tp3631 a(g185 V tp3632 a(g18 VOld p3633 tp3634 a(g339 V, tp3635 a(g185 V tp3636 a(g111 VNew p3637 tp3638 a(g339 V: tp3639 a(g185 V tp3640 a(g135 VChar p3641 tp3642 a(g198 V) tp3643 a(g339 V: tp3644 a(g185 V tp3645 a(g111 Vstring p3646 tp3647 a(g339 V; tp3648 a(g185 V tp3649 a(g18 Voverload p3650 tp3651 a(g339 V; tp3652 a(g185 V\u000a tp3653 a(g111 Vfunction p3654 tp3655 a(g185 V tp3656 a(g21 VReplaceChars p3657 tp3658 a(g198 V( tp3659 a(g111 Vconst p3660 tp3661 a(g185 V tp3662 a(g18 VS tp3663 a(g339 V: tp3664 a(g185 V tp3665 a(g111 Vstring p3666 tp3667 a(g339 V; tp3668 a(g185 V tp3669 a(g18 VOld p3670 tp3671 a(g339 V: tp3672 a(g185 V tp3673 a(g18 VTCharSet p3674 tp3675 a(g339 V; tp3676 a(g185 V tp3677 a(g111 VNew p3678 tp3679 a(g339 V: tp3680 a(g185 V tp3681 a(g135 VChar p3682 tp3683 a(g198 V) tp3684 a(g339 V: tp3685 a(g185 V tp3686 a(g111 Vstring p3687 tp3688 a(g339 V; tp3689 a(g185 V tp3690 a(g18 Voverload p3691 tp3692 a(g339 V; tp3693 a(g185 V\u000a\u000a p3694 tp3695 a(g111 Vfunction p3696 tp3697 a(g185 V tp3698 a(g21 VReplace p3699 tp3700 a(g198 V( tp3701 a(g111 Vconst p3702 tp3703 a(g185 V tp3704 a(g18 VS tp3705 a(g339 V, tp3706 a(g185 V tp3707 a(g18 VOld p3708 tp3709 a(g339 V, tp3710 a(g185 V tp3711 a(g111 VNew p3712 tp3713 a(g339 V: tp3714 a(g185 V tp3715 a(g111 Vstring p3716 tp3717 a(g198 V) tp3718 a(g339 V: tp3719 a(g185 V tp3720 a(g111 Vstring p3721 tp3722 a(g339 V; tp3723 a(g185 V\u000a\u000a p3724 tp3725 a(g354 V{ TStrings } p3726 tp3727 a(g185 V\u000a tp3728 a(g111 Vfunction p3729 tp3730 a(g185 V tp3731 a(g21 VSLOfFile p3732 tp3733 a(g198 V( tp3734 a(g111 Vconst p3735 tp3736 a(g185 V tp3737 a(g18 VFileName p3738 tp3739 a(g339 V: tp3740 a(g185 V tp3741 a(g111 Vstring p3742 tp3743 a(g198 V) tp3744 a(g339 V: tp3745 a(g185 V tp3746 a(g18 VTStringList p3747 tp3748 a(g339 V; tp3749 a(g185 V\u000a tp3750 a(g111 Vfunction p3751 tp3752 a(g185 V tp3753 a(g21 VContainsEmptyLines p3754 tp3755 a(g198 V( tp3756 a(g18 VSL p3757 tp3758 a(g339 V: tp3759 a(g185 V tp3760 a(g18 VTStrings p3761 tp3762 a(g198 V) tp3763 a(g339 V: tp3764 a(g185 V tp3765 a(g135 VBoolean p3766 tp3767 a(g339 V; tp3768 a(g185 V\u000a tp3769 a(g111 Vprocedure p3770 tp3771 a(g185 V tp3772 a(g21 VDeleteEmptyLines p3773 tp3774 a(g198 V( tp3775 a(g18 VSL p3776 tp3777 a(g339 V: tp3778 a(g185 V tp3779 a(g18 VTStrings p3780 tp3781 a(g198 V) tp3782 a(g339 V; tp3783 a(g185 V\u000a tp3784 a(g111 Vprocedure p3785 tp3786 a(g185 V tp3787 a(g21 VDeleteCommentLines p3788 tp3789 a(g198 V( tp3790 a(g18 VSL p3791 tp3792 a(g339 V: tp3793 a(g185 V tp3794 a(g18 VTStrings p3795 tp3796 a(g339 V; tp3797 a(g185 V tp3798 a(g111 Vconst p3799 tp3800 a(g185 V tp3801 a(g18 VCommentSign p3802 tp3803 a(g339 V: tp3804 a(g185 V tp3805 a(g111 Vstring p3806 tp3807 a(g185 V tp3808 a(g339 V= tp3809 a(g185 V tp3810 a(g222 V' tp3811 a(g222 V// p3812 tp3813 a(g222 V' tp3814 a(g198 V) tp3815 a(g339 V; tp3816 a(g185 V\u000a tp3817 a(g111 Vprocedure p3818 tp3819 a(g185 V tp3820 a(g21 VWriteSL p3821 tp3822 a(g198 V( tp3823 a(g18 VStrings p3824 tp3825 a(g339 V: tp3826 a(g185 V tp3827 a(g18 VTStrings p3828 tp3829 a(g339 V; tp3830 a(g185 V tp3831 a(g111 Vconst p3832 tp3833 a(g185 V tp3834 a(g18 VPrefix p3835 tp3836 a(g339 V: tp3837 a(g185 V tp3838 a(g111 Vstring p3839 tp3840 a(g185 V tp3841 a(g339 V= tp3842 a(g185 V tp3843 a(g222 V' tp3844 a(g222 V' tp3845 a(g339 V; tp3846 a(g185 V\u000a p3847 tp3848 a(g111 Vconst p3849 tp3850 a(g185 V tp3851 a(g18 VSuffix p3852 tp3853 a(g339 V: tp3854 a(g185 V tp3855 a(g111 Vstring p3856 tp3857 a(g185 V tp3858 a(g339 V= tp3859 a(g185 V tp3860 a(g222 V' tp3861 a(g222 V' tp3862 a(g198 V) tp3863 a(g339 V; tp3864 a(g185 V\u000a\u000a p3865 tp3866 a(g111 Vfunction p3867 tp3868 a(g185 V tp3869 a(g21 VFindLine p3870 tp3871 a(g198 V( tp3872 a(g18 VSL p3873 tp3874 a(g339 V: tp3875 a(g185 V tp3876 a(g18 VTStrings p3877 tp3878 a(g339 V; tp3879 a(g185 V tp3880 a(g111 Vconst p3881 tp3882 a(g185 V tp3883 a(g18 VS tp3884 a(g339 V: tp3885 a(g185 V tp3886 a(g111 Vstring p3887 tp3888 a(g198 V) tp3889 a(g339 V: tp3890 a(g185 V tp3891 a(g135 VInteger p3892 tp3893 a(g339 V; tp3894 a(g185 V\u000a\u000a p3895 tp3896 a(g111 Vprocedure p3897 tp3898 a(g185 V tp3899 a(g21 VQuickSortSL p3900 tp3901 a(g198 V( tp3902 a(g18 VSL p3903 tp3904 a(g339 V: tp3905 a(g185 V tp3906 a(g18 VTStringList p3907 tp3908 a(g198 V) tp3909 a(g339 V; tp3910 a(g185 V\u000a\u000a p3911 tp3912 a(g354 V{ TStrA } p3913 tp3914 a(g185 V\u000a tp3915 a(g111 Vfunction p3916 tp3917 a(g185 V tp3918 a(g21 VIncStrA p3919 tp3920 a(g198 V( tp3921 a(g18 VStrA p3922 tp3923 a(g339 V: tp3924 a(g185 V tp3925 a(g18 VTStrA p3926 tp3927 a(g198 V) tp3928 a(g339 V: tp3929 a(g185 V tp3930 a(g135 VInteger p3931 tp3932 a(g339 V; tp3933 a(g185 V\u000a\u000a p3934 tp3935 a(g354 V{ TByteA } p3936 tp3937 a(g185 V\u000a tp3938 a(g111 Vfunction p3939 tp3940 a(g185 V tp3941 a(g21 VStrOfByteA p3942 tp3943 a(g198 V( tp3944 a(g18 Va tp3945 a(g339 V: tp3946 a(g185 V tp3947 a(g18 VTByteA p3948 tp3949 a(g198 V) tp3950 a(g339 V: tp3951 a(g185 V tp3952 a(g111 Vstring p3953 tp3954 a(g339 V; tp3955 a(g185 V\u000a tp3956 a(g111 Vfunction p3957 tp3958 a(g185 V tp3959 a(g21 VByteAOfStr p3960 tp3961 a(g198 V( tp3962 a(g111 Vconst p3963 tp3964 a(g185 V tp3965 a(g18 VS tp3966 a(g339 V: tp3967 a(g185 V tp3968 a(g111 Vstring p3969 tp3970 a(g198 V) tp3971 a(g339 V: tp3972 a(g185 V tp3973 a(g18 VTByteA p3974 tp3975 a(g339 V; tp3976 a(g185 V\u000a tp3977 a(g111 Vfunction p3978 tp3979 a(g185 V tp3980 a(g21 VByteAOfInt p3981 tp3982 a(g198 V( tp3983 a(g18 Vi tp3984 a(g339 V: tp3985 a(g185 V tp3986 a(g135 VInteger p3987 tp3988 a(g198 V) tp3989 a(g339 V: tp3990 a(g185 V tp3991 a(g18 VTByteA p3992 tp3993 a(g339 V; tp3994 a(g185 V\u000a tp3995 a(g111 Vfunction p3996 tp3997 a(g185 V tp3998 a(g21 VIntOfByteA p3999 tp4000 a(g198 V( tp4001 a(g18 VA tp4002 a(g339 V: tp4003 a(g185 V tp4004 a(g18 VTByteA p4005 tp4006 a(g198 V) tp4007 a(g339 V: tp4008 a(g185 V tp4009 a(g135 VInteger p4010 tp4011 a(g339 V; tp4012 a(g185 V\u000a tp4013 a(g111 Vfunction p4014 tp4015 a(g185 V tp4016 a(g21 VByteAOfHex p4017 tp4018 a(g198 V( tp4019 a(g111 Vconst p4020 tp4021 a(g185 V tp4022 a(g18 VHex p4023 tp4024 a(g339 V: tp4025 a(g185 V tp4026 a(g111 Vstring p4027 tp4028 a(g198 V) tp4029 a(g339 V: tp4030 a(g185 V tp4031 a(g18 VTByteA p4032 tp4033 a(g339 V; tp4034 a(g185 V\u000a\u000a p4035 tp4036 a(g111 Vfunction p4037 tp4038 a(g185 V tp4039 a(g21 VSameByteA p4040 tp4041 a(g198 V( tp4042 a(g111 Vconst p4043 tp4044 a(g185 V tp4045 a(g18 VA tp4046 a(g339 V, tp4047 a(g185 V tp4048 a(g18 VB tp4049 a(g339 V: tp4050 a(g185 V tp4051 a(g18 VTByteA p4052 tp4053 a(g198 V) tp4054 a(g339 V: tp4055 a(g185 V tp4056 a(g135 VBoolean p4057 tp4058 a(g339 V; tp4059 a(g185 V\u000a tp4060 a(g111 Vfunction p4061 tp4062 a(g185 V tp4063 a(g21 VReverse p4064 tp4065 a(g198 V( tp4066 a(g18 Va tp4067 a(g339 V: tp4068 a(g185 V tp4069 a(g18 VTByteA p4070 tp4071 a(g198 V) tp4072 a(g339 V: tp4073 a(g185 V tp4074 a(g18 VTByteA p4075 tp4076 a(g339 V; tp4077 a(g185 V\u000a tp4078 a(g111 Vfunction p4079 tp4080 a(g185 V tp4081 a(g21 VSaveByteA p4082 tp4083 a(g198 V( tp4084 a(g18 VData p4085 tp4086 a(g339 V: tp4087 a(g185 V tp4088 a(g18 VTByteA p4089 tp4090 a(g339 V; tp4091 a(g185 V tp4092 a(g111 Vconst p4093 tp4094 a(g185 V tp4095 a(g18 VFileName p4096 tp4097 a(g339 V: tp4098 a(g185 V tp4099 a(g111 Vstring p4100 tp4101 a(g339 V; tp4102 a(g185 V tp4103 a(g18 VOverwrite p4104 tp4105 a(g339 V: tp4106 a(g185 V tp4107 a(g135 VBoolean p4108 tp4109 a(g185 V tp4110 a(g339 V= tp4111 a(g185 V tp4112 a(g111 VTrue p4113 tp4114 a(g198 V) tp4115 a(g339 V: tp4116 a(g185 V tp4117 a(g135 VBoolean p4118 tp4119 a(g339 V; tp4120 a(g185 V\u000a tp4121 a(g111 Vfunction p4122 tp4123 a(g185 V tp4124 a(g21 VLoadByteA p4125 tp4126 a(g198 V( tp4127 a(g111 Vconst p4128 tp4129 a(g185 V tp4130 a(g18 VFileName p4131 tp4132 a(g339 V: tp4133 a(g185 V tp4134 a(g111 Vstring p4135 tp4136 a(g198 V) tp4137 a(g339 V: tp4138 a(g185 V tp4139 a(g18 VTByteA p4140 tp4141 a(g339 V; tp4142 a(g185 V\u000a\u000a p4143 tp4144 a(g111 Vfunction p4145 tp4146 a(g185 V tp4147 a(g21 VEndian p4148 tp4149 a(g198 V( tp4150 a(g18 Vi tp4151 a(g339 V: tp4152 a(g185 V tp4153 a(g135 VInteger p4154 tp4155 a(g198 V) tp4156 a(g339 V: tp4157 a(g185 V tp4158 a(g135 VInteger p4159 tp4160 a(g339 V; tp4161 a(g185 V\u000a\u000a p4162 tp4163 a(g354 V{ Files } p4164 tp4165 a(g185 V\u000a tp4166 a(g111 Vfunction p4167 tp4168 a(g185 V tp4169 a(g21 VSizeOfFile p4170 tp4171 a(g198 V( tp4172 a(g111 Vconst p4173 tp4174 a(g185 V tp4175 a(g18 VFileName p4176 tp4177 a(g339 V: tp4178 a(g185 V tp4179 a(g111 Vstring p4180 tp4181 a(g198 V) tp4182 a(g339 V: tp4183 a(g185 V tp4184 a(g135 VInteger p4185 tp4186 a(g339 V; tp4187 a(g185 V\u000a tp4188 a(g111 Vfunction p4189 tp4190 a(g185 V tp4191 a(g21 VFileEx p4192 tp4193 a(g198 V( tp4194 a(g111 Vconst p4195 tp4196 a(g185 V tp4197 a(g18 VFileName p4198 tp4199 a(g339 V: tp4200 a(g185 V tp4201 a(g111 Vstring p4202 tp4203 a(g339 V; tp4204 a(g185 V tp4205 a(g18 VAllowFolders p4206 tp4207 a(g339 V: tp4208 a(g185 V tp4209 a(g135 VBoolean p4210 tp4211 a(g185 V tp4212 a(g339 V= tp4213 a(g185 V tp4214 a(g111 VFalse p4215 tp4216 a(g198 V) tp4217 a(g339 V: tp4218 a(g185 V tp4219 a(g135 VBoolean p4220 tp4221 a(g339 V; tp4222 a(g185 V\u000a tp4223 a(g111 Vfunction p4224 tp4225 a(g185 V tp4226 a(g21 VLWPSolve p4227 tp4228 a(g198 V( tp4229 a(g111 Vconst p4230 tp4231 a(g185 V tp4232 a(g18 VDir p4233 tp4234 a(g339 V: tp4235 a(g185 V tp4236 a(g111 Vstring p4237 tp4238 a(g198 V) tp4239 a(g339 V: tp4240 a(g185 V tp4241 a(g111 Vstring p4242 tp4243 a(g339 V; tp4244 a(g185 V\u000a tp4245 a(g111 Vfunction p4246 tp4247 a(g185 V tp4248 a(g21 VLWPSlash p4249 tp4250 a(g198 V( tp4251 a(g111 Vconst p4252 tp4253 a(g185 V tp4254 a(g18 VDir p4255 tp4256 a(g339 V: tp4257 a(g185 V tp4258 a(g111 Vstring p4259 tp4260 a(g198 V) tp4261 a(g339 V: tp4262 a(g185 V tp4263 a(g111 Vstring p4264 tp4265 a(g339 V; tp4266 a(g185 V\u000a\u000a p4267 tp4268 a(g111 Vfunction p4269 tp4270 a(g185 V tp4271 a(g21 VExtractDrive p4272 tp4273 a(g198 V( tp4274 a(g111 Vconst p4275 tp4276 a(g185 V tp4277 a(g18 VFileName p4278 tp4279 a(g339 V: tp4280 a(g185 V tp4281 a(g111 Vstring p4282 tp4283 a(g198 V) tp4284 a(g339 V: tp4285 a(g185 V tp4286 a(g111 Vstring p4287 tp4288 a(g339 V; tp4289 a(g185 V\u000a tp4290 a(g111 Vfunction p4291 tp4292 a(g185 V tp4293 a(g21 VExtractPath p4294 tp4295 a(g198 V( tp4296 a(g111 Vconst p4297 tp4298 a(g185 V tp4299 a(g18 VFileName p4300 tp4301 a(g339 V: tp4302 a(g185 V tp4303 a(g111 Vstring p4304 tp4305 a(g198 V) tp4306 a(g339 V: tp4307 a(g185 V tp4308 a(g111 Vstring p4309 tp4310 a(g339 V; tp4311 a(g185 V\u000a tp4312 a(g111 Vfunction p4313 tp4314 a(g185 V tp4315 a(g21 VExtractPrefix p4316 tp4317 a(g198 V( tp4318 a(g111 Vconst p4319 tp4320 a(g185 V tp4321 a(g18 VFileName p4322 tp4323 a(g339 V: tp4324 a(g185 V tp4325 a(g111 Vstring p4326 tp4327 a(g198 V) tp4328 a(g339 V: tp4329 a(g185 V tp4330 a(g111 Vstring p4331 tp4332 a(g339 V; tp4333 a(g185 V\u000a tp4334 a(g111 Vfunction p4335 tp4336 a(g185 V tp4337 a(g21 VExtractSuffix p4338 tp4339 a(g198 V( tp4340 a(g111 Vconst p4341 tp4342 a(g185 V tp4343 a(g18 VFileName p4344 tp4345 a(g339 V: tp4346 a(g185 V tp4347 a(g111 Vstring p4348 tp4349 a(g198 V) tp4350 a(g339 V: tp4351 a(g185 V tp4352 a(g111 Vstring p4353 tp4354 a(g339 V; tp4355 a(g185 V\u000a\u000a p4356 tp4357 a(g111 Vfunction p4358 tp4359 a(g185 V tp4360 a(g21 VIsValidFileName p4361 tp4362 a(g198 V( tp4363 a(g111 Vconst p4364 tp4365 a(g185 V tp4366 a(g18 VFileName p4367 tp4368 a(g339 V: tp4369 a(g185 V tp4370 a(g111 Vstring p4371 tp4372 a(g198 V) tp4373 a(g339 V: tp4374 a(g185 V tp4375 a(g135 VBoolean p4376 tp4377 a(g339 V; tp4378 a(g185 V\u000a tp4379 a(g111 Vfunction p4380 tp4381 a(g185 V tp4382 a(g21 VMakeValidFileName p4383 tp4384 a(g198 V( tp4385 a(g18 VFileName p4386 tp4387 a(g339 V: tp4388 a(g185 V tp4389 a(g111 Vstring p4390 tp4391 a(g339 V; tp4392 a(g185 V tp4393 a(g111 Vconst p4394 tp4395 a(g185 V tp4396 a(g119 VDefault p4397 tp4398 a(g339 V: tp4399 a(g185 V tp4400 a(g111 Vstring p4401 tp4402 a(g185 V tp4403 a(g339 V= tp4404 a(g185 V tp4405 a(g222 V' tp4406 a(g222 VFile p4407 tp4408 a(g222 V' tp4409 a(g198 V) tp4410 a(g339 V: tp4411 a(g185 V tp4412 a(g111 Vstring p4413 tp4414 a(g339 V; tp4415 a(g185 V\u000a\u000a p4416 tp4417 a(g354 V{ Converting } p4418 tp4419 a(g185 V\u000a tp4420 a(g111 Vfunction p4421 tp4422 a(g185 V tp4423 a(g21 VIsValidInteger p4424 tp4425 a(g198 V( tp4426 a(g111 Vconst p4427 tp4428 a(g185 V tp4429 a(g18 VS tp4430 a(g339 V: tp4431 a(g185 V tp4432 a(g111 Vstring p4433 tp4434 a(g198 V) tp4435 a(g339 V: tp4436 a(g185 V tp4437 a(g135 VBoolean p4438 tp4439 a(g339 V; tp4440 a(g185 V\u000a tp4441 a(g111 Vfunction p4442 tp4443 a(g185 V tp4444 a(g21 VIsValidCardinal p4445 tp4446 a(g198 V( tp4447 a(g111 Vconst p4448 tp4449 a(g185 V tp4450 a(g18 VS tp4451 a(g339 V: tp4452 a(g185 V tp4453 a(g111 Vstring p4454 tp4455 a(g198 V) tp4456 a(g339 V: tp4457 a(g185 V tp4458 a(g135 VBoolean p4459 tp4460 a(g339 V; tp4461 a(g185 V\u000a\u000a p4462 tp4463 a(g111 Vfunction p4464 tp4465 a(g185 V tp4466 a(g21 VStrOfBool p4467 tp4468 a(g198 V( tp4469 a(g18 Vflag p4470 tp4471 a(g339 V: tp4472 a(g185 V tp4473 a(g135 VBoolean p4474 tp4475 a(g339 V; tp4476 a(g185 V tp4477 a(g111 Vconst p4478 tp4479 a(g185 V tp4480 a(g18 VTrueStr p4481 tp4482 a(g339 V: tp4483 a(g185 V tp4484 a(g111 Vstring p4485 tp4486 a(g185 V tp4487 a(g339 V= tp4488 a(g185 V tp4489 a(g222 V' tp4490 a(g222 VTrue p4491 tp4492 a(g222 V' tp4493 a(g339 V; tp4494 a(g185 V\u000a p4495 tp4496 a(g111 Vconst p4497 tp4498 a(g185 V tp4499 a(g18 VFalseStr p4500 tp4501 a(g339 V: tp4502 a(g185 V tp4503 a(g111 Vstring p4504 tp4505 a(g185 V tp4506 a(g339 V= tp4507 a(g185 V tp4508 a(g222 V' tp4509 a(g222 VFalse p4510 tp4511 a(g222 V' tp4512 a(g198 V) tp4513 a(g339 V: tp4514 a(g185 V tp4515 a(g111 Vstring p4516 tp4517 a(g339 V; tp4518 a(g185 V\u000a tp4519 a(g111 Vfunction p4520 tp4521 a(g185 V tp4522 a(g21 VStrOfInt p4523 tp4524 a(g198 V( tp4525 a(g18 Vi tp4526 a(g339 V: tp4527 a(g185 V tp4528 a(g135 VInteger p4529 tp4530 a(g198 V) tp4531 a(g339 V: tp4532 a(g185 V tp4533 a(g111 Vstring p4534 tp4535 a(g339 V; tp4536 a(g185 V\u000a tp4537 a(g111 Vfunction p4538 tp4539 a(g185 V tp4540 a(g21 VCardOfStr p4541 tp4542 a(g198 V( tp4543 a(g111 Vconst p4544 tp4545 a(g185 V tp4546 a(g18 VS tp4547 a(g339 V: tp4548 a(g185 V tp4549 a(g111 Vstring p4550 tp4551 a(g198 V) tp4552 a(g339 V: tp4553 a(g185 V tp4554 a(g135 VCardinal p4555 tp4556 a(g339 V; tp4557 a(g185 V\u000a\u000a p4558 tp4559 a(g111 Vfunction p4560 tp4561 a(g185 V tp4562 a(g21 VHexOrd p4563 tp4564 a(g198 V( tp4565 a(g18 VHex p4566 tp4567 a(g339 V: tp4568 a(g185 V tp4569 a(g135 VChar p4570 tp4571 a(g198 V) tp4572 a(g339 V: tp4573 a(g185 V tp4574 a(g18 VTHex p4575 tp4576 a(g339 V; tp4577 a(g185 V\u000a tp4578 a(g111 Vfunction p4579 tp4580 a(g185 V tp4581 a(g21 VByteOfHex p4582 tp4583 a(g198 V( tp4584 a(g18 VHex p4585 tp4586 a(g339 V: tp4587 a(g185 V tp4588 a(g18 VTHexByteStr p4589 tp4590 a(g198 V) tp4591 a(g339 V: tp4592 a(g185 V tp4593 a(g135 VByte p4594 tp4595 a(g339 V; tp4596 a(g185 V\u000a\u000a p4597 tp4598 a(g111 Vfunction p4599 tp4600 a(g185 V tp4601 a(g21 VDecOfHex p4602 tp4603 a(g198 V( tp4604 a(g111 Vconst p4605 tp4606 a(g185 V tp4607 a(g18 VHex p4608 tp4609 a(g339 V: tp4610 a(g185 V tp4611 a(g111 Vstring p4612 tp4613 a(g198 V) tp4614 a(g339 V: tp4615 a(g185 V tp4616 a(g111 Vstring p4617 tp4618 a(g339 V; tp4619 a(g185 V\u000a tp4620 a(g111 Vfunction p4621 tp4622 a(g185 V tp4623 a(g21 VHexOfByte p4624 tp4625 a(g198 V( tp4626 a(g18 Vb tp4627 a(g339 V: tp4628 a(g185 V tp4629 a(g135 VByte p4630 tp4631 a(g198 V) tp4632 a(g339 V: tp4633 a(g185 V tp4634 a(g18 VTHexByteStr p4635 tp4636 a(g339 V; tp4637 a(g185 V\u000a tp4638 a(g111 Vfunction p4639 tp4640 a(g185 V tp4641 a(g21 VHexOfCard p4642 tp4643 a(g198 V( tp4644 a(g18 Vi tp4645 a(g339 V: tp4646 a(g185 V tp4647 a(g135 VCardinal p4648 tp4649 a(g198 V) tp4650 a(g339 V: tp4651 a(g185 V tp4652 a(g111 Vstring p4653 tp4654 a(g339 V; tp4655 a(g185 V tp4656 a(g18 Voverload p4657 tp4658 a(g339 V; tp4659 a(g185 V\u000a tp4660 a(g111 Vfunction p4661 tp4662 a(g185 V tp4663 a(g21 VHexOfCard p4664 tp4665 a(g198 V( tp4666 a(g18 Vi tp4667 a(g339 V: tp4668 a(g185 V tp4669 a(g135 VCardinal p4670 tp4671 a(g339 V; tp4672 a(g185 V tp4673 a(g18 VDigits p4674 tp4675 a(g339 V: tp4676 a(g185 V tp4677 a(g135 VInteger p4678 tp4679 a(g198 V) tp4680 a(g339 V: tp4681 a(g185 V tp4682 a(g111 Vstring p4683 tp4684 a(g339 V; tp4685 a(g185 V tp4686 a(g18 Voverload p4687 tp4688 a(g339 V; tp4689 a(g185 V\u000a\u000a p4690 tp4691 a(g111 Vfunction p4692 tp4693 a(g185 V tp4694 a(g21 VPascalHexArray p4695 tp4696 a(g198 V( tp4697 a(g18 Va tp4698 a(g339 V: tp4699 a(g185 V tp4700 a(g18 VTByteA p4701 tp4702 a(g339 V; tp4703 a(g185 V tp4704 a(g119 VName p4705 tp4706 a(g339 V: tp4707 a(g185 V tp4708 a(g111 Vstring p4709 tp4710 a(g198 V) tp4711 a(g339 V: tp4712 a(g185 V tp4713 a(g111 Vstring p4714 tp4715 a(g339 V; tp4716 a(g185 V\u000a\u000a p4717 tp4718 a(g111 Vfunction p4719 tp4720 a(g185 V tp4721 a(g21 VHexOfByteA p4722 tp4723 a(g198 V( tp4724 a(g18 Va tp4725 a(g339 V: tp4726 a(g185 V tp4727 a(g18 VTByteA p4728 tp4729 a(g339 V; tp4730 a(g185 V tp4731 a(g18 VBlocks p4732 tp4733 a(g339 V: tp4734 a(g185 V tp4735 a(g135 VInteger p4736 tp4737 a(g185 V tp4738 a(g339 V= tp4739 a(g185 V tp4740 a(g314 V1 tp4741 a(g339 V; tp4742 a(g185 V\u000a p4743 tp4744 a(g111 Vconst p4745 tp4746 a(g185 V tp4747 a(g18 VSplitter p4748 tp4749 a(g339 V: tp4750 a(g185 V tp4751 a(g111 Vstring p4752 tp4753 a(g185 V tp4754 a(g339 V= tp4755 a(g185 V tp4756 a(g222 V' tp4757 a(g222 V tp4758 a(g222 V' tp4759 a(g198 V) tp4760 a(g339 V: tp4761 a(g185 V tp4762 a(g111 Vstring p4763 tp4764 a(g339 V; tp4765 a(g185 V\u000a tp4766 a(g111 Vfunction p4767 tp4768 a(g185 V tp4769 a(g21 VBinOfByteA p4770 tp4771 a(g198 V( tp4772 a(g18 Va tp4773 a(g339 V: tp4774 a(g185 V tp4775 a(g18 VTByteA p4776 tp4777 a(g339 V; tp4778 a(g185 V tp4779 a(g18 VBlocks p4780 tp4781 a(g339 V: tp4782 a(g185 V tp4783 a(g135 VInteger p4784 tp4785 a(g185 V tp4786 a(g339 V= tp4787 a(g185 V tp4788 a(g314 V4 tp4789 a(g339 V; tp4790 a(g185 V\u000a p4791 tp4792 a(g111 Vconst p4793 tp4794 a(g185 V tp4795 a(g18 VSplitter p4796 tp4797 a(g339 V: tp4798 a(g185 V tp4799 a(g111 Vstring p4800 tp4801 a(g185 V tp4802 a(g339 V= tp4803 a(g185 V tp4804 a(g222 V' tp4805 a(g222 V tp4806 a(g222 V' tp4807 a(g198 V) tp4808 a(g339 V: tp4809 a(g185 V tp4810 a(g111 Vstring p4811 tp4812 a(g339 V; tp4813 a(g185 V\u000a\u000a p4814 tp4815 a(g111 Vfunction p4816 tp4817 a(g185 V tp4818 a(g21 VCardOfHex p4819 tp4820 a(g198 V( tp4821 a(g18 VHex p4822 tp4823 a(g339 V: tp4824 a(g185 V tp4825 a(g111 Vstring p4826 tp4827 a(g198 V) tp4828 a(g339 V: tp4829 a(g185 V tp4830 a(g135 VCardinal p4831 tp4832 a(g339 V; tp4833 a(g185 V\u000a tp4834 a(g111 Vfunction p4835 tp4836 a(g185 V tp4837 a(g21 VIntOfBin p4838 tp4839 a(g198 V( tp4840 a(g18 VBin p4841 tp4842 a(g339 V: tp4843 a(g185 V tp4844 a(g111 Vstring p4845 tp4846 a(g198 V) tp4847 a(g339 V: tp4848 a(g185 V tp4849 a(g135 VCardinal p4850 tp4851 a(g339 V; tp4852 a(g185 V\u000a\u000a p4853 tp4854 a(g111 Vfunction p4855 tp4856 a(g185 V tp4857 a(g21 VBinOfIntFill p4858 tp4859 a(g198 V( tp4860 a(g18 Vn tp4861 a(g339 V: tp4862 a(g185 V tp4863 a(g135 Vcardinal p4864 tp4865 a(g339 V; tp4866 a(g185 V tp4867 a(g18 VMinCount p4868 tp4869 a(g339 V: tp4870 a(g185 V tp4871 a(g135 VInteger p4872 tp4873 a(g185 V tp4874 a(g339 V= tp4875 a(g185 V tp4876 a(g314 V8 tp4877 a(g198 V) tp4878 a(g339 V: tp4879 a(g185 V tp4880 a(g111 Vstring p4881 tp4882 a(g339 V; tp4883 a(g185 V\u000a tp4884 a(g111 Vfunction p4885 tp4886 a(g185 V tp4887 a(g21 VBinOfInt p4888 tp4889 a(g198 V( tp4890 a(g18 Vn tp4891 a(g339 V: tp4892 a(g185 V tp4893 a(g135 Vcardinal p4894 tp4895 a(g198 V) tp4896 a(g339 V: tp4897 a(g185 V tp4898 a(g111 Vstring p4899 tp4900 a(g339 V; tp4901 a(g185 V\u000a\u000a p4902 tp4903 a(g111 Vfunction p4904 tp4905 a(g185 V tp4906 a(g21 VBaseNOfInt p4907 tp4908 a(g198 V( tp4909 a(g18 VI tp4910 a(g339 V: tp4911 a(g185 V tp4912 a(g135 VCardinal p4913 tp4914 a(g339 V; tp4915 a(g185 V tp4916 a(g18 VB tp4917 a(g339 V: tp4918 a(g185 V tp4919 a(g18 VTBaseN p4920 tp4921 a(g198 V) tp4922 a(g339 V: tp4923 a(g185 V tp4924 a(g111 Vstring p4925 tp4926 a(g339 V; tp4927 a(g185 V\u000a tp4928 a(g111 Vfunction p4929 tp4930 a(g185 V tp4931 a(g21 VIntOfBaseN p4932 tp4933 a(g198 V( tp4934 a(g18 VV tp4935 a(g339 V: tp4936 a(g185 V tp4937 a(g111 Vstring p4938 tp4939 a(g339 V; tp4940 a(g185 V tp4941 a(g18 VB tp4942 a(g339 V: tp4943 a(g185 V tp4944 a(g18 VTBaseN p4945 tp4946 a(g198 V) tp4947 a(g339 V: tp4948 a(g185 V tp4949 a(g135 VCardinal p4950 tp4951 a(g339 V; tp4952 a(g185 V\u000a\u000a p4953 tp4954 a(g354 V{ Ranges } p4955 tp4956 a(g185 V\u000a tp4957 a(g111 Vfunction p4958 tp4959 a(g185 V tp4960 a(g21 VKeepIn p4961 tp4962 a(g198 V( tp4963 a(g18 Vi tp4964 a(g339 V, tp4965 a(g185 V tp4966 a(g18 VBottom p4967 tp4968 a(g339 V, tp4969 a(g185 V tp4970 a(g18 VTop p4971 tp4972 a(g339 V: tp4973 a(g185 V tp4974 a(g135 VVariant p4975 tp4976 a(g198 V) tp4977 a(g339 V: tp4978 a(g185 V tp4979 a(g135 VVariant p4980 tp4981 a(g339 V; tp4982 a(g185 V\u000a tp4983 a(g111 Vfunction p4984 tp4985 a(g185 V tp4986 a(g21 VInRange p4987 tp4988 a(g198 V( tp4989 a(g18 VValue p4990 tp4991 a(g339 V, tp4992 a(g185 V tp4993 a(g18 VBottom p4994 tp4995 a(g339 V, tp4996 a(g185 V tp4997 a(g18 VTop p4998 tp4999 a(g339 V: tp5000 a(g185 V tp5001 a(g135 VVariant p5002 tp5003 a(g198 V) tp5004 a(g339 V: tp5005 a(g185 V tp5006 a(g135 VBoolean p5007 tp5008 a(g339 V; tp5009 a(g185 V\u000a tp5010 a(g111 Vfunction p5011 tp5012 a(g185 V tp5013 a(g21 VInStrictRange p5014 tp5015 a(g198 V( tp5016 a(g18 VValue p5017 tp5018 a(g339 V, tp5019 a(g185 V tp5020 a(g18 VBottom p5021 tp5022 a(g339 V, tp5023 a(g185 V tp5024 a(g18 VTop p5025 tp5026 a(g339 V: tp5027 a(g185 V tp5028 a(g135 VVariant p5029 tp5030 a(g198 V) tp5031 a(g339 V: tp5032 a(g185 V tp5033 a(g135 VBoolean p5034 tp5035 a(g339 V; tp5036 a(g185 V\u000a tp5037 a(g111 Vfunction p5038 tp5039 a(g185 V tp5040 a(g21 VMin p5041 tp5042 a(g198 V( tp5043 a(g111 Vconst p5044 tp5045 a(g185 V tp5046 a(g18 VA tp5047 a(g339 V, tp5048 a(g185 V tp5049 a(g18 VB tp5050 a(g339 V: tp5051 a(g185 V tp5052 a(g135 VInteger p5053 tp5054 a(g198 V) tp5055 a(g339 V: tp5056 a(g185 V tp5057 a(g135 VInteger p5058 tp5059 a(g339 V; tp5060 a(g185 V tp5061 a(g18 Voverload p5062 tp5063 a(g339 V; tp5064 a(g185 V\u000a tp5065 a(g111 Vfunction p5066 tp5067 a(g185 V tp5068 a(g21 VMin p5069 tp5070 a(g198 V( tp5071 a(g111 Vconst p5072 tp5073 a(g185 V tp5074 a(g18 VA tp5075 a(g339 V: tp5076 a(g185 V tp5077 a(g18 VTIntA p5078 tp5079 a(g198 V) tp5080 a(g339 V: tp5081 a(g185 V tp5082 a(g135 VInteger p5083 tp5084 a(g339 V; tp5085 a(g185 V tp5086 a(g18 Voverload p5087 tp5088 a(g339 V; tp5089 a(g185 V\u000a tp5090 a(g111 Vfunction p5091 tp5092 a(g185 V tp5093 a(g21 VMax p5094 tp5095 a(g198 V( tp5096 a(g111 Vconst p5097 tp5098 a(g185 V tp5099 a(g18 VA tp5100 a(g339 V, tp5101 a(g185 V tp5102 a(g18 VB tp5103 a(g339 V: tp5104 a(g185 V tp5105 a(g135 VInteger p5106 tp5107 a(g198 V) tp5108 a(g339 V: tp5109 a(g185 V tp5110 a(g135 VInteger p5111 tp5112 a(g339 V; tp5113 a(g185 V tp5114 a(g18 Voverload p5115 tp5116 a(g339 V; tp5117 a(g185 V\u000a tp5118 a(g111 Vfunction p5119 tp5120 a(g185 V tp5121 a(g21 VMax p5122 tp5123 a(g198 V( tp5124 a(g111 Vconst p5125 tp5126 a(g185 V tp5127 a(g18 VA tp5128 a(g339 V: tp5129 a(g185 V tp5130 a(g18 VTIntA p5131 tp5132 a(g198 V) tp5133 a(g339 V: tp5134 a(g185 V tp5135 a(g135 VInteger p5136 tp5137 a(g339 V; tp5138 a(g185 V tp5139 a(g18 Voverload p5140 tp5141 a(g339 V; tp5142 a(g185 V\u000a\u000a p5143 tp5144 a(g111 Vconst p5145 tp5146 a(g185 V\u000a p5147 tp5148 a(g18 VRangesSeparator p5149 tp5150 a(g185 V tp5151 a(g339 V= tp5152 a(g185 V tp5153 a(g222 V' tp5154 a(g222 V, tp5155 a(g222 V' tp5156 a(g339 V; tp5157 a(g185 V\u000a p5158 tp5159 a(g18 VRangeInnerSeparator p5160 tp5161 a(g185 V tp5162 a(g339 V= tp5163 a(g185 V tp5164 a(g222 V' tp5165 a(g222 V- tp5166 a(g222 V' tp5167 a(g339 V; tp5168 a(g185 V\u000a p5169 tp5170 a(g18 VRangeInfinite p5171 tp5172 a(g185 V tp5173 a(g339 V= tp5174 a(g185 V tp5175 a(g222 V' tp5176 a(g222 V* tp5177 a(g222 V' tp5178 a(g339 V; tp5179 a(g185 V\u000a p5180 tp5181 a(g18 VRangeSpecialChars p5182 tp5183 a(g185 V tp5184 a(g339 V= tp5185 a(g185 V tp5186 a(g198 V[ tp5187 a(g18 VRangesSeparator p5188 tp5189 a(g339 V, tp5190 a(g185 V tp5191 a(g18 VRangeInnerSeparator p5192 tp5193 a(g339 V, tp5194 a(g185 V tp5195 a(g18 VRangeInfinite p5196 tp5197 a(g198 V] tp5198 a(g339 V; tp5199 a(g185 V\u000a\u000a p5200 tp5201 a(g111 Vfunction p5202 tp5203 a(g185 V tp5204 a(g21 VRangesOfStr p5205 tp5206 a(g198 V( tp5207 a(g111 Vconst p5208 tp5209 a(g185 V tp5210 a(g18 VS tp5211 a(g339 V: tp5212 a(g185 V tp5213 a(g111 Vstring p5214 tp5215 a(g198 V) tp5216 a(g339 V: tp5217 a(g185 V tp5218 a(g18 VTRanges p5219 tp5220 a(g339 V; tp5221 a(g185 V\u000a tp5222 a(g111 Vfunction p5223 tp5224 a(g185 V tp5225 a(g21 VInRanges p5226 tp5227 a(g198 V( tp5228 a(g18 VRanges p5229 tp5230 a(g339 V: tp5231 a(g185 V tp5232 a(g18 VTRanges p5233 tp5234 a(g339 V; tp5235 a(g185 V tp5236 a(g18 VTestValue p5237 tp5238 a(g339 V: tp5239 a(g185 V tp5240 a(g135 VCardinal p5241 tp5242 a(g198 V) tp5243 a(g339 V: tp5244 a(g185 V tp5245 a(g135 VBoolean p5246 tp5247 a(g339 V; tp5248 a(g185 V\u000a\u000a p5249 tp5250 a(g111 Vfunction p5251 tp5252 a(g185 V tp5253 a(g21 VSuccess p5254 tp5255 a(g198 V( tp5256 a(g18 VRes p5257 tp5258 a(g339 V: tp5259 a(g185 V tp5260 a(g135 VInteger p5261 tp5262 a(g339 V; tp5263 a(g185 V tp5264 a(g18 VResultOnSuccess p5265 tp5266 a(g339 V: tp5267 a(g185 V tp5268 a(g135 VInteger p5269 tp5270 a(g185 V tp5271 a(g339 V= tp5272 a(g185 V tp5273 a(g18 VERROR_SUCCESS p5274 tp5275 a(g198 V) tp5276 a(g339 V: tp5277 a(g185 V tp5278 a(g135 VBoolean p5279 tp5280 a(g339 V; tp5281 a(g185 V\u000a tp5282 a(g111 Vfunction p5283 tp5284 a(g185 V tp5285 a(g21 VFailure p5286 tp5287 a(g198 V( tp5288 a(g18 VRes p5289 tp5290 a(g339 V: tp5291 a(g185 V tp5292 a(g135 VInteger p5293 tp5294 a(g339 V; tp5295 a(g185 V tp5296 a(g18 VResultOnSuccess p5297 tp5298 a(g339 V: tp5299 a(g185 V tp5300 a(g135 VInteger p5301 tp5302 a(g185 V tp5303 a(g339 V= tp5304 a(g185 V tp5305 a(g18 VERROR_SUCCESS p5306 tp5307 a(g198 V) tp5308 a(g339 V: tp5309 a(g185 V tp5310 a(g135 VBoolean p5311 tp5312 a(g339 V; tp5313 a(g185 V\u000a\u000a p5314 tp5315 a(g111 Vfunction p5316 tp5317 a(g185 V tp5318 a(g21 VExpandString p5319 tp5320 a(g198 V( tp5321 a(g111 Vconst p5322 tp5323 a(g185 V tp5324 a(g18 VS tp5325 a(g339 V: tp5326 a(g185 V tp5327 a(g111 Vstring p5328 tp5329 a(g198 V) tp5330 a(g339 V: tp5331 a(g185 V tp5332 a(g111 Vstring p5333 tp5334 a(g339 V; tp5335 a(g185 V\u000a\u000a p5336 tp5337 a(g354 V{ Files } p5338 tp5339 a(g185 V\u000a tp5340 a(g111 Vprocedure p5341 tp5342 a(g185 V tp5343 a(g21 VDeleteFiles p5344 tp5345 a(g198 V( tp5346 a(g111 Vconst p5347 tp5348 a(g185 V tp5349 a(g18 VMask p5350 tp5351 a(g339 V: tp5352 a(g185 V tp5353 a(g111 Vstring p5354 tp5355 a(g339 V; tp5356 a(g185 V tp5357 a(g18 VScanSubDirs p5358 tp5359 a(g339 V: tp5360 a(g185 V tp5361 a(g135 VBoolean p5362 tp5363 a(g185 V tp5364 a(g339 V= tp5365 a(g185 V tp5366 a(g111 VTrue p5367 tp5368 a(g339 V; tp5369 a(g185 V\u000a p5370 tp5371 a(g18 VAttributes p5372 tp5373 a(g339 V: tp5374 a(g185 V tp5375 a(g135 VInteger p5376 tp5377 a(g185 V tp5378 a(g339 V= tp5379 a(g185 V tp5380 a(g18 VfaFindEveryFile p5381 tp5382 a(g198 V) tp5383 a(g339 V; tp5384 a(g185 V\u000a tp5385 a(g111 Vprocedure p5386 tp5387 a(g185 V tp5388 a(g21 VFileNew p5389 tp5390 a(g198 V( tp5391 a(g111 Vconst p5392 tp5393 a(g185 V tp5394 a(g18 VFileName p5395 tp5396 a(g339 V: tp5397 a(g185 V tp5398 a(g111 Vstring p5399 tp5400 a(g198 V) tp5401 a(g339 V; tp5402 a(g185 V\u000a tp5403 a(g111 Vfunction p5404 tp5405 a(g185 V tp5406 a(g21 VDateTimeOfFileTime p5407 tp5408 a(g198 V( tp5409 a(g111 Vconst p5410 tp5411 a(g185 V tp5412 a(g18 VFileTime p5413 tp5414 a(g339 V: tp5415 a(g185 V tp5416 a(g18 VTFileTime p5417 tp5418 a(g198 V) tp5419 a(g339 V: tp5420 a(g185 V tp5421 a(g135 VTDateTime p5422 tp5423 a(g339 V; tp5424 a(g185 V\u000a\u000a p5425 tp5426 a(g354 V{ FileNames } p5427 tp5428 a(g185 V\u000a tp5429 a(g111 Vfunction p5430 tp5431 a(g185 V tp5432 a(g21 VGetFileNew p5433 tp5434 a(g198 V( tp5435 a(g18 VFileName p5436 tp5437 a(g339 V: tp5438 a(g185 V tp5439 a(g111 Vstring p5440 tp5441 a(g339 V; tp5442 a(g185 V tp5443 a(g18 VNoFloppyDrives p5444 tp5445 a(g339 V: tp5446 a(g185 V tp5447 a(g135 VBoolean p5448 tp5449 a(g185 V tp5450 a(g339 V= tp5451 a(g185 V tp5452 a(g111 VTrue p5453 tp5454 a(g198 V) tp5455 a(g339 V: tp5456 a(g185 V tp5457 a(g111 Vstring p5458 tp5459 a(g339 V; tp5460 a(g185 V\u000a\u000a p5461 tp5462 a(g354 V{ Finding Files } p5463 tp5464 a(g185 V\u000a tp5465 a(g111 Vfunction p5466 tp5467 a(g185 V tp5468 a(g21 VFindAll p5469 tp5470 a(g198 V( tp5471 a(g18 VStrings p5472 tp5473 a(g339 V: tp5474 a(g185 V tp5475 a(g18 VTStrings p5476 tp5477 a(g339 V; tp5478 a(g185 V tp5479 a(g111 Vconst p5480 tp5481 a(g185 V tp5482 a(g18 VMask p5483 tp5484 a(g339 V: tp5485 a(g185 V tp5486 a(g111 Vstring p5487 tp5488 a(g339 V; tp5489 a(g185 V\u000a p5490 tp5491 a(g18 VScanSubDirs p5492 tp5493 a(g339 V: tp5494 a(g185 V tp5495 a(g135 VBoolean p5496 tp5497 a(g185 V tp5498 a(g339 V= tp5499 a(g185 V tp5500 a(g111 VTrue p5501 tp5502 a(g339 V; tp5503 a(g185 V tp5504 a(g18 VAttributes p5505 tp5506 a(g339 V: tp5507 a(g185 V tp5508 a(g135 VInteger p5509 tp5510 a(g185 V tp5511 a(g339 V= tp5512 a(g185 V tp5513 a(g18 VfaFindEveryFile p5514 tp5515 a(g339 V; tp5516 a(g185 V\u000a p5517 tp5518 a(g18 VFileReturn p5519 tp5520 a(g339 V: tp5521 a(g185 V tp5522 a(g18 VTFileNameFunc p5523 tp5524 a(g185 V tp5525 a(g339 V= tp5526 a(g185 V tp5527 a(g111 Vnil p5528 tp5529 a(g198 V) tp5530 a(g339 V: tp5531 a(g185 V tp5532 a(g135 VBoolean p5533 tp5534 a(g339 V; tp5535 a(g185 V\u000a tp5536 a(g111 Vfunction p5537 tp5538 a(g185 V tp5539 a(g21 VFindAllFirst p5540 tp5541 a(g198 V( tp5542 a(g111 Vconst p5543 tp5544 a(g185 V tp5545 a(g18 VMask p5546 tp5547 a(g339 V: tp5548 a(g185 V tp5549 a(g111 Vstring p5550 tp5551 a(g339 V; tp5552 a(g185 V tp5553 a(g18 VScanSubDirs p5554 tp5555 a(g339 V: tp5556 a(g185 V tp5557 a(g135 VBoolean p5558 tp5559 a(g185 V tp5560 a(g339 V= tp5561 a(g185 V tp5562 a(g111 VTrue p5563 tp5564 a(g339 V; tp5565 a(g185 V\u000a p5566 tp5567 a(g18 VAttributes p5568 tp5569 a(g339 V: tp5570 a(g185 V tp5571 a(g135 VInteger p5572 tp5573 a(g185 V tp5574 a(g339 V= tp5575 a(g185 V tp5576 a(g18 VfaFindEveryFile p5577 tp5578 a(g198 V) tp5579 a(g339 V: tp5580 a(g185 V tp5581 a(g111 Vstring p5582 tp5583 a(g339 V; tp5584 a(g185 V\u000a\u000a p5585 tp5586 a(g111 Vfunction p5587 tp5588 a(g185 V tp5589 a(g21 VFullOSInfo p5590 tp5591 a(g339 V: tp5592 a(g185 V tp5593 a(g111 Vstring p5594 tp5595 a(g339 V; tp5596 a(g185 V\u000a tp5597 a(g111 Vfunction p5598 tp5599 a(g185 V tp5600 a(g21 VWin32PlatformStr p5601 tp5602 a(g339 V: tp5603 a(g185 V tp5604 a(g111 Vstring p5605 tp5606 a(g339 V; tp5607 a(g185 V\u000a tp5608 a(g111 Vfunction p5609 tp5610 a(g185 V tp5611 a(g21 VWin9x p5612 tp5613 a(g339 V: tp5614 a(g185 V tp5615 a(g135 VBoolean p5616 tp5617 a(g339 V; tp5618 a(g185 V\u000a tp5619 a(g111 Vfunction p5620 tp5621 a(g185 V tp5622 a(g21 VWinNT p5623 tp5624 a(g339 V: tp5625 a(g185 V tp5626 a(g135 VBoolean p5627 tp5628 a(g339 V; tp5629 a(g185 V\u000a tp5630 a(g111 Vfunction p5631 tp5632 a(g185 V tp5633 a(g21 VWin2000 p5634 tp5635 a(g339 V: tp5636 a(g185 V tp5637 a(g135 VBoolean p5638 tp5639 a(g339 V; tp5640 a(g185 V\u000a tp5641 a(g111 Vfunction p5642 tp5643 a(g185 V tp5644 a(g21 VWinXP p5645 tp5646 a(g339 V: tp5647 a(g185 V tp5648 a(g135 VBoolean p5649 tp5650 a(g339 V; tp5651 a(g185 V\u000a\u000a p5652 tp5653 a(g111 Vvar p5654 tp5655 a(g185 V\u000a p5656 tp5657 a(g18 VMyDir p5658 tp5659 a(g339 V: tp5660 a(g185 V tp5661 a(g111 Vstring p5662 tp5663 a(g185 V tp5664 a(g339 V= tp5665 a(g185 V tp5666 a(g222 V' tp5667 a(g222 V' tp5668 a(g339 V; tp5669 a(g185 V\u000a p5670 tp5671 a(g18 VLastSuccessRes p5672 tp5673 a(g339 V: tp5674 a(g185 V tp5675 a(g135 VInteger p5676 tp5677 a(g185 V tp5678 a(g339 V= tp5679 a(g185 V tp5680 a(g314 V0 tp5681 a(g339 V; tp5682 a(g185 V\u000a \u000a p5683 tp5684 a(g354 V{ Backward compatibility } p5685 tp5686 a(g185 V\u000a tp5687 a(g354 V{$IFNDEF VER130} p5688 tp5689 a(g185 V\u000a tp5690 a(g111 Vfunction p5691 tp5692 a(g185 V tp5693 a(g21 VSameText p5694 tp5695 a(g198 V( tp5696 a(g111 Vconst p5697 tp5698 a(g185 V tp5699 a(g18 VS1 p5700 tp5701 a(g339 V, tp5702 a(g185 V tp5703 a(g18 VS2 p5704 tp5705 a(g339 V: tp5706 a(g185 V tp5707 a(g111 Vstring p5708 tp5709 a(g198 V) tp5710 a(g339 V: tp5711 a(g185 V tp5712 a(g135 VBoolean p5713 tp5714 a(g339 V; tp5715 a(g185 V\u000a tp5716 a(g354 V{$ENDIF} p5717 tp5718 a(g185 V\u000a\u000a p5719 tp5720 a(g111 Vimplementation p5721 tp5722 a(g185 V\u000a tp5723 a(g354 V{$IFNDEF VER140} p5724 tp5725 a(g185 V\u000a tp5726 a(g111 Vuses p5727 tp5728 a(g185 V tp5729 a(g18 VFileCtrl p5730 tp5731 a(g339 V; tp5732 a(g185 V\u000a tp5733 a(g354 V{$ENDIF} p5734 tp5735 a(g185 V\u000a\u000a p5736 tp5737 a(g354 V{$IFNDEF VER130} p5738 tp5739 a(g185 V\u000a tp5740 a(g111 Vfunction p5741 tp5742 a(g185 V tp5743 a(g21 VSameText p5744 tp5745 a(g198 V( tp5746 a(g111 Vconst p5747 tp5748 a(g185 V tp5749 a(g18 VS1 p5750 tp5751 a(g339 V, tp5752 a(g185 V tp5753 a(g18 VS2 p5754 tp5755 a(g339 V: tp5756 a(g185 V tp5757 a(g111 Vstring p5758 tp5759 a(g198 V) tp5760 a(g339 V: tp5761 a(g185 V tp5762 a(g135 VBoolean p5763 tp5764 a(g339 V; tp5765 a(g185 V\u000a tp5766 a(g111 Vbegin p5767 tp5768 a(g185 V\u000a p5769 tp5770 a(g60 VResult p5771 tp5772 a(g185 V tp5773 a(g339 V: tp5774 a(g339 V= tp5775 a(g185 V tp5776 a(g57 VCompareText p5777 tp5778 a(g198 V( tp5779 a(g18 VS1 p5780 tp5781 a(g339 V, tp5782 a(g185 V tp5783 a(g18 VS2 p5784 tp5785 a(g198 V) tp5786 a(g185 V tp5787 a(g339 V= tp5788 a(g185 V tp5789 a(g314 V0 tp5790 a(g339 V; tp5791 a(g185 V\u000a tp5792 a(g111 Vend p5793 tp5794 a(g339 V; tp5795 a(g185 V\u000a tp5796 a(g354 V{$ENDIF} p5797 tp5798 a(g185 V\u000a\u000a p5799 tp5800 a(g111 Vprocedure p5801 tp5802 a(g185 V tp5803 a(g21 VReport p5804 tp5805 a(g198 V( tp5806 a(g111 Vconst p5807 tp5808 a(g185 V tp5809 a(g18 VReportName p5810 tp5811 a(g339 V, tp5812 a(g185 V tp5813 a(g18 VText p5814 tp5815 a(g339 V: tp5816 a(g185 V tp5817 a(g111 Vstring p5818 tp5819 a(g198 V) tp5820 a(g339 V; tp5821 a(g185 V\u000a tp5822 a(g111 Vvar p5823 tp5824 a(g185 V\u000a p5825 tp5826 a(g18 VF tp5827 a(g339 V: tp5828 a(g185 V tp5829 a(g135 VTextFile p5830 tp5831 a(g339 V; tp5832 a(g185 V\u000a p5833 tp5834 a(g18 VFileName p5835 tp5836 a(g339 V: tp5837 a(g185 V tp5838 a(g111 Vstring p5839 tp5840 a(g339 V; tp5841 a(g185 V\u000a tp5842 a(g111 Vbegin p5843 tp5844 a(g185 V\u000a p5845 tp5846 a(g18 VFileName p5847 tp5848 a(g185 V tp5849 a(g339 V: tp5850 a(g339 V= tp5851 a(g185 V tp5852 a(g18 VMyDir p5853 tp5854 a(g185 V tp5855 a(g339 V+ tp5856 a(g185 V tp5857 a(g18 VReportName p5858 tp5859 a(g185 V tp5860 a(g339 V+ tp5861 a(g185 V tp5862 a(g222 V' tp5863 a(g222 V.rep p5864 tp5865 a(g222 V' tp5866 a(g339 V; tp5867 a(g185 V\u000a p5868 tp5869 a(g18 VAssign p5870 tp5871 a(g198 V( tp5872 a(g18 VF tp5873 a(g339 V, tp5874 a(g185 V tp5875 a(g18 VFileName p5876 tp5877 a(g198 V) tp5878 a(g339 V; tp5879 a(g185 V\u000a p5880 tp5881 a(g111 Vtry p5882 tp5883 a(g185 V\u000a p5884 tp5885 a(g111 Vif p5886 tp5887 a(g185 V tp5888 a(g111 Vnot p5889 tp5890 a(g185 V tp5891 a(g57 VFileExists p5892 tp5893 a(g198 V( tp5894 a(g18 VFileName p5895 tp5896 a(g198 V) tp5897 a(g185 V tp5898 a(g111 Vthen p5899 tp5900 a(g185 V\u000a p5901 tp5902 a(g57 VRewrite p5903 tp5904 a(g198 V( tp5905 a(g18 VF tp5906 a(g198 V) tp5907 a(g185 V\u000a p5908 tp5909 a(g111 Velse p5910 tp5911 a(g185 V\u000a p5912 tp5913 a(g57 VAppend p5914 tp5915 a(g198 V( tp5916 a(g18 VF tp5917 a(g198 V) tp5918 a(g339 V; tp5919 a(g185 V\u000a p5920 tp5921 a(g57 VWriteLn p5922 tp5923 a(g198 V( tp5924 a(g18 VF tp5925 a(g339 V, tp5926 a(g185 V tp5927 a(g18 VText p5928 tp5929 a(g198 V) tp5930 a(g339 V; tp5931 a(g185 V\u000a p5932 tp5933 a(g111 Vfinally p5934 tp5935 a(g185 V\u000a p5936 tp5937 a(g57 VClose p5938 tp5939 a(g198 V( tp5940 a(g18 VF tp5941 a(g198 V) tp5942 a(g339 V; tp5943 a(g185 V\u000a p5944 tp5945 a(g111 Vend p5946 tp5947 a(g339 V; tp5948 a(g185 V\u000a tp5949 a(g111 Vend p5950 tp5951 a(g339 V; tp5952 a(g185 V\u000a\u000a p5953 tp5954 a(g111 Vprocedure p5955 tp5956 a(g185 V tp5957 a(g21 VClearReport p5958 tp5959 a(g198 V( tp5960 a(g111 Vconst p5961 tp5962 a(g185 V tp5963 a(g18 VReportName p5964 tp5965 a(g339 V: tp5966 a(g185 V tp5967 a(g111 Vstring p5968 tp5969 a(g198 V) tp5970 a(g339 V; tp5971 a(g185 V\u000a tp5972 a(g111 Vvar p5973 tp5974 a(g185 V\u000a p5975 tp5976 a(g18 VFileName p5977 tp5978 a(g339 V: tp5979 a(g185 V tp5980 a(g111 Vstring p5981 tp5982 a(g339 V; tp5983 a(g185 V\u000a tp5984 a(g111 Vbegin p5985 tp5986 a(g185 V\u000a p5987 tp5988 a(g18 VFileName p5989 tp5990 a(g185 V tp5991 a(g339 V: tp5992 a(g339 V= tp5993 a(g185 V tp5994 a(g18 VMyDir p5995 tp5996 a(g185 V tp5997 a(g339 V+ tp5998 a(g185 V tp5999 a(g18 VReportName p6000 tp6001 a(g185 V tp6002 a(g339 V+ tp6003 a(g185 V tp6004 a(g222 V' tp6005 a(g222 V.rep p6006 tp6007 a(g222 V' tp6008 a(g339 V; tp6009 a(g185 V\u000a p6010 tp6011 a(g57 VDeleteFile p6012 tp6013 a(g198 V( tp6014 a(g18 VFileName p6015 tp6016 a(g198 V) tp6017 a(g339 V; tp6018 a(g185 V\u000a tp6019 a(g111 Vend p6020 tp6021 a(g339 V; tp6022 a(g185 V\u000a\u000a p6023 tp6024 a(g111 Vprocedure p6025 tp6026 a(g185 V tp6027 a(g21 VReportFmt p6028 tp6029 a(g198 V( tp6030 a(g111 Vconst p6031 tp6032 a(g185 V tp6033 a(g18 VReportName p6034 tp6035 a(g339 V, tp6036 a(g185 V tp6037 a(g18 VFmt p6038 tp6039 a(g339 V: tp6040 a(g185 V tp6041 a(g111 Vstring p6042 tp6043 a(g339 V; tp6044 a(g185 V tp6045 a(g111 Vconst p6046 tp6047 a(g185 V tp6048 a(g18 VArgs p6049 tp6050 a(g339 V: tp6051 a(g185 V tp6052 a(g111 Varray p6053 tp6054 a(g185 V tp6055 a(g111 Vof p6056 tp6057 a(g185 V tp6058 a(g111 Vconst p6059 tp6060 a(g198 V) tp6061 a(g339 V; tp6062 a(g185 V\u000a tp6063 a(g111 Vbegin p6064 tp6065 a(g185 V\u000a p6066 tp6067 a(g18 VReport p6068 tp6069 a(g198 V( tp6070 a(g18 VReportName p6071 tp6072 a(g339 V, tp6073 a(g185 V tp6074 a(g57 VFormat p6075 tp6076 a(g198 V( tp6077 a(g18 VFmt p6078 tp6079 a(g339 V, tp6080 a(g185 V tp6081 a(g18 VArgs p6082 tp6083 a(g198 V)) p6084 tp6085 a(g339 V; tp6086 a(g185 V\u000a tp6087 a(g111 Vend p6088 tp6089 a(g339 V; tp6090 a(g185 V\u000a\u000a p6091 tp6092 a(g111 Vprocedure p6093 tp6094 a(g185 V tp6095 a(g21 VGetParams p6096 tp6097 a(g198 V( tp6098 a(g18 VStrings p6099 tp6100 a(g339 V: tp6101 a(g185 V tp6102 a(g18 VTStrings p6103 tp6104 a(g198 V) tp6105 a(g339 V; tp6106 a(g185 V\u000a tp6107 a(g111 Vvar p6108 tp6109 a(g185 V\u000a p6110 tp6111 a(g18 VP tp6112 a(g339 V: tp6113 a(g185 V tp6114 a(g135 VPChar p6115 tp6116 a(g339 V; tp6117 a(g185 V\u000a p6118 tp6119 a(g18 VParam p6120 tp6121 a(g339 V: tp6122 a(g185 V tp6123 a(g111 Vstring p6124 tp6125 a(g339 V; tp6126 a(g185 V\u000a\u000a p6127 tp6128 a(g111 Vfunction p6129 tp6130 a(g185 V tp6131 a(g21 VGetParamStr p6132 tp6133 a(g198 V( tp6134 a(g111 Vvar p6135 tp6136 a(g185 V tp6137 a(g18 VP tp6138 a(g339 V: tp6139 a(g185 V tp6140 a(g135 VPChar p6141 tp6142 a(g339 V; tp6143 a(g185 V tp6144 a(g111 Vvar p6145 tp6146 a(g185 V tp6147 a(g18 VParam p6148 tp6149 a(g339 V: tp6150 a(g185 V tp6151 a(g111 Vstring p6152 tp6153 a(g198 V) tp6154 a(g339 V: tp6155 a(g185 V tp6156 a(g135 VBoolean p6157 tp6158 a(g339 V; tp6159 a(g185 V\u000a p6160 tp6161 a(g111 Vvar p6162 tp6163 a(g185 V\u000a p6164 tp6165 a(g18 VQuoted p6166 tp6167 a(g339 V: tp6168 a(g185 V tp6169 a(g135 VBoolean p6170 tp6171 a(g339 V; tp6172 a(g185 V\u000a p6173 tp6174 a(g111 Vbegin p6175 tp6176 a(g185 V\u000a p6177 tp6178 a(g18 VParam p6179 tp6180 a(g185 V tp6181 a(g339 V: tp6182 a(g339 V= tp6183 a(g185 V tp6184 a(g222 V' tp6185 a(g222 V' tp6186 a(g339 V; tp6187 a(g185 V\u000a\u000a p6188 tp6189 a(g111 Vrepeat p6190 tp6191 a(g185 V\u000a p6192 tp6193 a(g111 Vwhile p6194 tp6195 a(g185 V tp6196 a(g198 V( tp6197 a(g18 VP tp6198 a(g198 V[ tp6199 a(g314 V0 tp6200 a(g198 V] tp6201 a(g185 V tp6202 a(g339 V< tp6203 a(g339 V> tp6204 a(g185 V tp6205 a(g264 V#0 p6206 tp6207 a(g198 V) tp6208 a(g185 V tp6209 a(g111 Vand p6210 tp6211 a(g185 V tp6212 a(g198 V( tp6213 a(g18 VP tp6214 a(g198 V[ tp6215 a(g314 V0 tp6216 a(g198 V] tp6217 a(g185 V tp6218 a(g339 V< tp6219 a(g339 V= tp6220 a(g185 V tp6221 a(g222 V' tp6222 a(g222 V tp6223 a(g222 V' tp6224 a(g198 V) tp6225 a(g185 V tp6226 a(g111 Vdo p6227 tp6228 a(g185 V\u000a p6229 tp6230 a(g57 VInc p6231 tp6232 a(g198 V( tp6233 a(g18 VP tp6234 a(g198 V) tp6235 a(g339 V; tp6236 a(g185 V\u000a\u000a p6237 tp6238 a(g18 VQuoted p6239 tp6240 a(g185 V tp6241 a(g339 V: tp6242 a(g339 V= tp6243 a(g185 V tp6244 a(g111 VFalse p6245 tp6246 a(g339 V; tp6247 a(g185 V\u000a p6248 tp6249 a(g111 Vwhile p6250 tp6251 a(g185 V tp6252 a(g18 VP tp6253 a(g198 V[ tp6254 a(g314 V0 tp6255 a(g198 V] tp6256 a(g185 V tp6257 a(g339 V< tp6258 a(g339 V> tp6259 a(g185 V tp6260 a(g264 V#0 p6261 tp6262 a(g185 V tp6263 a(g111 Vdo p6264 tp6265 a(g185 V tp6266 a(g111 Vbegin p6267 tp6268 a(g185 V\u000a p6269 tp6270 a(g111 Vif p6271 tp6272 a(g185 V tp6273 a(g18 VP tp6274 a(g198 V[ tp6275 a(g314 V0 tp6276 a(g198 V] tp6277 a(g185 V tp6278 a(g339 V= tp6279 a(g185 V tp6280 a(g222 V' tp6281 a(g222 V" tp6282 a(g222 V' tp6283 a(g185 V tp6284 a(g111 Vthen p6285 tp6286 a(g185 V tp6287 a(g111 Vbegin p6288 tp6289 a(g185 V\u000a p6290 tp6291 a(g18 VQuoted p6292 tp6293 a(g185 V tp6294 a(g339 V: tp6295 a(g339 V= tp6296 a(g185 V tp6297 a(g111 Vnot p6298 tp6299 a(g185 V tp6300 a(g18 VQuoted p6301 tp6302 a(g339 V; tp6303 a(g185 V\u000a p6304 tp6305 a(g57 VInc p6306 tp6307 a(g198 V( tp6308 a(g18 VP tp6309 a(g198 V) tp6310 a(g339 V; tp6311 a(g185 V\u000a p6312 tp6313 a(g111 VContinue p6314 tp6315 a(g339 V; tp6316 a(g185 V tp6317 a(g111 Vend p6318 tp6319 a(g339 V; tp6320 a(g185 V\u000a p6321 tp6322 a(g111 Vif p6323 tp6324 a(g185 V tp6325 a(g198 V( tp6326 a(g18 VP tp6327 a(g198 V[ tp6328 a(g314 V0 tp6329 a(g198 V] tp6330 a(g185 V tp6331 a(g339 V< tp6332 a(g339 V= tp6333 a(g185 V tp6334 a(g222 V' tp6335 a(g222 V tp6336 a(g222 V' tp6337 a(g198 V) tp6338 a(g185 V tp6339 a(g111 Vand p6340 tp6341 a(g185 V tp6342 a(g111 Vnot p6343 tp6344 a(g185 V tp6345 a(g18 VQuoted p6346 tp6347 a(g185 V tp6348 a(g111 Vthen p6349 tp6350 a(g185 V\u000a p6351 tp6352 a(g111 VBreak p6353 tp6354 a(g339 V; tp6355 a(g185 V\u000a p6356 tp6357 a(g18 VParam p6358 tp6359 a(g185 V tp6360 a(g339 V: tp6361 a(g339 V= tp6362 a(g185 V tp6363 a(g18 VParam p6364 tp6365 a(g185 V tp6366 a(g339 V+ tp6367 a(g185 V tp6368 a(g18 VP tp6369 a(g198 V[ tp6370 a(g314 V0 tp6371 a(g198 V] tp6372 a(g339 V; tp6373 a(g185 V\u000a p6374 tp6375 a(g57 VInc p6376 tp6377 a(g198 V( tp6378 a(g18 VP tp6379 a(g198 V) tp6380 a(g339 V; tp6381 a(g185 V\u000a p6382 tp6383 a(g111 Vend p6384 tp6385 a(g339 V; tp6386 a(g185 V\u000a p6387 tp6388 a(g111 Vuntil p6389 tp6390 a(g185 V tp6391 a(g198 V( tp6392 a(g18 VParam p6393 tp6394 a(g185 V tp6395 a(g339 V< tp6396 a(g339 V> tp6397 a(g185 V tp6398 a(g222 V' tp6399 a(g222 V' tp6400 a(g198 V) tp6401 a(g185 V tp6402 a(g111 Vor p6403 tp6404 a(g185 V tp6405 a(g198 V( tp6406 a(g18 VP tp6407 a(g198 V[ tp6408 a(g314 V0 tp6409 a(g198 V] tp6410 a(g185 V tp6411 a(g339 V= tp6412 a(g185 V tp6413 a(g264 V#0 p6414 tp6415 a(g198 V) tp6416 a(g339 V; tp6417 a(g185 V\u000a\u000a p6418 tp6419 a(g60 VResult p6420 tp6421 a(g185 V tp6422 a(g339 V: tp6423 a(g339 V= tp6424 a(g185 V tp6425 a(g18 VParam p6426 tp6427 a(g185 V tp6428 a(g339 V< tp6429 a(g339 V> tp6430 a(g185 V tp6431 a(g222 V' tp6432 a(g222 V' tp6433 a(g339 V; tp6434 a(g185 V\u000a p6435 tp6436 a(g111 Vend p6437 tp6438 a(g339 V; tp6439 a(g185 V\u000a\u000a p6440 tp6441 a(g111 Vbegin p6442 tp6443 a(g185 V\u000a p6444 tp6445 a(g18 VStrings p6446 tp6447 a(g339 V. tp6448 a(g18 VClear p6449 tp6450 a(g339 V; tp6451 a(g185 V\u000a p6452 tp6453 a(g18 VP tp6454 a(g185 V tp6455 a(g339 V: tp6456 a(g339 V= tp6457 a(g185 V tp6458 a(g18 VGetCommandLine p6459 tp6460 a(g339 V; tp6461 a(g185 V\u000a p6462 tp6463 a(g18 VGetParamStr p6464 tp6465 a(g198 V( tp6466 a(g18 VP tp6467 a(g339 V, tp6468 a(g185 V tp6469 a(g18 VParam p6470 tp6471 a(g198 V) tp6472 a(g339 V; tp6473 a(g185 V\u000a p6474 tp6475 a(g111 Vwhile p6476 tp6477 a(g185 V tp6478 a(g18 VGetParamStr p6479 tp6480 a(g198 V( tp6481 a(g18 VP tp6482 a(g339 V, tp6483 a(g185 V tp6484 a(g18 VParam p6485 tp6486 a(g198 V) tp6487 a(g185 V tp6488 a(g111 Vdo p6489 tp6490 a(g185 V\u000a p6491 tp6492 a(g18 VStrings p6493 tp6494 a(g339 V. tp6495 a(g18 VAdd p6496 tp6497 a(g198 V( tp6498 a(g18 VParam p6499 tp6500 a(g198 V) tp6501 a(g339 V; tp6502 a(g185 V\u000a tp6503 a(g111 Vend p6504 tp6505 a(g339 V; tp6506 a(g185 V\u000a\u000a p6507 tp6508 a(g111 Vfunction p6509 tp6510 a(g185 V tp6511 a(g21 VGetParams p6512 tp6513 a(g198 V( tp6514 a(g111 Vconst p6515 tp6516 a(g185 V tp6517 a(g18 VSeparator p6518 tp6519 a(g339 V: tp6520 a(g185 V tp6521 a(g111 Vstring p6522 tp6523 a(g185 V tp6524 a(g339 V= tp6525 a(g185 V tp6526 a(g222 V' tp6527 a(g222 V tp6528 a(g222 V' tp6529 a(g198 V) tp6530 a(g339 V: tp6531 a(g185 V tp6532 a(g111 Vstring p6533 tp6534 a(g339 V; tp6535 a(g185 V\u000a tp6536 a(g111 Vvar p6537 tp6538 a(g185 V\u000a p6539 tp6540 a(g18 VSL p6541 tp6542 a(g339 V: tp6543 a(g185 V tp6544 a(g18 VTStringList p6545 tp6546 a(g339 V; tp6547 a(g185 V\u000a tp6548 a(g111 Vbegin p6549 tp6550 a(g185 V\u000a p6551 tp6552 a(g18 VSL p6553 tp6554 a(g185 V tp6555 a(g339 V: tp6556 a(g339 V= tp6557 a(g185 V tp6558 a(g18 VTStringList p6559 tp6560 a(g339 V. tp6561 a(g18 VCreate p6562 tp6563 a(g339 V; tp6564 a(g185 V\u000a p6565 tp6566 a(g18 VGetParams p6567 tp6568 a(g198 V( tp6569 a(g18 VSL p6570 tp6571 a(g198 V) tp6572 a(g339 V; tp6573 a(g185 V\u000a p6574 tp6575 a(g60 VResult p6576 tp6577 a(g185 V tp6578 a(g339 V: tp6579 a(g339 V= tp6580 a(g185 V tp6581 a(g18 VJoin p6582 tp6583 a(g198 V( tp6584 a(g18 VSL p6585 tp6586 a(g339 V, tp6587 a(g185 V tp6588 a(g18 VSeparator p6589 tp6590 a(g198 V) tp6591 a(g339 V; tp6592 a(g185 V\u000a p6593 tp6594 a(g18 VSL p6595 tp6596 a(g339 V. tp6597 a(g18 VFree p6598 tp6599 a(g339 V; tp6600 a(g185 V\u000a tp6601 a(g111 Vend p6602 tp6603 a(g339 V; tp6604 a(g185 V\u000a\u000a p6605 tp6606 a(g111 Vfunction p6607 tp6608 a(g185 V tp6609 a(g21 VSwitch p6610 tp6611 a(g198 V( tp6612 a(g111 Vconst p6613 tp6614 a(g185 V tp6615 a(g18 VSwitch p6616 tp6617 a(g339 V: tp6618 a(g185 V tp6619 a(g111 Vstring p6620 tp6621 a(g339 V; tp6622 a(g185 V tp6623 a(g111 Vconst p6624 tp6625 a(g185 V tp6626 a(g18 VPrefixChars p6627 tp6628 a(g339 V: tp6629 a(g185 V tp6630 a(g18 VTCharSet p6631 tp6632 a(g185 V tp6633 a(g339 V= tp6634 a(g185 V tp6635 a(g18 VSwitchChars p6636 tp6637 a(g339 V; tp6638 a(g185 V\u000a p6639 tp6640 a(g18 VIgnoreCase p6641 tp6642 a(g339 V: tp6643 a(g185 V tp6644 a(g135 VBoolean p6645 tp6646 a(g185 V tp6647 a(g339 V= tp6648 a(g185 V tp6649 a(g111 VTrue p6650 tp6651 a(g198 V) tp6652 a(g339 V: tp6653 a(g185 V tp6654 a(g135 VBoolean p6655 tp6656 a(g339 V; tp6657 a(g185 V\u000a tp6658 a(g7 V//= SysUtils.FindCmdLineSwitch p6659 tp6660 a(g185 V\u000a tp6661 a(g111 Vvar p6662 tp6663 a(g185 V\u000a p6664 tp6665 a(g18 Vi tp6666 a(g339 V: tp6667 a(g185 V tp6668 a(g135 VInteger p6669 tp6670 a(g339 V; tp6671 a(g185 V\u000a p6672 tp6673 a(g18 Vs tp6674 a(g339 V: tp6675 a(g185 V tp6676 a(g111 Vstring p6677 tp6678 a(g339 V; tp6679 a(g185 V\u000a tp6680 a(g111 Vbegin p6681 tp6682 a(g185 V\u000a p6683 tp6684 a(g60 VResult p6685 tp6686 a(g185 V tp6687 a(g339 V: tp6688 a(g339 V= tp6689 a(g185 V tp6690 a(g111 VTrue p6691 tp6692 a(g339 V; tp6693 a(g185 V\u000a\u000a p6694 tp6695 a(g111 Vfor p6696 tp6697 a(g185 V tp6698 a(g18 Vi tp6699 a(g185 V tp6700 a(g339 V: tp6701 a(g339 V= tp6702 a(g185 V tp6703 a(g314 V1 tp6704 a(g185 V tp6705 a(g111 Vto p6706 tp6707 a(g185 V tp6708 a(g57 VParamCount p6709 tp6710 a(g185 V tp6711 a(g111 Vdo p6712 tp6713 a(g185 V tp6714 a(g111 Vbegin p6715 tp6716 a(g185 V\u000a p6717 tp6718 a(g18 Vs tp6719 a(g185 V tp6720 a(g339 V: tp6721 a(g339 V= tp6722 a(g185 V tp6723 a(g57 VParamStr p6724 tp6725 a(g198 V( tp6726 a(g18 Vi tp6727 a(g198 V) tp6728 a(g339 V; tp6729 a(g185 V\u000a\u000a p6730 tp6731 a(g111 Vif p6732 tp6733 a(g185 V tp6734 a(g198 V( tp6735 a(g18 Vs tp6736 a(g185 V tp6737 a(g339 V< tp6738 a(g339 V> tp6739 a(g185 V tp6740 a(g222 V' tp6741 a(g222 V' tp6742 a(g198 V) tp6743 a(g185 V tp6744 a(g111 Vand p6745 tp6746 a(g185 V tp6747 a(g198 V( tp6748 a(g18 Vs tp6749 a(g198 V[ tp6750 a(g314 V1 tp6751 a(g198 V] tp6752 a(g185 V tp6753 a(g111 Vin p6754 tp6755 a(g185 V tp6756 a(g18 VPrefixChars p6757 tp6758 a(g198 V) tp6759 a(g185 V tp6760 a(g111 Vthen p6761 tp6762 a(g185 V tp6763 a(g111 Vbegin p6764 tp6765 a(g185 V\u000a p6766 tp6767 a(g7 V//i know that always s <> '', but this is saver p6768 tp6769 a(g185 V\u000a p6770 tp6771 a(g18 Vs tp6772 a(g185 V tp6773 a(g339 V: tp6774 a(g339 V= tp6775 a(g185 V tp6776 a(g57 VCopy p6777 tp6778 a(g198 V( tp6779 a(g18 Vs tp6780 a(g339 V, tp6781 a(g185 V tp6782 a(g314 V2 tp6783 a(g339 V, tp6784 a(g185 V tp6785 a(g18 VMaxInt p6786 tp6787 a(g198 V) tp6788 a(g339 V; tp6789 a(g185 V\u000a p6790 tp6791 a(g111 Vif p6792 tp6793 a(g185 V tp6794 a(g198 V( tp6795 a(g18 Vs tp6796 a(g185 V tp6797 a(g339 V= tp6798 a(g185 V tp6799 a(g18 VSwitch p6800 tp6801 a(g198 V) tp6802 a(g185 V tp6803 a(g111 Vor p6804 tp6805 a(g185 V tp6806 a(g198 V( tp6807 a(g18 VIgnoreCase p6808 tp6809 a(g185 V tp6810 a(g111 Vand p6811 tp6812 a(g185 V tp6813 a(g198 V( tp6814 a(g314 V0 tp6815 a(g339 V= tp6816 a(g57 VAnsiCompareText p6817 tp6818 a(g198 V( tp6819 a(g18 Vs tp6820 a(g339 V, tp6821 a(g185 V tp6822 a(g18 VSwitch p6823 tp6824 a(g198 V))) p6825 tp6826 a(g185 V tp6827 a(g111 Vthen p6828 tp6829 a(g185 V\u000a p6830 tp6831 a(g111 VExit p6832 tp6833 a(g339 V; tp6834 a(g185 V\u000a p6835 tp6836 a(g111 Vend p6837 tp6838 a(g339 V; tp6839 a(g185 V\u000a p6840 tp6841 a(g111 Vend p6842 tp6843 a(g339 V; tp6844 a(g185 V\u000a\u000a p6845 tp6846 a(g60 VResult p6847 tp6848 a(g185 V tp6849 a(g339 V: tp6850 a(g339 V= tp6851 a(g185 V tp6852 a(g111 VFalse p6853 tp6854 a(g339 V; tp6855 a(g185 V\u000a tp6856 a(g111 Vend p6857 tp6858 a(g339 V; tp6859 a(g185 V\u000a\u000a p6860 tp6861 a(g111 Vfunction p6862 tp6863 a(g185 V tp6864 a(g21 VParamNum p6865 tp6866 a(g198 V( tp6867 a(g111 Vconst p6868 tp6869 a(g185 V tp6870 a(g18 VS tp6871 a(g339 V: tp6872 a(g185 V tp6873 a(g111 Vstring p6874 tp6875 a(g198 V) tp6876 a(g339 V: tp6877 a(g185 V tp6878 a(g135 VInteger p6879 tp6880 a(g339 V; tp6881 a(g185 V\u000a tp6882 a(g111 Vbegin p6883 tp6884 a(g185 V\u000a p6885 tp6886 a(g111 Vfor p6887 tp6888 a(g185 V tp6889 a(g60 VResult p6890 tp6891 a(g185 V tp6892 a(g339 V: tp6893 a(g339 V= tp6894 a(g185 V tp6895 a(g314 V1 tp6896 a(g185 V tp6897 a(g111 Vto p6898 tp6899 a(g185 V tp6900 a(g57 VParamCount p6901 tp6902 a(g185 V tp6903 a(g111 Vdo p6904 tp6905 a(g185 V\u000a p6906 tp6907 a(g111 Vif p6908 tp6909 a(g185 V tp6910 a(g314 V0 tp6911 a(g339 V= tp6912 a(g57 VAnsiCompareText p6913 tp6914 a(g198 V( tp6915 a(g57 VParamStr p6916 tp6917 a(g198 V( tp6918 a(g60 VResult p6919 tp6920 a(g198 V) tp6921 a(g339 V, tp6922 a(g185 V tp6923 a(g18 VS tp6924 a(g198 V) tp6925 a(g185 V tp6926 a(g111 Vthen p6927 tp6928 a(g185 V\u000a p6929 tp6930 a(g111 VExit p6931 tp6932 a(g339 V; tp6933 a(g185 V\u000a\u000a p6934 tp6935 a(g60 VResult p6936 tp6937 a(g185 V tp6938 a(g339 V: tp6939 a(g339 V= tp6940 a(g185 V tp6941 a(g314 V0 tp6942 a(g339 V; tp6943 a(g185 V\u000a tp6944 a(g111 Vend p6945 tp6946 a(g339 V; tp6947 a(g185 V\u000a\u000a p6948 tp6949 a(g111 Vfunction p6950 tp6951 a(g185 V tp6952 a(g21 VParamPrefixNum p6953 tp6954 a(g198 V( tp6955 a(g111 Vconst p6956 tp6957 a(g185 V tp6958 a(g18 VPrefix p6959 tp6960 a(g339 V: tp6961 a(g185 V tp6962 a(g111 Vstring p6963 tp6964 a(g198 V) tp6965 a(g339 V: tp6966 a(g185 V tp6967 a(g135 VInteger p6968 tp6969 a(g339 V; tp6970 a(g185 V\u000a tp6971 a(g111 Vvar p6972 tp6973 a(g185 V\u000a p6974 tp6975 a(g18 VLen p6976 tp6977 a(g339 V: tp6978 a(g185 V tp6979 a(g135 VInteger p6980 tp6981 a(g339 V; tp6982 a(g185 V\u000a tp6983 a(g111 Vbegin p6984 tp6985 a(g185 V\u000a p6986 tp6987 a(g18 VLen p6988 tp6989 a(g185 V tp6990 a(g339 V: tp6991 a(g339 V= tp6992 a(g185 V tp6993 a(g57 VLength p6994 tp6995 a(g198 V( tp6996 a(g18 VPrefix p6997 tp6998 a(g198 V) tp6999 a(g339 V; tp7000 a(g185 V\u000a p7001 tp7002 a(g111 Vfor p7003 tp7004 a(g185 V tp7005 a(g60 VResult p7006 tp7007 a(g185 V tp7008 a(g339 V: tp7009 a(g339 V= tp7010 a(g185 V tp7011 a(g314 V1 tp7012 a(g185 V tp7013 a(g111 Vto p7014 tp7015 a(g185 V tp7016 a(g57 VParamCount p7017 tp7018 a(g185 V tp7019 a(g111 Vdo p7020 tp7021 a(g185 V\u000a p7022 tp7023 a(g111 Vif p7024 tp7025 a(g185 V tp7026 a(g314 V0 tp7027 a(g339 V= tp7028 a(g57 VAnsiCompareText p7029 tp7030 a(g198 V( tp7031 a(g57 VCopy p7032 tp7033 a(g198 V( tp7034 a(g57 VParamStr p7035 tp7036 a(g198 V( tp7037 a(g60 VResult p7038 tp7039 a(g198 V) tp7040 a(g339 V, tp7041 a(g185 V tp7042 a(g314 V1 tp7043 a(g339 V, tp7044 a(g185 V tp7045 a(g18 VLen p7046 tp7047 a(g198 V) tp7048 a(g339 V, tp7049 a(g185 V tp7050 a(g18 VPrefix p7051 tp7052 a(g198 V) tp7053 a(g185 V tp7054 a(g111 Vthen p7055 tp7056 a(g185 V\u000a p7057 tp7058 a(g111 VExit p7059 tp7060 a(g339 V; tp7061 a(g185 V\u000a\u000a p7062 tp7063 a(g60 VResult p7064 tp7065 a(g185 V tp7066 a(g339 V: tp7067 a(g339 V= tp7068 a(g185 V tp7069 a(g314 V0 tp7070 a(g339 V; tp7071 a(g185 V\u000a tp7072 a(g111 Vend p7073 tp7074 a(g339 V; tp7075 a(g185 V\u000a\u000a p7076 tp7077 a(g111 Vfunction p7078 tp7079 a(g185 V tp7080 a(g21 VParam p7081 tp7082 a(g198 V( tp7083 a(g111 Vconst p7084 tp7085 a(g185 V tp7086 a(g18 VS tp7087 a(g339 V: tp7088 a(g185 V tp7089 a(g111 Vstring p7090 tp7091 a(g198 V) tp7092 a(g339 V: tp7093 a(g185 V tp7094 a(g135 VBoolean p7095 tp7096 a(g339 V; tp7097 a(g185 V\u000a tp7098 a(g111 Vbegin p7099 tp7100 a(g185 V\u000a p7101 tp7102 a(g60 VResult p7103 tp7104 a(g185 V tp7105 a(g339 V: tp7106 a(g339 V= tp7107 a(g185 V tp7108 a(g18 VParamNum p7109 tp7110 a(g198 V( tp7111 a(g18 VS tp7112 a(g198 V) tp7113 a(g185 V tp7114 a(g339 V> tp7115 a(g185 V tp7116 a(g314 V0 tp7117 a(g339 V; tp7118 a(g185 V\u000a tp7119 a(g111 Vend p7120 tp7121 a(g339 V; tp7122 a(g185 V\u000a\u000a p7123 tp7124 a(g111 Vfunction p7125 tp7126 a(g185 V tp7127 a(g21 VParamPrefix p7128 tp7129 a(g198 V( tp7130 a(g111 Vconst p7131 tp7132 a(g185 V tp7133 a(g18 VPrefix p7134 tp7135 a(g339 V: tp7136 a(g185 V tp7137 a(g111 Vstring p7138 tp7139 a(g198 V) tp7140 a(g339 V: tp7141 a(g185 V tp7142 a(g135 VBoolean p7143 tp7144 a(g339 V; tp7145 a(g185 V\u000a tp7146 a(g111 Vbegin p7147 tp7148 a(g185 V\u000a p7149 tp7150 a(g60 VResult p7151 tp7152 a(g185 V tp7153 a(g339 V: tp7154 a(g339 V= tp7155 a(g185 V tp7156 a(g18 VParamPrefixNum p7157 tp7158 a(g198 V( tp7159 a(g18 VPrefix p7160 tp7161 a(g198 V) tp7162 a(g185 V tp7163 a(g339 V> tp7164 a(g185 V tp7165 a(g314 V0 tp7166 a(g339 V; tp7167 a(g185 V\u000a tp7168 a(g111 Vend p7169 tp7170 a(g339 V; tp7171 a(g185 V\u000a\u000a p7172 tp7173 a(g111 Vfunction p7174 tp7175 a(g185 V tp7176 a(g21 VGetParam p7177 tp7178 a(g198 V( tp7179 a(g111 Vconst p7180 tp7181 a(g185 V tp7182 a(g18 VPrefix p7183 tp7184 a(g339 V: tp7185 a(g185 V tp7186 a(g111 Vstring p7187 tp7188 a(g185 V tp7189 a(g339 V= tp7190 a(g185 V tp7191 a(g222 V' tp7192 a(g222 V' tp7193 a(g339 V; tp7194 a(g185 V tp7195 a(g111 Vconst p7196 tp7197 a(g185 V tp7198 a(g119 VDefault p7199 tp7200 a(g339 V: tp7201 a(g185 V tp7202 a(g111 Vstring p7203 tp7204 a(g185 V tp7205 a(g339 V= tp7206 a(g185 V tp7207 a(g222 V' tp7208 a(g222 V' tp7209 a(g198 V) tp7210 a(g339 V: tp7211 a(g185 V tp7212 a(g111 Vstring p7213 tp7214 a(g339 V; tp7215 a(g185 V\u000a tp7216 a(g111 Vvar p7217 tp7218 a(g185 V\u000a p7219 tp7220 a(g18 Vi tp7221 a(g339 V: tp7222 a(g185 V tp7223 a(g135 VInteger p7224 tp7225 a(g339 V; tp7226 a(g185 V\u000a tp7227 a(g111 Vbegin p7228 tp7229 a(g185 V\u000a p7230 tp7231 a(g60 VResult p7232 tp7233 a(g185 V tp7234 a(g339 V: tp7235 a(g339 V= tp7236 a(g185 V tp7237 a(g119 VDefault p7238 tp7239 a(g339 V; tp7240 a(g185 V\u000a\u000a p7241 tp7242 a(g111 Vif p7243 tp7244 a(g185 V tp7245 a(g18 VPrefix p7246 tp7247 a(g185 V tp7248 a(g339 V= tp7249 a(g185 V tp7250 a(g222 V' tp7251 a(g222 V' tp7252 a(g185 V tp7253 a(g111 Vthen p7254 tp7255 a(g185 V tp7256 a(g111 Vbegin p7257 tp7258 a(g185 V\u000a p7259 tp7260 a(g60 VResult p7261 tp7262 a(g185 V tp7263 a(g339 V: tp7264 a(g339 V= tp7265 a(g185 V tp7266 a(g57 VParamStr p7267 tp7268 a(g198 V( tp7269 a(g314 V1 tp7270 a(g198 V) tp7271 a(g339 V; tp7272 a(g185 V\u000a p7273 tp7274 a(g111 VExit p7275 tp7276 a(g339 V; tp7277 a(g185 V tp7278 a(g111 Vend p7279 tp7280 a(g339 V; tp7281 a(g185 V\u000a\u000a p7282 tp7283 a(g18 Vi tp7284 a(g185 V tp7285 a(g339 V: tp7286 a(g339 V= tp7287 a(g185 V tp7288 a(g18 VParamPrefixNum p7289 tp7290 a(g198 V( tp7291 a(g18 VPrefix p7292 tp7293 a(g198 V) tp7294 a(g339 V; tp7295 a(g185 V\u000a p7296 tp7297 a(g111 Vif p7298 tp7299 a(g185 V tp7300 a(g18 Vi tp7301 a(g185 V tp7302 a(g339 V> tp7303 a(g185 V tp7304 a(g314 V0 tp7305 a(g185 V tp7306 a(g111 Vthen p7307 tp7308 a(g185 V\u000a p7309 tp7310 a(g60 VResult p7311 tp7312 a(g185 V tp7313 a(g339 V: tp7314 a(g339 V= tp7315 a(g185 V tp7316 a(g57 VCopy p7317 tp7318 a(g198 V( tp7319 a(g57 VParamStr p7320 tp7321 a(g198 V( tp7322 a(g18 Vi tp7323 a(g198 V) tp7324 a(g339 V, tp7325 a(g185 V tp7326 a(g57 VLength p7327 tp7328 a(g198 V( tp7329 a(g18 VPrefix p7330 tp7331 a(g198 V) tp7332 a(g185 V tp7333 a(g339 V+ tp7334 a(g185 V tp7335 a(g314 V1 tp7336 a(g339 V, tp7337 a(g185 V tp7338 a(g18 VMaxInt p7339 tp7340 a(g198 V) tp7341 a(g339 V; tp7342 a(g185 V\u000a tp7343 a(g111 Vend p7344 tp7345 a(g339 V; tp7346 a(g185 V\u000a\u000a p7347 tp7348 a(g111 Vfunction p7349 tp7350 a(g185 V tp7351 a(g21 VGetMyDir p7352 tp7353 a(g198 V( tp7354 a(g18 VFullPath p7355 tp7356 a(g339 V: tp7357 a(g185 V tp7358 a(g135 VBoolean p7359 tp7360 a(g185 V tp7361 a(g339 V= tp7362 a(g185 V tp7363 a(g111 VFalse p7364 tp7365 a(g198 V) tp7366 a(g339 V: tp7367 a(g185 V tp7368 a(g111 Vstring p7369 tp7370 a(g339 V; tp7371 a(g185 V\u000a tp7372 a(g111 Vvar p7373 tp7374 a(g185 V\u000a p7375 tp7376 a(g18 VBuffer p7377 tp7378 a(g339 V: tp7379 a(g185 V tp7380 a(g111 Varray p7381 tp7382 a(g198 V[ tp7383 a(g314 V0 tp7384 a(g339 V. tp7385 a(g339 V. tp7386 a(g314 V260 p7387 tp7388 a(g198 V] tp7389 a(g185 V tp7390 a(g111 Vof p7391 tp7392 a(g185 V tp7393 a(g135 VChar p7394 tp7395 a(g339 V; tp7396 a(g185 V\u000a tp7397 a(g111 Vbegin p7398 tp7399 a(g185 V\u000a p7400 tp7401 a(g60 VResult p7402 tp7403 a(g185 V tp7404 a(g339 V: tp7405 a(g339 V= tp7406 a(g185 V tp7407 a(g222 V' tp7408 a(g222 V' tp7409 a(g339 V; tp7410 a(g185 V\u000a p7411 tp7412 a(g57 VSetString p7413 tp7414 a(g198 V( tp7415 a(g60 VResult p7416 tp7417 a(g339 V, tp7418 a(g185 V tp7419 a(g18 VBuffer p7420 tp7421 a(g339 V, tp7422 a(g185 V tp7423 a(g57 VGetModuleFileName p7424 tp7425 a(g198 V( tp7426 a(g314 V0 tp7427 a(g339 V, tp7428 a(g185 V tp7429 a(g18 VBuffer p7430 tp7431 a(g339 V, tp7432 a(g185 V tp7433 a(g57 VSizeOf p7434 tp7435 a(g198 V( tp7436 a(g18 VBuffer p7437 tp7438 a(g198 V))) p7439 tp7440 a(g339 V; tp7441 a(g185 V\u000a p7442 tp7443 a(g111 Vif p7444 tp7445 a(g185 V tp7446 a(g18 VFullPath p7447 tp7448 a(g185 V tp7449 a(g111 Vthen p7450 tp7451 a(g185 V\u000a p7452 tp7453 a(g60 VResult p7454 tp7455 a(g185 V tp7456 a(g339 V: tp7457 a(g339 V= tp7458 a(g185 V tp7459 a(g18 VGetFileNew p7460 tp7461 a(g198 V( tp7462 a(g60 VResult p7463 tp7464 a(g198 V) tp7465 a(g339 V; tp7466 a(g185 V\u000a p7467 tp7468 a(g60 VResult p7469 tp7470 a(g185 V tp7471 a(g339 V: tp7472 a(g339 V= tp7473 a(g185 V tp7474 a(g18 VExtractPath p7475 tp7476 a(g198 V( tp7477 a(g60 VResult p7478 tp7479 a(g198 V) tp7480 a(g339 V; tp7481 a(g185 V\u000a tp7482 a(g111 Vend p7483 tp7484 a(g339 V; tp7485 a(g185 V\u000a\u000a p7486 tp7487 a(g111 Vfunction p7488 tp7489 a(g185 V tp7490 a(g21 VWinDir p7491 tp7492 a(g339 V: tp7493 a(g185 V tp7494 a(g111 Vstring p7495 tp7496 a(g339 V; tp7497 a(g185 V\u000a tp7498 a(g111 Vvar p7499 tp7500 a(g185 V\u000a p7501 tp7502 a(g18 VRes p7503 tp7504 a(g339 V: tp7505 a(g185 V tp7506 a(g135 VPChar p7507 tp7508 a(g339 V; tp7509 a(g185 V\u000a tp7510 a(g111 Vbegin p7511 tp7512 a(g185 V\u000a p7513 tp7514 a(g60 VResult p7515 tp7516 a(g185 V tp7517 a(g339 V: tp7518 a(g339 V= tp7519 a(g185 V tp7520 a(g222 V' tp7521 a(g222 V\u005c tp7522 a(g222 V' tp7523 a(g339 V; tp7524 a(g185 V\u000a p7525 tp7526 a(g57 VGetMem p7527 tp7528 a(g198 V( tp7529 a(g18 VRes p7530 tp7531 a(g339 V, tp7532 a(g185 V tp7533 a(g18 VMAX_PATH p7534 tp7535 a(g198 V) tp7536 a(g339 V; tp7537 a(g185 V\u000a p7538 tp7539 a(g18 VGetWindowsDirectory p7540 tp7541 a(g198 V( tp7542 a(g18 VRes p7543 tp7544 a(g339 V, tp7545 a(g185 V tp7546 a(g18 VMAX_PATH p7547 tp7548 a(g198 V) tp7549 a(g339 V; tp7550 a(g185 V\u000a p7551 tp7552 a(g60 VResult p7553 tp7554 a(g185 V tp7555 a(g339 V: tp7556 a(g339 V= tp7557 a(g185 V tp7558 a(g18 VRes p7559 tp7560 a(g185 V tp7561 a(g339 V+ tp7562 a(g185 V tp7563 a(g222 V' tp7564 a(g222 V\u005c tp7565 a(g222 V' tp7566 a(g339 V; tp7567 a(g185 V\u000a p7568 tp7569 a(g57 VFreeMem p7570 tp7571 a(g198 V( tp7572 a(g18 VRes p7573 tp7574 a(g339 V, tp7575 a(g185 V tp7576 a(g18 VMAX_PATH p7577 tp7578 a(g198 V) tp7579 a(g339 V; tp7580 a(g185 V\u000a tp7581 a(g111 Vend p7582 tp7583 a(g339 V; tp7584 a(g185 V\u000a\u000a p7585 tp7586 a(g111 Vfunction p7587 tp7588 a(g185 V tp7589 a(g21 VSysDir p7590 tp7591 a(g339 V: tp7592 a(g185 V tp7593 a(g111 Vstring p7594 tp7595 a(g339 V; tp7596 a(g185 V\u000a tp7597 a(g111 Vvar p7598 tp7599 a(g185 V\u000a p7600 tp7601 a(g18 VRes p7602 tp7603 a(g339 V: tp7604 a(g185 V tp7605 a(g135 VPChar p7606 tp7607 a(g339 V; tp7608 a(g185 V\u000a tp7609 a(g111 Vbegin p7610 tp7611 a(g185 V\u000a p7612 tp7613 a(g60 VResult p7614 tp7615 a(g185 V tp7616 a(g339 V: tp7617 a(g339 V= tp7618 a(g185 V tp7619 a(g222 V' tp7620 a(g222 V\u005c tp7621 a(g222 V' tp7622 a(g339 V; tp7623 a(g185 V\u000a p7624 tp7625 a(g57 VGetMem p7626 tp7627 a(g198 V( tp7628 a(g18 VRes p7629 tp7630 a(g339 V, tp7631 a(g185 V tp7632 a(g18 VMAX_PATH p7633 tp7634 a(g198 V) tp7635 a(g339 V; tp7636 a(g185 V\u000a p7637 tp7638 a(g18 VGetSystemDirectory p7639 tp7640 a(g198 V( tp7641 a(g18 VRes p7642 tp7643 a(g339 V, tp7644 a(g185 V tp7645 a(g18 VMAX_PATH p7646 tp7647 a(g198 V) tp7648 a(g339 V; tp7649 a(g185 V\u000a p7650 tp7651 a(g60 VResult p7652 tp7653 a(g185 V tp7654 a(g339 V: tp7655 a(g339 V= tp7656 a(g185 V tp7657 a(g18 VRes p7658 tp7659 a(g185 V tp7660 a(g339 V+ tp7661 a(g185 V tp7662 a(g222 V' tp7663 a(g222 V\u005c tp7664 a(g222 V' tp7665 a(g339 V; tp7666 a(g185 V\u000a p7667 tp7668 a(g57 VFreeMem p7669 tp7670 a(g198 V( tp7671 a(g18 VRes p7672 tp7673 a(g339 V, tp7674 a(g185 V tp7675 a(g18 VMAX_PATH p7676 tp7677 a(g198 V) tp7678 a(g339 V; tp7679 a(g185 V\u000a tp7680 a(g111 Vend p7681 tp7682 a(g339 V; tp7683 a(g185 V\u000a\u000a p7684 tp7685 a(g111 Vfunction p7686 tp7687 a(g185 V tp7688 a(g21 VUserName p7689 tp7690 a(g339 V: tp7691 a(g185 V tp7692 a(g111 Vstring p7693 tp7694 a(g339 V; tp7695 a(g185 V\u000a tp7696 a(g111 Vvar p7697 tp7698 a(g185 V\u000a p7699 tp7700 a(g18 VLen p7701 tp7702 a(g339 V: tp7703 a(g185 V tp7704 a(g135 VCardinal p7705 tp7706 a(g339 V; tp7707 a(g185 V\u000a p7708 tp7709 a(g18 VRes p7710 tp7711 a(g339 V: tp7712 a(g185 V tp7713 a(g135 VPChar p7714 tp7715 a(g339 V; tp7716 a(g185 V\u000a tp7717 a(g111 Vbegin p7718 tp7719 a(g185 V\u000a p7720 tp7721 a(g60 VResult p7722 tp7723 a(g185 V tp7724 a(g339 V: tp7725 a(g339 V= tp7726 a(g185 V tp7727 a(g222 V' tp7728 a(g222 V' tp7729 a(g339 V; tp7730 a(g185 V\u000a p7731 tp7732 a(g57 VGetMem p7733 tp7734 a(g198 V( tp7735 a(g18 VRes p7736 tp7737 a(g339 V, tp7738 a(g185 V tp7739 a(g18 VMAX_PATH p7740 tp7741 a(g198 V) tp7742 a(g339 V; tp7743 a(g185 V\u000a p7744 tp7745 a(g18 VLen p7746 tp7747 a(g185 V tp7748 a(g339 V: tp7749 a(g339 V= tp7750 a(g185 V tp7751 a(g18 VMAX_PATH p7752 tp7753 a(g339 V; tp7754 a(g185 V\u000a p7755 tp7756 a(g18 VGetUserName p7757 tp7758 a(g198 V( tp7759 a(g18 VRes p7760 tp7761 a(g339 V, tp7762 a(g185 V tp7763 a(g18 VLen p7764 tp7765 a(g198 V) tp7766 a(g339 V; tp7767 a(g185 V\u000a p7768 tp7769 a(g60 VResult p7770 tp7771 a(g185 V tp7772 a(g339 V: tp7773 a(g339 V= tp7774 a(g185 V tp7775 a(g18 VRes p7776 tp7777 a(g339 V; tp7778 a(g185 V\u000a p7779 tp7780 a(g57 VFreeMem p7781 tp7782 a(g198 V( tp7783 a(g18 VRes p7784 tp7785 a(g339 V, tp7786 a(g185 V tp7787 a(g18 VMAX_PATH p7788 tp7789 a(g198 V) tp7790 a(g339 V; tp7791 a(g185 V\u000a tp7792 a(g111 Vend p7793 tp7794 a(g339 V; tp7795 a(g185 V\u000a\u000a p7796 tp7797 a(g111 Vfunction p7798 tp7799 a(g185 V tp7800 a(g21 VFirstChar p7801 tp7802 a(g198 V( tp7803 a(g111 Vconst p7804 tp7805 a(g185 V tp7806 a(g18 VS tp7807 a(g339 V: tp7808 a(g185 V tp7809 a(g111 Vstring p7810 tp7811 a(g198 V) tp7812 a(g339 V: tp7813 a(g185 V tp7814 a(g135 VChar p7815 tp7816 a(g339 V; tp7817 a(g185 V\u000a tp7818 a(g111 Vbegin p7819 tp7820 a(g185 V\u000a p7821 tp7822 a(g111 Vif p7823 tp7824 a(g185 V tp7825 a(g18 Vs tp7826 a(g185 V tp7827 a(g339 V= tp7828 a(g185 V tp7829 a(g222 V' tp7830 a(g222 V' tp7831 a(g185 V tp7832 a(g111 Vthen p7833 tp7834 a(g185 V\u000a p7835 tp7836 a(g60 VResult p7837 tp7838 a(g185 V tp7839 a(g339 V: tp7840 a(g339 V= tp7841 a(g185 V tp7842 a(g264 V#0 p7843 tp7844 a(g185 V\u000a p7845 tp7846 a(g111 Velse p7847 tp7848 a(g185 V\u000a p7849 tp7850 a(g60 VResult p7851 tp7852 a(g185 V tp7853 a(g339 V: tp7854 a(g339 V= tp7855 a(g185 V tp7856 a(g18 Vs tp7857 a(g198 V[ tp7858 a(g314 V1 tp7859 a(g198 V] tp7860 a(g339 V; tp7861 a(g185 V\u000a tp7862 a(g111 Vend p7863 tp7864 a(g339 V; tp7865 a(g185 V\u000a\u000a p7866 tp7867 a(g111 Vfunction p7868 tp7869 a(g185 V tp7870 a(g21 VLastChar p7871 tp7872 a(g198 V( tp7873 a(g111 Vconst p7874 tp7875 a(g185 V tp7876 a(g18 VS tp7877 a(g339 V: tp7878 a(g185 V tp7879 a(g111 Vstring p7880 tp7881 a(g198 V) tp7882 a(g339 V: tp7883 a(g185 V tp7884 a(g135 VChar p7885 tp7886 a(g339 V; tp7887 a(g185 V\u000a tp7888 a(g111 Vbegin p7889 tp7890 a(g185 V\u000a p7891 tp7892 a(g111 Vif p7893 tp7894 a(g185 V tp7895 a(g18 Vs tp7896 a(g185 V tp7897 a(g339 V= tp7898 a(g185 V tp7899 a(g222 V' tp7900 a(g222 V' tp7901 a(g185 V tp7902 a(g111 Vthen p7903 tp7904 a(g185 V\u000a p7905 tp7906 a(g60 VResult p7907 tp7908 a(g185 V tp7909 a(g339 V: tp7910 a(g339 V= tp7911 a(g185 V tp7912 a(g264 V#0 p7913 tp7914 a(g185 V\u000a p7915 tp7916 a(g111 Velse p7917 tp7918 a(g185 V\u000a p7919 tp7920 a(g60 VResult p7921 tp7922 a(g185 V tp7923 a(g339 V: tp7924 a(g339 V= tp7925 a(g185 V tp7926 a(g18 Vs tp7927 a(g198 V[ tp7928 a(g57 VLength p7929 tp7930 a(g198 V( tp7931 a(g18 Vs tp7932 a(g198 V)] p7933 tp7934 a(g339 V; tp7935 a(g185 V\u000a tp7936 a(g111 Vend p7937 tp7938 a(g339 V; tp7939 a(g185 V\u000a\u000a p7940 tp7941 a(g111 Vfunction p7942 tp7943 a(g185 V tp7944 a(g21 VCharPos p7945 tp7946 a(g198 V( tp7947 a(g18 VC tp7948 a(g339 V: tp7949 a(g185 V tp7950 a(g135 VChar p7951 tp7952 a(g339 V; tp7953 a(g185 V tp7954 a(g111 Vconst p7955 tp7956 a(g185 V tp7957 a(g18 VS tp7958 a(g339 V: tp7959 a(g185 V tp7960 a(g111 Vstring p7961 tp7962 a(g339 V; tp7963 a(g185 V tp7964 a(g18 VOffset p7965 tp7966 a(g339 V: tp7967 a(g185 V tp7968 a(g135 VInteger p7969 tp7970 a(g185 V tp7971 a(g339 V= tp7972 a(g185 V tp7973 a(g314 V1 tp7974 a(g198 V) tp7975 a(g339 V: tp7976 a(g185 V tp7977 a(g135 VInteger p7978 tp7979 a(g339 V; tp7980 a(g185 V\u000a tp7981 a(g111 Vvar p7982 tp7983 a(g185 V\u000a p7984 tp7985 a(g18 VMaxPosToSearch p7986 tp7987 a(g339 V: tp7988 a(g185 V tp7989 a(g135 VInteger p7990 tp7991 a(g339 V; tp7992 a(g185 V\u000a tp7993 a(g111 Vbegin p7994 tp7995 a(g185 V\u000a p7996 tp7997 a(g60 VResult p7998 tp7999 a(g185 V tp8000 a(g339 V: tp8001 a(g339 V= tp8002 a(g185 V tp8003 a(g18 VOffset p8004 tp8005 a(g339 V; tp8006 a(g185 V\u000a p8007 tp8008 a(g18 VMaxPosToSearch p8009 tp8010 a(g185 V tp8011 a(g339 V: tp8012 a(g339 V= tp8013 a(g185 V tp8014 a(g57 VLength p8015 tp8016 a(g198 V( tp8017 a(g18 VS tp8018 a(g198 V) tp8019 a(g339 V; tp8020 a(g185 V\u000a\u000a p8021 tp8022 a(g111 Vwhile p8023 tp8024 a(g185 V tp8025 a(g60 VResult p8026 tp8027 a(g185 V tp8028 a(g339 V< tp8029 a(g339 V= tp8030 a(g185 V tp8031 a(g18 VMaxPosToSearch p8032 tp8033 a(g185 V tp8034 a(g111 Vdo p8035 tp8036 a(g185 V tp8037 a(g111 Vbegin p8038 tp8039 a(g185 V\u000a p8040 tp8041 a(g111 Vif p8042 tp8043 a(g185 V tp8044 a(g18 VS tp8045 a(g198 V[ tp8046 a(g60 VResult p8047 tp8048 a(g198 V] tp8049 a(g185 V tp8050 a(g339 V= tp8051 a(g185 V tp8052 a(g18 VC tp8053 a(g185 V tp8054 a(g111 Vthen p8055 tp8056 a(g185 V\u000a p8057 tp8058 a(g111 VExit p8059 tp8060 a(g339 V; tp8061 a(g185 V\u000a p8062 tp8063 a(g57 VInc p8064 tp8065 a(g198 V( tp8066 a(g60 VResult p8067 tp8068 a(g198 V) tp8069 a(g339 V; tp8070 a(g185 V\u000a p8071 tp8072 a(g111 Vend p8073 tp8074 a(g339 V; tp8075 a(g185 V\u000a\u000a p8076 tp8077 a(g60 VResult p8078 tp8079 a(g185 V tp8080 a(g339 V: tp8081 a(g339 V= tp8082 a(g185 V tp8083 a(g314 V0 tp8084 a(g339 V; tp8085 a(g185 V\u000a tp8086 a(g111 Vend p8087 tp8088 a(g339 V; tp8089 a(g185 V\u000a\u000a p8090 tp8091 a(g111 Vfunction p8092 tp8093 a(g185 V tp8094 a(g21 VCharPos p8095 tp8096 a(g198 V( tp8097 a(g18 VC tp8098 a(g339 V: tp8099 a(g185 V tp8100 a(g18 VTCharSet p8101 tp8102 a(g339 V; tp8103 a(g185 V tp8104 a(g111 Vconst p8105 tp8106 a(g185 V tp8107 a(g18 VS tp8108 a(g339 V: tp8109 a(g185 V tp8110 a(g111 Vstring p8111 tp8112 a(g339 V; tp8113 a(g185 V tp8114 a(g18 VOffset p8115 tp8116 a(g339 V: tp8117 a(g185 V tp8118 a(g135 VInteger p8119 tp8120 a(g185 V tp8121 a(g339 V= tp8122 a(g185 V tp8123 a(g314 V1 tp8124 a(g198 V) tp8125 a(g339 V: tp8126 a(g185 V tp8127 a(g135 VInteger p8128 tp8129 a(g339 V; tp8130 a(g185 V\u000a tp8131 a(g111 Vvar p8132 tp8133 a(g185 V\u000a p8134 tp8135 a(g18 VMaxPosToSearch p8136 tp8137 a(g339 V: tp8138 a(g185 V tp8139 a(g135 VInteger p8140 tp8141 a(g339 V; tp8142 a(g185 V\u000a tp8143 a(g111 Vbegin p8144 tp8145 a(g185 V\u000a p8146 tp8147 a(g60 VResult p8148 tp8149 a(g185 V tp8150 a(g339 V: tp8151 a(g339 V= tp8152 a(g185 V tp8153 a(g18 VOffset p8154 tp8155 a(g339 V; tp8156 a(g185 V\u000a p8157 tp8158 a(g18 VMaxPosToSearch p8159 tp8160 a(g185 V tp8161 a(g339 V: tp8162 a(g339 V= tp8163 a(g185 V tp8164 a(g57 VLength p8165 tp8166 a(g198 V( tp8167 a(g18 VS tp8168 a(g198 V) tp8169 a(g339 V; tp8170 a(g185 V\u000a\u000a p8171 tp8172 a(g111 Vwhile p8173 tp8174 a(g185 V tp8175 a(g60 VResult p8176 tp8177 a(g185 V tp8178 a(g339 V< tp8179 a(g339 V= tp8180 a(g185 V tp8181 a(g18 VMaxPosToSearch p8182 tp8183 a(g185 V tp8184 a(g111 Vdo p8185 tp8186 a(g185 V tp8187 a(g111 Vbegin p8188 tp8189 a(g185 V\u000a p8190 tp8191 a(g111 Vif p8192 tp8193 a(g185 V tp8194 a(g18 VS tp8195 a(g198 V[ tp8196 a(g60 VResult p8197 tp8198 a(g198 V] tp8199 a(g185 V tp8200 a(g111 Vin p8201 tp8202 a(g185 V tp8203 a(g18 VC tp8204 a(g185 V tp8205 a(g111 Vthen p8206 tp8207 a(g185 V\u000a p8208 tp8209 a(g111 VExit p8210 tp8211 a(g339 V; tp8212 a(g185 V\u000a p8213 tp8214 a(g57 VInc p8215 tp8216 a(g198 V( tp8217 a(g60 VResult p8218 tp8219 a(g198 V) tp8220 a(g339 V; tp8221 a(g185 V\u000a p8222 tp8223 a(g111 Vend p8224 tp8225 a(g339 V; tp8226 a(g185 V\u000a\u000a p8227 tp8228 a(g60 VResult p8229 tp8230 a(g185 V tp8231 a(g339 V: tp8232 a(g339 V= tp8233 a(g185 V tp8234 a(g314 V0 tp8235 a(g339 V; tp8236 a(g185 V\u000a tp8237 a(g111 Vend p8238 tp8239 a(g339 V; tp8240 a(g185 V\u000a\u000a p8241 tp8242 a(g111 Vfunction p8243 tp8244 a(g185 V tp8245 a(g21 VCharPosR p8246 tp8247 a(g198 V( tp8248 a(g18 VC tp8249 a(g339 V: tp8250 a(g185 V tp8251 a(g135 VChar p8252 tp8253 a(g339 V; tp8254 a(g185 V tp8255 a(g111 Vconst p8256 tp8257 a(g185 V tp8258 a(g18 VS tp8259 a(g339 V: tp8260 a(g185 V tp8261 a(g111 Vstring p8262 tp8263 a(g339 V; tp8264 a(g185 V tp8265 a(g18 VOffset p8266 tp8267 a(g339 V: tp8268 a(g185 V tp8269 a(g135 VInteger p8270 tp8271 a(g185 V tp8272 a(g339 V= tp8273 a(g185 V tp8274 a(g339 V- tp8275 a(g314 V1 tp8276 a(g198 V) tp8277 a(g339 V: tp8278 a(g185 V tp8279 a(g135 VInteger p8280 tp8281 a(g339 V; tp8282 a(g185 V\u000a tp8283 a(g111 Vbegin p8284 tp8285 a(g185 V\u000a p8286 tp8287 a(g111 Vif p8288 tp8289 a(g185 V tp8290 a(g18 VOffset p8291 tp8292 a(g185 V tp8293 a(g339 V< tp8294 a(g185 V tp8295 a(g314 V0 tp8296 a(g185 V tp8297 a(g111 Vthen p8298 tp8299 a(g185 V\u000a p8300 tp8301 a(g60 VResult p8302 tp8303 a(g185 V tp8304 a(g339 V: tp8305 a(g339 V= tp8306 a(g185 V tp8307 a(g57 VLength p8308 tp8309 a(g198 V( tp8310 a(g18 VS tp8311 a(g198 V) tp8312 a(g185 V tp8313 a(g339 V+ tp8314 a(g185 V tp8315 a(g314 V1 tp8316 a(g185 V tp8317 a(g339 V- tp8318 a(g185 V tp8319 a(g18 VOffset p8320 tp8321 a(g185 V\u000a p8322 tp8323 a(g111 Velse p8324 tp8325 a(g185 V\u000a p8326 tp8327 a(g60 VResult p8328 tp8329 a(g185 V tp8330 a(g339 V: tp8331 a(g339 V= tp8332 a(g185 V tp8333 a(g18 VOffset p8334 tp8335 a(g339 V; tp8336 a(g185 V\u000a p8337 tp8338 a(g111 Vif p8339 tp8340 a(g185 V tp8341 a(g60 VResult p8342 tp8343 a(g185 V tp8344 a(g339 V> tp8345 a(g185 V tp8346 a(g57 VLength p8347 tp8348 a(g198 V( tp8349 a(g18 VS tp8350 a(g198 V) tp8351 a(g185 V tp8352 a(g111 Vthen p8353 tp8354 a(g185 V\u000a p8355 tp8356 a(g60 VResult p8357 tp8358 a(g185 V tp8359 a(g339 V: tp8360 a(g339 V= tp8361 a(g185 V tp8362 a(g57 VLength p8363 tp8364 a(g198 V( tp8365 a(g18 VS tp8366 a(g198 V) tp8367 a(g339 V; tp8368 a(g185 V\u000a\u000a p8369 tp8370 a(g111 Vwhile p8371 tp8372 a(g185 V tp8373 a(g60 VResult p8374 tp8375 a(g185 V tp8376 a(g339 V> tp8377 a(g185 V tp8378 a(g314 V0 tp8379 a(g185 V tp8380 a(g111 Vdo p8381 tp8382 a(g185 V tp8383 a(g111 Vbegin p8384 tp8385 a(g185 V\u000a p8386 tp8387 a(g111 Vif p8388 tp8389 a(g185 V tp8390 a(g18 VS tp8391 a(g198 V[ tp8392 a(g60 VResult p8393 tp8394 a(g198 V] tp8395 a(g185 V tp8396 a(g339 V= tp8397 a(g185 V tp8398 a(g18 VC tp8399 a(g185 V tp8400 a(g111 Vthen p8401 tp8402 a(g185 V\u000a p8403 tp8404 a(g111 VExit p8405 tp8406 a(g339 V; tp8407 a(g185 V\u000a p8408 tp8409 a(g57 VDec p8410 tp8411 a(g198 V( tp8412 a(g60 VResult p8413 tp8414 a(g198 V) tp8415 a(g339 V; tp8416 a(g185 V\u000a p8417 tp8418 a(g111 Vend p8419 tp8420 a(g339 V; tp8421 a(g185 V\u000a tp8422 a(g111 Vend p8423 tp8424 a(g339 V; tp8425 a(g185 V\u000a\u000a p8426 tp8427 a(g111 Vfunction p8428 tp8429 a(g185 V tp8430 a(g21 VPosEx p8431 tp8432 a(g198 V( tp8433 a(g111 Vconst p8434 tp8435 a(g185 V tp8436 a(g18 VSubStr p8437 tp8438 a(g339 V, tp8439 a(g185 V tp8440 a(g18 VS tp8441 a(g339 V: tp8442 a(g185 V tp8443 a(g111 Vstring p8444 tp8445 a(g339 V; tp8446 a(g185 V tp8447 a(g18 VOffset p8448 tp8449 a(g339 V: tp8450 a(g185 V tp8451 a(g135 VInteger p8452 tp8453 a(g185 V tp8454 a(g339 V= tp8455 a(g185 V tp8456 a(g314 V1 tp8457 a(g198 V) tp8458 a(g339 V: tp8459 a(g185 V tp8460 a(g135 VInteger p8461 tp8462 a(g339 V; tp8463 a(g185 V\u000a tp8464 a(g111 Vvar p8465 tp8466 a(g185 V\u000a p8467 tp8468 a(g18 VMaxPosToSearch p8469 tp8470 a(g339 V, tp8471 a(g185 V tp8472 a(g18 VLenSubStr p8473 tp8474 a(g339 V, tp8475 a(g185 V tp8476 a(g18 Vi tp8477 a(g339 V: tp8478 a(g185 V tp8479 a(g135 VInteger p8480 tp8481 a(g339 V; tp8482 a(g185 V\u000a tp8483 a(g111 Vbegin p8484 tp8485 a(g185 V\u000a p8486 tp8487 a(g111 Vif p8488 tp8489 a(g185 V tp8490 a(g18 VSubStr p8491 tp8492 a(g185 V tp8493 a(g339 V= tp8494 a(g185 V tp8495 a(g222 V' tp8496 a(g222 V' tp8497 a(g185 V tp8498 a(g111 Vthen p8499 tp8500 a(g185 V tp8501 a(g111 Vbegin p8502 tp8503 a(g185 V\u000a p8504 tp8505 a(g60 VResult p8506 tp8507 a(g185 V tp8508 a(g339 V: tp8509 a(g339 V= tp8510 a(g185 V tp8511 a(g314 V0 tp8512 a(g339 V; tp8513 a(g185 V\u000a p8514 tp8515 a(g111 VExit p8516 tp8517 a(g339 V; tp8518 a(g185 V tp8519 a(g111 Vend p8520 tp8521 a(g339 V; tp8522 a(g185 V\u000a\u000a p8523 tp8524 a(g111 Vif p8525 tp8526 a(g185 V tp8527 a(g18 VOffset p8528 tp8529 a(g185 V tp8530 a(g339 V< tp8531 a(g185 V tp8532 a(g314 V1 tp8533 a(g185 V tp8534 a(g111 Vthen p8535 tp8536 a(g185 V\u000a p8537 tp8538 a(g60 VResult p8539 tp8540 a(g185 V tp8541 a(g339 V: tp8542 a(g339 V= tp8543 a(g185 V tp8544 a(g314 V1 tp8545 a(g185 V\u000a p8546 tp8547 a(g111 Velse p8548 tp8549 a(g185 V\u000a p8550 tp8551 a(g60 VResult p8552 tp8553 a(g185 V tp8554 a(g339 V: tp8555 a(g339 V= tp8556 a(g185 V tp8557 a(g18 VOffset p8558 tp8559 a(g339 V; tp8560 a(g185 V\u000a\u000a p8561 tp8562 a(g18 VLenSubStr p8563 tp8564 a(g185 V tp8565 a(g339 V: tp8566 a(g339 V= tp8567 a(g185 V tp8568 a(g57 VLength p8569 tp8570 a(g198 V( tp8571 a(g18 VSubStr p8572 tp8573 a(g198 V) tp8574 a(g339 V; tp8575 a(g185 V\u000a p8576 tp8577 a(g18 VMaxPosToSearch p8578 tp8579 a(g185 V tp8580 a(g339 V: tp8581 a(g339 V= tp8582 a(g185 V tp8583 a(g57 VLength p8584 tp8585 a(g198 V( tp8586 a(g18 VS tp8587 a(g198 V) tp8588 a(g185 V tp8589 a(g339 V- tp8590 a(g185 V tp8591 a(g18 VLenSubStr p8592 tp8593 a(g185 V tp8594 a(g339 V+ tp8595 a(g185 V tp8596 a(g314 V1 tp8597 a(g339 V; tp8598 a(g185 V\u000a\u000a p8599 tp8600 a(g111 Vwhile p8601 tp8602 a(g185 V tp8603 a(g60 VResult p8604 tp8605 a(g185 V tp8606 a(g339 V< tp8607 a(g339 V= tp8608 a(g185 V tp8609 a(g18 VMaxPosToSearch p8610 tp8611 a(g185 V tp8612 a(g111 Vdo p8613 tp8614 a(g185 V tp8615 a(g111 Vbegin p8616 tp8617 a(g185 V\u000a p8618 tp8619 a(g111 Vif p8620 tp8621 a(g185 V tp8622 a(g18 VS tp8623 a(g198 V[ tp8624 a(g60 VResult p8625 tp8626 a(g198 V] tp8627 a(g185 V tp8628 a(g339 V= tp8629 a(g185 V tp8630 a(g18 VSubStr p8631 tp8632 a(g198 V[ tp8633 a(g314 V1 tp8634 a(g198 V] tp8635 a(g185 V tp8636 a(g111 Vthen p8637 tp8638 a(g185 V tp8639 a(g111 Vbegin p8640 tp8641 a(g185 V\u000a p8642 tp8643 a(g18 Vi tp8644 a(g185 V tp8645 a(g339 V: tp8646 a(g339 V= tp8647 a(g185 V tp8648 a(g314 V1 tp8649 a(g339 V; tp8650 a(g185 V\u000a\u000a p8651 tp8652 a(g111 Vwhile p8653 tp8654 a(g185 V tp8655 a(g198 V( tp8656 a(g18 Vi tp8657 a(g185 V tp8658 a(g339 V< tp8659 a(g185 V tp8660 a(g18 VLenSubStr p8661 tp8662 a(g198 V) tp8663 a(g185 V\u000a p8664 tp8665 a(g111 Vand p8666 tp8667 a(g185 V tp8668 a(g198 V( tp8669 a(g18 VS tp8670 a(g198 V[ tp8671 a(g60 VResult p8672 tp8673 a(g185 V tp8674 a(g339 V+ tp8675 a(g185 V tp8676 a(g18 Vi tp8677 a(g198 V] tp8678 a(g185 V tp8679 a(g339 V= tp8680 a(g185 V tp8681 a(g18 VSubStr p8682 tp8683 a(g198 V[ tp8684 a(g18 Vi tp8685 a(g185 V tp8686 a(g339 V+ tp8687 a(g185 V tp8688 a(g314 V1 tp8689 a(g198 V]) p8690 tp8691 a(g185 V tp8692 a(g111 Vdo p8693 tp8694 a(g185 V\u000a p8695 tp8696 a(g57 VInc p8697 tp8698 a(g198 V( tp8699 a(g18 Vi tp8700 a(g198 V) tp8701 a(g339 V; tp8702 a(g185 V\u000a\u000a p8703 tp8704 a(g111 Vif p8705 tp8706 a(g185 V tp8707 a(g18 Vi tp8708 a(g185 V tp8709 a(g339 V= tp8710 a(g185 V tp8711 a(g18 VLenSubStr p8712 tp8713 a(g185 V tp8714 a(g111 Vthen p8715 tp8716 a(g185 V\u000a p8717 tp8718 a(g111 VExit p8719 tp8720 a(g339 V; tp8721 a(g185 V\u000a p8722 tp8723 a(g111 Vend p8724 tp8725 a(g339 V; tp8726 a(g185 V\u000a p8727 tp8728 a(g57 VInc p8729 tp8730 a(g198 V( tp8731 a(g60 VResult p8732 tp8733 a(g198 V) tp8734 a(g339 V; tp8735 a(g185 V\u000a p8736 tp8737 a(g111 Vend p8738 tp8739 a(g339 V; tp8740 a(g185 V\u000a\u000a p8741 tp8742 a(g60 VResult p8743 tp8744 a(g185 V tp8745 a(g339 V: tp8746 a(g339 V= tp8747 a(g185 V tp8748 a(g314 V0 tp8749 a(g339 V; tp8750 a(g185 V\u000a tp8751 a(g111 Vend p8752 tp8753 a(g339 V; tp8754 a(g185 V\u000a\u000a p8755 tp8756 a(g111 Vfunction p8757 tp8758 a(g185 V tp8759 a(g21 VPosExText p8760 tp8761 a(g198 V( tp8762 a(g111 Vconst p8763 tp8764 a(g185 V tp8765 a(g18 VSubStr p8766 tp8767 a(g339 V, tp8768 a(g185 V tp8769 a(g18 VS tp8770 a(g339 V: tp8771 a(g185 V tp8772 a(g111 Vstring p8773 tp8774 a(g339 V; tp8775 a(g185 V tp8776 a(g18 VOffset p8777 tp8778 a(g339 V: tp8779 a(g185 V tp8780 a(g135 VInteger p8781 tp8782 a(g185 V tp8783 a(g339 V= tp8784 a(g185 V tp8785 a(g314 V1 tp8786 a(g198 V) tp8787 a(g339 V: tp8788 a(g185 V tp8789 a(g135 VInteger p8790 tp8791 a(g339 V; tp8792 a(g185 V\u000a tp8793 a(g111 Vvar p8794 tp8795 a(g185 V\u000a p8796 tp8797 a(g18 VMaxPosToSearch p8798 tp8799 a(g339 V, tp8800 a(g185 V tp8801 a(g18 VLenSubStr p8802 tp8803 a(g339 V, tp8804 a(g185 V tp8805 a(g18 Vi tp8806 a(g339 V: tp8807 a(g185 V tp8808 a(g135 VInteger p8809 tp8810 a(g339 V; tp8811 a(g185 V\u000a\u000a p8812 tp8813 a(g111 Vfunction p8814 tp8815 a(g185 V tp8816 a(g21 VSameChar p8817 tp8818 a(g198 V( tp8819 a(g18 Va tp8820 a(g339 V, tp8821 a(g185 V tp8822 a(g18 Vb tp8823 a(g339 V: tp8824 a(g185 V tp8825 a(g135 VChar p8826 tp8827 a(g198 V) tp8828 a(g339 V: tp8829 a(g185 V tp8830 a(g135 VBoolean p8831 tp8832 a(g339 V; tp8833 a(g185 V\u000a p8834 tp8835 a(g111 Vbegin p8836 tp8837 a(g185 V\u000a p8838 tp8839 a(g60 VResult p8840 tp8841 a(g185 V tp8842 a(g339 V: tp8843 a(g339 V= tp8844 a(g185 V tp8845 a(g57 VUpCase p8846 tp8847 a(g198 V( tp8848 a(g18 Va tp8849 a(g198 V) tp8850 a(g185 V tp8851 a(g339 V= tp8852 a(g185 V tp8853 a(g57 VUpCase p8854 tp8855 a(g198 V( tp8856 a(g18 Vb tp8857 a(g198 V) tp8858 a(g185 V\u000a p8859 tp8860 a(g111 Vend p8861 tp8862 a(g339 V; tp8863 a(g185 V\u000a\u000a p8864 tp8865 a(g111 Vbegin p8866 tp8867 a(g185 V\u000a p8868 tp8869 a(g111 Vif p8870 tp8871 a(g185 V tp8872 a(g18 VSubStr p8873 tp8874 a(g185 V tp8875 a(g339 V= tp8876 a(g185 V tp8877 a(g222 V' tp8878 a(g222 V' tp8879 a(g185 V tp8880 a(g111 Vthen p8881 tp8882 a(g185 V tp8883 a(g111 Vbegin p8884 tp8885 a(g185 V\u000a p8886 tp8887 a(g60 VResult p8888 tp8889 a(g185 V tp8890 a(g339 V: tp8891 a(g339 V= tp8892 a(g185 V tp8893 a(g314 V0 tp8894 a(g339 V; tp8895 a(g185 V\u000a p8896 tp8897 a(g111 VExit p8898 tp8899 a(g339 V; tp8900 a(g185 V tp8901 a(g111 Vend p8902 tp8903 a(g339 V; tp8904 a(g185 V\u000a\u000a p8905 tp8906 a(g111 Vif p8907 tp8908 a(g185 V tp8909 a(g18 VOffset p8910 tp8911 a(g185 V tp8912 a(g339 V< tp8913 a(g185 V tp8914 a(g314 V1 tp8915 a(g185 V tp8916 a(g111 Vthen p8917 tp8918 a(g185 V\u000a p8919 tp8920 a(g60 VResult p8921 tp8922 a(g185 V tp8923 a(g339 V: tp8924 a(g339 V= tp8925 a(g185 V tp8926 a(g314 V1 tp8927 a(g185 V\u000a p8928 tp8929 a(g111 Velse p8930 tp8931 a(g185 V\u000a p8932 tp8933 a(g60 VResult p8934 tp8935 a(g185 V tp8936 a(g339 V: tp8937 a(g339 V= tp8938 a(g185 V tp8939 a(g18 VOffset p8940 tp8941 a(g339 V; tp8942 a(g185 V\u000a\u000a p8943 tp8944 a(g18 VLenSubStr p8945 tp8946 a(g185 V tp8947 a(g339 V: tp8948 a(g339 V= tp8949 a(g185 V tp8950 a(g57 VLength p8951 tp8952 a(g198 V( tp8953 a(g18 VSubStr p8954 tp8955 a(g198 V) tp8956 a(g339 V; tp8957 a(g185 V\u000a p8958 tp8959 a(g18 VMaxPosToSearch p8960 tp8961 a(g185 V tp8962 a(g339 V: tp8963 a(g339 V= tp8964 a(g185 V tp8965 a(g57 VLength p8966 tp8967 a(g198 V( tp8968 a(g18 VS tp8969 a(g198 V) tp8970 a(g185 V tp8971 a(g339 V- tp8972 a(g185 V tp8973 a(g18 VLenSubStr p8974 tp8975 a(g185 V tp8976 a(g339 V+ tp8977 a(g185 V tp8978 a(g314 V1 tp8979 a(g339 V; tp8980 a(g185 V\u000a\u000a p8981 tp8982 a(g111 Vwhile p8983 tp8984 a(g185 V tp8985 a(g60 VResult p8986 tp8987 a(g185 V tp8988 a(g339 V< tp8989 a(g339 V= tp8990 a(g185 V tp8991 a(g18 VMaxPosToSearch p8992 tp8993 a(g185 V tp8994 a(g111 Vdo p8995 tp8996 a(g185 V tp8997 a(g111 Vbegin p8998 tp8999 a(g185 V\u000a p9000 tp9001 a(g111 Vif p9002 tp9003 a(g185 V tp9004 a(g18 VSameChar p9005 tp9006 a(g198 V( tp9007 a(g18 VS tp9008 a(g198 V[ tp9009 a(g60 VResult p9010 tp9011 a(g198 V] tp9012 a(g339 V, tp9013 a(g185 V tp9014 a(g18 VSubStr p9015 tp9016 a(g198 V[ tp9017 a(g314 V1 tp9018 a(g198 V]) p9019 tp9020 a(g185 V tp9021 a(g111 Vthen p9022 tp9023 a(g185 V tp9024 a(g111 Vbegin p9025 tp9026 a(g185 V\u000a p9027 tp9028 a(g18 Vi tp9029 a(g185 V tp9030 a(g339 V: tp9031 a(g339 V= tp9032 a(g185 V tp9033 a(g314 V1 tp9034 a(g339 V; tp9035 a(g185 V\u000a\u000a p9036 tp9037 a(g111 Vwhile p9038 tp9039 a(g185 V tp9040 a(g198 V( tp9041 a(g18 Vi tp9042 a(g185 V tp9043 a(g339 V< tp9044 a(g185 V tp9045 a(g18 VLenSubStr p9046 tp9047 a(g198 V) tp9048 a(g185 V\u000a p9049 tp9050 a(g111 Vand p9051 tp9052 a(g185 V tp9053 a(g198 V( tp9054 a(g18 VSameChar p9055 tp9056 a(g198 V( tp9057 a(g18 VS tp9058 a(g198 V[ tp9059 a(g60 VResult p9060 tp9061 a(g185 V tp9062 a(g339 V+ tp9063 a(g185 V tp9064 a(g18 Vi tp9065 a(g198 V] tp9066 a(g339 V, tp9067 a(g185 V tp9068 a(g18 VSubStr p9069 tp9070 a(g198 V[ tp9071 a(g18 Vi tp9072 a(g185 V tp9073 a(g339 V+ tp9074 a(g185 V tp9075 a(g314 V1 tp9076 a(g198 V])) p9077 tp9078 a(g185 V tp9079 a(g111 Vdo p9080 tp9081 a(g185 V\u000a p9082 tp9083 a(g57 VInc p9084 tp9085 a(g198 V( tp9086 a(g18 Vi tp9087 a(g198 V) tp9088 a(g339 V; tp9089 a(g185 V\u000a\u000a p9090 tp9091 a(g111 Vif p9092 tp9093 a(g185 V tp9094 a(g18 Vi tp9095 a(g185 V tp9096 a(g339 V= tp9097 a(g185 V tp9098 a(g18 VLenSubStr p9099 tp9100 a(g185 V tp9101 a(g111 Vthen p9102 tp9103 a(g185 V\u000a p9104 tp9105 a(g111 VExit p9106 tp9107 a(g339 V; tp9108 a(g185 V\u000a p9109 tp9110 a(g111 Vend p9111 tp9112 a(g339 V; tp9113 a(g185 V\u000a p9114 tp9115 a(g57 VInc p9116 tp9117 a(g198 V( tp9118 a(g60 VResult p9119 tp9120 a(g198 V) tp9121 a(g339 V; tp9122 a(g185 V\u000a p9123 tp9124 a(g111 Vend p9125 tp9126 a(g339 V; tp9127 a(g185 V\u000a\u000a p9128 tp9129 a(g60 VResult p9130 tp9131 a(g185 V tp9132 a(g339 V: tp9133 a(g339 V= tp9134 a(g185 V tp9135 a(g314 V0 tp9136 a(g339 V; tp9137 a(g185 V\u000a tp9138 a(g111 Vend p9139 tp9140 a(g339 V; tp9141 a(g185 V\u000a\u000a p9142 tp9143 a(g111 Vfunction p9144 tp9145 a(g185 V tp9146 a(g21 VPosExAnsiText p9147 tp9148 a(g198 V( tp9149 a(g111 Vconst p9150 tp9151 a(g185 V tp9152 a(g18 VSubStr p9153 tp9154 a(g339 V, tp9155 a(g185 V tp9156 a(g18 VS tp9157 a(g339 V: tp9158 a(g185 V tp9159 a(g111 Vstring p9160 tp9161 a(g339 V; tp9162 a(g185 V tp9163 a(g18 VOffset p9164 tp9165 a(g339 V: tp9166 a(g185 V tp9167 a(g135 VInteger p9168 tp9169 a(g185 V tp9170 a(g339 V= tp9171 a(g185 V tp9172 a(g314 V1 tp9173 a(g198 V) tp9174 a(g339 V: tp9175 a(g185 V tp9176 a(g135 VInteger p9177 tp9178 a(g339 V; tp9179 a(g185 V\u000a tp9180 a(g111 Vvar p9181 tp9182 a(g185 V\u000a p9183 tp9184 a(g18 VMaxPosToSearch p9185 tp9186 a(g339 V, tp9187 a(g185 V tp9188 a(g18 VLenSubStr p9189 tp9190 a(g339 V, tp9191 a(g185 V tp9192 a(g18 Vi tp9193 a(g339 V: tp9194 a(g185 V tp9195 a(g135 VInteger p9196 tp9197 a(g339 V; tp9198 a(g185 V\u000a\u000a p9199 tp9200 a(g111 Vfunction p9201 tp9202 a(g185 V tp9203 a(g21 VSameChar p9204 tp9205 a(g198 V( tp9206 a(g18 Va tp9207 a(g339 V, tp9208 a(g185 V tp9209 a(g18 Vb tp9210 a(g339 V: tp9211 a(g185 V tp9212 a(g135 VChar p9213 tp9214 a(g198 V) tp9215 a(g339 V: tp9216 a(g185 V tp9217 a(g135 VBoolean p9218 tp9219 a(g339 V; tp9220 a(g185 V\u000a p9221 tp9222 a(g111 Vbegin p9223 tp9224 a(g185 V\u000a p9225 tp9226 a(g60 VResult p9227 tp9228 a(g185 V tp9229 a(g339 V: tp9230 a(g339 V= tp9231 a(g185 V tp9232 a(g18 VCharLower p9233 tp9234 a(g198 V( tp9235 a(g135 VPChar p9236 tp9237 a(g198 V( tp9238 a(g18 Va tp9239 a(g198 V)) p9240 tp9241 a(g185 V tp9242 a(g339 V= tp9243 a(g185 V tp9244 a(g18 VCharLower p9245 tp9246 a(g198 V( tp9247 a(g135 VPChar p9248 tp9249 a(g198 V( tp9250 a(g18 Vb tp9251 a(g198 V)) p9252 tp9253 a(g339 V; tp9254 a(g185 V\u000a p9255 tp9256 a(g111 Vend p9257 tp9258 a(g339 V; tp9259 a(g185 V\u000a\u000a p9260 tp9261 a(g111 Vbegin p9262 tp9263 a(g185 V\u000a p9264 tp9265 a(g111 Vif p9266 tp9267 a(g185 V tp9268 a(g18 VSubStr p9269 tp9270 a(g185 V tp9271 a(g339 V= tp9272 a(g185 V tp9273 a(g222 V' tp9274 a(g222 V' tp9275 a(g185 V tp9276 a(g111 Vthen p9277 tp9278 a(g185 V tp9279 a(g111 Vbegin p9280 tp9281 a(g185 V\u000a p9282 tp9283 a(g60 VResult p9284 tp9285 a(g185 V tp9286 a(g339 V: tp9287 a(g339 V= tp9288 a(g185 V tp9289 a(g314 V0 tp9290 a(g339 V; tp9291 a(g185 V\u000a p9292 tp9293 a(g111 VExit p9294 tp9295 a(g339 V; tp9296 a(g185 V tp9297 a(g111 Vend p9298 tp9299 a(g339 V; tp9300 a(g185 V\u000a\u000a p9301 tp9302 a(g111 Vif p9303 tp9304 a(g185 V tp9305 a(g18 VOffset p9306 tp9307 a(g185 V tp9308 a(g339 V< tp9309 a(g185 V tp9310 a(g314 V1 tp9311 a(g185 V tp9312 a(g111 Vthen p9313 tp9314 a(g185 V\u000a p9315 tp9316 a(g60 VResult p9317 tp9318 a(g185 V tp9319 a(g339 V: tp9320 a(g339 V= tp9321 a(g185 V tp9322 a(g314 V1 tp9323 a(g185 V\u000a p9324 tp9325 a(g111 Velse p9326 tp9327 a(g185 V\u000a p9328 tp9329 a(g60 VResult p9330 tp9331 a(g185 V tp9332 a(g339 V: tp9333 a(g339 V= tp9334 a(g185 V tp9335 a(g18 VOffset p9336 tp9337 a(g339 V; tp9338 a(g185 V\u000a\u000a p9339 tp9340 a(g18 VLenSubStr p9341 tp9342 a(g185 V tp9343 a(g339 V: tp9344 a(g339 V= tp9345 a(g185 V tp9346 a(g57 VLength p9347 tp9348 a(g198 V( tp9349 a(g18 VSubStr p9350 tp9351 a(g198 V) tp9352 a(g339 V; tp9353 a(g185 V\u000a p9354 tp9355 a(g18 VMaxPosToSearch p9356 tp9357 a(g185 V tp9358 a(g339 V: tp9359 a(g339 V= tp9360 a(g185 V tp9361 a(g57 VLength p9362 tp9363 a(g198 V( tp9364 a(g18 VS tp9365 a(g198 V) tp9366 a(g185 V tp9367 a(g339 V- tp9368 a(g185 V tp9369 a(g18 VLenSubStr p9370 tp9371 a(g185 V tp9372 a(g339 V+ tp9373 a(g185 V tp9374 a(g314 V1 tp9375 a(g339 V; tp9376 a(g185 V\u000a\u000a p9377 tp9378 a(g111 Vwhile p9379 tp9380 a(g185 V tp9381 a(g60 VResult p9382 tp9383 a(g185 V tp9384 a(g339 V< tp9385 a(g339 V= tp9386 a(g185 V tp9387 a(g18 VMaxPosToSearch p9388 tp9389 a(g185 V tp9390 a(g111 Vdo p9391 tp9392 a(g185 V tp9393 a(g111 Vbegin p9394 tp9395 a(g185 V\u000a p9396 tp9397 a(g111 Vif p9398 tp9399 a(g185 V tp9400 a(g18 VSameChar p9401 tp9402 a(g198 V( tp9403 a(g18 VS tp9404 a(g198 V[ tp9405 a(g60 VResult p9406 tp9407 a(g198 V] tp9408 a(g339 V, tp9409 a(g185 V tp9410 a(g18 VSubStr p9411 tp9412 a(g198 V[ tp9413 a(g314 V1 tp9414 a(g198 V]) p9415 tp9416 a(g185 V tp9417 a(g111 Vthen p9418 tp9419 a(g185 V tp9420 a(g111 Vbegin p9421 tp9422 a(g185 V\u000a p9423 tp9424 a(g18 Vi tp9425 a(g185 V tp9426 a(g339 V: tp9427 a(g339 V= tp9428 a(g185 V tp9429 a(g314 V1 tp9430 a(g339 V; tp9431 a(g185 V\u000a\u000a p9432 tp9433 a(g111 Vwhile p9434 tp9435 a(g185 V tp9436 a(g198 V( tp9437 a(g18 Vi tp9438 a(g185 V tp9439 a(g339 V< tp9440 a(g185 V tp9441 a(g18 VLenSubStr p9442 tp9443 a(g198 V) tp9444 a(g185 V\u000a p9445 tp9446 a(g111 Vand p9447 tp9448 a(g185 V tp9449 a(g198 V( tp9450 a(g18 VSameChar p9451 tp9452 a(g198 V( tp9453 a(g18 VS tp9454 a(g198 V[ tp9455 a(g60 VResult p9456 tp9457 a(g185 V tp9458 a(g339 V+ tp9459 a(g185 V tp9460 a(g18 Vi tp9461 a(g198 V] tp9462 a(g339 V, tp9463 a(g185 V tp9464 a(g18 VSubStr p9465 tp9466 a(g198 V[ tp9467 a(g18 Vi tp9468 a(g185 V tp9469 a(g339 V+ tp9470 a(g185 V tp9471 a(g314 V1 tp9472 a(g198 V])) p9473 tp9474 a(g185 V tp9475 a(g111 Vdo p9476 tp9477 a(g185 V\u000a p9478 tp9479 a(g57 VInc p9480 tp9481 a(g198 V( tp9482 a(g18 Vi tp9483 a(g198 V) tp9484 a(g339 V; tp9485 a(g185 V\u000a\u000a p9486 tp9487 a(g111 Vif p9488 tp9489 a(g185 V tp9490 a(g18 Vi tp9491 a(g185 V tp9492 a(g339 V= tp9493 a(g185 V tp9494 a(g18 VLenSubStr p9495 tp9496 a(g185 V tp9497 a(g111 Vthen p9498 tp9499 a(g185 V\u000a p9500 tp9501 a(g111 VExit p9502 tp9503 a(g339 V; tp9504 a(g185 V\u000a p9505 tp9506 a(g111 Vend p9507 tp9508 a(g339 V; tp9509 a(g185 V\u000a p9510 tp9511 a(g57 VInc p9512 tp9513 a(g198 V( tp9514 a(g60 VResult p9515 tp9516 a(g198 V) tp9517 a(g339 V; tp9518 a(g185 V\u000a p9519 tp9520 a(g111 Vend p9521 tp9522 a(g339 V; tp9523 a(g185 V\u000a\u000a p9524 tp9525 a(g60 VResult p9526 tp9527 a(g185 V tp9528 a(g339 V: tp9529 a(g339 V= tp9530 a(g185 V tp9531 a(g314 V0 tp9532 a(g339 V; tp9533 a(g185 V\u000a tp9534 a(g111 Vend p9535 tp9536 a(g339 V; tp9537 a(g185 V\u000a\u000a p9538 tp9539 a(g111 Vfunction p9540 tp9541 a(g185 V tp9542 a(g21 VUntilChar p9543 tp9544 a(g198 V( tp9545 a(g111 Vconst p9546 tp9547 a(g185 V tp9548 a(g18 VS tp9549 a(g339 V: tp9550 a(g185 V tp9551 a(g111 Vstring p9552 tp9553 a(g339 V; tp9554 a(g185 V tp9555 a(g18 VBrake p9556 tp9557 a(g339 V: tp9558 a(g185 V tp9559 a(g135 VChar p9560 tp9561 a(g198 V) tp9562 a(g339 V: tp9563 a(g185 V tp9564 a(g111 Vstring p9565 tp9566 a(g339 V; tp9567 a(g185 V\u000a tp9568 a(g111 Vvar p9569 tp9570 a(g185 V\u000a p9571 tp9572 a(g18 Vp tp9573 a(g339 V: tp9574 a(g185 V tp9575 a(g135 VInteger p9576 tp9577 a(g339 V; tp9578 a(g185 V\u000a tp9579 a(g111 Vbegin p9580 tp9581 a(g185 V\u000a p9582 tp9583 a(g18 Vp tp9584 a(g185 V tp9585 a(g339 V: tp9586 a(g339 V= tp9587 a(g185 V tp9588 a(g18 VCharPos p9589 tp9590 a(g198 V( tp9591 a(g18 VBrake p9592 tp9593 a(g339 V, tp9594 a(g185 V tp9595 a(g18 VS tp9596 a(g198 V) tp9597 a(g339 V; tp9598 a(g185 V\u000a\u000a p9599 tp9600 a(g111 Vif p9601 tp9602 a(g185 V tp9603 a(g18 Vp tp9604 a(g185 V tp9605 a(g339 V> tp9606 a(g185 V tp9607 a(g314 V0 tp9608 a(g185 V tp9609 a(g111 Vthen p9610 tp9611 a(g185 V\u000a p9612 tp9613 a(g60 VResult p9614 tp9615 a(g185 V tp9616 a(g339 V: tp9617 a(g339 V= tp9618 a(g185 V tp9619 a(g57 VCopy p9620 tp9621 a(g198 V( tp9622 a(g18 VS tp9623 a(g339 V, tp9624 a(g185 V tp9625 a(g314 V1 tp9626 a(g339 V, tp9627 a(g185 V tp9628 a(g18 Vp tp9629 a(g185 V tp9630 a(g339 V- tp9631 a(g185 V tp9632 a(g314 V1 tp9633 a(g198 V) tp9634 a(g185 V\u000a p9635 tp9636 a(g111 Velse p9637 tp9638 a(g185 V\u000a p9639 tp9640 a(g60 VResult p9641 tp9642 a(g185 V tp9643 a(g339 V: tp9644 a(g339 V= tp9645 a(g185 V tp9646 a(g18 VS tp9647 a(g339 V; tp9648 a(g185 V\u000a tp9649 a(g111 Vend p9650 tp9651 a(g339 V; tp9652 a(g185 V\u000a\u000a p9653 tp9654 a(g111 Vfunction p9655 tp9656 a(g185 V tp9657 a(g21 VUntilChar p9658 tp9659 a(g198 V( tp9660 a(g111 Vconst p9661 tp9662 a(g185 V tp9663 a(g18 VS tp9664 a(g339 V: tp9665 a(g185 V tp9666 a(g111 Vstring p9667 tp9668 a(g339 V; tp9669 a(g185 V tp9670 a(g18 VBrake p9671 tp9672 a(g339 V: tp9673 a(g185 V tp9674 a(g18 VTCharSet p9675 tp9676 a(g198 V) tp9677 a(g339 V: tp9678 a(g185 V tp9679 a(g111 Vstring p9680 tp9681 a(g339 V; tp9682 a(g185 V\u000a tp9683 a(g111 Vvar p9684 tp9685 a(g185 V\u000a p9686 tp9687 a(g18 Vp tp9688 a(g339 V: tp9689 a(g185 V tp9690 a(g135 VInteger p9691 tp9692 a(g339 V; tp9693 a(g185 V\u000a tp9694 a(g111 Vbegin p9695 tp9696 a(g185 V\u000a p9697 tp9698 a(g60 VResult p9699 tp9700 a(g185 V tp9701 a(g339 V: tp9702 a(g339 V= tp9703 a(g185 V tp9704 a(g222 V' tp9705 a(g222 V' tp9706 a(g339 V; tp9707 a(g185 V\u000a p9708 tp9709 a(g18 Vp tp9710 a(g185 V tp9711 a(g339 V: tp9712 a(g339 V= tp9713 a(g185 V tp9714 a(g18 VCharPos p9715 tp9716 a(g198 V( tp9717 a(g18 VBrake p9718 tp9719 a(g339 V, tp9720 a(g185 V tp9721 a(g18 VS tp9722 a(g198 V) tp9723 a(g339 V; tp9724 a(g185 V\u000a\u000a p9725 tp9726 a(g111 Vif p9727 tp9728 a(g185 V tp9729 a(g18 Vp tp9730 a(g185 V tp9731 a(g339 V> tp9732 a(g185 V tp9733 a(g314 V0 tp9734 a(g185 V tp9735 a(g111 Vthen p9736 tp9737 a(g185 V\u000a p9738 tp9739 a(g60 VResult p9740 tp9741 a(g185 V tp9742 a(g339 V: tp9743 a(g339 V= tp9744 a(g185 V tp9745 a(g57 VCopy p9746 tp9747 a(g198 V( tp9748 a(g18 VS tp9749 a(g339 V, tp9750 a(g185 V tp9751 a(g314 V1 tp9752 a(g339 V, tp9753 a(g185 V tp9754 a(g18 Vp tp9755 a(g185 V tp9756 a(g339 V- tp9757 a(g185 V tp9758 a(g314 V1 tp9759 a(g198 V) tp9760 a(g185 V\u000a p9761 tp9762 a(g111 Velse p9763 tp9764 a(g185 V\u000a p9765 tp9766 a(g60 VResult p9767 tp9768 a(g185 V tp9769 a(g339 V: tp9770 a(g339 V= tp9771 a(g185 V tp9772 a(g18 VS tp9773 a(g339 V; tp9774 a(g185 V\u000a tp9775 a(g111 Vend p9776 tp9777 a(g339 V; tp9778 a(g185 V\u000a\u000a p9779 tp9780 a(g111 Vfunction p9781 tp9782 a(g185 V tp9783 a(g21 VUntilLastChar p9784 tp9785 a(g198 V( tp9786 a(g111 Vconst p9787 tp9788 a(g185 V tp9789 a(g18 VS tp9790 a(g339 V: tp9791 a(g185 V tp9792 a(g111 Vstring p9793 tp9794 a(g339 V; tp9795 a(g185 V tp9796 a(g18 VBrake p9797 tp9798 a(g339 V: tp9799 a(g185 V tp9800 a(g135 VChar p9801 tp9802 a(g339 V; tp9803 a(g185 V\u000a p9804 tp9805 a(g18 VIgnoreNoBrake p9806 tp9807 a(g339 V: tp9808 a(g185 V tp9809 a(g135 VBoolean p9810 tp9811 a(g185 V tp9812 a(g339 V= tp9813 a(g185 V tp9814 a(g111 VTrue p9815 tp9816 a(g198 V) tp9817 a(g339 V: tp9818 a(g185 V tp9819 a(g111 Vstring p9820 tp9821 a(g339 V; tp9822 a(g185 V\u000a tp9823 a(g111 Vvar p9824 tp9825 a(g185 V\u000a p9826 tp9827 a(g18 Vp tp9828 a(g339 V: tp9829 a(g185 V tp9830 a(g135 VInteger p9831 tp9832 a(g339 V; tp9833 a(g185 V\u000a tp9834 a(g111 Vbegin p9835 tp9836 a(g185 V\u000a p9837 tp9838 a(g60 VResult p9839 tp9840 a(g185 V tp9841 a(g339 V: tp9842 a(g339 V= tp9843 a(g185 V tp9844 a(g222 V' tp9845 a(g222 V' tp9846 a(g339 V; tp9847 a(g185 V\u000a p9848 tp9849 a(g18 Vp tp9850 a(g185 V tp9851 a(g339 V: tp9852 a(g339 V= tp9853 a(g185 V tp9854 a(g18 VCharPosR p9855 tp9856 a(g198 V( tp9857 a(g18 VBrake p9858 tp9859 a(g339 V, tp9860 a(g185 V tp9861 a(g18 VS tp9862 a(g198 V) tp9863 a(g339 V; tp9864 a(g185 V\u000a\u000a p9865 tp9866 a(g111 Vif p9867 tp9868 a(g185 V tp9869 a(g18 Vp tp9870 a(g185 V tp9871 a(g339 V> tp9872 a(g185 V tp9873 a(g314 V0 tp9874 a(g185 V tp9875 a(g111 Vthen p9876 tp9877 a(g185 V\u000a p9878 tp9879 a(g60 VResult p9880 tp9881 a(g185 V tp9882 a(g339 V: tp9883 a(g339 V= tp9884 a(g185 V tp9885 a(g57 VCopy p9886 tp9887 a(g198 V( tp9888 a(g18 VS tp9889 a(g339 V, tp9890 a(g185 V tp9891 a(g314 V1 tp9892 a(g339 V, tp9893 a(g185 V tp9894 a(g18 Vp tp9895 a(g185 V tp9896 a(g339 V- tp9897 a(g185 V tp9898 a(g314 V1 tp9899 a(g198 V) tp9900 a(g185 V\u000a p9901 tp9902 a(g111 Velse p9903 tp9904 a(g185 V tp9905 a(g111 Vif p9906 tp9907 a(g185 V tp9908 a(g18 VIgnoreNoBrake p9909 tp9910 a(g185 V tp9911 a(g111 Vthen p9912 tp9913 a(g185 V\u000a p9914 tp9915 a(g60 VResult p9916 tp9917 a(g185 V tp9918 a(g339 V: tp9919 a(g339 V= tp9920 a(g185 V tp9921 a(g18 VS tp9922 a(g339 V; tp9923 a(g185 V\u000a tp9924 a(g111 Vend p9925 tp9926 a(g339 V; tp9927 a(g185 V\u000a\u000a p9928 tp9929 a(g111 Vfunction p9930 tp9931 a(g185 V tp9932 a(g21 VFromChar p9933 tp9934 a(g198 V( tp9935 a(g111 Vconst p9936 tp9937 a(g185 V tp9938 a(g18 VS tp9939 a(g339 V: tp9940 a(g185 V tp9941 a(g111 Vstring p9942 tp9943 a(g339 V; tp9944 a(g185 V tp9945 a(g18 VBrake p9946 tp9947 a(g339 V: tp9948 a(g185 V tp9949 a(g135 VChar p9950 tp9951 a(g198 V) tp9952 a(g339 V: tp9953 a(g185 V tp9954 a(g111 Vstring p9955 tp9956 a(g339 V; tp9957 a(g185 V\u000a tp9958 a(g111 Vvar p9959 tp9960 a(g185 V\u000a p9961 tp9962 a(g18 Vp tp9963 a(g339 V: tp9964 a(g185 V tp9965 a(g135 VInteger p9966 tp9967 a(g339 V; tp9968 a(g185 V\u000a tp9969 a(g111 Vbegin p9970 tp9971 a(g185 V\u000a p9972 tp9973 a(g60 VResult p9974 tp9975 a(g185 V tp9976 a(g339 V: tp9977 a(g339 V= tp9978 a(g185 V tp9979 a(g222 V' tp9980 a(g222 V' tp9981 a(g339 V; tp9982 a(g185 V\u000a p9983 tp9984 a(g18 Vp tp9985 a(g185 V tp9986 a(g339 V: tp9987 a(g339 V= tp9988 a(g185 V tp9989 a(g18 VCharPos p9990 tp9991 a(g198 V( tp9992 a(g18 VBrake p9993 tp9994 a(g339 V, tp9995 a(g185 V tp9996 a(g18 VS tp9997 a(g198 V) tp9998 a(g339 V; tp9999 a(g185 V\u000a\u000a p10000 tp10001 a(g111 Vif p10002 tp10003 a(g185 V tp10004 a(g18 Vp tp10005 a(g185 V tp10006 a(g339 V> tp10007 a(g185 V tp10008 a(g314 V0 tp10009 a(g185 V tp10010 a(g111 Vthen p10011 tp10012 a(g185 V\u000a p10013 tp10014 a(g60 VResult p10015 tp10016 a(g185 V tp10017 a(g339 V: tp10018 a(g339 V= tp10019 a(g185 V tp10020 a(g57 VCopy p10021 tp10022 a(g198 V( tp10023 a(g18 VS tp10024 a(g339 V, tp10025 a(g185 V tp10026 a(g18 Vp tp10027 a(g185 V tp10028 a(g339 V+ tp10029 a(g185 V tp10030 a(g314 V1 tp10031 a(g339 V, tp10032 a(g185 V tp10033 a(g57 VLength p10034 tp10035 a(g198 V( tp10036 a(g18 VS tp10037 a(g198 V) tp10038 a(g185 V tp10039 a(g339 V- tp10040 a(g185 V tp10041 a(g18 Vp tp10042 a(g198 V) tp10043 a(g339 V; tp10044 a(g185 V\u000a tp10045 a(g111 Vend p10046 tp10047 a(g339 V; tp10048 a(g185 V\u000a\u000a p10049 tp10050 a(g111 Vfunction p10051 tp10052 a(g185 V tp10053 a(g21 VFromChar p10054 tp10055 a(g198 V( tp10056 a(g111 Vconst p10057 tp10058 a(g185 V tp10059 a(g18 VS tp10060 a(g339 V: tp10061 a(g185 V tp10062 a(g111 Vstring p10063 tp10064 a(g339 V; tp10065 a(g185 V tp10066 a(g18 VBrake p10067 tp10068 a(g339 V: tp10069 a(g185 V tp10070 a(g18 VTCharSet p10071 tp10072 a(g198 V) tp10073 a(g339 V: tp10074 a(g185 V tp10075 a(g111 Vstring p10076 tp10077 a(g339 V; tp10078 a(g185 V\u000a tp10079 a(g111 Vvar p10080 tp10081 a(g185 V\u000a p10082 tp10083 a(g18 Vp tp10084 a(g339 V: tp10085 a(g185 V tp10086 a(g135 VInteger p10087 tp10088 a(g339 V; tp10089 a(g185 V\u000a tp10090 a(g111 Vbegin p10091 tp10092 a(g185 V\u000a p10093 tp10094 a(g60 VResult p10095 tp10096 a(g185 V tp10097 a(g339 V: tp10098 a(g339 V= tp10099 a(g185 V tp10100 a(g222 V' tp10101 a(g222 V' tp10102 a(g339 V; tp10103 a(g185 V\u000a p10104 tp10105 a(g18 Vp tp10106 a(g185 V tp10107 a(g339 V: tp10108 a(g339 V= tp10109 a(g185 V tp10110 a(g18 VCharPos p10111 tp10112 a(g198 V( tp10113 a(g18 VBrake p10114 tp10115 a(g339 V, tp10116 a(g185 V tp10117 a(g18 VS tp10118 a(g198 V) tp10119 a(g339 V; tp10120 a(g185 V\u000a\u000a p10121 tp10122 a(g111 Vif p10123 tp10124 a(g185 V tp10125 a(g18 Vp tp10126 a(g185 V tp10127 a(g339 V> tp10128 a(g185 V tp10129 a(g314 V0 tp10130 a(g185 V tp10131 a(g111 Vthen p10132 tp10133 a(g185 V\u000a p10134 tp10135 a(g60 VResult p10136 tp10137 a(g185 V tp10138 a(g339 V: tp10139 a(g339 V= tp10140 a(g185 V tp10141 a(g57 VCopy p10142 tp10143 a(g198 V( tp10144 a(g18 VS tp10145 a(g339 V, tp10146 a(g185 V tp10147 a(g18 Vp tp10148 a(g185 V tp10149 a(g339 V+ tp10150 a(g185 V tp10151 a(g314 V1 tp10152 a(g339 V, tp10153 a(g185 V tp10154 a(g57 VLength p10155 tp10156 a(g198 V( tp10157 a(g18 VS tp10158 a(g198 V) tp10159 a(g185 V tp10160 a(g339 V- tp10161 a(g185 V tp10162 a(g18 Vp tp10163 a(g198 V) tp10164 a(g339 V; tp10165 a(g185 V\u000a tp10166 a(g111 Vend p10167 tp10168 a(g339 V; tp10169 a(g185 V\u000a\u000a p10170 tp10171 a(g111 Vfunction p10172 tp10173 a(g185 V tp10174 a(g21 VFromLastChar p10175 tp10176 a(g198 V( tp10177 a(g111 Vconst p10178 tp10179 a(g185 V tp10180 a(g18 VS tp10181 a(g339 V: tp10182 a(g185 V tp10183 a(g111 Vstring p10184 tp10185 a(g339 V; tp10186 a(g185 V tp10187 a(g18 VBrake p10188 tp10189 a(g339 V: tp10190 a(g185 V tp10191 a(g135 VChar p10192 tp10193 a(g339 V; tp10194 a(g185 V\u000a p10195 tp10196 a(g18 VIgnoreNoBrake p10197 tp10198 a(g339 V: tp10199 a(g185 V tp10200 a(g135 VBoolean p10201 tp10202 a(g185 V tp10203 a(g339 V= tp10204 a(g185 V tp10205 a(g111 VFalse p10206 tp10207 a(g198 V) tp10208 a(g339 V: tp10209 a(g185 V tp10210 a(g111 Vstring p10211 tp10212 a(g339 V; tp10213 a(g185 V\u000a tp10214 a(g111 Vvar p10215 tp10216 a(g185 V\u000a p10217 tp10218 a(g18 Vp tp10219 a(g339 V: tp10220 a(g185 V tp10221 a(g135 VInteger p10222 tp10223 a(g339 V; tp10224 a(g185 V\u000a tp10225 a(g111 Vbegin p10226 tp10227 a(g185 V\u000a p10228 tp10229 a(g60 VResult p10230 tp10231 a(g185 V tp10232 a(g339 V: tp10233 a(g339 V= tp10234 a(g185 V tp10235 a(g222 V' tp10236 a(g222 V' tp10237 a(g339 V; tp10238 a(g185 V\u000a p10239 tp10240 a(g18 Vp tp10241 a(g185 V tp10242 a(g339 V: tp10243 a(g339 V= tp10244 a(g185 V tp10245 a(g18 VCharPosR p10246 tp10247 a(g198 V( tp10248 a(g18 VBrake p10249 tp10250 a(g339 V, tp10251 a(g185 V tp10252 a(g18 VS tp10253 a(g198 V) tp10254 a(g339 V; tp10255 a(g185 V\u000a\u000a p10256 tp10257 a(g111 Vif p10258 tp10259 a(g185 V tp10260 a(g18 Vp tp10261 a(g185 V tp10262 a(g339 V> tp10263 a(g185 V tp10264 a(g314 V0 tp10265 a(g185 V tp10266 a(g111 Vthen p10267 tp10268 a(g185 V\u000a p10269 tp10270 a(g60 VResult p10271 tp10272 a(g185 V tp10273 a(g339 V: tp10274 a(g339 V= tp10275 a(g185 V tp10276 a(g57 VCopy p10277 tp10278 a(g198 V( tp10279 a(g18 VS tp10280 a(g339 V, tp10281 a(g185 V tp10282 a(g18 Vp tp10283 a(g185 V tp10284 a(g339 V+ tp10285 a(g185 V tp10286 a(g314 V1 tp10287 a(g339 V, tp10288 a(g185 V tp10289 a(g57 VLength p10290 tp10291 a(g198 V( tp10292 a(g18 VS tp10293 a(g198 V) tp10294 a(g185 V tp10295 a(g339 V- tp10296 a(g185 V tp10297 a(g18 Vp tp10298 a(g198 V) tp10299 a(g185 V\u000a p10300 tp10301 a(g111 Velse p10302 tp10303 a(g185 V tp10304 a(g111 Vif p10305 tp10306 a(g185 V tp10307 a(g18 VIgnoreNoBrake p10308 tp10309 a(g185 V tp10310 a(g111 Vthen p10311 tp10312 a(g185 V\u000a p10313 tp10314 a(g60 VResult p10315 tp10316 a(g185 V tp10317 a(g339 V: tp10318 a(g339 V= tp10319 a(g185 V tp10320 a(g18 VS tp10321 a(g339 V; tp10322 a(g185 V\u000a tp10323 a(g111 Vend p10324 tp10325 a(g339 V; tp10326 a(g185 V\u000a\u000a p10327 tp10328 a(g111 Vfunction p10329 tp10330 a(g185 V tp10331 a(g21 VBetweenChars p10332 tp10333 a(g198 V( tp10334 a(g111 Vconst p10335 tp10336 a(g185 V tp10337 a(g18 VS tp10338 a(g339 V: tp10339 a(g185 V tp10340 a(g111 Vstring p10341 tp10342 a(g339 V; tp10343 a(g185 V tp10344 a(g18 VStart p10345 tp10346 a(g339 V, tp10347 a(g185 V tp10348 a(g18 VFinish p10349 tp10350 a(g339 V: tp10351 a(g185 V tp10352 a(g135 VChar p10353 tp10354 a(g339 V; tp10355 a(g185 V\u000a p10356 tp10357 a(g18 VInclusive p10358 tp10359 a(g339 V: tp10360 a(g185 V tp10361 a(g135 VBoolean p10362 tp10363 a(g185 V tp10364 a(g339 V= tp10365 a(g185 V tp10366 a(g111 VFalse p10367 tp10368 a(g198 V) tp10369 a(g339 V: tp10370 a(g185 V tp10371 a(g111 Vstring p10372 tp10373 a(g339 V; tp10374 a(g185 V\u000a tp10375 a(g111 Vvar p10376 tp10377 a(g185 V\u000a p10378 tp10379 a(g18 Vp tp10380 a(g339 V, tp10381 a(g185 V tp10382 a(g18 Vfin p10383 tp10384 a(g339 V: tp10385 a(g185 V tp10386 a(g135 VInteger p10387 tp10388 a(g339 V; tp10389 a(g185 V\u000a tp10390 a(g111 Vbegin p10391 tp10392 a(g185 V\u000a p10393 tp10394 a(g60 VResult p10395 tp10396 a(g185 V tp10397 a(g339 V: tp10398 a(g339 V= tp10399 a(g185 V tp10400 a(g222 V' tp10401 a(g222 V' tp10402 a(g339 V; tp10403 a(g185 V\u000a\u000a p10404 tp10405 a(g18 Vp tp10406 a(g185 V tp10407 a(g339 V: tp10408 a(g339 V= tp10409 a(g185 V tp10410 a(g18 VCharPos p10411 tp10412 a(g198 V( tp10413 a(g18 VStart p10414 tp10415 a(g339 V, tp10416 a(g185 V tp10417 a(g18 VS tp10418 a(g198 V) tp10419 a(g339 V; tp10420 a(g185 V\u000a p10421 tp10422 a(g111 Vif p10423 tp10424 a(g185 V tp10425 a(g18 Vp tp10426 a(g185 V tp10427 a(g339 V= tp10428 a(g185 V tp10429 a(g314 V0 tp10430 a(g185 V tp10431 a(g111 Vthen p10432 tp10433 a(g185 V\u000a p10434 tp10435 a(g111 VExit p10436 tp10437 a(g339 V; tp10438 a(g185 V\u000a\u000a p10439 tp10440 a(g18 Vfin p10441 tp10442 a(g185 V tp10443 a(g339 V: tp10444 a(g339 V= tp10445 a(g185 V tp10446 a(g18 VCharPos p10447 tp10448 a(g198 V( tp10449 a(g18 VFinish p10450 tp10451 a(g339 V, tp10452 a(g185 V tp10453 a(g18 VS tp10454 a(g339 V, tp10455 a(g185 V tp10456 a(g18 Vp tp10457 a(g185 V tp10458 a(g339 V+ tp10459 a(g185 V tp10460 a(g314 V1 tp10461 a(g198 V) tp10462 a(g339 V; tp10463 a(g185 V\u000a p10464 tp10465 a(g111 Vif p10466 tp10467 a(g185 V tp10468 a(g18 Vfin p10469 tp10470 a(g185 V tp10471 a(g339 V= tp10472 a(g185 V tp10473 a(g314 V0 tp10474 a(g185 V tp10475 a(g111 Vthen p10476 tp10477 a(g185 V\u000a p10478 tp10479 a(g111 VExit p10480 tp10481 a(g339 V; tp10482 a(g185 V\u000a\u000a p10483 tp10484 a(g111 Vif p10485 tp10486 a(g185 V tp10487 a(g111 Vnot p10488 tp10489 a(g185 V tp10490 a(g18 VInclusive p10491 tp10492 a(g185 V tp10493 a(g111 Vthen p10494 tp10495 a(g185 V tp10496 a(g111 Vbegin p10497 tp10498 a(g185 V\u000a p10499 tp10500 a(g57 VInc p10501 tp10502 a(g198 V( tp10503 a(g18 Vp tp10504 a(g198 V) tp10505 a(g339 V; tp10506 a(g185 V\u000a p10507 tp10508 a(g57 VDec p10509 tp10510 a(g198 V( tp10511 a(g18 Vfin p10512 tp10513 a(g198 V) tp10514 a(g339 V; tp10515 a(g185 V\u000a p10516 tp10517 a(g111 Vend p10518 tp10519 a(g339 V; tp10520 a(g185 V\u000a\u000a p10521 tp10522 a(g60 VResult p10523 tp10524 a(g185 V tp10525 a(g339 V: tp10526 a(g339 V= tp10527 a(g185 V tp10528 a(g57 VCopy p10529 tp10530 a(g198 V( tp10531 a(g18 VS tp10532 a(g339 V, tp10533 a(g185 V tp10534 a(g18 Vp tp10535 a(g339 V, tp10536 a(g185 V tp10537 a(g18 Vfin p10538 tp10539 a(g185 V tp10540 a(g339 V- tp10541 a(g185 V tp10542 a(g18 Vp tp10543 a(g185 V tp10544 a(g339 V+ tp10545 a(g185 V tp10546 a(g314 V1 tp10547 a(g198 V) tp10548 a(g339 V; tp10549 a(g185 V\u000a tp10550 a(g111 Vend p10551 tp10552 a(g339 V; tp10553 a(g185 V\u000a\u000a p10554 tp10555 a(g111 Vfunction p10556 tp10557 a(g185 V tp10558 a(g21 VUntilStr p10559 tp10560 a(g198 V( tp10561 a(g111 Vconst p10562 tp10563 a(g185 V tp10564 a(g18 VS tp10565 a(g339 V: tp10566 a(g185 V tp10567 a(g111 Vstring p10568 tp10569 a(g339 V; tp10570 a(g185 V tp10571 a(g18 VBrake p10572 tp10573 a(g339 V: tp10574 a(g185 V tp10575 a(g111 Vstring p10576 tp10577 a(g198 V) tp10578 a(g339 V: tp10579 a(g185 V tp10580 a(g111 Vstring p10581 tp10582 a(g339 V; tp10583 a(g185 V\u000a tp10584 a(g111 Vvar p10585 tp10586 a(g185 V\u000a p10587 tp10588 a(g18 Vp tp10589 a(g339 V: tp10590 a(g185 V tp10591 a(g135 VInteger p10592 tp10593 a(g339 V; tp10594 a(g185 V\u000a tp10595 a(g111 Vbegin p10596 tp10597 a(g185 V\u000a p10598 tp10599 a(g111 Vif p10600 tp10601 a(g185 V tp10602 a(g57 VLength p10603 tp10604 a(g198 V( tp10605 a(g18 VBrake p10606 tp10607 a(g198 V) tp10608 a(g185 V tp10609 a(g339 V= tp10610 a(g185 V tp10611 a(g314 V1 tp10612 a(g185 V tp10613 a(g111 Vthen p10614 tp10615 a(g185 V tp10616 a(g111 Vbegin p10617 tp10618 a(g185 V\u000a p10619 tp10620 a(g60 VResult p10621 tp10622 a(g185 V tp10623 a(g339 V: tp10624 a(g339 V= tp10625 a(g185 V tp10626 a(g18 VUntilChar p10627 tp10628 a(g198 V( tp10629 a(g18 VS tp10630 a(g339 V, tp10631 a(g185 V tp10632 a(g18 VBrake p10633 tp10634 a(g198 V[ tp10635 a(g314 V1 tp10636 a(g198 V]) p10637 tp10638 a(g339 V; tp10639 a(g185 V\u000a p10640 tp10641 a(g111 VExit p10642 tp10643 a(g339 V; tp10644 a(g185 V tp10645 a(g111 Vend p10646 tp10647 a(g339 V; tp10648 a(g185 V\u000a\u000a p10649 tp10650 a(g18 Vp tp10651 a(g185 V tp10652 a(g339 V: tp10653 a(g339 V= tp10654 a(g185 V tp10655 a(g18 VPosEx p10656 tp10657 a(g198 V( tp10658 a(g18 VBrake p10659 tp10660 a(g339 V, tp10661 a(g185 V tp10662 a(g18 VS tp10663 a(g198 V) tp10664 a(g339 V; tp10665 a(g185 V\u000a\u000a p10666 tp10667 a(g111 Vif p10668 tp10669 a(g185 V tp10670 a(g18 Vp tp10671 a(g185 V tp10672 a(g339 V> tp10673 a(g185 V tp10674 a(g314 V0 tp10675 a(g185 V tp10676 a(g111 Vthen p10677 tp10678 a(g185 V\u000a p10679 tp10680 a(g60 VResult p10681 tp10682 a(g185 V tp10683 a(g339 V: tp10684 a(g339 V= tp10685 a(g185 V tp10686 a(g57 VCopy p10687 tp10688 a(g198 V( tp10689 a(g18 VS tp10690 a(g339 V, tp10691 a(g185 V tp10692 a(g314 V1 tp10693 a(g339 V, tp10694 a(g185 V tp10695 a(g18 Vp tp10696 a(g185 V tp10697 a(g339 V- tp10698 a(g185 V tp10699 a(g314 V1 tp10700 a(g198 V) tp10701 a(g185 V\u000a p10702 tp10703 a(g111 Velse p10704 tp10705 a(g185 V\u000a p10706 tp10707 a(g60 VResult p10708 tp10709 a(g185 V tp10710 a(g339 V: tp10711 a(g339 V= tp10712 a(g185 V tp10713 a(g18 VS tp10714 a(g339 V; tp10715 a(g185 V\u000a tp10716 a(g111 Vend p10717 tp10718 a(g339 V; tp10719 a(g185 V\u000a\u000a p10720 tp10721 a(g111 Vfunction p10722 tp10723 a(g185 V tp10724 a(g21 VFromStr p10725 tp10726 a(g198 V( tp10727 a(g111 Vconst p10728 tp10729 a(g185 V tp10730 a(g18 VS tp10731 a(g339 V: tp10732 a(g185 V tp10733 a(g111 Vstring p10734 tp10735 a(g339 V; tp10736 a(g185 V tp10737 a(g18 VBrake p10738 tp10739 a(g339 V: tp10740 a(g185 V tp10741 a(g111 Vstring p10742 tp10743 a(g198 V) tp10744 a(g339 V: tp10745 a(g185 V tp10746 a(g111 Vstring p10747 tp10748 a(g339 V; tp10749 a(g185 V\u000a tp10750 a(g111 Vvar p10751 tp10752 a(g185 V\u000a p10753 tp10754 a(g18 Vp tp10755 a(g339 V: tp10756 a(g185 V tp10757 a(g135 VInteger p10758 tp10759 a(g339 V; tp10760 a(g185 V\u000a tp10761 a(g111 Vbegin p10762 tp10763 a(g185 V\u000a p10764 tp10765 a(g111 Vif p10766 tp10767 a(g185 V tp10768 a(g57 VLength p10769 tp10770 a(g198 V( tp10771 a(g18 VBrake p10772 tp10773 a(g198 V) tp10774 a(g185 V tp10775 a(g339 V= tp10776 a(g185 V tp10777 a(g314 V1 tp10778 a(g185 V tp10779 a(g111 Vthen p10780 tp10781 a(g185 V tp10782 a(g111 Vbegin p10783 tp10784 a(g185 V\u000a p10785 tp10786 a(g60 VResult p10787 tp10788 a(g185 V tp10789 a(g339 V: tp10790 a(g339 V= tp10791 a(g185 V tp10792 a(g18 VFromChar p10793 tp10794 a(g198 V( tp10795 a(g18 VS tp10796 a(g339 V, tp10797 a(g185 V tp10798 a(g18 VBrake p10799 tp10800 a(g198 V[ tp10801 a(g314 V1 tp10802 a(g198 V]) p10803 tp10804 a(g339 V; tp10805 a(g185 V\u000a p10806 tp10807 a(g111 VExit p10808 tp10809 a(g339 V; tp10810 a(g185 V tp10811 a(g111 Vend p10812 tp10813 a(g339 V; tp10814 a(g185 V\u000a\u000a p10815 tp10816 a(g60 VResult p10817 tp10818 a(g185 V tp10819 a(g339 V: tp10820 a(g339 V= tp10821 a(g185 V tp10822 a(g222 V' tp10823 a(g222 V' tp10824 a(g339 V; tp10825 a(g185 V\u000a p10826 tp10827 a(g18 Vp tp10828 a(g185 V tp10829 a(g339 V: tp10830 a(g339 V= tp10831 a(g185 V tp10832 a(g18 VPosEx p10833 tp10834 a(g198 V( tp10835 a(g18 VBrake p10836 tp10837 a(g339 V, tp10838 a(g185 V tp10839 a(g18 Vs tp10840 a(g198 V) tp10841 a(g339 V; tp10842 a(g185 V\u000a\u000a p10843 tp10844 a(g111 Vif p10845 tp10846 a(g185 V tp10847 a(g18 Vp tp10848 a(g185 V tp10849 a(g339 V> tp10850 a(g185 V tp10851 a(g314 V0 tp10852 a(g185 V tp10853 a(g111 Vthen p10854 tp10855 a(g185 V tp10856 a(g111 Vbegin p10857 tp10858 a(g185 V\u000a p10859 tp10860 a(g57 VInc p10861 tp10862 a(g198 V( tp10863 a(g18 Vp tp10864 a(g339 V, tp10865 a(g185 V tp10866 a(g57 VLength p10867 tp10868 a(g198 V( tp10869 a(g18 VBrake p10870 tp10871 a(g198 V)) p10872 tp10873 a(g339 V; tp10874 a(g185 V\u000a p10875 tp10876 a(g60 VResult p10877 tp10878 a(g185 V tp10879 a(g339 V: tp10880 a(g339 V= tp10881 a(g185 V tp10882 a(g57 VCopy p10883 tp10884 a(g198 V( tp10885 a(g18 VS tp10886 a(g339 V, tp10887 a(g185 V tp10888 a(g18 Vp tp10889 a(g339 V, tp10890 a(g185 V tp10891 a(g57 VLength p10892 tp10893 a(g198 V( tp10894 a(g18 VS tp10895 a(g198 V) tp10896 a(g185 V tp10897 a(g339 V- tp10898 a(g185 V tp10899 a(g18 Vp tp10900 a(g185 V tp10901 a(g339 V+ tp10902 a(g185 V tp10903 a(g314 V1 tp10904 a(g198 V) tp10905 a(g339 V; tp10906 a(g185 V\u000a p10907 tp10908 a(g111 Vend p10909 tp10910 a(g339 V; tp10911 a(g185 V\u000a tp10912 a(g111 Vend p10913 tp10914 a(g339 V; tp10915 a(g185 V\u000a\u000a p10916 tp10917 a(g111 Vfunction p10918 tp10919 a(g185 V tp10920 a(g21 VStringWrap p10921 tp10922 a(g198 V( tp10923 a(g111 Vconst p10924 tp10925 a(g185 V tp10926 a(g18 VS tp10927 a(g339 V: tp10928 a(g185 V tp10929 a(g111 Vstring p10930 tp10931 a(g339 V; tp10932 a(g185 V tp10933 a(g18 VWidth p10934 tp10935 a(g339 V: tp10936 a(g185 V tp10937 a(g135 VInteger p10938 tp10939 a(g339 V; tp10940 a(g185 V tp10941 a(g111 Vconst p10942 tp10943 a(g185 V tp10944 a(g18 VLineEnd p10945 tp10946 a(g339 V: tp10947 a(g185 V tp10948 a(g111 Vstring p10949 tp10950 a(g185 V tp10951 a(g339 V= tp10952 a(g185 V tp10953 a(g18 VEOL p10954 tp10955 a(g198 V) tp10956 a(g339 V: tp10957 a(g185 V tp10958 a(g111 Vstring p10959 tp10960 a(g339 V; tp10961 a(g185 V\u000a tp10962 a(g111 Vvar p10963 tp10964 a(g185 V\u000a p10965 tp10966 a(g18 Vi tp10967 a(g339 V: tp10968 a(g185 V tp10969 a(g135 VInteger p10970 tp10971 a(g339 V; tp10972 a(g185 V\u000a tp10973 a(g111 Vbegin p10974 tp10975 a(g185 V\u000a p10976 tp10977 a(g60 VResult p10978 tp10979 a(g185 V tp10980 a(g339 V: tp10981 a(g339 V= tp10982 a(g185 V tp10983 a(g222 V' tp10984 a(g222 V' tp10985 a(g339 V; tp10986 a(g185 V\u000a p10987 tp10988 a(g111 Vif p10989 tp10990 a(g185 V tp10991 a(g198 V( tp10992 a(g18 VS tp10993 a(g185 V tp10994 a(g339 V= tp10995 a(g185 V tp10996 a(g222 V' tp10997 a(g222 V' tp10998 a(g198 V) tp10999 a(g185 V tp11000 a(g111 Vor p11001 tp11002 a(g185 V tp11003 a(g198 V( tp11004 a(g18 VWidth p11005 tp11006 a(g185 V tp11007 a(g339 V< tp11008 a(g185 V tp11009 a(g314 V1 tp11010 a(g198 V) tp11011 a(g185 V tp11012 a(g111 Vthen p11013 tp11014 a(g185 V\u000a p11015 tp11016 a(g111 VExit p11017 tp11018 a(g339 V; tp11019 a(g185 V\u000a\u000a p11020 tp11021 a(g18 Vi tp11022 a(g185 V tp11023 a(g339 V: tp11024 a(g339 V= tp11025 a(g185 V tp11026 a(g314 V1 tp11027 a(g339 V; tp11028 a(g185 V\u000a p11029 tp11030 a(g111 Vwhile p11031 tp11032 a(g185 V tp11033 a(g111 VTrue p11034 tp11035 a(g185 V tp11036 a(g111 Vdo p11037 tp11038 a(g185 V tp11039 a(g111 Vbegin p11040 tp11041 a(g185 V\u000a p11042 tp11043 a(g60 VResult p11044 tp11045 a(g185 V tp11046 a(g339 V: tp11047 a(g339 V= tp11048 a(g185 V tp11049 a(g60 VResult p11050 tp11051 a(g185 V tp11052 a(g339 V+ tp11053 a(g185 V tp11054 a(g57 VCopy p11055 tp11056 a(g198 V( tp11057 a(g18 VS tp11058 a(g339 V, tp11059 a(g185 V tp11060 a(g18 Vi tp11061 a(g339 V, tp11062 a(g185 V tp11063 a(g18 VWidth p11064 tp11065 a(g198 V) tp11066 a(g339 V; tp11067 a(g185 V\u000a p11068 tp11069 a(g57 VInc p11070 tp11071 a(g198 V( tp11072 a(g18 Vi tp11073 a(g339 V, tp11074 a(g185 V tp11075 a(g18 VWidth p11076 tp11077 a(g198 V) tp11078 a(g339 V; tp11079 a(g185 V\u000a p11080 tp11081 a(g111 Vif p11082 tp11083 a(g185 V tp11084 a(g18 Vi tp11085 a(g185 V tp11086 a(g339 V< tp11087 a(g339 V= tp11088 a(g185 V tp11089 a(g57 VLength p11090 tp11091 a(g198 V( tp11092 a(g18 VS tp11093 a(g198 V) tp11094 a(g185 V tp11095 a(g111 Vthen p11096 tp11097 a(g185 V\u000a p11098 tp11099 a(g60 VResult p11100 tp11101 a(g185 V tp11102 a(g339 V: tp11103 a(g339 V= tp11104 a(g185 V tp11105 a(g60 VResult p11106 tp11107 a(g185 V tp11108 a(g339 V+ tp11109 a(g185 V tp11110 a(g18 VLineEnd p11111 tp11112 a(g185 V\u000a p11113 tp11114 a(g111 Velse p11115 tp11116 a(g185 V\u000a p11117 tp11118 a(g111 VExit p11119 tp11120 a(g339 V; tp11121 a(g185 V\u000a p11122 tp11123 a(g111 Vend p11124 tp11125 a(g339 V; tp11126 a(g185 V\u000a tp11127 a(g111 Vend p11128 tp11129 a(g339 V; tp11130 a(g185 V\u000a\u000a p11131 tp11132 a(g111 Vfunction p11133 tp11134 a(g185 V tp11135 a(g21 VSplit p11136 tp11137 a(g198 V( tp11138 a(g111 Vconst p11139 tp11140 a(g185 V tp11141 a(g18 VS tp11142 a(g339 V, tp11143 a(g185 V tp11144 a(g18 VSeparator p11145 tp11146 a(g339 V: tp11147 a(g185 V tp11148 a(g111 Vstring p11149 tp11150 a(g339 V; tp11151 a(g185 V tp11152 a(g18 VIgnoreMultiSep p11153 tp11154 a(g339 V: tp11155 a(g185 V tp11156 a(g135 VBoolean p11157 tp11158 a(g185 V tp11159 a(g339 V= tp11160 a(g185 V tp11161 a(g111 VTrue p11162 tp11163 a(g339 V; tp11164 a(g185 V\u000a p11165 tp11166 a(g18 VMinCount p11167 tp11168 a(g339 V: tp11169 a(g185 V tp11170 a(g135 VInteger p11171 tp11172 a(g185 V tp11173 a(g339 V= tp11174 a(g185 V tp11175 a(g314 V0 tp11176 a(g198 V) tp11177 a(g339 V: tp11178 a(g185 V tp11179 a(g18 VTStrA p11180 tp11181 a(g339 V; tp11182 a(g185 V\u000a tp11183 a(g111 Vvar p11184 tp11185 a(g185 V\u000a p11186 tp11187 a(g18 Vp tp11188 a(g339 V, tp11189 a(g185 V tp11190 a(g18 Vfin p11191 tp11192 a(g339 V, tp11193 a(g185 V tp11194 a(g18 VSepLen p11195 tp11196 a(g339 V: tp11197 a(g185 V tp11198 a(g135 VInteger p11199 tp11200 a(g339 V; tp11201 a(g185 V\u000a\u000a p11202 tp11203 a(g111 Vprocedure p11204 tp11205 a(g185 V tp11206 a(g21 VAdd p11207 tp11208 a(g198 V( tp11209 a(g111 Vconst p11210 tp11211 a(g185 V tp11212 a(g18 VS tp11213 a(g339 V: tp11214 a(g185 V tp11215 a(g111 Vstring p11216 tp11217 a(g198 V) tp11218 a(g339 V; tp11219 a(g185 V\u000a p11220 tp11221 a(g111 Vbegin p11222 tp11223 a(g185 V\u000a p11224 tp11225 a(g111 Vif p11226 tp11227 a(g185 V tp11228 a(g18 VIgnoreMultiSep p11229 tp11230 a(g185 V tp11231 a(g111 Vand p11232 tp11233 a(g185 V tp11234 a(g198 V( tp11235 a(g18 VS tp11236 a(g185 V tp11237 a(g339 V= tp11238 a(g185 V tp11239 a(g222 V' tp11240 a(g222 V' tp11241 a(g198 V) tp11242 a(g185 V tp11243 a(g111 Vthen p11244 tp11245 a(g185 V\u000a p11246 tp11247 a(g111 VExit p11248 tp11249 a(g339 V; tp11250 a(g185 V\u000a p11251 tp11252 a(g57 VSetLength p11253 tp11254 a(g198 V( tp11255 a(g60 VResult p11256 tp11257 a(g339 V, tp11258 a(g185 V tp11259 a(g57 VLength p11260 tp11261 a(g198 V( tp11262 a(g60 VResult p11263 tp11264 a(g198 V) tp11265 a(g185 V tp11266 a(g339 V+ tp11267 a(g185 V tp11268 a(g314 V1 tp11269 a(g198 V) tp11270 a(g339 V; tp11271 a(g185 V\u000a p11272 tp11273 a(g60 VResult p11274 tp11275 a(g198 V[ tp11276 a(g57 VHigh p11277 tp11278 a(g198 V( tp11279 a(g60 VResult p11280 tp11281 a(g198 V)] p11282 tp11283 a(g185 V tp11284 a(g339 V: tp11285 a(g339 V= tp11286 a(g185 V tp11287 a(g18 VS tp11288 a(g339 V; tp11289 a(g185 V\u000a p11290 tp11291 a(g111 Vend p11292 tp11293 a(g339 V; tp11294 a(g185 V\u000a\u000a p11295 tp11296 a(g111 Vbegin p11297 tp11298 a(g185 V\u000a p11299 tp11300 a(g111 Vif p11301 tp11302 a(g185 V tp11303 a(g18 VS tp11304 a(g185 V tp11305 a(g339 V= tp11306 a(g185 V tp11307 a(g222 V' tp11308 a(g222 V' tp11309 a(g185 V tp11310 a(g111 Vthen p11311 tp11312 a(g185 V tp11313 a(g111 Vbegin p11314 tp11315 a(g185 V\u000a p11316 tp11317 a(g111 Vif p11318 tp11319 a(g185 V tp11320 a(g57 VLength p11321 tp11322 a(g198 V( tp11323 a(g60 VResult p11324 tp11325 a(g198 V) tp11326 a(g185 V tp11327 a(g339 V< tp11328 a(g185 V tp11329 a(g18 VMinCount p11330 tp11331 a(g185 V tp11332 a(g111 Vthen p11333 tp11334 a(g185 V\u000a p11335 tp11336 a(g57 VSetLength p11337 tp11338 a(g198 V( tp11339 a(g60 VResult p11340 tp11341 a(g339 V, tp11342 a(g185 V tp11343 a(g18 VMinCount p11344 tp11345 a(g198 V) tp11346 a(g339 V; tp11347 a(g185 V\u000a p11348 tp11349 a(g111 VExit p11350 tp11351 a(g339 V; tp11352 a(g185 V tp11353 a(g111 Vend p11354 tp11355 a(g339 V; tp11356 a(g185 V\u000a\u000a p11357 tp11358 a(g60 VResult p11359 tp11360 a(g185 V tp11361 a(g339 V: tp11362 a(g339 V= tp11363 a(g185 V tp11364 a(g111 Vnil p11365 tp11366 a(g339 V; tp11367 a(g185 V\u000a p11368 tp11369 a(g18 VSepLen p11370 tp11371 a(g185 V tp11372 a(g339 V: tp11373 a(g339 V= tp11374 a(g185 V tp11375 a(g57 VLength p11376 tp11377 a(g198 V( tp11378 a(g18 VSeparator p11379 tp11380 a(g198 V) tp11381 a(g339 V; tp11382 a(g185 V\u000a\u000a p11383 tp11384 a(g18 Vp tp11385 a(g185 V tp11386 a(g339 V: tp11387 a(g339 V= tp11388 a(g185 V tp11389 a(g314 V1 tp11390 a(g339 V; tp11391 a(g185 V\u000a p11392 tp11393 a(g18 Vfin p11394 tp11395 a(g185 V tp11396 a(g339 V: tp11397 a(g339 V= tp11398 a(g185 V tp11399 a(g18 VPosEx p11400 tp11401 a(g198 V( tp11402 a(g18 VSeparator p11403 tp11404 a(g339 V, tp11405 a(g185 V tp11406 a(g18 VS tp11407 a(g198 V) tp11408 a(g339 V; tp11409 a(g185 V\u000a p11410 tp11411 a(g111 Vwhile p11412 tp11413 a(g185 V tp11414 a(g18 Vfin p11415 tp11416 a(g185 V tp11417 a(g339 V> tp11418 a(g185 V tp11419 a(g314 V0 tp11420 a(g185 V tp11421 a(g111 Vdo p11422 tp11423 a(g185 V tp11424 a(g111 Vbegin p11425 tp11426 a(g185 V\u000a p11427 tp11428 a(g18 VAdd p11429 tp11430 a(g198 V( tp11431 a(g57 VCopy p11432 tp11433 a(g198 V( tp11434 a(g18 VS tp11435 a(g339 V, tp11436 a(g185 V tp11437 a(g18 Vp tp11438 a(g339 V, tp11439 a(g185 V tp11440 a(g18 Vfin p11441 tp11442 a(g185 V tp11443 a(g339 V- tp11444 a(g185 V tp11445 a(g18 Vp tp11446 a(g198 V)) p11447 tp11448 a(g339 V; tp11449 a(g185 V\u000a p11450 tp11451 a(g18 Vp tp11452 a(g185 V tp11453 a(g339 V: tp11454 a(g339 V= tp11455 a(g185 V tp11456 a(g18 Vfin p11457 tp11458 a(g185 V tp11459 a(g339 V+ tp11460 a(g185 V tp11461 a(g18 VSepLen p11462 tp11463 a(g339 V; tp11464 a(g185 V\u000a p11465 tp11466 a(g18 Vfin p11467 tp11468 a(g185 V tp11469 a(g339 V: tp11470 a(g339 V= tp11471 a(g185 V tp11472 a(g18 VPosEx p11473 tp11474 a(g198 V( tp11475 a(g18 VSeparator p11476 tp11477 a(g339 V, tp11478 a(g185 V tp11479 a(g18 VS tp11480 a(g339 V, tp11481 a(g185 V tp11482 a(g18 Vp tp11483 a(g198 V) tp11484 a(g339 V; tp11485 a(g185 V\u000a p11486 tp11487 a(g111 Vend p11488 tp11489 a(g339 V; tp11490 a(g185 V\u000a p11491 tp11492 a(g18 VAdd p11493 tp11494 a(g198 V( tp11495 a(g57 VCopy p11496 tp11497 a(g198 V( tp11498 a(g18 VS tp11499 a(g339 V, tp11500 a(g185 V tp11501 a(g18 Vp tp11502 a(g339 V, tp11503 a(g185 V tp11504 a(g57 VLength p11505 tp11506 a(g198 V( tp11507 a(g18 VS tp11508 a(g198 V) tp11509 a(g185 V tp11510 a(g339 V- tp11511 a(g185 V tp11512 a(g18 Vp tp11513 a(g185 V tp11514 a(g339 V+ tp11515 a(g185 V tp11516 a(g314 V1 tp11517 a(g198 V)) p11518 tp11519 a(g339 V; tp11520 a(g185 V\u000a\u000a p11521 tp11522 a(g111 Vif p11523 tp11524 a(g185 V tp11525 a(g57 VLength p11526 tp11527 a(g198 V( tp11528 a(g60 VResult p11529 tp11530 a(g198 V) tp11531 a(g185 V tp11532 a(g339 V< tp11533 a(g185 V tp11534 a(g18 VMinCount p11535 tp11536 a(g185 V tp11537 a(g111 Vthen p11538 tp11539 a(g185 V\u000a p11540 tp11541 a(g57 VSetLength p11542 tp11543 a(g198 V( tp11544 a(g60 VResult p11545 tp11546 a(g339 V, tp11547 a(g185 V tp11548 a(g18 VMinCount p11549 tp11550 a(g198 V) tp11551 a(g339 V; tp11552 a(g185 V\u000a tp11553 a(g111 Vend p11554 tp11555 a(g339 V; tp11556 a(g185 V\u000a\u000a p11557 tp11558 a(g111 Vprocedure p11559 tp11560 a(g185 V tp11561 a(g21 VSplit p11562 tp11563 a(g198 V( tp11564 a(g111 Vconst p11565 tp11566 a(g185 V tp11567 a(g18 VS tp11568 a(g339 V, tp11569 a(g185 V tp11570 a(g18 VSeparator p11571 tp11572 a(g339 V: tp11573 a(g185 V tp11574 a(g111 Vstring p11575 tp11576 a(g339 V; tp11577 a(g185 V tp11578 a(g18 VStrings p11579 tp11580 a(g339 V: tp11581 a(g185 V tp11582 a(g18 VTStrings p11583 tp11584 a(g339 V; tp11585 a(g185 V\u000a p11586 tp11587 a(g18 VIgnoreMultiSep p11588 tp11589 a(g339 V: tp11590 a(g185 V tp11591 a(g135 VBoolean p11592 tp11593 a(g185 V tp11594 a(g339 V= tp11595 a(g185 V tp11596 a(g111 VTrue p11597 tp11598 a(g198 V) tp11599 a(g339 V; tp11600 a(g185 V \u000a p11601 tp11602 a(g111 Vvar p11603 tp11604 a(g185 V\u000a p11605 tp11606 a(g18 Vp tp11607 a(g339 V, tp11608 a(g185 V tp11609 a(g18 Vfin p11610 tp11611 a(g339 V, tp11612 a(g185 V tp11613 a(g18 VSepLen p11614 tp11615 a(g339 V: tp11616 a(g185 V tp11617 a(g135 VInteger p11618 tp11619 a(g339 V; tp11620 a(g185 V\u000a\u000a p11621 tp11622 a(g111 Vprocedure p11623 tp11624 a(g185 V tp11625 a(g21 VAdd p11626 tp11627 a(g198 V( tp11628 a(g111 Vconst p11629 tp11630 a(g185 V tp11631 a(g18 VS tp11632 a(g339 V: tp11633 a(g185 V tp11634 a(g111 Vstring p11635 tp11636 a(g198 V) tp11637 a(g339 V; tp11638 a(g185 V\u000a p11639 tp11640 a(g111 Vbegin p11641 tp11642 a(g185 V\u000a p11643 tp11644 a(g111 Vif p11645 tp11646 a(g185 V tp11647 a(g18 VIgnoreMultiSep p11648 tp11649 a(g185 V tp11650 a(g111 Vand p11651 tp11652 a(g185 V tp11653 a(g198 V( tp11654 a(g18 VS tp11655 a(g185 V tp11656 a(g339 V= tp11657 a(g185 V tp11658 a(g222 V' tp11659 a(g222 V' tp11660 a(g198 V) tp11661 a(g185 V tp11662 a(g111 Vthen p11663 tp11664 a(g185 V\u000a p11665 tp11666 a(g111 VExit p11667 tp11668 a(g339 V; tp11669 a(g185 V\u000a p11670 tp11671 a(g18 VStrings p11672 tp11673 a(g339 V. tp11674 a(g18 VAdd p11675 tp11676 a(g198 V( tp11677 a(g18 VS tp11678 a(g198 V) tp11679 a(g339 V; tp11680 a(g185 V\u000a p11681 tp11682 a(g111 Vend p11683 tp11684 a(g339 V; tp11685 a(g185 V\u000a\u000a p11686 tp11687 a(g111 Vbegin p11688 tp11689 a(g185 V\u000a p11690 tp11691 a(g111 Vif p11692 tp11693 a(g185 V tp11694 a(g18 VS tp11695 a(g185 V tp11696 a(g339 V= tp11697 a(g185 V tp11698 a(g222 V' tp11699 a(g222 V' tp11700 a(g185 V tp11701 a(g111 Vthen p11702 tp11703 a(g185 V\u000a p11704 tp11705 a(g111 VExit p11706 tp11707 a(g339 V; tp11708 a(g185 V\u000a\u000a p11709 tp11710 a(g18 VStrings p11711 tp11712 a(g339 V. tp11713 a(g18 VBeginUpdate p11714 tp11715 a(g339 V; tp11716 a(g185 V\u000a p11717 tp11718 a(g18 VSepLen p11719 tp11720 a(g185 V tp11721 a(g339 V: tp11722 a(g339 V= tp11723 a(g185 V tp11724 a(g57 VLength p11725 tp11726 a(g198 V( tp11727 a(g18 VSeparator p11728 tp11729 a(g198 V) tp11730 a(g339 V; tp11731 a(g185 V\u000a p11732 tp11733 a(g18 Vp tp11734 a(g185 V tp11735 a(g339 V: tp11736 a(g339 V= tp11737 a(g185 V tp11738 a(g314 V1 tp11739 a(g339 V; tp11740 a(g185 V\u000a p11741 tp11742 a(g18 Vfin p11743 tp11744 a(g185 V tp11745 a(g339 V: tp11746 a(g339 V= tp11747 a(g185 V tp11748 a(g18 VPosEx p11749 tp11750 a(g198 V( tp11751 a(g18 VSeparator p11752 tp11753 a(g339 V, tp11754 a(g185 V tp11755 a(g18 VS tp11756 a(g198 V) tp11757 a(g339 V; tp11758 a(g185 V\u000a p11759 tp11760 a(g111 Vwhile p11761 tp11762 a(g185 V tp11763 a(g18 Vfin p11764 tp11765 a(g185 V tp11766 a(g339 V> tp11767 a(g185 V tp11768 a(g314 V0 tp11769 a(g185 V tp11770 a(g111 Vdo p11771 tp11772 a(g185 V tp11773 a(g111 Vbegin p11774 tp11775 a(g185 V\u000a p11776 tp11777 a(g18 VAdd p11778 tp11779 a(g198 V( tp11780 a(g57 VCopy p11781 tp11782 a(g198 V( tp11783 a(g18 VS tp11784 a(g339 V, tp11785 a(g185 V tp11786 a(g18 Vp tp11787 a(g339 V, tp11788 a(g185 V tp11789 a(g18 Vfin p11790 tp11791 a(g185 V tp11792 a(g339 V- tp11793 a(g185 V tp11794 a(g18 Vp tp11795 a(g198 V)) p11796 tp11797 a(g339 V; tp11798 a(g185 V\u000a p11799 tp11800 a(g18 Vp tp11801 a(g185 V tp11802 a(g339 V: tp11803 a(g339 V= tp11804 a(g185 V tp11805 a(g18 Vfin p11806 tp11807 a(g185 V tp11808 a(g339 V+ tp11809 a(g185 V tp11810 a(g18 VSepLen p11811 tp11812 a(g339 V; tp11813 a(g185 V\u000a p11814 tp11815 a(g18 Vfin p11816 tp11817 a(g185 V tp11818 a(g339 V: tp11819 a(g339 V= tp11820 a(g185 V tp11821 a(g18 VPosEx p11822 tp11823 a(g198 V( tp11824 a(g18 VSeparator p11825 tp11826 a(g339 V, tp11827 a(g185 V tp11828 a(g18 VS tp11829 a(g339 V, tp11830 a(g185 V tp11831 a(g18 Vp tp11832 a(g198 V) tp11833 a(g339 V; tp11834 a(g185 V\u000a p11835 tp11836 a(g111 Vend p11837 tp11838 a(g339 V; tp11839 a(g185 V\u000a p11840 tp11841 a(g18 VAdd p11842 tp11843 a(g198 V( tp11844 a(g57 VCopy p11845 tp11846 a(g198 V( tp11847 a(g18 VS tp11848 a(g339 V, tp11849 a(g185 V tp11850 a(g18 Vp tp11851 a(g339 V, tp11852 a(g185 V tp11853 a(g57 VLength p11854 tp11855 a(g198 V( tp11856 a(g18 VS tp11857 a(g198 V) tp11858 a(g185 V tp11859 a(g339 V- tp11860 a(g185 V tp11861 a(g18 Vp tp11862 a(g185 V tp11863 a(g339 V+ tp11864 a(g185 V tp11865 a(g314 V1 tp11866 a(g198 V)) p11867 tp11868 a(g339 V; tp11869 a(g185 V\u000a p11870 tp11871 a(g18 VStrings p11872 tp11873 a(g339 V. tp11874 a(g18 VEndUpdate p11875 tp11876 a(g339 V; tp11877 a(g185 V\u000a tp11878 a(g111 Vend p11879 tp11880 a(g339 V; tp11881 a(g185 V\u000a\u000a p11882 tp11883 a(g111 Vfunction p11884 tp11885 a(g185 V tp11886 a(g21 VSplit p11887 tp11888 a(g198 V( tp11889 a(g111 Vconst p11890 tp11891 a(g185 V tp11892 a(g18 VS tp11893 a(g339 V: tp11894 a(g185 V tp11895 a(g111 Vstring p11896 tp11897 a(g339 V; tp11898 a(g185 V tp11899 a(g18 VSeparators p11900 tp11901 a(g339 V: tp11902 a(g185 V tp11903 a(g18 VTCharSet p11904 tp11905 a(g339 V; tp11906 a(g185 V\u000a p11907 tp11908 a(g18 VIgnoreMultiSep p11909 tp11910 a(g339 V: tp11911 a(g185 V tp11912 a(g135 VBoolean p11913 tp11914 a(g185 V tp11915 a(g339 V= tp11916 a(g185 V tp11917 a(g111 VTrue p11918 tp11919 a(g339 V; tp11920 a(g185 V tp11921 a(g18 VMinCount p11922 tp11923 a(g339 V: tp11924 a(g185 V tp11925 a(g135 VInteger p11926 tp11927 a(g185 V tp11928 a(g339 V= tp11929 a(g185 V tp11930 a(g314 V0 tp11931 a(g198 V) tp11932 a(g339 V: tp11933 a(g185 V tp11934 a(g18 VTStrA p11935 tp11936 a(g339 V; tp11937 a(g185 V\u000a tp11938 a(g111 Vvar p11939 tp11940 a(g185 V\u000a p11941 tp11942 a(g18 Vp tp11943 a(g339 V, tp11944 a(g185 V tp11945 a(g18 Vfin p11946 tp11947 a(g339 V: tp11948 a(g185 V tp11949 a(g135 VInteger p11950 tp11951 a(g339 V; tp11952 a(g185 V\u000a\u000a p11953 tp11954 a(g111 Vprocedure p11955 tp11956 a(g185 V tp11957 a(g21 VAdd p11958 tp11959 a(g198 V( tp11960 a(g111 Vconst p11961 tp11962 a(g185 V tp11963 a(g18 VS tp11964 a(g339 V: tp11965 a(g185 V tp11966 a(g111 Vstring p11967 tp11968 a(g198 V) tp11969 a(g339 V; tp11970 a(g185 V\u000a p11971 tp11972 a(g111 Vbegin p11973 tp11974 a(g185 V\u000a p11975 tp11976 a(g111 Vif p11977 tp11978 a(g185 V tp11979 a(g18 VIgnoreMultiSep p11980 tp11981 a(g185 V tp11982 a(g111 Vand p11983 tp11984 a(g185 V tp11985 a(g198 V( tp11986 a(g18 VS tp11987 a(g185 V tp11988 a(g339 V= tp11989 a(g185 V tp11990 a(g222 V' tp11991 a(g222 V' tp11992 a(g198 V) tp11993 a(g185 V tp11994 a(g111 Vthen p11995 tp11996 a(g185 V\u000a p11997 tp11998 a(g111 VExit p11999 tp12000 a(g339 V; tp12001 a(g185 V\u000a p12002 tp12003 a(g57 VSetLength p12004 tp12005 a(g198 V( tp12006 a(g60 VResult p12007 tp12008 a(g339 V, tp12009 a(g185 V tp12010 a(g57 VLength p12011 tp12012 a(g198 V( tp12013 a(g60 VResult p12014 tp12015 a(g198 V) tp12016 a(g185 V tp12017 a(g339 V+ tp12018 a(g185 V tp12019 a(g314 V1 tp12020 a(g198 V) tp12021 a(g339 V; tp12022 a(g185 V\u000a p12023 tp12024 a(g60 VResult p12025 tp12026 a(g198 V[ tp12027 a(g57 VHigh p12028 tp12029 a(g198 V( tp12030 a(g60 VResult p12031 tp12032 a(g198 V)] p12033 tp12034 a(g185 V tp12035 a(g339 V: tp12036 a(g339 V= tp12037 a(g185 V tp12038 a(g18 VS tp12039 a(g339 V; tp12040 a(g185 V\u000a p12041 tp12042 a(g111 Vend p12043 tp12044 a(g339 V; tp12045 a(g185 V\u000a\u000a p12046 tp12047 a(g111 Vbegin p12048 tp12049 a(g185 V\u000a p12050 tp12051 a(g111 Vif p12052 tp12053 a(g185 V tp12054 a(g18 VS tp12055 a(g185 V tp12056 a(g339 V= tp12057 a(g185 V tp12058 a(g222 V' tp12059 a(g222 V' tp12060 a(g185 V tp12061 a(g111 Vthen p12062 tp12063 a(g185 V tp12064 a(g111 Vbegin p12065 tp12066 a(g185 V\u000a p12067 tp12068 a(g111 Vif p12069 tp12070 a(g185 V tp12071 a(g57 VLength p12072 tp12073 a(g198 V( tp12074 a(g60 VResult p12075 tp12076 a(g198 V) tp12077 a(g185 V tp12078 a(g339 V< tp12079 a(g185 V tp12080 a(g18 VMinCount p12081 tp12082 a(g185 V tp12083 a(g111 Vthen p12084 tp12085 a(g185 V\u000a p12086 tp12087 a(g57 VSetLength p12088 tp12089 a(g198 V( tp12090 a(g60 VResult p12091 tp12092 a(g339 V, tp12093 a(g185 V tp12094 a(g18 VMinCount p12095 tp12096 a(g198 V) tp12097 a(g339 V; tp12098 a(g185 V\u000a p12099 tp12100 a(g111 VExit p12101 tp12102 a(g339 V; tp12103 a(g185 V tp12104 a(g111 Vend p12105 tp12106 a(g339 V; tp12107 a(g185 V\u000a\u000a p12108 tp12109 a(g60 VResult p12110 tp12111 a(g185 V tp12112 a(g339 V: tp12113 a(g339 V= tp12114 a(g185 V tp12115 a(g111 Vnil p12116 tp12117 a(g339 V; tp12118 a(g185 V\u000a\u000a p12119 tp12120 a(g18 Vp tp12121 a(g185 V tp12122 a(g339 V: tp12123 a(g339 V= tp12124 a(g185 V tp12125 a(g314 V1 tp12126 a(g339 V; tp12127 a(g185 V\u000a p12128 tp12129 a(g18 Vfin p12130 tp12131 a(g185 V tp12132 a(g339 V: tp12133 a(g339 V= tp12134 a(g185 V tp12135 a(g18 VCharPos p12136 tp12137 a(g198 V( tp12138 a(g18 VSeparators p12139 tp12140 a(g339 V, tp12141 a(g185 V tp12142 a(g18 VS tp12143 a(g198 V) tp12144 a(g339 V; tp12145 a(g185 V\u000a p12146 tp12147 a(g111 Vwhile p12148 tp12149 a(g185 V tp12150 a(g18 Vfin p12151 tp12152 a(g185 V tp12153 a(g339 V> tp12154 a(g185 V tp12155 a(g314 V0 tp12156 a(g185 V tp12157 a(g111 Vdo p12158 tp12159 a(g185 V tp12160 a(g111 Vbegin p12161 tp12162 a(g185 V\u000a p12163 tp12164 a(g18 VAdd p12165 tp12166 a(g198 V( tp12167 a(g57 VCopy p12168 tp12169 a(g198 V( tp12170 a(g18 VS tp12171 a(g339 V, tp12172 a(g185 V tp12173 a(g18 Vp tp12174 a(g339 V, tp12175 a(g185 V tp12176 a(g18 Vfin p12177 tp12178 a(g185 V tp12179 a(g339 V- tp12180 a(g185 V tp12181 a(g18 Vp tp12182 a(g198 V)) p12183 tp12184 a(g339 V; tp12185 a(g185 V\u000a p12186 tp12187 a(g18 Vp tp12188 a(g185 V tp12189 a(g339 V: tp12190 a(g339 V= tp12191 a(g185 V tp12192 a(g18 Vfin p12193 tp12194 a(g185 V tp12195 a(g339 V+ tp12196 a(g185 V tp12197 a(g314 V1 tp12198 a(g339 V; tp12199 a(g185 V\u000a p12200 tp12201 a(g18 Vfin p12202 tp12203 a(g185 V tp12204 a(g339 V: tp12205 a(g339 V= tp12206 a(g185 V tp12207 a(g18 VCharPos p12208 tp12209 a(g198 V( tp12210 a(g18 VSeparators p12211 tp12212 a(g339 V, tp12213 a(g185 V tp12214 a(g18 VS tp12215 a(g339 V, tp12216 a(g185 V tp12217 a(g18 Vp tp12218 a(g198 V) tp12219 a(g339 V; tp12220 a(g185 V\u000a p12221 tp12222 a(g111 Vend p12223 tp12224 a(g339 V; tp12225 a(g185 V\u000a p12226 tp12227 a(g18 VAdd p12228 tp12229 a(g198 V( tp12230 a(g57 VCopy p12231 tp12232 a(g198 V( tp12233 a(g18 VS tp12234 a(g339 V, tp12235 a(g185 V tp12236 a(g18 Vp tp12237 a(g339 V, tp12238 a(g185 V tp12239 a(g57 VLength p12240 tp12241 a(g198 V( tp12242 a(g18 VS tp12243 a(g198 V) tp12244 a(g185 V tp12245 a(g339 V- tp12246 a(g185 V tp12247 a(g18 Vp tp12248 a(g185 V tp12249 a(g339 V+ tp12250 a(g185 V tp12251 a(g314 V1 tp12252 a(g198 V)) p12253 tp12254 a(g339 V; tp12255 a(g185 V\u000a\u000a p12256 tp12257 a(g111 Vif p12258 tp12259 a(g185 V tp12260 a(g57 VLength p12261 tp12262 a(g198 V( tp12263 a(g60 VResult p12264 tp12265 a(g198 V) tp12266 a(g185 V tp12267 a(g339 V< tp12268 a(g185 V tp12269 a(g18 VMinCount p12270 tp12271 a(g185 V tp12272 a(g111 Vthen p12273 tp12274 a(g185 V\u000a p12275 tp12276 a(g57 VSetLength p12277 tp12278 a(g198 V( tp12279 a(g60 VResult p12280 tp12281 a(g339 V, tp12282 a(g185 V tp12283 a(g18 VMinCount p12284 tp12285 a(g198 V) tp12286 a(g339 V; tp12287 a(g185 V\u000a tp12288 a(g111 Vend p12289 tp12290 a(g339 V; tp12291 a(g185 V\u000a\u000a p12292 tp12293 a(g111 Vprocedure p12294 tp12295 a(g185 V tp12296 a(g21 VTileStr p12297 tp12298 a(g198 V( tp12299 a(g111 Vconst p12300 tp12301 a(g185 V tp12302 a(g18 VS tp12303 a(g339 V: tp12304 a(g185 V tp12305 a(g111 Vstring p12306 tp12307 a(g339 V; tp12308 a(g185 V tp12309 a(g18 VBrakeStart p12310 tp12311 a(g339 V: tp12312 a(g185 V tp12313 a(g135 VInteger p12314 tp12315 a(g339 V; tp12316 a(g185 V tp12317 a(g18 VBrakeEnd p12318 tp12319 a(g339 V: tp12320 a(g185 V tp12321 a(g135 VInteger p12322 tp12323 a(g339 V; tp12324 a(g185 V\u000a p12325 tp12326 a(g18 Vout p12327 tp12328 a(g185 V tp12329 a(g18 VLeft p12330 tp12331 a(g339 V, tp12332 a(g185 V tp12333 a(g18 VRight p12334 tp12335 a(g339 V: tp12336 a(g185 V tp12337 a(g111 Vstring p12338 tp12339 a(g198 V) tp12340 a(g339 V; tp12341 a(g185 V\u000a tp12342 a(g111 Vbegin p12343 tp12344 a(g185 V\u000a p12345 tp12346 a(g18 VLeft p12347 tp12348 a(g185 V tp12349 a(g339 V: tp12350 a(g339 V= tp12351 a(g185 V tp12352 a(g57 VCopy p12353 tp12354 a(g198 V( tp12355 a(g18 VS tp12356 a(g339 V, tp12357 a(g185 V tp12358 a(g314 V1 tp12359 a(g339 V, tp12360 a(g185 V tp12361 a(g18 VBrakeStart p12362 tp12363 a(g339 V- tp12364 a(g314 V1 tp12365 a(g198 V) tp12366 a(g339 V; tp12367 a(g185 V\u000a p12368 tp12369 a(g18 VRight p12370 tp12371 a(g185 V tp12372 a(g339 V: tp12373 a(g339 V= tp12374 a(g185 V tp12375 a(g57 VCopy p12376 tp12377 a(g198 V( tp12378 a(g18 VS tp12379 a(g339 V, tp12380 a(g185 V tp12381 a(g18 VBrakeEnd p12382 tp12383 a(g185 V tp12384 a(g339 V+ tp12385 a(g185 V tp12386 a(g314 V1 tp12387 a(g339 V, tp12388 a(g185 V tp12389 a(g18 VMaxInt p12390 tp12391 a(g198 V) tp12392 a(g339 V; tp12393 a(g185 V\u000a tp12394 a(g111 Vend p12395 tp12396 a(g339 V; tp12397 a(g185 V\u000a\u000a p12398 tp12399 a(g111 Vfunction p12400 tp12401 a(g185 V tp12402 a(g21 VJoin p12403 tp12404 a(g198 V( tp12405 a(g18 VStrings p12406 tp12407 a(g339 V: tp12408 a(g185 V tp12409 a(g18 VTStrings p12410 tp12411 a(g339 V; tp12412 a(g185 V tp12413 a(g18 VSeparator p12414 tp12415 a(g339 V: tp12416 a(g185 V tp12417 a(g111 Vstring p12418 tp12419 a(g185 V tp12420 a(g339 V= tp12421 a(g185 V tp12422 a(g222 V' tp12423 a(g222 V tp12424 a(g222 V' tp12425 a(g198 V) tp12426 a(g339 V: tp12427 a(g185 V tp12428 a(g111 Vstring p12429 tp12430 a(g339 V; tp12431 a(g185 V\u000a tp12432 a(g111 Vvar p12433 tp12434 a(g185 V\u000a p12435 tp12436 a(g18 Vi tp12437 a(g339 V, tp12438 a(g185 V tp12439 a(g18 Vimax p12440 tp12441 a(g339 V: tp12442 a(g185 V tp12443 a(g135 VInteger p12444 tp12445 a(g339 V; tp12446 a(g185 V\u000a tp12447 a(g111 Vbegin p12448 tp12449 a(g185 V\u000a p12450 tp12451 a(g60 VResult p12452 tp12453 a(g185 V tp12454 a(g339 V: tp12455 a(g339 V= tp12456 a(g185 V tp12457 a(g222 V' tp12458 a(g222 V' tp12459 a(g339 V; tp12460 a(g185 V\u000a p12461 tp12462 a(g18 Vimax p12463 tp12464 a(g185 V tp12465 a(g339 V: tp12466 a(g339 V= tp12467 a(g185 V tp12468 a(g18 VStrings p12469 tp12470 a(g339 V. tp12471 a(g18 VCount p12472 tp12473 a(g339 V- tp12474 a(g314 V1 tp12475 a(g339 V; tp12476 a(g185 V\u000a p12477 tp12478 a(g111 Vfor p12479 tp12480 a(g185 V tp12481 a(g18 Vi tp12482 a(g185 V tp12483 a(g339 V: tp12484 a(g339 V= tp12485 a(g185 V tp12486 a(g314 V0 tp12487 a(g185 V tp12488 a(g111 Vto p12489 tp12490 a(g185 V tp12491 a(g18 Vimax p12492 tp12493 a(g185 V tp12494 a(g111 Vdo p12495 tp12496 a(g185 V tp12497 a(g111 Vbegin p12498 tp12499 a(g185 V\u000a p12500 tp12501 a(g60 VResult p12502 tp12503 a(g185 V tp12504 a(g339 V: tp12505 a(g339 V= tp12506 a(g185 V tp12507 a(g60 VResult p12508 tp12509 a(g185 V tp12510 a(g339 V+ tp12511 a(g185 V tp12512 a(g18 VStrings p12513 tp12514 a(g198 V[ tp12515 a(g18 Vi tp12516 a(g198 V] tp12517 a(g339 V; tp12518 a(g185 V\u000a p12519 tp12520 a(g111 Vif p12521 tp12522 a(g185 V tp12523 a(g18 Vi tp12524 a(g185 V tp12525 a(g339 V< tp12526 a(g185 V tp12527 a(g18 Vimax p12528 tp12529 a(g185 V tp12530 a(g111 Vthen p12531 tp12532 a(g185 V\u000a p12533 tp12534 a(g60 VResult p12535 tp12536 a(g185 V tp12537 a(g339 V: tp12538 a(g339 V= tp12539 a(g185 V tp12540 a(g60 VResult p12541 tp12542 a(g185 V tp12543 a(g339 V+ tp12544 a(g185 V tp12545 a(g18 VSeparator p12546 tp12547 a(g339 V; tp12548 a(g185 V\u000a p12549 tp12550 a(g111 Vend p12551 tp12552 a(g339 V; tp12553 a(g185 V\u000a tp12554 a(g111 Vend p12555 tp12556 a(g339 V; tp12557 a(g185 V\u000a\u000a p12558 tp12559 a(g111 Vfunction p12560 tp12561 a(g185 V tp12562 a(g21 VJoin p12563 tp12564 a(g198 V( tp12565 a(g18 VStrA p12566 tp12567 a(g339 V: tp12568 a(g185 V tp12569 a(g18 VTStrA p12570 tp12571 a(g339 V; tp12572 a(g185 V tp12573 a(g18 VSeparator p12574 tp12575 a(g339 V: tp12576 a(g185 V tp12577 a(g111 Vstring p12578 tp12579 a(g185 V tp12580 a(g339 V= tp12581 a(g185 V tp12582 a(g222 V' tp12583 a(g222 V tp12584 a(g222 V' tp12585 a(g198 V) tp12586 a(g339 V: tp12587 a(g185 V tp12588 a(g111 Vstring p12589 tp12590 a(g339 V; tp12591 a(g185 V tp12592 a(g18 Voverload p12593 tp12594 a(g339 V; tp12595 a(g185 V\u000a tp12596 a(g111 Vvar p12597 tp12598 a(g185 V\u000a p12599 tp12600 a(g18 Vi tp12601 a(g339 V: tp12602 a(g185 V tp12603 a(g135 VInteger p12604 tp12605 a(g339 V; tp12606 a(g185 V\u000a tp12607 a(g111 Vbegin p12608 tp12609 a(g185 V\u000a p12610 tp12611 a(g60 VResult p12612 tp12613 a(g185 V tp12614 a(g339 V: tp12615 a(g339 V= tp12616 a(g185 V tp12617 a(g222 V' tp12618 a(g222 V' tp12619 a(g339 V; tp12620 a(g185 V\u000a p12621 tp12622 a(g111 Vfor p12623 tp12624 a(g185 V tp12625 a(g18 Vi tp12626 a(g185 V tp12627 a(g339 V: tp12628 a(g339 V= tp12629 a(g185 V tp12630 a(g314 V0 tp12631 a(g185 V tp12632 a(g111 Vto p12633 tp12634 a(g185 V tp12635 a(g57 VHigh p12636 tp12637 a(g198 V( tp12638 a(g18 VStrA p12639 tp12640 a(g198 V) tp12641 a(g185 V tp12642 a(g111 Vdo p12643 tp12644 a(g185 V tp12645 a(g111 Vbegin p12646 tp12647 a(g185 V\u000a p12648 tp12649 a(g60 VResult p12650 tp12651 a(g185 V tp12652 a(g339 V: tp12653 a(g339 V= tp12654 a(g185 V tp12655 a(g60 VResult p12656 tp12657 a(g185 V tp12658 a(g339 V+ tp12659 a(g185 V tp12660 a(g18 VStrA p12661 tp12662 a(g198 V[ tp12663 a(g18 Vi tp12664 a(g198 V] tp12665 a(g339 V; tp12666 a(g185 V\u000a p12667 tp12668 a(g111 Vif p12669 tp12670 a(g185 V tp12671 a(g18 Vi tp12672 a(g185 V tp12673 a(g339 V< tp12674 a(g185 V tp12675 a(g57 VHigh p12676 tp12677 a(g198 V( tp12678 a(g18 VStrA p12679 tp12680 a(g198 V) tp12681 a(g185 V tp12682 a(g111 Vthen p12683 tp12684 a(g185 V\u000a p12685 tp12686 a(g60 VResult p12687 tp12688 a(g185 V tp12689 a(g339 V: tp12690 a(g339 V= tp12691 a(g185 V tp12692 a(g60 VResult p12693 tp12694 a(g185 V tp12695 a(g339 V+ tp12696 a(g185 V tp12697 a(g18 VSeparator p12698 tp12699 a(g339 V; tp12700 a(g185 V\u000a p12701 tp12702 a(g111 Vend p12703 tp12704 a(g339 V; tp12705 a(g185 V\u000a tp12706 a(g111 Vend p12707 tp12708 a(g339 V; tp12709 a(g185 V\u000a\u000a p12710 tp12711 a(g111 Vfunction p12712 tp12713 a(g185 V tp12714 a(g21 VMulStr p12715 tp12716 a(g198 V( tp12717 a(g111 Vconst p12718 tp12719 a(g185 V tp12720 a(g18 VS tp12721 a(g339 V: tp12722 a(g185 V tp12723 a(g111 Vstring p12724 tp12725 a(g339 V; tp12726 a(g185 V tp12727 a(g18 VCount p12728 tp12729 a(g339 V: tp12730 a(g185 V tp12731 a(g135 VInteger p12732 tp12733 a(g198 V) tp12734 a(g339 V: tp12735 a(g185 V tp12736 a(g111 Vstring p12737 tp12738 a(g339 V; tp12739 a(g185 V\u000a tp12740 a(g111 Vvar p12741 tp12742 a(g185 V\u000a p12743 tp12744 a(g18 VP tp12745 a(g339 V: tp12746 a(g185 V tp12747 a(g135 VPChar p12748 tp12749 a(g339 V; tp12750 a(g185 V\u000a p12751 tp12752 a(g18 VLen p12753 tp12754 a(g339 V, tp12755 a(g185 V tp12756 a(g18 Vi tp12757 a(g339 V: tp12758 a(g185 V tp12759 a(g135 VInteger p12760 tp12761 a(g339 V; tp12762 a(g185 V\u000a tp12763 a(g111 Vbegin p12764 tp12765 a(g185 V\u000a p12766 tp12767 a(g60 VResult p12768 tp12769 a(g185 V tp12770 a(g339 V: tp12771 a(g339 V= tp12772 a(g185 V tp12773 a(g222 V' tp12774 a(g222 V' tp12775 a(g339 V; tp12776 a(g185 V\u000a p12777 tp12778 a(g111 Vif p12779 tp12780 a(g185 V tp12781 a(g18 VCount p12782 tp12783 a(g185 V tp12784 a(g339 V= tp12785 a(g185 V tp12786 a(g314 V0 tp12787 a(g185 V tp12788 a(g111 Vthen p12789 tp12790 a(g185 V\u000a p12791 tp12792 a(g111 VExit p12793 tp12794 a(g339 V; tp12795 a(g185 V\u000a\u000a p12796 tp12797 a(g18 VLen p12798 tp12799 a(g185 V tp12800 a(g339 V: tp12801 a(g339 V= tp12802 a(g185 V tp12803 a(g57 VLength p12804 tp12805 a(g198 V( tp12806 a(g18 VS tp12807 a(g198 V) tp12808 a(g339 V; tp12809 a(g185 V\u000a p12810 tp12811 a(g57 VSetLength p12812 tp12813 a(g198 V( tp12814 a(g60 VResult p12815 tp12816 a(g339 V, tp12817 a(g185 V tp12818 a(g18 VLen p12819 tp12820 a(g185 V tp12821 a(g339 V* tp12822 a(g185 V tp12823 a(g18 VCount p12824 tp12825 a(g198 V) tp12826 a(g339 V; tp12827 a(g185 V\u000a\u000a p12828 tp12829 a(g18 VP tp12830 a(g185 V tp12831 a(g339 V: tp12832 a(g339 V= tp12833 a(g185 V tp12834 a(g135 VPointer p12835 tp12836 a(g198 V( tp12837 a(g60 VResult p12838 tp12839 a(g198 V) tp12840 a(g339 V; tp12841 a(g185 V\u000a p12842 tp12843 a(g111 Vfor p12844 tp12845 a(g185 V tp12846 a(g18 Vi tp12847 a(g185 V tp12848 a(g339 V: tp12849 a(g339 V= tp12850 a(g185 V tp12851 a(g314 V1 tp12852 a(g185 V tp12853 a(g111 Vto p12854 tp12855 a(g185 V tp12856 a(g18 VCount p12857 tp12858 a(g185 V tp12859 a(g111 Vdo p12860 tp12861 a(g185 V tp12862 a(g111 Vbegin p12863 tp12864 a(g185 V\u000a p12865 tp12866 a(g57 VMove p12867 tp12868 a(g198 V( tp12869 a(g135 VPointer p12870 tp12871 a(g198 V( tp12872 a(g18 VS tp12873 a(g198 V) tp12874 a(g339 V^ tp12875 a(g339 V, tp12876 a(g185 V tp12877 a(g18 VP tp12878 a(g339 V^ tp12879 a(g339 V, tp12880 a(g185 V tp12881 a(g18 VLen p12882 tp12883 a(g198 V) tp12884 a(g339 V; tp12885 a(g185 V\u000a p12886 tp12887 a(g57 VInc p12888 tp12889 a(g198 V( tp12890 a(g18 VP tp12891 a(g339 V, tp12892 a(g185 V tp12893 a(g18 VLen p12894 tp12895 a(g198 V) tp12896 a(g339 V; tp12897 a(g185 V\u000a p12898 tp12899 a(g111 Vend p12900 tp12901 a(g339 V; tp12902 a(g185 V\u000a tp12903 a(g111 Vend p12904 tp12905 a(g339 V; tp12906 a(g185 V\u000a\u000a p12907 tp12908 a(g111 Vfunction p12909 tp12910 a(g185 V tp12911 a(g21 VAlignR p12912 tp12913 a(g198 V( tp12914 a(g111 Vconst p12915 tp12916 a(g185 V tp12917 a(g18 VS tp12918 a(g339 V: tp12919 a(g185 V tp12920 a(g111 Vstring p12921 tp12922 a(g339 V; tp12923 a(g185 V tp12924 a(g18 VWidth p12925 tp12926 a(g339 V: tp12927 a(g185 V tp12928 a(g135 VInteger p12929 tp12930 a(g339 V; tp12931 a(g185 V tp12932 a(g18 VFiller p12933 tp12934 a(g339 V: tp12935 a(g185 V tp12936 a(g135 VChar p12937 tp12938 a(g185 V tp12939 a(g339 V= tp12940 a(g185 V tp12941 a(g222 V' tp12942 a(g222 V tp12943 a(g222 V' tp12944 a(g198 V) tp12945 a(g339 V: tp12946 a(g185 V tp12947 a(g111 Vstring p12948 tp12949 a(g339 V; tp12950 a(g185 V\u000a tp12951 a(g111 Vbegin p12952 tp12953 a(g185 V\u000a p12954 tp12955 a(g60 VResult p12956 tp12957 a(g185 V tp12958 a(g339 V: tp12959 a(g339 V= tp12960 a(g185 V tp12961 a(g18 VMulStr p12962 tp12963 a(g198 V( tp12964 a(g18 VFiller p12965 tp12966 a(g339 V, tp12967 a(g185 V tp12968 a(g18 VWidth p12969 tp12970 a(g185 V tp12971 a(g339 V- tp12972 a(g185 V tp12973 a(g57 VLength p12974 tp12975 a(g198 V( tp12976 a(g18 VS tp12977 a(g198 V)) p12978 tp12979 a(g185 V tp12980 a(g339 V+ tp12981 a(g185 V tp12982 a(g18 VS tp12983 a(g339 V; tp12984 a(g185 V\u000a tp12985 a(g111 Vend p12986 tp12987 a(g339 V; tp12988 a(g185 V\u000a\u000a p12989 tp12990 a(g111 Vfunction p12991 tp12992 a(g185 V tp12993 a(g21 VMaxStr p12994 tp12995 a(g198 V( tp12996 a(g111 Vconst p12997 tp12998 a(g185 V tp12999 a(g18 VS tp13000 a(g339 V: tp13001 a(g185 V tp13002 a(g111 Vstring p13003 tp13004 a(g339 V; tp13005 a(g185 V tp13006 a(g18 VMaxLen p13007 tp13008 a(g339 V: tp13009 a(g185 V tp13010 a(g135 VInteger p13011 tp13012 a(g198 V) tp13013 a(g339 V: tp13014 a(g185 V tp13015 a(g111 Vstring p13016 tp13017 a(g339 V; tp13018 a(g185 V\u000a tp13019 a(g111 Vvar p13020 tp13021 a(g185 V\u000a p13022 tp13023 a(g18 VLen p13024 tp13025 a(g339 V: tp13026 a(g185 V tp13027 a(g135 VInteger p13028 tp13029 a(g339 V; tp13030 a(g185 V\u000a tp13031 a(g111 Vbegin p13032 tp13033 a(g185 V\u000a p13034 tp13035 a(g18 VLen p13036 tp13037 a(g185 V tp13038 a(g339 V: tp13039 a(g339 V= tp13040 a(g185 V tp13041 a(g57 VLength p13042 tp13043 a(g198 V( tp13044 a(g18 VS tp13045 a(g198 V) tp13046 a(g339 V; tp13047 a(g185 V\u000a p13048 tp13049 a(g111 Vif p13050 tp13051 a(g185 V tp13052 a(g18 VLen p13053 tp13054 a(g185 V tp13055 a(g339 V< tp13056 a(g339 V= tp13057 a(g185 V tp13058 a(g18 VMaxLen p13059 tp13060 a(g185 V tp13061 a(g111 Vthen p13062 tp13063 a(g185 V tp13064 a(g111 Vbegin p13065 tp13066 a(g185 V\u000a p13067 tp13068 a(g60 VResult p13069 tp13070 a(g185 V tp13071 a(g339 V: tp13072 a(g339 V= tp13073 a(g185 V tp13074 a(g18 VS tp13075 a(g339 V; tp13076 a(g185 V\u000a p13077 tp13078 a(g111 VExit p13079 tp13080 a(g185 V tp13081 a(g111 Vend p13082 tp13083 a(g339 V; tp13084 a(g185 V\u000a\u000a p13085 tp13086 a(g60 VResult p13087 tp13088 a(g185 V tp13089 a(g339 V: tp13090 a(g339 V= tp13091 a(g185 V tp13092 a(g57 VCopy p13093 tp13094 a(g198 V( tp13095 a(g18 VS tp13096 a(g339 V, tp13097 a(g185 V tp13098 a(g314 V1 tp13099 a(g339 V, tp13100 a(g185 V tp13101 a(g18 VMaxLen p13102 tp13103 a(g185 V tp13104 a(g339 V- tp13105 a(g185 V tp13106 a(g314 V3 tp13107 a(g198 V) tp13108 a(g185 V tp13109 a(g339 V+ tp13110 a(g185 V tp13111 a(g222 V' tp13112 a(g222 V... p13113 tp13114 a(g222 V' tp13115 a(g339 V; tp13116 a(g185 V\u000a tp13117 a(g111 Vend p13118 tp13119 a(g339 V; tp13120 a(g185 V\u000a\u000a p13121 tp13122 a(g111 Vfunction p13123 tp13124 a(g185 V tp13125 a(g21 VTrimAll p13126 tp13127 a(g198 V( tp13128 a(g111 Vconst p13129 tp13130 a(g185 V tp13131 a(g18 VS tp13132 a(g339 V: tp13133 a(g185 V tp13134 a(g111 Vstring p13135 tp13136 a(g198 V) tp13137 a(g339 V: tp13138 a(g185 V tp13139 a(g111 Vstring p13140 tp13141 a(g339 V; tp13142 a(g185 V\u000a tp13143 a(g111 Vvar p13144 tp13145 a(g185 V\u000a p13146 tp13147 a(g18 Vi tp13148 a(g339 V: tp13149 a(g185 V tp13150 a(g135 VInteger p13151 tp13152 a(g339 V; tp13153 a(g185 V\u000a tp13154 a(g111 Vbegin p13155 tp13156 a(g185 V\u000a p13157 tp13158 a(g111 Vfor p13159 tp13160 a(g185 V tp13161 a(g18 Vi tp13162 a(g185 V tp13163 a(g339 V: tp13164 a(g339 V= tp13165 a(g185 V tp13166 a(g314 V1 tp13167 a(g185 V tp13168 a(g111 Vto p13169 tp13170 a(g185 V tp13171 a(g57 VLength p13172 tp13173 a(g198 V( tp13174 a(g18 VS tp13175 a(g198 V) tp13176 a(g185 V tp13177 a(g111 Vdo p13178 tp13179 a(g185 V\u000a p13180 tp13181 a(g111 Vif p13182 tp13183 a(g185 V tp13184 a(g18 VS tp13185 a(g198 V[ tp13186 a(g18 Vi tp13187 a(g198 V] tp13188 a(g185 V tp13189 a(g339 V> tp13190 a(g185 V tp13191 a(g264 V#32 p13192 tp13193 a(g185 V tp13194 a(g111 Vthen p13195 tp13196 a(g185 V\u000a p13197 tp13198 a(g60 VResult p13199 tp13200 a(g185 V tp13201 a(g339 V: tp13202 a(g339 V= tp13203 a(g185 V tp13204 a(g60 VResult p13205 tp13206 a(g185 V tp13207 a(g339 V+ tp13208 a(g185 V tp13209 a(g18 VS tp13210 a(g198 V[ tp13211 a(g18 Vi tp13212 a(g198 V] tp13213 a(g339 V; tp13214 a(g185 V\u000a tp13215 a(g111 Vend p13216 tp13217 a(g339 V; tp13218 a(g185 V\u000a\u000a p13219 tp13220 a(g111 Vfunction p13221 tp13222 a(g185 V tp13223 a(g21 VControlChar p13224 tp13225 a(g198 V( tp13226 a(g18 VC tp13227 a(g339 V: tp13228 a(g185 V tp13229 a(g135 VChar p13230 tp13231 a(g198 V) tp13232 a(g339 V: tp13233 a(g185 V tp13234 a(g135 VBoolean p13235 tp13236 a(g339 V; tp13237 a(g185 V\u000a tp13238 a(g111 Vbegin p13239 tp13240 a(g185 V\u000a p13241 tp13242 a(g60 VResult p13243 tp13244 a(g185 V tp13245 a(g339 V: tp13246 a(g339 V= tp13247 a(g185 V tp13248 a(g18 VC tp13249 a(g185 V tp13250 a(g111 Vin p13251 tp13252 a(g185 V tp13253 a(g18 VStrangeChars p13254 tp13255 a(g339 V; tp13256 a(g185 V\u000a tp13257 a(g111 Vend p13258 tp13259 a(g339 V; tp13260 a(g185 V\u000a\u000a p13261 tp13262 a(g111 Vfunction p13263 tp13264 a(g185 V tp13265 a(g21 VFriendlyChar p13266 tp13267 a(g198 V( tp13268 a(g18 VC tp13269 a(g339 V: tp13270 a(g185 V tp13271 a(g135 VChar p13272 tp13273 a(g198 V) tp13274 a(g339 V: tp13275 a(g185 V tp13276 a(g135 VChar p13277 tp13278 a(g339 V; tp13279 a(g185 V\u000a tp13280 a(g111 Vbegin p13281 tp13282 a(g185 V\u000a p13283 tp13284 a(g111 Vcase p13285 tp13286 a(g185 V tp13287 a(g18 VC tp13288 a(g185 V tp13289 a(g111 Vof p13290 tp13291 a(g185 V\u000a p13292 tp13293 a(g264 V#0 p13294 tp13295 a(g339 V: tp13296 a(g185 V tp13297 a(g60 VResult p13298 tp13299 a(g185 V tp13300 a(g339 V: tp13301 a(g339 V= tp13302 a(g185 V tp13303 a(g222 V' tp13304 a(g222 V. tp13305 a(g222 V' tp13306 a(g339 V; tp13307 a(g185 V\u000a p13308 tp13309 a(g264 V#1 p13310 tp13311 a(g339 V. tp13312 a(g339 V. tp13313 a(g264 V#31 p13314 tp13315 a(g339 V: tp13316 a(g185 V tp13317 a(g60 VResult p13318 tp13319 a(g185 V tp13320 a(g339 V: tp13321 a(g339 V= tp13322 a(g185 V tp13323 a(g222 V' tp13324 a(g222 V? tp13325 a(g222 V' tp13326 a(g339 V; tp13327 a(g185 V\u000a p13328 tp13329 a(g264 V#255 p13330 tp13331 a(g339 V: tp13332 a(g185 V tp13333 a(g60 VResult p13334 tp13335 a(g185 V tp13336 a(g339 V: tp13337 a(g339 V= tp13338 a(g185 V tp13339 a(g222 V' tp13340 a(g222 V# tp13341 a(g222 V' tp13342 a(g339 V; tp13343 a(g185 V\u000a p13344 tp13345 a(g111 Velse p13346 tp13347 a(g185 V\u000a p13348 tp13349 a(g60 VResult p13350 tp13351 a(g185 V tp13352 a(g339 V: tp13353 a(g339 V= tp13354 a(g185 V tp13355 a(g18 VC tp13356 a(g339 V; tp13357 a(g185 V\u000a p13358 tp13359 a(g111 Vend p13360 tp13361 a(g339 V; tp13362 a(g185 V\u000a tp13363 a(g111 Vend p13364 tp13365 a(g339 V; tp13366 a(g185 V\u000a\u000a p13367 tp13368 a(g111 Vfunction p13369 tp13370 a(g185 V tp13371 a(g21 VFriendlyStr p13372 tp13373 a(g198 V( tp13374 a(g111 Vconst p13375 tp13376 a(g185 V tp13377 a(g18 VS tp13378 a(g339 V: tp13379 a(g185 V tp13380 a(g111 Vstring p13381 tp13382 a(g198 V) tp13383 a(g339 V: tp13384 a(g185 V tp13385 a(g111 Vstring p13386 tp13387 a(g339 V; tp13388 a(g185 V\u000a tp13389 a(g111 Vvar p13390 tp13391 a(g185 V\u000a p13392 tp13393 a(g18 Vi tp13394 a(g339 V: tp13395 a(g185 V tp13396 a(g135 VInteger p13397 tp13398 a(g339 V; tp13399 a(g185 V\u000a tp13400 a(g111 Vbegin p13401 tp13402 a(g185 V\u000a p13403 tp13404 a(g57 VSetLength p13405 tp13406 a(g198 V( tp13407 a(g60 VResult p13408 tp13409 a(g339 V, tp13410 a(g185 V tp13411 a(g57 VLength p13412 tp13413 a(g198 V( tp13414 a(g18 VS tp13415 a(g198 V)) p13416 tp13417 a(g339 V; tp13418 a(g185 V\u000a p13419 tp13420 a(g111 Vfor p13421 tp13422 a(g185 V tp13423 a(g18 Vi tp13424 a(g185 V tp13425 a(g339 V: tp13426 a(g339 V= tp13427 a(g185 V tp13428 a(g314 V1 tp13429 a(g185 V tp13430 a(g111 Vto p13431 tp13432 a(g185 V tp13433 a(g57 VLength p13434 tp13435 a(g198 V( tp13436 a(g18 VS tp13437 a(g198 V) tp13438 a(g185 V tp13439 a(g111 Vdo p13440 tp13441 a(g185 V\u000a p13442 tp13443 a(g60 VResult p13444 tp13445 a(g198 V[ tp13446 a(g18 Vi tp13447 a(g198 V] tp13448 a(g185 V tp13449 a(g339 V: tp13450 a(g339 V= tp13451 a(g185 V tp13452 a(g18 VFriendlyChar p13453 tp13454 a(g198 V( tp13455 a(g18 VS tp13456 a(g198 V[ tp13457 a(g18 Vi tp13458 a(g198 V]) p13459 tp13460 a(g339 V; tp13461 a(g185 V\u000a tp13462 a(g111 Vend p13463 tp13464 a(g339 V; tp13465 a(g185 V\u000a\u000a p13466 tp13467 a(g111 Vfunction p13468 tp13469 a(g185 V tp13470 a(g21 VFriendlyStr p13471 tp13472 a(g198 V( tp13473 a(g18 Va tp13474 a(g339 V: tp13475 a(g185 V tp13476 a(g18 VTByteA p13477 tp13478 a(g198 V) tp13479 a(g339 V: tp13480 a(g185 V tp13481 a(g111 Vstring p13482 tp13483 a(g339 V; tp13484 a(g185 V\u000a tp13485 a(g111 Vvar p13486 tp13487 a(g185 V\u000a p13488 tp13489 a(g18 Vi tp13490 a(g339 V: tp13491 a(g185 V tp13492 a(g135 VInteger p13493 tp13494 a(g339 V; tp13495 a(g185 V\u000a tp13496 a(g111 Vbegin p13497 tp13498 a(g185 V\u000a p13499 tp13500 a(g57 VSetLength p13501 tp13502 a(g198 V( tp13503 a(g60 VResult p13504 tp13505 a(g339 V, tp13506 a(g185 V tp13507 a(g57 VLength p13508 tp13509 a(g198 V( tp13510 a(g18 Va tp13511 a(g198 V)) p13512 tp13513 a(g339 V; tp13514 a(g185 V\u000a p13515 tp13516 a(g111 Vfor p13517 tp13518 a(g185 V tp13519 a(g18 Vi tp13520 a(g185 V tp13521 a(g339 V: tp13522 a(g339 V= tp13523 a(g185 V tp13524 a(g314 V0 tp13525 a(g185 V tp13526 a(g111 Vto p13527 tp13528 a(g185 V tp13529 a(g57 VHigh p13530 tp13531 a(g198 V( tp13532 a(g18 Va tp13533 a(g198 V) tp13534 a(g185 V tp13535 a(g111 Vdo p13536 tp13537 a(g185 V\u000a p13538 tp13539 a(g60 VResult p13540 tp13541 a(g198 V[ tp13542 a(g18 Vi tp13543 a(g185 V tp13544 a(g339 V+ tp13545 a(g185 V tp13546 a(g314 V1 tp13547 a(g198 V] tp13548 a(g185 V tp13549 a(g339 V: tp13550 a(g339 V= tp13551 a(g185 V tp13552 a(g18 VFriendlyChar p13553 tp13554 a(g198 V( tp13555 a(g135 VChar p13556 tp13557 a(g198 V( tp13558 a(g18 Va tp13559 a(g198 V[ tp13560 a(g18 Vi tp13561 a(g198 V])) p13562 tp13563 a(g339 V; tp13564 a(g185 V\u000a tp13565 a(g111 Vend p13566 tp13567 a(g339 V; tp13568 a(g185 V\u000a\u000a p13569 tp13570 a(g111 Vfunction p13571 tp13572 a(g185 V tp13573 a(g21 VQuote p13574 tp13575 a(g198 V( tp13576 a(g111 Vconst p13577 tp13578 a(g185 V tp13579 a(g18 VS tp13580 a(g339 V: tp13581 a(g185 V tp13582 a(g111 Vstring p13583 tp13584 a(g339 V; tp13585 a(g185 V tp13586 a(g18 VQuoter p13587 tp13588 a(g339 V: tp13589 a(g185 V tp13590 a(g135 VChar p13591 tp13592 a(g185 V tp13593 a(g339 V= tp13594 a(g185 V tp13595 a(g222 V' tp13596 a(g222 V" tp13597 a(g222 V' tp13598 a(g198 V) tp13599 a(g339 V: tp13600 a(g185 V tp13601 a(g111 Vstring p13602 tp13603 a(g339 V; tp13604 a(g185 V\u000a tp13605 a(g111 Vbegin p13606 tp13607 a(g185 V\u000a p13608 tp13609 a(g60 VResult p13610 tp13611 a(g185 V tp13612 a(g339 V: tp13613 a(g339 V= tp13614 a(g185 V tp13615 a(g18 VS tp13616 a(g339 V; tp13617 a(g185 V\u000a\u000a p13618 tp13619 a(g111 Vif p13620 tp13621 a(g185 V tp13622 a(g18 VFirstChar p13623 tp13624 a(g198 V( tp13625 a(g18 VS tp13626 a(g198 V) tp13627 a(g185 V tp13628 a(g339 V< tp13629 a(g339 V> tp13630 a(g185 V tp13631 a(g18 VQuoter p13632 tp13633 a(g185 V tp13634 a(g111 Vthen p13635 tp13636 a(g185 V\u000a p13637 tp13638 a(g60 VResult p13639 tp13640 a(g185 V tp13641 a(g339 V: tp13642 a(g339 V= tp13643 a(g185 V tp13644 a(g18 VQuoter p13645 tp13646 a(g185 V tp13647 a(g339 V+ tp13648 a(g185 V tp13649 a(g60 VResult p13650 tp13651 a(g339 V; tp13652 a(g185 V\u000a\u000a p13653 tp13654 a(g111 Vif p13655 tp13656 a(g185 V tp13657 a(g18 VLastChar p13658 tp13659 a(g198 V( tp13660 a(g18 VS tp13661 a(g198 V) tp13662 a(g185 V tp13663 a(g339 V< tp13664 a(g339 V> tp13665 a(g185 V tp13666 a(g18 VQuoter p13667 tp13668 a(g185 V tp13669 a(g111 Vthen p13670 tp13671 a(g185 V\u000a p13672 tp13673 a(g60 VResult p13674 tp13675 a(g185 V tp13676 a(g339 V: tp13677 a(g339 V= tp13678 a(g185 V tp13679 a(g60 VResult p13680 tp13681 a(g185 V tp13682 a(g339 V+ tp13683 a(g185 V tp13684 a(g18 VQuoter p13685 tp13686 a(g339 V; tp13687 a(g185 V\u000a tp13688 a(g111 Vend p13689 tp13690 a(g339 V; tp13691 a(g185 V\u000a\u000a p13692 tp13693 a(g111 Vfunction p13694 tp13695 a(g185 V tp13696 a(g21 VDeQuote p13697 tp13698 a(g198 V( tp13699 a(g111 Vconst p13700 tp13701 a(g185 V tp13702 a(g18 VS tp13703 a(g339 V: tp13704 a(g185 V tp13705 a(g111 Vstring p13706 tp13707 a(g198 V) tp13708 a(g339 V: tp13709 a(g185 V tp13710 a(g111 Vstring p13711 tp13712 a(g339 V; tp13713 a(g185 V\u000a tp13714 a(g111 Vbegin p13715 tp13716 a(g185 V\u000a p13717 tp13718 a(g60 VResult p13719 tp13720 a(g185 V tp13721 a(g339 V: tp13722 a(g339 V= tp13723 a(g185 V tp13724 a(g222 V' tp13725 a(g222 V' tp13726 a(g339 V; tp13727 a(g185 V\u000a p13728 tp13729 a(g111 Vif p13730 tp13731 a(g185 V tp13732 a(g57 VLength p13733 tp13734 a(g198 V( tp13735 a(g18 VS tp13736 a(g198 V) tp13737 a(g185 V tp13738 a(g339 V> tp13739 a(g185 V tp13740 a(g314 V2 tp13741 a(g185 V tp13742 a(g111 Vthen p13743 tp13744 a(g185 V\u000a p13745 tp13746 a(g60 VResult p13747 tp13748 a(g185 V tp13749 a(g339 V: tp13750 a(g339 V= tp13751 a(g185 V tp13752 a(g57 VCopy p13753 tp13754 a(g198 V( tp13755 a(g18 VS tp13756 a(g339 V, tp13757 a(g185 V tp13758 a(g314 V2 tp13759 a(g339 V, tp13760 a(g185 V tp13761 a(g57 VLength p13762 tp13763 a(g198 V( tp13764 a(g18 VS tp13765 a(g198 V) tp13766 a(g185 V tp13767 a(g339 V- tp13768 a(g185 V tp13769 a(g314 V2 tp13770 a(g198 V) tp13771 a(g339 V; tp13772 a(g185 V\u000a tp13773 a(g111 Vend p13774 tp13775 a(g339 V; tp13776 a(g185 V\u000a\u000a p13777 tp13778 a(g111 Vfunction p13779 tp13780 a(g185 V tp13781 a(g21 VUnQuote p13782 tp13783 a(g198 V( tp13784 a(g111 Vconst p13785 tp13786 a(g185 V tp13787 a(g18 VS tp13788 a(g339 V: tp13789 a(g185 V tp13790 a(g111 Vstring p13791 tp13792 a(g198 V) tp13793 a(g339 V: tp13794 a(g185 V tp13795 a(g111 Vstring p13796 tp13797 a(g339 V; tp13798 a(g185 V\u000a tp13799 a(g111 Vvar p13800 tp13801 a(g185 V\u000a p13802 tp13803 a(g18 VStart p13804 tp13805 a(g339 V, tp13806 a(g185 V tp13807 a(g18 VLen p13808 tp13809 a(g339 V: tp13810 a(g185 V tp13811 a(g135 VInteger p13812 tp13813 a(g339 V; tp13814 a(g185 V\u000a tp13815 a(g111 Vbegin p13816 tp13817 a(g185 V\u000a p13818 tp13819 a(g18 VStart p13820 tp13821 a(g185 V tp13822 a(g339 V: tp13823 a(g339 V= tp13824 a(g185 V tp13825 a(g314 V1 tp13826 a(g339 V; tp13827 a(g185 V\u000a p13828 tp13829 a(g18 VLen p13830 tp13831 a(g185 V tp13832 a(g339 V: tp13833 a(g339 V= tp13834 a(g185 V tp13835 a(g57 VLength p13836 tp13837 a(g198 V( tp13838 a(g18 VS tp13839 a(g198 V) tp13840 a(g339 V; tp13841 a(g185 V\u000a\u000a p13842 tp13843 a(g111 Vif p13844 tp13845 a(g185 V tp13846 a(g198 V( tp13847 a(g18 VS tp13848 a(g185 V tp13849 a(g339 V< tp13850 a(g339 V> tp13851 a(g185 V tp13852 a(g222 V' tp13853 a(g222 V' tp13854 a(g198 V) tp13855 a(g185 V tp13856 a(g111 Vand p13857 tp13858 a(g185 V tp13859 a(g198 V( tp13860 a(g18 VS tp13861 a(g198 V[ tp13862 a(g314 V1 tp13863 a(g198 V] tp13864 a(g185 V tp13865 a(g111 Vin p13866 tp13867 a(g185 V tp13868 a(g198 V([ p13869 tp13870 a(g264 V#0 p13871 tp13872 a(g339 V. tp13873 a(g339 V. tp13874 a(g264 V#32 p13875 tp13876 a(g198 V] tp13877 a(g185 V tp13878 a(g339 V+ tp13879 a(g185 V tp13880 a(g18 VQuoteChars p13881 tp13882 a(g198 V)) p13883 tp13884 a(g185 V tp13885 a(g111 Vthen p13886 tp13887 a(g185 V tp13888 a(g111 Vbegin p13889 tp13890 a(g185 V\u000a p13891 tp13892 a(g111 Vif p13893 tp13894 a(g185 V tp13895 a(g198 V( tp13896 a(g18 VLastChar p13897 tp13898 a(g198 V( tp13899 a(g18 VS tp13900 a(g198 V) tp13901 a(g185 V tp13902 a(g339 V= tp13903 a(g185 V tp13904 a(g18 VS tp13905 a(g198 V[ tp13906 a(g314 V1 tp13907 a(g198 V]) p13908 tp13909 a(g185 V tp13910 a(g111 Vthen p13911 tp13912 a(g185 V\u000a p13913 tp13914 a(g57 VDec p13915 tp13916 a(g198 V( tp13917 a(g18 VLen p13918 tp13919 a(g198 V) tp13920 a(g339 V; tp13921 a(g185 V\u000a p13922 tp13923 a(g57 VInc p13924 tp13925 a(g198 V( tp13926 a(g18 VStart p13927 tp13928 a(g198 V) tp13929 a(g339 V; tp13930 a(g185 V\u000a p13931 tp13932 a(g111 Vend p13933 tp13934 a(g339 V; tp13935 a(g185 V\u000a\u000a p13936 tp13937 a(g60 VResult p13938 tp13939 a(g185 V tp13940 a(g339 V: tp13941 a(g339 V= tp13942 a(g185 V tp13943 a(g57 VCopy p13944 tp13945 a(g198 V( tp13946 a(g18 VS tp13947 a(g339 V, tp13948 a(g185 V tp13949 a(g18 VStart p13950 tp13951 a(g339 V, tp13952 a(g185 V tp13953 a(g18 VLen p13954 tp13955 a(g185 V tp13956 a(g339 V- tp13957 a(g185 V tp13958 a(g18 VStart p13959 tp13960 a(g185 V tp13961 a(g339 V+ tp13962 a(g185 V tp13963 a(g314 V1 tp13964 a(g198 V) tp13965 a(g339 V; tp13966 a(g185 V\u000a tp13967 a(g111 Vend p13968 tp13969 a(g339 V; tp13970 a(g185 V\u000a\u000a p13971 tp13972 a(g111 Vfunction p13973 tp13974 a(g185 V tp13975 a(g21 VStrNumerus p13976 tp13977 a(g198 V( tp13978 a(g111 Vconst p13979 tp13980 a(g185 V tp13981 a(g18 VValue p13982 tp13983 a(g339 V: tp13984 a(g185 V tp13985 a(g135 VInteger p13986 tp13987 a(g339 V; tp13988 a(g185 V tp13989 a(g111 Vconst p13990 tp13991 a(g185 V tp13992 a(g18 VSingular p13993 tp13994 a(g339 V, tp13995 a(g185 V tp13996 a(g18 VPlural p13997 tp13998 a(g339 V: tp13999 a(g185 V tp14000 a(g111 Vstring p14001 tp14002 a(g339 V; tp14003 a(g185 V\u000a p14004 tp14005 a(g111 Vconst p14006 tp14007 a(g185 V tp14008 a(g18 VZero p14009 tp14010 a(g339 V: tp14011 a(g185 V tp14012 a(g111 Vstring p14013 tp14014 a(g185 V tp14015 a(g339 V= tp14016 a(g185 V tp14017 a(g222 V' tp14018 a(g222 V0 tp14019 a(g222 V' tp14020 a(g198 V) tp14021 a(g339 V: tp14022 a(g185 V tp14023 a(g111 Vstring p14024 tp14025 a(g339 V; tp14026 a(g185 V\u000a tp14027 a(g111 Vbegin p14028 tp14029 a(g185 V\u000a p14030 tp14031 a(g111 Vif p14032 tp14033 a(g185 V tp14034 a(g57 VAbs p14035 tp14036 a(g198 V( tp14037 a(g18 VValue p14038 tp14039 a(g198 V) tp14040 a(g185 V tp14041 a(g339 V= tp14042 a(g185 V tp14043 a(g314 V1 tp14044 a(g185 V tp14045 a(g111 Vthen p14046 tp14047 a(g185 V\u000a p14048 tp14049 a(g60 VResult p14050 tp14051 a(g185 V tp14052 a(g339 V: tp14053 a(g339 V= tp14054 a(g185 V tp14055 a(g57 VIntToStr p14056 tp14057 a(g198 V( tp14058 a(g18 VValue p14059 tp14060 a(g198 V) tp14061 a(g185 V tp14062 a(g339 V+ tp14063 a(g185 V tp14064 a(g222 V' tp14065 a(g222 V tp14066 a(g222 V' tp14067 a(g185 V tp14068 a(g339 V+ tp14069 a(g185 V tp14070 a(g18 VSingular p14071 tp14072 a(g185 V\u000a p14073 tp14074 a(g111 Velse p14075 tp14076 a(g185 V tp14077 a(g111 Vif p14078 tp14079 a(g185 V tp14080 a(g18 VValue p14081 tp14082 a(g185 V tp14083 a(g339 V= tp14084 a(g185 V tp14085 a(g314 V0 tp14086 a(g185 V tp14087 a(g111 Vthen p14088 tp14089 a(g185 V\u000a p14090 tp14091 a(g60 VResult p14092 tp14093 a(g185 V tp14094 a(g339 V: tp14095 a(g339 V= tp14096 a(g185 V tp14097 a(g18 VZero p14098 tp14099 a(g185 V tp14100 a(g339 V+ tp14101 a(g185 V tp14102 a(g222 V' tp14103 a(g222 V tp14104 a(g222 V' tp14105 a(g185 V tp14106 a(g339 V+ tp14107 a(g185 V tp14108 a(g18 VPlural p14109 tp14110 a(g185 V\u000a p14111 tp14112 a(g111 Velse p14113 tp14114 a(g185 V\u000a p14115 tp14116 a(g60 VResult p14117 tp14118 a(g185 V tp14119 a(g339 V: tp14120 a(g339 V= tp14121 a(g185 V tp14122 a(g57 VIntToStr p14123 tp14124 a(g198 V( tp14125 a(g18 VValue p14126 tp14127 a(g198 V) tp14128 a(g185 V tp14129 a(g339 V+ tp14130 a(g185 V tp14131 a(g222 V' tp14132 a(g222 V tp14133 a(g222 V' tp14134 a(g185 V tp14135 a(g339 V+ tp14136 a(g185 V tp14137 a(g18 VPlural p14138 tp14139 a(g339 V; tp14140 a(g185 V\u000a tp14141 a(g111 Vend p14142 tp14143 a(g339 V; tp14144 a(g185 V\u000a\u000a p14145 tp14146 a(g111 Vfunction p14147 tp14148 a(g185 V tp14149 a(g21 VMakeStr p14150 tp14151 a(g198 V( tp14152 a(g111 Vconst p14153 tp14154 a(g185 V tp14155 a(g18 VItems p14156 tp14157 a(g339 V: tp14158 a(g185 V tp14159 a(g111 Varray p14160 tp14161 a(g185 V tp14162 a(g111 Vof p14163 tp14164 a(g185 V tp14165 a(g111 Vconst p14166 tp14167 a(g339 V; tp14168 a(g185 V tp14169 a(g18 VSeparator p14170 tp14171 a(g339 V: tp14172 a(g185 V tp14173 a(g111 Vstring p14174 tp14175 a(g185 V tp14176 a(g339 V= tp14177 a(g185 V tp14178 a(g222 V' tp14179 a(g222 V' tp14180 a(g198 V) tp14181 a(g339 V: tp14182 a(g185 V tp14183 a(g111 Vstring p14184 tp14185 a(g339 V; tp14186 a(g185 V\u000a tp14187 a(g111 Vconst p14188 tp14189 a(g185 V\u000a p14190 tp14191 a(g18 VBoolStrings p14192 tp14193 a(g339 V: tp14194 a(g185 V tp14195 a(g111 Varray p14196 tp14197 a(g198 V[ tp14198 a(g135 VBoolean p14199 tp14200 a(g198 V] tp14201 a(g185 V tp14202 a(g111 Vof p14203 tp14204 a(g185 V tp14205 a(g111 Vstring p14206 tp14207 a(g185 V tp14208 a(g339 V= tp14209 a(g185 V tp14210 a(g198 V( tp14211 a(g222 V' tp14212 a(g222 VFalse p14213 tp14214 a(g222 V' tp14215 a(g339 V, tp14216 a(g185 V tp14217 a(g222 V' tp14218 a(g222 VTrue p14219 tp14220 a(g222 V' tp14221 a(g198 V) tp14222 a(g339 V; tp14223 a(g185 V\u000a\u000a p14224 tp14225 a(g111 Vvar p14226 tp14227 a(g185 V\u000a p14228 tp14229 a(g18 Vi tp14230 a(g339 V: tp14231 a(g185 V tp14232 a(g135 VInteger p14233 tp14234 a(g339 V; tp14235 a(g185 V\u000a\u000a p14236 tp14237 a(g111 Vfunction p14238 tp14239 a(g185 V tp14240 a(g21 VStrOfP p14241 tp14242 a(g198 V( tp14243 a(g18 VP tp14244 a(g339 V: tp14245 a(g185 V tp14246 a(g135 VPointer p14247 tp14248 a(g198 V) tp14249 a(g339 V: tp14250 a(g185 V tp14251 a(g111 Vstring p14252 tp14253 a(g339 V; tp14254 a(g185 V\u000a p14255 tp14256 a(g111 Vbegin p14257 tp14258 a(g185 V\u000a p14259 tp14260 a(g111 Vif p14261 tp14262 a(g185 V tp14263 a(g18 VP tp14264 a(g185 V tp14265 a(g339 V= tp14266 a(g185 V tp14267 a(g111 Vnil p14268 tp14269 a(g185 V tp14270 a(g111 Vthen p14271 tp14272 a(g185 V\u000a p14273 tp14274 a(g60 VResult p14275 tp14276 a(g185 V tp14277 a(g339 V: tp14278 a(g339 V= tp14279 a(g185 V tp14280 a(g222 V' tp14281 a(g222 V[nil] p14282 tp14283 a(g222 V' tp14284 a(g185 V\u000a p14285 tp14286 a(g111 Velse p14287 tp14288 a(g185 V\u000a p14289 tp14290 a(g60 VResult p14291 tp14292 a(g185 V tp14293 a(g339 V: tp14294 a(g339 V= tp14295 a(g185 V tp14296 a(g222 V' tp14297 a(g222 V[ tp14298 a(g222 V' tp14299 a(g185 V tp14300 a(g339 V+ tp14301 a(g185 V tp14302 a(g57 VIntToStr p14303 tp14304 a(g198 V( tp14305 a(g135 VCardinal p14306 tp14307 a(g198 V( tp14308 a(g18 VP tp14309 a(g198 V)) p14310 tp14311 a(g185 V tp14312 a(g339 V+ tp14313 a(g185 V tp14314 a(g222 V' tp14315 a(g222 V] tp14316 a(g222 V' tp14317 a(g339 V; tp14318 a(g185 V\u000a p14319 tp14320 a(g111 Vend p14321 tp14322 a(g339 V; tp14323 a(g185 V\u000a\u000a p14324 tp14325 a(g111 Vprocedure p14326 tp14327 a(g185 V tp14328 a(g21 VAdd p14329 tp14330 a(g198 V( tp14331 a(g111 Vconst p14332 tp14333 a(g185 V tp14334 a(g18 VS tp14335 a(g339 V: tp14336 a(g185 V tp14337 a(g111 Vstring p14338 tp14339 a(g198 V) tp14340 a(g339 V; tp14341 a(g185 V\u000a p14342 tp14343 a(g111 Vbegin p14344 tp14345 a(g185 V\u000a p14346 tp14347 a(g60 VResult p14348 tp14349 a(g185 V tp14350 a(g339 V: tp14351 a(g339 V= tp14352 a(g185 V tp14353 a(g60 VResult p14354 tp14355 a(g185 V tp14356 a(g339 V+ tp14357 a(g185 V tp14358 a(g18 Vs tp14359 a(g185 V tp14360 a(g339 V+ tp14361 a(g185 V tp14362 a(g18 VSeparator p14363 tp14364 a(g339 V; tp14365 a(g185 V\u000a p14366 tp14367 a(g111 Vend p14368 tp14369 a(g339 V; tp14370 a(g185 V\u000a\u000a p14371 tp14372 a(g111 Vbegin p14373 tp14374 a(g185 V\u000a p14375 tp14376 a(g60 VResult p14377 tp14378 a(g185 V tp14379 a(g339 V: tp14380 a(g339 V= tp14381 a(g185 V tp14382 a(g222 V' tp14383 a(g222 V' tp14384 a(g339 V; tp14385 a(g185 V\u000a p14386 tp14387 a(g111 Vfor p14388 tp14389 a(g185 V tp14390 a(g18 Vi tp14391 a(g185 V tp14392 a(g339 V: tp14393 a(g339 V= tp14394 a(g185 V tp14395 a(g314 V0 tp14396 a(g185 V tp14397 a(g111 Vto p14398 tp14399 a(g185 V tp14400 a(g57 VHigh p14401 tp14402 a(g198 V( tp14403 a(g18 VItems p14404 tp14405 a(g198 V) tp14406 a(g185 V tp14407 a(g111 Vdo p14408 tp14409 a(g185 V\u000a p14410 tp14411 a(g111 Vwith p14412 tp14413 a(g185 V tp14414 a(g18 VItems p14415 tp14416 a(g198 V[ tp14417 a(g18 Vi tp14418 a(g198 V] tp14419 a(g185 V tp14420 a(g111 Vdo p14421 tp14422 a(g185 V\u000a p14423 tp14424 a(g111 Vcase p14425 tp14426 a(g185 V tp14427 a(g18 VVType p14428 tp14429 a(g185 V tp14430 a(g111 Vof p14431 tp14432 a(g185 V\u000a p14433 tp14434 a(g18 VvtString p14435 tp14436 a(g339 V: tp14437 a(g185 V p14438 tp14439 a(g18 VAdd p14440 tp14441 a(g198 V( tp14442 a(g18 VVString p14443 tp14444 a(g339 V^ tp14445 a(g198 V) tp14446 a(g339 V; tp14447 a(g185 V\u000a p14448 tp14449 a(g18 VvtInteger p14450 tp14451 a(g339 V: tp14452 a(g185 V p14453 tp14454 a(g18 VAdd p14455 tp14456 a(g198 V( tp14457 a(g57 VIntToStr p14458 tp14459 a(g198 V( tp14460 a(g18 VVInteger p14461 tp14462 a(g198 V)) p14463 tp14464 a(g339 V; tp14465 a(g185 V\u000a p14466 tp14467 a(g18 VvtBoolean p14468 tp14469 a(g339 V: tp14470 a(g185 V p14471 tp14472 a(g18 VAdd p14473 tp14474 a(g198 V( tp14475 a(g18 VBoolStrings p14476 tp14477 a(g198 V[ tp14478 a(g18 VVBoolean p14479 tp14480 a(g198 V]) p14481 tp14482 a(g339 V; tp14483 a(g185 V\u000a p14484 tp14485 a(g18 VvtChar p14486 tp14487 a(g339 V: tp14488 a(g185 V p14489 tp14490 a(g18 VAdd p14491 tp14492 a(g198 V( tp14493 a(g18 VVChar p14494 tp14495 a(g198 V) tp14496 a(g339 V; tp14497 a(g185 V\u000a p14498 tp14499 a(g18 VvtPChar p14500 tp14501 a(g339 V: tp14502 a(g185 V p14503 tp14504 a(g18 VAdd p14505 tp14506 a(g198 V( tp14507 a(g18 VVPChar p14508 tp14509 a(g198 V) tp14510 a(g339 V; tp14511 a(g185 V\u000a p14512 tp14513 a(g18 VvtExtended p14514 tp14515 a(g339 V: tp14516 a(g185 V p14517 tp14518 a(g18 VAdd p14519 tp14520 a(g198 V( tp14521 a(g57 VFloatToStr p14522 tp14523 a(g198 V( tp14524 a(g18 VVExtended p14525 tp14526 a(g339 V^ tp14527 a(g198 V)) p14528 tp14529 a(g339 V; tp14530 a(g185 V\u000a p14531 tp14532 a(g18 VvtObject p14533 tp14534 a(g339 V: tp14535 a(g185 V p14536 tp14537 a(g111 Vif p14538 tp14539 a(g185 V tp14540 a(g18 VVObject p14541 tp14542 a(g185 V tp14543 a(g111 Vis p14544 tp14545 a(g185 V tp14546 a(g18 VTComponent p14547 tp14548 a(g185 V tp14549 a(g111 Vthen p14550 tp14551 a(g185 V\u000a p14552 tp14553 a(g18 VAdd p14554 tp14555 a(g198 V( tp14556 a(g18 VTComponent p14557 tp14558 a(g198 V( tp14559 a(g18 VVObject p14560 tp14561 a(g198 V) tp14562 a(g339 V. tp14563 a(g18 VName p14564 tp14565 a(g198 V) tp14566 a(g185 V\u000a p14567 tp14568 a(g111 Velse p14569 tp14570 a(g185 V\u000a p14571 tp14572 a(g18 VAdd p14573 tp14574 a(g198 V( tp14575 a(g18 VVObject p14576 tp14577 a(g339 V. tp14578 a(g18 VClassName p14579 tp14580 a(g198 V) tp14581 a(g339 V; tp14582 a(g185 V\u000a p14583 tp14584 a(g18 VvtClass p14585 tp14586 a(g339 V: tp14587 a(g185 V p14588 tp14589 a(g18 VAdd p14590 tp14591 a(g198 V( tp14592 a(g18 VVClass p14593 tp14594 a(g339 V. tp14595 a(g18 VClassName p14596 tp14597 a(g198 V) tp14598 a(g339 V; tp14599 a(g185 V\u000a p14600 tp14601 a(g18 VvtAnsiString p14602 tp14603 a(g339 V: tp14604 a(g185 V tp14605 a(g18 VAdd p14606 tp14607 a(g198 V( tp14608 a(g111 Vstring p14609 tp14610 a(g198 V( tp14611 a(g18 VVAnsiString p14612 tp14613 a(g198 V)) p14614 tp14615 a(g339 V; tp14616 a(g185 V\u000a p14617 tp14618 a(g18 VvtCurrency p14619 tp14620 a(g339 V: tp14621 a(g185 V p14622 tp14623 a(g18 VAdd p14624 tp14625 a(g198 V( tp14626 a(g57 VCurrToStr p14627 tp14628 a(g198 V( tp14629 a(g18 VVCurrency p14630 tp14631 a(g339 V^ tp14632 a(g198 V)) p14633 tp14634 a(g339 V; tp14635 a(g185 V\u000a p14636 tp14637 a(g18 VvtInt64 p14638 tp14639 a(g339 V: tp14640 a(g185 V p14641 tp14642 a(g18 VAdd p14643 tp14644 a(g198 V( tp14645 a(g57 VIntToStr p14646 tp14647 a(g198 V( tp14648 a(g18 VVInt64 p14649 tp14650 a(g339 V^ tp14651 a(g198 V)) p14652 tp14653 a(g339 V; tp14654 a(g185 V\u000a p14655 tp14656 a(g18 VvtVariant p14657 tp14658 a(g339 V: tp14659 a(g185 V p14660 tp14661 a(g18 VAdd p14662 tp14663 a(g198 V( tp14664 a(g111 Vstring p14665 tp14666 a(g198 V( tp14667 a(g18 VVVariant p14668 tp14669 a(g339 V^ tp14670 a(g198 V)) p14671 tp14672 a(g339 V; tp14673 a(g185 V\u000a\u000a p14674 tp14675 a(g18 VvtWideChar p14676 tp14677 a(g339 V: tp14678 a(g185 V p14679 tp14680 a(g18 VAdd p14681 tp14682 a(g198 V( tp14683 a(g18 VVWideChar p14684 tp14685 a(g198 V) tp14686 a(g339 V; tp14687 a(g185 V\u000a p14688 tp14689 a(g18 VvtPWideChar p14690 tp14691 a(g339 V: tp14692 a(g185 V p14693 tp14694 a(g18 VAdd p14695 tp14696 a(g198 V( tp14697 a(g18 VVPWideChar p14698 tp14699 a(g198 V) tp14700 a(g339 V; tp14701 a(g185 V\u000a p14702 tp14703 a(g18 VvtInterface p14704 tp14705 a(g339 V: tp14706 a(g185 V p14707 tp14708 a(g18 VAdd p14709 tp14710 a(g198 V( tp14711 a(g18 VStrOfP p14712 tp14713 a(g198 V( tp14714 a(g18 VVInterface p14715 tp14716 a(g198 V)) p14717 tp14718 a(g339 V; tp14719 a(g185 V\u000a p14720 tp14721 a(g18 VvtPointer p14722 tp14723 a(g339 V: tp14724 a(g185 V p14725 tp14726 a(g18 VAdd p14727 tp14728 a(g198 V( tp14729 a(g18 VStrOfP p14730 tp14731 a(g198 V( tp14732 a(g18 VVPointer p14733 tp14734 a(g198 V)) p14735 tp14736 a(g339 V; tp14737 a(g185 V\u000a p14738 tp14739 a(g18 VvtWideString p14740 tp14741 a(g339 V: tp14742 a(g185 V tp14743 a(g18 VAdd p14744 tp14745 a(g198 V( tp14746 a(g135 VWideString p14747 tp14748 a(g198 V( tp14749 a(g18 VVWideString p14750 tp14751 a(g198 V)) p14752 tp14753 a(g339 V; tp14754 a(g185 V\u000a p14755 tp14756 a(g111 Vend p14757 tp14758 a(g339 V; tp14759 a(g185 V\u000a p14760 tp14761 a(g111 Vif p14762 tp14763 a(g185 V tp14764 a(g60 VResult p14765 tp14766 a(g185 V tp14767 a(g339 V< tp14768 a(g339 V> tp14769 a(g185 V tp14770 a(g222 V' tp14771 a(g222 V' tp14772 a(g185 V tp14773 a(g111 Vthen p14774 tp14775 a(g185 V\u000a p14776 tp14777 a(g57 VSetLength p14778 tp14779 a(g198 V( tp14780 a(g60 Vresult p14781 tp14782 a(g339 V, tp14783 a(g185 V tp14784 a(g57 VLength p14785 tp14786 a(g198 V( tp14787 a(g60 VResult p14788 tp14789 a(g198 V) tp14790 a(g185 V tp14791 a(g339 V- tp14792 a(g185 V tp14793 a(g57 VLength p14794 tp14795 a(g198 V( tp14796 a(g18 VSeparator p14797 tp14798 a(g198 V)) p14799 tp14800 a(g339 V; tp14801 a(g185 V\u000a tp14802 a(g111 Vend p14803 tp14804 a(g339 V; tp14805 a(g185 V\u000a\u000a p14806 tp14807 a(g111 Vprocedure p14808 tp14809 a(g185 V tp14810 a(g21 VShowText p14811 tp14812 a(g198 V( tp14813 a(g111 Vconst p14814 tp14815 a(g185 V tp14816 a(g18 VItems p14817 tp14818 a(g339 V: tp14819 a(g185 V tp14820 a(g111 Varray p14821 tp14822 a(g185 V tp14823 a(g111 Vof p14824 tp14825 a(g185 V tp14826 a(g111 Vconst p14827 tp14828 a(g339 V; tp14829 a(g185 V tp14830 a(g18 VSeparator p14831 tp14832 a(g339 V: tp14833 a(g185 V tp14834 a(g111 Vstring p14835 tp14836 a(g185 V tp14837 a(g339 V= tp14838 a(g185 V tp14839 a(g222 V' tp14840 a(g222 V' tp14841 a(g198 V) tp14842 a(g339 V; tp14843 a(g185 V\u000a tp14844 a(g111 Vvar p14845 tp14846 a(g185 V\u000a p14847 tp14848 a(g18 VText p14849 tp14850 a(g339 V: tp14851 a(g185 V tp14852 a(g111 Vstring p14853 tp14854 a(g339 V; tp14855 a(g185 V\u000a tp14856 a(g111 Vbegin p14857 tp14858 a(g185 V\u000a p14859 tp14860 a(g18 VText p14861 tp14862 a(g185 V tp14863 a(g339 V: tp14864 a(g339 V= tp14865 a(g185 V tp14866 a(g18 VMakeStr p14867 tp14868 a(g198 V( tp14869 a(g18 VItems p14870 tp14871 a(g339 V, tp14872 a(g185 V tp14873 a(g18 VSeparator p14874 tp14875 a(g198 V) tp14876 a(g339 V; tp14877 a(g185 V\u000a\u000a p14878 tp14879 a(g18 VMessageBox p14880 tp14881 a(g198 V( tp14882 a(g314 V0 tp14883 a(g339 V, tp14884 a(g185 V tp14885 a(g135 VPChar p14886 tp14887 a(g198 V( tp14888 a(g18 VText p14889 tp14890 a(g198 V) tp14891 a(g339 V, tp14892 a(g185 V tp14893 a(g222 V' tp14894 a(g222 VInfo p14895 tp14896 a(g222 V' tp14897 a(g339 V, tp14898 a(g185 V tp14899 a(g18 VMB_OK p14900 tp14901 a(g185 V tp14902 a(g111 Vand p14903 tp14904 a(g185 V tp14905 a(g18 VMB_APPLMODAL p14906 tp14907 a(g198 V) tp14908 a(g339 V; tp14909 a(g185 V\u000a tp14910 a(g111 Vend p14911 tp14912 a(g339 V; tp14913 a(g185 V\u000a\u000a p14914 tp14915 a(g111 Vfunction p14916 tp14917 a(g185 V tp14918 a(g21 VDeleteChars p14919 tp14920 a(g198 V( tp14921 a(g111 Vconst p14922 tp14923 a(g185 V tp14924 a(g18 VS tp14925 a(g339 V: tp14926 a(g185 V tp14927 a(g111 Vstring p14928 tp14929 a(g339 V; tp14930 a(g185 V tp14931 a(g18 VC tp14932 a(g339 V: tp14933 a(g185 V tp14934 a(g135 VChar p14935 tp14936 a(g198 V) tp14937 a(g339 V: tp14938 a(g185 V tp14939 a(g111 Vstring p14940 tp14941 a(g339 V; tp14942 a(g185 V\u000a tp14943 a(g111 Vvar p14944 tp14945 a(g185 V\u000a p14946 tp14947 a(g18 Vi tp14948 a(g339 V: tp14949 a(g185 V tp14950 a(g135 VInteger p14951 tp14952 a(g339 V; tp14953 a(g185 V\u000a tp14954 a(g111 Vbegin p14955 tp14956 a(g185 V\u000a p14957 tp14958 a(g60 VResult p14959 tp14960 a(g185 V tp14961 a(g339 V: tp14962 a(g339 V= tp14963 a(g185 V tp14964 a(g222 V' tp14965 a(g222 V' tp14966 a(g339 V; tp14967 a(g185 V\u000a p14968 tp14969 a(g111 Vfor p14970 tp14971 a(g185 V tp14972 a(g18 Vi tp14973 a(g185 V tp14974 a(g339 V: tp14975 a(g339 V= tp14976 a(g185 V tp14977 a(g314 V1 tp14978 a(g185 V tp14979 a(g111 Vto p14980 tp14981 a(g185 V tp14982 a(g57 VLength p14983 tp14984 a(g198 V( tp14985 a(g18 VS tp14986 a(g198 V) tp14987 a(g185 V tp14988 a(g111 Vdo p14989 tp14990 a(g185 V\u000a p14991 tp14992 a(g111 Vif p14993 tp14994 a(g185 V tp14995 a(g18 VS tp14996 a(g198 V[ tp14997 a(g18 Vi tp14998 a(g198 V] tp14999 a(g185 V tp15000 a(g339 V< tp15001 a(g339 V> tp15002 a(g185 V tp15003 a(g18 VC tp15004 a(g185 V tp15005 a(g111 Vthen p15006 tp15007 a(g185 V\u000a p15008 tp15009 a(g60 VResult p15010 tp15011 a(g185 V tp15012 a(g339 V: tp15013 a(g339 V= tp15014 a(g185 V tp15015 a(g60 VResult p15016 tp15017 a(g185 V tp15018 a(g339 V+ tp15019 a(g185 V tp15020 a(g18 VS tp15021 a(g198 V[ tp15022 a(g18 Vi tp15023 a(g198 V] tp15024 a(g339 V; tp15025 a(g185 V\u000a tp15026 a(g111 Vend p15027 tp15028 a(g339 V; tp15029 a(g185 V\u000a\u000a p15030 tp15031 a(g111 Vfunction p15032 tp15033 a(g185 V tp15034 a(g21 VDeleteChars p15035 tp15036 a(g198 V( tp15037 a(g111 Vconst p15038 tp15039 a(g185 V tp15040 a(g18 VS tp15041 a(g339 V: tp15042 a(g185 V tp15043 a(g111 Vstring p15044 tp15045 a(g339 V; tp15046 a(g185 V tp15047 a(g18 VC tp15048 a(g339 V: tp15049 a(g185 V tp15050 a(g18 VTCharSet p15051 tp15052 a(g198 V) tp15053 a(g339 V: tp15054 a(g185 V tp15055 a(g111 Vstring p15056 tp15057 a(g339 V; tp15058 a(g185 V\u000a tp15059 a(g111 Vvar p15060 tp15061 a(g185 V\u000a p15062 tp15063 a(g18 Vi tp15064 a(g339 V: tp15065 a(g185 V tp15066 a(g135 VInteger p15067 tp15068 a(g339 V; tp15069 a(g185 V\u000a tp15070 a(g111 Vbegin p15071 tp15072 a(g185 V\u000a p15073 tp15074 a(g60 VResult p15075 tp15076 a(g185 V tp15077 a(g339 V: tp15078 a(g339 V= tp15079 a(g185 V tp15080 a(g222 V' tp15081 a(g222 V' tp15082 a(g339 V; tp15083 a(g185 V\u000a p15084 tp15085 a(g111 Vfor p15086 tp15087 a(g185 V tp15088 a(g18 Vi tp15089 a(g185 V tp15090 a(g339 V: tp15091 a(g339 V= tp15092 a(g185 V tp15093 a(g314 V1 tp15094 a(g185 V tp15095 a(g111 Vto p15096 tp15097 a(g185 V tp15098 a(g57 VLength p15099 tp15100 a(g198 V( tp15101 a(g18 VS tp15102 a(g198 V) tp15103 a(g185 V tp15104 a(g111 Vdo p15105 tp15106 a(g185 V\u000a p15107 tp15108 a(g111 Vif p15109 tp15110 a(g185 V tp15111 a(g111 Vnot p15112 tp15113 a(g185 V tp15114 a(g198 V( tp15115 a(g18 VS tp15116 a(g198 V[ tp15117 a(g18 Vi tp15118 a(g198 V] tp15119 a(g185 V tp15120 a(g111 Vin p15121 tp15122 a(g185 V tp15123 a(g18 VC tp15124 a(g198 V) tp15125 a(g185 V tp15126 a(g111 Vthen p15127 tp15128 a(g185 V\u000a p15129 tp15130 a(g60 VResult p15131 tp15132 a(g185 V tp15133 a(g339 V: tp15134 a(g339 V= tp15135 a(g185 V tp15136 a(g60 VResult p15137 tp15138 a(g185 V tp15139 a(g339 V+ tp15140 a(g185 V tp15141 a(g18 VS tp15142 a(g198 V[ tp15143 a(g18 Vi tp15144 a(g198 V] tp15145 a(g339 V; tp15146 a(g185 V\u000a tp15147 a(g111 Vend p15148 tp15149 a(g339 V; tp15150 a(g185 V\u000a\u000a p15151 tp15152 a(g111 Vfunction p15153 tp15154 a(g185 V tp15155 a(g21 VExtractChars p15156 tp15157 a(g198 V( tp15158 a(g111 Vconst p15159 tp15160 a(g185 V tp15161 a(g18 VS tp15162 a(g339 V: tp15163 a(g185 V tp15164 a(g111 Vstring p15165 tp15166 a(g339 V; tp15167 a(g185 V tp15168 a(g18 VC tp15169 a(g339 V: tp15170 a(g185 V tp15171 a(g18 VTCharSet p15172 tp15173 a(g198 V) tp15174 a(g339 V: tp15175 a(g185 V tp15176 a(g111 Vstring p15177 tp15178 a(g339 V; tp15179 a(g185 V\u000a tp15180 a(g111 Vvar p15181 tp15182 a(g185 V\u000a p15183 tp15184 a(g18 Vi tp15185 a(g339 V: tp15186 a(g185 V tp15187 a(g135 VInteger p15188 tp15189 a(g339 V; tp15190 a(g185 V\u000a tp15191 a(g111 Vbegin p15192 tp15193 a(g185 V\u000a p15194 tp15195 a(g60 VResult p15196 tp15197 a(g185 V tp15198 a(g339 V: tp15199 a(g339 V= tp15200 a(g185 V tp15201 a(g222 V' tp15202 a(g222 V' tp15203 a(g339 V; tp15204 a(g185 V\u000a p15205 tp15206 a(g111 Vfor p15207 tp15208 a(g185 V tp15209 a(g18 Vi tp15210 a(g185 V tp15211 a(g339 V: tp15212 a(g339 V= tp15213 a(g185 V tp15214 a(g314 V1 tp15215 a(g185 V tp15216 a(g111 Vto p15217 tp15218 a(g185 V tp15219 a(g57 VLength p15220 tp15221 a(g198 V( tp15222 a(g18 VS tp15223 a(g198 V) tp15224 a(g185 V tp15225 a(g111 Vdo p15226 tp15227 a(g185 V\u000a p15228 tp15229 a(g111 Vif p15230 tp15231 a(g185 V tp15232 a(g18 VS tp15233 a(g198 V[ tp15234 a(g18 Vi tp15235 a(g198 V] tp15236 a(g185 V tp15237 a(g111 Vin p15238 tp15239 a(g185 V tp15240 a(g18 VC tp15241 a(g185 V tp15242 a(g111 Vthen p15243 tp15244 a(g185 V\u000a p15245 tp15246 a(g60 VResult p15247 tp15248 a(g185 V tp15249 a(g339 V: tp15250 a(g339 V= tp15251 a(g185 V tp15252 a(g60 VResult p15253 tp15254 a(g185 V tp15255 a(g339 V+ tp15256 a(g185 V tp15257 a(g18 VS tp15258 a(g198 V[ tp15259 a(g18 Vi tp15260 a(g198 V] tp15261 a(g339 V; tp15262 a(g185 V\u000a tp15263 a(g111 Vend p15264 tp15265 a(g339 V; tp15266 a(g185 V\u000a\u000a p15267 tp15268 a(g111 Vfunction p15269 tp15270 a(g185 V tp15271 a(g21 VCharCount p15272 tp15273 a(g198 V( tp15274 a(g111 Vconst p15275 tp15276 a(g185 V tp15277 a(g18 VS tp15278 a(g339 V: tp15279 a(g185 V tp15280 a(g111 Vstring p15281 tp15282 a(g339 V; tp15283 a(g185 V tp15284 a(g18 VC tp15285 a(g339 V: tp15286 a(g185 V tp15287 a(g135 VChar p15288 tp15289 a(g198 V) tp15290 a(g339 V: tp15291 a(g185 V tp15292 a(g135 VInteger p15293 tp15294 a(g339 V; tp15295 a(g185 V\u000a tp15296 a(g111 Vvar p15297 tp15298 a(g185 V\u000a p15299 tp15300 a(g18 Vi tp15301 a(g339 V: tp15302 a(g185 V tp15303 a(g135 VInteger p15304 tp15305 a(g339 V; tp15306 a(g185 V\u000a tp15307 a(g111 Vbegin p15308 tp15309 a(g185 V\u000a p15310 tp15311 a(g60 VResult p15312 tp15313 a(g185 V tp15314 a(g339 V: tp15315 a(g339 V= tp15316 a(g185 V tp15317 a(g314 V0 tp15318 a(g339 V; tp15319 a(g185 V\u000a p15320 tp15321 a(g111 Vfor p15322 tp15323 a(g185 V tp15324 a(g18 Vi tp15325 a(g185 V tp15326 a(g339 V: tp15327 a(g339 V= tp15328 a(g185 V tp15329 a(g314 V1 tp15330 a(g185 V tp15331 a(g111 Vto p15332 tp15333 a(g185 V tp15334 a(g57 VLength p15335 tp15336 a(g198 V( tp15337 a(g18 VS tp15338 a(g198 V) tp15339 a(g185 V tp15340 a(g111 Vdo p15341 tp15342 a(g185 V\u000a p15343 tp15344 a(g111 Vif p15345 tp15346 a(g185 V tp15347 a(g18 VS tp15348 a(g198 V[ tp15349 a(g18 Vi tp15350 a(g198 V] tp15351 a(g185 V tp15352 a(g339 V= tp15353 a(g185 V tp15354 a(g18 VC tp15355 a(g185 V tp15356 a(g111 Vthen p15357 tp15358 a(g185 V\u000a p15359 tp15360 a(g57 VInc p15361 tp15362 a(g198 V( tp15363 a(g60 VResult p15364 tp15365 a(g198 V) tp15366 a(g339 V; tp15367 a(g185 V\u000a tp15368 a(g111 Vend p15369 tp15370 a(g339 V; tp15371 a(g185 V\u000a\u000a p15372 tp15373 a(g111 Vfunction p15374 tp15375 a(g185 V tp15376 a(g21 VStrAtPos p15377 tp15378 a(g198 V( tp15379 a(g111 Vconst p15380 tp15381 a(g185 V tp15382 a(g18 VS tp15383 a(g339 V: tp15384 a(g185 V tp15385 a(g111 Vstring p15386 tp15387 a(g339 V; tp15388 a(g185 V tp15389 a(g57 VPos p15390 tp15391 a(g339 V: tp15392 a(g185 V tp15393 a(g135 VInteger p15394 tp15395 a(g339 V; tp15396 a(g185 V tp15397 a(g111 Vconst p15398 tp15399 a(g185 V tp15400 a(g57 VStr p15401 tp15402 a(g339 V: tp15403 a(g185 V tp15404 a(g111 Vstring p15405 tp15406 a(g198 V) tp15407 a(g339 V: tp15408 a(g185 V tp15409 a(g135 VBoolean p15410 tp15411 a(g339 V; tp15412 a(g185 V\u000a tp15413 a(g111 Vbegin p15414 tp15415 a(g185 V\u000a p15416 tp15417 a(g60 VResult p15418 tp15419 a(g185 V tp15420 a(g339 V: tp15421 a(g339 V= tp15422 a(g185 V tp15423 a(g198 V( tp15424 a(g57 VStr p15425 tp15426 a(g185 V tp15427 a(g339 V< tp15428 a(g339 V> tp15429 a(g185 V tp15430 a(g222 V' tp15431 a(g222 V' tp15432 a(g198 V) tp15433 a(g185 V tp15434 a(g111 Vand p15435 tp15436 a(g185 V tp15437 a(g198 V( tp15438 a(g57 VStr p15439 tp15440 a(g185 V tp15441 a(g339 V= tp15442 a(g185 V tp15443 a(g57 VCopy p15444 tp15445 a(g198 V( tp15446 a(g18 VS tp15447 a(g339 V, tp15448 a(g185 V tp15449 a(g57 VPos p15450 tp15451 a(g339 V, tp15452 a(g185 V tp15453 a(g57 VLength p15454 tp15455 a(g198 V( tp15456 a(g57 VStr p15457 tp15458 a(g198 V))) p15459 tp15460 a(g339 V; tp15461 a(g185 V\u000a tp15462 a(g111 Vend p15463 tp15464 a(g339 V; tp15465 a(g185 V\u000a\u000a p15466 tp15467 a(g111 Vfunction p15468 tp15469 a(g185 V tp15470 a(g21 VTextAtPos p15471 tp15472 a(g198 V( tp15473 a(g111 Vconst p15474 tp15475 a(g185 V tp15476 a(g18 VS tp15477 a(g339 V: tp15478 a(g185 V tp15479 a(g111 Vstring p15480 tp15481 a(g339 V; tp15482 a(g185 V tp15483 a(g57 VPos p15484 tp15485 a(g339 V: tp15486 a(g185 V tp15487 a(g135 VInteger p15488 tp15489 a(g339 V; tp15490 a(g185 V tp15491 a(g111 Vconst p15492 tp15493 a(g185 V tp15494 a(g18 VText p15495 tp15496 a(g339 V: tp15497 a(g185 V tp15498 a(g111 Vstring p15499 tp15500 a(g198 V) tp15501 a(g339 V: tp15502 a(g185 V tp15503 a(g135 VBoolean p15504 tp15505 a(g339 V; tp15506 a(g185 V\u000a tp15507 a(g111 Vbegin p15508 tp15509 a(g185 V\u000a p15510 tp15511 a(g60 VResult p15512 tp15513 a(g185 V tp15514 a(g339 V: tp15515 a(g339 V= tp15516 a(g185 V tp15517 a(g198 V( tp15518 a(g18 VText p15519 tp15520 a(g185 V tp15521 a(g339 V< tp15522 a(g339 V> tp15523 a(g185 V tp15524 a(g222 V' tp15525 a(g222 V' tp15526 a(g198 V) tp15527 a(g185 V tp15528 a(g111 Vand p15529 tp15530 a(g185 V tp15531 a(g57 VSameText p15532 tp15533 a(g198 V( tp15534 a(g18 VText p15535 tp15536 a(g339 V, tp15537 a(g185 V tp15538 a(g57 VCopy p15539 tp15540 a(g198 V( tp15541 a(g18 VS tp15542 a(g339 V, tp15543 a(g185 V tp15544 a(g57 VPos p15545 tp15546 a(g339 V, tp15547 a(g185 V tp15548 a(g57 VLength p15549 tp15550 a(g198 V( tp15551 a(g18 VText p15552 tp15553 a(g198 V))) p15554 tp15555 a(g339 V; tp15556 a(g185 V\u000a tp15557 a(g111 Vend p15558 tp15559 a(g339 V; tp15560 a(g185 V\u000a\u000a p15561 tp15562 a(g111 Vfunction p15563 tp15564 a(g185 V tp15565 a(g21 VStrAtBegin p15566 tp15567 a(g198 V( tp15568 a(g111 Vconst p15569 tp15570 a(g185 V tp15571 a(g18 VS tp15572 a(g339 V, tp15573 a(g185 V tp15574 a(g57 VStr p15575 tp15576 a(g339 V: tp15577 a(g185 V tp15578 a(g111 Vstring p15579 tp15580 a(g198 V) tp15581 a(g339 V: tp15582 a(g185 V tp15583 a(g135 VBoolean p15584 tp15585 a(g339 V; tp15586 a(g185 V\u000a tp15587 a(g111 Vbegin p15588 tp15589 a(g185 V\u000a p15590 tp15591 a(g60 VResult p15592 tp15593 a(g185 V tp15594 a(g339 V: tp15595 a(g339 V= tp15596 a(g185 V tp15597 a(g18 VStrAtPos p15598 tp15599 a(g198 V( tp15600 a(g18 VS tp15601 a(g339 V, tp15602 a(g185 V tp15603 a(g314 V1 tp15604 a(g339 V, tp15605 a(g185 V tp15606 a(g57 VStr p15607 tp15608 a(g198 V) tp15609 a(g339 V; tp15610 a(g185 V\u000a tp15611 a(g111 Vend p15612 tp15613 a(g339 V; tp15614 a(g185 V\u000a\u000a p15615 tp15616 a(g111 Vfunction p15617 tp15618 a(g185 V tp15619 a(g21 VTextAtBegin p15620 tp15621 a(g198 V( tp15622 a(g111 Vconst p15623 tp15624 a(g185 V tp15625 a(g18 VS tp15626 a(g339 V, tp15627 a(g185 V tp15628 a(g18 VText p15629 tp15630 a(g339 V: tp15631 a(g185 V tp15632 a(g111 Vstring p15633 tp15634 a(g198 V) tp15635 a(g339 V: tp15636 a(g185 V tp15637 a(g135 VBoolean p15638 tp15639 a(g339 V; tp15640 a(g185 V\u000a tp15641 a(g111 Vbegin p15642 tp15643 a(g185 V\u000a p15644 tp15645 a(g60 VResult p15646 tp15647 a(g185 V tp15648 a(g339 V: tp15649 a(g339 V= tp15650 a(g185 V tp15651 a(g18 VTextAtPos p15652 tp15653 a(g198 V( tp15654 a(g18 VS tp15655 a(g339 V, tp15656 a(g185 V tp15657 a(g314 V1 tp15658 a(g339 V, tp15659 a(g185 V tp15660 a(g18 VText p15661 tp15662 a(g198 V) tp15663 a(g339 V; tp15664 a(g185 V\u000a tp15665 a(g111 Vend p15666 tp15667 a(g339 V; tp15668 a(g185 V\u000a\u000a p15669 tp15670 a(g111 Vfunction p15671 tp15672 a(g185 V tp15673 a(g21 VCharIn p15674 tp15675 a(g198 V( tp15676 a(g111 Vconst p15677 tp15678 a(g185 V tp15679 a(g18 VS tp15680 a(g339 V: tp15681 a(g185 V tp15682 a(g111 Vstring p15683 tp15684 a(g339 V; tp15685 a(g185 V tp15686 a(g18 VC tp15687 a(g339 V: tp15688 a(g185 V tp15689 a(g135 VChar p15690 tp15691 a(g198 V) tp15692 a(g339 V: tp15693 a(g185 V tp15694 a(g135 VBoolean p15695 tp15696 a(g339 V; tp15697 a(g185 V\u000a tp15698 a(g111 Vvar p15699 tp15700 a(g185 V\u000a p15701 tp15702 a(g18 Vi tp15703 a(g339 V: tp15704 a(g185 V tp15705 a(g135 VInteger p15706 tp15707 a(g339 V; tp15708 a(g185 V\u000a tp15709 a(g111 Vbegin p15710 tp15711 a(g185 V\u000a p15712 tp15713 a(g60 VResult p15714 tp15715 a(g185 V tp15716 a(g339 V: tp15717 a(g339 V= tp15718 a(g185 V tp15719 a(g111 VTrue p15720 tp15721 a(g339 V; tp15722 a(g185 V\u000a p15723 tp15724 a(g111 Vfor p15725 tp15726 a(g185 V tp15727 a(g18 Vi tp15728 a(g185 V tp15729 a(g339 V: tp15730 a(g339 V= tp15731 a(g185 V tp15732 a(g314 V1 tp15733 a(g185 V tp15734 a(g111 Vto p15735 tp15736 a(g185 V tp15737 a(g57 VLength p15738 tp15739 a(g198 V( tp15740 a(g18 VS tp15741 a(g198 V) tp15742 a(g185 V tp15743 a(g111 Vdo p15744 tp15745 a(g185 V\u000a p15746 tp15747 a(g111 Vif p15748 tp15749 a(g185 V tp15750 a(g18 VS tp15751 a(g198 V[ tp15752 a(g18 Vi tp15753 a(g198 V] tp15754 a(g185 V tp15755 a(g339 V= tp15756 a(g185 V tp15757 a(g18 VC tp15758 a(g185 V tp15759 a(g111 Vthen p15760 tp15761 a(g185 V tp15762 a(g111 VExit p15763 tp15764 a(g339 V; tp15765 a(g185 V\u000a p15766 tp15767 a(g60 VResult p15768 tp15769 a(g185 V tp15770 a(g339 V: tp15771 a(g339 V= tp15772 a(g185 V tp15773 a(g111 VFalse p15774 tp15775 a(g339 V; tp15776 a(g185 V\u000a tp15777 a(g111 Vend p15778 tp15779 a(g339 V; tp15780 a(g185 V\u000a\u000a p15781 tp15782 a(g111 Vfunction p15783 tp15784 a(g185 V tp15785 a(g21 VCharIn p15786 tp15787 a(g198 V( tp15788 a(g111 Vconst p15789 tp15790 a(g185 V tp15791 a(g18 VS tp15792 a(g339 V: tp15793 a(g185 V tp15794 a(g111 Vstring p15795 tp15796 a(g339 V; tp15797 a(g185 V tp15798 a(g18 VC tp15799 a(g339 V: tp15800 a(g185 V tp15801 a(g18 VTCharSet p15802 tp15803 a(g198 V) tp15804 a(g339 V: tp15805 a(g185 V tp15806 a(g135 VBoolean p15807 tp15808 a(g339 V; tp15809 a(g185 V\u000a tp15810 a(g111 Vvar p15811 tp15812 a(g185 V\u000a p15813 tp15814 a(g18 Vi tp15815 a(g339 V: tp15816 a(g185 V tp15817 a(g135 VInteger p15818 tp15819 a(g339 V; tp15820 a(g185 V\u000a tp15821 a(g111 Vbegin p15822 tp15823 a(g185 V\u000a p15824 tp15825 a(g60 VResult p15826 tp15827 a(g185 V tp15828 a(g339 V: tp15829 a(g339 V= tp15830 a(g185 V tp15831 a(g111 VFalse p15832 tp15833 a(g339 V; tp15834 a(g185 V\u000a p15835 tp15836 a(g111 Vfor p15837 tp15838 a(g185 V tp15839 a(g18 Vi tp15840 a(g185 V tp15841 a(g339 V: tp15842 a(g339 V= tp15843 a(g185 V tp15844 a(g314 V1 tp15845 a(g185 V tp15846 a(g111 Vto p15847 tp15848 a(g185 V tp15849 a(g57 VLength p15850 tp15851 a(g198 V( tp15852 a(g18 VS tp15853 a(g198 V) tp15854 a(g185 V tp15855 a(g111 Vdo p15856 tp15857 a(g185 V tp15858 a(g111 Vbegin p15859 tp15860 a(g185 V\u000a p15861 tp15862 a(g60 VResult p15863 tp15864 a(g185 V tp15865 a(g339 V: tp15866 a(g339 V= tp15867 a(g185 V tp15868 a(g18 VS tp15869 a(g198 V[ tp15870 a(g18 Vi tp15871 a(g198 V] tp15872 a(g185 V tp15873 a(g111 Vin p15874 tp15875 a(g185 V tp15876 a(g18 VC tp15877 a(g339 V; tp15878 a(g185 V\u000a p15879 tp15880 a(g111 Vif p15881 tp15882 a(g185 V tp15883 a(g60 VResult p15884 tp15885 a(g185 V tp15886 a(g111 Vthen p15887 tp15888 a(g185 V\u000a p15889 tp15890 a(g111 VExit p15891 tp15892 a(g339 V; tp15893 a(g185 V\u000a p15894 tp15895 a(g111 Vend p15896 tp15897 a(g339 V; tp15898 a(g185 V\u000a tp15899 a(g111 Vend p15900 tp15901 a(g339 V; tp15902 a(g185 V\u000a\u000a p15903 tp15904 a(g111 Vfunction p15905 tp15906 a(g185 V tp15907 a(g21 VStrIn p15908 tp15909 a(g198 V( tp15910 a(g111 Vconst p15911 tp15912 a(g185 V tp15913 a(g18 VS tp15914 a(g339 V, tp15915 a(g185 V tp15916 a(g18 VSubStr p15917 tp15918 a(g339 V: tp15919 a(g185 V tp15920 a(g111 Vstring p15921 tp15922 a(g198 V) tp15923 a(g339 V: tp15924 a(g185 V tp15925 a(g135 VBoolean p15926 tp15927 a(g339 V; tp15928 a(g185 V\u000a tp15929 a(g111 Vbegin p15930 tp15931 a(g185 V\u000a p15932 tp15933 a(g60 VResult p15934 tp15935 a(g185 V tp15936 a(g339 V: tp15937 a(g339 V= tp15938 a(g185 V tp15939 a(g18 VPosEx p15940 tp15941 a(g198 V( tp15942 a(g18 VSubStr p15943 tp15944 a(g339 V, tp15945 a(g185 V tp15946 a(g18 VS tp15947 a(g198 V) tp15948 a(g185 V tp15949 a(g339 V> tp15950 a(g185 V tp15951 a(g314 V0 tp15952 a(g339 V; tp15953 a(g185 V\u000a tp15954 a(g111 Vend p15955 tp15956 a(g339 V; tp15957 a(g185 V\u000a\u000a p15958 tp15959 a(g111 Vfunction p15960 tp15961 a(g185 V tp15962 a(g21 VStrIn p15963 tp15964 a(g198 V( tp15965 a(g18 VSL p15966 tp15967 a(g339 V: tp15968 a(g185 V tp15969 a(g18 VTStrings p15970 tp15971 a(g339 V; tp15972 a(g185 V tp15973 a(g111 Vconst p15974 tp15975 a(g185 V tp15976 a(g18 VS tp15977 a(g339 V: tp15978 a(g185 V tp15979 a(g111 Vstring p15980 tp15981 a(g198 V) tp15982 a(g339 V: tp15983 a(g185 V tp15984 a(g135 VBoolean p15985 tp15986 a(g339 V; tp15987 a(g185 V\u000a tp15988 a(g111 Vvar p15989 tp15990 a(g185 V\u000a p15991 tp15992 a(g18 Vi tp15993 a(g339 V: tp15994 a(g185 V tp15995 a(g135 VInteger p15996 tp15997 a(g339 V; tp15998 a(g185 V\u000a tp15999 a(g111 Vbegin p16000 tp16001 a(g185 V\u000a p16002 tp16003 a(g60 VResult p16004 tp16005 a(g185 V tp16006 a(g339 V: tp16007 a(g339 V= tp16008 a(g185 V tp16009 a(g111 VFalse p16010 tp16011 a(g339 V; tp16012 a(g185 V\u000a p16013 tp16014 a(g111 Vfor p16015 tp16016 a(g185 V tp16017 a(g18 Vi tp16018 a(g185 V tp16019 a(g339 V: tp16020 a(g339 V= tp16021 a(g185 V tp16022 a(g314 V0 tp16023 a(g185 V tp16024 a(g111 Vto p16025 tp16026 a(g185 V tp16027 a(g18 VSL p16028 tp16029 a(g339 V. tp16030 a(g18 VCount p16031 tp16032 a(g339 V- tp16033 a(g314 V1 tp16034 a(g185 V tp16035 a(g111 Vdo p16036 tp16037 a(g185 V tp16038 a(g111 Vbegin p16039 tp16040 a(g185 V\u000a p16041 tp16042 a(g60 VResult p16043 tp16044 a(g185 V tp16045 a(g339 V: tp16046 a(g339 V= tp16047 a(g185 V tp16048 a(g198 V( tp16049 a(g18 VS tp16050 a(g185 V tp16051 a(g339 V= tp16052 a(g185 V tp16053 a(g18 VSL p16054 tp16055 a(g198 V[ tp16056 a(g18 Vi tp16057 a(g198 V]) p16058 tp16059 a(g339 V; tp16060 a(g185 V\u000a p16061 tp16062 a(g111 Vif p16063 tp16064 a(g185 V tp16065 a(g60 VResult p16066 tp16067 a(g185 V tp16068 a(g111 Vthen p16069 tp16070 a(g185 V\u000a p16071 tp16072 a(g111 VExit p16073 tp16074 a(g339 V; tp16075 a(g185 V\u000a p16076 tp16077 a(g111 Vend p16078 tp16079 a(g339 V; tp16080 a(g185 V\u000a tp16081 a(g111 Vend p16082 tp16083 a(g339 V; tp16084 a(g185 V\u000a\u000a p16085 tp16086 a(g111 Vfunction p16087 tp16088 a(g185 V tp16089 a(g21 VStrIn p16090 tp16091 a(g198 V( tp16092 a(g18 VA tp16093 a(g339 V: tp16094 a(g185 V tp16095 a(g18 VTStrA p16096 tp16097 a(g339 V; tp16098 a(g185 V tp16099 a(g111 Vconst p16100 tp16101 a(g185 V tp16102 a(g18 VS tp16103 a(g339 V: tp16104 a(g185 V tp16105 a(g111 Vstring p16106 tp16107 a(g198 V) tp16108 a(g339 V: tp16109 a(g185 V tp16110 a(g135 VBoolean p16111 tp16112 a(g339 V; tp16113 a(g185 V\u000a tp16114 a(g111 Vvar p16115 tp16116 a(g185 V\u000a p16117 tp16118 a(g18 Vi tp16119 a(g339 V: tp16120 a(g185 V tp16121 a(g135 VInteger p16122 tp16123 a(g339 V; tp16124 a(g185 V\u000a tp16125 a(g111 Vbegin p16126 tp16127 a(g185 V\u000a p16128 tp16129 a(g60 VResult p16130 tp16131 a(g185 V tp16132 a(g339 V: tp16133 a(g339 V= tp16134 a(g185 V tp16135 a(g111 VFalse p16136 tp16137 a(g339 V; tp16138 a(g185 V\u000a p16139 tp16140 a(g111 Vfor p16141 tp16142 a(g185 V tp16143 a(g18 Vi tp16144 a(g185 V tp16145 a(g339 V: tp16146 a(g339 V= tp16147 a(g185 V tp16148 a(g57 VLow p16149 tp16150 a(g198 V( tp16151 a(g18 VA tp16152 a(g198 V) tp16153 a(g185 V tp16154 a(g111 Vto p16155 tp16156 a(g185 V tp16157 a(g57 VHigh p16158 tp16159 a(g198 V( tp16160 a(g18 VA tp16161 a(g198 V) tp16162 a(g185 V tp16163 a(g111 Vdo p16164 tp16165 a(g185 V tp16166 a(g111 Vbegin p16167 tp16168 a(g185 V\u000a p16169 tp16170 a(g60 VResult p16171 tp16172 a(g185 V tp16173 a(g339 V: tp16174 a(g339 V= tp16175 a(g185 V tp16176 a(g198 V( tp16177 a(g18 VS tp16178 a(g185 V tp16179 a(g339 V= tp16180 a(g185 V tp16181 a(g18 VA tp16182 a(g198 V[ tp16183 a(g18 Vi tp16184 a(g198 V]) p16185 tp16186 a(g339 V; tp16187 a(g185 V\u000a p16188 tp16189 a(g111 Vif p16190 tp16191 a(g185 V tp16192 a(g60 VResult p16193 tp16194 a(g185 V tp16195 a(g111 Vthen p16196 tp16197 a(g185 V\u000a p16198 tp16199 a(g111 VExit p16200 tp16201 a(g339 V; tp16202 a(g185 V\u000a p16203 tp16204 a(g111 Vend p16205 tp16206 a(g339 V; tp16207 a(g185 V\u000a tp16208 a(g111 Vend p16209 tp16210 a(g339 V; tp16211 a(g185 V\u000a\u000a p16212 tp16213 a(g111 Vfunction p16214 tp16215 a(g185 V tp16216 a(g21 VTextIn p16217 tp16218 a(g198 V( tp16219 a(g111 Vconst p16220 tp16221 a(g185 V tp16222 a(g18 VS tp16223 a(g339 V, tp16224 a(g185 V tp16225 a(g18 VText p16226 tp16227 a(g339 V: tp16228 a(g185 V tp16229 a(g111 Vstring p16230 tp16231 a(g198 V) tp16232 a(g339 V: tp16233 a(g185 V tp16234 a(g135 VBoolean p16235 tp16236 a(g339 V; tp16237 a(g185 V\u000a tp16238 a(g111 Vbegin p16239 tp16240 a(g185 V\u000a p16241 tp16242 a(g60 VResult p16243 tp16244 a(g185 V tp16245 a(g339 V: tp16246 a(g339 V= tp16247 a(g185 V tp16248 a(g18 VPosExText p16249 tp16250 a(g198 V( tp16251 a(g18 VText p16252 tp16253 a(g339 V, tp16254 a(g185 V tp16255 a(g18 VS tp16256 a(g198 V) tp16257 a(g185 V tp16258 a(g339 V> tp16259 a(g185 V tp16260 a(g314 V0 tp16261 a(g339 V; tp16262 a(g185 V\u000a tp16263 a(g111 Vend p16264 tp16265 a(g339 V; tp16266 a(g185 V\u000a\u000a p16267 tp16268 a(g111 Vfunction p16269 tp16270 a(g185 V tp16271 a(g21 VTextIn p16272 tp16273 a(g198 V( tp16274 a(g18 VSL p16275 tp16276 a(g339 V: tp16277 a(g185 V tp16278 a(g18 VTStrings p16279 tp16280 a(g339 V; tp16281 a(g185 V tp16282 a(g111 Vconst p16283 tp16284 a(g185 V tp16285 a(g18 VText p16286 tp16287 a(g339 V: tp16288 a(g185 V tp16289 a(g111 Vstring p16290 tp16291 a(g198 V) tp16292 a(g339 V: tp16293 a(g185 V tp16294 a(g135 VBoolean p16295 tp16296 a(g339 V; tp16297 a(g185 V\u000a tp16298 a(g111 Vvar p16299 tp16300 a(g185 V\u000a p16301 tp16302 a(g18 Vi tp16303 a(g339 V: tp16304 a(g185 V tp16305 a(g135 VInteger p16306 tp16307 a(g339 V; tp16308 a(g185 V\u000a tp16309 a(g111 Vbegin p16310 tp16311 a(g185 V\u000a p16312 tp16313 a(g60 VResult p16314 tp16315 a(g185 V tp16316 a(g339 V: tp16317 a(g339 V= tp16318 a(g185 V tp16319 a(g111 VFalse p16320 tp16321 a(g339 V; tp16322 a(g185 V\u000a p16323 tp16324 a(g111 Vfor p16325 tp16326 a(g185 V tp16327 a(g18 Vi tp16328 a(g185 V tp16329 a(g339 V: tp16330 a(g339 V= tp16331 a(g185 V tp16332 a(g314 V0 tp16333 a(g185 V tp16334 a(g111 Vto p16335 tp16336 a(g185 V tp16337 a(g18 VSL p16338 tp16339 a(g339 V. tp16340 a(g18 VCount p16341 tp16342 a(g339 V- tp16343 a(g314 V1 tp16344 a(g185 V tp16345 a(g111 Vdo p16346 tp16347 a(g185 V tp16348 a(g111 Vbegin p16349 tp16350 a(g185 V\u000a p16351 tp16352 a(g60 VResult p16353 tp16354 a(g185 V tp16355 a(g339 V: tp16356 a(g339 V= tp16357 a(g185 V tp16358 a(g57 VSameText p16359 tp16360 a(g198 V( tp16361 a(g18 VText p16362 tp16363 a(g339 V, tp16364 a(g185 V tp16365 a(g18 VSL p16366 tp16367 a(g198 V[ tp16368 a(g18 Vi tp16369 a(g198 V]) p16370 tp16371 a(g339 V; tp16372 a(g185 V\u000a p16373 tp16374 a(g111 Vif p16375 tp16376 a(g185 V tp16377 a(g60 VResult p16378 tp16379 a(g185 V tp16380 a(g111 Vthen p16381 tp16382 a(g185 V\u000a p16383 tp16384 a(g111 VExit p16385 tp16386 a(g339 V; tp16387 a(g185 V\u000a p16388 tp16389 a(g111 Vend p16390 tp16391 a(g339 V; tp16392 a(g185 V\u000a tp16393 a(g111 Vend p16394 tp16395 a(g339 V; tp16396 a(g185 V\u000a\u000a p16397 tp16398 a(g111 Vfunction p16399 tp16400 a(g185 V tp16401 a(g21 VTextIn p16402 tp16403 a(g198 V( tp16404 a(g18 VA tp16405 a(g339 V: tp16406 a(g185 V tp16407 a(g18 VTStrA p16408 tp16409 a(g339 V; tp16410 a(g185 V tp16411 a(g111 Vconst p16412 tp16413 a(g185 V tp16414 a(g18 VText p16415 tp16416 a(g339 V: tp16417 a(g185 V tp16418 a(g111 Vstring p16419 tp16420 a(g198 V) tp16421 a(g339 V: tp16422 a(g185 V tp16423 a(g135 VBoolean p16424 tp16425 a(g339 V; tp16426 a(g185 V\u000a tp16427 a(g111 Vvar p16428 tp16429 a(g185 V\u000a p16430 tp16431 a(g18 Vi tp16432 a(g339 V: tp16433 a(g185 V tp16434 a(g135 VInteger p16435 tp16436 a(g339 V; tp16437 a(g185 V\u000a tp16438 a(g111 Vbegin p16439 tp16440 a(g185 V\u000a p16441 tp16442 a(g60 VResult p16443 tp16444 a(g185 V tp16445 a(g339 V: tp16446 a(g339 V= tp16447 a(g185 V tp16448 a(g111 VFalse p16449 tp16450 a(g339 V; tp16451 a(g185 V\u000a p16452 tp16453 a(g111 Vfor p16454 tp16455 a(g185 V tp16456 a(g18 Vi tp16457 a(g185 V tp16458 a(g339 V: tp16459 a(g339 V= tp16460 a(g185 V tp16461 a(g57 VLow p16462 tp16463 a(g198 V( tp16464 a(g18 VA tp16465 a(g198 V) tp16466 a(g185 V tp16467 a(g111 Vto p16468 tp16469 a(g185 V tp16470 a(g57 VHigh p16471 tp16472 a(g198 V( tp16473 a(g18 VA tp16474 a(g198 V) tp16475 a(g185 V tp16476 a(g111 Vdo p16477 tp16478 a(g185 V tp16479 a(g111 Vbegin p16480 tp16481 a(g185 V\u000a p16482 tp16483 a(g60 VResult p16484 tp16485 a(g185 V tp16486 a(g339 V: tp16487 a(g339 V= tp16488 a(g185 V tp16489 a(g57 VSameText p16490 tp16491 a(g198 V( tp16492 a(g18 VText p16493 tp16494 a(g339 V, tp16495 a(g185 V tp16496 a(g18 VA tp16497 a(g198 V[ tp16498 a(g18 Vi tp16499 a(g198 V]) p16500 tp16501 a(g339 V; tp16502 a(g185 V\u000a p16503 tp16504 a(g111 Vif p16505 tp16506 a(g185 V tp16507 a(g60 VResult p16508 tp16509 a(g185 V tp16510 a(g111 Vthen p16511 tp16512 a(g185 V\u000a p16513 tp16514 a(g111 VExit p16515 tp16516 a(g339 V; tp16517 a(g185 V\u000a p16518 tp16519 a(g111 Vend p16520 tp16521 a(g339 V; tp16522 a(g185 V\u000a tp16523 a(g111 Vend p16524 tp16525 a(g339 V; tp16526 a(g185 V\u000a\u000a p16527 tp16528 a(g111 Vfunction p16529 tp16530 a(g185 V tp16531 a(g21 VStrIndex p16532 tp16533 a(g198 V( tp16534 a(g18 VSL p16535 tp16536 a(g339 V: tp16537 a(g185 V tp16538 a(g18 VTStrings p16539 tp16540 a(g339 V; tp16541 a(g185 V tp16542 a(g111 Vconst p16543 tp16544 a(g185 V tp16545 a(g18 VS tp16546 a(g339 V: tp16547 a(g185 V tp16548 a(g111 Vstring p16549 tp16550 a(g198 V) tp16551 a(g339 V: tp16552 a(g185 V tp16553 a(g135 VInteger p16554 tp16555 a(g339 V; tp16556 a(g185 V\u000a tp16557 a(g111 Vbegin p16558 tp16559 a(g185 V\u000a p16560 tp16561 a(g111 Vfor p16562 tp16563 a(g185 V tp16564 a(g60 VResult p16565 tp16566 a(g185 V tp16567 a(g339 V: tp16568 a(g339 V= tp16569 a(g185 V tp16570 a(g314 V0 tp16571 a(g185 V tp16572 a(g111 Vto p16573 tp16574 a(g185 V tp16575 a(g18 VSL p16576 tp16577 a(g339 V. tp16578 a(g18 VCount p16579 tp16580 a(g339 V- tp16581 a(g314 V1 tp16582 a(g185 V tp16583 a(g111 Vdo p16584 tp16585 a(g185 V\u000a p16586 tp16587 a(g111 Vif p16588 tp16589 a(g185 V tp16590 a(g18 VS tp16591 a(g185 V tp16592 a(g339 V= tp16593 a(g185 V tp16594 a(g18 VSL p16595 tp16596 a(g198 V[ tp16597 a(g60 VResult p16598 tp16599 a(g198 V] tp16600 a(g185 V tp16601 a(g111 Vthen p16602 tp16603 a(g185 V\u000a p16604 tp16605 a(g111 VExit p16606 tp16607 a(g339 V; tp16608 a(g185 V\u000a p16609 tp16610 a(g60 VResult p16611 tp16612 a(g185 V tp16613 a(g339 V: tp16614 a(g339 V= tp16615 a(g185 V tp16616 a(g339 V- tp16617 a(g314 V1 tp16618 a(g339 V; tp16619 a(g185 V\u000a tp16620 a(g111 Vend p16621 tp16622 a(g339 V; tp16623 a(g185 V\u000a\u000a p16624 tp16625 a(g111 Vfunction p16626 tp16627 a(g185 V tp16628 a(g21 VStrIndex p16629 tp16630 a(g198 V( tp16631 a(g18 VA tp16632 a(g339 V: tp16633 a(g185 V tp16634 a(g18 VTStrA p16635 tp16636 a(g339 V; tp16637 a(g185 V tp16638 a(g111 Vconst p16639 tp16640 a(g185 V tp16641 a(g18 VS tp16642 a(g339 V: tp16643 a(g185 V tp16644 a(g111 Vstring p16645 tp16646 a(g198 V) tp16647 a(g339 V: tp16648 a(g185 V tp16649 a(g135 VInteger p16650 tp16651 a(g339 V; tp16652 a(g185 V\u000a tp16653 a(g111 Vbegin p16654 tp16655 a(g185 V\u000a p16656 tp16657 a(g111 Vfor p16658 tp16659 a(g185 V tp16660 a(g60 VResult p16661 tp16662 a(g185 V tp16663 a(g339 V: tp16664 a(g339 V= tp16665 a(g185 V tp16666 a(g57 VLow p16667 tp16668 a(g198 V( tp16669 a(g18 VA tp16670 a(g198 V) tp16671 a(g185 V tp16672 a(g111 Vto p16673 tp16674 a(g185 V tp16675 a(g57 VHigh p16676 tp16677 a(g198 V( tp16678 a(g18 VA tp16679 a(g198 V) tp16680 a(g185 V tp16681 a(g111 Vdo p16682 tp16683 a(g185 V\u000a p16684 tp16685 a(g111 Vif p16686 tp16687 a(g185 V tp16688 a(g18 VS tp16689 a(g185 V tp16690 a(g339 V= tp16691 a(g185 V tp16692 a(g18 VA tp16693 a(g198 V[ tp16694 a(g60 VResult p16695 tp16696 a(g198 V] tp16697 a(g185 V tp16698 a(g111 Vthen p16699 tp16700 a(g185 V\u000a p16701 tp16702 a(g111 VExit p16703 tp16704 a(g339 V; tp16705 a(g185 V\u000a p16706 tp16707 a(g60 VResult p16708 tp16709 a(g185 V tp16710 a(g339 V: tp16711 a(g339 V= tp16712 a(g185 V tp16713 a(g339 V- tp16714 a(g314 V1 tp16715 a(g339 V; tp16716 a(g185 V\u000a tp16717 a(g111 Vend p16718 tp16719 a(g339 V; tp16720 a(g185 V\u000a\u000a p16721 tp16722 a(g111 Vfunction p16723 tp16724 a(g185 V tp16725 a(g21 VTextIndex p16726 tp16727 a(g198 V( tp16728 a(g18 VSL p16729 tp16730 a(g339 V: tp16731 a(g185 V tp16732 a(g18 VTStrings p16733 tp16734 a(g339 V; tp16735 a(g185 V tp16736 a(g111 Vconst p16737 tp16738 a(g185 V tp16739 a(g18 VText p16740 tp16741 a(g339 V: tp16742 a(g185 V tp16743 a(g111 Vstring p16744 tp16745 a(g198 V) tp16746 a(g339 V: tp16747 a(g185 V tp16748 a(g135 VInteger p16749 tp16750 a(g339 V; tp16751 a(g185 V\u000a tp16752 a(g111 Vbegin p16753 tp16754 a(g185 V\u000a p16755 tp16756 a(g111 Vfor p16757 tp16758 a(g185 V tp16759 a(g60 VResult p16760 tp16761 a(g185 V tp16762 a(g339 V: tp16763 a(g339 V= tp16764 a(g185 V tp16765 a(g314 V0 tp16766 a(g185 V tp16767 a(g111 Vto p16768 tp16769 a(g185 V tp16770 a(g18 VSL p16771 tp16772 a(g339 V. tp16773 a(g18 VCount p16774 tp16775 a(g339 V- tp16776 a(g314 V1 tp16777 a(g185 V tp16778 a(g111 Vdo p16779 tp16780 a(g185 V\u000a p16781 tp16782 a(g111 Vif p16783 tp16784 a(g185 V tp16785 a(g57 VSameText p16786 tp16787 a(g198 V( tp16788 a(g18 VText p16789 tp16790 a(g339 V, tp16791 a(g185 V tp16792 a(g18 VSL p16793 tp16794 a(g198 V[ tp16795 a(g60 VResult p16796 tp16797 a(g198 V]) p16798 tp16799 a(g185 V tp16800 a(g111 Vthen p16801 tp16802 a(g185 V\u000a p16803 tp16804 a(g111 VExit p16805 tp16806 a(g339 V; tp16807 a(g185 V\u000a p16808 tp16809 a(g60 VResult p16810 tp16811 a(g185 V tp16812 a(g339 V: tp16813 a(g339 V= tp16814 a(g185 V tp16815 a(g339 V- tp16816 a(g314 V1 tp16817 a(g339 V; tp16818 a(g185 V\u000a tp16819 a(g111 Vend p16820 tp16821 a(g339 V; tp16822 a(g185 V\u000a\u000a p16823 tp16824 a(g111 Vfunction p16825 tp16826 a(g185 V tp16827 a(g21 VTextIndex p16828 tp16829 a(g198 V( tp16830 a(g18 VA tp16831 a(g339 V: tp16832 a(g185 V tp16833 a(g18 VTStrA p16834 tp16835 a(g339 V; tp16836 a(g185 V tp16837 a(g111 Vconst p16838 tp16839 a(g185 V tp16840 a(g18 VText p16841 tp16842 a(g339 V: tp16843 a(g185 V tp16844 a(g111 Vstring p16845 tp16846 a(g198 V) tp16847 a(g339 V: tp16848 a(g185 V tp16849 a(g135 VInteger p16850 tp16851 a(g339 V; tp16852 a(g185 V\u000a tp16853 a(g111 Vbegin p16854 tp16855 a(g185 V\u000a p16856 tp16857 a(g111 Vfor p16858 tp16859 a(g185 V tp16860 a(g60 VResult p16861 tp16862 a(g185 V tp16863 a(g339 V: tp16864 a(g339 V= tp16865 a(g185 V tp16866 a(g57 VLow p16867 tp16868 a(g198 V( tp16869 a(g18 VA tp16870 a(g198 V) tp16871 a(g185 V tp16872 a(g111 Vto p16873 tp16874 a(g185 V tp16875 a(g57 VHigh p16876 tp16877 a(g198 V( tp16878 a(g18 VA tp16879 a(g198 V) tp16880 a(g185 V tp16881 a(g111 Vdo p16882 tp16883 a(g185 V\u000a p16884 tp16885 a(g111 Vif p16886 tp16887 a(g185 V tp16888 a(g57 VSameText p16889 tp16890 a(g198 V( tp16891 a(g18 VText p16892 tp16893 a(g339 V, tp16894 a(g185 V tp16895 a(g18 VA tp16896 a(g198 V[ tp16897 a(g60 VResult p16898 tp16899 a(g198 V]) p16900 tp16901 a(g185 V tp16902 a(g111 Vthen p16903 tp16904 a(g185 V\u000a p16905 tp16906 a(g111 VExit p16907 tp16908 a(g339 V; tp16909 a(g185 V\u000a p16910 tp16911 a(g60 VResult p16912 tp16913 a(g185 V tp16914 a(g339 V: tp16915 a(g339 V= tp16916 a(g185 V tp16917 a(g339 V- tp16918 a(g314 V1 tp16919 a(g339 V; tp16920 a(g185 V\u000a tp16921 a(g111 Vend p16922 tp16923 a(g339 V; tp16924 a(g185 V\u000a\u000a p16925 tp16926 a(g111 Vfunction p16927 tp16928 a(g185 V tp16929 a(g21 VReplaceChars p16930 tp16931 a(g198 V( tp16932 a(g111 Vconst p16933 tp16934 a(g185 V tp16935 a(g18 VS tp16936 a(g339 V: tp16937 a(g185 V tp16938 a(g111 Vstring p16939 tp16940 a(g339 V; tp16941 a(g185 V tp16942 a(g18 VOld p16943 tp16944 a(g339 V, tp16945 a(g185 V tp16946 a(g111 VNew p16947 tp16948 a(g339 V: tp16949 a(g185 V tp16950 a(g135 VChar p16951 tp16952 a(g198 V) tp16953 a(g339 V: tp16954 a(g185 V tp16955 a(g111 Vstring p16956 tp16957 a(g339 V; tp16958 a(g185 V\u000a tp16959 a(g111 Vvar p16960 tp16961 a(g185 V\u000a p16962 tp16963 a(g18 Vi tp16964 a(g339 V: tp16965 a(g185 V tp16966 a(g135 VInteger p16967 tp16968 a(g339 V; tp16969 a(g185 V\u000a tp16970 a(g111 Vbegin p16971 tp16972 a(g185 V\u000a p16973 tp16974 a(g60 VResult p16975 tp16976 a(g185 V tp16977 a(g339 V: tp16978 a(g339 V= tp16979 a(g185 V tp16980 a(g18 VS tp16981 a(g339 V; tp16982 a(g185 V\u000a p16983 tp16984 a(g111 Vfor p16985 tp16986 a(g185 V tp16987 a(g18 Vi tp16988 a(g185 V tp16989 a(g339 V: tp16990 a(g339 V= tp16991 a(g185 V tp16992 a(g314 V1 tp16993 a(g185 V tp16994 a(g111 Vto p16995 tp16996 a(g185 V tp16997 a(g57 VLength p16998 tp16999 a(g198 V( tp17000 a(g60 VResult p17001 tp17002 a(g198 V) tp17003 a(g185 V tp17004 a(g111 Vdo p17005 tp17006 a(g185 V\u000a p17007 tp17008 a(g111 Vif p17009 tp17010 a(g185 V tp17011 a(g60 VResult p17012 tp17013 a(g198 V[ tp17014 a(g18 Vi tp17015 a(g198 V] tp17016 a(g185 V tp17017 a(g339 V= tp17018 a(g185 V tp17019 a(g18 VOld p17020 tp17021 a(g185 V tp17022 a(g111 Vthen p17023 tp17024 a(g185 V\u000a p17025 tp17026 a(g60 VResult p17027 tp17028 a(g198 V[ tp17029 a(g18 Vi tp17030 a(g198 V] tp17031 a(g185 V tp17032 a(g339 V: tp17033 a(g339 V= tp17034 a(g185 V tp17035 a(g111 VNew p17036 tp17037 a(g339 V; tp17038 a(g185 V\u000a tp17039 a(g111 Vend p17040 tp17041 a(g339 V; tp17042 a(g185 V\u000a\u000a p17043 tp17044 a(g111 Vfunction p17045 tp17046 a(g185 V tp17047 a(g21 VReplaceChars p17048 tp17049 a(g198 V( tp17050 a(g111 Vconst p17051 tp17052 a(g185 V tp17053 a(g18 VS tp17054 a(g339 V: tp17055 a(g185 V tp17056 a(g111 Vstring p17057 tp17058 a(g339 V; tp17059 a(g185 V tp17060 a(g18 VOld p17061 tp17062 a(g339 V: tp17063 a(g185 V tp17064 a(g18 VTCharSet p17065 tp17066 a(g339 V; tp17067 a(g185 V tp17068 a(g111 VNew p17069 tp17070 a(g339 V: tp17071 a(g185 V tp17072 a(g135 VChar p17073 tp17074 a(g198 V) tp17075 a(g339 V: tp17076 a(g185 V tp17077 a(g111 Vstring p17078 tp17079 a(g339 V; tp17080 a(g185 V\u000a tp17081 a(g111 Vvar p17082 tp17083 a(g185 V\u000a p17084 tp17085 a(g18 Vi tp17086 a(g339 V: tp17087 a(g185 V tp17088 a(g135 VInteger p17089 tp17090 a(g339 V; tp17091 a(g185 V\u000a tp17092 a(g111 Vbegin p17093 tp17094 a(g185 V\u000a p17095 tp17096 a(g60 VResult p17097 tp17098 a(g185 V tp17099 a(g339 V: tp17100 a(g339 V= tp17101 a(g185 V tp17102 a(g18 VS tp17103 a(g339 V; tp17104 a(g185 V\u000a p17105 tp17106 a(g111 Vfor p17107 tp17108 a(g185 V tp17109 a(g18 Vi tp17110 a(g185 V tp17111 a(g339 V: tp17112 a(g339 V= tp17113 a(g185 V tp17114 a(g314 V1 tp17115 a(g185 V tp17116 a(g111 Vto p17117 tp17118 a(g185 V tp17119 a(g57 VLength p17120 tp17121 a(g198 V( tp17122 a(g60 VResult p17123 tp17124 a(g198 V) tp17125 a(g185 V tp17126 a(g111 Vdo p17127 tp17128 a(g185 V\u000a p17129 tp17130 a(g111 Vif p17131 tp17132 a(g185 V tp17133 a(g60 VResult p17134 tp17135 a(g198 V[ tp17136 a(g18 Vi tp17137 a(g198 V] tp17138 a(g185 V tp17139 a(g111 Vin p17140 tp17141 a(g185 V tp17142 a(g18 VOld p17143 tp17144 a(g185 V tp17145 a(g111 Vthen p17146 tp17147 a(g185 V\u000a p17148 tp17149 a(g60 VResult p17150 tp17151 a(g198 V[ tp17152 a(g18 Vi tp17153 a(g198 V] tp17154 a(g185 V tp17155 a(g339 V: tp17156 a(g339 V= tp17157 a(g185 V tp17158 a(g111 VNew p17159 tp17160 a(g339 V; tp17161 a(g185 V\u000a tp17162 a(g111 Vend p17163 tp17164 a(g339 V; tp17165 a(g185 V\u000a\u000a p17166 tp17167 a(g111 Vfunction p17168 tp17169 a(g185 V tp17170 a(g21 VReplace p17171 tp17172 a(g198 V( tp17173 a(g111 Vconst p17174 tp17175 a(g185 V tp17176 a(g18 VS tp17177 a(g339 V, tp17178 a(g185 V tp17179 a(g18 VOld p17180 tp17181 a(g339 V, tp17182 a(g185 V tp17183 a(g111 VNew p17184 tp17185 a(g339 V: tp17186 a(g185 V tp17187 a(g111 Vstring p17188 tp17189 a(g198 V) tp17190 a(g339 V: tp17191 a(g185 V tp17192 a(g111 Vstring p17193 tp17194 a(g339 V; tp17195 a(g185 V\u000a tp17196 a(g111 Vvar p17197 tp17198 a(g185 V\u000a p17199 tp17200 a(g18 Voldp p17201 tp17202 a(g339 V, tp17203 a(g185 V tp17204 a(g18 Vps p17205 tp17206 a(g339 V: tp17207 a(g185 V tp17208 a(g135 VInteger p17209 tp17210 a(g339 V; tp17211 a(g185 V\u000a tp17212 a(g111 Vbegin p17213 tp17214 a(g185 V\u000a p17215 tp17216 a(g18 Vps p17217 tp17218 a(g185 V tp17219 a(g339 V: tp17220 a(g339 V= tp17221 a(g185 V tp17222 a(g314 V1 tp17223 a(g339 V; tp17224 a(g185 V\u000a p17225 tp17226 a(g60 VResult p17227 tp17228 a(g185 V tp17229 a(g339 V: tp17230 a(g339 V= tp17231 a(g185 V tp17232 a(g222 V' tp17233 a(g222 V' tp17234 a(g339 V; tp17235 a(g185 V\u000a p17236 tp17237 a(g111 Vwhile p17238 tp17239 a(g185 V tp17240 a(g111 VTrue p17241 tp17242 a(g185 V tp17243 a(g111 Vdo p17244 tp17245 a(g185 V tp17246 a(g111 Vbegin p17247 tp17248 a(g185 V\u000a p17249 tp17250 a(g18 Voldp p17251 tp17252 a(g185 V tp17253 a(g339 V: tp17254 a(g339 V= tp17255 a(g185 V tp17256 a(g18 Vps p17257 tp17258 a(g339 V; tp17259 a(g185 V\u000a p17260 tp17261 a(g18 Vps p17262 tp17263 a(g185 V tp17264 a(g339 V: tp17265 a(g339 V= tp17266 a(g185 V tp17267 a(g18 VPosEx p17268 tp17269 a(g198 V( tp17270 a(g18 VOld p17271 tp17272 a(g339 V, tp17273 a(g185 V tp17274 a(g18 VS tp17275 a(g339 V, tp17276 a(g185 V tp17277 a(g18 Voldp p17278 tp17279 a(g198 V) tp17280 a(g339 V; tp17281 a(g185 V\u000a p17282 tp17283 a(g111 Vif p17284 tp17285 a(g185 V tp17286 a(g18 Vps p17287 tp17288 a(g185 V tp17289 a(g339 V= tp17290 a(g185 V tp17291 a(g314 V0 tp17292 a(g185 V tp17293 a(g111 Vthen p17294 tp17295 a(g185 V tp17296 a(g111 Vbegin p17297 tp17298 a(g185 V\u000a p17299 tp17300 a(g60 VResult p17301 tp17302 a(g185 V tp17303 a(g339 V: tp17304 a(g339 V= tp17305 a(g185 V tp17306 a(g60 VResult p17307 tp17308 a(g185 V tp17309 a(g339 V+ tp17310 a(g185 V tp17311 a(g57 VCopy p17312 tp17313 a(g198 V( tp17314 a(g18 VS tp17315 a(g339 V, tp17316 a(g185 V tp17317 a(g18 Voldp p17318 tp17319 a(g339 V, tp17320 a(g185 V tp17321 a(g57 VLength p17322 tp17323 a(g198 V( tp17324 a(g18 VS tp17325 a(g198 V) tp17326 a(g185 V tp17327 a(g339 V- tp17328 a(g185 V tp17329 a(g18 Voldp p17330 tp17331 a(g185 V tp17332 a(g339 V+ tp17333 a(g185 V tp17334 a(g314 V1 tp17335 a(g198 V) tp17336 a(g339 V; tp17337 a(g185 V\u000a p17338 tp17339 a(g111 VExit p17340 tp17341 a(g339 V; tp17342 a(g185 V tp17343 a(g111 Vend p17344 tp17345 a(g339 V; tp17346 a(g185 V\u000a p17347 tp17348 a(g60 VResult p17349 tp17350 a(g185 V tp17351 a(g339 V: tp17352 a(g339 V= tp17353 a(g185 V tp17354 a(g60 VResult p17355 tp17356 a(g185 V tp17357 a(g339 V+ tp17358 a(g185 V tp17359 a(g57 VCopy p17360 tp17361 a(g198 V( tp17362 a(g18 VS tp17363 a(g339 V, tp17364 a(g185 V tp17365 a(g18 Voldp p17366 tp17367 a(g339 V, tp17368 a(g185 V tp17369 a(g18 Vps p17370 tp17371 a(g185 V tp17372 a(g339 V- tp17373 a(g185 V tp17374 a(g18 Voldp p17375 tp17376 a(g198 V) tp17377 a(g185 V tp17378 a(g339 V+ tp17379 a(g185 V tp17380 a(g111 VNew p17381 tp17382 a(g339 V; tp17383 a(g185 V\u000a p17384 tp17385 a(g57 VInc p17386 tp17387 a(g198 V( tp17388 a(g18 Vps p17389 tp17390 a(g339 V, tp17391 a(g185 V tp17392 a(g57 VLength p17393 tp17394 a(g198 V( tp17395 a(g18 VOld p17396 tp17397 a(g198 V)) p17398 tp17399 a(g339 V; tp17400 a(g185 V\u000a p17401 tp17402 a(g111 Vend p17403 tp17404 a(g339 V; tp17405 a(g185 V\u000a tp17406 a(g111 Vend p17407 tp17408 a(g339 V; tp17409 a(g185 V\u000a\u000a p17410 tp17411 a(g111 Vfunction p17412 tp17413 a(g185 V tp17414 a(g21 VSLOfFile p17415 tp17416 a(g198 V( tp17417 a(g111 Vconst p17418 tp17419 a(g185 V tp17420 a(g18 VFileName p17421 tp17422 a(g339 V: tp17423 a(g185 V tp17424 a(g111 Vstring p17425 tp17426 a(g198 V) tp17427 a(g339 V: tp17428 a(g185 V tp17429 a(g18 VTStringList p17430 tp17431 a(g339 V; tp17432 a(g185 V\u000a tp17433 a(g111 Vbegin p17434 tp17435 a(g185 V\u000a p17436 tp17437 a(g60 VResult p17438 tp17439 a(g185 V tp17440 a(g339 V: tp17441 a(g339 V= tp17442 a(g185 V tp17443 a(g18 VTStringList p17444 tp17445 a(g339 V. tp17446 a(g18 VCreate p17447 tp17448 a(g339 V; tp17449 a(g185 V\u000a p17450 tp17451 a(g111 Vif p17452 tp17453 a(g185 V tp17454 a(g57 VFileExists p17455 tp17456 a(g198 V( tp17457 a(g18 VFileName p17458 tp17459 a(g198 V) tp17460 a(g185 V tp17461 a(g111 Vthen p17462 tp17463 a(g185 V\u000a p17464 tp17465 a(g60 VResult p17466 tp17467 a(g339 V. tp17468 a(g18 VLoadFromFile p17469 tp17470 a(g198 V( tp17471 a(g18 VFileName p17472 tp17473 a(g198 V) tp17474 a(g339 V; tp17475 a(g185 V\u000a tp17476 a(g111 Vend p17477 tp17478 a(g339 V; tp17479 a(g185 V\u000a\u000a p17480 tp17481 a(g111 Vfunction p17482 tp17483 a(g185 V tp17484 a(g21 VContainsEmptyLines p17485 tp17486 a(g198 V( tp17487 a(g18 VSL p17488 tp17489 a(g339 V: tp17490 a(g185 V tp17491 a(g18 VTStrings p17492 tp17493 a(g198 V) tp17494 a(g339 V: tp17495 a(g185 V tp17496 a(g135 VBoolean p17497 tp17498 a(g339 V; tp17499 a(g185 V\u000a tp17500 a(g111 Vbegin p17501 tp17502 a(g185 V\u000a p17503 tp17504 a(g60 VResult p17505 tp17506 a(g185 V tp17507 a(g339 V: tp17508 a(g339 V= tp17509 a(g185 V tp17510 a(g18 VStrIn p17511 tp17512 a(g198 V( tp17513 a(g18 VSL p17514 tp17515 a(g339 V, tp17516 a(g185 V tp17517 a(g222 V' tp17518 a(g222 V' tp17519 a(g198 V) tp17520 a(g339 V; tp17521 a(g185 V\u000a tp17522 a(g111 Vend p17523 tp17524 a(g339 V; tp17525 a(g185 V\u000a\u000a p17526 tp17527 a(g111 Vprocedure p17528 tp17529 a(g185 V tp17530 a(g21 VDeleteEmptyLines p17531 tp17532 a(g198 V( tp17533 a(g18 VSL p17534 tp17535 a(g339 V: tp17536 a(g185 V tp17537 a(g18 VTStrings p17538 tp17539 a(g198 V) tp17540 a(g339 V; tp17541 a(g185 V\u000a tp17542 a(g111 Vvar p17543 tp17544 a(g185 V\u000a p17545 tp17546 a(g18 Vi tp17547 a(g339 V: tp17548 a(g185 V tp17549 a(g135 VInteger p17550 tp17551 a(g339 V; tp17552 a(g185 V\u000a tp17553 a(g111 Vbegin p17554 tp17555 a(g185 V\u000a p17556 tp17557 a(g18 Vi tp17558 a(g185 V tp17559 a(g339 V: tp17560 a(g339 V= tp17561 a(g185 V tp17562 a(g314 V0 tp17563 a(g339 V; tp17564 a(g185 V\u000a p17565 tp17566 a(g111 Vwhile p17567 tp17568 a(g185 V tp17569 a(g18 Vi tp17570 a(g185 V tp17571 a(g339 V< tp17572 a(g185 V tp17573 a(g18 VSL p17574 tp17575 a(g339 V. tp17576 a(g18 VCount p17577 tp17578 a(g185 V tp17579 a(g111 Vdo p17580 tp17581 a(g185 V tp17582 a(g111 Vbegin p17583 tp17584 a(g185 V\u000a p17585 tp17586 a(g111 Vif p17587 tp17588 a(g185 V tp17589 a(g18 VSL p17590 tp17591 a(g198 V[ tp17592 a(g18 Vi tp17593 a(g198 V] tp17594 a(g185 V tp17595 a(g339 V= tp17596 a(g185 V tp17597 a(g222 V' tp17598 a(g222 V' tp17599 a(g185 V tp17600 a(g111 Vthen p17601 tp17602 a(g185 V\u000a p17603 tp17604 a(g18 VSL p17605 tp17606 a(g339 V. tp17607 a(g18 VDelete p17608 tp17609 a(g198 V( tp17610 a(g18 Vi tp17611 a(g198 V) tp17612 a(g185 V\u000a p17613 tp17614 a(g111 Velse p17615 tp17616 a(g185 V\u000a p17617 tp17618 a(g57 VInc p17619 tp17620 a(g198 V( tp17621 a(g18 Vi tp17622 a(g198 V) tp17623 a(g339 V; tp17624 a(g185 V\u000a p17625 tp17626 a(g111 Vend p17627 tp17628 a(g339 V; tp17629 a(g185 V\u000a tp17630 a(g111 Vend p17631 tp17632 a(g339 V; tp17633 a(g185 V\u000a\u000a p17634 tp17635 a(g111 Vprocedure p17636 tp17637 a(g185 V tp17638 a(g21 VDeleteCommentLines p17639 tp17640 a(g198 V( tp17641 a(g18 VSL p17642 tp17643 a(g339 V: tp17644 a(g185 V tp17645 a(g18 VTStrings p17646 tp17647 a(g339 V; tp17648 a(g185 V tp17649 a(g111 Vconst p17650 tp17651 a(g185 V tp17652 a(g18 VCommentSign p17653 tp17654 a(g339 V: tp17655 a(g185 V tp17656 a(g111 Vstring p17657 tp17658 a(g185 V tp17659 a(g339 V= tp17660 a(g185 V tp17661 a(g222 V' tp17662 a(g222 V// p17663 tp17664 a(g222 V' tp17665 a(g198 V) tp17666 a(g339 V; tp17667 a(g185 V\u000a tp17668 a(g111 Vvar p17669 tp17670 a(g185 V\u000a p17671 tp17672 a(g18 Vi tp17673 a(g339 V: tp17674 a(g185 V tp17675 a(g135 VInteger p17676 tp17677 a(g339 V; tp17678 a(g185 V\u000a tp17679 a(g111 Vbegin p17680 tp17681 a(g185 V\u000a p17682 tp17683 a(g18 Vi tp17684 a(g185 V tp17685 a(g339 V: tp17686 a(g339 V= tp17687 a(g185 V tp17688 a(g314 V0 tp17689 a(g339 V; tp17690 a(g185 V\u000a p17691 tp17692 a(g111 Vwhile p17693 tp17694 a(g185 V tp17695 a(g18 Vi tp17696 a(g185 V tp17697 a(g339 V< tp17698 a(g185 V tp17699 a(g18 VSL p17700 tp17701 a(g339 V. tp17702 a(g18 VCount p17703 tp17704 a(g185 V tp17705 a(g111 Vdo p17706 tp17707 a(g185 V tp17708 a(g111 Vbegin p17709 tp17710 a(g185 V\u000a p17711 tp17712 a(g111 Vif p17713 tp17714 a(g185 V tp17715 a(g198 V( tp17716 a(g18 VSL p17717 tp17718 a(g198 V[ tp17719 a(g18 Vi tp17720 a(g198 V] tp17721 a(g185 V tp17722 a(g339 V= tp17723 a(g185 V tp17724 a(g222 V' tp17725 a(g222 V' tp17726 a(g198 V) tp17727 a(g185 V tp17728 a(g111 Vor p17729 tp17730 a(g185 V tp17731 a(g198 V( tp17732 a(g18 VStrAtBegin p17733 tp17734 a(g198 V( tp17735 a(g57 VTrimLeft p17736 tp17737 a(g198 V( tp17738 a(g18 VSL p17739 tp17740 a(g198 V[ tp17741 a(g18 Vi tp17742 a(g198 V]) p17743 tp17744 a(g339 V, tp17745 a(g185 V tp17746 a(g18 VCommentSign p17747 tp17748 a(g198 V)) p17749 tp17750 a(g185 V tp17751 a(g111 Vthen p17752 tp17753 a(g185 V\u000a p17754 tp17755 a(g18 VSL p17756 tp17757 a(g339 V. tp17758 a(g18 VDelete p17759 tp17760 a(g198 V( tp17761 a(g18 Vi tp17762 a(g198 V) tp17763 a(g185 V\u000a p17764 tp17765 a(g111 Velse p17766 tp17767 a(g185 V\u000a p17768 tp17769 a(g57 VInc p17770 tp17771 a(g198 V( tp17772 a(g18 Vi tp17773 a(g198 V) tp17774 a(g339 V; tp17775 a(g185 V\u000a p17776 tp17777 a(g111 Vend p17778 tp17779 a(g339 V; tp17780 a(g185 V\u000a tp17781 a(g111 Vend p17782 tp17783 a(g339 V; tp17784 a(g185 V\u000a\u000a p17785 tp17786 a(g111 Vfunction p17787 tp17788 a(g185 V tp17789 a(g21 VFindLine p17790 tp17791 a(g198 V( tp17792 a(g18 VSL p17793 tp17794 a(g339 V: tp17795 a(g185 V tp17796 a(g18 VTStrings p17797 tp17798 a(g339 V; tp17799 a(g185 V tp17800 a(g111 Vconst p17801 tp17802 a(g185 V tp17803 a(g18 VS tp17804 a(g339 V: tp17805 a(g185 V tp17806 a(g111 Vstring p17807 tp17808 a(g198 V) tp17809 a(g339 V: tp17810 a(g185 V tp17811 a(g135 VInteger p17812 tp17813 a(g339 V; tp17814 a(g185 V\u000a tp17815 a(g111 Vbegin p17816 tp17817 a(g185 V\u000a p17818 tp17819 a(g111 Vfor p17820 tp17821 a(g185 V tp17822 a(g60 VResult p17823 tp17824 a(g185 V tp17825 a(g339 V: tp17826 a(g339 V= tp17827 a(g185 V tp17828 a(g314 V0 tp17829 a(g185 V tp17830 a(g111 Vto p17831 tp17832 a(g185 V tp17833 a(g18 VSL p17834 tp17835 a(g339 V. tp17836 a(g18 VCount p17837 tp17838 a(g339 V- tp17839 a(g314 V1 tp17840 a(g185 V tp17841 a(g111 Vdo p17842 tp17843 a(g185 V\u000a p17844 tp17845 a(g111 Vif p17846 tp17847 a(g185 V tp17848 a(g18 VTextAtBegin p17849 tp17850 a(g198 V( tp17851 a(g18 VSL p17852 tp17853 a(g198 V[ tp17854 a(g60 VResult p17855 tp17856 a(g198 V] tp17857 a(g339 V, tp17858 a(g185 V tp17859 a(g18 VS tp17860 a(g198 V) tp17861 a(g185 V tp17862 a(g111 Vthen p17863 tp17864 a(g185 V\u000a p17865 tp17866 a(g111 VExit p17867 tp17868 a(g339 V; tp17869 a(g185 V\u000a p17870 tp17871 a(g60 VResult p17872 tp17873 a(g185 V tp17874 a(g339 V: tp17875 a(g339 V= tp17876 a(g185 V tp17877 a(g339 V- tp17878 a(g314 V1 tp17879 a(g339 V; tp17880 a(g185 V\u000a tp17881 a(g111 Vend p17882 tp17883 a(g339 V; tp17884 a(g185 V\u000a\u000a p17885 tp17886 a(g111 Vprocedure p17887 tp17888 a(g185 V tp17889 a(g21 VQuickSortSL p17890 tp17891 a(g198 V( tp17892 a(g18 VSL p17893 tp17894 a(g339 V: tp17895 a(g185 V tp17896 a(g18 VTStringList p17897 tp17898 a(g198 V) tp17899 a(g339 V; tp17900 a(g185 V\u000a\u000a p17901 tp17902 a(g111 Vprocedure p17903 tp17904 a(g185 V tp17905 a(g21 VSort p17906 tp17907 a(g198 V( tp17908 a(g18 Vl tp17909 a(g339 V, tp17910 a(g185 V tp17911 a(g18 Vr tp17912 a(g339 V: tp17913 a(g185 V tp17914 a(g135 VInteger p17915 tp17916 a(g198 V) tp17917 a(g339 V; tp17918 a(g185 V\u000a p17919 tp17920 a(g111 Vvar p17921 tp17922 a(g185 V\u000a p17923 tp17924 a(g18 Vi tp17925 a(g339 V, tp17926 a(g18 Vj tp17927 a(g339 V: tp17928 a(g185 V tp17929 a(g135 VInteger p17930 tp17931 a(g339 V; tp17932 a(g185 V\u000a p17933 tp17934 a(g18 Vz tp17935 a(g339 V, tp17936 a(g18 Vx tp17937 a(g339 V: tp17938 a(g185 V tp17939 a(g111 Vstring p17940 tp17941 a(g339 V; tp17942 a(g185 V\u000a p17943 tp17944 a(g111 Vbegin p17945 tp17946 a(g185 V\u000a p17947 tp17948 a(g18 Vi tp17949 a(g185 V tp17950 a(g339 V: tp17951 a(g339 V= tp17952 a(g185 V tp17953 a(g18 Vl tp17954 a(g339 V; tp17955 a(g185 V\u000a p17956 tp17957 a(g18 Vj tp17958 a(g185 V tp17959 a(g339 V: tp17960 a(g339 V= tp17961 a(g185 V tp17962 a(g18 Vr tp17963 a(g339 V; tp17964 a(g185 V\u000a p17965 tp17966 a(g18 Vx tp17967 a(g185 V tp17968 a(g339 V: tp17969 a(g339 V= tp17970 a(g185 V tp17971 a(g18 VSL p17972 tp17973 a(g198 V[( p17974 tp17975 a(g18 Vj tp17976 a(g185 V tp17977 a(g339 V+ tp17978 a(g185 V tp17979 a(g18 Vi tp17980 a(g198 V) tp17981 a(g185 V tp17982 a(g111 Vdiv p17983 tp17984 a(g185 V tp17985 a(g314 V2 tp17986 a(g198 V] tp17987 a(g339 V; tp17988 a(g185 V\u000a p17989 tp17990 a(g111 Vrepeat p17991 tp17992 a(g185 V\u000a p17993 tp17994 a(g111 Vwhile p17995 tp17996 a(g185 V tp17997 a(g18 VSL p17998 tp17999 a(g198 V[ tp18000 a(g18 Vi tp18001 a(g198 V] tp18002 a(g185 V tp18003 a(g339 V< tp18004 a(g185 V tp18005 a(g18 Vx tp18006 a(g185 V tp18007 a(g111 Vdo p18008 tp18009 a(g185 V tp18010 a(g57 VInc p18011 tp18012 a(g198 V( tp18013 a(g18 Vi tp18014 a(g198 V) tp18015 a(g339 V; tp18016 a(g185 V\u000a p18017 tp18018 a(g111 Vwhile p18019 tp18020 a(g185 V tp18021 a(g18 VSL p18022 tp18023 a(g198 V[ tp18024 a(g18 Vj tp18025 a(g198 V] tp18026 a(g185 V tp18027 a(g339 V> tp18028 a(g185 V tp18029 a(g18 Vx tp18030 a(g185 V tp18031 a(g111 Vdo p18032 tp18033 a(g185 V tp18034 a(g57 VDec p18035 tp18036 a(g198 V( tp18037 a(g18 Vj tp18038 a(g198 V) tp18039 a(g339 V; tp18040 a(g185 V\u000a p18041 tp18042 a(g111 Vif p18043 tp18044 a(g185 V tp18045 a(g18 Vi tp18046 a(g185 V tp18047 a(g339 V< tp18048 a(g339 V= tp18049 a(g185 V tp18050 a(g18 Vj tp18051 a(g185 V tp18052 a(g111 Vthen p18053 tp18054 a(g185 V tp18055 a(g111 Vbegin p18056 tp18057 a(g185 V\u000a p18058 tp18059 a(g18 Vz tp18060 a(g185 V tp18061 a(g339 V: tp18062 a(g339 V= tp18063 a(g185 V tp18064 a(g18 VSL p18065 tp18066 a(g198 V[ tp18067 a(g18 Vi tp18068 a(g198 V] tp18069 a(g339 V; tp18070 a(g185 V\u000a p18071 tp18072 a(g18 VSL p18073 tp18074 a(g198 V[ tp18075 a(g18 Vi tp18076 a(g198 V] tp18077 a(g185 V tp18078 a(g339 V: tp18079 a(g339 V= tp18080 a(g185 V tp18081 a(g18 VSL p18082 tp18083 a(g198 V[ tp18084 a(g18 Vj tp18085 a(g198 V] tp18086 a(g339 V; tp18087 a(g185 V\u000a p18088 tp18089 a(g18 VSL p18090 tp18091 a(g198 V[ tp18092 a(g18 Vj tp18093 a(g198 V] tp18094 a(g185 V tp18095 a(g339 V: tp18096 a(g339 V= tp18097 a(g185 V tp18098 a(g18 Vz tp18099 a(g339 V; tp18100 a(g185 V\u000a p18101 tp18102 a(g57 VInc p18103 tp18104 a(g198 V( tp18105 a(g18 Vi tp18106 a(g198 V) tp18107 a(g339 V; tp18108 a(g185 V tp18109 a(g57 VDec p18110 tp18111 a(g198 V( tp18112 a(g18 Vj tp18113 a(g198 V) tp18114 a(g339 V; tp18115 a(g185 V\u000a p18116 tp18117 a(g111 Vend p18118 tp18119 a(g339 V; tp18120 a(g185 V\u000a p18121 tp18122 a(g111 Vuntil p18123 tp18124 a(g185 V tp18125 a(g18 Vi tp18126 a(g185 V tp18127 a(g339 V> tp18128 a(g185 V tp18129 a(g18 Vj tp18130 a(g339 V; tp18131 a(g185 V\u000a p18132 tp18133 a(g111 Vif p18134 tp18135 a(g185 V tp18136 a(g18 Vj tp18137 a(g185 V tp18138 a(g339 V> tp18139 a(g185 V tp18140 a(g18 Vl tp18141 a(g185 V tp18142 a(g111 Vthen p18143 tp18144 a(g185 V tp18145 a(g18 VSort p18146 tp18147 a(g198 V( tp18148 a(g18 Vl tp18149 a(g339 V, tp18150 a(g185 V tp18151 a(g18 Vj tp18152 a(g198 V) tp18153 a(g339 V; tp18154 a(g185 V\u000a p18155 tp18156 a(g111 Vif p18157 tp18158 a(g185 V tp18159 a(g18 Vi tp18160 a(g185 V tp18161 a(g339 V< tp18162 a(g185 V tp18163 a(g18 Vr tp18164 a(g185 V tp18165 a(g111 Vthen p18166 tp18167 a(g185 V tp18168 a(g18 VSort p18169 tp18170 a(g198 V( tp18171 a(g18 Vi tp18172 a(g339 V, tp18173 a(g185 V tp18174 a(g18 Vr tp18175 a(g198 V) tp18176 a(g339 V; tp18177 a(g185 V\u000a p18178 tp18179 a(g111 Vend p18180 tp18181 a(g339 V; tp18182 a(g185 V\u000a\u000a p18183 tp18184 a(g111 Vbegin p18185 tp18186 a(g185 V\u000a p18187 tp18188 a(g111 Vif p18189 tp18190 a(g185 V tp18191 a(g18 VSL p18192 tp18193 a(g339 V. tp18194 a(g18 VCount p18195 tp18196 a(g185 V tp18197 a(g339 V> tp18198 a(g185 V tp18199 a(g314 V0 tp18200 a(g185 V tp18201 a(g111 Vthen p18202 tp18203 a(g185 V\u000a p18204 tp18205 a(g18 VSort p18206 tp18207 a(g198 V( tp18208 a(g314 V0 tp18209 a(g339 V, tp18210 a(g185 V tp18211 a(g18 VSL p18212 tp18213 a(g339 V. tp18214 a(g18 VCount p18215 tp18216 a(g339 V- tp18217 a(g314 V1 tp18218 a(g198 V) tp18219 a(g339 V; tp18220 a(g185 V\u000a tp18221 a(g111 Vend p18222 tp18223 a(g339 V; tp18224 a(g185 V\u000a\u000a p18225 tp18226 a(g111 Vfunction p18227 tp18228 a(g185 V tp18229 a(g21 VIncStrA p18230 tp18231 a(g198 V( tp18232 a(g18 VStrA p18233 tp18234 a(g339 V: tp18235 a(g185 V tp18236 a(g18 VTStrA p18237 tp18238 a(g198 V) tp18239 a(g339 V: tp18240 a(g185 V tp18241 a(g135 VInteger p18242 tp18243 a(g339 V; tp18244 a(g185 V\u000a tp18245 a(g111 Vbegin p18246 tp18247 a(g185 V\u000a p18248 tp18249 a(g57 VSetLength p18250 tp18251 a(g198 V( tp18252 a(g18 VStrA p18253 tp18254 a(g339 V, tp18255 a(g185 V tp18256 a(g57 VLength p18257 tp18258 a(g198 V( tp18259 a(g18 VStrA p18260 tp18261 a(g198 V) tp18262 a(g185 V tp18263 a(g339 V+ tp18264 a(g185 V tp18265 a(g314 V1 tp18266 a(g198 V) tp18267 a(g339 V; tp18268 a(g185 V\u000a p18269 tp18270 a(g60 VResult p18271 tp18272 a(g185 V tp18273 a(g339 V: tp18274 a(g339 V= tp18275 a(g185 V tp18276 a(g57 VHigh p18277 tp18278 a(g198 V( tp18279 a(g18 VStrA p18280 tp18281 a(g198 V) tp18282 a(g339 V; tp18283 a(g185 V\u000a tp18284 a(g111 Vend p18285 tp18286 a(g339 V; tp18287 a(g185 V\u000a\u000a p18288 tp18289 a(g111 Vfunction p18290 tp18291 a(g185 V tp18292 a(g21 VStrOfByteA p18293 tp18294 a(g198 V( tp18295 a(g18 Va tp18296 a(g339 V: tp18297 a(g185 V tp18298 a(g18 VTByteA p18299 tp18300 a(g198 V) tp18301 a(g339 V: tp18302 a(g185 V tp18303 a(g111 Vstring p18304 tp18305 a(g339 V; tp18306 a(g185 V\u000a tp18307 a(g111 Vbegin p18308 tp18309 a(g185 V\u000a p18310 tp18311 a(g60 VResult p18312 tp18313 a(g185 V tp18314 a(g339 V: tp18315 a(g339 V= tp18316 a(g185 V tp18317 a(g111 Vstring p18318 tp18319 a(g198 V( tp18320 a(g57 VCopy p18321 tp18322 a(g198 V( tp18323 a(g18 Va tp18324 a(g339 V, tp18325 a(g185 V tp18326 a(g314 V0 tp18327 a(g339 V, tp18328 a(g185 V tp18329 a(g57 VLength p18330 tp18331 a(g198 V( tp18332 a(g18 Va tp18333 a(g198 V))) p18334 tp18335 a(g339 V; tp18336 a(g185 V\u000a tp18337 a(g111 Vend p18338 tp18339 a(g339 V; tp18340 a(g185 V\u000a\u000a p18341 tp18342 a(g111 Vfunction p18343 tp18344 a(g185 V tp18345 a(g21 VByteAOfStr p18346 tp18347 a(g198 V( tp18348 a(g111 Vconst p18349 tp18350 a(g185 V tp18351 a(g18 VS tp18352 a(g339 V: tp18353 a(g185 V tp18354 a(g111 Vstring p18355 tp18356 a(g198 V) tp18357 a(g339 V: tp18358 a(g185 V tp18359 a(g18 VTByteA p18360 tp18361 a(g339 V; tp18362 a(g185 V\u000a tp18363 a(g111 Vbegin p18364 tp18365 a(g185 V\u000a p18366 tp18367 a(g60 VResult p18368 tp18369 a(g185 V tp18370 a(g339 V: tp18371 a(g339 V= tp18372 a(g185 V tp18373 a(g18 VTByteA p18374 tp18375 a(g198 V( tp18376 a(g57 VCopy p18377 tp18378 a(g198 V( tp18379 a(g18 VS tp18380 a(g339 V, tp18381 a(g185 V tp18382 a(g314 V1 tp18383 a(g339 V, tp18384 a(g185 V tp18385 a(g57 VLength p18386 tp18387 a(g198 V( tp18388 a(g18 Vs tp18389 a(g198 V))) p18390 tp18391 a(g339 V; tp18392 a(g185 V\u000a tp18393 a(g111 Vend p18394 tp18395 a(g339 V; tp18396 a(g185 V\u000a\u000a p18397 tp18398 a(g111 Vfunction p18399 tp18400 a(g185 V tp18401 a(g21 VByteAOfInt p18402 tp18403 a(g198 V( tp18404 a(g18 Vi tp18405 a(g339 V: tp18406 a(g185 V tp18407 a(g135 VInteger p18408 tp18409 a(g198 V) tp18410 a(g339 V: tp18411 a(g185 V tp18412 a(g18 VTByteA p18413 tp18414 a(g339 V; tp18415 a(g185 V\u000a tp18416 a(g111 Vbegin p18417 tp18418 a(g185 V\u000a p18419 tp18420 a(g57 VSetLength p18421 tp18422 a(g198 V( tp18423 a(g60 VResult p18424 tp18425 a(g339 V, tp18426 a(g185 V tp18427 a(g57 VSizeOf p18428 tp18429 a(g198 V( tp18430 a(g135 VInteger p18431 tp18432 a(g198 V)) p18433 tp18434 a(g339 V; tp18435 a(g185 V\u000a p18436 tp18437 a(g57 VMove p18438 tp18439 a(g198 V( tp18440 a(g18 Vi tp18441 a(g339 V, tp18442 a(g185 V tp18443 a(g135 VPointer p18444 tp18445 a(g198 V( tp18446 a(g60 VResult p18447 tp18448 a(g198 V) tp18449 a(g339 V^ tp18450 a(g339 V, tp18451 a(g185 V tp18452 a(g57 VSizeOf p18453 tp18454 a(g198 V( tp18455 a(g135 VInteger p18456 tp18457 a(g198 V)) p18458 tp18459 a(g339 V; tp18460 a(g185 V\u000a tp18461 a(g111 Vend p18462 tp18463 a(g339 V; tp18464 a(g185 V\u000a\u000a p18465 tp18466 a(g111 Vfunction p18467 tp18468 a(g185 V tp18469 a(g21 VIntOfByteA p18470 tp18471 a(g198 V( tp18472 a(g18 VA tp18473 a(g339 V: tp18474 a(g185 V tp18475 a(g18 VTByteA p18476 tp18477 a(g198 V) tp18478 a(g339 V: tp18479 a(g185 V tp18480 a(g135 VInteger p18481 tp18482 a(g339 V; tp18483 a(g185 V\u000a tp18484 a(g111 Vbegin p18485 tp18486 a(g185 V\u000a p18487 tp18488 a(g60 VResult p18489 tp18490 a(g185 V tp18491 a(g339 V: tp18492 a(g339 V= tp18493 a(g185 V tp18494 a(g314 V0 tp18495 a(g339 V; tp18496 a(g185 V\u000a p18497 tp18498 a(g57 VMove p18499 tp18500 a(g198 V( tp18501 a(g135 VPointer p18502 tp18503 a(g198 V( tp18504 a(g18 VA tp18505 a(g198 V) tp18506 a(g339 V^ tp18507 a(g339 V, tp18508 a(g185 V tp18509 a(g60 VResult p18510 tp18511 a(g339 V, tp18512 a(g185 V tp18513 a(g57 VMin p18514 tp18515 a(g198 V( tp18516 a(g57 VLength p18517 tp18518 a(g198 V( tp18519 a(g18 VA tp18520 a(g198 V) tp18521 a(g339 V, tp18522 a(g185 V tp18523 a(g57 VSizeOf p18524 tp18525 a(g198 V( tp18526 a(g135 VInteger p18527 tp18528 a(g198 V))) p18529 tp18530 a(g339 V; tp18531 a(g185 V\u000a tp18532 a(g111 Vend p18533 tp18534 a(g339 V; tp18535 a(g185 V\u000a\u000a p18536 tp18537 a(g111 Vfunction p18538 tp18539 a(g185 V tp18540 a(g21 VByteAOfHex p18541 tp18542 a(g198 V( tp18543 a(g111 Vconst p18544 tp18545 a(g185 V tp18546 a(g18 VHex p18547 tp18548 a(g339 V: tp18549 a(g185 V tp18550 a(g111 Vstring p18551 tp18552 a(g198 V) tp18553 a(g339 V: tp18554 a(g185 V tp18555 a(g18 VTByteA p18556 tp18557 a(g339 V; tp18558 a(g185 V\u000a tp18559 a(g111 Vvar p18560 tp18561 a(g185 V\u000a p18562 tp18563 a(g18 Vi tp18564 a(g339 V: tp18565 a(g185 V tp18566 a(g135 VInteger p18567 tp18568 a(g339 V; tp18569 a(g185 V\u000a p18570 tp18571 a(g18 Vh tp18572 a(g339 V: tp18573 a(g185 V tp18574 a(g111 Vstring p18575 tp18576 a(g339 V; tp18577 a(g185 V\u000a tp18578 a(g111 Vbegin p18579 tp18580 a(g185 V\u000a p18581 tp18582 a(g18 Vh tp18583 a(g185 V tp18584 a(g339 V: tp18585 a(g339 V= tp18586 a(g185 V tp18587 a(g18 VExtractChars p18588 tp18589 a(g198 V( tp18590 a(g18 VHex p18591 tp18592 a(g339 V, tp18593 a(g185 V tp18594 a(g18 VHexadecimalChars p18595 tp18596 a(g198 V) tp18597 a(g339 V; tp18598 a(g185 V\u000a p18599 tp18600 a(g57 VSetLength p18601 tp18602 a(g198 V( tp18603 a(g60 VResult p18604 tp18605 a(g339 V, tp18606 a(g185 V tp18607 a(g57 VLength p18608 tp18609 a(g198 V( tp18610 a(g18 Vh tp18611 a(g198 V) tp18612 a(g185 V tp18613 a(g111 Vdiv p18614 tp18615 a(g185 V tp18616 a(g314 V2 tp18617 a(g198 V) tp18618 a(g339 V; tp18619 a(g185 V\u000a p18620 tp18621 a(g111 Vfor p18622 tp18623 a(g185 V tp18624 a(g18 Vi tp18625 a(g185 V tp18626 a(g339 V: tp18627 a(g339 V= tp18628 a(g185 V tp18629 a(g314 V0 tp18630 a(g185 V tp18631 a(g111 Vto p18632 tp18633 a(g185 V tp18634 a(g57 VHigh p18635 tp18636 a(g198 V( tp18637 a(g60 VResult p18638 tp18639 a(g198 V) tp18640 a(g185 V tp18641 a(g111 Vdo p18642 tp18643 a(g185 V\u000a p18644 tp18645 a(g60 VResult p18646 tp18647 a(g198 V[ tp18648 a(g18 Vi tp18649 a(g198 V] tp18650 a(g185 V tp18651 a(g339 V: tp18652 a(g339 V= tp18653 a(g185 V tp18654 a(g18 VByteOfHex p18655 tp18656 a(g198 V( tp18657 a(g57 VCopy p18658 tp18659 a(g198 V( tp18660 a(g18 Vh tp18661 a(g339 V, tp18662 a(g185 V tp18663 a(g198 V( tp18664 a(g18 Vi tp18665 a(g185 V tp18666 a(g111 Vshl p18667 tp18668 a(g185 V tp18669 a(g314 V1 tp18670 a(g198 V) tp18671 a(g185 V tp18672 a(g339 V+ tp18673 a(g185 V tp18674 a(g314 V1 tp18675 a(g339 V, tp18676 a(g185 V tp18677 a(g314 V2 tp18678 a(g198 V)) p18679 tp18680 a(g339 V; tp18681 a(g185 V\u000a tp18682 a(g111 Vend p18683 tp18684 a(g339 V; tp18685 a(g185 V\u000a\u000a p18686 tp18687 a(g111 Vfunction p18688 tp18689 a(g185 V tp18690 a(g21 VSizeOfFile p18691 tp18692 a(g198 V( tp18693 a(g111 Vconst p18694 tp18695 a(g185 V tp18696 a(g18 VFileName p18697 tp18698 a(g339 V: tp18699 a(g185 V tp18700 a(g111 Vstring p18701 tp18702 a(g198 V) tp18703 a(g339 V: tp18704 a(g185 V tp18705 a(g135 VInteger p18706 tp18707 a(g339 V; tp18708 a(g185 V\u000a tp18709 a(g111 Vvar p18710 tp18711 a(g185 V\u000a p18712 tp18713 a(g18 VF tp18714 a(g339 V: tp18715 a(g185 V tp18716 a(g111 Vfile p18717 tp18718 a(g339 V; tp18719 a(g185 V\u000a tp18720 a(g111 Vbegin p18721 tp18722 a(g185 V\u000a p18723 tp18724 a(g57 VAssignFile p18725 tp18726 a(g198 V( tp18727 a(g18 VF tp18728 a(g339 V, tp18729 a(g185 V tp18730 a(g18 VFileName p18731 tp18732 a(g198 V) tp18733 a(g339 V; tp18734 a(g185 V\u000a p18735 tp18736 a(g354 V{$I-} p18737 tp18738 a(g57 VReset p18739 tp18740 a(g198 V( tp18741 a(g18 VF tp18742 a(g339 V, tp18743 a(g185 V tp18744 a(g314 V1 tp18745 a(g198 V) tp18746 a(g339 V; tp18747 a(g354 V{$I+} p18748 tp18749 a(g185 V\u000a p18750 tp18751 a(g111 Vif p18752 tp18753 a(g185 V tp18754 a(g57 VIOResult p18755 tp18756 a(g185 V tp18757 a(g339 V= tp18758 a(g185 V tp18759 a(g314 V0 tp18760 a(g185 V tp18761 a(g111 Vthen p18762 tp18763 a(g185 V tp18764 a(g111 Vbegin p18765 tp18766 a(g185 V\u000a p18767 tp18768 a(g60 VResult p18769 tp18770 a(g185 V tp18771 a(g339 V: tp18772 a(g339 V= tp18773 a(g185 V tp18774 a(g57 VFileSize p18775 tp18776 a(g198 V( tp18777 a(g18 VF tp18778 a(g198 V) tp18779 a(g339 V; tp18780 a(g185 V\u000a p18781 tp18782 a(g57 VCloseFile p18783 tp18784 a(g198 V( tp18785 a(g18 VF tp18786 a(g198 V) tp18787 a(g339 V; tp18788 a(g185 V\u000a p18789 tp18790 a(g111 Vend p18791 tp18792 a(g185 V tp18793 a(g111 Velse p18794 tp18795 a(g185 V\u000a p18796 tp18797 a(g60 VResult p18798 tp18799 a(g185 V tp18800 a(g339 V: tp18801 a(g339 V= tp18802 a(g185 V tp18803 a(g314 V0 tp18804 a(g339 V; tp18805 a(g185 V\u000a tp18806 a(g111 Vend p18807 tp18808 a(g339 V; tp18809 a(g185 V\u000a\u000a p18810 tp18811 a(g111 Vfunction p18812 tp18813 a(g185 V tp18814 a(g21 VFileEx p18815 tp18816 a(g198 V( tp18817 a(g111 Vconst p18818 tp18819 a(g185 V tp18820 a(g18 VFileName p18821 tp18822 a(g339 V: tp18823 a(g185 V tp18824 a(g111 Vstring p18825 tp18826 a(g339 V; tp18827 a(g185 V tp18828 a(g18 VAllowFolders p18829 tp18830 a(g339 V: tp18831 a(g185 V tp18832 a(g135 VBoolean p18833 tp18834 a(g185 V tp18835 a(g339 V= tp18836 a(g185 V tp18837 a(g111 VFalse p18838 tp18839 a(g198 V) tp18840 a(g339 V: tp18841 a(g185 V tp18842 a(g135 VBoolean p18843 tp18844 a(g339 V; tp18845 a(g185 V\u000a tp18846 a(g111 Vvar p18847 tp18848 a(g185 V\u000a p18849 tp18850 a(g18 VFindData p18851 tp18852 a(g339 V: tp18853 a(g185 V tp18854 a(g18 VTWin32FindData p18855 tp18856 a(g339 V; tp18857 a(g185 V\u000a tp18858 a(g111 Vbegin p18859 tp18860 a(g185 V\u000a p18861 tp18862 a(g111 Vif p18863 tp18864 a(g185 V tp18865 a(g18 VFileName p18866 tp18867 a(g185 V tp18868 a(g339 V= tp18869 a(g185 V tp18870 a(g222 V' tp18871 a(g222 V' tp18872 a(g185 V tp18873 a(g111 Vthen p18874 tp18875 a(g185 V tp18876 a(g111 Vbegin p18877 tp18878 a(g185 V\u000a p18879 tp18880 a(g60 VResult p18881 tp18882 a(g185 V tp18883 a(g339 V: tp18884 a(g339 V= tp18885 a(g185 V tp18886 a(g111 VFalse p18887 tp18888 a(g339 V; tp18889 a(g185 V\u000a p18890 tp18891 a(g111 VExit p18892 tp18893 a(g339 V; tp18894 a(g185 V tp18895 a(g111 Vend p18896 tp18897 a(g339 V; tp18898 a(g185 V\u000a\u000a p18899 tp18900 a(g60 VResult p18901 tp18902 a(g185 V tp18903 a(g339 V: tp18904 a(g339 V= tp18905 a(g185 V tp18906 a(g198 V( tp18907 a(g18 VAllowFolders p18908 tp18909 a(g185 V tp18910 a(g111 Vand p18911 tp18912 a(g185 V tp18913 a(g57 VDirectoryExists p18914 tp18915 a(g198 V( tp18916 a(g18 VFileName p18917 tp18918 a(g198 V)) p18919 tp18920 a(g185 V tp18921 a(g111 Vor p18922 tp18923 a(g185 V\u000a p18924 tp18925 a(g198 V( tp18926 a(g18 VFindFirstFile p18927 tp18928 a(g198 V( tp18929 a(g135 VPChar p18930 tp18931 a(g198 V( tp18932 a(g18 VFileName p18933 tp18934 a(g198 V) tp18935 a(g339 V, tp18936 a(g185 V tp18937 a(g18 VFindData p18938 tp18939 a(g198 V) tp18940 a(g185 V tp18941 a(g339 V< tp18942 a(g339 V> tp18943 a(g185 V tp18944 a(g18 VINVALID_HANDLE_VALUE p18945 tp18946 a(g198 V) tp18947 a(g339 V; tp18948 a(g185 V\u000a p18949 tp18950 a(g60 VResult p18951 tp18952 a(g185 V tp18953 a(g339 V: tp18954 a(g339 V= tp18955 a(g185 V tp18956 a(g60 VResult p18957 tp18958 a(g185 V tp18959 a(g111 Vand p18960 tp18961 a(g185 V tp18962 a(g111 Vnot p18963 tp18964 a(g185 V tp18965 a(g18 VCharIn p18966 tp18967 a(g198 V( tp18968 a(g18 VFileName p18969 tp18970 a(g339 V, tp18971 a(g185 V tp18972 a(g18 VWildCards p18973 tp18974 a(g198 V) tp18975 a(g339 V; tp18976 a(g185 V\u000a p18977 tp18978 a(g60 VResult p18979 tp18980 a(g185 V tp18981 a(g339 V: tp18982 a(g339 V= tp18983 a(g185 V tp18984 a(g60 VResult p18985 tp18986 a(g185 V tp18987 a(g111 Vand p18988 tp18989 a(g185 V tp18990 a(g198 V( tp18991 a(g18 VAllowFolders p18992 tp18993 a(g185 V\u000a p18994 tp18995 a(g111 Vor p18996 tp18997 a(g185 V tp18998 a(g198 V(( p18999 tp19000 a(g18 VFindData p19001 tp19002 a(g339 V. tp19003 a(g18 VdwFileAttributes p19004 tp19005 a(g185 V tp19006 a(g111 Vand p19007 tp19008 a(g185 V tp19009 a(g18 VFILE_ATTRIBUTE_DIRECTORY p19010 tp19011 a(g198 V) tp19012 a(g185 V tp19013 a(g339 V= tp19014 a(g185 V tp19015 a(g314 V0 tp19016 a(g198 V)) p19017 tp19018 a(g339 V; tp19019 a(g185 V\u000a tp19020 a(g111 Vend p19021 tp19022 a(g339 V; tp19023 a(g185 V\u000a\u000a p19024 tp19025 a(g111 Vfunction p19026 tp19027 a(g185 V tp19028 a(g21 VLWPSolve p19029 tp19030 a(g198 V( tp19031 a(g111 Vconst p19032 tp19033 a(g185 V tp19034 a(g18 VDir p19035 tp19036 a(g339 V: tp19037 a(g185 V tp19038 a(g111 Vstring p19039 tp19040 a(g198 V) tp19041 a(g339 V: tp19042 a(g185 V tp19043 a(g111 Vstring p19044 tp19045 a(g339 V; tp19046 a(g185 V\u000a tp19047 a(g111 Vbegin p19048 tp19049 a(g185 V\u000a p19050 tp19051 a(g111 Vif p19052 tp19053 a(g185 V tp19054 a(g198 V( tp19055 a(g18 VDir p19056 tp19057 a(g185 V tp19058 a(g339 V< tp19059 a(g339 V> tp19060 a(g185 V tp19061 a(g222 V' tp19062 a(g222 V' tp19063 a(g198 V) tp19064 a(g185 V tp19065 a(g111 Vand p19066 tp19067 a(g185 V tp19068 a(g198 V( tp19069 a(g18 VDir p19070 tp19071 a(g198 V[ tp19072 a(g57 VLength p19073 tp19074 a(g198 V( tp19075 a(g18 VDir p19076 tp19077 a(g198 V)] p19078 tp19079 a(g185 V tp19080 a(g339 V= tp19081 a(g185 V tp19082 a(g222 V' tp19083 a(g222 V\u005c tp19084 a(g222 V' tp19085 a(g198 V) tp19086 a(g185 V tp19087 a(g111 Vthen p19088 tp19089 a(g185 V tp19090 a(g111 Vbegin p19091 tp19092 a(g185 V\u000a p19093 tp19094 a(g60 VResult p19095 tp19096 a(g185 V tp19097 a(g339 V: tp19098 a(g339 V= tp19099 a(g185 V tp19100 a(g57 VCopy p19101 tp19102 a(g198 V( tp19103 a(g18 VDir p19104 tp19105 a(g339 V, tp19106 a(g185 V tp19107 a(g314 V1 tp19108 a(g339 V, tp19109 a(g185 V tp19110 a(g57 VLength p19111 tp19112 a(g198 V( tp19113 a(g18 VDir p19114 tp19115 a(g198 V) tp19116 a(g185 V tp19117 a(g339 V- tp19118 a(g185 V tp19119 a(g314 V1 tp19120 a(g198 V) tp19121 a(g339 V; tp19122 a(g185 V\u000a p19123 tp19124 a(g111 Vend p19125 tp19126 a(g185 V tp19127 a(g111 Velse p19128 tp19129 a(g185 V\u000a p19130 tp19131 a(g60 VResult p19132 tp19133 a(g185 V tp19134 a(g339 V: tp19135 a(g339 V= tp19136 a(g185 V tp19137 a(g18 VDir p19138 tp19139 a(g339 V; tp19140 a(g185 V\u000a tp19141 a(g111 Vend p19142 tp19143 a(g339 V; tp19144 a(g185 V\u000a\u000a p19145 tp19146 a(g111 Vfunction p19147 tp19148 a(g185 V tp19149 a(g21 VLWPSlash p19150 tp19151 a(g198 V( tp19152 a(g111 Vconst p19153 tp19154 a(g185 V tp19155 a(g18 VDir p19156 tp19157 a(g339 V: tp19158 a(g185 V tp19159 a(g111 Vstring p19160 tp19161 a(g198 V) tp19162 a(g339 V: tp19163 a(g185 V tp19164 a(g111 Vstring p19165 tp19166 a(g339 V; tp19167 a(g185 V\u000a tp19168 a(g111 Vbegin p19169 tp19170 a(g185 V\u000a p19171 tp19172 a(g111 Vif p19173 tp19174 a(g185 V tp19175 a(g198 V( tp19176 a(g18 VDir p19177 tp19178 a(g185 V tp19179 a(g339 V< tp19180 a(g339 V> tp19181 a(g185 V tp19182 a(g222 V' tp19183 a(g222 V' tp19184 a(g198 V) tp19185 a(g185 V tp19186 a(g111 Vand p19187 tp19188 a(g185 V tp19189 a(g198 V( tp19190 a(g18 VDir p19191 tp19192 a(g198 V[ tp19193 a(g57 VLength p19194 tp19195 a(g198 V( tp19196 a(g18 VDir p19197 tp19198 a(g198 V)] p19199 tp19200 a(g185 V tp19201 a(g339 V= tp19202 a(g185 V tp19203 a(g222 V' tp19204 a(g222 V\u005c tp19205 a(g222 V' tp19206 a(g198 V) tp19207 a(g185 V tp19208 a(g111 Vthen p19209 tp19210 a(g185 V tp19211 a(g111 Vbegin p19212 tp19213 a(g185 V\u000a p19214 tp19215 a(g60 VResult p19216 tp19217 a(g185 V tp19218 a(g339 V: tp19219 a(g339 V= tp19220 a(g185 V tp19221 a(g57 VCopy p19222 tp19223 a(g198 V( tp19224 a(g18 VDir p19225 tp19226 a(g339 V, tp19227 a(g185 V tp19228 a(g314 V1 tp19229 a(g339 V, tp19230 a(g185 V tp19231 a(g57 VLength p19232 tp19233 a(g198 V( tp19234 a(g18 VDir p19235 tp19236 a(g198 V)) p19237 tp19238 a(g339 V; tp19239 a(g185 V\u000a p19240 tp19241 a(g111 Vend p19242 tp19243 a(g185 V tp19244 a(g111 Velse p19245 tp19246 a(g185 V\u000a p19247 tp19248 a(g60 VResult p19249 tp19250 a(g185 V tp19251 a(g339 V: tp19252 a(g339 V= tp19253 a(g185 V tp19254 a(g18 VDir p19255 tp19256 a(g185 V tp19257 a(g339 V+ tp19258 a(g185 V tp19259 a(g222 V' tp19260 a(g222 V\u005c tp19261 a(g222 V' tp19262 a(g339 V; tp19263 a(g185 V\u000a tp19264 a(g111 Vend p19265 tp19266 a(g339 V; tp19267 a(g185 V\u000a\u000a p19268 tp19269 a(g111 Vfunction p19270 tp19271 a(g185 V tp19272 a(g21 VExtractDrive p19273 tp19274 a(g198 V( tp19275 a(g111 Vconst p19276 tp19277 a(g185 V tp19278 a(g18 VFileName p19279 tp19280 a(g339 V: tp19281 a(g185 V tp19282 a(g111 Vstring p19283 tp19284 a(g198 V) tp19285 a(g339 V: tp19286 a(g185 V tp19287 a(g111 Vstring p19288 tp19289 a(g339 V; tp19290 a(g185 V\u000a tp19291 a(g111 Vbegin p19292 tp19293 a(g185 V\u000a p19294 tp19295 a(g60 VResult p19296 tp19297 a(g185 V tp19298 a(g339 V: tp19299 a(g339 V= tp19300 a(g185 V tp19301 a(g222 V' tp19302 a(g222 V' tp19303 a(g339 V; tp19304 a(g185 V\u000a p19305 tp19306 a(g111 Vif p19307 tp19308 a(g185 V tp19309 a(g198 V( tp19310 a(g57 VLength p19311 tp19312 a(g198 V( tp19313 a(g18 VFileName p19314 tp19315 a(g198 V) tp19316 a(g185 V tp19317 a(g339 V> tp19318 a(g339 V= tp19319 a(g185 V tp19320 a(g314 V2 tp19321 a(g198 V) tp19322 a(g185 V tp19323 a(g111 Vand p19324 tp19325 a(g185 V tp19326 a(g198 V( tp19327 a(g18 VFileName p19328 tp19329 a(g198 V[ tp19330 a(g314 V2 tp19331 a(g198 V] tp19332 a(g185 V tp19333 a(g339 V= tp19334 a(g185 V tp19335 a(g222 V' tp19336 a(g222 V: tp19337 a(g222 V' tp19338 a(g198 V) tp19339 a(g185 V tp19340 a(g111 Vthen p19341 tp19342 a(g185 V\u000a p19343 tp19344 a(g60 VResult p19345 tp19346 a(g185 V tp19347 a(g339 V: tp19348 a(g339 V= tp19349 a(g185 V tp19350 a(g57 VUpperCase p19351 tp19352 a(g198 V( tp19353 a(g18 VFileName p19354 tp19355 a(g198 V[ tp19356 a(g314 V1 tp19357 a(g198 V] tp19358 a(g185 V tp19359 a(g339 V+ tp19360 a(g185 V tp19361 a(g222 V' tp19362 a(g222 V:\u005c p19363 tp19364 a(g222 V' tp19365 a(g198 V) tp19366 a(g339 V; tp19367 a(g185 V\u000a tp19368 a(g111 Vend p19369 tp19370 a(g339 V; tp19371 a(g185 V\u000a\u000a p19372 tp19373 a(g111 Vfunction p19374 tp19375 a(g185 V tp19376 a(g21 VExtractPath p19377 tp19378 a(g198 V( tp19379 a(g111 Vconst p19380 tp19381 a(g185 V tp19382 a(g18 VFileName p19383 tp19384 a(g339 V: tp19385 a(g185 V tp19386 a(g111 Vstring p19387 tp19388 a(g198 V) tp19389 a(g339 V: tp19390 a(g185 V tp19391 a(g111 Vstring p19392 tp19393 a(g339 V; tp19394 a(g185 V\u000a tp19395 a(g111 Vvar p19396 tp19397 a(g185 V\u000a p19398 tp19399 a(g18 Vp tp19400 a(g339 V: tp19401 a(g185 V tp19402 a(g135 VInteger p19403 tp19404 a(g339 V; tp19405 a(g185 V\u000a tp19406 a(g111 Vbegin p19407 tp19408 a(g185 V\u000a p19409 tp19410 a(g18 Vp tp19411 a(g185 V tp19412 a(g339 V: tp19413 a(g339 V= tp19414 a(g185 V tp19415 a(g18 VCharPosR p19416 tp19417 a(g198 V( tp19418 a(g222 V' tp19419 a(g222 V\u005c tp19420 a(g222 V' tp19421 a(g339 V, tp19422 a(g185 V tp19423 a(g18 VFileName p19424 tp19425 a(g198 V) tp19426 a(g339 V; tp19427 a(g185 V\u000a p19428 tp19429 a(g111 Vif p19430 tp19431 a(g185 V tp19432 a(g18 VP tp19433 a(g185 V tp19434 a(g339 V> tp19435 a(g185 V tp19436 a(g314 V0 tp19437 a(g185 V tp19438 a(g111 Vthen p19439 tp19440 a(g185 V\u000a p19441 tp19442 a(g60 VResult p19443 tp19444 a(g185 V tp19445 a(g339 V: tp19446 a(g339 V= tp19447 a(g185 V tp19448 a(g57 VCopy p19449 tp19450 a(g198 V( tp19451 a(g18 VFileName p19452 tp19453 a(g339 V, tp19454 a(g185 V tp19455 a(g314 V1 tp19456 a(g339 V, tp19457 a(g185 V tp19458 a(g18 Vp tp19459 a(g198 V) tp19460 a(g185 V\u000a p19461 tp19462 a(g111 Velse p19463 tp19464 a(g185 V\u000a p19465 tp19466 a(g60 VResult p19467 tp19468 a(g185 V tp19469 a(g339 V: tp19470 a(g339 V= tp19471 a(g185 V tp19472 a(g18 VFileName p19473 tp19474 a(g339 V; tp19475 a(g185 V\u000a tp19476 a(g111 Vend p19477 tp19478 a(g339 V; tp19479 a(g185 V\u000a\u000a p19480 tp19481 a(g111 Vfunction p19482 tp19483 a(g185 V tp19484 a(g21 VExtractPrefix p19485 tp19486 a(g198 V( tp19487 a(g111 Vconst p19488 tp19489 a(g185 V tp19490 a(g18 VFileName p19491 tp19492 a(g339 V: tp19493 a(g185 V tp19494 a(g111 Vstring p19495 tp19496 a(g198 V) tp19497 a(g339 V: tp19498 a(g185 V tp19499 a(g111 Vstring p19500 tp19501 a(g339 V; tp19502 a(g185 V\u000a tp19503 a(g111 Vbegin p19504 tp19505 a(g185 V\u000a p19506 tp19507 a(g60 VResult p19508 tp19509 a(g185 V tp19510 a(g339 V: tp19511 a(g339 V= tp19512 a(g185 V tp19513 a(g18 VUntilLastChar p19514 tp19515 a(g198 V( tp19516 a(g57 VExtractFileName p19517 tp19518 a(g198 V( tp19519 a(g18 VFileName p19520 tp19521 a(g198 V) tp19522 a(g339 V, tp19523 a(g185 V tp19524 a(g222 V' tp19525 a(g222 V. tp19526 a(g222 V' tp19527 a(g198 V) tp19528 a(g339 V; tp19529 a(g185 V\u000a tp19530 a(g111 Vend p19531 tp19532 a(g339 V; tp19533 a(g185 V\u000a\u000a p19534 tp19535 a(g111 Vfunction p19536 tp19537 a(g185 V tp19538 a(g21 VExtractSuffix p19539 tp19540 a(g198 V( tp19541 a(g111 Vconst p19542 tp19543 a(g185 V tp19544 a(g18 VFileName p19545 tp19546 a(g339 V: tp19547 a(g185 V tp19548 a(g111 Vstring p19549 tp19550 a(g198 V) tp19551 a(g339 V: tp19552 a(g185 V tp19553 a(g111 Vstring p19554 tp19555 a(g339 V; tp19556 a(g185 V\u000a tp19557 a(g111 Vbegin p19558 tp19559 a(g185 V\u000a p19560 tp19561 a(g60 VResult p19562 tp19563 a(g185 V tp19564 a(g339 V: tp19565 a(g339 V= tp19566 a(g185 V tp19567 a(g18 VFromLastChar p19568 tp19569 a(g198 V( tp19570 a(g57 VExtractFileName p19571 tp19572 a(g198 V( tp19573 a(g18 VFileName p19574 tp19575 a(g198 V) tp19576 a(g339 V, tp19577 a(g185 V tp19578 a(g222 V' tp19579 a(g222 V. tp19580 a(g222 V' tp19581 a(g198 V) tp19582 a(g339 V; tp19583 a(g185 V\u000a tp19584 a(g111 Vend p19585 tp19586 a(g339 V; tp19587 a(g185 V\u000a\u000a p19588 tp19589 a(g111 Vfunction p19590 tp19591 a(g185 V tp19592 a(g21 VSameByteA p19593 tp19594 a(g198 V( tp19595 a(g111 Vconst p19596 tp19597 a(g185 V tp19598 a(g18 VA tp19599 a(g339 V, tp19600 a(g185 V tp19601 a(g18 VB tp19602 a(g339 V: tp19603 a(g185 V tp19604 a(g18 VTByteA p19605 tp19606 a(g198 V) tp19607 a(g339 V: tp19608 a(g185 V tp19609 a(g135 VBoolean p19610 tp19611 a(g339 V; tp19612 a(g185 V\u000a tp19613 a(g111 Vbegin p19614 tp19615 a(g185 V\u000a p19616 tp19617 a(g60 VResult p19618 tp19619 a(g185 V tp19620 a(g339 V: tp19621 a(g339 V= tp19622 a(g185 V tp19623 a(g198 V( tp19624 a(g18 VA tp19625 a(g185 V tp19626 a(g339 V= tp19627 a(g185 V tp19628 a(g18 VB tp19629 a(g198 V) tp19630 a(g185 V tp19631 a(g111 Vor p19632 tp19633 a(g185 V tp19634 a(g198 V(( p19635 tp19636 a(g57 VLength p19637 tp19638 a(g198 V( tp19639 a(g18 VA tp19640 a(g198 V) tp19641 a(g185 V tp19642 a(g339 V= tp19643 a(g185 V tp19644 a(g57 VLength p19645 tp19646 a(g198 V( tp19647 a(g18 VB tp19648 a(g198 V)) p19649 tp19650 a(g185 V tp19651 a(g111 Vand p19652 tp19653 a(g185 V tp19654 a(g57 VCompareMem p19655 tp19656 a(g198 V( tp19657 a(g18 VA tp19658 a(g339 V, tp19659 a(g185 V tp19660 a(g18 VB tp19661 a(g339 V, tp19662 a(g185 V tp19663 a(g57 VLength p19664 tp19665 a(g198 V( tp19666 a(g18 VA tp19667 a(g198 V))) p19668 tp19669 a(g339 V; tp19670 a(g185 V\u000a tp19671 a(g111 Vend p19672 tp19673 a(g339 V; tp19674 a(g185 V\u000a\u000a p19675 tp19676 a(g111 Vfunction p19677 tp19678 a(g185 V tp19679 a(g21 VReverse p19680 tp19681 a(g198 V( tp19682 a(g18 VA tp19683 a(g339 V: tp19684 a(g185 V tp19685 a(g18 VTByteA p19686 tp19687 a(g198 V) tp19688 a(g339 V: tp19689 a(g185 V tp19690 a(g18 VTByteA p19691 tp19692 a(g339 V; tp19693 a(g185 V\u000a tp19694 a(g111 Vvar p19695 tp19696 a(g185 V\u000a p19697 tp19698 a(g18 Vi tp19699 a(g339 V: tp19700 a(g185 V tp19701 a(g135 VInteger p19702 tp19703 a(g339 V; tp19704 a(g185 V\u000a tp19705 a(g111 Vbegin p19706 tp19707 a(g185 V\u000a p19708 tp19709 a(g57 VSetLength p19710 tp19711 a(g198 V( tp19712 a(g60 VResult p19713 tp19714 a(g339 V, tp19715 a(g185 V tp19716 a(g57 VLength p19717 tp19718 a(g198 V( tp19719 a(g18 VA tp19720 a(g198 V)) p19721 tp19722 a(g339 V; tp19723 a(g185 V\u000a\u000a p19724 tp19725 a(g111 Vfor p19726 tp19727 a(g185 V tp19728 a(g18 Vi tp19729 a(g185 V tp19730 a(g339 V: tp19731 a(g339 V= tp19732 a(g185 V tp19733 a(g314 V0 tp19734 a(g185 V tp19735 a(g111 Vto p19736 tp19737 a(g185 V tp19738 a(g57 VHigh p19739 tp19740 a(g198 V( tp19741 a(g18 VA tp19742 a(g198 V) tp19743 a(g185 V tp19744 a(g111 Vdo p19745 tp19746 a(g185 V\u000a p19747 tp19748 a(g60 VResult p19749 tp19750 a(g198 V[ tp19751 a(g57 VHigh p19752 tp19753 a(g198 V( tp19754 a(g60 VResult p19755 tp19756 a(g198 V) tp19757 a(g185 V tp19758 a(g339 V- tp19759 a(g185 V tp19760 a(g18 Vi tp19761 a(g198 V] tp19762 a(g185 V tp19763 a(g339 V: tp19764 a(g339 V= tp19765 a(g185 V tp19766 a(g18 VA tp19767 a(g198 V[ tp19768 a(g18 Vi tp19769 a(g198 V] tp19770 a(g339 V; tp19771 a(g185 V\u000a tp19772 a(g111 Vend p19773 tp19774 a(g339 V; tp19775 a(g185 V\u000a\u000a p19776 tp19777 a(g111 Vfunction p19778 tp19779 a(g185 V tp19780 a(g21 VEndian p19781 tp19782 a(g198 V( tp19783 a(g18 Vi tp19784 a(g339 V: tp19785 a(g185 V tp19786 a(g135 VInteger p19787 tp19788 a(g198 V) tp19789 a(g339 V: tp19790 a(g185 V tp19791 a(g135 VInteger p19792 tp19793 a(g339 V; tp19794 a(g185 V\u000a tp19795 a(g111 Vtype p19796 tp19797 a(g185 V\u000a p19798 tp19799 a(g18 VEndianArray p19800 tp19801 a(g185 V tp19802 a(g339 V= tp19803 a(g185 V tp19804 a(g111 Vpacked p19805 tp19806 a(g185 V tp19807 a(g111 Varray p19808 tp19809 a(g198 V[ tp19810 a(g314 V0 tp19811 a(g339 V. tp19812 a(g339 V. tp19813 a(g314 V3 tp19814 a(g198 V] tp19815 a(g185 V tp19816 a(g111 Vof p19817 tp19818 a(g185 V tp19819 a(g135 VByte p19820 tp19821 a(g339 V; tp19822 a(g185 V\u000a tp19823 a(g111 Vvar p19824 tp19825 a(g185 V\u000a p19826 tp19827 a(g18 Va tp19828 a(g339 V, tp19829 a(g185 V tp19830 a(g18 Vb tp19831 a(g339 V: tp19832 a(g185 V tp19833 a(g18 VEndianArray p19834 tp19835 a(g339 V; tp19836 a(g185 V\u000a tp19837 a(g111 Vbegin p19838 tp19839 a(g185 V\u000a p19840 tp19841 a(g18 Va tp19842 a(g185 V tp19843 a(g339 V: tp19844 a(g339 V= tp19845 a(g185 V tp19846 a(g18 VEndianArray p19847 tp19848 a(g198 V( tp19849 a(g18 Vi tp19850 a(g198 V) tp19851 a(g339 V; tp19852 a(g185 V\u000a p19853 tp19854 a(g18 Vb tp19855 a(g198 V[ tp19856 a(g314 V0 tp19857 a(g198 V] tp19858 a(g185 V tp19859 a(g339 V: tp19860 a(g339 V= tp19861 a(g185 V tp19862 a(g18 Va tp19863 a(g198 V[ tp19864 a(g314 V3 tp19865 a(g198 V] tp19866 a(g339 V; tp19867 a(g185 V\u000a p19868 tp19869 a(g18 Vb tp19870 a(g198 V[ tp19871 a(g314 V1 tp19872 a(g198 V] tp19873 a(g185 V tp19874 a(g339 V: tp19875 a(g339 V= tp19876 a(g185 V tp19877 a(g18 Va tp19878 a(g198 V[ tp19879 a(g314 V2 tp19880 a(g198 V] tp19881 a(g339 V; tp19882 a(g185 V\u000a p19883 tp19884 a(g18 Vb tp19885 a(g198 V[ tp19886 a(g314 V2 tp19887 a(g198 V] tp19888 a(g185 V tp19889 a(g339 V: tp19890 a(g339 V= tp19891 a(g185 V tp19892 a(g18 Va tp19893 a(g198 V[ tp19894 a(g314 V1 tp19895 a(g198 V] tp19896 a(g339 V; tp19897 a(g185 V\u000a p19898 tp19899 a(g18 Vb tp19900 a(g198 V[ tp19901 a(g314 V3 tp19902 a(g198 V] tp19903 a(g185 V tp19904 a(g339 V: tp19905 a(g339 V= tp19906 a(g185 V tp19907 a(g18 Va tp19908 a(g198 V[ tp19909 a(g314 V0 tp19910 a(g198 V] tp19911 a(g339 V; tp19912 a(g185 V\u000a p19913 tp19914 a(g60 VResult p19915 tp19916 a(g185 V tp19917 a(g339 V: tp19918 a(g339 V= tp19919 a(g185 V tp19920 a(g135 VInteger p19921 tp19922 a(g198 V( tp19923 a(g18 Vb tp19924 a(g198 V) tp19925 a(g339 V; tp19926 a(g185 V\u000a tp19927 a(g111 Vend p19928 tp19929 a(g339 V; tp19930 a(g185 V\u000a\u000a p19931 tp19932 a(g111 Vfunction p19933 tp19934 a(g185 V tp19935 a(g21 VSaveByteA p19936 tp19937 a(g198 V( tp19938 a(g18 VData p19939 tp19940 a(g339 V: tp19941 a(g185 V tp19942 a(g18 VTByteA p19943 tp19944 a(g339 V; tp19945 a(g185 V tp19946 a(g111 Vconst p19947 tp19948 a(g185 V tp19949 a(g18 VFileName p19950 tp19951 a(g339 V: tp19952 a(g185 V tp19953 a(g111 Vstring p19954 tp19955 a(g339 V; tp19956 a(g185 V\u000a p19957 tp19958 a(g18 VOverwrite p19959 tp19960 a(g339 V: tp19961 a(g185 V tp19962 a(g135 VBoolean p19963 tp19964 a(g185 V tp19965 a(g339 V= tp19966 a(g185 V tp19967 a(g111 VTrue p19968 tp19969 a(g198 V) tp19970 a(g339 V: tp19971 a(g185 V tp19972 a(g135 VBoolean p19973 tp19974 a(g339 V; tp19975 a(g185 V\u000a tp19976 a(g111 Vvar p19977 tp19978 a(g185 V\u000a p19979 tp19980 a(g18 VF tp19981 a(g339 V: tp19982 a(g185 V tp19983 a(g111 Vfile p19984 tp19985 a(g339 V; tp19986 a(g185 V\u000a tp19987 a(g111 Vbegin p19988 tp19989 a(g185 V\u000a p19990 tp19991 a(g111 Vif p19992 tp19993 a(g185 V tp19994 a(g57 VFileExists p19995 tp19996 a(g198 V( tp19997 a(g18 VFileName p19998 tp19999 a(g198 V) tp20000 a(g185 V tp20001 a(g111 Vand p20002 tp20003 a(g185 V tp20004 a(g111 Vnot p20005 tp20006 a(g185 V tp20007 a(g18 VOverwrite p20008 tp20009 a(g185 V tp20010 a(g111 Vthen p20011 tp20012 a(g185 V tp20013 a(g111 Vbegin p20014 tp20015 a(g185 V\u000a p20016 tp20017 a(g60 VResult p20018 tp20019 a(g185 V tp20020 a(g339 V: tp20021 a(g339 V= tp20022 a(g185 V tp20023 a(g111 VFalse p20024 tp20025 a(g339 V; tp20026 a(g185 V\u000a p20027 tp20028 a(g111 VExit p20029 tp20030 a(g185 V tp20031 a(g111 Vend p20032 tp20033 a(g339 V; tp20034 a(g185 V\u000a\u000a p20035 tp20036 a(g57 VAssignFile p20037 tp20038 a(g198 V( tp20039 a(g18 VF tp20040 a(g339 V, tp20041 a(g185 V tp20042 a(g18 VFileName p20043 tp20044 a(g198 V) tp20045 a(g339 V; tp20046 a(g185 V\u000a p20047 tp20048 a(g354 V{$I-} p20049 tp20050 a(g57 VRewrite p20051 tp20052 a(g198 V( tp20053 a(g18 VF tp20054 a(g339 V, tp20055 a(g185 V tp20056 a(g314 V1 tp20057 a(g198 V) tp20058 a(g339 V; tp20059 a(g354 V{$I+} p20060 tp20061 a(g185 V\u000a p20062 tp20063 a(g111 Vif p20064 tp20065 a(g185 V tp20066 a(g57 VIOResult p20067 tp20068 a(g185 V tp20069 a(g339 V= tp20070 a(g185 V tp20071 a(g314 V0 tp20072 a(g185 V tp20073 a(g111 Vthen p20074 tp20075 a(g185 V tp20076 a(g111 Vbegin p20077 tp20078 a(g185 V\u000a p20079 tp20080 a(g111 Vif p20081 tp20082 a(g185 V tp20083 a(g57 VLength p20084 tp20085 a(g198 V( tp20086 a(g18 VData p20087 tp20088 a(g198 V) tp20089 a(g185 V tp20090 a(g339 V> tp20091 a(g185 V tp20092 a(g314 V0 tp20093 a(g185 V tp20094 a(g111 Vthen p20095 tp20096 a(g185 V\u000a p20097 tp20098 a(g57 VBlockWrite p20099 tp20100 a(g198 V( tp20101 a(g18 VF tp20102 a(g339 V, tp20103 a(g185 V tp20104 a(g18 VData p20105 tp20106 a(g198 V[ tp20107 a(g314 V0 tp20108 a(g198 V] tp20109 a(g339 V, tp20110 a(g185 V tp20111 a(g57 VLength p20112 tp20113 a(g198 V( tp20114 a(g18 VData p20115 tp20116 a(g198 V)) p20117 tp20118 a(g339 V; tp20119 a(g185 V\u000a p20120 tp20121 a(g57 VCloseFile p20122 tp20123 a(g198 V( tp20124 a(g18 VF tp20125 a(g198 V) tp20126 a(g339 V; tp20127 a(g185 V\u000a p20128 tp20129 a(g60 VResult p20130 tp20131 a(g185 V tp20132 a(g339 V: tp20133 a(g339 V= tp20134 a(g185 V tp20135 a(g111 VTrue p20136 tp20137 a(g339 V; tp20138 a(g185 V\u000a p20139 tp20140 a(g111 Vend p20141 tp20142 a(g185 V tp20143 a(g111 Velse p20144 tp20145 a(g185 V\u000a p20146 tp20147 a(g60 VResult p20148 tp20149 a(g185 V tp20150 a(g339 V: tp20151 a(g339 V= tp20152 a(g185 V tp20153 a(g111 VFalse p20154 tp20155 a(g339 V; tp20156 a(g185 V\u000a tp20157 a(g111 Vend p20158 tp20159 a(g339 V; tp20160 a(g185 V\u000a\u000a p20161 tp20162 a(g111 Vfunction p20163 tp20164 a(g185 V tp20165 a(g21 VLoadByteA p20166 tp20167 a(g198 V( tp20168 a(g111 Vconst p20169 tp20170 a(g185 V tp20171 a(g18 VFileName p20172 tp20173 a(g339 V: tp20174 a(g185 V tp20175 a(g111 Vstring p20176 tp20177 a(g198 V) tp20178 a(g339 V: tp20179 a(g185 V tp20180 a(g18 VTByteA p20181 tp20182 a(g339 V; tp20183 a(g185 V\u000a tp20184 a(g111 Vvar p20185 tp20186 a(g185 V\u000a p20187 tp20188 a(g18 VF tp20189 a(g339 V: tp20190 a(g185 V tp20191 a(g111 Vfile p20192 tp20193 a(g339 V; tp20194 a(g185 V\u000a tp20195 a(g111 Vbegin p20196 tp20197 a(g185 V\u000a p20198 tp20199 a(g57 VAssignFile p20200 tp20201 a(g198 V( tp20202 a(g18 VF tp20203 a(g339 V, tp20204 a(g185 V tp20205 a(g18 VFileName p20206 tp20207 a(g198 V) tp20208 a(g339 V; tp20209 a(g185 V\u000a p20210 tp20211 a(g354 V{$I-} p20212 tp20213 a(g57 VReset p20214 tp20215 a(g198 V( tp20216 a(g18 VF tp20217 a(g339 V, tp20218 a(g185 V tp20219 a(g314 V1 tp20220 a(g198 V) tp20221 a(g339 V; tp20222 a(g354 V{$I+} p20223 tp20224 a(g185 V\u000a p20225 tp20226 a(g111 Vif p20227 tp20228 a(g185 V tp20229 a(g57 VIOResult p20230 tp20231 a(g185 V tp20232 a(g339 V= tp20233 a(g185 V tp20234 a(g314 V0 tp20235 a(g185 V tp20236 a(g111 Vthen p20237 tp20238 a(g185 V tp20239 a(g111 Vbegin p20240 tp20241 a(g185 V\u000a p20242 tp20243 a(g57 VSetLength p20244 tp20245 a(g198 V( tp20246 a(g60 VResult p20247 tp20248 a(g339 V, tp20249 a(g185 V tp20250 a(g57 VFileSize p20251 tp20252 a(g198 V( tp20253 a(g18 VF tp20254 a(g198 V)) p20255 tp20256 a(g339 V; tp20257 a(g185 V\u000a p20258 tp20259 a(g111 Vif p20260 tp20261 a(g185 V tp20262 a(g57 VLength p20263 tp20264 a(g198 V( tp20265 a(g60 VResult p20266 tp20267 a(g198 V) tp20268 a(g185 V tp20269 a(g339 V> tp20270 a(g185 V tp20271 a(g314 V0 tp20272 a(g185 V tp20273 a(g111 Vthen p20274 tp20275 a(g185 V\u000a p20276 tp20277 a(g57 VBlockRead p20278 tp20279 a(g198 V( tp20280 a(g18 VF tp20281 a(g339 V, tp20282 a(g185 V tp20283 a(g60 VResult p20284 tp20285 a(g198 V[ tp20286 a(g314 V0 tp20287 a(g198 V] tp20288 a(g339 V, tp20289 a(g185 V tp20290 a(g57 VFileSize p20291 tp20292 a(g198 V( tp20293 a(g18 VF tp20294 a(g198 V)) p20295 tp20296 a(g339 V; tp20297 a(g185 V\u000a p20298 tp20299 a(g57 VCloseFile p20300 tp20301 a(g198 V( tp20302 a(g18 VF tp20303 a(g198 V) tp20304 a(g339 V; tp20305 a(g185 V\u000a p20306 tp20307 a(g111 Vend p20308 tp20309 a(g185 V tp20310 a(g111 Velse p20311 tp20312 a(g185 V\u000a p20313 tp20314 a(g57 VSetLength p20315 tp20316 a(g198 V( tp20317 a(g60 VResult p20318 tp20319 a(g339 V, tp20320 a(g185 V tp20321 a(g314 V0 tp20322 a(g198 V) tp20323 a(g339 V; tp20324 a(g185 V\u000a tp20325 a(g111 Vend p20326 tp20327 a(g339 V; tp20328 a(g185 V\u000a\u000a p20329 tp20330 a(g111 Vfunction p20331 tp20332 a(g185 V tp20333 a(g21 VIsValidFileName p20334 tp20335 a(g198 V( tp20336 a(g111 Vconst p20337 tp20338 a(g185 V tp20339 a(g18 VFileName p20340 tp20341 a(g339 V: tp20342 a(g185 V tp20343 a(g111 Vstring p20344 tp20345 a(g198 V) tp20346 a(g339 V: tp20347 a(g185 V tp20348 a(g135 VBoolean p20349 tp20350 a(g339 V; tp20351 a(g185 V\u000a tp20352 a(g111 Vbegin p20353 tp20354 a(g185 V\u000a p20355 tp20356 a(g60 VResult p20357 tp20358 a(g185 V tp20359 a(g339 V: tp20360 a(g339 V= tp20361 a(g185 V tp20362 a(g198 V( tp20363 a(g18 VFileName p20364 tp20365 a(g185 V tp20366 a(g339 V< tp20367 a(g339 V> tp20368 a(g185 V tp20369 a(g222 V' tp20370 a(g222 V' tp20371 a(g198 V) tp20372 a(g185 V tp20373 a(g111 Vand p20374 tp20375 a(g185 V tp20376 a(g111 Vnot p20377 tp20378 a(g185 V tp20379 a(g18 VCharIn p20380 tp20381 a(g198 V( tp20382 a(g18 VFileName p20383 tp20384 a(g339 V, tp20385 a(g185 V tp20386 a(g18 VFileNameEnemies p20387 tp20388 a(g198 V) tp20389 a(g185 V\u000a p20390 tp20391 a(g111 Vand p20392 tp20393 a(g185 V tp20394 a(g18 VCharIn p20395 tp20396 a(g198 V( tp20397 a(g57 VTrim p20398 tp20399 a(g198 V( tp20400 a(g18 VFileName p20401 tp20402 a(g198 V) tp20403 a(g339 V, tp20404 a(g185 V tp20405 a(g18 VAllChars p20406 tp20407 a(g185 V tp20408 a(g339 V- tp20409 a(g185 V tp20410 a(g198 V[ tp20411 a(g222 V' tp20412 a(g222 V. tp20413 a(g222 V' tp20414 a(g198 V]) p20415 tp20416 a(g339 V; tp20417 a(g185 V\u000a tp20418 a(g111 Vend p20419 tp20420 a(g339 V; tp20421 a(g185 V\u000a\u000a p20422 tp20423 a(g111 Vfunction p20424 tp20425 a(g185 V tp20426 a(g21 VMakeValidFileName p20427 tp20428 a(g198 V( tp20429 a(g18 VFileName p20430 tp20431 a(g339 V: tp20432 a(g185 V tp20433 a(g111 Vstring p20434 tp20435 a(g339 V; tp20436 a(g185 V tp20437 a(g111 Vconst p20438 tp20439 a(g185 V tp20440 a(g119 VDefault p20441 tp20442 a(g339 V: tp20443 a(g185 V tp20444 a(g111 Vstring p20445 tp20446 a(g185 V tp20447 a(g339 V= tp20448 a(g185 V tp20449 a(g222 V' tp20450 a(g222 VFile p20451 tp20452 a(g222 V' tp20453 a(g198 V) tp20454 a(g339 V: tp20455 a(g185 V tp20456 a(g111 Vstring p20457 tp20458 a(g339 V; tp20459 a(g185 V\u000a tp20460 a(g111 Vbegin p20461 tp20462 a(g185 V\u000a p20463 tp20464 a(g111 Vif p20465 tp20466 a(g185 V tp20467 a(g18 VFileName p20468 tp20469 a(g185 V tp20470 a(g339 V= tp20471 a(g185 V tp20472 a(g222 V' tp20473 a(g222 V' tp20474 a(g185 V tp20475 a(g111 Vthen p20476 tp20477 a(g185 V\u000a p20478 tp20479 a(g18 VFileName p20480 tp20481 a(g185 V tp20482 a(g339 V: tp20483 a(g339 V= tp20484 a(g185 V tp20485 a(g119 VDefault p20486 tp20487 a(g339 V; tp20488 a(g185 V\u000a\u000a p20489 tp20490 a(g111 Vif p20491 tp20492 a(g185 V tp20493 a(g18 VCharIn p20494 tp20495 a(g198 V( tp20496 a(g18 VFileName p20497 tp20498 a(g339 V, tp20499 a(g185 V tp20500 a(g18 VFileNameEnemies p20501 tp20502 a(g198 V) tp20503 a(g185 V tp20504 a(g111 Vthen p20505 tp20506 a(g185 V\u000a p20507 tp20508 a(g60 VResult p20509 tp20510 a(g185 V tp20511 a(g339 V: tp20512 a(g339 V= tp20513 a(g185 V tp20514 a(g18 VReplaceChars p20515 tp20516 a(g198 V( tp20517 a(g18 VFileName p20518 tp20519 a(g339 V, tp20520 a(g185 V tp20521 a(g18 VFileNameEnemies p20522 tp20523 a(g339 V, tp20524 a(g185 V tp20525 a(g222 V' tp20526 a(g222 V_ tp20527 a(g222 V' tp20528 a(g198 V) tp20529 a(g185 V\u000a p20530 tp20531 a(g111 Velse p20532 tp20533 a(g185 V tp20534 a(g111 Vif p20535 tp20536 a(g185 V tp20537 a(g111 Vnot p20538 tp20539 a(g185 V tp20540 a(g18 VCharIn p20541 tp20542 a(g198 V( tp20543 a(g57 VTrim p20544 tp20545 a(g198 V( tp20546 a(g18 VFileName p20547 tp20548 a(g198 V) tp20549 a(g339 V, tp20550 a(g185 V tp20551 a(g18 VAllChars p20552 tp20553 a(g185 V tp20554 a(g339 V- tp20555 a(g185 V tp20556 a(g198 V[ tp20557 a(g222 V' tp20558 a(g222 V. tp20559 a(g222 V' tp20560 a(g198 V]) p20561 tp20562 a(g185 V tp20563 a(g111 Vthen p20564 tp20565 a(g185 V\u000a p20566 tp20567 a(g60 VResult p20568 tp20569 a(g185 V tp20570 a(g339 V: tp20571 a(g339 V= tp20572 a(g185 V tp20573 a(g119 VDefault p20574 tp20575 a(g185 V\u000a p20576 tp20577 a(g111 Velse p20578 tp20579 a(g185 V\u000a p20580 tp20581 a(g60 VResult p20582 tp20583 a(g185 V tp20584 a(g339 V: tp20585 a(g339 V= tp20586 a(g185 V tp20587 a(g18 VFileName p20588 tp20589 a(g339 V; tp20590 a(g185 V\u000a tp20591 a(g111 Vend p20592 tp20593 a(g339 V; tp20594 a(g185 V\u000a\u000a p20595 tp20596 a(g111 Vfunction p20597 tp20598 a(g185 V tp20599 a(g21 VIsValidInteger p20600 tp20601 a(g198 V( tp20602 a(g111 Vconst p20603 tp20604 a(g185 V tp20605 a(g18 VS tp20606 a(g339 V: tp20607 a(g185 V tp20608 a(g111 Vstring p20609 tp20610 a(g198 V) tp20611 a(g339 V: tp20612 a(g185 V tp20613 a(g135 VBoolean p20614 tp20615 a(g339 V; tp20616 a(g185 V\u000a tp20617 a(g354 V{const\u000a LowInt = '2147483648';\u000a HighInt = '2147483647';\u000avar\u000a len, RealLen, i, o: Integer;\u000a c: Char;\u000abegin\u000a Result := False;\u000a if S = '' then\u000a Exit;\u000a\u000a len := Length(S);\u000a o := 1;\u000a \u000a if S[1] = '-' then begin\u000a if len = 1 then\u000a Exit;\u000a Inc(o);\u000a while (o <= len) and (S[o] = '0') do\u000a Inc(o);\u000a if o > len then\u000a Exit;\u000a if o < len then begin\u000a RealLen := len - o + 1;\u000a if RealLen > Length(LowInt) then\u000a Exit\u000a else if RealLen = Length(LowInt) then begin\u000a for i := 1 to Length(LowInt) do begin\u000a c := S[i + o - 1];\u000a if (c < '0') or (c > LowInt[i]) then\u000a Exit;\u000a if c in ['0'..Char((Byte(LowInt[i])-1))] then\u000a Break;\u000a end;\u000a Inc(o, i);\u000a end;\u000a end;\u000a end else begin\u000a while (o <= len) and (S[o] = '0') do\u000a Inc(o);\u000a if o <= len then begin\u000a RealLen := len - o + 1;\u000a if RealLen > Length(HighInt) then\u000a Exit\u000a else if RealLen = Length(HighInt) then begin\u000a for i := 1 to Length(HighInt) do begin\u000a c := S[i + o - 1];\u000a if (c < '0') or (c > HighInt[i]) then\u000a Exit;\u000a if c in ['0'..Char((Byte(HighInt[i])-1))] then\u000a Break;\u000a end;\u000a Inc(o, i);\u000a end;\u000a end;\u000a end;\u000a\u000a for i := o to len do\u000a if not (S[i] in ['0'..'9']) then\u000a Exit;\u000a\u000a Result := True; } p20618 tp20619 a(g185 V\u000a tp20620 a(g111 Vvar p20621 tp20622 a(g185 V\u000a p20623 tp20624 a(g18 Vi tp20625 a(g339 V: tp20626 a(g185 V tp20627 a(g135 VInt64 p20628 tp20629 a(g339 V; tp20630 a(g185 V\u000a tp20631 a(g111 Vbegin p20632 tp20633 a(g185 V\u000a p20634 tp20635 a(g18 Vi tp20636 a(g185 V tp20637 a(g339 V: tp20638 a(g339 V= tp20639 a(g185 V tp20640 a(g57 VStrToInt64Def p20641 tp20642 a(g198 V( tp20643 a(g18 VS tp20644 a(g339 V, tp20645 a(g185 V tp20646 a(g57 VHigh p20647 tp20648 a(g198 V( tp20649 a(g135 VInt64 p20650 tp20651 a(g198 V)) p20652 tp20653 a(g339 V; tp20654 a(g185 V\u000a p20655 tp20656 a(g60 VResult p20657 tp20658 a(g185 V tp20659 a(g339 V: tp20660 a(g339 V= tp20661 a(g185 V tp20662 a(g198 V( tp20663 a(g18 Vi tp20664 a(g185 V tp20665 a(g339 V> tp20666 a(g339 V= tp20667 a(g185 V tp20668 a(g57 VLow p20669 tp20670 a(g198 V( tp20671 a(g135 VInteger p20672 tp20673 a(g198 V)) p20674 tp20675 a(g185 V tp20676 a(g111 Vand p20677 tp20678 a(g185 V tp20679 a(g198 V( tp20680 a(g18 Vi tp20681 a(g185 V tp20682 a(g339 V< tp20683 a(g339 V= tp20684 a(g185 V tp20685 a(g57 VHigh p20686 tp20687 a(g198 V( tp20688 a(g135 VInteger p20689 tp20690 a(g198 V)) p20691 tp20692 a(g339 V; tp20693 a(g185 V\u000a tp20694 a(g111 Vend p20695 tp20696 a(g339 V; tp20697 a(g185 V\u000a\u000a p20698 tp20699 a(g111 Vfunction p20700 tp20701 a(g185 V tp20702 a(g21 VIsValidCardinal p20703 tp20704 a(g198 V( tp20705 a(g111 Vconst p20706 tp20707 a(g185 V tp20708 a(g18 VS tp20709 a(g339 V: tp20710 a(g185 V tp20711 a(g111 Vstring p20712 tp20713 a(g198 V) tp20714 a(g339 V: tp20715 a(g185 V tp20716 a(g135 VBoolean p20717 tp20718 a(g339 V; tp20719 a(g185 V\u000a tp20720 a(g354 V{const\u000a HighCard = '4294967295';\u000avar\u000a len, RealLen, i, o: Integer;\u000abegin\u000a Result := False;\u000a if S = '' then\u000a Exit;\u000a\u000a len := Length(S);\u000a o := 1;\u000a \u000a while (o <= len) and (S[o] = '0') do\u000a Inc(o);\u000a if o <= len then begin\u000a RealLen := len - o + 1;\u000a if RealLen > Length(HighCard) then\u000a Exit\u000a else if RealLen = Length(HighCard) then begin\u000a for i := 1 to Length(HighCard) do begin\u000a if S[i + o - 1] > HighCard[i] then\u000a Exit;\u000a if S[i + o - 1] in ['0'..Char((Byte(HighCard[i])-1))] then\u000a Break;\u000a end;\u000a Inc(o, i);\u000a end;\u000a end;\u000a\u000a for i := o to len do\u000a if not (S[i] in ['0'..'9']) then\u000a Exit;\u000a\u000a Result := True; } p20721 tp20722 a(g185 V\u000a tp20723 a(g111 Vvar p20724 tp20725 a(g185 V\u000a p20726 tp20727 a(g18 Vi tp20728 a(g339 V: tp20729 a(g185 V tp20730 a(g135 VInt64 p20731 tp20732 a(g339 V; tp20733 a(g185 V\u000a tp20734 a(g111 Vbegin p20735 tp20736 a(g185 V\u000a p20737 tp20738 a(g18 Vi tp20739 a(g185 V tp20740 a(g339 V: tp20741 a(g339 V= tp20742 a(g185 V tp20743 a(g57 VStrToInt64Def p20744 tp20745 a(g198 V( tp20746 a(g18 VS tp20747 a(g339 V, tp20748 a(g185 V tp20749 a(g339 V- tp20750 a(g314 V1 tp20751 a(g198 V) tp20752 a(g339 V; tp20753 a(g185 V\u000a p20754 tp20755 a(g60 VResult p20756 tp20757 a(g185 V tp20758 a(g339 V: tp20759 a(g339 V= tp20760 a(g185 V tp20761 a(g198 V( tp20762 a(g18 Vi tp20763 a(g185 V tp20764 a(g339 V> tp20765 a(g339 V= tp20766 a(g185 V tp20767 a(g314 V0 tp20768 a(g198 V) tp20769 a(g185 V tp20770 a(g111 Vand p20771 tp20772 a(g185 V tp20773 a(g198 V( tp20774 a(g18 Vi tp20775 a(g185 V tp20776 a(g339 V< tp20777 a(g339 V= tp20778 a(g185 V tp20779 a(g57 VHigh p20780 tp20781 a(g198 V( tp20782 a(g135 VCardinal p20783 tp20784 a(g198 V)) p20785 tp20786 a(g339 V; tp20787 a(g185 V\u000a tp20788 a(g111 Vend p20789 tp20790 a(g339 V; tp20791 a(g185 V\u000a\u000a p20792 tp20793 a(g111 Vfunction p20794 tp20795 a(g185 V tp20796 a(g21 VStrOfBool p20797 tp20798 a(g198 V( tp20799 a(g18 Vflag p20800 tp20801 a(g339 V: tp20802 a(g185 V tp20803 a(g135 VBoolean p20804 tp20805 a(g339 V; tp20806 a(g185 V tp20807 a(g111 Vconst p20808 tp20809 a(g185 V tp20810 a(g18 VTrueStr p20811 tp20812 a(g339 V: tp20813 a(g185 V tp20814 a(g111 Vstring p20815 tp20816 a(g185 V tp20817 a(g339 V= tp20818 a(g185 V tp20819 a(g222 V' tp20820 a(g222 VTrue p20821 tp20822 a(g222 V' tp20823 a(g339 V; tp20824 a(g185 V\u000a p20825 tp20826 a(g111 Vconst p20827 tp20828 a(g185 V tp20829 a(g18 VFalseStr p20830 tp20831 a(g339 V: tp20832 a(g185 V tp20833 a(g111 Vstring p20834 tp20835 a(g185 V tp20836 a(g339 V= tp20837 a(g185 V tp20838 a(g222 V' tp20839 a(g222 VFalse p20840 tp20841 a(g222 V' tp20842 a(g198 V) tp20843 a(g339 V: tp20844 a(g185 V tp20845 a(g111 Vstring p20846 tp20847 a(g339 V; tp20848 a(g185 V\u000a tp20849 a(g111 Vbegin p20850 tp20851 a(g185 V\u000a p20852 tp20853 a(g111 Vif p20854 tp20855 a(g185 V tp20856 a(g18 VFlag p20857 tp20858 a(g185 V tp20859 a(g111 Vthen p20860 tp20861 a(g185 V\u000a p20862 tp20863 a(g60 VResult p20864 tp20865 a(g185 V tp20866 a(g339 V: tp20867 a(g339 V= tp20868 a(g185 V tp20869 a(g18 VTrueStr p20870 tp20871 a(g185 V\u000a p20872 tp20873 a(g111 Velse p20874 tp20875 a(g185 V\u000a p20876 tp20877 a(g60 VResult p20878 tp20879 a(g185 V tp20880 a(g339 V: tp20881 a(g339 V= tp20882 a(g185 V tp20883 a(g18 VFalseStr p20884 tp20885 a(g339 V; tp20886 a(g185 V\u000a tp20887 a(g111 Vend p20888 tp20889 a(g339 V; tp20890 a(g185 V\u000a\u000a p20891 tp20892 a(g111 Vfunction p20893 tp20894 a(g185 V tp20895 a(g21 VStrOfInt p20896 tp20897 a(g198 V( tp20898 a(g18 Vi tp20899 a(g339 V: tp20900 a(g185 V tp20901 a(g135 VInteger p20902 tp20903 a(g198 V) tp20904 a(g339 V: tp20905 a(g185 V tp20906 a(g111 Vstring p20907 tp20908 a(g339 V; tp20909 a(g185 V\u000a tp20910 a(g111 Vbegin p20911 tp20912 a(g185 V\u000a tp20913 a(g354 V{ if i = 0 then begin\u000a Result := '0';\u000a Exit end;\u000a\u000a while i > 0 do begin\u000a Result := Char(Byte('0') + (i mod 10)) + Result;\u000a i := i div 10;\u000a end;} p20914 tp20915 a(g185 V\u000a p20916 tp20917 a(g60 VResult p20918 tp20919 a(g185 V tp20920 a(g339 V: tp20921 a(g339 V= tp20922 a(g185 V tp20923 a(g57 VIntToStr p20924 tp20925 a(g198 V( tp20926 a(g18 Vi tp20927 a(g198 V) tp20928 a(g339 V; tp20929 a(g185 V\u000a tp20930 a(g111 Vend p20931 tp20932 a(g339 V; tp20933 a(g185 V\u000a\u000a p20934 tp20935 a(g111 Vfunction p20936 tp20937 a(g185 V tp20938 a(g21 VCardOfStr p20939 tp20940 a(g198 V( tp20941 a(g111 Vconst p20942 tp20943 a(g185 V tp20944 a(g18 VS tp20945 a(g339 V: tp20946 a(g185 V tp20947 a(g111 Vstring p20948 tp20949 a(g198 V) tp20950 a(g339 V: tp20951 a(g185 V tp20952 a(g135 VCardinal p20953 tp20954 a(g339 V; tp20955 a(g185 V\u000a tp20956 a(g111 Vvar p20957 tp20958 a(g185 V\u000a p20959 tp20960 a(g18 VRes p20961 tp20962 a(g339 V: tp20963 a(g185 V tp20964 a(g135 VInt64 p20965 tp20966 a(g339 V; tp20967 a(g185 V\u000a tp20968 a(g111 Vbegin p20969 tp20970 a(g185 V\u000a p20971 tp20972 a(g18 VRes p20973 tp20974 a(g185 V tp20975 a(g339 V: tp20976 a(g339 V= tp20977 a(g185 V tp20978 a(g57 VStrToInt64Def p20979 tp20980 a(g198 V( tp20981 a(g18 VS tp20982 a(g339 V, tp20983 a(g185 V tp20984 a(g339 V- tp20985 a(g314 V1 tp20986 a(g198 V) tp20987 a(g339 V; tp20988 a(g185 V\u000a p20989 tp20990 a(g111 Vif p20991 tp20992 a(g185 V tp20993 a(g18 VRes p20994 tp20995 a(g185 V tp20996 a(g339 V> tp20997 a(g185 V tp20998 a(g57 VHigh p20999 tp21000 a(g198 V( tp21001 a(g135 VCardinal p21002 tp21003 a(g198 V) tp21004 a(g185 V tp21005 a(g111 Vthen p21006 tp21007 a(g185 V\u000a p21008 tp21009 a(g18 VRes p21010 tp21011 a(g185 V tp21012 a(g339 V: tp21013 a(g339 V= tp21014 a(g185 V tp21015 a(g57 VHigh p21016 tp21017 a(g198 V( tp21018 a(g135 VCardinal p21019 tp21020 a(g198 V) tp21021 a(g185 V\u000a p21022 tp21023 a(g111 Velse p21024 tp21025 a(g185 V tp21026 a(g111 Vif p21027 tp21028 a(g185 V tp21029 a(g18 VRes p21030 tp21031 a(g185 V tp21032 a(g339 V< tp21033 a(g185 V tp21034 a(g314 V0 tp21035 a(g185 V tp21036 a(g111 Vthen p21037 tp21038 a(g185 V\u000a p21039 tp21040 a(g18 VRes p21041 tp21042 a(g185 V tp21043 a(g339 V: tp21044 a(g339 V= tp21045 a(g185 V tp21046 a(g314 V0 tp21047 a(g339 V; tp21048 a(g185 V\u000a p21049 tp21050 a(g60 VResult p21051 tp21052 a(g185 V tp21053 a(g339 V: tp21054 a(g339 V= tp21055 a(g185 V tp21056 a(g135 VCardinal p21057 tp21058 a(g198 V( tp21059 a(g18 VRes p21060 tp21061 a(g198 V) tp21062 a(g339 V; tp21063 a(g185 V\u000a tp21064 a(g111 Vend p21065 tp21066 a(g339 V; tp21067 a(g185 V\u000a\u000a p21068 tp21069 a(g111 Vfunction p21070 tp21071 a(g185 V tp21072 a(g21 VHexOrd p21073 tp21074 a(g198 V( tp21075 a(g18 VHex p21076 tp21077 a(g339 V: tp21078 a(g185 V tp21079 a(g135 VChar p21080 tp21081 a(g198 V) tp21082 a(g339 V: tp21083 a(g185 V tp21084 a(g18 VTHex p21085 tp21086 a(g339 V; tp21087 a(g185 V\u000a tp21088 a(g111 Vbegin p21089 tp21090 a(g185 V\u000a p21091 tp21092 a(g111 Vcase p21093 tp21094 a(g185 V tp21095 a(g18 VHex p21096 tp21097 a(g185 V tp21098 a(g111 Vof p21099 tp21100 a(g185 V\u000a p21101 tp21102 a(g222 V' tp21103 a(g222 V0 tp21104 a(g222 V' tp21105 a(g339 V. tp21106 a(g339 V. tp21107 a(g222 V' tp21108 a(g222 V9 tp21109 a(g222 V' tp21110 a(g339 V: tp21111 a(g185 V\u000a p21112 tp21113 a(g60 VResult p21114 tp21115 a(g185 V tp21116 a(g339 V: tp21117 a(g339 V= tp21118 a(g185 V tp21119 a(g135 VByte p21120 tp21121 a(g198 V( tp21122 a(g18 VHex p21123 tp21124 a(g198 V) tp21125 a(g185 V tp21126 a(g339 V- tp21127 a(g185 V tp21128 a(g314 V48 p21129 tp21130 a(g339 V; tp21131 a(g185 V\u000a p21132 tp21133 a(g222 V' tp21134 a(g222 VA tp21135 a(g222 V' tp21136 a(g339 V. tp21137 a(g339 V. tp21138 a(g222 V' tp21139 a(g222 VF tp21140 a(g222 V' tp21141 a(g339 V: tp21142 a(g185 V\u000a p21143 tp21144 a(g60 VResult p21145 tp21146 a(g185 V tp21147 a(g339 V: tp21148 a(g339 V= tp21149 a(g185 V tp21150 a(g135 VByte p21151 tp21152 a(g198 V( tp21153 a(g18 VHex p21154 tp21155 a(g198 V) tp21156 a(g185 V tp21157 a(g339 V- tp21158 a(g185 V tp21159 a(g314 V55 p21160 tp21161 a(g339 V; tp21162 a(g185 V\u000a p21163 tp21164 a(g222 V' tp21165 a(g222 Va tp21166 a(g222 V' tp21167 a(g339 V. tp21168 a(g339 V. tp21169 a(g222 V' tp21170 a(g222 Vf tp21171 a(g222 V' tp21172 a(g339 V: tp21173 a(g185 V\u000a p21174 tp21175 a(g60 VResult p21176 tp21177 a(g185 V tp21178 a(g339 V: tp21179 a(g339 V= tp21180 a(g185 V tp21181 a(g135 VByte p21182 tp21183 a(g198 V( tp21184 a(g18 VHex p21185 tp21186 a(g198 V) tp21187 a(g185 V tp21188 a(g339 V- tp21189 a(g185 V tp21190 a(g314 V87 p21191 tp21192 a(g339 V; tp21193 a(g185 V\u000a p21194 tp21195 a(g111 Velse p21196 tp21197 a(g185 V\u000a p21198 tp21199 a(g60 VResult p21200 tp21201 a(g185 V tp21202 a(g339 V: tp21203 a(g339 V= tp21204 a(g185 V tp21205 a(g314 V0 tp21206 a(g339 V; tp21207 a(g185 V\u000a p21208 tp21209 a(g111 Vend p21210 tp21211 a(g339 V; tp21212 a(g185 V\u000a tp21213 a(g111 Vend p21214 tp21215 a(g339 V; tp21216 a(g185 V\u000a\u000a p21217 tp21218 a(g111 Vfunction p21219 tp21220 a(g185 V tp21221 a(g21 VByteOfHex p21222 tp21223 a(g198 V( tp21224 a(g18 VHex p21225 tp21226 a(g339 V: tp21227 a(g185 V tp21228 a(g18 VTHexByteStr p21229 tp21230 a(g198 V) tp21231 a(g339 V: tp21232 a(g185 V tp21233 a(g135 VByte p21234 tp21235 a(g339 V; tp21236 a(g185 V\u000a tp21237 a(g111 Vbegin p21238 tp21239 a(g185 V\u000a p21240 tp21241 a(g60 VResult p21242 tp21243 a(g185 V tp21244 a(g339 V: tp21245 a(g339 V= tp21246 a(g185 V tp21247 a(g198 V( tp21248 a(g18 VHexOrd p21249 tp21250 a(g198 V( tp21251 a(g18 VHex p21252 tp21253 a(g198 V[ tp21254 a(g314 V1 tp21255 a(g198 V]) p21256 tp21257 a(g185 V tp21258 a(g111 Vshl p21259 tp21260 a(g185 V tp21261 a(g314 V4 tp21262 a(g198 V) tp21263 a(g185 V tp21264 a(g339 V+ tp21265 a(g185 V tp21266 a(g18 VHexOrd p21267 tp21268 a(g198 V( tp21269 a(g18 VHex p21270 tp21271 a(g198 V[ tp21272 a(g314 V2 tp21273 a(g198 V]) p21274 tp21275 a(g339 V; tp21276 a(g185 V\u000a tp21277 a(g111 Vend p21278 tp21279 a(g339 V; tp21280 a(g185 V\u000a\u000a p21281 tp21282 a(g111 Vfunction p21283 tp21284 a(g185 V tp21285 a(g21 VDecOfHex p21286 tp21287 a(g198 V( tp21288 a(g111 Vconst p21289 tp21290 a(g185 V tp21291 a(g18 VHex p21292 tp21293 a(g339 V: tp21294 a(g185 V tp21295 a(g111 Vstring p21296 tp21297 a(g198 V) tp21298 a(g339 V: tp21299 a(g185 V tp21300 a(g111 Vstring p21301 tp21302 a(g339 V; tp21303 a(g185 V\u000a tp21304 a(g111 Vbegin p21305 tp21306 a(g185 V\u000a p21307 tp21308 a(g60 VResult p21309 tp21310 a(g185 V tp21311 a(g339 V: tp21312 a(g339 V= tp21313 a(g185 V tp21314 a(g57 VIntToStr p21315 tp21316 a(g198 V( tp21317 a(g18 VCardOfHex p21318 tp21319 a(g198 V( tp21320 a(g18 VHex p21321 tp21322 a(g198 V)) p21323 tp21324 a(g339 V; tp21325 a(g185 V\u000a tp21326 a(g111 Vend p21327 tp21328 a(g339 V; tp21329 a(g185 V\u000a\u000a p21330 tp21331 a(g111 Vfunction p21332 tp21333 a(g185 V tp21334 a(g21 VHexOfByte p21335 tp21336 a(g198 V( tp21337 a(g18 Vb tp21338 a(g339 V: tp21339 a(g185 V tp21340 a(g135 VByte p21341 tp21342 a(g198 V) tp21343 a(g339 V: tp21344 a(g185 V tp21345 a(g18 VTHexByteStr p21346 tp21347 a(g339 V; tp21348 a(g185 V\u000a tp21349 a(g111 Vbegin p21350 tp21351 a(g185 V\u000a p21352 tp21353 a(g60 VResult p21354 tp21355 a(g185 V tp21356 a(g339 V: tp21357 a(g339 V= tp21358 a(g185 V tp21359 a(g18 VHexChar p21360 tp21361 a(g198 V[( p21362 tp21363 a(g18 Vb tp21364 a(g185 V tp21365 a(g111 Vand p21366 tp21367 a(g185 V tp21368 a(g310 V$F0 p21369 tp21370 a(g198 V) tp21371 a(g185 V tp21372 a(g111 Vshr p21373 tp21374 a(g185 V tp21375 a(g314 V4 tp21376 a(g198 V] tp21377 a(g185 V\u000a p21378 tp21379 a(g339 V+ tp21380 a(g185 V tp21381 a(g18 VHexChar p21382 tp21383 a(g198 V[ tp21384 a(g185 V tp21385 a(g18 Vb tp21386 a(g185 V tp21387 a(g111 Vand p21388 tp21389 a(g185 V tp21390 a(g310 V$0F p21391 tp21392 a(g185 V p21393 tp21394 a(g198 V] tp21395 a(g339 V; tp21396 a(g185 V\u000a tp21397 a(g111 Vend p21398 tp21399 a(g339 V; tp21400 a(g185 V\u000a\u000a p21401 tp21402 a(g354 V{function HexOfCard2(c: Cardinal): string;\u000avar\u000a Data: array[0..(1 shl 4) - 1] of Char;\u000a i: Integer;\u000abegin\u000a for i := 0 to (1 shl 4) - 1 do\u000a if i < 10 then\u000a Data[i] := Char(Ord('0') + i)\u000a else\u000a Data[i] := Char(Ord('A') + i - 10);\u000a\u000a Result := Data[(c and (((1 shl (1 shl 2)) - 1) shl (7 shl 2))) shr (7 shl 2)]\u000a + Data[(c and (((1 shl (1 shl 2)) - 1) shl (6 shl 2))) shr (6 shl 2)]\u000a + Data[(c and (((1 shl (1 shl 2)) - 1) shl (5 shl 2))) shr (5 shl 2)]\u000a + Data[(c and (((1 shl (1 shl 2)) - 1) shl (4 shl 2))) shr (4 shl 2)]\u000a + Data[(c and (((1 shl (1 shl 2)) - 1) shl (3 shl 2))) shr (3 shl 2)]\u000a + Data[(c and (((1 shl (1 shl 2)) - 1) shl (2 shl 2))) shr (2 shl 2)]\u000a + Data[(c and (((1 shl (1 shl 2)) - 1) shl (1 shl 2))) shr (1 shl 2)]\u000a + Data[(c and (((1 shl (1 shl 2)) - 1) shl (0 shl 2))) shr (0 shl 2)];\u000aend; } p21403 tp21404 a(g185 V\u000a\u000a p21405 tp21406 a(g111 Vfunction p21407 tp21408 a(g185 V tp21409 a(g21 VHexOfCard p21410 tp21411 a(g198 V( tp21412 a(g18 Vi tp21413 a(g339 V: tp21414 a(g185 V tp21415 a(g135 VCardinal p21416 tp21417 a(g198 V) tp21418 a(g339 V: tp21419 a(g185 V tp21420 a(g111 Vstring p21421 tp21422 a(g339 V; tp21423 a(g185 V\u000a tp21424 a(g111 Vvar p21425 tp21426 a(g185 V\u000a p21427 tp21428 a(g18 Va tp21429 a(g339 V: tp21430 a(g185 V tp21431 a(g135 VCardinal p21432 tp21433 a(g339 V; tp21434 a(g185 V\u000a tp21435 a(g111 Vbegin p21436 tp21437 a(g185 V\u000a p21438 tp21439 a(g60 VResult p21440 tp21441 a(g185 V tp21442 a(g339 V: tp21443 a(g339 V= tp21444 a(g185 V tp21445 a(g222 V' tp21446 a(g222 V' tp21447 a(g339 V; tp21448 a(g185 V\u000a p21449 tp21450 a(g111 Vwhile p21451 tp21452 a(g185 V tp21453 a(g18 Vi tp21454 a(g185 V tp21455 a(g339 V> tp21456 a(g185 V tp21457 a(g314 V0 tp21458 a(g185 V tp21459 a(g111 Vdo p21460 tp21461 a(g185 V tp21462 a(g111 Vbegin p21463 tp21464 a(g185 V\u000a p21465 tp21466 a(g18 Va tp21467 a(g185 V tp21468 a(g339 V: tp21469 a(g339 V= tp21470 a(g185 V tp21471 a(g18 Vi tp21472 a(g185 V tp21473 a(g111 Vand p21474 tp21475 a(g185 V tp21476 a(g310 V$F p21477 tp21478 a(g339 V; tp21479 a(g185 V\u000a p21480 tp21481 a(g60 VResult p21482 tp21483 a(g185 V tp21484 a(g339 V: tp21485 a(g339 V= tp21486 a(g185 V tp21487 a(g18 VHexChar p21488 tp21489 a(g198 V[ tp21490 a(g18 Va tp21491 a(g198 V] tp21492 a(g185 V tp21493 a(g339 V+ tp21494 a(g185 V tp21495 a(g60 VResult p21496 tp21497 a(g339 V; tp21498 a(g185 V\u000a p21499 tp21500 a(g18 Vi tp21501 a(g185 V tp21502 a(g339 V: tp21503 a(g339 V= tp21504 a(g185 V tp21505 a(g18 Vi tp21506 a(g185 V tp21507 a(g111 Vshr p21508 tp21509 a(g185 V tp21510 a(g314 V4 tp21511 a(g339 V; tp21512 a(g185 V\u000a p21513 tp21514 a(g111 Vend p21515 tp21516 a(g339 V; tp21517 a(g185 V\u000a tp21518 a(g111 Vend p21519 tp21520 a(g339 V; tp21521 a(g185 V\u000a\u000a p21522 tp21523 a(g111 Vfunction p21524 tp21525 a(g185 V tp21526 a(g21 VHexOfCard p21527 tp21528 a(g198 V( tp21529 a(g18 Vi tp21530 a(g339 V: tp21531 a(g185 V tp21532 a(g135 VCardinal p21533 tp21534 a(g339 V; tp21535 a(g185 V tp21536 a(g18 VDigits p21537 tp21538 a(g339 V: tp21539 a(g185 V tp21540 a(g135 VInteger p21541 tp21542 a(g198 V) tp21543 a(g339 V: tp21544 a(g185 V tp21545 a(g111 Vstring p21546 tp21547 a(g339 V; tp21548 a(g185 V\u000a tp21549 a(g111 Vvar p21550 tp21551 a(g185 V\u000a p21552 tp21553 a(g18 Va tp21554 a(g339 V: tp21555 a(g185 V tp21556 a(g135 VCardinal p21557 tp21558 a(g339 V; tp21559 a(g185 V\u000a tp21560 a(g111 Vbegin p21561 tp21562 a(g185 V\u000a p21563 tp21564 a(g60 VResult p21565 tp21566 a(g185 V tp21567 a(g339 V: tp21568 a(g339 V= tp21569 a(g185 V tp21570 a(g222 V' tp21571 a(g222 V' tp21572 a(g339 V; tp21573 a(g185 V\u000a p21574 tp21575 a(g111 Vwhile p21576 tp21577 a(g185 V tp21578 a(g18 Vi tp21579 a(g185 V tp21580 a(g339 V> tp21581 a(g185 V tp21582 a(g314 V0 tp21583 a(g185 V tp21584 a(g111 Vdo p21585 tp21586 a(g185 V tp21587 a(g111 Vbegin p21588 tp21589 a(g185 V\u000a p21590 tp21591 a(g18 Va tp21592 a(g185 V tp21593 a(g339 V: tp21594 a(g339 V= tp21595 a(g185 V tp21596 a(g18 Vi tp21597 a(g185 V tp21598 a(g111 Vand p21599 tp21600 a(g185 V tp21601 a(g310 V$F p21602 tp21603 a(g339 V; tp21604 a(g185 V\u000a p21605 tp21606 a(g60 VResult p21607 tp21608 a(g185 V tp21609 a(g339 V: tp21610 a(g339 V= tp21611 a(g185 V tp21612 a(g18 VHexChar p21613 tp21614 a(g198 V[ tp21615 a(g18 Va tp21616 a(g198 V] tp21617 a(g185 V tp21618 a(g339 V+ tp21619 a(g185 V tp21620 a(g60 VResult p21621 tp21622 a(g339 V; tp21623 a(g185 V\u000a p21624 tp21625 a(g18 Vi tp21626 a(g185 V tp21627 a(g339 V: tp21628 a(g339 V= tp21629 a(g185 V tp21630 a(g18 Vi tp21631 a(g185 V tp21632 a(g111 Vshr p21633 tp21634 a(g185 V tp21635 a(g314 V4 tp21636 a(g339 V; tp21637 a(g185 V\u000a p21638 tp21639 a(g111 Vend p21640 tp21641 a(g339 V; tp21642 a(g185 V\u000a p21643 tp21644 a(g60 VResult p21645 tp21646 a(g185 V tp21647 a(g339 V: tp21648 a(g339 V= tp21649 a(g185 V tp21650 a(g18 VMulStr p21651 tp21652 a(g198 V( tp21653 a(g222 V' tp21654 a(g222 V0 tp21655 a(g222 V' tp21656 a(g339 V, tp21657 a(g185 V tp21658 a(g18 VDigits p21659 tp21660 a(g185 V tp21661 a(g339 V- tp21662 a(g185 V tp21663 a(g57 VLength p21664 tp21665 a(g198 V( tp21666 a(g60 VResult p21667 tp21668 a(g198 V)) p21669 tp21670 a(g185 V tp21671 a(g339 V+ tp21672 a(g185 V tp21673 a(g60 VResult p21674 tp21675 a(g339 V; tp21676 a(g185 V\u000a tp21677 a(g111 Vend p21678 tp21679 a(g339 V; tp21680 a(g185 V\u000a\u000a p21681 tp21682 a(g111 Vfunction p21683 tp21684 a(g185 V tp21685 a(g21 VPascalHexArray p21686 tp21687 a(g198 V( tp21688 a(g18 Va tp21689 a(g339 V: tp21690 a(g185 V tp21691 a(g18 VTByteA p21692 tp21693 a(g339 V; tp21694 a(g185 V tp21695 a(g119 VName p21696 tp21697 a(g339 V: tp21698 a(g185 V tp21699 a(g111 Vstring p21700 tp21701 a(g198 V) tp21702 a(g339 V: tp21703 a(g185 V tp21704 a(g111 Vstring p21705 tp21706 a(g339 V; tp21707 a(g185 V\u000a tp21708 a(g111 Vvar p21709 tp21710 a(g185 V\u000a p21711 tp21712 a(g18 Vi tp21713 a(g339 V, tp21714 a(g185 V tp21715 a(g18 Vlen p21716 tp21717 a(g339 V: tp21718 a(g185 V tp21719 a(g135 VInteger p21720 tp21721 a(g339 V; tp21722 a(g185 V\u000a tp21723 a(g111 Vbegin p21724 tp21725 a(g185 V\u000a p21726 tp21727 a(g60 VResult p21728 tp21729 a(g185 V tp21730 a(g339 V: tp21731 a(g339 V= tp21732 a(g185 V tp21733 a(g222 V' tp21734 a(g222 Vconst p21735 tp21736 a(g222 V' tp21737 a(g185 V tp21738 a(g339 V+ tp21739 a(g185 V tp21740 a(g18 VEOL p21741 tp21742 a(g185 V tp21743 a(g339 V+ tp21744 a(g185 V\u000a p21745 tp21746 a(g222 V' tp21747 a(g222 V p21748 tp21749 a(g222 V' tp21750 a(g185 V tp21751 a(g339 V+ tp21752 a(g185 V tp21753 a(g18 VName p21754 tp21755 a(g185 V tp21756 a(g339 V+ tp21757 a(g185 V tp21758 a(g222 V' tp21759 a(g222 V: array[0.. p21760 tp21761 a(g222 V' tp21762 a(g185 V tp21763 a(g339 V+ tp21764 a(g185 V tp21765 a(g57 VIntToStr p21766 tp21767 a(g198 V( tp21768 a(g57 VHigh p21769 tp21770 a(g198 V( tp21771 a(g18 Va tp21772 a(g198 V)) p21773 tp21774 a(g185 V tp21775 a(g339 V+ tp21776 a(g185 V tp21777 a(g222 V' tp21778 a(g222 V] of Byte = ( p21779 tp21780 a(g222 V' tp21781 a(g339 V; tp21782 a(g185 V\u000a\u000a p21783 tp21784 a(g18 Vlen p21785 tp21786 a(g185 V tp21787 a(g339 V: tp21788 a(g339 V= tp21789 a(g185 V tp21790 a(g57 VLength p21791 tp21792 a(g198 V( tp21793 a(g18 Va tp21794 a(g198 V) tp21795 a(g339 V; tp21796 a(g185 V\u000a p21797 tp21798 a(g111 Vfor p21799 tp21800 a(g185 V tp21801 a(g18 Vi tp21802 a(g185 V tp21803 a(g339 V: tp21804 a(g339 V= tp21805 a(g185 V tp21806 a(g314 V0 tp21807 a(g185 V tp21808 a(g111 Vto p21809 tp21810 a(g185 V tp21811 a(g18 Vlen p21812 tp21813 a(g339 V- tp21814 a(g314 V1 tp21815 a(g185 V tp21816 a(g111 Vdo p21817 tp21818 a(g185 V tp21819 a(g111 Vbegin p21820 tp21821 a(g185 V\u000a p21822 tp21823 a(g111 Vif p21824 tp21825 a(g185 V tp21826 a(g198 V( tp21827 a(g18 Vi tp21828 a(g185 V tp21829 a(g111 Vmod p21830 tp21831 a(g185 V tp21832 a(g314 V19 p21833 tp21834 a(g198 V) tp21835 a(g185 V tp21836 a(g339 V= tp21837 a(g185 V tp21838 a(g314 V0 tp21839 a(g185 V tp21840 a(g111 Vthen p21841 tp21842 a(g185 V\u000a p21843 tp21844 a(g60 VResult p21845 tp21846 a(g185 V tp21847 a(g339 V: tp21848 a(g339 V= tp21849 a(g185 V tp21850 a(g60 VResult p21851 tp21852 a(g185 V tp21853 a(g339 V+ tp21854 a(g185 V tp21855 a(g18 VEOL p21856 tp21857 a(g185 V tp21858 a(g339 V+ tp21859 a(g185 V tp21860 a(g222 V' tp21861 a(g222 V p21862 tp21863 a(g222 V' tp21864 a(g185 V tp21865 a(g339 V+ tp21866 a(g185 V tp21867 a(g222 V' tp21868 a(g222 V p21869 tp21870 a(g222 V' tp21871 a(g339 V; tp21872 a(g185 V\u000a p21873 tp21874 a(g60 VResult p21875 tp21876 a(g185 V tp21877 a(g339 V: tp21878 a(g339 V= tp21879 a(g185 V tp21880 a(g60 VResult p21881 tp21882 a(g185 V tp21883 a(g339 V+ tp21884 a(g185 V tp21885 a(g222 V' tp21886 a(g222 V$ tp21887 a(g222 V' tp21888 a(g185 V tp21889 a(g339 V+ tp21890 a(g185 V tp21891 a(g18 VHexOfByte p21892 tp21893 a(g198 V( tp21894 a(g18 Va tp21895 a(g198 V[ tp21896 a(g18 Vi tp21897 a(g198 V]) p21898 tp21899 a(g339 V; tp21900 a(g185 V\u000a p21901 tp21902 a(g111 Vif p21903 tp21904 a(g185 V tp21905 a(g18 Vi tp21906 a(g185 V tp21907 a(g339 V< tp21908 a(g185 V tp21909 a(g18 Vlen p21910 tp21911 a(g339 V- tp21912 a(g314 V1 tp21913 a(g185 V tp21914 a(g111 Vthen p21915 tp21916 a(g185 V\u000a p21917 tp21918 a(g60 VResult p21919 tp21920 a(g185 V tp21921 a(g339 V: tp21922 a(g339 V= tp21923 a(g185 V tp21924 a(g60 VResult p21925 tp21926 a(g185 V tp21927 a(g339 V+ tp21928 a(g185 V tp21929 a(g222 V' tp21930 a(g222 V, tp21931 a(g222 V' tp21932 a(g339 V; tp21933 a(g185 V\u000a p21934 tp21935 a(g111 Vend p21936 tp21937 a(g339 V; tp21938 a(g185 V\u000a p21939 tp21940 a(g60 VResult p21941 tp21942 a(g185 V tp21943 a(g339 V: tp21944 a(g339 V= tp21945 a(g185 V tp21946 a(g60 VResult p21947 tp21948 a(g185 V tp21949 a(g339 V+ tp21950 a(g185 V tp21951 a(g18 VEOL p21952 tp21953 a(g185 V tp21954 a(g339 V+ tp21955 a(g185 V tp21956 a(g222 V' tp21957 a(g222 V ); p21958 tp21959 a(g222 V' tp21960 a(g339 V; tp21961 a(g185 V\u000a tp21962 a(g111 Vend p21963 tp21964 a(g339 V; tp21965 a(g185 V\u000a\u000a p21966 tp21967 a(g111 Vfunction p21968 tp21969 a(g185 V tp21970 a(g21 VHexOfByteA p21971 tp21972 a(g198 V( tp21973 a(g18 Va tp21974 a(g339 V: tp21975 a(g185 V tp21976 a(g18 VTByteA p21977 tp21978 a(g339 V; tp21979 a(g185 V tp21980 a(g18 VBlocks p21981 tp21982 a(g339 V: tp21983 a(g185 V tp21984 a(g135 VInteger p21985 tp21986 a(g185 V tp21987 a(g339 V= tp21988 a(g185 V tp21989 a(g314 V1 tp21990 a(g339 V; tp21991 a(g185 V\u000a p21992 tp21993 a(g111 Vconst p21994 tp21995 a(g185 V tp21996 a(g18 VSplitter p21997 tp21998 a(g339 V: tp21999 a(g185 V tp22000 a(g111 Vstring p22001 tp22002 a(g185 V tp22003 a(g339 V= tp22004 a(g185 V tp22005 a(g222 V' tp22006 a(g222 V tp22007 a(g222 V' tp22008 a(g198 V) tp22009 a(g339 V: tp22010 a(g185 V tp22011 a(g111 Vstring p22012 tp22013 a(g339 V; tp22014 a(g185 V\u000a tp22015 a(g111 Vvar p22016 tp22017 a(g185 V\u000a p22018 tp22019 a(g18 Vi tp22020 a(g339 V: tp22021 a(g185 V tp22022 a(g135 VInteger p22023 tp22024 a(g339 V; tp22025 a(g185 V\u000a tp22026 a(g111 Vbegin p22027 tp22028 a(g185 V\u000a p22029 tp22030 a(g60 VResult p22031 tp22032 a(g185 V tp22033 a(g339 V: tp22034 a(g339 V= tp22035 a(g185 V tp22036 a(g222 V' tp22037 a(g222 V' tp22038 a(g339 V; tp22039 a(g185 V\u000a\u000a p22040 tp22041 a(g111 Vif p22042 tp22043 a(g185 V tp22044 a(g18 VBlocks p22045 tp22046 a(g185 V tp22047 a(g339 V> tp22048 a(g185 V tp22049 a(g314 V0 tp22050 a(g185 V tp22051 a(g111 Vthen p22052 tp22053 a(g185 V\u000a p22054 tp22055 a(g111 Vfor p22056 tp22057 a(g185 V tp22058 a(g18 Vi tp22059 a(g185 V tp22060 a(g339 V: tp22061 a(g339 V= tp22062 a(g185 V tp22063 a(g314 V0 tp22064 a(g185 V tp22065 a(g111 Vto p22066 tp22067 a(g185 V tp22068 a(g57 VHigh p22069 tp22070 a(g198 V( tp22071 a(g18 Va tp22072 a(g198 V) tp22073 a(g185 V tp22074 a(g111 Vdo p22075 tp22076 a(g185 V tp22077 a(g111 Vbegin p22078 tp22079 a(g185 V\u000a p22080 tp22081 a(g60 VResult p22082 tp22083 a(g185 V tp22084 a(g339 V: tp22085 a(g339 V= tp22086 a(g185 V tp22087 a(g60 VResult p22088 tp22089 a(g185 V tp22090 a(g339 V+ tp22091 a(g185 V tp22092 a(g18 VHexOfByte p22093 tp22094 a(g198 V( tp22095 a(g18 Va tp22096 a(g198 V[ tp22097 a(g18 Vi tp22098 a(g198 V]) p22099 tp22100 a(g339 V; tp22101 a(g185 V\u000a p22102 tp22103 a(g111 Vif p22104 tp22105 a(g185 V tp22106 a(g18 Vi tp22107 a(g185 V tp22108 a(g339 V< tp22109 a(g185 V tp22110 a(g57 VHigh p22111 tp22112 a(g198 V( tp22113 a(g18 Va tp22114 a(g198 V) tp22115 a(g185 V tp22116 a(g111 Vthen p22117 tp22118 a(g185 V\u000a p22119 tp22120 a(g111 Vif p22121 tp22122 a(g185 V tp22123 a(g198 V(( p22124 tp22125 a(g18 Vi tp22126 a(g339 V+ tp22127 a(g314 V1 tp22128 a(g198 V) tp22129 a(g185 V tp22130 a(g111 Vmod p22131 tp22132 a(g185 V tp22133 a(g18 VBlocks p22134 tp22135 a(g198 V) tp22136 a(g185 V tp22137 a(g339 V= tp22138 a(g185 V tp22139 a(g314 V0 tp22140 a(g185 V tp22141 a(g111 Vthen p22142 tp22143 a(g185 V\u000a p22144 tp22145 a(g60 VResult p22146 tp22147 a(g185 V tp22148 a(g339 V: tp22149 a(g339 V= tp22150 a(g185 V tp22151 a(g60 VResult p22152 tp22153 a(g185 V tp22154 a(g339 V+ tp22155 a(g185 V tp22156 a(g18 VSplitter p22157 tp22158 a(g339 V; tp22159 a(g185 V\u000a p22160 tp22161 a(g111 Vend p22162 tp22163 a(g185 V\u000a p22164 tp22165 a(g111 Velse p22166 tp22167 a(g185 V\u000a p22168 tp22169 a(g111 Vfor p22170 tp22171 a(g185 V tp22172 a(g18 Vi tp22173 a(g185 V tp22174 a(g339 V: tp22175 a(g339 V= tp22176 a(g185 V tp22177 a(g314 V0 tp22178 a(g185 V tp22179 a(g111 Vto p22180 tp22181 a(g185 V tp22182 a(g57 VHigh p22183 tp22184 a(g198 V( tp22185 a(g18 Va tp22186 a(g198 V) tp22187 a(g185 V tp22188 a(g111 Vdo p22189 tp22190 a(g185 V\u000a p22191 tp22192 a(g60 VResult p22193 tp22194 a(g185 V tp22195 a(g339 V: tp22196 a(g339 V= tp22197 a(g185 V tp22198 a(g60 VResult p22199 tp22200 a(g185 V tp22201 a(g339 V+ tp22202 a(g185 V tp22203 a(g18 VHexOfByte p22204 tp22205 a(g198 V( tp22206 a(g18 Va tp22207 a(g198 V[ tp22208 a(g18 Vi tp22209 a(g198 V]) p22210 tp22211 a(g339 V; tp22212 a(g185 V\u000a tp22213 a(g111 Vend p22214 tp22215 a(g339 V; tp22216 a(g185 V\u000a\u000a p22217 tp22218 a(g111 Vfunction p22219 tp22220 a(g185 V tp22221 a(g21 VBinOfByteA p22222 tp22223 a(g198 V( tp22224 a(g18 Va tp22225 a(g339 V: tp22226 a(g185 V tp22227 a(g18 VTByteA p22228 tp22229 a(g339 V; tp22230 a(g185 V tp22231 a(g18 VBlocks p22232 tp22233 a(g339 V: tp22234 a(g185 V tp22235 a(g135 VInteger p22236 tp22237 a(g185 V tp22238 a(g339 V= tp22239 a(g185 V tp22240 a(g314 V4 tp22241 a(g339 V; tp22242 a(g185 V\u000a p22243 tp22244 a(g111 Vconst p22245 tp22246 a(g185 V tp22247 a(g18 VSplitter p22248 tp22249 a(g339 V: tp22250 a(g185 V tp22251 a(g111 Vstring p22252 tp22253 a(g185 V tp22254 a(g339 V= tp22255 a(g185 V tp22256 a(g222 V' tp22257 a(g222 V tp22258 a(g222 V' tp22259 a(g198 V) tp22260 a(g339 V: tp22261 a(g185 V tp22262 a(g111 Vstring p22263 tp22264 a(g339 V; tp22265 a(g185 V\u000a tp22266 a(g111 Vvar p22267 tp22268 a(g185 V\u000a p22269 tp22270 a(g18 Vi tp22271 a(g339 V, tp22272 a(g185 V tp22273 a(g57 Vmax p22274 tp22275 a(g339 V: tp22276 a(g185 V tp22277 a(g135 VInteger p22278 tp22279 a(g339 V; tp22280 a(g185 V\u000a p22281 tp22282 a(g18 VBit p22283 tp22284 a(g339 V: tp22285 a(g185 V tp22286 a(g135 VBoolean p22287 tp22288 a(g339 V; tp22289 a(g185 V\u000a tp22290 a(g111 Vbegin p22291 tp22292 a(g185 V\u000a p22293 tp22294 a(g60 VResult p22295 tp22296 a(g185 V tp22297 a(g339 V: tp22298 a(g339 V= tp22299 a(g185 V tp22300 a(g222 V' tp22301 a(g222 V' tp22302 a(g339 V; tp22303 a(g185 V\u000a\u000a p22304 tp22305 a(g111 Vif p22306 tp22307 a(g185 V tp22308 a(g18 VBlocks p22309 tp22310 a(g185 V tp22311 a(g339 V> tp22312 a(g185 V tp22313 a(g314 V0 tp22314 a(g185 V tp22315 a(g111 Vthen p22316 tp22317 a(g185 V tp22318 a(g111 Vbegin p22319 tp22320 a(g185 V\u000a p22321 tp22322 a(g57 Vmax p22323 tp22324 a(g185 V tp22325 a(g339 V: tp22326 a(g339 V= tp22327 a(g185 V tp22328 a(g314 V8 tp22329 a(g185 V tp22330 a(g339 V* tp22331 a(g185 V tp22332 a(g198 V( tp22333 a(g57 VHigh p22334 tp22335 a(g198 V( tp22336 a(g18 Va tp22337 a(g198 V)) p22338 tp22339 a(g185 V tp22340 a(g339 V+ tp22341 a(g185 V tp22342 a(g314 V7 tp22343 a(g339 V; tp22344 a(g185 V\u000a p22345 tp22346 a(g111 Vfor p22347 tp22348 a(g185 V tp22349 a(g18 Vi tp22350 a(g185 V tp22351 a(g339 V: tp22352 a(g339 V= tp22353 a(g185 V tp22354 a(g314 V0 tp22355 a(g185 V tp22356 a(g111 Vto p22357 tp22358 a(g185 V tp22359 a(g57 Vmax p22360 tp22361 a(g185 V tp22362 a(g111 Vdo p22363 tp22364 a(g185 V tp22365 a(g111 Vbegin p22366 tp22367 a(g185 V\u000a p22368 tp22369 a(g18 VBit p22370 tp22371 a(g185 V tp22372 a(g339 V: tp22373 a(g339 V= tp22374 a(g185 V tp22375 a(g314 V7 tp22376 a(g339 V- tp22377 a(g198 V( tp22378 a(g18 Vi tp22379 a(g185 V tp22380 a(g111 Vmod p22381 tp22382 a(g185 V tp22383 a(g314 V8 tp22384 a(g198 V) tp22385 a(g185 V tp22386 a(g111 Vin p22387 tp22388 a(g185 V tp22389 a(g18 VTBitSet p22390 tp22391 a(g198 V( tp22392 a(g18 Va tp22393 a(g198 V[ tp22394 a(g18 Vi tp22395 a(g185 V tp22396 a(g111 Vdiv p22397 tp22398 a(g185 V tp22399 a(g314 V8 tp22400 a(g198 V]) p22401 tp22402 a(g339 V; tp22403 a(g185 V\u000a p22404 tp22405 a(g60 VResult p22406 tp22407 a(g185 V tp22408 a(g339 V: tp22409 a(g339 V= tp22410 a(g185 V tp22411 a(g60 VResult p22412 tp22413 a(g185 V tp22414 a(g339 V+ tp22415 a(g185 V tp22416 a(g135 VChar p22417 tp22418 a(g198 V( tp22419 a(g135 VByte p22420 tp22421 a(g198 V( tp22422 a(g222 V' tp22423 a(g222 V0 tp22424 a(g222 V' tp22425 a(g198 V) tp22426 a(g185 V tp22427 a(g339 V+ tp22428 a(g185 V tp22429 a(g135 VByte p22430 tp22431 a(g198 V( tp22432 a(g18 VBit p22433 tp22434 a(g198 V)) p22435 tp22436 a(g339 V; tp22437 a(g185 V\u000a p22438 tp22439 a(g111 Vif p22440 tp22441 a(g185 V tp22442 a(g18 Vi tp22443 a(g185 V tp22444 a(g339 V< tp22445 a(g185 V tp22446 a(g57 Vmax p22447 tp22448 a(g185 V tp22449 a(g111 Vthen p22450 tp22451 a(g185 V\u000a p22452 tp22453 a(g111 Vif p22454 tp22455 a(g185 V tp22456 a(g198 V(( p22457 tp22458 a(g18 Vi tp22459 a(g339 V+ tp22460 a(g314 V1 tp22461 a(g198 V) tp22462 a(g185 V tp22463 a(g111 Vmod p22464 tp22465 a(g185 V tp22466 a(g18 VBlocks p22467 tp22468 a(g198 V) tp22469 a(g185 V tp22470 a(g339 V= tp22471 a(g185 V tp22472 a(g314 V0 tp22473 a(g185 V tp22474 a(g111 Vthen p22475 tp22476 a(g185 V\u000a p22477 tp22478 a(g60 VResult p22479 tp22480 a(g185 V tp22481 a(g339 V: tp22482 a(g339 V= tp22483 a(g185 V tp22484 a(g60 VResult p22485 tp22486 a(g185 V tp22487 a(g339 V+ tp22488 a(g185 V tp22489 a(g18 VSplitter p22490 tp22491 a(g339 V; tp22492 a(g185 V\u000a p22493 tp22494 a(g111 Vend p22495 tp22496 a(g339 V; tp22497 a(g185 V\u000a p22498 tp22499 a(g111 Vend p22500 tp22501 a(g185 V tp22502 a(g111 Velse p22503 tp22504 a(g185 V\u000a p22505 tp22506 a(g111 Vfor p22507 tp22508 a(g185 V tp22509 a(g18 Vi tp22510 a(g185 V tp22511 a(g339 V: tp22512 a(g339 V= tp22513 a(g185 V tp22514 a(g314 V0 tp22515 a(g185 V tp22516 a(g111 Vto p22517 tp22518 a(g185 V tp22519 a(g57 VHigh p22520 tp22521 a(g198 V( tp22522 a(g18 Va tp22523 a(g198 V) tp22524 a(g185 V tp22525 a(g111 Vdo p22526 tp22527 a(g185 V\u000a p22528 tp22529 a(g60 VResult p22530 tp22531 a(g185 V tp22532 a(g339 V: tp22533 a(g339 V= tp22534 a(g185 V tp22535 a(g60 VResult p22536 tp22537 a(g185 V tp22538 a(g339 V+ tp22539 a(g185 V tp22540 a(g135 VChar p22541 tp22542 a(g198 V( tp22543 a(g135 VByte p22544 tp22545 a(g198 V( tp22546 a(g222 V' tp22547 a(g222 V0 tp22548 a(g222 V' tp22549 a(g198 V) tp22550 a(g185 V tp22551 a(g339 V+ tp22552 a(g185 V tp22553 a(g18 Va tp22554 a(g198 V[ tp22555 a(g18 Vi tp22556 a(g198 V] tp22557 a(g185 V tp22558 a(g111 Vshr p22559 tp22560 a(g185 V tp22561 a(g198 V( tp22562 a(g18 Vi tp22563 a(g185 V tp22564 a(g111 Vand p22565 tp22566 a(g185 V tp22567 a(g314 V8 tp22568 a(g198 V)) p22569 tp22570 a(g339 V; tp22571 a(g185 V\u000a tp22572 a(g111 Vend p22573 tp22574 a(g339 V; tp22575 a(g185 V\u000a\u000a p22576 tp22577 a(g111 Vfunction p22578 tp22579 a(g185 V tp22580 a(g21 VCardOfHex p22581 tp22582 a(g198 V( tp22583 a(g18 VHex p22584 tp22585 a(g339 V: tp22586 a(g185 V tp22587 a(g111 Vstring p22588 tp22589 a(g198 V) tp22590 a(g339 V: tp22591 a(g185 V tp22592 a(g135 VCardinal p22593 tp22594 a(g339 V; tp22595 a(g185 V\u000a tp22596 a(g111 Vvar p22597 tp22598 a(g185 V\u000a p22599 tp22600 a(g18 Vi tp22601 a(g339 V: tp22602 a(g185 V tp22603 a(g135 VInteger p22604 tp22605 a(g339 V; tp22606 a(g185 V\u000a tp22607 a(g111 Vbegin p22608 tp22609 a(g185 V\u000a p22610 tp22611 a(g60 VResult p22612 tp22613 a(g185 V tp22614 a(g339 V: tp22615 a(g339 V= tp22616 a(g185 V tp22617 a(g314 V0 tp22618 a(g339 V; tp22619 a(g185 V\u000a p22620 tp22621 a(g18 VHex p22622 tp22623 a(g185 V tp22624 a(g339 V: tp22625 a(g339 V= tp22626 a(g185 V tp22627 a(g57 VCopy p22628 tp22629 a(g198 V( tp22630 a(g18 VExtractChars p22631 tp22632 a(g198 V( tp22633 a(g18 VHex p22634 tp22635 a(g339 V, tp22636 a(g185 V tp22637 a(g18 VHexadecimalChars p22638 tp22639 a(g198 V) tp22640 a(g339 V, tp22641 a(g185 V tp22642 a(g314 V1 tp22643 a(g339 V, tp22644 a(g185 V tp22645 a(g314 V8 tp22646 a(g198 V) tp22647 a(g339 V; tp22648 a(g185 V\u000a\u000a p22649 tp22650 a(g111 Vfor p22651 tp22652 a(g185 V tp22653 a(g18 Vi tp22654 a(g185 V tp22655 a(g339 V: tp22656 a(g339 V= tp22657 a(g185 V tp22658 a(g314 V1 tp22659 a(g185 V tp22660 a(g111 Vto p22661 tp22662 a(g185 V tp22663 a(g57 VLength p22664 tp22665 a(g198 V( tp22666 a(g18 VHex p22667 tp22668 a(g198 V) tp22669 a(g185 V tp22670 a(g111 Vdo p22671 tp22672 a(g185 V\u000a p22673 tp22674 a(g111 Vif p22675 tp22676 a(g185 V tp22677 a(g18 VHex p22678 tp22679 a(g198 V[ tp22680 a(g18 Vi tp22681 a(g198 V] tp22682 a(g185 V tp22683 a(g339 V< tp22684 a(g339 V> tp22685 a(g185 V tp22686 a(g222 V' tp22687 a(g222 V0 tp22688 a(g222 V' tp22689 a(g185 V tp22690 a(g111 Vthen p22691 tp22692 a(g185 V\u000a p22693 tp22694 a(g57 VInc p22695 tp22696 a(g198 V( tp22697 a(g60 VResult p22698 tp22699 a(g339 V, tp22700 a(g185 V tp22701 a(g18 VHexOrd p22702 tp22703 a(g198 V( tp22704 a(g18 VHex p22705 tp22706 a(g198 V[ tp22707 a(g18 Vi tp22708 a(g198 V]) p22709 tp22710 a(g185 V tp22711 a(g111 Vshl p22712 tp22713 a(g185 V tp22714 a(g198 V(( p22715 tp22716 a(g57 VLength p22717 tp22718 a(g198 V( tp22719 a(g18 VHex p22720 tp22721 a(g198 V) tp22722 a(g185 V tp22723 a(g339 V- tp22724 a(g185 V tp22725 a(g18 Vi tp22726 a(g198 V) tp22727 a(g185 V tp22728 a(g111 Vshl p22729 tp22730 a(g185 V tp22731 a(g314 V2 tp22732 a(g198 V)) p22733 tp22734 a(g339 V; tp22735 a(g185 V\u000a tp22736 a(g111 Vend p22737 tp22738 a(g339 V; tp22739 a(g185 V\u000a\u000a p22740 tp22741 a(g111 Vfunction p22742 tp22743 a(g185 V tp22744 a(g21 VIntOfBin p22745 tp22746 a(g198 V( tp22747 a(g18 VBin p22748 tp22749 a(g339 V: tp22750 a(g185 V tp22751 a(g111 Vstring p22752 tp22753 a(g198 V) tp22754 a(g339 V: tp22755 a(g185 V tp22756 a(g135 VCardinal p22757 tp22758 a(g339 V; tp22759 a(g185 V\u000a tp22760 a(g111 Vvar p22761 tp22762 a(g185 V\u000a p22763 tp22764 a(g18 Vi tp22765 a(g339 V: tp22766 a(g185 V tp22767 a(g135 VInteger p22768 tp22769 a(g339 V; tp22770 a(g185 V\u000a tp22771 a(g111 Vbegin p22772 tp22773 a(g185 V\u000a p22774 tp22775 a(g60 VResult p22776 tp22777 a(g185 V tp22778 a(g339 V: tp22779 a(g339 V= tp22780 a(g185 V tp22781 a(g314 V0 tp22782 a(g339 V; tp22783 a(g185 V\u000a p22784 tp22785 a(g18 VBin p22786 tp22787 a(g185 V tp22788 a(g339 V: tp22789 a(g339 V= tp22790 a(g185 V tp22791 a(g57 VCopy p22792 tp22793 a(g198 V( tp22794 a(g18 VExtractChars p22795 tp22796 a(g198 V( tp22797 a(g18 VBin p22798 tp22799 a(g339 V, tp22800 a(g185 V tp22801 a(g18 VBinaryChars p22802 tp22803 a(g198 V) tp22804 a(g339 V, tp22805 a(g185 V tp22806 a(g314 V1 tp22807 a(g339 V, tp22808 a(g185 V tp22809 a(g314 V32 p22810 tp22811 a(g198 V) tp22812 a(g339 V; tp22813 a(g185 V\u000a\u000a p22814 tp22815 a(g111 Vfor p22816 tp22817 a(g185 V tp22818 a(g18 Vi tp22819 a(g185 V tp22820 a(g339 V: tp22821 a(g339 V= tp22822 a(g185 V tp22823 a(g57 VLength p22824 tp22825 a(g198 V( tp22826 a(g18 VBin p22827 tp22828 a(g198 V) tp22829 a(g185 V tp22830 a(g111 Vdownto p22831 tp22832 a(g185 V tp22833 a(g314 V1 tp22834 a(g185 V tp22835 a(g111 Vdo p22836 tp22837 a(g185 V\u000a p22838 tp22839 a(g111 Vif p22840 tp22841 a(g185 V tp22842 a(g18 VBin p22843 tp22844 a(g198 V[ tp22845 a(g18 Vi tp22846 a(g198 V] tp22847 a(g185 V tp22848 a(g339 V= tp22849 a(g185 V tp22850 a(g222 V' tp22851 a(g222 V1 tp22852 a(g222 V' tp22853 a(g185 V tp22854 a(g111 Vthen p22855 tp22856 a(g185 V\u000a p22857 tp22858 a(g57 VInc p22859 tp22860 a(g198 V( tp22861 a(g60 VResult p22862 tp22863 a(g339 V, tp22864 a(g185 V tp22865 a(g314 V1 tp22866 a(g185 V tp22867 a(g111 Vshl p22868 tp22869 a(g185 V tp22870 a(g198 V( tp22871 a(g57 VLength p22872 tp22873 a(g198 V( tp22874 a(g18 VBin p22875 tp22876 a(g198 V) tp22877 a(g185 V tp22878 a(g339 V- tp22879 a(g185 V tp22880 a(g18 Vi tp22881 a(g198 V)) p22882 tp22883 a(g339 V; tp22884 a(g185 V\u000a tp22885 a(g111 Vend p22886 tp22887 a(g339 V; tp22888 a(g185 V\u000a\u000a p22889 tp22890 a(g111 Vfunction p22891 tp22892 a(g185 V tp22893 a(g21 VBinOfInt p22894 tp22895 a(g198 V( tp22896 a(g18 Vn tp22897 a(g339 V: tp22898 a(g185 V tp22899 a(g135 VCardinal p22900 tp22901 a(g198 V) tp22902 a(g339 V: tp22903 a(g185 V tp22904 a(g111 Vstring p22905 tp22906 a(g339 V; tp22907 a(g185 V\u000a tp22908 a(g111 Vvar p22909 tp22910 a(g185 V\u000a p22911 tp22912 a(g18 Va tp22913 a(g339 V: tp22914 a(g185 V tp22915 a(g135 VInteger p22916 tp22917 a(g339 V; tp22918 a(g185 V\u000a tp22919 a(g111 Vbegin p22920 tp22921 a(g185 V\u000a p22922 tp22923 a(g111 Vif p22924 tp22925 a(g185 V tp22926 a(g18 Vn tp22927 a(g185 V tp22928 a(g339 V= tp22929 a(g185 V tp22930 a(g314 V0 tp22931 a(g185 V tp22932 a(g111 Vthen p22933 tp22934 a(g185 V tp22935 a(g111 Vbegin p22936 tp22937 a(g185 V\u000a p22938 tp22939 a(g60 VResult p22940 tp22941 a(g185 V tp22942 a(g339 V: tp22943 a(g339 V= tp22944 a(g185 V tp22945 a(g222 V' tp22946 a(g222 V0 tp22947 a(g222 V' tp22948 a(g339 V; tp22949 a(g185 V\u000a p22950 tp22951 a(g111 Vexit p22952 tp22953 a(g339 V; tp22954 a(g185 V tp22955 a(g111 Vend p22956 tp22957 a(g339 V; tp22958 a(g185 V\u000a\u000a p22959 tp22960 a(g60 VResult p22961 tp22962 a(g185 V tp22963 a(g339 V: tp22964 a(g339 V= tp22965 a(g185 V tp22966 a(g222 V' tp22967 a(g222 V' tp22968 a(g339 V; tp22969 a(g185 V\u000a p22970 tp22971 a(g111 Vwhile p22972 tp22973 a(g185 V tp22974 a(g18 Vn tp22975 a(g185 V tp22976 a(g339 V> tp22977 a(g185 V tp22978 a(g314 V0 tp22979 a(g185 V tp22980 a(g111 Vdo p22981 tp22982 a(g185 V tp22983 a(g111 Vbegin p22984 tp22985 a(g185 V\u000a p22986 tp22987 a(g18 Va tp22988 a(g185 V tp22989 a(g339 V: tp22990 a(g339 V= tp22991 a(g185 V tp22992 a(g18 Vn tp22993 a(g185 V tp22994 a(g111 Vand p22995 tp22996 a(g185 V tp22997 a(g314 V1 tp22998 a(g339 V; tp22999 a(g185 V\u000a p23000 tp23001 a(g60 VResult p23002 tp23003 a(g185 V tp23004 a(g339 V: tp23005 a(g339 V= tp23006 a(g185 V tp23007 a(g135 VChar p23008 tp23009 a(g198 V( tp23010 a(g18 Va tp23011 a(g185 V tp23012 a(g339 V+ tp23013 a(g185 V tp23014 a(g135 VByte p23015 tp23016 a(g198 V( tp23017 a(g222 V' tp23018 a(g222 V0 tp23019 a(g222 V' tp23020 a(g198 V)) p23021 tp23022 a(g185 V tp23023 a(g339 V+ tp23024 a(g185 V tp23025 a(g60 VResult p23026 tp23027 a(g339 V; tp23028 a(g185 V\u000a p23029 tp23030 a(g18 Vn tp23031 a(g185 V tp23032 a(g339 V: tp23033 a(g339 V= tp23034 a(g185 V tp23035 a(g18 Vn tp23036 a(g185 V tp23037 a(g111 Vshr p23038 tp23039 a(g185 V tp23040 a(g314 V1 tp23041 a(g339 V; tp23042 a(g185 V\u000a p23043 tp23044 a(g111 Vend p23045 tp23046 a(g339 V; tp23047 a(g185 V\u000a tp23048 a(g111 Vend p23049 tp23050 a(g339 V; tp23051 a(g185 V\u000a\u000a p23052 tp23053 a(g111 Vfunction p23054 tp23055 a(g185 V tp23056 a(g21 VBinOfIntFill p23057 tp23058 a(g198 V( tp23059 a(g18 Vn tp23060 a(g339 V: tp23061 a(g185 V tp23062 a(g135 VCardinal p23063 tp23064 a(g339 V; tp23065 a(g185 V tp23066 a(g18 VMinCount p23067 tp23068 a(g339 V: tp23069 a(g185 V tp23070 a(g135 VInteger p23071 tp23072 a(g185 V tp23073 a(g339 V= tp23074 a(g185 V tp23075 a(g314 V8 tp23076 a(g198 V) tp23077 a(g339 V: tp23078 a(g185 V tp23079 a(g111 Vstring p23080 tp23081 a(g339 V; tp23082 a(g185 V\u000a tp23083 a(g111 Vvar p23084 tp23085 a(g185 V\u000a p23086 tp23087 a(g18 Va tp23088 a(g339 V: tp23089 a(g185 V tp23090 a(g135 VInteger p23091 tp23092 a(g339 V; tp23093 a(g185 V\u000a tp23094 a(g111 Vbegin p23095 tp23096 a(g185 V\u000a p23097 tp23098 a(g111 Vif p23099 tp23100 a(g185 V tp23101 a(g18 Vn tp23102 a(g185 V tp23103 a(g339 V= tp23104 a(g185 V tp23105 a(g314 V0 tp23106 a(g185 V tp23107 a(g111 Vthen p23108 tp23109 a(g185 V tp23110 a(g111 Vbegin p23111 tp23112 a(g185 V\u000a p23113 tp23114 a(g60 VResult p23115 tp23116 a(g185 V tp23117 a(g339 V: tp23118 a(g339 V= tp23119 a(g185 V tp23120 a(g18 VMulStr p23121 tp23122 a(g198 V( tp23123 a(g222 V' tp23124 a(g222 V0 tp23125 a(g222 V' tp23126 a(g339 V, tp23127 a(g185 V tp23128 a(g18 VMinCount p23129 tp23130 a(g198 V) tp23131 a(g339 V; tp23132 a(g185 V\u000a p23133 tp23134 a(g111 VExit p23135 tp23136 a(g339 V; tp23137 a(g185 V tp23138 a(g111 Vend p23139 tp23140 a(g339 V; tp23141 a(g185 V\u000a\u000a p23142 tp23143 a(g60 VResult p23144 tp23145 a(g185 V tp23146 a(g339 V: tp23147 a(g339 V= tp23148 a(g185 V tp23149 a(g222 V' tp23150 a(g222 V' tp23151 a(g339 V; tp23152 a(g185 V\u000a p23153 tp23154 a(g111 Vwhile p23155 tp23156 a(g185 V tp23157 a(g18 Vn tp23158 a(g185 V tp23159 a(g339 V> tp23160 a(g185 V tp23161 a(g314 V0 tp23162 a(g185 V tp23163 a(g111 Vdo p23164 tp23165 a(g185 V tp23166 a(g111 Vbegin p23167 tp23168 a(g185 V\u000a p23169 tp23170 a(g18 Va tp23171 a(g185 V tp23172 a(g339 V: tp23173 a(g339 V= tp23174 a(g185 V tp23175 a(g18 Vn tp23176 a(g185 V tp23177 a(g111 Vand p23178 tp23179 a(g185 V tp23180 a(g314 V1 tp23181 a(g339 V; tp23182 a(g185 V\u000a p23183 tp23184 a(g60 VResult p23185 tp23186 a(g185 V tp23187 a(g339 V: tp23188 a(g339 V= tp23189 a(g185 V tp23190 a(g135 VChar p23191 tp23192 a(g198 V( tp23193 a(g18 Va tp23194 a(g185 V tp23195 a(g339 V+ tp23196 a(g185 V tp23197 a(g135 VByte p23198 tp23199 a(g198 V( tp23200 a(g222 V' tp23201 a(g222 V0 tp23202 a(g222 V' tp23203 a(g198 V)) p23204 tp23205 a(g185 V tp23206 a(g339 V+ tp23207 a(g185 V tp23208 a(g60 VResult p23209 tp23210 a(g339 V; tp23211 a(g185 V\u000a p23212 tp23213 a(g18 Vn tp23214 a(g185 V tp23215 a(g339 V: tp23216 a(g339 V= tp23217 a(g185 V tp23218 a(g18 Vn tp23219 a(g185 V tp23220 a(g111 Vshr p23221 tp23222 a(g185 V tp23223 a(g314 V1 tp23224 a(g339 V; tp23225 a(g185 V\u000a p23226 tp23227 a(g111 Vend p23228 tp23229 a(g339 V; tp23230 a(g185 V\u000a p23231 tp23232 a(g60 VResult p23233 tp23234 a(g185 V tp23235 a(g339 V: tp23236 a(g339 V= tp23237 a(g185 V tp23238 a(g18 VMulStr p23239 tp23240 a(g198 V( tp23241 a(g222 V' tp23242 a(g222 V0 tp23243 a(g222 V' tp23244 a(g339 V, tp23245 a(g185 V tp23246 a(g18 VMinCount p23247 tp23248 a(g185 V tp23249 a(g339 V- tp23250 a(g185 V tp23251 a(g57 VLength p23252 tp23253 a(g198 V( tp23254 a(g60 VResult p23255 tp23256 a(g198 V)) p23257 tp23258 a(g185 V tp23259 a(g339 V+ tp23260 a(g185 V tp23261 a(g60 VResult p23262 tp23263 a(g339 V; tp23264 a(g185 V\u000a tp23265 a(g111 Vend p23266 tp23267 a(g339 V; tp23268 a(g185 V\u000a\u000a p23269 tp23270 a(g111 Vfunction p23271 tp23272 a(g185 V tp23273 a(g21 VBaseNOfInt p23274 tp23275 a(g198 V( tp23276 a(g18 VI tp23277 a(g339 V: tp23278 a(g185 V tp23279 a(g135 VCardinal p23280 tp23281 a(g339 V; tp23282 a(g185 V tp23283 a(g18 VB tp23284 a(g339 V: tp23285 a(g185 V tp23286 a(g18 VTBaseN p23287 tp23288 a(g198 V) tp23289 a(g339 V: tp23290 a(g185 V tp23291 a(g111 Vstring p23292 tp23293 a(g339 V; tp23294 a(g185 V\u000a tp23295 a(g111 Vvar p23296 tp23297 a(g185 V\u000a p23298 tp23299 a(g18 Va tp23300 a(g339 V: tp23301 a(g185 V tp23302 a(g135 VInteger p23303 tp23304 a(g339 V; tp23305 a(g185 V\u000a tp23306 a(g111 Vbegin p23307 tp23308 a(g185 V\u000a p23309 tp23310 a(g111 Vif p23311 tp23312 a(g185 V tp23313 a(g198 V( tp23314 a(g18 VB tp23315 a(g185 V tp23316 a(g339 V< tp23317 a(g185 V tp23318 a(g314 V2 tp23319 a(g198 V) tp23320 a(g185 V tp23321 a(g111 Vor p23322 tp23323 a(g185 V tp23324 a(g198 V( tp23325 a(g18 Vi tp23326 a(g185 V tp23327 a(g339 V= tp23328 a(g185 V tp23329 a(g314 V0 tp23330 a(g198 V) tp23331 a(g185 V tp23332 a(g111 Vthen p23333 tp23334 a(g185 V tp23335 a(g111 Vbegin p23336 tp23337 a(g185 V\u000a p23338 tp23339 a(g60 VResult p23340 tp23341 a(g185 V tp23342 a(g339 V: tp23343 a(g339 V= tp23344 a(g185 V tp23345 a(g222 V' tp23346 a(g222 V0 tp23347 a(g222 V' tp23348 a(g339 V; tp23349 a(g185 V\u000a p23350 tp23351 a(g111 VExit p23352 tp23353 a(g339 V; tp23354 a(g185 V tp23355 a(g111 Vend p23356 tp23357 a(g339 V; tp23358 a(g185 V\u000a\u000a p23359 tp23360 a(g60 VResult p23361 tp23362 a(g185 V tp23363 a(g339 V: tp23364 a(g339 V= tp23365 a(g185 V tp23366 a(g222 V' tp23367 a(g222 V' tp23368 a(g339 V; tp23369 a(g185 V\u000a p23370 tp23371 a(g111 Vwhile p23372 tp23373 a(g185 V tp23374 a(g18 Vi tp23375 a(g185 V tp23376 a(g339 V> tp23377 a(g185 V tp23378 a(g314 V0 tp23379 a(g185 V tp23380 a(g111 Vdo p23381 tp23382 a(g185 V tp23383 a(g111 Vbegin p23384 tp23385 a(g185 V\u000a p23386 tp23387 a(g18 Va tp23388 a(g185 V tp23389 a(g339 V: tp23390 a(g339 V= tp23391 a(g185 V tp23392 a(g18 Vi tp23393 a(g185 V tp23394 a(g111 Vmod p23395 tp23396 a(g185 V tp23397 a(g18 VB tp23398 a(g339 V; tp23399 a(g185 V\u000a p23400 tp23401 a(g60 VResult p23402 tp23403 a(g185 V tp23404 a(g339 V: tp23405 a(g339 V= tp23406 a(g185 V tp23407 a(g18 VBaseNChar p23408 tp23409 a(g198 V[ tp23410 a(g18 Va tp23411 a(g198 V] tp23412 a(g185 V tp23413 a(g339 V+ tp23414 a(g185 V tp23415 a(g60 VResult p23416 tp23417 a(g339 V; tp23418 a(g185 V\u000a p23419 tp23420 a(g18 Vi tp23421 a(g185 V tp23422 a(g339 V: tp23423 a(g339 V= tp23424 a(g185 V tp23425 a(g18 Vi tp23426 a(g185 V tp23427 a(g111 Vdiv p23428 tp23429 a(g185 V tp23430 a(g18 VB tp23431 a(g339 V; tp23432 a(g185 V\u000a p23433 tp23434 a(g111 Vend p23435 tp23436 a(g339 V; tp23437 a(g185 V\u000a tp23438 a(g111 Vend p23439 tp23440 a(g339 V; tp23441 a(g185 V\u000a\u000a p23442 tp23443 a(g111 Vfunction p23444 tp23445 a(g185 V tp23446 a(g21 VIntOfBaseN p23447 tp23448 a(g198 V( tp23449 a(g18 VV tp23450 a(g339 V: tp23451 a(g185 V tp23452 a(g111 Vstring p23453 tp23454 a(g339 V; tp23455 a(g185 V tp23456 a(g18 VB tp23457 a(g339 V: tp23458 a(g185 V tp23459 a(g18 VTBaseN p23460 tp23461 a(g198 V) tp23462 a(g339 V: tp23463 a(g185 V tp23464 a(g135 VCardinal p23465 tp23466 a(g339 V; tp23467 a(g185 V\u000a tp23468 a(g111 Vvar p23469 tp23470 a(g185 V\u000a p23471 tp23472 a(g18 Vi tp23473 a(g339 V: tp23474 a(g185 V tp23475 a(g135 VInteger p23476 tp23477 a(g339 V; tp23478 a(g185 V\u000a p23479 tp23480 a(g18 VF tp23481 a(g339 V: tp23482 a(g185 V tp23483 a(g135 VCardinal p23484 tp23485 a(g339 V; tp23486 a(g185 V\u000a p23487 tp23488 a(g18 Vc tp23489 a(g339 V: tp23490 a(g185 V tp23491 a(g135 VByte p23492 tp23493 a(g339 V; tp23494 a(g185 V\u000a tp23495 a(g111 Vbegin p23496 tp23497 a(g185 V\u000a p23498 tp23499 a(g60 VResult p23500 tp23501 a(g185 V tp23502 a(g339 V: tp23503 a(g339 V= tp23504 a(g185 V tp23505 a(g314 V0 tp23506 a(g339 V; tp23507 a(g185 V\u000a p23508 tp23509 a(g18 VV tp23510 a(g185 V tp23511 a(g339 V: tp23512 a(g339 V= tp23513 a(g185 V tp23514 a(g18 VTrimAll p23515 tp23516 a(g198 V( tp23517 a(g18 VV tp23518 a(g198 V) tp23519 a(g339 V; tp23520 a(g185 V\u000a p23521 tp23522 a(g18 VF tp23523 a(g185 V tp23524 a(g339 V: tp23525 a(g339 V= tp23526 a(g185 V tp23527 a(g314 V1 tp23528 a(g339 V; tp23529 a(g185 V\u000a p23530 tp23531 a(g111 Vfor p23532 tp23533 a(g185 V tp23534 a(g18 Vi tp23535 a(g185 V tp23536 a(g339 V: tp23537 a(g339 V= tp23538 a(g185 V tp23539 a(g57 VLength p23540 tp23541 a(g198 V( tp23542 a(g18 VV tp23543 a(g198 V) tp23544 a(g185 V tp23545 a(g111 Vdownto p23546 tp23547 a(g185 V tp23548 a(g314 V1 tp23549 a(g185 V tp23550 a(g111 Vdo p23551 tp23552 a(g185 V tp23553 a(g111 Vbegin p23554 tp23555 a(g185 V\u000a p23556 tp23557 a(g18 Vc tp23558 a(g185 V tp23559 a(g339 V: tp23560 a(g339 V= tp23561 a(g185 V tp23562 a(g135 VByte p23563 tp23564 a(g198 V( tp23565 a(g57 VUpCase p23566 tp23567 a(g198 V( tp23568 a(g18 VV tp23569 a(g198 V[ tp23570 a(g18 Vi tp23571 a(g198 V])) p23572 tp23573 a(g339 V; tp23574 a(g185 V\u000a p23575 tp23576 a(g111 Vcase p23577 tp23578 a(g185 V tp23579 a(g135 VChar p23580 tp23581 a(g198 V( tp23582 a(g18 Vc tp23583 a(g198 V) tp23584 a(g185 V tp23585 a(g111 Vof p23586 tp23587 a(g185 V\u000a p23588 tp23589 a(g222 V' tp23590 a(g222 V0 tp23591 a(g222 V' tp23592 a(g339 V. tp23593 a(g339 V. tp23594 a(g222 V' tp23595 a(g222 V9 tp23596 a(g222 V' tp23597 a(g339 V: tp23598 a(g185 V tp23599 a(g18 Vc tp23600 a(g185 V tp23601 a(g339 V: tp23602 a(g339 V= tp23603 a(g185 V tp23604 a(g18 Vc tp23605 a(g185 V tp23606 a(g339 V- tp23607 a(g185 V tp23608 a(g314 V48 p23609 tp23610 a(g339 V; tp23611 a(g185 V\u000a p23612 tp23613 a(g222 V' tp23614 a(g222 VA tp23615 a(g222 V' tp23616 a(g339 V. tp23617 a(g339 V. tp23618 a(g222 V' tp23619 a(g222 VZ tp23620 a(g222 V' tp23621 a(g339 V: tp23622 a(g185 V tp23623 a(g18 Vc tp23624 a(g185 V tp23625 a(g339 V: tp23626 a(g339 V= tp23627 a(g185 V tp23628 a(g18 Vc tp23629 a(g185 V tp23630 a(g339 V- tp23631 a(g185 V tp23632 a(g314 V55 p23633 tp23634 a(g339 V; tp23635 a(g185 V\u000a p23636 tp23637 a(g111 Vend p23638 tp23639 a(g339 V; tp23640 a(g185 V\u000a p23641 tp23642 a(g111 Vif p23643 tp23644 a(g185 V tp23645 a(g18 Vc tp23646 a(g185 V tp23647 a(g339 V< tp23648 a(g185 V tp23649 a(g18 VB tp23650 a(g185 V tp23651 a(g111 Vthen p23652 tp23653 a(g185 V\u000a p23654 tp23655 a(g60 VResult p23656 tp23657 a(g185 V tp23658 a(g339 V: tp23659 a(g339 V= tp23660 a(g185 V tp23661 a(g60 VResult p23662 tp23663 a(g185 V tp23664 a(g339 V+ tp23665 a(g185 V tp23666 a(g135 VByte p23667 tp23668 a(g198 V( tp23669 a(g18 Vc tp23670 a(g198 V) tp23671 a(g185 V tp23672 a(g339 V* tp23673 a(g185 V tp23674 a(g18 VF tp23675 a(g339 V; tp23676 a(g185 V\u000a p23677 tp23678 a(g18 VF tp23679 a(g185 V tp23680 a(g339 V: tp23681 a(g339 V= tp23682 a(g185 V tp23683 a(g18 VF tp23684 a(g185 V tp23685 a(g339 V* tp23686 a(g185 V tp23687 a(g18 VB tp23688 a(g339 V; tp23689 a(g185 V\u000a p23690 tp23691 a(g111 Vend p23692 tp23693 a(g339 V; tp23694 a(g185 V\u000a tp23695 a(g111 Vend p23696 tp23697 a(g339 V; tp23698 a(g185 V\u000a\u000a p23699 tp23700 a(g111 Vfunction p23701 tp23702 a(g185 V tp23703 a(g21 VKeepIn p23704 tp23705 a(g198 V( tp23706 a(g18 Vi tp23707 a(g339 V, tp23708 a(g185 V tp23709 a(g18 VBottom p23710 tp23711 a(g339 V, tp23712 a(g185 V tp23713 a(g18 VTop p23714 tp23715 a(g339 V: tp23716 a(g185 V tp23717 a(g135 VVariant p23718 tp23719 a(g198 V) tp23720 a(g339 V: tp23721 a(g185 V tp23722 a(g135 VVariant p23723 tp23724 a(g339 V; tp23725 a(g185 V\u000a tp23726 a(g111 Vbegin p23727 tp23728 a(g185 V\u000a p23729 tp23730 a(g60 VResult p23731 tp23732 a(g185 V tp23733 a(g339 V: tp23734 a(g339 V= tp23735 a(g185 V tp23736 a(g18 Vi tp23737 a(g339 V; tp23738 a(g185 V\u000a p23739 tp23740 a(g111 Vif p23741 tp23742 a(g185 V tp23743 a(g60 VResult p23744 tp23745 a(g185 V tp23746 a(g339 V> tp23747 a(g185 V tp23748 a(g18 VTop p23749 tp23750 a(g185 V tp23751 a(g111 Vthen p23752 tp23753 a(g185 V\u000a p23754 tp23755 a(g60 VResult p23756 tp23757 a(g185 V tp23758 a(g339 V: tp23759 a(g339 V= tp23760 a(g185 V tp23761 a(g18 VTop p23762 tp23763 a(g185 V\u000a p23764 tp23765 a(g111 Velse p23766 tp23767 a(g185 V tp23768 a(g111 Vif p23769 tp23770 a(g185 V tp23771 a(g60 VResult p23772 tp23773 a(g185 V tp23774 a(g339 V< tp23775 a(g185 V tp23776 a(g18 VBottom p23777 tp23778 a(g185 V tp23779 a(g111 Vthen p23780 tp23781 a(g185 V\u000a p23782 tp23783 a(g60 VResult p23784 tp23785 a(g185 V tp23786 a(g339 V: tp23787 a(g339 V= tp23788 a(g185 V tp23789 a(g18 VBottom p23790 tp23791 a(g339 V; tp23792 a(g185 V\u000a tp23793 a(g111 Vend p23794 tp23795 a(g339 V; tp23796 a(g185 V\u000a\u000a p23797 tp23798 a(g111 Vfunction p23799 tp23800 a(g185 V tp23801 a(g21 VInRange p23802 tp23803 a(g198 V( tp23804 a(g18 VValue p23805 tp23806 a(g339 V, tp23807 a(g185 V tp23808 a(g18 VBottom p23809 tp23810 a(g339 V, tp23811 a(g185 V tp23812 a(g18 VTop p23813 tp23814 a(g339 V: tp23815 a(g185 V tp23816 a(g135 VVariant p23817 tp23818 a(g198 V) tp23819 a(g339 V: tp23820 a(g185 V tp23821 a(g135 VBoolean p23822 tp23823 a(g339 V; tp23824 a(g185 V\u000a tp23825 a(g111 Vbegin p23826 tp23827 a(g185 V\u000a p23828 tp23829 a(g60 VResult p23830 tp23831 a(g185 V tp23832 a(g339 V: tp23833 a(g339 V= tp23834 a(g185 V tp23835 a(g198 V( tp23836 a(g18 VValue p23837 tp23838 a(g185 V tp23839 a(g339 V> tp23840 a(g339 V= tp23841 a(g185 V tp23842 a(g18 VBottom p23843 tp23844 a(g198 V) tp23845 a(g185 V tp23846 a(g111 Vand p23847 tp23848 a(g185 V tp23849 a(g198 V( tp23850 a(g18 VValue p23851 tp23852 a(g185 V tp23853 a(g339 V< tp23854 a(g339 V= tp23855 a(g185 V tp23856 a(g18 VTop p23857 tp23858 a(g198 V) tp23859 a(g339 V; tp23860 a(g185 V\u000a tp23861 a(g111 Vend p23862 tp23863 a(g339 V; tp23864 a(g185 V\u000a\u000a p23865 tp23866 a(g111 Vfunction p23867 tp23868 a(g185 V tp23869 a(g21 VInStrictRange p23870 tp23871 a(g198 V( tp23872 a(g18 VValue p23873 tp23874 a(g339 V, tp23875 a(g185 V tp23876 a(g18 VBottom p23877 tp23878 a(g339 V, tp23879 a(g185 V tp23880 a(g18 VTop p23881 tp23882 a(g339 V: tp23883 a(g185 V tp23884 a(g135 VVariant p23885 tp23886 a(g198 V) tp23887 a(g339 V: tp23888 a(g185 V tp23889 a(g135 VBoolean p23890 tp23891 a(g339 V; tp23892 a(g185 V\u000a tp23893 a(g111 Vbegin p23894 tp23895 a(g185 V\u000a p23896 tp23897 a(g60 VResult p23898 tp23899 a(g185 V tp23900 a(g339 V: tp23901 a(g339 V= tp23902 a(g185 V tp23903 a(g198 V( tp23904 a(g18 VValue p23905 tp23906 a(g185 V tp23907 a(g339 V> tp23908 a(g185 V tp23909 a(g18 VBottom p23910 tp23911 a(g198 V) tp23912 a(g185 V tp23913 a(g111 Vand p23914 tp23915 a(g185 V tp23916 a(g198 V( tp23917 a(g18 VValue p23918 tp23919 a(g185 V tp23920 a(g339 V< tp23921 a(g185 V tp23922 a(g18 VTop p23923 tp23924 a(g198 V) tp23925 a(g339 V; tp23926 a(g185 V\u000a tp23927 a(g111 Vend p23928 tp23929 a(g339 V; tp23930 a(g185 V\u000a\u000a p23931 tp23932 a(g111 Vfunction p23933 tp23934 a(g185 V tp23935 a(g21 VMin p23936 tp23937 a(g198 V( tp23938 a(g111 Vconst p23939 tp23940 a(g185 V tp23941 a(g18 VA tp23942 a(g339 V, tp23943 a(g185 V tp23944 a(g18 VB tp23945 a(g339 V: tp23946 a(g185 V tp23947 a(g135 VInteger p23948 tp23949 a(g198 V) tp23950 a(g339 V: tp23951 a(g185 V tp23952 a(g135 VInteger p23953 tp23954 a(g339 V; tp23955 a(g185 V\u000a tp23956 a(g111 Vbegin p23957 tp23958 a(g185 V\u000a p23959 tp23960 a(g111 Vif p23961 tp23962 a(g185 V tp23963 a(g18 VA tp23964 a(g185 V tp23965 a(g339 V< tp23966 a(g185 V tp23967 a(g18 VB tp23968 a(g185 V tp23969 a(g111 Vthen p23970 tp23971 a(g185 V\u000a p23972 tp23973 a(g60 VResult p23974 tp23975 a(g185 V tp23976 a(g339 V: tp23977 a(g339 V= tp23978 a(g185 V tp23979 a(g18 VA tp23980 a(g185 V\u000a p23981 tp23982 a(g111 Velse p23983 tp23984 a(g185 V\u000a p23985 tp23986 a(g60 VResult p23987 tp23988 a(g185 V tp23989 a(g339 V: tp23990 a(g339 V= tp23991 a(g185 V tp23992 a(g18 VB tp23993 a(g339 V; tp23994 a(g185 V\u000a tp23995 a(g111 Vend p23996 tp23997 a(g339 V; tp23998 a(g185 V\u000a\u000a p23999 tp24000 a(g111 Vfunction p24001 tp24002 a(g185 V tp24003 a(g21 VMin p24004 tp24005 a(g198 V( tp24006 a(g111 Vconst p24007 tp24008 a(g185 V tp24009 a(g18 VA tp24010 a(g339 V: tp24011 a(g185 V tp24012 a(g18 VTIntA p24013 tp24014 a(g198 V) tp24015 a(g339 V: tp24016 a(g185 V tp24017 a(g135 VInteger p24018 tp24019 a(g339 V; tp24020 a(g185 V\u000a tp24021 a(g111 Vvar p24022 tp24023 a(g185 V\u000a p24024 tp24025 a(g18 Vi tp24026 a(g339 V: tp24027 a(g185 V tp24028 a(g135 VInteger p24029 tp24030 a(g339 V; tp24031 a(g185 V\u000a tp24032 a(g111 Vbegin p24033 tp24034 a(g185 V\u000a p24035 tp24036 a(g60 VResult p24037 tp24038 a(g185 V tp24039 a(g339 V: tp24040 a(g339 V= tp24041 a(g185 V tp24042 a(g314 V0 tp24043 a(g339 V; tp24044 a(g185 V\u000a p24045 tp24046 a(g111 Vif p24047 tp24048 a(g185 V tp24049 a(g57 VLength p24050 tp24051 a(g198 V( tp24052 a(g18 VA tp24053 a(g198 V) tp24054 a(g185 V tp24055 a(g339 V= tp24056 a(g185 V tp24057 a(g314 V0 tp24058 a(g185 V tp24059 a(g111 Vthen p24060 tp24061 a(g185 V\u000a p24062 tp24063 a(g111 VExit p24064 tp24065 a(g339 V; tp24066 a(g185 V\u000a\u000a p24067 tp24068 a(g60 VResult p24069 tp24070 a(g185 V tp24071 a(g339 V: tp24072 a(g339 V= tp24073 a(g185 V tp24074 a(g18 VA tp24075 a(g198 V[ tp24076 a(g314 V0 tp24077 a(g198 V] tp24078 a(g339 V; tp24079 a(g185 V\u000a p24080 tp24081 a(g111 Vfor p24082 tp24083 a(g185 V tp24084 a(g18 Vi tp24085 a(g185 V tp24086 a(g339 V: tp24087 a(g339 V= tp24088 a(g185 V tp24089 a(g314 V1 tp24090 a(g185 V tp24091 a(g111 Vto p24092 tp24093 a(g185 V tp24094 a(g57 VHigh p24095 tp24096 a(g198 V( tp24097 a(g18 VA tp24098 a(g198 V) tp24099 a(g185 V tp24100 a(g111 Vdo p24101 tp24102 a(g185 V\u000a p24103 tp24104 a(g111 Vif p24105 tp24106 a(g185 V tp24107 a(g18 VA tp24108 a(g198 V[ tp24109 a(g18 Vi tp24110 a(g198 V] tp24111 a(g185 V tp24112 a(g339 V< tp24113 a(g185 V tp24114 a(g60 VResult p24115 tp24116 a(g185 V tp24117 a(g111 Vthen p24118 tp24119 a(g185 V\u000a p24120 tp24121 a(g60 VResult p24122 tp24123 a(g185 V tp24124 a(g339 V: tp24125 a(g339 V= tp24126 a(g185 V tp24127 a(g18 VA tp24128 a(g198 V[ tp24129 a(g18 Vi tp24130 a(g198 V] tp24131 a(g339 V; tp24132 a(g185 V\u000a tp24133 a(g111 Vend p24134 tp24135 a(g339 V; tp24136 a(g185 V\u000a\u000a p24137 tp24138 a(g111 Vfunction p24139 tp24140 a(g185 V tp24141 a(g21 VMax p24142 tp24143 a(g198 V( tp24144 a(g111 Vconst p24145 tp24146 a(g185 V tp24147 a(g18 VA tp24148 a(g339 V, tp24149 a(g185 V tp24150 a(g18 VB tp24151 a(g339 V: tp24152 a(g185 V tp24153 a(g135 VInteger p24154 tp24155 a(g198 V) tp24156 a(g339 V: tp24157 a(g185 V tp24158 a(g135 VInteger p24159 tp24160 a(g339 V; tp24161 a(g185 V\u000a tp24162 a(g111 Vbegin p24163 tp24164 a(g185 V\u000a p24165 tp24166 a(g111 Vif p24167 tp24168 a(g185 V tp24169 a(g18 VA tp24170 a(g185 V tp24171 a(g339 V> tp24172 a(g185 V tp24173 a(g18 VB tp24174 a(g185 V tp24175 a(g111 Vthen p24176 tp24177 a(g185 V\u000a p24178 tp24179 a(g60 VResult p24180 tp24181 a(g185 V tp24182 a(g339 V: tp24183 a(g339 V= tp24184 a(g185 V tp24185 a(g18 VA tp24186 a(g185 V\u000a p24187 tp24188 a(g111 Velse p24189 tp24190 a(g185 V\u000a p24191 tp24192 a(g60 VResult p24193 tp24194 a(g185 V tp24195 a(g339 V: tp24196 a(g339 V= tp24197 a(g185 V tp24198 a(g18 VB tp24199 a(g339 V; tp24200 a(g185 V\u000a tp24201 a(g111 Vend p24202 tp24203 a(g339 V; tp24204 a(g185 V\u000a\u000a p24205 tp24206 a(g111 Vfunction p24207 tp24208 a(g185 V tp24209 a(g21 VMax p24210 tp24211 a(g198 V( tp24212 a(g111 Vconst p24213 tp24214 a(g185 V tp24215 a(g18 VA tp24216 a(g339 V: tp24217 a(g185 V tp24218 a(g18 VTIntA p24219 tp24220 a(g198 V) tp24221 a(g339 V: tp24222 a(g185 V tp24223 a(g135 VInteger p24224 tp24225 a(g339 V; tp24226 a(g185 V\u000a tp24227 a(g111 Vvar p24228 tp24229 a(g185 V\u000a p24230 tp24231 a(g18 Vi tp24232 a(g339 V: tp24233 a(g185 V tp24234 a(g135 VInteger p24235 tp24236 a(g339 V; tp24237 a(g185 V\u000a tp24238 a(g111 Vbegin p24239 tp24240 a(g185 V\u000a p24241 tp24242 a(g60 VResult p24243 tp24244 a(g185 V tp24245 a(g339 V: tp24246 a(g339 V= tp24247 a(g185 V tp24248 a(g314 V0 tp24249 a(g339 V; tp24250 a(g185 V\u000a p24251 tp24252 a(g111 Vif p24253 tp24254 a(g185 V tp24255 a(g57 VLength p24256 tp24257 a(g198 V( tp24258 a(g18 VA tp24259 a(g198 V) tp24260 a(g185 V tp24261 a(g339 V= tp24262 a(g185 V tp24263 a(g314 V0 tp24264 a(g185 V tp24265 a(g111 Vthen p24266 tp24267 a(g185 V\u000a p24268 tp24269 a(g111 VExit p24270 tp24271 a(g339 V; tp24272 a(g185 V\u000a\u000a p24273 tp24274 a(g60 VResult p24275 tp24276 a(g185 V tp24277 a(g339 V: tp24278 a(g339 V= tp24279 a(g185 V tp24280 a(g18 VA tp24281 a(g198 V[ tp24282 a(g314 V0 tp24283 a(g198 V] tp24284 a(g339 V; tp24285 a(g185 V\u000a p24286 tp24287 a(g111 Vfor p24288 tp24289 a(g185 V tp24290 a(g18 Vi tp24291 a(g185 V tp24292 a(g339 V: tp24293 a(g339 V= tp24294 a(g185 V tp24295 a(g314 V1 tp24296 a(g185 V tp24297 a(g111 Vto p24298 tp24299 a(g185 V tp24300 a(g57 VHigh p24301 tp24302 a(g198 V( tp24303 a(g18 VA tp24304 a(g198 V) tp24305 a(g185 V tp24306 a(g111 Vdo p24307 tp24308 a(g185 V\u000a p24309 tp24310 a(g111 Vif p24311 tp24312 a(g185 V tp24313 a(g18 VA tp24314 a(g198 V[ tp24315 a(g18 Vi tp24316 a(g198 V] tp24317 a(g185 V tp24318 a(g339 V> tp24319 a(g185 V tp24320 a(g60 VResult p24321 tp24322 a(g185 V tp24323 a(g111 Vthen p24324 tp24325 a(g185 V\u000a p24326 tp24327 a(g60 VResult p24328 tp24329 a(g185 V tp24330 a(g339 V: tp24331 a(g339 V= tp24332 a(g185 V tp24333 a(g18 VA tp24334 a(g198 V[ tp24335 a(g18 Vi tp24336 a(g198 V] tp24337 a(g339 V; tp24338 a(g185 V\u000a tp24339 a(g111 Vend p24340 tp24341 a(g339 V; tp24342 a(g185 V\u000a\u000a p24343 tp24344 a(g111 Vfunction p24345 tp24346 a(g185 V tp24347 a(g21 VRangesOfStr p24348 tp24349 a(g198 V( tp24350 a(g111 Vconst p24351 tp24352 a(g185 V tp24353 a(g18 VS tp24354 a(g339 V: tp24355 a(g185 V tp24356 a(g111 Vstring p24357 tp24358 a(g198 V) tp24359 a(g339 V: tp24360 a(g185 V tp24361 a(g18 VTRanges p24362 tp24363 a(g339 V; tp24364 a(g185 V\u000a tp24365 a(g111 Vvar p24366 tp24367 a(g185 V\u000a p24368 tp24369 a(g18 VSL p24370 tp24371 a(g339 V: tp24372 a(g185 V tp24373 a(g18 VTStringList p24374 tp24375 a(g339 V; tp24376 a(g185 V\u000a p24377 tp24378 a(g18 Vr tp24379 a(g339 V, tp24380 a(g185 V tp24381 a(g18 Vb tp24382 a(g339 V, tp24383 a(g185 V tp24384 a(g18 Vt tp24385 a(g339 V: tp24386 a(g185 V tp24387 a(g111 Vstring p24388 tp24389 a(g339 V; tp24390 a(g185 V\u000a p24391 tp24392 a(g18 Vi tp24393 a(g339 V, tp24394 a(g185 V tp24395 a(g18 Vp tp24396 a(g339 V: tp24397 a(g185 V tp24398 a(g135 VInteger p24399 tp24400 a(g339 V; tp24401 a(g185 V\u000a\u000a p24402 tp24403 a(g111 Vfunction p24404 tp24405 a(g185 V tp24406 a(g21 VTryStrToCard p24407 tp24408 a(g198 V( tp24409 a(g111 Vconst p24410 tp24411 a(g185 V tp24412 a(g18 VS tp24413 a(g339 V: tp24414 a(g185 V tp24415 a(g111 Vstring p24416 tp24417 a(g339 V; tp24418 a(g185 V tp24419 a(g18 Vout p24420 tp24421 a(g185 V tp24422 a(g18 VValue p24423 tp24424 a(g339 V: tp24425 a(g185 V tp24426 a(g135 VCardinal p24427 tp24428 a(g198 V) tp24429 a(g339 V: tp24430 a(g185 V tp24431 a(g135 VBoolean p24432 tp24433 a(g339 V; tp24434 a(g185 V\u000a p24435 tp24436 a(g111 Vvar p24437 tp24438 a(g185 V\u000a p24439 tp24440 a(g18 VE tp24441 a(g339 V: tp24442 a(g185 V tp24443 a(g135 VInteger p24444 tp24445 a(g339 V; tp24446 a(g185 V\u000a p24447 tp24448 a(g111 Vbegin p24449 tp24450 a(g185 V\u000a p24451 tp24452 a(g57 VVal p24453 tp24454 a(g198 V( tp24455 a(g18 VS tp24456 a(g339 V, tp24457 a(g185 V tp24458 a(g18 VValue p24459 tp24460 a(g339 V, tp24461 a(g185 V tp24462 a(g18 VE tp24463 a(g198 V) tp24464 a(g339 V; tp24465 a(g185 V\u000a p24466 tp24467 a(g60 VResult p24468 tp24469 a(g185 V tp24470 a(g339 V: tp24471 a(g339 V= tp24472 a(g185 V tp24473 a(g18 VE tp24474 a(g185 V tp24475 a(g339 V= tp24476 a(g185 V tp24477 a(g314 V0 tp24478 a(g339 V; tp24479 a(g185 V\u000a p24480 tp24481 a(g111 Vend p24482 tp24483 a(g339 V; tp24484 a(g185 V\u000a\u000a p24485 tp24486 a(g111 Vbegin p24487 tp24488 a(g185 V\u000a p24489 tp24490 a(g60 VResult p24491 tp24492 a(g185 V tp24493 a(g339 V: tp24494 a(g339 V= tp24495 a(g185 V tp24496 a(g111 Vnil p24497 tp24498 a(g339 V; tp24499 a(g185 V\u000a p24500 tp24501 a(g18 VSL p24502 tp24503 a(g185 V tp24504 a(g339 V: tp24505 a(g339 V= tp24506 a(g185 V tp24507 a(g18 VTStringList p24508 tp24509 a(g339 V. tp24510 a(g18 VCreate p24511 tp24512 a(g339 V; tp24513 a(g185 V\u000a p24514 tp24515 a(g111 Vtry p24516 tp24517 a(g185 V\u000a p24518 tp24519 a(g18 VSplit p24520 tp24521 a(g198 V( tp24522 a(g18 VS tp24523 a(g339 V, tp24524 a(g185 V tp24525 a(g18 VRangesSeparator p24526 tp24527 a(g339 V, tp24528 a(g185 V tp24529 a(g18 VSL p24530 tp24531 a(g198 V) tp24532 a(g339 V; tp24533 a(g185 V\u000a p24534 tp24535 a(g57 VSetLength p24536 tp24537 a(g198 V( tp24538 a(g60 VResult p24539 tp24540 a(g339 V, tp24541 a(g185 V tp24542 a(g18 VSL p24543 tp24544 a(g339 V. tp24545 a(g18 VCount p24546 tp24547 a(g198 V) tp24548 a(g339 V; tp24549 a(g185 V\u000a p24550 tp24551 a(g111 Vfor p24552 tp24553 a(g185 V tp24554 a(g18 Vi tp24555 a(g185 V tp24556 a(g339 V: tp24557 a(g339 V= tp24558 a(g185 V tp24559 a(g314 V0 tp24560 a(g185 V tp24561 a(g111 Vto p24562 tp24563 a(g185 V tp24564 a(g18 VSL p24565 tp24566 a(g339 V. tp24567 a(g18 VCount p24568 tp24569 a(g339 V- tp24570 a(g314 V1 tp24571 a(g185 V tp24572 a(g111 Vdo p24573 tp24574 a(g185 V tp24575 a(g111 Vbegin p24576 tp24577 a(g185 V\u000a p24578 tp24579 a(g18 Vr tp24580 a(g185 V tp24581 a(g339 V: tp24582 a(g339 V= tp24583 a(g185 V tp24584 a(g18 VSL p24585 tp24586 a(g198 V[ tp24587 a(g18 Vi tp24588 a(g198 V] tp24589 a(g339 V; tp24590 a(g185 V\u000a p24591 tp24592 a(g111 Vwith p24593 tp24594 a(g185 V tp24595 a(g60 VResult p24596 tp24597 a(g198 V[ tp24598 a(g18 Vi tp24599 a(g198 V] tp24600 a(g185 V tp24601 a(g111 Vdo p24602 tp24603 a(g185 V tp24604 a(g111 Vbegin p24605 tp24606 a(g185 V\u000a p24607 tp24608 a(g18 Vp tp24609 a(g185 V tp24610 a(g339 V: tp24611 a(g339 V= tp24612 a(g185 V tp24613 a(g18 VCharPos p24614 tp24615 a(g198 V( tp24616 a(g18 VRangeInnerSeparator p24617 tp24618 a(g339 V, tp24619 a(g185 V tp24620 a(g18 Vr tp24621 a(g198 V) tp24622 a(g339 V; tp24623 a(g185 V\u000a p24624 tp24625 a(g18 VSimple p24626 tp24627 a(g185 V tp24628 a(g339 V: tp24629 a(g339 V= tp24630 a(g185 V tp24631 a(g18 Vp tp24632 a(g185 V tp24633 a(g339 V= tp24634 a(g185 V tp24635 a(g314 V0 tp24636 a(g339 V; tp24637 a(g185 V tp24638 a(g7 V// no '-' found p24639 tp24640 a(g185 V\u000a p24641 tp24642 a(g111 Vif p24643 tp24644 a(g185 V tp24645 a(g18 VSimple p24646 tp24647 a(g185 V tp24648 a(g111 Vthen p24649 tp24650 a(g185 V tp24651 a(g111 Vbegin p24652 tp24653 a(g185 V\u000a p24654 tp24655 a(g111 Vif p24656 tp24657 a(g185 V tp24658 a(g18 Vr tp24659 a(g185 V tp24660 a(g339 V= tp24661 a(g185 V tp24662 a(g18 VRangeInfinite p24663 tp24664 a(g185 V tp24665 a(g111 Vthen p24666 tp24667 a(g185 V tp24668 a(g111 Vbegin p24669 tp24670 a(g185 V tp24671 a(g7 V// * --> *-* p24672 tp24673 a(g185 V\u000a p24674 tp24675 a(g18 VSimple p24676 tp24677 a(g185 V tp24678 a(g339 V: tp24679 a(g339 V= tp24680 a(g185 V tp24681 a(g111 VFalse p24682 tp24683 a(g339 V; tp24684 a(g185 V\u000a p24685 tp24686 a(g18 VBottom p24687 tp24688 a(g185 V tp24689 a(g339 V: tp24690 a(g339 V= tp24691 a(g185 V tp24692 a(g57 VLow p24693 tp24694 a(g198 V( tp24695 a(g18 VBottom p24696 tp24697 a(g198 V) tp24698 a(g339 V; tp24699 a(g185 V\u000a p24700 tp24701 a(g18 VTop p24702 tp24703 a(g185 V tp24704 a(g339 V: tp24705 a(g339 V= tp24706 a(g185 V tp24707 a(g57 VHigh p24708 tp24709 a(g198 V( tp24710 a(g18 VTop p24711 tp24712 a(g198 V) tp24713 a(g339 V; tp24714 a(g185 V\u000a p24715 tp24716 a(g111 Vend p24717 tp24718 a(g185 V tp24719 a(g111 Velse p24720 tp24721 a(g185 V tp24722 a(g111 Vif p24723 tp24724 a(g185 V tp24725 a(g111 Vnot p24726 tp24727 a(g185 V tp24728 a(g18 VTryStrToCard p24729 tp24730 a(g198 V( tp24731 a(g18 Vr tp24732 a(g339 V, tp24733 a(g185 V tp24734 a(g18 VValue p24735 tp24736 a(g198 V) tp24737 a(g185 V tp24738 a(g111 Vthen p24739 tp24740 a(g185 V\u000a p24741 tp24742 a(g111 VBreak p24743 tp24744 a(g339 V; tp24745 a(g185 V\u000a\u000a p24746 tp24747 a(g111 Vend p24748 tp24749 a(g185 V tp24750 a(g111 Velse p24751 tp24752 a(g185 V tp24753 a(g111 Vbegin p24754 tp24755 a(g185 V\u000a p24756 tp24757 a(g18 VTileStr p24758 tp24759 a(g198 V( tp24760 a(g18 Vr tp24761 a(g339 V, tp24762 a(g185 V tp24763 a(g18 Vp tp24764 a(g339 V, tp24765 a(g185 V tp24766 a(g18 Vp tp24767 a(g339 V, tp24768 a(g185 V tp24769 a(g18 Vb tp24770 a(g339 V, tp24771 a(g185 V tp24772 a(g18 Vt tp24773 a(g198 V) tp24774 a(g339 V; tp24775 a(g185 V\u000a\u000a p24776 tp24777 a(g111 Vif p24778 tp24779 a(g185 V tp24780 a(g18 Vb tp24781 a(g185 V tp24782 a(g339 V= tp24783 a(g185 V tp24784 a(g18 VRangeInfinite p24785 tp24786 a(g185 V tp24787 a(g111 Vthen p24788 tp24789 a(g185 V\u000a p24790 tp24791 a(g18 VBottom p24792 tp24793 a(g185 V tp24794 a(g339 V: tp24795 a(g339 V= tp24796 a(g185 V tp24797 a(g57 VLow p24798 tp24799 a(g198 V( tp24800 a(g18 VBottom p24801 tp24802 a(g198 V) tp24803 a(g185 V\u000a p24804 tp24805 a(g111 Velse p24806 tp24807 a(g185 V tp24808 a(g111 Vif p24809 tp24810 a(g185 V tp24811 a(g111 Vnot p24812 tp24813 a(g185 V tp24814 a(g18 VTryStrToCard p24815 tp24816 a(g198 V( tp24817 a(g18 Vb tp24818 a(g339 V, tp24819 a(g185 V tp24820 a(g18 VBottom p24821 tp24822 a(g198 V) tp24823 a(g185 V tp24824 a(g111 Vthen p24825 tp24826 a(g185 V\u000a p24827 tp24828 a(g111 VBreak p24829 tp24830 a(g339 V; tp24831 a(g185 V\u000a\u000a p24832 tp24833 a(g111 Vif p24834 tp24835 a(g185 V tp24836 a(g18 Vt tp24837 a(g185 V tp24838 a(g339 V= tp24839 a(g185 V tp24840 a(g18 VRangeInfinite p24841 tp24842 a(g185 V tp24843 a(g111 Vthen p24844 tp24845 a(g185 V\u000a p24846 tp24847 a(g18 VTop p24848 tp24849 a(g185 V tp24850 a(g339 V: tp24851 a(g339 V= tp24852 a(g185 V tp24853 a(g57 VHigh p24854 tp24855 a(g198 V( tp24856 a(g18 VTop p24857 tp24858 a(g198 V) tp24859 a(g185 V\u000a p24860 tp24861 a(g111 Velse p24862 tp24863 a(g185 V tp24864 a(g111 Vif p24865 tp24866 a(g185 V tp24867 a(g111 Vnot p24868 tp24869 a(g185 V tp24870 a(g18 VTryStrToCard p24871 tp24872 a(g198 V( tp24873 a(g18 Vt tp24874 a(g339 V, tp24875 a(g185 V tp24876 a(g18 VTop p24877 tp24878 a(g198 V) tp24879 a(g185 V tp24880 a(g111 Vthen p24881 tp24882 a(g185 V\u000a p24883 tp24884 a(g111 VBreak p24885 tp24886 a(g339 V; tp24887 a(g185 V\u000a p24888 tp24889 a(g111 Vif p24890 tp24891 a(g185 V tp24892 a(g18 VBottom p24893 tp24894 a(g185 V tp24895 a(g339 V> tp24896 a(g185 V tp24897 a(g18 VTop p24898 tp24899 a(g185 V tp24900 a(g111 Vthen p24901 tp24902 a(g185 V tp24903 a(g111 Vbegin p24904 tp24905 a(g185 V\u000a p24906 tp24907 a(g18 Vp tp24908 a(g185 V tp24909 a(g339 V: tp24910 a(g339 V= tp24911 a(g185 V tp24912 a(g18 VBottom p24913 tp24914 a(g339 V; tp24915 a(g185 V tp24916 a(g18 VBottom p24917 tp24918 a(g185 V tp24919 a(g339 V: tp24920 a(g339 V= tp24921 a(g185 V tp24922 a(g18 VTop p24923 tp24924 a(g339 V; tp24925 a(g185 V tp24926 a(g18 VTop p24927 tp24928 a(g185 V tp24929 a(g339 V: tp24930 a(g339 V= tp24931 a(g185 V tp24932 a(g18 Vp tp24933 a(g339 V; tp24934 a(g185 V\u000a p24935 tp24936 a(g111 Vend p24937 tp24938 a(g339 V; tp24939 a(g185 V\u000a p24940 tp24941 a(g111 Vend p24942 tp24943 a(g339 V; tp24944 a(g185 V\u000a p24945 tp24946 a(g111 Vend p24947 tp24948 a(g339 V; tp24949 a(g185 V\u000a p24950 tp24951 a(g111 Vend p24952 tp24953 a(g339 V; tp24954 a(g185 V\u000a\u000a p24955 tp24956 a(g111 Vif p24957 tp24958 a(g185 V tp24959 a(g18 Vi tp24960 a(g185 V tp24961 a(g339 V< tp24962 a(g339 V> tp24963 a(g185 V tp24964 a(g18 VSL p24965 tp24966 a(g339 V. tp24967 a(g18 VCount p24968 tp24969 a(g185 V tp24970 a(g111 Vthen p24971 tp24972 a(g185 V\u000a p24973 tp24974 a(g60 VResult p24975 tp24976 a(g185 V tp24977 a(g339 V: tp24978 a(g339 V= tp24979 a(g185 V tp24980 a(g111 Vnil p24981 tp24982 a(g339 V; tp24983 a(g185 V\u000a\u000a p24984 tp24985 a(g111 Vfinally p24986 tp24987 a(g185 V\u000a p24988 tp24989 a(g18 VSL p24990 tp24991 a(g339 V. tp24992 a(g18 VFree p24993 tp24994 a(g339 V; tp24995 a(g185 V\u000a p24996 tp24997 a(g111 Vend p24998 tp24999 a(g339 V; tp25000 a(g185 V\u000a tp25001 a(g111 Vend p25002 tp25003 a(g339 V; tp25004 a(g185 V\u000a\u000a p25005 tp25006 a(g111 Vfunction p25007 tp25008 a(g185 V tp25009 a(g21 VInRanges p25010 tp25011 a(g198 V( tp25012 a(g18 VRanges p25013 tp25014 a(g339 V: tp25015 a(g185 V tp25016 a(g18 VTRanges p25017 tp25018 a(g339 V; tp25019 a(g185 V tp25020 a(g18 VTestValue p25021 tp25022 a(g339 V: tp25023 a(g185 V tp25024 a(g135 VCardinal p25025 tp25026 a(g198 V) tp25027 a(g339 V: tp25028 a(g185 V tp25029 a(g135 VBoolean p25030 tp25031 a(g339 V; tp25032 a(g185 V\u000a tp25033 a(g111 Vvar p25034 tp25035 a(g185 V\u000a p25036 tp25037 a(g18 Vi tp25038 a(g339 V: tp25039 a(g185 V tp25040 a(g135 VInteger p25041 tp25042 a(g339 V; tp25043 a(g185 V\u000a tp25044 a(g111 Vbegin p25045 tp25046 a(g185 V\u000a p25047 tp25048 a(g60 VResult p25049 tp25050 a(g185 V tp25051 a(g339 V: tp25052 a(g339 V= tp25053 a(g185 V tp25054 a(g111 VTrue p25055 tp25056 a(g339 V; tp25057 a(g185 V\u000a\u000a p25058 tp25059 a(g111 Vfor p25060 tp25061 a(g185 V tp25062 a(g18 Vi tp25063 a(g185 V tp25064 a(g339 V: tp25065 a(g339 V= tp25066 a(g185 V tp25067 a(g314 V0 tp25068 a(g185 V tp25069 a(g111 Vto p25070 tp25071 a(g185 V tp25072 a(g57 VHigh p25073 tp25074 a(g198 V( tp25075 a(g18 VRanges p25076 tp25077 a(g198 V) tp25078 a(g185 V tp25079 a(g111 Vdo p25080 tp25081 a(g185 V\u000a p25082 tp25083 a(g111 Vwith p25084 tp25085 a(g185 V tp25086 a(g18 VRanges p25087 tp25088 a(g198 V[ tp25089 a(g18 Vi tp25090 a(g198 V] tp25091 a(g185 V tp25092 a(g111 Vdo p25093 tp25094 a(g185 V\u000a p25095 tp25096 a(g111 Vif p25097 tp25098 a(g185 V tp25099 a(g18 VSimple p25100 tp25101 a(g185 V tp25102 a(g111 Vthen p25103 tp25104 a(g185 V tp25105 a(g111 Vbegin p25106 tp25107 a(g185 V\u000a p25108 tp25109 a(g111 Vif p25110 tp25111 a(g185 V tp25112 a(g18 VTestValue p25113 tp25114 a(g185 V tp25115 a(g339 V= tp25116 a(g185 V tp25117 a(g18 VValue p25118 tp25119 a(g185 V tp25120 a(g111 Vthen p25121 tp25122 a(g185 V\u000a p25123 tp25124 a(g111 VExit p25125 tp25126 a(g339 V; tp25127 a(g185 V\u000a p25128 tp25129 a(g111 Vend p25130 tp25131 a(g185 V tp25132 a(g111 Velse p25133 tp25134 a(g185 V tp25135 a(g111 Vbegin p25136 tp25137 a(g185 V\u000a p25138 tp25139 a(g111 Vif p25140 tp25141 a(g185 V tp25142 a(g57 VInRange p25143 tp25144 a(g198 V( tp25145 a(g18 VTestValue p25146 tp25147 a(g339 V, tp25148 a(g185 V tp25149 a(g18 VBottom p25150 tp25151 a(g339 V, tp25152 a(g185 V tp25153 a(g18 VTop p25154 tp25155 a(g198 V) tp25156 a(g185 V tp25157 a(g111 Vthen p25158 tp25159 a(g185 V\u000a p25160 tp25161 a(g111 VExit p25162 tp25163 a(g339 V; tp25164 a(g185 V\u000a p25165 tp25166 a(g111 Vend p25167 tp25168 a(g339 V; tp25169 a(g185 V\u000a\u000a p25170 tp25171 a(g60 VResult p25172 tp25173 a(g185 V tp25174 a(g339 V: tp25175 a(g339 V= tp25176 a(g185 V tp25177 a(g111 VFalse p25178 tp25179 a(g339 V; tp25180 a(g185 V\u000a tp25181 a(g111 Vend p25182 tp25183 a(g339 V; tp25184 a(g185 V\u000a\u000a p25185 tp25186 a(g111 Vprocedure p25187 tp25188 a(g185 V tp25189 a(g21 VWriteSL p25190 tp25191 a(g198 V( tp25192 a(g18 VStrings p25193 tp25194 a(g339 V: tp25195 a(g185 V tp25196 a(g18 VTStrings p25197 tp25198 a(g339 V; tp25199 a(g185 V tp25200 a(g111 Vconst p25201 tp25202 a(g185 V tp25203 a(g18 VPrefix p25204 tp25205 a(g339 V: tp25206 a(g185 V tp25207 a(g111 Vstring p25208 tp25209 a(g185 V tp25210 a(g339 V= tp25211 a(g185 V tp25212 a(g222 V' tp25213 a(g222 V' tp25214 a(g339 V; tp25215 a(g185 V\u000a p25216 tp25217 a(g111 Vconst p25218 tp25219 a(g185 V tp25220 a(g18 VSuffix p25221 tp25222 a(g339 V: tp25223 a(g185 V tp25224 a(g111 Vstring p25225 tp25226 a(g185 V tp25227 a(g339 V= tp25228 a(g185 V tp25229 a(g222 V' tp25230 a(g222 V' tp25231 a(g198 V) tp25232 a(g339 V; tp25233 a(g185 V\u000a tp25234 a(g111 Vvar p25235 tp25236 a(g185 V\u000a p25237 tp25238 a(g18 Vi tp25239 a(g339 V: tp25240 a(g185 V tp25241 a(g135 VInteger p25242 tp25243 a(g339 V; tp25244 a(g185 V\u000a tp25245 a(g111 Vbegin p25246 tp25247 a(g185 V\u000a p25248 tp25249 a(g111 Vfor p25250 tp25251 a(g185 V tp25252 a(g18 Vi tp25253 a(g185 V tp25254 a(g339 V: tp25255 a(g339 V= tp25256 a(g185 V tp25257 a(g314 V0 tp25258 a(g185 V tp25259 a(g111 Vto p25260 tp25261 a(g185 V tp25262 a(g18 VStrings p25263 tp25264 a(g339 V. tp25265 a(g18 VCount p25266 tp25267 a(g339 V- tp25268 a(g314 V1 tp25269 a(g185 V tp25270 a(g111 Vdo p25271 tp25272 a(g185 V\u000a p25273 tp25274 a(g57 VWriteLn p25275 tp25276 a(g198 V( tp25277 a(g18 VPrefix p25278 tp25279 a(g185 V tp25280 a(g339 V+ tp25281 a(g185 V tp25282 a(g18 VStrings p25283 tp25284 a(g198 V[ tp25285 a(g18 Vi tp25286 a(g198 V] tp25287 a(g185 V tp25288 a(g339 V+ tp25289 a(g185 V tp25290 a(g18 VSuffix p25291 tp25292 a(g198 V) tp25293 a(g339 V; tp25294 a(g185 V\u000a tp25295 a(g111 Vend p25296 tp25297 a(g339 V; tp25298 a(g185 V\u000a\u000a p25299 tp25300 a(g111 Vfunction p25301 tp25302 a(g185 V tp25303 a(g21 VSuccess p25304 tp25305 a(g198 V( tp25306 a(g18 VRes p25307 tp25308 a(g339 V: tp25309 a(g185 V tp25310 a(g135 VInteger p25311 tp25312 a(g339 V; tp25313 a(g185 V tp25314 a(g18 VResultOnSuccess p25315 tp25316 a(g339 V: tp25317 a(g185 V tp25318 a(g135 VInteger p25319 tp25320 a(g185 V tp25321 a(g339 V= tp25322 a(g185 V tp25323 a(g18 VERROR_SUCCESS p25324 tp25325 a(g198 V) tp25326 a(g339 V: tp25327 a(g185 V tp25328 a(g135 VBoolean p25329 tp25330 a(g339 V; tp25331 a(g185 V\u000a tp25332 a(g111 Vbegin p25333 tp25334 a(g185 V\u000a p25335 tp25336 a(g60 VResult p25337 tp25338 a(g185 V tp25339 a(g339 V: tp25340 a(g339 V= tp25341 a(g185 V tp25342 a(g198 V( tp25343 a(g18 VRes p25344 tp25345 a(g185 V tp25346 a(g339 V= tp25347 a(g185 V tp25348 a(g18 VResultOnSuccess p25349 tp25350 a(g198 V) tp25351 a(g339 V; tp25352 a(g185 V\u000a p25353 tp25354 a(g18 VLastSuccessRes p25355 tp25356 a(g185 V tp25357 a(g339 V: tp25358 a(g339 V= tp25359 a(g185 V tp25360 a(g18 VRes p25361 tp25362 a(g339 V; tp25363 a(g185 V\u000a tp25364 a(g111 Vend p25365 tp25366 a(g339 V; tp25367 a(g185 V\u000a\u000a p25368 tp25369 a(g111 Vfunction p25370 tp25371 a(g185 V tp25372 a(g21 VFailure p25373 tp25374 a(g198 V( tp25375 a(g18 VRes p25376 tp25377 a(g339 V: tp25378 a(g185 V tp25379 a(g135 VInteger p25380 tp25381 a(g339 V; tp25382 a(g185 V tp25383 a(g18 VResultOnSuccess p25384 tp25385 a(g339 V: tp25386 a(g185 V tp25387 a(g135 VInteger p25388 tp25389 a(g185 V tp25390 a(g339 V= tp25391 a(g185 V tp25392 a(g18 VERROR_SUCCESS p25393 tp25394 a(g198 V) tp25395 a(g339 V: tp25396 a(g185 V tp25397 a(g135 VBoolean p25398 tp25399 a(g339 V; tp25400 a(g185 V\u000a tp25401 a(g111 Vbegin p25402 tp25403 a(g185 V\u000a p25404 tp25405 a(g60 VResult p25406 tp25407 a(g185 V tp25408 a(g339 V: tp25409 a(g339 V= tp25410 a(g185 V tp25411 a(g111 Vnot p25412 tp25413 a(g185 V tp25414 a(g18 VSuccess p25415 tp25416 a(g198 V( tp25417 a(g18 VRes p25418 tp25419 a(g339 V, tp25420 a(g185 V tp25421 a(g18 VResultOnSuccess p25422 tp25423 a(g198 V) tp25424 a(g339 V; tp25425 a(g185 V\u000a tp25426 a(g111 Vend p25427 tp25428 a(g339 V; tp25429 a(g185 V\u000a\u000a p25430 tp25431 a(g111 Vfunction p25432 tp25433 a(g185 V tp25434 a(g21 VExpandString p25435 tp25436 a(g198 V( tp25437 a(g111 Vconst p25438 tp25439 a(g185 V tp25440 a(g18 VS tp25441 a(g339 V: tp25442 a(g185 V tp25443 a(g111 Vstring p25444 tp25445 a(g198 V) tp25446 a(g339 V: tp25447 a(g185 V tp25448 a(g111 Vstring p25449 tp25450 a(g339 V; tp25451 a(g185 V\u000a tp25452 a(g111 Vvar p25453 tp25454 a(g185 V\u000a p25455 tp25456 a(g18 VLen p25457 tp25458 a(g339 V: tp25459 a(g185 V tp25460 a(g135 VInteger p25461 tp25462 a(g339 V; tp25463 a(g185 V\u000a p25464 tp25465 a(g18 VP tp25466 a(g339 V, tp25467 a(g185 V tp25468 a(g18 VRes p25469 tp25470 a(g339 V: tp25471 a(g185 V tp25472 a(g135 VPChar p25473 tp25474 a(g339 V; tp25475 a(g185 V\u000a tp25476 a(g111 Vbegin p25477 tp25478 a(g185 V\u000a p25479 tp25480 a(g60 VResult p25481 tp25482 a(g185 V tp25483 a(g339 V: tp25484 a(g339 V= tp25485 a(g185 V tp25486 a(g222 V' tp25487 a(g222 V' tp25488 a(g339 V; tp25489 a(g185 V\u000a p25490 tp25491 a(g18 VP tp25492 a(g185 V tp25493 a(g339 V: tp25494 a(g339 V= tp25495 a(g185 V tp25496 a(g135 VPChar p25497 tp25498 a(g198 V( tp25499 a(g18 VS tp25500 a(g198 V) tp25501 a(g339 V; tp25502 a(g185 V\u000a p25503 tp25504 a(g18 VLen p25505 tp25506 a(g185 V tp25507 a(g339 V: tp25508 a(g339 V= tp25509 a(g185 V tp25510 a(g18 VExpandEnvironmentStrings p25511 tp25512 a(g198 V( tp25513 a(g18 VP tp25514 a(g339 V, tp25515 a(g185 V tp25516 a(g111 Vnil p25517 tp25518 a(g339 V, tp25519 a(g185 V tp25520 a(g314 V0 tp25521 a(g198 V) tp25522 a(g339 V; tp25523 a(g185 V\u000a p25524 tp25525 a(g111 Vif p25526 tp25527 a(g185 V tp25528 a(g18 VLen p25529 tp25530 a(g185 V tp25531 a(g339 V= tp25532 a(g185 V tp25533 a(g314 V0 tp25534 a(g185 V tp25535 a(g111 Vthen p25536 tp25537 a(g185 V\u000a p25538 tp25539 a(g111 VExit p25540 tp25541 a(g339 V; tp25542 a(g185 V\u000a\u000a p25543 tp25544 a(g57 VGetMem p25545 tp25546 a(g198 V( tp25547 a(g18 VRes p25548 tp25549 a(g339 V, tp25550 a(g185 V tp25551 a(g18 VLen p25552 tp25553 a(g198 V) tp25554 a(g339 V; tp25555 a(g185 V\u000a p25556 tp25557 a(g18 VExpandEnvironmentStrings p25558 tp25559 a(g198 V( tp25560 a(g18 VP tp25561 a(g339 V, tp25562 a(g185 V tp25563 a(g18 VRes p25564 tp25565 a(g339 V, tp25566 a(g185 V tp25567 a(g18 VLen p25568 tp25569 a(g198 V) tp25570 a(g339 V; tp25571 a(g185 V\u000a\u000a p25572 tp25573 a(g60 VResult p25574 tp25575 a(g185 V tp25576 a(g339 V: tp25577 a(g339 V= tp25578 a(g185 V tp25579 a(g18 VRes p25580 tp25581 a(g339 V; tp25582 a(g185 V\u000a p25583 tp25584 a(g57 VFreeMem p25585 tp25586 a(g198 V( tp25587 a(g18 VRes p25588 tp25589 a(g339 V, tp25590 a(g185 V tp25591 a(g18 VLen p25592 tp25593 a(g198 V) tp25594 a(g339 V; tp25595 a(g185 V\u000a tp25596 a(g111 Vend p25597 tp25598 a(g339 V; tp25599 a(g185 V\u000a\u000a p25600 tp25601 a(g111 Vfunction p25602 tp25603 a(g185 V tp25604 a(g21 VFindAll p25605 tp25606 a(g198 V( tp25607 a(g18 VStrings p25608 tp25609 a(g339 V: tp25610 a(g185 V tp25611 a(g18 VTStrings p25612 tp25613 a(g339 V; tp25614 a(g185 V tp25615 a(g111 Vconst p25616 tp25617 a(g185 V tp25618 a(g18 VMask p25619 tp25620 a(g339 V: tp25621 a(g185 V tp25622 a(g111 Vstring p25623 tp25624 a(g339 V; tp25625 a(g185 V\u000a p25626 tp25627 a(g18 VScanSubDirs p25628 tp25629 a(g339 V: tp25630 a(g185 V tp25631 a(g135 VBoolean p25632 tp25633 a(g185 V tp25634 a(g339 V= tp25635 a(g185 V tp25636 a(g111 VTrue p25637 tp25638 a(g339 V; tp25639 a(g185 V tp25640 a(g18 VAttributes p25641 tp25642 a(g339 V: tp25643 a(g185 V tp25644 a(g135 VInteger p25645 tp25646 a(g185 V tp25647 a(g339 V= tp25648 a(g185 V tp25649 a(g18 VfaFindEveryFile p25650 tp25651 a(g339 V; tp25652 a(g185 V\u000a p25653 tp25654 a(g18 VFileReturn p25655 tp25656 a(g339 V: tp25657 a(g185 V tp25658 a(g18 VTFileNameFunc p25659 tp25660 a(g185 V tp25661 a(g339 V= tp25662 a(g185 V tp25663 a(g111 Vnil p25664 tp25665 a(g198 V) tp25666 a(g339 V: tp25667 a(g185 V tp25668 a(g135 VBoolean p25669 tp25670 a(g339 V; tp25671 a(g185 V\u000a tp25672 a(g111 Vvar p25673 tp25674 a(g185 V\u000a p25675 tp25676 a(g18 VPath p25677 tp25678 a(g339 V, tp25679 a(g185 V tp25680 a(g18 VFileName p25681 tp25682 a(g339 V: tp25683 a(g185 V tp25684 a(g111 Vstring p25685 tp25686 a(g339 V; tp25687 a(g185 V\u000a\u000a p25688 tp25689 a(g111 Vprocedure p25690 tp25691 a(g185 V tp25692 a(g21 VScanDir p25693 tp25694 a(g198 V( tp25695 a(g111 Vconst p25696 tp25697 a(g185 V tp25698 a(g18 VPath p25699 tp25700 a(g339 V, tp25701 a(g185 V tp25702 a(g18 VFileName p25703 tp25704 a(g339 V: tp25705 a(g185 V tp25706 a(g111 Vstring p25707 tp25708 a(g198 V) tp25709 a(g339 V; tp25710 a(g185 V\u000a p25711 tp25712 a(g111 Vvar p25713 tp25714 a(g185 V\u000a p25715 tp25716 a(g18 VPSR p25717 tp25718 a(g339 V: tp25719 a(g185 V tp25720 a(g18 VTSearchRec p25721 tp25722 a(g339 V; tp25723 a(g185 V\u000a p25724 tp25725 a(g18 VRes p25726 tp25727 a(g339 V: tp25728 a(g185 V tp25729 a(g135 VInteger p25730 tp25731 a(g339 V; tp25732 a(g185 V\u000a\u000a p25733 tp25734 a(g111 Vprocedure p25735 tp25736 a(g185 V tp25737 a(g21 VAdd p25738 tp25739 a(g198 V( tp25740 a(g111 Vconst p25741 tp25742 a(g185 V tp25743 a(g18 VS tp25744 a(g339 V: tp25745 a(g185 V tp25746 a(g111 Vstring p25747 tp25748 a(g198 V) tp25749 a(g339 V; tp25750 a(g185 V\u000a p25751 tp25752 a(g111 Vbegin p25753 tp25754 a(g185 V\u000a p25755 tp25756 a(g111 Vif p25757 tp25758 a(g185 V tp25759 a(g18 VS tp25760 a(g185 V tp25761 a(g339 V< tp25762 a(g339 V> tp25763 a(g185 V tp25764 a(g222 V' tp25765 a(g222 V' tp25766 a(g185 V tp25767 a(g111 Vthen p25768 tp25769 a(g185 V\u000a p25770 tp25771 a(g18 VStrings p25772 tp25773 a(g339 V. tp25774 a(g18 VAdd p25775 tp25776 a(g198 V( tp25777 a(g18 VS tp25778 a(g198 V) tp25779 a(g339 V; tp25780 a(g185 V\u000a p25781 tp25782 a(g111 Vend p25783 tp25784 a(g339 V; tp25785 a(g185 V\u000a\u000a p25786 tp25787 a(g111 Vbegin p25788 tp25789 a(g185 V\u000a p25790 tp25791 a(g18 VRes p25792 tp25793 a(g185 V tp25794 a(g339 V: tp25795 a(g339 V= tp25796 a(g185 V tp25797 a(g57 VFindFirst p25798 tp25799 a(g198 V( tp25800 a(g18 VPath p25801 tp25802 a(g185 V tp25803 a(g339 V+ tp25804 a(g185 V tp25805 a(g18 VFileName p25806 tp25807 a(g339 V, tp25808 a(g185 V tp25809 a(g18 VAttributes p25810 tp25811 a(g339 V, tp25812 a(g185 V tp25813 a(g18 VPSR p25814 tp25815 a(g198 V) tp25816 a(g339 V; tp25817 a(g185 V\u000a p25818 tp25819 a(g111 Vwhile p25820 tp25821 a(g185 V tp25822 a(g18 VSuccess p25823 tp25824 a(g198 V( tp25825 a(g18 VRes p25826 tp25827 a(g339 V, tp25828 a(g185 V tp25829 a(g314 V0 tp25830 a(g198 V) tp25831 a(g185 V tp25832 a(g111 Vdo p25833 tp25834 a(g185 V tp25835 a(g111 Vbegin p25836 tp25837 a(g185 V\u000a p25838 tp25839 a(g111 Vif p25840 tp25841 a(g185 V tp25842 a(g57 VAssigned p25843 tp25844 a(g198 V( tp25845 a(g18 VFileReturn p25846 tp25847 a(g198 V) tp25848 a(g185 V tp25849 a(g111 Vthen p25850 tp25851 a(g185 V\u000a p25852 tp25853 a(g18 VAdd p25854 tp25855 a(g198 V( tp25856 a(g18 VFileReturn p25857 tp25858 a(g198 V( tp25859 a(g18 VPath p25860 tp25861 a(g185 V tp25862 a(g339 V+ tp25863 a(g185 V tp25864 a(g18 VPSR p25865 tp25866 a(g339 V. tp25867 a(g18 VName p25868 tp25869 a(g198 V)) p25870 tp25871 a(g185 V\u000a p25872 tp25873 a(g111 Velse p25874 tp25875 a(g185 V\u000a p25876 tp25877 a(g18 VAdd p25878 tp25879 a(g198 V( tp25880 a(g18 VPath p25881 tp25882 a(g185 V tp25883 a(g339 V+ tp25884 a(g185 V tp25885 a(g18 VPSR p25886 tp25887 a(g339 V. tp25888 a(g18 VName p25889 tp25890 a(g198 V) tp25891 a(g339 V; tp25892 a(g185 V\u000a p25893 tp25894 a(g18 VRes p25895 tp25896 a(g185 V tp25897 a(g339 V: tp25898 a(g339 V= tp25899 a(g185 V tp25900 a(g57 VFindNext p25901 tp25902 a(g198 V( tp25903 a(g18 VPSR p25904 tp25905 a(g198 V) tp25906 a(g339 V; tp25907 a(g185 V\u000a p25908 tp25909 a(g111 Vend p25910 tp25911 a(g339 V; tp25912 a(g185 V\u000a p25913 tp25914 a(g57 VFindClose p25915 tp25916 a(g198 V( tp25917 a(g18 VPSR p25918 tp25919 a(g198 V) tp25920 a(g339 V; tp25921 a(g185 V\u000a p25922 tp25923 a(g111 Vif p25924 tp25925 a(g185 V tp25926 a(g111 Vnot p25927 tp25928 a(g185 V tp25929 a(g18 VScanSubDirs p25930 tp25931 a(g185 V tp25932 a(g111 Vthen p25933 tp25934 a(g185 V\u000a p25935 tp25936 a(g111 VExit p25937 tp25938 a(g339 V; tp25939 a(g185 V\u000a\u000a p25940 tp25941 a(g18 VRes p25942 tp25943 a(g185 V tp25944 a(g339 V: tp25945 a(g339 V= tp25946 a(g185 V tp25947 a(g57 VFindFirst p25948 tp25949 a(g198 V( tp25950 a(g18 VPath p25951 tp25952 a(g185 V tp25953 a(g339 V+ tp25954 a(g185 V tp25955 a(g222 V' tp25956 a(g222 V* tp25957 a(g222 V' tp25958 a(g339 V, tp25959 a(g185 V tp25960 a(g18 VfaDirectory p25961 tp25962 a(g339 V, tp25963 a(g185 V tp25964 a(g18 VPSR p25965 tp25966 a(g198 V) tp25967 a(g339 V; tp25968 a(g185 V\u000a p25969 tp25970 a(g111 Vwhile p25971 tp25972 a(g185 V tp25973 a(g18 VSuccess p25974 tp25975 a(g198 V( tp25976 a(g18 VRes p25977 tp25978 a(g339 V, tp25979 a(g185 V tp25980 a(g314 V0 tp25981 a(g198 V) tp25982 a(g185 V tp25983 a(g111 Vdo p25984 tp25985 a(g185 V tp25986 a(g111 Vbegin p25987 tp25988 a(g185 V\u000a p25989 tp25990 a(g111 Vif p25991 tp25992 a(g185 V tp25993 a(g198 V( tp25994 a(g18 VPSR p25995 tp25996 a(g339 V. tp25997 a(g18 VAttr p25998 tp25999 a(g185 V tp26000 a(g111 Vand p26001 tp26002 a(g185 V tp26003 a(g18 VfaDirectory p26004 tp26005 a(g185 V tp26006 a(g339 V> tp26007 a(g185 V tp26008 a(g314 V0 tp26009 a(g198 V) tp26010 a(g185 V\u000a p26011 tp26012 a(g111 Vand p26013 tp26014 a(g185 V tp26015 a(g198 V( tp26016 a(g18 VPSR p26017 tp26018 a(g339 V. tp26019 a(g18 VName p26020 tp26021 a(g185 V tp26022 a(g339 V< tp26023 a(g339 V> tp26024 a(g185 V tp26025 a(g222 V' tp26026 a(g222 V. tp26027 a(g222 V' tp26028 a(g198 V) tp26029 a(g185 V tp26030 a(g111 Vand p26031 tp26032 a(g185 V tp26033 a(g198 V( tp26034 a(g18 VPSR p26035 tp26036 a(g339 V. tp26037 a(g18 VName p26038 tp26039 a(g185 V tp26040 a(g339 V< tp26041 a(g339 V> tp26042 a(g185 V tp26043 a(g222 V' tp26044 a(g222 V.. p26045 tp26046 a(g222 V' tp26047 a(g198 V) tp26048 a(g185 V tp26049 a(g111 Vthen p26050 tp26051 a(g185 V\u000a p26052 tp26053 a(g18 VScanDir p26054 tp26055 a(g198 V( tp26056 a(g18 VPath p26057 tp26058 a(g185 V tp26059 a(g339 V+ tp26060 a(g185 V tp26061 a(g18 VPSR p26062 tp26063 a(g339 V. tp26064 a(g18 VName p26065 tp26066 a(g185 V tp26067 a(g339 V+ tp26068 a(g185 V tp26069 a(g222 V' tp26070 a(g222 V\u005c tp26071 a(g222 V' tp26072 a(g339 V, tp26073 a(g185 V tp26074 a(g18 VFileName p26075 tp26076 a(g198 V) tp26077 a(g339 V; tp26078 a(g185 V\u000a p26079 tp26080 a(g18 VRes p26081 tp26082 a(g185 V tp26083 a(g339 V: tp26084 a(g339 V= tp26085 a(g185 V tp26086 a(g57 VFindNext p26087 tp26088 a(g198 V( tp26089 a(g18 VPSR p26090 tp26091 a(g198 V) tp26092 a(g339 V; tp26093 a(g185 V\u000a p26094 tp26095 a(g111 Vend p26096 tp26097 a(g339 V; tp26098 a(g185 V\u000a p26099 tp26100 a(g57 VFindClose p26101 tp26102 a(g198 V( tp26103 a(g18 VPSR p26104 tp26105 a(g198 V) tp26106 a(g339 V; tp26107 a(g185 V\u000a p26108 tp26109 a(g111 Vend p26110 tp26111 a(g339 V; tp26112 a(g185 V\u000a\u000a p26113 tp26114 a(g111 Vbegin p26115 tp26116 a(g185 V\u000a p26117 tp26118 a(g18 VStrings p26119 tp26120 a(g339 V. tp26121 a(g18 VClear p26122 tp26123 a(g339 V; tp26124 a(g185 V\u000a p26125 tp26126 a(g18 VPath p26127 tp26128 a(g185 V tp26129 a(g339 V: tp26130 a(g339 V= tp26131 a(g185 V tp26132 a(g18 VExtractPath p26133 tp26134 a(g198 V( tp26135 a(g18 VMask p26136 tp26137 a(g198 V) tp26138 a(g339 V; tp26139 a(g185 V\u000a p26140 tp26141 a(g18 VFileName p26142 tp26143 a(g185 V tp26144 a(g339 V: tp26145 a(g339 V= tp26146 a(g185 V tp26147 a(g57 VExtractFileName p26148 tp26149 a(g198 V( tp26150 a(g18 VMask p26151 tp26152 a(g198 V) tp26153 a(g339 V; tp26154 a(g185 V\u000a p26155 tp26156 a(g18 VScanDir p26157 tp26158 a(g198 V( tp26159 a(g18 VPath p26160 tp26161 a(g339 V, tp26162 a(g185 V tp26163 a(g18 VFileName p26164 tp26165 a(g198 V) tp26166 a(g339 V; tp26167 a(g185 V\u000a p26168 tp26169 a(g60 VResult p26170 tp26171 a(g185 V tp26172 a(g339 V: tp26173 a(g339 V= tp26174 a(g185 V tp26175 a(g18 VStrings p26176 tp26177 a(g339 V. tp26178 a(g18 VCount p26179 tp26180 a(g185 V tp26181 a(g339 V> tp26182 a(g185 V tp26183 a(g314 V0 tp26184 a(g339 V; tp26185 a(g185 V\u000a tp26186 a(g111 Vend p26187 tp26188 a(g339 V; tp26189 a(g185 V\u000a\u000a p26190 tp26191 a(g111 Vfunction p26192 tp26193 a(g185 V tp26194 a(g21 VFindAllFirst p26195 tp26196 a(g198 V( tp26197 a(g111 Vconst p26198 tp26199 a(g185 V tp26200 a(g18 VMask p26201 tp26202 a(g339 V: tp26203 a(g185 V tp26204 a(g111 Vstring p26205 tp26206 a(g339 V; tp26207 a(g185 V tp26208 a(g18 VScanSubDirs p26209 tp26210 a(g339 V: tp26211 a(g185 V tp26212 a(g135 VBoolean p26213 tp26214 a(g185 V tp26215 a(g339 V= tp26216 a(g185 V tp26217 a(g111 VTrue p26218 tp26219 a(g339 V; tp26220 a(g185 V\u000a p26221 tp26222 a(g18 VAttributes p26223 tp26224 a(g339 V: tp26225 a(g185 V tp26226 a(g135 VInteger p26227 tp26228 a(g185 V tp26229 a(g339 V= tp26230 a(g185 V tp26231 a(g18 VfaFindEveryFile p26232 tp26233 a(g198 V) tp26234 a(g339 V: tp26235 a(g185 V tp26236 a(g111 Vstring p26237 tp26238 a(g339 V; tp26239 a(g185 V\u000a tp26240 a(g111 Vvar p26241 tp26242 a(g185 V\u000a p26243 tp26244 a(g18 VPath p26245 tp26246 a(g339 V, tp26247 a(g185 V tp26248 a(g18 VFileName p26249 tp26250 a(g339 V: tp26251 a(g185 V tp26252 a(g111 Vstring p26253 tp26254 a(g339 V; tp26255 a(g185 V\u000a\u000a p26256 tp26257 a(g111 Vfunction p26258 tp26259 a(g185 V tp26260 a(g21 VScanDir p26261 tp26262 a(g198 V( tp26263 a(g111 Vconst p26264 tp26265 a(g185 V tp26266 a(g18 VPath p26267 tp26268 a(g339 V, tp26269 a(g185 V tp26270 a(g18 VFileName p26271 tp26272 a(g339 V: tp26273 a(g185 V tp26274 a(g111 Vstring p26275 tp26276 a(g198 V) tp26277 a(g339 V: tp26278 a(g185 V tp26279 a(g135 VBoolean p26280 tp26281 a(g339 V; tp26282 a(g185 V\u000a p26283 tp26284 a(g111 Vvar p26285 tp26286 a(g185 V\u000a p26287 tp26288 a(g18 VPSR p26289 tp26290 a(g339 V: tp26291 a(g185 V tp26292 a(g18 VTSearchRec p26293 tp26294 a(g339 V; tp26295 a(g185 V\u000a p26296 tp26297 a(g18 VRes p26298 tp26299 a(g339 V: tp26300 a(g185 V tp26301 a(g135 VInteger p26302 tp26303 a(g339 V; tp26304 a(g185 V\u000a p26305 tp26306 a(g111 Vbegin p26307 tp26308 a(g185 V\u000a p26309 tp26310 a(g60 VResult p26311 tp26312 a(g185 V tp26313 a(g339 V: tp26314 a(g339 V= tp26315 a(g185 V tp26316 a(g111 VFalse p26317 tp26318 a(g339 V; tp26319 a(g185 V\u000a p26320 tp26321 a(g111 Vif p26322 tp26323 a(g185 V tp26324 a(g18 VSuccess p26325 tp26326 a(g198 V( tp26327 a(g57 VFindFirst p26328 tp26329 a(g198 V( tp26330 a(g18 VPath p26331 tp26332 a(g185 V tp26333 a(g339 V+ tp26334 a(g185 V tp26335 a(g18 VFileName p26336 tp26337 a(g339 V, tp26338 a(g185 V tp26339 a(g18 VAttributes p26340 tp26341 a(g339 V, tp26342 a(g185 V tp26343 a(g18 VPSR p26344 tp26345 a(g198 V) tp26346 a(g339 V, tp26347 a(g185 V tp26348 a(g314 V0 tp26349 a(g198 V) tp26350 a(g185 V tp26351 a(g111 Vthen p26352 tp26353 a(g185 V tp26354 a(g111 Vbegin p26355 tp26356 a(g185 V\u000a p26357 tp26358 a(g18 VFindAllFirst p26359 tp26360 a(g185 V tp26361 a(g339 V: tp26362 a(g339 V= tp26363 a(g185 V tp26364 a(g18 VPath p26365 tp26366 a(g185 V tp26367 a(g339 V+ tp26368 a(g185 V tp26369 a(g18 VPSR p26370 tp26371 a(g339 V. tp26372 a(g18 VName p26373 tp26374 a(g339 V; tp26375 a(g185 V\u000a p26376 tp26377 a(g60 VResult p26378 tp26379 a(g185 V tp26380 a(g339 V: tp26381 a(g339 V= tp26382 a(g185 V tp26383 a(g111 VTrue p26384 tp26385 a(g339 V; tp26386 a(g185 V\u000a p26387 tp26388 a(g57 VFindClose p26389 tp26390 a(g198 V( tp26391 a(g18 VPSR p26392 tp26393 a(g198 V) tp26394 a(g339 V; tp26395 a(g185 V\u000a p26396 tp26397 a(g111 VExit p26398 tp26399 a(g339 V; tp26400 a(g185 V tp26401 a(g111 Vend p26402 tp26403 a(g339 V; tp26404 a(g185 V\u000a p26405 tp26406 a(g111 Vif p26407 tp26408 a(g185 V tp26409 a(g111 Vnot p26410 tp26411 a(g185 V tp26412 a(g18 VScanSubDirs p26413 tp26414 a(g185 V tp26415 a(g111 Vthen p26416 tp26417 a(g185 V\u000a p26418 tp26419 a(g111 VExit p26420 tp26421 a(g339 V; tp26422 a(g185 V\u000a\u000a p26423 tp26424 a(g18 VRes p26425 tp26426 a(g185 V tp26427 a(g339 V: tp26428 a(g339 V= tp26429 a(g185 V tp26430 a(g57 VFindFirst p26431 tp26432 a(g198 V( tp26433 a(g18 VPath p26434 tp26435 a(g185 V tp26436 a(g339 V+ tp26437 a(g185 V tp26438 a(g222 V' tp26439 a(g222 V* tp26440 a(g222 V' tp26441 a(g339 V, tp26442 a(g185 V tp26443 a(g18 VfaDirectory p26444 tp26445 a(g339 V, tp26446 a(g185 V tp26447 a(g18 VPSR p26448 tp26449 a(g198 V) tp26450 a(g339 V; tp26451 a(g185 V\u000a p26452 tp26453 a(g111 Vwhile p26454 tp26455 a(g185 V tp26456 a(g111 Vnot p26457 tp26458 a(g185 V tp26459 a(g60 VResult p26460 tp26461 a(g185 V tp26462 a(g111 Vand p26463 tp26464 a(g185 V tp26465 a(g18 VSuccess p26466 tp26467 a(g198 V( tp26468 a(g18 VRes p26469 tp26470 a(g339 V, tp26471 a(g185 V tp26472 a(g314 V0 tp26473 a(g198 V) tp26474 a(g185 V tp26475 a(g111 Vdo p26476 tp26477 a(g185 V tp26478 a(g111 Vbegin p26479 tp26480 a(g185 V\u000a p26481 tp26482 a(g111 Vif p26483 tp26484 a(g185 V tp26485 a(g198 V( tp26486 a(g18 VPSR p26487 tp26488 a(g339 V. tp26489 a(g18 VAttr p26490 tp26491 a(g185 V tp26492 a(g111 Vand p26493 tp26494 a(g185 V tp26495 a(g18 VfaDirectory p26496 tp26497 a(g185 V tp26498 a(g339 V> tp26499 a(g185 V tp26500 a(g314 V0 tp26501 a(g198 V) tp26502 a(g185 V\u000a p26503 tp26504 a(g111 Vand p26505 tp26506 a(g185 V tp26507 a(g198 V( tp26508 a(g18 VPSR p26509 tp26510 a(g339 V. tp26511 a(g18 VName p26512 tp26513 a(g185 V tp26514 a(g339 V< tp26515 a(g339 V> tp26516 a(g185 V tp26517 a(g222 V' tp26518 a(g222 V. tp26519 a(g222 V' tp26520 a(g198 V) tp26521 a(g185 V tp26522 a(g111 Vand p26523 tp26524 a(g185 V tp26525 a(g198 V( tp26526 a(g18 VPSR p26527 tp26528 a(g339 V. tp26529 a(g18 VName p26530 tp26531 a(g185 V tp26532 a(g339 V< tp26533 a(g339 V> tp26534 a(g185 V tp26535 a(g222 V' tp26536 a(g222 V.. p26537 tp26538 a(g222 V' tp26539 a(g198 V) tp26540 a(g185 V tp26541 a(g111 Vthen p26542 tp26543 a(g185 V\u000a p26544 tp26545 a(g60 VResult p26546 tp26547 a(g185 V tp26548 a(g339 V: tp26549 a(g339 V= tp26550 a(g185 V tp26551 a(g18 VScanDir p26552 tp26553 a(g198 V( tp26554 a(g18 VPath p26555 tp26556 a(g185 V tp26557 a(g339 V+ tp26558 a(g185 V tp26559 a(g18 VPSR p26560 tp26561 a(g339 V. tp26562 a(g18 VName p26563 tp26564 a(g185 V tp26565 a(g339 V+ tp26566 a(g185 V tp26567 a(g222 V' tp26568 a(g222 V\u005c tp26569 a(g222 V' tp26570 a(g339 V, tp26571 a(g185 V tp26572 a(g18 VFileName p26573 tp26574 a(g198 V) tp26575 a(g339 V; tp26576 a(g185 V\u000a p26577 tp26578 a(g18 VRes p26579 tp26580 a(g185 V tp26581 a(g339 V: tp26582 a(g339 V= tp26583 a(g185 V tp26584 a(g57 VFindNext p26585 tp26586 a(g198 V( tp26587 a(g18 VPSR p26588 tp26589 a(g198 V) tp26590 a(g339 V; tp26591 a(g185 V\u000a p26592 tp26593 a(g111 Vend p26594 tp26595 a(g339 V; tp26596 a(g185 V\u000a p26597 tp26598 a(g57 VFindClose p26599 tp26600 a(g198 V( tp26601 a(g18 VPSR p26602 tp26603 a(g198 V) tp26604 a(g339 V; tp26605 a(g185 V\u000a p26606 tp26607 a(g111 Vend p26608 tp26609 a(g339 V; tp26610 a(g185 V\u000a tp26611 a(g111 Vbegin p26612 tp26613 a(g185 V\u000a p26614 tp26615 a(g60 VResult p26616 tp26617 a(g185 V tp26618 a(g339 V: tp26619 a(g339 V= tp26620 a(g185 V tp26621 a(g222 V' tp26622 a(g222 V' tp26623 a(g339 V; tp26624 a(g185 V\u000a p26625 tp26626 a(g18 VPath p26627 tp26628 a(g185 V tp26629 a(g339 V: tp26630 a(g339 V= tp26631 a(g185 V tp26632 a(g18 VExtractPath p26633 tp26634 a(g198 V( tp26635 a(g18 VMask p26636 tp26637 a(g198 V) tp26638 a(g339 V; tp26639 a(g185 V\u000a p26640 tp26641 a(g18 VFileName p26642 tp26643 a(g185 V tp26644 a(g339 V: tp26645 a(g339 V= tp26646 a(g185 V tp26647 a(g57 VExtractFileName p26648 tp26649 a(g198 V( tp26650 a(g18 VMask p26651 tp26652 a(g198 V) tp26653 a(g339 V; tp26654 a(g185 V\u000a p26655 tp26656 a(g18 VScanDir p26657 tp26658 a(g198 V( tp26659 a(g18 VPath p26660 tp26661 a(g339 V, tp26662 a(g185 V tp26663 a(g18 VFileName p26664 tp26665 a(g198 V) tp26666 a(g339 V; tp26667 a(g185 V\u000a tp26668 a(g111 Vend p26669 tp26670 a(g339 V; tp26671 a(g185 V\u000a\u000a p26672 tp26673 a(g111 Vprocedure p26674 tp26675 a(g185 V tp26676 a(g21 VDeleteFiles p26677 tp26678 a(g198 V( tp26679 a(g111 Vconst p26680 tp26681 a(g185 V tp26682 a(g18 VMask p26683 tp26684 a(g339 V: tp26685 a(g185 V tp26686 a(g111 Vstring p26687 tp26688 a(g339 V; tp26689 a(g185 V tp26690 a(g18 VScanSubDirs p26691 tp26692 a(g339 V: tp26693 a(g185 V tp26694 a(g135 VBoolean p26695 tp26696 a(g185 V tp26697 a(g339 V= tp26698 a(g185 V tp26699 a(g111 VTrue p26700 tp26701 a(g339 V; tp26702 a(g185 V\u000a p26703 tp26704 a(g18 VAttributes p26705 tp26706 a(g339 V: tp26707 a(g185 V tp26708 a(g135 VInteger p26709 tp26710 a(g185 V tp26711 a(g339 V= tp26712 a(g185 V tp26713 a(g18 VfaFindEveryFile p26714 tp26715 a(g198 V) tp26716 a(g339 V; tp26717 a(g185 V\u000a tp26718 a(g111 Vvar p26719 tp26720 a(g185 V\u000a p26721 tp26722 a(g18 VPath p26723 tp26724 a(g339 V, tp26725 a(g185 V tp26726 a(g18 VFileName p26727 tp26728 a(g339 V: tp26729 a(g185 V tp26730 a(g111 Vstring p26731 tp26732 a(g339 V; tp26733 a(g185 V\u000a\u000a p26734 tp26735 a(g111 Vprocedure p26736 tp26737 a(g185 V tp26738 a(g21 VScanDir p26739 tp26740 a(g198 V( tp26741 a(g111 Vconst p26742 tp26743 a(g185 V tp26744 a(g18 VPath p26745 tp26746 a(g339 V, tp26747 a(g185 V tp26748 a(g18 VFileName p26749 tp26750 a(g339 V: tp26751 a(g185 V tp26752 a(g111 Vstring p26753 tp26754 a(g198 V) tp26755 a(g339 V; tp26756 a(g185 V\u000a p26757 tp26758 a(g111 Vvar p26759 tp26760 a(g185 V\u000a p26761 tp26762 a(g18 VPSR p26763 tp26764 a(g339 V: tp26765 a(g185 V tp26766 a(g18 VTSearchRec p26767 tp26768 a(g339 V; tp26769 a(g185 V\u000a p26770 tp26771 a(g18 VRes p26772 tp26773 a(g339 V: tp26774 a(g185 V tp26775 a(g135 VInteger p26776 tp26777 a(g339 V; tp26778 a(g185 V\u000a\u000a p26779 tp26780 a(g111 Vprocedure p26781 tp26782 a(g185 V tp26783 a(g21 VTryDeleteFile p26784 tp26785 a(g198 V( tp26786 a(g111 Vconst p26787 tp26788 a(g185 V tp26789 a(g18 VFileName p26790 tp26791 a(g339 V: tp26792 a(g185 V tp26793 a(g111 Vstring p26794 tp26795 a(g198 V) tp26796 a(g339 V; tp26797 a(g185 V\u000a p26798 tp26799 a(g111 Vbegin p26800 tp26801 a(g185 V\u000a p26802 tp26803 a(g111 Vtry p26804 tp26805 a(g185 V\u000a p26806 tp26807 a(g57 VDeleteFile p26808 tp26809 a(g198 V( tp26810 a(g18 VPath p26811 tp26812 a(g185 V tp26813 a(g339 V+ tp26814 a(g185 V tp26815 a(g18 VPSR p26816 tp26817 a(g339 V. tp26818 a(g18 VName p26819 tp26820 a(g198 V) tp26821 a(g339 V; tp26822 a(g185 V\u000a p26823 tp26824 a(g111 Vexcept p26825 tp26826 a(g185 V\u000a p26827 tp26828 a(g111 Vend p26829 tp26830 a(g339 V; tp26831 a(g185 V\u000a p26832 tp26833 a(g111 Vend p26834 tp26835 a(g339 V; tp26836 a(g185 V\u000a\u000a p26837 tp26838 a(g111 Vbegin p26839 tp26840 a(g185 V\u000a p26841 tp26842 a(g18 VRes p26843 tp26844 a(g185 V tp26845 a(g339 V: tp26846 a(g339 V= tp26847 a(g185 V tp26848 a(g57 VFindFirst p26849 tp26850 a(g198 V( tp26851 a(g18 VPath p26852 tp26853 a(g185 V tp26854 a(g339 V+ tp26855 a(g185 V tp26856 a(g18 VFileName p26857 tp26858 a(g339 V, tp26859 a(g185 V tp26860 a(g18 VAttributes p26861 tp26862 a(g339 V, tp26863 a(g185 V tp26864 a(g18 VPSR p26865 tp26866 a(g198 V) tp26867 a(g339 V; tp26868 a(g185 V\u000a p26869 tp26870 a(g111 Vwhile p26871 tp26872 a(g185 V tp26873 a(g18 VSuccess p26874 tp26875 a(g198 V( tp26876 a(g18 VRes p26877 tp26878 a(g339 V, tp26879 a(g185 V tp26880 a(g314 V0 tp26881 a(g198 V) tp26882 a(g185 V tp26883 a(g111 Vdo p26884 tp26885 a(g185 V tp26886 a(g111 Vbegin p26887 tp26888 a(g185 V\u000a p26889 tp26890 a(g18 VTryDeleteFile p26891 tp26892 a(g198 V( tp26893 a(g18 VPath p26894 tp26895 a(g185 V tp26896 a(g339 V+ tp26897 a(g185 V tp26898 a(g18 VPSR p26899 tp26900 a(g339 V. tp26901 a(g18 VName p26902 tp26903 a(g198 V) tp26904 a(g339 V; tp26905 a(g185 V\u000a p26906 tp26907 a(g18 VRes p26908 tp26909 a(g185 V tp26910 a(g339 V: tp26911 a(g339 V= tp26912 a(g185 V tp26913 a(g57 VFindNext p26914 tp26915 a(g198 V( tp26916 a(g18 VPSR p26917 tp26918 a(g198 V) tp26919 a(g339 V; tp26920 a(g185 V\u000a p26921 tp26922 a(g111 Vend p26923 tp26924 a(g339 V; tp26925 a(g185 V\u000a p26926 tp26927 a(g57 VFindClose p26928 tp26929 a(g198 V( tp26930 a(g18 VPSR p26931 tp26932 a(g198 V) tp26933 a(g339 V; tp26934 a(g185 V\u000a p26935 tp26936 a(g111 Vif p26937 tp26938 a(g185 V tp26939 a(g111 Vnot p26940 tp26941 a(g185 V tp26942 a(g18 VScanSubDirs p26943 tp26944 a(g185 V tp26945 a(g111 Vthen p26946 tp26947 a(g185 V\u000a p26948 tp26949 a(g111 VExit p26950 tp26951 a(g339 V; tp26952 a(g185 V\u000a\u000a p26953 tp26954 a(g18 VRes p26955 tp26956 a(g185 V tp26957 a(g339 V: tp26958 a(g339 V= tp26959 a(g185 V tp26960 a(g57 VFindFirst p26961 tp26962 a(g198 V( tp26963 a(g18 VPath p26964 tp26965 a(g185 V tp26966 a(g339 V+ tp26967 a(g185 V tp26968 a(g222 V' tp26969 a(g222 V* tp26970 a(g222 V' tp26971 a(g339 V, tp26972 a(g185 V tp26973 a(g18 VfaDirectory p26974 tp26975 a(g339 V, tp26976 a(g185 V tp26977 a(g18 VPSR p26978 tp26979 a(g198 V) tp26980 a(g339 V; tp26981 a(g185 V\u000a p26982 tp26983 a(g111 Vwhile p26984 tp26985 a(g185 V tp26986 a(g18 VSuccess p26987 tp26988 a(g198 V( tp26989 a(g18 VRes p26990 tp26991 a(g339 V, tp26992 a(g185 V tp26993 a(g314 V0 tp26994 a(g198 V) tp26995 a(g185 V tp26996 a(g111 Vdo p26997 tp26998 a(g185 V tp26999 a(g111 Vbegin p27000 tp27001 a(g185 V\u000a p27002 tp27003 a(g111 Vif p27004 tp27005 a(g185 V tp27006 a(g198 V( tp27007 a(g18 VPSR p27008 tp27009 a(g339 V. tp27010 a(g18 VAttr p27011 tp27012 a(g185 V tp27013 a(g111 Vand p27014 tp27015 a(g185 V tp27016 a(g18 VfaDirectory p27017 tp27018 a(g185 V tp27019 a(g339 V> tp27020 a(g185 V tp27021 a(g314 V0 tp27022 a(g198 V) tp27023 a(g185 V\u000a p27024 tp27025 a(g111 Vand p27026 tp27027 a(g185 V tp27028 a(g198 V( tp27029 a(g18 VPSR p27030 tp27031 a(g339 V. tp27032 a(g18 VName p27033 tp27034 a(g185 V tp27035 a(g339 V< tp27036 a(g339 V> tp27037 a(g185 V tp27038 a(g222 V' tp27039 a(g222 V. tp27040 a(g222 V' tp27041 a(g198 V) tp27042 a(g185 V tp27043 a(g111 Vand p27044 tp27045 a(g185 V tp27046 a(g198 V( tp27047 a(g18 VPSR p27048 tp27049 a(g339 V. tp27050 a(g18 VName p27051 tp27052 a(g185 V tp27053 a(g339 V< tp27054 a(g339 V> tp27055 a(g185 V tp27056 a(g222 V' tp27057 a(g222 V.. p27058 tp27059 a(g222 V' tp27060 a(g198 V) tp27061 a(g185 V tp27062 a(g111 Vthen p27063 tp27064 a(g185 V tp27065 a(g111 Vbegin p27066 tp27067 a(g185 V\u000a p27068 tp27069 a(g18 VScanDir p27070 tp27071 a(g198 V( tp27072 a(g18 VPath p27073 tp27074 a(g185 V tp27075 a(g339 V+ tp27076 a(g185 V tp27077 a(g18 VPSR p27078 tp27079 a(g339 V. tp27080 a(g18 VName p27081 tp27082 a(g185 V tp27083 a(g339 V+ tp27084 a(g185 V tp27085 a(g222 V' tp27086 a(g222 V\u005c tp27087 a(g222 V' tp27088 a(g339 V, tp27089 a(g185 V tp27090 a(g18 VFileName p27091 tp27092 a(g198 V) tp27093 a(g339 V; tp27094 a(g185 V\u000a p27095 tp27096 a(g18 VTryDeleteFile p27097 tp27098 a(g198 V( tp27099 a(g18 VPath p27100 tp27101 a(g185 V tp27102 a(g339 V+ tp27103 a(g185 V tp27104 a(g18 VPSR p27105 tp27106 a(g339 V. tp27107 a(g18 VName p27108 tp27109 a(g198 V) tp27110 a(g339 V; tp27111 a(g185 V\u000a p27112 tp27113 a(g111 Vend p27114 tp27115 a(g339 V; tp27116 a(g185 V\u000a p27117 tp27118 a(g18 VRes p27119 tp27120 a(g185 V tp27121 a(g339 V: tp27122 a(g339 V= tp27123 a(g185 V tp27124 a(g57 VFindNext p27125 tp27126 a(g198 V( tp27127 a(g18 VPSR p27128 tp27129 a(g198 V) tp27130 a(g339 V; tp27131 a(g185 V\u000a p27132 tp27133 a(g111 Vend p27134 tp27135 a(g339 V; tp27136 a(g185 V\u000a p27137 tp27138 a(g57 VFindClose p27139 tp27140 a(g198 V( tp27141 a(g18 VPSR p27142 tp27143 a(g198 V) tp27144 a(g339 V; tp27145 a(g185 V\u000a p27146 tp27147 a(g111 Vend p27148 tp27149 a(g339 V; tp27150 a(g185 V\u000a tp27151 a(g111 Vbegin p27152 tp27153 a(g185 V\u000a p27154 tp27155 a(g18 VPath p27156 tp27157 a(g185 V tp27158 a(g339 V: tp27159 a(g339 V= tp27160 a(g185 V tp27161 a(g18 VExtractPath p27162 tp27163 a(g198 V( tp27164 a(g18 VMask p27165 tp27166 a(g198 V) tp27167 a(g339 V; tp27168 a(g185 V\u000a p27169 tp27170 a(g18 VFileName p27171 tp27172 a(g185 V tp27173 a(g339 V: tp27174 a(g339 V= tp27175 a(g185 V tp27176 a(g57 VExtractFileName p27177 tp27178 a(g198 V( tp27179 a(g18 VMask p27180 tp27181 a(g198 V) tp27182 a(g339 V; tp27183 a(g185 V\u000a p27184 tp27185 a(g18 VScanDir p27186 tp27187 a(g198 V( tp27188 a(g18 VPath p27189 tp27190 a(g339 V, tp27191 a(g185 V tp27192 a(g18 VFileName p27193 tp27194 a(g198 V) tp27195 a(g339 V; tp27196 a(g185 V\u000a tp27197 a(g111 Vend p27198 tp27199 a(g339 V; tp27200 a(g185 V\u000a\u000a p27201 tp27202 a(g111 Vfunction p27203 tp27204 a(g185 V tp27205 a(g21 VGetFileNew p27206 tp27207 a(g198 V( tp27208 a(g18 VFileName p27209 tp27210 a(g339 V: tp27211 a(g185 V tp27212 a(g111 Vstring p27213 tp27214 a(g339 V; tp27215 a(g185 V tp27216 a(g18 VNoFloppyDrives p27217 tp27218 a(g339 V: tp27219 a(g185 V tp27220 a(g135 VBoolean p27221 tp27222 a(g185 V tp27223 a(g339 V= tp27224 a(g185 V tp27225 a(g111 VTrue p27226 tp27227 a(g198 V) tp27228 a(g339 V: tp27229 a(g185 V tp27230 a(g111 Vstring p27231 tp27232 a(g339 V; tp27233 a(g185 V\u000a tp27234 a(g111 Vvar p27235 tp27236 a(g185 V\u000a p27237 tp27238 a(g18 VDrive p27239 tp27240 a(g339 V: tp27241 a(g185 V tp27242 a(g111 Vstring p27243 tp27244 a(g339 V; tp27245 a(g185 V\u000a p27246 tp27247 a(g18 Vpf p27248 tp27249 a(g339 V, tp27250 a(g185 V tp27251 a(g18 Vpd p27252 tp27253 a(g339 V, tp27254 a(g185 V tp27255 a(g18 VLen p27256 tp27257 a(g339 V: tp27258 a(g185 V tp27259 a(g135 VInteger p27260 tp27261 a(g339 V; tp27262 a(g185 V\u000a p27263 tp27264 a(g18 VPSR p27265 tp27266 a(g339 V: tp27267 a(g185 V tp27268 a(g18 VTSearchRec p27269 tp27270 a(g339 V; tp27271 a(g185 V\u000a tp27272 a(g111 Vbegin p27273 tp27274 a(g185 V\u000a p27275 tp27276 a(g60 VResult p27277 tp27278 a(g185 V tp27279 a(g339 V: tp27280 a(g339 V= tp27281 a(g185 V tp27282 a(g222 V' tp27283 a(g222 V' tp27284 a(g339 V; tp27285 a(g185 V\u000a p27286 tp27287 a(g18 VFileName p27288 tp27289 a(g185 V tp27290 a(g339 V: tp27291 a(g339 V= tp27292 a(g185 V tp27293 a(g57 VTrim p27294 tp27295 a(g198 V( tp27296 a(g18 VFileName p27297 tp27298 a(g198 V) tp27299 a(g339 V; tp27300 a(g185 V\u000a p27301 tp27302 a(g111 Vif p27303 tp27304 a(g185 V tp27305 a(g57 VLength p27306 tp27307 a(g198 V( tp27308 a(g18 VFileName p27309 tp27310 a(g198 V) tp27311 a(g185 V tp27312 a(g339 V< tp27313 a(g185 V tp27314 a(g314 V2 tp27315 a(g185 V tp27316 a(g111 Vthen p27317 tp27318 a(g185 V\u000a p27319 tp27320 a(g111 VExit p27321 tp27322 a(g339 V; tp27323 a(g185 V\u000a\u000a p27324 tp27325 a(g18 VDrive p27326 tp27327 a(g185 V tp27328 a(g339 V: tp27329 a(g339 V= tp27330 a(g185 V tp27331 a(g18 VExtractDrive p27332 tp27333 a(g198 V( tp27334 a(g18 VFileName p27335 tp27336 a(g198 V) tp27337 a(g339 V; tp27338 a(g185 V\u000a p27339 tp27340 a(g111 Vif p27341 tp27342 a(g185 V tp27343 a(g111 Vnot p27344 tp27345 a(g185 V tp27346 a(g57 VDirectoryExists p27347 tp27348 a(g198 V( tp27349 a(g18 VDrive p27350 tp27351 a(g198 V) tp27352 a(g185 V tp27353 a(g111 Vthen p27354 tp27355 a(g185 V\u000a p27356 tp27357 a(g111 VExit p27358 tp27359 a(g339 V; tp27360 a(g185 V\u000a\u000a p27361 tp27362 a(g111 Vif p27363 tp27364 a(g185 V tp27365 a(g18 VNoFloppyDrives p27366 tp27367 a(g185 V tp27368 a(g111 Vand p27369 tp27370 a(g185 V tp27371 a(g198 V( tp27372 a(g18 VDrive p27373 tp27374 a(g198 V[ tp27375 a(g314 V1 tp27376 a(g198 V] tp27377 a(g185 V tp27378 a(g111 Vin p27379 tp27380 a(g185 V tp27381 a(g198 V[ tp27382 a(g222 V' tp27383 a(g222 VA tp27384 a(g222 V' tp27385 a(g339 V, tp27386 a(g185 V tp27387 a(g222 V' tp27388 a(g222 VB tp27389 a(g222 V' tp27390 a(g198 V]) p27391 tp27392 a(g185 V tp27393 a(g111 Vthen p27394 tp27395 a(g185 V\u000a p27396 tp27397 a(g111 VExit p27398 tp27399 a(g339 V; tp27400 a(g185 V\u000a\u000a p27401 tp27402 a(g18 VLen p27403 tp27404 a(g185 V tp27405 a(g339 V: tp27406 a(g339 V= tp27407 a(g185 V tp27408 a(g57 VLength p27409 tp27410 a(g198 V( tp27411 a(g18 VFileName p27412 tp27413 a(g198 V) tp27414 a(g339 V; tp27415 a(g185 V\u000a p27416 tp27417 a(g60 VResult p27418 tp27419 a(g185 V tp27420 a(g339 V: tp27421 a(g339 V= tp27422 a(g185 V tp27423 a(g18 VDrive p27424 tp27425 a(g339 V; tp27426 a(g185 V\u000a p27427 tp27428 a(g18 Vpf p27429 tp27430 a(g185 V tp27431 a(g339 V: tp27432 a(g339 V= tp27433 a(g185 V tp27434 a(g57 VLength p27435 tp27436 a(g198 V( tp27437 a(g18 VDrive p27438 tp27439 a(g198 V) tp27440 a(g185 V tp27441 a(g339 V+ tp27442 a(g185 V tp27443 a(g314 V1 tp27444 a(g339 V; tp27445 a(g185 V\u000a p27446 tp27447 a(g111 Vwhile p27448 tp27449 a(g185 V tp27450 a(g18 Vpf p27451 tp27452 a(g185 V tp27453 a(g339 V< tp27454 a(g339 V= tp27455 a(g185 V tp27456 a(g18 VLen p27457 tp27458 a(g185 V tp27459 a(g111 Vdo p27460 tp27461 a(g185 V tp27462 a(g111 Vbegin p27463 tp27464 a(g185 V\u000a p27465 tp27466 a(g111 Vif p27467 tp27468 a(g185 V tp27469 a(g18 VFileName p27470 tp27471 a(g198 V[ tp27472 a(g18 Vpf p27473 tp27474 a(g198 V] tp27475 a(g185 V tp27476 a(g339 V= tp27477 a(g185 V tp27478 a(g222 V' tp27479 a(g222 V\u005c tp27480 a(g222 V' tp27481 a(g185 V tp27482 a(g111 Vthen p27483 tp27484 a(g185 V tp27485 a(g111 Vbegin p27486 tp27487 a(g185 V\u000a p27488 tp27489 a(g60 VResult p27490 tp27491 a(g185 V tp27492 a(g339 V: tp27493 a(g339 V= tp27494 a(g185 V tp27495 a(g60 VResult p27496 tp27497 a(g185 V tp27498 a(g339 V+ tp27499 a(g185 V tp27500 a(g222 V' tp27501 a(g222 V\u005c tp27502 a(g222 V' tp27503 a(g339 V; tp27504 a(g185 V\u000a p27505 tp27506 a(g57 VInc p27507 tp27508 a(g198 V( tp27509 a(g18 Vpf p27510 tp27511 a(g198 V) tp27512 a(g339 V; tp27513 a(g185 V\u000a p27514 tp27515 a(g111 VContinue p27516 tp27517 a(g339 V; tp27518 a(g185 V tp27519 a(g111 Vend p27520 tp27521 a(g339 V; tp27522 a(g185 V\u000a\u000a p27523 tp27524 a(g18 Vpd p27525 tp27526 a(g185 V tp27527 a(g339 V: tp27528 a(g339 V= tp27529 a(g185 V tp27530 a(g18 VCharPos p27531 tp27532 a(g198 V( tp27533 a(g222 V' tp27534 a(g222 V\u005c tp27535 a(g222 V' tp27536 a(g339 V, tp27537 a(g185 V tp27538 a(g18 VFileName p27539 tp27540 a(g339 V, tp27541 a(g185 V tp27542 a(g18 Vpf p27543 tp27544 a(g198 V) tp27545 a(g339 V; tp27546 a(g185 V\u000a p27547 tp27548 a(g111 Vif p27549 tp27550 a(g185 V tp27551 a(g18 Vpd p27552 tp27553 a(g185 V tp27554 a(g339 V= tp27555 a(g185 V tp27556 a(g314 V0 tp27557 a(g185 V tp27558 a(g111 Vthen p27559 tp27560 a(g185 V tp27561 a(g111 Vbegin p27562 tp27563 a(g185 V\u000a p27564 tp27565 a(g111 Vif p27566 tp27567 a(g185 V tp27568 a(g314 V0 tp27569 a(g339 V= tp27570 a(g57 VFindFirst p27571 tp27572 a(g198 V( tp27573 a(g60 VResult p27574 tp27575 a(g185 V tp27576 a(g339 V+ tp27577 a(g185 V tp27578 a(g57 VCopy p27579 tp27580 a(g198 V( tp27581 a(g18 VFileName p27582 tp27583 a(g339 V, tp27584 a(g185 V tp27585 a(g18 Vpf p27586 tp27587 a(g339 V, tp27588 a(g185 V tp27589 a(g18 VMaxInt p27590 tp27591 a(g198 V) tp27592 a(g339 V, tp27593 a(g185 V tp27594 a(g18 VfaFindEveryFile p27595 tp27596 a(g339 V, tp27597 a(g185 V tp27598 a(g18 VPSR p27599 tp27600 a(g198 V) tp27601 a(g185 V tp27602 a(g111 Vthen p27603 tp27604 a(g185 V tp27605 a(g111 Vbegin p27606 tp27607 a(g185 V\u000a p27608 tp27609 a(g60 VResult p27610 tp27611 a(g185 V tp27612 a(g339 V: tp27613 a(g339 V= tp27614 a(g185 V tp27615 a(g60 VResult p27616 tp27617 a(g185 V tp27618 a(g339 V+ tp27619 a(g185 V tp27620 a(g18 VPSR p27621 tp27622 a(g339 V. tp27623 a(g18 VName p27624 tp27625 a(g339 V; tp27626 a(g185 V\u000a p27627 tp27628 a(g111 VBreak p27629 tp27630 a(g339 V; tp27631 a(g185 V tp27632 a(g111 Vend p27633 tp27634 a(g185 V tp27635 a(g111 Velse p27636 tp27637 a(g185 V tp27638 a(g111 Vbegin p27639 tp27640 a(g185 V\u000a p27641 tp27642 a(g57 VFindClose p27643 tp27644 a(g198 V( tp27645 a(g18 VPSR p27646 tp27647 a(g198 V) tp27648 a(g339 V; tp27649 a(g185 V\u000a p27650 tp27651 a(g111 Vif p27652 tp27653 a(g185 V tp27654 a(g314 V0 tp27655 a(g339 V= tp27656 a(g57 VFindFirst p27657 tp27658 a(g198 V( tp27659 a(g60 VResult p27660 tp27661 a(g185 V tp27662 a(g339 V+ tp27663 a(g185 V tp27664 a(g57 VCopy p27665 tp27666 a(g198 V( tp27667 a(g18 VFileName p27668 tp27669 a(g339 V, tp27670 a(g185 V tp27671 a(g18 Vpf p27672 tp27673 a(g339 V, tp27674 a(g185 V tp27675 a(g18 VMaxInt p27676 tp27677 a(g198 V) tp27678 a(g339 V, tp27679 a(g185 V tp27680 a(g18 VfaDirectory p27681 tp27682 a(g339 V, tp27683 a(g185 V tp27684 a(g18 VPSR p27685 tp27686 a(g198 V) tp27687 a(g185 V tp27688 a(g111 Vthen p27689 tp27690 a(g185 V\u000a p27691 tp27692 a(g60 VResult p27693 tp27694 a(g185 V tp27695 a(g339 V: tp27696 a(g339 V= tp27697 a(g185 V tp27698 a(g60 VResult p27699 tp27700 a(g185 V tp27701 a(g339 V+ tp27702 a(g185 V tp27703 a(g18 VPSR p27704 tp27705 a(g339 V. tp27706 a(g18 VName p27707 tp27708 a(g185 V tp27709 a(g339 V+ tp27710 a(g185 V tp27711 a(g222 V' tp27712 a(g222 V\u005c tp27713 a(g222 V' tp27714 a(g185 V\u000a p27715 tp27716 a(g111 Velse p27717 tp27718 a(g185 V\u000a p27719 tp27720 a(g60 VResult p27721 tp27722 a(g185 V tp27723 a(g339 V: tp27724 a(g339 V= tp27725 a(g185 V tp27726 a(g222 V' tp27727 a(g222 V' tp27728 a(g339 V; tp27729 a(g185 V\u000a p27730 tp27731 a(g57 VFindClose p27732 tp27733 a(g198 V( tp27734 a(g18 VPSR p27735 tp27736 a(g198 V) tp27737 a(g339 V; tp27738 a(g185 V\u000a p27739 tp27740 a(g111 Vif p27741 tp27742 a(g185 V tp27743 a(g60 VResult p27744 tp27745 a(g185 V tp27746 a(g339 V= tp27747 a(g185 V tp27748 a(g222 V' tp27749 a(g222 V' tp27750 a(g185 V tp27751 a(g111 Vthen p27752 tp27753 a(g185 V\u000a p27754 tp27755 a(g111 VBreak p27756 tp27757 a(g339 V; tp27758 a(g185 V\u000a p27759 tp27760 a(g111 Vend p27761 tp27762 a(g339 V; tp27763 a(g185 V\u000a p27764 tp27765 a(g111 Vend p27766 tp27767 a(g339 V; tp27768 a(g185 V\u000a\u000a p27769 tp27770 a(g111 Vif p27771 tp27772 a(g185 V tp27773 a(g314 V0 tp27774 a(g339 V= tp27775 a(g57 VFindFirst p27776 tp27777 a(g198 V( tp27778 a(g60 VResult p27779 tp27780 a(g185 V tp27781 a(g339 V+ tp27782 a(g185 V tp27783 a(g57 VCopy p27784 tp27785 a(g198 V( tp27786 a(g18 VFileName p27787 tp27788 a(g339 V, tp27789 a(g185 V tp27790 a(g18 Vpf p27791 tp27792 a(g339 V, tp27793 a(g185 V tp27794 a(g18 Vpd p27795 tp27796 a(g185 V tp27797 a(g339 V- tp27798 a(g185 V tp27799 a(g18 Vpf p27800 tp27801 a(g198 V) tp27802 a(g339 V, tp27803 a(g185 V tp27804 a(g18 VfaDirectory p27805 tp27806 a(g339 V, tp27807 a(g185 V tp27808 a(g18 VPSR p27809 tp27810 a(g198 V) tp27811 a(g185 V tp27812 a(g111 Vthen p27813 tp27814 a(g185 V\u000a p27815 tp27816 a(g60 VResult p27817 tp27818 a(g185 V tp27819 a(g339 V: tp27820 a(g339 V= tp27821 a(g185 V tp27822 a(g60 VResult p27823 tp27824 a(g185 V tp27825 a(g339 V+ tp27826 a(g185 V tp27827 a(g18 VPSR p27828 tp27829 a(g339 V. tp27830 a(g18 VName p27831 tp27832 a(g185 V tp27833 a(g339 V+ tp27834 a(g185 V tp27835 a(g222 V' tp27836 a(g222 V\u005c tp27837 a(g222 V' tp27838 a(g185 V\u000a p27839 tp27840 a(g111 Velse p27841 tp27842 a(g185 V\u000a p27843 tp27844 a(g60 VResult p27845 tp27846 a(g185 V tp27847 a(g339 V: tp27848 a(g339 V= tp27849 a(g185 V tp27850 a(g222 V' tp27851 a(g222 V' tp27852 a(g339 V; tp27853 a(g185 V\u000a p27854 tp27855 a(g57 VFindClose p27856 tp27857 a(g198 V( tp27858 a(g18 VPSR p27859 tp27860 a(g198 V) tp27861 a(g339 V; tp27862 a(g185 V\u000a p27863 tp27864 a(g111 Vif p27865 tp27866 a(g185 V tp27867 a(g60 VResult p27868 tp27869 a(g185 V tp27870 a(g339 V= tp27871 a(g185 V tp27872 a(g222 V' tp27873 a(g222 V' tp27874 a(g185 V tp27875 a(g111 Vthen p27876 tp27877 a(g185 V\u000a p27878 tp27879 a(g111 VBreak p27880 tp27881 a(g339 V; tp27882 a(g185 V\u000a\u000a p27883 tp27884 a(g18 Vpf p27885 tp27886 a(g185 V tp27887 a(g339 V: tp27888 a(g339 V= tp27889 a(g185 V tp27890 a(g18 Vpd p27891 tp27892 a(g185 V tp27893 a(g339 V+ tp27894 a(g185 V tp27895 a(g314 V1 tp27896 a(g339 V; tp27897 a(g185 V\u000a p27898 tp27899 a(g111 Vend p27900 tp27901 a(g339 V; tp27902 a(g185 V\u000a\u000a p27903 tp27904 a(g111 Vif p27905 tp27906 a(g185 V tp27907 a(g198 V( tp27908 a(g60 VResult p27909 tp27910 a(g185 V tp27911 a(g339 V< tp27912 a(g339 V> tp27913 a(g185 V tp27914 a(g222 V' tp27915 a(g222 V' tp27916 a(g198 V) tp27917 a(g185 V tp27918 a(g111 Vand p27919 tp27920 a(g185 V tp27921 a(g111 Vnot p27922 tp27923 a(g185 V tp27924 a(g18 VFileEx p27925 tp27926 a(g198 V( tp27927 a(g60 VResult p27928 tp27929 a(g339 V, tp27930 a(g185 V tp27931 a(g111 VTrue p27932 tp27933 a(g198 V) tp27934 a(g185 V tp27935 a(g111 Vthen p27936 tp27937 a(g185 V\u000a p27938 tp27939 a(g60 VResult p27940 tp27941 a(g185 V tp27942 a(g339 V: tp27943 a(g339 V= tp27944 a(g185 V tp27945 a(g222 V' tp27946 a(g222 V' tp27947 a(g339 V; tp27948 a(g185 V\u000a tp27949 a(g111 Vend p27950 tp27951 a(g339 V; tp27952 a(g185 V\u000a\u000a p27953 tp27954 a(g111 Vfunction p27955 tp27956 a(g185 V tp27957 a(g21 VDateTimeOfFileTime p27958 tp27959 a(g198 V( tp27960 a(g111 Vconst p27961 tp27962 a(g185 V tp27963 a(g18 VFileTime p27964 tp27965 a(g339 V: tp27966 a(g185 V tp27967 a(g18 VTFileTime p27968 tp27969 a(g198 V) tp27970 a(g339 V: tp27971 a(g185 V tp27972 a(g135 VTDateTime p27973 tp27974 a(g339 V; tp27975 a(g185 V\u000a tp27976 a(g111 Vvar p27977 tp27978 a(g185 V\u000a p27979 tp27980 a(g18 VLocalFileTime p27981 tp27982 a(g339 V: tp27983 a(g185 V tp27984 a(g18 VTFileTime p27985 tp27986 a(g339 V; tp27987 a(g185 V\u000a p27988 tp27989 a(g18 VRes p27990 tp27991 a(g339 V: tp27992 a(g185 V tp27993 a(g135 VInteger p27994 tp27995 a(g339 V; tp27996 a(g185 V\u000a tp27997 a(g111 Vbegin p27998 tp27999 a(g185 V\u000a p28000 tp28001 a(g60 VResult p28002 tp28003 a(g185 V tp28004 a(g339 V: tp28005 a(g339 V= tp28006 a(g185 V tp28007 a(g314 V0 tp28008 a(g339 V; tp28009 a(g185 V\u000a\u000a p28010 tp28011 a(g18 VFileTimeToLocalFileTime p28012 tp28013 a(g198 V( tp28014 a(g18 VFileTime p28015 tp28016 a(g339 V, tp28017 a(g185 V tp28018 a(g18 VLocalFileTime p28019 tp28020 a(g198 V) tp28021 a(g339 V; tp28022 a(g185 V\u000a p28023 tp28024 a(g111 Vif p28025 tp28026 a(g185 V tp28027 a(g111 Vnot p28028 tp28029 a(g185 V tp28030 a(g18 VFileTimeToDosDateTime p28031 tp28032 a(g198 V( tp28033 a(g18 VLocalFileTime p28034 tp28035 a(g339 V, tp28036 a(g185 V tp28037 a(g18 VLongRec p28038 tp28039 a(g198 V( tp28040 a(g18 VRes p28041 tp28042 a(g198 V) tp28043 a(g339 V. tp28044 a(g18 VHi p28045 tp28046 a(g339 V, tp28047 a(g185 V\u000a p28048 tp28049 a(g18 VLongRec p28050 tp28051 a(g198 V( tp28052 a(g18 VRes p28053 tp28054 a(g198 V) tp28055 a(g339 V. tp28056 a(g18 VLo p28057 tp28058 a(g198 V) tp28059 a(g185 V tp28060 a(g111 Vthen p28061 tp28062 a(g185 V\u000a p28063 tp28064 a(g18 VRes p28065 tp28066 a(g185 V tp28067 a(g339 V: tp28068 a(g339 V= tp28069 a(g185 V tp28070 a(g339 V- tp28071 a(g314 V1 tp28072 a(g339 V; tp28073 a(g185 V\u000a\u000a p28074 tp28075 a(g111 Vif p28076 tp28077 a(g185 V tp28078 a(g198 V( tp28079 a(g18 VRes p28080 tp28081 a(g185 V tp28082 a(g339 V= tp28083 a(g185 V tp28084 a(g339 V- tp28085 a(g314 V1 tp28086 a(g198 V) tp28087 a(g185 V tp28088 a(g111 Vor p28089 tp28090 a(g185 V tp28091 a(g198 V( tp28092 a(g18 VRes p28093 tp28094 a(g185 V tp28095 a(g339 V= tp28096 a(g185 V tp28097 a(g314 V0 tp28098 a(g198 V) tp28099 a(g185 V tp28100 a(g111 Vthen p28101 tp28102 a(g185 V\u000a p28103 tp28104 a(g111 VExit p28105 tp28106 a(g339 V; tp28107 a(g185 V\u000a p28108 tp28109 a(g111 Vtry p28110 tp28111 a(g185 V\u000a p28112 tp28113 a(g60 VResult p28114 tp28115 a(g185 V tp28116 a(g339 V: tp28117 a(g339 V= tp28118 a(g185 V tp28119 a(g57 VFileDateToDateTime p28120 tp28121 a(g198 V( tp28122 a(g18 VRes p28123 tp28124 a(g198 V) tp28125 a(g339 V; tp28126 a(g185 V\u000a p28127 tp28128 a(g111 Vexcept p28129 tp28130 a(g185 V\u000a p28131 tp28132 a(g111 Vend p28133 tp28134 a(g339 V; tp28135 a(g185 V\u000a tp28136 a(g111 Vend p28137 tp28138 a(g339 V; tp28139 a(g185 V\u000a\u000a p28140 tp28141 a(g111 Vprocedure p28142 tp28143 a(g185 V tp28144 a(g21 VFileNew p28145 tp28146 a(g198 V( tp28147 a(g111 Vconst p28148 tp28149 a(g185 V tp28150 a(g18 VFileName p28151 tp28152 a(g339 V: tp28153 a(g185 V tp28154 a(g111 Vstring p28155 tp28156 a(g198 V) tp28157 a(g339 V; tp28158 a(g185 V\u000a tp28159 a(g111 Vvar p28160 tp28161 a(g185 V\u000a p28162 tp28163 a(g18 VHandle p28164 tp28165 a(g339 V: tp28166 a(g185 V tp28167 a(g135 VInteger p28168 tp28169 a(g339 V; tp28170 a(g185 V\u000a tp28171 a(g111 Vbegin p28172 tp28173 a(g185 V\u000a p28174 tp28175 a(g18 VHandle p28176 tp28177 a(g185 V tp28178 a(g339 V: tp28179 a(g339 V= tp28180 a(g185 V tp28181 a(g57 VFileCreate p28182 tp28183 a(g198 V( tp28184 a(g18 VFileName p28185 tp28186 a(g198 V) tp28187 a(g339 V; tp28188 a(g185 V\u000a p28189 tp28190 a(g57 VFileClose p28191 tp28192 a(g198 V( tp28193 a(g18 VHandle p28194 tp28195 a(g198 V) tp28196 a(g339 V; tp28197 a(g185 V\u000a tp28198 a(g111 Vend p28199 tp28200 a(g339 V; tp28201 a(g185 V\u000a\u000a p28202 tp28203 a(g111 Vfunction p28204 tp28205 a(g185 V tp28206 a(g21 VWin32PlatformStr p28207 tp28208 a(g339 V: tp28209 a(g185 V tp28210 a(g111 Vstring p28211 tp28212 a(g339 V; tp28213 a(g185 V\u000a tp28214 a(g111 Vconst p28215 tp28216 a(g185 V\u000a p28217 tp28218 a(g18 VPlatformStrings p28219 tp28220 a(g339 V: tp28221 a(g185 V tp28222 a(g111 Varray p28223 tp28224 a(g198 V[ tp28225 a(g18 VVER_PLATFORM_WIN32s p28226 tp28227 a(g339 V. tp28228 a(g339 V. tp28229 a(g18 VVER_PLATFORM_WIN32_NT p28230 tp28231 a(g198 V] tp28232 a(g185 V tp28233 a(g111 Vof p28234 tp28235 a(g185 V tp28236 a(g111 Vstring p28237 tp28238 a(g185 V tp28239 a(g339 V= tp28240 a(g185 V\u000a p28241 tp28242 a(g198 V( tp28243 a(g222 V' tp28244 a(g222 VVER_PLATFORM_WIN32s p28245 tp28246 a(g222 V' tp28247 a(g339 V, tp28248 a(g185 V tp28249 a(g222 V' tp28250 a(g222 VVER_PLATFORM_WIN32_WINDOWS p28251 tp28252 a(g222 V' tp28253 a(g339 V, tp28254 a(g185 V tp28255 a(g222 V' tp28256 a(g222 VVER_PLATFORM_WIN32_NT p28257 tp28258 a(g222 V' tp28259 a(g198 V) tp28260 a(g339 V; tp28261 a(g185 V\u000a tp28262 a(g111 Vbegin p28263 tp28264 a(g185 V\u000a p28265 tp28266 a(g60 VResult p28267 tp28268 a(g185 V tp28269 a(g339 V: tp28270 a(g339 V= tp28271 a(g185 V tp28272 a(g18 VPlatformStrings p28273 tp28274 a(g198 V[ tp28275 a(g18 VWin32Platform p28276 tp28277 a(g198 V] tp28278 a(g339 V; tp28279 a(g185 V\u000a tp28280 a(g111 Vend p28281 tp28282 a(g339 V; tp28283 a(g185 V\u000a\u000a p28284 tp28285 a(g111 Vfunction p28286 tp28287 a(g185 V tp28288 a(g21 VFullOSInfo p28289 tp28290 a(g339 V: tp28291 a(g185 V tp28292 a(g111 Vstring p28293 tp28294 a(g339 V; tp28295 a(g185 V\u000a tp28296 a(g111 Vbegin p28297 tp28298 a(g185 V\u000a p28299 tp28300 a(g60 VResult p28301 tp28302 a(g185 V tp28303 a(g339 V: tp28304 a(g339 V= tp28305 a(g185 V tp28306 a(g57 VFormat p28307 tp28308 a(g198 V( tp28309 a(g185 V\u000a p28310 tp28311 a(g222 V' tp28312 a(g222 VPlatform: %s p28313 tp28314 a(g222 V' tp28315 a(g185 V tp28316 a(g339 V+ tp28317 a(g185 V tp28318 a(g18 VEOL p28319 tp28320 a(g185 V tp28321 a(g339 V+ tp28322 a(g185 V\u000a p28323 tp28324 a(g222 V' tp28325 a(g222 VVersion: %d.%d Build %d p28326 tp28327 a(g222 V' tp28328 a(g185 V tp28329 a(g339 V+ tp28330 a(g185 V tp28331 a(g18 VEOL p28332 tp28333 a(g185 V tp28334 a(g339 V+ tp28335 a(g185 V\u000a p28336 tp28337 a(g222 V' tp28338 a(g222 VCSD: %s p28339 tp28340 a(g222 V' tp28341 a(g339 V, tp28342 a(g185 V\u000a p28343 tp28344 a(g198 V[ tp28345 a(g185 V\u000a p28346 tp28347 a(g18 VWin32PlatformStr p28348 tp28349 a(g339 V, tp28350 a(g185 V\u000a p28351 tp28352 a(g18 VWin32MajorVersion p28353 tp28354 a(g339 V, tp28355 a(g185 V tp28356 a(g18 VWin32MinorVersion p28357 tp28358 a(g339 V, tp28359 a(g185 V tp28360 a(g18 VWin32BuildNumber p28361 tp28362 a(g339 V, tp28363 a(g185 V\u000a p28364 tp28365 a(g18 VWin32CSDVersion p28366 tp28367 a(g185 V\u000a p28368 tp28369 a(g198 V] tp28370 a(g185 V\u000a p28371 tp28372 a(g198 V) tp28373 a(g339 V; tp28374 a(g185 V\u000a tp28375 a(g111 Vend p28376 tp28377 a(g339 V; tp28378 a(g185 V\u000a\u000a p28379 tp28380 a(g111 Vfunction p28381 tp28382 a(g185 V tp28383 a(g21 VWin9x p28384 tp28385 a(g339 V: tp28386 a(g185 V tp28387 a(g135 VBoolean p28388 tp28389 a(g339 V; tp28390 a(g185 V\u000a tp28391 a(g111 Vbegin p28392 tp28393 a(g185 V\u000a p28394 tp28395 a(g60 VResult p28396 tp28397 a(g185 V tp28398 a(g339 V: tp28399 a(g339 V= tp28400 a(g185 V tp28401 a(g18 VWin32Platform p28402 tp28403 a(g185 V tp28404 a(g339 V= tp28405 a(g185 V tp28406 a(g18 VVER_PLATFORM_WIN32_WINDOWS p28407 tp28408 a(g339 V; tp28409 a(g185 V\u000a tp28410 a(g111 Vend p28411 tp28412 a(g339 V; tp28413 a(g185 V\u000a\u000a p28414 tp28415 a(g111 Vfunction p28416 tp28417 a(g185 V tp28418 a(g21 VWinNT p28419 tp28420 a(g339 V: tp28421 a(g185 V tp28422 a(g135 VBoolean p28423 tp28424 a(g339 V; tp28425 a(g185 V\u000a tp28426 a(g111 Vbegin p28427 tp28428 a(g185 V\u000a p28429 tp28430 a(g60 VResult p28431 tp28432 a(g185 V tp28433 a(g339 V: tp28434 a(g339 V= tp28435 a(g185 V tp28436 a(g18 VWin32Platform p28437 tp28438 a(g185 V tp28439 a(g339 V= tp28440 a(g185 V tp28441 a(g18 VVER_PLATFORM_WIN32_NT p28442 tp28443 a(g339 V; tp28444 a(g185 V\u000a tp28445 a(g111 Vend p28446 tp28447 a(g339 V; tp28448 a(g185 V\u000a\u000a p28449 tp28450 a(g111 Vfunction p28451 tp28452 a(g185 V tp28453 a(g21 VWin2000 p28454 tp28455 a(g339 V: tp28456 a(g185 V tp28457 a(g135 VBoolean p28458 tp28459 a(g339 V; tp28460 a(g185 V\u000a tp28461 a(g111 Vbegin p28462 tp28463 a(g185 V\u000a p28464 tp28465 a(g60 VResult p28466 tp28467 a(g185 V tp28468 a(g339 V: tp28469 a(g339 V= tp28470 a(g185 V tp28471 a(g198 V( tp28472 a(g18 VWin32Platform p28473 tp28474 a(g185 V tp28475 a(g339 V= tp28476 a(g185 V tp28477 a(g18 VVER_PLATFORM_WIN32_NT p28478 tp28479 a(g198 V) tp28480 a(g185 V\u000a p28481 tp28482 a(g111 Vand p28483 tp28484 a(g185 V tp28485 a(g198 V( tp28486 a(g18 VWin32MajorVersion p28487 tp28488 a(g185 V tp28489 a(g339 V= tp28490 a(g185 V tp28491 a(g314 V4 tp28492 a(g198 V) tp28493 a(g339 V; tp28494 a(g185 V\u000a tp28495 a(g111 Vend p28496 tp28497 a(g339 V; tp28498 a(g185 V\u000a\u000a p28499 tp28500 a(g111 Vfunction p28501 tp28502 a(g185 V tp28503 a(g21 VWinXP p28504 tp28505 a(g339 V: tp28506 a(g185 V tp28507 a(g135 VBoolean p28508 tp28509 a(g339 V; tp28510 a(g185 V\u000a tp28511 a(g111 Vbegin p28512 tp28513 a(g185 V\u000a p28514 tp28515 a(g60 VResult p28516 tp28517 a(g185 V tp28518 a(g339 V: tp28519 a(g339 V= tp28520 a(g185 V tp28521 a(g18 VWin32MajorVersion p28522 tp28523 a(g185 V tp28524 a(g339 V> tp28525 a(g339 V= tp28526 a(g185 V tp28527 a(g314 V5 tp28528 a(g339 V; tp28529 a(g185 V\u000a tp28530 a(g111 Vend p28531 tp28532 a(g339 V; tp28533 a(g185 V\u000a\u000a p28534 tp28535 a(g111 Vinitialization p28536 tp28537 a(g185 V\u000a p28538 tp28539 a(g18 VMyDir p28540 tp28541 a(g185 V tp28542 a(g339 V: tp28543 a(g339 V= tp28544 a(g185 V tp28545 a(g18 VGetMyDir p28546 tp28547 a(g339 V; tp28548 a(g185 V\u000a\u000a p28549 tp28550 a(g111 Vend p28551 tp28552 a(g339 V. tp28553 a(g185 V\u000a\u000a p28554 tp28555 a(g111 Vunit p28556 tp28557 a(g185 V tp28558 a(g18 VFifoStream p28559 tp28560 a(g339 V; tp28561 a(g185 V\u000a\u000a p28562 tp28563 a(g111 Vinterface p28564 tp28565 a(g185 V\u000a\u000a p28566 tp28567 a(g111 Vuses p28568 tp28569 a(g185 V tp28570 a(g18 VClasses p28571 tp28572 a(g339 V, tp28573 a(g185 V tp28574 a(g18 Vwindows p28575 tp28576 a(g339 V, tp28577 a(g185 V tp28578 a(g18 VDialogs p28579 tp28580 a(g339 V; tp28581 a(g185 V\u000a\u000a p28582 tp28583 a(g111 Vconst p28584 tp28585 a(g185 V\u000a p28586 tp28587 a(g18 VDefaultChunksize p28588 tp28589 a(g185 V tp28590 a(g339 V= tp28591 a(g185 V tp28592 a(g314 V32768 p28593 tp28594 a(g339 V; tp28595 a(g185 V tp28596 a(g7 V// 32kb per chunk as default. p28597 tp28598 a(g185 V\u000a\u000a p28599 tp28600 a(g111 Vtype p28601 tp28602 a(g185 V\u000a p28603 tp28604 a(g18 VPMemChunk p28605 tp28606 a(g185 V tp28607 a(g339 V= tp28608 a(g185 V tp28609 a(g339 V^ tp28610 a(g18 VTMemChunk p28611 tp28612 a(g339 V; tp28613 a(g185 V\u000a p28614 tp28615 a(g18 VTMemChunk p28616 tp28617 a(g185 V tp28618 a(g339 V= tp28619 a(g185 V tp28620 a(g111 Vrecord p28621 tp28622 a(g185 V\u000a p28623 tp28624 a(g18 VFilled p28625 tp28626 a(g339 V: tp28627 a(g185 V tp28628 a(g135 VLongword p28629 tp28630 a(g339 V; tp28631 a(g185 V\u000a p28632 tp28633 a(g57 VRead p28634 tp28635 a(g339 V: tp28636 a(g185 V tp28637 a(g135 VLongword p28638 tp28639 a(g339 V; tp28640 a(g185 V\u000a p28641 tp28642 a(g18 VData p28643 tp28644 a(g339 V: tp28645 a(g185 V tp28646 a(g135 Vpointer p28647 tp28648 a(g339 V; tp28649 a(g185 V\u000a p28650 tp28651 a(g111 Vend p28652 tp28653 a(g339 V; tp28654 a(g185 V\u000a\u000a p28655 tp28656 a(g18 VTFifo p28657 tp28658 a(g185 V tp28659 a(g339 V= tp28660 a(g185 V tp28661 a(g111 Vclass p28662 tp28663 a(g185 V\u000a p28664 tp28665 a(g119 Vprivate p28666 tp28667 a(g185 V\u000a p28668 tp28669 a(g18 VFBuffers p28670 tp28671 a(g339 V: tp28672 a(g185 V tp28673 a(g18 VTList p28674 tp28675 a(g339 V; tp28676 a(g185 V\u000a p28677 tp28678 a(g18 VFChunksize p28679 tp28680 a(g339 V: tp28681 a(g185 V tp28682 a(g135 VLongword p28683 tp28684 a(g339 V; tp28685 a(g185 V\u000a p28686 tp28687 a(g18 VFCritSect p28688 tp28689 a(g339 V: tp28690 a(g185 V tp28691 a(g18 VTRTLCriticalSection p28692 tp28693 a(g339 V; tp28694 a(g185 V\u000a p28695 tp28696 a(g18 VFIsWinNT p28697 tp28698 a(g339 V: tp28699 a(g185 V tp28700 a(g135 Vboolean p28701 tp28702 a(g339 V; tp28703 a(g185 V\u000a p28704 tp28705 a(g18 VFBytesInFifo p28706 tp28707 a(g339 V: tp28708 a(g185 V tp28709 a(g135 VLongWord p28710 tp28711 a(g339 V; tp28712 a(g185 V\u000a p28713 tp28714 a(g119 Vprotected p28715 tp28716 a(g185 V\u000a p28717 tp28718 a(g111 Vfunction p28719 tp28720 a(g185 V tp28721 a(g21 VGetBytesInFifo p28722 tp28723 a(g339 V: tp28724 a(g185 V tp28725 a(g135 VLongWord p28726 tp28727 a(g339 V; tp28728 a(g185 V\u000a p28729 tp28730 a(g119 Vpublic p28731 tp28732 a(g185 V\u000a p28733 tp28734 a(g111 Vconstructor p28735 tp28736 a(g185 V tp28737 a(g21 VCreate p28738 tp28739 a(g339 V; tp28740 a(g185 V\u000a p28741 tp28742 a(g111 Vdestructor p28743 tp28744 a(g185 V tp28745 a(g21 VDestroy p28746 tp28747 a(g339 V; tp28748 a(g185 V tp28749 a(g119 Voverride p28750 tp28751 a(g339 V; tp28752 a(g185 V\u000a p28753 tp28754 a(g111 Vprocedure p28755 tp28756 a(g185 V tp28757 a(g21 VWrite p28758 tp28759 a(g198 V( tp28760 a(g18 VData p28761 tp28762 a(g339 V: tp28763 a(g185 V tp28764 a(g135 Vpointer p28765 tp28766 a(g339 V; tp28767 a(g185 V tp28768 a(g18 VSize p28769 tp28770 a(g339 V: tp28771 a(g185 V tp28772 a(g135 VLongWord p28773 tp28774 a(g198 V) tp28775 a(g339 V; tp28776 a(g185 V\u000a p28777 tp28778 a(g111 Vprocedure p28779 tp28780 a(g185 V tp28781 a(g21 VRead p28782 tp28783 a(g198 V( tp28784 a(g18 VBuff p28785 tp28786 a(g339 V: tp28787 a(g185 V tp28788 a(g135 Vpointer p28789 tp28790 a(g339 V; tp28791 a(g185 V tp28792 a(g111 Vvar p28793 tp28794 a(g185 V tp28795 a(g18 VReqSize p28796 tp28797 a(g339 V: tp28798 a(g185 V tp28799 a(g135 VLongWord p28800 tp28801 a(g198 V) tp28802 a(g339 V; tp28803 a(g185 V\u000a p28804 tp28805 a(g111 Vprocedure p28806 tp28807 a(g185 V tp28808 a(g21 VPeekData p28809 tp28810 a(g198 V( tp28811 a(g18 VBuff p28812 tp28813 a(g339 V: tp28814 a(g185 V tp28815 a(g135 Vpointer p28816 tp28817 a(g339 V; tp28818 a(g185 V tp28819 a(g111 Vvar p28820 tp28821 a(g185 V tp28822 a(g18 VReqSize p28823 tp28824 a(g339 V: tp28825 a(g185 V tp28826 a(g135 VLongWord p28827 tp28828 a(g198 V) tp28829 a(g339 V; tp28830 a(g185 V\u000a p28831 tp28832 a(g119 Vpublished p28833 tp28834 a(g185 V\u000a p28835 tp28836 a(g111 Vproperty p28837 tp28838 a(g185 V tp28839 a(g103 VBytesInFifo p28840 tp28841 a(g339 V: tp28842 a(g185 V tp28843 a(g135 VLongWord p28844 tp28845 a(g185 V tp28846 a(g119 Vread p28847 tp28848 a(g185 V tp28849 a(g21 VFBytesInFifo p28850 tp28851 a(g339 V; tp28852 a(g185 V\u000a p28853 tp28854 a(g111 Vend p28855 tp28856 a(g339 V; tp28857 a(g185 V\u000a\u000a p28858 tp28859 a(g111 Vimplementation p28860 tp28861 a(g185 V\u000a\u000a p28862 tp28863 a(g111 Vconstructor p28864 tp28865 a(g185 V tp28866 a(g106 VTFifo p28867 tp28868 a(g339 V. tp28869 a(g21 VCreate p28870 tp28871 a(g339 V; tp28872 a(g185 V\u000a tp28873 a(g111 Vbegin p28874 tp28875 a(g185 V\u000a p28876 tp28877 a(g111 Vinherited p28878 tp28879 a(g339 V; tp28880 a(g185 V\u000a p28881 tp28882 a(g18 VFBuffers p28883 tp28884 a(g185 V tp28885 a(g339 V: tp28886 a(g339 V= tp28887 a(g185 V tp28888 a(g18 VTList p28889 tp28890 a(g339 V. tp28891 a(g18 VCreate p28892 tp28893 a(g339 V; tp28894 a(g185 V\u000a p28895 tp28896 a(g7 V// set default chunksize... p28897 tp28898 a(g185 V\u000a p28899 tp28900 a(g18 VFChunksize p28901 tp28902 a(g185 V tp28903 a(g339 V: tp28904 a(g339 V= tp28905 a(g185 V tp28906 a(g18 VDefaultChunksize p28907 tp28908 a(g339 V; tp28909 a(g185 V\u000a p28910 tp28911 a(g18 VInitializeCriticalSection p28912 tp28913 a(g198 V( tp28914 a(g18 VFCritSect p28915 tp28916 a(g198 V) tp28917 a(g339 V; tp28918 a(g185 V\u000a tp28919 a(g111 Vend p28920 tp28921 a(g339 V; tp28922 a(g185 V\u000a\u000a p28923 tp28924 a(g111 Vdestructor p28925 tp28926 a(g185 V tp28927 a(g106 VTFifo p28928 tp28929 a(g339 V. tp28930 a(g21 VDestroy p28931 tp28932 a(g339 V; tp28933 a(g185 V\u000a tp28934 a(g111 Vvar p28935 tp28936 a(g185 V\u000a p28937 tp28938 a(g18 VI tp28939 a(g339 V: tp28940 a(g185 V tp28941 a(g135 VInteger p28942 tp28943 a(g339 V; tp28944 a(g185 V\u000a tp28945 a(g111 Vbegin p28946 tp28947 a(g185 V\u000a p28948 tp28949 a(g18 VEnterCriticalSection p28950 tp28951 a(g198 V( tp28952 a(g18 VFCritSect p28953 tp28954 a(g198 V) tp28955 a(g339 V; tp28956 a(g185 V\u000a p28957 tp28958 a(g111 Vfor p28959 tp28960 a(g185 V tp28961 a(g18 VI tp28962 a(g185 V tp28963 a(g339 V: tp28964 a(g339 V= tp28965 a(g185 V tp28966 a(g314 V0 tp28967 a(g185 V tp28968 a(g111 Vto p28969 tp28970 a(g185 V tp28971 a(g18 VFBuffers p28972 tp28973 a(g339 V. tp28974 a(g18 Vcount p28975 tp28976 a(g185 V tp28977 a(g339 V- tp28978 a(g185 V tp28979 a(g314 V1 tp28980 a(g185 V tp28981 a(g111 Vdo p28982 tp28983 a(g185 V\u000a p28984 tp28985 a(g111 Vbegin p28986 tp28987 a(g185 V\u000a p28988 tp28989 a(g57 VFreeMem p28990 tp28991 a(g198 V( tp28992 a(g18 VPMemChunk p28993 tp28994 a(g198 V( tp28995 a(g18 VFbuffers p28996 tp28997 a(g198 V[ tp28998 a(g18 VI tp28999 a(g198 V]) p29000 tp29001 a(g339 V. tp29002 a(g18 VData p29003 tp29004 a(g198 V) tp29005 a(g339 V; tp29006 a(g185 V\u000a p29007 tp29008 a(g111 VDispose p29009 tp29010 a(g198 V( tp29011 a(g18 VPMemChunk p29012 tp29013 a(g198 V( tp29014 a(g18 VFbuffers p29015 tp29016 a(g198 V[ tp29017 a(g18 VI tp29018 a(g198 V])) p29019 tp29020 a(g339 V; tp29021 a(g185 V\u000a p29022 tp29023 a(g111 Vend p29024 tp29025 a(g339 V; tp29026 a(g185 V\u000a p29027 tp29028 a(g18 VFBuffers p29029 tp29030 a(g339 V. tp29031 a(g18 VClear p29032 tp29033 a(g339 V; tp29034 a(g185 V\u000a p29035 tp29036 a(g18 VFBuffers p29037 tp29038 a(g339 V. tp29039 a(g18 VFree p29040 tp29041 a(g339 V; tp29042 a(g185 V\u000a p29043 tp29044 a(g18 VLeaveCriticalSection p29045 tp29046 a(g198 V( tp29047 a(g18 VFCritSect p29048 tp29049 a(g198 V) tp29050 a(g339 V; tp29051 a(g185 V\u000a\u000a p29052 tp29053 a(g18 VDeleteCriticalSection p29054 tp29055 a(g198 V( tp29056 a(g18 VFCritSect p29057 tp29058 a(g198 V) tp29059 a(g339 V; tp29060 a(g185 V\u000a p29061 tp29062 a(g111 Vinherited p29063 tp29064 a(g339 V; tp29065 a(g185 V\u000a tp29066 a(g111 Vend p29067 tp29068 a(g339 V; tp29069 a(g185 V\u000a\u000a p29070 tp29071 a(g111 Vfunction p29072 tp29073 a(g185 V tp29074 a(g106 VTFifo p29075 tp29076 a(g339 V. tp29077 a(g21 VGetBytesInFifo p29078 tp29079 a(g339 V: tp29080 a(g185 V tp29081 a(g135 VLongWord p29082 tp29083 a(g339 V; tp29084 a(g185 V\u000a tp29085 a(g111 Vbegin p29086 tp29087 a(g185 V\u000a p29088 tp29089 a(g60 VResult p29090 tp29091 a(g185 V tp29092 a(g339 V: tp29093 a(g339 V= tp29094 a(g185 V tp29095 a(g314 V0 tp29096 a(g339 V; tp29097 a(g185 V\u000a p29098 tp29099 a(g111 Vif p29100 tp29101 a(g185 V tp29102 a(g18 VFBuffers p29103 tp29104 a(g339 V. tp29105 a(g18 VCount p29106 tp29107 a(g185 V tp29108 a(g339 V= tp29109 a(g185 V tp29110 a(g314 V0 tp29111 a(g185 V tp29112 a(g111 Vthen p29113 tp29114 a(g185 V\u000a p29115 tp29116 a(g111 Vbegin p29117 tp29118 a(g185 V\u000a p29119 tp29120 a(g111 Vexit p29121 tp29122 a(g339 V; tp29123 a(g185 V\u000a p29124 tp29125 a(g111 Vend p29126 tp29127 a(g185 V\u000a p29128 tp29129 a(g111 Velse p29130 tp29131 a(g185 V\u000a p29132 tp29133 a(g111 Vbegin p29134 tp29135 a(g185 V\u000a p29136 tp29137 a(g111 Vif p29138 tp29139 a(g185 V tp29140 a(g18 VFBuffers p29141 tp29142 a(g339 V. tp29143 a(g18 VCount p29144 tp29145 a(g185 V tp29146 a(g339 V> tp29147 a(g185 V tp29148 a(g314 V1 tp29149 a(g185 V tp29150 a(g111 Vthen p29151 tp29152 a(g185 V\u000a p29153 tp29154 a(g57 VInc p29155 tp29156 a(g198 V( tp29157 a(g60 VResult p29158 tp29159 a(g339 V, tp29160 a(g185 V tp29161 a(g198 V( tp29162 a(g18 VFBuffers p29163 tp29164 a(g339 V. tp29165 a(g18 VCount p29166 tp29167 a(g185 V tp29168 a(g339 V- tp29169 a(g185 V tp29170 a(g314 V1 tp29171 a(g198 V) tp29172 a(g185 V tp29173 a(g339 V* tp29174 a(g185 V tp29175 a(g18 VFChunkSize p29176 tp29177 a(g198 V) tp29178 a(g339 V; tp29179 a(g185 V\u000a p29180 tp29181 a(g57 VInc p29182 tp29183 a(g198 V( tp29184 a(g60 VResult p29185 tp29186 a(g339 V, tp29187 a(g185 V tp29188 a(g18 VPMemChunk p29189 tp29190 a(g198 V( tp29191 a(g18 VFBuffers p29192 tp29193 a(g198 V[ tp29194 a(g18 VFbuffers p29195 tp29196 a(g339 V. tp29197 a(g18 VCount p29198 tp29199 a(g185 V tp29200 a(g339 V- tp29201 a(g185 V tp29202 a(g314 V1 tp29203 a(g198 V]) p29204 tp29205 a(g339 V. tp29206 a(g18 VFilled p29207 tp29208 a(g198 V) tp29209 a(g339 V; tp29210 a(g185 V\u000a p29211 tp29212 a(g57 VDec p29213 tp29214 a(g198 V( tp29215 a(g60 VResult p29216 tp29217 a(g339 V, tp29218 a(g185 V tp29219 a(g18 VPMemChunk p29220 tp29221 a(g198 V( tp29222 a(g18 VFBuffers p29223 tp29224 a(g198 V[ tp29225 a(g314 V0 tp29226 a(g198 V]) p29227 tp29228 a(g339 V. tp29229 a(g18 VRead p29230 tp29231 a(g198 V) tp29232 a(g339 V; tp29233 a(g185 V\u000a p29234 tp29235 a(g111 Vend p29236 tp29237 a(g339 V; tp29238 a(g185 V\u000a tp29239 a(g111 Vend p29240 tp29241 a(g339 V; tp29242 a(g185 V\u000a\u000a p29243 tp29244 a(g111 Vprocedure p29245 tp29246 a(g185 V tp29247 a(g106 VTFifo p29248 tp29249 a(g339 V. tp29250 a(g21 VWrite p29251 tp29252 a(g198 V( tp29253 a(g18 VData p29254 tp29255 a(g339 V: tp29256 a(g185 V tp29257 a(g135 Vpointer p29258 tp29259 a(g339 V; tp29260 a(g185 V tp29261 a(g18 VSize p29262 tp29263 a(g339 V: tp29264 a(g185 V tp29265 a(g135 VLongWord p29266 tp29267 a(g198 V) tp29268 a(g339 V; tp29269 a(g185 V\u000a tp29270 a(g111 Vvar p29271 tp29272 a(g185 V\u000a p29273 tp29274 a(g18 VPrivpointer p29275 tp29276 a(g339 V: tp29277 a(g185 V tp29278 a(g135 Vpointer p29279 tp29280 a(g339 V; tp29281 a(g185 V\u000a p29282 tp29283 a(g18 VPrivSize p29284 tp29285 a(g339 V: tp29286 a(g185 V tp29287 a(g135 VLongWord p29288 tp29289 a(g339 V; tp29290 a(g185 V\u000a p29291 tp29292 a(g18 VChunk p29293 tp29294 a(g339 V: tp29295 a(g185 V tp29296 a(g18 VPMemChunk p29297 tp29298 a(g339 V; tp29299 a(g185 V\u000a p29300 tp29301 a(g18 VPosInChunk p29302 tp29303 a(g339 V: tp29304 a(g185 V tp29305 a(g135 Vpointer p29306 tp29307 a(g339 V; tp29308 a(g185 V\u000a tp29309 a(g111 Vbegin p29310 tp29311 a(g185 V\u000a p29312 tp29313 a(g111 Vif p29314 tp29315 a(g185 V tp29316 a(g135 VLongWord p29317 tp29318 a(g198 V( tp29319 a(g18 VData p29320 tp29321 a(g198 V) tp29322 a(g185 V tp29323 a(g339 V= tp29324 a(g185 V tp29325 a(g314 V0 tp29326 a(g185 V tp29327 a(g111 Vthen p29328 tp29329 a(g185 V\u000a p29330 tp29331 a(g111 Vbegin p29332 tp29333 a(g185 V\u000a p29334 tp29335 a(g7 V// null pointer? somebody is trying to fool us, get out... p29336 tp29337 a(g185 V\u000a p29338 tp29339 a(g111 VExit p29340 tp29341 a(g339 V; tp29342 a(g185 V\u000a p29343 tp29344 a(g111 Vend p29345 tp29346 a(g339 V; tp29347 a(g185 V\u000a p29348 tp29349 a(g18 VEnterCriticalSection p29350 tp29351 a(g198 V( tp29352 a(g18 VFCritSect p29353 tp29354 a(g198 V) tp29355 a(g339 V; tp29356 a(g185 V\u000a p29357 tp29358 a(g18 VPrivPointer p29359 tp29360 a(g185 V tp29361 a(g339 V: tp29362 a(g339 V= tp29363 a(g185 V tp29364 a(g18 VData p29365 tp29366 a(g339 V; tp29367 a(g185 V\u000a p29368 tp29369 a(g18 VPrivSize p29370 tp29371 a(g185 V tp29372 a(g339 V: tp29373 a(g339 V= tp29374 a(g185 V tp29375 a(g314 V0 tp29376 a(g339 V; tp29377 a(g185 V\u000a p29378 tp29379 a(g7 V// are already buffers there? p29380 tp29381 a(g185 V\u000a p29382 tp29383 a(g111 Vif p29384 tp29385 a(g185 V tp29386 a(g18 VFBuffers p29387 tp29388 a(g339 V. tp29389 a(g18 Vcount p29390 tp29391 a(g185 V tp29392 a(g339 V> tp29393 a(g185 V tp29394 a(g314 V0 tp29395 a(g185 V tp29396 a(g111 Vthen p29397 tp29398 a(g185 V\u000a p29399 tp29400 a(g111 Vbegin p29401 tp29402 a(g185 V\u000a p29403 tp29404 a(g7 V// is the last one of them not completely filled? p29405 tp29406 a(g185 V\u000a p29407 tp29408 a(g111 Vif p29409 tp29410 a(g185 V tp29411 a(g18 VPMemChunk p29412 tp29413 a(g198 V( tp29414 a(g18 VFBuffers p29415 tp29416 a(g198 V[ tp29417 a(g18 VFBuffers p29418 tp29419 a(g339 V. tp29420 a(g18 Vcount p29421 tp29422 a(g185 V tp29423 a(g339 V- tp29424 a(g185 V tp29425 a(g314 V1 tp29426 a(g198 V]) p29427 tp29428 a(g339 V. tp29429 a(g18 Vfilled p29430 tp29431 a(g185 V tp29432 a(g339 V< tp29433 a(g185 V tp29434 a(g18 VFChunksize p29435 tp29436 a(g185 V tp29437 a(g111 Vthen p29438 tp29439 a(g185 V\u000a p29440 tp29441 a(g7 V// not completely filled, so fill up the buffer. p29442 tp29443 a(g185 V\u000a p29444 tp29445 a(g111 Vbegin p29446 tp29447 a(g185 V\u000a p29448 tp29449 a(g18 VChunk p29450 tp29451 a(g185 V tp29452 a(g339 V: tp29453 a(g339 V= tp29454 a(g185 V tp29455 a(g18 VPMemChunk p29456 tp29457 a(g198 V( tp29458 a(g18 VFBuffers p29459 tp29460 a(g198 V[ tp29461 a(g18 VFBuffers p29462 tp29463 a(g339 V. tp29464 a(g18 Vcount p29465 tp29466 a(g185 V tp29467 a(g339 V- tp29468 a(g185 V tp29469 a(g314 V1 tp29470 a(g198 V]) p29471 tp29472 a(g339 V; tp29473 a(g185 V\u000a p29474 tp29475 a(g7 V// fetch chunkdata. p29476 tp29477 a(g185 V\u000a p29478 tp29479 a(g18 VPosInChunk p29480 tp29481 a(g185 V tp29482 a(g339 V: tp29483 a(g339 V= tp29484 a(g185 V tp29485 a(g18 VChunk p29486 tp29487 a(g339 V. tp29488 a(g18 VData p29489 tp29490 a(g339 V; tp29491 a(g185 V\u000a p29492 tp29493 a(g7 V// move to current fill pos... p29494 tp29495 a(g185 V\u000a p29496 tp29497 a(g57 VInc p29498 tp29499 a(g198 V( tp29500 a(g135 VLongWord p29501 tp29502 a(g198 V( tp29503 a(g18 VPosInChunk p29504 tp29505 a(g198 V) tp29506 a(g339 V, tp29507 a(g185 V tp29508 a(g18 VChunk p29509 tp29510 a(g339 V. tp29511 a(g18 VFilled p29512 tp29513 a(g198 V) tp29514 a(g339 V; tp29515 a(g185 V\u000a p29516 tp29517 a(g7 V// can we fill the chunk completely? p29518 tp29519 a(g185 V\u000a p29520 tp29521 a(g111 Vif p29522 tp29523 a(g185 V tp29524 a(g18 VSize p29525 tp29526 a(g185 V tp29527 a(g339 V> tp29528 a(g185 V tp29529 a(g18 VFChunksize p29530 tp29531 a(g185 V tp29532 a(g339 V- tp29533 a(g185 V tp29534 a(g18 VChunk p29535 tp29536 a(g339 V. tp29537 a(g18 VFilled p29538 tp29539 a(g185 V tp29540 a(g111 Vthen p29541 tp29542 a(g185 V\u000a p29543 tp29544 a(g111 Vbegin p29545 tp29546 a(g185 V\u000a p29547 tp29548 a(g7 V// yes we can. p29549 tp29550 a(g185 V\u000a p29551 tp29552 a(g57 VMove p29553 tp29554 a(g198 V( tp29555 a(g18 VPrivPointer p29556 tp29557 a(g339 V^ tp29558 a(g339 V, tp29559 a(g185 V tp29560 a(g18 VPosInChunk p29561 tp29562 a(g339 V^ tp29563 a(g339 V, tp29564 a(g185 V tp29565 a(g18 VFChunksize p29566 tp29567 a(g185 V tp29568 a(g339 V- tp29569 a(g185 V tp29570 a(g18 VChunk p29571 tp29572 a(g339 V. tp29573 a(g18 VFilled p29574 tp29575 a(g198 V) tp29576 a(g339 V; tp29577 a(g185 V\u000a p29578 tp29579 a(g57 VInc p29580 tp29581 a(g198 V( tp29582 a(g18 VPrivSize p29583 tp29584 a(g339 V, tp29585 a(g185 V tp29586 a(g18 VFChunksize p29587 tp29588 a(g185 V tp29589 a(g339 V- tp29590 a(g185 V tp29591 a(g18 VChunk p29592 tp29593 a(g339 V. tp29594 a(g18 VFilled p29595 tp29596 a(g198 V) tp29597 a(g339 V; tp29598 a(g185 V\u000a p29599 tp29600 a(g57 VInc p29601 tp29602 a(g198 V( tp29603 a(g135 VLongWord p29604 tp29605 a(g198 V( tp29606 a(g18 VPrivPointer p29607 tp29608 a(g198 V) tp29609 a(g339 V, tp29610 a(g185 V tp29611 a(g18 VFChunksize p29612 tp29613 a(g185 V tp29614 a(g339 V- tp29615 a(g185 V tp29616 a(g18 VChunk p29617 tp29618 a(g339 V. tp29619 a(g18 VFilled p29620 tp29621 a(g198 V) tp29622 a(g339 V; tp29623 a(g185 V\u000a p29624 tp29625 a(g18 VChunk p29626 tp29627 a(g339 V. tp29628 a(g18 VFilled p29629 tp29630 a(g185 V tp29631 a(g339 V: tp29632 a(g339 V= tp29633 a(g185 V tp29634 a(g18 VFChunkSize p29635 tp29636 a(g339 V; tp29637 a(g185 V\u000a p29638 tp29639 a(g111 Vend p29640 tp29641 a(g185 V\u000a p29642 tp29643 a(g111 Velse p29644 tp29645 a(g185 V\u000a p29646 tp29647 a(g7 V// we have to less data for filling the chunk completely, p29648 tp29649 a(g185 V\u000a p29650 tp29651 a(g7 V// just put everything in. p29652 tp29653 a(g185 V\u000a p29654 tp29655 a(g111 Vbegin p29656 tp29657 a(g185 V\u000a p29658 tp29659 a(g57 VMove p29660 tp29661 a(g198 V( tp29662 a(g18 VPrivPointer p29663 tp29664 a(g339 V^ tp29665 a(g339 V, tp29666 a(g185 V tp29667 a(g18 VPosInChunk p29668 tp29669 a(g339 V^ tp29670 a(g339 V, tp29671 a(g185 V tp29672 a(g18 VSize p29673 tp29674 a(g198 V) tp29675 a(g339 V; tp29676 a(g185 V\u000a p29677 tp29678 a(g57 VInc p29679 tp29680 a(g198 V( tp29681 a(g18 VPrivSize p29682 tp29683 a(g339 V, tp29684 a(g185 V tp29685 a(g18 VSize p29686 tp29687 a(g198 V) tp29688 a(g339 V; tp29689 a(g185 V\u000a p29690 tp29691 a(g57 VInc p29692 tp29693 a(g198 V( tp29694 a(g18 VChunk p29695 tp29696 a(g339 V. tp29697 a(g18 VFilled p29698 tp29699 a(g339 V, tp29700 a(g185 V tp29701 a(g18 VSize p29702 tp29703 a(g198 V) tp29704 a(g339 V; tp29705 a(g185 V\u000a p29706 tp29707 a(g111 Vend p29708 tp29709 a(g339 V; tp29710 a(g185 V\u000a p29711 tp29712 a(g111 Vend p29713 tp29714 a(g339 V; tp29715 a(g185 V\u000a p29716 tp29717 a(g111 Vend p29718 tp29719 a(g339 V; tp29720 a(g185 V\u000a p29721 tp29722 a(g7 V// as long as we have remaining stuff put it into new chunks. p29723 tp29724 a(g185 V\u000a p29725 tp29726 a(g111 Vwhile p29727 tp29728 a(g185 V tp29729 a(g198 V( tp29730 a(g18 VPrivSize p29731 tp29732 a(g185 V tp29733 a(g339 V< tp29734 a(g185 V tp29735 a(g18 VSize p29736 tp29737 a(g198 V) tp29738 a(g185 V tp29739 a(g111 Vdo p29740 tp29741 a(g185 V\u000a p29742 tp29743 a(g111 Vbegin p29744 tp29745 a(g185 V\u000a p29746 tp29747 a(g111 Vnew p29748 tp29749 a(g198 V( tp29750 a(g18 VChunk p29751 tp29752 a(g198 V) tp29753 a(g339 V; tp29754 a(g185 V\u000a p29755 tp29756 a(g57 VGetMem p29757 tp29758 a(g198 V( tp29759 a(g18 VChunk p29760 tp29761 a(g339 V. tp29762 a(g18 VData p29763 tp29764 a(g339 V, tp29765 a(g185 V tp29766 a(g18 VFChunksize p29767 tp29768 a(g198 V) tp29769 a(g339 V; tp29770 a(g185 V\u000a p29771 tp29772 a(g18 VChunk p29773 tp29774 a(g339 V. tp29775 a(g18 VRead p29776 tp29777 a(g185 V tp29778 a(g339 V: tp29779 a(g339 V= tp29780 a(g185 V tp29781 a(g314 V0 tp29782 a(g339 V; tp29783 a(g185 V\u000a p29784 tp29785 a(g7 V// can we fill an entire chunk with the remaining data? p29786 tp29787 a(g185 V\u000a p29788 tp29789 a(g111 Vif p29790 tp29791 a(g185 V tp29792 a(g18 VPrivsize p29793 tp29794 a(g185 V tp29795 a(g339 V+ tp29796 a(g185 V tp29797 a(g18 VFChunksize p29798 tp29799 a(g185 V tp29800 a(g339 V< tp29801 a(g185 V tp29802 a(g18 VSize p29803 tp29804 a(g185 V tp29805 a(g111 Vthen p29806 tp29807 a(g185 V\u000a p29808 tp29809 a(g111 Vbegin p29810 tp29811 a(g185 V\u000a p29812 tp29813 a(g7 V// yes we can, so put the stuff in. p29814 tp29815 a(g185 V\u000a p29816 tp29817 a(g57 VMove p29818 tp29819 a(g198 V( tp29820 a(g18 VPrivpointer p29821 tp29822 a(g339 V^ tp29823 a(g339 V, tp29824 a(g185 V tp29825 a(g18 VChunk p29826 tp29827 a(g339 V. tp29828 a(g18 VData p29829 tp29830 a(g339 V^ tp29831 a(g339 V, tp29832 a(g185 V tp29833 a(g18 VFChunksize p29834 tp29835 a(g198 V) tp29836 a(g339 V; tp29837 a(g185 V\u000a p29838 tp29839 a(g57 VInc p29840 tp29841 a(g198 V( tp29842 a(g135 VLongWord p29843 tp29844 a(g198 V( tp29845 a(g18 VPrivPointer p29846 tp29847 a(g198 V) tp29848 a(g339 V, tp29849 a(g185 V tp29850 a(g18 VFChunksize p29851 tp29852 a(g198 V) tp29853 a(g339 V; tp29854 a(g185 V\u000a p29855 tp29856 a(g57 VInc p29857 tp29858 a(g198 V( tp29859 a(g18 VPrivSize p29860 tp29861 a(g339 V, tp29862 a(g185 V tp29863 a(g18 VFChunksize p29864 tp29865 a(g198 V) tp29866 a(g339 V; tp29867 a(g185 V\u000a p29868 tp29869 a(g18 VChunk p29870 tp29871 a(g339 V. tp29872 a(g18 VFilled p29873 tp29874 a(g185 V tp29875 a(g339 V: tp29876 a(g339 V= tp29877 a(g185 V tp29878 a(g18 VFChunksize p29879 tp29880 a(g339 V; tp29881 a(g185 V\u000a p29882 tp29883 a(g111 Vend p29884 tp29885 a(g185 V\u000a p29886 tp29887 a(g111 Velse p29888 tp29889 a(g185 V tp29890 a(g7 V// we have to less data to fill the entire chunk, just put the remaining stuff in. p29891 tp29892 a(g185 V\u000a p29893 tp29894 a(g111 Vbegin p29895 tp29896 a(g185 V\u000a p29897 tp29898 a(g57 VMove p29899 tp29900 a(g198 V( tp29901 a(g18 VPrivpointer p29902 tp29903 a(g339 V^ tp29904 a(g339 V, tp29905 a(g185 V tp29906 a(g18 VChunk p29907 tp29908 a(g339 V. tp29909 a(g18 VData p29910 tp29911 a(g339 V^ tp29912 a(g339 V, tp29913 a(g185 V tp29914 a(g18 VSize p29915 tp29916 a(g185 V tp29917 a(g339 V- tp29918 a(g185 V tp29919 a(g18 VPrivsize p29920 tp29921 a(g198 V) tp29922 a(g339 V; tp29923 a(g185 V\u000a p29924 tp29925 a(g18 VChunk p29926 tp29927 a(g339 V. tp29928 a(g18 VFilled p29929 tp29930 a(g185 V tp29931 a(g339 V: tp29932 a(g339 V= tp29933 a(g185 V tp29934 a(g18 VSize p29935 tp29936 a(g185 V tp29937 a(g339 V- tp29938 a(g185 V tp29939 a(g18 VPrivsize p29940 tp29941 a(g339 V; tp29942 a(g185 V\u000a p29943 tp29944 a(g57 VInc p29945 tp29946 a(g198 V( tp29947 a(g18 VPrivSize p29948 tp29949 a(g339 V, tp29950 a(g185 V tp29951 a(g18 VSize p29952 tp29953 a(g185 V tp29954 a(g339 V- tp29955 a(g185 V tp29956 a(g18 VPrivsize p29957 tp29958 a(g198 V) tp29959 a(g339 V; tp29960 a(g185 V\u000a p29961 tp29962 a(g111 Vend p29963 tp29964 a(g339 V; tp29965 a(g185 V\u000a p29966 tp29967 a(g18 VFbuffers p29968 tp29969 a(g339 V. tp29970 a(g18 VAdd p29971 tp29972 a(g198 V( tp29973 a(g18 VChunk p29974 tp29975 a(g198 V) tp29976 a(g339 V; tp29977 a(g185 V\u000a p29978 tp29979 a(g111 Vend p29980 tp29981 a(g339 V; tp29982 a(g185 V\u000a p29983 tp29984 a(g111 Vif p29985 tp29986 a(g185 V tp29987 a(g18 VSize p29988 tp29989 a(g185 V tp29990 a(g339 V< tp29991 a(g339 V> tp29992 a(g185 V tp29993 a(g18 VPrivsize p29994 tp29995 a(g185 V tp29996 a(g111 Vthen p29997 tp29998 a(g185 V\u000a p29999 tp30000 a(g18 VShowmessage p30001 tp30002 a(g198 V( tp30003 a(g222 V' tp30004 a(g222 Vmiscalculation in TFifo.write p30005 tp30006 a(g222 V' tp30007 a(g198 V) tp30008 a(g339 V; tp30009 a(g185 V\u000a p30010 tp30011 a(g18 VFBytesInFifo p30012 tp30013 a(g185 V tp30014 a(g339 V: tp30015 a(g339 V= tp30016 a(g185 V tp30017 a(g18 VGetBytesInFifo p30018 tp30019 a(g339 V; tp30020 a(g185 V\u000a p30021 tp30022 a(g18 VLeaveCriticalSection p30023 tp30024 a(g198 V( tp30025 a(g18 VFCritSect p30026 tp30027 a(g198 V) tp30028 a(g339 V; tp30029 a(g185 V\u000a tp30030 a(g111 Vend p30031 tp30032 a(g339 V; tp30033 a(g185 V\u000a\u000a p30034 tp30035 a(g111 Vprocedure p30036 tp30037 a(g185 V tp30038 a(g106 VTFifo p30039 tp30040 a(g339 V. tp30041 a(g21 VRead p30042 tp30043 a(g198 V( tp30044 a(g18 VBuff p30045 tp30046 a(g339 V: tp30047 a(g185 V tp30048 a(g135 Vpointer p30049 tp30050 a(g339 V; tp30051 a(g185 V tp30052 a(g111 Vvar p30053 tp30054 a(g185 V tp30055 a(g18 VReqSize p30056 tp30057 a(g339 V: tp30058 a(g185 V tp30059 a(g135 VLongWord p30060 tp30061 a(g198 V) tp30062 a(g339 V; tp30063 a(g185 V\u000a tp30064 a(g111 Vvar p30065 tp30066 a(g185 V\u000a p30067 tp30068 a(g18 VPrivSize p30069 tp30070 a(g339 V: tp30071 a(g185 V tp30072 a(g135 VInteger p30073 tp30074 a(g339 V; tp30075 a(g185 V\u000a p30076 tp30077 a(g18 VPrivpos p30078 tp30079 a(g339 V: tp30080 a(g185 V tp30081 a(g135 Vpointer p30082 tp30083 a(g339 V; tp30084 a(g185 V\u000a p30085 tp30086 a(g18 VChunk p30087 tp30088 a(g339 V: tp30089 a(g185 V tp30090 a(g18 VPMemChunk p30091 tp30092 a(g339 V; tp30093 a(g185 V\u000a p30094 tp30095 a(g18 VChunkPos p30096 tp30097 a(g339 V: tp30098 a(g185 V tp30099 a(g135 Vpointer p30100 tp30101 a(g339 V; tp30102 a(g185 V\u000a tp30103 a(g111 Vbegin p30104 tp30105 a(g185 V\u000a p30106 tp30107 a(g111 Vif p30108 tp30109 a(g185 V tp30110 a(g135 VLongWord p30111 tp30112 a(g198 V( tp30113 a(g18 VBuff p30114 tp30115 a(g198 V) tp30116 a(g185 V tp30117 a(g339 V= tp30118 a(g185 V tp30119 a(g314 V0 tp30120 a(g185 V tp30121 a(g111 Vthen p30122 tp30123 a(g185 V\u000a p30124 tp30125 a(g111 Vbegin p30126 tp30127 a(g185 V\u000a p30128 tp30129 a(g7 V// null pointer? somebody is trying to fool us, get out... p30130 tp30131 a(g185 V\u000a p30132 tp30133 a(g111 VExit p30134 tp30135 a(g339 V; tp30136 a(g185 V\u000a p30137 tp30138 a(g111 Vend p30139 tp30140 a(g339 V; tp30141 a(g185 V\u000a p30142 tp30143 a(g18 VEnterCriticalSection p30144 tp30145 a(g198 V( tp30146 a(g18 VFCritSect p30147 tp30148 a(g198 V) tp30149 a(g339 V; tp30150 a(g185 V\u000a p30151 tp30152 a(g18 VPrivSize p30153 tp30154 a(g185 V tp30155 a(g339 V: tp30156 a(g339 V= tp30157 a(g185 V tp30158 a(g314 V0 tp30159 a(g339 V; tp30160 a(g185 V\u000a p30161 tp30162 a(g18 VPrivpos p30163 tp30164 a(g185 V tp30165 a(g339 V: tp30166 a(g339 V= tp30167 a(g185 V tp30168 a(g18 VBuff p30169 tp30170 a(g339 V; tp30171 a(g185 V\u000a p30172 tp30173 a(g111 Vwhile p30174 tp30175 a(g185 V tp30176 a(g18 VFBuffers p30177 tp30178 a(g339 V. tp30179 a(g18 VCount p30180 tp30181 a(g185 V tp30182 a(g339 V> tp30183 a(g185 V tp30184 a(g314 V0 tp30185 a(g185 V tp30186 a(g111 Vdo p30187 tp30188 a(g185 V\u000a p30189 tp30190 a(g111 Vbegin p30191 tp30192 a(g185 V\u000a p30193 tp30194 a(g18 VChunk p30195 tp30196 a(g185 V tp30197 a(g339 V: tp30198 a(g339 V= tp30199 a(g185 V tp30200 a(g18 VPMemChunk p30201 tp30202 a(g198 V( tp30203 a(g18 VFBuffers p30204 tp30205 a(g198 V[ tp30206 a(g314 V0 tp30207 a(g198 V]) p30208 tp30209 a(g339 V; tp30210 a(g185 V\u000a p30211 tp30212 a(g18 VChunkPos p30213 tp30214 a(g185 V tp30215 a(g339 V: tp30216 a(g339 V= tp30217 a(g185 V tp30218 a(g18 VChunk p30219 tp30220 a(g339 V. tp30221 a(g18 Vdata p30222 tp30223 a(g339 V; tp30224 a(g185 V\u000a p30225 tp30226 a(g57 VInc p30227 tp30228 a(g198 V( tp30229 a(g135 VLongWord p30230 tp30231 a(g198 V( tp30232 a(g18 VChunkPos p30233 tp30234 a(g198 V) tp30235 a(g339 V, tp30236 a(g185 V tp30237 a(g18 VChunk p30238 tp30239 a(g339 V. tp30240 a(g18 VRead p30241 tp30242 a(g198 V) tp30243 a(g339 V; tp30244 a(g185 V\u000a p30245 tp30246 a(g7 V// does the remaining part of the chunk fit into the buffer? p30247 tp30248 a(g185 V\u000a p30249 tp30250 a(g111 Vif p30251 tp30252 a(g185 V tp30253 a(g18 VPrivSize p30254 tp30255 a(g185 V tp30256 a(g339 V+ tp30257 a(g185 V tp30258 a(g198 V( tp30259 a(g18 VChunk p30260 tp30261 a(g339 V. tp30262 a(g18 VFilled p30263 tp30264 a(g185 V tp30265 a(g339 V- tp30266 a(g185 V tp30267 a(g18 VChunk p30268 tp30269 a(g339 V. tp30270 a(g18 Vread p30271 tp30272 a(g198 V) tp30273 a(g185 V tp30274 a(g339 V< tp30275 a(g185 V tp30276 a(g18 VReqSize p30277 tp30278 a(g185 V tp30279 a(g111 Vthen p30280 tp30281 a(g185 V\u000a p30282 tp30283 a(g111 Vbegin p30284 tp30285 a(g185 V tp30286 a(g7 V// yep, it fits p30287 tp30288 a(g185 V\u000a p30289 tp30290 a(g57 VMove p30291 tp30292 a(g198 V( tp30293 a(g18 VChunkPos p30294 tp30295 a(g339 V^ tp30296 a(g339 V, tp30297 a(g185 V tp30298 a(g18 VPrivpos p30299 tp30300 a(g339 V^ tp30301 a(g339 V, tp30302 a(g185 V tp30303 a(g18 VChunk p30304 tp30305 a(g339 V. tp30306 a(g18 VFilled p30307 tp30308 a(g185 V tp30309 a(g339 V- tp30310 a(g185 V tp30311 a(g18 VChunk p30312 tp30313 a(g339 V. tp30314 a(g18 Vread p30315 tp30316 a(g198 V) tp30317 a(g339 V; tp30318 a(g185 V\u000a p30319 tp30320 a(g57 VInc p30321 tp30322 a(g198 V( tp30323 a(g18 VPrivSize p30324 tp30325 a(g339 V, tp30326 a(g185 V tp30327 a(g18 VChunk p30328 tp30329 a(g339 V. tp30330 a(g18 VFilled p30331 tp30332 a(g185 V tp30333 a(g339 V- tp30334 a(g185 V tp30335 a(g18 VChunk p30336 tp30337 a(g339 V. tp30338 a(g18 Vread p30339 tp30340 a(g198 V) tp30341 a(g339 V; tp30342 a(g185 V\u000a p30343 tp30344 a(g57 VFreeMem p30345 tp30346 a(g198 V( tp30347 a(g18 VChunk p30348 tp30349 a(g339 V. tp30350 a(g18 VData p30351 tp30352 a(g198 V) tp30353 a(g339 V; tp30354 a(g185 V\u000a p30355 tp30356 a(g111 VDispose p30357 tp30358 a(g198 V( tp30359 a(g18 VChunk p30360 tp30361 a(g198 V) tp30362 a(g339 V; tp30363 a(g185 V\u000a p30364 tp30365 a(g18 VFBuffers p30366 tp30367 a(g339 V. tp30368 a(g18 VDelete p30369 tp30370 a(g198 V( tp30371 a(g314 V0 tp30372 a(g198 V) tp30373 a(g339 V; tp30374 a(g185 V\u000a p30375 tp30376 a(g111 Vend p30377 tp30378 a(g185 V\u000a p30379 tp30380 a(g111 Velse p30381 tp30382 a(g185 V tp30383 a(g7 V// remaining part didn't fit, get as much as we can and increment the p30384 tp30385 a(g185 V\u000a p30386 tp30387 a(g7 V// read attribute. p30388 tp30389 a(g185 V\u000a p30390 tp30391 a(g111 Vbegin p30392 tp30393 a(g185 V\u000a p30394 tp30395 a(g57 VMove p30396 tp30397 a(g198 V( tp30398 a(g18 VChunkPos p30399 tp30400 a(g339 V^ tp30401 a(g339 V, tp30402 a(g185 V tp30403 a(g18 VPrivpos p30404 tp30405 a(g339 V^ tp30406 a(g339 V, tp30407 a(g185 V tp30408 a(g18 VReqSize p30409 tp30410 a(g185 V tp30411 a(g339 V- tp30412 a(g185 V tp30413 a(g18 VPrivSize p30414 tp30415 a(g198 V) tp30416 a(g339 V; tp30417 a(g185 V\u000a p30418 tp30419 a(g57 VInc p30420 tp30421 a(g198 V( tp30422 a(g18 VChunk p30423 tp30424 a(g339 V. tp30425 a(g18 Vread p30426 tp30427 a(g339 V, tp30428 a(g185 V tp30429 a(g18 VReqSize p30430 tp30431 a(g185 V tp30432 a(g339 V- tp30433 a(g185 V tp30434 a(g18 VPrivSize p30435 tp30436 a(g198 V) tp30437 a(g339 V; tp30438 a(g185 V\u000a p30439 tp30440 a(g57 VInc p30441 tp30442 a(g198 V( tp30443 a(g18 VPrivSize p30444 tp30445 a(g339 V, tp30446 a(g185 V tp30447 a(g18 VReqSize p30448 tp30449 a(g185 V tp30450 a(g339 V- tp30451 a(g185 V tp30452 a(g18 VPrivSize p30453 tp30454 a(g198 V) tp30455 a(g339 V; tp30456 a(g185 V\u000a p30457 tp30458 a(g7 V// as we filled the buffer, we'll have to break here. p30459 tp30460 a(g185 V\u000a p30461 tp30462 a(g111 Vbreak p30463 tp30464 a(g339 V; tp30465 a(g185 V\u000a p30466 tp30467 a(g111 Vend p30468 tp30469 a(g339 V; tp30470 a(g185 V\u000a p30471 tp30472 a(g111 Vend p30473 tp30474 a(g339 V; tp30475 a(g185 V\u000a p30476 tp30477 a(g18 VFBytesInFifo p30478 tp30479 a(g185 V tp30480 a(g339 V: tp30481 a(g339 V= tp30482 a(g185 V tp30483 a(g18 VGetBytesInFifo p30484 tp30485 a(g339 V; tp30486 a(g185 V\u000a p30487 tp30488 a(g18 VLeaveCriticalSection p30489 tp30490 a(g198 V( tp30491 a(g18 VFCritSect p30492 tp30493 a(g198 V) tp30494 a(g339 V; tp30495 a(g185 V\u000a p30496 tp30497 a(g18 VReqSize p30498 tp30499 a(g185 V tp30500 a(g339 V: tp30501 a(g339 V= tp30502 a(g185 V tp30503 a(g18 VPrivSize p30504 tp30505 a(g339 V; tp30506 a(g185 V\u000a tp30507 a(g111 Vend p30508 tp30509 a(g339 V; tp30510 a(g185 V\u000a\u000a p30511 tp30512 a(g7 V// read Data from Stream without removing it from the Stream... p30513 tp30514 a(g185 V\u000a\u000a p30515 tp30516 a(g111 Vprocedure p30517 tp30518 a(g185 V tp30519 a(g106 VTFifo p30520 tp30521 a(g339 V. tp30522 a(g21 VPeekData p30523 tp30524 a(g198 V( tp30525 a(g18 VBuff p30526 tp30527 a(g339 V: tp30528 a(g185 V tp30529 a(g135 Vpointer p30530 tp30531 a(g339 V; tp30532 a(g185 V tp30533 a(g111 Vvar p30534 tp30535 a(g185 V tp30536 a(g18 VReqSize p30537 tp30538 a(g339 V: tp30539 a(g185 V tp30540 a(g135 VLongWord p30541 tp30542 a(g198 V) tp30543 a(g339 V; tp30544 a(g185 V\u000a tp30545 a(g111 Vvar p30546 tp30547 a(g185 V\u000a p30548 tp30549 a(g18 VPrivSize p30550 tp30551 a(g339 V: tp30552 a(g185 V tp30553 a(g135 VInteger p30554 tp30555 a(g339 V; tp30556 a(g185 V\u000a p30557 tp30558 a(g18 VPrivpos p30559 tp30560 a(g339 V: tp30561 a(g185 V tp30562 a(g135 Vpointer p30563 tp30564 a(g339 V; tp30565 a(g185 V\u000a p30566 tp30567 a(g18 VChunk p30568 tp30569 a(g339 V: tp30570 a(g185 V tp30571 a(g18 VPMemChunk p30572 tp30573 a(g339 V; tp30574 a(g185 V\u000a p30575 tp30576 a(g18 VChunkPos p30577 tp30578 a(g339 V: tp30579 a(g185 V tp30580 a(g135 Vpointer p30581 tp30582 a(g339 V; tp30583 a(g185 V\u000a p30584 tp30585 a(g18 VChunkNr p30586 tp30587 a(g339 V: tp30588 a(g185 V tp30589 a(g135 VInteger p30590 tp30591 a(g339 V; tp30592 a(g185 V\u000a tp30593 a(g111 Vbegin p30594 tp30595 a(g185 V\u000a p30596 tp30597 a(g111 Vif p30598 tp30599 a(g185 V tp30600 a(g135 VLongWord p30601 tp30602 a(g198 V( tp30603 a(g18 VBuff p30604 tp30605 a(g198 V) tp30606 a(g185 V tp30607 a(g339 V= tp30608 a(g185 V tp30609 a(g314 V0 tp30610 a(g185 V tp30611 a(g111 Vthen p30612 tp30613 a(g185 V\u000a p30614 tp30615 a(g111 Vbegin p30616 tp30617 a(g185 V\u000a p30618 tp30619 a(g7 V// null pointer? somebody is trying to fool us, get out... p30620 tp30621 a(g185 V\u000a p30622 tp30623 a(g111 VExit p30624 tp30625 a(g339 V; tp30626 a(g185 V\u000a p30627 tp30628 a(g111 Vend p30629 tp30630 a(g339 V; tp30631 a(g185 V\u000a p30632 tp30633 a(g18 VEnterCriticalSection p30634 tp30635 a(g198 V( tp30636 a(g18 VFCritSect p30637 tp30638 a(g198 V) tp30639 a(g339 V; tp30640 a(g185 V\u000a p30641 tp30642 a(g18 VPrivSize p30643 tp30644 a(g185 V tp30645 a(g339 V: tp30646 a(g339 V= tp30647 a(g185 V tp30648 a(g314 V0 tp30649 a(g339 V; tp30650 a(g185 V\u000a p30651 tp30652 a(g18 VPrivpos p30653 tp30654 a(g185 V tp30655 a(g339 V: tp30656 a(g339 V= tp30657 a(g185 V tp30658 a(g18 VBuff p30659 tp30660 a(g339 V; tp30661 a(g185 V\u000a p30662 tp30663 a(g18 VChunkNr p30664 tp30665 a(g185 V tp30666 a(g339 V: tp30667 a(g339 V= tp30668 a(g185 V tp30669 a(g314 V0 tp30670 a(g339 V; tp30671 a(g185 V\u000a p30672 tp30673 a(g111 Vwhile p30674 tp30675 a(g185 V tp30676 a(g18 VFBuffers p30677 tp30678 a(g339 V. tp30679 a(g18 VCount p30680 tp30681 a(g185 V tp30682 a(g339 V> tp30683 a(g185 V tp30684 a(g18 VChunkNr p30685 tp30686 a(g185 V tp30687 a(g111 Vdo p30688 tp30689 a(g185 V\u000a p30690 tp30691 a(g111 Vbegin p30692 tp30693 a(g185 V\u000a p30694 tp30695 a(g18 VChunk p30696 tp30697 a(g185 V tp30698 a(g339 V: tp30699 a(g339 V= tp30700 a(g185 V tp30701 a(g18 VPMemChunk p30702 tp30703 a(g198 V( tp30704 a(g18 VFBuffers p30705 tp30706 a(g198 V[ tp30707 a(g18 VChunkNr p30708 tp30709 a(g198 V]) p30710 tp30711 a(g339 V; tp30712 a(g185 V\u000a p30713 tp30714 a(g18 VChunkPos p30715 tp30716 a(g185 V tp30717 a(g339 V: tp30718 a(g339 V= tp30719 a(g185 V tp30720 a(g18 VChunk p30721 tp30722 a(g339 V. tp30723 a(g18 Vdata p30724 tp30725 a(g339 V; tp30726 a(g185 V\u000a p30727 tp30728 a(g57 VInc p30729 tp30730 a(g198 V( tp30731 a(g135 VLongWord p30732 tp30733 a(g198 V( tp30734 a(g18 VChunkPos p30735 tp30736 a(g198 V) tp30737 a(g339 V, tp30738 a(g185 V tp30739 a(g18 VChunk p30740 tp30741 a(g339 V. tp30742 a(g18 VRead p30743 tp30744 a(g198 V) tp30745 a(g339 V; tp30746 a(g185 V\u000a p30747 tp30748 a(g7 V// does the remaining part of the chunk fit into the buffer? p30749 tp30750 a(g185 V\u000a p30751 tp30752 a(g111 Vif p30753 tp30754 a(g185 V tp30755 a(g18 VPrivSize p30756 tp30757 a(g185 V tp30758 a(g339 V+ tp30759 a(g185 V tp30760 a(g198 V( tp30761 a(g18 VChunk p30762 tp30763 a(g339 V. tp30764 a(g18 VFilled p30765 tp30766 a(g185 V tp30767 a(g339 V- tp30768 a(g185 V tp30769 a(g18 VChunk p30770 tp30771 a(g339 V. tp30772 a(g18 Vread p30773 tp30774 a(g198 V) tp30775 a(g185 V tp30776 a(g339 V< tp30777 a(g185 V tp30778 a(g18 VReqSize p30779 tp30780 a(g185 V tp30781 a(g111 Vthen p30782 tp30783 a(g185 V\u000a p30784 tp30785 a(g111 Vbegin p30786 tp30787 a(g185 V tp30788 a(g7 V// yep, it fits p30789 tp30790 a(g185 V\u000a p30791 tp30792 a(g57 VMove p30793 tp30794 a(g198 V( tp30795 a(g18 VChunkPos p30796 tp30797 a(g339 V^ tp30798 a(g339 V, tp30799 a(g185 V tp30800 a(g18 VPrivpos p30801 tp30802 a(g339 V^ tp30803 a(g339 V, tp30804 a(g185 V tp30805 a(g18 VChunk p30806 tp30807 a(g339 V. tp30808 a(g18 VFilled p30809 tp30810 a(g185 V tp30811 a(g339 V- tp30812 a(g185 V tp30813 a(g18 VChunk p30814 tp30815 a(g339 V. tp30816 a(g18 Vread p30817 tp30818 a(g198 V) tp30819 a(g339 V; tp30820 a(g185 V\u000a p30821 tp30822 a(g57 VInc p30823 tp30824 a(g198 V( tp30825 a(g18 VPrivSize p30826 tp30827 a(g339 V, tp30828 a(g185 V tp30829 a(g18 VChunk p30830 tp30831 a(g339 V. tp30832 a(g18 VFilled p30833 tp30834 a(g185 V tp30835 a(g339 V- tp30836 a(g185 V tp30837 a(g18 VChunk p30838 tp30839 a(g339 V. tp30840 a(g18 Vread p30841 tp30842 a(g198 V) tp30843 a(g339 V; tp30844 a(g185 V\u000a p30845 tp30846 a(g57 VInc p30847 tp30848 a(g198 V( tp30849 a(g18 VChunkNr p30850 tp30851 a(g198 V) tp30852 a(g339 V; tp30853 a(g185 V\u000a p30854 tp30855 a(g111 Vend p30856 tp30857 a(g185 V\u000a p30858 tp30859 a(g111 Velse p30860 tp30861 a(g185 V tp30862 a(g7 V// remaining part didn't fit, get as much as we can and increment the p30863 tp30864 a(g185 V\u000a p30865 tp30866 a(g7 V// read attribute. p30867 tp30868 a(g185 V\u000a p30869 tp30870 a(g111 Vbegin p30871 tp30872 a(g185 V\u000a p30873 tp30874 a(g57 VMove p30875 tp30876 a(g198 V( tp30877 a(g18 VChunkPos p30878 tp30879 a(g339 V^ tp30880 a(g339 V, tp30881 a(g185 V tp30882 a(g18 VPrivpos p30883 tp30884 a(g339 V^ tp30885 a(g339 V, tp30886 a(g185 V tp30887 a(g18 VReqSize p30888 tp30889 a(g185 V tp30890 a(g339 V- tp30891 a(g185 V tp30892 a(g18 VPrivSize p30893 tp30894 a(g198 V) tp30895 a(g339 V; tp30896 a(g185 V\u000a p30897 tp30898 a(g57 VInc p30899 tp30900 a(g198 V( tp30901 a(g18 VPrivSize p30902 tp30903 a(g339 V, tp30904 a(g185 V tp30905 a(g18 VReqSize p30906 tp30907 a(g185 V tp30908 a(g339 V- tp30909 a(g185 V tp30910 a(g18 VPrivSize p30911 tp30912 a(g198 V) tp30913 a(g339 V; tp30914 a(g185 V\u000a p30915 tp30916 a(g7 V// as we filled the buffer, we'll have to break here. p30917 tp30918 a(g185 V\u000a p30919 tp30920 a(g111 Vbreak p30921 tp30922 a(g339 V; tp30923 a(g185 V\u000a p30924 tp30925 a(g111 Vend p30926 tp30927 a(g339 V; tp30928 a(g185 V\u000a p30929 tp30930 a(g111 Vend p30931 tp30932 a(g339 V; tp30933 a(g185 V\u000a p30934 tp30935 a(g18 VLeaveCriticalSection p30936 tp30937 a(g198 V( tp30938 a(g18 VFCritSect p30939 tp30940 a(g198 V) tp30941 a(g339 V; tp30942 a(g185 V\u000a p30943 tp30944 a(g18 VReqSize p30945 tp30946 a(g185 V tp30947 a(g339 V: tp30948 a(g339 V= tp30949 a(g185 V tp30950 a(g18 VPrivSize p30951 tp30952 a(g339 V; tp30953 a(g185 V\u000a tp30954 a(g111 Vend p30955 tp30956 a(g339 V; tp30957 a(g185 V\u000a\u000a p30958 tp30959 a(g111 Vend p30960 tp30961 a(g339 V. tp30962 a(g185 V\u000a tp30963 a.