The Developer Connection - Device Driver Kit for OS/2 3

home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / drdialog / revise.res < prev next >
Unknown | 1994-01-25 | 22.3 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
`1%`	dexvert	Alchemy Mindworks Resource `(other/alchemyMindworksResource)`	ext	Unsupported
`1%`	dexvert	DAZ Pack game data archive `(other/dazPackGameDataArchive)`	ext	Unsupported
`1%`	dexvert	Depth Dwellers Resource/game data `(other/depthDwellersGameData)`	ext	Unsupported
`1%`	dexvert	Intelligent Games resource data `(other/intelligentGamesResourceData)`	ext	Unsupported
`1%`	dexvert	The Software Toolworks resources archive `(other/theSoftwareToolworksResourcesArchive)`	ext	Unsupported
`1%`	dexvert	T-Resource game data container `(other/tResourceGameDataContainer)`	ext	Unsupported
`1%`	dexvert	AESOP engine Resource data `(other/aesopEngineResourceData)`	ext	Unsupported
`1%`	dexvert	CINEMA 4D Layout `(other/cinema4DLayout)`	ext	Unsupported
`1%`	dexvert	COL Format 256 Color palette `(other/colFormatColorPalette)`	ext	Unsupported
`1%`	dexvert	Digimon Rumble Arena 2 game data archive `(other/digimonRumbleArena2GameDataArchive)`	ext	Unsupported
`1%`	dexvert	Godot Resource data `(other/godotResourceData)`	ext	Unsupported
`1%`	dexvert	M.A.X. game data archive `(other/maxGameDataArchive)`	ext	Unsupported
`1%`	dexvert	Project IGI Resource data `(other/projectIGIResourceData)`	ext	Unsupported
`1%`	dexvert	SCream Engine resource data `(other/screamEngineResourceData)`	ext	Unsupported
`100%`	file	data	default
`100%`	TrID	MP3 audio	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| ff 00 dc ff 01 00 30 10 | 6f 00 00 00 64 00 00 00 |......0.|o...d...|
|00000010| 05 65 72 72 6f 72 65 00 | 04 00 03 6d 73 67 66 00 |.errore.|...msgf.|
|00000020| 01 00 00 32 00 00 00 06 | 72 65 76 69 73 65 33 00 |...2....|revise3.|
|00000030| 06 00 09 63 6f 6e 74 61 | 69 6e 65 72 67 00 14 00 |...conta|inerg...|
|00000040| 03 61 64 64 68 00 14 00 | 06 64 65 6c 65 74 65 c8 |.addh...|.delete.|
|00000050| 00 00 00 04 53 61 76 65 | c9 00 04 00 00 ca 00 01 |....Save|........|
|00000060| 00 00 cb 00 01 00 00 2c | 01 00 00 03 6c 6f 67 2d |.......,|....log-|
|00000070| 01 07 00 07 6d 65 73 73 | 61 67 65 ff 04 00 ff 64 |....mess|age....d|
|00000080| 00 30 10 7d 00 00 00 7d | 00 00 00 b5 01 0e 00 01 |.0.}...}|........|
|00000090| 00 ff ff 00 00 00 00 02 | 00 00 00 00 00 0c 00 68 |........|.......h|
|000000a0| 00 80 00 00 16 8e 00 64 | 00 f5 00 25 00 64 00 ff |.......d|...%.d..|
|000000b0| ff 75 00 00 00 00 00 00 | 00 05 00 00 00 79 00 01 |.u......|.....y..|
|000000c0| 40 01 80 07 00 0e 00 e9 | 00 15 00 65 00 ff ff ff |@.......|...e....|
|000000d0| ff 00 00 00 00 00 00 03 | 00 02 00 7a 00 00 00 02 |........|...z....|
|000000e0| 80 67 00 02 00 29 00 0a | 00 66 00 ff ff ff ff 52 |.g...)..|.f.....R|
|000000f0| 45 56 69 73 65 20 45 72 | 72 6f 72 00 01 00 00 00 |EVise Er|ror.....|
|00000100| 00 4f 6b 00 ff 04 dc ff | 64 00 30 10 0f 00 00 00 |.Ok.....|d.0.....|
|00000110| 80 66 00 05 43 6c 69 63 | 6b 04 45 58 49 54 ff ff |.f..Clic|k.EXIT..|
|00000120| 04 00 ff 32 00 30 10 dc | 00 00 00 dc 00 00 00 b5 |...2.0..|........|
|00000130| 01 0e 00 01 00 ff ff 00 | 00 00 00 03 00 00 00 00 |........|........|
|00000140| 00 1b 00 86 00 00 08 00 | 16 b2 00 54 00 96 00 92 |........|...T....|
|00000150| 00 32 00 ff ff a2 00 00 | 00 00 00 00 00 25 00 00 |.2......|.....%..|
|00000160| 00 a6 00 0c 00 03 00 02 | 00 16 00 93 00 7c 00 33 |........|.....|.3|
|00000170| 00 a7 00 ff ff 00 00 00 | 00 06 00 c3 00 03 00 ca |........|........|
|00000180| 00 40 30 00 90 02 00 01 | 00 49 00 14 00 67 00 ff |.@0.....|.I...g..|
|00000190| ff ff ff 00 00 00 00 06 | 00 ce 00 06 00 d5 00 40 |........|.......@|
|000001a0| 30 00 90 4c 00 01 00 49 | 00 14 00 68 00 ff ff ff |0..L...I|...h....|
|000001b0| ff 52 45 56 69 73 65 3a | 20 44 72 52 65 78 78 20 |.REVise:| DrRexx |
|000001c0| 43 75 74 20 4e 27 20 50 | 61 73 74 65 00 23 10 00 |Cut N' P|aste.#..|
|000001d0| 00 00 18 00 00 00 04 00 | 00 00 04 00 00 00 ec ff |........|........|
|000001e0| ff ff 02 00 00 00 04 00 | 00 00 ef ff ff ff 43 41 |........|......CA|
|000001f0| 4e 56 41 53 00 41 64 64 | 00 43 41 4e 56 41 53 00 |NVAS.Add|.CANVAS.|
|00000200| 44 65 6c 65 74 65 00 ff | 04 dc ff 32 00 30 10 c6 |Delete..|...2.0..|
|00000210| 00 00 00 80 32 00 04 45 | 78 69 74 0d 53 49 47 4e |....2..E|xit.SIGN|
|00000220| 41 4c 20 44 6f 45 78 69 | 74 04 53 69 7a 65 0d 53 |AL DoExi|t.Size.S|
|00000230| 49 47 4e 41 4c 20 44 6f | 53 69 7a 65 04 49 6e 69 |IGNAL Do|Size.Ini|
|00000240| 74 61 50 41 52 53 45 20 | 53 4f 55 52 43 45 20 2e |taPARSE |SOURCE .|
|00000250| 20 2e 20 6d 79 50 61 74 | 68 0d 0a 43 41 4c 4c 20 | . myPat|h..CALL |
|00000260| 64 69 72 65 63 74 6f 72 | 79 20 6c 65 66 74 28 20 |director|y left( |
|00000270| 6d 79 50 61 74 68 2c 20 | 6c 61 73 74 70 6f 73 28 |myPath, |lastpos(|
|00000280| 20 27 5c 27 2c 20 6d 79 | 50 61 74 68 20 29 20 2d | '\', my|Path ) -|
|00000290| 20 31 20 29 0d 0a 53 49 | 47 4e 41 4c 20 44 6f 41 | 1 )..SI|GNAL DoA|
|000002a0| 72 67 73 80 68 00 04 44 | 72 6f 70 13 53 49 47 4e |rgs.h..D|rop.SIGN|
|000002b0| 41 4c 20 44 6f 44 72 6f | 70 44 65 6c 65 74 65 80 |AL DoDro|pDelete.|
|000002c0| 67 00 04 44 72 6f 70 10 | 53 49 47 4e 41 4c 20 44 |g..Drop.|SIGNAL D|
|000002d0| 6f 44 72 6f 70 41 64 64 | ff ff 05 dc ff 32 00 30 |oDropAdd|.....2.0|
|000002e0| 10 71 00 00 00 80 09 00 | 04 44 72 6f 70 3f 43 41 |.q......|.Drop?CA|
|000002f0| 4c 4c 20 45 76 65 6e 74 | 44 61 74 61 0d 0a 43 41 |LL Event|Data..CA|
|00000300| 4c 4c 20 54 65 78 74 20 | 63 6f 6e 74 61 69 6e 65 |LL Text |containe|
|00000310| 72 2e 49 74 65 6d 28 20 | 45 76 65 6e 74 44 61 74 |r.Item( |EventDat|
|00000320| 61 2e 37 2c 20 27 44 41 | 54 41 27 20 29 04 49 6e |a.7, 'DA|TA' ).In|
|00000330| 69 74 22 43 41 4c 4c 20 | 44 72 6f 70 20 27 52 45 |it"CALL |Drop 'RE|
|00000340| 56 69 65 77 43 6f 64 65 | 2c 52 45 56 69 65 77 45 |ViewCode|,REViewE|
|00000350| 76 65 6e 74 27 ff ff 04 | 00 ff c8 00 30 10 c9 00 |vent'...|....0...|
|00000360| 00 00 c9 00 00 00 b5 01 | 0e 00 01 00 ff ff 00 00 |........|........|
|00000370| 00 00 03 00 00 00 00 00 | 07 00 86 00 80 00 00 16 |........|........|
|00000380| af 00 92 00 a3 00 1b 00 | c8 00 ff ff 8e 00 00 00 |........|........|
|00000390| 00 00 00 00 05 00 19 00 | 92 00 01 40 01 80 05 00 |........|...@....|
|000003a0| 0e 00 83 00 0a 00 c9 00 | ff ff ff ff 00 00 00 00 |........|........|
|000003b0| 00 00 03 00 0c 00 ac 00 | 00 00 02 80 03 00 02 00 |........|........|
|000003c0| 4d 00 0c 00 ca 00 ff ff | ff ff 00 00 00 00 00 00 |M.......|........|
|000003d0| 03 00 0f 00 b9 00 00 00 | 02 80 53 00 02 00 4d 00 |........|..S...M.|
|000003e0| 0c 00 cb 00 ff ff ff ff | 52 45 56 69 73 65 3a 00 |........|REVise:.|
|000003f0| 01 10 00 00 46 69 6c 65 | 20 68 61 73 20 62 65 65 |....File| has bee|
|00000400| 6e 20 6d 6f 64 69 66 69 | 65 64 2e 2e 2e 00 53 61 |n modifi|ed....Sa|
|00000410| 76 65 20 63 68 61 6e 67 | 65 73 00 44 69 73 63 61 |ve chang|es.Disca|
|00000420| 72 64 20 63 68 61 6e 67 | 65 73 00 ff 04 dc ff c8 |rd chang|es......|
|00000430| 00 30 10 6e 00 00 00 80 | c8 00 04 49 6e 69 74 26 |.0.n....|...Init&|
|00000440| 43 41 4c 4c 20 54 65 78 | 74 20 27 52 45 56 69 73 |CALL Tex|t 'REVis|
|00000450| 65 3a 27 20 72 65 73 46 | 69 6c 65 0d 0a 43 41 4c |e:' resF|ile..CAL|
|00000460| 4c 20 53 68 6f 77 80 cb | 00 05 43 6c 69 63 6b 17 |L Show..|..Click.|
|00000470| 27 40 45 52 41 53 45 27 | 20 77 6f 72 6b 46 69 6c |'@ERASE'| workFil|
|00000480| 65 0d 0a 45 58 49 54 80 | ca 00 05 43 6c 69 63 6b |e..EXIT.|...Click|
|00000490| 13 43 41 4c 4c 20 53 61 | 76 65 46 69 6c 65 0d 0a |.CALL Sa|veFile..|
|000004a0| 45 58 49 54 ff ff 04 00 | ff 2c 01 30 10 56 00 00 |EXIT....|.,.0.V..|
|000004b0| 00 56 00 00 00 b5 01 0e | 00 01 00 ff ff 00 00 00 |.V......|........|
|000004c0| 00 01 00 00 00 00 00 06 | 00 4a 00 80 00 00 16 92 |........|.J......|
|000004d0| 00 6f 00 fc 00 37 00 2c | 01 ff ff 51 00 00 00 00 |.o...7.,|...Q....|
|000004e0| 00 00 00 07 00 00 00 55 | 00 0c 00 03 80 02 00 00 |.......U|........|
|000004f0| 00 fb 00 37 00 2d 01 ff | ff ff ff 52 45 56 69 73 |...7.-..|...REVis|
|00000500| 65 00 01 00 00 00 00 ff | 02 dc ff 01 00 30 10 ee |e.......|.....0..|
|00000510| 53 00 00 2f 2a 20 43 75 | 74 20 27 6e 20 50 61 73 |S../* Cu|t 'n Pas|
|00000520| 74 65 20 66 72 6f 6d 20 | 6f 6e 65 20 2e 52 45 53 |te from |one .RES|
|00000530| 20 66 69 6c 65 20 74 6f | 20 61 6e 6f 74 68 65 72 | file to| another|
|00000540| 20 75 73 69 6e 67 20 44 | 72 61 67 20 27 6e 20 44 | using D|rag 'n D|
|00000550| 72 6f 70 20 2a 2f 0d 0a | 2f 2a 20 57 72 69 74 74 |rop */..|/* Writt|
|00000560| 65 6e 20 62 79 3a 20 44 | 61 76 69 64 20 43 2e 20 |en by: D|avid C. |
|00000570| 4d 6f 72 72 69 6c 6c 20 | 20 20 20 20 20 20 20 20 |Morrill |        |
|00000580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000590| 20 20 20 20 20 20 20 20 | 20 2a 2f 0d 0a 2f 2a 20 |        | */../* |
|000005a0| 44 61 74 65 3a 20 30 31 | 2f 32 32 2f 39 34 20 20 |Date: 01|/22/94  |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2a 2f |        |      */|
|000005e0| 0d 0a 2f 2a 20 28 63 29 | 20 43 6f 70 79 72 69 67 |../* (c)| Copyrig|
|000005f0| 68 74 20 49 42 4d 20 43 | 6f 72 70 6f 72 61 74 69 |ht IBM C|orporati|
|00000600| 6f 6e 20 31 39 39 34 20 | 20 20 20 20 20 20 20 20 |on 1994 |        |
|00000610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000620| 20 20 20 2a 2f 0d 0a 0d | 0a 44 6f 41 72 67 73 3a |   */...|.DoArgs:|
|00000630| 0d 0a 20 20 20 43 41 4c | 4c 20 52 78 46 75 6e 63 |..   CAL|L RxFunc|
|00000640| 41 64 64 20 27 53 79 73 | 4c 6f 61 64 46 75 6e 63 |Add 'Sys|LoadFunc|
|00000650| 73 27 2c 20 27 52 65 78 | 78 55 74 69 6c 27 2c 20 |s', 'Rex|xUtil', |
|00000660| 27 53 79 73 4c 6f 61 64 | 46 75 6e 63 73 27 0d 0a |'SysLoad|Funcs'..|
|00000670| 20 20 20 43 41 4c 4c 20 | 53 79 73 4c 6f 61 64 46 |   CALL |SysLoadF|
|00000680| 75 6e 63 73 0d 0a 20 20 | 20 43 52 4c 46 20 3d 20 |uncs..  | CRLF = |
|00000690| 27 30 44 30 41 27 58 0d | 0a 0d 0a 20 20 20 50 41 |'0D0A'X.|...   PA|
|000006a0| 52 53 45 20 41 52 47 20 | 68 77 6e 64 20 69 6e 69 |RSE ARG |hwnd ini|
|000006b0| 46 69 6c 65 20 72 65 73 | 74 0d 0a 20 20 20 44 72 |File res|t..   Dr|
|000006c0| 73 41 69 64 65 20 3d 20 | 28 6c 65 66 74 28 20 68 |sAide = |(left( h|
|000006d0| 77 6e 64 2c 20 32 20 29 | 20 3d 20 27 2d 48 27 29 |wnd, 2 )| = '-H')|
|000006e0| 0d 0a 20 20 20 49 46 20 | 44 72 73 41 69 64 65 20 |..   IF |DrsAide |
|000006f0| 54 48 45 4e 20 44 4f 0d | 0a 20 20 20 20 20 20 43 |THEN DO.|.      C|
|00000700| 41 4c 4c 20 44 72 44 69 | 61 6c 6f 67 20 27 49 6e |ALL DrDi|alog 'In|
|00000710| 69 74 27 2c 20 68 77 6e | 64 0d 0a 20 20 20 20 20 |it', hwn|d..     |
|00000720| 20 43 41 4c 4c 20 44 72 | 44 69 61 6c 6f 67 20 27 | CALL Dr|Dialog '|
|00000730| 4f 77 6e 65 72 27 2c 20 | 27 72 65 76 69 65 77 27 |Owner', |'review'|
|00000740| 0d 0a 20 20 20 20 20 20 | 72 65 73 44 61 74 61 20 |..      |resData |
|00000750| 3d 20 44 72 44 69 61 6c | 6f 67 28 20 27 47 65 74 |= DrDial|og( 'Get|
|00000760| 52 65 73 27 20 29 0d 0a | 20 20 20 20 20 20 72 65 |Res' )..|      re|
|00000770| 73 46 69 6c 65 20 3d 20 | 44 72 44 69 61 6c 6f 67 |sFile = |DrDialog|
|00000780| 28 20 27 46 69 6c 65 4e | 61 6d 65 27 20 29 0d 0a |( 'FileN|ame' )..|
|00000790| 20 20 20 20 20 20 49 46 | 20 72 65 73 46 69 6c 65 |      IF| resFile|
|000007a0| 20 3d 20 27 27 20 54 48 | 45 4e 20 72 65 73 46 69 | = '' TH|EN resFi|
|000007b0| 6c 65 20 3d 20 27 3f 3f | 3f 27 0d 0a 20 20 20 20 |le = '??|?'..    |
|000007c0| 20 20 45 4e 44 0d 0a 20 | 20 20 45 4c 53 45 20 44 |  END.. |  ELSE D|
|000007d0| 4f 0d 0a 20 20 20 20 20 | 20 50 41 52 53 45 20 41 |O..     | PARSE A|
|000007e0| 52 47 20 72 65 73 46 69 | 6c 65 0d 0a 20 20 20 20 |RG resFi|le..    |
|000007f0| 20 20 49 46 20 6c 61 73 | 74 70 6f 73 28 20 27 2e |  IF las|tpos( '.|
|00000800| 27 2c 20 72 65 73 46 69 | 6c 65 20 29 20 3d 20 30 |', resFi|le ) = 0|
|00000810| 20 54 48 45 4e 20 72 65 | 73 46 69 6c 65 20 3d 20 | THEN re|sFile = |
|00000820| 72 65 73 46 69 6c 65 27 | 2e 52 45 53 27 0d 0a 20 |resFile'|.RES'.. |
|00000830| 20 20 20 20 20 49 46 20 | 28 53 79 73 46 69 6c 65 |     IF |(SysFile|
|00000840| 54 72 65 65 28 20 72 65 | 73 46 69 6c 65 2c 20 27 |Tree( re|sFile, '|
|00000850| 72 65 73 46 69 6c 65 73 | 27 2c 20 27 46 4f 27 20 |resFiles|', 'FO' |
|00000860| 29 20 3c 3e 20 30 29 20 | 7c 2c 0d 0a 20 20 20 20 |) <> 0) ||,..    |
|00000870| 20 20 20 20 20 28 72 65 | 73 46 69 6c 65 73 2e 30 |     (re|sFiles.0|
|00000880| 20 3c 3e 20 31 29 20 54 | 48 45 4e 20 44 4f 0d 0a | <> 1) T|HEN DO..|
|00000890| 20 20 20 20 20 20 20 20 | 20 43 41 4c 4c 20 45 72 |        | CALL Er|
|000008a0| 72 6f 72 20 27 50 6c 65 | 61 73 65 20 73 70 65 63 |ror 'Ple|ase spec|
|000008b0| 69 66 79 20 61 20 44 72 | 52 65 78 78 20 2e 52 45 |ify a Dr|Rexx .RE|
|000008c0| 53 20 66 69 6c 65 27 0d | 0a 20 20 20 20 20 20 20 |S file'.|.       |
|000008d0| 20 20 53 49 47 4e 41 4c | 20 52 45 54 55 52 4e 0d |  SIGNAL| RETURN.|
|000008e0| 0a 20 20 20 20 20 20 20 | 20 20 45 4e 44 0d 0a 20 |.       |  END.. |
|000008f0| 20 20 20 20 20 72 65 73 | 46 69 6c 65 20 3d 20 72 |     res|File = r|
|00000900| 65 73 46 69 6c 65 73 2e | 31 0d 0a 20 20 20 20 20 |esFiles.|1..     |
|00000910| 20 72 65 73 44 61 74 61 | 20 3d 20 43 68 61 72 49 | resData| = CharI|
|00000920| 6e 28 20 72 65 73 46 69 | 6c 65 2c 20 31 2c 20 43 |n( resFi|le, 1, C|
|00000930| 68 61 72 73 28 20 72 65 | 73 46 69 6c 65 20 29 20 |hars( re|sFile ) |
|00000940| 29 0d 0a 20 20 20 20 20 | 20 43 41 4c 4c 20 53 74 |)..     | CALL St|
|00000950| 72 65 61 6d 20 72 65 73 | 46 69 6c 65 2c 20 27 43 |ream res|File, 'C|
|00000960| 27 2c 20 27 43 4c 4f 53 | 45 27 0d 0a 20 20 20 20 |', 'CLOS|E'..    |
|00000970| 20 20 45 4e 44 0d 0a 20 | 20 20 6c 6f 67 67 69 6e |  END.. |  loggin|
|00000980| 67 20 20 20 20 20 3d 20 | 30 0d 0a 20 20 20 63 6f |g     = |0..   co|
|00000990| 6c 75 6d 6e 20 20 20 20 | 20 20 3d 20 31 0d 0a 20 |lumn    |  = 1.. |
|000009a0| 20 20 64 69 61 6c 6f 67 | 73 20 20 20 20 20 3d 20 |  dialog|s     = |
|000009b0| 30 0d 0a 20 20 20 64 69 | 61 6c 6f 67 4e 61 6d 65 |0..   di|alogName|
|000009c0| 73 20 3d 20 27 27 0d 0a | 20 20 20 67 6c 6f 62 61 |s = ''..|   globa|
|000009d0| 6c 73 20 20 20 20 20 3d | 20 27 27 0d 0a 20 20 20 |ls     =| ''..   |
|000009e0| 67 6c 6f 62 61 6c 50 72 | 6f 63 73 20 3d 20 27 27 |globalPr|ocs = ''|
|000009f0| 0d 0a 20 20 20 65 78 74 | 65 72 6e 61 6c 73 20 20 |..   ext|ernals  |
|00000a00| 20 3d 20 27 27 0d 0a 20 | 20 20 75 6e 6b 6e 6f 77 | = ''.. |  unknow|
|00000a10| 6e 20 20 20 20 20 3d 20 | 27 27 0d 0a 20 20 20 6d |n     = |''..   m|
|00000a20| 6f 64 69 66 69 65 64 20 | 20 20 20 3d 20 30 0d 0a |odified |   = 0..|
|00000a30| 20 20 20 64 69 61 6c 6f | 67 4d 61 73 74 65 72 49 |   dialo|gMasterI|
|00000a40| 74 65 6d 20 20 20 20 3d | 20 27 27 0d 0a 20 20 20 |tem    =| ''..   |
|00000a50| 67 6c 6f 62 61 6c 73 4d | 61 73 74 65 72 49 74 65 |globalsM|asterIte|
|00000a60| 6d 20 20 20 3d 20 27 27 | 0d 0a 20 20 20 65 78 74 |m   = ''|..   ext|
|00000a70| 65 72 6e 61 6c 73 4d 61 | 73 74 65 72 49 74 65 6d |ernalsMa|sterItem|
|00000a80| 20 3d 20 27 27 0d 0a 20 | 20 20 44 4f 20 46 4f 52 | = ''.. |  DO FOR|
|00000a90| 45 56 45 52 0d 0a 20 20 | 20 20 20 20 49 46 20 63 |EVER..  |    IF c|
|00000aa0| 6f 6c 75 6d 6e 20 3e 20 | 6c 65 6e 67 74 68 28 20 |olumn > |length( |
|00000ab0| 72 65 73 44 61 74 61 20 | 29 20 54 48 45 4e 20 4c |resData |) THEN L|
|00000ac0| 45 41 56 45 0d 0a 20 20 | 20 20 20 20 49 46 20 73 |EAVE..  |    IF s|
|00000ad0| 75 62 73 74 72 28 20 72 | 65 73 44 61 74 61 2c 20 |ubstr( r|esData, |
|00000ae0| 63 6f 6c 75 6d 6e 2c 20 | 31 20 29 20 3c 3e 20 27 |column, |1 ) <> '|
|00000af0| 46 46 27 58 20 54 48 45 | 4e 20 44 4f 0d 0a 20 20 |FF'X THE|N DO..  |
|00000b00| 20 20 20 20 20 20 20 43 | 41 4c 4c 20 45 72 72 6f |       C|ALL Erro|
|00000b10| 72 20 72 65 73 46 69 6c | 65 20 27 69 73 20 6e 6f |r resFil|e 'is no|
|00000b20| 74 20 61 20 76 61 6c 69 | 64 20 2e 52 45 53 20 66 |t a vali|d .RES f|
|00000b30| 69 6c 65 27 0d 0a 20 20 | 20 20 20 20 20 20 20 53 |ile'..  |       S|
|00000b40| 49 47 4e 41 4c 20 52 45 | 54 55 52 4e 0d 0a 20 20 |IGNAL RE|TURN..  |
|00000b50| 20 20 20 20 20 20 20 45 | 4e 44 0d 0a 20 20 20 20 |       E|ND..    |
|00000b60| 20 20 74 79 70 65 20 20 | 20 3d 20 43 32 44 28 20 |  type  | = C2D( |
|00000b70| 72 65 76 65 72 73 65 28 | 20 73 75 62 73 74 72 28 |reverse(| substr(|
|00000b80| 20 72 65 73 44 61 74 61 | 2c 20 63 6f 6c 75 6d 6e | resData|, column|
|00000b90| 20 2b 20 31 2c 20 32 20 | 29 20 29 20 29 0d 0a 20 | + 1, 2 |) ) ).. |
|00000ba0| 20 20 20 20 20 69 64 20 | 20 20 20 20 3d 20 43 32 |     id |    = C2|
|00000bb0| 44 28 20 72 65 76 65 72 | 73 65 28 20 73 75 62 73 |D( rever|se( subs|
|00000bc0| 74 72 28 20 72 65 73 44 | 61 74 61 2c 20 63 6f 6c |tr( resD|ata, col|
|00000bd0| 75 6d 6e 20 2b 20 34 2c | 20 32 20 29 20 29 20 29 |umn + 4,| 2 ) ) )|
|00000be0| 0d 0a 20 20 20 20 20 20 | 6c 65 6e 20 20 20 20 3d |..      |len    =|
|00000bf0| 20 43 32 44 28 20 72 65 | 76 65 72 73 65 28 20 73 | C2D( re|verse( s|
|00000c00| 75 62 73 74 72 28 20 72 | 65 73 44 61 74 61 2c 20 |ubstr( r|esData, |
|00000c10| 63 6f 6c 75 6d 6e 20 2b | 20 38 2c 20 34 20 29 20 |column +| 8, 4 ) |
|00000c20| 29 20 29 0d 0a 20 20 20 | 20 20 20 64 61 74 61 20 |) )..   |   data |
|00000c30| 20 20 3d 20 73 75 62 73 | 74 72 28 20 72 65 73 44 |  = subs|tr( resD|
|00000c40| 61 74 61 2c 20 63 6f 6c | 75 6d 6e 2c 20 6c 65 6e |ata, col|umn, len|
|00000c50| 20 2b 20 31 32 20 29 0d | 0a 20 20 20 20 20 20 63 | + 12 ).|.      c|
|00000c60| 6f 6c 75 6d 6e 20 3d 20 | 63 6f 6c 75 6d 6e 20 2b |olumn = |column +|
|00000c70| 20 6c 65 6e 20 2b 20 31 | 32 0d 0a 20 20 20 20 20 | len + 1|2..     |
|00000c80| 20 43 41 4c 4c 20 44 6f | 52 65 73 6f 75 72 63 65 | CALL Do|Resource|
|00000c90| 20 74 79 70 65 2c 20 69 | 64 2c 20 64 61 74 61 0d | type, i|d, data.|
|00000ca0| 0a 20 20 20 45 4e 44 0d | 0a 20 20 20 63 6f 6c 75 |.   END.|.   colu|
|00000cb0| 6d 6e 20 3d 20 6c 61 73 | 74 70 6f 73 28 20 27 2e |mn = las|tpos( '.|
|00000cc0| 27 2c 20 72 65 73 46 69 | 6c 65 20 29 0d 0a 20 20 |', resFi|le )..  |
|00000cd0| 20 49 46 20 63 6f 6c 75 | 6d 6e 20 3d 20 30 20 54 | IF colu|mn = 0 T|
|00000ce0| 48 45 4e 20 77 6f 72 6b | 46 69 6c 65 20 3d 20 72 |HEN work|File = r|
|00000cf0| 65 73 46 69 6c 65 27 2e | 27 0d 0a 20 20 20 45 4c |esFile'.|'..   EL|
|00000d00| 53 45 20 77 6f 72 6b 46 | 69 6c 65 20 3d 20 6c 65 |SE workF|ile = le|
|00000d10| 66 74 28 20 72 65 73 46 | 69 6c 65 2c 20 63 6f 6c |ft( resF|ile, col|
|00000d20| 75 6d 6e 20 29 0d 0a 20 | 20 20 77 6f 72 6b 46 69 |umn ).. |  workFi|
|00000d30| 6c 65 20 3d 20 53 79 73 | 54 65 6d 70 46 69 6c 65 |le = Sys|TempFile|
|00000d40| 4e 61 6d 65 28 20 77 6f | 72 6b 46 69 6c 65 27 3f |Name( wo|rkFile'?|
|00000d50| 3f 3f 27 20 29 0d 0a 20 | 20 20 49 46 20 28 77 6f |??' ).. |  IF (wo|
|00000d60| 72 6b 46 69 6c 65 20 3d | 20 27 27 29 20 7c 2c 0d |rkFile =| '') |,.|
|00000d70| 0a 20 20 20 20 20 20 28 | 43 68 61 72 4f 75 74 28 |.      (|CharOut(|
|00000d80| 20 77 6f 72 6b 46 69 6c | 65 2c 20 72 65 73 44 61 | workFil|e, resDa|
|00000d90| 74 61 20 29 20 3c 3e 20 | 30 29 20 7c 2c 0d 0a 20 |ta ) <> |0) |,.. |
|00000da0| 20 20 20 20 20 28 53 74 | 72 65 61 6d 28 20 77 6f |     (St|ream( wo|
|00000db0| 72 6b 46 69 6c 65 2c 20 | 27 43 27 2c 20 27 43 4c |rkFile, |'C', 'CL|
|00000dc0| 4f 53 45 27 20 29 20 3c | 3e 20 27 52 45 41 44 59 |OSE' ) <|> 'READY|
|00000dd0| 3a 27 29 20 54 48 45 4e | 20 44 4f 0d 0a 20 20 20 |:') THEN| DO..   |
|00000de0| 20 20 20 43 41 4c 4c 20 | 45 72 72 6f 72 20 27 43 |   CALL |Error 'C|
|00000df0| 6f 75 6c 64 20 6e 6f 74 | 20 63 72 65 61 74 65 20 |ould not| create |
|00000e00| 74 65 6d 70 6f 72 61 72 | 79 20 66 69 6c 65 27 0d |temporar|y file'.|
|00000e10| 0a 20 20 20 20 20 20 53 | 49 47 4e 41 4c 20 52 45 |.      S|IGNAL RE|
|00000e20| 54 55 52 4e 0d 0a 20 20 | 20 20 20 20 45 4e 44 0d |TURN..  |    END.|
|00000e30| 0a 20 20 20 64 72 6f 70 | 46 69 6c 65 20 3d 20 74 |.   drop|File = t|
|00000e40| 72 61 6e 73 6c 61 74 65 | 28 20 77 6f 72 6b 46 69 |ranslate|( workFi|
|00000e50| 6c 65 2c 20 27 3b 27 2c | 20 27 3a 27 20 29 0d 0a |le, ';',| ':' )..|
|00000e60| 20 20 20 63 6f 6c 75 6d | 6e 20 20 20 3d 20 6c 61 |   colum|n   = la|
|00000e70| 73 74 70 6f 73 28 20 27 | 5c 27 2c 20 72 65 73 46 |stpos( '|\', resF|
|00000e80| 69 6c 65 20 29 0d 0a 20 | 20 20 49 46 20 63 6f 6c |ile ).. |  IF col|
|00000e90| 75 6d 6e 20 3d 20 30 20 | 54 48 45 4e 20 63 6f 6c |umn = 0 |THEN col|
|00000ea0| 75 6d 6e 20 3d 20 70 6f | 73 28 20 27 3a 27 2c 20 |umn = po|s( ':', |
|00000eb0| 72 65 73 46 69 6c 65 20 | 29 0d 0a 20 20 20 6d 61 |resFile |)..   ma|
|00000ec0| 73 74 65 72 49 74 65 6d | 20 3d 20 63 6f 6e 74 61 |sterItem| = conta|
|00000ed0| 69 6e 65 72 2e 41 64 64 | 28 20 73 75 62 73 74 72 |iner.Add|( substr|
|00000ee0| 28 20 72 65 73 46 69 6c | 65 2c 20 63 6f 6c 75 6d |( resFil|e, colum|
|00000ef0| 6e 20 2b 20 31 20 29 2c | 20 27 44 52 42 49 54 4d |n + 1 ),| 'DRBITM|
|00000f00| 41 50 3a 23 36 27 20 29 | 0d 0a 20 20 20 43 41 4c |AP:#6' )|..   CAL|
|00000f10| 4c 20 63 6f 6e 74 61 69 | 6e 65 72 2e 44 72 61 67 |L contai|ner.Drag|
|00000f20| 20 6d 61 73 74 65 72 49 | 74 65 6d 2c 20 27 52 45 | masterI|tem, 'RE|
|00000f30| 56 69 73 65 52 45 53 3d | 27 77 6f 72 6b 46 69 6c |ViseRES=|'workFil|
|00000f40| 65 0d 0a 20 20 20 49 46 | 20 64 69 61 6c 6f 67 73 |e..   IF| dialogs|
|00000f50| 20 3e 20 30 20 54 48 45 | 4e 20 43 41 4c 4c 20 49 | > 0 THE|N CALL I|
|00000f60| 6e 69 74 44 69 61 6c 6f | 67 73 0d 0a 20 20 20 44 |nitDialo|gs..   D|
|00000f70| 4f 20 64 20 3d 20 31 20 | 54 4f 20 64 69 61 6c 6f |O d = 1 |TO dialo|
|00000f80| 67 73 0d 0a 20 20 20 20 | 20 20 69 64 20 3d 20 64 |gs..    |  id = d|
|00000f90| 69 61 6c 6f 67 2e 64 0d | 0a 20 20 20 20 20 20 49 |ialog.d.|.      I|
|00000fa0| 46 20 6e 61 6d 65 73 2e | 69 64 20 3d 20 27 27 20 |F names.|id = '' |
|00000fb0| 54 48 45 4e 20 6e 61 6d | 65 20 3d 20 27 44 27 69 |THEN nam|e = 'D'i|
|00000fc0| 64 0d 0a 20 20 20 20 20 | 20 45 4c 53 45 20 44 4f |d..     | ELSE DO|
|00000fd0| 0d 0a 20 20 20 20 20 20 | 20 20 20 63 75 72 6c 65 |..      |   curle|
|00000fe0| 6e 20 3d 20 43 32 44 28 | 20 73 75 62 73 74 72 28 |n = C2D(| substr(|
|00000ff0| 20 6e 61 6d 65 73 2e 69 | 64 2c 20 31 37 2c 20 31 | names.i|d, 17, 1|
|00001000| 20 29 20 29 0d 0a 20 20 | 20 20 20 20 20 20 20 49 | ) )..  |       I|
|00001010| 46 20 63 75 72 6c 65 6e | 20 3d 20 30 20 54 48 45 |F curlen| = 0 THE|
|00001020| 4e 20 6e 61 6d 65 20 3d | 20 27 44 27 69 64 0d 0a |N name =| 'D'id..|
|00001030| 20 20 20 20 20 20 20 20 | 20 45 4c 53 45 20 44 4f |        | ELSE DO|
|00001040| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 6e 61 |..      |      na|
|00001050| 6d 65 20 3d 20 73 75 62 | 73 74 72 28 20 6e 61 6d |me = sub|str( nam|
|00001060| 65 73 2e 69 64 2c 20 31 | 38 2c 20 63 75 72 6c 65 |es.id, 1|8, curle|
|00001070| 6e 20 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |n )..   |        |
|00001080| 20 64 69 61 6c 6f 67 4e | 61 6d 65 73 20 3d 20 64 | dialogN|ames = d|
|00001090| 69 61 6c 6f 67 4e 61 6d | 65 73 20 6e 61 6d 65 0d |ialogNam|es name.|
|000010a0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 |.       |     END|
|000010b0| 0d 0a 20 20 20 20 20 20 | 20 20 20 45 4e 44 0d 0a |..      |   END..|
|000010c0| 20 20 20 20 20 20 64 69 | 61 6c 6f 67 49 74 65 6d |      di|alogItem|
|000010d0| 2e 69 64 20 3d 20 63 6f | 6e 74 61 69 6e 65 72 2e |.id = co|ntainer.|
|000010e0| 41 64 64 28 20 6e 61 6d | 65 2c 20 27 44 52 42 49 |Add( nam|e, 'DRBI|
|000010f0| 54 4d 41 50 3a 23 31 27 | 2c 2c 0d 0a 20 20 20 20 |TMAP:#1'|,,..    |
|00001100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001120| 20 27 4c 41 53 54 27 2c | 20 64 69 61 6c 6f 67 4d | 'LAST',| dialogM|
|00001130| 61 73 74 65 72 49 74 65 | 6d 20 29 0d 0a 20 20 20 |asterIte|m )..   |
|00001140| 20 20 20 43 41 4c 4c 20 | 63 6f 6e 74 61 69 6e 65 |   CALL |containe|
|00001150| 72 2e 44 72 61 67 20 64 | 69 61 6c 6f 67 49 74 65 |r.Drag d|ialogIte|
|00001160| 6d 2e 69 64 2c 2c 0d 0a | 20 20 20 20 20 20 20 20 |m.id,,..|        |
|00001170| 20 20 20 27 52 45 56 69 | 73 65 44 69 61 6c 6f 67 |   'REVi|seDialog|
|00001180| 2c 52 45 56 69 73 65 44 | 69 61 6c 6f 67 3e 27 64 |,REViseD|ialog>'d|
|00001190| 72 6f 70 46 69 6c 65 27 | 3d 27 77 6f 72 6b 46 69 |ropFile'|='workFi|
|000011a0| 6c 65 27 28 27 69 64 27 | 29 27 0d 0a 20 20 20 45 |le'('id'|)'..   E|
|000011b0| 4e 44 0d 0a 20 20 20 64 | 69 61 6c 6f 67 4e 61 6d |ND..   d|ialogNam|
|000011c0| 65 73 20 3d 20 64 69 61 | 6c 6f 67 4e 61 6d 65 73 |es = dia|logNames|
|000011d0| 27 20 27 0d 0a 20 20 20 | 49 46 20 67 6c 6f 62 61 |' '..   |IF globa|
|000011e0| 6c 73 20 3c 3e 20 27 27 | 20 54 48 45 4e 20 44 4f |ls <> ''| THEN DO|
|000011f0| 0d 0a 20 20 20 20 20 20 | 43 41 4c 4c 20 49 6e 69 |..      |CALL Ini|
|00001200| 74 47 6c 6f 62 61 6c 73 | 0d 0a 20 20 20 20 20 20 |tGlobals|..      |
|00001210| 43 41 4c 4c 20 44 6f 50 | 72 6f 63 73 0d 0a 20 20 |CALL DoP|rocs..  |
|00001220| 20 20 20 20 67 6c 6f 62 | 61 6c 50 72 6f 63 73 20 |    glob|alProcs |
|00001230| 3d 20 67 6c 6f 62 61 6c | 50 72 6f 63 73 27 20 27 |= global|Procs' '|
|00001240| 0d 0a 20 20 20 20 20 20 | 45 4e 44 0d 0a 20 20 20 |..      |END..   |
|00001250| 49 46 20 65 78 74 65 72 | 6e 61 6c 73 20 3c 3e 20 |IF exter|nals <> |
|00001260| 27 27 20 54 48 45 4e 20 | 43 41 4c 4c 20 49 6e 69 |'' THEN |CALL Ini|
|00001270| 74 45 78 74 65 72 6e 61 | 6c 73 0d 0a 20 20 20 43 |tExterna|ls..   C|
|00001280| 41 4c 4c 20 41 64 64 2e | 44 72 6f 70 20 27 52 45 |ALL Add.|Drop 'RE|
|00001290| 56 69 73 65 52 45 53 2c | 52 45 56 69 73 65 44 69 |ViseRES,|REViseDi|
|000012a0| 61 6c 6f 67 2c 52 45 56 | 69 73 65 47 6c 6f 62 61 |alog,REV|iseGloba|
|000012b0| 6c 2c 52 45 56 69 73 65 | 45 78 74 65 72 6e 61 6c |l,REVise|External|
|000012c0| 27 0d 0a 20 20 20 43 41 | 4c 4c 20 44 65 6c 65 74 |'..   CA|LL Delet|
|000012d0| 65 2e 44 72 6f 70 20 27 | 52 45 56 69 73 65 52 45 |e.Drop '|REViseRE|
|000012e0| 53 3e 27 64 72 6f 70 46 | 69 6c 65 27 2c 52 45 56 |S>'dropF|ile',REV|
|000012f0| 69 73 65 44 69 61 6c 6f | 67 3e 27 64 72 6f 70 46 |iseDialo|g>'dropF|
|00001300| 69 6c 65 20 7c 7c 2c 0d | 0a 20 20 20 20 20 20 20 |ile ||,.|.       |
|00001310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 27 2c 52 |        |     ',R|
|00001320| 45 56 69 73 65 47 6c 6f | 62 61 6c 3e 27 64 72 6f |EViseGlo|bal>'dro|
|00001330| 70 46 69 6c 65 27 2c 52 | 45 56 69 73 65 45 78 74 |pFile',R|EViseExt|
|00001340| 65 72 6e 61 6c 3e 27 64 | 72 6f 70 46 69 6c 65 0d |ernal>'d|ropFile.|
|00001350| 0a 20 20 20 43 41 4c 4c | 20 63 6f 6e 74 61 69 6e |.   CALL| contain|
|00001360| 65 72 2e 56 69 65 77 20 | 27 48 69 65 72 61 72 63 |er.View |'Hierarc|
|00001370| 68 79 27 0d 0a 20 20 20 | 43 41 4c 4c 20 63 6f 6e |hy'..   |CALL con|
|00001380| 74 61 69 6e 65 72 2e 53 | 68 6f 77 0d 0a 20 20 20 |tainer.S|how..   |
|00001390| 43 41 4c 4c 20 54 65 78 | 74 20 27 52 45 56 69 73 |CALL Tex|t 'REVis|
|000013a0| 65 3a 27 20 72 65 73 46 | 69 6c 65 0d 0a 20 20 20 |e:' resF|ile..   |
|000013b0| 50 41 52 53 45 20 56 41 | 4c 55 45 20 50 6f 73 69 |PARSE VA|LUE Posi|
|000013c0| 74 69 6f 6e 28 29 20 57 | 49 54 48 20 2e 20 2e 20 |tion() W|ITH . . |
|000013d0| 64 78 20 64 79 0d 0a 20 | 20 20 50 41 52 53 45 20 |dx dy.. |  PARSE |
|000013e0| 56 41 4c 55 45 20 63 6f | 6e 74 61 69 6e 65 72 2e |VALUE co|ntainer.|
|000013f0| 50 6f 73 69 74 69 6f 6e | 28 29 20 57 49 54 48 20 |Position|() WITH |
|00001400| 63 78 20 63 79 20 63 64 | 78 20 63 64 79 0d 0a 20 |cx cy cd|x cdy.. |
|00001410| 20 20 50 41 52 53 45 20 | 56 41 4c 55 45 20 61 64 |  PARSE |VALUE ad|
|00001420| 64 2e 50 6f 73 69 74 69 | 6f 6e 28 29 20 57 49 54 |d.Positi|on() WIT|
|00001430| 48 20 61 78 20 61 79 20 | 61 64 78 20 61 64 79 0d |H ax ay |adx ady.|
|00001440| 0a 20 20 20 43 41 4c 4c | 20 53 68 6f 77 0d 0a 20 |.   CALL| Show.. |
|00001450| 20 20 53 49 47 4e 41 4c | 20 52 45 54 55 52 4e 0d |  SIGNAL| RETURN.|
|00001460| 0a 0d 0a 44 6f 52 65 73 | 6f 75 72 63 65 3a 0d 0a |...DoRes|ource:..|
|00001470| 20 20 20 53 45 4c 45 43 | 54 0d 0a 20 20 20 20 20 |   SELEC|T..     |
|00001480| 57 48 45 4e 20 61 72 67 | 28 31 29 20 3d 20 33 20 |WHEN arg|(1) = 3 |
|00001490| 54 48 45 4e 20 44 4f 20 | 2f 2a 20 4d 65 6e 75 20 |THEN DO |/* Menu |
|000014a0| 2a 2f 0d 0a 20 20 20 20 | 20 20 20 69 64 20 20 20 |*/..    |   id   |
|000014b0| 20 20 20 20 20 20 3d 20 | 61 72 67 28 32 29 0d 0a |      = |arg(2)..|
|000014c0| 20 20 20 20 20 20 20 6d | 65 6e 75 52 65 73 2e 69 |       m|enuRes.i|
|000014d0| 64 20 3d 20 61 72 67 28 | 33 29 0d 0a 20 20 20 20 |d = arg(|3)..    |
|000014e0| 20 20 20 45 4e 44 0d 0a | 20 20 20 20 20 57 48 45 |   END..|     WHE|
|000014f0| 4e 20 61 72 67 28 31 29 | 20 3d 20 34 20 54 48 45 |N arg(1)| = 4 THE|
|00001500| 4e 20 44 4f 20 2f 2a 20 | 44 69 61 6c 6f 67 20 2a |N DO /* |Dialog *|
|00001510| 2f 0d 0a 20 20 20 20 20 | 20 20 69 64 20 3d 20 61 |/..     |  id = a|
|00001520| 72 67 28 32 29 0d 0a 20 | 20 20 20 20 20 20 43 41 |rg(2).. |      CA|
|00001530| 4c 4c 20 44 69 61 6c 6f | 67 41 64 64 20 69 64 0d |LL Dialo|gAdd id.|
|00001540| 0a 20 20 20 20 20 20 20 | 64 69 61 6c 6f 67 52 65 |.       |dialogRe|
|00001550| 73 2e 69 64 20 3d 20 61 | 72 67 28 33 29 0d 0a 20 |s.id = a|rg(3).. |
|00001560| 20 20 20 20 20 20 45 4e | 44 0d 0a 20 20 20 20 20 |      EN|D..     |
|00001570| 57 48 45 4e 20 61 72 67 | 28 31 29 20 3d 20 35 36 |WHEN arg|(1) = 56|
|00001580| 33 32 30 20 54 48 45 4e | 20 44 4f 20 2f 2a 20 44 |320 THEN| DO /* D|
|00001590| 69 61 6c 6f 67 2f 63 6f | 6e 74 72 6f 6c 20 6e 61 |ialog/co|ntrol na|
|000015a0| 6d 65 73 20 2a 2f 0d 0a | 20 20 20 20 20 20 20 43 |mes */..|       C|
|000015b0| 41 4c 4c 20 44 69 61 6c | 6f 67 4e 61 6d 65 73 20 |ALL Dial|ogNames |
|000015c0| 61 72 67 28 33 29 0d 0a | 20 20 20 20 20 20 20 45 |arg(3)..|       E|
|000015d0| 4e 44 0d 0a 20 20 20 20 | 20 57 48 45 4e 20 61 72 |ND..    | WHEN ar|
|000015e0| 67 28 31 29 20 3d 20 35 | 36 33 32 31 20 54 48 45 |g(1) = 5|6321 THE|
|000015f0| 4e 20 44 4f 20 2f 2a 20 | 47 6c 6f 62 61 6c 20 70 |N DO /* |Global p|
|00001600| 72 6f 63 65 64 75 72 65 | 73 20 63 6f 64 65 20 2a |rocedure|s code *|
|00001610| 2f 0d 0a 20 20 20 20 20 | 20 20 67 6c 6f 62 61 6c |/..     |  global|
|00001620| 73 20 3d 20 61 72 67 28 | 33 29 0d 0a 20 20 20 20 |s = arg(|3)..    |
|00001630| 20 20 20 45 4e 44 0d 0a | 20 20 20 20 20 57 48 45 |   END..|     WHE|
|00001640| 4e 20 61 72 67 28 31 29 | 20 3d 20 35 36 33 32 32 |N arg(1)| = 56322|
|00001650| 20 54 48 45 4e 20 44 4f | 20 2f 2a 20 45 78 74 65 | THEN DO| /* Exte|
|00001660| 72 6e 61 6c 20 63 6f 64 | 65 20 2a 2f 0d 0a 20 20 |rnal cod|e */..  |
|00001670| 20 20 20 20 20 65 78 74 | 65 72 6e 61 6c 73 20 3d |     ext|ernals =|
|00001680| 20 61 72 67 28 33 29 0d | 0a 20 20 20 20 20 20 20 | arg(3).|.       |
|00001690| 45 4e 44 0d 0a 20 20 20 | 20 20 57 48 45 4e 20 61 |END..   |  WHEN a|
|000016a0| 72 67 28 31 29 20 3d 20 | 35 36 33 32 33 20 54 48 |rg(1) = |56323 TH|
|000016b0| 45 4e 20 44 4f 20 2f 2a | 20 44 69 61 6c 6f 67 20 |EN DO /*| Dialog |
|000016c0| 6d 65 6e 75 20 63 6f 64 | 65 20 2a 2f 0d 0a 20 20 |menu cod|e */..  |
|000016d0| 20 20 20 20 20 69 64 20 | 20 20 20 20 20 3d 20 61 |     id |     = a|
|000016e0| 72 67 28 32 29 0d 0a 20 | 20 20 20 20 20 20 6d 65 |rg(2).. |      me|
|000016f0| 6e 75 2e 69 64 20 3d 20 | 61 72 67 28 33 29 0d 0a |nu.id = |arg(3)..|
|00001700| 20 20 20 20 20 20 20 45 | 4e 44 0d 0a 20 20 20 20 |       E|ND..    |
|00001710| 20 57 48 45 4e 20 61 72 | 67 28 31 29 20 3d 20 35 | WHEN ar|g(1) = 5|
|00001720| 36 33 32 34 20 54 48 45 | 4e 20 44 4f 20 2f 2a 20 |6324 THE|N DO /* |
|00001730| 44 69 61 6c 6f 67 20 65 | 76 65 6e 74 20 63 6f 64 |Dialog e|vent cod|
|00001740| 65 20 2a 2f 0d 0a 20 20 | 20 20 20 20 20 69 64 20 |e */..  |     id |
|00001750| 20 20 20 20 20 20 3d 20 | 61 72 67 28 32 29 0d 0a |      = |arg(2)..|
|00001760| 20 20 20 20 20 20 20 65 | 76 65 6e 74 2e 69 64 20 |       e|vent.id |
|00001770| 3d 20 61 72 67 28 33 29 | 0d 0a 20 20 20 20 20 20 |= arg(3)|..      |
|00001780| 20 45 4e 44 0d 0a 20 20 | 20 20 20 57 48 45 4e 20 | END..  |   WHEN |
|00001790| 61 72 67 28 31 29 20 3d | 20 35 36 33 32 35 20 54 |arg(1) =| 56325 T|
|000017a0| 48 45 4e 20 44 4f 20 2f | 2a 20 44 69 61 6c 6f 67 |HEN DO /|* Dialog|
|000017b0| 20 63 6c 61 73 73 20 63 | 6f 64 65 20 2a 2f 0d 0a | class c|ode */..|
|000017c0| 20 20 20 20 20 20 20 69 | 64 20 20 20 20 20 20 20 |       i|d       |
|000017d0| 3d 20 61 72 67 28 32 29 | 0d 0a 20 20 20 20 20 20 |= arg(2)|..      |
|000017e0| 20 63 6c 61 73 73 2e 69 | 64 20 3d 20 61 72 67 28 | class.i|d = arg(|
|000017f0| 33 29 0d 0a 20 20 20 20 | 20 20 20 45 4e 44 0d 0a |3)..    |   END..|
|00001800| 20 20 20 20 20 4f 54 48 | 45 52 57 49 53 45 20 75 |     OTH|ERWISE u|
|00001810| 6e 6b 6e 6f 77 6e 20 3d | 20 75 6e 6b 6e 6f 77 6e |nknown =| unknown|
|00001820| 20 7c 7c 20 61 72 67 28 | 33 29 0d 0a 20 20 20 45 | || arg(|3)..   E|
|00001830| 4e 44 0d 0a 20 20 20 52 | 45 54 55 52 4e 0d 0a 0d |ND..   R|ETURN...|
|00001840| 0a 44 69 61 6c 6f 67 41 | 64 64 3a 0d 0a 20 20 20 |.DialogA|dd:..   |
|00001850| 74 65 6d 70 20 3d 20 61 | 72 67 28 31 29 0d 0a 20 |temp = a|rg(1).. |
|00001860| 20 20 49 46 20 73 79 6d | 62 6f 6c 28 20 27 64 69 |  IF sym|bol( 'di|
|00001870| 61 6c 6f 67 52 65 73 2e | 74 65 6d 70 27 20 29 20 |alogRes.|temp' ) |
|00001880| 3c 3e 20 27 56 41 52 27 | 20 54 48 45 4e 20 44 4f |<> 'VAR'| THEN DO|
|00001890| 0d 0a 20 20 20 20 20 20 | 64 69 61 6c 6f 67 73 20 |..      |dialogs |
|000018a0| 20 20 20 20 20 20 20 3d | 20 64 69 61 6c 6f 67 73 |       =| dialogs|
|000018b0| 20 2b 20 31 0d 0a 20 20 | 20 20 20 20 64 69 61 6c | + 1..  |    dial|
|000018c0| 6f 67 2e 64 69 61 6c 6f | 67 73 20 3d 20 74 65 6d |og.dialo|gs = tem|
|000018d0| 70 0d 0a 20 20 20 20 20 | 20 64 69 61 6c 6f 67 52 |p..     | dialogR|
|000018e0| 65 73 2e 74 65 6d 70 20 | 3d 20 27 27 0d 0a 20 20 |es.temp |= ''..  |
|000018f0| 20 20 20 20 6d 65 6e 75 | 52 65 73 2e 74 65 6d 70 |    menu|Res.temp|
|00001900| 20 20 20 3d 20 27 27 0d | 0a 20 20 20 20 20 20 65 |   = ''.|.      e|
|00001910| 76 65 6e 74 2e 74 65 6d | 70 20 20 20 20 20 3d 20 |vent.tem|p     = |
|00001920| 27 27 0d 0a 20 20 20 20 | 20 20 63 6c 61 73 73 2e |''..    |  class.|
|00001930| 74 65 6d 70 20 20 20 20 | 20 3d 20 27 27 0d 0a 20 |temp    | = ''.. |
|00001940| 20 20 20 20 20 6d 65 6e | 75 2e 74 65 6d 70 20 20 |     men|u.temp  |
|00001950| 20 20 20 20 3d 20 27 27 | 0d 0a 20 20 20 20 20 20 |    = ''|..      |
|00001960| 6e 61 6d 65 73 2e 74 65 | 6d 70 20 20 20 20 20 3d |names.te|mp     =|
|00001970| 20 27 27 0d 0a 20 20 20 | 20 20 20 45 4e 44 0d 0a | ''..   |   END..|
|00001980| 20 20 20 52 45 54 55 52 | 4e 0d 0a 0d 0a 44 69 61 |   RETUR|N....Dia|
|00001990| 6c 6f 67 4e 61 6d 65 73 | 3a 0d 0a 20 20 20 69 20 |logNames|:..   i |
|000019a0| 20 20 20 20 3d 20 31 33 | 0d 0a 20 20 20 73 74 61 |    = 13|..   sta|
|000019b0| 72 74 20 3d 20 30 0d 0a | 20 20 20 64 61 74 61 20 |rt = 0..|   data |
|000019c0| 20 3d 20 61 72 67 28 31 | 29 0d 0a 20 20 20 44 4f | = arg(1|)..   DO|
|000019d0| 20 57 48 49 4c 45 20 69 | 20 3c 3d 20 6c 65 6e 67 | WHILE i| <= leng|
|000019e0| 74 68 28 20 64 61 74 61 | 20 29 0d 0a 20 20 20 20 |th( data| )..    |
|000019f0| 20 20 49 46 20 73 75 62 | 73 74 72 28 20 64 61 74 |  IF sub|str( dat|
|00001a00| 61 2c 20 69 20 2b 20 32 | 2c 20 32 20 29 20 3d 20 |a, i + 2|, 2 ) = |
|00001a10| 27 30 30 30 30 27 58 20 | 54 48 45 4e 20 44 4f 0d |'0000'X |THEN DO.|
|00001a20| 0a 20 20 20 20 20 20 20 | 20 20 49 46 20 73 74 61 |.       |  IF sta|
|00001a30| 72 74 20 3c 3e 20 30 20 | 54 48 45 4e 20 44 4f 0d |rt <> 0 |THEN DO.|
|00001a40| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 74 65 6d |.       |     tem|
|00001a50| 70 20 20 20 20 20 3d 20 | 69 20 2d 20 73 74 61 72 |p     = |i - star|
|00001a60| 74 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 6e |t..     |       n|
|00001a70| 61 6d 65 73 2e 69 64 20 | 3d 20 73 75 62 73 74 72 |ames.id |= substr|
|00001a80| 28 20 64 61 74 61 2c 20 | 31 2c 20 38 20 29 20 7c |( data, |1, 8 ) ||
|00001a90| 7c 20 72 65 76 65 72 73 | 65 28 20 44 32 43 28 20 || revers|e( D2C( |
|00001aa0| 74 65 6d 70 2c 20 34 20 | 29 20 29 20 7c 7c 2c 0d |temp, 4 |) ) ||,.|
|00001ab0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001ac0| 20 20 20 20 20 20 20 20 | 73 75 62 73 74 72 28 20 |        |substr( |
|00001ad0| 64 61 74 61 2c 20 73 74 | 61 72 74 2c 20 74 65 6d |data, st|art, tem|
|00001ae0| 70 20 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |p )..   |        |
|00001af0| 20 45 4e 44 0d 0a 20 20 | 20 20 20 20 20 20 20 69 | END..  |       i|
|00001b00| 64 20 3d 20 43 32 44 28 | 20 72 65 76 65 72 73 65 |d = C2D(| reverse|
|00001b10| 28 20 73 75 62 73 74 72 | 28 20 64 61 74 61 2c 20 |( substr|( data, |
|00001b20| 69 2c 20 32 20 29 20 29 | 20 29 0d 0a 20 20 20 20 |i, 2 ) )| )..    |
|00001b30| 20 20 20 20 20 43 41 4c | 4c 20 44 69 61 6c 6f 67 |     CAL|L Dialog|
|00001b40| 41 64 64 20 69 64 0d 0a | 20 20 20 20 20 20 20 20 |Add id..|        |
|00001b50| 20 73 74 61 72 74 20 3d | 20 69 0d 0a 20 20 20 20 | start =| i..    |
|00001b60| 20 20 20 20 20 45 4e 44 | 0d 0a 20 20 20 20 20 20 |     END|..      |
|00001b70| 69 20 3d 20 69 20 2b 20 | 43 32 44 28 20 73 75 62 |i = i + |C2D( sub|
|00001b80| 73 74 72 28 20 64 61 74 | 61 2c 20 69 20 2b 20 34 |str( dat|a, i + 4|
|00001b90| 2c 20 31 20 29 20 29 20 | 2b 20 35 0d 0a 20 20 20 |, 1 ) ) |+ 5..   |
|00001ba0| 45 4e 44 0d 0a 20 20 20 | 74 65 6d 70 20 20 20 20 |END..   |temp    |
|00001bb0| 20 3d 20 69 20 2d 20 73 | 74 61 72 74 0d 0a 20 20 | = i - s|tart..  |
|00001bc0| 20 6e 61 6d 65 73 2e 69 | 64 20 3d 20 73 75 62 73 | names.i|d = subs|
|00001bd0| 74 72 28 20 64 61 74 61 | 2c 20 31 2c 20 38 20 29 |tr( data|, 1, 8 )|
|00001be0| 20 7c 7c 20 72 65 76 65 | 72 73 65 28 20 44 32 43 | || reve|rse( D2C|
|00001bf0| 28 20 74 65 6d 70 2c 20 | 34 20 29 20 29 20 7c 7c |( temp, |4 ) ) |||
|00001c00| 2c 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,..     |        |
|00001c10| 20 73 75 62 73 74 72 28 | 20 64 61 74 61 2c 20 73 | substr(| data, s|
|00001c20| 74 61 72 74 2c 20 74 65 | 6d 70 20 29 0d 0a 20 20 |tart, te|mp )..  |
|00001c30| 20 52 45 54 55 52 4e 0d | 0a 0d 0a 44 6f 50 72 6f | RETURN.|...DoPro|
|00001c40| 63 73 3a 0d 0a 20 20 20 | 69 20 3d 20 31 33 0d 0a |cs:..   |i = 13..|
|00001c50| 20 20 20 44 4f 20 57 48 | 49 4c 45 20 69 20 3c 20 |   DO WH|ILE i < |
|00001c60| 6c 65 6e 67 74 68 28 20 | 67 6c 6f 62 61 6c 73 20 |length( |globals |
|00001c70| 29 0d 0a 20 20 20 20 20 | 20 6c 65 6e 20 20 3d 20 |)..     | len  = |
|00001c80| 43 32 44 28 20 73 75 62 | 73 74 72 28 20 67 6c 6f |C2D( sub|str( glo|
|00001c90| 62 61 6c 73 2c 20 69 2c | 20 31 20 29 20 29 0d 0a |bals, i,| 1 ) )..|
|00001ca0| 20 20 20 20 20 20 6e 61 | 6d 65 20 3d 20 73 75 62 |      na|me = sub|
|00001cb0| 73 74 72 28 20 67 6c 6f | 62 61 6c 73 2c 20 69 20 |str( glo|bals, i |
|00001cc0| 2b 20 31 2c 20 6c 65 6e | 20 29 0d 0a 20 20 20 20 |+ 1, len| )..    |
|00001cd0| 20 20 69 20 20 20 20 3d | 20 69 20 2b 20 6c 65 6e |  i    =| i + len|
|00001ce0| 20 2b 20 31 0d 0a 20 20 | 20 20 20 20 6c 65 6e 20 | + 1..  |    len |
|00001cf0| 20 3d 20 43 32 44 28 20 | 73 75 62 73 74 72 28 20 | = C2D( |substr( |
|00001d00| 67 6c 6f 62 61 6c 73 2c | 20 69 2c 20 31 20 29 20 |globals,| i, 1 ) |
|00001d10| 29 0d 0a 20 20 20 20 20 | 20 49 46 20 6c 65 6e 20 |)..     | IF len |
|00001d20| 3e 20 31 32 37 20 54 48 | 45 4e 20 44 4f 0d 0a 20 |> 127 TH|EN DO.. |
|00001d30| 20 20 20 20 20 20 20 20 | 69 20 20 20 3d 20 69 20 |        |i   = i |
|00001d40| 2b 20 31 0d 0a 20 20 20 | 20 20 20 20 20 20 6c 65 |+ 1..   |      le|
|00001d50| 6e 20 3d 20 28 6c 65 6e | 20 2d 20 31 32 38 29 20 |n = (len| - 128) |
|00001d60| 2b 20 31 32 38 20 2a 20 | 43 32 44 28 20 73 75 62 |+ 128 * |C2D( sub|
|00001d70| 73 74 72 28 20 67 6c 6f | 62 61 6c 73 2c 20 69 2c |str( glo|bals, i,|
|00001d80| 20 31 20 29 20 29 0d 0a | 20 20 20 20 20 20 20 20 | 1 ) )..|        |
|00001d90| 20 49 46 20 6c 65 6e 20 | 3e 20 31 36 33 31 37 20 | IF len |> 16317 |
|00001da0| 54 48 45 4e 20 44 4f 0d | 0a 20 20 20 20 20 20 20 |THEN DO.|.       |
|00001db0| 20 20 20 20 20 69 20 20 | 20 3d 20 69 20 2b 20 32 |     i  | = i + 2|
|00001dc0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 6c 65 |..      |      le|
|00001dd0| 6e 20 3d 20 28 6c 65 6e | 20 2d 20 31 36 33 31 38 |n = (len| - 16318|
|00001de0| 29 20 2b 20 31 36 33 31 | 38 2a 43 32 44 28 20 72 |) + 1631|8*C2D( r|
|00001df0| 65 76 65 72 73 65 28 20 | 73 75 62 73 74 72 28 67 |everse( |substr(g|
|00001e00| 6c 6f 62 61 6c 73 2c 20 | 69 2d 31 2c 20 32 29 29 |lobals, |i-1, 2))|
|00001e10| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 45 |)..     |       E|
|00001e20| 4e 44 0d 0a 20 20 20 20 | 20 20 20 20 20 45 4e 44 |ND..    |     END|
|00001e30| 0d 0a 20 20 20 20 20 20 | 69 20 3d 20 69 20 2b 20 |..      |i = i + |
|00001e40| 6c 65 6e 20 2b 20 31 0d | 0a 20 20 20 20 20 20 67 |len + 1.|.      g|
|00001e50| 6c 6f 62 61 6c 49 74 65 | 6d 2e 6e 61 6d 65 20 3d |lobalIte|m.name =|
|00001e60| 20 63 6f 6e 74 61 69 6e | 65 72 2e 41 64 64 28 20 | contain|er.Add( |
|00001e70| 6e 61 6d 65 2c 20 27 44 | 52 42 49 54 4d 41 50 3a |name, 'D|RBITMAP:|
|00001e80| 23 33 36 27 2c 2c 0d 0a | 20 20 20 20 20 20 20 20 |#36',,..|        |
|00001e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 27 |        |       '|
|00001eb0| 4c 41 53 54 27 2c 20 67 | 6c 6f 62 61 6c 73 4d 61 |LAST', g|lobalsMa|
|00001ec0| 73 74 65 72 49 74 65 6d | 20 29 0d 0a 20 20 20 20 |sterItem| )..    |
|00001ed0| 20 20 43 41 4c 4c 20 63 | 6f 6e 74 61 69 6e 65 72 |  CALL c|ontainer|
|00001ee0| 2e 44 72 61 67 20 67 6c | 6f 62 61 6c 49 74 65 6d |.Drag gl|obalItem|
|00001ef0| 2e 6e 61 6d 65 2c 2c 0d | 0a 20 20 20 20 20 20 20 |.name,,.|.       |
|00001f00| 20 20 20 20 27 52 45 56 | 69 73 65 47 6c 6f 62 61 |    'REV|iseGloba|
|00001f10| 6c 2c 52 45 56 69 73 65 | 47 6c 6f 62 61 6c 3e 27 |l,REVise|Global>'|
|00001f20| 64 72 6f 70 46 69 6c 65 | 27 3d 27 77 6f 72 6b 46 |dropFile|'='workF|
|00001f30| 69 6c 65 27 28 27 6e 61 | 6d 65 27 29 27 0d 0a 20 |ile'('na|me')'.. |
|00001f40| 20 20 20 20 20 67 6c 6f | 62 61 6c 50 72 6f 63 73 |     glo|balProcs|
|00001f50| 20 3d 20 67 6c 6f 62 61 | 6c 50 72 6f 63 73 20 6e | = globa|lProcs n|
|00001f60| 61 6d 65 0d 0a 20 20 20 | 45 4e 44 0d 0a 20 20 20 |ame..   |END..   |
|00001f70| 52 45 54 55 52 4e 0d 0a | 0d 0a 49 6e 69 74 44 69 |RETURN..|..InitDi|
|00001f80| 61 6c 6f 67 73 3a 0d 0a | 20 20 20 49 46 20 64 69 |alogs:..|   IF di|
|00001f90| 61 6c 6f 67 4d 61 73 74 | 65 72 49 74 65 6d 20 3d |alogMast|erItem =|
|00001fa0| 20 27 27 20 54 48 45 4e | 20 44 4f 0d 0a 20 20 20 | '' THEN| DO..   |
|00001fb0| 20 20 20 64 69 61 6c 6f | 67 4d 61 73 74 65 72 49 |   dialo|gMasterI|
|00001fc0| 74 65 6d 20 3d 20 63 6f | 6e 74 61 69 6e 65 72 2e |tem = co|ntainer.|
|00001fd0| 41 64 64 28 20 27 44 69 | 61 6c 6f 67 73 27 2c 20 |Add( 'Di|alogs', |
|00001fe0| 27 44 52 42 49 54 4d 41 | 50 3a 23 32 39 27 2c 2c |'DRBITMA|P:#29',,|
|00001ff0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00002000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002010| 20 20 20 20 20 20 20 20 | 20 20 27 4c 41 53 54 27 |        |  'LAST'|
|00002020| 2c 20 6d 61 73 74 65 72 | 49 74 65 6d 20 29 0d 0a |, master|Item )..|
|00002030| 20 20 20 20 20 20 43 41 | 4c 4c 20 63 6f 6e 74 61 |      CA|LL conta|
|00002040| 69 6e 65 72 2e 44 72 61 | 67 20 64 69 61 6c 6f 67 |iner.Dra|g dialog|
|00002050| 4d 61 73 74 65 72 49 74 | 65 6d 2c 2c 0d 0a 20 20 |MasterIt|em,,..  |
|00002060| 20 20 20 20 20 20 20 20 | 20 27 52 45 56 69 73 65 |        | 'REVise|
|00002070| 44 69 61 6c 6f 67 2c 52 | 45 56 69 73 65 44 69 61 |Dialog,R|EViseDia|
|00002080| 6c 6f 67 3e 27 64 72 6f | 70 46 69 6c 65 27 3d 27 |log>'dro|pFile'='|
|00002090| 77 6f 72 6b 46 69 6c 65 | 0d 0a 20 20 20 20 20 20 |workFile|..      |
|000020a0| 45 4e 44 0d 0a 20 20 20 | 52 45 54 55 52 4e 0d 0a |END..   |RETURN..|
|000020b0| 0d 0a 49 6e 69 74 47 6c | 6f 62 61 6c 73 3a 0d 0a |..InitGl|obals:..|
|000020c0| 20 20 20 49 46 20 67 6c | 6f 62 61 6c 73 4d 61 73 |   IF gl|obalsMas|
|000020d0| 74 65 72 49 74 65 6d 20 | 3d 20 27 27 20 54 48 45 |terItem |= '' THE|
|000020e0| 4e 20 44 4f 0d 0a 20 20 | 20 20 20 20 67 6c 6f 62 |N DO..  |    glob|
|000020f0| 61 6c 73 4d 61 73 74 65 | 72 49 74 65 6d 20 3d 20 |alsMaste|rItem = |
|00002100| 63 6f 6e 74 61 69 6e 65 | 72 2e 41 64 64 28 20 27 |containe|r.Add( '|
|00002110| 47 6c 6f 62 61 6c 20 70 | 72 6f 63 65 64 75 72 65 |Global p|rocedure|
|00002120| 73 27 2c 20 27 44 52 42 | 49 54 4d 41 50 3a 23 33 |s', 'DRB|ITMAP:#3|
|00002130| 37 27 2c 2c 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |7',,..  |        |
|00002140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 27 |        |       '|
|00002160| 4c 41 53 54 27 2c 20 6d | 61 73 74 65 72 49 74 65 |LAST', m|asterIte|
|00002170| 6d 20 29 0d 0a 20 20 20 | 20 20 20 43 41 4c 4c 20 |m )..   |   CALL |
|00002180| 63 6f 6e 74 61 69 6e 65 | 72 2e 44 72 61 67 20 67 |containe|r.Drag g|
|00002190| 6c 6f 62 61 6c 73 4d 61 | 73 74 65 72 49 74 65 6d |lobalsMa|sterItem|
|000021a0| 2c 2c 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 27 |,,..    |       '|
|000021b0| 52 45 56 69 73 65 47 6c | 6f 62 61 6c 2c 52 45 56 |REViseGl|obal,REV|
|000021c0| 69 73 65 47 6c 6f 62 61 | 6c 3e 27 64 72 6f 70 46 |iseGloba|l>'dropF|
|000021d0| 69 6c 65 27 3d 27 77 6f | 72 6b 46 69 6c 65 0d 0a |ile'='wo|rkFile..|
|000021e0| 20 20 20 20 20 20 45 4e | 44 0d 0a 20 20 20 52 45 |      EN|D..   RE|
|000021f0| 54 55 52 4e 0d 0a 0d 0a | 49 6e 69 74 45 78 74 65 |TURN....|InitExte|
|00002200| 72 6e 61 6c 73 3a 0d 0a | 20 20 20 49 46 20 65 78 |rnals:..|   IF ex|
|00002210| 74 65 72 6e 61 6c 73 4d | 61 73 74 65 72 49 74 65 |ternalsM|asterIte|
|00002220| 6d 73 20 3d 20 27 27 20 | 54 48 45 4e 20 44 4f 0d |ms = '' |THEN DO.|
|00002230| 0a 20 20 20 20 20 20 65 | 78 74 65 72 6e 61 6c 73 |.      e|xternals|
|00002240| 4d 61 73 74 65 72 49 74 | 65 6d 20 3d 20 63 6f 6e |MasterIt|em = con|
|00002250| 74 61 69 6e 65 72 2e 41 | 64 64 28 20 27 45 78 74 |tainer.A|dd( 'Ext|
|00002260| 65 72 6e 61 6c 20 70 72 | 6f 63 65 64 75 72 65 73 |ernal pr|ocedures|
|00002270| 27 2c 2c 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |',,..   |        |
|00002280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000022a0| 27 44 52 42 49 54 4d 41 | 50 3a 23 33 36 27 2c 2c |'DRBITMA|P:#36',,|
|000022b0| 20 27 4c 41 53 54 27 2c | 20 6d 61 73 74 65 72 49 | 'LAST',| masterI|
|000022c0| 74 65 6d 20 29 0d 0a 20 | 20 20 20 20 20 43 41 4c |tem ).. |     CAL|
|000022d0| 4c 20 63 6f 6e 74 61 69 | 6e 65 72 2e 44 72 61 67 |L contai|ner.Drag|
|000022e0| 20 65 78 74 65 72 6e 61 | 6c 73 4d 61 73 74 65 72 | externa|lsMaster|
|000022f0| 49 74 65 6d 2c 2c 0d 0a | 20 20 20 20 20 20 20 20 |Item,,..|        |
|00002300| 20 20 20 27 52 45 56 69 | 73 65 45 78 74 65 72 6e |   'REVi|seExtern|
|00002310| 61 6c 2c 52 45 56 69 73 | 65 45 78 74 65 72 6e 61 |al,REVis|eExterna|
|00002320| 6c 73 3e 27 64 72 6f 70 | 46 69 6c 65 27 3d 27 77 |ls>'drop|File'='w|
|00002330| 6f 72 6b 46 69 6c 65 0d | 0a 20 20 20 20 20 20 45 |orkFile.|.      E|
|00002340| 4e 44 0d 0a 20 20 20 52 | 45 54 55 52 4e 0d 0a 0d |ND..   R|ETURN...|
|00002350| 0a 44 6f 44 72 6f 70 44 | 65 6c 65 74 65 3a 0d 0a |.DoDropD|elete:..|
|00002360| 20 20 20 43 41 4c 4c 20 | 45 76 65 6e 74 44 61 74 |   CALL |EventDat|
|00002370| 61 0d 0a 20 20 20 50 41 | 52 53 45 20 56 41 4c 55 |a..   PA|RSE VALU|
|00002380| 45 20 45 76 65 6e 74 44 | 61 74 61 2e 31 20 57 49 |E EventD|ata.1 WI|
|00002390| 54 48 20 64 72 6f 70 52 | 65 73 46 69 6c 65 27 28 |TH dropR|esFile'(|
|000023a0| 27 64 72 6f 70 4e 61 6d | 65 27 29 27 0d 0a 20 20 |'dropNam|e')'..  |
|000023b0| 20 50 41 52 53 45 20 56 | 41 4c 55 45 20 45 76 65 | PARSE V|ALUE Eve|
|000023c0| 6e 74 44 61 74 61 2e 33 | 20 57 49 54 48 20 74 79 |ntData.3| WITH ty|
|000023d0| 70 65 27 3e 27 0d 0a 20 | 20 20 53 45 4c 45 43 54 |pe'>'.. |  SELECT|
|000023e0| 0d 0a 20 20 20 20 20 20 | 57 48 45 4e 20 74 79 70 |..      |WHEN typ|
|000023f0| 65 20 3d 20 27 52 45 56 | 69 73 65 44 69 61 6c 6f |e = 'REV|iseDialo|
|00002400| 67 27 20 54 48 45 4e 20 | 44 4f 0d 0a 20 20 20 20 |g' THEN |DO..    |
|00002410| 20 20 20 20 49 46 20 64 | 72 6f 70 4e 61 6d 65 20 |    IF d|ropName |
|00002420| 3c 3e 20 27 27 20 54 48 | 45 4e 20 43 41 4c 4c 20 |<> '' TH|EN CALL |
|00002430| 44 65 6c 65 74 65 44 69 | 61 6c 6f 67 20 64 72 6f |DeleteDi|alog dro|
|00002440| 70 4e 61 6d 65 0d 0a 20 | 20 20 20 20 20 20 20 45 |pName.. |       E|
|00002450| 4c 53 45 20 44 4f 20 57 | 48 49 4c 45 20 64 69 61 |LSE DO W|HILE dia|
|00002460| 6c 6f 67 73 20 3e 20 30 | 0d 0a 20 20 20 20 20 20 |logs > 0|..      |
|00002470| 20 20 20 20 20 20 20 20 | 20 20 43 41 4c 4c 20 44 |        |  CALL D|
|00002480| 65 6c 65 74 65 44 69 61 | 6c 6f 67 20 64 69 61 6c |eleteDia|log dial|
|00002490| 6f 67 2e 31 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |og.1..  |        |
|000024a0| 20 20 20 45 4e 44 0d 0a | 20 20 20 20 20 20 20 20 |   END..|        |
|000024b0| 45 4e 44 0d 0a 20 20 20 | 20 20 20 57 48 45 4e 20 |END..   |   WHEN |
|000024c0| 74 79 70 65 20 3d 20 27 | 52 45 56 69 73 65 47 6c |type = '|REViseGl|
|000024d0| 6f 62 61 6c 27 20 54 48 | 45 4e 20 44 4f 0d 0a 20 |obal' TH|EN DO.. |
|000024e0| 20 20 20 20 20 20 20 49 | 46 20 64 72 6f 70 4e 61 |       I|F dropNa|
|000024f0| 6d 65 20 3c 3e 20 27 27 | 20 54 48 45 4e 20 43 41 |me <> ''| THEN CA|
|00002500| 4c 4c 20 44 65 6c 65 74 | 65 50 72 6f 63 20 64 72 |LL Delet|eProc dr|
|00002510| 6f 70 4e 61 6d 65 0d 0a | 20 20 20 20 20 20 20 20 |opName..|        |
|00002520| 45 4c 53 45 20 44 4f 20 | 57 48 49 4c 45 20 67 6c |ELSE DO |WHILE gl|
|00002530| 6f 62 61 6c 50 72 6f 63 | 73 20 3c 3e 20 27 27 0d |obalProc|s <> ''.|
|00002540| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00002550| 20 43 41 4c 4c 20 44 65 | 6c 65 74 65 50 72 6f 63 | CALL De|leteProc|
|00002560| 20 77 6f 72 64 28 20 67 | 6c 6f 62 61 6c 50 72 6f | word( g|lobalPro|
|00002570| 63 73 2c 20 31 20 29 0d | 0a 20 20 20 20 20 20 20 |cs, 1 ).|.       |
|00002580| 20 20 20 20 20 20 45 4e | 44 0d 0a 20 20 20 20 20 |      EN|D..     |
|00002590| 20 20 20 45 4e 44 0d 0a | 20 20 20 20 20 20 57 48 |   END..|      WH|
|000025a0| 45 4e 20 74 79 70 65 20 | 3d 20 27 52 45 56 69 73 |EN type |= 'REVis|
|000025b0| 65 45 78 74 65 72 6e 61 | 6c 27 20 54 48 45 4e 20 |eExterna|l' THEN |
|000025c0| 44 4f 0d 0a 20 20 20 20 | 20 20 20 20 43 41 4c 4c |DO..    |    CALL|
|000025d0| 20 63 6f 6e 74 61 69 6e | 65 72 2e 44 65 6c 65 74 | contain|er.Delet|
|000025e0| 65 20 65 78 74 65 72 6e | 61 6c 73 4d 61 73 74 65 |e extern|alsMaste|
|000025f0| 72 49 74 65 6d 0d 0a 20 | 20 20 20 20 20 20 20 65 |rItem.. |       e|
|00002600| 78 74 65 72 6e 61 6c 73 | 4d 61 73 74 65 72 49 74 |xternals|MasterIt|
|00002610| 65 6d 20 3d 20 27 27 0d | 0a 20 20 20 20 20 20 20 |em = ''.|.       |
|00002620| 20 65 78 74 65 72 6e 61 | 6c 73 20 20 20 20 20 20 | externa|ls      |
|00002630| 20 20 20 20 20 3d 20 27 | 27 0d 0a 20 20 20 20 20 |     = '|'..     |
|00002640| 20 20 20 45 4e 44 0d 0a | 20 20 20 45 4e 44 0d 0a |   END..|   END..|
|00002650| 20 20 20 43 41 4c 4c 20 | 55 70 64 61 74 65 46 69 |   CALL |UpdateFi|
|00002660| 6c 65 0d 0a 20 20 20 44 | 52 4f 50 20 64 72 6f 70 |le..   D|ROP drop|
|00002670| 52 65 73 46 69 6c 65 20 | 64 72 6f 70 4e 61 6d 65 |ResFile |dropName|
|00002680| 0d 0a 20 20 20 53 49 47 | 4e 41 4c 20 52 45 54 55 |..   SIG|NAL RETU|
|00002690| 52 4e 0d 0a 0d 0a 44 65 | 6c 65 74 65 44 69 61 6c |RN....De|leteDial|
|000026a0| 6f 67 3a 0d 0a 20 20 20 | 69 64 20 3d 20 61 72 67 |og:..   |id = arg|
|000026b0| 28 31 29 0d 0a 20 20 20 | 44 52 4f 50 20 64 69 61 |(1)..   |DROP dia|
|000026c0| 6c 6f 67 52 65 73 2e 69 | 64 20 6d 65 6e 75 52 65 |logRes.i|d menuRe|
|000026d0| 73 2e 69 64 20 6d 65 6e | 75 2e 69 64 20 65 76 65 |s.id men|u.id eve|
|000026e0| 6e 74 2e 69 64 20 63 6c | 61 73 73 2e 69 64 20 6e |nt.id cl|ass.id n|
|000026f0| 61 6d 65 73 2e 69 64 0d | 0a 20 20 20 44 4f 20 6a |ames.id.|.   DO j|
|00002700| 20 3d 20 31 20 54 4f 20 | 64 69 61 6c 6f 67 73 0d | = 1 TO |dialogs.|
|00002710| 0a 20 20 20 20 20 20 49 | 46 20 69 64 20 3d 20 64 |.      I|F id = d|
|00002720| 69 61 6c 6f 67 2e 6a 20 | 54 48 45 4e 20 4c 45 41 |ialog.j |THEN LEA|
|00002730| 56 45 0d 0a 20 20 20 45 | 4e 44 0d 0a 20 20 20 44 |VE..   E|ND..   D|
|00002740| 4f 20 57 48 49 4c 45 20 | 6a 20 3c 20 64 69 61 6c |O WHILE |j < dial|
|00002750| 6f 67 73 0d 0a 20 20 20 | 20 20 20 6a 32 20 3d 20 |ogs..   |   j2 = |
|00002760| 6a 20 2b 20 31 0d 0a 20 | 20 20 20 20 20 64 69 61 |j + 1.. |     dia|
|00002770| 6c 6f 67 2e 6a 20 3d 20 | 64 69 61 6c 6f 67 2e 6a |log.j = |dialog.j|
|00002780| 32 0d 0a 20 20 20 20 20 | 20 6a 20 3d 20 6a 32 0d |2..     | j = j2.|
|00002790| 0a 20 20 20 45 4e 44 0d | 0a 20 20 20 43 41 4c 4c |.   END.|.   CALL|
|000027a0| 20 63 6f 6e 74 61 69 6e | 65 72 2e 44 65 6c 65 74 | contain|er.Delet|
|000027b0| 65 20 64 69 61 6c 6f 67 | 49 74 65 6d 2e 69 64 0d |e dialog|Item.id.|
|000027c0| 0a 20 20 20 44 52 4f 50 | 20 64 69 61 6c 6f 67 49 |.   DROP| dialogI|
|000027d0| 74 65 6d 2e 69 64 0d 0a | 20 20 20 64 69 61 6c 6f |tem.id..|   dialo|
|000027e0| 67 73 20 3d 20 64 69 61 | 6c 6f 67 73 20 2d 20 31 |gs = dia|logs - 1|
|000027f0| 0d 0a 20 20 20 49 46 20 | 64 69 61 6c 6f 67 73 20 |..   IF |dialogs |
|00002800| 3d 20 30 20 54 48 45 4e | 20 44 4f 0d 0a 20 20 20 |= 0 THEN| DO..   |
|00002810| 20 20 20 43 41 4c 4c 20 | 63 6f 6e 74 61 69 6e 65 |   CALL |containe|
|00002820| 72 2e 44 65 6c 65 74 65 | 20 64 69 61 6c 6f 67 4d |r.Delete| dialogM|
|00002830| 61 73 74 65 72 49 74 65 | 6d 0d 0a 20 20 20 20 20 |asterIte|m..     |
|00002840| 20 64 69 61 6c 6f 67 6d | 61 73 74 65 72 49 74 65 | dialogm|asterIte|
|00002850| 6d 20 3d 20 27 27 0d 0a | 20 20 20 20 20 20 45 4e |m = ''..|      EN|
|00002860| 44 0d 0a 20 20 20 52 45 | 54 55 52 4e 0d 0a 0d 0a |D..   RE|TURN....|
|00002870| 44 65 6c 65 74 65 50 72 | 6f 63 3a 0d 0a 20 20 20 |DeletePr|oc:..   |
|00002880| 70 72 6f 63 20 3d 20 61 | 72 67 28 31 29 0d 0a 20 |proc = a|rg(1).. |
|00002890| 20 20 69 20 20 20 20 3d | 20 31 33 0d 0a 20 20 20 |  i    =| 13..   |
|000028a0| 43 41 4c 4c 20 63 6f 6e | 74 61 69 6e 65 72 2e 44 |CALL con|tainer.D|
|000028b0| 65 6c 65 74 65 20 67 6c | 6f 62 61 6c 49 74 65 6d |elete gl|obalItem|
|000028c0| 2e 70 72 6f 63 0d 0a 20 | 20 20 67 6c 6f 62 61 6c |.proc.. |  global|
|000028d0| 49 74 65 6d 2e 70 72 6f | 63 20 3d 20 27 27 0d 0a |Item.pro|c = ''..|
|000028e0| 20 20 20 44 4f 20 57 48 | 49 4c 45 20 69 20 3c 20 |   DO WH|ILE i < |
|000028f0| 6c 65 6e 67 74 68 28 20 | 67 6c 6f 62 61 6c 73 20 |length( |globals |
|00002900| 29 0d 0a 20 20 20 20 20 | 20 6c 65 6e 20 20 3d 20 |)..     | len  = |
|00002910| 43 32 44 28 20 73 75 62 | 73 74 72 28 20 67 6c 6f |C2D( sub|str( glo|
|00002920| 62 61 6c 73 2c 20 69 2c | 20 31 20 29 20 29 0d 0a |bals, i,| 1 ) )..|
|00002930| 20 20 20 20 20 20 6e 61 | 6d 65 20 3d 20 73 75 62 |      na|me = sub|
|00002940| 73 74 72 28 20 67 6c 6f | 62 61 6c 73 2c 20 69 20 |str( glo|bals, i |
|00002950| 2b 20 31 2c 20 6c 65 6e | 20 29 0d 0a 20 20 20 20 |+ 1, len| )..    |
|00002960| 20 20 69 32 20 20 20 3d | 20 69 20 2b 20 6c 65 6e |  i2   =| i + len|
|00002970| 20 2b 20 31 0d 0a 20 20 | 20 20 20 20 6c 65 6e 20 | + 1..  |    len |
|00002980| 20 3d 20 43 32 44 28 20 | 73 75 62 73 74 72 28 20 | = C2D( |substr( |
|00002990| 67 6c 6f 62 61 6c 73 2c | 20 69 32 2c 20 31 20 29 |globals,| i2, 1 )|
|000029a0| 20 29 0d 0a 20 20 20 20 | 20 20 49 46 20 6c 65 6e | )..    |  IF len|
|000029b0| 20 3e 20 31 32 37 20 54 | 48 45 4e 20 44 4f 0d 0a | > 127 T|HEN DO..|
|000029c0| 20 20 20 20 20 20 20 20 | 20 69 32 20 20 3d 20 69 |        | i2  = i|
|000029d0| 32 2b 20 31 0d 0a 20 20 | 20 20 20 20 20 20 20 6c |2+ 1..  |       l|
|000029e0| 65 6e 20 3d 20 28 6c 65 | 6e 20 2d 20 31 32 38 29 |en = (le|n - 128)|
|000029f0| 20 2b 20 31 32 38 20 2a | 20 43 32 44 28 20 73 75 | + 128 *| C2D( su|
|00002a00| 62 73 74 72 28 20 67 6c | 6f 62 61 6c 73 2c 20 69 |bstr( gl|obals, i|
|00002a10| 32 2c 20 31 20 29 20 29 | 0d 0a 20 20 20 20 20 20 |2, 1 ) )|..      |
|00002a20| 20 20 20 49 46 20 6c 65 | 6e 20 3e 20 31 36 33 31 |   IF le|n > 1631|
|00002a30| 37 20 54 48 45 4e 20 44 | 4f 0d 0a 20 20 20 20 20 |7 THEN D|O..     |
|00002a40| 20 20 20 20 20 20 20 69 | 32 20 20 3d 20 69 32 20 |       i|2  = i2 |
|00002a50| 2b 20 32 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |+ 2..   |        |
|00002a60| 20 6c 65 6e 20 3d 20 28 | 6c 65 6e 2d 31 36 33 31 | len = (|len-1631|
|00002a70| 38 29 20 2b 20 31 36 33 | 31 38 2a 43 32 44 28 20 |8) + 163|18*C2D( |
|00002a80| 72 65 76 65 72 73 65 28 | 20 73 75 62 73 74 72 28 |reverse(| substr(|
|00002a90| 20 67 6c 6f 62 61 6c 73 | 2c 20 69 32 2d 31 2c 20 | globals|, i2-1, |
|00002aa0| 32 29 29 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |2)))..  |        |
|00002ab0| 20 20 45 4e 44 0d 0a 20 | 20 20 20 20 20 20 20 20 |  END.. |        |
|00002ac0| 45 4e 44 0d 0a 20 20 20 | 20 20 20 69 32 20 3d 20 |END..   |   i2 = |
|00002ad0| 69 32 20 2b 20 6c 65 6e | 20 2b 20 31 0d 0a 20 20 |i2 + len| + 1..  |
|00002ae0| 20 20 20 20 49 46 20 70 | 72 6f 63 20 3d 20 6e 61 |    IF p|roc = na|
|00002af0| 6d 65 20 54 48 45 4e 20 | 44 4f 0d 0a 20 20 20 20 |me THEN |DO..    |
|00002b00| 20 20 20 20 20 74 65 6d | 70 20 3d 20 73 75 62 73 |     tem|p = subs|
|00002b10| 74 72 28 20 67 6c 6f 62 | 61 6c 73 2c 20 31 33 2c |tr( glob|als, 13,|
|00002b20| 20 69 20 2d 20 31 33 20 | 29 20 7c 7c 20 73 75 62 | i - 13 |) || sub|
|00002b30| 73 74 72 28 20 67 6c 6f | 62 61 6c 73 2c 20 69 32 |str( glo|bals, i2|
|00002b40| 20 29 0d 0a 20 20 20 20 | 20 20 20 20 20 49 46 20 | )..    |     IF |
|00002b50| 6c 65 6e 67 74 68 28 20 | 74 65 6d 70 20 29 20 3c |length( |temp ) <|
|00002b60| 3d 20 31 20 54 48 45 4e | 20 44 4f 0d 0a 20 20 20 |= 1 THEN| DO..   |
|00002b70| 20 20 20 20 20 20 20 20 | 20 43 41 4c 4c 20 63 6f |        | CALL co|
|00002b80| 6e 74 61 69 6e 65 72 2e | 44 65 6c 65 74 65 20 67 |ntainer.|Delete g|
|00002b90| 6c 6f 62 61 6c 73 4d 61 | 73 74 65 72 49 74 65 6d |lobalsMa|sterItem|
|00002ba0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 67 6c |..      |      gl|
|00002bb0| 6f 62 61 6c 73 4d 61 73 | 74 65 72 49 74 65 6d 20 |obalsMas|terItem |
|00002bc0| 3d 20 27 27 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |= ''..  |        |
|00002bd0| 20 20 67 6c 6f 62 61 6c | 73 20 20 20 20 20 20 20 |  global|s       |
|00002be0| 20 20 20 20 3d 20 27 27 | 0d 0a 20 20 20 20 20 20 |    = ''|..      |
|00002bf0| 20 20 20 20 20 20 67 6c | 6f 62 61 6c 50 72 6f 63 |      gl|obalProc|
|00002c00| 73 20 20 20 20 20 20 20 | 3d 20 27 27 0d 0a 20 20 |s       |= ''..  |
|00002c10| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 0d 0a 20 |        |  END.. |
|00002c20| 20 20 20 20 20 20 20 20 | 45 4c 53 45 20 44 4f 0d |        |ELSE DO.|
|00002c30| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 67 6c 6f |.       |     glo|
|00002c40| 62 61 6c 73 20 3d 20 6c | 65 66 74 28 20 67 6c 6f |bals = l|eft( glo|
|00002c50| 62 61 6c 73 2c 20 38 20 | 29 20 7c 7c 20 72 65 76 |bals, 8 |) || rev|
|00002c60| 65 72 73 65 28 20 44 32 | 43 28 20 6c 65 6e 67 74 |erse( D2|C( lengt|
|00002c70| 68 28 74 65 6d 70 29 2c | 20 34 20 29 29 20 7c 7c |h(temp),| 4 )) |||
|00002c80| 2c 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,..     |        |
|00002c90| 20 20 20 20 20 20 20 20 | 20 74 65 6d 70 0d 0a 20 |        | temp.. |
|00002ca0| 20 20 20 20 20 20 20 20 | 20 20 20 63 6f 6c 20 3d |        |   col =|
|00002cb0| 20 70 6f 73 28 20 27 20 | 27 70 72 6f 63 27 20 27 | pos( ' |'proc' '|
|00002cc0| 2c 20 67 6c 6f 62 61 6c | 50 72 6f 63 73 20 29 0d |, global|Procs ).|
|00002cd0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 67 6c 6f |.       |     glo|
|00002ce0| 62 61 6c 50 72 6f 63 73 | 20 3d 20 6c 65 66 74 28 |balProcs| = left(|
|00002cf0| 20 67 6c 6f 62 61 6c 50 | 72 6f 63 73 2c 20 63 6f | globalP|rocs, co|
|00002d00| 6c 20 29 20 7c 7c 2c 0d | 0a 20 20 20 20 20 20 20 |l ) ||,.|.       |
|00002d10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002d20| 20 20 20 73 75 62 73 74 | 72 28 20 67 6c 6f 62 61 |   subst|r( globa|
|00002d30| 6c 50 72 6f 63 73 2c 20 | 63 6f 6c 20 2b 20 6c 65 |lProcs, |col + le|
|00002d40| 6e 67 74 68 28 20 70 72 | 6f 63 20 29 20 2b 20 31 |ngth( pr|oc ) + 1|
|00002d50| 20 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 | )..    |        |
|00002d60| 45 4e 44 0d 0a 20 20 20 | 20 20 20 20 20 20 52 45 |END..   |      RE|
|00002d70| 54 55 52 4e 0d 0a 20 20 | 20 20 20 20 20 20 20 45 |TURN..  |       E|
|00002d80| 4e 44 0d 0a 20 20 20 20 | 20 20 69 20 3d 20 69 32 |ND..    |  i = i2|
|00002d90| 0d 0a 20 20 20 45 4e 44 | 0d 0a 20 20 20 52 45 54 |..   END|..   RET|
|00002da0| 55 52 4e 0d 0a 0d 0a 44 | 6f 44 72 6f 70 41 64 64 |URN....D|oDropAdd|
|00002db0| 3a 0d 0a 20 20 20 43 41 | 4c 4c 20 45 76 65 6e 74 |:..   CA|LL Event|
|00002dc0| 44 61 74 61 0d 0a 20 20 | 20 50 41 52 53 45 20 56 |Data..  | PARSE V|
|00002dd0| 41 4c 55 45 20 45 76 65 | 6e 74 44 61 74 61 2e 31 |ALUE Eve|ntData.1|
|00002de0| 20 57 49 54 48 20 64 72 | 6f 70 52 65 73 46 69 6c | WITH dr|opResFil|
|00002df0| 65 27 28 27 64 72 6f 70 | 4e 61 6d 65 27 29 27 0d |e'('drop|Name')'.|
|00002e00| 0a 20 20 20 64 72 6f 70 | 52 65 73 44 61 74 61 20 |.   drop|ResData |
|00002e10| 3d 20 43 68 61 72 49 6e | 28 20 64 72 6f 70 52 65 |= CharIn|( dropRe|
|00002e20| 73 46 69 6c 65 2c 20 31 | 2c 20 43 68 61 72 73 28 |sFile, 1|, Chars(|
|00002e30| 20 64 72 6f 70 52 65 73 | 46 69 6c 65 20 29 20 29 | dropRes|File ) )|
|00002e40| 0d 0a 20 20 20 43 41 4c | 4c 20 53 74 72 65 61 6d |..   CAL|L Stream|
|00002e50| 20 64 72 6f 70 52 65 73 | 46 69 6c 65 2c 20 27 43 | dropRes|File, 'C|
|00002e60| 27 2c 20 27 43 4c 4f 53 | 45 27 0d 0a 20 20 20 49 |', 'CLOS|E'..   I|
|00002e70| 46 20 64 72 6f 70 52 65 | 73 44 61 74 61 20 3d 20 |F dropRe|sData = |
|00002e80| 27 27 20 54 48 45 4e 20 | 44 4f 0d 0a 20 20 20 20 |'' THEN |DO..    |
|00002e90| 20 20 43 41 4c 4c 20 4c | 6f 67 20 27 43 6f 75 6c |  CALL L|og 'Coul|
|00002ea0| 64 20 6e 6f 74 20 72 65 | 61 64 27 20 64 72 6f 70 |d not re|ad' drop|
|00002eb0| 52 65 73 46 69 6c 65 0d | 0a 20 20 20 20 20 20 43 |ResFile.|.      C|
|00002ec0| 41 4c 4c 20 42 65 65 70 | 20 31 37 36 30 2c 20 35 |ALL Beep| 1760, 5|
|00002ed0| 30 0d 0a 20 20 20 20 20 | 20 53 49 47 4e 41 4c 20 |0..     | SIGNAL |
|00002ee0| 44 72 6f 70 41 62 6f 72 | 74 0d 0a 20 20 20 20 20 |DropAbor|t..     |
|00002ef0| 20 45 4e 44 0d 0a 20 20 | 20 63 6f 6c 75 6d 6e 20 | END..  | column |
|00002f00| 20 20 20 20 20 20 20 3d | 20 31 0d 0a 20 20 20 64 |       =| 1..   d|
|00002f10| 72 6f 70 44 69 61 6c 6f | 67 73 20 20 20 3d 20 30 |ropDialo|gs   = 0|
|00002f20| 0d 0a 20 20 20 64 72 6f | 70 47 6c 6f 62 61 6c 73 |..   dro|pGlobals|
|00002f30| 20 20 20 3d 20 27 27 0d | 0a 20 20 20 64 72 6f 70 |   = ''.|.   drop|
|00002f40| 45 78 74 65 72 6e 61 6c | 73 20 3d 20 27 27 0d 0a |External|s = ''..|
|00002f50| 20 20 20 64 72 6f 70 55 | 6e 6b 6e 6f 77 6e 20 20 |   dropU|nknown  |
|00002f60| 20 3d 20 27 27 0d 0a 20 | 20 20 44 4f 20 46 4f 52 | = ''.. |  DO FOR|
|00002f70| 45 56 45 52 0d 0a 20 20 | 20 20 20 20 49 46 20 63 |EVER..  |    IF c|
|00002f80| 6f 6c 75 6d 6e 20 3e 20 | 6c 65 6e 67 74 68 28 20 |olumn > |length( |
|00002f90| 64 72 6f 70 52 65 73 44 | 61 74 61 20 29 20 54 48 |dropResD|ata ) TH|
|00002fa0| 45 4e 20 4c 45 41 56 45 | 0d 0a 20 20 20 20 20 20 |EN LEAVE|..      |
|00002fb0| 49 46 20 73 75 62 73 74 | 72 28 20 64 72 6f 70 52 |IF subst|r( dropR|
|00002fc0| 65 73 44 61 74 61 2c 20 | 63 6f 6c 75 6d 6e 2c 20 |esData, |column, |
|00002fd0| 31 20 29 20 3c 3e 20 27 | 46 46 27 58 20 54 48 45 |1 ) <> '|FF'X THE|
|00002fe0| 4e 20 44 4f 0d 0a 20 20 | 20 20 20 20 20 20 20 43 |N DO..  |       C|
|00002ff0| 41 4c 4c 20 4c 6f 67 20 | 64 72 6f 70 52 65 73 46 |ALL Log |dropResF|
|00003000| 69 6c 65 20 27 69 73 20 | 6e 6f 74 20 61 20 76 61 |ile 'is |not a va|
|00003010| 6c 69 64 20 2e 52 45 53 | 20 66 69 6c 65 27 0d 0a |lid .RES| file'..|
|00003020| 20 20 20 20 20 20 20 20 | 20 43 41 4c 4c 20 42 65 |        | CALL Be|
|00003030| 65 70 20 31 37 36 30 2c | 20 35 30 0d 0a 20 20 20 |ep 1760,| 50..   |
|00003040| 20 20 20 20 20 20 53 49 | 47 4e 41 4c 20 44 72 6f |      SI|GNAL Dro|
|00003050| 70 41 62 6f 72 74 0d 0a | 20 20 20 20 20 20 20 20 |pAbort..|        |
|00003060| 20 45 4e 44 0d 0a 20 20 | 20 20 20 20 74 79 70 65 | END..  |    type|
|00003070| 20 20 20 3d 20 43 32 44 | 28 20 72 65 76 65 72 73 |   = C2D|( revers|
|00003080| 65 28 20 73 75 62 73 74 | 72 28 20 64 72 6f 70 52 |e( subst|r( dropR|
|00003090| 65 73 44 61 74 61 2c 20 | 63 6f 6c 75 6d 6e 20 2b |esData, |column +|
|000030a0| 20 31 2c 20 32 20 29 20 | 29 20 29 0d 0a 20 20 20 | 1, 2 ) |) )..   |
|000030b0| 20 20 20 69 64 20 20 20 | 20 20 3d 20 43 32 44 28 |   id   |  = C2D(|
|000030c0| 20 72 65 76 65 72 73 65 | 28 20 73 75 62 73 74 72 | reverse|( substr|
|000030d0| 28 20 64 72 6f 70 52 65 | 73 44 61 74 61 2c 20 63 |( dropRe|sData, c|
|000030e0| 6f 6c 75 6d 6e 20 2b 20 | 34 2c 20 32 20 29 20 29 |olumn + |4, 2 ) )|
|000030f0| 20 29 0d 0a 20 20 20 20 | 20 20 6c 65 6e 20 20 20 | )..    |  len   |
|00003100| 20 3d 20 43 32 44 28 20 | 72 65 76 65 72 73 65 28 | = C2D( |reverse(|
|00003110| 20 73 75 62 73 74 72 28 | 20 64 72 6f 70 52 65 73 | substr(| dropRes|
|00003120| 44 61 74 61 2c 20 63 6f | 6c 75 6d 6e 20 2b 20 38 |Data, co|lumn + 8|
|00003130| 2c 20 34 20 29 20 29 20 | 29 0d 0a 20 20 20 20 20 |, 4 ) ) |)..     |
|00003140| 20 64 61 74 61 20 20 20 | 3d 20 73 75 62 73 74 72 | data   |= substr|
|00003150| 28 20 64 72 6f 70 52 65 | 73 44 61 74 61 2c 20 63 |( dropRe|sData, c|
|00003160| 6f 6c 75 6d 6e 2c 20 6c | 65 6e 20 2b 20 31 32 20 |olumn, l|en + 12 |
|00003170| 29 0d 0a 20 20 20 20 20 | 20 63 6f 6c 75 6d 6e 20 |)..     | column |
|00003180| 3d 20 63 6f 6c 75 6d 6e | 20 2b 20 6c 65 6e 20 2b |= column| + len +|
|00003190| 20 31 32 0d 0a 20 20 20 | 20 20 20 43 41 4c 4c 20 | 12..   |   CALL |
|000031a0| 44 6f 44 72 6f 70 52 65 | 73 6f 75 72 63 65 20 74 |DoDropRe|source t|
|000031b0| 79 70 65 2c 20 69 64 2c | 20 64 61 74 61 0d 0a 20 |ype, id,| data.. |
|000031c0| 20 20 45 4e 44 0d 0a 20 | 20 20 53 45 4c 45 43 54 |  END.. |  SELECT|
|000031d0| 0d 0a 20 20 20 20 20 20 | 57 48 45 4e 20 45 76 65 |..      |WHEN Eve|
|000031e0| 6e 74 44 61 74 61 2e 33 | 20 3d 20 27 52 45 56 69 |ntData.3| = 'REVi|
|000031f0| 73 65 52 45 53 27 20 54 | 48 45 4e 20 44 4f 0d 0a |seRES' T|HEN DO..|
|00003200| 20 20 20 20 20 20 20 20 | 44 4f 20 64 20 3d 20 31 |        |DO d = 1|
|00003210| 20 54 4f 20 64 72 6f 70 | 44 69 61 6c 6f 67 73 0d | TO drop|Dialogs.|
|00003220| 0a 20 20 20 20 20 20 20 | 20 20 20 20 43 41 4c 4c |.       |    CALL|
|00003230| 20 55 70 64 61 74 65 44 | 69 61 6c 6f 67 20 64 72 | UpdateD|ialog dr|
|00003240| 6f 70 44 69 61 6c 6f 67 | 2e 64 0d 0a 20 20 20 20 |opDialog|.d..    |
|00003250| 20 20 20 20 45 4e 44 0d | 0a 20 20 20 20 20 20 20 |    END.|.       |
|00003260| 20 49 46 20 64 72 6f 70 | 47 6c 6f 62 61 6c 73 20 | IF drop|Globals |
|00003270| 20 20 3c 3e 20 27 27 20 | 54 48 45 4e 20 43 41 4c |  <> '' |THEN CAL|
|00003280| 4c 20 55 70 64 61 74 65 | 50 72 6f 63 73 20 27 27 |L Update|Procs ''|
|00003290| 0d 0a 20 20 20 20 20 20 | 20 20 49 46 20 64 72 6f |..      |  IF dro|
|000032a0| 70 45 78 74 65 72 6e 61 | 6c 73 20 3c 3e 20 27 27 |pExterna|ls <> ''|
|000032b0| 20 54 48 45 4e 20 43 41 | 4c 4c 20 55 70 64 61 74 | THEN CA|LL Updat|
|000032c0| 65 45 78 74 65 72 6e 61 | 6c 73 0d 0a 20 20 20 20 |eExterna|ls..    |
|000032d0| 20 20 20 20 75 6e 6b 6e | 6f 77 6e 20 3d 20 75 6e |    unkn|own = un|
|000032e0| 6b 6e 6f 77 6e 20 7c 7c | 20 64 72 6f 70 55 6e 6b |known ||| dropUnk|
|000032f0| 6e 6f 77 6e 0d 0a 20 20 | 20 20 20 20 20 20 45 4e |nown..  |      EN|
|00003300| 44 0d 0a 20 20 20 20 20 | 20 57 48 45 4e 20 45 76 |D..     | WHEN Ev|
|00003310| 65 6e 74 44 61 74 61 2e | 33 20 3d 20 27 52 45 56 |entData.|3 = 'REV|
|00003320| 69 73 65 44 69 61 6c 6f | 67 27 20 54 48 45 4e 20 |iseDialo|g' THEN |
|00003330| 44 4f 0d 0a 20 20 20 20 | 20 20 20 20 49 46 20 64 |DO..    |    IF d|
|00003340| 72 6f 70 4e 61 6d 65 20 | 3c 3e 20 27 27 20 54 48 |ropName |<> '' TH|
|00003350| 45 4e 20 43 41 4c 4c 20 | 55 70 64 61 74 65 44 69 |EN CALL |UpdateDi|
|00003360| 61 6c 6f 67 20 64 72 6f | 70 4e 61 6d 65 0d 0a 20 |alog dro|pName.. |
|00003370| 20 20 20 20 20 20 20 45 | 4c 53 45 20 44 4f 20 64 |       E|LSE DO d|
|00003380| 20 3d 20 31 20 54 4f 20 | 64 72 6f 70 44 69 61 6c | = 1 TO |dropDial|
|00003390| 6f 67 73 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ogs..   |        |
|000033a0| 20 20 20 20 20 43 41 4c | 4c 20 55 70 64 61 74 65 |     CAL|L Update|
|000033b0| 44 69 61 6c 6f 67 20 64 | 72 6f 70 44 69 61 6c 6f |Dialog d|ropDialo|
|000033c0| 67 2e 64 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |g.d..   |        |
|000033d0| 20 20 45 4e 44 0d 0a 20 | 20 20 20 20 20 20 20 45 |  END.. |       E|
|000033e0| 4e 44 0d 0a 20 20 20 20 | 20 20 57 48 45 4e 20 45 |ND..    |  WHEN E|
|000033f0| 76 65 6e 74 44 61 74 61 | 2e 33 20 3d 20 27 52 45 |ventData|.3 = 'RE|
|00003400| 56 69 73 65 47 6c 6f 62 | 61 6c 27 20 20 20 54 48 |ViseGlob|al'   TH|
|00003410| 45 4e 20 43 41 4c 4c 20 | 55 70 64 61 74 65 50 72 |EN CALL |UpdatePr|
|00003420| 6f 63 73 20 64 72 6f 70 | 4e 61 6d 65 0d 0a 20 20 |ocs drop|Name..  |
|00003430| 20 20 20 20 57 48 45 4e | 20 45 76 65 6e 74 44 61 |    WHEN| EventDa|
|00003440| 74 61 2e 33 20 3d 20 27 | 52 45 56 69 73 65 45 78 |ta.3 = '|REViseEx|
|00003450| 74 65 72 6e 61 6c 27 20 | 54 48 45 4e 20 43 41 4c |ternal' |THEN CAL|
|00003460| 4c 20 55 70 64 61 74 65 | 45 78 74 65 72 6e 61 6c |L Update|External|
|00003470| 73 0d 0a 20 20 20 45 4e | 44 0d 0a 20 20 20 43 41 |s..   EN|D..   CA|
|00003480| 4c 4c 20 55 70 64 61 74 | 65 46 69 6c 65 0d 0a 44 |LL Updat|eFile..D|
|00003490| 72 6f 70 41 62 6f 72 74 | 3a 0d 0a 20 20 20 44 52 |ropAbort|:..   DR|
|000034a0| 4f 50 20 64 72 6f 70 44 | 69 61 6c 6f 67 2e 20 64 |OP dropD|ialog. d|
|000034b0| 72 6f 70 45 76 65 6e 74 | 2e 20 64 72 6f 70 43 6c |ropEvent|. dropCl|
|000034c0| 61 73 73 2e 20 64 72 6f | 70 4d 65 6e 75 2e 20 64 |ass. dro|pMenu. d|
|000034d0| 72 6f 70 4e 61 6d 65 73 | 2e 0d 0a 20 20 20 44 52 |ropNames|...   DR|
|000034e0| 4f 50 20 64 72 6f 70 44 | 69 61 6c 6f 67 52 65 73 |OP dropD|ialogRes|
|000034f0| 2e 20 64 72 6f 70 4d 65 | 6e 75 52 65 73 2e 0d 0a |. dropMe|nuRes...|
|00003500| 20 20 20 44 52 4f 50 20 | 64 72 6f 70 52 65 73 46 |   DROP |dropResF|
|00003510| 69 6c 65 20 64 72 6f 70 | 52 65 73 44 61 74 61 20 |ile drop|ResData |
|00003520| 64 72 6f 70 47 6c 6f 62 | 61 6c 73 20 64 72 6f 70 |dropGlob|als drop|
|00003530| 45 78 74 65 72 6e 61 6c | 73 20 64 72 6f 70 55 6e |External|s dropUn|
|00003540| 6b 6e 6f 77 6e 0d 0a 20 | 20 20 53 49 47 4e 41 4c |known.. |  SIGNAL|
|00003550| 20 52 45 54 55 52 4e 0d | 0a 0d 0a 44 6f 44 72 6f | RETURN.|...DoDro|
|00003560| 70 52 65 73 6f 75 72 63 | 65 3a 0d 0a 20 20 20 53 |pResourc|e:..   S|
|00003570| 45 4c 45 43 54 0d 0a 20 | 20 20 20 20 57 48 45 4e |ELECT.. |    WHEN|
|00003580| 20 61 72 67 28 31 29 20 | 3d 20 33 20 54 48 45 4e | arg(1) |= 3 THEN|
|00003590| 20 44 4f 20 2f 2a 20 4d | 65 6e 75 20 2a 2f 0d 0a | DO /* M|enu */..|
|000035a0| 20 20 20 20 20 20 20 69 | 64 20 20 20 20 20 20 20 |       i|d       |
|000035b0| 20 20 20 20 20 20 3d 20 | 61 72 67 28 32 29 0d 0a |      = |arg(2)..|
|000035c0| 20 20 20 20 20 20 20 64 | 72 6f 70 4d 65 6e 75 52 |       d|ropMenuR|
|000035d0| 65 73 2e 69 64 20 3d 20 | 61 72 67 28 33 29 0d 0a |es.id = |arg(3)..|
|000035e0| 20 20 20 20 20 20 20 45 | 4e 44 0d 0a 20 20 20 20 |       E|ND..    |
|000035f0| 20 57 48 45 4e 20 61 72 | 67 28 31 29 20 3d 20 34 | WHEN ar|g(1) = 4|
|00003600| 20 54 48 45 4e 20 44 4f | 20 2f 2a 20 44 69 61 6c | THEN DO| /* Dial|
|00003610| 6f 67 20 2a 2f 0d 0a 20 | 20 20 20 20 20 20 69 64 |og */.. |      id|
|00003620| 20 3d 20 61 72 67 28 32 | 29 0d 0a 20 20 20 20 20 | = arg(2|)..     |
|00003630| 20 20 43 41 4c 4c 20 44 | 72 6f 70 44 69 61 6c 6f |  CALL D|ropDialo|
|00003640| 67 41 64 64 20 69 64 0d | 0a 20 20 20 20 20 20 20 |gAdd id.|.       |
|00003650| 64 72 6f 70 44 69 61 6c | 6f 67 52 65 73 2e 69 64 |dropDial|ogRes.id|
|00003660| 20 3d 20 61 72 67 28 33 | 29 0d 0a 20 20 20 20 20 | = arg(3|)..     |
|00003670| 20 20 45 4e 44 0d 0a 20 | 20 20 20 20 57 48 45 4e |  END.. |    WHEN|
|00003680| 20 61 72 67 28 31 29 20 | 3d 20 35 36 33 32 30 20 | arg(1) |= 56320 |
|00003690| 54 48 45 4e 20 44 4f 20 | 2f 2a 20 44 69 61 6c 6f |THEN DO |/* Dialo|
|000036a0| 67 2f 63 6f 6e 74 72 6f | 6c 20 6e 61 6d 65 73 20 |g/contro|l names |
|000036b0| 2a 2f 0d 0a 20 20 20 20 | 20 20 20 43 41 4c 4c 20 |*/..    |   CALL |
|000036c0| 44 72 6f 70 44 69 61 6c | 6f 67 4e 61 6d 65 73 20 |DropDial|ogNames |
|000036d0| 61 72 67 28 33 29 0d 0a | 20 20 20 20 20 20 20 45 |arg(3)..|       E|
|000036e0| 4e 44 0d 0a 20 20 20 20 | 20 57 48 45 4e 20 61 72 |ND..    | WHEN ar|
|000036f0| 67 28 31 29 20 3d 20 35 | 36 33 32 31 20 54 48 45 |g(1) = 5|6321 THE|
|00003700| 4e 20 44 4f 20 2f 2a 20 | 47 6c 6f 62 61 6c 20 70 |N DO /* |Global p|
|00003710| 72 6f 63 65 64 75 72 65 | 73 20 63 6f 64 65 20 2a |rocedure|s code *|
|00003720| 2f 0d 0a 20 20 20 20 20 | 20 20 64 72 6f 70 47 6c |/..     |  dropGl|
|00003730| 6f 62 61 6c 73 20 3d 20 | 61 72 67 28 33 29 0d 0a |obals = |arg(3)..|
|00003740| 20 20 20 20 20 20 20 45 | 4e 44 0d 0a 20 20 20 20 |       E|ND..    |
|00003750| 20 57 48 45 4e 20 61 72 | 67 28 31 29 20 3d 20 35 | WHEN ar|g(1) = 5|
|00003760| 36 33 32 32 20 54 48 45 | 4e 20 44 4f 20 2f 2a 20 |6322 THE|N DO /* |
|00003770| 45 78 74 65 72 6e 61 6c | 20 63 6f 64 65 20 2a 2f |External| code */|
|00003780| 0d 0a 20 20 20 20 20 20 | 20 64 72 6f 70 45 78 74 |..      | dropExt|
|00003790| 65 72 6e 61 6c 73 20 3d | 20 61 72 67 28 33 29 0d |ernals =| arg(3).|
|000037a0| 0a 20 20 20 20 20 20 20 | 45 4e 44 0d 0a 20 20 20 |.       |END..   |
|000037b0| 20 20 57 48 45 4e 20 61 | 72 67 28 31 29 20 3d 20 |  WHEN a|rg(1) = |
|000037c0| 35 36 33 32 33 20 54 48 | 45 4e 20 44 4f 20 2f 2a |56323 TH|EN DO /*|
|000037d0| 20 44 69 61 6c 6f 67 20 | 6d 65 6e 75 20 63 6f 64 | Dialog |menu cod|
|000037e0| 65 20 2a 2f 0d 0a 20 20 | 20 20 20 20 20 69 64 20 |e */..  |     id |
|000037f0| 20 20 20 20 20 20 20 20 | 20 3d 20 61 72 67 28 32 |        | = arg(2|
|00003800| 29 0d 0a 20 20 20 20 20 | 20 20 64 72 6f 70 4d 65 |)..     |  dropMe|
|00003810| 6e 75 2e 69 64 20 3d 20 | 61 72 67 28 33 29 0d 0a |nu.id = |arg(3)..|
|00003820| 20 20 20 20 20 20 20 45 | 4e 44 0d 0a 20 20 20 20 |       E|ND..    |
|00003830| 20 57 48 45 4e 20 61 72 | 67 28 31 29 20 3d 20 35 | WHEN ar|g(1) = 5|
|00003840| 36 33 32 34 20 54 48 45 | 4e 20 44 4f 20 2f 2a 20 |6324 THE|N DO /* |
|00003850| 44 69 61 6c 6f 67 20 65 | 76 65 6e 74 20 63 6f 64 |Dialog e|vent cod|
|00003860| 65 20 2a 2f 0d 0a 20 20 | 20 20 20 20 20 69 64 20 |e */..  |     id |
|00003870| 20 20 20 20 20 20 20 20 | 20 20 3d 20 61 72 67 28 |        |  = arg(|
|00003880| 32 29 0d 0a 20 20 20 20 | 20 20 20 64 72 6f 70 45 |2)..    |   dropE|
|00003890| 76 65 6e 74 2e 69 64 20 | 3d 20 61 72 67 28 33 29 |vent.id |= arg(3)|
|000038a0| 0d 0a 20 20 20 20 20 20 | 20 45 4e 44 0d 0a 20 20 |..      | END..  |
|000038b0| 20 20 20 57 48 45 4e 20 | 61 72 67 28 31 29 20 3d |   WHEN |arg(1) =|
|000038c0| 20 35 36 33 32 35 20 54 | 48 45 4e 20 44 4f 20 2f | 56325 T|HEN DO /|
|000038d0| 2a 20 44 69 61 6c 6f 67 | 20 63 6c 61 73 73 20 63 |* Dialog| class c|
|000038e0| 6f 64 65 20 2a 2f 0d 0a | 20 20 20 20 20 20 20 69 |ode */..|       i|
|000038f0| 64 20 20 20 20 20 20 20 | 20 20 20 20 3d 20 61 72 |d       |    = ar|
|00003900| 67 28 32 29 0d 0a 20 20 | 20 20 20 20 20 64 72 6f |g(2)..  |     dro|
|00003910| 70 43 6c 61 73 73 2e 69 | 64 20 3d 20 61 72 67 28 |pClass.i|d = arg(|
|00003920| 33 29 0d 0a 20 20 20 20 | 20 20 20 45 4e 44 0d 0a |3)..    |   END..|
|00003930| 20 20 20 20 20 4f 54 48 | 45 52 57 49 53 45 20 64 |     OTH|ERWISE d|
|00003940| 72 6f 70 55 6e 6b 6e 6f | 77 6e 20 3d 20 64 72 6f |ropUnkno|wn = dro|
|00003950| 70 55 6e 6b 6e 6f 77 6e | 20 7c 7c 20 61 72 67 28 |pUnknown| || arg(|
|00003960| 33 29 0d 0a 20 20 20 45 | 4e 44 0d 0a 20 20 20 52 |3)..   E|ND..   R|
|00003970| 45 54 55 52 4e 0d 0a 0d | 0a 44 72 6f 70 44 69 61 |ETURN...|.DropDia|
|00003980| 6c 6f 67 41 64 64 3a 0d | 0a 20 20 20 74 65 6d 70 |logAdd:.|.   temp|
|00003990| 20 3d 20 61 72 67 28 31 | 29 0d 0a 20 20 20 49 46 | = arg(1|)..   IF|
|000039a0| 20 73 79 6d 62 6f 6c 28 | 20 27 64 72 6f 70 44 69 | symbol(| 'dropDi|
|000039b0| 61 6c 6f 67 52 65 73 2e | 74 65 6d 70 27 20 29 20 |alogRes.|temp' ) |
|000039c0| 3c 3e 20 27 56 41 52 27 | 20 54 48 45 4e 20 44 4f |<> 'VAR'| THEN DO|
|000039d0| 0d 0a 20 20 20 20 20 20 | 64 72 6f 70 44 69 61 6c |..      |dropDial|
|000039e0| 6f 67 73 20 20 20 20 20 | 20 20 20 20 20 20 20 3d |ogs     |       =|
|000039f0| 20 64 72 6f 70 44 69 61 | 6c 6f 67 73 20 2b 20 31 | dropDia|logs + 1|
|00003a00| 0d 0a 20 20 20 20 20 20 | 64 72 6f 70 44 69 61 6c |..      |dropDial|
|00003a10| 6f 67 2e 64 72 6f 70 44 | 69 61 6c 6f 67 73 20 3d |og.dropD|ialogs =|
|00003a20| 20 74 65 6d 70 0d 0a 20 | 20 20 20 20 20 64 72 6f | temp.. |     dro|
|00003a30| 70 44 69 61 6c 6f 67 52 | 65 73 2e 74 65 6d 70 20 |pDialogR|es.temp |
|00003a40| 20 20 20 20 3d 20 27 27 | 0d 0a 20 20 20 20 20 20 |    = ''|..      |
|00003a50| 64 72 6f 70 4d 65 6e 75 | 52 65 73 2e 74 65 6d 70 |dropMenu|Res.temp|
|00003a60| 20 20 20 20 20 20 20 3d | 20 27 27 0d 0a 20 20 20 |       =| ''..   |
|00003a70| 20 20 20 64 72 6f 70 45 | 76 65 6e 74 2e 74 65 6d |   dropE|vent.tem|
|00003a80| 70 20 20 20 20 20 20 20 | 20 20 3d 20 27 27 0d 0a |p       |  = ''..|
|00003a90| 20 20 20 20 20 20 64 72 | 6f 70 43 6c 61 73 73 2e |      dr|opClass.|
|00003aa0| 74 65 6d 70 20 20 20 20 | 20 20 20 20 20 3d 20 27 |temp    |     = '|
|00003ab0| 27 0d 0a 20 20 20 20 20 | 20 64 72 6f 70 4d 65 6e |'..     | dropMen|
|00003ac0| 75 2e 74 65 6d 70 20 20 | 20 20 20 20 20 20 20 20 |u.temp  |        |
|00003ad0| 3d 20 27 27 0d 0a 20 20 | 20 20 20 20 64 72 6f 70 |= ''..  |    drop|
|00003ae0| 4e 61 6d 65 73 2e 74 65 | 6d 70 20 20 20 20 20 20 |Names.te|mp      |
|00003af0| 20 20 20 3d 20 27 27 0d | 0a 20 20 20 20 20 20 45 |   = ''.|.      E|
|00003b00| 4e 44 0d 0a 20 20 20 52 | 45 54 55 52 4e 0d 0a 0d |ND..   R|ETURN...|
|00003b10| 0a 44 72 6f 70 44 69 61 | 6c 6f 67 4e 61 6d 65 73 |.DropDia|logNames|
|00003b20| 3a 0d 0a 20 20 20 69 20 | 20 20 20 20 3d 20 31 33 |:..   i |    = 13|
|00003b30| 0d 0a 20 20 20 73 74 61 | 72 74 20 3d 20 30 0d 0a |..   sta|rt = 0..|
|00003b40| 20 20 20 64 61 74 61 20 | 20 3d 20 61 72 67 28 31 |   data | = arg(1|
|00003b50| 29 0d 0a 20 20 20 44 4f | 20 57 48 49 4c 45 20 69 |)..   DO| WHILE i|
|00003b60| 20 3c 3d 20 6c 65 6e 67 | 74 68 28 20 64 61 74 61 | <= leng|th( data|
|00003b70| 20 29 0d 0a 20 20 20 20 | 20 20 49 46 20 73 75 62 | )..    |  IF sub|
|00003b80| 73 74 72 28 20 64 61 74 | 61 2c 20 69 20 2b 20 32 |str( dat|a, i + 2|
|00003b90| 2c 20 32 20 29 20 3d 20 | 27 30 30 30 30 27 58 20 |, 2 ) = |'0000'X |
|00003ba0| 54 48 45 4e 20 44 4f 0d | 0a 20 20 20 20 20 20 20 |THEN DO.|.       |
|00003bb0| 20 20 49 46 20 73 74 61 | 72 74 20 3c 3e 20 30 20 |  IF sta|rt <> 0 |
|00003bc0| 54 48 45 4e 20 44 4f 0d | 0a 20 20 20 20 20 20 20 |THEN DO.|.       |
|00003bd0| 20 20 20 20 20 74 65 6d | 70 20 20 20 20 20 20 20 |     tem|p       |
|00003be0| 20 20 3d 20 69 20 2d 20 | 73 74 61 72 74 0d 0a 20 |  = i - |start.. |
|00003bf0| 20 20 20 20 20 20 20 20 | 20 20 20 64 72 6f 70 4e |        |   dropN|
|00003c00| 61 6d 65 73 2e 69 64 20 | 3d 20 73 75 62 73 74 72 |ames.id |= substr|
|00003c10| 28 20 64 61 74 61 2c 20 | 31 2c 20 38 20 29 20 7c |( data, |1, 8 ) ||
|00003c20| 7c 20 72 65 76 65 72 73 | 65 28 20 44 32 43 28 20 || revers|e( D2C( |
|00003c30| 74 65 6d 70 2c 20 34 20 | 29 20 29 20 7c 7c 2c 0d |temp, 4 |) ) ||,.|
|00003c40| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00003c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 73 75 62 73 |        |    subs|
|00003c60| 74 72 28 20 64 61 74 61 | 2c 20 73 74 61 72 74 2c |tr( data|, start,|
|00003c70| 20 74 65 6d 70 20 29 0d | 0a 20 20 20 20 20 20 20 | temp ).|.       |
|00003c80| 20 20 20 20 20 45 4e 44 | 0d 0a 20 20 20 20 20 20 |     END|..      |
|00003c90| 20 20 20 69 64 20 3d 20 | 43 32 44 28 20 72 65 76 |   id = |C2D( rev|
|00003ca0| 65 72 73 65 28 20 73 75 | 62 73 74 72 28 20 64 61 |erse( su|bstr( da|
|00003cb0| 74 61 2c 20 69 2c 20 32 | 20 29 20 29 20 29 0d 0a |ta, i, 2| ) ) )..|
|00003cc0| 20 20 20 20 20 20 20 20 | 20 43 41 4c 4c 20 44 72 |        | CALL Dr|
|00003cd0| 6f 70 44 69 61 6c 6f 67 | 41 64 64 20 69 64 0d 0a |opDialog|Add id..|
|00003ce0| 20 20 20 20 20 20 20 20 | 20 73 74 61 72 74 20 3d |        | start =|
|00003cf0| 20 69 0d 0a 20 20 20 20 | 20 20 20 20 20 45 4e 44 | i..    |     END|
|00003d00| 0d 0a 20 20 20 20 20 20 | 69 20 3d 20 69 20 2b 20 |..      |i = i + |
|00003d10| 43 32 44 28 20 73 75 62 | 73 74 72 28 20 64 61 74 |C2D( sub|str( dat|
|00003d20| 61 2c 20 69 20 2b 20 34 | 2c 20 31 20 29 20 29 20 |a, i + 4|, 1 ) ) |
|00003d30| 2b 20 35 0d 0a 20 20 20 | 45 4e 44 0d 0a 20 20 20 |+ 5..   |END..   |
|00003d40| 74 65 6d 70 20 20 20 20 | 20 20 20 20 20 3d 20 69 |temp    |     = i|
|00003d50| 20 2d 20 73 74 61 72 74 | 0d 0a 20 20 20 64 72 6f | - start|..   dro|
|00003d60| 70 4e 61 6d 65 73 2e 69 | 64 20 3d 20 73 75 62 73 |pNames.i|d = subs|
|00003d70| 74 72 28 20 64 61 74 61 | 2c 20 31 2c 20 38 20 29 |tr( data|, 1, 8 )|
|00003d80| 20 7c 7c 20 72 65 76 65 | 72 73 65 28 20 44 32 43 | || reve|rse( D2C|
|00003d90| 28 20 74 65 6d 70 2c 20 | 34 20 29 20 29 20 7c 7c |( temp, |4 ) ) |||
|00003da0| 2c 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,..     |        |
|00003db0| 20 20 20 20 20 73 75 62 | 73 74 72 28 20 64 61 74 |     sub|str( dat|
|00003dc0| 61 2c 20 73 74 61 72 74 | 2c 20 74 65 6d 70 20 29 |a, start|, temp )|
|00003dd0| 0d 0a 20 20 20 52 45 54 | 55 52 4e 0d 0a 0d 0a 43 |..   RET|URN....C|
|00003de0| 68 61 6e 67 65 49 64 3a | 0d 0a 20 20 20 49 46 20 |hangeId:|..   IF |
|00003df0| 61 72 67 28 31 29 20 3d | 20 27 27 20 54 48 45 4e |arg(1) =| '' THEN|
|00003e00| 20 52 45 54 55 52 4e 20 | 27 27 0d 0a 20 20 20 52 | RETURN |''..   R|
|00003e10| 45 54 55 52 4e 20 6c 65 | 66 74 28 20 61 72 67 28 |ETURN le|ft( arg(|
|00003e20| 31 29 2c 20 34 20 29 20 | 7c 7c 20 72 65 76 65 72 |1), 4 ) ||| rever|
|00003e30| 73 65 28 44 32 43 28 20 | 61 72 67 28 32 29 2c 20 |se(D2C( |arg(2), |
|00003e40| 32 20 29 29 20 7c 7c 20 | 73 75 62 73 74 72 28 20 |2 )) || |substr( |
|00003e50| 61 72 67 28 31 29 2c 20 | 37 20 29 0d 0a 0d 0a 55 |arg(1), |7 )....U|
|00003e60| 70 64 61 74 65 44 69 61 | 6c 6f 67 3a 0d 0a 20 20 |pdateDia|log:..  |
|00003e70| 20 69 64 20 20 20 20 20 | 3d 20 61 72 67 28 31 29 | id     |= arg(1)|
|00003e80| 0d 0a 20 20 20 6e 65 77 | 49 64 20 20 3d 20 69 64 |..   new|Id  = id|
|00003e90| 0d 0a 20 20 20 63 75 72 | 6c 65 6e 20 3d 20 30 0d |..   cur|len = 0.|
|00003ea0| 0a 20 20 20 49 46 20 64 | 72 6f 70 4e 61 6d 65 73 |.   IF d|ropNames|
|00003eb0| 2e 6e 65 77 49 64 20 3d | 20 27 27 20 54 48 45 4e |.newId =| '' THEN|
|00003ec0| 20 6e 61 6d 65 20 3d 20 | 27 44 27 6e 65 77 49 64 | name = |'D'newId|
|00003ed0| 0d 0a 20 20 20 45 4c 53 | 45 20 44 4f 0d 0a 20 20 |..   ELS|E DO..  |
|00003ee0| 20 20 20 20 63 75 72 6c | 65 6e 20 3d 20 43 32 44 |    curl|en = C2D|
|00003ef0| 28 20 73 75 62 73 74 72 | 28 20 64 72 6f 70 4e 61 |( substr|( dropNa|
|00003f00| 6d 65 73 2e 6e 65 77 49 | 64 2c 20 31 37 2c 20 31 |mes.newI|d, 17, 1|
|00003f10| 20 29 20 29 0d 0a 20 20 | 20 20 20 20 49 46 20 63 | ) )..  |    IF c|
|00003f20| 75 72 6c 65 6e 20 3d 20 | 30 20 54 48 45 4e 20 6e |urlen = |0 THEN n|
|00003f30| 61 6d 65 20 3d 20 27 44 | 27 6e 65 77 49 64 0d 0a |ame = 'D|'newId..|
|00003f40| 20 20 20 20 20 20 45 4c | 53 45 20 44 4f 0d 0a 20 |      EL|SE DO.. |
|00003f50| 20 20 20 20 20 20 20 20 | 6e 61 6d 65 20 3d 20 73 |        |name = s|
|00003f60| 75 62 73 74 72 28 20 64 | 72 6f 70 4e 61 6d 65 73 |ubstr( d|ropNames|
|00003f70| 2e 6e 65 77 49 64 2c 20 | 31 38 2c 20 63 75 72 6c |.newId, |18, curl|
|00003f80| 65 6e 20 29 0d 0a 20 20 | 20 20 20 20 20 20 20 49 |en )..  |       I|
|00003f90| 46 20 70 6f 73 28 20 27 | 20 27 6e 61 6d 65 27 20 |F pos( '| 'name' |
|00003fa0| 27 2c 20 64 69 61 6c 6f | 67 4e 61 6d 65 73 20 29 |', dialo|gNames )|
|00003fb0| 20 3c 3e 20 30 20 54 48 | 45 4e 20 44 4f 0d 0a 20 | <> 0 TH|EN DO.. |
|00003fc0| 20 20 20 20 20 20 20 20 | 20 20 20 44 4f 20 74 65 |        |   DO te|
|00003fd0| 6d 70 20 3d 20 32 20 54 | 4f 20 31 30 30 30 30 0d |mp = 2 T|O 10000.|
|00003fe0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00003ff0| 49 46 20 70 6f 73 28 20 | 27 20 27 6e 61 6d 65 27 |IF pos( |' 'name'|
|00004000| 5f 27 74 65 6d 70 27 20 | 27 2c 20 64 69 61 6c 6f |_'temp' |', dialo|
|00004010| 67 4e 61 6d 65 73 20 29 | 20 3d 20 30 20 54 48 45 |gNames )| = 0 THE|
|00004020| 4e 20 4c 45 41 56 45 0d | 0a 20 20 20 20 20 20 20 |N LEAVE.|.       |
|00004030| 20 20 20 20 20 45 4e 44 | 0d 0a 20 20 20 20 20 20 |     END|..      |
|00004040| 20 20 20 20 20 20 43 41 | 4c 4c 20 4c 6f 67 20 22 |      CA|LL Log "|
|00004050| 44 69 61 6c 6f 67 3a 20 | 43 68 61 6e 67 65 64 20 |Dialog: |Changed |
|00004060| 27 22 6e 61 6d 65 22 27 | 20 74 6f 20 27 22 6e 61 |'"name"'| to '"na|
|00004070| 6d 65 22 5f 22 74 65 6d | 70 22 27 22 0d 0a 20 20 |me"_"tem|p"'"..  |
|00004080| 20 20 20 20 20 20 20 20 | 20 20 6e 61 6d 65 20 3d |        |  name =|
|00004090| 20 6e 61 6d 65 27 5f 27 | 74 65 6d 70 0d 0a 20 20 | name'_'|temp..  |
|000040a0| 20 20 20 20 20 20 20 20 | 20 20 64 72 6f 70 4e 61 |        |  dropNa|
|000040b0| 6d 65 73 2e 6e 65 77 49 | 64 20 3d 20 6c 65 66 74 |mes.newI|d = left|
|000040c0| 28 20 64 72 6f 70 4e 61 | 6d 65 73 2e 6e 65 77 49 |( dropNa|mes.newI|
|000040d0| 64 2c 20 38 20 29 20 7c | 7c 2c 0d 0a 20 20 20 20 |d, 8 ) |||,..    |
|000040e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 72 65 76 65 |        |    reve|
|000040f0| 72 73 65 28 20 44 32 43 | 28 6c 65 6e 67 74 68 28 |rse( D2C|(length(|
|00004100| 64 72 6f 70 4e 61 6d 65 | 73 2e 6e 65 77 49 64 29 |dropName|s.newId)|
|00004110| 2d 31 32 2b 6c 65 6e 67 | 74 68 28 6e 61 6d 65 29 |-12+leng|th(name)|
|00004120| 2d 63 75 72 6c 65 6e 2c | 34 29 29 20 7c 7c 2c 0d |-curlen,|4)) ||,.|
|00004130| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00004140| 20 73 75 62 73 74 72 28 | 20 64 72 6f 70 4e 61 6d | substr(| dropNam|
|00004150| 65 73 2e 6e 65 77 49 64 | 2c 20 31 33 2c 20 34 20 |es.newId|, 13, 4 |
|00004160| 29 20 7c 7c 2c 0d 0a 20 | 20 20 20 20 20 20 20 20 |) ||,.. |        |
|00004170| 20 20 20 20 20 20 20 44 | 32 43 28 20 6c 65 6e 67 |       D|2C( leng|
|00004180| 74 68 28 20 6e 61 6d 65 | 20 29 2c 20 31 20 29 20 |th( name| ), 1 ) |
|00004190| 7c 7c 20 6e 61 6d 65 20 | 7c 7c 2c 0d 0a 20 20 20 ||| name |||,..   |
|000041a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 73 75 62 |        |     sub|
|000041b0| 73 74 72 28 20 64 72 6f | 70 4e 61 6d 65 73 2e 6e |str( dro|pNames.n|
|000041c0| 65 77 49 64 2c 20 31 38 | 20 2b 20 63 75 72 6c 65 |ewId, 18| + curle|
|000041d0| 6e 20 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |n )..   |        |
|000041e0| 20 45 4e 44 0d 0a 20 20 | 20 20 20 20 20 20 20 64 | END..  |       d|
|000041f0| 69 61 6c 6f 67 4e 61 6d | 65 73 20 3d 20 64 69 61 |ialogNam|es = dia|
|00004200| 6c 6f 67 4e 61 6d 65 73 | 20 7c 7c 20 6e 61 6d 65 |logNames| || name|
|00004210| 27 20 27 0d 0a 20 20 20 | 20 20 20 20 20 20 45 4e |' '..   |      EN|
|00004220| 44 0d 0a 20 20 20 20 20 | 20 45 4e 44 0d 0a 20 20 |D..     | END..  |
|00004230| 20 49 46 20 73 79 6d 62 | 6f 6c 28 20 27 64 69 61 | IF symb|ol( 'dia|
|00004240| 6c 6f 67 52 65 73 2e 69 | 64 27 20 29 20 3d 20 27 |logRes.i|d' ) = '|
|00004250| 56 41 52 27 20 54 48 45 | 4e 20 44 4f 0d 0a 20 20 |VAR' THE|N DO..  |
|00004260| 20 20 20 20 49 46 20 64 | 72 6f 70 4e 61 6d 65 73 |    IF d|ropNames|
|00004270| 2e 69 64 20 3c 3e 20 27 | 27 20 54 48 45 4e 20 44 |.id <> '|' THEN D|
|00004280| 4f 0d 0a 20 20 20 20 20 | 20 20 20 20 74 65 6d 70 |O..     |    temp|
|00004290| 20 3d 20 31 33 0d 0a 20 | 20 20 20 20 20 20 20 20 | = 13.. |        |
|000042a0| 44 4f 20 57 48 49 4c 45 | 20 74 65 6d 70 20 3c 3d |DO WHILE| temp <=|
|000042b0| 20 6c 65 6e 67 74 68 28 | 20 64 72 6f 70 4e 61 6d | length(| dropNam|
|000042c0| 65 73 2e 69 64 20 29 0d | 0a 20 20 20 20 20 20 20 |es.id ).|.       |
|000042d0| 20 20 20 20 20 74 65 6d | 70 32 20 3d 20 43 32 44 |     tem|p2 = C2D|
|000042e0| 28 20 72 65 76 65 72 73 | 65 28 20 73 75 62 73 74 |( revers|e( subst|
|000042f0| 72 28 20 64 72 6f 70 4e | 61 6d 65 73 2e 69 64 2c |r( dropN|ames.id,|
|00004300| 20 74 65 6d 70 2c 20 32 | 20 29 20 29 20 29 0d 0a | temp, 2| ) ) )..|
|00004310| 20 20 20 20 20 20 20 20 | 20 20 20 20 49 46 20 6e |        |    IF n|
|00004320| 65 77 49 64 20 3c 3d 20 | 74 65 6d 70 32 20 54 48 |ewId <= |temp2 TH|
|00004330| 45 4e 20 6e 65 77 49 64 | 20 3d 20 74 65 6d 70 32 |EN newId| = temp2|
|00004340| 20 2b 20 31 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | + 1..  |        |
|00004350| 20 20 74 65 6d 70 20 3d | 20 74 65 6d 70 20 2b 20 |  temp =| temp + |
|00004360| 43 32 44 28 20 73 75 62 | 73 74 72 28 20 64 72 6f |C2D( sub|str( dro|
|00004370| 70 4e 61 6d 65 73 2e 69 | 64 2c 20 74 65 6d 70 20 |pNames.i|d, temp |
|00004380| 2b 20 34 2c 20 31 20 29 | 20 29 20 2b 20 35 0d 0a |+ 4, 1 )| ) + 5..|
|00004390| 20 20 20 20 20 20 20 20 | 20 45 4e 44 0d 0a 20 20 |        | END..  |
|000043a0| 20 20 20 20 20 20 20 45 | 4e 44 0d 0a 20 20 20 20 |       E|ND..    |
|000043b0| 20 20 44 4f 20 46 4f 52 | 45 56 45 52 0d 0a 20 20 |  DO FOR|EVER..  |
|000043c0| 20 20 20 20 20 20 20 44 | 4f 20 74 65 6d 70 20 3d |       D|O temp =|
|000043d0| 20 31 20 54 4f 20 64 69 | 61 6c 6f 67 73 0d 0a 20 | 1 TO di|alogs.. |
|000043e0| 20 20 20 20 20 20 20 20 | 20 20 20 49 46 20 6e 65 |        |   IF ne|
|000043f0| 77 49 64 20 3d 20 64 69 | 61 6c 6f 67 2e 74 65 6d |wId = di|alog.tem|
|00004400| 70 20 54 48 45 4e 20 4c | 45 41 56 45 0d 0a 20 20 |p THEN L|EAVE..  |
|00004410| 20 20 20 20 20 20 20 45 | 4e 44 0d 0a 20 20 20 20 |       E|ND..    |
|00004420| 20 20 20 20 20 49 46 20 | 74 65 6d 70 20 3e 20 64 |     IF |temp > d|
|00004430| 69 61 6c 6f 67 73 20 54 | 48 45 4e 20 4c 45 41 56 |ialogs T|HEN LEAV|
|00004440| 45 0d 0a 20 20 20 20 20 | 20 20 20 20 6e 65 77 49 |E..     |    newI|
|00004450| 64 20 3d 20 6e 65 77 49 | 64 20 2b 20 31 0d 0a 20 |d = newI|d + 1.. |
|00004460| 20 20 20 20 20 45 4e 44 | 0d 0a 20 20 20 20 20 20 |     END|..      |
|00004470| 64 72 6f 70 44 69 61 6c | 6f 67 52 65 73 2e 69 64 |dropDial|ogRes.id|
|00004480| 20 3d 20 43 68 61 6e 67 | 65 49 64 28 20 64 72 6f | = Chang|eId( dro|
|00004490| 70 44 69 61 6c 6f 67 52 | 65 73 2e 69 64 2c 20 6e |pDialogR|es.id, n|
|000044a0| 65 77 49 64 20 29 0d 0a | 20 20 20 20 20 20 64 72 |ewId )..|      dr|
|000044b0| 6f 70 44 69 61 6c 6f 67 | 52 65 73 2e 69 64 20 3d |opDialog|Res.id =|
|000044c0| 20 6c 65 66 74 28 20 64 | 72 6f 70 44 69 61 6c 6f | left( d|ropDialo|
|000044d0| 67 52 65 73 2e 69 64 2c | 20 35 30 20 29 20 7c 7c |gRes.id,| 50 ) |||
|000044e0| 2c 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,..     |        |
|000044f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 72 65 76 65 |        |    reve|
|00004500| 72 73 65 28 20 44 32 43 | 28 20 6e 65 77 49 64 2c |rse( D2C|( newId,|
|00004510| 20 32 20 29 20 29 20 20 | 20 7c 7c 2c 0d 0a 20 20 | 2 ) )  | ||,..  |
|00004520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004530| 20 20 20 20 20 20 20 73 | 75 62 73 74 72 28 20 64 |       s|ubstr( d|
|00004540| 72 6f 70 44 69 61 6c 6f | 67 52 65 73 2e 69 64 2c |ropDialo|gRes.id,|
|00004550| 20 35 33 20 29 0d 0a 20 | 20 20 20 20 20 64 72 6f | 53 ).. |     dro|
|00004560| 70 4d 65 6e 75 52 65 73 | 2e 69 64 20 20 20 3d 20 |pMenuRes|.id   = |
|00004570| 43 68 61 6e 67 65 49 64 | 28 20 64 72 6f 70 4d 65 |ChangeId|( dropMe|
|00004580| 6e 75 52 65 73 2e 69 64 | 2c 20 6e 65 77 49 64 20 |nuRes.id|, newId |
|00004590| 29 0d 0a 20 20 20 20 20 | 20 64 72 6f 70 4d 65 6e |)..     | dropMen|
|000045a0| 75 2e 69 64 20 20 20 20 | 20 20 3d 20 43 68 61 6e |u.id    |  = Chan|
|000045b0| 67 65 49 64 28 20 64 72 | 6f 70 4d 65 6e 75 2e 69 |geId( dr|opMenu.i|
|000045c0| 64 2c 20 20 20 20 6e 65 | 77 49 64 20 29 0d 0a 20 |d,    ne|wId ).. |
|000045d0| 20 20 20 20 20 64 72 6f | 70 45 76 65 6e 74 2e 69 |     dro|pEvent.i|
|000045e0| 64 20 20 20 20 20 3d 20 | 43 68 61 6e 67 65 49 64 |d     = |ChangeId|
|000045f0| 28 20 64 72 6f 70 45 76 | 65 6e 74 2e 69 64 2c 20 |( dropEv|ent.id, |
|00004600| 20 20 6e 65 77 49 64 20 | 29 0d 0a 20 20 20 20 20 |  newId |)..     |
|00004610| 20 64 72 6f 70 43 6c 61 | 73 73 2e 69 64 20 20 20 | dropCla|ss.id   |
|00004620| 20 20 3d 20 43 68 61 6e | 67 65 49 64 28 20 64 72 |  = Chan|geId( dr|
|00004630| 6f 70 43 6c 61 73 73 2e | 69 64 2c 20 20 20 6e 65 |opClass.|id,   ne|
|00004640| 77 49 64 20 29 0d 0a 20 | 20 20 20 20 20 49 46 20 |wId ).. |     IF |
|00004650| 64 72 6f 70 4e 61 6d 65 | 73 2e 69 64 20 3c 3e 20 |dropName|s.id <> |
|00004660| 27 27 20 54 48 45 4e 0d | 0a 20 20 20 20 20 20 20 |'' THEN.|.       |
|00004670| 20 20 64 72 6f 70 4e 61 | 6d 65 73 2e 69 64 20 3d |  dropNa|mes.id =|
|00004680| 20 6c 65 66 74 28 20 64 | 72 6f 70 4e 61 6d 65 73 | left( d|ropNames|
|00004690| 2e 69 64 2c 20 31 32 20 | 29 20 20 20 7c 7c 2c 0d |.id, 12 |)   ||,.|
|000046a0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000046b0| 20 20 20 20 20 20 20 20 | 20 72 65 76 65 72 73 65 |        | reverse|
|000046c0| 28 20 44 32 43 28 20 6e | 65 77 49 64 2c 20 32 20 |( D2C( n|ewId, 2 |
|000046d0| 29 20 29 20 7c 7c 2c 0d | 0a 20 20 20 20 20 20 20 |) ) ||,.|.       |
|000046e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000046f0| 20 73 75 62 73 74 72 28 | 20 64 72 6f 70 4e 61 6d | substr(| dropNam|
|00004700| 65 73 2e 69 64 2c 20 31 | 35 20 29 0d 0a 20 20 20 |es.id, 1|5 )..   |
|00004710| 20 20 20 49 46 20 63 75 | 72 6c 65 6e 20 3d 20 30 |   IF cu|rlen = 0|
|00004720| 20 54 48 45 4e 20 6e 61 | 6d 65 20 3d 20 27 44 27 | THEN na|me = 'D'|
|00004730| 6e 65 77 49 64 0d 0a 20 | 20 20 20 20 20 45 4e 44 |newId.. |     END|
|00004740| 0d 0a 20 20 20 64 69 61 | 6c 6f 67 73 20 20 20 20 |..   dia|logs    |
|00004750| 20 20 20 20 20 3d 20 64 | 69 61 6c 6f 67 73 20 2b |     = d|ialogs +|
|00004760| 20 31 0d 0a 20 20 20 64 | 69 61 6c 6f 67 2e 64 69 | 1..   d|ialog.di|
|00004770| 61 6c 6f 67 73 20 20 3d | 20 6e 65 77 49 64 0d 0a |alogs  =| newId..|
|00004780| 20 20 20 64 69 61 6c 6f | 67 52 65 73 2e 6e 65 77 |   dialo|gRes.new|
|00004790| 49 64 20 3d 20 64 72 6f | 70 44 69 61 6c 6f 67 52 |Id = dro|pDialogR|
|000047a0| 65 73 2e 69 64 0d 0a 20 | 20 20 6d 65 6e 75 52 65 |es.id.. |  menuRe|
|000047b0| 73 2e 6e 65 77 49 64 20 | 20 20 3d 20 64 72 6f 70 |s.newId |  = drop|
|000047c0| 4d 65 6e 75 52 65 73 2e | 69 64 0d 0a 20 20 20 6d |MenuRes.|id..   m|
|000047d0| 65 6e 75 2e 6e 65 77 49 | 64 20 20 20 20 20 20 3d |enu.newI|d      =|
|000047e0| 20 64 72 6f 70 4d 65 6e | 75 2e 69 64 0d 0a 20 20 | dropMen|u.id..  |
|000047f0| 20 65 76 65 6e 74 2e 6e | 65 77 49 64 20 20 20 20 | event.n|ewId    |
|00004800| 20 3d 20 64 72 6f 70 45 | 76 65 6e 74 2e 69 64 0d | = dropE|vent.id.|
|00004810| 0a 20 20 20 63 6c 61 73 | 73 2e 6e 65 77 49 64 20 |.   clas|s.newId |
|00004820| 20 20 20 20 3d 20 64 72 | 6f 70 43 6c 61 73 73 2e |    = dr|opClass.|
|00004830| 69 64 0d 0a 20 20 20 6e | 61 6d 65 73 2e 6e 65 77 |id..   n|ames.new|
|00004840| 49 64 20 20 20 20 20 3d | 20 64 72 6f 70 4e 61 6d |Id     =| dropNam|
|00004850| 65 73 2e 69 64 0d 0a 20 | 20 20 43 41 4c 4c 20 49 |es.id.. |  CALL I|
|00004860| 6e 69 74 44 69 61 6c 6f | 67 73 0d 0a 20 20 20 64 |nitDialo|gs..   d|
|00004870| 69 61 6c 6f 67 49 74 65 | 6d 2e 6e 65 77 49 64 20 |ialogIte|m.newId |
|00004880| 3d 20 63 6f 6e 74 61 69 | 6e 65 72 2e 41 64 64 28 |= contai|ner.Add(|
|00004890| 20 6e 61 6d 65 2c 20 27 | 44 52 42 49 54 4d 41 50 | name, '|DRBITMAP|
|000048a0| 3a 23 31 27 2c 2c 0d 0a | 20 20 20 20 20 20 20 20 |:#1',,..|        |
|000048b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000048c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 27 4c 41 |        |     'LA|
|000048d0| 53 54 27 2c 20 64 69 61 | 6c 6f 67 4d 61 73 74 65 |ST', dia|logMaste|
|000048e0| 72 49 74 65 6d 20 29 0d | 0a 20 20 20 43 41 4c 4c |rItem ).|.   CALL|
|000048f0| 20 63 6f 6e 74 61 69 6e | 65 72 2e 44 72 61 67 20 | contain|er.Drag |
|00004900| 64 69 61 6c 6f 67 49 74 | 65 6d 2e 6e 65 77 49 64 |dialogIt|em.newId|
|00004910| 2c 2c 0d 0a 20 20 20 20 | 20 20 20 20 27 52 45 56 |,,..    |    'REV|
|00004920| 69 73 65 44 69 61 6c 6f | 67 2c 52 45 56 69 73 65 |iseDialo|g,REVise|
|00004930| 44 69 61 6c 6f 67 3e 27 | 64 72 6f 70 46 69 6c 65 |Dialog>'|dropFile|
|00004940| 27 3d 27 77 6f 72 6b 46 | 69 6c 65 27 28 27 6e 65 |'='workF|ile'('ne|
|00004950| 77 49 64 27 29 27 0d 0a | 20 20 20 49 46 20 69 64 |wId')'..|   IF id|
|00004960| 20 3c 3e 20 6e 65 77 49 | 64 20 54 48 45 4e 0d 0a | <> newI|d THEN..|
|00004970| 20 20 20 20 20 20 43 41 | 4c 4c 20 4c 6f 67 20 22 |      CA|LL Log "|
|00004980| 44 69 61 6c 6f 67 3a 20 | 43 68 61 6e 67 65 64 20 |Dialog: |Changed |
|00004990| 49 44 20 66 72 6f 6d 20 | 27 22 69 64 22 27 20 74 |ID from |'"id"' t|
|000049a0| 6f 20 27 22 6e 65 77 49 | 64 22 27 20 66 6f 72 20 |o '"newI|d"' for |
|000049b0| 27 22 6e 61 6d 65 22 27 | 22 0d 0a 20 20 20 52 45 |'"name"'|"..   RE|
|000049c0| 54 55 52 4e 0d 0a 0d 0a | 55 70 64 61 74 65 50 72 |TURN....|UpdatePr|
|000049d0| 6f 63 73 3a 0d 0a 20 20 | 20 6d 61 74 63 68 4e 61 |ocs:..  | matchNa|
|000049e0| 6d 65 20 3d 20 61 72 67 | 28 31 29 0d 0a 20 20 20 |me = arg|(1)..   |
|000049f0| 69 20 20 20 20 20 20 20 | 20 20 3d 20 31 33 0d 0a |i       |  = 13..|
|00004a00| 20 20 20 44 4f 20 57 48 | 49 4c 45 20 69 20 3c 20 |   DO WH|ILE i < |
|00004a10| 6c 65 6e 67 74 68 28 20 | 64 72 6f 70 47 6c 6f 62 |length( |dropGlob|
|00004a20| 61 6c 73 20 29 0d 0a 20 | 20 20 20 20 20 6c 65 6e |als ).. |     len|
|00004a30| 20 20 3d 20 43 32 44 28 | 20 73 75 62 73 74 72 28 |  = C2D(| substr(|
|00004a40| 20 64 72 6f 70 47 6c 6f | 62 61 6c 73 2c 20 69 2c | dropGlo|bals, i,|
|00004a50| 20 31 20 29 20 29 0d 0a | 20 20 20 20 20 20 6e 61 | 1 ) )..|      na|
|00004a60| 6d 65 20 3d 20 73 75 62 | 73 74 72 28 20 64 72 6f |me = sub|str( dro|
|00004a70| 70 47 6c 6f 62 61 6c 73 | 2c 20 69 20 2b 20 31 2c |pGlobals|, i + 1,|
|00004a80| 20 6c 65 6e 20 29 0d 0a | 20 20 20 20 20 20 69 20 | len )..|      i |
|00004a90| 20 20 20 3d 20 69 20 2b | 20 6c 65 6e 20 2b 20 31 |   = i +| len + 1|
|00004aa0| 0d 0a 20 20 20 20 20 20 | 69 32 20 20 20 3d 20 69 |..      |i2   = i|
|00004ab0| 0d 0a 20 20 20 20 20 20 | 6c 65 6e 32 20 3d 20 43 |..      |len2 = C|
|00004ac0| 32 44 28 20 73 75 62 73 | 74 72 28 20 64 72 6f 70 |2D( subs|tr( drop|
|00004ad0| 47 6c 6f 62 61 6c 73 2c | 20 69 32 2c 20 31 20 29 |Globals,| i2, 1 )|
|00004ae0| 20 29 0d 0a 20 20 20 20 | 20 20 49 46 20 6c 65 6e | )..    |  IF len|
|00004af0| 32 20 3e 20 31 32 37 20 | 54 48 45 4e 20 44 4f 0d |2 > 127 |THEN DO.|
|00004b00| 0a 20 20 20 20 20 20 20 | 20 20 69 32 20 20 20 3d |.       |  i2   =|
|00004b10| 20 69 32 20 2b 20 31 0d | 0a 20 20 20 20 20 20 20 | i2 + 1.|.       |
|00004b20| 20 20 6c 65 6e 32 20 3d | 20 28 6c 65 6e 32 20 2d |  len2 =| (len2 -|
|00004b30| 20 31 32 38 29 20 2b 20 | 31 32 38 20 2a 20 43 32 | 128) + |128 * C2|
|00004b40| 44 28 20 73 75 62 73 74 | 72 28 20 64 72 6f 70 47 |D( subst|r( dropG|
|00004b50| 6c 6f 62 61 6c 73 2c 20 | 69 32 2c 20 31 20 29 20 |lobals, |i2, 1 ) |
|00004b60| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 49 46 20 6c |)..     |    IF l|
|00004b70| 65 6e 32 20 3e 20 31 36 | 33 31 37 20 54 48 45 4e |en2 > 16|317 THEN|
|00004b80| 20 44 4f 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | DO..   |        |
|00004b90| 20 69 32 20 20 20 3d 20 | 69 32 20 2b 20 32 0d 0a | i2   = |i2 + 2..|
|00004ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 6c 65 6e 32 |        |    len2|
|00004bb0| 20 3d 20 28 6c 65 6e 32 | 20 2d 20 31 36 33 31 38 | = (len2| - 16318|
|00004bc0| 29 20 2b 2c 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |) +,..  |        |
|00004bd0| 20 20 20 20 20 20 20 20 | 20 31 36 33 31 38 20 2a |        | 16318 *|
|00004be0| 20 43 32 44 28 20 72 65 | 76 65 72 73 65 28 20 73 | C2D( re|verse( s|
|00004bf0| 75 62 73 74 72 28 20 64 | 72 6f 70 47 6c 6f 62 61 |ubstr( d|ropGloba|
|00004c00| 6c 73 2c 20 69 32 20 2d | 20 31 2c 20 32 20 29 20 |ls, i2 -| 1, 2 ) |
|00004c10| 29 20 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |) )..   |        |
|00004c20| 20 45 4e 44 0d 0a 20 20 | 20 20 20 20 20 20 20 45 | END..  |       E|
|00004c30| 4e 44 0d 0a 20 20 20 20 | 20 20 69 32 20 3d 20 69 |ND..    |  i2 = i|
|00004c40| 32 20 2b 20 6c 65 6e 32 | 20 2b 20 31 0d 0a 20 20 |2 + len2| + 1..  |
|00004c50| 20 20 20 20 49 46 20 28 | 6d 61 74 63 68 4e 61 6d |    IF (|matchNam|
|00004c60| 65 20 3d 20 27 27 29 20 | 7c 20 28 6d 61 74 63 68 |e = '') || (match|
|00004c70| 4e 61 6d 65 20 3d 20 6e | 61 6d 65 29 20 54 48 45 |Name = n|ame) THE|
|00004c80| 4e 20 44 4f 0d 0a 20 20 | 20 20 20 20 20 20 20 62 |N DO..  |       b|
|00004c90| 6f 64 79 20 3d 20 73 75 | 62 73 74 72 28 20 64 72 |ody = su|bstr( dr|
|00004ca0| 6f 70 47 6c 6f 62 61 6c | 73 2c 20 69 2c 20 69 32 |opGlobal|s, i, i2|
|00004cb0| 20 2d 20 69 20 29 0d 0a | 20 20 20 20 20 20 20 20 | - i )..|        |
|00004cc0| 20 49 46 20 70 6f 73 28 | 20 27 20 27 6e 61 6d 65 | IF pos(| ' 'name|
|00004cd0| 27 20 27 2c 20 67 6c 6f | 62 61 6c 50 72 6f 63 73 |' ', glo|balProcs|
|00004ce0| 20 29 20 3c 3e 20 30 20 | 54 48 45 4e 20 44 4f 0d | ) <> 0 |THEN DO.|
|00004cf0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 44 4f 20 |.       |     DO |
|00004d00| 6a 20 3d 20 32 20 54 4f | 20 31 30 30 30 30 0d 0a |j = 2 TO| 10000..|
|00004d10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 49 |        |       I|
|00004d20| 46 20 70 6f 73 28 20 27 | 20 27 6e 61 6d 65 27 5f |F pos( '| 'name'_|
|00004d30| 27 6a 27 20 27 2c 20 67 | 6c 6f 62 61 6c 50 72 6f |'j' ', g|lobalPro|
|00004d40| 63 73 20 29 20 3d 20 30 | 20 54 48 45 4e 20 4c 45 |cs ) = 0| THEN LE|
|00004d50| 41 56 45 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |AVE..   |        |
|00004d60| 20 45 4e 44 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | END..  |        |
|00004d70| 20 20 43 41 4c 4c 20 4c | 6f 67 20 22 47 6c 6f 62 |  CALL L|og "Glob|
|00004d80| 61 6c 3a 20 43 68 61 6e | 67 65 64 20 27 22 6e 61 |al: Chan|ged '"na|
|00004d90| 6d 65 22 27 20 74 6f 20 | 27 22 6e 61 6d 65 22 5f |me"' to |'"name"_|
|00004da0| 22 6a 22 27 22 0d 0a 20 | 20 20 20 20 20 20 20 20 |"j"'".. |        |
|00004db0| 20 20 20 6e 61 6d 65 20 | 3d 20 6e 61 6d 65 27 5f |   name |= name'_|
|00004dc0| 27 6a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |'j..    |        |
|00004dd0| 45 4e 44 0d 0a 20 20 20 | 20 20 20 20 20 20 43 41 |END..   |      CA|
|00004de0| 4c 4c 20 49 6e 69 74 47 | 6c 6f 62 61 6c 73 0d 0a |LL InitG|lobals..|
|00004df0| 20 20 20 20 20 20 20 20 | 20 67 6c 6f 62 61 6c 49 |        | globalI|
|00004e00| 74 65 6d 2e 6e 61 6d 65 | 20 3d 20 63 6f 6e 74 61 |tem.name| = conta|
|00004e10| 69 6e 65 72 2e 41 64 64 | 28 20 6e 61 6d 65 2c 20 |iner.Add|( name, |
|00004e20| 27 44 52 42 49 54 4d 41 | 50 3a 23 33 36 27 2c 2c |'DRBITMA|P:#36',,|
|00004e30| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00004e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 27 4c 41 53 |        |    'LAS|
|00004e60| 54 27 2c 20 67 6c 6f 62 | 61 6c 73 4d 61 73 74 65 |T', glob|alsMaste|
|00004e70| 72 49 74 65 6d 20 29 0d | 0a 20 20 20 20 20 20 20 |rItem ).|.       |
|00004e80| 20 20 43 41 4c 4c 20 63 | 6f 6e 74 61 69 6e 65 72 |  CALL c|ontainer|
|00004e90| 2e 44 72 61 67 20 67 6c | 6f 62 61 6c 49 74 65 6d |.Drag gl|obalItem|
|00004ea0| 2e 6e 61 6d 65 2c 2c 0d | 0a 20 20 20 20 20 20 20 |.name,,.|.       |
|00004eb0| 20 20 20 20 20 20 20 27 | 52 45 56 69 73 65 47 6c |       '|REViseGl|
|00004ec0| 6f 62 61 6c 2c 52 45 56 | 69 73 65 47 6c 6f 62 61 |obal,REV|iseGloba|
|00004ed0| 6c 3e 27 64 72 6f 70 46 | 69 6c 65 27 3d 27 77 6f |l>'dropF|ile'='wo|
|00004ee0| 72 6b 46 69 6c 65 27 28 | 27 6e 61 6d 65 27 29 27 |rkFile'(|'name')'|
|00004ef0| 0d 0a 20 20 20 20 20 20 | 20 20 20 67 6c 6f 62 61 |..      |   globa|
|00004f00| 6c 50 72 6f 63 73 20 3d | 20 67 6c 6f 62 61 6c 50 |lProcs =| globalP|
|00004f10| 72 6f 63 73 20 7c 7c 20 | 6e 61 6d 65 20 27 27 0d |rocs || |name ''.|
|00004f20| 0a 20 20 20 20 20 20 20 | 20 20 49 46 20 67 6c 6f |.       |  IF glo|
|00004f30| 62 61 6c 73 20 3d 20 27 | 27 20 54 48 45 4e 20 74 |bals = '|' THEN t|
|00004f40| 65 6d 70 20 3d 20 27 27 | 0d 0a 20 20 20 20 20 20 |emp = ''|..      |
|00004f50| 20 20 20 45 4c 53 45 20 | 74 65 6d 70 20 3d 20 73 |   ELSE |temp = s|
|00004f60| 75 62 73 74 72 28 20 67 | 6c 6f 62 61 6c 73 2c 20 |ubstr( g|lobals, |
|00004f70| 31 33 2c 20 6c 65 6e 67 | 74 68 28 20 67 6c 6f 62 |13, leng|th( glob|
|00004f80| 61 6c 73 20 29 20 2d 20 | 31 33 20 29 0d 0a 20 20 |als ) - |13 )..  |
|00004f90| 20 20 20 20 20 20 20 67 | 6c 6f 62 61 6c 73 20 3d |       g|lobals =|
|00004fa0| 20 73 75 62 73 74 72 28 | 20 64 72 6f 70 47 6c 6f | substr(| dropGlo|
|00004fb0| 62 61 6c 73 2c 20 31 2c | 20 38 20 29 20 7c 7c 2c |bals, 1,| 8 ) ||,|
|00004fc0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00004fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 72 65 76 |        |     rev|
|00004fe0| 65 72 73 65 28 20 44 32 | 43 28 20 6c 65 6e 67 74 |erse( D2|C( lengt|
|00004ff0| 68 28 20 74 65 6d 70 20 | 29 20 2b 20 6c 65 6e 67 |h( temp |) + leng|
|00005000| 74 68 28 20 6e 61 6d 65 | 20 29 20 2b 2c 0d 0a 20 |th( name| ) +,.. |
|00005010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005030| 20 20 20 20 20 20 20 20 | 6c 65 6e 67 74 68 28 20 |        |length( |
|00005040| 62 6f 64 79 20 29 20 2b | 20 32 2c 20 34 20 29 29 |body ) +| 2, 4 ))|
|00005050| 20 7c 7c 2c 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | ||,..  |        |
|00005060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005070| 20 44 32 43 28 20 6c 65 | 6e 67 74 68 28 20 6e 61 | D2C( le|ngth( na|
|00005080| 6d 65 20 29 2c 20 31 20 | 29 20 7c 7c 20 6e 61 6d |me ), 1 |) || nam|
|00005090| 65 20 7c 7c 20 62 6f 64 | 79 20 7c 7c 20 74 65 6d |e || bod|y || tem|
|000050a0| 70 20 7c 7c 2c 0d 0a 20 | 20 20 20 20 20 20 20 20 |p ||,.. |        |
|000050b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000050c0| 20 20 72 69 67 68 74 28 | 20 64 72 6f 70 47 6c 6f |  right(| dropGlo|
|000050d0| 62 61 6c 73 2c 20 31 20 | 29 0d 0a 20 20 20 20 20 |bals, 1 |)..     |
|000050e0| 20 20 20 20 45 4e 44 0d | 0a 20 20 20 20 20 20 69 |    END.|.      i|
|000050f0| 20 3d 20 69 32 0d 0a 20 | 20 20 45 4e 44 0d 0a 20 | = i2.. |  END.. |
|00005100| 20 20 52 45 54 55 52 4e | 0d 0a 0d 0a 55 70 64 61 |  RETURN|....Upda|
|00005110| 74 65 45 78 74 65 72 6e | 61 6c 73 3a 0d 0a 20 20 |teExtern|als:..  |
|00005120| 20 49 46 20 65 78 74 65 | 72 6e 61 6c 73 20 3d 20 | IF exte|rnals = |
|00005130| 27 27 20 54 48 45 4e 20 | 44 4f 0d 0a 20 20 20 20 |'' THEN |DO..    |
|00005140| 20 20 43 41 4c 4c 20 49 | 6e 69 74 45 78 74 65 72 |  CALL I|nitExter|
|00005150| 6e 61 6c 73 0d 0a 20 20 | 20 20 20 20 74 65 6d 70 |nals..  |    temp|
|00005160| 20 3d 20 27 27 0d 0a 20 | 20 20 20 20 20 45 4e 44 | = ''.. |     END|
|00005170| 0d 0a 20 20 20 45 4c 53 | 45 20 74 65 6d 70 20 3d |..   ELS|E temp =|
|00005180| 20 73 75 62 73 74 72 28 | 20 65 78 74 65 72 6e 61 | substr(| externa|
|00005190| 6c 73 2c 20 31 33 20 29 | 20 7c 7c 20 43 52 4c 46 |ls, 13 )| || CRLF|
|000051a0| 0d 0a 20 20 20 65 78 74 | 65 72 6e 61 6c 73 20 3d |..   ext|ernals =|
|000051b0| 20 73 75 62 73 74 72 28 | 20 64 72 6f 70 45 78 74 | substr(| dropExt|
|000051c0| 65 72 6e 61 6c 73 2c 20 | 31 2c 20 38 20 29 20 7c |ernals, |1, 8 ) ||
|000051d0| 7c 2c 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 ||,..    |        |
|000051e0| 20 20 20 72 65 76 65 72 | 73 65 28 44 32 43 28 20 |   rever|se(D2C( |
|000051f0| 6c 65 6e 67 74 68 28 74 | 65 6d 70 29 20 2b 20 6c |length(t|emp) + l|
|00005200| 65 6e 67 74 68 28 64 72 | 6f 70 45 78 74 65 72 6e |ength(dr|opExtern|
|00005210| 61 6c 73 29 20 2d 20 31 | 32 2c 20 34 20 29 29 20 |als) - 1|2, 4 )) |
|00005220| 7c 7c 2c 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |||,..   |        |
|00005230| 20 20 20 20 74 65 6d 70 | 20 7c 7c 20 73 75 62 73 |    temp| || subs|
|00005240| 74 72 28 20 64 72 6f 70 | 45 78 74 65 72 6e 61 6c |tr( drop|External|
|00005250| 53 2c 20 31 33 20 29 0d | 0a 20 20 20 52 45 54 55 |S, 13 ).|.   RETU|
|00005260| 52 4e 0d 0a 0d 0a 55 70 | 64 61 74 65 46 69 6c 65 |RN....Up|dateFile|
|00005270| 3a 0d 0a 20 20 20 6e 61 | 6d 65 73 20 3d 20 27 27 |:..   na|mes = ''|
|00005280| 0d 0a 20 20 20 64 6c 67 | 73 20 20 3d 20 27 27 0d |..   dlg|s  = ''.|
|00005290| 0a 20 20 20 44 4f 20 64 | 20 3d 20 31 20 54 4f 20 |.   DO d| = 1 TO |
|000052a0| 64 69 61 6c 6f 67 73 0d | 0a 20 20 20 20 20 20 69 |dialogs.|.      i|
|000052b0| 64 20 3d 20 64 69 61 6c | 6f 67 2e 64 0d 0a 20 20 |d = dial|og.d..  |
|000052c0| 20 20 20 20 49 46 20 6e | 61 6d 65 73 2e 69 64 20 |    IF n|ames.id |
|000052d0| 3c 3e 20 27 27 20 54 48 | 45 4e 20 6e 61 6d 65 73 |<> '' TH|EN names|
|000052e0| 20 3d 20 6e 61 6d 65 73 | 20 7c 7c 20 73 75 62 73 | = names| || subs|
|000052f0| 74 72 28 20 6e 61 6d 65 | 73 2e 69 64 2c 20 31 33 |tr( name|s.id, 13|
|00005300| 20 29 0d 0a 20 20 20 20 | 20 20 64 6c 67 73 20 3d | )..    |  dlgs =|
|00005310| 20 64 6c 67 73 20 7c 7c | 20 64 69 61 6c 6f 67 52 | dlgs ||| dialogR|
|00005320| 65 73 2e 69 64 20 7c 7c | 20 6d 65 6e 75 52 65 73 |es.id ||| menuRes|
|00005330| 2e 69 64 20 7c 7c 20 6d | 65 6e 75 2e 69 64 20 7c |.id || m|enu.id ||
|00005340| 7c 2c 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 ||,..    |        |
|00005350| 20 20 20 20 20 20 20 20 | 20 65 76 65 6e 74 2e 69 |        | event.i|
|00005360| 64 20 20 20 20 20 7c 7c | 20 63 6c 61 73 73 2e 69 |d     ||| class.i|
|00005370| 64 0d 0a 20 20 20 45 4e | 44 0d 0a 20 20 20 49 46 |d..   EN|D..   IF|
|00005380| 20 6e 61 6d 65 73 20 3c | 3e 20 27 27 20 54 48 45 | names <|> '' THE|
|00005390| 4e 0d 0a 20 20 20 20 20 | 20 6e 61 6d 65 73 20 3d |N..     | names =|
|000053a0| 20 73 75 62 73 74 72 28 | 20 6e 61 6d 65 73 2e 69 | substr(| names.i|
|000053b0| 64 2c 20 31 2c 20 38 20 | 29 20 7c 7c 20 72 65 76 |d, 1, 8 |) || rev|
|000053c0| 65 72 73 65 28 20 44 32 | 43 28 20 6c 65 6e 67 74 |erse( D2|C( lengt|
|000053d0| 68 28 20 6e 61 6d 65 73 | 20 29 2c 20 34 29 29 20 |h( names| ), 4)) |
|000053e0| 7c 7c 2c 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |||,..   |        |
|000053f0| 20 20 20 6e 61 6d 65 73 | 0d 0a 20 20 20 27 40 45 |   names|..   '@E|
|00005400| 52 41 53 45 27 20 77 6f | 72 6b 46 69 6c 65 0d 0a |RASE' wo|rkFile..|
|00005410| 20 20 20 43 41 4c 4c 20 | 43 68 61 72 4f 75 74 20 |   CALL |CharOut |
|00005420| 77 6f 72 6b 46 69 6c 65 | 2c 20 6e 61 6d 65 73 20 |workFile|, names |
|00005430| 7c 7c 20 64 6c 67 73 20 | 7c 7c 20 67 6c 6f 62 61 ||| dlgs ||| globa|
|00005440| 6c 73 20 7c 7c 20 65 78 | 74 65 72 6e 61 6c 73 20 |ls || ex|ternals |
|00005450| 7c 7c 20 75 6e 6b 6e 6f | 77 6e 0d 0a 20 20 20 43 ||| unkno|wn..   C|
|00005460| 41 4c 4c 20 53 74 72 65 | 61 6d 20 77 6f 72 6b 46 |ALL Stre|am workF|
|00005470| 69 6c 65 2c 20 27 43 27 | 2c 20 27 43 4c 4f 53 45 |ile, 'C'|, 'CLOSE|
|00005480| 27 0d 0a 20 20 20 6d 6f | 64 69 66 69 65 64 20 3d |'..   mo|dified =|
|00005490| 20 31 0d 0a 20 20 20 52 | 45 54 55 52 4e 0d 0a 0d | 1..   R|ETURN...|
|000054a0| 0a 53 61 76 65 46 69 6c | 65 3a 0d 0a 20 20 20 43 |.SaveFil|e:..   C|
|000054b0| 41 4c 4c 20 53 79 73 47 | 65 74 45 41 20 72 65 73 |ALL SysG|etEA res|
|000054c0| 46 69 6c 65 2c 20 20 27 | 2e 54 59 50 45 27 2c 20 |File,  '|.TYPE', |
|000054d0| 27 54 45 4d 50 27 0d 0a | 20 20 20 43 41 4c 4c 20 |'TEMP'..|   CALL |
|000054e0| 53 79 73 50 75 74 45 41 | 20 77 6f 72 6b 46 69 6c |SysPutEA| workFil|
|000054f0| 65 2c 20 27 2e 54 59 50 | 45 27 2c 20 74 65 6d 70 |e, '.TYP|E', temp|
|00005500| 0d 0a 20 20 20 27 40 43 | 4f 50 59 27 20 77 6f 72 |..   '@C|OPY' wor|
|00005510| 6b 46 69 6c 65 20 72 65 | 73 46 69 6c 65 0d 0a 20 |kFile re|sFile.. |
|00005520| 20 20 27 40 45 52 41 53 | 45 27 20 77 6f 72 6b 46 |  '@ERAS|E' workF|
|00005530| 69 6c 65 0d 0a 20 20 20 | 52 45 54 55 52 4e 0d 0a |ile..   |RETURN..|
|00005540| 0d 0a 44 6f 45 78 69 74 | 3a 0d 0a 20 20 20 49 46 |..DoExit|:..   IF|
|00005550| 20 6d 6f 64 69 66 69 65 | 64 20 54 48 45 4e 20 44 | modifie|d THEN D|
|00005560| 4f 0d 0a 20 20 20 20 20 | 20 43 41 4c 4c 20 53 61 |O..     | CALL Sa|
|00005570| 76 65 2e 4f 70 65 6e 20 | 2c 20 27 52 45 56 69 73 |ve.Open |, 'REVis|
|00005580| 65 3a 27 20 72 65 73 46 | 69 6c 65 0d 0a 20 20 20 |e:' resF|ile..   |
|00005590| 20 20 20 43 41 4c 4c 20 | 53 61 76 65 2e 46 6f 63 |   CALL |Save.Foc|
|000055a0| 75 73 0d 0a 20 20 20 20 | 20 20 45 4e 44 0d 0a 20 |us..    |  END.. |
|000055b0| 20 20 45 4c 53 45 20 27 | 40 45 52 41 53 45 27 20 |  ELSE '|@ERASE' |
|000055c0| 77 6f 72 6b 46 69 6c 65 | 0d 0a 20 20 20 53 49 47 |workFile|..   SIG|
|000055d0| 4e 41 4c 20 52 45 54 55 | 52 4e 0d 0a 0d 0a 44 6f |NAL RETU|RN....Do|
|000055e0| 53 69 7a 65 3a 0d 0a 20 | 20 20 50 41 52 53 45 20 |Size:.. |  PARSE |
|000055f0| 56 41 4c 55 45 20 50 6f | 73 69 74 69 6f 6e 28 29 |VALUE Po|sition()|
|00005600| 20 57 49 54 48 20 2e 20 | 2e 20 6e 64 78 20 6e 64 | WITH . |. ndx nd|
|00005610| 79 0d 0a 20 20 20 74 64 | 78 20 3d 20 6e 64 78 20 |y..   td|x = ndx |
|00005620| 2d 20 64 78 0d 0a 20 20 | 20 74 64 79 20 3d 20 6e |- dx..  | tdy = n|
|00005630| 64 79 20 2d 20 64 79 0d | 0a 20 20 20 43 41 4c 4c |dy - dy.|.   CALL|
|00005640| 20 61 64 64 2e 48 69 64 | 65 20 27 4e 27 0d 0a 20 | add.Hid|e 'N'.. |
|00005650| 20 20 43 41 4c 4c 20 64 | 65 6c 65 74 65 2e 48 69 |  CALL d|elete.Hi|
|00005660| 64 65 20 27 4e 27 0d 0a | 20 20 20 43 41 4c 4c 20 |de 'N'..|   CALL |
|00005670| 63 6f 6e 74 61 69 6e 65 | 72 2e 48 69 64 65 20 27 |containe|r.Hide '|
|00005680| 4e 27 0d 0a 20 20 20 43 | 41 4c 4c 20 61 64 64 2e |N'..   C|ALL add.|
|00005690| 50 6f 73 69 74 69 6f 6e | 20 61 78 2c 20 61 79 2c |Position| ax, ay,|
|000056a0| 20 61 64 78 20 2b 20 28 | 74 64 78 20 25 20 32 29 | adx + (|tdx % 2)|
|000056b0| 2c 20 61 64 79 0d 0a 20 | 20 20 43 41 4c 4c 20 64 |, ady.. |  CALL d|
|000056c0| 65 6c 65 74 65 2e 50 6f | 73 69 74 69 6f 6e 20 61 |elete.Po|sition a|
|000056d0| 78 20 2b 20 61 64 78 20 | 2b 20 28 74 64 78 20 25 |x + adx |+ (tdx %|
|000056e0| 20 32 29 2c 20 61 79 2c | 20 61 64 78 20 2b 20 28 | 2), ay,| adx + (|
|000056f0| 74 64 78 20 25 20 32 29 | 2c 20 61 64 79 0d 0a 20 |tdx % 2)|, ady.. |
|00005700| 20 20 43 41 4c 4c 20 63 | 6f 6e 74 61 69 6e 65 72 |  CALL c|ontainer|
|00005710| 2e 50 6f 73 69 74 69 6f | 6e 20 63 78 2c 20 63 79 |.Positio|n cx, cy|
|00005720| 2c 20 63 64 78 20 2b 20 | 74 64 78 2c 20 63 64 79 |, cdx + |tdx, cdy|
|00005730| 20 2b 20 74 64 79 0d 0a | 20 20 20 43 41 4c 4c 20 | + tdy..|   CALL |
|00005740| 61 64 64 2e 53 68 6f 77 | 0d 0a 20 20 20 43 41 4c |add.Show|..   CAL|
|00005750| 4c 20 64 65 6c 65 74 65 | 2e 53 68 6f 77 0d 0a 20 |L delete|.Show.. |
|00005760| 20 20 43 41 4c 4c 20 63 | 6f 6e 74 61 69 6e 65 72 |  CALL c|ontainer|
|00005770| 2e 53 68 6f 77 0d 0a 20 | 20 20 53 49 47 4e 41 4c |.Show.. |  SIGNAL|
|00005780| 20 52 45 54 55 52 4e 0d | 0a 0d 0a 4c 6f 67 3a 0d | RETURN.|...Log:.|
|00005790| 0a 20 20 20 49 46 20 5c | 6c 6f 67 67 69 6e 67 20 |.   IF \|logging |
|000057a0| 54 48 45 4e 20 44 4f 0d | 0a 20 20 20 20 20 20 6c |THEN DO.|.      l|
|000057b0| 6f 67 67 69 6e 67 20 3d | 20 31 0d 0a 20 20 20 20 |ogging =| 1..    |
|000057c0| 20 20 43 41 4c 4c 20 6c | 6f 67 2e 4f 70 65 6e 0d |  CALL l|og.Open.|
|000057d0| 0a 20 20 20 20 20 20 43 | 41 4c 4c 20 6c 6f 67 2e |.      C|ALL log.|
|000057e0| 54 65 78 74 20 27 52 45 | 56 69 73 65 3a 27 20 72 |Text 'RE|Vise:' r|
|000057f0| 65 73 46 69 6c 65 0d 0a | 20 20 20 20 20 20 43 41 |esFile..|      CA|
|00005800| 4c 4c 20 6c 6f 67 2e 53 | 68 6f 77 0d 0a 20 20 20 |LL log.S|how..   |
|00005810| 20 20 20 45 4e 44 0d 0a | 20 20 20 43 41 4c 4c 20 |   END..|   CALL |
|00005820| 6c 6f 67 2e 6d 65 73 73 | 61 67 65 2e 53 65 6c 65 |log.mess|age.Sele|
|00005830| 63 74 20 6c 6f 67 2e 6d | 65 73 73 61 67 65 2e 41 |ct log.m|essage.A|
|00005840| 64 64 28 20 61 72 67 28 | 31 29 20 29 2c 20 27 54 |dd( arg(|1) ), 'T|
|00005850| 4f 50 27 0d 0a 20 20 20 | 52 45 54 55 52 4e 0d 0a |OP'..   |RETURN..|
|00005860| 0d 0a 45 72 72 6f 72 3a | 0d 0a 20 20 20 43 41 4c |..Error:|..   CAL|
|00005870| 4c 20 65 72 72 6f 72 2e | 4f 70 65 6e 20 2c 20 27 |L error.|Open , '|
|00005880| 52 45 56 69 73 65 20 45 | 72 72 6f 72 27 0d 0a 20 |REVise E|rror'.. |
|00005890| 20 20 43 41 4c 4c 20 65 | 72 72 6f 72 2e 6d 73 67 |  CALL e|rror.msg|
|000058a0| 2e 54 65 78 74 20 61 72 | 67 28 31 29 0d 0a 20 20 |.Text ar|g(1)..  |
|000058b0| 20 49 46 20 44 72 73 41 | 69 64 65 20 54 48 45 4e | IF DrsA|ide THEN|
|000058c0| 20 43 41 4c 4c 20 44 72 | 44 69 61 6c 6f 67 20 27 | CALL Dr|Dialog '|
|000058d0| 4f 77 6e 65 72 27 2c 20 | 27 65 72 72 6f 72 27 0d |Owner', |'error'.|
|000058e0| 0a 20 20 20 43 41 4c 4c | 20 65 72 72 6f 72 2e 53 |.   CALL| error.S|
|000058f0| 68 6f 77 0d 0a 20 20 20 | 52 45 54 55 52 4e 0d 0a |how..   |RETURN..|
|00005900| 1a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+