home *** CD-ROM | disk | FTP | other *** search
/ Computerworld 1996 April / Computerworld_1996-04_cd.bin / cw / programy / esbeekay / macros / gus.mac next >
Unknown  |  1996-09-15  |  1.2 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
66% dexvert MacPaint Image (image/macPaint) ext Supported
1% dexvert Installer VISE Package (archive/installerVISE) ext Unsupported
1% dexvert Scooter Macro (other/scooterMacro) ext Unsupported
1% dexvert Platinen Layout Programm Macro (other/platinenLayoutProgrammMacro) ext Unsupported
100% file data default
100% gt2 Kopftext: 'ESBKMACRO' default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 45 53 42 4b 4d 41 43 52 | 4f 00 01 00 49 6d 70 6f |ESBKMACR|O...Impo|
|00000010| 72 74 20 47 55 53 20 70 | 61 74 63 68 65 73 00 02 |rt GUS p|atches..|
|00000020| 50 41 06 00 00 00 00 00 | 03 00 00 00 00 00 00 00 |PA......|........|
|00000030| 80 00 00 00 00 00 00 00 | 50 41 06 00 05 00 00 00 |........|PA......|
|00000040| 70 00 00 00 ec f0 04 00 | a1 de f0 77 00 ec fd 7f |p.......|...w....|
|00000050| 00 00 00 40 03 00 00 00 | 1c f1 04 00 02 00 00 00 |...@....|........|
|00000060| 80 00 00 00 f6 b9 f0 77 | 70 00 00 00 00 f1 04 00 |.......w|p.......|
|00000070| f8 f0 04 00 08 00 00 00 | 04 00 00 00 03 00 00 00 |........|........|
|00000080| 07 00 00 00 99 ec 45 00 | a8 14 2b 00 38 f1 04 00 |......E.|..+.8...|
|00000090| 99 cd 45 00 45 00 00 00 | 00 00 00 00 02 00 00 00 |..E.E...|........|
|000000a0| 00 00 00 00 0c 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|000000b0| 03 00 00 00 00 00 00 40 | 00 00 00 00 24 01 00 00 |.......@|....$...|
|000000c0| 62 00 00 00 75 f5 45 00 | c0 e1 2b 00 01 83 00 00 |b...u.E.|..+.....|
|000000d0| 40 00 00 00 a4 01 00 00 | 78 f3 04 00 c0 e0 2b 00 |@.......|x.....+.|
|000000e0| 60 00 00 00 30 f7 48 00 | 99 ec 45 00 e0 14 2b 00 |`...0.H.|..E...+.|
|000000f0| 78 f3 04 00 4c bd 45 00 | 1d 00 00 00 c0 e0 2b 00 |x...L.E.|......+.|
|00000100| c0 e0 2b 00 63 bd 45 00 | c0 e1 2b 00 d3 00 15 00 |..+.c.E.|..+.....|
|00000110| 05 00 c6 02 00 00 00 00 | a3 00 04 00 2a 00 0c 00 |........|....*...|
|00000120| 69 6d 70 6f 72 74 00 00 | 00 49 6d 70 6f 72 74 20 |import..|.Import |
|00000130| 47 55 53 21 00 48 65 6c | 76 00 08 00 00 00 00 00 |GUS!.Hel|v.......|
|00000140| 00 00 00 00 0a 00 2b 00 | 04 00 2f 00 0c 00 53 42 |......+.|../...SB|
|00000150| 4b 4c 69 6e 6b 31 00 48 | 65 6c 76 00 08 00 00 00 |KLink1.H|elv.....|
|00000160| 00 00 00 00 00 00 04 00 | 5e 00 05 00 20 00 0a 00 |........|^... ...|
|00000170| 54 65 78 74 31 00 50 61 | 74 63 68 20 4e 62 72 3a |Text1.Pa|tch Nbr:|
|00000180| 00 48 65 6c 76 00 08 00 | 00 00 00 00 00 00 00 00 |.Helv...|........|
|00000190| 05 00 82 00 05 00 18 00 | 0a 00 56 61 6c 75 65 49 |........|..ValueI|
|000001a0| 6e 31 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |n1......|........|
|000001b0| c0 5f 40 48 65 6c 76 00 | 08 00 00 00 00 00 00 00 |._@Helv.|........|
|000001c0| 00 00 04 00 05 00 05 00 | 21 00 0a 00 54 65 78 74 |........|!...Text|
|000001d0| 32 00 49 6d 70 6f 72 74 | 20 54 6f 3a 00 48 65 6c |2.Import| To:.Hel|
|000001e0| 76 00 08 00 00 00 00 00 | 00 00 00 00 25 20 49 6d |v.......|....% Im|
|000001f0| 70 6f 72 74 20 6d 75 6c | 74 69 70 6c 65 20 47 55 |port mul|tiple GU|
|00000200| 53 20 70 61 74 63 68 65 | 73 0d 0a 0d 0a 69 6e 69 |S patche|s....ini|
|00000210| 74 28 29 0d 0a 7b 0d 0a | 20 20 77 69 6e 64 6f 77 |t()..{..| window|
|00000220| 4f 75 74 70 75 74 28 22 | 56 61 6c 75 65 49 6e 31 |Output("|ValueIn1|
|00000230| 22 2c 20 30 29 3b 0d 0a | 7d 0d 0a 0d 0a 69 6d 70 |", 0);..|}....imp|
|00000240| 6f 72 74 28 29 0d 0a 7b | 0d 0a 20 20 76 61 72 20 |ort()..{|.. var |
|00000250| 73 62 6b 2c 20 66 69 6c | 65 73 2c 20 66 6e 61 6d |sbk, fil|es, fnam|
|00000260| 65 2c 20 6f 66 66 2c 20 | 70 61 74 63 68 65 73 3b |e, off, |patches;|
|00000270| 0d 0a 0d 0a 20 20 73 62 | 6b 20 3a 3d 20 67 65 74 |.... sb|k := get|
|00000280| 53 42 4b 4c 69 6e 6b 28 | 22 53 42 4b 4c 69 6e 6b |SBKLink(|"SBKLink|
|00000290| 31 22 29 3b 0d 0a 20 20 | 69 66 20 28 21 76 61 6c |1");.. |if (!val|
|000002a0| 69 64 28 73 62 6b 29 29 | 0d 0a 20 20 7b 0d 0a 20 |id(sbk))|.. {.. |
|000002b0| 20 20 20 6d 65 73 73 61 | 67 65 28 22 53 65 6c 65 | messa|ge("Sele|
|000002c0| 63 74 20 61 6e 20 53 42 | 4b 20 74 6f 20 6c 69 6e |ct an SB|K to lin|
|000002d0| 6b 20 74 6f 22 29 3b 0d | 0a 20 20 20 20 72 65 74 |k to");.|. ret|
|000002e0| 75 72 6e 3b 0d 0a 20 20 | 7d 0d 0a 0d 0a 20 20 69 |urn;.. |}.... i|
|000002f0| 66 20 28 21 77 69 6e 64 | 6f 77 49 6e 70 75 74 56 |f (!wind|owInputV|
|00000300| 61 6c 69 64 61 74 65 28 | 22 56 61 6c 75 65 49 6e |alidate(|"ValueIn|
|00000310| 31 22 29 29 0d 0a 20 20 | 7b 0d 0a 20 20 20 20 6d |1")).. |{.. m|
|00000320| 65 73 73 61 67 65 28 22 | 50 61 74 63 68 20 6e 75 |essage("|Patch nu|
|00000330| 6d 62 65 72 20 69 6e 63 | 6f 72 72 65 63 74 22 29 |mber inc|orrect")|
|00000340| 3b 0d 0a 20 20 20 20 72 | 65 74 75 72 6e 3b 0d 0a |;.. r|eturn;..|
|00000350| 20 20 7d 0d 0a 20 20 6f | 66 66 20 3a 3d 20 77 69 | }.. o|ff := wi|
|00000360| 6e 64 6f 77 49 6e 70 75 | 74 28 22 56 61 6c 75 65 |ndowInpu|t("Value|
|00000370| 49 6e 31 22 29 3b 0d 0a | 0d 0a 20 20 66 69 6c 65 |In1");..|.. file|
|00000380| 73 20 3a 3d 20 66 69 6c | 65 50 72 6f 6d 70 74 28 |s := fil|ePrompt(|
|00000390| 7b 22 47 55 53 20 70 61 | 74 63 68 20 66 69 6c 65 |{"GUS pa|tch file|
|000003a0| 73 20 28 2a 2e 70 61 74 | 29 22 2c 0d 0a 20 20 22 |s (*.pat|)",.. "|
|000003b0| 41 6c 6c 20 46 69 6c 65 | 73 20 28 2a 2e 2a 29 22 |All File|s (*.*)"|
|000003c0| 7d 2c 20 7b 22 2a 2e 70 | 61 74 22 2c 20 22 2a 2e |}, {"*.p|at", "*.|
|000003d0| 2a 22 7d 2c 20 31 2c 20 | 31 2c 20 22 22 29 3b 0d |*"}, 1, |1, "");.|
|000003e0| 0a 20 20 69 66 20 28 21 | 76 61 6c 69 64 28 66 69 |. if (!|valid(fi|
|000003f0| 6c 65 73 29 29 20 72 65 | 74 75 72 6e 3b 0d 0a 20 |les)) re|turn;.. |
|00000400| 20 69 66 20 28 66 69 6c | 65 73 20 3d 20 7b 7d 29 | if (fil|es = {})|
|00000410| 20 72 65 74 75 72 6e 3b | 0d 0a 0d 0a 20 20 66 6f | return;|.... fo|
|00000420| 72 20 66 6e 61 6d 65 20 | 69 6e 20 66 69 6c 65 73 |r fname |in files|
|00000430| 20 64 6f 0d 0a 20 20 7b | 0d 0a 20 20 20 20 20 70 | do.. {|.. p|
|00000440| 61 74 63 68 65 73 20 3a | 3d 20 69 6d 70 6f 72 74 |atches :|= import|
|00000450| 47 55 53 28 73 62 6b 2c | 20 66 6e 61 6d 65 2c 20 |GUS(sbk,| fname, |
|00000460| 6f 66 66 2c 20 30 29 3b | 0d 0a 20 20 20 20 20 69 |off, 0);|.. i|
|00000470| 66 20 28 76 61 6c 69 64 | 28 70 61 74 63 68 65 73 |f (valid|(patches|
|00000480| 29 29 20 6f 66 66 20 3a | 3d 20 6f 66 66 20 2b 20 |)) off :|= off + |
|00000490| 6c 69 73 74 4c 65 6e 67 | 74 68 28 70 61 74 63 68 |listLeng|th(patch|
|000004a0| 65 73 29 3b 0d 0a 20 20 | 20 7d 0d 0a 7d 0d 0a 0d |es);.. | }..}...|
|000004b0| 0a 00 00 00 | |.... | |
+--------+-------------------------+-------------------------+--------+--------+