Return to t14.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/t14.p, revision 1.1.1.1

1.1       root        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.

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