Return to records.p CVS log

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

Annotation of 43BSDReno/pgrm/dbx/tests/pc/records.p, revision 1.1.1.1

1.1       root        1: program recordtest (input, output);
                      2: type
                      3:     Rec = record
                      4:        charValue : char;
                      5:        intValue : integer;
                      6:        subrange : 0..1000;
                      7:        realValue : real;
                      8:     end;
                      9: var
                     10:     r : Rec;
                     11: begin
                     12:     r.charValue := 'c';
                     13:     r.intValue := 3;
                     14:     r.subrange := 10;
                     15:     r.realValue := 3.4;
                     16: end.

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