[function addslashes]
local.str=<asc <args>>
local.string=s
for i 0 strlen(<local.str>)
local.check=<strarg <local.str>>
local.last=<local.check>
if (<local.check> == 00)
return <strsub 1 <eval strlen(<local.string>)-2> <local.string>>
endif
if (<local.check>=<asc \>)
local.last=<asc \>
local.string <strsub 0 <eval strlen(<local.string>)-1> <local.string>>\\s
elif (<local.check>=<asc '>)
local.string <strsub 0 <eval strlen(<local.string>)-1> <local.string>>\'s
else
local.string <strsub 0 <eval strlen(<local.string>)-1> <local.string>><chr <local.check>>s
endif
local.str=<streat <local.str>>
endfor
return <strsub 1 <eval strlen(<local.string>)-2> <local.string>>