temp$="<name> went for a walk in the park. <he or she> found a <noun>. <name> decided to take it home."
k = instr(temp$,"<")
while k
    replace$   = mid$(temp$,k,instr(temp$,">")-k + 1)
    print "Replace:";replace$;" with:"; :input with$
    while k
        temp$  = left$(temp$,k-1) + with$ + mid$(temp$,k + len(replace$))
        k      = instr(temp$,replace$,k)
    wend
k = instr(temp$,"<")
wend
print temp$
wait