Return to pointer.p CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / pascal / pdx / test

Annotation of 42BSD/ucb/pascal/pdx/test/pointer.p, revision 1.1

1.1     ! root        1: program pointer(input, output);
        !             2: type   xp = ^x;
        !             3:        x = record
        !             4:                y : integer;
        !             5:                a : real;
        !             6:        end;
        !             7: 
        !             8: var    p : xp;
        !             9: begin
        !            10:        new(p);
        !            11:        p^.y := 5;
        !            12:        p^.a := 3.14;
        !            13:        writeln('pointer test');
        !            14: end.

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