Return to args.p CVS log

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

Annotation of 43BSDTahoe/ucb/pascal/pdx/test/args.p, revision 1.1.1.1

1.1       root        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.

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