A super search program

[TBaehr@xxxxxxxx]

Here's a debug script that will create a ZIP file that will unzip into DB.PGM
and DB.U1. The the PGM file stores info about any U1 file you have loaded;
then it loads and executes DB.U1. When DB.U1 is done, your original U1 file
(if any) is reloaded.

What DB.U1 does.
DB.U1 puts up a dialog box that asks you for one or two search strings. You
can use any of the XY4 wildcards. You're also asked where you want to search
-- paragraphs, sentences, mailmerge records, etc. The program then extracts
from the current file all paragraphs (if that's what you selected) that
contain the search string(s). The extracted material is placed into an
untitled, stand-alone file. I use this program all the time for linguistic
research. You may find it useful for extracting information from your files.

Other features: Negative search (on entire string, not just one character as
with the XY4 wildcard); exact-match search (useful with wildcards to create a
list of similar words or phrases); custom delimiters (you can use a unique
word or phrase as if it were a record separator); screen freeze (makes it run
a little bit faster). The AND operator lets you do quasi-boolean searches
(you can put OR wildcard(s) in each of the search string boxes and combine
those with the AND relationship for fairly complex searches).

How to get this:
Save THIS file to your hard disk, to a scratch file. Open it in XyWrite.
Select everything between the "cut here" lines and save the selection
(command SAD filename or SAS filename) to DB.SCR in your main directory for
XyWrite. Go to DOS and enter this command:

DEBUG < DB.SCR

A file, DB.ZIP will be created. Unzip it to get the two files. Then just
type RUN DB.PGM from the XY4 command line and enjoy!

----------------------------->CUT HERE<-----------------------------
NDB.ZIP
E100 FC BB 03 00 BF D4 01 BE CC 01 33 C9 AD 86 CC AA FE C0 E2 FB 4B
E115 75 F5 B9 FF FD BA 20 02 52 B4 3F CD 21 5F 72 60 8B F7 50 8B C8
E12A B0 2A F2 AE 75 55 B0 0D F2 AE 87 F7 BB 00 01 B2 04 AC 3C 2A 72
E13F 62 74 46 57 BF D2 01 B9 40 00 8A E1 F2 AE 5F 75 35 FE C1 2A E1
E154 88 27 43 FE CA 75 E0 56 BE 00 01 AD 86 C4 8B D0 AD 86 C4 5E B1
E169 02 D2 E0 D3 E0 D2 E2 D3 EA D0 E1 D1 EA D1 D8 E2 FA 86 C2 AA 8A
E17E C4 AA 8A C2 AA EB B1 BF 20 02 58 33 D2 F7 D8 13 D2 F7 DA 33 DB
E193 8B CA 8B D0 B8 01 42 CD 21 8B 0E CA 01 CC AC 3C 0A 75 FB AC 57
E1A8 BF D2 01 B9 40 00 8A E1 F2 AE 5F 75 D0 FE C1 2A E1 86 E0 32 E4
E1BD 8B 1E CA 01 03 D8 89 1E CA 01 E9 6C FF 00 00 30 0A 41 1A 61 1A
E1D2 2B 2D
G=100
W220
Q GXDPlus 1.0
*XXBUG20--000008AD--26081995--BB954E92------------------DB.ZIP
nI2g1--E++U+6+57bf-uYBuSJXE+++7g++++4++++F26iI2RBKyTXN9-yLL02cO4ZdQuu
nA2SJIADp69u7+NXbuf7yzTyalFfiFMZ7+MYZ4NcUXaB8GckaI6q-YQsunq+H+t0GpHbt
nWGY8uk9016nKinXdVFfyPudTtyaqnXI6O3l+Y3haHed0Lbu7EZdyOJu8rjdpfV5fSPbK
niLe0HHTIQwvDmIZB9j5AmxG2GD3mGE2+I2g1--E++U+6+0qn4VwCiElML+Q++96F+++3
n++++F26iJH4hK3hjswMJ3UnYUGsQh4W-+Y2T-asWK4iiH39I9Rtgpt3ZFv1LBWFTBaa-
nUVN5AfgImN1ISdgUe9DzcQUDuCA0sZwco3zItlPfTaS4Z8a9jIYF470dCRTjn1bT19Jx
ndayjfLvvvLCptMx4r6izyqthZFOeK5-RrcwvbYBf8vRjzf3ltCwt9WxBSaRuFRBIKh99
neRuiCmkZh59VS1ijfB88x5CUrgb7Xuv6jrd1AHGZzHcCfLvAChv+1oRKvDUS4sHyW9L4
nMMVg4AJPKspT8x9Ak2SDKq5zWVJVwGZ2ZswIcqccard3qJFed1+tDreaBokhqLvoODh7
ntOaoVseVB02y1WVA-BjydO9fN8f-J8Q+lMgfryLgqUzhJ+mjSVpWUnkLbpglEcy1U6RP
nfbzBkvsJdTZh4UrmIe2AMmiAKOjciyCFFmb0HlByH0WEL8D2Tdz-EZc0Jx5mP+26SDF3
nD1IxSFW6aERmINk5Igo1YHW8Dl86Lvk1UYpP1YGYVGXH1P9xYSJsm0uwJAkoiD-usMR3
nKmkX7kVcLGbqgBrQurAVeCI27pNc1IAfi39y6qHpb8n9yk6VZVittTNfB7JMFNqcwX8l
nMagQlTvcIrPhl3RfewB9FOYoZQRJlKUW3Eb175k8Ge+f4qQFNyj0pvckkMRfxurEXh78
nNE3XbkqtloAftglWfVD3n-zAuMHQVRVaHgl5IPYo7ppPrNvv9jeUcZHe6jpQLpQGIWOd
n7jK3ADJ5KuAde9KiK-49S61WlLscdNK4k+PNDtyaLJ2HU4JtKaW-ll5rce6HCuxseZ3D
nRvN4-HnWEshYw2lvb8cod6ccqZv6ST2P8DHls13v51fSQ8di-p-tEh5eAirXUvLJs79g
nmQCam+7Bs+6WZaitxGys4s047fpngucaYwvS7tXRnnvH2vamRN3AqVqADCWAJaeNHWLH
neOYvgmeJHALAJ0c9PglAdtfdaDBiaicb43X6LZEp3NdBwOXXoR-G9LV6MtmN1TLqNYmS
naUppPHKNv-zyyQXjwHXb3CfJj5foLjJOLjrfJDoytPdITe3fuiFwtyDiJobS+CfXsAsU
nyq0xfLp4rQSQW5Yy4Xmysi4pUl2NFxHK5bjldJZaf-Cnm5f36zNLTlmmjdWsioNYM4oK
nLnbIap22yWf9b-dt+DrPatSrPxt4z77BHgt-t0Wk6NxirzlB05xsPoaOuMM-7QkfIsX+
n1FHedBDHhSFSl7D1nvBpi10m9eVZHcpw3x0dhwzXLSsu6slrK86UCcJ+ldgmoePwZa3w
nwvPLzVmER0AVX9dCm--XoisamSrBjk3GdDPG0H1i32YINBu0p0VHIVA8pX7jnsLxnQjZ
nCueZysLxHCSIKS3kH7S-e0kfYNMr8uMV5a4Nyp9HtFXYGWUeVaPHF7JDz0V36XOA1lCu
n63+SLLwQClsLfK4lk6yQ5AKIqMv5lZvgl0uuP61f+1KU5s-iPLHPyVRC58oXMQvuwdsV
nSx3WlU4v5+w45CraMkJo-5dXIQ0VU7CKXFkDinJZegQ1pkY0Q-KQLZm-iJ7X--iALNQV
nBzuu1qBiev7IYi169-6CbNWIvT2c20YU8ebBd7uKYod-vJVLlMJdnkzv59SaMs+eMFQr
nD9uZOpfdxiNUKKRdieeZvGWatjPvbOmesfkKROIkVvsTc3hDiXVkLl8mQdbgbjIuLqqU
n4tjpdDHIo1EApQr-NDwIryZ-tfJY4cFjOeeHwueKNBhutCBydwzpe3Z9u9COP+qKHL1K
naKHTxalRNYkM64UR7YxY004L638lO2IFPm5GXscXkMVVy0AEakpFXwXtVidVBdCGE0J8
n10SObane8QURnvv1i63doIjdu8RtJ2ESNf6JrKKW9qGG4aBjjzz3D9ed97gSec6yKqUX
nLyX9xwSRigeeeZACDmm7DeqhEEcDp0-X-Dd4nG8CCvGAv0WWCGm7Tkr2aUoYPQJKH5gi
n4kFk5UfEvcbWz22ag9vbXr2dNijYXp7N3xSbXOVIHiH9FlQQ5LebTgj0w4AwqWzicFJj
nxiNGbftVN7F074UHJpUA6E8lff9f8kRw053qm-5no6q4D3ufQyDBm4i2S792w161mt1X
n0+mV2jYNjoMoGt3woz31NyVsZciXQgNoZhlgvb8WBa3m5uwEeR7aJBJ7umGFFnlhszbC
nfimxmBfmLcYH+ij7lmZXZiBFE4T72WeGHAHISorSwj+VXqwrzc7GEhmg7eJ3AZgUgJb8
ncPMltUXgzlZwMsNU3iafgX-J1nZTa8YQIlbnosHlj7Rbge2mtdbZNm+JsmSEWjanYwd0
n4Il-8bb+CFcVljZLrbF82wMW9M0Fp3rTskzDzsdIZCwGi0UgpptN2HxGm7wvNaLW7kz0
nWAiP1Y7vwVFjLryeB2GpLRymtHo92hc6UbfGTMM7c+G2oswySbSvJdXtMSLLVRLKwS3V
nirLOCSdwI0cIOcKvdRr1zRxwLGXwzNSz9LnMPNySRMxCXpgv25IzyBqj0hi3Ei4YwCuz
nvpM8zkBEGk203++I++6+0+-mNukSd1SbZMo+++0P++++-U+++++++++-+0++++++++++
nF26iI2RBI2g-+VE+3++0++U+9PAO5kut13VQ-k++gV2+++I++++++++++++U++++gE++
Q+2F09ZIlI2g3-U+++++0++6+Nk+++1+6++++++++
*XXBUG Version 2.21 by Chad Wagner
----------------------------->CUT HERE<-----------------------------
If you have downloaded this script file, remove any captured
communications header and then enter

 DEBUG < filename

where filename is the name of this script file.