LINES: PROCEDURE OPTIONS (MAIN);

    %INCLUDE LIB$LP_LINES;

    PUT SKIP LIST ('Lines per printer page = ',LIB$LP_LINES());

END;