Removing characters from strings

This code below demonstrates how to remove a character from a string:

'this is a simple code sample that demonstartes how to
'remove a character from the string. A null string exits the loop
'modified by BJ Moore
[reenter]
PRINT "Type in a string and press ENTER."
INPUT a$
PRINT "string:";a$
LET s=LEN(a$)
IF s = 0 THEN END
PRINT "string length:";s
[LOOP]
PRINT "Type the character you wish to remove from string and press ENTER."
INPUT num$
IF LEN(num$) = 0 THEN END
n = INSTR(a$,num$)
IF n=0 THEN GOTO [figurenot]
a$= LEFT$(a$,n-1) + RIGHT$(a$, s-n)
LET s=LEN(a$)
PRINT "string length:";s
PRINT a$
IF s<1 THEN GOTO [aromved]
GOTO [LOOP]
[aromved]
PRINT "all figures removed from string"
GOTO [reenter]
[figurenot]
PRINT "figure does not exsist"
GOTO [LOOP]

original code by Alex Barfoot