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 / t14.p < prev    next >
Text File  |  1980-02-17  |  781b  |  43 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.     p: ^person;
  30. begin
  31.     new(p);
  32.     p^.name.last := 'woodyard';
  33.     p^.name.first := 'edward';
  34.     p^.ss := 845680539;
  35.     p^.sex := male;
  36.     p^.birth.mo := aug;
  37.     p^.birth.day := 30;
  38.     p^.birth.year := 1941;
  39.     p^.depdts := 1;
  40.     p^.ms := single;
  41.     p^.indepdt := true;
  42. end.
  43.