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 / array.res < prev next >
Unknown | 1994-01-17 | 5.9 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 | 71 00 00 00 64 00 00 00 |......0.|q...d...|
|00000010| 05 61 72 72 61 79 69 00 | 04 00 00 6b 00 04 00 00 |.arrayi.|...k....|
|00000020| 68 00 0b 00 04 72 6f 77 | 73 6a 00 0b 00 04 63 6f |h....row|sj....co|
|00000030| 6c 73 65 00 01 00 06 63 | 72 65 61 74 65 73 00 01 |lse....c|reates..|
|00000040| 00 06 64 65 6c 65 74 65 | 74 00 01 00 04 64 6f 6e |..delete|t....don|
|00000050| 65 70 00 04 00 00 6e 00 | 04 00 00 71 00 0b 00 02 |ep....n.|...q....|
|00000060| 63 79 6f 00 0b 00 02 63 | 78 72 00 01 00 05 73 70 |cyo....c|xr....sp|
|00000070| 61 63 65 6c 00 10 00 00 | 6d 00 10 00 00 ff 01 dc |acel....|m.......|
|00000080| ff 01 00 30 10 10 0e 00 | 00 0f 5f 44 72 73 41 69 |...0....|.._DrsAi|
|00000090| 64 65 49 6e 69 41 70 70 | 5f f5 04 2f 2a 20 53 6f |deIniApp|_../* So|
|000000a0| 75 72 63 65 20 66 69 6c | 65 3a 20 46 3a 5c 44 72 |urce fil|e: F:\Dr|
|000000b0| 44 69 61 6c 6f 67 5c 44 | 72 52 65 78 78 5c 44 72 |Dialog\D|rRexx\Dr|
|000000c0| 73 41 69 64 65 2e 52 58 | 4c 20 2a 2f 0d 0a 2f 2a |sAide.RX|L */../*|
|000000d0| 20 46 69 6c 65 20 6c 61 | 73 74 20 6d 6f 64 69 66 | File la|st modif|
|000000e0| 69 65 64 20 6f 6e 3a 20 | 20 20 20 20 20 20 20 20 |ied on: |        |
|000000f0| 30 31 2f 30 36 2f 39 34 | 20 61 74 20 30 35 3a 34 |01/06/94| at 05:4|
|00000100| 35 70 6d 20 2a 2f 0d 0a | 2f 2a 20 50 72 6f 63 65 |5pm */..|/* Proce|
|00000110| 64 75 72 65 20 61 64 64 | 65 64 20 74 6f 20 6c 69 |dure add|ed to li|
|00000120| 62 72 61 72 79 20 6f 6e | 3a 20 30 31 2f 30 36 2f |brary on|: 01/06/|
|00000130| 39 34 20 61 74 20 30 35 | 3a 34 36 70 6d 20 2a 2f |94 at 05|:46pm */|
|00000140| 0d 0a 2f 2a 20 50 72 6f | 63 65 64 75 72 65 20 69 |../* Pro|cedure i|
|00000150| 6d 70 6f 72 74 65 64 20 | 6f 6e 3a 20 20 20 20 20 |mported |on:     |
|00000160| 20 20 20 20 30 31 2f 30 | 36 2f 39 34 20 61 74 20 |    01/0|6/94 at |
|00000170| 30 36 3a 33 33 70 6d 20 | 2a 2f 0d 0a 0d 0a 50 52 |06:33pm |*/....PR|
|00000180| 4f 43 45 44 55 52 45 0d | 0a 2f 2a 20 55 73 61 67 |OCEDURE.|./* Usag|
|00000190| 65 20 69 73 3a 20 69 6e | 69 41 70 70 20 3d 20 5f |e is: in|iApp = _|
|000001a0| 44 72 73 41 69 64 65 49 | 6e 69 41 70 70 5f 28 29 |DrsAideI|niApp_()|
|000001b0| 20 2a 2f 0d 0a 2f 2a 20 | 52 65 74 75 72 6e 73 20 | */../* |Returns |
|000001c0| 2e 49 4e 49 20 66 69 6c | 65 20 61 70 70 6c 69 63 |.INI fil|e applic|
|000001d0| 61 74 69 6f 6e 20 6b 65 | 79 20 6f 66 20 74 68 65 |ation ke|y of the|
|000001e0| 20 66 6f 72 6d 3a 20 66 | 69 6c 65 3a 64 69 61 6c | form: f|ile:dial|
|000001f0| 6f 67 20 2a 2f 0d 0a 20 | 20 20 50 41 52 53 45 20 |og */.. |  PARSE |
|00000200| 53 4f 55 52 43 45 20 2e | 20 2e 20 69 6e 69 41 70 |SOURCE .| . iniAp|
|00000210| 70 0d 0a 20 20 20 63 6f | 6c 20 3d 20 6c 61 73 74 |p..   co|l = last|
|00000220| 70 6f 73 28 20 27 5c 27 | 2c 20 69 6e 69 41 70 70 |pos( '\'|, iniApp|
|00000230| 20 29 0d 0a 20 20 20 49 | 46 20 63 6f 6c 20 3d 20 | )..   I|F col = |
|00000240| 30 20 54 48 45 4e 20 63 | 6f 6c 20 3d 20 6c 61 73 |0 THEN c|ol = las|
|00000250| 74 70 6f 73 28 20 27 3a | 27 2c 20 69 6e 69 41 70 |tpos( ':|', iniAp|
|00000260| 70 20 29 0d 0a 20 20 20 | 69 6e 69 41 70 70 20 3d |p )..   |iniApp =|
|00000270| 20 74 72 61 6e 73 6c 61 | 74 65 28 20 73 75 62 73 | transla|te( subs|
|00000280| 74 72 28 20 69 6e 69 41 | 70 70 2c 20 63 6f 6c 20 |tr( iniA|pp, col |
|00000290| 2b 20 31 20 29 20 29 0d | 0a 20 20 20 63 6f 6c 20 |+ 1 ) ).|.   col |
|000002a0| 20 20 20 3d 20 6c 61 73 | 74 70 6f 73 28 20 27 2e |   = las|tpos( '.|
|000002b0| 27 2c 20 69 6e 69 41 70 | 70 20 29 0d 0a 20 20 20 |', iniAp|p )..   |
|000002c0| 49 46 20 63 6f 6c 20 3c | 3e 20 30 20 54 48 45 4e |IF col <|> 0 THEN|
|000002d0| 20 69 6e 69 41 70 70 20 | 3d 20 6c 65 66 74 28 20 | iniApp |= left( |
|000002e0| 69 6e 69 41 70 70 2c 20 | 63 6f 6c 20 2d 20 31 20 |iniApp, |col - 1 |
|000002f0| 29 0d 0a 20 20 20 52 45 | 54 55 52 4e 20 69 6e 69 |)..   RE|TURN ini|
|00000300| 41 70 70 27 3a 27 44 69 | 61 6c 6f 67 28 29 0d 0a |App':'Di|alog()..|
|00000310| 0d 5f 44 72 73 41 69 64 | 65 49 6e 69 74 5f e5 0a |._DrsAid|eInit_..|
|00000320| 2f 2a 20 53 6f 75 72 63 | 65 20 66 69 6c 65 3a 20 |/* Sourc|e file: |
|00000330| 46 3a 5c 44 72 44 69 61 | 6c 6f 67 5c 44 72 52 65 |F:\DrDia|log\DrRe|
|00000340| 78 78 5c 44 72 73 41 69 | 64 65 2e 52 58 4c 20 2a |xx\DrsAi|de.RXL *|
|00000350| 2f 0d 0a 2f 2a 20 46 69 | 6c 65 20 6c 61 73 74 20 |/../* Fi|le last |
|00000360| 6d 6f 64 69 66 69 65 64 | 20 6f 6e 3a 20 20 20 20 |modified| on:    |
|00000370| 20 20 20 20 20 30 31 2f | 30 36 2f 39 34 20 61 74 |     01/|06/94 at|
|00000380| 20 30 35 3a 34 35 70 6d | 20 2a 2f 0d 0a 2f 2a 20 | 05:45pm| */../* |
|00000390| 50 72 6f 63 65 64 75 72 | 65 20 61 64 64 65 64 20 |Procedur|e added |
|000003a0| 74 6f 20 6c 69 62 72 61 | 72 79 20 6f 6e 3a 20 30 |to libra|ry on: 0|
|000003b0| 31 2f 30 36 2f 39 34 20 | 61 74 20 30 35 3a 34 36 |1/06/94 |at 05:46|
|000003c0| 70 6d 20 2a 2f 0d 0a 2f | 2a 20 50 72 6f 63 65 64 |pm */../|* Proced|
|000003d0| 75 72 65 20 69 6d 70 6f | 72 74 65 64 20 6f 6e 3a |ure impo|rted on:|
|000003e0| 20 20 20 20 20 20 20 20 | 20 30 31 2f 30 36 2f 39 |        | 01/06/9|
|000003f0| 34 20 61 74 20 30 36 3a | 33 33 70 6d 20 2a 2f 0d |4 at 06:|33pm */.|
|00000400| 0a 0d 0a 50 52 4f 43 45 | 44 55 52 45 0d 0a 2f 2a |...PROCE|DURE../*|
|00000410| 20 55 73 61 67 65 3a 20 | 72 63 20 3d 20 5f 44 72 | Usage: |rc = _Dr|
|00000420| 73 41 69 64 65 49 6e 69 | 74 28 20 68 77 6e 64 2c |sAideIni|t( hwnd,|
|00000430| 20 69 6e 69 46 69 6c 65 | 20 5b 2c 20 64 69 61 6c | iniFile| [, dial|
|00000440| 6f 67 5d 20 5b 2c 20 62 | 69 74 6d 61 70 5d 20 29 |og] [, b|itmap] )|
|00000450| 20 2a 2f 0d 0a 49 46 20 | 52 78 46 75 6e 63 51 75 | */..IF |RxFuncQu|
|00000460| 65 72 79 28 20 27 53 79 | 73 4c 6f 61 64 46 75 6e |ery( 'Sy|sLoadFun|
|00000470| 63 73 27 20 29 20 54 48 | 45 4e 20 44 4f 0d 0a 20 |cs' ) TH|EN DO.. |
|00000480| 20 20 43 41 4c 4c 20 52 | 78 46 75 6e 63 41 64 64 |  CALL R|xFuncAdd|
|00000490| 20 27 53 79 73 4c 6f 61 | 64 46 75 6e 63 73 27 2c | 'SysLoa|dFuncs',|
|000004a0| 20 27 52 65 78 78 55 74 | 69 6c 27 2c 20 27 53 79 | 'RexxUt|il', 'Sy|
|000004b0| 73 4c 6f 61 64 46 75 6e | 63 73 27 0d 0a 20 20 20 |sLoadFun|cs'..   |
|000004c0| 43 41 4c 4c 20 53 79 73 | 4c 6f 61 64 46 75 6e 63 |CALL Sys|LoadFunc|
|000004d0| 73 0d 0a 20 20 20 45 4e | 44 0d 0a 50 41 52 53 45 |s..   EN|D..PARSE|
|000004e0| 20 41 52 47 20 68 77 6e | 64 2c 20 69 6e 69 46 69 | ARG hwn|d, iniFi|
|000004f0| 6c 65 2c 20 64 69 61 6c | 6f 67 2c 20 62 69 74 6d |le, dial|og, bitm|
|00000500| 61 70 0d 0a 49 46 20 68 | 77 6e 64 20 3d 20 27 2d |ap..IF h|wnd = '-|
|00000510| 49 27 20 54 48 45 4e 20 | 44 4f 0d 0a 20 20 20 49 |I' THEN |DO..   I|
|00000520| 46 20 62 69 74 6d 61 70 | 20 3c 3e 20 27 27 20 54 |F bitmap| <> '' T|
|00000530| 48 45 4e 20 44 4f 0d 0a | 20 20 20 20 20 20 61 70 |HEN DO..|      ap|
|00000540| 70 73 20 3d 20 53 79 73 | 49 6e 69 28 20 69 6e 69 |ps = Sys|Ini( ini|
|00000550| 46 69 6c 65 2c 20 27 44 | 72 73 41 69 64 65 27 2c |File, 'D|rsAide',|
|00000560| 20 27 41 70 70 73 27 20 | 29 0d 0a 20 20 20 20 20 | 'Apps' |)..     |
|00000570| 20 49 46 20 61 70 70 73 | 20 3d 20 27 45 52 52 4f | IF apps| = 'ERRO|
|00000580| 52 3a 27 20 54 48 45 4e | 20 61 70 70 73 20 3d 20 |R:' THEN| apps = |
|00000590| 27 27 0d 0a 20 20 20 20 | 20 20 50 41 52 53 45 20 |''..    |  PARSE |
|000005a0| 53 4f 55 52 43 45 20 2e | 20 2e 20 72 65 73 46 69 |SOURCE .| . resFi|
|000005b0| 6c 65 0d 0a 20 20 20 20 | 20 20 63 6f 6c 20 3d 20 |le..    |  col = |
|000005c0| 70 6f 73 28 20 27 20 27 | 72 65 73 46 69 6c 65 27 |pos( ' '|resFile'|
|000005d0| 28 27 2c 20 61 70 70 73 | 20 29 0d 0a 20 20 20 20 |(', apps| )..    |
|000005e0| 20 20 49 46 20 63 6f 6c | 20 3c 3e 20 30 20 54 48 |  IF col| <> 0 TH|
|000005f0| 45 4e 20 44 4f 0d 0a 20 | 20 20 20 20 20 20 20 20 |EN DO.. |        |
|00000600| 63 6f 6c 32 20 3d 20 70 | 6f 73 28 20 27 29 27 2c |col2 = p|os( ')',|
|00000610| 20 61 70 70 73 2c 20 63 | 6f 6c 20 2b 20 6c 65 6e | apps, c|ol + len|
|00000620| 67 74 68 28 20 72 65 73 | 46 69 6c 65 20 29 20 2b |gth( res|File ) +|
|00000630| 20 32 20 29 0d 0a 20 20 | 20 20 20 20 20 20 20 61 | 2 )..  |       a|
|00000640| 70 70 73 20 3d 20 6c 65 | 66 74 28 20 61 70 70 73 |pps = le|ft( apps|
|00000650| 2c 20 63 6f 6c 20 2d 20 | 31 20 29 20 7c 7c 20 73 |, col - |1 ) || s|
|00000660| 75 62 73 74 72 28 20 61 | 70 70 73 2c 20 63 6f 6c |ubstr( a|pps, col|
|00000670| 32 20 2b 20 31 20 29 0d | 0a 20 20 20 20 20 20 20 |2 + 1 ).|.       |
|00000680| 20 20 45 4e 44 0d 0a 20 | 20 20 20 20 20 43 41 4c |  END.. |     CAL|
|00000690| 4c 20 53 79 73 49 6e 69 | 20 69 6e 69 46 69 6c 65 |L SysIni| iniFile|
|000006a0| 2c 20 27 44 72 73 41 69 | 64 65 27 2c 20 27 41 70 |, 'DrsAi|de', 'Ap|
|000006b0| 70 73 27 2c 20 61 70 70 | 73 2c 0d 0a 20 20 20 20 |ps', app|s,..    |
|000006c0| 20 20 20 20 20 20 20 74 | 72 61 6e 73 6c 61 74 65 |       t|ranslate|
|000006d0| 28 20 72 65 73 46 69 6c | 65 2c 20 27 30 31 27 58 |( resFil|e, '01'X|
|000006e0| 2c 20 27 20 27 20 29 27 | 28 27 74 72 61 6e 73 6c |, ' ' )'|('transl|
|000006f0| 61 74 65 28 20 62 69 74 | 6d 61 70 2c 20 27 30 31 |ate( bit|map, '01|
|00000700| 27 58 2c 20 27 20 27 20 | 29 27 29 27 0d 0a 20 20 |'X, ' ' |)')'..  |
|00000710| 20 20 20 20 43 41 4c 4c | 20 52 78 4d 65 73 73 61 |    CALL| RxMessa|
|00000720| 67 65 42 6f 78 20 72 65 | 73 46 69 6c 65 20 27 61 |geBox re|sFile 'a|
|00000730| 64 64 65 64 20 74 6f 20 | 44 72 73 41 69 64 65 27 |dded to |DrsAide'|
|00000740| 2c 20 27 44 72 73 41 69 | 64 65 27 2c 20 27 4f 4b |, 'DrsAi|de', 'OK|
|00000750| 27 2c 20 27 4e 4f 4e 45 | 27 0d 0a 20 20 20 20 20 |', 'NONE|'..     |
|00000760| 20 45 4e 44 0d 0a 20 20 | 20 45 4c 53 45 20 43 41 | END..  | ELSE CA|
|00000770| 4c 4c 20 52 78 4d 65 73 | 73 61 67 65 42 6f 78 20 |LL RxMes|sageBox |
|00000780| 72 65 73 46 69 6c 65 20 | 27 68 61 73 20 6e 6f 20 |resFile |'has no |
|00000790| 62 69 74 6d 61 70 27 2c | 20 27 44 72 73 41 69 64 |bitmap',| 'DrsAid|
|000007a0| 65 27 2c 20 27 43 41 4e | 43 45 4c 27 2c 20 27 4e |e', 'CAN|CEL', 'N|
|000007b0| 4f 4e 45 27 0d 0a 20 20 | 20 45 58 49 54 0d 0a 20 |ONE'..  | EXIT.. |
|000007c0| 20 20 45 4e 44 0d 0a 49 | 46 20 6c 65 66 74 28 20 |  END..I|F left( |
|000007d0| 68 77 6e 64 2c 20 32 20 | 29 20 3c 3e 20 27 2d 48 |hwnd, 2 |) <> '-H|
|000007e0| 27 20 54 48 45 4e 20 52 | 45 54 55 52 4e 20 30 0d |' THEN R|ETURN 0.|
|000007f0| 0a 43 41 4c 4c 20 44 72 | 44 69 61 6c 6f 67 20 27 |.CALL Dr|Dialog '|
|00000800| 49 6e 69 74 27 2c 20 68 | 77 6e 64 0d 0a 49 46 20 |Init', h|wnd..IF |
|00000810| 64 69 61 6c 6f 67 20 3d | 20 27 27 20 54 48 45 4e |dialog =| '' THEN|
|00000820| 20 44 4f 0d 0a 20 20 20 | 43 41 4c 4c 20 44 69 61 | DO..   |CALL Dia|
|00000830| 6c 6f 67 73 0d 0a 20 20 | 20 64 69 61 6c 6f 67 20 |logs..  | dialog |
|00000840| 3d 20 64 69 61 6c 6f 67 | 73 2e 31 0d 0a 20 20 20 |= dialog|s.1..   |
|00000850| 44 52 4f 50 20 64 69 61 | 6c 6f 67 73 0d 0a 20 20 |DROP dia|logs..  |
|00000860| 20 45 4e 44 0d 0a 43 41 | 4c 4c 20 4f 70 65 6e 46 | END..CA|LL OpenF|
|00000870| 6f 72 20 64 69 61 6c 6f | 67 0d 0a 52 45 54 55 52 |or dialo|g..RETUR|
|00000880| 4e 20 31 0d 0a 13 5f 44 | 72 73 41 69 64 65 44 69 |N 1..._D|rsAideDi|
|00000890| 61 6c 6f 67 49 6e 69 74 | 5f fd 04 2f 2a 20 53 6f |alogInit|_../* So|
|000008a0| 75 72 63 65 20 66 69 6c | 65 3a 20 46 3a 5c 44 72 |urce fil|e: F:\Dr|
|000008b0| 44 69 61 6c 6f 67 5c 44 | 72 52 65 78 78 5c 44 72 |Dialog\D|rRexx\Dr|
|000008c0| 73 41 69 64 65 2e 52 58 | 4c 20 2a 2f 0d 0a 2f 2a |sAide.RX|L */../*|
|000008d0| 20 46 69 6c 65 20 6c 61 | 73 74 20 6d 6f 64 69 66 | File la|st modif|
|000008e0| 69 65 64 20 6f 6e 3a 20 | 20 20 20 20 20 20 20 20 |ied on: |        |
|000008f0| 30 31 2f 30 36 2f 39 34 | 20 61 74 20 30 35 3a 34 |01/06/94| at 05:4|
|00000900| 35 70 6d 20 2a 2f 0d 0a | 2f 2a 20 50 72 6f 63 65 |5pm */..|/* Proce|
|00000910| 64 75 72 65 20 61 64 64 | 65 64 20 74 6f 20 6c 69 |dure add|ed to li|
|00000920| 62 72 61 72 79 20 6f 6e | 3a 20 30 31 2f 30 36 2f |brary on|: 01/06/|
|00000930| 39 34 20 61 74 20 30 35 | 3a 34 36 70 6d 20 2a 2f |94 at 05|:46pm */|
|00000940| 0d 0a 2f 2a 20 50 72 6f | 63 65 64 75 72 65 20 69 |../* Pro|cedure i|
|00000950| 6d 70 6f 72 74 65 64 20 | 6f 6e 3a 20 20 20 20 20 |mported |on:     |
|00000960| 20 20 20 20 30 31 2f 30 | 36 2f 39 34 20 61 74 20 |    01/0|6/94 at |
|00000970| 30 36 3a 33 33 70 6d 20 | 2a 2f 0d 0a 0d 0a 50 52 |06:33pm |*/....PR|
|00000980| 4f 43 45 44 55 52 45 20 | 45 58 50 4f 53 45 20 78 |OCEDURE |EXPOSE x|
|00000990| 2e 20 79 2e 20 64 78 2e | 20 64 79 2e 0d 0a 2f 2a |. y. dx.| dy.../*|
|000009a0| 20 55 73 61 67 65 20 69 | 73 3a 20 43 41 4c 4c 20 | Usage i|s: CALL |
|000009b0| 5f 44 72 73 41 69 64 65 | 44 69 61 6c 6f 67 49 6e |_DrsAide|DialogIn|
|000009c0| 69 74 20 68 77 6e 64 2c | 20 69 6e 69 46 69 6c 65 |it hwnd,| iniFile|
|000009d0| 20 2a 2f 0d 0a 50 41 52 | 53 45 20 41 52 47 20 68 | */..PAR|SE ARG h|
|000009e0| 77 6e 64 2c 20 69 6e 69 | 46 69 6c 65 0d 0a 49 46 |wnd, ini|File..IF|
|000009f0| 20 6c 65 66 74 28 20 68 | 77 6e 64 2c 20 32 20 29 | left( h|wnd, 2 )|
|00000a00| 20 3d 20 27 2d 48 27 20 | 54 48 45 4e 20 44 4f 0d | = '-H' |THEN DO.|
|00000a10| 0a 20 20 20 64 69 61 6c | 6f 67 20 3d 20 44 69 61 |.   dial|og = Dia|
|00000a20| 6c 6f 67 28 29 0d 0a 20 | 20 20 43 41 4c 4c 20 44 |log().. |  CALL D|
|00000a30| 72 44 69 61 6c 6f 67 20 | 27 4f 77 6e 65 72 27 2c |rDialog |'Owner',|
|00000a40| 20 64 69 61 6c 6f 67 0d | 0a 20 20 20 50 41 52 53 | dialog.|.   PARS|
|00000a50| 45 20 56 41 4c 55 45 20 | 53 79 73 49 6e 69 28 20 |E VALUE |SysIni( |
|00000a60| 69 6e 69 46 69 6c 65 2c | 20 5f 44 72 73 41 69 64 |iniFile,| _DrsAid|
|00000a70| 65 49 6e 69 41 70 70 5f | 28 29 2c 20 27 50 6f 73 |eIniApp_|(), 'Pos|
|00000a80| 27 20 29 20 57 49 54 48 | 20 78 2e 64 69 61 6c 6f |' ) WITH| x.dialo|
|00000a90| 67 20 79 2e 64 69 61 6c | 6f 67 20 64 78 2e 64 69 |g y.dial|og dx.di|
|00000aa0| 61 6c 6f 67 20 64 79 2e | 64 69 61 6c 6f 67 0d 0a |alog dy.|dialog..|
|00000ab0| 20 20 20 49 46 20 78 2e | 64 69 61 6c 6f 67 20 3c |   IF x.|dialog <|
|00000ac0| 3e 20 27 45 52 52 4f 52 | 3a 27 20 54 48 45 4e 20 |> 'ERROR|:' THEN |
|00000ad0| 43 41 4c 4c 20 50 6f 73 | 69 74 69 6f 6e 20 78 2e |CALL Pos|ition x.|
|00000ae0| 64 69 61 6c 6f 67 20 79 | 2e 64 69 61 6c 6f 67 20 |dialog y|.dialog |
|00000af0| 64 78 2e 64 69 61 6c 6f | 67 20 64 79 2e 64 69 61 |dx.dialo|g dy.dia|
|00000b00| 6c 6f 67 0d 0a 20 20 20 | 45 4e 44 0d 0a 43 41 4c |log..   |END..CAL|
|00000b10| 4c 20 53 68 6f 77 0d 0a | 13 5f 44 72 73 41 69 64 |L Show..|._DrsAid|
|00000b20| 65 44 69 61 6c 6f 67 45 | 78 69 74 5f 84 05 2f 2a |eDialogE|xit_../*|
|00000b30| 20 53 6f 75 72 63 65 20 | 66 69 6c 65 3a 20 46 3a | Source |file: F:|
|00000b40| 5c 44 72 44 69 61 6c 6f | 67 5c 44 72 52 65 78 78 |\DrDialo|g\DrRexx|
|00000b50| 5c 44 72 73 41 69 64 65 | 2e 52 58 4c 20 2a 2f 0d |\DrsAide|.RXL */.|
|00000b60| 0a 2f 2a 20 46 69 6c 65 | 20 6c 61 73 74 20 6d 6f |./* File| last mo|
|00000b70| 64 69 66 69 65 64 20 6f | 6e 3a 20 20 20 20 20 20 |dified o|n:      |
|00000b80| 20 20 20 30 31 2f 30 36 | 2f 39 34 20 61 74 20 30 |   01/06|/94 at 0|
|00000b90| 35 3a 34 35 70 6d 20 2a | 2f 0d 0a 2f 2a 20 50 72 |5:45pm *|/../* Pr|
|00000ba0| 6f 63 65 64 75 72 65 20 | 61 64 64 65 64 20 74 6f |ocedure |added to|
|00000bb0| 20 6c 69 62 72 61 72 79 | 20 6f 6e 3a 20 30 31 2f | library| on: 01/|
|00000bc0| 30 36 2f 39 34 20 61 74 | 20 30 35 3a 34 36 70 6d |06/94 at| 05:46pm|
|00000bd0| 20 2a 2f 0d 0a 2f 2a 20 | 50 72 6f 63 65 64 75 72 | */../* |Procedur|
|00000be0| 65 20 69 6d 70 6f 72 74 | 65 64 20 6f 6e 3a 20 20 |e import|ed on:  |
|00000bf0| 20 20 20 20 20 20 20 30 | 31 2f 30 36 2f 39 34 20 |       0|1/06/94 |
|00000c00| 61 74 20 30 36 3a 33 33 | 70 6d 20 2a 2f 0d 0a 0d |at 06:33|pm */...|
|00000c10| 0a 50 52 4f 43 45 44 55 | 52 45 20 45 58 50 4f 53 |.PROCEDU|RE EXPOS|
|00000c20| 45 20 78 2e 20 79 2e 20 | 64 78 2e 20 64 79 2e 0d |E x. y. |dx. dy..|
|00000c30| 0a 2f 2a 20 55 73 61 67 | 65 20 69 6e 3a 20 43 41 |./* Usag|e in: CA|
|00000c40| 4c 4c 20 5f 44 72 73 41 | 69 64 65 44 69 61 6c 6f |LL _DrsA|ideDialo|
|00000c50| 67 45 78 69 74 5f 20 68 | 77 6e 64 2c 20 69 6e 69 |gExit_ h|wnd, ini|
|00000c60| 46 69 6c 65 20 2a 2f 0d | 0a 50 41 52 53 45 20 41 |File */.|.PARSE A|
|00000c70| 52 47 20 68 77 6e 64 2c | 20 69 6e 69 46 69 6c 65 |RG hwnd,| iniFile|
|00000c80| 0d 0a 49 46 20 6c 65 66 | 74 28 20 68 77 6e 64 2c |..IF lef|t( hwnd,|
|00000c90| 20 32 20 29 20 3d 20 27 | 2d 48 27 20 54 48 45 4e | 2 ) = '|-H' THEN|
|00000ca0| 20 44 4f 0d 0a 20 20 20 | 50 41 52 53 45 20 56 41 | DO..   |PARSE VA|
|00000cb0| 4c 55 45 20 50 6f 73 69 | 74 69 6f 6e 28 29 20 57 |LUE Posi|tion() W|
|00000cc0| 49 54 48 20 6e 65 77 58 | 20 6e 65 77 59 20 6e 65 |ITH newX| newY ne|
|00000cd0| 77 44 58 20 6e 65 77 44 | 59 0d 0a 20 20 20 64 69 |wDX newD|Y..   di|
|00000ce0| 61 6c 6f 67 20 3d 20 44 | 69 61 6c 6f 67 28 29 0d |alog = D|ialog().|
|00000cf0| 0a 20 20 20 49 46 20 28 | 6e 65 77 78 20 20 3c 3e |.   IF (|newx  <>|
|00000d00| 20 78 2e 64 69 61 6c 6f | 67 29 20 20 7c 20 28 6e | x.dialo|g)  | (n|
|00000d10| 65 77 59 20 20 3c 3e 20 | 79 2e 64 69 61 6c 6f 67 |ewY  <> |y.dialog|
|00000d20| 29 20 7c 2c 0d 0a 20 20 | 20 20 20 20 28 6e 65 77 |) |,..  |    (new|
|00000d30| 44 58 20 3c 3e 20 64 78 | 2e 64 69 61 6c 6f 67 29 |DX <> dx|.dialog)|
|00000d40| 20 7c 20 28 6e 65 77 44 | 59 20 3c 3e 20 64 79 2e | | (newD|Y <> dy.|
|00000d50| 64 69 61 6c 6f 67 29 20 | 54 48 45 4e 0d 0a 20 20 |dialog) |THEN..  |
|00000d60| 20 20 20 20 43 41 4c 4c | 20 53 79 73 49 6e 69 20 |    CALL| SysIni |
|00000d70| 69 6e 69 46 69 6c 65 2c | 20 5f 44 72 73 41 69 64 |iniFile,| _DrsAid|
|00000d80| 65 49 6e 69 41 70 70 5f | 28 29 2c 20 27 50 6f 73 |eIniApp_|(), 'Pos|
|00000d90| 27 2c 20 6e 65 77 58 20 | 6e 65 77 59 20 6e 65 77 |', newX |newY new|
|00000da0| 44 58 20 6e 65 77 44 59 | 0d 0a 20 20 20 45 4e 44 |DX newDY|..   END|
|00000db0| 0d 0a 04 49 6e 69 74 df | 01 2f 2a 20 28 63 29 20 |...Init.|./* (c) |
|00000dc0| 43 6f 70 79 72 69 67 68 | 74 20 49 6e 74 65 72 6e |Copyrigh|t Intern|
|00000dd0| 61 74 69 6f 6e 61 6c 20 | 42 75 73 69 6e 65 73 73 |ational |Business|
|00000de0| 20 4d 61 63 68 69 6e 65 | 73 20 43 6f 72 70 6f 72 | Machine|s Corpor|
|00000df0| 61 74 69 6f 6e 20 31 39 | 39 33 20 2a 2f 0d 0a 2f |ation 19|93 */../|
|00000e00| 2a 20 41 6c 6c 20 72 69 | 67 68 74 73 20 72 65 73 |* All ri|ghts res|
|00000e10| 65 72 76 65 64 20 2a 2f | 0d 0a 0d 0a 50 41 52 53 |erved */|....PARS|
|00000e20| 45 20 41 52 47 20 68 77 | 6e 64 20 69 6e 69 46 69 |E ARG hw|nd iniFi|
|00000e30| 6c 65 20 72 65 73 74 0d | 0a 49 46 20 5f 44 72 73 |le rest.|.IF _Drs|
|00000e40| 41 69 64 65 49 6e 69 74 | 5f 28 20 68 77 6e 64 2c |AideInit|_( hwnd,|
|00000e50| 20 69 6e 69 46 69 6c 65 | 20 29 20 3d 20 30 20 54 | iniFile| ) = 0 T|
|00000e60| 48 45 4e 0d 0a 20 20 20 | 53 41 59 20 27 54 68 69 |HEN..   |SAY 'Thi|
|00000e70| 73 20 70 72 6f 67 72 61 | 6d 20 63 61 6e 20 6f 6e |s progra|m can on|
|00000e80| 6c 79 20 62 65 20 72 75 | 6e 20 66 72 6f 6d 20 44 |ly be ru|n from D|
|00000e90| 72 44 69 61 6c 6f 67 27 | ff ff 04 00 ff 64 00 30 |rDialog'|.....d.0|
|00000ea0| 10 3e 02 00 00 3e 02 00 | 00 b5 01 0e 00 01 00 ff |.>...>..|........|
|00000eb0| ff 00 00 00 00 0e 00 00 | 00 00 00 11 00 d0 01 80 |........|........|
|00000ec0| 00 00 16 a1 00 56 00 7e | 00 5a 00 64 00 ff ff e2 |.....V.~|.Z.d....|
|00000ed0| 01 00 00 00 00 00 00 05 | 00 05 00 e6 01 01 06 01 |........|........|
|00000ee0| 80 05 00 46 00 29 00 0a | 00 69 00 ff ff ff ff 00 |...F.)..|.i......|
|00000ef0| 00 00 00 00 00 05 00 08 | 00 ec 01 01 06 00 80 05 |........|........|
|00000f00| 00 3a 00 29 00 0a 00 6b | 00 ff ff ff ff 00 00 00 |.:.)...k|........|
|00000f10| 00 00 00 20 00 00 00 f5 | 01 11 00 02 80 30 00 46 |... ....|.....0.F|
|00000f20| 00 1b 00 0c 00 68 00 ff | ff ff ff 00 00 00 00 00 |.....h..|........|
|00000f30| 00 20 00 00 00 f6 01 11 | 00 02 80 30 00 39 00 1b |. ......|...0.9..|
|00000f40| 00 0c 00 6a 00 ff ff ff | ff 00 00 00 00 00 00 03 |...j....|........|
|00000f50| 00 06 00 f7 01 00 00 02 | 80 4f 00 46 00 28 00 0b |........|.O.F.(..|
|00000f60| 00 65 00 ff ff ff ff 00 | 00 00 00 00 00 03 00 06 |.e......|........|
|00000f70| 00 fe 01 00 00 02 80 4f | 00 39 00 28 00 0b 00 73 |.......O|.9.(...s|
|00000f80| 00 ff ff ff ff 00 00 00 | 00 00 00 03 00 04 00 05 |........|........|
|00000f90| 02 00 00 02 80 4f 00 2c | 00 28 00 0b 00 74 00 ff |.....O.,|.(...t..|
|00000fa0| ff ff ff 00 00 00 00 00 | 00 05 00 05 00 0a 02 01 |........|........|
|00000fb0| 06 01 80 05 00 15 00 29 | 00 0a 00 70 00 ff ff ff |.......)|...p....|
|00000fc0| ff 00 00 00 00 00 00 05 | 00 08 00 10 02 01 06 00 |........|........|
|00000fd0| 80 05 00 08 00 29 00 0a | 00 6e 00 ff ff ff ff 00 |.....)..|.n......|
|00000fe0| 00 00 00 00 00 20 00 00 | 00 19 02 11 00 02 80 30 |..... ..|.......0|
|00000ff0| 00 14 00 1b 00 0c 00 71 | 00 ff ff ff ff 00 00 00 |.......q|........|
|00001000| 00 00 00 20 00 00 00 1a | 02 11 00 02 80 30 00 07 |... ....|.....0..|
|00001010| 00 1b 00 0c 00 6f 00 ff | ff ff ff 00 00 00 00 00 |.....o..|........|
|00001020| 00 03 00 05 00 1b 02 00 | 00 02 80 50 00 0e 00 28 |........|...P...(|
|00001030| 00 0c 00 72 00 ff ff ff | ff 00 00 00 00 00 00 05 |...r....|........|
|00001040| 00 13 00 21 02 02 00 00 | 80 03 00 28 00 79 00 31 |...!....|...(.y.1|
|00001050| 00 6c 00 ff ff ff ff 00 | 00 00 00 00 00 05 00 08 |.l......|........|
|00001060| 00 35 02 02 00 00 80 03 | 00 02 00 79 00 26 00 6d |.5......|...y.&.m|
|00001070| 00 ff ff ff ff 41 72 72 | 61 79 20 6f 66 20 63 6f |.....Arr|ay of co|
|00001080| 6e 74 72 6f 6c 73 00 03 | 10 00 00 52 6f 77 73 3a |ntrols..|...Rows:|
|00001090| 00 43 6f 6c 75 6d 6e 73 | 3a 00 00 00 43 72 65 61 |.Columns|:...Crea|
|000010a0| 74 65 00 44 65 6c 65 74 | 65 00 44 6f 6e 65 00 52 |te.Delet|e.Done.R|
|000010b0| 6f 77 73 3a 00 43 6f 6c | 75 6d 6e 73 3a 00 00 00 |ows:.Col|umns:...|
|000010c0| 53 70 61 63 65 00 4e 75 | 6d 62 65 72 20 6f 66 20 |Space.Nu|mber of |
|000010d0| 65 6c 65 6d 65 6e 74 73 | 3a 00 53 70 61 63 69 6e |elements|:.Spacin|
|000010e0| 67 3a 00 ff 04 dc ff 64 | 00 30 10 85 06 00 00 80 |g:.....d|.0......|
|000010f0| 64 00 04 45 78 69 74 26 | 43 41 4c 4c 20 5f 44 72 |d..Exit&|CALL _Dr|
|00001100| 73 41 69 64 65 44 69 61 | 6c 6f 67 45 78 69 74 5f |sAideDia|logExit_|
|00001110| 20 68 77 6e 64 2c 20 69 | 6e 69 46 69 6c 65 04 49 | hwnd, i|niFile.I|
|00001120| 6e 69 74 62 43 41 4c 4c | 20 64 65 6c 65 74 65 2e |nitbCALL| delete.|
|00001130| 44 69 73 61 62 6c 65 0d | 0a 43 41 4c 4c 20 64 6f |Disable.|.CALL do|
|00001140| 6e 65 2e 44 69 73 61 62 | 6c 65 0d 0a 43 41 4c 4c |ne.Disab|le..CALL|
|00001150| 20 73 70 61 63 65 2e 44 | 69 73 61 62 6c 65 0d 0a | space.D|isable..|
|00001160| 43 41 4c 4c 20 5f 44 72 | 73 41 69 64 65 44 69 61 |CALL _Dr|sAideDia|
|00001170| 6c 6f 67 49 6e 69 74 5f | 20 68 77 6e 64 2c 20 69 |logInit_| hwnd, i|
|00001180| 6e 69 46 69 6c 65 80 72 | 00 05 43 6c 69 63 6b ad |niFile.r|..Click.|
|00001190| 02 50 41 52 53 45 20 56 | 41 4c 55 45 20 44 72 44 |.PARSE V|ALUE DrD|
|000011a0| 69 61 6c 6f 67 28 20 27 | 50 6f 73 27 2c 20 62 61 |ialog( '|Pos', ba|
|000011b0| 73 65 49 64 20 29 20 57 | 49 54 48 20 78 20 79 20 |seId ) W|ITH x y |
|000011c0| 64 78 20 64 79 0d 0a 63 | 78 20 3d 20 63 78 2e 53 |dx dy..c|x = cx.S|
|000011d0| 65 6c 65 63 74 28 29 0d | 0a 63 79 20 3d 20 63 79 |elect().|.cy = cy|
|000011e0| 2e 53 65 6c 65 63 74 28 | 29 0d 0a 69 20 20 20 3d |.Select(|)..i   =|
|000011f0| 20 31 0d 0a 44 4f 20 72 | 20 3d 20 31 20 54 4f 20 | 1..DO r| = 1 TO |
|00001200| 72 6f 77 73 0d 0a 20 20 | 20 20 78 63 20 3d 20 78 |rows..  |  xc = x|
|00001210| 0d 0a 20 20 20 20 44 4f | 20 63 20 3d 20 31 20 54 |..    DO| c = 1 T|
|00001220| 4f 20 63 6f 6c 73 0d 0a | 20 20 20 20 20 20 20 20 |O cols..|        |
|00001230| 69 64 20 3d 20 77 6f 72 | 64 28 20 69 64 73 2c 20 |id = wor|d( ids, |
|00001240| 69 20 29 0d 0a 20 20 20 | 20 20 20 20 20 69 20 20 |i )..   |     i  |
|00001250| 3d 20 69 20 2b 20 31 0d | 0a 20 20 20 20 20 20 20 |= i + 1.|.       |
|00001260| 20 43 41 4c 4c 20 44 72 | 44 69 61 6c 6f 67 20 27 | CALL Dr|Dialog '|
|00001270| 50 6f 73 27 2c 20 69 64 | 2c 20 78 63 2c 20 79 0d |Pos', id|, xc, y.|
|00001280| 0a 20 20 20 20 20 20 20 | 20 78 63 20 3d 20 78 63 |.       | xc = xc|
|00001290| 20 2b 20 64 78 20 2b 20 | 63 78 20 0d 0a 20 20 20 | + dx + |cx ..   |
|000012a0| 20 45 4e 44 0d 0a 20 20 | 20 20 79 20 3d 20 79 20 | END..  |  y = y |
|000012b0| 2d 20 64 79 20 2d 20 63 | 79 0d 0a 45 4e 44 80 6f |- dy - c|y..END.o|
|000012c0| 00 04 49 6e 69 74 10 43 | 41 4c 4c 20 52 61 6e 67 |..Init.C|ALL Rang|
|000012d0| 65 20 30 2c 20 33 30 80 | 71 00 04 49 6e 69 74 10 |e 0, 30.|q..Init.|
|000012e0| 43 41 4c 4c 20 52 61 6e | 67 65 20 30 2c 20 33 30 |CALL Ran|ge 0, 30|
|000012f0| 80 74 00 05 43 6c 69 63 | 6b 4e 43 41 4c 4c 20 63 |.t..Clic|kNCALL c|
|00001300| 72 65 61 74 65 2e 45 6e | 61 62 6c 65 0d 0a 43 41 |reate.En|able..CA|
|00001310| 4c 4c 20 64 65 6c 65 74 | 65 2e 44 69 73 61 62 6c |LL delet|e.Disabl|
|00001320| 65 0d 0a 43 41 4c 4c 20 | 64 6f 6e 65 2e 44 69 73 |e..CALL |done.Dis|
|00001330| 61 62 6c 65 0d 0a 43 41 | 4c 4c 20 73 70 61 63 65 |able..CA|LL space|
|00001340| 2e 44 69 73 61 62 6c 65 | 80 73 00 05 43 6c 69 63 |.Disable|.s..Clic|
|00001350| 6b a0 01 44 4f 20 69 20 | 3d 20 32 20 54 4f 20 77 |k..DO i |= 2 TO w|
|00001360| 6f 72 64 73 28 20 69 64 | 73 20 29 0d 0a 20 20 20 |ords( id|s )..   |
|00001370| 20 43 41 4c 4c 20 44 72 | 44 69 61 6c 6f 67 20 27 | CALL Dr|Dialog '|
|00001380| 44 72 6f 70 43 6f 6e 74 | 72 6f 6c 27 2c 20 77 6f |DropCont|rol', wo|
|00001390| 72 64 28 20 69 64 73 2c | 20 69 20 29 0d 0a 45 4e |rd( ids,| i )..EN|
|000013a0| 44 0d 0a 43 41 4c 4c 20 | 63 72 65 61 74 65 2e 45 |D..CALL |create.E|
|000013b0| 6e 61 62 6c 65 0d 0a 43 | 41 4c 4c 20 64 65 6c 65 |nable..C|ALL dele|
|000013c0| 74 65 2e 44 69 73 61 62 | 6c 65 0d 0a 43 41 4c 4c |te.Disab|le..CALL|
|000013d0| 20 64 6f 6e 65 2e 44 69 | 73 61 62 6c 65 0d 0a 43 | done.Di|sable..C|
|000013e0| 41 4c 4c 20 73 70 61 63 | 65 2e 44 69 73 61 62 6c |ALL spac|e.Disabl|
|000013f0| 65 0d 0a 80 65 00 05 43 | 6c 69 63 6b c3 06 62 61 |e...e..C|lick..ba|
|00001400| 73 65 49 64 20 3d 20 44 | 72 44 69 61 6c 6f 67 28 |seId = D|rDialog(|
|00001410| 20 27 43 6f 6e 74 72 6f | 6c 27 20 29 0d 0a 49 46 | 'Contro|l' )..IF|
|00001420| 20 62 61 73 65 49 64 20 | 3d 20 27 27 20 54 48 45 | baseId |= '' THE|
|00001430| 4e 20 44 4f 0d 0a 20 20 | 20 43 41 4c 4c 20 42 65 |N DO..  | CALL Be|
|00001440| 65 70 20 34 34 30 2c 20 | 35 30 0d 0a 20 20 20 53 |ep 440, |50..   S|
|00001450| 49 47 4e 41 4c 20 52 45 | 54 55 52 4e 0d 0a 20 20 |IGNAL RE|TURN..  |
|00001460| 20 45 4e 44 0d 0a 74 79 | 70 65 20 3d 20 44 72 44 | END..ty|pe = DrD|
|00001470| 69 61 6c 6f 67 28 20 27 | 43 6c 61 73 73 27 2c 20 |ialog( '|Class', |
|00001480| 62 61 73 65 49 64 20 29 | 0d 0a 49 46 20 74 79 70 |baseId )|..IF typ|
|00001490| 65 20 3d 20 27 44 49 41 | 4c 4f 47 27 20 54 48 45 |e = 'DIA|LOG' THE|
|000014a0| 4e 20 44 4f 0d 0a 20 20 | 20 43 41 4c 4c 20 42 65 |N DO..  | CALL Be|
|000014b0| 65 70 20 34 34 30 2c 20 | 35 30 0d 0a 20 20 20 53 |ep 440, |50..   S|
|000014c0| 49 47 4e 41 4c 20 52 45 | 54 55 52 4e 0d 0a 20 20 |IGNAL RE|TURN..  |
|000014d0| 20 45 4e 44 0d 0a 50 41 | 52 53 45 20 56 41 4c 55 | END..PA|RSE VALU|
|000014e0| 45 20 44 72 44 69 61 6c | 6f 67 28 20 27 50 6f 73 |E DrDial|og( 'Pos|
|000014f0| 27 2c 20 62 61 73 65 49 | 64 20 29 20 57 49 54 48 |', baseI|d ) WITH|
|00001500| 20 78 20 79 20 64 78 20 | 64 79 0d 0a 72 6f 77 73 | x y dx |dy..rows|
|00001510| 20 20 20 3d 20 72 6f 77 | 73 2e 53 65 6c 65 63 74 |   = row|s.Select|
|00001520| 28 29 0d 0a 63 6f 6c 73 | 20 20 20 20 3d 20 63 6f |()..cols|    = co|
|00001530| 6c 73 2e 53 65 6c 65 63 | 74 28 29 0d 0a 63 78 20 |ls.Selec|t()..cx |
|00001540| 20 20 20 20 20 3d 20 63 | 78 2e 53 65 6c 65 63 74 |     = c|x.Select|
|00001550| 28 29 0d 0a 63 79 20 20 | 20 20 20 20 3d 20 63 79 |()..cy  |    = cy|
|00001560| 2e 53 65 6c 65 63 74 28 | 29 0d 0a 6e 65 78 74 49 |.Select(|)..nextI|
|00001570| 64 20 3d 20 62 61 73 65 | 49 64 0d 0a 69 64 73 20 |d = base|Id..ids |
|00001580| 20 20 20 20 20 3d 20 62 | 61 73 65 49 64 0d 0a 44 |     = b|aseId..D|
|00001590| 4f 20 72 20 3d 20 31 20 | 54 4f 20 72 6f 77 73 0d |O r = 1 |TO rows.|
|000015a0| 0a 20 20 20 20 78 63 20 | 3d 20 78 0d 0a 20 20 20 |.    xc |= x..   |
|000015b0| 20 44 4f 20 63 20 3d 20 | 31 20 54 4f 20 63 6f 6c | DO c = |1 TO col|
|000015c0| 73 0d 0a 20 20 20 20 20 | 20 20 20 49 46 20 28 72 |s..     |   IF (r|
|000015d0| 20 3c 3e 20 31 29 20 7c | 20 28 63 20 3c 3e 20 31 | <> 1) || (c <> 1|
|000015e0| 29 20 54 48 45 4e 20 44 | 4f 0d 0a 20 20 20 20 20 |) THEN D|O..     |
|000015f0| 20 20 20 20 20 20 6e 65 | 78 74 49 64 20 3d 20 6e |      ne|xtId = n|
|00001600| 65 78 74 49 64 20 2b 20 | 31 0d 0a 20 20 20 20 20 |extId + |1..     |
|00001610| 20 20 20 20 20 20 69 64 | 20 3d 20 44 72 44 69 61 |      id| = DrDia|
|00001620| 6c 6f 67 28 20 27 4e 65 | 77 43 6f 6e 74 72 6f 6c |log( 'Ne|wControl|
|00001630| 27 2c 20 62 61 73 65 49 | 64 2c 20 6e 65 78 74 49 |', baseI|d, nextI|
|00001640| 64 20 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |d )..   |        |
|00001650| 43 41 4c 4c 20 44 72 44 | 69 61 6c 6f 67 20 27 50 |CALL DrD|ialog 'P|
|00001660| 6f 73 27 2c 20 69 64 2c | 20 78 63 2c 20 79 0d 0a |os', id,| xc, y..|
|00001670| 20 20 20 20 20 20 20 20 | 20 20 20 69 64 73 20 3d |        |   ids =|
|00001680| 20 69 64 73 20 69 64 0d | 0a 20 20 20 20 20 20 20 | ids id.|.       |
|00001690| 20 20 20 20 45 4e 44 0d | 0a 20 20 20 20 20 20 20 |    END.|.       |
|000016a0| 20 78 63 20 3d 20 78 63 | 20 2b 20 64 78 20 2b 20 | xc = xc| + dx + |
|000016b0| 63 78 20 0d 0a 20 20 20 | 20 45 4e 44 0d 0a 20 20 |cx ..   | END..  |
|000016c0| 20 20 79 20 3d 20 79 20 | 2d 20 64 79 20 2d 20 63 |  y = y |- dy - c|
|000016d0| 79 0d 0a 45 4e 44 0d 0a | 43 41 4c 4c 20 44 72 44 |y..END..|CALL DrD|
|000016e0| 69 61 6c 6f 67 20 27 53 | 65 6c 65 63 74 27 2c 20 |ialog 'S|elect', |
|000016f0| 69 64 73 0d 0a 43 41 4c | 4c 20 63 72 65 61 74 65 |ids..CAL|L create|
|00001700| 2e 44 69 73 61 62 6c 65 | 0d 0a 43 41 4c 4c 20 64 |.Disable|..CALL d|
|00001710| 65 6c 65 74 65 2e 45 6e | 61 62 6c 65 0d 0a 43 41 |elete.En|able..CA|
|00001720| 4c 4c 20 64 6f 6e 65 2e | 45 6e 61 62 6c 65 0d 0a |LL done.|Enable..|
|00001730| 43 41 4c 4c 20 73 70 61 | 63 65 2e 45 6e 61 62 6c |CALL spa|ce.Enabl|
|00001740| 65 80 6a 00 04 49 6e 69 | 74 10 43 41 4c 4c 20 52 |e.j..Ini|t.CALL R|
|00001750| 61 6e 67 65 20 31 2c 20 | 32 30 80 68 00 04 49 6e |ange 1, |20.h..In|
|00001760| 69 74 10 43 41 4c 4c 20 | 52 61 6e 67 65 20 31 2c |it.CALL |Range 1,|
|00001770| 20 32 30 ff             |                         | 20.    |        |
+--------+-------------------------+-------------------------+--------+--------+