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

' * Also, I'd love to be able to print this in Courier New. *
' * I've tried various ways of Copy and Paste, but
' * nothing works.