4.3BSD - /usr/src/ucb/dbx/tests/pc/records.p

   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.