From: 
This is a multi-part message in MIME format.
------------NetAddress--cekRk63008
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Skipper,
Here is another possible solution I came up with.  I chose not to use the 
GetToken function and I've added a refind option but otherwise this solution 
is similar to Carlo's.  I'm not sure it compiles under 2.5 because I only 
have 2.8.  It won't look beyond the next line for the next matching word and 
it doesn't handle the search options well. Creating a customized version of 
the WordRight function would improve this.  I've tested it by searching for 
the string "save_srch save_options" in the source file.  Hope this helps.  
Oh, and by the way tell Carlo that he misspelled execmacro in the comments. 
;-)
Sincerely,
Chris Shuffett
------------NetAddress--cekRk63008
Content-Type: application/octet-stream; name="mfind.s"
Content-Transfer-Encoding: base64
Content-Disposition: inline; filename="mfind.s"
c3RyaW5nICBzYXZlX3NyY2hbMjU1XSA9ICIiDQogICAgICAgLHNhdmVfb3B0aW9uc1syNTVd
ID0gIiINCg0KaW50ZWdlcg0KcHJvYyBSZWN1cnNGaW5kKHN0cmluZyAgc3JjaA0KICAgICAg
ICAgICAgICAgLHN0cmluZyAgb3B0aW9ucw0KICAgICAgICAgICAgICAgKQ0KICAgIGludGVn
ZXIgZmluZGJ1ZiA9IDANCiAgICBzdHJpbmcgIHMxWzI1NV0gPSAiIg0KICAgIHN0cmluZyAg
czJbMjU1XSA9ICIiDQoNCiAgICBmaW5kYnVmID0gQ3JlYXRlVGVtcEJ1ZmZlcigpDQoNCiAg
ICBJbnNlcnRUZXh0KCIgIikNCiAgICBJbnNlcnRUZXh0KHNyY2gpDQogICAgQmVnTGluZSgp
DQoNCiAgICBpZiBXb3JkUmlnaHQoKQ0KICAgICAgICBzMSA9IEdldFdvcmQoKQ0KDQogICAg
ICAgIGlmIFdvcmRSaWdodCgpDQogICAgICAgICAgICBzMiA9IEdldFRleHQoQ3VyclBvcygp
LCBMZW5ndGgoc3JjaCkgLSBDdXJyUG9zKCkgKyAyKQ0KICAgICAgICBlbmRpZg0KICAgIGVu
ZGlmDQoNCiAgICBBYmFuZG9uRmlsZShmaW5kYnVmKQ0KDQogICAgaWYgKFdvcmRSaWdodCgp
DQogICAgYW5kICgoUG9zKCJpIiwgTG93ZXIob3B0aW9ucykpDQogICAgYW5kIExvd2VyKEdl
dFdvcmQoKSkgPT0gTG93ZXIoczEpKQ0KICAgIG9yICBHZXRXb3JkKCkgPT0gczEpKQ0KICAg
IG9yIChDdXJyQ2hhcihfQVRfRU9MXykNCiAgICBhbmQgV29yZFJpZ2h0KCkNCiAgICBhbmQg
KChQb3MoImkiLCBMb3dlcihvcHRpb25zKSkNCiAgICBhbmQgTG93ZXIoR2V0V29yZCgpKSA9
PSBMb3dlcihzMSkpDQogICAgb3IgIEdldFdvcmQoKSA9PSBzMSkpDQogICAgICAgIGlmIExl
bmd0aChzMikNCiAgICAgICAgICAgIGlmIFJlY3Vyc0ZpbmQoczIsIG9wdGlvbnMpDQogICAg
ICAgICAgICAgICAgcmV0dXJuKHRydWUpDQogICAgICAgICAgICBlbHNlDQogICAgICAgICAg
ICAgICAgcmV0dXJuKGZhbHNlKQ0KICAgICAgICAgICAgZW5kaWYNCiAgICAgICAgZWxzZQ0K
ICAgICAgICAgICAgcmV0dXJuKHRydWUpDQogICAgICAgIGVuZGlmDQogICAgZWxzZQ0KICAg
ICAgICByZXR1cm4oZmFsc2UpDQogICAgZW5kaWYNCg0KICAgIHJldHVybih0cnVlKSAgLy9t
YWtlcyB0aGUgY29tcGlsZXIgaGFwcHkNCmVuZA0KDQppbnRlZ2VyDQpwcm9jIG1GaW5kKHN0
cmluZyAgc3JjaA0KICAgICAgICAgICxzdHJpbmcgIG9wdGlvbnMNCiAgICAgICAgICApDQog
ICAgaW50ZWdlciBmaW5kYnVmID0gMA0KICAgIHN0cmluZyAgczFbMjU1XSA9ICIiDQogICAg
c3RyaW5nICBzMlsyNTVdID0gIiINCg0KICAgIGZpbmRidWYgPSBDcmVhdGVUZW1wQnVmZmVy
KCkNCg0KICAgIEluc2VydFRleHQoIiAiKQ0KICAgIEluc2VydFRleHQoc3JjaCkNCiAgICBC
ZWdMaW5lKCkNCg0KICAgIGlmIFdvcmRSaWdodCgpDQogICAgICAgIHMxID0gR2V0V29yZCgp
DQoNCiAgICAgICAgaWYgV29yZFJpZ2h0KCkNCiAgICAgICAgICAgIHMyID0gR2V0VGV4dChD
dXJyUG9zKCksIExlbmd0aChzcmNoKSAtIEN1cnJQb3MoKSArIDIpDQogICAgICAgIGVuZGlm
DQogICAgZW5kaWYNCg0KICAgIEFiYW5kb25GaWxlKGZpbmRidWYpDQoNCiAgICBpZiBsRmlu
ZChzMSwgb3B0aW9ucykNCiAgICAgICAgaWYgTGVuZ3RoKHMyKQ0KICAgICAgICAgICAgUHVz
aFBvc2l0aW9uKCkNCg0KICAgICAgICAgICAgaWYgUmVjdXJzRmluZChzMiwgb3B0aW9ucykN
CiAgICAgICAgICAgICAgICBQb3BQb3NpdGlvbigpDQogICAgICAgICAgICAgICAgcmV0dXJu
KHRydWUpDQogICAgICAgICAgICBlbHNlDQogICAgICAgICAgICAgICAgd2hpbGUgbFJlcGVh
dEZpbmQoKQ0KICAgICAgICAgICAgICAgICAgICBpZiBMZW5ndGgoczIpDQogICAgICAgICAg
ICAgICAgICAgICAgICBQdXNoUG9zaXRpb24oKQ0KDQogICAgICAgICAgICAgICAgICAgICAg
ICBpZiBSZWN1cnNGaW5kKHMyLCBvcHRpb25zKQ0KICAgICAgICAgICAgICAgICAgICAgICAg
ICAgIFBvcFBvc2l0aW9uKCkNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICByZXR1cm4o
dHJ1ZSkNCiAgICAgICAgICAgICAgICAgICAgICAgIGVuZGlmDQogICAgICAgICAgICAgICAg
ICAgIGVsc2UNCiAgICAgICAgICAgICAgICAgICAgICAgIHJldHVybih0cnVlKQ0KICAgICAg
ICAgICAgICAgICAgICBlbmRpZg0KICAgICAgICAgICAgICAgIGVuZHdoaWxlDQogICAgICAg
ICAgICBlbmRpZg0KICAgICAgICBlbHNlDQogICAgICAgICAgICByZXR1cm4odHJ1ZSkNCiAg
ICAgICAgZW5kaWYNCiAgICBlbmRpZg0KDQogICAgcmV0dXJuKGZhbHNlKQ0KZW5kDQoNCmlu
dGVnZXINCnByb2MgbVJlcGVhdEZpbmQoc3RyaW5nICBzcmNoDQogICAgICAgICAgICAgICAg
LHN0cmluZyAgb3B0aW9ucw0KICAgICAgICAgICAgICAgICkNCiAgICBpbnRlZ2VyIGZpbmRi
dWYgPSAwDQogICAgc3RyaW5nICBzMlsyNTVdID0gIiINCg0KICAgIGZpbmRidWYgPSBDcmVh
dGVUZW1wQnVmZmVyKCkNCg0KICAgIEluc2VydFRleHQoIiAiKQ0KICAgIEluc2VydFRleHQo
c3JjaCkNCiAgICBCZWdMaW5lKCkNCg0KICAgIGlmICBXb3JkUmlnaHQoKQ0KICAgIGFuZCBX
b3JkUmlnaHQoKQ0KICAgICAgICBzMiA9IEdldFRleHQoQ3VyclBvcygpLCBMZW5ndGgoc3Jj
aCkgLSBDdXJyUG9zKCkgKyAyKQ0KICAgIGVuZGlmDQoNCiAgICBBYmFuZG9uRmlsZShmaW5k
YnVmKQ0KDQogICAgd2hpbGUgbFJlcGVhdEZpbmQoKQ0KICAgICAgICBpZiBMZW5ndGgoczIp
DQogICAgICAgICAgICBQdXNoUG9zaXRpb24oKQ0KDQogICAgICAgICAgICBpZiBSZWN1cnNG
aW5kKHMyLCBvcHRpb25zKQ0KICAgICAgICAgICAgICAgIFBvcFBvc2l0aW9uKCkNCiAgICAg
ICAgICAgICAgICByZXR1cm4odHJ1ZSkNCiAgICAgICAgICAgIGVuZGlmDQogICAgICAgIGVs
c2UNCiAgICAgICAgICAgIHJldHVybih0cnVlKQ0KICAgICAgICBlbmRpZg0KICAgIGVuZHdo
aWxlDQoNCiAgICByZXR1cm4oZmFsc2UpDQplbmQNCg0KcHJvYyBwcm9jMSgpDQogICAgaWYg
IEFzaygiU2VhcmNoIEZvcjoiLCBzYXZlX3NyY2gsIF9GSU5EX0hJU1RPUllfKQ0KICAgIGFu
ZCBMZW5ndGgoc2F2ZV9zcmNoKQ0KICAgICAgICBzYXZlX29wdGlvbnMgPSBRdWVyeShGaW5k
T3B0aW9ucykNCg0KICAgICAgICBpZiBBc2soIk9wdGlvbnMgW0FCR0xJV1hdIChBbGwtZmls
ZXMgQmFjayBHbG9iYWwgTG9jYWwgSWdub3JlLWNhc2UgV29yZHMgcmVnLWVYcCk6Ig0KICAg
ICAgICAgICAgICAsc2F2ZV9vcHRpb25zKQ0KICAgICAgICAgICAgU2V0KEZpbmRPcHRpb25z
LCBzYXZlX29wdGlvbnMpDQogICAgICAgICAgICBQdXNoUG9zaXRpb24oKQ0KDQogICAgICAg
ICAgICBpZiBtRmluZChzYXZlX3NyY2gsIHNhdmVfb3B0aW9ucykNCiAgICAgICAgICAgICAg
ICBLaWxsUG9zaXRpb24oKQ0KICAgICAgICAgICAgZWxzZQ0KICAgICAgICAgICAgICAgIFBv
cFBvc2l0aW9uKCkgICAgICAgICAgICAgICAgICAgICAgICAgICAgIC8vIE5vdCB3b3JraW5n
LiAgQXBwYXJlbnRseSBhIGxSZXBlYXRGaW5kIHNpZGUgYWZmZWN0Lg0KICAgICAgICAgICAg
ICAgIE1lc3NhZ2UoRm9ybWF0KHNhdmVfc3JjaCwgIiBub3QgZm91bmQuIikpIC8vIFVzZSBQ
cmV2UG9zaXRpb24oKSB0byBnZXQgYmFjay4NCiAgICAgICAgICAgIGVuZGlmDQogICAgICAg
IGVuZGlmDQogICAgZW5kaWYNCmVuZA0KDQpwcm9jIHByb2MyKCkNCiAgICBpZiBMZW5ndGgo
c2F2ZV9zcmNoKQ0KICAgICAgICBQdXNoUG9zaXRpb24oKQ0KDQogICAgICAgIGlmIG1SZXBl
YXRGaW5kKHNhdmVfc3JjaCwgc2F2ZV9vcHRpb25zKQ0KICAgICAgICAgICAgS2lsbFBvc2l0
aW9uKCkNCiAgICAgICAgZWxzZQ0KICAgICAgICAgICAgUG9wUG9zaXRpb24oKSAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAvLyBOb3Qgd29ya2luZy4gIEFwcGFyZW50
bHkgYSBsUmVwZWF0RmluZCBzaWRlIGFmZmVjdC4NCiAgICAgICAgICAgIE1lc3NhZ2UoRm9y
bWF0KHNhdmVfc3JjaCwgIiBub3QgZm91bmQuIikpICAgICAgICAgLy8gVXNlIFByZXZQb3Np
dGlvbigpIHRvIGdldCBiYWNrLg0KICAgICAgICBlbmRpZg0KICAgIGVsc2UNCiAgICAgICAg
cHJvYzEoKQ0KICAgIGVuZGlmDQplbmQNCg0KPEYyPiBwcm9jMSgpDQo8RjM+IHByb2MyKCkg
Ly8gVGhpcyB3b24ndCB3b3JrIGlmIHRoZSB1c2VyIHBlcmZvcm1zIGEgRmluZCBvciBSZXBs
YWNlIGFmdGVyIGV4ZWN1dGluZyBwcm9jMS4NCg==
------------NetAddress--cekRk63008
Content-Type: text/plain
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
____________________________________________________________________
Get free e-mail and a permanent address at http://www.amexmail.com/?A=1
------------NetAddress--cekRk63008--
---
---------------