home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pascal / tests / t13.p < prev    next >
Text File  |  1980-02-17  |  1KB  |  57 lines
  1. program rec(output);
  2. type
  3.     alfa = packed array[1..10] of char;
  4.     status = (married, widowed, divorced, single);
  5.     date = record
  6.         mo: (jan, feb, mar, apr, may, jun,
  7.             july, aug, sept, oct, nov, dec);
  8.         day: 1..31;
  9.         year: integer
  10.         end;
  11.     person = record
  12.         name: record
  13.             first, last: alfa
  14.             end;
  15.         ss: integer;
  16.         sex: (male, female);
  17.         birth: date;
  18.         depdts: integer;
  19.         case ms: status of
  20.             married, widowed: (
  21.                 mdate: date);
  22.             divorced: (
  23.                 ddate: date;
  24.                 firstd: boolean);
  25.             single: (
  26.                 indepdt: boolean)
  27.         end;
  28. var
  29.     pp: person;
  30.     p: ^person;
  31. begin
  32.     pp.name.last := 'woodyard';
  33.     pp.name.first := 'edward';
  34.     pp.ss := 845680539;
  35.     pp.sex := male;
  36.     pp.birth.mo := aug;
  37.     pp.birth.day := 30;
  38.     pp.birth.year := 1941;
  39.     pp.depdts := 1;
  40.     pp.ms := single;
  41.     pp.indepdt := true;
  42.  
  43.     new(p);
  44.     p^.name.last := 'woodyard';
  45.     p^.name.first := 'edward';
  46.     p^.ss := 845680539;
  47.     p^.sex := male;
  48.     p^.birth.mo := aug;
  49.     p^.birth.day := 30;
  50.     p^.birth.year := 1941;
  51.     p^.depdts := 1;
  52.     p^.ms := single;
  53.     p^.indepdt := true;
  54.     if pp = p^ then
  55.         writeln(true);
  56. end.
  57.