Remove From String II

 
 {' * 
 ' * *** Here is an alternative program. program.** ** 
 ' '** * It's much shorter, and it also removes ** 
 ' '** * EVERY occurrence of the letter, not just one. * *** 
 ' '** * by Michael D. Gerzevitz * 1-28-06 * *** 1-28-06** *** 
 ' * '** *** 
 dim x$(100) 
 a$="" a$="" 
 print "Enter "Enter a string" string" 
 input ": ";x$ ": ";x$ 
 
 [main] 
 l=len(x$) 
 print "Type "Type a character to remove" remove" 
 input ": ";r$ ": ";r$ 
 if r$="" 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$="" a$="" 
 goto [main] 
 
 [quit] 
 end 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. I'd also like to be able to indent. ' * Indented code looks so elegant.