Terminal Project Definitions

Neutrality Record Structure

Type
	SSNString=String[9];
	StateString=String[2];
	NameString=String[20];
	AddressString=String[30];
	ZipString=String[9];
	DateString=String[6]; {mmddyy}
	IdentificationString=String[5];
	MembershipType=(Gold,Silver,Bronze);
	MaritalStatusType=(single,married,divorced,widowed);
	GenderType=(male,female);
	Preference=String[8]; {"Home"|"Business"}
	
	NameRecord=Record
		fLastName:NameString;
		fFirstName:NameString;
		fMiddleInitial:char;
		end;{name record}
		
	Personal=Record
		fSSN:SSNString;
		fName:NameRecord;
		MailChoice:Preference;
		fAddressLine1:AddressString; {street address}
		fAddressLine2:AddressString; {business name if preference is home then ""}
		fCity:NameString;
		fState:StateString;
		fZipCode:ZipString;
		end;{person}
	
	Member=RECORD
		fCurrent:boolean;
		fMemberNumber:IdentificationString;
		fPerson:Personal;
		fGender:GenderType;
		fMaritalStatus:MaritalStatusType;
		fMembershipDate:DateString;
		fDateOfBirth:DateString;
		fMemberType:MembershipType
		end;{member}
		
	MembershipListType=File of Member;