Store two lines of input data on one line of the data page

This sample is a user-defined emulation that reads two lines of input data, concatenates them, and stores them as a single line in the data page buffer. It terminates a data page when it encounters a form feed character. The emulation relies on two global variables:

Variable:	Type:	Initialized to:	Description:
&second	Boolean	False	The emulation uses this to determine when the current line is a second line of data. It is True when the current line is a second line of data.
&line	string	““ (the empty string)	Holds the contents of a first line of data.

Code:

% ====================================================
% STORE TWO LINES OF DATA ON ONE LINE OF THE DATA PAGE
% ====================================================
search(&str,'\014')
 set(&current.line,&current.line + 1)
 store(&current.line,&str)
 doform()
 set(&second,false)
 clearpage()
endsearch()

if(&second)
 store(&current.line,&line + &str)
elseif()
 set(&line,&str)
 set(&current.line,&current.line + 1)
endif()

set(&second,not(&second))
if(ge(&current.line,&current.lpp))
 doform()
 clearpage()
 set(&second,false)
endif()

Notes:

The search loop executes when the emulation encounters a form feed character. The form feed signals the end of a data page.
The first if statement handles the current line of data. If the current line of data is a second line, the first block of the statement executes; the emulation concatenates the line with the previous one and stores the result. If the current line of data is not a second line, it sets &line to the value of this(first) line of data.
The second if statement executes the data page if the value of &current.line exceeds the maximum number of lines in a data page.
The code toggles the value of &second. after it reads each line of data so it can determine whether the current line of data is a first or second line.