data:
myText is text

procedure:
store "LD" in myText
in myText join myText "PL"
display myText lf