/ Computerworld 1996 April / Computerworld_1996-04_cd.bin / cw / programy / esbeekay / macros / reverse.mac

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 45 53 42 4b 4d 41 43 52 | 4f 00 01 00 52 65 76 65 |ESBKMACR|O...Reve|
|00000010| 72 73 65 20 61 20 73 61 | 6d 70 6c 65 00 00 2a 02 |rse a sa|mple..*.|
|00000020| e0 55 06 00 00 00 00 00 | 03 00 00 00 00 00 00 00 |.U......|........|
|00000030| 80 00 00 00 00 00 00 00 | e0 55 06 00 05 00 00 00 |........|.U......|
|00000040| 48 00 00 00 ec f0 04 00 | a1 de f0 77 00 ec fd 7f |H.......|...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 | 48 00 00 00 00 f1 04 00 |.......w|H.......|
|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 | a8 bc 2c 00 01 83 00 00 |b...u.E.|..,.....|
|000000d0| 40 00 00 00 a4 01 00 00 | 78 f3 04 00 a8 bb 2c 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 a8 bb 2c 00 |x...L.E.|......,.|
|00000100| a8 bb 2c 00 63 bd 45 00 | a8 bc 2c 00 8d 00 3c 00 |..,.c.E.|..,...<.|
|00000110| 06 00 64 04 00 00 00 00 | 60 00 2e 00 2a 00 0c 00 |..d.....|`...*...|
|00000120| 72 65 76 65 72 73 65 00 | 00 00 52 65 76 65 72 73 |reverse.|..Revers|
|00000130| 65 00 48 65 6c 76 00 08 | 00 00 00 00 00 00 00 00 |e.Helv..|........|
|00000140| 00 0a 00 2e 00 02 00 2f | 00 0c 00 53 42 4b 4c 69 |......./|...SBKLi|
|00000150| 6e 6b 31 00 48 65 6c 76 | 00 08 00 00 00 00 00 00 |nk1.Helv|........|
|00000160| 00 00 00 04 00 02 00 04 | 00 29 00 09 00 54 65 78 |........|.)...Tex|
|00000170| 74 31 00 53 61 6d 70 6c | 65 73 20 49 6e 3a 00 48 |t1.Sampl|es In:.H|
|00000180| 65 6c 76 00 08 00 00 00 | 00 00 00 00 00 00 08 00 |elv.....|........|
|00000190| 02 00 12 00 5b 00 27 00 | 73 61 6d 70 6c 69 73 74 |....[.'.|samplist|
|000001a0| 00 48 65 6c 76 00 08 00 | 00 00 00 00 00 00 00 00 |.Helv...|........|
|000001b0| 00 00 04 00 63 00 0c 00 | 25 00 0b 00 54 65 78 74 |....c...|%...Text|
|000001c0| 32 00 53 61 6d 70 6c 65 | 00 54 69 6d 65 73 20 4e |2.Sample|.Times N|
|000001d0| 65 77 20 52 6f 6d 61 6e | 00 0e 00 01 00 01 00 ff |ew Roman|........|
|000001e0| 00 00 00 04 00 63 00 19 | 00 25 00 0c 00 54 65 78 |.....c..|.%...Tex|
|000001f0| 74 33 00 52 65 76 65 72 | 73 65 00 54 69 6d 65 73 |t3.Rever|se.Times|
|00000200| 20 4e 65 77 20 52 6f 6d | 61 6e 00 0e 00 01 00 01 | New Rom|an......|
|00000210| 00 ff 00 00 00 25 20 4d | 61 63 72 6f 20 74 6f 20 |.....% M|acro to |
|00000220| 72 65 76 65 72 73 65 20 | 73 61 6d 70 6c 65 73 20 |reverse |samples |
|00000230| 75 73 69 6e 67 20 61 20 | 44 4c 4c 0d 0a 0d 0a 76 |using a |DLL....v|
|00000240| 61 72 20 6c 69 73 74 53 | 42 4b 2c 20 63 75 72 53 |ar listS|BK, curS|
|00000250| 61 6d 70 6c 65 73 3b 0d | 0a 0d 0a 66 69 6c 6c 4e |amples;.|...fillN|
|00000260| 61 6d 65 73 28 29 0d 0a | 7b 0d 0a 20 20 76 61 72 |ames()..|{..  var|
|00000270| 20 73 62 6b 2c 20 61 6c | 6c 73 61 6d 70 73 2c 20 | sbk, al|lsamps, |
|00000280| 73 2c 20 6e 61 6d 65 73 | 2c 20 73 64 3b 0d 0a 0d |s, names|, sd;...|
|00000290| 0a 20 20 73 62 6b 20 20 | 20 20 20 20 20 20 20 20 |.  sbk  |        |
|000002a0| 20 20 3a 3d 20 67 65 74 | 53 42 4b 4c 69 6e 6b 28 |  := get|SBKLink(|
|000002b0| 22 53 42 4b 4c 69 6e 6b | 31 22 29 3b 0d 0a 20 20 |"SBKLink|1");..  |
|000002c0| 6c 69 73 74 53 42 4b 20 | 20 20 20 20 20 20 3a 3d |listSBK |      :=|
|000002d0| 20 73 62 6b 3b 0d 0a 20 | 20 6e 61 6d 65 73 20 20 | sbk;.. | names  |
|000002e0| 20 20 20 20 20 20 3a 3d | 20 7b 7d 3b 0d 0a 20 20 |      :=| {};..  |
|000002f0| 63 75 72 53 61 6d 70 6c | 65 73 20 3a 3d 20 7b 7d |curSampl|es := {}|
|00000300| 3b 0d 0a 0d 0a 20 20 25 | 20 46 69 6c 6c 20 6c 69 |;....  %| Fill li|
|00000310| 73 74 20 62 6f 78 20 77 | 69 74 68 20 6e 61 6d 65 |st box w|ith name|
|00000320| 73 20 6f 66 20 52 41 4d | 20 73 61 6d 70 6c 65 73 |s of RAM| samples|
|00000330| 20 6f 6e 6c 79 0d 0a 20 | 20 69 66 20 28 76 61 6c | only.. | if (val|
|00000340| 69 64 28 73 62 6b 29 29 | 0d 0a 20 20 7b 0d 0a 20 |id(sbk))|..  {.. |
|00000350| 20 20 20 61 6c 6c 73 61 | 6d 70 73 20 3a 3d 20 67 |   allsa|mps := g|
|00000360| 65 74 53 42 4b 53 61 6d | 70 6c 65 73 28 73 62 6b |etSBKSam|ples(sbk|
|00000370| 29 3b 0d 0a 20 20 20 20 | 66 6f 72 20 73 20 69 6e |);..    |for s in|
|00000380| 20 61 6c 6c 73 61 6d 70 | 73 20 64 6f 0d 0a 20 20 | allsamp|s do..  |
|00000390| 20 20 7b 0d 0a 20 20 20 | 20 20 20 73 64 20 3a 3d |  {..   |   sd :=|
|000003a0| 20 67 65 74 4f 62 6a 65 | 63 74 44 61 74 61 28 73 | getObje|ctData(s|
|000003b0| 29 3b 0d 0a 20 20 20 20 | 20 20 69 66 20 28 21 73 |);..    |  if (!s|
|000003c0| 64 5b 31 5d 29 0d 0a 20 | 20 20 20 20 20 7b 0d 0a |d[1]).. |     {..|
|000003d0| 20 20 20 20 20 20 20 20 | 6e 61 6d 65 73 20 20 20 |        |names   |
|000003e0| 20 20 20 20 20 3a 3d 20 | 6e 61 6d 65 73 20 2b 20 |     := |names + |
|000003f0| 73 64 5b 30 5d 3b 0d 0a | 20 20 20 20 20 20 20 20 |sd[0];..|        |
|00000400| 63 75 72 53 61 6d 70 6c | 65 73 20 3a 3d 20 63 75 |curSampl|es := cu|
|00000410| 72 53 61 6d 70 6c 65 73 | 20 2b 20 73 3b 0d 0a 20 |rSamples| + s;.. |
|00000420| 20 20 20 20 20 7d 0d 0a | 20 20 20 20 7d 0d 0a 20 |     }..|    }.. |
|00000430| 20 7d 0d 0a 20 20 77 69 | 6e 64 6f 77 4f 75 74 70 | }..  wi|ndowOutp|
|00000440| 75 74 28 22 73 61 6d 70 | 6c 69 73 74 22 2c 20 6e |ut("samp|list", n|
|00000450| 61 6d 65 73 29 3b 0d 0a | 7d 0d 0a 0d 0a 69 6e 69 |ames);..|}....ini|
|00000460| 74 28 29 0d 0a 7b 0d 0a | 20 20 66 69 6c 6c 4e 61 |t()..{..|  fillNa|
|00000470| 6d 65 73 28 29 3b 0d 0a | 7d 0d 0a 0d 0a 53 42 4b |mes();..|}....SBK|
|00000480| 4c 69 6e 6b 31 28 29 0d | 0a 7b 0d 0a 20 20 66 69 |Link1().|.{..  fi|
|00000490| 6c 6c 4e 61 6d 65 73 28 | 29 3b 0d 0a 7d 0d 0a 0d |llNames(|);..}...|
|000004a0| 0a 6e 6f 74 69 66 79 53 | 61 6d 70 6c 65 43 68 61 |.notifyS|ampleCha|
|000004b0| 6e 67 65 28 73 62 6b 29 | 0d 0a 7b 0d 0a 20 20 69 |nge(sbk)|..{..  i|
|000004c0| 66 20 28 73 62 6b 20 3d | 20 6c 69 73 74 53 42 4b |f (sbk =| listSBK|
|000004d0| 29 20 66 69 6c 6c 4e 61 | 6d 65 73 28 29 3b 0d 0a |) fillNa|mes();..|
|000004e0| 7d 0d 0a 0d 0a 72 65 76 | 65 72 73 65 28 29 0d 0a |}....rev|erse()..|
|000004f0| 7b 0d 0a 20 20 76 61 72 | 20 73 2c 20 73 72 2c 20 |{..  var| s, sr, |
|00000500| 66 72 6f 6d 2c 20 74 6f | 2c 20 73 64 3b 0d 0a 0d |from, to|, sd;...|
|00000510| 0a 20 20 69 66 20 28 21 | 76 61 6c 69 64 28 6c 69 |.  if (!|valid(li|
|00000520| 73 74 53 42 4b 29 29 20 | 72 65 74 75 72 6e 3b 0d |stSBK)) |return;.|
|00000530| 0a 20 20 73 20 3a 3d 20 | 77 69 6e 64 6f 77 49 6e |.  s := |windowIn|
|00000540| 70 75 74 28 22 73 61 6d | 70 6c 69 73 74 22 29 3b |put("sam|plist");|
|00000550| 0d 0a 20 20 69 66 20 28 | 73 20 3d 20 2d 31 29 0d |..  if (|s = -1).|
|00000560| 0a 20 20 7b 0d 0a 20 20 | 20 20 6d 65 73 73 61 67 |.  {..  |  messag|
|00000570| 65 28 22 53 65 6c 65 63 | 74 20 61 20 73 61 6d 70 |e("Selec|t a samp|
|00000580| 6c 65 20 66 69 72 73 74 | 22 29 3b 0d 0a 20 20 20 |le first|");..   |
|00000590| 20 72 65 74 75 72 6e 3b | 0d 0a 20 20 7d 0d 0a 20 | return;|..  }.. |
|000005a0| 20 73 72 20 3a 3d 20 63 | 75 72 53 61 6d 70 6c 65 | sr := c|urSample|
|000005b0| 73 5b 73 5d 3b 0d 0a 20 | 20 69 66 20 28 21 76 61 |s[s];.. | if (!va|
|000005c0| 6c 69 64 28 73 72 29 29 | 20 72 65 74 75 72 6e 3b |lid(sr))| return;|
|000005d0| 0d 0a 0d 0a 20 20 73 64 | 20 20 20 20 3a 3d 20 67 |....  sd|    := g|
|000005e0| 65 74 4f 62 6a 65 63 74 | 44 61 74 61 28 73 72 29 |etObject|Data(sr)|
|000005f0| 3b 20 20 0d 0a 20 20 66 | 72 6f 6d 20 3a 3d 20 73 |;  ..  f|rom := s|
|00000600| 64 5b 32 5d 3b 0d 0a 20 | 20 74 6f 20 20 20 20 3a |d[2];.. | to    :|
|00000610| 3d 20 73 64 5b 33 5d 3b | 0d 0a 20 20 63 61 6c 6c |= sd[3];|..  call|
|00000620| 44 4c 4c 28 22 72 65 76 | 65 72 73 65 22 2c 20 22 |DLL("rev|erse", "|
|00000630| 72 65 76 65 72 73 65 22 | 2c 20 7b 6c 69 73 74 53 |reverse"|, {listS|
|00000640| 42 4b 2c 20 66 72 6f 6d | 2c 20 74 6f 7d 29 3b 0d |BK, from|, to});.|
|00000650| 0a 20 20 6e 6f 74 69 66 | 79 53 42 4b 44 61 74 61 |.  notif|ySBKData|
|00000660| 43 68 61 6e 67 65 64 28 | 6c 69 73 74 53 42 4b 29 |Changed(|listSBK)|
|00000670| 3b 0d 0a 7d 0d 0a 0d 0a | 00 00 00                |;..}....|...     |
+--------+-------------------------+-------------------------+--------+--------+