%BEGIN
%STRING(255) S, T
%INTEGER I
S="FIRST LINE
SECOND LINE"
T=S
!
!  S WILL BE TRUNCATED AT THE FIRST NEW LINE
!
%CYCLE I=1, 1, LENGTH(S)
  %IF CHARNO(S,I) = NL %THEN %START
    LENGTH(S) = I-1
    %EXIT
  %FINISH
%REPEAT
!
!  EACH NEWLINE CHARACTER IN T IS REPLACED BY A SPACE
!
%CYCLE I = 1, 1, LENGTH(T)
  %IF CHARNO(T,I) = NL %THEN CHARNO(T,I) = ' '
%REPEAT
PRINTSTRING(S); NEWLINE
PRINTSTRING(T); NEWLINE
%ENDOFPROGRAM