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

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.