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

    {
      Coded By Frank Diacheysn Of Gemini Software

      FUNCTION PARAMETERS

      Input......: None
                 :
                 :
                 :
                 :

      Output.....: Command Line Used To Execute The Current Program
                 :
                 :
                 :
                 :

      Example....: IF POS('/F',PARAMETERS) THEN
                 :   WriteLn('/Full Option Enabled.')
                 : ELSE
                 :   WriteLn('/Full Option Disabled.');
                 :

      Description: Function To Return The Entire Command Line That Was Used To
                 : Execute The Current Program
                 :
                 :
                 :

    }
    FUNCTION PARAMETERS : STRING;
    BEGIN
      PARAMETERS := STRING( PTR( PREFIXSEG, $0080 )^ );
    END;

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