Remove From String II

' *
' * 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**