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$