>>'I came across this the other day and thought it was worth passing along. 
 It
  >>'works just as-is with PowerBASIC.  I changed a couple of instances of
  >>'CNT=CNT+1 to the more efficient INCR CNT statement.  - Frank Cox
  
>>'---------------------------------------------------------------------------
--
FC>>DECLARE SUB PackTxt (text$)
  >>' Super Text/String Packer/Unpacker for QB4.5
  >>'     Originally by Greg Estabrooks
  >>'  Slightly changed by Hauke Daempfling
FC>>'(small note: all documentation is by Hauke :) )
    ...stuff omitted...
    Frank, I know you didn't write it but do you have any idea why
    numbers don't compress so good?  The example you gave in the
    example compresses real well, and so does a random sentence of my
    choice, but when I try to use numbers like
    243569120023450015000113000000000000000000000
    It doesn't give much compression.  Maybe loses 2 or 3 bytes or so.
    I'm *NOT* complaining.  It's great as a poorman's encrypter of
    data even when it doesn't compress much.  Thanks for it 110% my
    friend. I plan to use it a lot when I need to write data to a
    file, ASCII TEXT file type, and then read it back and uncompress
    it to use it.   Peace.
         _____oOOo_/00\_oOOo_____      david.roper@mms.raleigh.nc.us
     1996          \__/            201 WINDING BROOK Dr, GARNER NC 27529
--- FLAME v1.1
---------------