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$

Result:

Unfiltered: abc123abcabcabc456abcabcabc789abcabcabc
  filtered: 123456789