I'm trying to read multiple lines of input and concatenate them into one string, separated by CRLF's. This is the code I have: GetPayload. MOVE " " TO Payload. Move " " TO EditLine. PERFORM UNTIL EditLine = "." DISPLAY "> " WITH NO ADVANCING ACCEPT EditLine STRING Payload DELIMITED BY SIZE x"0a0d" DELIMITED BY SIZE EditLine DELIMITED BY SIZE INTO NewPayload END-STRING MOVE NewPayload TO Payload END-PERFORM. Nothing seems to happen, however. Any ideas? Sampsa