Return to arrays.p CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / dbx / tests / pc

Annotation of 43BSD/ucb/dbx/tests/pc/arrays.p, revision 1.1.1.1

1.1       root        1: program test (input, output);
                      2: type
                      3:     Color = (RED, BLUE, GREEN);
                      4:     IntArray = array [1..10] of integer;
                      5: var a : IntArray;
                      6:     i : integer;
                      7:     b : array [Color] of integer;
                      8:     c : Color;
                      9: 
                     10: procedure p (i : integer; var a : IntArray; j : integer);
                     11: begin
                     12:     a[3] := i;
                     13:     a[4] := j;
                     14: end;
                     15: 
                     16: begin
                     17:     for i := 1 to 10 do begin
                     18:        a[i] := i;
                     19:     end;
                     20:     p(4, a, 5);
                     21:     b[BLUE] := 3;
                     22:     c := RED;
                     23: end.

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