Return to index.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/index.p, revision 1.1

1.1     ! root        1: program t(output);
        !             2: var
        !             3: a :array[1..10, 1..10] of integer;
        !             4: i :1..10;
        !             5: j, count :integer;
        !             6: procedure foo;
        !             7: var
        !             8: a :array[1..10, 1..10] of integer;
        !             9: i :1..10;
        !            10: procedure bar;
        !            11: begin
        !            12: a[1,i] := 210;
        !            13: a[2,i] := 220;
        !            14: a[i,1] := 230;
        !            15: a[i,2] := 240;
        !            16:        if j = count then
        !            17:                writeln('lvl2:', a[1,5], a[2,5], a[5,1], a[5,2]);
        !            18: end;
        !            19: begin
        !            20: i := 4;
        !            21: a[1,i] := 110;
        !            22: a[2,i] := 120;
        !            23: a[i,1] := 130;
        !            24: a[i,2] := 140;
        !            25:        if j = count then
        !            26:                writeln('lvl1:', a[1,4], a[2,4], a[4,1], a[4,2]);
        !            27: i := 5;
        !            28: bar;
        !            29: end;
        !            30: begin
        !            31: writeln('enter repeat count');
        !            32: readln(count);
        !            33: for j := 1 to count do begin
        !            34:        i := 3;
        !            35:        a[1,i] := 10;
        !            36:        a[2,i] := 20;
        !            37:        a[i,1] := 30;
        !            38:        a[i,2] := 40;
        !            39:        if j = count then
        !            40:                writeln('main:', a[1,3], a[2,3], a[3,1], a[3,2]);
        !            41:        foo;
        !            42: end;
        !            43: end.

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