/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / drdialog / rexxlib.res

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| ff 00 dc ff 01 00 30 10 | b5 00 00 00 64 00 00 00 |......0.|....d...|
|00000010| 07 72 65 78 78 6c 69 62 | 66 00 07 00 03 61 64 64 |.rexxlib|f....add|
|00000020| 67 00 07 00 06 75 70 64 | 61 74 65 69 00 07 00 06 |g....upd|atei....|
|00000030| 64 65 6c 65 74 65 6b 00 | 07 00 04 63 61 6e 74 65 |deletek.|...cante|
|00000040| 00 14 00 00 68 00 14 00 | 00 6a 00 14 00 00 6c 00 |....h...|.j....l.|
|00000050| 14 00 00 c8 00 00 00 05 | 65 72 72 6f 72 c9 00 04 |........|error...|
|00000060| 00 03 6d 73 67 ca 00 01 | 00 00 2c 01 00 00 08 72 |..msg...|..,....r|
|00000070| 65 78 78 6c 69 73 74 2e | 01 07 00 05 70 72 6f 63 |exxlist.|....proc|
|00000080| 73 31 01 09 00 03 64 65 | 66 32 01 01 00 00 33 01 |s1....de|f2....3.|
|00000090| 04 00 08 66 69 6c 65 64 | 61 74 65 34 01 04 00 0a |...filed|ate4....|
|000000a0| 69 6d 70 6f 72 74 64 61 | 74 65 2d 01 14 00 00 2f |importda|te-..../|
|000000b0| 01 14 00 00 30 01 14 00 | 08 66 69 6c 65 6e 61 6d |....0...|.filenam|
|000000c0| 65 ff 01 dc ff 01 00 30 | 10 a0 0d 00 00 0f 5f 44 |e......0|......_D|
|000000d0| 72 73 41 69 64 65 49 6e | 69 41 70 70 5f f5 04 2f |rsAideIn|iApp_../|
|000000e0| 2a 20 53 6f 75 72 63 65 | 20 66 69 6c 65 3a 20 46 |* Source| file: F|
|000000f0| 3a 5c 44 72 44 69 61 6c | 6f 67 5c 44 72 52 65 78 |:\DrDial|og\DrRex|
|00000100| 78 5c 44 72 73 41 69 64 | 65 2e 52 58 4c 20 2a 2f |x\DrsAid|e.RXL */|
|00000110| 0d 0a 2f 2a 20 46 69 6c | 65 20 6c 61 73 74 20 6d |../* Fil|e last m|
|00000120| 6f 64 69 66 69 65 64 20 | 6f 6e 3a 20 20 20 20 20 |odified |on:     |
|00000130| 20 20 20 20 30 31 2f 30 | 36 2f 39 34 20 61 74 20 |    01/0|6/94 at |
|00000140| 30 35 3a 34 35 70 6d 20 | 2a 2f 0d 0a 2f 2a 20 50 |05:45pm |*/../* P|
|00000150| 72 6f 63 65 64 75 72 65 | 20 61 64 64 65 64 20 74 |rocedure| added t|
|00000160| 6f 20 6c 69 62 72 61 72 | 79 20 6f 6e 3a 20 30 31 |o librar|y on: 01|
|00000170| 2f 30 36 2f 39 34 20 61 | 74 20 30 35 3a 34 36 70 |/06/94 a|t 05:46p|
|00000180| 6d 20 2a 2f 0d 0a 2f 2a | 20 50 72 6f 63 65 64 75 |m */../*| Procedu|
|00000190| 72 65 20 69 6d 70 6f 72 | 74 65 64 20 6f 6e 3a 20 |re impor|ted on: |
|000001a0| 20 20 20 20 20 20 20 20 | 30 31 2f 30 36 2f 39 34 |        |01/06/94|
|000001b0| 20 61 74 20 30 36 3a 33 | 34 70 6d 20 2a 2f 0d 0a | at 06:3|4pm */..|
|000001c0| 0d 0a 50 52 4f 43 45 44 | 55 52 45 0d 0a 2f 2a 20 |..PROCED|URE../* |
|000001d0| 55 73 61 67 65 20 69 73 | 3a 20 69 6e 69 41 70 70 |Usage is|: iniApp|
|000001e0| 20 3d 20 5f 44 72 73 41 | 69 64 65 49 6e 69 41 70 | = _DrsA|ideIniAp|
|000001f0| 70 5f 28 29 20 2a 2f 0d | 0a 2f 2a 20 52 65 74 75 |p_() */.|./* Retu|
|00000200| 72 6e 73 20 2e 49 4e 49 | 20 66 69 6c 65 20 61 70 |rns .INI| file ap|
|00000210| 70 6c 69 63 61 74 69 6f | 6e 20 6b 65 79 20 6f 66 |plicatio|n key of|
|00000220| 20 74 68 65 20 66 6f 72 | 6d 3a 20 66 69 6c 65 3a | the for|m: file:|
|00000230| 64 69 61 6c 6f 67 20 2a | 2f 0d 0a 20 20 20 50 41 |dialog *|/..   PA|
|00000240| 52 53 45 20 53 4f 55 52 | 43 45 20 2e 20 2e 20 69 |RSE SOUR|CE . . i|
|00000250| 6e 69 41 70 70 0d 0a 20 | 20 20 63 6f 6c 20 3d 20 |niApp.. |  col = |
|00000260| 6c 61 73 74 70 6f 73 28 | 20 27 5c 27 2c 20 69 6e |lastpos(| '\', in|
|00000270| 69 41 70 70 20 29 0d 0a | 20 20 20 49 46 20 63 6f |iApp )..|   IF co|
|00000280| 6c 20 3d 20 30 20 54 48 | 45 4e 20 63 6f 6c 20 3d |l = 0 TH|EN col =|
|00000290| 20 6c 61 73 74 70 6f 73 | 28 20 27 3a 27 2c 20 69 | lastpos|( ':', i|
|000002a0| 6e 69 41 70 70 20 29 0d | 0a 20 20 20 69 6e 69 41 |niApp ).|.   iniA|
|000002b0| 70 70 20 3d 20 74 72 61 | 6e 73 6c 61 74 65 28 20 |pp = tra|nslate( |
|000002c0| 73 75 62 73 74 72 28 20 | 69 6e 69 41 70 70 2c 20 |substr( |iniApp, |
|000002d0| 63 6f 6c 20 2b 20 31 20 | 29 20 29 0d 0a 20 20 20 |col + 1 |) )..   |
|000002e0| 63 6f 6c 20 20 20 20 3d | 20 6c 61 73 74 70 6f 73 |col    =| lastpos|
|000002f0| 28 20 27 2e 27 2c 20 69 | 6e 69 41 70 70 20 29 0d |( '.', i|niApp ).|
|00000300| 0a 20 20 20 49 46 20 63 | 6f 6c 20 3c 3e 20 30 20 |.   IF c|ol <> 0 |
|00000310| 54 48 45 4e 20 69 6e 69 | 41 70 70 20 3d 20 6c 65 |THEN ini|App = le|
|00000320| 66 74 28 20 69 6e 69 41 | 70 70 2c 20 63 6f 6c 20 |ft( iniA|pp, col |
|00000330| 2d 20 31 20 29 0d 0a 20 | 20 20 52 45 54 55 52 4e |- 1 ).. |  RETURN|
|00000340| 20 69 6e 69 41 70 70 27 | 3a 27 44 69 61 6c 6f 67 | iniApp'|:'Dialog|
|00000350| 28 29 0d 0a 13 5f 44 72 | 73 41 69 64 65 44 69 61 |()..._Dr|sAideDia|
|00000360| 6c 6f 67 49 6e 69 74 5f | fd 04 2f 2a 20 53 6f 75 |logInit_|../* Sou|
|00000370| 72 63 65 20 66 69 6c 65 | 3a 20 46 3a 5c 44 72 44 |rce file|: F:\DrD|
|00000380| 69 61 6c 6f 67 5c 44 72 | 52 65 78 78 5c 44 72 73 |ialog\Dr|Rexx\Drs|
|00000390| 41 69 64 65 2e 52 58 4c | 20 2a 2f 0d 0a 2f 2a 20 |Aide.RXL| */../* |
|000003a0| 46 69 6c 65 20 6c 61 73 | 74 20 6d 6f 64 69 66 69 |File las|t modifi|
|000003b0| 65 64 20 6f 6e 3a 20 20 | 20 20 20 20 20 20 20 30 |ed on:  |       0|
|000003c0| 31 2f 30 36 2f 39 34 20 | 61 74 20 30 35 3a 34 35 |1/06/94 |at 05:45|
|000003d0| 70 6d 20 2a 2f 0d 0a 2f | 2a 20 50 72 6f 63 65 64 |pm */../|* Proced|
|000003e0| 75 72 65 20 61 64 64 65 | 64 20 74 6f 20 6c 69 62 |ure adde|d to lib|
|000003f0| 72 61 72 79 20 6f 6e 3a | 20 30 31 2f 30 36 2f 39 |rary on:| 01/06/9|
|00000400| 34 20 61 74 20 30 35 3a | 34 36 70 6d 20 2a 2f 0d |4 at 05:|46pm */.|
|00000410| 0a 2f 2a 20 50 72 6f 63 | 65 64 75 72 65 20 69 6d |./* Proc|edure im|
|00000420| 70 6f 72 74 65 64 20 6f | 6e 3a 20 20 20 20 20 20 |ported o|n:      |
|00000430| 20 20 20 30 31 2f 30 36 | 2f 39 34 20 61 74 20 30 |   01/06|/94 at 0|
|00000440| 36 3a 33 34 70 6d 20 2a | 2f 0d 0a 0d 0a 50 52 4f |6:34pm *|/....PRO|
|00000450| 43 45 44 55 52 45 20 45 | 58 50 4f 53 45 20 78 2e |CEDURE E|XPOSE x.|
|00000460| 20 79 2e 20 64 78 2e 20 | 64 79 2e 0d 0a 2f 2a 20 | y. dx. |dy.../* |
|00000470| 55 73 61 67 65 20 69 73 | 3a 20 43 41 4c 4c 20 5f |Usage is|: CALL _|
|00000480| 44 72 73 41 69 64 65 44 | 69 61 6c 6f 67 49 6e 69 |DrsAideD|ialogIni|
|00000490| 74 20 68 77 6e 64 2c 20 | 69 6e 69 46 69 6c 65 20 |t hwnd, |iniFile |
|000004a0| 2a 2f 0d 0a 50 41 52 53 | 45 20 41 52 47 20 68 77 |*/..PARS|E ARG hw|
|000004b0| 6e 64 2c 20 69 6e 69 46 | 69 6c 65 0d 0a 49 46 20 |nd, iniF|ile..IF |
|000004c0| 6c 65 66 74 28 20 68 77 | 6e 64 2c 20 32 20 29 20 |left( hw|nd, 2 ) |
|000004d0| 3d 20 27 2d 48 27 20 54 | 48 45 4e 20 44 4f 0d 0a |= '-H' T|HEN DO..|
|000004e0| 20 20 20 64 69 61 6c 6f | 67 20 3d 20 44 69 61 6c |   dialo|g = Dial|
|000004f0| 6f 67 28 29 0d 0a 20 20 | 20 43 41 4c 4c 20 44 72 |og()..  | CALL Dr|
|00000500| 44 69 61 6c 6f 67 20 27 | 4f 77 6e 65 72 27 2c 20 |Dialog '|Owner', |
|00000510| 64 69 61 6c 6f 67 0d 0a | 20 20 20 50 41 52 53 45 |dialog..|   PARSE|
|00000520| 20 56 41 4c 55 45 20 53 | 79 73 49 6e 69 28 20 69 | VALUE S|ysIni( i|
|00000530| 6e 69 46 69 6c 65 2c 20 | 5f 44 72 73 41 69 64 65 |niFile, |_DrsAide|
|00000540| 49 6e 69 41 70 70 5f 28 | 29 2c 20 27 50 6f 73 27 |IniApp_(|), 'Pos'|
|00000550| 20 29 20 57 49 54 48 20 | 78 2e 64 69 61 6c 6f 67 | ) WITH |x.dialog|
|00000560| 20 79 2e 64 69 61 6c 6f | 67 20 64 78 2e 64 69 61 | y.dialo|g dx.dia|
|00000570| 6c 6f 67 20 64 79 2e 64 | 69 61 6c 6f 67 0d 0a 20 |log dy.d|ialog.. |
|00000580| 20 20 49 46 20 78 2e 64 | 69 61 6c 6f 67 20 3c 3e |  IF x.d|ialog <>|
|00000590| 20 27 45 52 52 4f 52 3a | 27 20 54 48 45 4e 20 43 | 'ERROR:|' THEN C|
|000005a0| 41 4c 4c 20 50 6f 73 69 | 74 69 6f 6e 20 78 2e 64 |ALL Posi|tion x.d|
|000005b0| 69 61 6c 6f 67 20 79 2e | 64 69 61 6c 6f 67 20 64 |ialog y.|dialog d|
|000005c0| 78 2e 64 69 61 6c 6f 67 | 20 64 79 2e 64 69 61 6c |x.dialog| dy.dial|
|000005d0| 6f 67 0d 0a 20 20 20 45 | 4e 44 0d 0a 43 41 4c 4c |og..   E|ND..CALL|
|000005e0| 20 53 68 6f 77 0d 0a 0d | 5f 44 72 73 41 69 64 65 | Show...|_DrsAide|
|000005f0| 49 6e 69 74 5f e5 0a 2f | 2a 20 53 6f 75 72 63 65 |Init_../|* Source|
|00000600| 20 66 69 6c 65 3a 20 46 | 3a 5c 44 72 44 69 61 6c | file: F|:\DrDial|
|00000610| 6f 67 5c 44 72 52 65 78 | 78 5c 44 72 73 41 69 64 |og\DrRex|x\DrsAid|
|00000620| 65 2e 52 58 4c 20 2a 2f | 0d 0a 2f 2a 20 46 69 6c |e.RXL */|../* Fil|
|00000630| 65 20 6c 61 73 74 20 6d | 6f 64 69 66 69 65 64 20 |e last m|odified |
|00000640| 6f 6e 3a 20 20 20 20 20 | 20 20 20 20 30 31 2f 30 |on:     |    01/0|
|00000650| 36 2f 39 34 20 61 74 20 | 30 35 3a 34 35 70 6d 20 |6/94 at |05:45pm |
|00000660| 2a 2f 0d 0a 2f 2a 20 50 | 72 6f 63 65 64 75 72 65 |*/../* P|rocedure|
|00000670| 20 61 64 64 65 64 20 74 | 6f 20 6c 69 62 72 61 72 | added t|o librar|
|00000680| 79 20 6f 6e 3a 20 30 31 | 2f 30 36 2f 39 34 20 61 |y on: 01|/06/94 a|
|00000690| 74 20 30 35 3a 34 36 70 | 6d 20 2a 2f 0d 0a 2f 2a |t 05:46p|m */../*|
|000006a0| 20 50 72 6f 63 65 64 75 | 72 65 20 69 6d 70 6f 72 | Procedu|re impor|
|000006b0| 74 65 64 20 6f 6e 3a 20 | 20 20 20 20 20 20 20 20 |ted on: |        |
|000006c0| 30 31 2f 30 36 2f 39 34 | 20 61 74 20 30 36 3a 33 |01/06/94| at 06:3|
|000006d0| 34 70 6d 20 2a 2f 0d 0a | 0d 0a 50 52 4f 43 45 44 |4pm */..|..PROCED|
|000006e0| 55 52 45 0d 0a 2f 2a 20 | 55 73 61 67 65 3a 20 72 |URE../* |Usage: r|
|000006f0| 63 20 3d 20 5f 44 72 73 | 41 69 64 65 49 6e 69 74 |c = _Drs|AideInit|
|00000700| 28 20 68 77 6e 64 2c 20 | 69 6e 69 46 69 6c 65 20 |( hwnd, |iniFile |
|00000710| 5b 2c 20 64 69 61 6c 6f | 67 5d 20 5b 2c 20 62 69 |[, dialo|g] [, bi|
|00000720| 74 6d 61 70 5d 20 29 20 | 2a 2f 0d 0a 49 46 20 52 |tmap] ) |*/..IF R|
|00000730| 78 46 75 6e 63 51 75 65 | 72 79 28 20 27 53 79 73 |xFuncQue|ry( 'Sys|
|00000740| 4c 6f 61 64 46 75 6e 63 | 73 27 20 29 20 54 48 45 |LoadFunc|s' ) THE|
|00000750| 4e 20 44 4f 0d 0a 20 20 | 20 43 41 4c 4c 20 52 78 |N DO..  | CALL Rx|
|00000760| 46 75 6e 63 41 64 64 20 | 27 53 79 73 4c 6f 61 64 |FuncAdd |'SysLoad|
|00000770| 46 75 6e 63 73 27 2c 20 | 27 52 65 78 78 55 74 69 |Funcs', |'RexxUti|
|00000780| 6c 27 2c 20 27 53 79 73 | 4c 6f 61 64 46 75 6e 63 |l', 'Sys|LoadFunc|
|00000790| 73 27 0d 0a 20 20 20 43 | 41 4c 4c 20 53 79 73 4c |s'..   C|ALL SysL|
|000007a0| 6f 61 64 46 75 6e 63 73 | 0d 0a 20 20 20 45 4e 44 |oadFuncs|..   END|
|000007b0| 0d 0a 50 41 52 53 45 20 | 41 52 47 20 68 77 6e 64 |..PARSE |ARG hwnd|
|000007c0| 2c 20 69 6e 69 46 69 6c | 65 2c 20 64 69 61 6c 6f |, iniFil|e, dialo|
|000007d0| 67 2c 20 62 69 74 6d 61 | 70 0d 0a 49 46 20 68 77 |g, bitma|p..IF hw|
|000007e0| 6e 64 20 3d 20 27 2d 49 | 27 20 54 48 45 4e 20 44 |nd = '-I|' THEN D|
|000007f0| 4f 0d 0a 20 20 20 49 46 | 20 62 69 74 6d 61 70 20 |O..   IF| bitmap |
|00000800| 3c 3e 20 27 27 20 54 48 | 45 4e 20 44 4f 0d 0a 20 |<> '' TH|EN DO.. |
|00000810| 20 20 20 20 20 61 70 70 | 73 20 3d 20 53 79 73 49 |     app|s = SysI|
|00000820| 6e 69 28 20 69 6e 69 46 | 69 6c 65 2c 20 27 44 72 |ni( iniF|ile, 'Dr|
|00000830| 73 41 69 64 65 27 2c 20 | 27 41 70 70 73 27 20 29 |sAide', |'Apps' )|
|00000840| 0d 0a 20 20 20 20 20 20 | 49 46 20 61 70 70 73 20 |..      |IF apps |
|00000850| 3d 20 27 45 52 52 4f 52 | 3a 27 20 54 48 45 4e 20 |= 'ERROR|:' THEN |
|00000860| 61 70 70 73 20 3d 20 27 | 27 0d 0a 20 20 20 20 20 |apps = '|'..     |
|00000870| 20 50 41 52 53 45 20 53 | 4f 55 52 43 45 20 2e 20 | PARSE S|OURCE . |
|00000880| 2e 20 72 65 73 46 69 6c | 65 0d 0a 20 20 20 20 20 |. resFil|e..     |
|00000890| 20 63 6f 6c 20 3d 20 70 | 6f 73 28 20 27 20 27 72 | col = p|os( ' 'r|
|000008a0| 65 73 46 69 6c 65 27 28 | 27 2c 20 61 70 70 73 20 |esFile'(|', apps |
|000008b0| 29 0d 0a 20 20 20 20 20 | 20 49 46 20 63 6f 6c 20 |)..     | IF col |
|000008c0| 3c 3e 20 30 20 54 48 45 | 4e 20 44 4f 0d 0a 20 20 |<> 0 THE|N DO..  |
|000008d0| 20 20 20 20 20 20 20 63 | 6f 6c 32 20 3d 20 70 6f |       c|ol2 = po|
|000008e0| 73 28 20 27 29 27 2c 20 | 61 70 70 73 2c 20 63 6f |s( ')', |apps, co|
|000008f0| 6c 20 2b 20 6c 65 6e 67 | 74 68 28 20 72 65 73 46 |l + leng|th( resF|
|00000900| 69 6c 65 20 29 20 2b 20 | 32 20 29 0d 0a 20 20 20 |ile ) + |2 )..   |
|00000910| 20 20 20 20 20 20 61 70 | 70 73 20 3d 20 6c 65 66 |      ap|ps = lef|
|00000920| 74 28 20 61 70 70 73 2c | 20 63 6f 6c 20 2d 20 31 |t( apps,| col - 1|
|00000930| 20 29 20 7c 7c 20 73 75 | 62 73 74 72 28 20 61 70 | ) || su|bstr( ap|
|00000940| 70 73 2c 20 63 6f 6c 32 | 20 2b 20 31 20 29 0d 0a |ps, col2| + 1 )..|
|00000950| 20 20 20 20 20 20 20 20 | 20 45 4e 44 0d 0a 20 20 |        | END..  |
|00000960| 20 20 20 20 43 41 4c 4c | 20 53 79 73 49 6e 69 20 |    CALL| SysIni |
|00000970| 69 6e 69 46 69 6c 65 2c | 20 27 44 72 73 41 69 64 |iniFile,| 'DrsAid|
|00000980| 65 27 2c 20 27 41 70 70 | 73 27 2c 20 61 70 70 73 |e', 'App|s', apps|
|00000990| 2c 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 74 72 |,..     |      tr|
|000009a0| 61 6e 73 6c 61 74 65 28 | 20 72 65 73 46 69 6c 65 |anslate(| resFile|
|000009b0| 2c 20 27 30 31 27 58 2c | 20 27 20 27 20 29 27 28 |, '01'X,| ' ' )'(|
|000009c0| 27 74 72 61 6e 73 6c 61 | 74 65 28 20 62 69 74 6d |'transla|te( bitm|
|000009d0| 61 70 2c 20 27 30 31 27 | 58 2c 20 27 20 27 20 29 |ap, '01'|X, ' ' )|
|000009e0| 27 29 27 0d 0a 20 20 20 | 20 20 20 43 41 4c 4c 20 |')'..   |   CALL |
|000009f0| 52 78 4d 65 73 73 61 67 | 65 42 6f 78 20 72 65 73 |RxMessag|eBox res|
|00000a00| 46 69 6c 65 20 27 61 64 | 64 65 64 20 74 6f 20 44 |File 'ad|ded to D|
|00000a10| 72 73 41 69 64 65 27 2c | 20 27 44 72 73 41 69 64 |rsAide',| 'DrsAid|
|00000a20| 65 27 2c 20 27 4f 4b 27 | 2c 20 27 4e 4f 4e 45 27 |e', 'OK'|, 'NONE'|
|00000a30| 0d 0a 20 20 20 20 20 20 | 45 4e 44 0d 0a 20 20 20 |..      |END..   |
|00000a40| 45 4c 53 45 20 43 41 4c | 4c 20 52 78 4d 65 73 73 |ELSE CAL|L RxMess|
|00000a50| 61 67 65 42 6f 78 20 72 | 65 73 46 69 6c 65 20 27 |ageBox r|esFile '|
|00000a60| 68 61 73 20 6e 6f 20 62 | 69 74 6d 61 70 27 2c 20 |has no b|itmap', |
|00000a70| 27 44 72 73 41 69 64 65 | 27 2c 20 27 43 41 4e 43 |'DrsAide|', 'CANC|
|00000a80| 45 4c 27 2c 20 27 4e 4f | 4e 45 27 0d 0a 20 20 20 |EL', 'NO|NE'..   |
|00000a90| 45 58 49 54 0d 0a 20 20 | 20 45 4e 44 0d 0a 49 46 |EXIT..  | END..IF|
|00000aa0| 20 6c 65 66 74 28 20 68 | 77 6e 64 2c 20 32 20 29 | left( h|wnd, 2 )|
|00000ab0| 20 3c 3e 20 27 2d 48 27 | 20 54 48 45 4e 20 52 45 | <> '-H'| THEN RE|
|00000ac0| 54 55 52 4e 20 30 0d 0a | 43 41 4c 4c 20 44 72 44 |TURN 0..|CALL DrD|
|00000ad0| 69 61 6c 6f 67 20 27 49 | 6e 69 74 27 2c 20 68 77 |ialog 'I|nit', hw|
|00000ae0| 6e 64 0d 0a 49 46 20 64 | 69 61 6c 6f 67 20 3d 20 |nd..IF d|ialog = |
|00000af0| 27 27 20 54 48 45 4e 20 | 44 4f 0d 0a 20 20 20 43 |'' THEN |DO..   C|
|00000b00| 41 4c 4c 20 44 69 61 6c | 6f 67 73 0d 0a 20 20 20 |ALL Dial|ogs..   |
|00000b10| 64 69 61 6c 6f 67 20 3d | 20 64 69 61 6c 6f 67 73 |dialog =| dialogs|
|00000b20| 2e 31 0d 0a 20 20 20 44 | 52 4f 50 20 64 69 61 6c |.1..   D|ROP dial|
|00000b30| 6f 67 73 0d 0a 20 20 20 | 45 4e 44 0d 0a 43 41 4c |ogs..   |END..CAL|
|00000b40| 4c 20 4f 70 65 6e 46 6f | 72 20 64 69 61 6c 6f 67 |L OpenFo|r dialog|
|00000b50| 0d 0a 52 45 54 55 52 4e | 20 31 0d 0a 13 5f 44 72 |..RETURN| 1..._Dr|
|00000b60| 73 41 69 64 65 44 69 61 | 6c 6f 67 45 78 69 74 5f |sAideDia|logExit_|
|00000b70| 84 05 2f 2a 20 53 6f 75 | 72 63 65 20 66 69 6c 65 |../* Sou|rce file|
|00000b80| 3a 20 46 3a 5c 44 72 44 | 69 61 6c 6f 67 5c 44 72 |: F:\DrD|ialog\Dr|
|00000b90| 52 65 78 78 5c 44 72 73 | 41 69 64 65 2e 52 58 4c |Rexx\Drs|Aide.RXL|
|00000ba0| 20 2a 2f 0d 0a 2f 2a 20 | 46 69 6c 65 20 6c 61 73 | */../* |File las|
|00000bb0| 74 20 6d 6f 64 69 66 69 | 65 64 20 6f 6e 3a 20 20 |t modifi|ed on:  |
|00000bc0| 20 20 20 20 20 20 20 30 | 31 2f 30 36 2f 39 34 20 |       0|1/06/94 |
|00000bd0| 61 74 20 30 35 3a 34 35 | 70 6d 20 2a 2f 0d 0a 2f |at 05:45|pm */../|
|00000be0| 2a 20 50 72 6f 63 65 64 | 75 72 65 20 61 64 64 65 |* Proced|ure adde|
|00000bf0| 64 20 74 6f 20 6c 69 62 | 72 61 72 79 20 6f 6e 3a |d to lib|rary on:|
|00000c00| 20 30 31 2f 30 36 2f 39 | 34 20 61 74 20 30 35 3a | 01/06/9|4 at 05:|
|00000c10| 34 36 70 6d 20 2a 2f 0d | 0a 2f 2a 20 50 72 6f 63 |46pm */.|./* Proc|
|00000c20| 65 64 75 72 65 20 69 6d | 70 6f 72 74 65 64 20 6f |edure im|ported o|
|00000c30| 6e 3a 20 20 20 20 20 20 | 20 20 20 30 31 2f 30 36 |n:      |   01/06|
|00000c40| 2f 39 34 20 61 74 20 30 | 36 3a 33 34 70 6d 20 2a |/94 at 0|6:34pm *|
|00000c50| 2f 0d 0a 0d 0a 50 52 4f | 43 45 44 55 52 45 20 45 |/....PRO|CEDURE E|
|00000c60| 58 50 4f 53 45 20 78 2e | 20 79 2e 20 64 78 2e 20 |XPOSE x.| y. dx. |
|00000c70| 64 79 2e 0d 0a 2f 2a 20 | 55 73 61 67 65 20 69 6e |dy.../* |Usage in|
|00000c80| 3a 20 43 41 4c 4c 20 5f | 44 72 73 41 69 64 65 44 |: CALL _|DrsAideD|
|00000c90| 69 61 6c 6f 67 45 78 69 | 74 5f 20 68 77 6e 64 2c |ialogExi|t_ hwnd,|
|00000ca0| 20 69 6e 69 46 69 6c 65 | 20 2a 2f 0d 0a 50 41 52 | iniFile| */..PAR|
|00000cb0| 53 45 20 41 52 47 20 68 | 77 6e 64 2c 20 69 6e 69 |SE ARG h|wnd, ini|
|00000cc0| 46 69 6c 65 0d 0a 49 46 | 20 6c 65 66 74 28 20 68 |File..IF| left( h|
|00000cd0| 77 6e 64 2c 20 32 20 29 | 20 3d 20 27 2d 48 27 20 |wnd, 2 )| = '-H' |
|00000ce0| 54 48 45 4e 20 44 4f 0d | 0a 20 20 20 50 41 52 53 |THEN DO.|.   PARS|
|00000cf0| 45 20 56 41 4c 55 45 20 | 50 6f 73 69 74 69 6f 6e |E VALUE |Position|
|00000d00| 28 29 20 57 49 54 48 20 | 6e 65 77 58 20 6e 65 77 |() WITH |newX new|
|00000d10| 59 20 6e 65 77 44 58 20 | 6e 65 77 44 59 0d 0a 20 |Y newDX |newDY.. |
|00000d20| 20 20 64 69 61 6c 6f 67 | 20 3d 20 44 69 61 6c 6f |  dialog| = Dialo|
|00000d30| 67 28 29 0d 0a 20 20 20 | 49 46 20 28 6e 65 77 78 |g()..   |IF (newx|
|00000d40| 20 20 3c 3e 20 78 2e 64 | 69 61 6c 6f 67 29 20 20 |  <> x.d|ialog)  |
|00000d50| 7c 20 28 6e 65 77 59 20 | 20 3c 3e 20 79 2e 64 69 || (newY | <> y.di|
|00000d60| 61 6c 6f 67 29 20 7c 2c | 0d 0a 20 20 20 20 20 20 |alog) |,|..      |
|00000d70| 28 6e 65 77 44 58 20 3c | 3e 20 64 78 2e 64 69 61 |(newDX <|> dx.dia|
|00000d80| 6c 6f 67 29 20 7c 20 28 | 6e 65 77 44 59 20 3c 3e |log) | (|newDY <>|
|00000d90| 20 64 79 2e 64 69 61 6c | 6f 67 29 20 54 48 45 4e | dy.dial|og) THEN|
|00000da0| 0d 0a 20 20 20 20 20 20 | 43 41 4c 4c 20 53 79 73 |..      |CALL Sys|
|00000db0| 49 6e 69 20 69 6e 69 46 | 69 6c 65 2c 20 5f 44 72 |Ini iniF|ile, _Dr|
|00000dc0| 73 41 69 64 65 49 6e 69 | 41 70 70 5f 28 29 2c 20 |sAideIni|App_(), |
|00000dd0| 27 50 6f 73 27 2c 20 6e | 65 77 58 20 6e 65 77 59 |'Pos', n|ewX newY|
|00000de0| 20 6e 65 77 44 58 20 6e | 65 77 44 59 0d 0a 20 20 | newDX n|ewDY..  |
|00000df0| 20 45 4e 44 0d 0a 04 49 | 6e 69 74 70 2f 2a 20 28 | END...I|nitp/* (|
|00000e00| 63 29 20 43 6f 70 79 72 | 69 67 68 74 20 49 6e 74 |c) Copyr|ight Int|
|00000e10| 65 72 6e 61 74 69 6f 6e | 61 6c 20 42 75 73 69 6e |ernation|al Busin|
|00000e20| 65 73 73 20 4d 61 63 68 | 69 6e 65 73 20 43 6f 72 |ess Mach|ines Cor|
|00000e30| 70 6f 72 61 74 69 6f 6e | 20 31 39 39 33 20 2a 2f |poration| 1993 */|
|00000e40| 0d 0a 2f 2a 20 41 6c 6c | 20 72 69 67 68 74 73 20 |../* All| rights |
|00000e50| 72 65 73 65 72 76 65 64 | 20 2a 2f 0d 0a 0d 0a 53 |reserved| */....S|
|00000e60| 49 47 4e 41 4c 20 44 6f | 49 6e 69 74 ff ff 04 00 |IGNAL Do|Init....|
|00000e70| ff 64 00 30 10 98 01 00 | 00 98 01 00 00 b5 01 0e |.d.0....|........|
|00000e80| 00 01 00 ff ff 00 00 00 | 00 08 00 00 00 00 00 07 |........|........|
|00000e90| 00 1c 01 80 00 00 16 7a | 00 28 00 04 01 84 00 64 |.......z|.(.....d|
|00000ea0| 00 ff ff 24 01 00 00 00 | 00 00 00 07 00 00 00 28 |...$....|.......(|
|00000eb0| 01 04 00 03 80 04 00 3c | 00 51 00 3c 00 66 00 ff |.......<|.Q.<.f..|
|00000ec0| ff ff ff 00 00 00 00 00 | 00 07 00 00 00 29 01 04 |........|.....)..|
|00000ed0| 00 03 80 59 00 3c 00 51 | 00 3c 00 67 00 ff ff ff |...Y.<.Q|.<.g....|
|00000ee0| ff 00 00 00 00 00 00 07 | 00 00 00 2a 01 04 00 03 |........|...*....|
|00000ef0| 80 af 00 3c 00 51 00 3c | 00 69 00 ff ff ff ff 00 |...<.Q.<|.i......|
|00000f00| 00 00 00 00 00 07 00 00 | 00 2b 01 04 00 03 80 04 |........|.+......|
|00000f10| 00 02 00 fc 00 2c 00 6b | 00 ff ff ff ff 00 00 00 |.....,.k|........|
|00000f20| 00 06 00 2c 01 06 00 33 | 01 20 14 00 90 03 00 3b |...,...3|. .....;|
|00000f30| 00 53 00 47 00 65 00 ff | ff ff ff 00 00 00 00 06 |.S.G.e..|........|
|00000f40| 00 3a 01 08 00 41 01 20 | 14 00 90 58 00 3b 00 53 |.:...A. |...X.;.S|
|00000f50| 00 47 00 68 00 ff ff ff | ff 00 00 00 00 06 00 4a |.G.h....|.......J|
|00000f60| 01 08 00 51 01 20 14 00 | 90 ae 00 3b 00 53 00 47 |...Q. ..|...;.S.G|
|00000f70| 00 6a 00 ff ff ff ff 00 | 00 00 00 06 00 5a 01 36 |.j......|.....Z.6|
|00000f80| 00 61 01 20 15 00 90 03 | 00 02 00 fe 00 37 00 6c |.a. ....|.....7.l|
|00000f90| 00 ff ff ff ff 52 45 58 | 58 4c 69 62 00 03 10 00 |.....REX|XLib....|
|00000fa0| 00 00 00 00 00 43 41 4e | 56 41 53 00 41 64 64 65 |.....CAN|VAS.Adde|
|00000fb0| 64 3a 00 43 41 4e 56 41 | 53 00 55 70 64 61 74 65 |d:.CANVA|S.Update|
|00000fc0| 64 3a 00 43 41 4e 56 41 | 53 00 44 65 6c 65 74 65 |d:.CANVA|S.Delete|
|00000fd0| 64 3a 00 43 41 4e 56 41 | 53 00 43 6f 75 6c 64 6e |d:.CANVA|S.Couldn|
|00000fe0| 27 74 20 61 64 64 20 62 | 65 63 61 75 73 65 3a 20 |'t add b|ecause: |
|00000ff0| 28 44 6f 75 62 6c 65 2d | 63 6c 69 63 6b 20 65 6e |(Double-|click en|
|00001000| 74 72 79 20 74 6f 20 6f | 76 65 72 72 69 64 65 29 |try to o|verride)|
|00001010| 00 ff 04 dc ff 64 00 30 | 10 b3 00 00 00 80 64 00 |.....d.0|......d.|
|00001020| 04 45 78 69 74 7d 50 41 | 52 53 45 20 56 41 4c 55 |.Exit}PA|RSE VALU|
|00001030| 45 20 50 6f 73 69 74 69 | 6f 6e 28 29 20 57 49 54 |E Positi|on() WIT|
|00001040| 48 20 6e 65 77 78 20 6e | 65 77 79 20 2e 20 2e 0d |H newx n|ewy . ..|
|00001050| 0a 49 46 20 28 6e 65 77 | 78 20 3c 3e 20 78 29 20 |.IF (new|x <> x) |
|00001060| 7c 20 28 6e 65 77 79 20 | 3c 3e 20 79 29 20 54 48 || (newy |<> y) TH|
|00001070| 45 4e 20 43 41 4c 4c 20 | 53 79 73 49 6e 69 20 69 |EN CALL |SysIni i|
|00001080| 6e 69 46 69 6c 65 2c 20 | 27 52 45 58 58 4c 49 42 |niFile, |'REXXLIB|
|00001090| 27 2c 20 27 50 6f 73 27 | 2c 20 6e 65 77 78 20 6e |', 'Pos'|, newx n|
|000010a0| 65 77 79 04 49 6e 69 74 | 0d 53 49 47 4e 41 4c 20 |ewy.Init|.SIGNAL |
|000010b0| 44 6f 41 72 67 73 80 6b | 00 05 45 6e 74 65 72 0f |DoArgs.k|..Enter.|
|000010c0| 53 49 47 4e 41 4c 20 4f | 76 65 72 72 69 64 65 ff |SIGNAL O|verride.|
|000010d0| ff 04 00 ff c8 00 30 10 | 7e 00 00 00 7e 00 00 00 |......0.|~...~...|
|000010e0| b5 01 0e 00 01 00 ff ff | 00 00 00 00 02 00 00 00 |........|........|
|000010f0| 00 00 0d 00 68 00 80 00 | 00 16 a3 00 78 00 c8 00 |....h...|....x...|
|00001100| 28 00 c8 00 ff ff 76 00 | 00 00 00 00 00 00 05 00 |(.....v.|........|
|00001110| 00 00 7a 00 01 40 01 80 | 04 00 10 00 c1 00 14 00 |..z..@..|........|
|00001120| c9 00 ff ff ff ff 00 00 | 00 00 00 00 03 00 02 00 |........|........|
|00001130| 7b 00 00 04 02 80 50 00 | 02 00 28 00 0b 00 ca 00 |{.....P.|..(.....|
|00001140| ff ff ff ff 52 45 58 58 | 4c 69 62 20 65 72 72 6f |....REXX|Lib erro|
|00001150| 72 00 03 10 00 00 00 4f | 4b 00 ff 04 dc ff c8 00 |r......O|K.......|
|00001160| 30 10 0f 00 00 00 80 ca | 00 05 43 6c 69 63 6b 04 |0.......|..Click.|
|00001170| 45 58 49 54 ff ff 04 00 | ff 2c 01 30 10 c3 01 00 |EXIT....|.,.0....|
|00001180| 00 c3 01 00 00 b5 01 0e | 00 01 00 ff ff 00 00 00 |........|........|
|00001190| 00 08 00 00 00 00 00 19 | 00 1c 01 80 00 00 16 82 |........|........|
|000011a0| 00 30 00 04 01 84 00 2c | 01 ff ff 36 01 00 00 00 |.0.....,|...6....|
|000011b0| 00 00 00 07 00 00 00 3a | 01 04 00 03 80 03 00 25 |.......:|.......%|
|000011c0| 00 4c 00 53 00 2e 01 ff | ff ff ff 00 00 00 00 00 |.L.S....|........|
|000011d0| 00 0a 00 00 00 3b 01 1e | 00 03 80 52 00 30 00 b0 |.....;..|...R.0..|
|000011e0| 00 48 00 31 01 ff ff ff | ff 00 00 00 00 00 00 03 |.H.1....|........|
|000011f0| 00 11 00 3c 01 00 00 03 | 80 51 00 25 00 b2 00 0a |...<....|.Q.%....|
|00001200| 00 32 01 ff ff ff ff 00 | 00 00 00 00 00 05 00 00 |.2......|........|
|00001210| 00 4e 01 01 04 01 80 05 | 00 0d 00 fa 00 0a 00 33 |.N......|.......3|
|00001220| 01 4f 01 ff ff 00 00 00 | 00 00 00 05 00 00 00 72 |.O......|.......r|
|00001230| 01 01 04 00 80 05 00 04 | 00 fa 00 0a 00 34 01 73 |........|.....4.s|
|00001240| 01 ff ff 00 00 00 00 06 | 00 96 01 0a 00 9d 01 20 |........|....... |
|00001250| 15 00 90 02 00 25 00 4e | 00 5e 00 2d 01 ff ff ff |.....%.N|.^.-....|
|00001260| ff 00 00 00 00 06 00 a8 | 01 0b 00 af 01 20 15 00 |........|..... ..|
|00001270| 90 51 00 2f 00 b2 00 54 | 00 2f 01 ff ff ff ff 00 |.Q./...T|./......|
|00001280| 00 00 00 06 00 bb 01 00 | 00 c2 01 20 15 00 90 02 |........|... ....|
|00001290| 00 01 00 01 01 22 00 30 | 01 ff ff ff ff 52 65 78 |.....".0|.....Rex|
|000012a0| 78 4c 69 62 3a 20 50 72 | 6f 63 65 64 75 72 65 20 |xLib: Pr|ocedure |
|000012b0| 56 69 65 77 65 72 00 03 | 10 00 00 00 00 43 6f 70 |Viewer..|.....Cop|
|000012c0| 79 20 74 6f 20 63 6c 69 | 70 62 6f 61 72 64 00 00 |y to cli|pboard..|
|000012d0| 1f 00 00 00 0f 00 00 00 | 17 00 00 00 31 30 2e 53 |........|....10.S|
|000012e0| 79 73 74 65 6d 20 4d 6f | 6e 6f 73 70 61 63 65 64 |ystem Mo|nospaced|
|000012f0| 00 00 00 00 1f 00 00 00 | 0f 00 00 00 17 00 00 00 |........|........|
|00001300| 31 30 2e 53 79 73 74 65 | 6d 20 4d 6f 6e 6f 73 70 |10.Syste|m Monosp|
|00001310| 61 63 65 64 00 00 00 43 | 41 4e 56 41 53 00 50 72 |aced...C|ANVAS.Pr|
|00001320| 6f 63 65 64 75 72 65 3a | 00 43 41 4e 56 41 53 00 |ocedure:|.CANVAS.|
|00001330| 44 65 66 69 6e 69 74 69 | 6f 6e 3a 00 43 41 4e 56 |Definiti|on:.CANV|
|00001340| 41 53 00 00 ff 04 dc ff | 2c 01 30 10 86 00 00 00 |AS......|,.0.....|
|00001350| 80 2c 01 04 45 78 69 74 | 2a 43 41 4c 4c 20 5f 44 |.,..Exit|*CALL _D|
|00001360| 72 73 41 69 64 65 44 69 | 61 6c 6f 67 45 78 69 74 |rsAideDi|alogExit|
|00001370| 5f 20 68 77 6e 64 2c 20 | 61 69 64 65 49 6e 69 46 |_ hwnd, |aideIniF|
|00001380| 69 6c 65 04 49 6e 69 74 | 10 53 49 47 4e 41 4c 20 |ile.Init|.SIGNAL |
|00001390| 4c 69 73 74 50 72 6f 63 | 73 80 32 01 05 43 6c 69 |ListProc|s.2..Cli|
|000013a0| 63 6b 19 43 41 4c 4c 20 | 43 6c 69 70 42 6f 61 72 |ck.CALL |ClipBoar|
|000013b0| 64 20 64 65 66 2e 54 65 | 78 74 28 29 80 2e 01 06 |d def.Te|xt()....|
|000013c0| 53 65 6c 65 63 74 0e 53 | 49 47 4e 41 4c 20 53 68 |Select.S|IGNAL Sh|
|000013d0| 6f 77 44 65 66 ff ff 02 | dc ff 01 00 30 10 89 15 |owDef...|....0...|
|000013e0| 00 00 2f 2a 20 44 72 73 | 41 69 64 65 20 52 45 58 |../* Drs|Aide REX|
|000013f0| 58 20 70 72 6f 63 65 64 | 75 72 65 20 6c 69 62 72 |X proced|ure libr|
|00001400| 61 72 69 61 6e 20 2a 2f | 0d 0a 2f 2a 20 57 72 69 |arian */|../* Wri|
|00001410| 74 74 65 6e 20 62 79 3a | 20 44 61 76 69 64 20 43 |tten by:| David C|
|00001420| 2e 20 4d 6f 72 72 69 6c | 6c 20 20 20 20 20 2a 2f |. Morril|l     */|
|00001430| 0d 0a 2f 2a 20 44 61 74 | 65 3a 20 31 32 2f 31 37 |../* Dat|e: 12/17|
|00001440| 2f 39 33 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |/93     |        |
|00001450| 20 20 20 20 20 20 2a 2f | 0d 0a 0d 0a 44 6f 49 6e |      */|....DoIn|
|00001460| 69 74 3a 0d 0a 20 20 20 | 69 6e 69 46 69 6c 65 20 |it:..   |iniFile |
|00001470| 3d 20 53 79 73 49 6e 69 | 28 20 27 53 59 53 54 45 |= SysIni|( 'SYSTE|
|00001480| 4d 27 2c 20 27 44 52 44 | 49 41 4c 4f 47 27 2c 20 |M', 'DRD|IALOG', |
|00001490| 27 49 4e 49 50 41 54 48 | 27 20 29 0d 0a 20 20 20 |'INIPATH|' )..   |
|000014a0| 49 46 20 69 6e 69 46 69 | 6c 65 20 3c 3e 20 27 45 |IF iniFi|le <> 'E|
|000014b0| 52 52 4f 52 3a 27 20 54 | 48 45 4e 20 44 4f 0d 0a |RROR:' T|HEN DO..|
|000014c0| 20 20 20 20 20 20 63 6f | 6c 20 3d 20 70 6f 73 28 |      co|l = pos(|
|000014d0| 20 27 30 30 27 78 2c 20 | 69 6e 69 46 69 6c 65 20 | '00'x, |iniFile |
|000014e0| 29 0d 0a 20 20 20 20 20 | 20 49 46 20 63 6f 6c 20 |)..     | IF col |
|000014f0| 3c 3e 20 30 20 54 48 45 | 4e 20 69 6e 69 46 69 6c |<> 0 THE|N iniFil|
|00001500| 65 20 3d 20 6c 65 66 74 | 28 20 69 6e 69 46 69 6c |e = left|( iniFil|
|00001510| 65 2c 20 63 6f 6c 20 2d | 20 31 20 29 0d 0a 20 20 |e, col -| 1 )..  |
|00001520| 20 20 20 20 49 46 20 72 | 69 67 68 74 28 20 69 6e |    IF r|ight( in|
|00001530| 69 46 69 6c 65 2c 20 31 | 20 29 20 3c 3e 20 27 5c |iFile, 1| ) <> '\|
|00001540| 27 20 54 48 45 4e 20 69 | 6e 69 46 69 6c 65 20 3d |' THEN i|niFile =|
|00001550| 20 69 6e 69 46 69 6c 65 | 27 5c 27 0d 0a 20 20 20 | iniFile|'\'..   |
|00001560| 20 20 20 45 4e 44 0d 0a | 20 20 20 45 4c 53 45 20 |   END..|   ELSE |
|00001570| 44 4f 0d 0a 20 20 20 20 | 20 20 50 41 52 53 45 20 |DO..    |  PARSE |
|00001580| 53 4f 55 52 43 45 20 2e | 20 2e 20 6d 79 4e 61 6d |SOURCE .| . myNam|
|00001590| 65 0d 0a 20 20 20 20 20 | 20 63 6f 6c 20 20 20 20 |e..     | col    |
|000015a0| 20 3d 20 6c 61 73 74 70 | 6f 73 28 20 27 5c 27 2c | = lastp|os( '\',|
|000015b0| 20 6d 79 4e 61 6d 65 20 | 29 0d 0a 20 20 20 20 20 | myName |)..     |
|000015c0| 20 69 6e 69 46 69 6c 65 | 20 3d 20 6c 65 66 74 28 | iniFile| = left(|
|000015d0| 20 6d 79 4e 61 6d 65 2c | 20 63 6f 6c 20 29 0d 0a | myName,| col )..|
|000015e0| 20 20 20 20 20 20 45 4e | 44 0d 0a 20 20 20 69 6e |      EN|D..   in|
|000015f0| 69 46 69 6c 65 20 3d 20 | 69 6e 69 46 69 6c 65 27 |iFile = |iniFile'|
|00001600| 52 65 78 78 4c 69 62 2e | 49 4e 49 27 0d 0a 20 20 |RexxLib.|INI'..  |
|00001610| 20 50 41 52 53 45 20 41 | 52 47 20 68 77 6e 64 20 | PARSE A|RG hwnd |
|00001620| 61 69 64 65 49 6e 69 46 | 69 6c 65 20 72 65 73 74 |aideIniF|ile rest|
|00001630| 0d 0a 20 20 20 49 46 20 | 5f 44 72 73 41 69 64 65 |..   IF |_DrsAide|
|00001640| 49 6e 69 74 5f 28 20 68 | 77 6e 64 2c 20 61 69 64 |Init_( h|wnd, aid|
|00001650| 65 49 6e 69 46 69 6c 65 | 2c 20 27 72 65 78 78 4c |eIniFile|, 'rexxL|
|00001660| 69 73 74 27 20 29 20 3d | 20 30 20 54 48 45 4e 0d |ist' ) =| 0 THEN.|
|00001670| 0a 20 20 20 20 20 20 49 | 46 20 68 77 6e 64 20 3d |.      I|F hwnd =|
|00001680| 20 27 27 20 54 48 45 4e | 20 43 41 4c 4c 20 45 72 | '' THEN| CALL Er|
|00001690| 72 6f 72 20 27 55 73 61 | 67 65 20 69 73 3a 20 52 |ror 'Usa|ge is: R|
|000016a0| 65 78 78 4c 69 62 20 72 | 65 78 78 46 69 6c 65 27 |exxLib r|exxFile'|
|000016b0| 0d 0a 20 20 20 53 49 47 | 4e 41 4c 20 52 45 54 55 |..   SIG|NAL RETU|
|000016c0| 52 4e 0d 0a 0d 0a 44 6f | 41 72 67 73 3a 0d 0a 20 |RN....Do|Args:.. |
|000016d0| 20 20 43 41 4c 4c 20 74 | 69 6d 65 20 27 52 27 0d |  CALL t|ime 'R'.|
|000016e0| 0a 20 20 20 72 65 78 46 | 69 6c 65 20 3d 20 68 77 |.   rexF|ile = hw|
|000016f0| 6e 64 0d 0a 20 20 20 43 | 41 4c 4c 20 53 79 73 46 |nd..   C|ALL SysF|
|00001700| 69 6c 65 54 72 65 65 20 | 72 65 78 46 69 6c 65 2c |ileTree |rexFile,|
|00001710| 20 27 46 49 4c 45 53 27 | 2c 20 27 46 27 0d 0a 20 | 'FILES'|, 'F'.. |
|00001720| 20 20 49 46 20 66 69 6c | 65 73 2e 30 20 3c 3e 20 |  IF fil|es.0 <> |
|00001730| 31 20 54 48 45 4e 20 44 | 4f 0d 0a 20 20 20 20 20 |1 THEN D|O..     |
|00001740| 20 43 41 4c 4c 20 45 72 | 72 6f 72 20 27 43 6f 75 | CALL Er|ror 'Cou|
|00001750| 6c 64 20 6e 6f 74 20 66 | 69 6e 64 3a 27 20 72 65 |ld not f|ind:' re|
|00001760| 78 46 69 6c 65 0d 0a 20 | 20 20 20 20 20 53 49 47 |xFile.. |     SIG|
|00001770| 4e 41 4c 20 52 45 54 55 | 52 4e 0d 0a 20 20 20 20 |NAL RETU|RN..    |
|00001780| 20 20 45 4e 44 0d 0a 20 | 20 20 64 61 74 65 31 20 |  END.. |  date1 |
|00001790| 20 20 20 3d 20 72 69 67 | 68 74 28 20 77 6f 72 64 |   = rig|ht( word|
|000017a0| 28 20 66 69 6c 65 73 2e | 31 2c 20 31 20 29 2c 20 |( files.|1, 1 ), |
|000017b0| 38 2c 20 27 30 27 20 29 | 0d 0a 20 20 20 74 69 6d |8, '0' )|..   tim|
|000017c0| 65 31 20 20 20 20 3d 20 | 72 69 67 68 74 28 20 77 |e1    = |right( w|
|000017d0| 6f 72 64 28 20 66 69 6c | 65 73 2e 31 2c 20 32 20 |ord( fil|es.1, 2 |
|000017e0| 29 27 6d 27 2c 20 37 2c | 20 27 30 27 20 29 0d 0a |)'m', 7,| '0' )..|
|000017f0| 20 20 20 64 61 74 65 32 | 20 20 20 20 3d 20 72 69 |   date2|    = ri|
|00001800| 67 68 74 28 20 64 61 74 | 65 28 20 27 55 27 20 29 |ght( dat|e( 'U' )|
|00001810| 2c 20 38 2c 20 27 30 27 | 20 29 0d 0a 20 20 20 74 |, 8, '0'| )..   t|
|00001820| 69 6d 65 32 20 20 20 20 | 3d 20 72 69 67 68 74 28 |ime2    |= right(|
|00001830| 20 74 69 6d 65 28 20 27 | 43 27 20 29 2c 20 37 2c | time( '|C' ), 7,|
|00001840| 20 27 30 27 20 29 0d 0a | 20 20 20 6f 6c 64 50 72 | '0' )..|   oldPr|
|00001850| 6f 63 73 20 3d 20 27 20 | 27 53 79 73 49 6e 69 28 |ocs = ' |'SysIni(|
|00001860| 20 69 6e 69 46 69 6c 65 | 2c 20 27 52 65 78 78 46 | iniFile|, 'RexxF|
|00001870| 69 6c 65 27 2c 20 72 65 | 78 46 69 6c 65 20 29 27 |ile', re|xFile )'|
|00001880| 20 27 0d 0a 20 20 20 49 | 46 20 6f 6c 64 50 72 6f | '..   I|F oldPro|
|00001890| 63 73 20 3d 20 27 20 45 | 52 52 4f 52 3a 20 27 20 |cs = ' E|RROR: ' |
|000018a0| 54 48 45 4e 20 6f 6c 64 | 50 72 6f 63 73 20 3d 20 |THEN old|Procs = |
|000018b0| 27 27 0d 0a 20 20 20 6e | 65 77 50 72 6f 63 73 20 |''..   n|ewProcs |
|000018c0| 20 3d 20 27 27 0d 0a 20 | 20 20 63 61 6e 74 50 72 | = ''.. |  cantPr|
|000018d0| 6f 63 73 20 3d 20 27 27 | 0d 0a 20 20 20 63 75 72 |ocs = ''|..   cur|
|000018e0| 50 72 6f 63 20 20 20 3d | 20 27 27 0d 0a 20 20 20 |Proc   =| ''..   |
|000018f0| 43 41 4c 4c 20 54 65 78 | 74 20 27 52 65 78 78 4c |CALL Tex|t 'RexxL|
|00001900| 69 62 3a 27 20 72 65 78 | 46 69 6c 65 20 27 28 50 |ib:' rex|File '(P|
|00001910| 72 6f 63 65 73 73 69 6e | 67 2e 2e 2e 29 27 0d 0a |rocessin|g...)'..|
|00001920| 20 20 20 50 41 52 53 45 | 20 56 41 4c 55 45 20 53 |   PARSE| VALUE S|
|00001930| 79 73 49 6e 69 28 20 69 | 6e 69 46 69 6c 65 2c 20 |ysIni( i|niFile, |
|00001940| 27 52 65 78 78 4c 69 62 | 27 2c 20 27 50 6f 73 27 |'RexxLib|', 'Pos'|
|00001950| 20 29 20 57 49 54 48 20 | 78 20 79 0d 0a 20 20 20 | ) WITH |x y..   |
|00001960| 49 46 20 78 20 3c 3e 20 | 27 45 52 52 4f 52 3a 27 |IF x <> |'ERROR:'|
|00001970| 20 54 48 45 4e 20 43 41 | 4c 4c 20 50 6f 73 69 74 | THEN CA|LL Posit|
|00001980| 69 6f 6e 20 78 2c 20 79 | 0d 0a 20 20 20 43 41 4c |ion x, y|..   CAL|
|00001990| 4c 20 53 68 6f 77 0d 0a | 20 20 20 44 4f 20 57 48 |L Show..|   DO WH|
|000019a0| 49 4c 45 20 4c 69 6e 65 | 73 28 20 72 65 78 46 69 |ILE Line|s( rexFi|
|000019b0| 6c 65 20 29 0d 0a 20 20 | 20 20 20 20 6c 69 6e 65 |le )..  |    line|
|000019c0| 20 20 20 20 3d 20 4c 69 | 6e 65 49 6e 28 20 72 65 |    = Li|neIn( re|
|000019d0| 78 46 69 6c 65 20 29 0d | 0a 20 20 20 20 20 20 6e |xFile ).|.      n|
|000019e0| 65 77 50 72 6f 63 20 3d | 20 47 65 74 50 72 6f 63 |ewProc =| GetProc|
|000019f0| 4e 61 6d 65 28 29 0d 0a | 20 20 20 20 20 20 49 46 |Name()..|      IF|
|00001a00| 20 6e 65 77 50 72 6f 63 | 20 3d 20 27 27 20 54 48 | newProc| = '' TH|
|00001a10| 45 4e 20 44 4f 0d 0a 20 | 20 20 20 20 20 20 20 20 |EN DO.. |        |
|00001a20| 49 46 20 63 75 72 50 72 | 6f 63 20 3c 3e 20 27 27 |IF curPr|oc <> ''|
|00001a30| 20 54 48 45 4e 20 63 75 | 72 50 72 6f 63 44 65 66 | THEN cu|rProcDef|
|00001a40| 20 3d 20 63 75 72 50 72 | 6f 63 44 65 66 20 7c 7c | = curPr|ocDef |||
|00001a50| 20 6c 69 6e 65 20 7c 7c | 20 27 30 44 30 41 27 78 | line ||| '0D0A'x|
|00001a60| 0d 0a 20 20 20 20 20 20 | 20 20 20 45 4e 44 0d 0a |..      |   END..|
|00001a70| 20 20 20 20 20 20 45 4c | 53 45 20 44 4f 0d 0a 20 |      EL|SE DO.. |
|00001a80| 20 20 20 20 20 20 20 20 | 43 41 4c 4c 20 41 64 64 |        |CALL Add|
|00001a90| 50 72 6f 63 0d 0a 20 20 | 20 20 20 20 20 20 20 6c |Proc..  |       l|
|00001aa0| 69 6e 65 20 3d 20 73 74 | 72 69 70 28 20 73 75 62 |ine = st|rip( sub|
|00001ab0| 73 74 72 28 20 6c 69 6e | 65 2c 20 70 6f 73 28 20 |str( lin|e, pos( |
|00001ac0| 27 3a 27 2c 20 6c 69 6e | 65 20 29 20 2b 20 31 20 |':', lin|e ) + 1 |
|00001ad0| 29 20 29 0d 0a 20 20 20 | 20 20 20 20 20 20 49 46 |) )..   |      IF|
|00001ae0| 20 6c 69 6e 65 20 3c 3e | 20 27 27 20 54 48 45 4e | line <>| '' THEN|
|00001af0| 20 6c 69 6e 65 20 3d 20 | 6c 69 6e 65 20 7c 7c 20 | line = |line || |
|00001b00| 27 30 44 30 41 27 78 0d | 0a 20 20 20 20 20 20 20 |'0D0A'x.|.       |
|00001b10| 20 20 63 75 72 50 72 6f | 63 20 20 20 20 3d 20 6e |  curPro|c    = n|
|00001b20| 65 77 50 72 6f 63 0d 0a | 20 20 20 20 20 20 20 20 |ewProc..|        |
|00001b30| 20 63 75 72 50 72 6f 63 | 44 65 66 20 3d 20 72 65 | curProc|Def = re|
|00001b40| 78 46 69 6c 65 20 64 61 | 74 65 31 20 74 69 6d 65 |xFile da|te1 time|
|00001b50| 31 20 64 61 74 65 32 20 | 74 69 6d 65 32 20 27 30 |1 date2 |time2 '0|
|00001b60| 44 30 41 27 78 20 7c 7c | 20 6c 69 6e 65 0d 0a 20 |D0A'x ||| line.. |
|00001b70| 20 20 20 20 20 20 20 20 | 45 4e 44 0d 0a 20 20 20 |        |END..   |
|00001b80| 45 4e 44 0d 0a 20 20 20 | 43 41 4c 4c 20 41 64 64 |END..   |CALL Add|
|00001b90| 50 72 6f 63 0d 0a 20 20 | 20 44 4f 20 69 20 3d 20 |Proc..  | DO i = |
|00001ba0| 31 20 54 4f 20 77 6f 72 | 64 73 28 20 6f 6c 64 50 |1 TO wor|ds( oldP|
|00001bb0| 72 6f 63 73 20 29 0d 0a | 20 20 20 20 20 20 6f 6c |rocs )..|      ol|
|00001bc0| 64 50 72 6f 63 20 3d 20 | 77 6f 72 64 28 20 6f 6c |dProc = |word( ol|
|00001bd0| 64 50 72 6f 63 73 2c 20 | 69 20 29 0d 0a 20 20 20 |dProcs, |i )..   |
|00001be0| 20 20 20 43 41 4c 4c 20 | 53 79 73 49 6e 69 20 69 |   CALL |SysIni i|
|00001bf0| 6e 69 46 69 6c 65 2c 20 | 27 52 65 78 78 50 72 6f |niFile, |'RexxPro|
|00001c00| 63 27 2c 20 6f 6c 64 50 | 72 6f 63 2c 20 27 44 45 |c', oldP|roc, 'DE|
|00001c10| 4c 45 54 45 3a 27 0d 0a | 20 20 20 20 20 20 43 41 |LETE:'..|      CA|
|00001c20| 4c 4c 20 64 65 6c 65 74 | 65 2e 41 64 64 20 6f 6c |LL delet|e.Add ol|
|00001c30| 64 50 72 6f 63 0d 0a 20 | 20 20 45 4e 44 0d 0a 20 |dProc.. |  END.. |
|00001c40| 20 20 49 46 20 77 6f 72 | 64 73 28 20 6e 65 77 50 |  IF wor|ds( newP|
|00001c50| 72 6f 63 73 20 29 20 3d | 20 30 20 54 48 45 4e 20 |rocs ) =| 0 THEN |
|00001c60| 44 4f 0d 0a 20 20 20 20 | 20 20 49 46 20 53 79 73 |DO..    |  IF Sys|
|00001c70| 49 6e 69 28 20 69 6e 69 | 46 69 6c 65 2c 20 27 52 |Ini( ini|File, 'R|
|00001c80| 65 78 78 46 69 6c 65 27 | 2c 20 72 65 78 46 69 6c |exxFile'|, rexFil|
|00001c90| 65 20 29 20 3c 3e 20 27 | 45 52 52 4f 52 3a 27 20 |e ) <> '|ERROR:' |
|00001ca0| 54 48 45 4e 0d 0a 20 20 | 20 20 20 20 20 20 20 43 |THEN..  |       C|
|00001cb0| 41 4c 4c 20 53 79 73 49 | 6e 69 20 69 6e 69 46 69 |ALL SysI|ni iniFi|
|00001cc0| 6c 65 2c 20 27 52 65 78 | 78 46 69 6c 65 27 2c 20 |le, 'Rex|xFile', |
|00001cd0| 72 65 78 46 69 6c 65 2c | 20 27 44 45 4c 45 54 45 |rexFile,| 'DELETE|
|00001ce0| 3a 27 0d 0a 20 20 20 20 | 20 20 45 4e 44 0d 0a 20 |:'..    |  END.. |
|00001cf0| 20 20 45 4c 53 45 20 43 | 41 4c 4c 20 53 79 73 49 |  ELSE C|ALL SysI|
|00001d00| 6e 69 20 69 6e 69 46 69 | 6c 65 2c 20 27 52 65 78 |ni iniFi|le, 'Rex|
|00001d10| 78 46 69 6c 65 27 2c 20 | 72 65 78 46 69 6c 65 2c |xFile', |rexFile,|
|00001d20| 20 6e 65 77 50 72 6f 63 | 73 0d 0a 20 20 20 74 6f | newProc|s..   to|
|00001d30| 6f 6b 20 3d 20 74 69 6d | 65 28 20 27 45 27 20 29 |ok = tim|e( 'E' )|
|00001d40| 3b 0d 0a 20 20 20 43 41 | 4c 4c 20 54 65 78 74 20 |;..   CA|LL Text |
|00001d50| 27 52 65 78 78 4c 69 62 | 3a 27 20 72 65 78 46 69 |'RexxLib|:' rexFi|
|00001d60| 6c 65 20 27 28 43 6f 6d | 70 6c 65 74 65 64 3a 27 |le '(Com|pleted:'|
|00001d70| 20 6c 65 66 74 28 20 74 | 6f 6f 6b 2c 20 6c 65 6e | left( t|ook, len|
|00001d80| 67 74 68 28 20 74 6f 6f | 6b 20 29 20 2d 20 34 20 |gth( too|k ) - 4 |
|00001d90| 29 20 27 73 65 63 29 27 | 0d 0a 20 20 20 43 41 4c |) 'sec)'|..   CAL|
|00001da0| 4c 20 42 65 65 70 20 34 | 34 30 2c 20 35 30 0d 0a |L Beep 4|40, 50..|
|00001db0| 20 20 20 53 49 47 4e 41 | 4c 20 52 45 54 55 52 4e |   SIGNA|L RETURN|
|00001dc0| 0d 0a 0d 0a 47 65 74 50 | 72 6f 63 4e 61 6d 65 3a |....GetP|rocName:|
|00001dd0| 0d 0a 20 20 20 49 46 20 | 6c 65 66 74 28 20 6c 69 |..   IF |left( li|
|00001de0| 6e 65 2c 20 31 20 29 20 | 3c 3e 20 27 5f 27 20 54 |ne, 1 ) |<> '_' T|
|00001df0| 48 45 4e 20 52 45 54 55 | 52 4e 20 27 27 0d 0a 20 |HEN RETU|RN ''.. |
|00001e00| 20 20 63 6f 6c 20 3d 20 | 70 6f 73 28 20 27 5f 3a |  col = |pos( '_:|
|00001e10| 27 2c 20 6c 69 6e 65 20 | 29 0d 0a 20 20 20 49 46 |', line |)..   IF|
|00001e20| 20 63 6f 6c 20 3c 20 32 | 20 54 48 45 4e 20 52 45 | col < 2| THEN RE|
|00001e30| 54 55 52 4e 20 27 27 0d | 0a 20 20 20 63 6f 6c 32 |TURN ''.|.   col2|
|00001e40| 20 3d 20 20 70 6f 73 28 | 20 27 20 27 2c 20 6c 69 | =  pos(| ' ', li|
|00001e50| 6e 65 20 29 0d 0a 20 20 | 20 49 46 20 28 63 6f 6c |ne )..  | IF (col|
|00001e60| 32 20 3c 3e 20 30 29 20 | 26 20 28 63 6f 6c 32 20 |2 <> 0) |& (col2 |
|00001e70| 3c 20 63 6f 6c 29 20 54 | 48 45 4e 20 52 45 54 55 |< col) T|HEN RETU|
|00001e80| 52 4e 20 27 27 0d 0a 20 | 20 20 52 45 54 55 52 4e |RN ''.. |  RETURN|
|00001e90| 20 6c 65 66 74 28 20 6c | 69 6e 65 2c 20 63 6f 6c | left( l|ine, col|
|00001ea0| 20 29 0d 0a 0d 0a 41 64 | 64 50 72 6f 63 3a 0d 0a | )....Ad|dProc:..|
|00001eb0| 20 20 20 44 4f 20 57 48 | 49 4c 45 20 72 69 67 68 |   DO WH|ILE righ|
|00001ec0| 74 28 20 63 75 72 50 72 | 6f 63 44 65 66 2c 20 34 |t( curPr|ocDef, 4|
|00001ed0| 20 29 20 3d 20 27 30 44 | 30 41 30 44 30 41 27 58 | ) = '0D|0A0D0A'X|
|00001ee0| 0d 0a 20 20 20 20 20 20 | 63 75 72 50 72 6f 63 44 |..      |curProcD|
|00001ef0| 65 66 20 3d 20 6c 65 66 | 74 28 20 63 75 72 50 72 |ef = lef|t( curPr|
|00001f00| 6f 63 44 65 66 2c 20 6c | 65 6e 67 74 68 28 20 63 |ocDef, l|ength( c|
|00001f10| 75 72 50 72 6f 63 44 65 | 66 20 29 20 2d 20 32 20 |urProcDe|f ) - 2 |
|00001f20| 29 0d 0a 20 20 20 45 4e | 44 0d 0a 20 20 20 49 46 |)..   EN|D..   IF|
|00001f30| 20 63 75 72 50 72 6f 63 | 20 3d 20 27 27 20 54 48 | curProc| = '' TH|
|00001f40| 45 4e 20 52 45 54 55 52 | 4e 0d 0a 20 20 20 63 68 |EN RETUR|N..   ch|
|00001f50| 65 63 6b 50 72 6f 63 20 | 3d 20 27 20 27 63 75 72 |eckProc |= ' 'cur|
|00001f60| 50 72 6f 63 27 20 27 0d | 0a 20 20 20 49 46 20 70 |Proc' '.|.   IF p|
|00001f70| 6f 73 28 20 63 68 65 63 | 6b 50 72 6f 63 2c 20 27 |os( chec|kProc, '|
|00001f80| 20 27 6e 65 77 50 72 6f | 63 73 27 20 27 63 61 6e | 'newPro|cs' 'can|
|00001f90| 74 50 72 6f 63 73 27 20 | 27 20 29 20 3c 3e 20 30 |tProcs' |' ) <> 0|
|00001fa0| 20 54 48 45 4e 20 44 4f | 0d 0a 20 20 20 20 20 20 | THEN DO|..      |
|00001fb0| 43 41 4c 4c 20 63 61 6e | 74 2e 41 64 64 20 63 75 |CALL can|t.Add cu|
|00001fc0| 72 50 72 6f 63 20 27 69 | 73 20 64 65 66 69 6e 65 |rProc 'i|s define|
|00001fd0| 64 20 6d 6f 72 65 20 74 | 68 61 6e 20 6f 6e 63 65 |d more t|han once|
|00001fe0| 27 0d 0a 20 20 20 20 20 | 20 52 45 54 55 52 4e 0d |'..     | RETURN.|
|00001ff0| 0a 20 20 20 20 20 20 45 | 4e 44 0d 0a 20 20 20 6f |.      E|ND..   o|
|00002000| 6c 64 50 72 6f 63 44 65 | 66 20 3d 20 53 79 73 49 |ldProcDe|f = SysI|
|00002010| 6e 69 28 20 69 6e 69 46 | 69 6c 65 2c 20 27 52 65 |ni( iniF|ile, 'Re|
|00002020| 78 78 50 72 6f 63 27 2c | 20 63 75 72 50 72 6f 63 |xxProc',| curProc|
|00002030| 20 29 0d 0a 20 20 20 63 | 6f 6c 20 20 20 20 20 20 | )..   c|ol      |
|00002040| 20 20 3d 20 70 6f 73 28 | 20 63 68 65 63 6b 50 72 |  = pos(| checkPr|
|00002050| 6f 63 2c 20 6f 6c 64 50 | 72 6f 63 73 20 29 0d 0a |oc, oldP|rocs )..|
|00002060| 20 20 20 49 46 20 63 6f | 6c 20 3c 3e 20 30 20 54 |   IF co|l <> 0 T|
|00002070| 48 45 4e 20 44 4f 0d 0a | 20 20 20 20 20 20 6f 6c |HEN DO..|      ol|
|00002080| 64 50 72 6f 63 73 20 3d | 20 6c 65 66 74 28 20 6f |dProcs =| left( o|
|00002090| 6c 64 50 72 6f 63 73 2c | 20 63 6f 6c 20 29 20 7c |ldProcs,| col ) ||
|000020a0| 7c 2c 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 ||,..    |        |
|000020b0| 20 20 20 20 20 73 75 62 | 73 74 72 28 20 6f 6c 64 |     sub|str( old|
|000020c0| 50 72 6f 63 73 2c 20 63 | 6f 6c 20 2b 20 6c 65 6e |Procs, c|ol + len|
|000020d0| 67 74 68 28 20 63 75 72 | 50 72 6f 63 20 29 20 2b |gth( cur|Proc ) +|
|000020e0| 20 32 20 29 0d 0a 20 20 | 20 20 20 20 43 41 4c 4c | 2 )..  |    CALL|
|000020f0| 20 75 70 64 61 74 65 2e | 41 64 64 20 63 75 72 50 | update.|Add curP|
|00002100| 72 6f 63 0d 0a 20 20 20 | 20 20 20 63 6f 6c 20 20 |roc..   |   col  |
|00002110| 3d 20 70 6f 73 28 20 27 | 30 44 27 78 2c 20 6f 6c |= pos( '|0D'x, ol|
|00002120| 64 50 72 6f 63 44 65 66 | 20 29 0d 0a 20 20 20 20 |dProcDef| )..    |
|00002130| 20 20 63 6f 6c 32 20 3d | 20 70 6f 73 28 20 27 30 |  col2 =| pos( '0|
|00002140| 44 27 78 2c 20 63 75 72 | 50 72 6f 63 44 65 66 20 |D'x, cur|ProcDef |
|00002150| 29 0d 0a 20 20 20 20 20 | 20 49 46 20 73 75 62 73 |)..     | IF subs|
|00002160| 74 72 28 20 6f 6c 64 50 | 72 6f 63 44 65 66 2c 20 |tr( oldP|rocDef, |
|00002170| 63 6f 6c 20 29 20 3d 20 | 73 75 62 73 74 72 28 20 |col ) = |substr( |
|00002180| 63 75 72 50 72 6f 63 44 | 65 66 2c 20 63 6f 6c 32 |curProcD|ef, col2|
|00002190| 20 29 20 54 48 45 4e 20 | 44 4f 0d 0a 20 20 20 20 | ) THEN |DO..    |
|000021a0| 20 20 20 20 20 6e 65 77 | 50 72 6f 63 73 20 3d 20 |     new|Procs = |
|000021b0| 6e 65 77 50 72 6f 63 73 | 20 63 75 72 50 72 6f 63 |newProcs| curProc|
|000021c0| 0d 0a 20 20 20 20 20 20 | 20 20 20 52 45 54 55 52 |..      |   RETUR|
|000021d0| 4e 0d 0a 20 20 20 20 20 | 20 20 20 20 45 4e 44 0d |N..     |    END.|
|000021e0| 0a 20 20 20 20 20 20 45 | 4e 44 0d 0a 20 20 20 45 |.      E|ND..   E|
|000021f0| 4c 53 45 20 44 4f 0d 0a | 20 20 20 20 20 20 49 46 |LSE DO..|      IF|
|00002200| 20 6f 6c 64 50 72 6f 63 | 44 65 66 20 3d 20 27 45 | oldProc|Def = 'E|
|00002210| 52 52 4f 52 3a 27 20 54 | 48 45 4e 20 43 41 4c 4c |RROR:' T|HEN CALL|
|00002220| 20 61 64 64 2e 41 64 64 | 20 63 75 72 50 72 6f 63 | add.Add| curProc|
|00002230| 0d 0a 20 20 20 20 20 20 | 45 4c 53 45 20 44 4f 0d |..      |ELSE DO.|
|00002240| 0a 20 20 20 20 20 20 20 | 20 20 6f 6c 64 46 69 6c |.       |  oldFil|
|00002250| 65 20 3d 20 77 6f 72 64 | 28 20 6f 6c 64 50 72 6f |e = word|( oldPro|
|00002260| 63 44 65 66 2c 20 31 20 | 29 0d 0a 20 20 20 20 20 |cDef, 1 |)..     |
|00002270| 20 20 20 20 43 41 4c 4c | 20 63 61 6e 74 2e 41 64 |    CALL| cant.Ad|
|00002280| 64 20 63 75 72 50 72 6f | 63 20 22 69 73 20 64 65 |d curPro|c "is de|
|00002290| 66 69 6e 65 64 20 62 79 | 20 27 22 6f 6c 64 46 69 |fined by| '"oldFi|
|000022a0| 6c 65 22 27 22 2c 20 27 | 4c 61 73 74 27 2c 2c 0d |le"'", '|Last',,.|
|000022b0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000022c0| 20 20 20 20 20 20 20 20 | 63 75 72 50 72 6f 63 20 |        |curProc |
|000022d0| 6f 6c 64 46 69 6c 65 0d | 0a 20 20 20 20 20 20 20 |oldFile.|.       |
|000022e0| 20 20 63 61 6e 74 2e 63 | 75 72 50 72 6f 63 20 3d |  cant.c|urProc =|
|000022f0| 20 63 75 72 50 72 6f 63 | 44 65 66 0d 0a 20 20 20 | curProc|Def..   |
|00002300| 20 20 20 20 20 20 63 61 | 6e 74 50 72 6f 63 73 20 |      ca|ntProcs |
|00002310| 20 20 20 3d 20 63 61 6e | 74 50 72 6f 63 73 20 63 |   = can|tProcs c|
|00002320| 75 72 50 72 6f 63 0d 0a | 20 20 20 20 20 20 20 20 |urProc..|        |
|00002330| 20 52 45 54 55 52 4e 0d | 0a 20 20 20 20 20 20 20 | RETURN.|.       |
|00002340| 20 20 45 4e 44 0d 0a 20 | 20 20 20 20 20 45 4e 44 |  END.. |     END|
|00002350| 0d 0a 20 20 20 43 41 4c | 4c 20 53 79 73 49 6e 69 |..   CAL|L SysIni|
|00002360| 20 69 6e 69 46 69 6c 65 | 2c 20 27 52 65 78 78 50 | iniFile|, 'RexxP|
|00002370| 72 6f 63 27 2c 20 63 75 | 72 50 72 6f 63 2c 20 63 |roc', cu|rProc, c|
|00002380| 75 72 50 72 6f 63 44 65 | 66 0d 0a 20 20 20 6e 65 |urProcDe|f..   ne|
|00002390| 77 50 72 6f 63 73 20 3d | 20 6e 65 77 50 72 6f 63 |wProcs =| newProc|
|000023a0| 73 20 63 75 72 50 72 6f | 63 0d 0a 20 20 20 52 45 |s curPro|c..   RE|
|000023b0| 54 55 52 4e 0d 0a 0d 0a | 4f 76 65 72 72 69 64 65 |TURN....|Override|
|000023c0| 3a 0d 0a 20 20 20 69 74 | 65 6d 20 20 20 20 3d 20 |:..   it|em    = |
|000023d0| 53 65 6c 65 63 74 28 29 | 0d 0a 20 20 20 63 75 72 |Select()|..   cur|
|000023e0| 50 72 6f 63 20 3d 20 49 | 74 65 6d 28 20 69 74 65 |Proc = I|tem( ite|
|000023f0| 6d 2c 20 27 44 61 74 61 | 27 20 29 0d 0a 20 20 20 |m, 'Data|' )..   |
|00002400| 49 46 20 63 75 72 50 72 | 6f 63 20 3d 20 27 27 20 |IF curPr|oc = '' |
|00002410| 54 48 45 4e 20 43 41 4c | 4c 20 42 65 65 70 20 34 |THEN CAL|L Beep 4|
|00002420| 34 30 2c 20 35 30 0d 0a | 20 20 20 45 4c 53 45 20 |40, 50..|   ELSE |
|00002430| 44 4f 0d 0a 20 20 20 20 | 20 20 43 41 4c 4c 20 44 |DO..    |  CALL D|
|00002440| 65 6c 65 74 65 20 69 74 | 65 6d 0d 0a 20 20 20 20 |elete it|em..    |
|00002450| 20 20 6f 6c 64 46 69 6c | 65 20 3d 20 77 6f 72 64 |  oldFil|e = word|
|00002460| 28 20 63 75 72 50 72 6f | 63 2c 20 32 20 29 0d 0a |( curPro|c, 2 )..|
|00002470| 20 20 20 20 20 20 63 75 | 72 50 72 6f 63 20 3d 20 |      cu|rProc = |
|00002480| 77 6f 72 64 28 20 63 75 | 72 50 72 6f 63 2c 20 31 |word( cu|rProc, 1|
|00002490| 20 29 0d 0a 20 20 20 20 | 20 20 43 41 4c 4c 20 61 | )..    |  CALL a|
|000024a0| 64 64 2e 41 64 64 20 63 | 75 72 50 72 6f 63 0d 0a |dd.Add c|urProc..|
|000024b0| 20 20 20 20 20 20 43 41 | 4c 4c 20 53 79 73 49 6e |      CA|LL SysIn|
|000024c0| 69 20 69 6e 69 46 69 6c | 65 2c 20 27 52 65 78 78 |i iniFil|e, 'Rexx|
|000024d0| 50 72 6f 63 27 2c 20 63 | 75 72 50 72 6f 63 2c 20 |Proc', c|urProc, |
|000024e0| 63 61 6e 74 2e 63 75 72 | 50 72 6f 63 0d 0a 20 20 |cant.cur|Proc..  |
|000024f0| 20 20 20 20 6e 65 77 50 | 72 6f 63 73 20 3d 20 6e |    newP|rocs = n|
|00002500| 65 77 50 72 6f 63 73 20 | 63 75 72 50 72 6f 63 0d |ewProcs |curProc.|
|00002510| 0a 20 20 20 20 20 20 43 | 41 4c 4c 20 53 79 73 49 |.      C|ALL SysI|
|00002520| 6e 69 20 69 6e 69 46 69 | 6c 65 2c 20 27 52 65 78 |ni iniFi|le, 'Rex|
|00002530| 78 46 69 6c 65 27 2c 20 | 72 65 78 46 69 6c 65 2c |xFile', |rexFile,|
|00002540| 20 6e 65 77 50 72 6f 63 | 73 0d 0a 20 20 20 20 20 | newProc|s..     |
|00002550| 20 74 65 6d 70 20 3d 20 | 27 20 27 53 79 73 49 6e | temp = |' 'SysIn|
|00002560| 69 28 20 69 6e 69 46 69 | 6c 65 2c 20 27 52 65 78 |i( iniFi|le, 'Rex|
|00002570| 78 46 69 6c 65 27 2c 20 | 6f 6c 64 46 69 6c 65 20 |xFile', |oldFile |
|00002580| 29 27 20 27 0d 0a 20 20 | 20 20 20 20 63 6f 6c 20 |)' '..  |    col |
|00002590| 20 3d 20 70 6f 73 28 20 | 27 20 27 63 75 72 50 72 | = pos( |' 'curPr|
|000025a0| 6f 63 27 20 27 2c 20 74 | 65 6d 70 20 29 0d 0a 20 |oc' ', t|emp ).. |
|000025b0| 20 20 20 20 20 43 41 4c | 4c 20 53 79 73 49 6e 69 |     CAL|L SysIni|
|000025c0| 20 69 6e 69 46 69 6c 65 | 2c 20 27 52 65 78 78 46 | iniFile|, 'RexxF|
|000025d0| 69 6c 65 27 2c 20 6f 6c | 64 46 69 6c 65 2c 2c 0d |ile', ol|dFile,,.|
|000025e0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 73 74 72 69 |.       |    stri|
|000025f0| 70 28 20 6c 65 66 74 28 | 20 74 65 6d 70 2c 20 63 |p( left(| temp, c|
|00002600| 6f 6c 20 29 20 7c 7c 20 | 73 75 62 73 74 72 28 20 |ol ) || |substr( |
|00002610| 74 65 6d 70 2c 20 63 6f | 6c 20 2b 20 6c 65 6e 67 |temp, co|l + leng|
|00002620| 74 68 28 63 75 72 50 72 | 6f 63 29 20 2b 20 32 20 |th(curPr|oc) + 2 |
|00002630| 29 20 29 0d 0a 20 20 20 | 20 20 20 45 4e 44 0d 0a |) )..   |   END..|
|00002640| 20 20 20 53 49 47 4e 41 | 4c 20 52 45 54 55 52 4e |   SIGNA|L RETURN|
|00002650| 0d 0a 0d 0a 4c 69 73 74 | 50 72 6f 63 73 3a 0d 0a |....List|Procs:..|
|00002660| 20 20 20 43 41 4c 4c 20 | 53 79 73 49 6e 69 20 69 |   CALL |SysIni i|
|00002670| 6e 69 46 69 6c 65 2c 20 | 27 52 65 78 78 50 72 6f |niFile, |'RexxPro|
|00002680| 63 27 2c 20 27 41 4c 4c | 3a 27 2c 20 27 50 52 4f |c', 'ALL|:', 'PRO|
|00002690| 43 27 0d 0a 20 20 20 44 | 4f 20 69 20 3d 20 31 20 |C'..   D|O i = 1 |
|000026a0| 54 4f 20 70 72 6f 63 2e | 30 0d 0a 20 20 20 20 20 |TO proc.|0..     |
|000026b0| 20 43 41 4c 4c 20 70 72 | 6f 63 73 2e 41 64 64 20 | CALL pr|ocs.Add |
|000026c0| 70 72 6f 63 2e 69 0d 0a | 20 20 20 45 4e 44 0d 0a |proc.i..|   END..|
|000026d0| 20 20 20 43 41 4c 4c 20 | 5f 44 72 73 41 69 64 65 |   CALL |_DrsAide|
|000026e0| 44 69 61 6c 6f 67 49 6e | 69 74 5f 20 68 77 6e 64 |DialogIn|it_ hwnd|
|000026f0| 2c 20 61 69 64 65 49 6e | 69 46 69 6c 65 0d 0a 20 |, aideIn|iFile.. |
|00002700| 20 20 53 49 47 4e 41 4c | 20 52 45 54 55 52 4e 0d |  SIGNAL| RETURN.|
|00002710| 0a 0d 0a 53 68 6f 77 44 | 65 66 3a 0d 0a 20 20 20 |...ShowD|ef:..   |
|00002720| 63 75 72 50 72 6f 63 20 | 20 20 20 3d 20 49 74 65 |curProc |   = Ite|
|00002730| 6d 28 20 53 65 6c 65 63 | 74 28 29 20 29 0d 0a 20 |m( Selec|t() ).. |
|00002740| 20 20 63 75 72 50 72 6f | 63 44 65 66 20 3d 20 53 |  curPro|cDef = S|
|00002750| 79 73 49 6e 69 28 20 69 | 6e 69 46 69 6c 65 2c 20 |ysIni( i|niFile, |
|00002760| 27 52 65 78 78 50 72 6f | 63 27 2c 20 63 75 72 50 |'RexxPro|c', curP|
|00002770| 72 6f 63 20 29 0d 0a 20 | 20 20 43 41 4c 4c 20 66 |roc ).. |  CALL f|
|00002780| 69 6c 65 6e 61 6d 65 2e | 54 65 78 74 20 27 53 6f |ilename.|Text 'So|
|00002790| 75 72 63 65 20 66 69 6c | 65 3a 27 20 77 6f 72 64 |urce fil|e:' word|
|000027a0| 28 20 63 75 72 50 72 6f | 63 44 65 66 2c 20 31 20 |( curPro|cDef, 1 |
|000027b0| 29 0d 0a 20 20 20 43 41 | 4c 4c 20 66 69 6c 65 64 |)..   CA|LL filed|
|000027c0| 61 74 65 2e 54 65 78 74 | 20 27 46 69 6c 65 20 6c |ate.Text| 'File l|
|000027d0| 61 73 74 20 6d 6f 64 69 | 66 69 65 64 20 6f 6e 3a |ast modi|fied on:|
|000027e0| 20 20 20 20 20 20 20 20 | 27 20 77 6f 72 64 28 20 |        |' word( |
|000027f0| 63 75 72 50 72 6f 63 44 | 65 66 2c 20 32 20 29 2c |curProcD|ef, 2 ),|
|00002800| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00002810| 20 20 20 20 20 20 20 20 | 27 61 74 27 20 77 6f 72 |        |'at' wor|
|00002820| 64 28 20 63 75 72 50 72 | 6f 63 44 65 66 2c 20 33 |d( curPr|ocDef, 3|
|00002830| 20 29 0d 0a 20 20 20 43 | 41 4c 4c 20 69 6d 70 6f | )..   C|ALL impo|
|00002840| 72 74 64 61 74 65 2e 54 | 65 78 74 20 27 50 72 6f |rtdate.T|ext 'Pro|
|00002850| 63 65 64 75 72 65 20 61 | 64 64 65 64 20 74 6f 20 |cedure a|dded to |
|00002860| 6c 69 62 72 61 72 79 20 | 6f 6e 3a 27 20 77 6f 72 |library |on:' wor|
|00002870| 64 28 20 63 75 72 50 72 | 6f 63 44 65 66 2c 20 34 |d( curPr|ocDef, 4|
|00002880| 20 29 2c 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | ),..   |        |
|00002890| 20 20 20 20 20 20 20 20 | 20 20 20 27 61 74 27 20 |        |   'at' |
|000028a0| 77 6f 72 64 28 20 63 75 | 72 50 72 6f 63 44 65 66 |word( cu|rProcDef|
|000028b0| 2c 20 35 20 29 0d 0a 20 | 20 20 43 41 4c 4c 20 64 |, 5 ).. |  CALL d|
|000028c0| 65 66 2e 54 65 78 74 20 | 73 75 62 73 74 72 28 20 |ef.Text |substr( |
|000028d0| 63 75 72 50 72 6f 63 44 | 65 66 2c 20 70 6f 73 28 |curProcD|ef, pos(|
|000028e0| 20 27 30 44 27 58 2c 20 | 63 75 72 50 72 6f 63 44 | '0D'X, |curProcD|
|000028f0| 65 66 20 29 20 2b 20 32 | 20 29 0d 0a 20 20 20 53 |ef ) + 2| )..   S|
|00002900| 49 47 4e 41 4c 20 52 45 | 54 55 52 4e 0d 0a 0d 0a |IGNAL RE|TURN....|
|00002910| 45 72 72 6f 72 3a 0d 0a | 20 20 20 43 41 4c 4c 20 |Error:..|   CALL |
|00002920| 65 72 72 6f 72 2e 4f 70 | 65 6e 0d 0a 20 20 20 43 |error.Op|en..   C|
|00002930| 41 4c 4c 20 65 72 72 6f | 72 2e 6d 73 67 2e 54 65 |ALL erro|r.msg.Te|
|00002940| 78 74 20 61 72 67 28 31 | 29 0d 0a 20 20 20 43 41 |xt arg(1|)..   CA|
|00002950| 4c 4c 20 65 72 72 6f 72 | 2e 53 68 6f 77 0d 0a 20 |LL error|.Show.. |
|00002960| 20 20 52 45 54 55 52 4e | 0d 0a 1a                |  RETURN|...     |
+--------+-------------------------+-------------------------+--------+--------+