{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.

     NOTE: IMPORTANT -- this program is no use unless it is COMPILED.
     When it is compiled, whatever you type on the command line AFTER
     the program name will be picked up by the function GetParameters.
     Your program can then manipulate the parameters in any way you
     wish.  In this example, any backSlashes in the parameter string
     are considered to divide it up.
}
{$I parametr.lib}
var
  TheseParameters : CommandLine;
  OneParameter    : CommandLine;
begin
  WriteLn; WriteLn;
  WriteLn('These are the parameters passed on the command line:');
  TheseParameters := GetParameters;
  repeat
    if pos('/',TheseParameters) <> 0 then
      begin
        OneParameter := copy(TheseParameters,1,pos('/',TheseParameters)-1);
        delete(TheseParameters,1,pos('/',theseParameters));
      end
    else
      begin
        OneParameter := TheseParameters;
        TheseParameters := '';
      end;
    WriteLn(OneParameter);
  until TheseParameters = '';
end.
