home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-10-29 | 9.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 4d 2a 7c 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...M*|**|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 00 14 |********|*****...|
|00000050| 4d 2a 7c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |M*| | |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000090| 20 20 20 20 20 20 20 20 | 20 2a 0d 00 1e 4d 2a 7c | | *...M*||
|000000a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 52 65 | | Re|
|000000b0| 73 46 69 6e 64 3a 20 4c | 6f 6f 6b 20 66 6f 72 20 |sFind: L|ook for |
|000000c0| 72 65 73 6f 75 72 63 65 | 73 20 20 20 20 20 20 20 |resource|s |
|000000d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000e0| 20 20 20 20 20 20 2a 0d | 00 28 4d 2a 7c 20 20 20 | *.|.(M*| |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000130| 20 20 20 2a 0d 00 32 4d | 2a 7c 20 20 20 20 43 6f | *..2M|*| Co|
|00000140| 70 79 72 69 67 68 74 20 | 28 43 29 20 31 39 39 32 |pyright |(C) 1992|
|00000150| 20 4f 6c 61 66 20 4b 72 | 75 6d 6e 6f 77 20 61 6e | Olaf Kr|umnow an|
|00000160| 64 20 48 65 72 62 65 72 | 74 20 7a 75 72 20 4e 65 |d Herber|t zur Ne|
|00000170| 64 64 65 6e 20 20 20 20 | 20 20 20 20 20 20 20 20 |dden | |
|00000180| 2a 0d 00 3c 4d 2a 7c 20 | 20 20 20 20 20 20 20 20 |*..<M*| | |
|00000190| 20 20 20 20 20 20 20 20 | 47 65 72 6d 61 6e 20 41 | |German A|
|000001a0| 72 63 68 69 6d 65 64 65 | 73 20 47 72 6f 75 70 20 |rchimede|s Group |
|000001b0| 28 47 41 47 29 20 20 20 | 20 20 20 20 20 20 20 20 |(GAG) | |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 0d 00 | | *..|
|000001d0| 46 4d 2a 7c 20 20 20 20 | 20 20 20 20 20 20 20 20 |FM*| | |
|000001e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000210| 20 20 20 20 20 20 20 20 | 20 20 2a 0d 00 50 4d 2a | | *..PM*|
|00000220| 7c 20 56 65 72 73 69 6f | 6e 20 32 2e 30 30 20 20 || Versio|n 2.00 |
|00000230| 20 20 20 20 20 20 20 20 | 20 20 46 52 45 45 57 41 | | FREEWA|
|00000240| 52 45 20 2d 20 6d 61 79 | 20 62 65 20 75 73 65 64 |RE - may| be used|
|00000250| 20 69 6e 20 61 6e 79 20 | 61 70 70 6c 69 63 61 74 | in any |applicat|
|00000260| 69 6f 6e 20 20 20 20 2a | 0d 00 5a 4d 2a 7c 20 20 |ion *|..ZM*| |
|00000270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000002a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000002b0| 20 20 20 20 2a 0d 00 64 | 4d 2a 7c 2a 2a 2a 2a 2a | *..d|M*|*****|
|000002c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000300| 2a 2a 0d 00 6e 04 0d 00 | 78 05 f4 0d 00 82 48 f4 |**..n...|x.....H.|
|00000310| 20 54 68 69 73 20 70 72 | 6f 67 72 61 6d 20 69 73 | This pr|ogram is|
|00000320| 20 46 52 45 45 57 41 52 | 45 20 61 6e 64 20 6d 61 | FREEWAR|E and ma|
|00000330| 79 20 62 65 20 75 73 65 | 64 20 62 79 20 61 6e 79 |y be use|d by any|
|00000340| 6f 6e 65 20 77 68 6f 20 | 77 61 6e 74 73 20 74 6f |one who |wants to|
|00000350| 20 69 6e 0d 00 8c 48 f4 | 20 61 6e 79 20 61 70 70 | in...H.| any app|
|00000360| 6c 69 63 61 74 69 6f 6e | 20 2d 20 65 76 65 6e 20 |lication| - even |
|00000370| 69 6e 20 63 6f 6d 6d 65 | 72 63 69 61 6c 20 6f 6e |in comme|rcial on|
|00000380| 65 73 20 61 73 20 6c 6f | 6e 67 20 61 73 20 6f 75 |es as lo|ng as ou|
|00000390| 72 20 63 6f 6e 74 72 69 | 62 75 2d 0d 00 96 4a f4 |r contri|bu-...J.|
|000003a0| 20 74 69 6f 6e 20 69 73 | 20 6d 65 6e 74 69 6f 6e | tion is| mention|
|000003b0| 65 64 20 73 6f 6d 65 20 | 70 6c 61 63 65 20 69 6e |ed some |place in|
|000003c0| 20 74 68 65 20 61 70 70 | 6c 69 63 61 74 69 6f 6e | the app|lication|
|000003d0| 27 73 20 21 48 65 6c 70 | 20 66 69 6c 65 20 61 6e |'s !Help| file an|
|000003e0| 64 20 74 68 65 0d 00 a0 | 48 f4 20 63 6f 6d 70 72 |d the...|H. compr|
|000003f0| 65 73 73 65 64 20 76 65 | 72 73 69 6f 6e 20 6f 66 |essed ve|rsion of|
|00000400| 20 52 65 73 46 69 6e 64 | 20 28 69 2e 65 2e 20 6e | ResFind| (i.e. n|
|00000410| 6f 74 20 52 65 73 46 69 | 6e 64 53 72 63 29 20 69 |ot ResFi|ndSrc) i|
|00000420| 73 20 69 6e 63 6c 75 64 | 65 64 20 69 6e 0d 00 aa |s includ|ed in...|
|00000430| 16 f4 20 74 68 65 20 61 | 70 70 6c 69 63 61 74 69 |.. the a|pplicati|
|00000440| 6f 6e 2e 0d 00 b4 05 f4 | 0d 00 be 49 f4 20 57 65 |on......|...I. We|
|00000450| 20 77 6f 75 6c 64 20 76 | 65 72 79 20 6d 75 63 68 | would v|ery much|
|00000460| 20 61 70 70 72 65 63 69 | 61 74 65 20 79 6f 75 20 | appreci|ate you |
|00000470| 64 69 73 74 72 69 62 75 | 74 69 6e 67 20 74 68 65 |distribu|ting the|
|00000480| 20 63 6f 6d 70 6c 65 74 | 65 20 52 65 73 46 69 6e | complet|e ResFin|
|00000490| 64 0d 00 c8 49 f4 20 73 | 6f 75 72 63 65 20 61 6e |d...I. s|ource an|
|000004a0| 64 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |d docume|ntation |
|000004b0| 73 69 6e 63 65 20 73 6f | 6d 65 20 73 74 61 6e 64 |since so|me stand|
|000004c0| 61 72 64 20 77 61 79 20 | 6f 66 20 65 6e 61 62 6c |ard way |of enabl|
|000004d0| 69 6e 67 20 61 70 70 6c | 69 2d 0d 00 d2 49 f4 20 |ing appl|i-...I. |
|000004e0| 63 61 74 69 6f 6e 73 20 | 74 6f 20 72 75 6e 20 69 |cations |to run i|
|000004f0| 6e 20 64 69 66 66 65 72 | 65 6e 74 20 6c 61 6e 67 |n differ|ent lang|
|00000500| 75 61 67 65 73 20 69 73 | 20 6c 61 63 6b 69 6e 67 |uages is| lacking|
|00000510| 20 61 74 20 74 68 65 20 | 74 69 6d 65 20 62 65 69 | at the |time bei|
|00000520| 6e 67 2e 0d 00 dc 05 f4 | 0d 00 e6 04 0d 00 f0 05 |ng......|........|
|00000530| f4 0d 00 fa 46 f4 20 54 | 68 65 20 69 64 65 61 20 |....F. T|he idea |
|00000540| 6f 66 20 74 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |of this |program |
|00000550| 69 73 20 74 6f 20 6d 61 | 6b 65 20 6d 75 6c 74 69 |is to ma|ke multi|
|00000560| 6c 69 6e 67 75 61 6c 20 | 73 75 70 70 6f 72 74 20 |lingual |support |
|00000570| 65 61 73 69 65 72 2e 0d | 01 04 05 f4 0d 01 0e 48 |easier..|.......H|
|00000580| f4 20 49 6e 73 69 64 65 | 20 79 6f 75 72 20 61 70 |. Inside| your ap|
|00000590| 70 6c 69 63 61 74 69 6f | 6e 20 64 69 72 65 63 74 |plicatio|n direct|
|000005a0| 6f 72 79 20 73 68 6f 75 | 6c 64 20 72 65 73 69 64 |ory shou|ld resid|
|000005b0| 65 20 61 20 64 69 72 65 | 63 74 6f 72 79 20 63 61 |e a dire|ctory ca|
|000005c0| 6c 6c 65 64 0d 01 18 47 | f4 20 52 65 73 6f 75 72 |lled...G|. Resour|
|000005d0| 63 65 73 2e 20 49 6e 20 | 74 68 65 72 65 20 73 68 |ces. In |there sh|
|000005e0| 6f 75 6c 64 20 74 68 65 | 6e 20 62 65 20 6f 6e 65 |ould the|n be one|
|000005f0| 20 64 69 72 65 63 74 6f | 72 79 20 70 65 72 20 6c | directo|ry per l|
|00000600| 61 6e 67 75 61 67 65 20 | 79 6f 75 0d 01 22 47 f4 |anguage |you.."G.|
|00000610| 20 73 75 70 70 6f 72 74 | 20 63 6f 6e 74 61 69 6e | support| contain|
|00000620| 69 6e 67 20 74 68 65 20 | 4d 65 73 73 61 67 65 73 |ing the |Messages|
|00000630| 20 61 6e 64 20 54 65 6d | 70 6c 61 74 65 73 20 61 | and Tem|plates a|
|00000640| 6e 64 20 70 65 72 68 61 | 70 73 20 66 75 72 74 68 |nd perha|ps furth|
|00000650| 65 72 0d 01 2c 31 f4 20 | 66 69 6c 65 73 20 73 75 |er..,1. |files su|
|00000660| 63 68 20 61 73 20 61 20 | 64 6f 63 75 6d 65 6e 74 |ch as a |document|
|00000670| 61 74 69 6f 6e 20 6f 72 | 20 68 65 6c 70 20 66 69 |ation or| help fi|
|00000680| 6c 65 2e 0d 01 36 05 f4 | 0d 01 40 46 f4 20 4e 6f |le...6..|..@F. No|
|00000690| 72 6d 61 6c 6c 79 20 79 | 6f 75 27 6c 6c 20 68 61 |rmally y|ou'll ha|
|000006a0| 76 65 20 61 20 73 79 73 | 74 65 6d 20 76 61 72 69 |ve a sys|tem vari|
|000006b0| 61 62 6c 65 20 63 61 6c | 6c 65 64 20 50 72 6f 67 |able cal|led Prog|
|000006c0| 4e 61 6d 65 24 44 69 72 | 20 77 68 65 72 65 0d 01 |Name$Dir| where..|
|000006d0| 4a 45 f4 20 27 50 72 6f | 67 4e 61 6d 65 27 20 63 |JE. 'Pro|gName' c|
|000006e0| 65 72 74 61 69 6e 6c 79 | 20 69 73 20 74 68 65 20 |ertainly| is the |
|000006f0| 6e 61 6d 65 20 6f 66 20 | 79 6f 75 72 20 61 70 70 |name of |your app|
|00000700| 6c 69 63 61 74 69 6f 6e | 2e 20 53 69 6e 63 65 20 |lication|. Since |
|00000710| 74 68 65 0d 01 54 49 f4 | 20 72 65 73 6f 75 72 63 |the..TI.| resourc|
|00000720| 65 73 20 28 6d 65 73 73 | 61 67 65 73 2c 20 74 65 |es (mess|ages, te|
|00000730| 6d 70 6c 61 74 65 73 20 | 61 6e 64 20 77 68 61 74 |mplates |and what|
|00000740| 65 76 65 72 20 65 6c 73 | 65 29 20 69 73 20 6e 6f |ever els|e) is no|
|00000750| 74 20 69 6e 20 61 20 66 | 69 78 65 64 0d 01 5e 49 |t in a f|ixed..^I|
|00000760| f4 20 64 69 72 65 63 74 | 6f 72 79 20 61 6e 6f 74 |. direct|ory anot|
|00000770| 68 65 72 20 76 61 72 69 | 61 62 6c 65 20 69 73 20 |her vari|able is |
|00000780| 69 6e 74 72 6f 64 75 63 | 65 64 3a 20 50 72 6f 67 |introduc|ed: Prog|
|00000790| 4e 61 6d 65 52 65 73 24 | 50 61 74 68 20 70 6f 69 |NameRes$|Path poi|
|000007a0| 6e 74 69 6e 67 0d 01 68 | 3a f4 20 6a 75 73 74 20 |nting..h|:. just |
|000007b0| 74 68 65 72 65 20 61 73 | 20 77 65 6c 6c 20 61 73 |there as| well as|
|000007c0| 20 74 6f 20 79 6f 75 72 | 20 61 70 70 6c 69 63 61 | to your| applica|
|000007d0| 74 69 6f 6e 20 64 69 72 | 65 63 74 6f 72 79 2e 0d |tion dir|ectory..|
|000007e0| 01 72 05 f4 0d 01 7c 49 | f4 20 49 6e 76 6f 6b 65 |.r....|I|. Invoke|
|000007f0| 20 52 65 73 46 69 6e 64 | 20 77 69 74 68 20 50 72 | ResFind| with Pr|
|00000800| 6f 67 4e 61 6d 65 20 61 | 73 20 70 61 72 61 6d 65 |ogName a|s parame|
|00000810| 74 65 72 2e 20 49 66 20 | 6e 6f 20 70 61 72 61 6d |ter. If |no param|
|00000820| 65 74 65 72 20 69 73 20 | 67 69 76 65 6e 0d 01 86 |eter is |given...|
|00000830| 45 f4 20 69 74 20 75 73 | 65 73 20 74 68 65 20 6c |E. it us|es the l|
|00000840| 65 61 66 20 6f 66 20 3c | 4f 62 65 79 24 44 69 72 |eaf of <|Obey$Dir|
|00000850| 3e 20 77 69 74 68 6f 75 | 74 20 74 68 65 20 6c 65 |> withou|t the le|
|00000860| 61 64 69 6e 67 20 27 21 | 27 20 69 6e 73 74 65 61 |ading '!|' instea|
|00000870| 64 2e 0d 01 90 05 f4 0d | 01 9a 28 f4 20 52 65 73 |d.......|..(. Res|
|00000880| 46 69 6e 64 20 77 69 6c | 6c 20 74 68 65 6e 20 64 |Find wil|l then d|
|00000890| 6f 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 0d |o the fo|llowing.|
|000008a0| 01 a4 05 f4 0d 01 ae 2a | f4 20 20 31 2e 20 20 53 |.......*|. 1. S|
|000008b0| 65 74 20 50 72 6f 67 4e | 61 6d 65 24 44 69 72 20 |et ProgN|ame$Dir |
|000008c0| 74 6f 20 3c 4f 62 65 79 | 24 44 69 72 3e 2e 0d 01 |to <Obey|$Dir>...|
|000008d0| b8 3b f4 20 20 32 2e 20 | 20 52 65 61 64 20 74 68 |.;. 2. | Read th|
|000008e0| 65 20 76 61 72 69 61 62 | 6c 65 20 50 72 6f 67 4e |e variab|le ProgN|
|000008f0| 61 6d 65 24 4c 61 6e 67 | 75 61 67 65 2c 20 69 66 |ame$Lang|uage, if|
|00000900| 20 70 72 65 73 65 6e 74 | 2e 0d 01 c2 3f f4 20 20 | present|....?. |
|00000910| 33 2e 20 20 52 65 61 64 | 20 74 68 65 20 76 61 72 |3. Read| the var|
|00000920| 69 61 62 6c 65 20 52 65 | 73 46 69 6e 64 24 4c 61 |iable Re|sFind$La|
|00000930| 6e 67 75 61 67 65 73 50 | 72 65 66 2c 20 69 66 20 |nguagesP|ref, if |
|00000940| 70 72 65 73 65 6e 74 2e | 0d 01 cc 3e f4 20 20 34 |present.|...>. 4|
|00000950| 2e 20 20 52 65 61 64 20 | 74 68 65 20 63 6f 6e 66 |. Read |the conf|
|00000960| 69 67 75 72 65 64 20 63 | 6f 75 6e 74 72 79 20 73 |igured c|ountry s|
|00000970| 65 74 74 69 6e 67 20 6f | 66 20 74 68 65 20 6d 61 |etting o|f the ma|
|00000980| 63 68 69 6e 65 2e 0d 01 | d6 3f f4 20 20 35 2e 20 |chine...|.?. 5. |
|00000990| 20 52 65 61 64 20 74 68 | 65 20 76 61 72 69 61 62 | Read th|e variab|
|000009a0| 6c 65 20 52 65 73 46 69 | 6e 64 24 4c 61 6e 67 75 |le ResFi|nd$Langu|
|000009b0| 61 67 65 73 53 75 66 66 | 2c 20 69 66 20 70 72 65 |agesSuff|, if pre|
|000009c0| 73 65 6e 74 2e 0d 01 e0 | 4a f4 20 20 36 2e 20 20 |sent....|J. 6. |
|000009d0| 42 75 69 6c 64 20 61 20 | 73 74 72 69 6e 67 20 6f |Build a |string o|
|000009e0| 66 20 61 6c 6c 20 74 68 | 6f 73 65 20 63 6f 75 6e |f all th|ose coun|
|000009f0| 74 72 79 20 6e 61 6d 65 | 73 20 72 65 61 64 20 69 |try name|s read i|
|00000a00| 6e 20 73 74 65 70 20 32 | 2e 20 74 6f 20 35 2e 0d |n step 2|. to 5..|
|00000a10| 01 ea 4d f4 20 20 37 2e | 20 20 41 64 64 20 55 4b |..M. 7.| Add UK|
|00000a20| 20 74 6f 20 74 68 69 73 | 20 73 74 72 69 6e 67 2c | to this| string,|
|00000a30| 20 61 73 20 74 68 69 73 | 20 73 68 6f 75 6c 64 20 | as this| should |
|00000a40| 62 65 20 74 68 65 20 6c | 61 6e 67 75 61 67 65 20 |be the l|anguage |
|00000a50| 61 6c 6c 20 70 72 6f 67 | 72 61 6d 73 0d 01 f4 33 |all prog|rams...3|
|00000a60| f4 20 20 20 20 20 20 73 | 75 70 70 6f 72 74 20 61 |. s|upport a|
|00000a70| 6e 64 20 61 6c 6d 6f 73 | 74 20 61 6c 6c 20 75 73 |nd almos|t all us|
|00000a80| 65 72 73 20 75 6e 64 65 | 72 73 74 61 6e 64 2e 0d |ers unde|rstand..|
|00000a90| 01 fe 50 f4 20 20 38 2e | 20 20 4c 6f 6f 6b 20 69 |..P. 8.| Look i|
|00000aa0| 66 20 61 20 64 69 72 65 | 63 74 6f 72 79 20 6e 61 |f a dire|ctory na|
|00000ab0| 6d 65 64 20 52 65 73 6f | 75 72 63 65 73 20 69 73 |med Reso|urces is|
|00000ac0| 20 70 72 65 73 65 6e 74 | 20 69 6e 73 69 64 65 20 | present| inside |
|00000ad0| 3c 50 72 6f 67 4e 61 6d | 65 24 44 69 72 3e 2e 0d |<ProgNam|e$Dir>..|
|00000ae0| 02 08 4c f4 20 20 20 20 | 20 20 49 66 20 74 68 61 |..L. | If tha|
|00000af0| 74 20 69 73 20 74 68 65 | 20 63 61 73 65 20 74 68 |t is the| case th|
|00000b00| 65 20 73 65 61 72 63 68 | 20 69 6e 20 73 74 65 70 |e search| in step|
|00000b10| 20 39 20 69 73 20 70 65 | 72 66 6f 72 6d 65 64 20 | 9 is pe|rformed |
|00000b20| 69 6e 73 69 64 65 20 74 | 68 69 73 0d 02 12 44 f4 |inside t|his...D.|
|00000b30| 20 20 20 20 20 20 64 69 | 72 65 63 74 6f 72 79 2c | di|rectory,|
|00000b40| 20 6f 74 68 65 72 77 69 | 73 65 20 3c 50 72 6f 67 | otherwi|se <Prog|
|00000b50| 4e 61 6d 65 24 44 69 72 | 3e 20 69 73 20 73 63 61 |Name$Dir|> is sca|
|00000b60| 6e 6e 65 64 20 6f 74 68 | 65 72 77 69 73 65 2e 0d |nned oth|erwise..|
|00000b70| 02 1c 4c f4 20 20 39 2e | 20 20 46 72 6f 6d 20 74 |..L. 9.| From t|
|00000b80| 68 65 20 73 74 72 69 6e | 67 20 6f 66 20 63 6f 75 |he strin|g of cou|
|00000b90| 6e 74 72 69 65 73 20 66 | 69 6e 64 20 74 68 65 20 |ntries f|ind the |
|00000ba0| 66 69 72 73 74 20 6c 61 | 6e 67 75 61 67 65 20 73 |first la|nguage s|
|00000bb0| 75 70 70 6f 72 74 65 64 | 20 62 79 0d 02 26 4c f4 |upported| by..&L.|
|00000bc0| 20 20 20 20 20 20 74 68 | 65 20 70 72 6f 67 72 61 | th|e progra|
|00000bd0| 6d 2c 20 69 2e 65 2e 20 | 6c 6f 6f 6b 20 69 66 20 |m, i.e. |look if |
|00000be0| 61 20 64 69 72 65 63 74 | 6f 72 79 20 6e 61 6d 65 |a direct|ory name|
|00000bf0| 64 20 61 63 63 6f 72 64 | 69 6e 67 6c 79 20 69 73 |d accord|ingly is|
|00000c00| 20 69 6e 73 69 64 65 0d | 02 30 51 f4 20 20 20 20 | inside.|.0Q. |
|00000c10| 20 20 74 68 65 20 64 69 | 72 65 63 74 6f 72 79 20 | the di|rectory |
|00000c20| 3c 50 72 6f 67 4e 61 6d | 65 24 44 69 72 3e 2e 52 |<ProgNam|e$Dir>.R|
|00000c30| 65 73 6f 75 72 63 65 73 | 20 6f 72 20 3c 50 72 6f |esources| or <Pro|
|00000c40| 67 4e 61 6d 65 24 44 69 | 72 3e 20 28 73 65 65 20 |gName$Di|r> (see |
|00000c50| 73 74 65 70 20 38 29 2e | 0d 02 3a 45 f4 20 31 30 |step 8).|..:E. 10|
|00000c60| 2e 20 20 42 75 69 6c 64 | 20 61 20 76 61 72 69 61 |. Build| a varia|
|00000c70| 62 6c 65 20 50 72 6f 67 | 4e 61 6d 65 52 65 73 24 |ble Prog|NameRes$|
|00000c80| 50 61 74 68 20 63 6f 6e | 74 61 69 6e 69 6e 67 20 |Path con|taining |
|00000c90| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 0d 02 44 |the foll|owing..D|
|00000ca0| 48 f4 20 20 20 20 20 20 | 2d 20 3c 50 72 6f 67 4e |H. |- <ProgN|
|00000cb0| 61 6d 65 24 44 69 72 3e | 2e 52 65 73 6f 75 72 63 |ame$Dir>|.Resourc|
|00000cc0| 65 73 2e 3c 4c 61 6e 67 | 75 61 67 65 20 74 6f 20 |es.<Lang|uage to |
|00000cd0| 75 73 65 3e 2e 2c 3c 50 | 72 6f 67 4e 61 6d 65 24 |use>.,<P|rogName$|
|00000ce0| 44 69 72 3e 2e 0d 02 4e | 3e f4 20 20 20 20 20 20 |Dir>...N|>. |
|00000cf0| 2d 20 3c 50 72 6f 67 4e | 61 6d 65 24 44 69 72 3e |- <ProgN|ame$Dir>|
|00000d00| 2e 3c 4c 61 6e 67 75 61 | 67 65 20 74 6f 20 75 73 |.<Langua|ge to us|
|00000d10| 65 3e 2e 2c 3c 50 72 6f | 67 4e 61 6d 65 24 44 69 |e>.,<Pro|gName$Di|
|00000d20| 72 3e 2e 0d 02 58 1c f4 | 20 20 20 20 20 20 2d 20 |r>...X..| - |
|00000d30| 3c 50 72 6f 67 4e 61 6d | 65 24 44 69 72 3e 2e 0d |<ProgNam|e$Dir>..|
|00000d40| 02 62 4d f4 20 20 20 20 | 20 20 64 65 70 65 6e 64 |.bM. | depend|
|00000d50| 69 6e 67 20 6f 66 20 77 | 65 74 68 65 72 20 74 68 |ing of w|ether th|
|00000d60| 65 20 6c 61 6e 67 75 61 | 67 65 20 73 6f 75 67 68 |e langua|ge sough|
|00000d70| 74 20 77 61 73 20 66 6f | 75 6e 64 20 69 6e 20 74 |t was fo|und in t|
|00000d80| 68 65 20 52 65 73 6f 75 | 72 63 65 73 0d 02 6c 37 |he Resou|rces..l7|
|00000d90| f4 20 20 20 20 20 20 64 | 69 72 65 63 74 6f 72 79 |. d|irectory|
|00000da0| 2c 20 69 6e 20 74 68 65 | 20 61 70 70 6c 69 63 61 |, in the| applica|
|00000db0| 74 69 6f 6e 20 6f 72 20 | 6e 6f 74 20 61 74 20 61 |tion or |not at a|
|00000dc0| 6c 6c 2e 0d 02 76 05 f4 | 0d 02 80 44 f4 20 54 68 |ll...v..|...D. Th|
|00000dd0| 75 73 20 6c 6f 6f 6b 69 | 6e 67 20 66 6f 72 20 79 |us looki|ng for y|
|00000de0| 6f 75 72 20 72 65 73 6f | 75 72 63 65 73 20 73 68 |our reso|urces sh|
|00000df0| 6f 75 6c 64 20 77 6f 72 | 6b 20 69 66 20 74 68 65 |ould wor|k if the|
|00000e00| 79 20 61 72 65 20 69 6e | 20 74 68 65 0d 02 8a 4b |y are in| the...K|
|00000e10| f4 20 6c 61 6e 67 75 61 | 67 65 20 64 69 72 65 63 |. langua|ge direc|
|00000e20| 74 6f 72 79 20 69 6e 73 | 69 64 65 20 52 65 73 6f |tory ins|ide Reso|
|00000e30| 75 72 63 65 73 20 6f 72 | 20 69 6e 73 69 64 65 20 |urces or| inside |
|00000e40| 74 68 65 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |the appl|ication |
|00000e50| 69 74 73 65 6c 66 2e 0d | 02 94 05 f4 0d 02 9e 48 |itself..|.......H|
|00000e60| f4 20 49 6e 73 69 64 65 | 20 79 6f 75 72 20 70 72 |. Inside| your pr|
|00000e70| 6f 67 72 61 6d 20 79 6f | 75 20 73 68 6f 75 6c 64 |ogram yo|u should|
|00000e80| 20 74 68 65 6e 20 61 63 | 63 65 73 73 20 61 6c 6c | then ac|cess all|
|00000e90| 20 72 65 73 6f 75 72 63 | 65 73 20 66 69 6c 65 73 | resourc|es files|
|00000ea0| 20 76 69 61 0d 02 a8 45 | f4 20 50 72 6f 67 4e 61 | via...E|. ProgNa|
|00000eb0| 6d 65 52 65 73 3a 66 69 | 6c 65 6e 61 6d 65 2e 20 |meRes:fi|lename. |
|00000ec0| 55 73 69 6e 67 20 74 68 | 65 20 47 41 47 2d 4c 69 |Using th|e GAG-Li|
|00000ed0| 62 72 61 72 69 65 73 20 | 77 69 6c 6c 20 65 6e 73 |braries |will ens|
|00000ee0| 75 72 65 20 74 68 69 73 | 2e 0d 02 b2 05 f4 0d 02 |ure this|........|
|00000ef0| bc 38 f4 20 45 78 61 6d | 70 6c 65 20 6f 66 20 74 |.8. Exam|ple of t|
|00000f00| 68 65 20 70 61 72 74 20 | 6f 66 20 61 20 21 52 75 |he part |of a !Ru|
|00000f10| 6e 20 66 69 6c 65 20 63 | 61 6c 6c 69 6e 67 20 52 |n file c|alling R|
|00000f20| 65 73 46 69 6e 64 0d 02 | c6 05 f4 0d 02 d0 21 f4 |esFind..|......!.|
|00000f30| 20 73 65 74 20 50 72 6f | 67 4e 61 6d 65 24 44 69 | set Pro|gName$Di|
|00000f40| 72 20 3c 4f 62 65 79 24 | 44 69 72 3e 0d 02 da 53 |r <Obey$|Dir>...S|
|00000f50| f4 20 7c 73 65 74 20 50 | 72 6f 67 4e 61 6d 65 24 |. |set P|rogName$|
|00000f60| 4c 61 6e 67 75 61 67 65 | 20 4e 6f 72 77 61 79 20 |Language| Norway |
|00000f70| 20 7c 20 69 66 20 79 6f | 75 20 77 61 6e 74 20 74 | | if yo|u want t|
|00000f80| 6f 20 66 6f 72 63 65 20 | 61 20 73 70 65 63 69 61 |o force |a specia|
|00000f90| 6c 20 6c 61 6e 67 75 61 | 67 65 20 79 6f 75 72 0d |l langua|ge your.|
|00000fa0| 02 e4 43 f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |..C. | |
|00000fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000fc0| 20 20 20 20 7c a0 6d 61 | 63 68 69 6e 65 20 69 73 | |.ma|chine is|
|00000fd0| 20 6e 6f 74 20 63 6f 6e | 66 69 67 75 72 65 64 20 | not con|figured |
|00000fe0| 74 6f 0d 02 ee 39 f4 20 | 53 65 74 20 44 75 6d 6d |to...9. |Set Dumm|
|00000ff0| 79 24 50 61 74 68 20 3c | 52 75 6e 24 50 61 74 68 |y$Path <|Run$Path|
|00001000| 3e 2c 3c 50 72 6f 67 4e | 61 6d 65 24 44 69 72 3e |>,<ProgN|ame$Dir>|
|00001010| 2e 52 65 73 6f 75 72 63 | 65 73 2e 0d 02 f8 20 f4 |.Resourc|es.... .|
|00001020| 20 52 75 6e 20 44 75 6d | 6d 79 3a 52 65 73 46 69 | Run Dum|my:ResFi|
|00001030| 6e 64 20 50 72 6f 67 4e | 61 6d 65 0d 03 02 16 f4 |nd ProgN|ame.....|
|00001040| 20 55 6e 73 65 74 20 44 | 75 6d 6d 79 24 50 61 74 | Unset D|ummy$Pat|
|00001050| 68 0d 03 0c 22 f4 20 52 | 75 6e 20 3c 50 72 6f 67 |h...". R|un <Prog|
|00001060| 4e 61 6d 65 24 44 69 72 | 3e 2e 21 52 75 6e 49 6d |Name$Dir|>.!RunIm|
|00001070| 61 67 65 0d 03 16 05 f4 | 0d 03 20 45 f4 20 55 73 |age.....|.. E. Us|
|00001080| 69 6e 67 20 74 68 65 20 | 44 75 6d 6d 79 24 50 61 |ing the |Dummy$Pa|
|00001090| 74 68 20 6d 61 6b 65 73 | 20 69 74 20 70 6f 73 73 |th makes| it poss|
|000010a0| 69 62 6c 65 20 74 6f 20 | 68 61 76 65 20 6a 75 73 |ible to |have jus|
|000010b0| 74 20 6f 6e 65 20 63 6f | 70 79 20 6f 66 0d 03 2a |t one co|py of..*|
|000010c0| 42 f4 20 52 65 73 46 69 | 6e 64 20 73 6f 6d 65 77 |B. ResFi|nd somew|
|000010d0| 68 65 72 65 20 61 6c 6f | 6e 67 20 74 68 65 20 52 |here alo|ng the R|
|000010e0| 75 6e 24 50 61 74 68 2e | 20 41 73 20 79 6f 75 20 |un$Path.| As you |
|000010f0| 63 61 6e 20 73 65 65 20 | 52 65 73 46 69 6e 64 0d |can see |ResFind.|
|00001100| 03 34 43 f4 20 69 73 20 | 65 78 70 65 63 74 65 64 |.4C. is |expected|
|00001110| 20 61 6c 6f 6e 67 20 74 | 68 65 20 72 75 6e 20 70 | along t|he run p|
|00001120| 61 74 68 20 6f 72 20 69 | 6e 20 74 68 65 20 52 65 |ath or i|n the Re|
|00001130| 73 6f 75 72 63 65 73 20 | 64 69 72 65 63 74 6f 72 |sources |director|
|00001140| 79 2e 0d 03 3e 04 0d 03 | 48 04 0d 03 52 2d f4 20 |y...>...|H...R-. |
|00001150| 41 6c 6c 6f 63 61 74 65 | 20 6d 65 6d 6f 72 79 20 |Allocate| memory |
|00001160| 6e 65 65 64 65 64 20 66 | 6f 72 20 73 65 76 65 72 |needed f|or sever|
|00001170| 61 6c 20 53 57 49 73 0d | 03 5c 10 de 20 42 6c 6f |al SWIs.|.\.. Blo|
|00001180| 63 6b 25 20 32 35 36 0d | 03 66 04 0d 03 70 3a f4 |ck% 256.|.f...p:.|
|00001190| 20 49 6e 73 74 61 6c 6c | 20 61 20 76 65 72 79 20 | Install| a very |
|000011a0| 73 69 6d 70 6c 65 20 65 | 72 72 6f 72 20 68 61 6e |simple e|rror han|
|000011b0| 64 6c 65 72 2c 20 6a 75 | 73 74 20 69 6e 20 63 61 |dler, ju|st in ca|
|000011c0| 73 65 2e 2e 2e 0d 03 7a | 65 ee 20 85 20 42 6c 6f |se.....z|e. . Blo|
|000011d0| 63 6b 25 21 30 3d 32 35 | 35 20 3a 20 24 28 42 6c |ck%!0=25|5 : $(Bl|
|000011e0| 6f 63 6b 25 2b 34 29 3d | f6 24 2b 22 20 61 74 20 |ock%+4)=|.$+" at |
|000011f0| 22 2b c3 28 9e 29 2b bd | 28 30 29 20 3a 20 c8 99 |"+.(.)+.|(0) : ..|
|00001200| 20 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 | "Wimp_R|eportErr|
|00001210| 6f 72 22 2c 42 6c 6f 63 | 6b 25 2c 33 2c 22 52 65 |or",Bloc|k%,3,"Re|
|00001220| 73 46 69 6e 64 22 20 3a | 20 e0 0d 03 84 04 0d 03 |sFind" :| .......|
|00001230| 8e 2d f4 20 52 65 61 64 | 20 74 68 65 20 66 69 72 |.-. Read| the fir|
|00001240| 73 74 20 70 61 72 61 6d | 65 74 65 72 20 69 6e 74 |st param|eter int|
|00001250| 6f 20 50 72 6f 67 4e 61 | 6d 65 24 0d 03 98 1a 50 |o ProgNa|me$....P|
|00001260| 72 6f 67 4e 61 6d 65 24 | 20 3d 20 a4 5f 47 65 74 |rogName$| = ._Get|
|00001270| 50 61 72 61 6d 0d 03 a2 | 04 0d 03 ac 15 f4 20 52 |Param...|...... R|
|00001280| 65 61 64 20 3c 4f 62 65 | 79 24 44 69 72 3e 0d 03 |ead <Obe|y$Dir>..|
|00001290| b6 25 50 61 74 68 24 20 | 3d 20 a4 5f 47 65 74 56 |.%Path$ |= ._GetV|
|000012a0| 61 72 69 61 62 6c 65 28 | 22 4f 62 65 79 24 44 69 |ariable(|"Obey$Di|
|000012b0| 72 22 29 0d 03 c0 04 0d | 03 ca 4f f4 20 49 66 20 |r").....|..O. If |
|000012c0| 70 61 72 61 6d 65 74 65 | 72 20 69 73 20 6e 6f 74 |paramete|r is not|
|000012d0| 20 70 72 65 73 65 6e 74 | 20 72 65 61 64 20 3c 4f | present| read <O|
|000012e0| 62 65 79 24 44 69 72 3e | 20 61 6e 64 20 75 73 65 |bey$Dir>| and use|
|000012f0| 20 69 74 27 73 20 6c 65 | 61 66 20 61 73 20 50 72 | it's le|af as Pr|
|00001300| 6f 67 4e 61 6d 65 0d 03 | d4 16 e7 20 50 72 6f 67 |ogName..|... Prog|
|00001310| 4e 61 6d 65 24 20 3d 20 | 22 22 20 8c 0d 03 de 26 |Name$ = |"" ....&|
|00001320| 20 20 20 50 72 6f 67 4e | 61 6d 65 24 20 3d 20 a4 | ProgN|ame$ = .|
|00001330| 5f 53 74 72 69 6e 67 4c | 65 61 66 28 50 61 74 68 |_StringL|eaf(Path|
|00001340| 24 29 0d 03 e8 38 20 20 | 20 e7 20 c0 50 72 6f 67 |$)...8 | . .Prog|
|00001350| 4e 61 6d 65 24 2c 31 29 | 20 3d 20 22 21 22 20 8c |Name$,1)| = "!" .|
|00001360| 20 50 72 6f 67 4e 61 6d | 65 24 20 3d 20 c1 50 72 | ProgNam|e$ = .Pr|
|00001370| 6f 67 4e 61 6d 65 24 2c | 32 29 0d 03 f2 05 cd 0d |ogName$,|2)......|
|00001380| 03 fc 04 0d 04 06 49 f4 | 20 53 65 74 20 74 68 65 |......I.| Set the|
|00001390| 20 76 61 72 69 61 62 6c | 65 20 50 72 6f 67 4e 61 | variabl|e ProgNa|
|000013a0| 6d 65 24 44 69 72 2c 20 | 69 2e 65 2e 20 74 68 65 |me$Dir, |i.e. the|
|000013b0| 20 70 72 6f 67 72 61 6d | 73 20 70 61 74 68 20 74 | program|s path t|
|000013c0| 6f 20 3c 4f 62 65 79 24 | 44 69 72 3e 0d 04 10 3f |o <Obey$|Dir>...?|
|000013d0| f4 20 41 70 70 65 6e 64 | 20 22 2e 22 20 74 6f 20 |. Append| "." to |
|000013e0| 70 61 74 68 20 73 69 6e | 63 65 20 74 68 61 74 20 |path sin|ce that |
|000013f0| 76 61 6c 75 65 20 69 73 | 20 6e 65 65 64 65 64 20 |value is| needed |
|00001400| 66 72 6f 6d 20 6e 6f 77 | 20 6f 6e 0d 04 1a 38 f2 |from now| on...8.|
|00001410| 5f 53 65 74 56 61 72 69 | 61 62 6c 65 28 50 72 6f |_SetVari|able(Pro|
|00001420| 67 4e 61 6d 65 24 2b 22 | 24 44 69 72 22 2c 50 61 |gName$+"|$Dir",Pa|
|00001430| 74 68 24 29 20 3a 20 50 | 61 74 68 24 20 2b 3d 20 |th$) : P|ath$ += |
|00001440| 22 2e 22 0d 04 24 04 0d | 04 2e 2e f4 20 53 65 74 |"."..$..|.... Set|
|00001450| 20 75 70 20 6c 69 73 74 | 20 6f 66 20 63 6f 75 6e | up list| of coun|
|00001460| 74 72 69 65 73 20 61 73 | 20 73 74 61 74 65 64 20 |tries as| stated |
|00001470| 61 62 6f 76 65 0d 04 38 | a6 43 6f 75 6e 74 72 69 |above..8|.Countri|
|00001480| 65 73 24 20 20 3d 20 a4 | 5f 47 65 74 56 61 72 69 |es$ = .|_GetVari|
|00001490| 61 62 6c 65 28 50 72 6f | 67 4e 61 6d 65 24 2b 22 |able(Pro|gName$+"|
|000014a0| 24 4c 61 6e 67 75 61 67 | 65 22 29 2b 22 2c 22 2b |$Languag|e")+","+|
|000014b0| a4 5f 47 65 74 56 61 72 | 69 61 62 6c 65 28 22 52 |._GetVar|iable("R|
|000014c0| 65 73 46 69 6e 64 24 4c | 61 6e 67 75 61 67 65 73 |esFind$L|anguages|
|000014d0| 50 72 65 66 22 29 2b 22 | 2c 22 2b a4 5f 47 65 74 |Pref")+"|,"+._Get|
|000014e0| 43 6f 75 6e 74 72 79 2b | 22 2c 22 2b a4 5f 47 65 |Country+|","+._Ge|
|000014f0| 74 56 61 72 69 61 62 6c | 65 28 22 52 65 73 46 69 |tVariabl|e("ResFi|
|00001500| 6e 64 24 4c 61 6e 67 75 | 61 67 65 73 53 75 66 66 |nd$Langu|agesSuff|
|00001510| 22 29 2b 22 2c 22 2b 22 | 55 4b 22 0d 04 42 37 f4 |")+","+"|UK"..B7.|
|00001520| 20 54 65 73 74 3a 20 50 | 52 4f 43 5f 53 65 74 56 | Test: P|ROC_SetV|
|00001530| 61 72 69 61 62 6c 65 28 | 22 52 65 73 46 69 6e 64 |ariable(|"ResFind|
|00001540| 24 54 65 73 74 22 2c 43 | 6f 75 6e 74 72 69 65 73 |$Test",C|ountries|
|00001550| 24 29 0d 04 4c 04 0d 04 | 56 1d f4 20 53 65 74 20 |$)..L...|V.. Set |
|00001560| 75 70 20 73 65 61 72 63 | 68 20 64 69 72 65 63 74 |up searc|h direct|
|00001570| 6f 72 79 0d 04 60 5a e7 | 20 a4 5f 43 68 65 63 6b |ory..`Z.| ._Check|
|00001580| 44 69 72 28 50 61 74 68 | 24 2b 22 52 65 73 6f 75 |Dir(Path|$+"Resou|
|00001590| 72 63 65 73 22 29 20 8c | 20 52 65 73 6f 75 72 63 |rces") .| Resourc|
|000015a0| 65 73 24 20 3d 20 50 61 | 74 68 24 2b 22 52 65 73 |es$ = Pa|th$+"Res|
|000015b0| 6f 75 72 63 65 73 2e 22 | 20 8b 20 52 65 73 6f 75 |ources."| . Resou|
|000015c0| 72 63 65 73 24 20 3d 20 | 50 61 74 68 24 0d 04 6a |rces$ = |Path$..j|
|000015d0| 39 f4 20 54 65 73 74 3a | 20 50 52 4f 43 5f 53 65 |9. Test:| PROC_Se|
|000015e0| 74 56 61 72 69 61 62 6c | 65 28 22 52 65 73 46 69 |tVariabl|e("ResFi|
|000015f0| 6e 64 24 53 65 61 72 63 | 68 22 2c 52 65 73 6f 75 |nd$Searc|h",Resou|
|00001600| 72 63 65 73 24 29 0d 04 | 74 04 0d 04 7e 24 f4 20 |rces$)..|t...~$. |
|00001610| 4c 6f 6f 6b 20 66 6f 72 | 20 61 20 63 6f 75 6e 74 |Look for| a count|
|00001620| 72 79 27 73 20 64 69 72 | 65 63 74 6f 72 79 0d 04 |ry's dir|ectory..|
|00001630| 88 0e 46 6f 75 6e 64 25 | 20 3d 20 a3 0d 04 92 05 |..Found%| = .....|
|00001640| f5 0d 04 9c 43 20 20 20 | f4 20 65 78 74 72 61 63 |....C |. extrac|
|00001650| 74 20 74 68 65 20 6e 65 | 78 74 20 63 6f 75 6e 74 |t the ne|xt count|
|00001660| 72 79 20 66 72 6f 6d 20 | 74 68 65 20 76 61 72 69 |ry from |the vari|
|00001670| 61 62 6c 65 20 61 6e 64 | 20 6c 6f 6f 6b 20 66 6f |able and| look fo|
|00001680| 72 20 69 74 0d 04 a6 1e | 20 20 20 50 6f 73 25 20 |r it....| Pos% |
|00001690| 3d 20 a7 43 6f 75 6e 74 | 72 69 65 73 24 2c 22 2c |= .Count|ries$,",|
|000016a0| 22 29 0d 04 b0 11 20 20 | 20 e7 20 50 6f 73 25 3d |").... | . Pos%=|
|000016b0| 30 20 8c 0d 04 ba 31 20 | 20 20 20 20 20 43 6f 75 |0 ....1 | Cou|
|000016c0| 6e 74 72 79 24 20 3d 20 | 43 6f 75 6e 74 72 69 65 |ntry$ = |Countrie|
|000016d0| 73 24 20 3a 20 43 6f 75 | 6e 74 72 69 65 73 24 20 |s$ : Cou|ntries$ |
|000016e0| 3d 20 22 22 0d 04 c4 08 | 20 20 20 cc 0d 04 ce 4c |= ""....| ....L|
|000016f0| 20 20 20 20 20 20 43 6f | 75 6e 74 72 79 24 20 3d | Co|untry$ =|
|00001700| 20 c0 43 6f 75 6e 74 72 | 69 65 73 24 2c 50 6f 73 | .Countr|ies$,Pos|
|00001710| 25 2d 31 29 20 3a 20 43 | 6f 75 6e 74 72 69 65 73 |%-1) : C|ountries|
|00001720| 24 20 20 3d 20 c1 43 6f | 75 6e 74 72 69 65 73 24 |$ = .Co|untries$|
|00001730| 2c 50 6f 73 25 2b 31 29 | 0d 04 d8 08 20 20 20 cd |,Pos%+1)|.... .|
|00001740| 0d 04 e2 42 20 20 20 e7 | 20 43 6f 75 6e 74 72 79 |...B .| Country|
|00001750| 24 20 3c 3e 20 22 22 20 | 8c 20 46 6f 75 6e 64 25 |$ <> "" |. Found%|
|00001760| 20 3d 20 a4 5f 43 68 65 | 63 6b 44 69 72 28 52 65 | = ._Che|ckDir(Re|
|00001770| 73 6f 75 72 63 65 73 24 | 2b 43 6f 75 6e 74 72 79 |sources$|+Country|
|00001780| 24 29 0d 04 ec 1e fd 20 | 46 6f 75 6e 64 25 20 84 |$)..... |Found% .|
|00001790| 20 43 6f 75 6e 74 72 69 | 65 73 24 20 3d 20 22 22 | Countri|es$ = ""|
|000017a0| 0d 04 f6 04 0d 05 00 1d | f4 20 53 65 74 20 75 70 |........|. Set up|
|000017b0| 20 50 72 6f 67 4e 61 6d | 65 52 65 73 24 50 61 74 | ProgNam|eRes$Pat|
|000017c0| 68 0d 05 0a 0e e7 20 46 | 6f 75 6e 64 25 20 8c 0d |h..... F|ound% ..|
|000017d0| 05 14 49 20 20 20 f2 5f | 53 65 74 56 61 72 69 61 |..I ._|SetVaria|
|000017e0| 62 6c 65 28 50 72 6f 67 | 4e 61 6d 65 24 2b 22 52 |ble(Prog|Name$+"R|
|000017f0| 65 73 24 50 61 74 68 22 | 2c 52 65 73 6f 75 72 63 |es$Path"|,Resourc|
|00001800| 65 73 24 2b 43 6f 75 6e | 74 72 79 24 2b 22 2e 2c |es$+Coun|try$+".,|
|00001810| 22 2b 50 61 74 68 24 29 | 0d 05 1e 05 cc 0d 05 28 |"+Path$)|.......(|
|00001820| 30 20 20 20 f2 5f 53 65 | 74 56 61 72 69 61 62 6c |0 ._Se|tVariabl|
|00001830| 65 28 50 72 6f 67 4e 61 | 6d 65 24 2b 22 52 65 73 |e(ProgNa|me$+"Res|
|00001840| 24 50 61 74 68 22 2c 50 | 61 74 68 24 29 0d 05 32 |$Path",P|ath$)..2|
|00001850| 05 cd 0d 05 3c 04 0d 05 | 46 0f f4 20 54 68 61 74 |....<...|F.. That|
|00001860| 27 73 20 69 74 0d 05 50 | 05 e0 0d 05 5a 04 0d 05 |'s it..P|....Z...|
|00001870| 64 04 0d 05 6e 41 f4 20 | 3d 3d 3d 3d 3d 3d 3d 3d |d...nA. |========|
|00001880| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001890| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000018a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000018b0| 3d 3d 3d 0d 05 78 10 dd | 20 a4 5f 47 65 74 50 61 |===..x..| ._GetPa|
|000018c0| 72 61 6d 0d 05 82 43 f4 | 20 52 65 61 64 20 45 6e |ram...C.| Read En|
|000018d0| 76 69 72 6f 6e 6d 65 6e | 74 20 61 6e 64 20 65 78 |vironmen|t and ex|
|000018e0| 74 72 61 63 74 20 74 68 | 65 20 66 69 72 73 74 20 |tract th|e first |
|000018f0| 63 6f 6d 6d 61 6e 64 20 | 6c 69 6e 65 20 70 61 72 |command |line par|
|00001900| 61 6d 65 74 65 72 0d 05 | 8c 04 0d 05 96 30 20 20 |ameter..|.....0 |
|00001910| 20 f4 20 4c 4f 43 41 4c | 20 69 25 2c 20 6a 25 2c | . LOCAL| i%, j%,|
|00001920| 20 43 6f 6d 6d 61 6e 64 | 25 2c 20 43 6f 6d 6d 61 | Command|%, Comma|
|00001930| 6e 64 24 2c 20 46 6c 61 | 67 25 0d 05 a0 04 0d 05 |nd$, Fla|g%......|
|00001940| aa 27 20 20 20 c8 99 20 | 22 58 4f 53 5f 47 65 74 |.' .. |"XOS_Get|
|00001950| 45 6e 76 22 20 b8 20 43 | 6f 6d 6d 61 6e 64 25 3b |Env" . C|ommand%;|
|00001960| 46 6c 61 67 25 0d 05 b4 | 04 0d 05 be 1a 20 20 20 |Flag%...|..... |
|00001970| e7 20 28 46 6c 61 67 25 | 20 80 20 31 29 20 3d 20 |. (Flag%| . 1) = |
|00001980| 31 20 8c 0d 05 c8 54 20 | 20 20 20 20 20 43 6f 6d |1 ....T | Com|
|00001990| 6d 61 6e 64 24 20 3d 20 | 22 22 20 20 20 20 20 20 |mand$ = |"" |
|000019a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000019b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 20 | | : |
|000019c0| f4 20 6e 6f 20 63 6f 6d | 6d 61 6e 64 20 6c 69 6e |. no com|mand lin|
|000019d0| 65 20 66 6f 75 6e 64 0d | 05 d2 08 20 20 20 cc 0d |e found.|... ..|
|000019e0| 05 dc 50 20 20 20 20 20 | 20 43 6f 6d 6d 61 6e 64 |..P | Command|
|000019f0| 24 20 3d 20 a4 5f 47 65 | 74 53 74 72 69 6e 67 28 |$ = ._Ge|tString(|
|00001a00| 43 6f 6d 6d 61 6e 64 25 | 2c 32 35 35 29 20 20 20 |Command%|,255) |
|00001a10| 20 20 20 20 20 20 20 20 | 20 3a 20 f4 20 67 65 74 | | : . get|
|00001a20| 20 63 6f 6d 6d 61 6e 64 | 20 73 74 72 69 6e 67 0d | command| string.|
|00001a30| 05 e6 04 0d 05 f0 6a 20 | 20 20 20 20 20 69 25 20 |......j | i% |
|00001a40| 3d 20 a7 43 6f 6d 6d 61 | 6e 64 24 2c 22 22 22 22 |= .Comma|nd$,""""|
|00001a50| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |) | |
|00001a60| 20 20 20 20 20 20 20 20 | 20 3a 20 f4 20 70 6f 73 | | : . pos|
|00001a70| 20 6f 66 20 66 69 72 73 | 74 20 22 2c 20 69 2e 65 | of firs|t ", i.e|
|00001a80| 2e 20 62 65 67 69 6e 6e | 69 6e 67 20 6f 66 20 21 |. beginn|ing of !|
|00001a90| 52 75 6e 69 6d 61 67 65 | 2d 50 61 74 68 0d 05 fa |Runimage|-Path...|
|00001aa0| 42 20 20 20 20 20 20 e7 | 20 69 25 20 3e 20 30 20 |B .| i% > 0 |
|00001ab0| 8c 20 69 25 20 3d 20 a7 | 43 6f 6d 6d 61 6e 64 24 |. i% = .|Command$|
|00001ac0| 2c 22 22 22 22 2c 69 25 | 2b 31 29 20 20 20 20 3a |,"""",i%|+1) :|
|00001ad0| 20 f4 20 70 6f 73 20 6f | 66 20 32 6e 64 20 22 0d | . pos o|f 2nd ".|
|00001ae0| 06 04 14 20 20 20 20 20 | 20 e7 20 69 25 20 3d 20 |... | . i% = |
|00001af0| 30 20 8c 0d 06 0e 48 20 | 20 20 20 20 20 20 20 20 |0 ....H | |
|00001b00| 43 6f 6d 6d 61 6e 64 24 | 20 3d 20 22 22 20 20 20 |Command$| = "" |
|00001b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 20 | | : |
|00001b30| f4 20 6e 6f 20 70 61 72 | 61 6d 73 0d 06 18 0b 20 |. no par|ams.... |
|00001b40| 20 20 20 20 20 cc 0d 06 | 22 41 20 20 20 20 20 20 | ...|"A |
|00001b50| 20 20 43 6f 6d 6d 61 6e | 64 24 20 3d 20 c1 43 6f | Comman|d$ = .Co|
|00001b60| 6d 6d 61 6e 64 24 2c 69 | 25 2b 31 29 20 20 20 20 |mmand$,i|%+1) |
|00001b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 20 f4 | | : .|
|00001b80| 20 70 61 72 61 6d 73 0d | 06 2c 21 20 20 20 20 20 | params.|.,! |
|00001b90| 20 20 20 c8 95 20 c0 43 | 6f 6d 6d 61 6e 64 24 2c | .. .C|ommand$,|
|00001ba0| 31 29 20 3d 20 22 20 22 | 0d 06 36 5d 20 20 20 20 |1) = " "|..6] |
|00001bb0| 20 20 20 20 20 20 20 43 | 6f 6d 6d 61 6e 64 24 20 | C|ommand$ |
|00001bc0| 3d 20 c1 43 6f 6d 6d 61 | 6e 64 24 2c 32 29 20 20 |= .Comma|nd$,2) |
|00001bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | | :|
|00001be0| 20 f4 20 72 65 6d 6f 76 | 65 20 6c 65 61 64 69 6e | . remov|e leadin|
|00001bf0| 67 20 73 70 61 63 65 73 | 20 62 65 66 6f 72 65 20 |g spaces| before |
|00001c00| 70 61 72 61 6d 0d 06 40 | 0d 20 20 20 20 20 20 20 |param..@|. |
|00001c10| 20 ce 0d 06 4a 5e 20 20 | 20 20 20 20 20 20 69 25 | ...J^ | i%|
|00001c20| 20 3d 20 a7 43 6f 6d 6d | 61 6e 64 24 2c 22 20 22 | = .Comm|and$," "|
|00001c30| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |) | |
|00001c40| 20 20 20 20 20 20 20 20 | 3a 20 f4 20 6d 6f 72 65 | |: . more|
|00001c50| 20 74 68 61 6e 20 6f 6e | 65 20 70 61 72 61 6d 65 | than on|e parame|
|00001c60| 74 65 72 20 77 61 73 20 | 70 61 73 73 65 64 20 3f |ter was |passed ?|
|00001c70| 0d 06 54 48 20 20 20 20 | 20 20 20 20 e7 20 69 25 |..TH | . i%|
|00001c80| 20 3e 20 31 20 8c 20 43 | 6f 6d 6d 61 6e 64 24 20 | > 1 . C|ommand$ |
|00001c90| 3d 20 c0 43 6f 6d 6d 61 | 6e 64 24 2c 69 25 2d 31 |= .Comma|nd$,i%-1|
|00001ca0| 29 20 3a 20 f4 20 6a 75 | 73 74 20 75 73 65 20 66 |) : . ju|st use f|
|00001cb0| 69 72 73 74 20 6f 6e 65 | 0d 06 5e 0b 20 20 20 20 |irst one|..^. |
|00001cc0| 20 20 cd 0d 06 68 08 20 | 20 20 cd 0d 06 72 04 0d | ...h. | ...r..|
|00001cd0| 06 7c 0d 3d 43 6f 6d 6d | 61 6e 64 24 0d 06 86 04 |.|.=Comm|and$....|
|00001ce0| 0d 06 90 04 0d 06 9a 41 | f4 20 3d 3d 3d 3d 3d 3d |.......A|. ======|
|00001cf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d20| 3d 3d 3d 3d 3d 0d 06 a4 | 1d dd 20 a4 5f 47 65 74 |=====...|.. ._Get|
|00001d30| 56 61 72 69 61 62 6c 65 | 28 56 61 72 4e 61 6d 65 |Variable|(VarName|
|00001d40| 24 29 0d 06 ae 39 f4 20 | 52 65 61 64 20 76 61 6c |$)...9. |Read val|
|00001d50| 75 65 20 6f 66 20 61 20 | 76 61 72 69 61 62 6c 65 |ue of a |variable|
|00001d60| 2c 20 72 65 74 75 72 6e | 73 20 22 22 20 69 66 20 |, return|s "" if |
|00001d70| 6e 6f 74 20 70 72 65 73 | 65 6e 74 0d 06 b8 04 0d |not pres|ent.....|
|00001d80| 06 c2 1a 20 20 20 f4 20 | 4c 4f 43 41 4c 20 4c 65 |... . |LOCAL Le|
|00001d90| 6e 25 2c 20 46 6c 61 67 | 25 0d 06 cc 04 0d 06 d6 |n%, Flag|%.......|
|00001da0| 41 20 20 20 c8 99 20 22 | 58 4f 53 5f 52 65 61 64 |A .. "|XOS_Read|
|00001db0| 56 61 72 56 61 6c 22 2c | 56 61 72 4e 61 6d 65 24 |VarVal",|VarName$|
|00001dc0| 2c 42 6c 6f 63 6b 25 2c | 32 35 36 2c 30 2c 33 20 |,Block%,|256,0,3 |
|00001dd0| b8 20 2c 2c 4c 65 6e 25 | 3b 46 6c 61 67 25 0d 06 |. ,,Len%|;Flag%..|
|00001de0| e0 04 0d 06 ea 3b 20 20 | 20 e7 20 28 46 6c 61 67 |.....; | . (Flag|
|00001df0| 25 20 80 20 31 29 20 3c | 3e 20 30 20 8c 20 3d 22 |% . 1) <|> 0 . ="|
|00001e00| 22 20 8b 20 3d a4 5f 47 | 65 74 53 74 72 69 6e 67 |" . =._G|etString|
|00001e10| 28 42 6c 6f 63 6b 25 2c | 4c 65 6e 25 29 0d 06 f4 |(Block%,|Len%)...|
|00001e20| 04 0d 06 fe 04 0d 07 08 | 41 f4 20 3d 3d 3d 3d 3d |........|A. =====|
|00001e30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001e40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001e50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001e60| 3d 3d 3d 3d 3d 3d 0d 07 | 12 27 dd 20 f2 5f 53 65 |======..|.'. ._Se|
|00001e70| 74 56 61 72 69 61 62 6c | 65 28 56 61 72 4e 61 6d |tVariabl|e(VarNam|
|00001e80| 65 24 2c 56 61 72 56 61 | 6c 75 65 24 29 0d 07 1c |e$,VarVa|lue$)...|
|00001e90| 1b f4 20 53 65 74 20 76 | 61 6c 75 65 20 6f 66 20 |.. Set v|alue of |
|00001ea0| 76 61 72 69 61 62 6c 65 | 0d 07 26 04 0d 07 30 1a |variable|..&...0.|
|00001eb0| 20 20 20 f4 20 4c 4f 43 | 41 4c 20 4c 65 6e 25 2c | . LOC|AL Len%,|
|00001ec0| 20 46 6c 61 67 25 0d 07 | 3a 04 0d 07 44 32 20 20 | Flag%..|:...D2 |
|00001ed0| 20 4c 65 6e 25 20 3d 20 | a9 28 56 61 72 56 61 6c | Len% = |.(VarVal|
|00001ee0| 75 65 24 29 2b 31 20 3a | 20 24 42 6c 6f 63 6b 25 |ue$)+1 :| $Block%|
|00001ef0| 20 3d 20 56 61 72 56 61 | 6c 75 65 24 0d 07 4e 04 | = VarVa|lue$..N.|
|00001f00| 0d 07 58 3b 20 20 20 c8 | 99 20 22 58 4f 53 5f 53 |..X; .|. "XOS_S|
|00001f10| 65 74 56 61 72 56 61 6c | 22 2c 56 61 72 4e 61 6d |etVarVal|",VarNam|
|00001f20| 65 24 2c 42 6c 6f 63 6b | 25 2c 4c 65 6e 25 2c 30 |e$,Block|%,Len%,0|
|00001f30| 2c 30 20 b8 20 3b 46 6c | 61 67 25 0d 07 62 04 0d |,0 . ;Fl|ag%..b..|
|00001f40| 07 6c 3e 20 20 20 e7 20 | 28 46 6c 61 67 25 20 80 |.l> . |(Flag% .|
|00001f50| 20 31 29 20 3c 3e 20 30 | 20 8c 20 85 20 33 2c 22 | 1) <> 0| . . 3,"|
|00001f60| 43 61 6e 27 74 20 73 65 | 74 20 76 61 72 69 61 62 |Can't se|t variab|
|00001f70| 6c 65 20 22 2b 56 61 72 | 4e 61 6d 65 24 0d 07 76 |le "+Var|Name$..v|
|00001f80| 04 0d 07 80 05 e1 0d 07 | 8a 04 0d 07 94 04 0d 07 |........|........|
|00001f90| 9e 41 f4 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.A. ====|========|
|00001fa0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001fb0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001fc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00001fd0| 07 a8 12 dd 20 a4 5f 47 | 65 74 43 6f 75 6e 74 72 |.... ._G|etCountr|
|00001fe0| 79 0d 07 b2 1f f4 20 44 | 6f 20 77 68 61 74 20 74 |y..... D|o what t|
|00001ff0| 68 65 20 6e 61 6d 65 20 | 73 75 67 67 65 73 74 73 |he name |suggests|
|00002000| 0d 07 bc 04 0d 07 c6 1d | 20 20 20 f4 20 4c 4f 43 |........| . LOC|
|00002010| 41 4c 20 43 6f 75 6e 74 | 72 79 25 2c 20 4c 65 6e |AL Count|ry%, Len|
|00002020| 25 0d 07 d0 04 0d 07 da | 26 20 20 20 c8 99 20 22 |%.......|& .. "|
|00002030| 4f 53 5f 42 79 74 65 22 | 2c 37 30 2c 31 32 37 20 |OS_Byte"|,70,127 |
|00002040| b8 20 2c 43 6f 75 6e 74 | 72 79 25 0d 07 e4 40 20 |. ,Count|ry%...@ |
|00002050| 20 20 c8 99 20 22 4f 53 | 5f 53 65 72 76 69 63 65 | .. "OS|_Service|
|00002060| 43 61 6c 6c 22 2c 2c 36 | 37 2c 32 2c 43 6f 75 6e |Call",,6|7,2,Coun|
|00002070| 74 72 79 25 2c 42 6c 6f | 63 6b 25 2c 32 35 36 20 |try%,Blo|ck%,256 |
|00002080| b8 20 2c 2c 2c 2c 2c 4c | 65 6e 25 0d 07 ee 04 0d |. ,,,,,L|en%.....|
|00002090| 07 f8 1d 3d a4 5f 47 65 | 74 53 74 72 69 6e 67 28 |...=._Ge|tString(|
|000020a0| 42 6c 6f 63 6b 25 2c 4c | 65 6e 25 29 0d 08 02 04 |Block%,L|en%)....|
|000020b0| 0d 08 0c 04 0d 08 16 41 | f4 20 3d 3d 3d 3d 3d 3d |.......A|. ======|
|000020c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020f0| 3d 3d 3d 3d 3d 0d 08 20 | 1a dd 20 a4 5f 43 68 65 |=====.. |.. ._Che|
|00002100| 63 6b 44 69 72 28 44 69 | 72 4e 61 6d 65 24 29 0d |ckDir(Di|rName$).|
|00002110| 08 2a 1e f4 20 4c 6f 6f | 6b 20 69 66 20 64 69 72 |.*.. Loo|k if dir|
|00002120| 65 63 74 6f 72 79 20 65 | 78 69 73 74 73 0d 08 34 |ectory e|xists..4|
|00002130| 04 0d 08 3e 1f 20 20 20 | f4 20 4c 4f 43 41 4c 20 |...>. |. LOCAL |
|00002140| 46 69 6c 65 54 79 70 65 | 25 2c 20 46 6c 61 67 25 |FileType|%, Flag%|
|00002150| 0d 08 48 04 0d 08 52 32 | 20 20 20 c8 99 20 22 58 |..H...R2| .. "X|
|00002160| 4f 53 5f 46 69 6c 65 22 | 2c 31 37 2c 44 69 72 4e |OS_File"|,17,DirN|
|00002170| 61 6d 65 24 20 b8 20 46 | 69 6c 65 54 79 70 65 25 |ame$ . F|ileType%|
|00002180| 3b 46 6c 61 67 25 0d 08 | 5c 04 0d 08 66 29 20 20 |;Flag%..|\...f) |
|00002190| 20 e7 20 28 46 6c 61 67 | 25 20 80 20 31 29 20 3c | . (Flag|% . 1) <|
|000021a0| 3e 20 30 20 8c 20 46 69 | 6c 65 54 79 70 65 25 20 |> 0 . Fi|leType% |
|000021b0| 3d 20 30 0d 08 70 04 0d | 08 7a 12 3d 28 46 69 6c |= 0..p..|.z.=(Fil|
|000021c0| 65 54 79 70 65 25 3d 32 | 29 0d 08 84 04 0d 08 8e |eType%=2|).......|
|000021d0| 04 0d 08 98 41 f4 20 3d | 3d 3d 3d 3d 3d 3d 3d 3d |....A. =|========|
|000021e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000021f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002210| 3d 3d 0d 08 a2 1c dd 20 | a4 5f 47 65 74 53 74 72 |==..... |._GetStr|
|00002220| 69 6e 67 28 41 64 72 25 | 2c 4c 65 6e 25 29 0d 08 |ing(Adr%|,Len%)..|
|00002230| ac 2d f4 20 47 65 74 20 | 73 74 72 69 6e 67 20 66 |.-. Get |string f|
|00002240| 6f 72 6d 20 6d 65 6d 6f | 72 79 2c 20 6d 61 78 2e |orm memo|ry, max.|
|00002250| 20 4c 65 6e 25 20 63 68 | 61 72 73 0d 08 b6 04 0d | Len% ch|ars.....|
|00002260| 08 c0 19 20 20 20 f4 20 | 4c 4f 43 41 4c 20 56 61 |... . |LOCAL Va|
|00002270| 6c 75 65 24 2c 20 69 25 | 0d 08 ca 04 0d 08 d4 1b |lue$, i%|........|
|00002280| 20 20 20 56 61 6c 75 65 | 24 20 3d 20 22 22 20 3a | Value|$ = "" :|
|00002290| 20 69 25 20 3d 20 30 0d | 08 de 26 20 20 20 c8 95 | i% = 0.|..& ..|
|000022a0| 20 28 69 25 20 3c 20 4c | 65 6e 25 29 20 80 20 28 | (i% < L|en%) . (|
|000022b0| 41 64 72 25 3f 69 25 20 | 3e 20 33 31 29 0d 08 e8 |Adr%?i% |> 31)...|
|000022c0| 29 20 20 20 20 20 20 20 | 56 61 6c 75 65 24 20 2b |) |Value$ +|
|000022d0| 3d 20 bd 28 41 64 72 25 | 3f 69 25 29 20 3a 20 69 |= .(Adr%|?i%) : i|
|000022e0| 25 20 2b 3d 20 31 0d 08 | f2 08 20 20 20 ce 0d 08 |% += 1..|.. ...|
|000022f0| fc 04 0d 09 06 0b 3d 56 | 61 6c 75 65 24 0d 09 10 |......=V|alue$...|
|00002300| 04 0d 09 1a 04 0d 09 24 | 41 f4 20 3d 3d 3d 3d 3d |.......$|A. =====|
|00002310| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002320| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002330| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002340| 3d 3d 3d 3d 3d 3d 0d 09 | 2e 1b dd 20 a4 5f 53 74 |======..|... ._St|
|00002350| 72 69 6e 67 4c 65 61 66 | 28 53 74 72 69 6e 67 24 |ringLeaf|(String$|
|00002360| 29 0d 09 38 1c f4 20 52 | 65 74 75 72 6e 73 20 6c |)..8.. R|eturns l|
|00002370| 65 61 66 20 6f 66 20 73 | 74 72 69 6e 67 0d 09 42 |eaf of s|tring..B|
|00002380| 04 0d 09 4c 1a 20 20 20 | f4 20 4c 4f 43 41 4c 20 |...L. |. LOCAL |
|00002390| 50 6f 73 25 2c 20 4c 61 | 73 74 25 0d 09 56 04 0d |Pos%, La|st%..V..|
|000023a0| 09 60 2d 20 20 20 4c 61 | 73 74 25 20 3d 20 30 20 |.`- La|st% = 0 |
|000023b0| 3a 20 50 6f 73 25 20 3d | 20 a7 53 74 72 69 6e 67 |: Pos% =| .String|
|000023c0| 24 2c 22 2e 22 2c 4c 61 | 73 74 25 29 0d 09 6a 10 |$,".",La|st%)..j.|
|000023d0| 20 20 20 c8 95 20 50 6f | 73 25 3e 30 0d 09 74 35 | .. Po|s%>0..t5|
|000023e0| 20 20 20 20 20 20 4c 61 | 73 74 25 20 3d 20 50 6f | La|st% = Po|
|000023f0| 73 25 20 3a 20 50 6f 73 | 25 20 3d 20 a7 53 74 72 |s% : Pos|% = .Str|
|00002400| 69 6e 67 24 2c 22 2e 22 | 2c 4c 61 73 74 25 2b 31 |ing$,"."|,Last%+1|
|00002410| 29 0d 09 7e 08 20 20 20 | ce 0d 09 88 04 0d 09 92 |)..~. |........|
|00002420| 16 3d c1 53 74 72 69 6e | 67 24 2c 4c 61 73 74 25 |.=.Strin|g$,Last%|
|00002430| 2b 31 29 0d 09 9c 04 0d | 09 a6 04 0d 09 b0 04 0d |+1).....|........|
|00002440| ff | |. | |
+--------+-------------------------+-------------------------+--------+--------+
