Return to varnt.p CVS log

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

Annotation of 43BSDReno/pgrm/pascal/pdx/test/varnt.p, revision 1.1

1.1     ! root        1: program varnt(input, output);
        !             2: type
        !             3:        vrec = record
        !             4:                rfield : integer;
        !             5:                case integer of
        !             6:                1: (
        !             7:                        vfield : integer;
        !             8:                );
        !             9:                2: (
        !            10:                        vfield2 : real;
        !            11:                );
        !            12:        end;
        !            13: 
        !            14: var
        !            15:        r : vrec;
        !            16: begin
        !            17:        r.vfield := 1;
        !            18:        r.vfield2 := 2.5;
        !            19:        r.rfield := 0;
        !            20:        writeln('done');
        !            21: end.

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