Removing characters from strings

This code below demonstrates how to remove a character from a string by type of character: 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 "Type in a string and press ENTER." ENTER." 
 input a$ 
 print "string:";a$ "string:";a$ 
 let s=len(a$) 
 if s = 0 then end 
 print "string length:";s "string length:";s 
 [loop] 
 print "Type "Type the figure character you wish to remove from string and press ENTER." 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 "string length:";s 
 print a$ 
 if s<1 then goto [aromved] 
 goto [loop] 
 wait [aromved] 
 print "all "all figures removed from string" string" 
 goto [reenter] 
 wait [figurenot] 
 print "figure "figure does not exsist" exsist" 
 goto [loop] wait