1*48071Sbostic(* 2*48071Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*48071Sbostic * All rights reserved. 4*48071Sbostic * 5*48071Sbostic * %sccs.include.redist.c% 6*48071Sbostic * 7*48071Sbostic * @(#)args.p 5.1 (Berkeley) 04/16/91 8*48071Sbostic *) 9*48071Sbostic 10*48071Sbosticprogram argtest(input, output); 11*48071Sbosticvar i : integer; 12*48071Sbostic s : array[1..10] of char; 13*48071Sbosticbegin 14*48071Sbostic for i := 1 to argc - 1 do begin 15*48071Sbostic argv(i, s); 16*48071Sbostic writeln('arg ', i:1, ' = ', s); 17*48071Sbostic end; 18*48071Sbostic write('i? '); 19*48071Sbostic readln(i); 20*48071Sbosticend. 21