MikeGerz
Jan 28, 2006
' ***************************************************** ' *** 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. ****