OleObject wsh
Integer  li_rc
string ls_temp

wsh = CREATE OleObject
li_rc = wsh.ConnectToNewObject( "MSScriptControl.ScriptControl" )
wsh.language = "javascript"

ls_temp = wsh.Eval("escape('H e l l o')")

MessageBox( "ESCAPE" , ls_temp)

ls_temp = wsh.Eval("unescape('" + ls_temp + "')")

MessageBox( "UNESCAPE" , ls_temp)

char lc_chars[], c
Long i
String ls_output

lc_chars[] = as_input
ls_output = ""

For i = 1 To UpperBound(lc_chars[])
    c = lc_chars[i]
    Choose Case c
        Case 'a' To 'z', 'A' To 'Z', '0' To '9', '-', '_', '.', '~~'
            // Allowed chars
            ls_output = ls_output + c
// uncomment to convert spaces to "+" instead of "%20"
//      Case ' '
//          ls_output = ls_output + "+"
        Case Else
            // Reserved chars, convert to hex
            ls_output = ls_output + "%" + of_ToHex(c)
    End Choose
Next

Return ls_output

blob lbb_bytes
byte b
Long i
String ls_output

lbb_bytes = Blob(as_input, EncodingUTF8!)
ls_output = ""

For i = 1 To Len(lbb_bytes)
    b = byte(BlobMid(lbb_bytes, i, 1))
    Choose Case b
        Case asc('a') To asc('z'), asc('A') To asc('Z'), asc('0') To asc('9'), asc('-'), asc('_'), asc('.'), asc('~~')
            // Allowed chars
            ls_output = ls_output + char(b)
// uncomment to convert spaces to "+" instead of "%20"
//      Case asc(' ')
//          ls_output = ls_output + "+"
        Case Else
            // Reserved chars, convert to hex
            ls_output = ls_output + "%" + of_ToHex(b)
    End Choose
Next

Return ls_output