[function asciireplace]
local.ascii=<argv[0]>
local.new=<argv[1]>
local.text=<streat <streat <args>>>
local.a=<strpos 0 <dlocal.ascii> <args>>
while <local.a>>0
	local.len=<eval STRLEN(<local.text>)>
	local.pos=<strpos 0 <dlocal.ascii> <local.text>>
	if (<local.pos>==0)
		local.text=<local.new><strsub <eval <local.pos>+1> <local.len> <local.text>>
	else
		local.text=<strsub 0 <local.pos> <local.text>><local.new><strsub <eval <local.pos>+1> <local.len> <local.text>>
	endif
	if (<strpos 0 <dlocal.ascii> <local.text>>==-1)
		local.a=0
	endif
endwhile
return <local.text>

[function asciiremove]
local.ascii=<argv[0]>
local.text=1<streat <args>>
local.a=<strpos 0 <dlocal.ascii> <args>>
while <local.a>>0
	local.len=<eval STRLEN(<local.text>)>
	local.pos=<strpos 0 <dlocal.ascii> <local.text>>
	if (<local.pos>==0)
		local.text=<strsub <eval <local.pos>+1> <local.len> <local.text>>
	else
		local.text=<strsub 0 <local.pos> <local.text>><strsub <eval <local.pos>+1> <local.len> <local.text>>
	endif
	if (<strpos 0 <dlocal.ascii> <local.text>>==-1)
		local.a=0
	endif
endwhile
return <strsub 1 <local.len> <local.text>>