Subversion Repositories NedoOS

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download

  1. program CommandLine;
  2. {
  3.   COMMANDLINE PARAMETERS DEMONSTRATION PROGRAM  Version 1.00A
  4.  
  5.   This program gets parameters from the command line:
  6.  
  7.   INSTRUCTIONS
  8.     1.  Load the TURBO compiler and compile to a .COM file
  9.     2.  Quit the TURBO compiler and execute the program with
  10.         parameters.  Try:
  11.  
  12.                 cmdlin abc def
  13.                 cmdlin Greetings from Frank Borland!
  14.                 cmdlin
  15.  
  16.   NOTE:  For information about these functions, please refer to your
  17.          TURBO 3.0 Reference Manual.
  18. }
  19.  
  20.  
  21. var
  22.   i : integer;
  23.  
  24. begin
  25.   for i := 1 to ParamCount do
  26.     writeln(ParamSTR(i));
  27. end.
  28.  
  29.