home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a013 / 1.ddi / SOURCE.EXE / F_DECODE.PRG < prev    next >
Encoding:
Text File  |  1991-01-25  |  692 b   |  30 lines
  1. *****************************************************************
  2. FUNCTION DECODE (in_string)
  3. *****************************************************************
  4.  
  5. * Decodes a string encoded by ENCODE
  6.  
  7. * Copyright(c) 1991 -- James Occhiogrosso
  8.  
  9. # define ADJVAL  30
  10.  
  11. LOCAL counter := in_len := 0, out_string := ''
  12.  
  13. IF in_string != NIL
  14.  
  15.     * Trim passed string
  16.     in_string := ALLTRIM(in_string)
  17.     in_len := LEN(in_string)
  18.  
  19.     * Get ASCII value of each position and restore original value
  20.     FOR counter = 1 TO in_len
  21.          out_string := out_string +  ;
  22.          CHR((ASC(SUBSTR(in_string, counter * -1, 1)) /2) - ADJVAL)
  23.     NEXT
  24.  
  25. ENDIF
  26.  
  27. RETURN out_string
  28.  
  29.  
  30.