#COMPILE EXE "s17_replace.exe"
' Sample: REMOVE$ and string replacement
FUNCTION PBMAIN() AS LONG
    DIM s AS STRING, result AS STRING
    s = "Hello World Hello"
    PRINT "Original: "; s
    result = REMOVE$(s, "Hello ")
    PRINT "REMOVE$('Hello '): "; result
    result = "Power" + MID$(s, INSTR(s,"W"))
    PRINT "After replace: "; result
    FUNCTION = 0
END FUNCTION
