Return to args.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / pdx / test

Annotation of 43BSDReno/pgrm/pascal/pdx/test/args.p, revision 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.