[Back to STRINGS SWAG index] [Back to Main SWAG index] [Original]

    {*****************************************************************************
     * Function ...... Command
     * Purpose ....... To return the command line as a string
     * Parameters .... None
     * Returns ....... The entire command line as one string
     * Notes ......... None
     * Author ........ Martin Richardson
     * Date .......... May 13, 1992
     *****************************************************************************}
    FUNCTION Command: STRING;
    BEGIN
         Command := STRING( PTR(PREFIXSEG, $0080)^ );
    END;

[Back to STRINGS SWAG index] [Back to Main SWAG index] [Original]