
{  18/7/87  21:33   formats}

%recordformat line40f( %c
%record(line40f)%name next,prev,%string(40) line)
%recordformat line40listf( %c
%record(line40f)%name head,tail)
%recordformat line80f( %c
%record(line80f)%name next,prev,%string(80) line)
%recordformat line80listf( %c
%record(line80f)%name head,tail)
%recordformat interestf( %c
%record(interestf)%name next,prev,%record(line40f)%name line)
%recordformat interestlistf( %c
%record(interestf)%name head,tail)
%recordformat personf( %c
%record(personf)%name next,prev,
%string(80) degrees,
%record(line80f) department,
%string(63) emailaddr,
%string(15) ext,
%record(line80listf) extra,
%record(line80f) firm,
%string(40) forenames,
%record(line80listf) homeaddr,%string(31) homephone,
%string(63) ID,
%string(15) initials,
%record(interestlistf)%name interests,
%record(line80listf) officeaddr,
%string(31) officephone,
%string(15) room,style,
%string(80) surname,
%string(31) telex)
%recordformat personlistf(%record(personf)%name head,tail)

%endoffile

