URLDECODE

FUNCTION URLDECODE(BUFFER)
* URL decode the string
*$Copyright (c) 2010 TO 2012 to 2008 mike.ryder@pwchest.com, All Rights Reserved
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
* GNU General Public License for more details.
* Written by Mike Ryder @pwchest.com 16 March 2012

$CATALOG
$MODE UV.LOCATE

     NEWBUFFER=''
     FOR X = 1 TO LEN(BUFFER)
          BEGIN CASE
               CASE BUFFER[X, 1] = '+'
                    NEWBUFFER := ' '
               CASE BUFFER[X, 1] = "%"
                    HX = BUFFER[X+1, 2]
                    X += 2
                    IF NUM(XTD(HX)) THEN
                         NEWBUFFER := CHAR(XTD(HX))
                    END
               CASE 1
                    NEWBUFFER := BUFFER[X, 1]
          END CASE
     NEXT X

RETURN (NEWBUFFER)
********
END