4.3BSD - /usr/src/ucb/pascal/pdx/test/args.p

   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.