home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / PROTOCOL / TPHYD100.ZIP / H_ENCODE.INC < prev    next >
Text File  |  1993-08-18  |  1KB  |  28 lines
  1. (******************************************************************************)
  2. (*                      Hydra Bi-directional Protocol                         *)
  3. (*                        ─────────────────────────                           *)
  4. (*                                                                            *)
  5. (*              UU Encoding/Decoding Include File : HYDRA.PAS                 *)
  6. (*                                                                            *)
  7. (* BY: Adam Blake                                      Wandoo Valley Software *)
  8. (*     Arjen Lentz                                         and Lentz Software *)
  9. (* VER: 1.00                                                      Development *)
  10. (* DATE: 5th August 1993                                   (c) Copyright 1993 *)
  11. (* LANGUAGE: Turbo Pascal v6.0                  All Rights Reserved Worldwide *)
  12. (******************************************************************************)
  13.  
  14.  
  15. Function h_UUEnc( Ch : byte ) : byte;
  16. begin
  17.   h_UUEnc := (Ch and $3f) + Ord('!');
  18. end;
  19.  
  20.  
  21. Function h_UUDec( Ch : byte ) : byte;
  22. begin
  23.   h_UUDec := (Ch - Ord('!')) and $3f;
  24. end;
  25.  
  26. (* End of INCLUDE file h_Encode.inc *)
  27.  
  28.