home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / TP_301A.ZIP / cmdlin.pas next >
Pascal/Delphi Source File  |  1985-01-01  |  768b  |  39 lines
  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. 0 Reference Manual.
  29. }
  30.  
  31.  
  32. var
  33.   i : integer;
  34.  
  35. begin
  36.   for i := 1 to ParamCount do
  37.     writeln(ParamSTR(i));
  38. end.
  39.