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