Return to t18.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/t18.p, revision 1.1

1.1     ! root        1: program Main(output);
        !             2: type
        !             3:        t = record
        !             4:                a: real;
        !             5:                b: integer;
        !             6:        end;
        !             7: var
        !             8:        x: t;
        !             9: begin
        !            10:        with x do begin a:=1.0; b:=1; end;
        !            11:        writeln(x.a, x.b);
        !            12: end.

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