home *** CD-ROM | disk | FTP | other *** search
/ Total C++ 2 / TOTALCTWO.iso / vfp5.0 / vfp / samples / classes / utility.vct < prev    next >
Unknown  |  1996-08-21  |  13.8 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.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert VW Comms Data Base (other/vwCommsDataBase) ext Unsupported
100% file data default
59% TrID Form Memo MS Visual FoxPro 7 default (weak)
40% TrID MacBinary 1 default (weak)
100% siegfried x-fmt/342 Microsoft FoxPro Memo default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 37 4e 00 00 00 01 | 00 00 00 00 00 00 00 00 |..7N....|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 01 00 00 00 10 | 56 45 52 53 49 4f 4e 20 |........|VERSION |
|00000210| 3d 20 20 20 33 2e 30 30 | 00 00 00 01 00 00 00 07 |=   3.00|........|
|00000220| 66 69 6c 65 6c 69 62 00 | 00 00 01 00 00 00 06 50 |filelib.|.......P|
|00000230| 69 78 65 6c 73 00 00 00 | 01 00 00 00 05 43 6c 61 |ixels...|.....Cla|
|00000240| 73 73 00 00 00 01 00 00 | 00 01 31 00 00 00 01 00 |ss......|..1.....|
|00000250| 00 00 06 63 75 73 74 6f | 6d 00 00 00 01 00 00 00 |...custo|m.......|
|00000260| 07 66 69 6c 65 6c 69 62 | 00 00 00 01 00 00 00 45 |.filelib|.......E|
|00000270| 2a 6a 75 73 74 65 78 74 | 20 0d 0a 2a 6a 75 73 74 |*justext| ..*just|
|00000280| 73 74 65 6d 20 0d 0a 2a | 61 64 64 62 73 20 0d 0a |stem ..*|addbs ..|
|00000290| 2a 6a 75 73 74 66 6e 61 | 6d 65 20 0d 0a 2a 66 6f |*justfna|me ..*fo|
|000002a0| 72 63 65 65 78 74 20 0d | 0a 2a 6a 75 73 74 70 61 |rceext .|.*justpa|
|000002b0| 74 68 20 0d 0a 00 00 00 | 01 00 00 07 96 fe f2 ff |th .....|........|
|000002c0| 1f 02 01 00 00 00 7d 07 | 00 00 7d 07 00 00 00 00 |......}.|..}.....|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 47 d0 06 00 | 00 00 25 00 00 00 ed 05 |....G...|..%.....|
|000002f0| 00 00 00 00 00 00 e4 06 | 00 00 47 00 00 00 56 06 |........|..G...V.|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 fc 03 00 03 00 55 |........|.......U|
|00000310| 00 00 8c 00 09 00 af f5 | 0d f7 00 00 fe 09 00 ae |........|........|
|00000320| f5 0d f7 01 00 fe 19 00 | 54 f5 0d f7 00 00 10 fc |........|T.......|
|00000330| 43 00 f5 0d f7 00 00 f4 | 02 00 f6 03 00 fd fe 0f |C.......|........|
|00000340| 00 54 f5 0d f7 01 00 10 | fc d9 00 00 fd fe 19 00 |.T......|........|
|00000350| 25 fc 43 fb 01 00 2e f5 | 0d f7 00 00 1d f8 01 00 |%.C.....|........|
|00000360| 11 fd f9 05 78 00 fe 25 | 00 54 f5 0d f7 01 00 10 |....x..%|.T......|
|00000370| fc 43 f5 0d f7 00 00 43 | fb 01 00 2e f5 0d f7 00 |.C.....C|........|
|00000380| 00 1d f8 01 01 06 f8 01 | 03 5c fd fe 04 00 1e fe |........|.\......|
|00000390| 0d 00 42 fc 43 f5 0d f7 | 01 00 66 fd fe 03 00 55 |..B.C...|..f....U|
|000003a0| 04 00 07 00 46 49 4c 4e | 41 4d 45 03 00 45 58 54 |....FILN|AME..EXT|
|000003b0| 04 00 54 48 49 53 09 00 | 4a 55 53 54 46 4e 41 4d |..THIS..|JUSTFNAM|
|000003c0| 45 e1 00 09 00 af f5 0d | f7 00 00 fe 19 00 25 fc |E.......|......%.|
|000003d0| 43 fb 01 00 5c f5 0d f7 | 00 00 a5 f8 01 00 11 fd |C...\...|........|
|000003e0| f9 05 47 00 fe 25 00 54 | f5 0d f7 00 00 10 fc 43 |..G..%.T|.......C|
|000003f0| f5 0d f7 00 00 43 fb 01 | 00 5c f5 0d f7 00 00 a5 |.....C..|.\......|
|00000400| f8 01 01 06 f8 03 ff 5c | fd fe 04 00 1e fe 19 00 |.......\|........|
|00000410| 25 fc 43 fb 01 00 3a f5 | 0d f7 00 00 a5 f8 01 00 |%.C...:.|........|
|00000420| 11 fd f9 05 89 00 fe 25 | 00 54 f5 0d f7 00 00 10 |.......%|.T......|
|00000430| fc 43 f5 0d f7 00 00 43 | fb 01 00 3a f5 0d f7 00 |.C.....C|...:....|
|00000440| 00 a5 f8 01 01 06 f8 03 | ff 5c fd fe 04 00 1e fe |........|.\......|
|00000450| 19 00 25 fc 43 fb 01 00 | 2e f5 0d f7 00 00 1d f8 |..%.C...|........|
|00000460| 01 00 11 fd f9 05 cb 00 | fe 25 00 54 f5 0d f7 00 |........|.%.T....|
|00000470| 00 10 fc 43 f5 0d f7 00 | 00 f8 01 01 43 fb 01 00 |...C....|....C...|
|00000480| 2e f5 0d f7 00 00 1d f8 | 01 01 08 5c fd fe 04 00 |........|...\....|
|00000490| 1e fe 0f 00 42 fc 43 43 | f5 0d f7 00 00 66 9b fd |....B.CC|.....f..|
|000004a0| fe 03 00 55 01 00 07 00 | 46 49 4c 4e 41 4d 45 96 |...U....|FILNAME.|
|000004b0| 00 09 00 af f5 0d f7 00 | 00 fe 09 00 ae f5 0d f7 |........|........|
|000004c0| 01 00 fe 1e 00 54 f5 0d | f7 01 00 10 fc 43 ed 33 |.....T..|.....C.3|
|000004d0| f2 07 00 d9 01 00 3a f3 | 04 00 d9 01 00 5c 36 fd |......:.|.....\6.|
|000004e0| fe 15 00 54 f5 0d f7 00 | 00 10 fc 43 43 f5 0d f7 |...T....|...CC...|
|000004f0| 00 00 66 9b fd fe 28 00 | 25 fc 43 f5 0d f7 00 00 |..f...(.|%.C.....|
|00000500| f8 01 01 52 fb 02 00 5c | 3a 01 03 0a f0 09 00 43 |...R...\|:......C|
|00000510| f5 0d f7 00 00 a1 0a 09 | fd f9 05 84 00 fe 17 00 |........|........|
|00000520| 54 f5 0d f7 00 00 10 fc | f5 0d f7 00 00 f5 0d f7 |T.......|........|
|00000530| 01 00 06 fd fe 04 00 1e | fe 0b 00 42 fc f5 0d f7 |........|...B....|
|00000540| 00 00 fd fe 03 00 55 02 | 00 08 00 50 41 54 48 4e |......U.|...PATHN|
|00000550| 41 4d 45 09 00 53 45 50 | 41 52 41 54 4f 52 dd 00 |AME..SEP|ARATOR..|
|00000560| 09 00 af f5 0d f7 00 00 | fe 0b 00 ae f7 01 00 07 |........|........|
|00000570| f7 02 00 fe 15 00 54 f7 | 01 00 10 fc 43 f9 04 eb |......T.|....C...|
|00000580| 07 f5 0d f7 00 00 5d fd | fe 1c 00 54 f7 02 00 10 |......].|...T....|
|00000590| fc 43 ed 33 f2 07 00 fb | 01 00 3a f3 04 00 fb 01 |.C.3....|..:.....|
|000005a0| 00 5c 36 fd fe 1a 00 25 | fc 43 f5 0d f7 02 00 f5 |.\6....%|.C......|
|000005b0| 0d f7 01 00 a5 f8 01 00 | 11 fd f9 05 85 00 fe 26 |........|.......&|
|000005c0| 00 54 f5 0d f7 01 00 10 | fc 43 f5 0d f7 01 00 43 |.T......|.C.....C|
|000005d0| f5 0d f7 02 00 f5 0d f7 | 01 00 a5 f8 01 01 06 f8 |........|........|
|000005e0| 03 ff 5c fd fe 04 00 1e | fe 19 00 25 fc 43 fb 01 |..\.....|...%.C..|
|000005f0| 00 3a f5 0d f7 01 00 1d | f8 01 00 11 fd f9 05 c7 |.:......|........|
|00000600| 00 fe 25 00 54 f5 0d f7 | 01 00 10 fc 43 f5 0d f7 |..%.T...|....C...|
|00000610| 01 00 43 fb 01 00 3a f5 | 0d f7 01 00 1d f8 01 01 |..C...:.|........|
|00000620| 06 f8 03 ff 5c fd fe 04 | 00 1e fe 0f 00 42 fc 43 |....\...|.....B.C|
|00000630| 43 f5 0d f7 01 00 66 9b | fd fe 03 00 55 03 00 07 |C.....f.|....U...|
|00000640| 00 46 49 4c 4e 41 4d 45 | 0b 00 43 4c 4f 43 41 4c |.FILNAME|..CLOCAL|
|00000650| 46 4e 41 4d 45 07 00 43 | 44 49 52 53 45 50 19 01 |FNAME..C|DIRSEP..|
|00000660| 0f 00 af f5 0d f7 00 00 | 07 f5 0d f7 01 00 fe 0f |........|........|
|00000670| 00 ae f5 0d f7 01 00 07 | f5 0d f7 02 00 fe 1c 00 |........|........|
|00000680| 25 fc 43 f5 0d f7 01 00 | f8 01 01 f8 01 01 5c d9 |%.C.....|......\.|
|00000690| 01 00 2e 10 fd f9 05 53 | 00 fe 19 00 54 f5 0d f7 |.......S|....T...|
|000006a0| 01 00 10 fc 43 f5 0d f7 | 01 00 f8 01 02 f8 01 03 |....C...|........|
|000006b0| 5c fd fe 04 00 1e fe 19 | 00 54 f5 0d f7 02 00 10 |\.......|.T......|
|000006c0| fc 43 00 f5 0d f7 00 00 | f4 03 00 f6 04 00 fd fe |.C......|........|
|000006d0| 1c 00 54 f5 0d f7 00 00 | 10 fc 43 43 43 f5 0d f7 |..T.....|..CCC...|
|000006e0| 00 00 9b 66 f4 03 00 f6 | 05 00 fd fe 19 00 25 fc |...f....|......%.|
|000006f0| 43 fb 01 00 2e f5 0d f7 | 00 00 1d f8 01 00 11 fd |C.......|........|
|00000700| f9 05 d5 00 fe 30 00 54 | f5 0d f7 00 00 10 fc 43 |.....0.T|.......C|
|00000710| f5 0d f7 00 00 f8 01 01 | 43 fb 01 00 2e f5 0d f7 |........|C.......|
|00000720| 00 00 1d f8 01 01 08 5c | fb 01 00 2e 06 f5 0d f7 |.......\|........|
|00000730| 01 00 06 fd fe 08 00 1b | f9 05 f9 00 fe 1c 00 54 |........|.......T|
|00000740| f5 0d f7 00 00 10 fc f5 | 0d f7 00 00 fb 01 00 2e |........|........|
|00000750| 06 f5 0d f7 01 00 06 fd | fe 04 00 1e fe 19 00 42 |........|.......B|
|00000760| fc 43 00 f5 0d f7 02 00 | f4 03 00 f6 06 00 f5 0d |.C......|........|
|00000770| f7 00 00 06 fd fe 03 00 | 55 07 00 07 00 46 49 4c |........|U....FIL|
|00000780| 4e 41 4d 45 03 00 45 58 | 54 05 00 50 4e 41 4d 45 |NAME..EX|T..PNAME|
|00000790| 04 00 54 48 49 53 08 00 | 4a 55 53 54 50 41 54 48 |..THIS..|JUSTPATH|
|000007a0| 09 00 4a 55 53 54 46 4e | 41 4d 45 05 00 41 44 44 |..JUSTFN|AME..ADD|
|000007b0| 42 53 0b 01 09 00 af f5 | 0d f7 00 00 fe 07 00 ae |BS......|........|
|000007c0| f7 01 00 fe 1c 00 54 f7 | 01 00 10 fc 43 ed 33 f2 |......T.|....C.3.|
|000007d0| 07 00 fb 01 00 3a f3 04 | 00 fb 01 00 5c 36 fd fe |.....:..|....\6..|
|000007e0| 1b 00 54 f5 0d f7 00 00 | 10 fc 43 f9 04 eb 07 43 |..T.....|..C....C|
|000007f0| 43 f5 0d f7 00 00 66 9b | 5d fd fe 15 00 25 fc f5 |C.....f.|]....%..|
|00000800| 0d f7 01 00 f5 0d f7 00 | 00 01 fd f9 05 f3 00 fe |........|........|
|00000810| 22 00 54 f5 0d f7 00 00 | 10 fc 43 f5 0d f7 00 00 |".T.....|..C.....|
|00000820| f8 01 01 43 f5 0d f7 01 | 00 f5 0d f7 00 00 a5 5c |...C....|.......\|
|00000830| fd fe 47 00 25 fc 43 f5 | 0d f7 00 00 f8 01 01 52 |..G.%.C.|.......R|
|00000840| f5 0d f7 01 00 10 f0 0c | 00 43 f5 0d f7 00 00 3e |........|.C.....>|
|00000850| f8 01 01 11 09 f0 1b 00 | 43 f5 0d f7 00 00 43 f5 |........|C.....C.|
|00000860| 0d f7 00 00 3e f8 01 01 | 08 f8 01 01 5c fb 01 00 |....>...|....\...|
|00000870| 3a 0f 09 fd f9 05 e4 00 | fe 1f 00 54 f7 00 00 10 |:.......|...T....|
|00000880| fc 43 f5 0d f7 00 00 f8 | 01 01 43 f5 0d f7 00 00 |.C......|..C.....|
|00000890| 3e f8 01 01 08 5c fd fe | 04 00 1e fe 0b 00 42 fc |>....\..|......B.|
|000008a0| f5 0d f7 00 00 fd fe 08 | 00 1b f9 05 04 01 fe 09 |........|........|
|000008b0| 00 42 fc fb 00 00 fd fe | 04 00 1e fe 03 00 55 02 |.B......|......U.|
|000008c0| 00 07 00 46 49 4c 4e 41 | 4d 45 07 00 43 44 49 52 |...FILNA|ME..CDIR|
|000008d0| 53 45 50 07 00 6a 75 73 | 74 65 78 74 2c 00 00 00 |SEP..jus|text,...|
|000008e0| 00 00 ff ff 08 00 6a 75 | 73 74 73 74 65 6d db 00 |......ju|ststem..|
|000008f0| 00 00 00 00 ff ff 05 00 | 61 64 64 62 73 c9 01 00 |........|addbs...|
|00000900| 00 00 00 ff ff 09 00 6a | 75 73 74 66 6e 61 6d 65 |.......j|ustfname|
|00000910| 78 02 00 00 00 00 ff ff | 08 00 66 6f 72 63 65 65 |x.......|..forcee|
|00000920| 78 74 78 03 00 00 00 00 | ff ff 08 00 6a 75 73 74 |xtx.....|....just|
|00000930| 70 61 74 68 cc 04 00 00 | 00 00 ff ff 31 00 92 00 |path....|....1...|
|00000940| 91 00 91 01 f1 00 91 01 | 51 02 41 00 d1 00 33 00 |........|Q.A...3.|
|00000950| 92 00 91 01 51 02 41 00 | 91 01 51 02 41 00 91 01 |....Q.A.|..Q.A...|
|00000960| 51 02 41 00 f1 00 33 00 | 92 00 91 00 e1 01 51 01 |Q.A...3.|......Q.|
|00000970| 81 02 71 01 41 00 b1 00 | 33 00 92 00 b1 00 51 01 |..q.A...|3.....Q.|
|00000980| c1 01 a1 01 61 02 41 00 | 91 01 51 02 41 00 f1 00 |....a.A.|..Q.A...|
|00000990| 33 00 f2 00 f1 00 c1 01 | 91 01 41 00 91 01 c1 01 |3.......|..A.....|
|000009a0| 91 01 01 03 81 00 c1 01 | 41 00 91 01 33 00 92 00 |........|A...3...|
|000009b0| 71 00 c1 01 b1 01 51 01 | 21 02 72 04 f1 01 41 00 |q.....Q.|!.r...A.|
|000009c0| b1 00 81 00 91 00 41 00 | 32 00 00 00 00 00 00 00 |......A.|2.......|
|000009d0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 13 00 |........|........|
|000009e0| 00 00 2c 01 00 00 01 00 | 00 00 0a 00 00 00 4b 01 |..,.....|......K.|
|000009f0| 00 00 c3 02 00 00 0d 00 | 00 00 16 00 00 00 df 02 |........|........|
|00000a00| 00 00 06 04 00 00 1c 00 | 00 00 1f 00 00 00 26 04 |........|......&.|
|00000a10| 00 00 dd 05 00 00 28 00 | 00 00 2b 00 00 00 fc 05 |......(.|..+.....|
|00000a20| 00 00 ba 07 00 00 37 00 | 00 00 39 00 00 00 d9 07 |......7.|..9.....|
|00000a30| 00 00 b1 09 00 00 48 00 | 00 00 00 29 00 00 00 7d |......H.|...)...}|
|00000a40| 07 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 01 00 | 00 09 bc 50 52 4f 43 45 |........|...PROCE|
|00000a60| 44 55 52 45 20 6a 75 73 | 74 65 78 74 0d 0a 2a 20 |DURE jus|text..* |
|00000a70| 52 65 74 75 72 6e 20 6a | 75 73 74 20 74 68 65 20 |Return j|ust the |
|00000a80| 65 78 74 65 6e 73 69 6f | 6e 20 66 72 6f 6d 20 22 |extensio|n from "|
|00000a90| 66 69 6c 6e 61 6d 65 22 | 0d 0a 4c 50 41 52 41 4d |filname"|..LPARAM|
|00000aa0| 45 54 45 52 53 20 6d 2e | 66 69 6c 6e 61 6d 65 0d |ETERS m.|filname.|
|00000ab0| 0a 4c 4f 43 41 4c 20 6d | 2e 65 78 74 0d 0a 6d 2e |.LOCAL m|.ext..m.|
|00000ac0| 66 69 6c 6e 61 6d 65 20 | 3d 20 74 68 69 73 2e 6a |filname |= this.j|
|00000ad0| 75 73 74 66 6e 61 6d 65 | 28 6d 2e 66 69 6c 6e 61 |ustfname|(m.filna|
|00000ae0| 6d 65 29 20 20 20 26 26 | 20 70 72 65 76 65 6e 74 |me)   &&| prevent|
|00000af0| 73 20 70 72 6f 62 6c 65 | 6d 73 20 77 69 74 68 20 |s proble|ms with |
|00000b00| 2e 2e 5c 20 70 61 74 68 | 73 0d 0a 6d 2e 65 78 74 |..\ path|s..m.ext|
|00000b10| 20 3d 20 22 22 0d 0a 49 | 46 20 41 54 28 27 2e 27 | = ""..I|F AT('.'|
|00000b20| 2c 20 6d 2e 66 69 6c 6e | 61 6d 65 29 20 3e 20 30 |, m.filn|ame) > 0|
|00000b30| 0d 0a 20 20 20 6d 2e 65 | 78 74 20 3d 20 53 55 42 |..   m.e|xt = SUB|
|00000b40| 53 54 52 28 6d 2e 66 69 | 6c 6e 61 6d 65 2c 20 41 |STR(m.fi|lname, A|
|00000b50| 54 28 27 2e 27 2c 20 6d | 2e 66 69 6c 6e 61 6d 65 |T('.', m|.filname|
|00000b60| 29 20 2b 20 31 2c 20 33 | 29 0d 0a 45 4e 44 49 46 |) + 1, 3|)..ENDIF|
|00000b70| 0d 0a 52 45 54 55 52 4e | 20 55 50 50 45 52 28 6d |..RETURN| UPPER(m|
|00000b80| 2e 65 78 74 29 0d 0a 0d | 0a 45 4e 44 50 52 4f 43 |.ext)...|.ENDPROC|
|00000b90| 0d 0a 50 52 4f 43 45 44 | 55 52 45 20 6a 75 73 74 |..PROCED|URE just|
|00000ba0| 73 74 65 6d 0d 0a 2a 20 | 52 65 74 75 72 6e 20 6a |stem..* |Return j|
|00000bb0| 75 73 74 20 74 68 65 20 | 73 74 65 6d 20 6e 61 6d |ust the |stem nam|
|00000bc0| 65 20 66 72 6f 6d 20 22 | 66 69 6c 6e 61 6d 65 22 |e from "|filname"|
|00000bd0| 0d 0a 4c 50 41 52 41 4d | 45 54 45 52 53 20 6d 2e |..LPARAM|ETERS m.|
|00000be0| 66 69 6c 6e 61 6d 65 0d | 0a 49 46 20 52 41 54 28 |filname.|.IF RAT(|
|00000bf0| 27 5c 27 2c 6d 2e 66 69 | 6c 6e 61 6d 65 29 20 3e |'\',m.fi|lname) >|
|00000c00| 20 30 0d 0a 20 20 20 6d | 2e 66 69 6c 6e 61 6d 65 | 0..   m|.filname|
|00000c10| 20 3d 20 53 55 42 53 54 | 52 28 6d 2e 66 69 6c 6e | = SUBST|R(m.filn|
|00000c20| 61 6d 65 2c 52 41 54 28 | 27 5c 27 2c 6d 2e 66 69 |ame,RAT(|'\',m.fi|
|00000c30| 6c 6e 61 6d 65 29 2b 31 | 2c 32 35 35 29 0d 0a 45 |lname)+1|,255)..E|
|00000c40| 4e 44 49 46 0d 0a 49 46 | 20 52 41 54 28 27 3a 27 |NDIF..IF| RAT(':'|
|00000c50| 2c 6d 2e 66 69 6c 6e 61 | 6d 65 29 20 3e 20 30 0d |,m.filna|me) > 0.|
|00000c60| 0a 20 20 20 6d 2e 66 69 | 6c 6e 61 6d 65 20 3d 20 |.   m.fi|lname = |
|00000c70| 53 55 42 53 54 52 28 6d | 2e 66 69 6c 6e 61 6d 65 |SUBSTR(m|.filname|
|00000c80| 2c 52 41 54 28 27 3a 27 | 2c 6d 2e 66 69 6c 6e 61 |,RAT(':'|,m.filna|
|00000c90| 6d 65 29 2b 31 2c 32 35 | 35 29 0d 0a 45 4e 44 49 |me)+1,25|5)..ENDI|
|00000ca0| 46 0d 0a 49 46 20 41 54 | 28 27 2e 27 2c 6d 2e 66 |F..IF AT|('.',m.f|
|00000cb0| 69 6c 6e 61 6d 65 29 20 | 3e 20 30 0d 0a 20 20 20 |ilname) |> 0..   |
|00000cc0| 6d 2e 66 69 6c 6e 61 6d | 65 20 3d 20 53 55 42 53 |m.filnam|e = SUBS|
|00000cd0| 54 52 28 6d 2e 66 69 6c | 6e 61 6d 65 2c 31 2c 41 |TR(m.fil|name,1,A|
|00000ce0| 54 28 27 2e 27 2c 6d 2e | 66 69 6c 6e 61 6d 65 29 |T('.',m.|filname)|
|00000cf0| 2d 31 29 0d 0a 45 4e 44 | 49 46 0d 0a 52 45 54 55 |-1)..END|IF..RETU|
|00000d00| 52 4e 20 41 4c 4c 54 52 | 49 4d 28 55 50 50 45 52 |RN ALLTR|IM(UPPER|
|00000d10| 28 6d 2e 66 69 6c 6e 61 | 6d 65 29 29 0d 0a 0d 0a |(m.filna|me))....|
|00000d20| 45 4e 44 50 52 4f 43 0d | 0a 50 52 4f 43 45 44 55 |ENDPROC.|.PROCEDU|
|00000d30| 52 45 20 61 64 64 62 73 | 0d 0a 2a 20 41 64 64 20 |RE addbs|..* Add |
|00000d40| 61 20 62 61 63 6b 73 6c | 61 73 68 20 75 6e 6c 65 |a backsl|ash unle|
|00000d50| 73 73 20 74 68 65 72 65 | 20 69 73 20 6f 6e 65 20 |ss there| is one |
|00000d60| 61 6c 72 65 61 64 79 20 | 74 68 65 72 65 2e 0d 0a |already |there...|
|00000d70| 4c 50 41 52 41 4d 45 54 | 45 52 20 6d 2e 70 61 74 |LPARAMET|ER m.pat|
|00000d80| 68 6e 61 6d 65 0d 0a 4c | 4f 43 41 4c 20 6d 2e 73 |hname..L|OCAL m.s|
|00000d90| 65 70 61 72 61 74 6f 72 | 0d 0a 6d 2e 73 65 70 61 |eparator|..m.sepa|
|00000da0| 72 61 74 6f 72 20 3d 20 | 49 49 46 28 5f 4d 41 43 |rator = |IIF(_MAC|
|00000db0| 2c 22 3a 22 2c 22 5c 22 | 29 0d 0a 6d 2e 70 61 74 |,":","\"|)..m.pat|
|00000dc0| 68 6e 61 6d 65 20 3d 20 | 41 4c 4c 54 52 49 4d 28 |hname = |ALLTRIM(|
|00000dd0| 55 50 50 45 52 28 6d 2e | 70 61 74 68 6e 61 6d 65 |UPPER(m.|pathname|
|00000de0| 29 29 0d 0a 49 46 20 21 | 28 52 49 47 48 54 28 6d |))..IF !|(RIGHT(m|
|00000df0| 2e 70 61 74 68 6e 61 6d | 65 2c 31 29 20 24 20 27 |.pathnam|e,1) $ '|
|00000e00| 5c 3a 27 29 20 41 4e 44 | 20 21 45 4d 50 54 59 28 |\:') AND| !EMPTY(|
|00000e10| 6d 2e 70 61 74 68 6e 61 | 6d 65 29 0d 0a 20 20 20 |m.pathna|me)..   |
|00000e20| 6d 2e 70 61 74 68 6e 61 | 6d 65 20 3d 20 6d 2e 70 |m.pathna|me = m.p|
|00000e30| 61 74 68 6e 61 6d 65 20 | 2b 20 6d 2e 73 65 70 61 |athname |+ m.sepa|
|00000e40| 72 61 74 6f 72 0d 0a 45 | 4e 44 49 46 0d 0a 52 45 |rator..E|NDIF..RE|
|00000e50| 54 55 52 4e 20 6d 2e 70 | 61 74 68 6e 61 6d 65 0d |TURN m.p|athname.|
|00000e60| 0a 0d 0a 45 4e 44 50 52 | 4f 43 0d 0a 50 52 4f 43 |...ENDPR|OC..PROC|
|00000e70| 45 44 55 52 45 20 6a 75 | 73 74 66 6e 61 6d 65 0d |EDURE ju|stfname.|
|00000e80| 0a 2a 20 52 65 74 75 72 | 6e 20 6a 75 73 74 20 74 |.* Retur|n just t|
|00000e90| 68 65 20 66 69 6c 65 6e | 61 6d 65 20 28 69 2e 65 |he filen|ame (i.e|
|00000ea0| 2e 2c 20 6e 6f 20 70 61 | 74 68 29 20 66 72 6f 6d |., no pa|th) from|
|00000eb0| 20 22 66 69 6c 6e 61 6d | 65 22 0d 0a 4c 50 41 52 | "filnam|e"..LPAR|
|00000ec0| 41 4d 45 54 45 52 53 20 | 6d 2e 66 69 6c 6e 61 6d |AMETERS |m.filnam|
|00000ed0| 65 0d 0a 4c 4f 43 41 4c | 20 63 6c 6f 63 61 6c 66 |e..LOCAL| clocalf|
|00000ee0| 6e 61 6d 65 2c 20 63 64 | 69 72 73 65 70 0d 0a 63 |name, cd|irsep..c|
|00000ef0| 6c 6f 63 61 6c 66 6e 61 | 6d 65 20 3d 20 53 59 53 |localfna|me = SYS|
|00000f00| 28 32 30 32 37 2c 6d 2e | 66 69 6c 6e 61 6d 65 29 |(2027,m.|filname)|
|00000f10| 0d 0a 63 64 69 72 73 65 | 70 20 3d 20 49 49 46 28 |..cdirse|p = IIF(|
|00000f20| 5f 6d 61 63 2c 27 3a 27 | 2c 27 5c 27 29 0d 0a 49 |_mac,':'|,'\')..I|
|00000f30| 46 20 52 41 54 28 6d 2e | 63 64 69 72 73 65 70 20 |F RAT(m.|cdirsep |
|00000f40| 2c 6d 2e 63 6c 6f 63 61 | 6c 66 6e 61 6d 65 29 20 |,m.cloca|lfname) |
|00000f50| 3e 20 30 0d 0a 20 20 20 | 6d 2e 63 6c 6f 63 61 6c |> 0..   |m.clocal|
|00000f60| 66 6e 61 6d 65 3d 20 53 | 55 42 53 54 52 28 6d 2e |fname= S|UBSTR(m.|
|00000f70| 63 6c 6f 63 61 6c 66 6e | 61 6d 65 2c 52 41 54 28 |clocalfn|ame,RAT(|
|00000f80| 6d 2e 63 64 69 72 73 65 | 70 2c 6d 2e 63 6c 6f 63 |m.cdirse|p,m.cloc|
|00000f90| 61 6c 66 6e 61 6d 65 29 | 2b 31 2c 32 35 35 29 0d |alfname)|+1,255).|
|00000fa0| 0a 45 4e 44 49 46 0d 0a | 49 46 20 41 54 28 27 3a |.ENDIF..|IF AT(':|
|00000fb0| 27 2c 6d 2e 63 6c 6f 63 | 61 6c 66 6e 61 6d 65 29 |',m.cloc|alfname)|
|00000fc0| 20 3e 20 30 0d 0a 20 20 | 20 6d 2e 63 6c 6f 63 61 | > 0..  | m.cloca|
|00000fd0| 6c 66 6e 61 6d 65 3d 20 | 53 55 42 53 54 52 28 6d |lfname= |SUBSTR(m|
|00000fe0| 2e 63 6c 6f 63 61 6c 66 | 6e 61 6d 65 2c 41 54 28 |.clocalf|name,AT(|
|00000ff0| 27 3a 27 2c 6d 2e 63 6c | 6f 63 61 6c 66 6e 61 6d |':',m.cl|ocalfnam|
|00001000| 65 29 2b 31 2c 32 35 35 | 29 0d 0a 45 4e 44 49 46 |e)+1,255|)..ENDIF|
|00001010| 0d 0a 52 45 54 55 52 4e | 20 41 4c 4c 54 52 49 4d |..RETURN| ALLTRIM|
|00001020| 28 55 50 50 45 52 28 6d | 2e 63 6c 6f 63 61 6c 66 |(UPPER(m|.clocalf|
|00001030| 6e 61 6d 65 29 29 0d 0a | 0d 0a 45 4e 44 50 52 4f |name))..|..ENDPRO|
|00001040| 43 0d 0a 50 52 4f 43 45 | 44 55 52 45 20 66 6f 72 |C..PROCE|DURE for|
|00001050| 63 65 65 78 74 0d 0a 2a | 20 46 6f 72 63 65 20 66 |ceext..*| Force f|
|00001060| 69 6c 65 6e 61 6d 65 20 | 74 6f 20 68 61 76 65 20 |ilename |to have |
|00001070| 61 20 70 61 72 74 69 63 | 75 6c 61 72 20 65 78 74 |a partic|ular ext|
|00001080| 65 6e 73 69 6f 6e 2e 0d | 0a 4c 50 41 52 41 4d 45 |ension..|.LPARAME|
|00001090| 54 45 52 53 20 6d 2e 66 | 69 6c 6e 61 6d 65 2c 6d |TERS m.f|ilname,m|
|000010a0| 2e 65 78 74 0d 0a 4c 4f | 43 41 4c 20 6d 2e 65 78 |.ext..LO|CAL m.ex|
|000010b0| 74 2c 20 6d 2e 70 6e 61 | 6d 65 0d 0a 49 46 20 53 |t, m.pna|me..IF S|
|000010c0| 55 42 53 54 52 28 6d 2e | 65 78 74 2c 31 2c 31 29 |UBSTR(m.|ext,1,1)|
|000010d0| 20 3d 20 22 2e 22 0d 0a | 20 20 20 6d 2e 65 78 74 | = "."..|   m.ext|
|000010e0| 20 3d 20 53 55 42 53 54 | 52 28 6d 2e 65 78 74 2c | = SUBST|R(m.ext,|
|000010f0| 32 2c 33 29 0d 0a 45 4e | 44 49 46 0d 0a 6d 2e 70 |2,3)..EN|DIF..m.p|
|00001100| 6e 61 6d 65 20 3d 20 54 | 48 49 53 2e 6a 75 73 74 |name = T|HIS.just|
|00001110| 70 61 74 68 28 6d 2e 66 | 69 6c 6e 61 6d 65 29 0d |path(m.f|ilname).|
|00001120| 0a 6d 2e 66 69 6c 6e 61 | 6d 65 20 3d 20 54 48 49 |.m.filna|me = THI|
|00001130| 53 2e 6a 75 73 74 66 6e | 61 6d 65 28 55 50 50 45 |S.justfn|ame(UPPE|
|00001140| 52 28 41 4c 4c 54 52 49 | 4d 28 6d 2e 66 69 6c 6e |R(ALLTRI|M(m.filn|
|00001150| 61 6d 65 29 29 29 0d 0a | 49 46 20 41 54 28 27 2e |ame)))..|IF AT('.|
|00001160| 27 2c 6d 2e 66 69 6c 6e | 61 6d 65 29 20 3e 20 30 |',m.filn|ame) > 0|
|00001170| 0d 0a 20 20 20 6d 2e 66 | 69 6c 6e 61 6d 65 20 3d |..   m.f|ilname =|
|00001180| 20 53 55 42 53 54 52 28 | 6d 2e 66 69 6c 6e 61 6d | SUBSTR(|m.filnam|
|00001190| 65 2c 31 2c 41 54 28 27 | 2e 27 2c 6d 2e 66 69 6c |e,1,AT('|.',m.fil|
|000011a0| 6e 61 6d 65 29 2d 31 29 | 20 2b 20 27 2e 27 20 2b |name)-1)| + '.' +|
|000011b0| 20 6d 2e 65 78 74 0d 0a | 45 4c 53 45 0d 0a 20 20 | m.ext..|ELSE..  |
|000011c0| 20 6d 2e 66 69 6c 6e 61 | 6d 65 20 3d 20 6d 2e 66 | m.filna|me = m.f|
|000011d0| 69 6c 6e 61 6d 65 20 2b | 20 27 2e 27 20 2b 20 6d |ilname +| '.' + m|
|000011e0| 2e 65 78 74 0d 0a 45 4e | 44 49 46 0d 0a 52 45 54 |.ext..EN|DIF..RET|
|000011f0| 55 52 4e 20 54 48 49 53 | 2e 61 64 64 62 73 28 6d |URN THIS|.addbs(m|
|00001200| 2e 70 6e 61 6d 65 29 20 | 2b 20 6d 2e 66 69 6c 6e |.pname) |+ m.filn|
|00001210| 61 6d 65 0d 0a 0d 0a 45 | 4e 44 50 52 4f 43 0d 0a |ame....E|NDPROC..|
|00001220| 50 52 4f 43 45 44 55 52 | 45 20 6a 75 73 74 70 61 |PROCEDUR|E justpa|
|00001230| 74 68 0d 0a 2a 20 52 65 | 74 75 72 6e 73 20 6a 75 |th..* Re|turns ju|
|00001240| 73 74 20 74 68 65 20 70 | 61 74 68 6e 61 6d 65 2e |st the p|athname.|
|00001250| 0d 0a 4c 50 41 52 41 4d | 45 54 45 52 53 20 6d 2e |..LPARAM|ETERS m.|
|00001260| 66 69 6c 6e 61 6d 65 0d | 0a 4c 4f 43 41 4c 20 63 |filname.|.LOCAL c|
|00001270| 64 69 72 73 65 70 0d 0a | 63 64 69 72 73 65 70 20 |dirsep..|cdirsep |
|00001280| 3d 20 49 49 46 28 5f 6d | 61 63 2c 27 3a 27 2c 27 |= IIF(_m|ac,':','|
|00001290| 5c 27 29 0d 0a 6d 2e 66 | 69 6c 6e 61 6d 65 20 3d |\')..m.f|ilname =|
|000012a0| 20 53 59 53 28 32 30 32 | 37 2c 41 4c 4c 54 52 49 | SYS(202|7,ALLTRI|
|000012b0| 4d 28 55 50 50 45 52 28 | 6d 2e 66 69 6c 6e 61 6d |M(UPPER(|m.filnam|
|000012c0| 65 29 29 29 0d 0a 49 46 | 20 6d 2e 63 64 69 72 73 |e)))..IF| m.cdirs|
|000012d0| 65 70 20 24 20 6d 2e 66 | 69 6c 6e 61 6d 65 0d 0a |ep $ m.f|ilname..|
|000012e0| 20 20 20 6d 2e 66 69 6c | 6e 61 6d 65 20 3d 20 53 |   m.fil|name = S|
|000012f0| 55 42 53 54 52 28 6d 2e | 66 69 6c 6e 61 6d 65 2c |UBSTR(m.|filname,|
|00001300| 31 2c 52 41 54 28 6d 2e | 63 64 69 72 73 65 70 2c |1,RAT(m.|cdirsep,|
|00001310| 6d 2e 66 69 6c 6e 61 6d | 65 29 29 0d 0a 20 20 20 |m.filnam|e))..   |
|00001320| 49 46 20 52 49 47 48 54 | 28 6d 2e 66 69 6c 6e 61 |IF RIGHT|(m.filna|
|00001330| 6d 65 2c 31 29 20 3d 20 | 6d 2e 63 64 69 72 73 65 |me,1) = |m.cdirse|
|00001340| 70 20 41 4e 44 20 4c 45 | 4e 28 6d 2e 66 69 6c 6e |p AND LE|N(m.filn|
|00001350| 61 6d 65 29 20 3e 20 31 | 20 3b 0d 0a 20 20 20 20 |ame) > 1| ;..    |
|00001360| 20 20 20 20 20 20 20 20 | 41 4e 44 20 53 55 42 53 |        |AND SUBS|
|00001370| 54 52 28 6d 2e 66 69 6c | 6e 61 6d 65 2c 4c 45 4e |TR(m.fil|name,LEN|
|00001380| 28 6d 2e 66 69 6c 6e 61 | 6d 65 29 2d 31 2c 31 29 |(m.filna|me)-1,1)|
|00001390| 20 3c 3e 20 27 3a 27 0d | 0a 20 20 20 20 20 20 20 | <> ':'.|.       |
|000013a0| 20 20 66 69 6c 6e 61 6d | 65 20 3d 20 53 55 42 53 |  filnam|e = SUBS|
|000013b0| 54 52 28 6d 2e 66 69 6c | 6e 61 6d 65 2c 31 2c 4c |TR(m.fil|name,1,L|
|000013c0| 45 4e 28 6d 2e 66 69 6c | 6e 61 6d 65 29 2d 31 29 |EN(m.fil|name)-1)|
|000013d0| 0d 0a 20 20 20 45 4e 44 | 49 46 0d 0a 20 20 20 52 |..   END|IF..   R|
|000013e0| 45 54 55 52 4e 20 6d 2e | 66 69 6c 6e 61 6d 65 0d |ETURN m.|filname.|
|000013f0| 0a 45 4c 53 45 0d 0a 20 | 20 20 52 45 54 55 52 4e |.ELSE.. |  RETURN|
|00001400| 20 27 27 0d 0a 45 4e 44 | 49 46 0d 0a 0d 0a 45 4e | ''..END|IF....EN|
|00001410| 44 50 52 4f 43 0d 0a 00 | 00 00 01 00 00 00 12 4e |DPROC...|.......N|
|00001420| 61 6d 65 20 3d 20 22 66 | 69 6c 65 6c 69 62 22 0d |ame = "f|ilelib".|
|00001430| 0a 00 00 00 01 00 00 00 | 06 63 75 73 74 6f 6d 00 |........|.custom.|
|00001440| 00 00 01 00 00 00 08 61 | 72 72 61 79 6c 69 62 00 |.......a|rraylib.|
|00001450| 00 00 01 00 00 00 06 50 | 69 78 65 6c 73 00 00 00 |.......P|ixels...|
|00001460| 01 00 00 00 05 43 6c 61 | 73 73 00 00 00 01 00 00 |.....Cla|ss......|
|00001470| 00 01 31 00 00 00 01 00 | 00 00 06 63 75 73 74 6f |..1.....|...custo|
|00001480| 6d 00 00 00 01 00 00 00 | 08 61 72 72 61 79 6c 69 |m.......|.arrayli|
|00001490| 62 00 00 00 01 00 00 00 | 24 2a 69 6e 73 61 69 74 |b.......|$*insait|
|000014a0| 65 6d 20 0d 0a 2a 64 65 | 6c 61 69 74 65 6d 20 0d |em ..*de|laitem .|
|000014b0| 0a 2a 61 63 6f 6c 73 63 | 61 6e 20 0d 0a 00 00 00 |.*acolsc|an .....|
|000014c0| 01 00 00 00 13 4e 61 6d | 65 20 3d 20 22 61 72 72 |.....Nam|e = "arr|
|000014d0| 61 79 6c 69 62 22 0d 0a | 00 00 00 01 00 00 00 06 |aylib"..|........|
|000014e0| 63 75 73 74 6f 6d 00 00 | 00 01 00 00 05 a1 50 52 |custom..|......PR|
|000014f0| 4f 43 45 44 55 52 45 20 | 69 6e 73 61 69 74 65 6d |OCEDURE |insaitem|
|00001500| 0d 0a 2a 20 49 6e 73 65 | 72 74 73 20 61 6e 20 61 |..* Inse|rts an a|
|00001510| 72 72 61 79 20 65 6c 65 | 6d 65 6e 74 20 69 6e 74 |rray ele|ment int|
|00001520| 6f 20 61 6e 20 61 72 72 | 61 79 2e 0d 0a 2a 20 46 |o an arr|ay...* F|
|00001530| 6f 72 20 31 2d 44 20 61 | 72 72 61 79 0d 0a 2a 20 |or 1-D a|rray..* |
|00001540| 61 41 72 72 61 79 20 2d | 20 61 72 72 61 79 20 6e |aArray -| array n|
|00001550| 61 6d 65 0d 0a 2a 20 73 | 43 6f 6e 74 65 6e 74 73 |ame..* s|Contents|
|00001560| 20 2d 20 63 6f 6e 74 65 | 6e 74 73 20 74 6f 20 69 | - conte|nts to i|
|00001570| 6e 73 65 72 74 0d 0a 2a | 20 69 52 6f 77 20 2d 20 |nsert..*| iRow - |
|00001580| 72 6f 77 20 74 6f 20 69 | 6e 73 65 72 74 20 69 6e |row to i|nsert in|
|00001590| 74 6f 0d 0a 4c 50 41 52 | 41 4d 45 54 45 52 20 61 |to..LPAR|AMETER a|
|000015a0| 41 72 72 61 79 2c 73 43 | 6f 6e 74 65 6e 74 73 2c |Array,sC|ontents,|
|000015b0| 69 52 6f 77 0d 0a 49 46 | 20 41 4c 45 4e 28 61 41 |iRow..IF| ALEN(aA|
|000015c0| 72 72 61 79 29 20 3d 20 | 31 20 41 4e 44 20 45 4d |rray) = |1 AND EM|
|000015d0| 50 54 59 28 61 41 72 72 | 61 79 5b 31 5d 29 0d 0a |PTY(aArr|ay[1])..|
|000015e0| 20 20 61 41 72 72 61 79 | 5b 31 5d 3d 6d 2e 73 43 |  aArray|[1]=m.sC|
|000015f0| 6f 6e 74 65 6e 74 73 0d | 0a 45 4c 53 45 0d 0a 20 |ontents.|.ELSE.. |
|00001600| 20 44 49 4d 45 4e 53 49 | 4f 4e 20 61 41 72 72 61 | DIMENSI|ON aArra|
|00001610| 79 5b 41 4c 45 4e 28 61 | 41 72 72 61 79 29 2b 31 |y[ALEN(a|Array)+1|
|00001620| 2c 31 5d 0d 0a 20 20 49 | 46 20 50 41 52 41 4d 28 |,1]..  I|F PARAM(|
|00001630| 29 3d 32 0d 0a 20 20 20 | 20 61 41 72 72 61 79 5b |)=2..   | aArray[|
|00001640| 41 4c 45 4e 28 61 41 72 | 72 61 79 29 5d 3d 6d 2e |ALEN(aAr|ray)]=m.|
|00001650| 73 43 6f 6e 74 65 6e 74 | 73 0d 0a 20 20 45 4c 53 |sContent|s..  ELS|
|00001660| 45 0d 0a 20 20 20 20 3d | 41 49 4e 53 28 61 41 72 |E..    =|AINS(aAr|
|00001670| 72 61 79 2c 6d 2e 69 52 | 6f 77 2b 31 29 0d 0a 09 |ray,m.iR|ow+1)...|
|00001680| 61 41 72 72 61 79 5b 6d | 2e 69 52 6f 77 2b 31 5d |aArray[m|.iRow+1]|
|00001690| 3d 6d 2e 73 43 6f 6e 74 | 65 6e 74 73 0d 0a 20 20 |=m.sCont|ents..  |
|000016a0| 45 4e 44 49 46 09 0d 0a | 45 4e 44 49 46 0d 0a 0d |ENDIF...|ENDIF...|
|000016b0| 0a 45 4e 44 50 52 4f 43 | 0d 0a 50 52 4f 43 45 44 |.ENDPROC|..PROCED|
|000016c0| 55 52 45 20 64 65 6c 61 | 69 74 65 6d 0d 0a 2a 20 |URE dela|item..* |
|000016d0| 47 65 6e 65 72 69 63 20 | 72 6f 75 74 69 6e 65 20 |Generic |routine |
|000016e0| 74 6f 20 64 65 6c 65 74 | 65 20 61 6e 20 61 72 72 |to delet|e an arr|
|000016f0| 61 79 20 65 6c 65 6d 65 | 6e 74 2e 0d 0a 2a 20 61 |ay eleme|nt...* a|
|00001700| 41 72 72 61 79 2d 20 61 | 72 72 61 79 20 74 6f 20 |Array- a|rray to |
|00001710| 73 63 61 6e 0d 0a 2a 20 | 77 7a 69 52 6f 77 20 2d |scan..* |wziRow -|
|00001720| 20 72 6f 77 20 74 6f 20 | 64 65 6c 65 74 65 0d 0a | row to |delete..|
|00001730| 4c 50 41 52 41 4d 45 54 | 45 52 53 20 61 41 72 72 |LPARAMET|ERS aArr|
|00001740| 61 79 2c 77 7a 69 52 6f | 77 0d 0a 49 46 20 41 4c |ay,wziRo|w..IF AL|
|00001750| 45 4e 28 61 41 72 72 61 | 79 29 3e 3d 6d 2e 77 7a |EN(aArra|y)>=m.wz|
|00001760| 69 52 6f 77 0d 0a 20 20 | 49 46 20 41 4c 45 4e 28 |iRow..  |IF ALEN(|
|00001770| 61 41 72 72 61 79 29 3d | 31 0d 0a 20 20 20 20 61 |aArray)=|1..    a|
|00001780| 41 72 72 61 79 3d 27 27 | 0d 0a 20 20 45 4c 53 45 |Array=''|..  ELSE|
|00001790| 0d 0a 20 20 20 20 3d 41 | 44 45 4c 28 61 41 72 72 |..    =A|DEL(aArr|
|000017a0| 61 79 2c 6d 2e 77 7a 69 | 52 6f 77 29 0d 0a 20 20 |ay,m.wzi|Row)..  |
|000017b0| 20 20 44 49 4d 45 4e 53 | 49 4f 4e 20 61 41 72 72 |  DIMENS|ION aArr|
|000017c0| 61 79 5b 41 4c 45 4e 28 | 61 41 72 72 61 79 29 2d |ay[ALEN(|aArray)-|
|000017d0| 31 5d 0d 0a 20 20 45 4e | 44 49 46 0d 0a 45 4e 44 |1]..  EN|DIF..END|
|000017e0| 49 46 0d 0a 0d 0a 45 4e | 44 50 52 4f 43 0d 0a 50 |IF....EN|DPROC..P|
|000017f0| 52 4f 43 45 44 55 52 45 | 20 61 63 6f 6c 73 63 61 |ROCEDURE| acolsca|
|00001800| 6e 0d 0a 2a 20 54 68 69 | 73 20 66 75 6e 63 74 69 |n..* Thi|s functi|
|00001810| 6f 6e 20 64 6f 65 73 20 | 61 6e 20 41 53 43 41 4e |on does |an ASCAN|
|00001820| 20 66 6f 72 20 61 20 73 | 70 65 63 69 66 69 63 20 | for a s|pecific |
|00001830| 72 6f 77 0d 0a 2a 20 61 | 53 65 61 72 63 68 20 2d |row..* a|Search -|
|00001840| 20 61 72 72 61 79 20 74 | 6f 20 73 63 61 6e 0d 0a | array t|o scan..|
|00001850| 2a 20 73 45 78 70 72 20 | 2d 20 65 78 70 72 65 73 |* sExpr |- expres|
|00001860| 73 69 6f 6e 20 74 6f 20 | 73 63 61 6e 0d 0a 2a 20 |sion to |scan..* |
|00001870| 6e 43 6f 6c 75 6d 6e 20 | 2d 20 63 6f 6c 75 6d 6e |nColumn |- column|
|00001880| 20 74 6f 20 73 63 61 6e | 0d 0a 2a 20 6c 52 65 74 | to scan|..* lRet|
|00001890| 52 6f 77 20 2d 20 72 65 | 74 75 72 6e 20 72 6f 77 |Row - re|turn row|
|000018a0| 20 28 54 29 20 6f 72 20 | 61 72 72 61 79 20 65 6c | (T) or |array el|
|000018b0| 65 6d 65 6e 74 20 28 46 | 29 0d 0a 4c 50 41 52 41 |ement (F|)..LPARA|
|000018c0| 4d 45 54 45 52 20 61 53 | 65 61 72 63 68 2c 73 45 |METER aS|earch,sE|
|000018d0| 78 70 72 2c 6e 43 6f 6c | 75 6d 6e 2c 6c 52 65 74 |xpr,nCol|umn,lRet|
|000018e0| 52 6f 77 0d 0a 4c 4f 43 | 41 4c 20 61 70 6f 73 0d |Row..LOC|AL apos.|
|000018f0| 0a 49 46 20 54 59 50 45 | 28 27 6d 2e 6e 43 6f 6c |.IF TYPE|('m.nCol|
|00001900| 75 6d 6e 27 29 23 27 4e | 27 0d 0a 09 6e 43 6f 6c |umn')#'N|'...nCol|
|00001910| 75 6d 6e 20 3d 31 0d 0a | 45 4e 44 49 46 0d 0a 49 |umn =1..|ENDIF..I|
|00001920| 46 20 54 59 50 45 28 27 | 6d 2e 6c 52 65 74 52 6f |F TYPE('|m.lRetRo|
|00001930| 77 27 29 23 27 4c 27 0d | 0a 09 6d 2e 52 65 74 52 |w')#'L'.|..m.RetR|
|00001940| 6f 77 20 3d 20 2e 46 2e | 0d 0a 45 4e 44 49 46 0d |ow = .F.|..ENDIF.|
|00001950| 0a 0d 0a 6d 2e 61 70 6f | 73 20 3d 20 31 0d 0a 44 |...m.apo|s = 1..D|
|00001960| 4f 20 57 48 49 4c 45 20 | 2e 54 2e 0d 0a 09 6d 2e |O WHILE |.T....m.|
|00001970| 61 70 6f 73 20 3d 20 41 | 53 43 41 4e 28 61 53 65 |apos = A|SCAN(aSe|
|00001980| 61 72 63 68 2c 6d 2e 73 | 45 78 70 72 2c 6d 2e 61 |arch,m.s|Expr,m.a|
|00001990| 70 6f 73 29 0d 0a 09 44 | 4f 20 43 41 53 45 0d 0a |pos)...D|O CASE..|
|000019a0| 09 43 41 53 45 20 6d 2e | 61 70 6f 73 3d 30 09 26 |.CASE m.|apos=0.&|
|000019b0| 26 64 69 64 20 6e 6f 74 | 20 66 69 6e 64 20 6d 61 |&did not| find ma|
|000019c0| 74 63 68 0d 0a 09 09 45 | 58 49 54 0d 0a 09 43 41 |tch....E|XIT...CA|
|000019d0| 53 45 20 41 53 55 42 53 | 43 52 49 50 54 28 61 53 |SE ASUBS|CRIPT(aS|
|000019e0| 65 61 72 63 68 2c 6d 2e | 61 70 6f 73 2c 32 29 3d |earch,m.|apos,2)=|
|000019f0| 6d 2e 6e 43 6f 6c 75 6d | 6e 0d 0a 09 09 45 58 49 |m.nColum|n....EXI|
|00001a00| 54 0d 0a 09 4f 54 48 45 | 52 57 49 53 45 0d 0a 09 |T...OTHE|RWISE...|
|00001a10| 09 6d 2e 61 70 6f 73 3d | 6d 2e 61 70 6f 73 2b 31 |.m.apos=|m.apos+1|
|00001a20| 0d 0a 09 45 4e 44 43 41 | 53 45 0d 0a 45 4e 44 44 |...ENDCA|SE..ENDD|
|00001a30| 4f 0d 0a 49 46 20 6d 2e | 6c 52 65 74 52 6f 77 0d |O..IF m.|lRetRow.|
|00001a40| 0a 09 52 45 54 55 52 4e | 20 41 53 55 42 53 43 52 |..RETURN| ASUBSCR|
|00001a50| 49 50 54 28 61 53 65 61 | 72 63 68 2c 6d 2e 61 70 |IPT(aSea|rch,m.ap|
|00001a60| 6f 73 2c 31 29 0d 0a 45 | 4c 53 45 0d 0a 09 52 45 |os,1)..E|LSE...RE|
|00001a70| 54 55 52 4e 20 6d 2e 61 | 70 6f 73 0d 0a 45 4e 44 |TURN m.a|pos..END|
|00001a80| 49 46 0d 0a 0d 0a 45 4e | 44 50 52 4f 43 0d 0a 00 |IF....EN|DPROC...|
|00001a90| 00 00 01 00 00 04 53 fe | f2 ff 1f 02 01 00 00 00 |......S.|........|
|00001aa0| 3a 04 00 00 3a 04 00 00 | 00 00 00 00 00 00 00 00 |:...:...|........|
|00001ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 51 9f |........|......Q.|
|00001ac0| 03 00 00 00 25 00 00 00 | 37 03 00 00 00 00 00 00 |....%...|7.......|
|00001ad0| d1 03 00 00 32 00 00 00 | 6d 03 00 00 00 00 00 00 |....2...|m.......|
|00001ae0| 00 00 00 00 fc 03 00 03 | 00 55 00 00 d3 00 0f 00 |........|.U......|
|00001af0| af f7 00 00 07 f7 01 00 | 07 f7 02 00 fe 21 00 25 |........|.....!.%|
|00001b00| fc 43 eb f7 00 00 cd f8 | 01 01 10 f0 0a 00 43 43 |.C......|......CC|
|00001b10| f8 01 01 f6 00 00 a1 09 | fd f9 05 45 00 fe 15 00 |........|...E....|
|00001b20| 54 f6 00 00 fc f8 01 01 | fd 16 10 fc f5 0d f7 01 |T.......|........|
|00001b30| 00 fd fe 08 00 1b f9 05 | cc 00 fe 1a 00 15 f6 00 |........|........|
|00001b40| 00 fc 43 eb f7 00 00 cd | f8 01 01 06 fd 07 fc f8 |..C.....|........|
|00001b50| 01 01 fd 16 fe 10 00 25 | fc 43 c4 f8 01 02 10 fd |.......%|.C......|
|00001b60| f9 05 8f 00 fe 18 00 54 | f6 00 00 fc 43 eb f7 00 |.......T|....C...|
|00001b70| 00 cd fd 16 10 fc f5 0d | f7 01 00 fd fe 08 00 1b |........|........|
|00001b80| f9 05 c8 00 fe 16 00 86 | fc 43 eb f7 00 00 f5 0d |........|.C......|
|00001b90| f7 02 00 f8 01 01 06 ea | 0e fd fe 1b 00 54 f6 00 |........|.....T..|
|00001ba0| 00 fc f5 0d f7 02 00 f8 | 01 01 06 fd 16 10 fc f5 |........|........|
|00001bb0| 0d f7 01 00 fd fe 04 00 | 1e fe 04 00 1e fe 03 00 |........|........|
|00001bc0| 55 03 00 06 00 41 41 52 | 52 41 59 09 00 53 43 4f |U....AAR|RAY..SCO|
|00001bd0| 4e 54 45 4e 54 53 04 00 | 49 52 4f 57 7b 00 0b 00 |NTENTS..|IROW{...|
|00001be0| af f7 00 00 07 f7 01 00 | fe 16 00 25 fc 43 eb f7 |........|...%.C..|
|00001bf0| 00 00 cd f5 0d f7 01 00 | 12 fd f9 05 74 00 fe 14 |........|....t...|
|00001c00| 00 25 fc 43 eb f7 00 00 | cd f8 01 01 10 fd f9 05 |.%.C....|........|
|00001c10| 42 00 fe 0d 00 54 f7 00 | 00 10 fc fb 00 00 fd fe |B....T..|........|
|00001c20| 08 00 1b f9 05 70 00 fe | 12 00 86 fc 43 eb f7 00 |.....p..|....C...|
|00001c30| 00 f5 0d f7 01 00 ea 0f | fd fe 14 00 15 f6 00 00 |........|........|
|00001c40| fc 43 eb f7 00 00 cd f8 | 01 01 08 fd 16 fe 04 00 |.C......|........|
|00001c50| 1e fe 04 00 1e fe 03 00 | 55 02 00 06 00 41 41 52 |........|U....AAR|
|00001c60| 52 41 59 06 00 57 5a 49 | 52 4f 57 58 01 13 00 af |RAY..WZI|ROWX....|
|00001c70| f7 00 00 07 f7 01 00 07 | f7 02 00 07 f7 03 00 fe |........|........|
|00001c80| 07 00 ae f7 04 00 fe 1d | 00 25 fc 43 fb 09 00 6d |........|.%.C...m|
|00001c90| 2e 6e 43 6f 6c 75 6d 6e | 62 fb 01 00 4e 0f fd f9 |.nColumn|b...N...|
|00001ca0| 05 44 00 fe 0d 00 54 f7 | 02 00 10 fc f8 01 01 fd |.D....T.|........|
|00001cb0| fe 04 00 1e fe 1d 00 25 | fc 43 fb 09 00 6d 2e 6c |.......%|.C...m.l|
|00001cc0| 52 65 74 52 6f 77 62 fb | 01 00 4c 0f fd f9 05 72 |RetRowb.|..L....r|
|00001cd0| 00 fe 0d 00 54 f5 0d f7 | 05 00 10 fc 2d fd fe 04 |....T...|....-...|
|00001ce0| 00 1e fe 0f 00 54 f5 0d | f7 04 00 10 fc f8 01 01 |.....T..|........|
|00001cf0| fd fe 0c 00 18 2b fc 61 | fd f9 05 16 01 fe 1d 00 |.....+.a|........|
|00001d00| 54 f5 0d f7 04 00 10 fc | 43 eb f7 00 00 f5 0d f7 |T.......|C.......|
|00001d10| 01 00 f5 0d f7 04 00 ea | 11 fd fe 0d 00 18 48 f9 |........|......H.|
|00001d20| 05 bb 00 f9 05 12 01 fe | 13 00 0c fc f5 0d f7 04 |........|........|
|00001d30| 00 f8 01 00 10 fd f9 05 | d2 00 fe 04 00 21 fe 1f |........|.....!..|
|00001d40| 00 0c fc 43 eb f7 00 00 | f5 0d f7 04 00 f8 01 02 |...C....|........|
|00001d50| ea 13 f5 0d f7 02 00 10 | fd f9 05 f5 00 fe 04 00 |........|........|
|00001d60| 21 fe 08 00 32 f9 05 12 | 01 fe 15 00 54 f5 0d f7 |!...2...|....T...|
|00001d70| 04 00 10 fc f5 0d f7 04 | 00 f8 01 01 06 fd fe 04 |........|........|
|00001d80| 00 1c fe 04 00 1d fe 0f | 00 25 fc f5 0d f7 03 00 |........|.%......|
|00001d90| fd f9 05 3e 01 fe 15 00 | 42 fc 43 eb f7 00 00 f5 |...>....|B.C.....|
|00001da0| 0d f7 04 00 f8 01 01 ea | 13 fd fe 08 00 1b f9 05 |........|........|
|00001db0| 51 01 fe 0b 00 42 fc f5 | 0d f7 04 00 fd fe 04 00 |Q....B..|........|
|00001dc0| 1e fe 03 00 55 06 00 07 | 00 41 53 45 41 52 43 48 |....U...|.ASEARCH|
|00001dd0| 05 00 53 45 58 50 52 07 | 00 4e 43 4f 4c 55 4d 4e |..SEXPR.|.NCOLUMN|
|00001de0| 07 00 4c 52 45 54 52 4f | 57 04 00 41 50 4f 53 06 |..LRETRO|W..APOS.|
|00001df0| 00 52 45 54 52 4f 57 08 | 00 69 6e 73 61 69 74 65 |.RETROW.|.insaite|
|00001e00| 6d 2c 00 00 00 00 00 ff | ff 08 00 64 65 6c 61 69 |m,......|...delai|
|00001e10| 74 65 6d 1c 01 00 00 00 | 00 ff ff 08 00 61 63 6f |tem.....|.....aco|
|00001e20| 6c 73 63 61 6e ab 01 00 | 00 00 00 ff ff 31 00 f6 |lscan...|.....1..|
|00001e30| 00 11 02 51 01 81 00 a1 | 01 01 01 81 01 81 00 61 |...Q....|.......a|
|00001e40| 01 b1 01 41 00 41 00 33 | 00 b4 00 61 01 41 01 d1 |...A.A.3|...a.A..|
|00001e50| 00 81 00 21 01 41 01 41 | 00 41 00 33 00 36 01 71 |...!.A.A|.A.3.6.q|
|00001e60| 00 d1 01 d1 00 41 00 d1 | 01 d1 00 41 00 f2 00 c1 |.....A..|...A....|
|00001e70| 00 d1 01 d1 00 31 01 41 | 00 f1 01 41 00 81 00 51 |.....1.A|...A...Q|
|00001e80| 01 41 00 41 00 f1 00 51 | 01 81 00 b1 00 41 00 32 |.A.A...Q|.....A.2|
|00001e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ea0| 00 01 00 00 00 14 00 00 | 00 c1 01 00 00 01 00 00 |........|........|
|00001eb0| 00 0e 00 00 00 e0 01 00 | 00 f6 02 00 00 15 00 00 |........|........|
|00001ec0| 00 18 00 00 00 15 03 00 | 00 96 05 00 00 24 00 00 |........|.....$..|
|00001ed0| 00 00 29 00 00 00 3a 04 | 00 00 00 00 00 00 00 00 |..)...:.|........|
|00001ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00001ef0| 00 07 6d 65 6e 75 6c 69 | 62 00 00 00 01 00 00 00 |..menuli|b.......|
|00001f00| 06 50 69 78 65 6c 73 00 | 00 00 01 00 00 00 05 43 |.Pixels.|.......C|
|00001f10| 6c 61 73 73 00 00 00 01 | 00 00 00 01 31 00 00 00 |lass....|....1...|
|00001f20| 01 00 00 00 09 63 6f 6e | 74 61 69 6e 65 72 00 00 |.....con|tainer..|
|00001f30| 00 01 00 00 00 07 6d 65 | 6e 75 6c 69 62 00 00 00 |......me|nulib...|
|00001f40| 01 00 00 00 1e 2a 73 68 | 6f 77 6d 65 6e 75 20 0d |.....*sh|owmenu .|
|00001f50| 0a 2a 64 65 61 63 74 69 | 76 61 74 65 6d 65 6e 75 |.*deacti|vatemenu|
|00001f60| 20 0d 0a 00 00 00 01 00 | 00 04 7f fe f2 ff 1f 02 | .......|........|
|00001f70| 01 00 00 00 66 04 00 00 | 66 04 00 00 00 00 00 00 |....f...|f.......|
|00001f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f90| 00 00 a0 c1 03 00 00 00 | 25 00 00 00 64 03 00 00 |........|%...d...|
|00001fa0| 00 00 00 00 fd 03 00 00 | 2f 00 00 00 9f 03 00 00 |........|/.......|
|00001fb0| 00 00 00 00 00 00 00 00 | fc 03 00 03 00 55 00 00 |........|.....U..|
|00001fc0| 72 02 0b 00 af f7 00 00 | 07 f7 01 00 fe 13 00 ae |r.......|........|
|00001fd0| f7 02 00 07 f7 03 00 07 | f7 04 00 07 f7 05 00 fe |........|........|
|00001fe0| 0b 00 ae f7 06 00 07 f7 | 07 00 fe 08 00 90 04 f7 |........|........|
|00001ff0| 00 00 fe 24 00 25 fc 43 | c4 f8 01 00 10 f1 11 00 |...$.%.C|........|
|00002000| 43 d9 06 00 74 61 4d 65 | 6e 75 62 d9 01 00 43 0f |C...taMe|nub...C.|
|00002010| 0b fd f9 05 5c 00 fe 07 | 00 42 fc 2d fd fe 04 00 |....\...|.B.-....|
|00002020| 1e fe 0d 00 54 f7 03 00 | 10 fc f8 01 00 fd fe 13 |....T...|........|
|00002030| 00 54 f7 03 00 10 fc 43 | eb f7 00 00 f8 01 01 cd |.T.....C|........|
|00002040| fd fe 11 00 25 fc f7 03 | 00 f8 01 00 10 fd f9 05 |....%...|........|
|00002050| 98 00 fe 07 00 42 fc 2d | fd fe 04 00 1e fe 18 00 |.....B.-|........|
|00002060| 54 f7 05 00 10 fc 43 eb | f7 00 00 f8 01 02 cd f8 |T.....C.|........|
|00002070| 01 00 11 03 fd fe 05 00 | 74 26 fe 08 00 75 c6 f7 |........|t&...u..|
|00002080| 08 00 fe 15 00 73 c6 f7 | 08 00 15 fc 43 c7 fd 07 |.....s..|....C...|
|00002090| fc 43 c5 fd c8 cc 57 fe | 17 00 84 f7 04 00 10 fc |.C....W.|........|
|000020a0| f8 01 01 fd 28 fc f7 03 | 00 fd f9 05 2a 01 fe 28 |....(...|....*..(|
|000020b0| 00 54 f7 06 00 10 fc 43 | f7 05 00 f2 0e 00 43 00 |.T.....C|......C.|
|000020c0| f7 04 00 f8 01 01 f6 00 | 00 f3 08 00 43 00 f7 04 |........|....C...|
|000020d0| 00 f6 00 00 36 fd fe 15 | 00 73 06 fc f7 04 00 fd |....6...|.s......|
|000020e0| c3 f7 08 00 22 fc f7 06 | 00 03 fd fe 04 00 85 fe |...."...|........|
|000020f0| 2d 00 31 d0 c6 f7 08 00 | fb 21 00 44 45 41 43 54 |-.1.....|.!.DEACT|
|00002100| 49 56 41 54 45 20 50 4f | 50 55 50 20 5f 70 6f 70 |IVATE PO|PUP _pop|
|00002110| 53 68 6f 72 74 63 75 74 | 4d 65 6e 75 fe 08 00 74 |Shortcut|Menu...t|
|00002120| c6 f7 08 00 fe 08 00 3c | c6 f7 08 00 fe 10 00 25 |.......<|.......%|
|00002130| fc 43 6c f8 01 00 10 fd | f9 05 82 01 fe 07 00 42 |.Cl.....|.......B|
|00002140| fc 2d fd fe 04 00 1e fe | 0d 00 25 fc f7 05 00 fd |.-......|..%.....|
|00002150| f9 05 18 02 fe 13 00 54 | f7 07 00 10 fc 43 43 6c |.......T|.....CCl|
|00002160| f8 01 02 f6 00 00 fd fe | 2d 00 25 fc 43 f7 07 00 |........|-.%.C...|
|00002170| a1 0a f0 1a 00 43 d9 0f | 00 6c 63 4d 65 6e 75 53 |.....C..|.lcMenuS|
|00002180| 65 6c 65 63 74 69 6f 6e | 62 d9 01 00 43 14 09 fd |election|b...C...|
|00002190| f9 05 e2 01 fe 0f 00 54 | f7 02 00 10 fc 43 f7 07 |.......T|.....C..|
|000021a0| 00 9b fd fe 04 00 1e fe | 0f 00 25 fc 43 f7 02 00 |........|..%.C...|
|000021b0| a1 fd f9 05 14 02 fe 1f | 00 54 f7 02 00 10 fc 43 |........|.T.....C|
|000021c0| 43 43 f7 01 00 a1 f2 06 | 00 d9 00 00 f3 03 00 f7 |CC......|........|
|000021d0| 01 00 36 9b fd fe 04 00 | 1e fe 08 00 1b f9 05 3f |..6.....|.......?|
|000021e0| 02 fe 1f 00 54 f7 02 00 | 10 fc 43 43 43 f7 01 00 |....T...|..CCC...|
|000021f0| a1 f2 06 00 d9 00 00 f3 | 03 00 f7 01 00 36 9b fd |........|.....6..|
|00002200| fe 04 00 1e fe 0f 00 25 | fc 43 f7 02 00 a1 fd f9 |.......%|.C......|
|00002210| 05 59 02 fe 07 00 42 fc | 2d fd fe 04 00 1e fe 12 |.Y....B.|-.......|
|00002220| 00 01 26 6c 63 4f 6e 53 | 65 6c 65 63 74 69 6f 6e |..&lcOnS|election|
|00002230| 0a 03 00 55 09 00 06 00 | 54 41 4d 45 4e 55 0d 00 |...U....|TAMENU..|
|00002240| 54 43 4f 4e 53 45 4c 45 | 43 54 49 4f 4e 0d 00 4c |TCONSELE|CTION..L|
|00002250| 43 4f 4e 53 45 4c 45 43 | 54 49 4f 4e 0b 00 4c 4e |CONSELEC|TION..LN|
|00002260| 4d 45 4e 55 43 4f 55 4e | 54 07 00 4c 4e 43 4f 55 |MENUCOUN|T..LNCOU|
|00002270| 4e 54 0d 00 4c 4c 44 4f | 55 42 4c 45 41 52 52 41 |NT..LLDO|UBLEARRA|
|00002280| 59 0a 00 4c 43 4d 45 4e | 55 49 54 45 4d 0f 00 4c |Y..LCMEN|UITEM..L|
|00002290| 43 4d 45 4e 55 53 45 4c | 45 43 54 49 4f 4e 10 00 |CMENUSEL|ECTION..|
|000022a0| 5f 50 4f 50 53 48 4f 52 | 54 43 55 54 4d 45 4e 55 |_POPSHOR|TCUTMENU|
|000022b0| 0b 00 08 00 75 1c f7 00 | 00 fe 03 00 55 01 00 10 |....u...|....U...|
|000022c0| 00 5f 50 4f 50 53 48 4f | 52 54 43 55 54 4d 45 4e |._POPSHO|RTCUTMEN|
|000022d0| 55 0d 00 0a 00 99 f4 00 | 00 f7 01 00 fe 03 00 55 |U.......|.......U|
|000022e0| 02 00 04 00 54 48 49 53 | 0e 00 44 45 41 43 54 49 |....THIS|..DEACTI|
|000022f0| 56 41 54 45 4d 45 4e 55 | 08 00 73 68 6f 77 6d 65 |VATEMENU|..showme|
|00002300| 6e 75 2c 00 00 00 00 00 | ff ff 0e 00 64 65 61 63 |nu,.....|....deac|
|00002310| 74 69 76 61 74 65 6d 65 | 6e 75 1c 03 00 00 00 00 |tivateme|nu......|
|00002320| ff ff 07 00 44 65 73 74 | 72 6f 79 3d 03 00 00 00 |....Dest|roy=....|
|00002330| 00 ff ff 31 00 b1 00 31 | 01 b1 00 81 00 42 02 71 |...1...1|.....B.q|
|00002340| 00 41 00 d1 00 31 01 11 | 01 71 00 41 00 81 01 51 |.A...1..|.q.A...Q|
|00002350| 00 81 00 55 01 71 01 81 | 02 51 01 41 00 d1 02 81 |...U.q..|.Q.A....|
|00002360| 00 81 00 01 01 71 00 41 | 00 d1 00 31 01 d1 02 f1 |.....q.A|...1....|
|00002370| 00 41 00 f1 00 f1 01 41 | 00 81 00 f1 01 41 00 f1 |.A.....A|.....A..|
|00002380| 00 71 00 41 00 21 01 33 | 00 81 00 33 00 a1 00 32 |.q.A.!.3|...3...2|
|00002390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023a0| 00 01 00 00 00 14 00 00 | 00 dc 04 00 00 01 00 00 |........|........|
|000023b0| 00 2b 00 00 00 01 05 00 | 00 23 05 00 00 32 00 00 |.+......|.#...2..|
|000023c0| 00 2d 00 00 00 41 05 00 | 00 56 05 00 00 36 00 00 |.-...A..|.V...6..|
|000023d0| 00 00 29 00 00 00 66 04 | 00 00 00 00 00 00 00 00 |..)...f.|........|
|000023e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|000023f0| 05 61 50 52 4f 43 45 44 | 55 52 45 20 73 68 6f 77 |.aPROCED|URE show|
|00002400| 6d 65 6e 75 0d 0a 4c 50 | 41 52 41 4d 45 54 45 52 |menu..LP|ARAMETER|
|00002410| 53 20 74 61 4d 65 6e 75 | 2c 74 63 4f 6e 53 65 6c |S taMenu|,tcOnSel|
|00002420| 65 63 74 69 6f 6e 0d 0a | 4c 4f 43 41 4c 20 6c 63 |ection..|LOCAL lc|
|00002430| 4f 6e 53 65 6c 65 63 74 | 69 6f 6e 2c 6c 6e 4d 65 |OnSelect|ion,lnMe|
|00002440| 6e 75 43 6f 75 6e 74 2c | 6c 6e 43 6f 75 6e 74 2c |nuCount,|lnCount,|
|00002450| 6c 6c 44 6f 75 62 6c 65 | 41 72 72 61 79 0d 0a 4c |llDouble|Array..L|
|00002460| 4f 43 41 4c 20 6c 63 4d | 65 6e 75 49 74 65 6d 2c |OCAL lcM|enuItem,|
|00002470| 6c 63 4d 65 6e 75 53 65 | 6c 65 63 74 69 6f 6e 0d |lcMenuSe|lection.|
|00002480| 0a 45 58 54 45 52 4e 41 | 4c 20 41 52 52 41 59 20 |.EXTERNA|L ARRAY |
|00002490| 74 61 4d 65 6e 75 0d 0a | 0d 0a 49 46 20 50 41 52 |taMenu..|..IF PAR|
|000024a0| 41 4d 45 54 45 52 53 28 | 29 3d 30 20 4f 52 20 54 |AMETERS(|)=0 OR T|
|000024b0| 59 50 45 28 22 74 61 4d | 65 6e 75 22 29 23 22 43 |YPE("taM|enu")#"C|
|000024c0| 22 0d 0a 09 52 45 54 55 | 52 4e 20 2e 46 2e 0d 0a |"...RETU|RN .F...|
|000024d0| 45 4e 44 49 46 0d 0a 6c | 6e 4d 65 6e 75 43 6f 75 |ENDIF..l|nMenuCou|
|000024e0| 6e 74 3d 30 0d 0a 6c 6e | 4d 65 6e 75 43 6f 75 6e |nt=0..ln|MenuCoun|
|000024f0| 74 3d 41 4c 45 4e 28 74 | 61 4d 65 6e 75 2c 31 29 |t=ALEN(t|aMenu,1)|
|00002500| 0d 0a 49 46 20 6c 6e 4d | 65 6e 75 43 6f 75 6e 74 |..IF lnM|enuCount|
|00002510| 3d 30 0d 0a 09 52 45 54 | 55 52 4e 20 2e 46 2e 0d |=0...RET|URN .F..|
|00002520| 0a 45 4e 44 49 46 0d 0a | 6c 6c 44 6f 75 62 6c 65 |.ENDIF..|llDouble|
|00002530| 41 72 72 61 79 3d 28 41 | 4c 45 4e 28 74 61 4d 65 |Array=(A|LEN(taMe|
|00002540| 6e 75 2c 32 29 3e 30 29 | 0d 0a 41 43 54 49 56 41 |nu,2)>0)|..ACTIVA|
|00002550| 54 45 20 53 43 52 45 45 | 4e 0d 0a 44 45 41 43 54 |TE SCREE|N..DEACT|
|00002560| 49 56 41 54 45 20 50 4f | 50 55 50 20 5f 70 6f 70 |IVATE PO|PUP _pop|
|00002570| 53 68 6f 72 74 63 75 74 | 4d 65 6e 75 0d 0a 44 45 |Shortcut|Menu..DE|
|00002580| 46 49 4e 45 20 50 4f 50 | 55 50 20 5f 70 6f 70 53 |FINE POP|UP _popS|
|00002590| 68 6f 72 74 63 75 74 4d | 65 6e 75 20 3b 0d 0a 09 |hortcutM|enu ;...|
|000025a0| 09 46 52 4f 4d 20 4d 52 | 4f 57 28 29 2c 4d 43 4f |.FROM MR|OW(),MCO|
|000025b0| 4c 28 29 20 3b 0d 0a 09 | 09 4d 41 52 47 49 4e 20 |L() ;...|.MARGIN |
|000025c0| 3b 0d 0a 09 09 52 45 4c | 41 54 49 56 45 20 3b 0d |;....REL|ATIVE ;.|
|000025d0| 0a 09 09 53 48 4f 52 54 | 43 55 54 0d 0a 46 4f 52 |...SHORT|CUT..FOR|
|000025e0| 20 6c 6e 43 6f 75 6e 74 | 20 3d 20 31 20 54 4f 20 | lnCount| = 1 TO |
|000025f0| 6c 6e 4d 65 6e 75 43 6f | 75 6e 74 0d 0a 09 6c 63 |lnMenuCo|unt...lc|
|00002600| 4d 65 6e 75 49 74 65 6d | 3d 49 49 46 28 6c 6c 44 |MenuItem|=IIF(llD|
|00002610| 6f 75 62 6c 65 41 72 72 | 61 79 2c 74 61 4d 65 6e |oubleArr|ay,taMen|
|00002620| 75 5b 6c 6e 43 6f 75 6e | 74 2c 31 5d 2c 74 61 4d |u[lnCoun|t,1],taM|
|00002630| 65 6e 75 5b 6c 6e 43 6f | 75 6e 74 5d 29 0d 0a 09 |enu[lnCo|unt])...|
|00002640| 44 45 46 49 4e 45 20 42 | 41 52 20 6c 6e 43 6f 75 |DEFINE B|AR lnCou|
|00002650| 6e 74 20 4f 46 20 5f 70 | 6f 70 53 68 6f 72 74 63 |nt OF _p|opShortc|
|00002660| 75 74 4d 65 6e 75 20 50 | 52 4f 4d 50 54 20 28 6c |utMenu P|ROMPT (l|
|00002670| 63 4d 65 6e 75 49 74 65 | 6d 29 0d 0a 45 4e 44 46 |cMenuIte|m)..ENDF|
|00002680| 4f 52 0d 0a 4f 4e 20 53 | 45 4c 45 43 54 49 4f 4e |OR..ON S|ELECTION|
|00002690| 20 50 4f 50 55 50 20 5f | 70 6f 70 53 68 6f 72 74 | POPUP _|popShort|
|000026a0| 63 75 74 4d 65 6e 75 20 | 44 45 41 43 54 49 56 41 |cutMenu |DEACTIVA|
|000026b0| 54 45 20 50 4f 50 55 50 | 20 5f 70 6f 70 53 68 6f |TE POPUP| _popSho|
|000026c0| 72 74 63 75 74 4d 65 6e | 75 0d 0a 41 43 54 49 56 |rtcutMen|u..ACTIV|
|000026d0| 41 54 45 20 50 4f 50 55 | 50 20 5f 70 6f 70 53 68 |ATE POPU|P _popSh|
|000026e0| 6f 72 74 63 75 74 4d 65 | 6e 75 0d 0a 52 45 4c 45 |ortcutMe|nu..RELE|
|000026f0| 41 53 45 20 50 4f 50 55 | 50 20 5f 70 6f 70 53 68 |ASE POPU|P _popSh|
|00002700| 6f 72 74 63 75 74 4d 65 | 6e 75 0d 0a 49 46 20 42 |ortcutMe|nu..IF B|
|00002710| 41 52 28 29 3d 30 0d 0a | 09 52 45 54 55 52 4e 20 |AR()=0..|.RETURN |
|00002720| 2e 46 2e 0d 0a 45 4e 44 | 49 46 0d 0a 49 46 20 6c |.F...END|IF..IF l|
|00002730| 6c 44 6f 75 62 6c 65 41 | 72 72 61 79 0d 0a 09 20 |lDoubleA|rray... |
|00002740| 6c 63 4d 65 6e 75 53 65 | 6c 65 63 74 69 6f 6e 3d |lcMenuSe|lection=|
|00002750| 74 61 4d 65 6e 75 5b 42 | 41 52 28 29 2c 32 5d 0d |taMenu[B|AR(),2].|
|00002760| 0a 09 20 49 46 20 4e 4f | 54 20 45 4d 50 54 59 28 |.. IF NO|T EMPTY(|
|00002770| 6c 63 4d 65 6e 75 53 65 | 6c 65 63 74 69 6f 6e 29 |lcMenuSe|lection)|
|00002780| 20 41 4e 44 20 54 59 50 | 45 28 22 6c 63 4d 65 6e | AND TYP|E("lcMen|
|00002790| 75 53 65 6c 65 63 74 69 | 6f 6e 22 29 3d 3d 22 43 |uSelecti|on")=="C|
|000027a0| 22 0d 0a 09 20 09 6c 63 | 4f 6e 53 65 6c 65 63 74 |"... .lc|OnSelect|
|000027b0| 69 6f 6e 3d 41 4c 4c 54 | 52 49 4d 28 6c 63 4d 65 |ion=ALLT|RIM(lcMe|
|000027c0| 6e 75 53 65 6c 65 63 74 | 69 6f 6e 29 0d 0a 09 20 |nuSelect|ion)... |
|000027d0| 45 4e 44 49 46 0d 0a 09 | 20 49 46 20 45 4d 50 54 |ENDIF...| IF EMPT|
|000027e0| 59 28 6c 63 4f 6e 53 65 | 6c 65 63 74 69 6f 6e 29 |Y(lcOnSe|lection)|
|000027f0| 0d 0a 09 09 6c 63 4f 6e | 53 65 6c 65 63 74 69 6f |....lcOn|Selectio|
|00002800| 6e 3d 41 4c 4c 54 52 49 | 4d 28 49 49 46 28 45 4d |n=ALLTRI|M(IIF(EM|
|00002810| 50 54 59 28 74 63 4f 6e | 53 65 6c 65 63 74 69 6f |PTY(tcOn|Selectio|
|00002820| 6e 29 2c 22 22 2c 74 63 | 4f 6e 53 65 6c 65 63 74 |n),"",tc|OnSelect|
|00002830| 69 6f 6e 29 29 0d 0a 09 | 20 45 4e 44 49 46 0d 0a |ion))...| ENDIF..|
|00002840| 45 4c 53 45 0d 0a 09 6c | 63 4f 6e 53 65 6c 65 63 |ELSE...l|cOnSelec|
|00002850| 74 69 6f 6e 3d 41 4c 4c | 54 52 49 4d 28 49 49 46 |tion=ALL|TRIM(IIF|
|00002860| 28 45 4d 50 54 59 28 74 | 63 4f 6e 53 65 6c 65 63 |(EMPTY(t|cOnSelec|
|00002870| 74 69 6f 6e 29 2c 22 22 | 2c 74 63 4f 6e 53 65 6c |tion),""|,tcOnSel|
|00002880| 65 63 74 69 6f 6e 29 29 | 0d 0a 45 4e 44 49 46 0d |ection))|..ENDIF.|
|00002890| 0a 49 46 20 45 4d 50 54 | 59 28 6c 63 4f 6e 53 65 |.IF EMPT|Y(lcOnSe|
|000028a0| 6c 65 63 74 69 6f 6e 29 | 0d 0a 09 52 45 54 55 52 |lection)|...RETUR|
|000028b0| 4e 20 2e 46 2e 0d 0a 45 | 4e 44 49 46 0d 0a 26 6c |N .F...E|NDIF..&l|
|000028c0| 63 4f 6e 53 65 6c 65 63 | 74 69 6f 6e 0d 0a 0d 0a |cOnSelec|tion....|
|000028d0| 45 4e 44 50 52 4f 43 0d | 0a 50 52 4f 43 45 44 55 |ENDPROC.|.PROCEDU|
|000028e0| 52 45 20 64 65 61 63 74 | 69 76 61 74 65 6d 65 6e |RE deact|ivatemen|
|000028f0| 75 0d 0a 44 45 41 43 54 | 49 56 41 54 45 20 4d 45 |u..DEACT|IVATE ME|
|00002900| 4e 55 20 5f 70 6f 70 53 | 68 6f 72 74 63 75 74 4d |NU _popS|hortcutM|
|00002910| 65 6e 75 0d 0a 0d 0a 45 | 4e 44 50 52 4f 43 0d 0a |enu....E|NDPROC..|
|00002920| 50 52 4f 43 45 44 55 52 | 45 20 44 65 73 74 72 6f |PROCEDUR|E Destro|
|00002930| 79 0d 0a 74 68 69 73 2e | 44 65 61 63 74 69 76 61 |y..this.|Deactiva|
|00002940| 74 65 4d 65 6e 75 0d 0a | 0d 0a 45 4e 44 50 52 4f |teMenu..|..ENDPRO|
|00002950| 43 0d 0a 00 00 00 01 00 | 00 00 4f 57 69 64 74 68 |C.......|..OWidth|
|00002960| 20 3d 20 35 30 0d 0a 48 | 65 69 67 68 74 20 3d 20 | = 50..H|eight = |
|00002970| 31 35 0d 0a 56 69 73 69 | 62 6c 65 20 3d 20 2e 46 |15..Visi|ble = .F|
|00002980| 2e 0d 0a 42 61 63 6b 43 | 6f 6c 6f 72 20 3d 20 30 |...BackC|olor = 0|
|00002990| 2c 30 2c 32 35 35 0d 0a | 4e 61 6d 65 20 3d 20 22 |,0,255..|Name = "|
|000029a0| 6d 65 6e 75 6c 69 62 22 | 0d 0a 00 00 00 01 00 00 |menulib"|........|
|000029b0| 00 09 63 6f 6e 74 61 69 | 6e 65 72 00 00 00 01 00 |..contai|ner.....|
|000029c0| 00 00 06 65 78 65 63 73 | 70 00 00 00 01 00 00 00 |...execs|p.......|
|000029d0| 56 63 63 75 72 73 6f 72 | 6e 61 6d 65 0d 0a 68 63 |Vccursor|name..hc|
|000029e0| 6f 6e 6e 65 63 74 68 61 | 6e 64 6c 65 0d 0a 63 73 |onnectha|ndle..cs|
|000029f0| 71 6c 0d 0a 63 73 70 6e | 61 6d 65 0d 0a 61 70 61 |ql..cspn|ame..apa|
|00002a00| 72 61 6d 73 0d 0a 73 65 | 74 73 71 6c 0d 0a 73 65 |rams..se|tsql..se|
|00002a10| 74 70 61 72 61 6d 73 0d | 0a 70 72 6f 63 65 73 73 |tparams.|.process|
|00002a20| 65 72 72 6f 72 0d 0a 00 | 00 00 01 00 00 00 06 50 |error...|.......P|
|00002a30| 69 78 65 6c 73 00 00 00 | 01 00 00 00 05 43 6c 61 |ixels...|.....Cla|
|00002a40| 73 73 00 00 00 01 00 00 | 00 01 31 00 00 00 01 00 |ss......|..1.....|
|00002a50| 00 00 06 63 75 73 74 6f | 6d 00 00 00 01 00 00 00 |...custo|m.......|
|00002a60| 06 65 78 65 63 73 70 00 | 00 00 01 00 00 00 76 63 |.execsp.|......vc|
|00002a70| 63 75 72 73 6f 72 6e 61 | 6d 65 0d 0a 68 63 6f 6e |cursorna|me..hcon|
|00002a80| 6e 65 63 74 68 61 6e 64 | 6c 65 0d 0a 63 73 71 6c |necthand|le..csql|
|00002a90| 0d 0a 63 73 70 6e 61 6d | 65 0d 0a 2a 64 6f 73 71 |..cspnam|e..*dosq|
|00002aa0| 6c 20 0d 0a 5e 61 70 61 | 72 61 6d 73 5b 31 2c 30 |l ..^apa|rams[1,0|
|00002ab0| 5d 20 0d 0a 2a 73 65 74 | 73 71 6c 20 0d 0a 2a 73 |] ..*set|sql ..*s|
|00002ac0| 65 74 70 61 72 61 6d 73 | 20 0d 0a 2a 70 72 6f 63 |etparams| ..*proc|
|00002ad0| 65 73 73 65 72 72 6f 72 | 20 0d 0a 2a 67 65 74 73 |esserror| ..*gets|
|00002ae0| 71 6c 20 0d 0a 00 00 00 | 01 00 00 04 ff fe f2 ff |ql .....|........|
|00002af0| 1f 02 01 00 00 00 e6 04 | 00 00 e6 04 00 00 00 00 |........|........|
|00002b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b10| 00 00 00 00 09 9b 06 00 | 00 00 25 00 00 00 8d 03 |........|..%.....|
|00002b20| 00 00 00 00 00 00 4d 04 | 00 00 2d 00 00 00 f3 03 |......M.|..-.....|
|00002b30| 00 00 00 00 00 00 00 00 | 00 00 fc 03 00 03 00 55 |........|.......U|
|00002b40| 00 00 48 00 07 00 ae f7 | 00 00 fe 1f 00 54 f7 00 |..H.....|.....T..|
|00002b50| 00 10 fc 43 f4 01 00 f7 | 02 00 f4 01 00 f7 03 00 |...C....|........|
|00002b60| f4 01 00 f7 04 00 ea 69 | fd fe 11 00 25 fc f7 00 |.......i|....%...|
|00002b70| 00 f8 01 00 0d fd f9 05 | 41 00 fe 0a 00 99 f4 01 |........|A.......|
|00002b80| 00 f7 05 00 fe 04 00 1e | fe 03 00 55 06 00 06 00 |........|...U....|
|00002b90| 4e 45 52 52 4f 52 04 00 | 54 48 49 53 0e 00 48 43 |NERROR..|THIS..HC|
|00002ba0| 4f 4e 4e 45 43 54 48 41 | 4e 44 4c 45 04 00 43 53 |ONNECTHA|NDLE..CS|
|00002bb0| 51 4c 0b 00 43 43 55 52 | 53 4f 52 4e 41 4d 45 0c |QL..CCUR|SORNAME.|
|00002bc0| 00 50 52 4f 43 45 53 53 | 45 52 52 4f 52 1f 00 1c |.PROCESS|ERROR...|
|00002bd0| 00 54 f4 00 00 f7 01 00 | 10 fc d9 05 00 65 78 65 |.T......|.....exe|
|00002be0| 63 20 f4 00 00 f7 02 00 | 06 fd fe 03 00 55 03 00 |c ......|.....U..|
|00002bf0| 04 00 54 48 49 53 04 00 | 43 53 51 4c 07 00 43 53 |..THIS..|CSQL..CS|
|00002c00| 50 4e 41 4d 45 80 00 07 | 00 ae f7 00 00 fe 1c 00 |PNAME...|........|
|00002c10| 84 f7 00 00 10 fc f8 01 | 01 fd 28 fc 43 f4 01 00 |........|..(.C...|
|00002c20| e0 02 00 cd fd f9 05 79 | 00 fe 24 00 54 f4 01 00 |.......y|..$.T...|
|00002c30| f7 03 00 10 fc f4 01 00 | f7 03 00 fb 01 00 20 06 |........|...... .|
|00002c40| 43 00 f7 00 00 f4 01 00 | f6 02 00 06 fd fe 16 00 |C.......|........|
|00002c50| 25 fc f7 00 00 43 f4 01 | 00 e0 02 00 cd 0f fd f9 |%....C..|........|
|00002c60| 05 75 00 fe 18 00 54 f4 | 01 00 f7 03 00 10 fc f4 |.u....T.|........|
|00002c70| 01 00 f7 03 00 fb 01 00 | 2c 06 fd fe 04 00 1e fe |........|,.......|
|00002c80| 04 00 85 fe 03 00 55 04 | 00 0b 00 4e 41 52 52 41 |......U.|...NARRA|
|00002c90| 59 43 4f 55 4e 54 04 00 | 54 48 49 53 07 00 41 50 |YCOUNT..|THIS..AP|
|00002ca0| 41 52 41 4d 53 04 00 43 | 53 51 4c 45 00 07 00 ae |ARAMS..C|SQLE....|
|00002cb0| f7 00 00 fe 0d 00 15 f6 | 01 00 fc f8 01 05 fd 16 |........|........|
|00002cc0| fe 0e 00 86 fc 43 ea 19 | f7 01 00 ea 7a fd fe 14 |.....C..|....z...|
|00002cd0| 00 54 f7 00 00 10 fc 43 | f8 01 01 f8 01 02 f6 01 |.T.....C|........|
|00002ce0| 00 fd fe 0c 00 86 fc 43 | f7 00 00 ea 78 fd fe 03 |.......C|....x...|
|00002cf0| 00 55 02 00 0c 00 43 4d | 45 53 53 41 47 45 54 45 |.U....CM|ESSAGETE|
|00002d00| 58 54 09 00 41 53 51 4c | 45 52 52 4f 52 0f 00 0c |XT..ASQL|ERROR...|
|00002d10| 00 42 fc f4 00 00 f7 01 | 00 fd fe 03 00 55 02 00 |.B......|.....U..|
|00002d20| 04 00 54 48 49 53 04 00 | 43 53 51 4c 2b 01 13 00 |..THIS..|CSQL+...|
|00002d30| 34 f7 00 00 07 f7 01 00 | 07 f7 02 00 07 f7 03 00 |4.......|........|
|00002d40| fe 10 00 25 fc 43 c4 f8 | 01 03 0d fd f9 05 68 00 |...%.C..|......h.|
|00002d50| fe 3e 00 99 fc 43 d9 32 | 00 59 6f 75 20 6d 75 73 |.>...C.2|.You mus|
|00002d60| 74 20 70 61 73 73 20 61 | 74 20 6c 65 61 73 74 20 |t pass a|t least |
|00002d70| 33 20 70 61 72 61 6d 65 | 74 65 72 73 20 74 6f 20 |3 parame|ters to |
|00002d80| 74 68 69 73 20 63 6c 61 | 73 73 2e ea 78 fd fe 07 |this cla|ss..x...|
|00002d90| 00 42 fc 2d fd fe 04 00 | 1e fe 10 00 15 f4 04 00 |.B.-....|........|
|00002da0| f6 02 00 fc f8 01 01 fd | 16 fe 13 00 99 fc 43 eb |........|......C.|
|00002db0| f7 02 00 f4 04 00 e0 02 | 00 ea 0d fd fe 10 00 25 |........|.......%|
|00002dc0| fc 43 f7 00 00 a1 0a fd | f9 05 b1 00 fe 12 00 54 |.C......|.......T|
|00002dd0| f4 04 00 f7 00 00 10 fc | f5 0d f7 00 00 fd fe 04 |........|........|
|00002de0| 00 1e fe 12 00 54 f4 04 | 00 f7 01 00 10 fc f5 0d |.....T..|........|
|00002df0| f7 01 00 fd fe 10 00 25 | fc 43 c4 f8 01 03 10 fd |.......%|.C......|
|00002e00| f9 05 f0 00 fe 19 00 54 | f4 04 00 f7 03 00 10 fc |.......T|........|
|00002e10| fb 09 00 73 71 6c 72 65 | 73 75 6c 74 fd fe 08 00 |...sqlre|sult....|
|00002e20| 1b f9 05 0a 01 fe 12 00 | 54 f4 04 00 f7 03 00 10 |........|T.......|
|00002e30| fc f5 0d f7 03 00 fd fe | 04 00 1e fe 0d 00 99 fc |........|........|
|00002e40| 43 f4 04 00 f6 05 00 fd | fe 0d 00 99 fc 43 f4 04 |C.......|.....C..|
|00002e50| 00 f6 06 00 fd fe 03 00 | 55 07 00 07 00 43 53 50 |........|U....CSP|
|00002e60| 4e 41 4d 45 0e 00 48 43 | 4f 4e 4e 45 43 54 48 41 |NAME..HC|ONNECTHA|
|00002e70| 4e 44 4c 45 07 00 41 50 | 41 52 41 4d 53 0b 00 43 |NDLE..AP|ARAMS..C|
|00002e80| 43 55 52 53 4f 52 4e 41 | 4d 45 04 00 54 48 49 53 |CURSORNA|ME..THIS|
|00002e90| 06 00 53 45 54 53 51 4c | 09 00 53 45 54 50 41 52 |..SETSQL|..SETPAR|
|00002ea0| 41 4d 53 05 00 64 6f 73 | 71 6c 2c 00 00 00 00 00 |AMS..dos|ql,.....|
|00002eb0| ff ff 06 00 73 65 74 73 | 71 6c b7 00 00 00 00 00 |....sets|ql......|
|00002ec0| ff ff 09 00 73 65 74 70 | 61 72 61 6d 73 ef 00 00 |....setp|arams...|
|00002ed0| 00 00 00 ff ff 0c 00 70 | 72 6f 63 65 73 73 65 72 |.......p|rocesser|
|00002ee0| 72 6f 72 95 01 00 00 00 | 00 ff ff 06 00 67 65 74 |ror.....|.....get|
|00002ef0| 73 71 6c f7 01 00 00 00 | 00 ff ff 04 00 49 6e 69 |sql.....|.....Ini|
|00002f00| 74 16 02 00 00 00 00 ff | ff 31 00 71 00 f2 01 11 |t.......|.1.q....|
|00002f10| 01 a1 00 41 00 33 00 c1 | 01 32 00 71 00 c1 01 41 |...A.3..|.2.q...A|
|00002f20| 02 61 01 81 01 41 00 41 | 00 33 00 71 00 d1 00 e2 |.a...A.A|.3.q....|
|00002f30| 00 41 01 c1 00 33 00 c1 | 00 32 00 10 01 31 01 02 |.A...3..|.2...1..|
|00002f40| 01 e1 03 71 00 41 00 02 | 01 31 01 02 01 21 01 41 |...q.A..|.1...!.A|
|00002f50| 00 22 01 02 01 91 01 81 | 00 21 01 41 00 d2 00 d1 |."......|.!.A....|
|00002f60| 00 32 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.2......|........|
|00002f70| 00 00 00 01 00 00 00 11 | 00 00 00 90 00 00 00 01 |........|........|
|00002f80| 00 00 00 07 00 00 00 ad | 00 00 00 cf 00 00 00 0a |........|........|
|00002f90| 00 00 00 09 00 00 00 ef | 00 00 00 bf 01 00 00 0d |........|........|
|00002fa0| 00 00 00 11 00 00 00 e2 | 01 00 00 60 02 00 00 17 |........|...`....|
|00002fb0| 00 00 00 17 00 00 00 7d | 02 00 00 8d 02 00 00 20 |.......}|....... |
|00002fc0| 00 00 00 19 00 00 00 a8 | 02 00 00 0f 07 00 00 23 |........|.......#|
|00002fd0| 00 00 00 00 29 00 00 00 | e6 04 00 00 00 00 00 00 |....)...|........|
|00002fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00002ff0| 00 00 07 1a 50 52 4f 43 | 45 44 55 52 45 20 64 6f |....PROC|EDURE do|
|00003000| 73 71 6c 0d 0a 4c 4f 43 | 41 4c 20 6e 45 72 72 6f |sql..LOC|AL nErro|
|00003010| 72 0d 0a 0d 0a 6e 45 72 | 72 6f 72 20 3d 20 53 51 |r....nEr|ror = SQ|
|00003020| 4c 45 58 45 43 20 28 74 | 68 69 73 2e 68 43 6f 6e |LEXEC (t|his.hCon|
|00003030| 6e 65 63 74 48 61 6e 64 | 6c 65 2c 20 74 68 69 73 |nectHand|le, this|
|00003040| 2e 63 53 51 4c 2c 20 74 | 68 69 73 2e 63 43 75 72 |.cSQL, t|his.cCur|
|00003050| 73 6f 72 4e 61 6d 65 29 | 0d 0a 49 46 20 6e 45 72 |sorName)|..IF nEr|
|00003060| 72 6f 72 20 3c 20 30 0d | 0a 09 74 68 69 73 2e 50 |ror < 0.|..this.P|
|00003070| 72 6f 63 65 73 73 45 72 | 72 6f 72 0d 0a 45 4e 44 |rocessEr|ror..END|
|00003080| 49 46 0d 0a 0d 0a 45 4e | 44 50 52 4f 43 0d 0a 50 |IF....EN|DPROC..P|
|00003090| 52 4f 43 45 44 55 52 45 | 20 73 65 74 73 71 6c 0d |ROCEDURE| setsql.|
|000030a0| 0a 74 68 69 73 2e 63 53 | 51 4c 20 3d 20 22 65 78 |.this.cS|QL = "ex|
|000030b0| 65 63 20 22 20 2b 20 74 | 68 69 73 2e 63 53 50 4e |ec " + t|his.cSPN|
|000030c0| 61 6d 65 0d 0a 45 4e 44 | 50 52 4f 43 0d 0a 50 52 |ame..END|PROC..PR|
|000030d0| 4f 43 45 44 55 52 45 20 | 73 65 74 70 61 72 61 6d |OCEDURE |setparam|
|000030e0| 73 0d 0a 4c 4f 43 41 4c | 20 6e 41 72 72 61 79 43 |s..LOCAL| nArrayC|
|000030f0| 6f 75 6e 74 0d 0a 46 4f | 52 20 6e 41 72 72 61 79 |ount..FO|R nArray|
|00003100| 43 6f 75 6e 74 20 3d 20 | 31 20 54 4f 20 41 4c 45 |Count = |1 TO ALE|
|00003110| 4e 20 28 74 68 69 73 2e | 61 50 61 72 61 6d 73 29 |N (this.|aParams)|
|00003120| 0d 0a 09 74 68 69 73 2e | 63 53 51 4c 20 3d 20 74 |...this.|cSQL = t|
|00003130| 68 69 73 2e 63 53 51 4c | 20 2b 20 27 20 27 20 2b |his.cSQL| + ' ' +|
|00003140| 20 74 68 69 73 2e 61 50 | 61 72 61 6d 73 5b 6e 41 | this.aP|arams[nA|
|00003150| 72 72 61 79 43 6f 75 6e | 74 5d 0d 0a 09 49 46 20 |rrayCoun|t]...IF |
|00003160| 6e 41 72 72 61 79 43 6f | 75 6e 74 20 3c 3e 20 41 |nArrayCo|unt <> A|
|00003170| 4c 45 4e 20 28 74 68 69 | 73 2e 61 50 61 72 61 6d |LEN (thi|s.aParam|
|00003180| 73 29 0d 0a 09 09 74 68 | 69 73 2e 63 53 51 4c 20 |s)....th|is.cSQL |
|00003190| 3d 20 74 68 69 73 2e 63 | 53 51 4c 20 2b 20 27 2c |= this.c|SQL + ',|
|000031a0| 27 0d 0a 09 45 4e 44 49 | 46 0d 0a 45 4e 44 46 4f |'...ENDI|F..ENDFO|
|000031b0| 52 0d 0a 0d 0a 45 4e 44 | 50 52 4f 43 0d 0a 50 52 |R....END|PROC..PR|
|000031c0| 4f 43 45 44 55 52 45 20 | 70 72 6f 63 65 73 73 65 |OCEDURE |processe|
|000031d0| 72 72 6f 72 0d 0a 4c 4f | 43 41 4c 20 63 4d 65 73 |rror..LO|CAL cMes|
|000031e0| 73 61 67 65 54 65 78 74 | 0d 0a 44 49 4d 45 4e 53 |sageText|..DIMENS|
|000031f0| 49 4f 4e 20 61 53 51 4c | 45 72 72 6f 72 5b 35 5d |ION aSQL|Error[5]|
|00003200| 0d 0a 0d 0a 3d 41 45 52 | 52 4f 52 20 28 61 53 51 |....=AER|ROR (aSQ|
|00003210| 4c 45 72 72 6f 72 29 0d | 0a 63 4d 65 73 73 61 67 |LError).|.cMessag|
|00003220| 65 54 65 78 74 20 3d 20 | 61 53 51 4c 45 72 72 6f |eText = |aSQLErro|
|00003230| 72 5b 31 2c 32 5d 0d 0a | 3d 4d 45 53 53 41 47 45 |r[1,2]..|=MESSAGE|
|00003240| 42 4f 58 20 28 63 4d 65 | 73 73 61 67 65 54 65 78 |BOX (cMe|ssageTex|
|00003250| 74 29 0d 0a 0d 0a 45 4e | 44 50 52 4f 43 0d 0a 50 |t)....EN|DPROC..P|
|00003260| 52 4f 43 45 44 55 52 45 | 20 67 65 74 73 71 6c 0d |ROCEDURE| getsql.|
|00003270| 0a 52 45 54 55 52 4e 20 | 74 68 69 73 2e 63 53 51 |.RETURN |this.cSQ|
|00003280| 4c 0d 0a 45 4e 44 50 52 | 4f 43 0d 0a 50 52 4f 43 |L..ENDPR|OC..PROC|
|00003290| 45 44 55 52 45 20 49 6e | 69 74 0d 0a 2a 54 68 69 |EDURE In|it..*Thi|
|000032a0| 73 20 73 61 6d 70 6c 65 | 20 63 6c 61 73 73 20 6c |s sample| class l|
|000032b0| 69 62 72 61 72 79 20 69 | 73 20 75 73 65 64 20 66 |ibrary i|s used f|
|000032c0| 6f 72 20 53 51 4c 20 50 | 61 73 73 20 54 68 72 75 |or SQL P|ass Thru|
|000032d0| 20 61 6e 64 20 63 61 6e | 20 61 6c 6c 6f 77 20 79 | and can| allow y|
|000032e0| 6f 75 20 74 6f 20 65 78 | 65 63 75 74 65 20 73 74 |ou to ex|ecute st|
|000032f0| 6f 72 65 64 20 70 72 6f | 63 65 64 75 72 65 73 0d |ored pro|cedures.|
|00003300| 0a 2a 20 6f 6e 20 79 6f | 75 72 20 68 6f 73 74 20 |.* on yo|ur host |
|00003310| 64 61 74 61 62 61 73 65 | 2e 20 46 6f 72 20 65 78 |database|. For ex|
|00003320| 61 6d 70 6c 65 2c 20 74 | 68 65 20 73 61 6d 70 6c |ample, t|he sampl|
|00003330| 65 20 62 65 6c 6f 77 73 | 20 73 68 6f 77 73 20 68 |e belows| shows h|
|00003340| 6f 77 20 79 6f 75 20 6d | 69 67 68 74 20 77 61 6e |ow you m|ight wan|
|00003350| 74 20 74 6f 20 63 61 6c | 6c 65 64 20 61 20 73 74 |t to cal|led a st|
|00003360| 6f 72 65 64 0d 0a 2a 20 | 70 72 6f 63 65 64 75 72 |ored..* |procedur|
|00003370| 65 20 63 61 6c 6c 65 64 | 20 22 55 70 64 61 74 65 |e called| "Update|
|00003380| 41 75 74 68 6f 72 4e 61 | 6d 65 22 20 6f 6e 20 74 |AuthorNa|me" on t|
|00003390| 68 65 20 64 61 74 61 62 | 61 73 65 20 22 70 75 62 |he datab|ase "pub|
|000033a0| 73 22 2e 20 54 68 65 20 | 72 65 73 75 6c 74 20 73 |s". The |result s|
|000033b0| 65 74 20 69 73 20 72 65 | 74 75 72 6e 65 64 20 74 |et is re|turned t|
|000033c0| 6f 20 61 20 63 75 72 73 | 6f 72 2e 0d 0a 0d 0a 2a |o a curs|or.....*|
|000033d0| 09 53 61 6d 70 6c 65 20 | 63 6f 64 65 0d 0a 2a 21 |.Sample |code..*!|
|000033e0| 2a 09 73 71 6c 64 69 73 | 63 6f 6e 6e 28 30 29 0d |*.sqldis|conn(0).|
|000033f0| 0a 2a 21 2a 09 44 49 4d | 45 20 61 50 61 72 61 6d |.*!*.DIM|E aParam|
|00003400| 73 5b 33 5d 0d 0a 2a 21 | 2a 09 61 50 61 72 61 6d |s[3]..*!|*.aParam|
|00003410| 73 5b 31 5d 20 3d 20 22 | 27 31 37 32 2d 33 32 2d |s[1] = "|'172-32-|
|00003420| 31 31 37 36 27 22 0d 0a | 2a 21 2a 09 61 50 61 72 |1176'"..|*!*.aPar|
|00003430| 61 6d 73 5b 32 5d 20 3d | 20 22 27 53 27 22 0d 0a |ams[2] =| "'S'"..|
|00003440| 2a 21 2a 09 61 50 61 72 | 61 6d 73 5b 33 5d 20 3d |*!*.aPar|ams[3] =|
|00003450| 20 22 27 45 27 22 0d 0a | 2a 21 2a 09 68 43 6f 6e | "'E'"..|*!*.hCon|
|00003460| 6e 65 63 74 20 3d 20 53 | 51 4c 43 4f 4e 4e 45 43 |nect = S|QLCONNEC|
|00003470| 54 20 28 27 70 75 62 73 | 27 2c 27 73 61 27 2c 27 |T ('pubs|','sa','|
|00003480| 27 29 0d 0a 2a 21 2a 09 | 73 65 74 20 63 6c 61 73 |')..*!*.|set clas|
|00003490| 73 6c 69 62 20 74 6f 20 | 48 4f 4d 45 28 29 2b 22 |slib to |HOME()+"|
|000034a0| 63 6c 61 73 73 65 73 5c | 75 74 69 6c 69 74 79 2e |classes\|utility.|
|000034b0| 76 63 78 22 0d 0a 2a 21 | 2a 09 78 3d 63 72 65 61 |vcx"..*!|*.x=crea|
|000034c0| 74 65 6f 62 6a 28 27 45 | 78 65 63 53 50 27 2c 20 |teobj('E|xecSP', |
|000034d0| 27 55 70 64 61 74 65 41 | 75 74 68 6f 72 4e 61 6d |'UpdateA|uthorNam|
|000034e0| 65 27 2c 20 68 43 6f 6e | 6e 65 63 74 2c 20 40 61 |e', hCon|nect, @a|
|000034f0| 50 61 72 61 6d 73 29 0d | 0a 2a 21 2a 09 78 2e 64 |Params).|.*!*.x.d|
|00003500| 6f 73 71 6c 28 29 0d 0a | 0d 0a 23 44 45 46 49 4e |osql()..|..#DEFIN|
|00003510| 45 20 42 41 44 50 41 52 | 4d 53 5f 4c 4f 43 09 22 |E BADPAR|MS_LOC."|
|00003520| 59 6f 75 20 6d 75 73 74 | 20 70 61 73 73 20 61 74 |You must| pass at|
|00003530| 20 6c 65 61 73 74 20 33 | 20 70 61 72 61 6d 65 74 | least 3| paramet|
|00003540| 65 72 73 20 74 6f 20 74 | 68 69 73 20 63 6c 61 73 |ers to t|his clas|
|00003550| 73 2e 22 0d 0a 0d 0a 50 | 41 52 41 4d 45 54 45 52 |s."....P|ARAMETER|
|00003560| 53 20 63 53 50 4e 61 6d | 65 2c 20 68 43 6f 6e 6e |S cSPNam|e, hConn|
|00003570| 65 63 74 48 61 6e 64 6c | 65 2c 20 61 50 61 72 61 |ectHandl|e, aPara|
|00003580| 6d 73 2c 20 63 43 75 72 | 73 6f 72 4e 61 6d 65 0d |ms, cCur|sorName.|
|00003590| 0a 0d 0a 49 46 20 50 41 | 52 41 4d 45 54 45 52 53 |...IF PA|RAMETERS|
|000035a0| 28 29 20 3c 20 33 0d 0a | 09 4d 45 53 53 41 47 45 |() < 3..|.MESSAGE|
|000035b0| 42 4f 58 28 42 41 44 50 | 41 52 4d 53 5f 4c 4f 43 |BOX(BADP|ARMS_LOC|
|000035c0| 29 0d 0a 09 52 45 54 55 | 52 4e 20 2e 46 2e 0d 0a |)...RETU|RN .F...|
|000035d0| 45 4e 44 49 46 0d 0a 0d | 0a 44 49 4d 45 4e 53 49 |ENDIF...|.DIMENSI|
|000035e0| 4f 4e 20 74 68 69 73 2e | 61 50 61 72 61 6d 73 5b |ON this.|aParams[|
|000035f0| 31 5d 0d 0a 41 43 4f 50 | 59 28 61 50 61 72 61 6d |1]..ACOP|Y(aParam|
|00003600| 73 2c 74 68 69 73 2e 61 | 50 61 72 61 6d 73 29 0d |s,this.a|Params).|
|00003610| 0a 0d 0a 49 46 20 4e 4f | 54 20 45 4d 50 54 59 20 |...IF NO|T EMPTY |
|00003620| 28 63 53 50 4e 61 6d 65 | 29 0d 0a 09 74 68 69 73 |(cSPName|)...this|
|00003630| 2e 63 53 50 4e 61 6d 65 | 20 3d 20 6d 2e 63 53 50 |.cSPName| = m.cSP|
|00003640| 4e 61 6d 65 0d 0a 45 4e | 44 49 46 0d 0a 0d 0a 74 |Name..EN|DIF....t|
|00003650| 68 69 73 2e 68 43 6f 6e | 6e 65 63 74 48 61 6e 64 |his.hCon|nectHand|
|00003660| 6c 65 20 3d 20 6d 2e 68 | 43 6f 6e 6e 65 63 74 48 |le = m.h|ConnectH|
|00003670| 61 6e 64 6c 65 0d 0a 0d | 0a 49 46 20 50 41 52 41 |andle...|.IF PARA|
|00003680| 4d 45 54 45 52 53 20 28 | 29 20 3d 20 33 0d 0a 09 |METERS (|) = 3...|
|00003690| 74 68 69 73 2e 63 43 75 | 72 73 6f 72 4e 61 6d 65 |this.cCu|rsorName|
|000036a0| 20 3d 20 27 73 71 6c 72 | 65 73 75 6c 74 27 0d 0a | = 'sqlr|esult'..|
|000036b0| 45 4c 53 45 0d 0a 09 74 | 68 69 73 2e 63 43 75 72 |ELSE...t|his.cCur|
|000036c0| 73 6f 72 4e 61 6d 65 20 | 3d 20 6d 2e 63 43 75 72 |sorName |= m.cCur|
|000036d0| 73 6f 72 4e 61 6d 65 0d | 0a 45 4e 44 49 46 0d 0a |sorName.|.ENDIF..|
|000036e0| 0d 0a 74 68 69 73 2e 53 | 65 74 53 51 4c 28 29 0d |..this.S|etSQL().|
|000036f0| 0a 74 68 69 73 2e 53 65 | 74 50 61 72 61 6d 73 28 |.this.Se|tParams(|
|00003700| 29 0d 0a 0d 0a 45 4e 44 | 50 52 4f 43 0d 0a 00 00 |)....END|PROC....|
|00003710| 00 01 00 00 00 2a 48 65 | 69 67 68 74 20 3d 20 31 |.....*He|ight = 1|
|00003720| 39 0d 0a 57 69 64 74 68 | 20 3d 20 39 37 0d 0a 4e |9..Width| = 97..N|
|00003730| 61 6d 65 20 3d 20 22 65 | 78 65 63 73 70 22 0d 0a |ame = "e|xecsp"..|
|00003740| 00 00 00 01 00 00 00 06 | 63 75 73 74 6f 6d       |........|custom  |
+--------+-------------------------+-------------------------+--------+--------+