148071Sbostic(* 2*62154Sbostic * Copyright (c) 1980, 1993 3*62154Sbostic * The Regents of the University of California. All rights reserved. 448071Sbostic * 548071Sbostic * %sccs.include.redist.c% 648071Sbostic * 7*62154Sbostic * @(#)args.p 8.1 (Berkeley) 06/06/93 848071Sbostic *) 948071Sbostic 1048071Sbosticprogram argtest(input, output); 1148071Sbosticvar i : integer; 1248071Sbostic s : array[1..10] of char; 1348071Sbosticbegin 1448071Sbostic for i := 1 to argc - 1 do begin 1548071Sbostic argv(i, s); 1648071Sbostic writeln('arg ', i:1, ' = ', s); 1748071Sbostic end; 1848071Sbostic write('i? '); 1948071Sbostic readln(i); 2048071Sbosticend. 21