24 lines
654 B
Plaintext
24 lines
654 B
Plaintext
If OpenConsole()
|
|
|
|
cadena$ = "<name> went for a walk in the park. <he or she> found a <noun>. <name> decided to take it home."
|
|
k = FindString(cadena$, "<")
|
|
|
|
PrintN("La historia: ")
|
|
Print(cadena$ + Chr(10))
|
|
While k
|
|
reemplaza$ = Mid(cadena$, k, FindString(cadena$, ">") - k + 1)
|
|
Print(Chr(10) + "What should replace " + reemplaza$ + " ")
|
|
con$ = Input ()
|
|
While k
|
|
cadena$ = Left(cadena$, k-1) + con$ + Mid(cadena$, k + Len(reemplaza$))
|
|
k = FindString(cadena$, reemplaza$, k)
|
|
Wend
|
|
k = FindString(cadena$, "<")
|
|
Wend
|
|
PrintN(Chr(10) + "La historia final: ")
|
|
PrintN(cadena$)
|
|
Input()
|
|
CloseConsole()
|
|
EndIf
|
|
End
|