[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]