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

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.