14 lines
419 B
Plaintext
14 lines
419 B
Plaintext
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
|