Remove From String II

[[code format="qbasic"]]

{' *
' *** Here is an alternative program.** **
'** * It's much shorter, and it also removes **
'** * EVERY occurrence of the letter, not just one. ***
'** * by Michael D. Gerzevitz *** 1-28-06** ***
'** ***
dim x$(100)
a$=""
print "Enter a string"
input ": ";x$

[main]
l=len(x$)
print "Type a character to remove"
input ": ";r$
if r$="" then [quit]

for y=1 to l
x$(y)=mid$(x$,y,1)
if not(x$(y)=r$) then
a$=a$+x$(y)
end if
next
x$=a$
print a$
a$=""
goto [main]

[quit]
end**}

[[code]]