GET_COMMAND_LINE: PROCEDURE OPTIONS (MAIN);

    %INCLUDE $RMSDEF; /* RMS return value declarations */
    %INCLUDE $STSDEF; /* Status-testing definitions */
    %INCLUDE LIB$GET_FOREIGN; /* Entry declaration */

    DECLARE
        COMMAND_LINE CHARACTER(80) VARYING,
        PROMPT_FLAG BIT(32) ALIGNED INITIAL((32)'0'b);

    /*
     * Repeat forever calling LIB$GET_FOREIGN to obtain
     * subcommand text and print the text. Exit when an
     * end-of-file is found.
     */
    DO WHILE ('1'B); /* Do while TRUE */

        STS$VALUE = LIB$GET_FOREIGN(
                        COMMAND_LINE,
                        'Input: ',
                        ,
                        PROMPT_FLAG);

        IF STS$SUCCESS
        THEN
            PUT LIST ('  Command was ',COMMAND_LINE);
        ELSE DO;
            IF STS$VALUE ^= RMS$_EOF
            THEN
                PUT LIST ('Error encountered');
            RETURN;
            END;

        PUT SKIP; /* Skip to next line */

        END; /* End of DO WHILE loop */

   END GET_COMMAND_LINE;