

{  18/2/88  12:07   persons.inc}

%constinteger hhmax=51
%externalroutinespec isolate ids(%record(line80listf)%name a)
%externalroutinespec print label style
%externalroutinespec print label(%record(line80listf)%name b)
%externalrealfnspec printlength(%string(255) s,%string(31) font)
%externalroutinespec prec(%record(personf)%name p)
%externalroutinespec preclist(%record(personlistf)%name l,%string(255) s)
%externalroutinespec print lines(%record(line80listf)%name l)
%externalstring(15)%arrayspec prt(0:hhmax)
%recordformat sourcef(%record(sourcef)%name next,prev,
%record(personf)%name atid)
%recordformat sourcelistf(%record(sourcef)%name head,tail)
%externalrecord(personlistf)%spec dests1
%externalintegerfnspec panswer(%integer n)
%externalroutinespec clear person(%record(personf)%name a)
%externalroutinespec concatpersonlists(%record(personlistf)%name a,b)
%externalroutinespec concatsourcelists(%record(sourcelistf)%name a,b)
%externalroutinespec get(%string(*)%name a,%integer n)
%externalroutinespec get address(%record(line80listf)%name address,
%integer n)
%externalroutinespec get lines(%record(line80listf)%name lines,%integer n)
%externalroutinespec get recipients(%record(personlistf)%name noname,
%integer n,control)
%externalroutinespec identify(%record(personlistf)%name noname,
%string(255) file,%integer control)
%externalroutinespec input(%string(*)%name a,%integer n)
%externalroutinespec input address(%record(line80listf)%name address,
%integer n)
%externalroutinespec input lines(%record(line80listf)%name lines,%integer n)
%externalroutinespec insert line80list before( %c
%record(line80listf)%name a,b,%record(line80f)%name p)
%externalroutinespec insertpersonlistbefore(%record(personlistf)%name a,b,
%record(personf)%name p)
%externalrecord(line80f)%mapspec newline80
%externalrecord(line80listf)%mapspec newline80list
%externalrecord(personf)%mapspec newperson
%externalrecord(personlistf)%mapspec newpersonlist
%externalrecord(sourcef)%mapspec newsource
%externalrecord(sourcelistf)%mapspec newsourcelist
%externalroutinespec print address(%record(line80listf)%name address,
%string(15) use)
%externalroutinespec print person(%record(personf)%name a,%string(15) use)
%externalroutinespec print personlist(%record(personlistf)%name plist,
%string(255) s)
%externalroutinespec prune(%string(*)%name a)
%externalroutinespec prune and lower(%string(*)%name a)
%externalroutinespec prune lines(%record(line80listf)%name a)
%externalroutinespec read person(%record(personf)%name a)
%externalroutinespec reedit person(%record(personf)%name a)
%externalroutinespec sort persons(%record(personf)%array(1)%name x,
%integer n)

%endoffile

