BCX Console Demonstration Program S93.bas

 ' **********************************************
 '  BCX sample console program by Kevin Diggins
 '  Demonstrates the built-in REMOVE$ function
 ' **********************************************
 
 DIM Q$
 
 Q$ = "abc123abcabcabc456abcabcabc789abcabcabc"
 
 PRINT "Unfiltered: ", Q$
 
 REMOVE "abc" FROM Q$ ' Also legal in BCX->   Q$ = REMOVE$(Q$, "abc")
 
 PRINT "  filtered: ", Q$