Return to args.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / pdx / test

BSD 4.3tahoe

program argtest(input, output);
var i : integer;
	s : array[1..10] of char;
begin
	for i := 1 to argc - 1 do begin
		argv(i, s);
		writeln('arg ', i:1, ' = ', s);
	end;
	write('i? ');
	readln(i);
end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.