1: program argtest(input, output);
   2: var i : integer;
   3:     s : array[1..10] of char;
   4: begin
   5:     for i := 1 to argc - 1 do begin
   6:         argv(i, s);
   7:         writeln('arg ', i:1, ' = ', s);
   8:     end;
   9:     write('i? ');
  10:     readln(i);
  11: end.
Last modified: 1984-04-01
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 508
Valid CSS Valid XHTML 1.0 Strict