ENCRYPT(<C string>, <C password>)
 Protects character data from easily being read.
 Returns <expC> of <string> coded according to <password>.

 Returns unchanged <string> if <password> is less than 3 characters.

 Password may contain spaces and non-alpha characters.
 It distinguishes between uppercase and lowercase.

 Encrypted return string is the same length as <string> parameter

 * Protect file for first time
 REPLACE ALL Field WITH ENCRYPT( Field, "My Password" )

 * Display protected data
 @...SAY DECRYPT( Field, "My Password" )

 * Edit data in protected file
 m_password = "My Password"
 memvar = DECRYPT( Field, m_password )
 <edit memvar>
 REPLACE Field WITH ENCRYPT( memvar, m_password )

 * Change encryption scheme throughout existing file
 REPLACE ALL Field WITH ENCRYPT(;
                        DECRYPT(Field,<old password>),;
                                      <new password> )

 * Unprotect entire file
 REPLACE ALL Field WITH DECRYPT( Field, "My Password" )

 Hazard
    This simple encryption algorithm can be broken by any determined,
    knowledgeable person.  It is intended only to prevent casual browsing
    of data by people who are not computer literate.


             Placed in the Public Domain by Tom Rettig Assoc.