
procedure c0001s882; begin CNQ:=0.0; ASY1:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(QUITD-MAX(HIRED,BIRTHD+22.0))*
ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; VR1MAN7:=ord(
WAGE(SURVEYD)>=9000.0)*0.03; PCMAN7:=VR1MAN7; MAN7:=SUMI(PCMAN7,
7.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.06*a(AGE,56.0,55.0)+0.07*a(
AGE,59.0,56.0)+0.13*a(AGE,60.0,59.0)); RED7:=NN(1.0-0.04*o(65.0,
AGE)); RED13:=JSRED; RAS1:=(AGE>=70.0)!(AGE>=60.0)&(ASY2>=10.0);
RAS2:=(AGE>=65.0)!(AGE>=60.0)&(ASY2>=10.0); RAS3:=(AGE>=60.0)&(
ASY1>=15.0); RAS4:=(AGE>=55.0)&(ASY2>=10.0); RAS5:=ASY1>=30.0;
RAS13:=(ASY2>=10.0)!(AGE>=55.0)&(ASY2>=10.0)!(AGE+ASY2>=70.0);
ROT2:=PARTD<1980.167; LNG2:=BIRTHD+62.0; LNG3:=BIRTHD+65.0;
BGN4:=MAX(BIRTHD+62.0,QUITD); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=(0.01125*u(FAP1,6600.0)+0.02*o(FAP1,6600.0))*ASY1;
NR1Q:=ord(RAS2&ROT2)*NR1; NR2:=(120.0+3.0*b(FAP1,10600.0,15660.0)
/220.0+0.015*o(FAP1,15660.0))*ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=
1200.0+96.0*b(ASY1,10.0,30.0); NR3Q:=ord(RAS1)*AA(QUITD,LNG2)*
NR3; NR4:=660.0+12.0*b(ASY1,15.0,35.0); NR4Q:=ord(RAS3)*AA(QUITD,
LNG3)*NR4; NRT:=MAX(NR1+NR3,NR1+NR4,NR2+NR3,NR2+NR4); NRQ:=MAX(
NR1Q+NR3Q,NR1Q+NR4Q,NR2Q+NR3Q,NR2Q+NR4Q); LRQ:=NRQ; MRAGE:=70.0;
ER1:=NR1*RED4; ER1Q:=ord(RAS4&ROT2)*ER1; ER2:=NR2*RED4; ER2Q:=
ord(RAS4)*ER2; ER3:=7200.0; ER3Q:=ord(RAS5)*AA(QUITD,LNG2)*ER3;
ER4:=NR1; ER4Q:=ord(RAS5&ROT2)*AA(BGN4,0.0)*ER4; ER5:=NR2; ER5Q:=
ord(RAS5)*AA(BGN4,0.0)*ER5; ERT:=MAX(ER1,ER2,ER3+MAX(ER4,ER5));
ERQ:=MAX(ER1Q,ER2Q,ER3Q+MAX(ER4Q,ER5Q)); VD1:=NR1*RED7; VD1Q:=
ord(ROT2)*AA(BEG7,0.0)*VD1; VD2:=NR2*RED7; VD2Q:=AA(BEG7,0.0)*
VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=NR1*
RED13; DS1Q:=ord(RAS13&ROT2)*DS1; DS2:=NR2*RED13; DS2Q:=ord(
RAS13)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(QUITAGE>=70.0)!(ASY1>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,
VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG7,BGN4,LNG3,LNG2,RED13,RED7,RED4,MAN7,PCMAN7,VR1MAN7,FDMAN7,
SDMAN7,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0002s3; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+22.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0)
;SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(
WAGE,SDFAP1,FDFAP1); RED4:=NN(1.0-0.04*o(65.0,AGE)); RED13:=
JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=(
AGE>=40.0)&(ASY1>=15.0); BEG7:=ANYTIME(BIRTHD+55.0,0.0); NR1:=
0.0025*FAP1*ASY1+3.0*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=
NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q;
DS1:=0.5*NRT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,
FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0003s785; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-36.0/12.0),FDFAP1)
/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; VR1MAN7:=ord(1200.0>WAGE(
SURVEYD))*0.04+ord(WAGE(SURVEYD)>=1200.0)*0.05; PCMAN7:=VR1MAN7;
MAN7:=SUMI(PCMAN7,7.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.03*o(
62.0,AGE)); RED10:=OTHERB; RED13:=JSRED; RAS1:=(AGE>=55.0)&(
ASY1>=30.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(AGE>=60.0)&(ASY1>=
10.0); RAS10:=ASY1>=10.0; RAS13:=ASY1>=20.0; BEG7:=MAX(NRD,QUITD)
;BEG13:=ANYTIME(BIRTHD+50.0,0.0); NR1:=NN(0.02*FAP1-100.0)*ASY1;
NR1Q:=ord(RAS1)*NR1; NR2:=40.0*ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=
MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0;
VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
NN(0.02*FAP1-100.0)*ASY1-RED10; DR1Q:=ord(RAS10)*DR1; DR2:=FAP1-
RED10; DR2Q:=ord(RAS10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,
DR2Q)*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*AA(BEG13,0.0)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG13,BEG7,RED13,RED10,RED4,MAN7,PCMAN7,
VR1MAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0004s270; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1958.0)-HIRED)*ord(WRKHRS>=320.0)*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0,1982.0)-MAX(HIRED,1958.0))*ord(WRKHRS>=320.0)*1.0;
ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1982.0))*ord(WRKHRS>=
320.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,1958.0); FAP1:=ord(
FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+
65.0,1982.0); SDFAP2:=MAX(HIRED,1958.0); FAP2:=ord(FDFAP2>SDFAP2)
*AVG(WAGE,SDFAP2,FDFAP2); FDFAP3:=MIN(QUITD,BIRTHD+65.0);
SDFAP3:=MAX(HIRED,1982.0); FAP3:=ord(FDFAP3>SDFAP3)*SUM(WAGE,
SDFAP3,FDFAP3); RED4:=NN(1.0-0.05*o(65.0,AGE)); RED7:=AR(NRD-
BENIFITD); RED13:=JSRED; RAS1:=AGE>=65.0; ASY53:=ASY1+ASY2+ASY3;
RAS2:=(AGE>=62.0)&(ASY53>=10.0); RAS4:=(AGE>=60.0)!(AGE>=55.0)&(
ASY53>=10.0); RAS10:=(AGE>=55.0)&(ASY53>=5.0); ROT1:=1982.0<=
QUITD; ROT2:=PARTD<1938.0; ROT3:=(PARTD<1938.0)&(1958.0<=QUITD);
ROT4:=(PARTD<1958.0)&(1982.0<=QUITD); BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+70.0); NR1:=0.01*FAP1*u(ASY1,20.0)+0.005*FAP1*o(ASY1,20.0)
+0.0025*FAP2*ASY2; NR1Q:=ord(RAS1&ROT2)*NR1; NR2:=0.01*FAP1*ASY1+
0.005*FAP2*u(ASY2,NN(20.0-ASY1))+0.0025*FAP2*o(ASY2,NN(20.0-
ASY1)); NR2Q:=ord(RAS1&ROT3)*NR2; NR3:=0.005*FAP2*u(ASY2,20.0)+
0.0025*FAP2*b(ASY2,20.0,24.0); NR3Q:=ord(RAS1&ROT4)*NR3; NR4:=
ASY3*(4.5+b(FAP3,4175.0,22100.0)/7170.0); NR4Q:=ord(RAS1&ROT1)*
NR4; NR5:=240.0; NR5Q:=ord(RAS2&ROT1)*NR5; NRT:=MAX(NR5,NR1+NR4,
NR2+NR4,NR3+NR4); NRQ:=MAX(NR5Q,NR1Q+NR4Q,NR2Q+NR4Q,NR3Q+NR4Q);
LRQ:=NRQ; MRAGE:=70.0; ER1:=MAX(NR1+NR4,NR2+NR4,NR3+NR4)*RED4;
ER1Q:=ord(RAS4&ROT4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NR1; VD1Q:=
ord(ROT2)*AA(BEG7,0.0)*VD1; VD2:=NR2; VD2Q:=ord(ROT3)*AA(BEG7,
0.0)*VD2; VD3:=NR3; VD3Q:=ord(ROT4)*AA(BEG7,0.0)*VD3; VD4:=NR4;
VD4Q:=ord(ROT1)*AA(BEG7,0.0)*VD4; VDT:=MAX(VD1+VD4,VD2+VD4,VD3+
VD4)*RED7; VDQ:=MAX(VD1Q+VD4Q,VD2Q+VD4Q,VD3Q+VD4Q)*RED7; DR1:=
ERT; DR1Q:=ord(RAS10&ROT4)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*
ERT*RED13; DS1Q:=ord(RAS4&ROT4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=
0.0; VEDB:=VOPT(1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG7,ASY53,RED13,RED7,RED4,FAP3,SDFAP3,FDFAP3,FAP2,
SDFAP2,FDFAP2,FAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0005s883; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+21.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,1976.0)
-HIRED)*ord(WRKHRS>=780.0)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1976.0))
*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-60.0/12.0),FDFAP1); RED4:=1.0-(0.036*a(AGE,59.0,
55.0)+0.06*a(AGE,62.0,59.0)+0.084*a(AGE,65.0,62.0)); RED13:=
COSTRED; RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2; RAS2:=(AGE>=65.0)&(
ASY51>=20.0); RAS4:=(AGE>=55.0)&(ASY51>=20.0); ROT4:=QAPPROVL;
ROT7:=ASY1+ASY2>=70.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); BEG8:=MAX(NRD,QUITD); NR1:=0.02*FAP1*u(ASY1+
ASY2,10.0); NR1Q:=ord(RAS1)*NR1; NR2:=0.01*FAP1*u(ASY1+ASY2,30.0)
;NR2Q:=ord(RAS2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q);
LRQ:=AI(AGE,65.0,66.0)*NRQ; MRAGE:=66.0; ER1:=NRT*RED4; ER1Q:=
ord(RAS4&ROT4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=ord(
ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=ERT; DR1Q:=ord(RAS4&
ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,ASY51,
RED13,RED4,FAP1,FDFAP1,ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0007s2; begin CNQ:=0.0; ASY1:=MIN(40.0,QUITD-HIRED)*
1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.08; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.04*o(55.0,AGE)); RAS1:=(
AGE>=55.0)&(ASY1>=10.0); RAS4:=(AGE>=50.0)&(ASY1>=10.0); ROT10:=
QJRDABLE; ROT11:=^QJRDABLE; BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+
55.0); NR1:=0.025*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=2400.0;
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q);
LRQ:=NRQ; MRAGE:=65.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DR1:=0.025*FAP1*MAX(25.0,ASY1); DR1Q:=ord(ROT10)*DR1; DR2:=
0.025*FAP1*ASY1; DR2Q:=ord(ROT11)*DR2; DR3:=1800.0; DR3Q:=ord(
ROT10)*DR3; DRT:=MAX(DR1,DR2,DR3); DRQ:=MAX(DR1Q,DR2Q,DR3Q);
DS1:=0.667*DR1; DS1Q:=ord(ROT10)*DS1; DS2:=0.667*DR2; DS2Q:=ord(
ROT11)*DS2; DS3:=0.667*DR3; DS3Q:=ord(ROT10)*DS3; DST:=MAX(DS1,
DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q); PRAG:=MIN(0.95*ACPIG,0.04);
VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASY1>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0008s625; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; FAP1:=AVG(WAGE,HIRED,QUITD)/12.0; SDVOL7:=
HIRED; FDVOL7:=QUITD; PCVOL7:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL7:=SUMI(PCVOL7,2.0,0.0,
SDVOL7,FDVOL7); SS1:=SS(1.0,BENIFITD)/12.0; RAS1:=(AGE>=65.0)&(
ASY1>=10.0); BEG7:=MAX(NRD,QUITD); NR1:=NN(0.012315*FAP1*ASY1-
0.7406*SS1); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=
NRQ; MRAGE:=999.0; ERQ:=0.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DSQ:=0.0; PRAG:=0.0; VEDB:=VOPT(
1.0); if min( VEDB,PRAG,DSQ,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,SS1,VOL7,PCVOL7,FDVOL7,SDVOL7,FAP1,ASY1,
CNQ) <0 then negative end;

procedure c0009s887; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,1974.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0,
1974.0)-(HIRED+1.0))*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*
1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,1974.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FDFAP2:=MIN(
QUITD,BIRTHD+65.0,1974.0); SDFAP2:=MAX(HIRED,1971.0); FAP2:=ord(
FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); RED4:=AR(NRD-BENIFITD);
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)!(AGE>=50.0)&(
ASY4>=10.0); BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+65.0); NR1:=(0.01*
u(FAP1,4800.0)+0.0225*o(FAP1,4800.0))*ASY1+(0.0125*u(FAP2,
4800.0)+0.02*o(FAP2,4800.0))*ASY2; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=AI(AGE,65.0,70.0)*NRQ; MRAGE:=70.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=ERT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,
FDFAP1,ASY4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0011s1054; begin CNQ:=0.0; ASY1:=NNMIN(20.0,MIN(QUITD,
BIRTHD+60.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY7:=BIRTHD+60.0-
HIRED; PSY8:=MIN(20.0,BIRTHD+60.0-HIRED); FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); FAP10:=WAGE(QUITD);
RED4:=1.0-(0.04*a(AGE,55.0,50.0)+0.06*a(AGE,60.0,55.0)); RED13:=
COSTRED; RAS1:=AGE>=60.0; RAS4:=(AGE>=50.0)&(ASY1>=5.0); LNG2:=
BIRTHD+SSAGE(2.0); BEG7:=MAX(NRD,QUITD); BEG8:=ANYTIME(BIRTHD+
50.0,0.0); BEG10:=MAX(NRD,QUITD); NR1:=0.02*FAP1*ASY1; NR1Q:=ord(
RAS1)*NR1; NR2:=6000.0; NR2Q:=ord(RAS1)*AA(QUITD,LNG2)*NR2; NRT:=
NR1+NR2; NRQ:=NR1Q+NR2Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(
BEG8,0.0)*VD1; VD2:=0.02*FAP1*ASY1*PSY8/PSY7; VD2Q:=AA(BEG7,0.0)*
VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=0.02*FAP10*
ASY1; DR1Q:=ord(RAS1)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=60.0)!(ASY1>=10.0)!(QUITAGE>=
40.0)&(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG8,BEG7,LNG2,RED13,RED4,
FAP10,FAP1,FDFAP1,PSY8,PSY7,ASY1,CNQ) <0 then negative end;

procedure c0012s1008; begin CNQ:=0.0; ASY1:=MIN(30.0,QUITD-HIRED)
*NNMIN(1.0,WRKHRS/960.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
0.08; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.05*
a(AGE,60.0,58.0)+0.03*a(AGE,65.0,60.0)); RED5:=NN(1.0-0.05*o(
30.0,ASY1)); RED13:=JSRED; RAS1:=(ASY1>=30.0)!(AGE>=65.0)&(ASY1>=
5.0); RAS4:=(AGE>=60.0)&(ASY1>=5.0); RAS5:=(AGE>=55.0)&(ASY1>=
25.0); RAS10:=ASY1>=5.0; RAS13:=ASY1>=1.0; RAS14:=ASY1>=10.0;
ROT7:=^QWDMAN; BEG7:=MAX(NRD,QUITD); BEG8:=MAX(ERD,QUITD);
BEG14:=MAX(BIRTHD+62.0,QUITD); NR1:=0.02*FAP1*ASY1; NR1Q:=ord(
RAS1)*NR1; NR2:=86.0*ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=0.9*FAP1;
NR3Q:=ord(RAS1)*NR3; NRT:=MIN(MAX(NR1,NR2),NR3); NRQ:=MIN(MAX(
NR1Q,NR2Q),NR3Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=
ord(RAS4)*ER1; ER2:=NRT*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,
ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG8,0.0)
*VD1; VD2:=NRT; VD2Q:=ord(ROT7)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DR2:=
0.3*FAP1; DR2Q:=ord(RAS10)*DR2; DR3:=0.75*FAP1; DR3Q:=ord(RAS10)*
DR3; DRT:=MIN(MAX(DR1,DR2),DR3); DRQ:=MIN(MAX(DR1Q,DR2Q),DR3Q);
DS1:=MAX(96.0,0.25*FAP1); DS1Q:=ord(RAS13)*DS1; DS2:=MAX(106.0,
0.25*FAP1); DS2Q:=ord(RAS14)*AA(BEG14,0.0)*DS2; DS3:=ER1*RED13;
DS3Q:=ord(RAS4)*DS3; DS4:=ER2*RED13; DS4Q:=ord(RAS5)*DS4; DST:=
MAX(DS1,DS2,MAX(DS3,DS4)); DSQ:=MAX(DS1Q,DS2Q,MAX(DS3Q,DS4Q))*
12.0; PRAG:=ord(ACPIG>=0.03)*MIN(0.95*ACPIG,0.03); VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG14,BEG8,BEG7,
RED13,RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ)
<0 then negative end;

procedure c0013s224; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
ASY2:=NN(QUITD-MAX(HIRED,BIRTHD+22.0))*1.0; FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); RED4:=NN(1.0-0.04*o(64.0,
AGE)); RED5:=NN(1.0-0.04*o(65.0,AGE)); RED7:=AR(64.0-AGE); RED8:=
AR(65.0-AGE); RED13:=COSTRED; RAS1:=(AGE>=65.0)&(ASY1>=1.0);
RAS2:=(AGE>=64.0)&(ASY1>=30.0); RAS4:=(AGE>=55.0)&(ASY2>=30.0);
RAS5:=(AGE>=55.0)&(ASY1>=1.0); RAS10:=ASY1>=1.0; ROT7:=ASY2>=
30.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+64.0); BEG8:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=0.2*FAP1+(0.01*u(ASY1,30.0)+0.005*
o(ASY1,30.0))*FAP1-1297.0; NR1Q:=ord(RAS1)*NR1; NR2:=NR1; NR2Q:=
ord(RAS2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ;
MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR1*RED5;
ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=NR1*RED7; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NR1*RED8;
VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q);
DR1:=NR1; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*
ER1*RED13; DS1Q:=ord(RAS4)*DS1; DS2:=0.5*ER2*RED13; DS2Q:=ord(
RAS5)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASY2>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,
VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,
NR2,NR1Q,NR1,BEG8,BEG7,RED13,RED8,RED7,RED5,RED4,FAP1,FDFAP1,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0014s282; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1976.0)-(
HIRED+1.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(QUITD-MAX(HIRED+
1.0,1976.0))*ord(WRKHRS>=1000.0)*1.0; ASY4:=NN(QUITD-(HIRED+1.0))
*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0);
SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); SDSS1:=MAX(HIRED,1976.0); SS1:=ord(QUITD>SDSS1)*
SUM(SSBASE,SDSS1,QUITD); RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+
0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY4>=10.0); RAS13:=(AGE>=55.0)&(ASY4>=10.0); BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.01*FAP1*(ASY1+ASY2)+
0.005*o(FAP1,10800.0)*ASY1+0.005*o(FAP1,SS1)*ASY2; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*ERT*
RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,SS1,SDSS1,FAP1,
SDFAP1,FDFAP1,ASY4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0015s1070; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1947.75)
-HIRED)*NNMIN(1.0,WRKHRS/840.0); ASY2:=NN(QUITD-MAX(HIRED,
1947.75))*NNMIN(1.0,WRKHRS/840.0); ASY3:=NN(QUITD-MAX(HIRED,
1976.75))*NNMIN(1.0,WRKHRS/1080.0); PSY10:=BIRTHD+60.0-HIRED;
FDFAP1:=MIN(QUITD,1977.75); SDFAP1:=MAX(HIRED,FDFAP1-24.0/12.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FDFAP2:=QUITD;
SDFAP2:=MAX(HIRED,FDFAP2-60.0/12.0,1977.75); FAP2:=ord(
FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7);
SDMAN8:=HIRED; FDMAN8:=QUITD; PCMAN8:=0.0511; MAN8:=SUMI(PCMAN8,
8.0,0.0,SDMAN8,FDMAN8); RED4:=AR(NRD-BENIFITD); RED5:=AR(65.0-
AGE); RED10:=NN(1.0-0.02*o(55.0,AGE)); RED13:=JSRED; ASY51:=ASY1+
ASY2; RAS1:=(ASY51>=30.0)!(AGE>=60.0)&(ASY51>=5.0); RAS2:=(AGE>=
65.0)&(ASY3>=5.0); RAS4:=(AGE>=55.0)&(ASY51>=25.0); RAS5:=(AGE>=
55.0)&(ASY3>=20.0); RAS11:=ASY51>=5.0; ASY53:=ASY1+ASY2+ASY3;
RAS13:=ASY53>=10.0; ROT1:=PARTD<1972.75; ROT2:=1972.75<=QUITD;
ROT7:=PARTD<1977.75; ROT8:=1977.75<=QUITD; ROT10:=PARTD<1977.75;
ROT11:=1977.75<=QUITD; ROT12:=1973.75<=QUITD; LNG10:=BIRTHD+60.0;
BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); BEG8:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+60.0,QUITD); NR1:=MIN(
0.0142857*FAP1*ASY1+0.02*FAP1*ASY2,0.6*FAP1); NR1Q:=ord(RAS1&
ROT1)*NR1; NR2:=0.02*FAP2*ASY3; NR2Q:=ord(RAS2&ROT2)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=
NR1*RED4; ER1Q:=ord(RAS4&ROT1)*ER1; ER2:=NR2*RED5; ER2Q:=ord(
RAS5&ROT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=ER1;
VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(ROT8)*AA(
BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=MIN(
0.667*FAP1,4200.0); DR1Q:=ord(ROT10)*AA(QUITD,LNG10)*DR1; DR2:=
MAX(0.0142857*FAP1*(ASY1+PSY10)+0.02*FAP1*(ASY2+PSY10),0.6*FAP1)
;DR2Q:=ord(ROT10)*AA(BEG11,0.0)*DR2; DR3:=0.02*FAP1*(ASY1+ASY2)*
RED10; DR3Q:=ord(RAS11&ROT11)*DR3; DR4:=0.02*FAP2*ASY3*RED5;
DR4Q:=ord(ROT12)*DR4; DRT:=MAX(DR1+DR2,DR3,DR4); DRQ:=MAX(DR1Q+
DR2Q,DR3Q,DR4Q); DS1:=0.5*NRT*RED13; DS1Q:=ord(RAS13&ROT1)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord(ASY53>=5.0)*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG11,BEG8,BEG7,
LNG10,ASY53,ASY51,RED13,RED10,RED5,RED4,MAN8,PCMAN8,FDMAN8,
SDMAN8,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP2,SDFAP2,FDFAP2,FAP1, SDFAP1,
FDFAP1,PSY10,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0016s262; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1967.75)-MAX(HIRED+3.0,BIRTHD+30.0))*1.0; ASY2:=MIN(30.0,
QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,1974.5); FAP1:=ord(FDFAP1>SDFAP1)*SUM(
WAGE,SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(
HIRED,FDFAP2-5.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,
FDFAP2); FDFAP3:=MIN(QUITD,BIRTHD+65.0,1974.5); SDFAP3:=MAX(
HIRED,1967.75); FAP3:=ord(FDFAP3>SDFAP3)*SUM(WAGE,SDFAP3,FDFAP3);
SS1:=SS(1.0,BENIFITD); RED4:=AR(NRD-BENIFITD); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=AGE>=55.0; DAT1:=1980.083<=QUITD; DAT2:=(
1967.75<=QUITD)&(QUITD<1974.5); DAT3:=QUITD<1967.75; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.015*FAP1; NR1Q:=ord(
RAS1&DAT1)*NR1; NR2:=(0.5*FAP2-0.5*SS1)*ASY2/30.0; NR2Q:=ord(
RAS1&DAT1)*NR2; NR3:=0.01*FAP3; NR3Q:=ord(RAS1&DAT2)*NR3; NR4:=
0.36*ASY1; NR4Q:=ord(RAS1&DAT3)*NR4; NRT:=MAX(NR1+NR3+NR4,NR2);
NRQ:=MAX(NR1Q+NR3Q+NR4Q,NR2Q); LRQ:=AI(AGE,65.0,999.0)*NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4&DAT1)*ER1; ERT:=ER1;
ERQ:=ER1Q; VD1:=ERT; VD1Q:=ord(DAT1)*AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DRQ:=0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4&DAT1)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY2>=
5.0)*0.5,ord(ASY2>=7.0)*0.7,ord((QUITAGE>=55.0)!(ASY2>=10.0))*
1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG7,RED13,RED4,SS1,FAP3,SDFAP3,FDFAP3,FAP2,SDFAP2,
FDFAP2,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0018s351; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,1981.0)
-HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1981.0))*1.0; ASY3:=NN(MIN(
QUITD,1981.0)-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0;
ASY4:=NN(QUITD-MAX(HIRED,BIRTHD+22.0,1981.0))*ord(WRKHRS>=
1000.0)*1.0; RED4:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY3>=10.0); RAS10:=(AGE>=50.0)&(
ASY3>=10.0); ROT1:=PARTD<1980.0; ROT2:=1980.0<=QUITD; ROT10:=
QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,0.0); NR1:=3.0*ASY1+5.0*ASY2;
NR1Q:=ord(RAS1&ROT1)*NR1; NR2:=3.0*ASY3+5.0*ASY4; NR2Q:=ord(RAS1&
ROT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4&ROT1)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT1)*AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q*12.0; DR1:=NR1; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=
DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4&ROT1)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,ASY4,ASY3,
ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0019s197; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
MIN(HIRED+10.0,BIRTHD+22.0)))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(
QUITD-MAX(HIRED,1978.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(
QUITD,1978.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY1:=BIRTHD+65.0-
HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),
FDFAP1)/12.0; FDFAP2:=MIN(QUITD,1969.5); FAP2:=ord(FDFAP2>HIRED)*
WAGE(FDFAP2)/12.0; SDFAP3:=MAX(HIRED,1969.5); FAP3:=ord(
QUITD>SDFAP3)*SUM(WAGE,SDFAP3,QUITD)/12.0; SS1:=SS(1.0,MAX(
BENIFITD,BIRTHD+65.0))/12.0; RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+
0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=
ASY1+ASY2; RAS4:=(AGE>=60.0)!(AGE>=55.0)&(ASY51>=10.0); RAS10:=(
AGE>=50.0)&(ASY51>=15.0); DAT1:=1978.0<=QUITD; DAT2:=
QUITD<1978.0; ROT1:=1978.0<=QUITD; ROT2:=PARTD<1978.0; ROT10:=
QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.5*FAP1-
0.5*SS1)*(ASY1+ASY2)/MAX(30.0,PSY1); NR1Q:=ord(RAS1&DAT1&ROT1)*
NR1; NR2:=0.005*FAP2*ASY2+0.01*FAP3; NR2Q:=ord(RAS1&DAT1&ROT2)*
NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&DAT1&ROT1)*ER1; ER2:=
NR2*RED4; ER2Q:=ord(RAS4&DAT2&ROT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=
MAX(ER1Q,ER2Q)*12.0; VD1:=ER1; VD1Q:=ord(DAT1&ROT1)*AA(BEG7,0.0)*
VD1; VD2:=ER2; VD2Q:=ord(DAT2&ROT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(
VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(RAS10&
DAT1&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ER1*RED13;
DS1Q:=ord(RAS4&DAT1&ROT1)*DS1; DS2:=0.5*ER2*RED13; DS2Q:=ord(
RAS4&DAT2&ROT2)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=60.0)!(ASYV>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG7,ASY51,RED13,RED4,SS1,FAP3,SDFAP3,
FAP2,FDFAP2,FAP1,FDFAP1,PSY1,ASY2,ASY1,ASYV,CNQ) <0 then
negative end;

procedure c0020s187; begin CNQ:=0.0; ASY1:=NNMIN(30.0,QUITD-MAX(
HIRED,1982.083))*ord(WRKHRS>=1000.0)*1.0; ASY4:=MIN(30.0,QUITD-
HIRED)*1.0; RED4:=AR(65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY4>=15.0); RAS10:=(AGE>=50.0)&(ASY1>=10.0);
ROT7:=ASY4>=15.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,QUITD); NR1:=8.0*ASY1; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0;
VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(
BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=
ERT; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=
NRT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,
RED13,RED4,ASY4,ASY1,CNQ) <0 then negative end;

procedure c0021s288; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1970.5)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1970.5))*1.0; ASY3:=NN(
MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; FDFAP1:=
MIN(QUITD,BIRTHD+65.0,1970.5); FAP1:=ord(FDFAP1>HIRED)*WAGE(
FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,
1970.5); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); RED4:=
AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY3>=5.0);
RAS4:=(AGE>=55.0)&(ASY3>=15.0); LNG13:=5.0; BEG7:=MAX(NRD,QUITD);
BEG14:=QUITD+5.0; NR1:=0.01*FAP1*ASY1+0.01*u(FAP2,7800.0)+0.015*
o(FAP2,7800.0)*ASY2; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DRQ:=0.0; DS1:=ERT*RED13; DS1Q:=ord(RAS4)*AA(QUITD,LNG13+
QUITD)*DS1; DS2:=0.5*ERT*RED13; DS2Q:=ord(RAS4)*AA(BEG14,0.0)*
DS2; DST:=DS1+DS2; DSQ:=DS1Q+DS2Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY3>=15.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG14,BEG7,LNG13,RED13,RED4,FAP2,SDFAP2,
FDFAP2,FAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0022s188; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY4:=MIN(35.0,NN(
BIRTHD+65.0-MAX(HIRED,BIRTHD+25.0))); FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-36.0/12.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,BENIFITD);
SS10:=SS(1.0,BENIFITD); RED4:=NN(1.0-0.06*o(65.0,AGE)); RED5:=NN(
1.0-0.02*o(65.0,AGE)); RED13:=JSRED; RED14:=COSTRED; RAS1:=AGE>=
65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS5:=(AGE>=62.0)&(ASY1>=
30.0); RAS10:=ASY1>=10.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+65.0,
QUITD); NR1:=(0.7*FAP1-0.01*FAP1/400.0*SS1)*ASY1/35.0; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=(0.7*
FAP1-0.01*FAP1/400.0*SS1)*PSY4/35.0*ASY1/PSY4*RED4; ER1Q:=ord(
RAS4)*ER1; ER2:=(0.7*FAP1-0.01*FAP1/400.0*SS1)*PSY4/35.0*ASY1/
PSY4*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q); VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT; DR1Q:=ord(RAS10)*AA(BEG11,0.0)*DR1; DR2:=(0.7*FAP1-
0.01*FAP1/400.0*SS10)*PSY4/35.0*ASY1/PSY4*RED4; DR2Q:=ord(RAS10)*
AA(BEG10,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=
NR1*RED13*RED14*0.5; DS1Q:=ord(RAS1)*DS1; DS2:=ER1*RED13*RED14*
0.5; DS2Q:=ord(RAS4)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q);
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG11,BEG10,BEG7,RED14,RED13,RED5,RED4,SS10,SS1,
FAP1,SDFAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0023s185; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/1615.0)
;RED4:=NN(1.0-0.06*o(65.0,AGE)); RED10:=OTHERB; RED13:=JSRED;
RED14:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)&(ASY1>=10.0);
RAS10:=ASY1>=10.0; LNG10:=NRD; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+
65.0); NR1:=11.5*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*
12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q*12.0; DR1:=9.5*ASY1-RED10; DR1Q:=ord(RAS10)*AA(
QUITD,LNG10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*RED14*
0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,LNG10,RED14,RED13,
RED10,RED4,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0024s1087; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
FAP10:=WAGE(QUITD); FDFAP11:=QUITD; FAP11:=AVG(WAGE,MAX(HIRED,
FDFAP11-1.0),FDFAP11); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
0.0006; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-
0.04*o(55.0,AGE)); RED10:=OTHERB; RED13:=JSRED; RAS1:=(AGE>=55.0)
!(ASY1>=20.0); RAS4:=(AGE>=45.0)&(ASY1>=20.0); RAS10:=(AGE>=55.0)
!(ASY1>=15.0); RAS11:=(AGE>=55.0)!(ASY1>=10.0); ROT2:=QVETERAN;
ROT10:=^QJRDABLE; ROT11:=QVETERAN; ROT12:=QJRDABLE; ROT13:=
^QJRDEATH; ROT14:=QJRDEATH; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=0.025*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=15.0*u(
ASY1,20.0); NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=0.8*FAP1; NR3Q:=ord(
RAS1)*NR3; NRT:=MIN(NR1+NR2,NR3); NRQ:=MIN(NR1Q+NR2Q,NR3Q); LRQ:=
NRQ; MRAGE:=65.0; ER1:=NR1*RED4+NR2; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=NRT; DR2Q:=ord(
RAS11&ROT11)*DR2; ANMAN7:=ANNPAY(MAN7,BENIFITD); DR3:=0.5*FAP10+
ANMAN7; DR3Q:=ord(RAS11&ROT11)*DR3; DR4:=0.72*MAX(FAP10,FAP11)-
RED10+ANMAN7; DR4Q:=ord(ROT12)*DR4; DRT:=MAX(DR1,DR2+DR3,DR4);
DRQ:=MAX(DR1Q,DR2Q+DR3Q,DR4Q); DS1:=0.667*ERT*RED13; DS1Q:=ord(
ROT13)*DS1; DS2:=1680.0; DS2Q:=ord(ROT13)*DS2; DS3:=0.72*MAX(
FAP10,FAP11)+ANMAN7; DS3Q:=ord(ROT14)*DS3; DST:=MAX(DS1,DS2,DS3);
DSQ:=MAX(DS1Q,DS2Q,DS3Q); PRAG:=0.0; VEDB:=VOPT(ord((ASY1>=10.0)!
(QUITAGE>=55.0)&(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,ANMAN7,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED10,RED4,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP11,FDFAP11,FAP10,FAP1,FDFAP1,ASY1,CNQ)
<0 then negative end;

procedure c0025s326; begin CNQ:=0.0; ASY1:=NNMIN(25.0,QUITD-MAX(
HIRED,MIN(HIRED+1.0,BIRTHD+25.0)))*ord(WRKHRS>=1000.0)*1.0;
PSY1:=MIN(25.0,NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+25.0)));
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,
BENIFITD); RED4:=NN(1.0-0.0667*o(65.0,AGE)); RED13:=JSRED;
RED14:=COSTRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)&(ASY1>=5.0);
RAS13:=(AGE>=60.0)&(ASY1>=5.0); BEG7:=MAX(NRD,QUITD); NR1:=NN(
0.5*FAP1-0.5*SS1)*ASY1/PSY1*PSY1/25.0; NR1Q:=ord(RAS1)*NR1; NR2:=
0.1*FAP1*ASY1/PSY1*PSY1/25.0; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,
NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q;
VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0;
DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED14,
RED13,RED4,SS1,FAP1,SDFAP1,FDFAP1,PSY1,ASY1,CNQ) <0 then
negative end;

procedure c0026s419; begin CNQ:=0.0; ASY1:=NNMIN(43.0,MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+22.0))*ord(WRKHRS>=12.0)*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDMAN7:=HIRED;
FDMAN7:=QUITD; VR1MAN7:=ord((71400.0>WAGE(SURVEYD))&(WAGE(
SURVEYD)>=35700.0))*0.03+ord(WAGE(SURVEYD)>=71400.0)*0.015;
PCMAN7:=VR1MAN7; MAN7:=SUMI(PCMAN7,7.0,0.0,SDMAN7,FDMAN7); SS1:=
SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=NN(1.0-0.036*o(65.0,AGE)
); RED7:=NN(1.0-0.036*o(62.0,AGE)); RED13:=JSRED; RED14:=COSTRED;
RAS1:=(AGE>=65.0)!(AGE+ASY1>=85.0)&(AGE>=55.0); RAS4:=(AGE>=55.0)
&(ASY1>=5.0); RAS5:=AGE>=55.0; ROT4:=1984.417<=QUITD; ROT5:=
PARTD<1984.417; ROT7:=ASY1>=30.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG10:=ANYTIME(0.0,BIRTHD+65.0); NR1:=NN(0.017*
FAP1*ASY1-0.017*SS1*ASY1); NR1Q:=ord(RAS1)*NR1; NR2:=0.011*FAP1*
ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)
;LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4&ROT4)*ER1;
ER2:=NRT*RED4; ER2Q:=ord(RAS5&ROT5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=
MAX(ER1Q,ER2Q); VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NRT*RED7;
VD2Q:=ord(ROT7)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q); DR1:=ERT; DR1Q:=ord(RAS4)*AA(BEG10,0.0)*DR1; DRT:=
DR1; DRQ:=DR1Q; DS1:=ERT*RED13*RED14*0.5; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=5.0)*
0.5,ord((QUITAGE>=55.0)!(ASY1>=10.0))*1.0)); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,
ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,
BEG7,RED14,RED13,RED7,RED4,SS1,MAN7,PCMAN7,VR1MAN7,FDMAN7,
SDMAN7,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0028s325; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*1.0;
ASY1:=NNMIN(25.0,MIN(QUITD,BIRTHD+70.0)-(HIRED+1.0))*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(
2.0,MAX(BENIFITD,BIRTHD+62.0))/12.0; RED4:=1.0-(0.052*a(AGE,55.0,
50.0)+0.036*a(AGE,60.0,55.0)+0.018*a(AGE,62.0,60.0)); RED7:=1.0-(
0.0119*a(AGE,40.0,30.0)+0.0245*a(AGE,50.0,40.0)+0.5097*a(AGE,
51.0,50.0)); RAS1:=AGE>=62.0; RAS4:=AGE>=50.0; ROT1:=
PARTD<1978.167; ROT10:=QCODABLE!QSSDABLE; LNG7:=1.0; NR1:=0.01*
FAP1*ASY1; NR1Q:=ord(RAS1&ROT1)*NR1; NR2:=(0.011*FAP1-0.02*SS1)*
ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=NR2; NR3Q:=ord(RAS1&ROT1)*NR3;
NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q)*12.0; LRQ:=(1.0+
0.003*b(AGE,62.0,65.0)+0.0043*b(AGE,65.0,68.0)+0.006*b(AGE,68.0,
70.0))*NRQ; MRAGE:=999.0; ER1:=NR3*RED4*(1.005+0.0011*b(AGE,50.0,
61.0)); ER1Q:=ord(RAS4&ROT1)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=
NR3*RED7; VD1Q:=ord(ROT1)*AA(QUITD,LNG7+QUITD)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=NR3; DR1Q:=ord(ROT10)*DR1; DRT:=DR1; DRQ:=
DR1Q*12.0; DS1:=0.5*0.88*ERT; DS1Q:=ord(RAS4&ROT1)*AA(QUITD,LNG7+
QUITD)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=50.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,LNG7,RED7,RED4,SS1,
FAP1,SDFAP1,FDFAP1,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0029s199; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,1981.0))*ord(WRKHRS>=1000.0)*1.0; ASY4:=NN(
MIN(QUITD,BIRTHD+65.0)-(HIRED+1.0))*ord(WRKHRS>=1000.0)*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*WAGE(
FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); FAP2:=ord(FDFAP2>HIRED)*
WAGE(FDFAP2); SS1:=SUM(SSBASE,HIRED,QUITD); RED4:=AR(65.0-AGE);
RED13:=AR(NRD-BENIFITD); RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(
ASY4>=10.0); RAS10:=ASY4>=10.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG10:=MAX(NRD,QUITD); NR1:=(0.0125*FAP1+0.0125*o(FAP2,
SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT; DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=
DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,
BEG7,RED13,RED4,SS1,FAP2,FDFAP2,FAP1,FDFAP1,ASY4,ASY1,CNQ) <0
then negative end;

procedure c0030s269; begin CNQ:=0.0; ASY1:=MIN(40.0,QUITD-HIRED)*
NNMIN(1.0,WRKHRS/1700.0); ASY2:=MIN(40.0,QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; RED4:=1.0-(0.048*a(AGE,60.0,55.0)+0.072*a(
AGE,65.0,60.0)); RED10:=OTHERB; RED13:=1.0-(0.005*a(AGE,60.0,
55.0)+0.01*a(AGE,70.0,60.0)); RAS1:=(AGE>=65.0)!(AGE>=62.0)&(
ASY2>=10.0); RAS4:=(AGE>=60.0)&(ASY2>=10.0)!(AGE>=55.0)&(ASY2>=
20.0); RAS10:=ASY2>=10.0; DAT1:=(1983.0<=QUITD)&(QUITD<1984.0);
DAT2:=(1984.0<=QUITD)&(QUITD<1985.0); DAT3:=1985.0<=QUITD;
DAT10:=QUITD<1983.0; LNG10:=BIRTHD+65.0; BEG7:=MAX(ERD,QUITD);
BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=13.0*ASY1; NR1Q:=ord(RAS1&
DAT1)*NR1; NR2:=14.0*ASY1; NR2Q:=ord(RAS1&DAT2)*NR2; NR3:=15.0*
ASY1; NR3Q:=ord(RAS1&DAT3)*NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(
NR1Q,NR2Q,NR3Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4;
ER1Q:=ord(RAS4&DAT1)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4&DAT2)*
ER2; ER3:=NR3*RED4; ER3Q:=ord(RAS4&DAT3)*ER3; ERT:=MAX(ER1,ER2,
ER3); ERQ:=MAX(ER1Q,ER2Q,ER3Q)*12.0; VD1:=ER1; VD1Q:=ord(DAT1)*
AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(DAT2)*AA(BEG7,0.0)*VD2;
VD3:=ER3; VD3Q:=ord(DAT3)*AA(BEG7,0.0)*VD3; VDT:=MAX(VD1,VD2,VD3)
;VDQ:=MAX(VD1Q,VD2Q,VD3Q)*12.0; DR1:=350.0-RED10; DR1Q:=ord(
RAS10&DAT10)*AA(QUITD,LNG10)*DR1; DR2:=NR1; DR2Q:=ord(RAS10&DAT1)
*AA(BEG11,0.0)*DR2; DR3:=NR2; DR3Q:=ord(RAS10&DAT2)*AA(BEG11,0.0)
*DR3; DR4:=NR3; DR4Q:=ord(RAS10&DAT3)*AA(BEG11,0.0)*DR4; DRT:=
DR1+MAX(DR2,DR3,DR4); DRQ:=(DR1Q+MAX(DR2Q,DR3Q,DR4Q))*12.0; DS1:=
0.5*ER1*RED13; DS1Q:=ord(RAS4&DAT1)*DS1; DS2:=0.5*ER2*RED13;
DS2Q:=ord(RAS4&DAT2)*DS2; DS3:=0.5*ER3*RED13; DS3Q:=ord(RAS4&
DAT3)*DS3; DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q)*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,
DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,
VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,
NR3,NR2Q,NR2,NR1Q,NR1,BEG11,BEG7,LNG10,RED13,RED10,RED4,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0031s875; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1976.0)-(
HIRED+1.0))*ord(WRKHRS>=26.0)*1.0; ASY2:=NN(QUITD-MAX(HIRED+1.0,
1977.0))*NNMIN(1.0,WRKHRS/1000.0); RED4:=NN(1.0-0.1*o(65.0,AGE));
RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=(AGE>=65.0)&(ASY51>=10.0);
RAS2:=ASY51>=20.0; RAS4:=(ASY51>=20.0)!(AGE>=62.0)&(ASY51>=10.0);
ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+62.0,BIRTHD+65.0); NR1:=
5.75*(ASY1+ASY2); NR1Q:=ord(RAS1)*NR1; NR2:=5.75*(ASY1+ASY2);
NR2Q:=ord(RAS2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=(2.88*ASY1+5.75*ASY2)*RED4; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(
RAS2&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord(ASY51>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,ASY51,RED13,RED4,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0032s556; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1982.0)-
MAX(HIRED+1.0,BIRTHD+21.0))*NNMIN(1.0,WRKHRS/2080.0); ASY2:=NN(
QUITD-MAX(HIRED+1.0,BIRTHD+21.0,1982.0))*ord(WRKHRS>=1000.0)*
1.0; FDFAP1:=MIN(QUITD,1982.0); FAP1:=ord(FDFAP1>HIRED)*WAGE(
FDFAP1); SDFAP2:=MAX(HIRED,1982.0); FAP2:=ord(QUITD>SDFAP2)*AVG(
WAGE,SDFAP2,QUITD); FDSS1:=MIN(QUITD,1982.0); SDSS1:=MAX(HIRED,
1981.0); SS1:=ord(FDSS1>SDSS1)*SSBASE(1981.0); SDSS2:=MAX(HIRED,
1982.0); SS2:=ord(QUITD>SDSS2)*AVG(SSBASE,SDSS2,QUITD); RED4:=AR(
NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2;
RAS4:=(AGE>=55.0)&(ASY51>=15.0); ROT7:=ASY1+ASY2>=15.0; BEG7:=
MAX(BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
BEG10:=MAX(BIRTHD+65.0,QUITD); BEG11:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=(0.01*u(FAP2,SS2)+0.015*o(FAP2,SS2))*ASY2; NR1Q:=ord(
RAS1)*NR1; NR2:=(0.01*u(FAP1,SS1)+0.015*o(FAP1,SS1))*ASY1; NR2Q:=
ord(RAS1)*NR2; NR3:=0.005*u(FAP2,SS2)*ASY2; NR3Q:=ord(RAS1)*NR3;
NRT:=NR1+NR2+NR3; NRQ:=NR1Q+NR2Q+NR3Q; LRQ:=NRQ; MRAGE:=70.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=ord(ROT7)*AA(BEG8,
0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NRT;
DR1Q:=AA(BEG10,0.0)*DR1; DR2:=ERT; DR2Q:=AA(BEG11,0.0)*DR2; DRT:=
DR1+DR2; DRQ:=DR1Q+DR2Q; DS1:=ERT*RED13; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY51>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG11,BEG10,BEG8,
BEG7,ASY51,RED13,RED4,SS2,SDSS2,SS1,SDSS1,FDSS1,FAP2,SDFAP2,
FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0033s557; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+21.0,1982.0))*NNMIN(1.0,WRKHRS/2080.0); ASY2:=NN(MIN(
QUITD,1982.0)-MAX(HIRED+1.0,BIRTHD+21.0))*NNMIN(1.0,WRKHRS/
2080.0); SDFAP1:=MAX(HIRED,1982.0); FAP1:=ord(QUITD>SDFAP1)*AVG(
WAGE,SDFAP1,QUITD); FDFAP2:=MIN(QUITD,1982.0); FAP2:=ord(
FDFAP2>HIRED)*WAGE(FDFAP2); SDSS1:=MAX(HIRED,1982.0); SS1:=ord(
QUITD>SDSS1)*AVG(SSBASE,SDSS1,QUITD); FDSS2:=MIN(QUITD,1982.0);
SDSS2:=MAX(HIRED,1981.0); SS2:=ord(FDSS2>SDSS2)*SSBASE(1981.0);
RED4:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=
ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=15.0); ROT7:=ASY1+ASY2>=
15.0; ROT10:=ASY1>=15.0; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD);
BEG11:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.01*u(FAP1,SS1)+
0.015*o(FAP1,SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.01*u(FAP2,
SS2)+0.015*o(FAP2,SS2))*ASY2; NR2Q:=ord(RAS1)*NR2; NR3:=0.005*u(
FAP1,SS1)*ASY1; NR3Q:=ord(RAS1)*NR3; NRT:=NR1+NR2+NR3; NRQ:=NR1Q+
NR2Q+NR3Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=
ERT; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q); DR1:=NRT; DR1Q:=AA(BEG10,0.0)*DR1; DR2:=ERT;
DR2Q:=ord(ROT10)*AA(BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(
DR1Q,DR2Q); DS1:=ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY51>=5.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG11,BEG10,BEG8,BEG7,ASY51,
RED13,RED4,SS2,SDSS2,FDSS2,SS1,SDSS1,FAP2,FDFAP2,FAP1,SDFAP1,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0034s464; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
1976.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(15.0,MIN(QUITD,
1976.0)-HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1976.0))*NNMIN(1.0,
WRKHRS/1200.0); RED4:=1.0-(0.05*a(AGE,60.0,55.0)+0.1*a(AGE,62.0,
60.0)); RED13:=JSRED; RAS1:=(AGE>=62.0)&(ASY2>=5.0); RAS4:=(AGE>=
55.0)&(ASY2>=10.0); RAS10:=ASY2>=5.0; BEG7:=ANYTIME(BIRTHD+55.0,
0.0); NR1:=15.0*ASY1+17.0*ASY2; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*NRT*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASYV>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,
BEG7,RED13,RED4,ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0035s984; begin CNQ:=0.0; ASY1:=MIN(30.0,QUITD-HIRED)*
1.0; RED4:=NN(1.0-0.03*o(65.0,AGE)); RED7:=AR(65.0-AGE); RED13:=
AR(NRD-BENIFITD); RAS1:=(AGE>=65.0)&(ASY1>=5.0); RAS4:=(AGE>=
55.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; ROT10:=QSSDABLE; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=ASY1*34.0; NR1Q:=ord(RAS1)
*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT*
RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT;
DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*
RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((ASY1>=10.0)!(QUITAGE>=65.0)&(ASY1>=5.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED7,
RED4,ASY1,CNQ) <0 then negative end;

procedure c0036s150; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
1976.5)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=NNMIN(30.0,QUITD-
MAX(HIRED,1976.5))*1.0; ASY4:=NN(QUITD-MAX(HIRED,BIRTHD+22.0))*
1.0; PSY4:=NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+25.0)); FDFAP1:=
QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); RED4:=AR(
65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(
ASY4>=5.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.01*u(
FAP1,3000.0)+0.0175*o(FAP1,3000.0))*u(ASY1+ASY2,30.0); NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
(ASY1+ASY2)/PSY4*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,FAP1,FDFAP1,
PSY4,ASY4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0037s147; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NN(QUITD-MAX(HIRED,1975.0))*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,MAX(BIRTHD+65.0,QUITD-
ASY1+10.0)); FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1);
SDVOL7:=HIRED; FDVOL7:=QUITD; PCVOL7:=MAX(0.0,MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL7:=SUMI(PCVOL7,
2.0,0.0,SDVOL7,FDVOL7); SS1:=SSBASE(BENIFITD); RAS1:=(AGE>=65.0)&
(ASY1>=10.0); BEG7:=MAX(NRD,QUITD); NR1:=(0.0075*FAP1+0.005*o(
FAP1,SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=
NRQ; MRAGE:=999.0; ERQ:=0.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=DR1; DRT:=DR1; DRQ:=DR1Q;
DSQ:=0.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASYV>=5.0)*0.25,ord(
ASYV>=10.0)*0.5,ord((QUITAGE>=65.0)!(ASYV>=15.0))*1.0)); if min(
VEDB,PRAG,DSQ,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,SS1,VOL7,PCVOL7,FDVOL7,SDVOL7,FAP1,FDFAP1,
ASY1,ASYV,CNQ) <0 then negative end;

procedure c0039s153; begin CNQ:=0.0; ASY1:=MIN(30.0,QUITD-HIRED)*
NNMIN(1.0,WRKHRS/1800.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-5.0),FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/12.0;
RED4:=NN(1.0-0.0667*o(62.0,AGE)); RED10:=OTHERB; RED13:=COSTRED;
RED14:=JSRED; RAS1:=(AGE>=65.0)&(ASY1>=5.0)!(AGE>=62.0)&(ASY1>=
10.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS10:=(AGE>=40.0)&(ASY1>=
10.0); RAS13:=(AGE>=60.0)&(ASY1>=10.0); ROT10:=QSSDABLE; BEG7:=
ANYTIME(BIRTHD+60.0,0.0); BEG13:=MAX(BIRTHD+60.0,QUITD); NR1:=(
0.5*FAP1-0.5*SS1)*ASY1/30.0; NR1Q:=ord(RAS1)*NR1; NR2:=240.0;
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=NR1-RED10; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=
DR1; DRQ:=DR1Q*12.0; DS1:=0.5*NR1*RED13*RED14; DS1Q:=ord(RAS13)*
AA(BEG13,0.0)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG13,BEG7,RED14,RED13,
RED10,RED4,SS1,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0040s266; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*NNMIN(1.0,WRKHRS/12.0); ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/12.0); ASY2:=
NN(MIN(QUITD,BIRTHD+70.0)-MAX(HIRED+1.0,BIRTHD+30.0))*NNMIN(1.0,
WRKHRS/12.0); ASY4:=(QUITD-HIRED)*1.0; PSY4:=NN(BIRTHD+65.0-MAX(
HIRED+1.0,BIRTHD+25.0)); PSY5:=NN(BIRTHD+65.0-MAX(HIRED+1.0,
BIRTHD+30.0)); FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(HIRED,
FDFAP1-5.0,1959.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); SS1:=SS(1.0,BENIFITD); RED4:=NN(1.0-0.04*o(65.0,AGE));
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=10.0);
ASY60:=ASY1+ASY2+ASY4; RAS13:=(AGE>=55.0)&(ASY60>=10.0); RAS14:=(
AGE>=65.0)&(ASY4>=10.0); ROT1:=1976.0<=QUITD; ROT2:=PARTD<1976.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.02*u(FAP1,
20000.0)+0.017*b(FAP1,20000.0,60000.0)+0.015*o(FAP1,60000.0))*
ASY1-0.01667*SS1*ASY1; NR1Q:=ord(RAS1&ROT1)*NR1; NR2:=80.0*u(
ASY1,15.0); NR2Q:=ord(RAS1&ROT1)*NR2; NR3:=(0.02*u(FAP1,20000.0)+
0.017*b(FAP1,20000.0,60000.0)+0.015*o(FAP1,60000.0))*ASY2-
0.01667*SS1*ASY2; NR3Q:=ord(RAS1&ROT2)*NR3; NR4:=80.0*u(ASY2,
15.0); NR4Q:=ord(RAS1&ROT2)*NR4; NRT:=MAX(NR1,NR2,NR3,NR4); NRQ:=
MAX(NR1Q,NR2Q,NR3Q,NR4Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=((0.02*u(
FAP1,20000.0)+0.017*b(FAP1,20000.0,60000.0)+0.015*o(FAP1,
60000.0))*PSY4-0.01667*SS1*PSY4)*ASY4/PSY4*RED4; ER1Q:=ord(RAS4&
ROT1)*ER1; ER2:=((0.02*u(FAP1,20000.0)+0.017*b(FAP1,20000.0,
60000.0)+0.015*o(FAP1,60000.0))*PSY5-0.01667*SS1*PSY5)*ASY4/
PSY5*RED4; ER2Q:=ord(RAS4&ROT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q); VD1:=ER1; VD1Q:=ord(ROT1)*AA(BEG7,0.0)*VD1; VD2:=ER2;
VD2Q:=ord(ROT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q); DRQ:=0.0; DS1:=0.5*NRT*RED13; DS1Q:=ord(RAS14&ROT1)*
DS1; DS2:=0.5*ERT; DS2Q:=ord(RAS13&ROT1)*DS2; DST:=MAX(DS1,DS2);
DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,ASY60,
RED13,RED4,SS1,FAP1,SDFAP1,FDFAP1,PSY5,PSY4,ASY4,ASY2,ASY1,ASYV,
CNQ) <0 then negative end;

procedure c0041s198; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; FAP1:=AVG(WAGE,HIRED,QUITD); FDFAP2:=QUITD;
FAP2:=AVG(WAGE,MAX(HIRED,FDFAP2-3.0),FDFAP2); RED4:=1.0-(0.0333*
a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY1>=5.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=(0.02*u(FAP1,6600.0)+0.029*o(FAP1,6600.0))*ASY1;
NR1Q:=ord(RAS1)*NR1; NR2:=MAX(10000.0,FAP2); NR2Q:=ord(RAS1)*NR2;
NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=
0.5*0.8*NRT; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(MAX(ord(ASY1>=5.0)*0.5,ord(ASY1>=7.0)*0.72,ord((
QUITAGE>=65.0)!(ASY1>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED4,FAP2,FDFAP2,FAP1,ASY1,CNQ) <0
then negative end;

procedure c0042s324; begin CNQ:=0.0; ASY1:=MIN(35.0,QUITD-HIRED)*
NNMIN(1.0,WRKHRS/1904.0); ASY2:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/
1000.0); RED4:=NN(1.0-0.0667*o(65.0,AGE)); RED13:=JSRED; RED14:=
COSTRED; RAS1:=(AGE>=65.0)&(ASY2>=10.0); RAS4:=(AGE>=60.0)&(
ASY2>=10.0); RAS10:=ASY2>=10.0; RAS13:=(AGE>=60.0)&(ASY2>=10.0);
DAT1:=QUITD<1983.667; DAT2:=(1983.667<=QUITD)&(QUITD<1984.667);
DAT3:=1984.667<=QUITD; BEG7:=ANYTIME(BIRTHD+62.0,BIRTHD+65.0);
NR1:=9.0*ASY1; NR1Q:=ord(RAS1&DAT1)*NR1; NR2:=10.0*ASY1; NR2Q:=
ord(RAS1&DAT2)*NR2; NR3:=11.0*ASY1; NR3Q:=ord(RAS1&DAT3)*NR3;
NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&DAT1)*ER1; ER2:=NR2*
RED4; ER2Q:=ord(RAS4&DAT2)*ER2; ER3:=NR3*RED4; ER3Q:=ord(RAS4&
DAT3)*ER3; ERT:=MAX(ER1,ER2,ER3); ERQ:=MAX(ER1Q,ER2Q,ER3Q)*12.0;
VD1:=ER1; VD1Q:=ord(DAT1)*AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(
DAT2)*AA(BEG7,0.0)*VD2; VD3:=ER3; VD3Q:=ord(DAT3)*AA(BEG7,0.0)*
VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1Q,VD2Q,VD3Q)*12.0; DR1:=
NR1; DR1Q:=ord(RAS10&DAT1)*DR1; DR2:=NR2; DR2Q:=ord(RAS10&DAT2)*
DR2; DR3:=NR3; DR3Q:=ord(RAS10&DAT3)*DR3; DRT:=MAX(DR1,DR2,DR3);
DRQ:=MAX(DR1Q,DR2Q,DR3Q)*12.0; DS1:=0.5*ER1*RED13*RED14; DS1Q:=
ord(RAS13&DAT1)*DS1; DS2:=0.5*ER2*RED13*RED14; DS2Q:=ord(RAS13&
DAT2)*DS2; DS3:=0.5*ER3*RED13*RED14; DS3Q:=ord(RAS13&DAT3)*DS3;
DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q)*12.0; PRAG:=0.0;
VEDB:=VOPT(ord(ASY2>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,
DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED14,
RED13,RED4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0043s376; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED,
1981.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,1981.0)-
HIRED)*ord(WRKHRS>=1000.0)*1.0; SDFAP1:=MAX(HIRED,1981.0); FAP1:=
ord(QUITD>SDFAP1)*AVG(WAGE,SDFAP1,QUITD); FDFAP2:=MIN(QUITD,
1981.0); SDFAP2:=MAX(HIRED,1980.0); FAP2:=ord(FDFAP2>SDFAP2)*
WAGE(FDFAP2); FDFAP3:=MIN(QUITD,1981.0); SDFAP3:=MAX(HIRED,
1978.0); FAP3:=ord(FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3); RED4:=
NN(1.0-0.067*o(65.0,AGE)); RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=
ASY1+ASY2; RAS4:=(AGE>=62.0)&(ASY51>=10.0); RAS10:=(AGE>=30.0)&(
ASY51>=5.0); BEG7:=ANYTIME(BIRTHD+62.0,BIRTHD+65.0); BEG10:=MAX(
NRD,QUITD); NR1:=0.0075*MAX(FAP2,FAP3)*ASY2; NR1Q:=ord(RAS1)*NR1;
NR2:=0.0075*FAP1*ASY2; NR2Q:=ord(RAS1)*NR2; NRT:=NR1+NR2; NRQ:=
NR1Q+NR2Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10)*AA(BEG10,0.0)*
DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,ASY51,RED13,RED4,FAP3,
SDFAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0044s45; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(
MIN(QUITD,BIRTHD+65.0,1975.083)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(
WRKHRS>=1000.0)*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+
1.0,BIRTHD+25.0,1975.083))*ord(WRKHRS>=1000.0)*1.0; ASY4:=NN(MIN(
QUITD,BIRTHD+65.0,1975.083)-(HIRED+5.0))*ord(WRKHRS>=1000.0)*
1.0; ASY5:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+5.0,1975.083))*
ord(WRKHRS>=1000.0)*1.0; ASY6:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*
ord(WRKHRS>=1000.0)*1.0; ASY10:=NN(QUITD-MAX(HIRED+1.0,BIRTHD+
25.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0);
SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0,1975.083); SDFAP2:=
MAX(HIRED,1974.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,
FDFAP2); FDFAP3:=MIN(QUITD,BIRTHD+65.0); SDFAP3:=MAX(HIRED,
1975.083); FAP3:=ord(FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3);
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=1.0-(0.03*a(AGE,
55.0,50.0)+0.04*a(AGE,60.0,55.0)+0.06*a(AGE,65.0,60.0)); RED5:=
NN(1.0-0.08*o(90.0,AGE+ASY1)); RED6:=NN(1.0-0.0667*o(65.0,AGE));
RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE+ASY6>=90.0); RAS2:=AGE+
ASY6>=90.0; RAS4:=(AGE>=50.0)&(ASY6>=10.0)!(AGE+ASY6>=70.0)&(
AGE>=60.0); LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+
65.0); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=NN(0.014*FAP1*ASY1-
2.0/3.0*SS1*(1.0-ord(RAS2)*RED6)); NR1Q:=ord(RAS1)*NR1; NR2:=
0.0125*FAP3*MAX(ASY3,ASY5)+0.0075*FAP2*MAX(ASY2,ASY4); NR2Q:=ord(
RAS1)*NR2; NR3:=300.0; NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1,NR2,NR3)
;NRQ:=MAX(NR1,NR2,NR3); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ER2:=RED5; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(
ER1,ER2); ERQ:=MAX(ER1,ER2); VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=0.0125*FAP1*ASY10; DR1Q:=ord(RAS4)*AA(
QUITD,LNG10)*DR1; DR2:=MIN(NRT,DR1); DR2Q:=ord(RAS1)*AA(BEG11,
0.0)*DR2; DRT:=DR1+DR2; DRQ:=DR1Q+DR2Q; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG11,BEG7,LNG10,RED13,RED6,RED5,RED4,SS1,FAP3,SDFAP3,FDFAP3,
FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY10,ASY6,ASY5,ASY4,ASY3,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0045s44; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1976.0))*NNMIN(1.0,WRKHRS/
1500.0); ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1976.0))*
NNMIN(1.0,WRKHRS/1500.0); ASY3:=NN(MIN(QUITD,BIRTHD+65.0,1976.0)-
HIRED)*1.0; RED4:=NN(1.0-0.0667*o(65.0,AGE)); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=62.0)&(ASY1>=10.0); RAS10:=ASY1>=
15.0; BEG7:=ANYTIME(BIRTHD+62.0,BIRTHD+65.0); NR1:=5.0*(ASY2+
ASY3); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*
12.0; DR1:=MAX(NRT,0.5*NRT); DR1Q:=ord(RAS10)*DR1; DRT:=DR1;
DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; ASY57:=ASY1+ASY3; VEDB:=VOPT(ord(
(QUITAGE>=55.0)!(ASY57>=10.0))*1.0); if min( VEDB,ASY57,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,ASY3,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0046s41; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-MAX(HIRED,1957.333))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,1976.0))*NNMIN(1.0,WRKHRS/2000.0); ASY3:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED,1957.333))*ord(WRKHRS>=1000.0)*1.0;
RED4:=1.0-(0.07*a(AGE,60.0,55.0)+0.03*a(AGE,65.0,60.0)); RED5:=
AR(55.0-AGE); RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY3>=15.0); RAS5:=ASY3>=20.0; RAS10:=ASY3>=
10.0; DAT1:=(1982.333<=QUITD)&(QUITD<1983.333); DAT2:=1983.333<=
QUITD; ROT10:=QSSDABLE; BEG7:=MAX(ERD,QUITD); BEG8:=MAX(BIRTHD+
65.0,QUITD); NR1:=10.75*(ASY1+ASY2); NR1Q:=ord(RAS1&DAT1)*NR1;
NR2:=12.5*(ASY1+ASY2); NR2Q:=ord(RAS1&DAT2)*NR2; NRT:=MAX(NR1,
NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*
RED4; ER1Q:=ord(RAS4&DAT1)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4&
DAT2)*ER2; ER3:=NR1*RED5*RED4; ER3Q:=ord(RAS5&DAT1)*ER3; ER4:=
NR2*RED5*RED4; ER4Q:=ord(RAS5&DAT2)*ER4; ERT:=MAX(MAX(ER1,ER2),
MAX(ER3,ER4)); ERQ:=MAX(MAX(ER1Q,ER2Q),MAX(ER3Q,ER4Q))*12.0;
VD1:=NR1*RED7; VD1Q:=ord(DAT1)*AA(BEG7,0.0)*VD1; VD2:=NR2*RED7;
VD2Q:=ord(DAT2)*AA(BEG8,0.0)*VD2; VD3:=NR1; VD3Q:=ord(DAT1)*AA(
BEG8,0.0)*VD3; VD4:=NR2; VD4Q:=ord(DAT2)*AA(BEG8,0.0)*VD4; VDT:=
MAX(MAX(VD1,VD2),MAX(VD3,VD4)); VDQ:=MAX(MAX(VD1Q,VD2Q),MAX(VD3Q,
VD4Q))*12.0; DR1:=NR1; DR1Q:=ord(RAS10&DAT1&ROT10)*DR1; DR2:=NR2;
DR2Q:=ord(RAS10&DAT2&ROT10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(
DR1Q,DR2Q)*12.0; DS1:=0.5*ER1*RED13; DS1Q:=ord(RAS4&DAT1)*DS1;
DS2:=0.5*ER2*RED13; DS2Q:=ord(RAS4&DAT2)*DS2; DS3:=0.5*ER3*RED13;
DS3Q:=ord(RAS5&DAT1)*DS3; DS4:=0.5*ER4*RED13; DS4Q:=ord(RAS5&
DAT2)*DS4; DST:=MAX(MAX(DS1,DS2),MAX(DS3,DS4)); DSQ:=MAX(MAX(
DS1Q,DS2Q),MAX(DS3Q,DS4Q))*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY3>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG8,BEG7,RED13,RED7,RED5,RED4,ASY3,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0047s42; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1976.0))*NNMIN(1.0,WRKHRS/2000.0); ASY3:=NN(MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; RED4:=1.0-(0.07*a(
AGE,60.0,55.0)+0.03*a(AGE,65.0,60.0)); RED7:=AR(65.0-AGE);
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY3>=20.0)!(
AGE>=60.0)&(ASY3>=10.0); RAS10:=ASY3>=10.0; DAT1:=(1980.583<=
QUITD)&(QUITD<1982.583); DAT2:=1982.583<=QUITD; ROT10:=QSSDABLE;
BEG7:=MAX(ERD,QUITD); BEG8:=MAX(BIRTHD+65.0,QUITD); NR1:=10.5*(
ASY1+ASY2); NR1Q:=ord(RAS1&DAT1)*NR1; NR2:=11.5*(ASY1+ASY2);
NR2Q:=ord(RAS1&DAT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*
12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&DAT1)
*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4&DAT2)*ER2; ERT:=MAX(ER1,ER2);
ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=NR1*RED7; VD1Q:=ord(DAT1)*AA(BEG7,
0.0)*VD1; VD2:=NR2*RED7; VD2Q:=ord(DAT2)*AA(BEG8,0.0)*VD2; VD3:=
NR1; VD3Q:=ord(DAT1)*AA(BEG8,0.0)*VD3; VD4:=NR2; VD4Q:=ord(DAT2)*
AA(BEG8,0.0)*VD4; VDT:=MAX(MAX(VD1,VD2),MAX(VD3,VD4)); VDQ:=MAX(
MAX(VD1Q,VD2Q),MAX(VD3Q,VD4Q))*12.0; DR1:=NR1; DR1Q:=ord(RAS10&
DAT1&ROT10)*DR1; DR2:=NR2; DR2Q:=ord(RAS10&DAT2&ROT10)*DR2; DRT:=
MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=0.5*ER1*RED13;
DS1Q:=ord(RAS4&DAT1)*DS1; DS2:=0.5*ER2*RED13; DS2Q:=ord(RAS4&
DAT2)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY3>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,RED13,
RED7,RED4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0048s38; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=500.0)*1.0; ASY4:=
NN(QUITD-MAX(HIRED,1953.667))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=
MIN(QUITD,BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*AVG(WAGE,HIRED,
FDFAP1); RED4:=AR(65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY4>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=(0.01*u(FAP1,10000.0)+0.02*o(FAP1,10000.0))*ASY1;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=AI(AGE,65.0,999.0)
*NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DRQ:=0.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,
FAP1,FDFAP1,ASY4,ASY1,CNQ) <0 then negative end;

procedure c0049s39; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=500.0)*1.0; ASY4:=
NN(QUITD-MAX(HIRED,1976.083))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=
MIN(QUITD,BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*AVG(WAGE,HIRED,
FDFAP1); RED4:=AR(65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY4>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=(0.01*u(FAP1,10000.0)+0.02*o(FAP1,10000.0))*ASY1;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=AI(AGE,65.0,999.0)
*NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DRQ:=0.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,
FAP1,FDFAP1,ASY4,ASY1,CNQ) <0 then negative end;

procedure c0050s35; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FAP1:=WAGE(QUITD)/12.0; FDFAP2:=QUITD; FAP2:=AVG(WAGE,MAX(HIRED,
FDFAP2-60.0/12.0),FDFAP2)/12.0; FDFAP3:=QUITD; FAP3:=AVG(WAGE,
MAX(HIRED,FDFAP3-24.0/12.0),FDFAP3)/12.0; SS1:=SS(2.0,MAX(
BENIFITD,BIRTHD+62.0))/12.0; SS2:=SS(1.0,MAX(BENIFITD,BIRTHD+
65.0))/12.0; SS13:=SS(3.0,BENIFITD)/12.0; RED4:=1.0-(0.0763*a(
AGE,61.0,60.0)+0.0855*a(AGE,62.0,61.0)); RED7:=1.0-(0.0609*a(AGE,
62.0,60.0)+0.0772*a(AGE,64.0,62.0)+0.0928*a(AGE,65.0,64.0));
RED13:=COSTRED; RED14:=1.0-(0.02*a(AGE,58.0,51.0)+0.015*a(AGE,
63.0,58.0)+0.01*a(AGE,65.0,63.0)); RAS1:=(ASY1>=30.0)!(AGE>=65.0)
&(ASY1>=10.0)!(AGE>=62.0)&(ASY1>=15.0); RAS2:=ASY1>=30.0; RAS3:=(
AGE>=62.0)&(ASY1>=15.0); RAS4:=(AGE>=60.0)&(ASY1>=15.0); RAS5:=(
AGE>=65.0)&(ASY1>=10.0); RAS10:=ASY1>=15.0; RAS13:=ASY1>=15.0;
RAS14:=(AGE>=55.0)&(ASY1>=15.0)!(AGE>=60.0)&(ASY1>=10.0); ROT7:=(
AGE>=40.0)&(ASY1>=15.0); LNG1:=1.0; LNG2:=BIRTHD+62.0; BGN3:=MAX(
BIRTHD+62.0,QUITD); LNG10:=QUITD; LNG13:=BIRTHD+60.0; BEG7:=
ANYTIME(BIRTHD+60.0,BIRTHD+62.0); BEG8:=ANYTIME(BIRTHD+60.0,
BIRTHD+65.0); BEG14:=MAX(BIRTHD+60.0,QUITD); NR1:=0.25*FAP1;
NR1Q:=ord(RAS1)*AA(QUITD,LNG1+QUITD)*NR1; NR2:=FAP2*(0.011*u(
ASY1,30.0)+0.012*o(ASY1,30.0))*1.05; NR2Q:=ord(RAS2)*AA(QUITD,
LNG2)*NR2; NR3:=MIN(NR2,MAX(FAP3*0.71*o(ASY1,15.0)-SS1,14.0*u(
ASY1,15.0)+15.0*b(ASY1,15.0,30.0)+16.0*o(ASY1,30.0))); NR3Q:=ord(
RAS2)*AA(BGN3,0.0)*NR3; NR4:=NR3; NR4Q:=ord(RAS3)*NR4; NR5:=MIN(
NR2,MAX(FAP3*0.71*o(ASY1,15.0)-SS2,14.0*u(ASY1,15.0)+15.0*b(
ASY1,15.0,30.0)+16.0*o(ASY1,30.0))); NR5Q:=ord(RAS5)*NR5; NR6:=
MAX(NR2,17.5*u(ASY1,15.0)+19.0*b(ASY1,15.0,30.0)+20.2*o(ASY1,
30.0)); NR6Q:=ord(RAS2)*AA(QUITD,LNG2)*NR6; NRT:=MAX(NR6+NR3,NR4,
NR5)+NR1; NRQ:=(MAX(NR6Q+NR3Q,NR4Q,NR5Q)+NR1Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NR1+NR4*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=NR4*RED4; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1;
VD2:=NR5*RED7; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q)*12.0; DR1:=NR6+NR3; DR1Q:=ord(RAS10)*DR1; DR2:=
400.0; DR2Q:=ord(RAS10)*AA(QUITD,LNG10)*DR2; DRT:=DR1+DR2; DRQ:=(
DR1Q+DR2Q)*12.0; DS1:=0.5*NR4; DS1Q:=ord(RAS13)*AA(QUITD,LNG13)*
DS1; DS2:=140.0; DS2Q:=ord(RAS13)*AA(QUITD,LNG13)*DS2; DS3:=NN(
DS1-0.5*SS13); DS3Q:=ord(RAS13)*AA(BEG14,0.0)*DS3; DS4:=90.0;
DS4Q:=ord(RAS13)*AA(BEG14,0.0)*DS4; DS5:=0.5*0.35*NR4*RED13*
RED14; DS5Q:=ord(RAS14)*DS5; DST:=MAX(DS1,DS2)+MAX(DS3,DS4)+DS5;
DSQ:=(MAX(DS1Q,DS2Q)+MAX(DS3Q,DS4Q)+DS5Q)*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS5Q,DS5,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR6Q,NR6,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG14,BEG8,BEG7,LNG13,LNG10,BGN3,LNG2,LNG1,RED14,RED13,
RED7,RED4,SS13,SS2,SS1,FAP3,FDFAP3, FAP2,FDFAP2,FAP1,ASY1,CNQ)
<0 then negative end;

procedure c0051s66; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0/12.0),FDFAP1)/
12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(
PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,BENIFITD)/12.0; SS2:=
SS(1.0,MAX(BENIFITD,BIRTHD+62.0))/12.0; RED4:=1.0-(0.05*a(AGE,
60.0,55.0)+0.03*a(AGE,62.0,60.0)); RED5:=5.0*o(61.0,AGE); RED7:=
1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=
JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=10.0); RAS2:=AGE>=
65.0; RAS3:=(AGE>=62.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=
10.0); ROT10:=QCODABLE; LNG4:=BIRTHD+SSAGE(2.0); BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+70.0)
;NR1:=0.016*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.015*SS1*ASY1;
NR2Q:=ord(RAS2)*NR2; NR3:=0.015*SS2*ASY1; NR3Q:=ord(RAS3)*NR3;
NRT:=NR1-MAX(NR2,NR3); NRQ:=(NR1Q-MAX(NR2Q,NR3Q))*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=(NR1-NR3)*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
150.0-RED5; ER2Q:=ord(RAS4)*AA(QUITD,LNG4)*ER2; ERT:=ER1+ER2;
ERQ:=(ER1Q+ER2Q)*12.0; VD1:=(NR1-NR3)*RED7; VD1Q:=AA(BEG7,0.0)*
VD1; VD2:=ER2; VD2Q:=AA(BEG7,LNG4)*VD2; VDT:=VD1+VD2; VDQ:=(VD1Q+
VD2Q)*12.0; DR1:=ER1; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DR2:=
ER2; DR2Q:=ord(ROT10)*AA(BEG10,LNG4)*DR2; DRT:=DR1+DR2; DRQ:=(
DR1Q+DR2Q)*12.0; DS1:=ER1*RED13; DS1Q:=ord(RAS4)*DS1; DS2:=ER2;
DS2Q:=ord(RAS4)*AA(QUITD,LNG4)*DS2; DST:=DS1+DS2; DSQ:=(DS1Q+
DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(1.0); if min( VEDB,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,
VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,
NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,LNG4,RED13,RED7,RED5,RED4,SS2,
SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0052s65; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1969.0)-(HIRED+1.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-
MAX(HIRED+1.0,1969.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0);
SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=
NN(1.0-0.06*o(62.0,AGE)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=
AGE>=55.0; ASY51:=ASY1+ASY2; RAS10:=(AGE>=50.0)&(ASY51>=15.0);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+62.0); NR1:=(0.01*u(FAP1,7800.0)
+0.015*o(FAP1,7800.0))*ASY2; NR1Q:=ord(RAS1)*NR1; NR2:=(0.01*u(
FAP1,6000.0)+0.015*o(FAP1,6000.0))*ASY1; NR2Q:=ord(RAS1)*NR2;
NR3:=156.0*(ASY1+ASY2); NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1+NR2,
NR3); NRQ:=MAX(NR1Q+NR2Q,NR3Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10)
*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,ASY51,RED13,RED4,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0053s64; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0)-(HIRED+1.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(
QUITD,BIRTHD+65.0,QUITD-ASY1+35.0); SDFAP1:=MAX(HIRED,FDFAP1-
15.0,1976.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1);
RED4:=NN(1.0-0.0667*o(65.0,AGE)); RED10:=NN(1.0-0.05*o(60.0,AGE))
;RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)&(ASY1>=20.0);
RAS10:=(AGE>=50.0)&(ASY1>=20.0); RAS13:=(AGE>=50.0)&(ASY1>=15.0);
BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=MAX(ERD,QUITD); NR1:=(0.01*u(
FAP1,4800.0)+0.012*o(FAP1,4800.0))*ASY1; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=AA(BEG8,0.0)*VD2;
VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NRT*RED10; DR1Q:=
ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*NRT*RED13; DS1Q:=
ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,RED13,RED10,RED4,
FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0054s60; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1976.0)-
HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1976.0))*1.0; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1)/12.0; RED4:=1.0-(
0.04*a(AGE,60.0,55.0)+0.02*a(AGE,65.0,60.0)); RED7:=AR(65.0-AGE);
RED10:=AR(55.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=ASY1+
ASY2; RAS4:=(AGE>=55.0)&(ASY51>=15.0); RAS11:=AGE>=55.0; RAS13:=(
AGE>=55.0)&(ASY1>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
NR1:=7.0*ASY1+8.0*ASY2; NR1Q:=ord(RAS1)*NR1; NR2:=FAP1; NR2Q:=
ord(RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q)*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=(6.0*ASY1+8.0*ASY2)*RED7; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT*RED10; DR1Q:=DR1; DR2:=
NRT; DR2Q:=ord(RAS11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)
*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY51>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG7,ASY51,RED13,RED10,RED7,RED4,FAP1,FDFAP1,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0055s59; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/960.0); ASY2:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/1080.0);
FAP1:=WAGE(QUITD); FDFAP2:=QUITD; FAP2:=AVG(WAGE,MAX(HIRED,
FDFAP2-24.0/12.0),FDFAP2); FDFAP3:=QUITD; FAP3:=AVG(WAGE,MAX(
HIRED,FDFAP3-60.0/12.0),FDFAP3); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SDMAN8:=
HIRED; FDMAN8:=QUITD; PCMAN8:=0.0808; MAN8:=SUMI(PCMAN8,8.0,0.0,
SDMAN8,FDMAN8); RED4:=AR(58.0-AGE); RED13:=JSRED; RAS1:=(AGE>=
50.0)&(ASY1>=5.0); RAS2:=(AGE>=58.0)&(ASY2>=5.0); RAS3:=(AGE>=
50.0)&(ASY1>=10.0); RAS4:=(AGE>=50.0)&(ASY2>=20.0); RAS13:=ASY2>=
10.0; ROT1:=PARTD<1977.75; ROT2:=1977.75<=QUITD; ROT7:=(1977.75<=
QUITD)&(ASY1>=20.0); BEG7:=MAX(BIRTHD+50.0,QUITD); BEG8:=MAX(
BIRTHD+58.0,QUITD); BEG9:=ANYTIME(BIRTHD+50.0,BIRTHD+58.0); NR1:=
0.01*MAX(FAP1,FAP2)*ASY1; NR1Q:=ord(RAS1&ROT1)*NR1; NR2:=0.02*
FAP3*ASY2; NR2Q:=ord(RAS2&ROT2)*NR2; NR3:=0.015*MAX(FAP1,FAP2)*
ASY1; NR3Q:=ord(RAS3&ROT1)*NR3; NR4:=0.02*MAX(FAP1,FAP2)*ASY1;
NR4Q:=ord(RAS4&ROT1)*NR4; NR5:=0.6*MAX(FAP1,FAP2); NR5Q:=ord(
RAS1&ROT1)*NR5; NRT:=MAX(NR2,MIN(NR5,MAX(NR1,NR3,NR4))); NRQ:=
MAX(NR2Q,MIN(NR5Q,MAX(NR1Q,NR3Q,NR4Q))); LRQ:=NRQ; MRAGE:=60.0;
ER1:=NR2*RED4; ER1Q:=ord(RAS4&ROT2)*ER1; ERT:=ER1; ERQ:=ER1Q;
VD1:=MIN(NR5,MAX(NR1,NR3,NR4)); VD1Q:=ord(ROT1)*AA(BEG7,0.0)*VD1;
VD2:=NR2; VD2Q:=ord(ROT2)*AA(BEG8,0.0)*VD2; VD3:=ERT; VD3Q:=ord(
ROT7)*AA(BEG9,0.0)*VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1Q,
VD2Q,VD3Q); DR1:=ERT; DR1Q:=ord(ROT2)*DR1; DR2:=0.5*FAP1; DR2Q:=
ord(ROT1)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.5*
MAX(FAP1,FAP2); DS1Q:=ord(ROT1)*DS1; DS2:=ERT*RED13; DS2Q:=ord(
RAS13&ROT2)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0;
PRAG:=MIN(0.95*ACPIG,0.03); VEDB:=VOPT(1.0); if min( VEDB,PRAG,
DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG9,BEG8,BEG7,
RED13,RED4,MAN8,PCMAN8,FDMAN8,SDMAN8,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP3,FDFAP3,FAP2,FDFAP2,FAP1,ASY2,ASY1, CNQ) <0 then negative
end;

procedure c0056s58; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; ASY10:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*1.0;
PSY7:=BIRTHD+65.0-HIRED; PSY8:=MIN(33.0,BIRTHD+65.0-HIRED);
FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(
1.0,BENIFITD)/12.0; SS2:=SS(2.0,BENIFITD)/12.0; SS7:=SS(1.0,MAX(
BENIFITD,BIRTHD+65.0))/12.0; SS10:=SS(5.0,BENIFITD)/12.0; RED4:=
NN(1.0-0.05*o(85.0,AGE+ASY1)); RED5:=NN(1.0-0.05*o(62.0,AGE));
RED7:=1.0-(0.05*a(AGE,62.0,50.0)+0.0667*a(AGE,65.0,62.0));
RED10:=OTHERB; RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(
ASY1>=10.0)!(AGE+ASY1>=85.0); RAS4:=(AGE>=50.0)&(ASY1>=10.0)!(
AGE+ASY1>=85.0); RAS5:=(AGE>=62.0)&(ASY1>=10.0)!(AGE+ASY1>=85.0);
RAS10:=ASY10>=10.0; ROT2:=AGE<62.0; ROT10:=QSSDABLE; ROT11:=
^QSSDABLE; LNG10:=QUITD; BEG7:=ANYTIME(BIRTHD+50.0,0.0); NR1:=
0.012*FAP1*ASY1+12.0; NR1Q:=ord(RAS1)*NR1; NR2:=NN(0.015*FAP1*
ASY1-0.015*SS1*ASY1); NR2Q:=ord(RAS1)*NR2; NR3:=NN(0.015*FAP1*
ASY1-0.015*SS2*ASY1); NR3Q:=ord(RAS1&ROT2)*NR3; NR4:=NN(5.0*u(
ASY1,10.0)+7.0*b(ASY1,10.0,20.0)+9.0*o(ASY1,20.0)+12.0+0.1*FAP1-
0.01*FAP1*u(ASY1,7.0)); NR4Q:=ord(RAS1)*NR4; NRT:=MAX(NR1,NR2,
NR3,NR4); NRQ:=MAX(NR1Q,NR2Q,NR3Q,NR4Q)*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=(12.0+0.012*FAP1*ASY1)*MAX(RED4,RED5); ER1Q:=ord(
RAS4)*ER1; ER2:=NN((12.0+0.015*FAP1*ASY1)*MAX(RED4,RED5)-0.015*
SS1*ASY1); ER2Q:=ord(RAS5)*ER2; ER3:=NN(0.015*FAP1*ASY1*MAX(RED4,
RED5)-0.015*SS2*ASY1); ER3Q:=ord(RAS4&ROT2)*ER3; ER4:=NR4*MAX(
RED4,RED5); ER4Q:=ord(RAS4)*ER4; ERT:=MAX(ER1,ER2,ER3,ER4); ERQ:=
MAX(ER1Q,ER2Q,ER3Q,ER4Q)*12.0; VD1:=(0.012*FAP1*ASY1+12.0*ASY1/
PSY7)*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NN(0.015*FAP1*PSY7-
0.015*SS7*PSY8)*ASY1/PSY7*RED7; VD2Q:=AA(BEG7,0.0)*VD2; VD3:=(
5.0*u(ASY1,10.0)+7.0*b(ASY1,10.0,20.0)+9.0*o(ASY1,20.0)+12.0*
ASY1/PSY7+0.01*FAP1*u(ASY1,10.0))*RED7; VD3Q:=AA(BEG7,0.0)*VD3;
VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1Q,VD2Q,VD3Q)*12.0; DR1:=0.012*
FAP1*ASY10+12.0-RED10; DR1Q:=ord(RAS10)*DR1; DR2:=NN(0.015*FAP1*
ASY10-0.015*ASY10*SS10-RED10); DR2Q:=ord(RAS10&ROT10)*DR2; DR3:=
2.5*ASY10+50.0; DR3Q:=ord(RAS10&ROT11)*AA(QUITD,LNG10)*DR3; DR4:=
5.0*u(ASY10,10.0)+7.0*b(ASY10,10.0,20.0)+9.0*o(ASY10,20.0)+12.0+
0.02*FAP1+0.01*FAP1*u(ASY10,8.0)-RED10; DR4Q:=ord(RAS10)*DR4;
DR5:=MAX(DR1,DR2,DR3); DR5Q:=ord(RAS10&ROT10)*DR5; DRT:=MAX(DR1,
DR2,DR4,DR3+DR5); DRQ:=MAX(DR1Q,DR2Q,DR4Q,DR3Q+DR5Q)*12.0; DS1:=
0.5*ER1*RED13; DS1Q:=ord(RAS4)*DS1; DS2:=0.5*VDT*RED13; DS2Q:=
ord(RAS10)*DS2; DS3:=0.5*ER2*RED13; DS3Q:=ord(RAS5)*DS3; DS4:=
0.5*ER3*RED13; DS4Q:=ord(RAS4&ROT2)*DS4; DS5:=0.5*ER4*RED13;
DS5Q:=ord(RAS4)*DS5; DST:=MAX(DS2,MAX(DS1,DS3,DS4,DS5)); DSQ:=
MAX(DS2Q,MAX(DS1Q,DS3Q,DS4Q,DS5Q))*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS5Q,DS5,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR5Q,
DR5,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD3Q,VD3,VD2Q,
VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,LNG10,
RED13,RED10,RED7,RED5,RED4,SS10, SS7,SS2,SS1,FAP1,SDFAP1,FDFAP1,
PSY8,PSY7,ASY10,ASY1,CNQ) <0 then negative end;

procedure c0057s92; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-(HIRED+1.0))*
1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,1974.0))*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FDFAP2:=MIN(
QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,1974.0); FAP2:=ord(
FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); FDFAP3:=MIN(QUITD,BIRTHD+
65.0,1974.0); FAP3:=ord(FDFAP3>HIRED)*SUM(WAGE,HIRED,FDFAP3);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.03; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); SS1:=SSBASE(1977.0); SDSS2:=MAX(HIRED,
1974.0); SS2:=ord(QUITD>SDSS2)*AVG(SSBASE,SDSS2,QUITD); RED4:=NN(
1.0-0.04*o(65.0,AGE)); RED5:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*
a(AGE,65.0,60.0)); RAS1:=(AGE>=65.0)!(AGE+ASY1>=85.0)&(AGE>=60.0)
;RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS5:=AGE>=55.0; RAS13:=(AGE>=
50.0)&(ASY1>=10.0); RAS14:=AGE>=55.0; ROT4:=PARTD<1973.333;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=(0.01*u(FAP1,SS1)+0.015*o(FAP1,SS1))*
ASY2; NR1Q:=ord(RAS1)*NR1; NR2:=72.0*u(ASY2,40.0); NR2Q:=ord(
RAS1)*NR2; NR3:=(0.01*u(FAP2,SS2)+0.015*o(FAP2,SS2))*ASY3; NR3Q:=
ord(RAS1)*NR3; NR4:=0.015*FAP3; NR4Q:=ord(RAS1)*NR4; NRT:=MAX(
NR1,NR2,NR3+NR4); NRQ:=MAX(NR1Q,NR2Q,NR3Q+NR4Q); LRQ:=NRQ;
MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5;
ER2Q:=ord(RAS5&ROT4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=ER2; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ER1;
DR1Q:=ord(RAS4)*AA(BEG10,0.0)*DR1; DR2:=ER2; DR2Q:=ord(RAS5&ROT4)
*AA(BEG10,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=
ER1*0.5; DS1Q:=ord(RAS13)*DS1; DS2:=ER2*0.5; DS2Q:=ord(RAS14&
ROT4)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,
NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED5,RED4,SS2,SDSS2,
SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,
FAP1,SDFAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0058s90; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-(HIRED+1.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0,
1980.0)-MAX(HIRED+1.0,1976.0))*NNMIN(1.0,WRKHRS/1900.0); ASY3:=
NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,1980.0))*NNMIN(1.0,
WRKHRS/1900.0); FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(
FDFAP1>HIRED)*WAGE(FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0);
SDFAP2:=MAX(HIRED,FDFAP2-60.0/12.0); FAP2:=ord(FDFAP2>SDFAP2)*
AVG(WAGE,SDFAP2,FDFAP2); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,
BENIFITD); RED4:=NN(1.0-0.03*o(65.0,AGE)); RED5:=NN(1.0-0.03*o(
62.0,AGE)); RED13:=JSRED; ASY53:=ASY1+ASY2+ASY3; RAS1:=(AGE>=
65.0)!(AGE>=62.0)&(ASY53>=15.0); RAS4:=(AGE>=62.0)&(ASY53>=10.0);
RAS5:=(AGE>=55.0)&(ASY53>=15.0); RAS10:=AGE>=55.0; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+62.0); BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0)
;NR1:=(0.0125*u(FAP1,6600.0)+0.02*o(FAP1,6600.0))*ASY3; NR1Q:=
ord(RAS1)*NR1; NR2:=0.01667*FAP2*(ASY3+ASY2+ASY1); NR2Q:=ord(
RAS1)*NR2; NR3:=0.02*FAP2*(ASY1+ASY2+ASY3)-0.015*SS1*(ASY1+ASY2+
ASY3); NR3Q:=ord(RAS1)*NR3; NR4:=NR3-0.02*SS1*(ASY1+ASY2+ASY3)*o(
NR3,50000.0)/1000.0; NR4Q:=ord(RAS1)*NR4; NR5:=(23.5+ord(FAP2>=
15000.0)*0.5)*(ASY1+ASY2+ASY3)*12.0; NR5Q:=ord(RAS1)*NR5; NRT:=
MAX(NR1,NR2,NR3,NR4,NR5); NRQ:=MAX(NR1,NR2,NR3,NR4,NR5); LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*
RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)
;VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ERT;
DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=
0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=
0.0; VEDB:=VOPT(MAX(ord(ASYV>=5.0)*0.5,ord(ASYV>=7.0)*0.7,ord((
QUITAGE>=65.0)!(ASYV>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG10,BEG7,ASY53,RED13,RED5,RED4,SS1,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1,ASY3,ASY2,ASY1,
ASYV,CNQ) <0 then negative end;

procedure c0059s91; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-(HIRED+1.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0,
1980.0)-MAX(HIRED+1.0,1976.25))*NNMIN(1.0,WRKHRS/1900.0); ASY3:=
NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,1980.0))*NNMIN(1.0,
WRKHRS/1900.0); FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); FAP2:=ord(FDFAP2>HIRED)*
WAGE(FDFAP2); FDFAP10:=QUITD; FAP10:=AVG(WAGE,MAX(HIRED,FDFAP10-
3.0),FDFAP10); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR;
MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.03*o(
62.0,AGE)); RED13:=JSRED; ASY53:=ASY1+ASY2+ASY3; RAS1:=(AGE>=
65.0)!(AGE>=62.0)&(ASY53>=10.0); RAS4:=(AGE>=55.0)&(ASY53>=15.0);
RAS10:=(AGE>=50.0)&(ASY1>=15.0); BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=(0.0125*u(FAP2,6600.0)+0.02*o(FAP2,6600.0))*
ASY3; NR1Q:=ord(RAS1)*NR1; NR2:=0.01667*FAP1*(ASY1+ASY2+ASY3);
NR2Q:=ord(RAS1)*NR2; NR3:=23.5*(ASY1+ASY2+ASY3)*12.0; NR3Q:=ord(
RAS1)*NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q); LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=MAX(788.0,0.01*FAP10*u(ASY1+ASY2+ASY3,25.0)); DR1Q:=ord(
RAS10)*DR1; DR2:=NRT; DR2Q:=ord(RAS10)*DR2; DRT:=MIN(DR1,DR2);
DRQ:=MIN(DR1Q,DR2Q); DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASYV>=5.0)*
0.5,ord(ASYV>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASYV>=10.0))*1.0));
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,
NR2,NR1Q,NR1,BEG7,ASY53,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP10,FDFAP10,FAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY3,ASY2,ASY1,
ASYV,CNQ) <0 then negative end;

procedure c0060s72; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,1976.0))*NNMIN(1.0,WRKHRS/2000.0); ASY2:=NN(MIN(
QUITD,BIRTHD+65.0,1976.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-50.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(
1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=1.0-(0.0576*a(AGE,
60.0,55.0)+0.0665*a(AGE,62.0,60.0)); RED13:=JSRED; RAS1:=AGE>=
65.0; RAS4:=(AGE>=55.0)&(ASY2>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=0.015*FAP1*(ASY1+ASY2)-0.015*SS1*(ASY1+ASY2);
NR1Q:=ord(RAS1)*NR1; NR2:=10.0*(ASY1+ASY2); NR2Q:=ord(RAS1)*NR2;
NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*
12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DRQ:=0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; ASY51:=ASY1+ASY2; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,ASY51,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,SS1,FAP1,SDFAP1,
FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0061s69; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+68.0)-HIRED)*NNMIN(1.0,WRKHRS/1800.0); ASY2:=NN(MIN(QUITD,
BIRTHD+68.0)-HIRED)*NNMIN(1.0,WRKHRS/1000.0); RED4:=NN(1.0-0.06*
o(62.0,AGE)); RED7:=1.0-(0.0373*a(AGE,59.0,55.0)+0.0495*a(AGE,
61.0,59.0)+0.0695*a(AGE,65.0,61.0)); RED13:=COSTRED; RAS1:=(AGE>=
65.0)!(AGE>=62.0)&(ASY2>=10.0); RAS2:=(AGE>=55.0)&(ASY1>=30.0);
RAS4:=(AGE+ASY1>=85.0)&(AGE>=55.0); RAS5:=(AGE>=55.0)&(ASY2>=
10.0); RAS10:=ASY2>=10.0; DAT2:=(1983.0<=QUITD)&(QUITD<1984.75);
DAT3:=1984.75<=QUITD; ROT10:=^QSSDABLE; LNG2:=BIRTHD+SSAGE(2.0);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=15.0*ASY1; NR1Q:=
ord(RAS1&DAT2)*NR1; NR2:=16.0*ASY1; NR2Q:=ord(RAS1&DAT3)*NR2;
NR3:=375.0; NR3Q:=ord(RAS2)*AA(QUITD,LNG2)*NR3; NRT:=MAX(NR1+NR3,
NR2+NR3); NRQ:=MAX(NR1Q+NR3Q,NR2Q+NR3Q)*12.0; LRQ:=NRQ; MRAGE:=
70.0; ER1:=375.0; ER1Q:=ord(RAS4)*AA(QUITD,LNG2)*ER1; ER2:=NR1*
RED4; ER2Q:=ord(RAS5&DAT2)*ER2; ER3:=NR2*RED4; ER3Q:=ord(RAS5&
DAT3)*ER3; ERT:=MAX(ER1+ER2,ER1+ER3); ERQ:=MAX(ER1Q+ER2Q,ER1Q+
ER3Q)*12.0; VD1:=NR1*RED7; VD1Q:=ord(DAT2)*AA(BEG7,0.0)*VD1;
VD2:=NR2*RED7; VD2Q:=ord(DAT3)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=15.0*ASY1; DR1Q:=ord(RAS10&
DAT2)*DR1; DR2:=16.0*ASY1; DR2Q:=ord(RAS10&DAT3)*DR2; DR3:=MIN(
375.0,15.0*ASY1); DR3Q:=ord(RAS10&DAT2&ROT10)*DR3; DR4:=MIN(
400.0,16.0*ASY1); DR4Q:=ord(RAS10&DAT3&ROT10)*DR4; DRT:=MAX(DR1,
DR2)+MAX(DR3,DR4); DRQ:=(MAX(DR1Q,DR2Q)+MAX(DR3Q,DR4Q))*12.0;
DS1:=ER1*0.5*RED13; DS1Q:=ord(RAS4)*AA(QUITD,LNG2)*DS1; DS2:=ER2*
0.5*RED13; DS2Q:=ord(RAS5&DAT2)*DS2; DS3:=ER3*0.5*RED13; DS3Q:=
ord(RAS5&DAT3)*DS3; DS4:=VD1*0.5*RED13; DS4Q:=ord(RAS1&DAT2)*DS4;
DS5:=VD2*0.5*RED13; DS5Q:=ord(RAS1&DAT3)*DS5; DST:=MAX(MAX(DS4,
DS5),MAX(DS1+DS2,DS1+DS3)); DSQ:=MAX(MAX(DS4Q,DS5Q),MAX(DS1Q+
DS2Q,DS1Q+DS3Q))*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!
(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS5Q,DS5,DS4Q,DS4,
DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,LNG2,
RED13,RED7,RED4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0062s70; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+70.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,
BIRTHD+70.0)-HIRED)*NNMIN(1.0,WRKHRS/1.0); ASY3:=NN(MIN(QUITD,
BIRTHD+70.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); PSY4:=BIRTHD+62.0-
HIRED; FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(HIRED,FDFAP1-
5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FAP13:=
WAGE(QUITD); SS1:=SSBASE(BENIFITD); RED4:=NN(1.0-0.06*o(60.0,AGE)
); RED7:=1.0-(0.0575*a(AGE,57.0,55.0)+0.057*a(AGE,59.0,57.0)+
0.064*a(AGE,62.0,59.0)); RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY2>=
10.0); RAS4:=(AGE+ASY1>=85.0)&(AGE>=55.0); RAS5:=(AGE>=60.0)&(
ASY2>=15.0)!(AGE>=55.0)&(ASY2>=30.0); RAS6:=(AGE>=55.0)&(ASY2>=
10.0); RAS14:=AGE>=55.0; ROT10:=QCODABLE; LNG4:=BIRTHD+SSAGE(2.0)
;LNG13:=1.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+62.0); BEG10:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.01667*u(ASY1,15.0)+
0.005*b(ASY1,15.0,35.0))*u(FAP1,SS1); NR1Q:=ord(RAS1)*NR1; NR2:=
NR1+(0.02667*u(ASY1,15.0)+0.005*b(ASY1,15.0,35.0))*o(FAP1,SS1);
NR2Q:=ord(RAS1)*NR2; NR3:=0.015*u(FAP1,16000.0)*ASY3; NR3Q:=ord(
RAS1)*NR3; NR4:=(0.015*u(FAP1,SS1)+0.02*o(FAP1,SS1))*ASY1; NR4Q:=
ord(RAS1)*NR4; NRT:=MAX(NR2,NR3,NR4); NRQ:=MAX(NR2Q,NR3Q,NR4Q);
LRQ:=NRQ; MRAGE:=70.0; ER1:=(0.01667*u(PSY4,15.0)+0.005*b(PSY4,
15.0,35.0))*u(FAP1,SS1); ER1Q:=ord(RAS6)*ER1; ER2:=3900.0; ER2Q:=
ord(RAS5)*AA(QUITD,LNG4)*ER2; ER3:=(0.4+0.005*b(ASY1,15.0,35.0))*
FAP1; ER3Q:=ord(RAS4)*AA(QUITD,LNG4)*ER3; ER4:=ASY1/PSY4*(ER1+(
0.02667*u(PSY4,15.0)+0.005*b(PSY4,15.0,35.0))*o(FAP1,SS1))*RED4;
ER4Q:=ord(RAS6)*ER4; ER5:=MAX(NR2,NR3)*RED4; ER5Q:=ord(RAS6)*ER5;
ERT:=MAX(ER2+MAX(ER4,ER5),ER3); ERQ:=MAX(ER2Q+MAX(ER4Q,ER5Q),
ER3Q); VD1:=(0.0167*u(PSY4,15.0)+0.005*b(PSY4,15.0,35.0))*u(FAP1,
SS1)+(0.0267*u(PSY4,15.0)+0.005*b(PSY4,15.0,35.0))*o(FAP1,SS1);
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR2*RED7; VD2Q:=AA(BEG7,0.0)*VD2;
VD3:=NR3*RED7; VD3Q:=AA(BEG7,0.0)*VD3; VD4:=VD1*ASY1/PSY4*RED7;
VD4Q:=AA(BEG7,0.0)*VD4; VDT:=MAX(VD4,VD2,VD3); VDQ:=MAX(VD4Q,
VD2Q,VD3Q); DR1:=ER1; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DR2:=
ER2; DR2Q:=ord(ROT10)*AA(BEG10,LNG4)*DR2; DR3:=ER3; DR3Q:=ord(
ROT10)*AA(BEG10,LNG4)*DR3; DR4:=ER4; DR4Q:=ord(ROT10)*AA(BEG10,
0.0)*DR4; DR5:=ER5; DR5Q:=ord(ROT10)*AA(BEG10,0.0)*DR5; DRT:=MAX(
DR2+MAX(DR4,DR5),DR3); DRQ:=MAX(DR2Q+MAX(DR4Q,DR5Q),DR3Q); DS1:=
FAP13; DS1Q:=AA(QUITD,LNG13+QUITD)*DS1; DS2:=0.25*FAP13; DS2Q:=
ord(RAS14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR5Q,DR5,DR4Q,DR4,
DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,
BEG7,LNG13,LNG4,RED7,RED4,SS1,FAP13,FAP1,SDFAP1, FDFAP1,PSY4,
ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0063s71; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/1700.0); ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/1000.0); ASY10:=NNMIN(25.0,MIN(
QUITD,BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/1700.0); FAP4:=WAGE(
QUITD)/12.0; RED4:=1.0-(0.024*a(AGE,52.0,42.0)+0.0488*a(AGE,57.0,
52.0)+0.0612*a(AGE,62.0,57.0)); RED5:=a(AGE,56.0,55.0)+1.25*a(
AGE,59.0,56.0)+1.5*a(AGE,60.0,59.0); RED7:=1.0-(0.042*a(AGE,57.0,
55.0)+0.0427*a(AGE,60.0,57.0)+0.072*a(AGE,65.0,60.0)); RED13:=
COSTRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY2>=10.0); RAS4:=(AGE>=
60.0)&(ASY1>=10.0)!(AGE+ASY1>=85.0)&(AGE>=55.0); RAS5:=ASY1>=
30.0; RAS10:=ASY1>=10.0; LNG4:=BIRTHD+62.0; BGN5:=MAX(BIRTHD+
62.0,QUITD); LNG10:=QUITD; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0)
;NR1:=18.45*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0;
LRQ:=NRQ; MRAGE:=70.0; ER1:=18.45*ASY1*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=935.0; ER2Q:=ord(RAS5)*AA(QUITD,LNG4)*ER2; ER3:=NR1; ER3Q:=
ord(RAS5)*AA(BGN5,0.0)*ER3; ER4:=11.5-RED5; ER4Q:=ord(RAS4)*AA(
QUITD,LNG4)*ER4; ER5:=0.7*FAP4; ER5Q:=ER5; ERT:=MIN(ER5,MAX(ER1+
ER4),ER2+ER3); ERQ:=MIN(ER5Q,MAX(ER1Q+ER4Q),ER2Q+ER3Q)*12.0;
VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DR1:=NR1; DR1Q:=ord(RAS10)*DR1; DR2:=15.0*ASY10; DR2Q:=ord(RAS10)
*AA(QUITD,LNG10)*DR2; DR3:=ER5; DR3Q:=DR3; DRT:=MIN(DR1+DR2,DR3);
DRQ:=MIN(DR1Q+DR2Q,DR3Q)*12.0; DS1:=ER1*RED13*0.6; DS1Q:=ord(
RAS4)*DS1; DS2:=ER2*RED13*0.6; DS2Q:=ord(RAS5)*AA(QUITD,LNG4)*
DS2; DS3:=ER3*RED13*0.6; DS3Q:=ord(RAS5)*AA(BGN5,0.0)*DS3; DS4:=
ER4*RED13*0.6; DS4Q:=ord(RAS4)*AA(QUITD,LNG4)*DS4; DS5:=ER5*
RED13*0.6; DS5Q:=DS5; DST:=MIN(DS5,MAX(DS1+DS4),DS2+DS3); DSQ:=
MIN(DS5Q,MAX(DS1Q+DS4Q),DS2Q+DS3Q)*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS5Q,DS5,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,
DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,
ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,
LNG10,BGN5,LNG4,RED13,RED7,RED5,RED4,FAP4,ASY10,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0064s68; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-48.0/12.0),FDFAP1)
;FAP10:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.045;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SS10:=SS(5.0,BENIFITD);
SS11:=SS(1.0,BENIFITD); RED4:=NN(1.0-0.06*o(60.0,AGE)); RED10:=
OTHERB; RAS1:=(AGE>=55.0)&(ASY1>=35.0)!(AGE>=60.0)&(ASY1>=8.0);
RAS4:=(AGE>=55.0)&(ASY1>=8.0); RAS10:=ASY1>=1.0; RAS11:=(AGE>=
60.0)&(ASY1>=1.0); RAS12:=(AGE>=65.0)&(ASY1>=8.0); ROT10:=
AGE<60.0; LNG10:=BIRTHD+65.0; LNG11:=BIRTHD+70.0; LNG13:=1.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+65.0,
QUITD); BEG12:=MAX(BIRTHD+70.0,QUITD); NR1:=0.01667*FAP1*u(ASY1,
15.0)+0.02*FAP1*o(ASY1,15.0); NR1Q:=ord(RAS1)*NR1; NR2:=0.75*
FAP1; NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q)
;LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=30.0*12.0; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q); VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DR1:=NN(0.5*FAP10-SS10-RED10); DR1Q:=ord(RAS10&ROT10)*AA(
QUITD,LNG10)*DR1; DR2:=NR1; DR2Q:=ord(RAS12&ROT10)*AA(BEG11,0.0)*
DR2; DR3:=NN(0.5*FAP10-SS10-RED10); DR3Q:=ord(RAS11)*AA(QUITD,
LNG10)*DR3; DR4:=NN(0.5*FAP10-SS11-RED10); DR4Q:=ord(RAS11)*AA(
BEG11,LNG11)*DR4; DR5:=NR1; DR5Q:=ord(RAS12)*AA(BEG12,0.0)*DR5;
DRT:=MAX(DR1+DR2,DR3+DR4+DR5); DRQ:=MAX(DR1Q+DR2Q,DR3Q+DR4Q+DR5Q)
;DS1:=FAP10+1000.0; DS1Q:=AA(QUITD,LNG13+QUITD)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=TAR(0.03,1.0); VEDB:=VOPT(ord((QUITAGE>=55.0)&(
ASY1>=8.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR5Q,DR5,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG12,BEG11,BEG7,LNG13,LNG11,LNG10,RED10,RED4,SS11,SS10,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP10,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0065s79; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=800.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+
1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/1920.0); FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SSBASE(
BENIFITD); RED4:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS13:=(AGE>=55.0)&(
ASY1>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.0125*
u(FAP1,SS1)*ASY1+0.015*o(FAP1,SS1)*ASY1; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=(1.0+0.06*b(AGE,65.0,70.0))*NRQ;
MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*
12.0; DRQ:=0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS13)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,
RED13,RED4,SS1,FAP1,SDFAP1,FDFAP1,ASY1,ASYV,CNQ) <0 then
negative end;

procedure c0066s78; begin CNQ:=0.0; ASY1:=MIN(40.0,QUITD-HIRED)*
1.0; FDFAP1:=MIN(QUITD,QUITD-ASY1+40.0); FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-24.0/12.0),FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7);
RED4:=NN(1.0-0.03*o(62.0,AGE)); RED13:=JSRED; RAS1:=(ASY1>=30.0)!
(AGE>=62.0)&(ASY1>=10.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS10:=
ASY1>=9.0; RAS13:=ASY1>=10.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+
62.0); NR1:=0.02*ASY1*FAP1; NR1Q:=ord(RAS1)*NR1; NR2:=12.0*ASY1;
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=NR1*RED4; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q*12.0; DR1:=NR1; DR1Q:=ord(RAS10)*DR1; DRT:=DR1;
DRQ:=DR1Q*12.0; DS1:=NR1*RED13*0.5; DS1Q:=ord(RAS13)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=TAR(MIN(0.95*FAR(ACPIG,6.0/12.0),
0.015),6.0/12.0); VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,
MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then negative
end;

procedure c0067s73; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1978.0)-MAX(HIRED,MIN(HIRED+1.0,BIRTHD+20.0)))*ord(WRKHRS>=
1000.0)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1974.25)-MAX(HIRED,
MIN(HIRED+1.0,BIRTHD+20.0)))*ord(WRKHRS>=1000.0)*1.0; ASY3:=NN(
MIN(QUITD,BIRTHD+65.0,1978.0)-MAX(HIRED,MIN(HIRED+1.0,BIRTHD+
20.0),1974.25))*ord(WRKHRS>=1000.0)*1.0; ASY4:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+20.0,1978.0))*NNMIN(1.0,
WRKHRS/2185.0); ASY5:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-36.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(
HIRED,FDFAP2-60.0/12.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,
SDFAP2,FDFAP2); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR;
MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,BENIFITD);
SS4:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); SS7:=SS(1.0,MAX(BENIFITD,
BIRTHD+65.0)); SS10:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=NN(
1.0-0.03*o(65.0,AGE)); RED7:=AR(65.0-AGE); RED10:=NN(1.0-0.03*o(
65.0,AGE)); RED11:=AR(65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0;
RAS4:=(AGE>=60.0)&(ASY5>=10.0); RAS10:=AGE>=55.0; RAS13:=(AGE>=
50.0)&(ASY5>=10.0); ROT1:=QWDVOL!(1979.0<=QUITD); ROT2:=^QWDVOL&(
PARTD<1978.0); BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); NR1:=(
0.016*FAP1-0.015*SS1)*(ASY1+ASY4); NR1Q:=ord(RAS1&ROT1)*NR1;
NR2:=ASY2*(0.01*u(FAP2,3600.0)+0.015*o(FAP2,3600.0))+ASY3*(0.01*
u(FAP2,7800.0)+0.015*o(FAP2,7800.0)); NR2Q:=ord(RAS1&ROT2)*NR2;
NR3:=0.8*FAP1-SS1; NR3Q:=ord(RAS1)*NR3; NR4:=NR2+ASY4*(0.016*
FAP1-0.015*SS1); NR4Q:=ord(RAS1&ROT2)*NR4; NRT:=MIN(NR3,MAX(NR1,
NR4)); NRQ:=MIN(NR3Q,MAX(NR1Q,NR4Q)); LRQ:=NRQ; MRAGE:=999.0;
ER1:=(0.016*FAP1-0.015*SS4)*(ASY1+ASY4)*RED4; ER1Q:=ord(RAS4&
ROT1)*ER1; ER2:=ASY2*(0.01*u(FAP2,3600.0)+0.015*o(FAP2,3600.0))+
ASY3*(0.01*u(FAP2,7800.0)+0.015*o(FAP2,7800.0)); ER2Q:=ord(RAS4&
ROT2)*ER2; ER3:=0.8*FAP1-SS4; ER3Q:=ord(RAS4)*ER3; ER4:=(ER2+
ASY4*(0.016*FAP1-0.015*SS4))*RED4; ER4Q:=ord(RAS4&ROT2)*ER4;
ERT:=MIN(ER3,MAX(ER1,ER4)); ERQ:=MIN(ER3Q,MAX(ER1Q,ER4Q)); VD1:=(
(0.016*FAP1-0.015*SS7)*ASY1+ASY4)*RED7; VD1Q:=ord(ROT1)*AA(BEG7,
0.0)*VD1; VD2:=ASY2*(0.01*u(FAP2,3600.0)+0.015*o(FAP2,3600.0))+
ASY3*(0.01*u(FAP2,7800.0)+0.015*o(FAP2,7800.0)); VD2Q:=ord(ROT2)*
AA(BEG7,0.0)*VD2; VD3:=0.8*FAP1-SS7; VD3Q:=AA(BEG7,0.0)*VD3;
VD4:=(VD2+ASY4*0.016*FAP1-0.015*SS7)*RED7; VD4Q:=ord(ROT2)*AA(
BEG7,0.0)*VD4; VDT:=MIN(VD3,MAX(VD1,VD4)); VDQ:=MIN(VD3Q,MAX(
VD1Q,VD4Q)); DR1:=(0.016*FAP1-0.015*SS10)*(ASY1+ASY4)*RED10;
DR1Q:=ord(RAS10&ROT1)*DR1; DR2:=ASY2*(0.01*u(FAP2,3600.0)+0.015*
o(FAP2,3600.0))+ASY3*(0.01*u(FAP2,7800.0)+0.015*o(FAP2,7800.0));
DR2Q:=ord(ROT2)*DR2; DR3:=(DR2+ASY4*(0.016*FAP1-0.015*SS10))*
RED11; DR3Q:=ord(ROT2)*DR3; DRT:=MAX(DR1,DR3); DRQ:=MAX(DR1Q,
DR3Q); DS1:=0.6*ER1*RED13; DS1Q:=ord(RAS13&ROT1)*DS1; DS2:=0.6*
ER2*RED13; DS2Q:=ord(RAS13&ROT2)*DS2; DST:=MAX(DS1,DS2); DSQ:=
MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY5>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED11,
RED10,RED7,RED4,SS10,SS7,SS4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP2,
SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY5,ASY4,ASY3,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0068s89; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
67.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=
NN(MIN(QUITD,BIRTHD+67.0,1973.0)-MAX(HIRED+1.0,BIRTHD+25.0))*
NNMIN(1.0,WRKHRS/12.0); ASY3:=NN(MIN(QUITD,BIRTHD+67.0)-MAX(
HIRED+1.0,BIRTHD+25.0,1973.0))*NNMIN(1.0,WRKHRS/1801.0); RED4:=
NN(1.0-0.06*o(65.0,AGE)); RED13:=COSTRED; RED14:=JSRED; RAS1:=
AGE>=65.0; ASY56:=ASY2+ASY3; RAS2:=ASY56>=30.0; RAS4:=(AGE>=50.0)
&(ASY1>=10.0); RAS5:=ASY56>=30.0; RAS10:=ASY1>=10.0; BEG7:=
ANYTIME(BIRTHD+50.0,BIRTHD+65.0); NR1:=22.0*b(ASY2+ASY3,9.0,25.0)
*MIN(ASY2+ASY3,10.0)/10.0; NR1Q:=ord(RAS1)*NR1; NR2:=413.0;
NR2Q:=ord(RAS2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
413.0; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q)*12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=22.0*b(ASY2+ASY3,9.0,20.0)*MIN(ASY2+ASY3,10.0)/
10.0*RED4; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=
ER1*RED13*RED14*0.5; DS1Q:=ord(RAS4)*DS1; DS2:=ER2*RED13*RED14*
0.5; DS2Q:=ord(RAS5)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*
12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG7,ASY56,RED14,RED13,RED4,ASY3,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0069s88; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1979.5)-(
HIRED+1.0))*1.0; ASY2:=NN(QUITD-(HIRED+1.0))*1.0; ASY3:=NN(QUITD-
MAX(HIRED+1.0,1979.5))*1.0; ASY4:=(QUITD-HIRED)*1.0; FDFAP1:=MIN(
QUITD,1979.5); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SDFAP2:=MAX(HIRED,
1979.5); FAP2:=ord(QUITD>SDFAP2)*AVG(WAGE,SDFAP2,QUITD); FAP3:=
AVG(WAGE,HIRED,QUITD); RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*
a(AGE,65.0,60.0)); RED13:=COSTRED; RED14:=JSRED; RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY4>=10.0); ROT2:=PARTD<1979.5; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.015*FAP1*ASY1+0.015*
FAP2*ASY3; NR1Q:=ord(RAS1)*NR1; NR2:=150.0*ASY2; NR2Q:=ord(RAS1)*
NR2; NR3:=(0.01*u(FAP3,6600.0)+0.019*o(FAP3,6600.0))*ASY2; NR3Q:=
ord(RAS1&ROT2)*NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,
NR3Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=MAX(NR1,NR2)*RED4; ER1Q:=ord(
RAS4)*ER1; ER2:=NR3*RED4; ER2Q:=ord(RAS4&ROT2)*ER2; ERT:=MAX(ER1,
ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1;
VD2:=ER2; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2);
VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=0.5*ER1*RED14*RED13; DS1Q:=
ord(RAS4)*DS1; DS2:=0.5*ER2*RED14*RED13; DS2Q:=ord(RAS4&ROT2)*
DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=
VOPT(MAX(ord(ASY4>=5.0)*0.5,ord(ASY4>=7.0)*0.7,ord((QUITAGE>=
65.0)!(ASY4>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,
DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED14,
RED13,RED4,FAP3,FAP2,SDFAP2,FAP1,SDFAP1,FDFAP1,ASY4,ASY3,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0070s87; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED+1.0,
BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/2000.0);
ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,
1964.0))*NNMIN(1.0,WRKHRS/2000.0); ASY7:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,
SDMAN7,FDMAN7); RED4:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=
65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=15.0); ROT1:=
PARTD<1969.0; ROT2:=1969.0<=QUITD; ROT7:=ASY7>=15.0; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(NRD,QUITD); NR1:=2.5*
ASY1+0.01375*o(FAP1,400.0)*ASY1; NR1Q:=ord(RAS1&ROT1)*NR1; NR2:=
2.5*ASY2+0.01375*o(FAP1,400.0)*ASY2; NR2Q:=ord(RAS1&ROT2)*NR2;
NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=AI(AGE,65.0,
999.0)*NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&ROT1)*
ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4&ROT2)*ER2; ERT:=MAX(ER1,ER2);
ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=NRT; VD1Q:=ord(ROT1)*AA(BEG8,0.0)*
VD1; VD2:=ERT; VD2Q:=ord(ROT7)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DRQ:=0.0; DS1:=ER1*RED13*0.5;
DS1Q:=ord(RAS4&ROT1)*DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(RAS4&
ROT2)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=
0.0; VEDB:=VOPT(ord(ASYV>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,
ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,
ASY51,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,
ASY7,ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0071s85; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1961.25)-HIRED)*1.0; ASY2:=NNMIN(35.0,MIN(QUITD,BIRTHD+65.0)
-MAX(HIRED,1961.25))*ord(WRKHRS>=1000.0)*1.0; RED4:=NN(1.0-0.05*
o(65.0,AGE)); RED10:=OTHERB; RED13:=JSRED; RAS1:=AGE>=65.0;
ASY51:=ASY1+ASY2; RAS4:=(AGE>=60.0)&(ASY51>=15.0); RAS10:=ASY51>=
15.0; ROT1:=PARTD<1961.25; ROT2:=1961.25<=QUITD; ROT10:=QSSDABLE;
LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0);
BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=5.5*ASY1; NR1Q:=ord(RAS1&
ROT1)*NR1; NR2:=5.5*ASY2; NR2Q:=ord(RAS1&ROT2)*NR2; NRT:=NR1+NR2;
NRQ:=(NR1Q+NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4&ROT1)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT;
VD1Q:=ord(ROT1)*AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
NRT-RED10; DR1Q:=ord(RAS10&ROT10)*AA(QUITD,LNG10)*DR1; DR2:=NRT;
DR2Q:=ord(RAS10&ROT1)*AA(BEG11,0.0)*DR2; DRT:=DR1+DR2; DRQ:=(
DR1Q+DR2Q)*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4&ROT1)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG11,BEG7,LNG10,ASY51,
RED13,RED10,RED4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0072s86; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
5.0),FDFAP1); RED4:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)&(ASY1>=15.0); BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.0135*u(FAP1,6600.0)+0.018*o(
FAP1,6600.0))*u(ASY1,25.0)+0.00375*FAP1*o(ASY1,25.0); NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=ERT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,
RED13,RED4,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0073s84; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*
1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,
1976.0))*ord(WRKHRS>=1000.0)*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0)
-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(
QUITD,BIRTHD+65.0,1976.0); SDFAP1:=MAX(HIRED,1975.0); FAP1:=ord(
FDFAP1>SDFAP1)*WAGE(FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0);
SDFAP2:=MAX(HIRED,1976.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,
SDFAP2,FDFAP2); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR;
MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=AR(65.0-AGE);
RED5:=NN(1.0-0.04*o(65.0,AGE)); RED13:=JSRED; RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY3>=10.0); RAS5:=(AGE>=55.0)&(ASY3>=15.0);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.00625*u(FAP1,
6600.0)+0.01375*b(FAP1,6600.0,20000.0)+0.005*o(FAP1,20000.0))*
ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.01*u(FAP2,10800.0)+0.015*o(
FAP2,10800.0))*ASY2; NR2Q:=ord(RAS1)*NR2; NRT:=NR1+NR2; NRQ:=
NR1Q+NR2Q; LRQ:=NRQ; MRAGE:=65.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*
ER1; ER2:=NRT*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=
MAX(ER1Q,ER2Q); VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DRQ:=0.0; DS1:=ER1*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY3>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG7,RED13,RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP2,SDFAP2,
FDFAP2,FAP1,SDFAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0074s83; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,1966.083))*1.0; ASY2:=NN(MIN(QUITD,
1966.083)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,QUITD-ASY1+
30.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+60.0));
RED4:=NN(1.0-0.04*o(65.0,AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED;
RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=60.0)!(AGE>=55.0)&
(ASY51>=15.0); RAS13:=(AGE>=55.0)&(ASY51>=10.0); ROT2:=
PARTD<1966.083; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG10:=MAX(NRD,QUITD); NR1:=0.015*FAP1*ASY1-
0.01667*SS1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.005*FAP1*ASY2;
NR2Q:=ord(RAS1&ROT2)*NR2; NRT:=NR1+NR2; NRQ:=NR1Q+NR2Q; LRQ:=AI(
AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=ERT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*
DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,ASY51,RED13,RED7,RED4,SS1,
FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0075s82; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
1962.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(15.0,MIN(QUITD,
1962.0)-HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1962.0))*NNMIN(1.0,
WRKHRS/1600.0); RED4:=1.0-(0.01*a(AGE,61.0,55.0)+0.04*a(AGE,62.0,
61.0)); RED5:=1.0-(0.0113*a(AGE,60.0,55.0)+0.0124*a(AGE,61.0,
60.0)+0.0453*a(AGE,62.0,61.0)); RED13:=COSTRED; ASY51:=ASY1+ASY2;
RAS1:=(AGE>=62.0)&(ASY51>=10.0)!(AGE>=65.0)&(ASY51>=5.0); RAS4:=(
AGE>=55.0)&(ASY51>=10.0); RAS10:=ASY51>=15.0; RAS13:=(AGE>=53.0)&
(ASY51>=10.0)!(AGE>=65.0)&(ASY51>=5.0); ROT2:=PARTD<1962.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+62.0); NR1:=15.0*ASY1; NR1Q:=
ord(RAS1&ROT2)*NR1; NR2:=17.0*ASY2; NR2Q:=ord(RAS1)*NR2; NRT:=
NR1+NR2; NRQ:=(NR1Q+NR2Q)*12.0; LRQ:=NRQ; MRAGE:=65.0; ER1:=NR1*
RED4; ER1Q:=ord(RAS4&ROT2)*ER1; ER2:=NR2*RED5; ER2Q:=ord(RAS4)*
ER2; ERT:=ER1+ER2; ERQ:=(ER1Q+ER2Q)*12.0; VD1:=ER1; VD1Q:=ord(
ROT2)*AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=
VD1+VD2; VDQ:=(VD1Q+VD2Q)*12.0; DR1:=10.0*ASY1; DR1Q:=ord(RAS10&
ROT2)*DR1; DR2:=13.0*ASY2; DR2Q:=ord(RAS10)*DR2; DRT:=DR1+DR2;
DRQ:=(DR1Q+DR2Q)*12.0; DS1:=ER1; DS1Q:=ord(RAS13&ROT2)*DS1; DS2:=
ER2; DS2Q:=ord(RAS13)*DS2; DST:=(DS1+DS2)*RED13*0.5; DSQ:=(DS1Q+
DS2Q)*RED13*0.5*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASYV>=10.0)*1.0);
if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,ASY51,RED13,RED5,RED4,
ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0076s57; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,
99.0,0.0,SDMAN7,FDMAN7); RED4:=AR(NRD-BENIFITD); RED13:=JSRED;
RAS1:=(AGE>=60.0)&(ASY1>=5.0); RAS4:=(AGE>=55.0)&(ASY1>=20.0);
RAS11:=ASY1>=10.0; RAS13:=ASY1>=10.0; ROT10:=QJRDABLE; ROT11:=
^QJRDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+62.0); NR1:=0.02*
FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT; DR1Q:=ord(ROT10)*DR1; DR2:=NRT; DR2Q:=ord(RAS11&ROT11)*
DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=ERT*RED13;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord(ASY1>=5.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0077s56; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED,
BIRTHD+25.0,1975.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(QUITD-MAX(
HIRED+1.0,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0; SS1:=SS(1.0,
MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=1.0-(0.0333*a(AGE,60.0,
55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=(AGE>=65.0)&(
ASY2>=5.0); RAS4:=(AGE>=55.0)&(ASY2>=10.0); BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=(0.02*FAP1-0.02*SS1)*u(ASY1,25.0)+0.005*
FAP1*o(ASY1,25.0); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=0.5*NRT*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((ASY2>=
10.0)!(QUITAGE>=65.0)&(ASY2>=5.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,SS1,FAP1,FDFAP1,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0079s52; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,
1979.25))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1979.25)-HIRED)*
1.0; RED4:=NN(1.0-0.06*o(65.0,AGE)); RED5:=NN(1.0-0.06*o(62.0,
AGE)); RED13:=JSRED; RED14:=NN(1.0-0.09*o(65.0,AGE)); ASY51:=
ASY1+ASY2; RAS1:=(AGE>=65.0)&(ASY51>=5.0)!(AGE>=62.0)&(ASY51>=
20.0); RAS4:=(AGE>=55.0)&(ASY51>=15.0); RAS5:=(AGE>=55.0)&(
ASY51>=20.0); RAS10:=ASY51>=15.0; ROT2:=PARTD<1979.25; ROT7:=
ASY1+ASY2>=15.0; ROT8:=(PARTD<1979.25)&(ASY1+ASY2>=15.0); ROT10:=
^QSSBENIF; BEG7:=ANYTIME(BIRTHD+65.0,0.0); BEG8:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=15.5*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=3.5*
ASY2; NR2Q:=ord(RAS1&ROT2)*NR2; NRT:=NR1+NR2; NRQ:=(NR1Q+NR2Q)*
12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1; ER1Q:=ord(RAS4)*ER1; ER2:=
NR2; ER2Q:=ord(RAS5&ROT2)*ER2; ER3:=NR1; ER3Q:=ord(RAS5)*ER3;
ER4:=NR2; ER4Q:=ord(RAS5&ROT2)*ER4; ERT:=MAX((ER1+ER2)*RED4,(ER3+
ER4)*RED5); ERQ:=MAX((ER1Q+ER2Q)*RED4,(ER3Q+ER4Q)*RED5)*12.0;
VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR1; VD2Q:=ord(ROT7)*AA(
BEG8,0.0)*VD2; VD3:=NR2; VD3Q:=ord(ROT8)*AA(BEG8,0.0)*VD3; VD4:=
NR2; VD4Q:=ord(ROT2)*AA(BEG7,0.0)*VD4; VDT:=MAX(MAX(VD1,VD4,VD2)*
RED4,VD3*RED5); VDQ:=MAX(MAX(VD1Q,VD4Q,VD2Q)*RED4,VD3Q*RED5)*
12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DR2:=150.0*ASY1/(ASY1+ASY2)
;DR2Q:=ord(RAS10&ROT10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,
DR2Q)*12.0; DS1:=ER1; DS1Q:=ord(RAS4)*DS1; DS2:=ER2; DS2Q:=ord(
RAS5&ROT2)*DS2; DS3:=ER1; DS3Q:=ord(RAS5)*DS3; DS4:=ER2; DS4Q:=
ord(RAS5&ROT2)*DS4; DST:=0.5*MAX((DS1+DS2)*RED4,(DS3+DS4)*RED5)*
RED13*RED14; DSQ:=0.5*MAX((DS1Q+DS2Q)*RED4,(DS3Q+DS4Q)*RED5)*
RED13*RED14*12.0; PRAG:=0.0; VEDB:=VOPT(ord((ASYV>=10.0)!(
QUITAGE>=65.0)&(ASYV>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,
DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,
ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG8,
BEG7,ASY51,RED14,RED13,RED5,RED4,ASY2,ASY1,ASYV,CNQ) <0 then
negative end;

procedure c0080s49; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+21.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY4:=
(QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,BENIFITD); RED4:=1.0-(0.06*
a(AGE,60.0,50.0)+0.04*a(AGE,62.0,60.0)); RED5:=AR(62.0-AGE);
RED7:=AR(NRD-BENIFITD); RAS1:=AGE>=62.0; RAS2:=AGE>=60.0; RAS4:=(
AGE>=50.0)&(ASY4>=15.0); RAS13:=(AGE>=55.0)!(AGE>=50.0)&(ASY4>=
15.0)!(AGE+ASY4>=70.0); ROT2:=PARTD<1967.25; ROT7:=ASY4>=15.0;
BEG7:=ANYTIME(BIRTHD+62.0,BIRTHD+65.0); BEG8:=ANYTIME(BIRTHD+
50.0,BIRTHD+65.0); NR1:=0.0175*FAP1*u(ASY1,40.0)-0.0125*SS1*u(
ASY1,40.0); NR1Q:=ord(RAS1)*NR1; NR2:=0.02*FAP1*u(ASY1,35.0)-
0.015*SS1*u(ASY1,35.0); NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=NR1;
NR3Q:=ord(RAS2&ROT2)*NR3; NR4:=NR2; NR4Q:=ord(RAS2&ROT2)*NR4;
NRT:=MAX(NR1,NR2,NR3,NR4); NRQ:=MAX(NR1Q,NR2Q,NR3Q,NR4Q); LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*
RED5; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)
;VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NRT*RED7; VD2Q:=ord(ROT7)
*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=
0.0; DS1:=0.5*ERT; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=60.0)!(QUITAGE>=62.0)!(ASYV>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,
VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,
NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,RED7,RED5,RED4,SS1,
FAP1,SDFAP1,FDFAP1,ASY4,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0081s48; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-HIRED)*ord(WRKHRS>=12.0)*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,1976.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=
MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; RED4:=1.0-(0.0333*a(
AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED10:=AR(65.0-AGE);
RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=
55.0)&(ASY51>=10.0); RAS10:=ASY51>=10.0; RAS11:=(AGE>=55.0)&(
ASY51>=10.0); ROT10:=QCODABLE; BEG7:=MAX(BIRTHD+65.0,QUITD);
BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=0.01*FAP1*(ASY1+ASY2); NR1Q:=
ord(RAS1)*NR1; NR2:=20.0; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=
999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*
12.0; VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DR1:=ER1; DR1Q:=ord(RAS11)*DR1; DR2:=NR1*RED10; DR2Q:=ord(RAS10&
ROT10)*AA(BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*
12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY51>=5.0)*0.5,ord(
ASY51>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0)); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG11,BEG7,ASY51,RED13,RED10,RED4,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0082s47; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+70.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=
MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVGMIN(20000.0,
WAGE,SDFAP1,FDFAP1); FAP13:=SUMMIN(20000.0,WAGE,HIRED,QUITD);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.037; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.06*o(65.0,AGE)); RED7:=
1.0-(0.06*a(AGE,62.0,55.0)+0.03*a(AGE,65.0,62.0)); RED10:=NN(1.0-
0.03*o(65.0,AGE)); RAS1:=AGE>=65.0; RAS2:=(AGE>=65.0)&(ASY1>=
10.0); RAS4:=AGE>=55.0; RAS10:=ASY1>=30.0; ROT10:=QSSDABLE;
LNG13:=1.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.5*FAP1*ASY1/30.0; NR1Q:=
ord(RAS1)*NR1; NR2:=50.0*12.0; NR2Q:=ord(RAS2)*NR2; NRT:=MAX(NR1,
NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&
ROT10)*AA(BEG10,0.0)*DR1; DR2:=NRT*RED10; DR2Q:=ord(ROT10)*AA(
BEG10,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=
0.0945*FAP13; DS1Q:=AA(QUITD,LNG13+QUITD)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASY1>=4.0))*1.0)
;if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,
NR1Q,NR1,BEG10,BEG7,LNG13,RED10,RED7,RED4,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP13,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0083s11; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1)/12.0;
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; SS2:=SS(2.0,MAX(
BENIFITD,BIRTHD+62.0))/12.0; RED4:=NN(1.0-0.05*o(60.0,AGE));
RED5:=5.0*o(60.0,AGE); RED7:=AR(65.0-AGE); RED13:=JSRED; RED14:=
COSTRED; RAS1:=AGE>=65.0; RAS2:=(AGE>=60.0)&(ASY1>=10.0); RAS4:=(
AGE>=55.0)&(ASY1>=15.0); RAS13:=(AGE>=55.0)&(ASY1>=10.0); ROT2:=
AGE<65.0; ROT3:=AGE<62.0; LNG2:=BIRTHD+SSAGE(2.0); LNG4:=BIRTHD+
SSAGE(2.0); BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+65.0); NR1:=NN(
0.016*ASY1*FAP1-0.015*SS1*ASY1); NR1Q:=ord(RAS1)*NR1; NR2:=NN(
0.016*ASY1*FAP1-0.015*SS2*ASY1); NR2Q:=ord(RAS2&ROT2)*NR2; NR3:=
MAX(150.0,0.015*SS2*ASY1); NR3Q:=ord(RAS2&ROT3)*AA(QUITD,LNG2)*
NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q)*12.0; LRQ:=
NRQ; MRAGE:=70.0; ER1:=NR2*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NN(
NR3-RED5); ER2Q:=ord(RAS4)*AA(QUITD,LNG4)*ER2; ERT:=MAX(ER1,ER2);
ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=ERT*RED13*RED14*0.5;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,LNG4,LNG2,
RED14,RED13,RED7,RED5,RED4,SS2,SS1,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0084s10; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(35.0,MIN(
QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NNMIN(
25.0,MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1964.0))*ord(WRKHRS>=
1000.0)*1.0; ASY3:=NNMIN(25.0,MIN(QUITD,BIRTHD+65.0,1964.0)-
HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0);
SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(
HIRED,FDFAP2-35.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,
FDFAP2); SS1:=SS(1.0,BENIFITD); RED4:=AR(NRD-BENIFITD); RED13:=
JSRED; RAS1:=(AGE>=65.0)&(ASY1>=5.0); RAS4:=(AGE>=55.0)&(ASY1>=
10.0)!(AGE>=60.0)&(ASY1>=5.0); ROT2:=PARTD<1975.0; ROT4:=
QAPPROVL; ROT5:=QAPPROVL&(PARTD<1975.0); ROT10:=QSSDABLE; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(NRD,QUITD); NR1:=
0.015*MAX(FAP1,FAP2)*ASY1-0.01667*SS1*ASY1; NR1Q:=ord(RAS1)*NR1;
NR2:=(0.0075*u(FAP1,5000.0)+0.015*b(FAP1,5000.0,10000.0)+0.0125*
o(FAP1,10000.0))*ASY2; NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=NR2+(0.005*
u(FAP1,5000.0)+0.01*b(FAP1,5000.0,10000.0)+0.0075*o(FAP1,
10000.0))*ASY3; NR3Q:=ord(RAS1&ROT2)*NR3; NRT:=MAX(NR1,NR3);
NRQ:=MAX(NR1Q,NR3Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4;
ER1Q:=ord(RAS4&ROT4)*ER1; ER2:=NR3*RED4; ER2Q:=ord(RAS4&ROT5)*
ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=ER1; VD1Q:=ord(
ROT4)*AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(ROT5)*AA(BEG7,0.0)*
VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NRT; DR1Q:=ord(
ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ER1*RED13*
0.5; DS1Q:=ord(RAS4&ROT4)*DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(
RAS4&ROT5)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=
0.0; VEDB:=VOPT(ord((ASYV>=10.0)!(QUITAGE>=65.0)&(ASYV>=5.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,RED4,
SS1,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY3,ASY2,ASY1,ASYV,
CNQ) <0 then negative end;

procedure c0085s8; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-60.0/12.0),FDFAP1); FAP13:=WAGE(QUITD); SS1:=SSBASE(
BENIFITD); SS10:=SSBASE(BENIFITD); RED4:=NN(1.0-(0.06*o(60.0,AGE)
+0.03*a(AGE,62.0,60.0))); RED13:=JSRED; RAS1:=AGE>=65.0; RAS2:=(
AGE>=62.0)&(ASY1>=10.0); RAS4:=ASY1>=10.0; RAS13:=(AGE>=55.0)&(
ASY1>=10.0); ROT2:=QAPPROVL; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG8:=MAX(BIRTHD+65.0,QUITD); BEG10:=MAX(BIRTHD+65.0,
QUITD); NR1:=(0.01*u(FAP1,SS1)+0.015*o(FAP1,SS1))*ASY1; NR1Q:=
ord(RAS1)*NR1; NR2:=0.011*FAP1*ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=(
0.01*u(FAP1,SS1)+0.015*o(FAP1,SS1))*ASY1; NR3Q:=ord(RAS2&ROT2)*
NR3; NR4:=0.011*FAP1*ASY1; NR4Q:=ord(RAS2&ROT2)*NR4; NRT:=MAX(
NR1,NR2,NR3,NR4); NRQ:=MAX(NR1Q,NR2Q,NR3Q,NR4Q); LRQ:=NRQ;
MRAGE:=65.0; ER1:=MAX(NR3,NR4)*RED4; ER1Q:=ord(RAS4&ROT2)*ER1;
ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=ord(ROT2)*AA(BEG7,0.0)*VD1;
VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q); DR1:=(0.01*u(FAP1,SS10)+0.015*o(FAP1,SS10))*ASY1;
DR1Q:=AA(BEG10,0.0)*DR1; DR2:=NR2; DR2Q:=AA(BEG10,0.0)*DR2; DRT:=
MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.5*ERT*RED13; DS1Q:=ord(
RAS13)*DS1; DS2:=0.2*FAP13; DS2Q:=ord(RAS13)*DS2; DST:=MAX(DS1,
DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG10,BEG8,BEG7,RED13,RED4,SS10,SS1,FAP13,FAP1,FDFAP1,
ASY1,CNQ) <0 then negative end;

procedure c0086s7; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NN(QUITD-(HIRED+1.0))*NNMIN(1.0,
WRKHRS/1800.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
5.0),FDFAP1); SS1:=SSBASE(BENIFITD); RED4:=NN(1.0-0.036*o(65.0,
AGE)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE+ASY1>=65.0)&(
AGE>=55.0); RAS13:=(ASY1>=10.0)!(AGE+ASY1>=65.0)&(AGE>=55.0);
ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=
MAX(NRD,QUITD); NR1:=(0.012*u(FAP1,SS1)+0.015*o(FAP1,SS1))*ASY1;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT;
DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=
ERT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=MAX(DS1,1200.0); DSQ:=MAX(
DS1Q,1200.0); PRAG:=0.0; VEDB:=VOPT(ord(ASYV>=10.0)*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,RED13,
RED4,SS1,FAP1,FDFAP1,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0087s5; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1952.667)-
HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,1976.0)-MAX(
HIRED,1952.667))*ord(WRKHRS>=1300.0)*1.0; ASY3:=NN(QUITD-MAX(
HIRED,1976.0))*NNMIN(1.0,WRKHRS/1000.0); ASY4:=NN(MIN(QUITD,
1976.0)-HIRED)*1.0; ASY5:=NN(QUITD-MAX(HIRED,1976.0))*ord(
WRKHRS>=1000.0)*1.0; RED4:=NN(1.0-0.05*o(65.0,AGE)); RED13:=
JSRED; ASY55:=ASY4+ASY5; RAS1:=(AGE>=65.0)&(ASY55>=10.0); RAS4:=(
AGE>=55.0)&(ASY55>=10.0); ASY53:=ASY1+ASY2+ASY3; RAS10:=ASY53>=
10.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=18.0*u(ASY1+ASY2+
ASY3,25.0); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=ERT; DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY55>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,
BEG10,BEG7,ASY53,ASY55,RED13,RED4,ASY5,ASY4,ASY3,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0088s4; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*1.0;
ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1);
FDFAP10:=MIN(QUITD,BIRTHD+65.0); FAP10:=ord(FDFAP10>HIRED)*WAGE(
FDFAP10); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.01; MAN7:=SUMI(
PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.0261*a(AGE,55.0,50.0)
+0.041*a(AGE,60.0,55.0)+0.0683*a(AGE,65.0,60.0)); RED10:=OTHERB;
RED13:=JSRED; RED14:=COSTRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)&
(ASY1>=10.0); LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+65.0,0.0);
BEG8:=ANYTIME(BIRTHD+60.0,0.0); BEG11:=MAX(BIRTHD+65.0,QUITD);
NR1:=(0.022*u(FAP1,5000.0)+0.016*o(FAP1,5000.0))*ASY1; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=
AA(BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=0.5*FAP10-RED10; DR1Q:=AA(QUITD,
LNG10)*DR1; DR2:=NRT; DR2Q:=AA(BEG11,0.0)*DR2; DR3:=DR1; DR3Q:=
AA(BEG11,0.0)*DR3; DRT:=DR1+MAX(DR2,DR3); DRQ:=DR1Q+MAX(DR2Q,
DR3Q); DS1:=ERT*RED13*RED14*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=ord(ACPIG>=0.01)*MIN(0.95*ACPIG,0.03); VEDB:=
VOPT(MAX(ord(ASYV>=5.0)*0.5,ord(ASYV>=6.0)*0.75,ord(ASYV>=7.0)*
1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG8,BEG7,LNG10,RED14,RED13,RED10,
RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP10,FDFAP10,FAP1,FDFAP1,ASY1,
ASYV,CNQ) <0 then negative end;

procedure c0089s1; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0,1983.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(
QUITD-MAX(HIRED,1979.083))*ord(WRKHRS>=1000.0)*1.0; ASY3:=NNMIN(
35.0,MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0,1983.0); SDFAP1:=MAX(HIRED,FDFAP1-
5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FDFAP2:=
MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,1983.0); FAP2:=ord(
FDFAP2>SDFAP2)*SUM(WAGE,SDFAP2,FDFAP2); SS1:=SS(1.0,MAX(BENIFITD,
BIRTHD+65.0)); RED4:=NN(1.0-0.04*o(65.0,AGE)); RED5:=NN(1.0-0.04*
o(60.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE+ASY3>=90.0)&(
AGE>=60.0); RAS4:=(AGE>=50.0)&(ASY3>=10.0); RAS5:=AGE+ASY3>=90.0;
RAS10:=ASY3>=10.0; RAS13:=(AGE>=55.0)&(ASY3>=10.0)!(AGE+ASY3>=
90.0); BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+
65.0,QUITD); NR1:=(FAP1*ASY1+FAP2*ASY2)*0.014; NR1Q:=ord(RAS1)*
NR1; NR2:=0.0175*(FAP1*ASY1+FAP2*ASY2)-0.015*SS1*ASY3; NR2Q:=ord(
RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ;
MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5;
ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT;
DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=
0.5*ERT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=
0.0; ASY53:=ASY1+ASY2+ASY3; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY53>=10.0))*1.0); if min( VEDB,ASY53,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,RED5,RED4,SS1,
FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0090s20; begin CNQ:=0.0; ASYV:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+65.0,1975.5)-(
HIRED+1.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,
1975.5))*NNMIN(1.0,WRKHRS/2000.0); PSY4:=NN(MIN(BIRTHD+65.0,
1975.5)-HIRED+1.0); PSY5:=NN(BIRTHD+65.0-MAX(HIRED+1.0,1975.5));
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,
MAX(BENIFITD,BIRTHD+65.0)); RED4:=1.0-(0.0386*a(AGE,58.0,55.0)+
0.0559*a(AGE,62.0,58.0)+0.0829*a(AGE,65.0,62.0)); RAS1:=AGE>=
65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=15.0); ROT7:=
ASY1+ASY2>=15.0; BEG7:=MAX(NRD,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=0.0125*FAP1*(ASY1+ASY2)-0.0125*SS1*u(ASY1+
ASY2,40.0); NR1Q:=ord(RAS1)*NR1; NR2:=60.0*(ASY1+ASY2); NR2Q:=
ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ;
MRAGE:=70.0; ER1:=(0.0125*FAP1*(PSY4+PSY5)-0.0125*SS1*(PSY4+PSY5)
)*(ASY1+ASY2)/(PSY4+PSY5); ER1Q:=ord(RAS4)*ER1; ER2:=NR2; ER2Q:=
ord(RAS4)*ER2; ERT:=MAX(ER1,ER2)*RED4; ERQ:=MAX(ER1Q,ER2Q)*RED4;
VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER1*RED4; VD2Q:=ord(ROT7)*
AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=
0.0; DS1:=0.5*ER1; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG8,BEG7,ASY51,RED4,SS1,FAP1,SDFAP1,FDFAP1,PSY5,PSY4,ASY2,ASY1,
ASYV,CNQ) <0 then negative end;

procedure c0092s17; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=500.0)*1.0; ASY1:=(QUITD-HIRED)*1.0; ASY2:=(QUITD-HIRED)*
ord(WRKHRS>=1000.0)*1.0; PSY1:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-36.0/12.0),FDFAP1); SS1:=SS(1.0,
MAX(BENIFITD,BIRTHD+65.0)); SS10:=SS(5.0,BENIFITD); RED4:=1.0-(
0.0667*a(AGE,63.0,62.0)+0.0667*a(AGE,65.0,63.0)); RED5:=NN(1.0-
0.05*o(60.0,AGE)); RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY2>=5.0);
RAS4:=(AGE>=55.0)&(ASY2>=5.0); RAS10:=ASY2>=10.0; RAS13:=AGE>=
55.0; ROT7:=QAPPROVL; ROT10:=QSSDABLE; BEG7:=MAX(BIRTHD+65.0,
QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.01*ASY1*
FAP1; NR1Q:=ord(RAS1)*NR1; NR2:=0.016*ASY2*FAP1; NR2Q:=ord(RAS1)*
NR2; NR3:=0.015*SS1*RED4*MAX(PSY1,ASY2)*ASY2/MAX(PSY1,ASY2);
NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1,NR2-NR3); NRQ:=MAX(NR1Q,NR2Q-
NR3Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED5; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=
ERT; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q); DR1:=NR1; DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=NR2;
DR2Q:=ord(RAS10&ROT10)*DR2; DR3:=0.015*SS10*RED4*MAX(PSY1,ASY2)*
ASY2/MAX(PSY1,ASY2); DR3Q:=ord(RAS10&ROT10)*DR3; DRT:=MAX(DR1,
DR2-DR3); DRQ:=MAX(DR1Q,DR2Q-DR3Q); DS1:=ERT*0.5; DS1Q:=ord(
RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG8,BEG7,RED5,RED4,SS10,SS1,FAP1,FDFAP1,PSY1,ASY2,
ASY1,ASYV,CNQ) <0 then negative end;

procedure c0093s16; begin CNQ:=0.0; ASY1:=MIN(15.0,QUITD-HIRED)*
NNMIN(1.0,WRKHRS/1000.0); PSY4:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(
QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,
BENIFITD)/12.0; RED4:=NN(1.0-0.05*o(65.0,AGE)); RED10:=AR(65.0-
AGE); RAS1:=(AGE>=65.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=
15.0); ROT10:=QSSDABLE; LNG10:=1.0; BEG7:=MAX(NRD,QUITD); NR1:=(
0.4*FAP1-0.5*SS1)*u(ASY1,15.0)/15.0; NR1Q:=ord(RAS1)*NR1; NR2:=
20.0; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)
*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=(0.4*FAP1-0.5*SS1)*ASY1/PSY4*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ER1;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=(0.4*FAP1-
0.5*SS1)*ASY1/PSY4*RED10; DR1Q:=ord(ROT10)*AA(QUITD,LNG10+QUITD)*
DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=VDT*RED10; DS1Q:=AA(QUITD,
LNG10+QUITD)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(MAX(ord(ASY1>=5.0)*0.25,ord(ASY1>=10.0)*0.5,ord((ASY1>=
15.0)!(QUITAGE>=65.0)&(ASY1>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,LNG10,RED10,RED4,SS1,
FAP1,SDFAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0094s12; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,1976.0))*NNMIN(1.0,WRKHRS/2600.0); ASY4:=
NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=12.0)*1.0; PSY4:=
BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(
FDFAP1>HIRED)*WAGE(FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0,1976.0)
;FAP2:=ord(FDFAP2>HIRED)*WAGE(FDFAP2); SS1:=SS(1.0,MAX(BENIFITD,
BIRTHD+65.0)); SS10:=SS(5.0,BENIFITD); RED4:=1.0-(0.03*a(AGE,
60.0,55.0)+0.06*a(AGE,65.0,60.0)); RED5:=1.0-(0.05*a(AGE,60.0,
55.0)+0.02*a(AGE,65.0,60.0)); RAS1:=AGE>=65.0; RAS4:=(ASY4>=25.0)
!(AGE>=55.0)&(ASY4>=11.0); RAS5:=AGE+ASY4>=85.0; RAS13:=(AGE>=
55.0)&(ASY4>=11.0); ROT7:=ASY4>=11.0; ROT10:=QCODABLE; BEG7:=MAX(
NRD,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(
BIRTHD+65.0,QUITD); NR1:=0.02*FAP1*u(ASY1+ASY2,25.0)+0.005*FAP1*
o(ASY1+ASY2,25.0)-0.02*SS1*u(ASY1+ASY2,25.0); NR1Q:=ord(RAS1)*
NR1; NR2:=(0.014*u(FAP2,6600.0)+0.02*o(FAP2,6600.0))*u(ASY1+ASY2,
25.0)+0.005*FAP2*o(ASY1+ASY2,25.0); NR2Q:=ord(RAS1)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=(
0.02*FAP1*u(PSY4,25.0)+0.005*FAP1*o(PSY4,25.0)-0.02*SS1*u(PSY4,
25.0))*u(ASY1+ASY2,25.0)/PSY4*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=(
0.02*FAP1*u(PSY4,25.0)+0.005*FAP1*o(PSY4,25.0)-0.02*SS1*u(PSY4,
25.0))*u(ASY1+ASY2,25.0)/PSY4*RED5; ER2Q:=ord(RAS5)*ER2; ER3:=((
0.014*u(FAP2,6600.0)+0.02*o(FAP2,6600.0))*u(PSY4,25.0)+0.005*
FAP2*o(PSY4,25.0))*u(ASY1+ASY2,25.0)/PSY4; ER3Q:=ord(RAS4)*ER3;
ER4:=ER3*RED5; ER4Q:=ord(RAS5)*ER4; ER5:=ER3*RED4; ER5Q:=ord(
RAS4)*ER5; ERT:=MAX(ER1,ER2,ER5,ER4); ERQ:=MAX(ER1Q,ER2Q,ER5Q,
ER4Q); VD1:=MAX(ER1,ER5); VD1Q:=AA(BEG7,0.0)*VD1; VD2:=MAX(ER1,
ER5); VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q); DR1:=0.02*FAP1*u(ASY1+ASY2,25.0)+0.005*FAP1*o(
ASY1+ASY2,25.0)-0.02*SS10*u(ASY1+ASY2,25.0); DR1Q:=ord(ROT10)*AA(
BEG10,0.0)*DR1; DR2:=NR2; DR2Q:=ord(ROT10)*AA(BEG10,0.0)*DR2;
DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=(0.02*FAP1*u(PSY4,
25.0)+0.005*FAP1*o(PSY4,25.0)-0.02*SS1*u(PSY4,25.0))*u(ASY1+
ASY2,25.0)/PSY4; DS1Q:=ord(RAS13)*DS1; DS2:=((0.014*u(FAP2,
6600.0)+0.02*o(FAP2,6600.0))*u(PSY4,25.0)+0.005*FAP2*o(PSY4,
25.0))*u(ASY1+ASY2,25.0)/PSY4; DS2Q:=ord(RAS13)*DS2; DS3:=DS1*
0.5; DS3Q:=ord(RAS13)*DS3; DS4:=DS2*0.5; DS4Q:=ord(RAS13)*DS4;
DST:=MAX(DS3,DS4); DSQ:=MAX(DS3Q,DS4Q); PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,
ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,
BEG8,BEG7,RED5,RED4,SS10,SS1,FAP2,FDFAP2,FAP1,FDFAP1,PSY4,ASY4,
ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0095s34; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-4.0),FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.03*a(AGE,54.0,50.0)+0.05*a(
AGE,60.0,54.0)+0.03*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=(
ASY1>=30.0)!(AGE>=65.0)&(ASY1>=5.0); RAS2:=(AGE>=60.0)&(ASY1>=
25.0); RAS4:=(AGE>=50.0)&(ASY1>=20.0)!(AGE>=60.0)&(ASY1>=5.0);
RAS10:=ASY1>=5.0; DAT2:=QUITD<1983.417; ROT7:=^QWDMAN; BEG7:=
ANYTIME(BIRTHD+50.0,BIRTHD+65.0); NR1:=0.0157*FAP1*ASY1; NR1Q:=
ord(RAS1)*NR1; NR2:=0.0157*FAP1*ASY1; NR2Q:=ord(RAS2&DAT2)*NR2;
NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=
NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*
0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=
VOPT(ord(ASY1>=5.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0096s33; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
RED4:=NN(1.0-0.048*o(62.0,AGE)); RED5:=NN(1.0-0.048*o(65.0,AGE));
RAS1:=(AGE>=65.0)&(ASY1>=5.0)!(AGE+ASY1>=85.0)&(AGE>=62.0);
RAS4:=(AGE+ASY1>=85.0)&(AGE>=55.0); RAS5:=(AGE>=55.0)&(ASY1>=
15.0); RAS10:=ASY1>=1.0; RAS11:=ASY1>=15.0; RAS13:=(AGE+ASY1>=
85.0)&(ASY1>=5.0); RAS14:=(AGE+ASY1>=70.0)&(ASY1>=5.0); ROT7:=(
ASY1>=15.0)&(AGE+ASY1>=85.0); ROT8:=ASY1>=15.0; ROT10:=^QSSDABLE;
LNG10:=1.0; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=18.0*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ER2:=NRT*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2);
ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=
ER1; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VD3:=ER2; VD3Q:=ord(ROT8)*
AA(BEG8,0.0)*VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1Q,VD2Q,VD3Q)
*12.0; DR1:=500.0*u(ASY1,20.0); DR1Q:=ord(RAS10)*AA(QUITD,LNG10+
QUITD)*DR1; DR2:=NRT; DR2Q:=ord(RAS11&ROT10)*DR2; DRT:=MAX(DR1,
DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=NRT*u(RED4,0.336)*0.5;
DS1Q:=ord(RAS13)*DS1; DS2:=NRT*u(RED5,0.48)*0.5; DS2Q:=ord(RAS14)
*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,LNG10,RED5,RED4,ASY1,CNQ) <0 then
negative end;

procedure c0097s32; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1978.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/2080.0); ASY2:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,1978.0))*NNMIN(1.0,WRKHRS/
2080.0); SDASY3:=MAX(HIRED+15.0,BIRTHD+50.0,1978.0); ASY3:=NN(
MIN(QUITD,MAX(BIRTHD+50.0,SDASY3+15.0))-SDASY3)*NNMIN(1.0,
WRKHRS/2080.0); ASY4:=(QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0;
FDFAP1:=MIN(QUITD,1977.0); SDFAP1:=MAX(HIRED,1976.0); FAP1:=ord(
FDFAP1>SDFAP1)*MIN(15000.0,WAGE(FDFAP1)); FDFAP2:=MIN(QUITD,
1978.0); SDFAP2:=MAX(HIRED,1977.0); FAP2:=ord(FDFAP2>SDFAP2)*MIN(
15000.0,WAGE(FDFAP2)); FDFAP3:=QUITD; FAP3:=AVG(WAGE,MAX(HIRED,
FDFAP3-5.0),FDFAP3); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0));
RED4:=NN(1.0-0.05*o(63.0,AGE)); RED7:=AR(65.0-AGE); RED13:=
COSTRED; RED14:=1.0-(0.0164*a(AGE,45.0,40.0)+0.0251*a(AGE,50.0,
45.0)+0.0398*a(AGE,55.0,50.0)); RAS1:=AGE>=63.0; RAS4:=(AGE>=
55.0)&(ASY4>=10.0); RAS13:=(AGE>=63.0)!(AGE>=55.0)&(ASY4>=10.0);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.002*ASY1*MAX(FAP1,
FAP2)+(0.015*ASY2+0.005*ASY3)*FAP3-SS1*u(0.015*ASY2+0.005*ASY3,
0.5); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=
70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q;
VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=
0.0; DS1:=ERT*RED14*RED13*0.5; DS1Q:=ord(RAS13)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY4>=5.0)*0.5,ord((
QUITAGE>=63.0)!(ASY4>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG7,RED14,RED13,RED7,RED4,SS1,FAP3,FDFAP3,FAP2,
SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY4,ASY3,SDASY3,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0098s29; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*
NNMIN(1.0,WRKHRS/1800.0); PSY4:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(
QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0); FAP1:=
ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,
FDMAN7); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; SS4:=SS(
1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; SS10:=SS(5.0,BENIFITD)/12.0;
RED4:=1.0-(0.0333*a(AGE,60.0,50.0)+0.0667*a(AGE,65.0,60.0));
RED13:=COSTRED; RED14:=JSRED; RAS1:=AGE>=65.0; RAS4:=AGE>=55.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=0.0175*FAP1*ASY1-0.0175*SS1*ASY1; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=0.0175*FAP1*ASY1; ER1Q:=ord(RAS4)*ER1; ER2:=0.0175*SS4*ASY1;
ER2Q:=ord(RAS4)*ER2; ER3:=0.5*SS4*ASY1/PSY4; ER3Q:=ord(RAS4)*ER3;
ERT:=(ER1-MIN(ER2,ER3))*RED4; ERQ:=(ER1Q-MIN(ER2Q,ER3Q))*RED4*
12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DR1:=ER1; DR1Q:=AA(BEG10,0.0)*DR1; DR2:=0.0175*SS10*ASY1; DR2Q:=
AA(BEG10,0.0)*DR2; DR3:=0.5*SS10*ASY1/PSY4; DR3Q:=AA(BEG10,0.0)*
DR3; DRT:=(DR1-MIN(DR2,DR3))*RED4; DRQ:=(DR1Q-MIN(DR2Q,DR3Q))*
RED4*12.0; DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=55.0)!(
ASYV>=8.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,RED14,
RED13,RED4,SS10,SS4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,
FDFAP1,PSY4,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0099s25; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/2000.0); FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; RED4:=AR(65.0-AGE); RED13:=JSRED;
RED14:=COSTRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0);
RAS10:=ASY1>=10.0; RAS13:=(AGE>=55.0)&(ASY1>=10.0); ROT10:=
QSSDABLE; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG10:=MAX(NRD,QUITD);
NR1:=0.012*FAP1*ASY2; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*
12.0; LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(
RAS10&ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=
0.5*ERT*RED13*RED14; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*
12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,
BEG7,RED14,RED13,RED4,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0100s24; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,1976.0))*ord(WRKHRS>=96.0)*1.0; ASY4:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED,1976.0))*ord(WRKHRS>=1000.0)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0;
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; SS4:=SS(2.0,MAX(
BENIFITD,BIRTHD+62.0))/12.0; RED4:=1.0-(0.0436*a(AGE,60.0,55.0)+
0.068*a(AGE,63.0,60.0)+0.0935*a(AGE,65.0,63.0)); RED13:=JSRED;
RED14:=COSTRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=10.0);
RAS10:=(AGE>=50.0)&(ASY4>=15.0); RAS13:=(AGE>=55.0)&(ASY4>=10.0);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=15.0*ASY1; NR1Q:=
ord(RAS1)*NR1; NR2:=NN(0.8*FAP1+0.01*FAP1*o(ASY1,30.0)-SS1);
NR2Q:=ord(RAS1)*NR2; NR3:=10.0*ASY1; NR3Q:=ord(RAS1)*NR3; NRT:=
MAX(MIN(NR1,NR2),NR3); NRQ:=MAX(MIN(NR1Q,NR2Q),NR3Q)*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NN(
0.8*FAP1+0.01*FAP1*o(ASY1,30.0)-SS4)*RED4; ER2Q:=ord(RAS4)*ER2;
ERT:=MIN(ER1,ER2); ERQ:=MIN(ER1Q,ER2Q)*12.0; VD1:=ER1; VD1Q:=AA(
BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MIN(VD1,
VD2); VDQ:=MIN(VD1Q,VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(
RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG7,RED14,RED13,RED4,SS4,SS1,FAP1,FDFAP1,ASY4,ASY1,CNQ) <0 then
negative end;

procedure c0101s310; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0,1976.0)-HIRED)*1.0; ASY2:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,1976.0))*NNMIN(1.0,WRKHRS/1800.0);
FDFAP1:=MIN(QUITD,BIRTHD+65.0,QUITD-ASY1+35.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); SS1:=SS(1.0,BENIFITD); RED4:=1.0-(0.05*a(AGE,60.0,55.0)+
0.03*a(AGE,65.0,60.0)); RED7:=NN(1.0-0.07*o(65.0,AGE)); RED13:=
JSRED; RAS1:=(AGE>=65.0)!(AGE+ASY1>=90.0); RAS2:=(AGE>=65.0)&(
ASY1>=5.0); ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=10.0);
RAS10:=ASY51>=5.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,
0.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=0.016*FAP1*u(ASY1+ASY2,
35.0)-0.014*SS1*u(ASY1+ASY2,35.0); NR1Q:=ord(RAS1)*NR1; NR2:=
72.0*u(ASY1+ASY2,35.0); NR2Q:=ord(RAS2)*NR2; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NR1*RED7; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&
ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ER1*RED13*
0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,ASY51,RED13,
RED7,RED4,SS1,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0102s309; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*1.0; ASY2:=NNMIN(30.0,MIN(QUITD,BIRTHD+65.0,
1976.0)-HIRED)*1.0; ASY3:=NNMIN(30.0,MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1976.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0,1976.0); FAP2:=ord(
FDFAP2>HIRED)*AVG(WAGE,HIRED,FDFAP2); FDFAP3:=MIN(QUITD,BIRTHD+
65.0,1976.0); SDFAP3:=MAX(HIRED,1975.0); FAP3:=ord(FDFAP3>SDFAP3)
*WAGE(FDFAP3); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=NN(
1.0-0.05*o(62.0,AGE)); RED7:=AR(65.0-AGE); RED13:=NN(1.0-0.01*o(
65.0,AGE)); RAS1:=AGE>=62.0; RAS4:=AGE>=55.0; DAT2:=1976.0<=
QUITD; ROT1:=PARTD<1976.0; ROT2:=1976.0<=QUITD; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.6*FAP1-0.5*SS1)*ASY1/30.0;
NR1Q:=ord(RAS1&DAT2&ROT2)*NR1; NR2:=0.5*SS1+(0.01*u(FAP2,3600.0)+
0.02*o(FAP2,3600.0))*ASY2+(0.01*u(FAP3,3600.0)+0.02*o(FAP3,
3600.0))*ASY3; NR2Q:=ord(RAS1&ROT1)*NR2; NR3:=(0.01*u(FAP2,
3600.0)+0.02*o(FAP2,3600.0))*ASY2+(0.01*u(FAP3,3600.0)+0.02*o(
FAP3,3600.0))*ASY3; NR3Q:=ord(RAS1&ROT1)*NR3; NR4:=0.6*FAP1-NR2*
ASY1/30.0; NR4Q:=ord(RAS1&ROT1)*NR4; NRT:=MAX(NR1,NR4+NR3); NRQ:=
MAX(NR1Q,NR4Q+NR3Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NR1*RED7; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=ER1*RED13*0.5;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED7,
RED4,SS1,FAP3,SDFAP3,FDFAP3,FAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY3,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0103s303; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(5.0,MIN(
QUITD,BIRTHD+65.0,1967.5)-MAX(HIRED+2.0,BIRTHD+25.0))*ord(
WRKHRS>=1600.0)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1976.5)-MAX(
HIRED+1.0,BIRTHD+25.0,1967.5))*ord(WRKHRS>=1600.0)*1.0; ASY3:=NN(
MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1976.5))*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,1967.5); FAP1:=ord(
FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1)/12.0; SDFAP2:=MAX(HIRED,
1967.5); FAP2:=ord(QUITD>SDFAP2)*AVG(WAGE,SDFAP2,QUITD)/12.0;
RED4:=NN(1.0-0.04*o(65.0,AGE)); RED13:=JSRED; RAS1:=AGE>=65.0;
ASY53:=ASY1+ASY2+ASY3; RAS4:=(AGE>=55.0)&(ASY53>=15.0); BEG7:=
MAX(NRD,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,0.0); NR1:=(0.01*u(
FAP1,550.0)+0.015*o(FAP1,550.0))*ASY1+(0.0125*u(FAP2,550.0)+
0.02*o(FAP2,550.0))*(ASY2+ASY3); NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)
*VD1; VD2:=ERT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q)*12.0; DRQ:=0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(
ord(ASYV>=5.0)*0.5,ord(ASYV>=10.0)*0.75,ord((QUITAGE>=65.0)!(
ASYV>=15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,
VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG8,BEG7,ASY53,RED13,RED4,FAP2,SDFAP2,FAP1,FDFAP1,ASY3,
ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0104s321; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1976.0))*NNMIN(1.0,WRKHRS/1950.0); PSY1:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,
MAX(BENIFITD,BIRTHD+65.0)); RED4:=NN(1.0-0.04*o(62.0,AGE));
RED7:=AR(65.0-AGE); RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=(AGE>=
65.0)!(AGE>=62.0)&(ASY51>=10.0); RAS4:=(AGE>=55.0)&(ASY51>=10.0);
RAS13:=ASY51>=10.0; ROT10:=QCODABLE; BEG7:=ANYTIME(BIRTHD+55.0,
0.0); BEG10:=MAX(BIRTHD+65.0,QUITD); BEG13:=MAX(BIRTHD+55.0,
QUITD); NR1:=0.015*FAP1*(ASY1+ASY2); NR1Q:=ord(RAS1)*NR1; NR2:=
0.0143*SS1*u(ASY1+ASY2,35.0); NR2Q:=ord(RAS1)*NR2; NR3:=0.5*SS1*(
ASY1+ASY2)/PSY1; NR3Q:=ord(RAS1)*NR3; NR4:=0.01*(ASY1+ASY2)*FAP1;
NR4Q:=ord(RAS1)*NR4; NRT:=MAX(NR4,NR1-MIN(NR2,NR3)); NRQ:=MAX(
NR4Q,NR1Q-MIN(NR2Q,NR3Q)); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(ROT10)
*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS13)*AA(BEG13,0.0)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG13,BEG10,BEG7,ASY51,RED13,RED7,RED4,SS1,FAP1,SDFAP1,
FDFAP1,PSY1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0105s320; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+21.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0)
;SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(
WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,BENIFITD); RED4:=1.0-(0.06*a(
AGE,62.0,55.0)+0.03*a(AGE,65.0,62.0)); RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY1>=10.0); BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=(
0.02*FAP1-0.015*SS1)*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=126.0*ASY1;
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q);
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DRQ:=0.0; DS1:=0.5*ERT; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord((ASY1>=10.0)!(QUITAGE+
ASY1>=45.0)!(QUITAGE>=40.0)&(ASY1>=5.0))*0.5,ord((ASY1>=12.0)!(
QUITAGE+ASY1>=49.0)!(QUITAGE>=42.0)&(ASY1>=7.0))*0.7,ord((ASY1>=
15.0)!(QUITAGE>=65.0)!(ASY1>=15.0)!(QUITAGE>=45.0)&(ASY1>=10.0))
*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED4,
SS1,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0106s319; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1)/12.0; SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; SS2:=
SS(2.0,MAX(BENIFITD,BIRTHD+62.0))/12.0; RED4:=NN(1.0-0.05*o(62.0,
AGE)); RED7:=NN(1.0-0.05*o(65.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=
65.0)!(ASY1>=30.0)!(AGE>=62.0)&(ASY1>=10.0); RAS2:=(AGE>=65.0)!(
ASY1>=30.0); RAS3:=(ASY1>=30.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(
AGE>=55.0)&(ASY1>=10.0); ROT2:=AGE<=62.0; ROT10:=QCODABLE; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD);
NR1:=0.015*FAP1*ASY1-0.015*SS1*u(ASY1,33.333); NR1Q:=ord(RAS2)*
NR1; NR2:=18.0*ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=0.015*FAP1*ASY1-
0.015*SS2*u(ASY1,33.333); NR3Q:=ord(RAS3&ROT2)*NR3; NRT:=MAX(NR1,
NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q)*12.0; LRQ:=NRQ; MRAGE:=70.0;
ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR3*RED4; ER2Q:=ord(
RAS4&ROT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0;
VD1:=NR3*RED7; VD1Q:=ord(ROT2)*AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NR1; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DRT:=
DR1; DRQ:=DR1Q*12.0; DS1:=NR1*RED13*0.5; DS1Q:=ord(RAS2)*DS1;
DS2:=NR3*RED13*0.5; DS2Q:=ord(RAS1)*DS2; DS3:=NR3*RED13*0.5;
DS3Q:=ord(RAS3&ROT2)*DS3; DS4:=ER1*RED13*0.5; DS4Q:=ord(RAS4)*
DS4; DS5:=ER2*RED13*0.5; DS5Q:=ord(RAS4&ROT2)*DS5; DST:=MAX(MAX(
DS1,DS2,DS3),MAX(DS4,DS5)); DSQ:=MAX(MAX(DS1Q,DS2Q,DS3Q),MAX(
DS4Q,DS5Q))*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS5Q,DS5,DS4Q,DS4,
DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG10,BEG7,RED13,RED7,RED4,SS2,SS1,FAP1,SDFAP1,FDFAP1,
ASY1,CNQ) <0 then negative end;

procedure c0107s318; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=500.0)*1.0; PSY4:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(
1.0,BENIFITD)/12.0; RED4:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=
10.0; ROT2:=1981.0<=QUITD; ROT10:=QCODABLE; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.02*
FAP1-0.02*SS1)*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=10.0*u(ASY1,10.0);
NR2Q:=ord(RAS1)*NR2; NR3:=0.02*FAP1*ASY1-0.5*SS1; NR3Q:=ord(RAS1&
ROT2)*NR3; NRT:=MAX(MAX(NR1,NR2),MAX(NR2,NR3)); NRQ:=MAX(MAX(
NR1Q,NR2Q),MAX(NR2Q,NR3Q))*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*
RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR2*ASY1/PSY4; ER2Q:=ord(RAS4)*
ER2; ER3:=NR3*RED4; ER3Q:=ord(RAS4&ROT2)*ER3; ERT:=MAX(ER1,ER2,
ER3); ERQ:=MAX(ER1Q,ER2Q,ER3Q)*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*
AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=(0.02*FAP1-
0.02*SS1)*PSY4*RED13*0.5; DS1Q:=ord(RAS10)*DS1; DS2:=10.0*u(PSY4,
10.0)*RED13*0.5; DS2Q:=ord(RAS10)*DS2; DS3:=(0.02*FAP1*PSY4-0.5*
SS1)*RED13*0.5; DS3Q:=ord(RAS10&ROT2)*DS3; DST:=MAX(DS1,DS2,DS3);
DSQ:=MAX(DS1Q,DS2Q,DS3Q)*12.0; PRAG:=TAR(MIN(0.95*FAR(ACPIG,1.0),
0.03),1.0); VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,
RED4,SS1,FAP1,SDFAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0108s317; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); SS2:=SS(2.0,MAX(
BENIFITD,BIRTHD+62.0)); RED4:=1.0-(0.04*a(AGE,62.0,55.0)+0.02*a(
AGE,65.0,62.0)); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(
ASY1>=25.0); RAS2:=ASY1>=30.0; RAS3:=(AGE>=60.0)&(ASY1>=30.0);
RAS4:=AGE>=55.0; RAS10:=(AGE>=50.0)&(ASY1>=20.0); RAS13:=(AGE>=
55.0)!(ASY1>=30.0); ROT10:=^QCODABLE; ROT11:=QCODABLE; LNG2:=
BIRTHD+SSAGE(2.0); BGN3:=BIRTHD+SSAGE(2.0); BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=NN((0.02*
FAP1-0.02*SS1)*u(ASY1,20.0)+(0.01*FAP1-0.005*SS1)*o(ASY1,20.0));
NR1Q:=ord(RAS1)*NR1; NR2:=NR1; NR2Q:=ord(RAS2)*AA(BGN3,0.0)*NR2;
NR3:=NNMIN(168.0*ASY1,0.85*FAP1-SS1); NR3Q:=ord(RAS1)*NR3; NR4:=
0.02*FAP1*u(ASY1,20.0)+0.01*FAP1*o(ASY1,20.0); NR4Q:=ord(RAS2)*
AA(QUITD,LNG2)*NR4; NR5:=NR4+SS2; NR5Q:=ord(RAS3)*AA(QUITD,LNG2)*
NR5; NRT:=MAX(NR1,NR3,NR4+NR2,NR5+NR2); NRQ:=MAX(NR1Q,NR3Q,NR4Q+
NR2Q,NR5Q+NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=MAX(NR1,NR3)*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ERT; DR1Q:=ord(RAS10&
ROT10)*DR1; DR2:=MAX(NR1,NR3); DR2Q:=ord(ROT11)*AA(BEG11,0.0)*
DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=ERT*RED13*0.5;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=ord(ACPIG>=0.06)
*MIN(0.5*ACPIG,0.03); VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASY1>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,
NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG11,BEG7,BGN3,LNG2,
RED13,RED4,SS2,SS1,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative
end;

procedure c0109s315; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1983.0)-
HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1984.0))*1.0; ASY3:=(QUITD-
HIRED)*1.0; SDFAP1:=MAX(HIRED,1983.0); FAP1:=ord(QUITD>SDFAP1)*
WAGE(QUITD)/12.0; SDFAP2:=MAX(HIRED,1984.0); FAP2:=ord(
QUITD>SDFAP2)*AVG(WAGE,SDFAP2,QUITD)/12.0; FDFAP3:=MIN(QUITD,
1983.0); SDFAP3:=MAX(HIRED,FDFAP3-60.0/12.0); FAP3:=ord(
FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3)/12.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,
FDMAN7); SS1:=SS(1.0,BENIFITD)/12.0; RED4:=NN(1.0-0.03*o(65.0,
AGE)); RED5:=1.0-(0.04*a(AGE,60.0,55.0)+0.03*a(AGE,62.0,60.0));
RED6:=NN(1.0-0.03*o(62.0,AGE)); RED7:=1.0-(0.03*a(AGE,59.0,55.0)+
0.06*a(AGE,60.0,59.0)); RED13:=NN(1.0-0.06*o(70.0,AGE+ASY3));
RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY3>=15.0)!(AGE>=60.0)&(ASY3>=
30.0); RAS2:=(AGE>=55.0)&(ASY3>=30.0); RAS4:=AGE>=55.0; RAS5:=(
AGE>=55.0)&(ASY3>=15.0); RAS6:=(AGE>=55.0)&(ASY3>=25.0); RAS13:=
AGE+ASY3>=70.0; ROT2:=PARTD<1977.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=0.015*(FAP1*ASY1+FAP2*ASY2); NR1Q:=ord(RAS1)*
NR1; NR2:=0.01*MAX(FAP3*(10.0+ASY3-o(ASY3,30.0)/2.0),FAP3*(35.0+
ASY3/2.0)-50.0*SS1); NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=RED7; NR3Q:=
ord(RAS2)*NR3; NR4:=RED4; NR4Q:=ord(RAS4)*NR4; NR5:=RED5; NR5Q:=
ord(RAS5)*NR5; NR6:=RED6; NR6Q:=ord(RAS6)*NR6; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1,NR2)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1; ER1Q:=
ord(RAS4)*ER1; ER2:=NR2; ER2Q:=ord(RAS4&ROT2)*ER2; ERT:=MAX(ER1,
ER2)*MAX(NR3,NR4,NR5,NR6); ERQ:=MAX(ER1,ER2)*MAX(NR3,NR4,NR5,NR6)
*12.0; VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR2; VD2Q:=ord(
ROT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2)*MAX(NR3,NR4,NR5,NR6);
VDQ:=MAX(VD1,VD2)*MAX(NR3,NR4,NR5,NR6)*12.0; DRQ:=0.0; DS1:=NR1;
DS1Q:=ord(RAS13)*DS1; DS2:=NR2; DS2Q:=ord(RAS13&ROT2)*DS2; DST:=
0.5*MAX(DS1,DS2)*RED13; DSQ:=0.5*MAX(DS1,DS2)*RED13*12.0; PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY3>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,
VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR6Q,NR6,NR5Q,
NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED7,RED6,
RED5,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP3,SDFAP3,FDFAP3,FAP2,
SDFAP2,FAP1,SDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0110s312; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED,
BIRTHD+25.0,1971.5))*1.0; ASY2:=NN(MIN(QUITD,1971.5)-MAX(HIRED,
BIRTHD+25.0))*1.0; ASY3:=NN(QUITD-MAX(HIRED,BIRTHD+25.0))*1.0;
ASY4:=NN(MIN(QUITD,1971.5)-HIRED)*1.0; ASY5:=NN(QUITD-MAX(HIRED,
1971.5))*1.0; SDFAP1:=MAX(HIRED,1971.5); FAP1:=ord(QUITD>SDFAP1)*
AVG(WAGE,SDFAP1,QUITD); FDFAP2:=MIN(QUITD,1971.5); FAP2:=ord(
FDFAP2>HIRED)*AVG(WAGE,HIRED,FDFAP2); FDFAP3:=QUITD; FAP3:=AVG(
WAGE,MAX(HIRED,FDFAP3-36.0/12.0),FDFAP3); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
SS1:=SS(1.0,BENIFITD); RED4:=AR(62.0-AGE); RED5:=NN(1.0-0.05*o(
62.0,AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(AGE>=65.0)!(
AGE>=62.0)&(ASY3>=25.0); RAS2:=(AGE>=62.0)&(ASY3>=25.0); RAS4:=(
ASY3>=25.0)!(AGE>=55.0)&(ASY3>=15.0); RAS5:=ASY3>=25.0; RAS13:=(
AGE>=55.0)&(ASY3>=5.0); ROT4:=AGE<55.0; ROT7:=ASY3>=15.0; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,QUITD);
NR1:=0.017*FAP1*ASY5+0.02*o(FAP2,600.0)*ASY4; NR1Q:=ord(RAS1)*
NR1; NR2:=0.0135*FAP3*ASY1+0.014*o(FAP3,600.0)*ASY2-MIN(0.0125*
SS1*ASY1,0.375*ASY1/ASY3*SS1); NR2Q:=ord(RAS1)*NR2; NR3:=0.0135*
FAP3*ASY1+0.014*o(FAP3,600.0)*ASY2; NR3Q:=ord(RAS2)*NR3; NR4:=
NR3-MIN(0.0125*SS1*ASY1,0.375*ASY1/ASY3*SS1)-0.0333*(60.0-b(AGE,
55.0,60.0))-0.0667*(65.0-b(AGE,60.0,65.0)); NR4Q:=ord(RAS2)*NR4;
NRT:=MAX(NR1,NR2,NR4); NRQ:=MAX(NR1Q,NR2Q,NR4Q); LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED5; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED4;
ER2Q:=ord(RAS5&ROT4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=NRT*RED7; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=
AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=
0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY3>=5.0)*0.25,ord(ASY3>=
10.0)*0.5,ord((QUITAGE>=65.0)!(ASY3>=15.0))*1.0)); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG8,BEG7,RED13,RED7,RED5,RED4,SS1,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP3,FDFAP3,FAP2,FDFAP2,FAP1,SDFAP1,ASY5,ASY4,ASY3,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0111s311; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0,1956.5))*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+65.0,1960.5)-
MAX(HIRED+1.0,BIRTHD+25.0,1956.5))*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0,1972.5)-MAX(HIRED+1.0,BIRTHD+25.0,1960.5))*1.0;
ASY3:=NN(MIN(QUITD,BIRTHD+65.0,1973.5)-MAX(HIRED+1.0,BIRTHD+
25.0,1972.5))*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,
BIRTHD+25.0,1973.5))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,1970.5);
SDFAP1:=MAX(HIRED,1956.5); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; FDFAP2:=MIN(QUITD,BIRTHD+65.0,1972.5);
SDFAP2:=MAX(HIRED,1960.5); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,
SDFAP2,FDFAP2)/12.0; FDFAP3:=MIN(QUITD,BIRTHD+65.0,1973.5);
SDFAP3:=MAX(HIRED,1972.5); FAP3:=ord(FDFAP3>SDFAP3)*AVG(WAGE,
SDFAP3,FDFAP3)/12.0; FDFAP4:=MIN(QUITD,BIRTHD+65.0); SDFAP4:=MAX(
HIRED,1973.5); FAP4:=ord(FDFAP4>SDFAP4)*AVG(WAGE,SDFAP4,FDFAP4)/
12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(
PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=AR(65.0-AGE); RED13:=JSRED;
RED14:=COSTRED; RAS1:=AGE>=65.0; ASY58:=ASY1+ASY2+ASY3+ASY4;
RAS4:=(AGE>=55.0)&(ASY58>=10.0); RAS5:=AGE>=58.0; ROT4:=
PARTD<1969.5; ROT7:=ASY1+ASY2+ASY3+ASY4>=10.0; ROT8:=ASY1+ASY2+
ASY3+ASY4<10.0; BEG7:=ANYTIME(BIRTHD+55.0,0.0); BEG8:=MAX(BIRTHD+
65.0,QUITD); NR1:=0.01*u(FAP1,350.0)*ASY1+0.015*o(FAP1,350.0)*
ASY1+0.01167*u(FAP2,350.0)*ASY2+0.0175*o(FAP2,350.0)*ASY2; NR1Q:=
ord(RAS1)*NR1; NR2:=NR1+0.015*u(FAP3,350.0)*ASY3+0.0175*o(FAP3,
350.0)*ASY3+0.0175*FAP4*ASY4; NR2Q:=ord(RAS1)*NR2; NRT:=NR2;
NRQ:=NR2Q*12.0; LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED4; ER2Q:=ord(RAS5&
ROT4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=ER1;
VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=ord(ROT8)*AA(
BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DRQ:=
0.0; DS1:=0.5*ER1*RED13*RED14; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASYV>=6.0)*0.5,ord(
ASYV>=8.0)*0.7,ord((QUITAGE>=65.0)!(ASYV>=10.0))*1.0)); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,
ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG8,
BEG7,ASY58,RED14,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP4,
SDFAP4,FDFAP4,FAP3,SDFAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,
FDFAP1,ASY4,ASY3,ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0112s695; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=750.0)*1.0; ASY1:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/2080.0);
PSY1:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-3.0),FDFAP1)/12.0; SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/
12.0; RED4:=NN(1.0-0.05*o(62.0,AGE)); RED7:=AR(65.0-AGE); RED13:=
JSRED; RAS1:=AGE>=65.0; RAS2:=(AGE+ASY1>=80.0)&(AGE>=62.0);
RAS4:=(AGE+ASY1>=80.0)&(AGE>=50.0); RAS10:=ASY1>=15.0; RAS13:=(
AGE>=55.0)&(ASY1>=20.0)!(AGE+ASY1>=80.0)&(AGE>=50.0); LNG2:=
BIRTHD+65.0; BGN3:=MAX(BIRTHD+65.0,QUITD); BEG7:=MAX(ERD,QUITD);
NR1:=0.014*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.015*SS1*ASY1;
NR2Q:=ord(RAS1)*NR2; NR3:=0.015*PSY1*SS1*ASY1/PSY1; NR3Q:=ord(
RAS1)*NR3; NR4:=12.0*ASY1; NR4Q:=ord(RAS1)*NR4; NR5:=NR1; NR5Q:=
ord(RAS2)*AA(QUITD,LNG2)*NR5; NR6:=NR1-MIN(NR2,NR3); NR6Q:=ord(
RAS2)*AA(BGN3,0.0)*NR6; NRT:=MAX(NR1-MIN(NR2,NR3),NR4,NR5+NR6);
NRQ:=MAX(NR1Q-MIN(NR2Q,NR3Q),NR4Q,NR5Q+NR6Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*AA(QUITD,LNG2)*ER1;
ER2:=(NR1-MIN(NR2,NR3))*RED4; ER2Q:=ord(RAS4)*AA(BGN3,0.0)*ER2;
ERT:=ER1+ER2; ERQ:=(ER1Q+ER2Q)*12.0; VD1:=NRT*RED7; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=0.25*FAP1; DR1Q:=
ord(RAS10)*DR1; DR2:=0.014*FAP1*PSY1-SS1; DR2Q:=ord(RAS10)*DR2;
DRT:=MIN(DR1,DR2); DRQ:=MIN(DR1Q,DR2Q)*12.0; DS1:=ERT*RED13*0.5;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord(ASYV>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR6Q,NR6,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,
NR2Q,NR2,NR1Q,NR1,BEG7,BGN3,LNG2,RED13,RED7,RED4,SS1,FAP1,
FDFAP1,PSY1,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0113s323; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1000.0); ASY1:=NNMIN(30.0,MIN(QUITD,BIRTHD+70.0,
1977.0)-HIRED)*1.0; ASY2:=NNMIN(30.0,MIN(QUITD,BIRTHD+70.0)-MAX(
HIRED+1.0,1977.0))*NNMIN(1.0,WRKHRS/1000.0); SDVOL7:=HIRED;
FDVOL7:=QUITD; PCVOL7:=MAX(VOL1NAR*WAGE(SURVEYD),MIN(VOL2NAR*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL7:=SUMI(
PCVOL7,2.0,0.0,SDVOL7,FDVOL7); SDVOL8:=HIRED; FDVOL8:=QUITD;
PCVOL8:=MAX(VOL1NAR*WAGE(SURVEYD),MIN(VOL2NAR*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL8:=SUMI(PCVOL8,2.0,0.0,
SDVOL8,FDVOL8); SDVOL9:=HIRED; FDVOL9:=QUITD; PCVOL9:=MAX(
VOL1NAR*WAGE(SURVEYD),MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL9:=SUMI(PCVOL9,2.0,0.0,SDVOL9,
FDVOL9); RED4:=1.0-(0.04*a(AGE,60.0,55.0)+0.02*a(AGE,61.0,60.0)+
0.08*a(AGE,62.0,61.0)); RED13:=COSTRED; RED14:=JSRED; RAS1:=AGE>=
62.0; RAS4:=AGE>=55.0; DAT1:=QUITD<1984.0; DAT2:=(1984.0<=QUITD)&
(QUITD<1985.0); DAT3:=1985.0<=QUITD; ROT2:=QVOLCNTR; LNG4:=
BIRTHD+SSAGE(2.0); BEG7:=ANYTIME(BIRTHD+55.0,0.0); NR1:=12.0*u(
ASY1+ASY2,30.0); NR1Q:=ord(RAS1)*NR1; NR2:=4.0*u(ASY1+ASY2,30.0);
NR2Q:=ord(RAS1&DAT1&ROT2)*NR2; NR3:=5.0*u(ASY1+ASY2,30.0); NR3Q:=
ord(RAS1&DAT2&ROT2)*NR3; NR4:=6.0*u(ASY1+ASY2,30.0); NR4Q:=ord(
RAS1&DAT3&ROT2)*NR4; NRT:=NR1+MAX(NR2,NR3,NR4); NRQ:=(NR1+MAX(
NR2,NR3,NR4))*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=
ord(RAS4)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4&DAT1&ROT2)*ER2;
ER3:=NR3*RED4; ER3Q:=ord(RAS4&DAT2&ROT2)*ER3; ER4:=NR4*RED4;
ER4Q:=ord(RAS4&DAT3&ROT2)*ER4; ER5:=MIN(180.0,6.0*u(ASY1+ASY2,
30.0)); ER5Q:=ord(RAS4)*AA(QUITD,LNG4)*ER5; ERT:=ER1+MAX(ER2,ER3,
ER4)+ER5; ERQ:=(ER1+MAX(ER2,ER3,ER4)+ER5)*12.0; VD1:=ER1; VD1Q:=
AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(DAT1&ROT2)*AA(BEG7,0.0)*
VD2; VD3:=ER3; VD3Q:=ord(DAT2&ROT2)*AA(BEG7,0.0)*VD3; VD4:=ER4;
VD4Q:=ord(DAT3&ROT2)*AA(BEG7,0.0)*VD4; VDT:=VD1+MAX(VD2,VD3,VD4);
VDQ:=(VD1+MAX(VD2,VD3,VD4))*12.0; DRQ:=0.0; DS1:=ER1; DS1Q:=ord(
RAS4)*DS1; DS2:=ER2; DS2Q:=ord(RAS4&DAT1&ROT2)*DS2; DS3:=ER3;
DS3Q:=ord(RAS4&DAT2&ROT2)*DS3; DS4:=ER4; DS4Q:=ord(RAS4&DAT3&
ROT2)*DS4; DST:=0.5*(DS1+MAX(DS2,DS3,DS4))*RED13*RED14; DSQ:=0.5*
(DS1+MAX(DS2,DS3,DS4))*RED13*RED14*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=55.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD4Q,VD4,
VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,ER3,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG7,LNG4,RED14,RED13,RED4,VOL9,PCVOL9,FDVOL9,SDVOL9,
VOL8,PCVOL8,FDVOL8,SDVOL8,VOL7, PCVOL7,FDVOL7,SDVOL7,ASY2,ASY1,
ASYV,CNQ) <0 then negative end;

procedure c0114s18; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/12.0; SS2:=
SSBASE(BENIFITD)/12.0; RED4:=NN(1.0-0.05*o(62.0,AGE)); RED7:=NN(
1.0-0.05*o(65.0,AGE)); RED13:=JSRED; RED14:=COSTRED; RAS1:=(AGE>=
65.0)!(AGE>=62.0)&(ASY1>=15.0); RAS4:=(AGE>=55.0)&(ASY1>=15.0);
ROT7:=ASY1>=15.0; ROT10:=QCODABLE; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,QUITD); BEG10:=MAX(NRD,QUITD)
;NR1:=(0.01*FAP1+0.005*o(FAP1,SS2))*ASY1; NR1Q:=ord(RAS1)*NR1;
NR2:=0.012*u(FAP1,1300.0)*ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=0.02*
FAP1*u(ASY1,20.0)-0.5*SS1; NR3Q:=ord(RAS1)*NR3; NR4:=10.0*ASY1;
NR4Q:=ord(RAS1)*NR4; NR5:=0.7*FAP1; NR5Q:=ord(RAS1)*NR5; NRT:=
MIN(NR5,MAX(NR1,NR2,NR3,NR4)); NRQ:=MIN(NR5Q,MAX(NR1Q,NR2Q,NR3Q,
NR4Q))*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(
RAS4)*ER1; ER2:=NR4; ER2Q:=ord(RAS4)*ER2; ER3:=0.7*FAP1; ER3Q:=
ord(RAS4)*ER3; ERT:=MIN(ER3,MAX(ER1,ER2)); ERQ:=MIN(ER3Q,MAX(
ER1Q,ER2Q))*12.0; VD1:=NR1*RED7; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*
VD1; VD2:=0.7*FAP1; VD2Q:=ord(ROT7)*AA(BEG7,0.0)*VD2; VD3:=NR1;
VD3Q:=AA(BEG8,0.0)*VD3; VD4:=VD2; VD4Q:=AA(BEG8,0.0)*VD4; VDT:=
MIN(VD1,VD2,VD3,VD4); VDQ:=MIN(VD1Q,VD2Q,VD3Q,VD4Q)*12.0; DR1:=
NRT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*
12.0; DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(RAS4)*DS1; DS2:=0.5*
NRT*RED13*RED14; DS2Q:=ord(RAS1)*DS2; DST:=MAX(DS1,DS2); DSQ:=
MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,
NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG8,BEG7,RED14,RED13,
RED7,RED4,SS2,SS1,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative
end;

procedure c0115s14; begin CNQ:=0.0; ASY4:=NN(QUITD-MAX(HIRED+1.0,
1974.75))*1.0; SDFAP1:=MAX(HIRED,1974.75); FAP1:=ord(
QUITD>SDFAP1)*SUM(WAGE,SDFAP1,QUITD); SDSS1:=MAX(HIRED,1974.75);
SS1:=ord(QUITD>SDSS1)*SUM(SSBASE,SDSS1,QUITD); RED4:=1.0-(0.0333*
a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=10.0); BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=0.0075*u(FAP1,SS1)+0.0215*o(FAP1,SS1);
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=
0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,SS1,SDSS1,FAP1,
SDFAP1,ASY4,CNQ) <0 then negative end;

procedure c0116s28; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-(HIRED+1.0))*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-60.0/12.0),FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/12.0;
RED4:=1.0-(0.07*a(AGE,60.0,55.0)+0.05*a(AGE,62.0,60.0)); RED13:=
JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(AGE>=
55.0)&(ASY1>=10.0); BEG7:=MAX(NRD,QUITD); NR1:=(0.016*FAP1-0.015*
SS1)*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=MAX(OTHCONT(27.0)/12.0,NR1);
NRQ:=MAX(OTHCONT(27.0)/12.0,NR1Q)*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=MAX(ER1,OTHCONT(27.0)/
12.0); ERQ:=MAX(ER1Q,OTHCONT(27.0)/12.0)*12.0; VD1:=NRT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=MAX(VD1,OTHCONT(27.0)/12.0); VDQ:=MAX(
VD1Q,OTHCONT(27.0)/12.0)*12.0; DRQ:=0.0; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,SS1,FAP1,FDFAP1,ASY1,CNQ)
<0 then negative end;

procedure c0117s304; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/1800.0);
ASY2:=NN(QUITD-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,
BENIFITD); RED4:=1.0-(0.0975*a(AGE,57.0,55.0)+0.06*a(AGE,60.0,
57.0)+0.03*a(AGE,65.0,60.0)); RED5:=1.0-(0.1145*a(AGE,57.0,55.0)+
0.0795*a(AGE,59.0,57.0)+0.053*a(AGE,60.0,59.0)); RED7:=AR(65.0-
AGE); RED10:=AR(55.0-AGE); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=
60.0)&(ASY2>=35.0); RAS4:=(AGE>=55.0)&(ASY2>=10.0); RAS5:=(AGE>=
55.0)&(ASY2>=35.0); RAS10:=(AGE>=45.0)&(ASY2>=10.0); RAS11:=
ASY2>=35.0; RAS13:=(AGE>=55.0)&(ASY2>=10.0); BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=0.015*FAP1*u(ASY1,30.0)+0.005*
FAP1*o(ASY1,30.0)-0.01667*SS1*u(ASY1,30.0); NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=
MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=NRT*RED7; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ER1*RED10; DR1Q:=ord(RAS10)*
DR1; DR2:=ER2; DR2Q:=ord(RAS11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(
DR1Q,DR2Q); DS1:=0.007*FAP1*ASY1; DS1Q:=ord(RAS13)*DS1; DS2:=0.5*
NRT*RED13; DS2Q:=ord(RAS13)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(
DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED10,RED7,RED5,RED4,SS1,
FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0118s300; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=900.0)*1.0; ASY1:=NNMIN(40.0,QUITD-MAX(
HIRED,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/1924.0); ASY10:=NN(QUITD-
MAX(HIRED,BIRTHD+25.0))*ord(WRKHRS>=900.0)*1.0; ASY13:=NN(QUITD-
MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=900.0)*1.0; PSY7:=NN(BIRTHD+
65.0-MAX(HIRED,BIRTHD+25.0)); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-60.0/12.0),FDFAP1); SS1:=SS(1.0,BENIFITD); SS4:=SS(
2.0,MAX(BENIFITD,BIRTHD+62.0)); SS7:=SS(1.0,MAX(BENIFITD,BIRTHD+
65.0)); SS10:=SS(5.0,BENIFITD); SS11:=SS(2.0,BENIFITD); RED4:=NN(
1.0-0.04*o(62.0,AGE)); RED5:=NN(1.0-0.04*o(65.0,AGE)); RED7:=NN(
1.0-0.055*o(65.0,AGE)); RED10:=OTHERB; RAS1:=(AGE>=65.0)!(AGE>=
62.0)&(ASY1>=30.0); RAS4:=(AGE>=55.0)&(ASY1>=30.0); RAS5:=AGE>=
55.0; RAS10:=(AGE>=35.0)&(ASY10>=10.0); RAS13:=(AGE>=50.0)&(
ASY13>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
0.0225*u(ASY1,10.0)+0.0175*b(ASY1,10.0,20.0)+0.0125*b(ASY1,20.0,
30.0)+0.0075*b(ASY1,30.0,40.0); NR2:=NR1*NN(FAP1-5.0/6.0*SS1);
NR2Q:=ord(RAS1)*NR2; NRT:=NR2; NRQ:=NR2; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NR1*NN(FAP1*RED4-5.0/6.0*SS4); ER1Q:=ord(RAS4)*ER1; ER2:=
NR1*NN(FAP1*RED5-5.0/6.0*SS4); ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,
ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=0.0225*u(PSY7,10.0)+0.0175*b(
PSY7,10.0,20.0)+0.0125*b(PSY7,20.0,30.0)+0.0075*b(PSY7,30.0,
40.0); VD2:=VD1*NN(FAP1-5.0/6.0*SS7)*ASY1/PSY7*RED7; VD2Q:=AA(
BEG7,0.0)*VD2; VDT:=VD2; VDQ:=VD2; DR1:=NR1*NN(FAP1-5.0/6.0*MAX(
SS10,SS11))-RED10; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1;
DS1:=0.45*NR1*FAP1; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,
VD2,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,
NR1,BEG7,RED10,RED7,RED5,RED4,SS11,SS10,SS7,SS4,SS1,FAP1,FDFAP1,
PSY7,ASY13,ASY10,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0119s136; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0))*ord(WRKHRS>=900.0)*1.0; ASY1:=NNMIN(30.0,MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/
1600.0); ASY13:=NN(MIN(QUITD,BIRTHD+65.0,1983.0)-HIRED)*1.0;
ASY14:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1983.0))*ord(WRKHRS>=
900.0)*1.0; PSY4:=NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+25.0));
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1);
SS1:=SS(1.0,BENIFITD); RED4:=1.0-(0.048*a(AGE,60.0,55.0)+0.06*a(
AGE,65.0,60.0)); RED7:=AR(NRD-BENIFITD); RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; ASY63:=ASY13+ASY14;
RAS13:=(AGE>=55.0)&(ASY63>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); BEG13:=ANYTIME(0.0,
0.0); NR1:=NN(0.5*FAP1-0.5*SS1)*ASY1/30.0; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NN(0.5*FAP1-
0.5*SS1)*u(PSY4,30.0)/30.0*ASY1/PSY4*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q; VD1:=NN(0.5*FAP1-0.5*SS1)*u(PSY4,30.0)/30.0*
ASY1/PSY4*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT; DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=
DR1Q; DS1:=ERT*0.45; DS1Q:=ord(RAS13)*AA(BEG13,0.0)*DS1; DST:=
DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASYV>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,
BEG13,BEG10,BEG7,ASY63,RED7,RED4,SS1,FAP1,FDFAP1,PSY4,ASY14,
ASY13,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0120s137; begin CNQ:=0.0; ASY1:=NNMIN(40.0,QUITD-(
HIRED+1.0))*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
5.0),FDFAP1)/12.0; SS1:=SSBASE(BENIFITD)/12.0; RED4:=NN(1.0-0.06*
o(65.0,AGE)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(
ASY1>=15.0); RAS10:=ASY1>=15.0; RAS13:=(AGE>=55.0)&(ASY1>=15.0);
ROT10:=^QSSDABLE; LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.01*u(FAP1,
SS1)+0.0125*o(FAP1,SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=5.5*
ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)
*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DR2:=
NRT; DR2Q:=ord(RAS10&ROT10)*AA(BEG11,0.0)*DR2; DR3:=0.0125*FAP1*
ASY1; DR3Q:=ord(RAS10&ROT10)*AA(QUITD,LNG10)*DR3; DRT:=MAX(DR1,
DR2+DR3); DRQ:=MAX(DR1Q,DR2Q+DR3Q)*12.0; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG11,BEG7,LNG10,RED13,RED4,SS1,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0121s138; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1)/12.0; RED10:=AR(65.0-AGE); RAS1:=AGE>=65.0;
BEG7:=MAX(BIRTHD+65.0,QUITD); BEG10:=ANYTIME(0.0,0.0); NR1:=0.25*
FAP1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ;
MRAGE:=999.0; ERQ:=0.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q*12.0; DR1:=NRT*RED10; DR1Q:=AA(BEG10,0.0)*DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DSQ:=0.0; PRAG:=0.0; VEDB:=VOPT(MAX(
ord(ASYV>=5.0)*0.25,ord(ASYV>=10.0)*0.5,ord(ASYV>=15.0)*1.0));
if min( VEDB,PRAG,DSQ,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,RED10,FAP1,FDFAP1,ASYV,
CNQ) <0 then negative end;

procedure c0122s139; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-(HIRED+1.0))
*ord(WRKHRS>=1000.0)*1.0; RED4:=NN(1.0-0.05*o(65.0,AGE)); RED13:=
AR(NRD-BENIFITD); RAS1:=AGE>=65.0; RAS4:=AGE>=55.0; RAS10:=ASY1>=
5.0; RAS13:=ASY1>=10.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
5.0*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=ERT; DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*NRT*RED13; DS1Q:=ord(RAS13)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=55.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,RED13,RED4,ASY1,ASYV,CNQ)
<0 then negative end;

procedure c0123s140; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*1.0; PSY4:=MIN(35.0,BIRTHD+65.0-HIRED);
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,
BENIFITD); RED4:=NN(1.0-0.05*o(62.0,AGE)); RED7:=NN(1.0-0.05*o(
65.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=
10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS13:=(ASY1>=25.0)!(AGE>=
55.0)&(ASY1>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.02*FAP1*u(ASY1,
30.0)-0.02*SS1*ASY1+0.014*FAP1*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1;
NR2:=0.01*FAP1*ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=(0.02*FAP1*u(
PSY4,30.0)-0.02*SS1*u(PSY4,30.0)+0.014*FAP1*o(PSY4,30.0))*ASY1/
PSY4*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=(0.02*
FAP1*u(PSY4,30.0)-0.02*SS1*u(PSY4,30.0)+0.014*FAP1*o(PSY4,30.0))
*ASY1/PSY4*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=ERT; DR1Q:=AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*
RED13*0.5; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,
RED7,RED4,SS1,FAP1,SDFAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then negative
end;

procedure c0124s141; begin CNQ:=0.0; ASY1:=NNMIN(40.0,MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,1975.0))*ord(WRKHRS>=1000.0)*1.0;
ASY2:=NNMIN(30.0,MIN(QUITD,BIRTHD+65.0,1975.0)-(HIRED+1.0))*ord(
WRKHRS>=1000.0)*1.0; SDFAP1:=MAX(HIRED,1975.0); FAP1:=ord(
QUITD>SDFAP1)*AVG(WAGE,SDFAP1,QUITD); FDFAP2:=MIN(QUITD,1975.0);
SDFAP2:=MAX(HIRED,1974.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,
SDFAP2,FDFAP2); SS1:=SUM(SSBASE,HIRED,QUITD); RED4:=1.0-(0.0667*
a(AGE,60.0,55.0)+0.0333*a(AGE,65.0,60.0)); RED5:=AR(55.0-AGE);
RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=
55.0)&(ASY51>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
BEG10:=ANYTIME(0.0,0.0); NR1:=(0.015*u(FAP2,SS1)+0.02*o(FAP1,SS1)
)*ASY1+(0.015*u(FAP2,SS1)+0.02*o(FAP1,SS1))*ASY2; NR1Q:=ord(RAS1)
*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=AI(AGE,65.0,70.0)*NRQ; MRAGE:=
70.0; ER1:=NRT*RED5*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=ERT; DR1Q:=AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*
ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(MAX(ord(ASY51>=5.0)*0.25,ord(ASY51>=10.0)*0.5,ord(
ASY51>=15.0)*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG10,BEG7,ASY51,RED13,RED5,RED4,SS1,FAP2,SDFAP2,
FDFAP2,FAP1,SDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0125s143; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+68.0)-MAX(HIRED,BIRTHD+25.0))*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+68.0)-MAX(HIRED,BIRTHD+22.0))*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+68.0,QUITD-ASY1+35.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(
1.0,BENIFITD)/12.0; RED4:=1.0-(0.054*a(AGE,60.0,55.0)+0.084*a(
AGE,62.0,60.0)); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(
ASY2>=5.0); RAS4:=(AGE>=55.0)&(ASY2>=5.0); RAS10:=ASY2>=5.0;
RAS13:=(AGE>=45.0)&(ASY2>=10.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+62.0,BIRTHD+65.0)
;NR1:=(0.02*FAP1-0.01429*SS1)*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=
NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=68.0; ER1:=NRT*RED4; ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10&
ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*NRT*
RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0)!(QUITAGE>=55.0)&(
ASY2>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG10,BEG7,RED13,RED4,SS1,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0127s145; begin CNQ:=0.0; SDASY1:=MAX(HIRED+1.0,
BIRTHD+25.0); ASY1:=NN(MIN(QUITD,MAX(BIRTHD+65.0,SDASY1+10.0))-
SDASY1)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(QUITD-MAX(HIRED,BIRTHD+
22.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,MAX(BIRTHD+
65.0,QUITD-ASY1+10.0)); FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-10.0),
FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.02; MAN7:=SUMI(
PCMAN7,4.0,0.0,SDMAN7,FDMAN7); SDMAN8:=HIRED; FDMAN8:=QUITD;
PCMAN8:=0.04; MAN8:=SUMI(PCMAN8,5.0,0.0,SDMAN8,FDMAN8); RED4:=AR(
NRD-BENIFITD); RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY1>=10.0);
RAS4:=(AGE>=55.0)&(ASY2>=20.0); RAS10:=ASY2>=10.0; RAS13:=(AGE>=
55.0)&(ASY2>=20.0); ROT10:=QSSDABLE; BEG7:=MAX(BIRTHD+65.0,QUITD)
;BEG10:=ANYTIME(0.0,0.0); NR1:=(0.013*u(FAP1,7800.0)+0.023*o(
FAP1,7800.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*
VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ERT; DR1Q:=ord(RAS10&ROT10)*AA(
BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=
ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord(
ASY2>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG10,BEG7,RED13,RED4,MAN8,PCMAN8,FDMAN8,SDMAN8,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY2,ASY1,SDASY1,CNQ) <0 then
negative end;

procedure c0128s146; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(25.0,MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/
1000.0); FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,
FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/
12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(
PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.04*o(65.0,AGE));
RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=
55.0)&(ASY1>=10.0); RAS13:=(AGE>=50.0)&(ASY1>=10.0); ROT7:=AGE>=
55.0; ROT8:=AGE<55.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
NR1:=0.02*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*
12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*
VD1; VD2:=NRT*RED7; VD2Q:=ord(ROT8)*AA(BEG7,0.0)*VD2; VDT:=MAX(
VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DRQ:=0.0; DS1:=0.6*NRT;
DS1Q:=ord(RAS13)*DS1; DS2:=0.5*ERT*RED13; DS2Q:=ord(RAS13)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=MIN(0.95*
ACPIG,0.03); VEDB:=VOPT(ord((QUITAGE>=65.0)&(ASYV>=10.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,
RED7,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,ASY1,
ASYV,CNQ) <0 then negative end;

procedure c0129s149; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+70.0,1973.0)-
HIRED)*NNMIN(1.0,WRKHRS/672.0); ASY2:=NN(MIN(QUITD,BIRTHD+70.0,
1974.0)-MAX(HIRED,1973.0))*NNMIN(1.0,WRKHRS/672.0); ASY3:=NN(MIN(
QUITD,BIRTHD+70.0)-MAX(HIRED,1974.0))*NNMIN(1.0,WRKHRS/672.0);
ASY4:=NN(MIN(QUITD,BIRTHD+70.0,1969.5)-HIRED)*NNMIN(1.0,WRKHRS/
672.0); ASY5:=NN(MIN(QUITD,BIRTHD+70.0,1973.0)-MAX(HIRED,1969.5))
*NNMIN(1.0,WRKHRS/672.0); ASY6:=NN(MIN(QUITD,BIRTHD+70.0)-HIRED)*
NNMIN(1.0,WRKHRS/672.0); ASY7:=NN(MIN(QUITD,BIRTHD+70.0,1973.0)-(
HIRED+1.0))*NNMIN(1.0,WRKHRS/672.0); ASY8:=NN(MIN(QUITD,BIRTHD+
70.0,1974.0)-MAX(HIRED+1.0,1973.0))*NNMIN(1.0,WRKHRS/672.0);
ASY9:=NN(MIN(QUITD,BIRTHD+70.0)-MAX(HIRED+1.0,1974.0))*NNMIN(
1.0,WRKHRS/672.0); ASY10:=NN(MIN(QUITD,BIRTHD+70.0,1969.5)-(
HIRED+1.0))*NNMIN(1.0,WRKHRS/672.0); ASY11:=NN(MIN(QUITD,BIRTHD+
70.0,1973.0)-MAX(HIRED+1.0,1969.5))*NNMIN(1.0,WRKHRS/672.0);
ASY12:=NN(MIN(QUITD,BIRTHD+70.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/
672.0); FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(HIRED,FDFAP1-
3.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,
SDMAN7,FDMAN7); SDVOL7:=HIRED; FDVOL7:=QUITD; PCVOL7:=MAX(
VOL1NAR*WAGE(SURVEYD),MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,
FDVOL7); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=NN(1.0-
0.05*o(60.0,AGE)); RED7:=AR(NRD-BENIFITD); RAS1:=(AGE>=65.0)!(
AGE>=60.0)&(ASY6>=10.0); RAS4:=(AGE>=55.0)&(ASY6>=10.0); RAS5:=
AGE>=55.0; ROT2:=QVOLCNTR; ROT4:=QAPPROVL; ROT5:=QAPPROVL&
QVOLCNTR; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(
BIRTHD+65.0,QUITD); BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
NR1:=0.016*FAP1*ASY1+0.0165*FAP1*ASY2+0.017*FAP1*ASY3-0.0135*
ASY12*SS1; NR1Q:=ord(RAS1&ROT2)*NR1; NR2:=0.016*FAP1*ASY4+0.014*
FAP1*ASY5+0.0145*FAP1*ASY2+0.015*FAP1*ASY3-0.0135*ASY12*SS1;
NR2Q:=ord(RAS1)*NR2; NR3:=12.0*ASY6; NR3Q:=ord(RAS1)*NR3; NRT:=
MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q); LRQ:=NRQ; MRAGE:=
70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&ROT2)*ER1; ER2:=NR2*RED4;
ER2Q:=ord(RAS4)*ER2; ER3:=NR1*RED4; ER3Q:=ord(RAS5&ROT5)*ER3;
ER4:=NR2*RED4; ER4Q:=ord(RAS5&ROT4)*ER4; ERT:=MAX(ER1,ER2,ER3,
ER4); ERQ:=MAX(ER1Q,ER2Q,ER3Q,ER4Q); VD1:=(0.016*FAP1*ASY7+
0.0165*FAP1*ASY8+0.017*FAP1*ASY9)*RED7; VD1Q:=ord(ROT2)*AA(BEG7,
0.0)*VD1; VD2:=(0.016*FAP1*ASY10+0.014*FAP1*ASY11+0.0145*FAP1*
ASY8+0.015*FAP1*ASY9)*RED7; VD2Q:=AA(BEG7,0.0)*VD2; VD3:=12.0*
ASY6; VD3Q:=AA(BEG8,0.0)*VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(
VD1Q,VD2Q,VD3Q); DR1:=ER1; DR1Q:=ord(ROT2)*AA(BEG10,0.0)*DR1;
DR2:=ER2; DR2Q:=AA(BEG10,0.0)*DR2; DR3:=ER3; DR3Q:=ord(ROT5)*AA(
BEG10,0.0)*DR3; DR4:=ER4; DR4Q:=ord(ROT4)*AA(BEG10,0.0)*DR4;
DRT:=MAX(DR1,DR2,DR3,DR4); DRQ:=MAX(DR1Q,DR2Q,DR3Q,DR4Q); DS1:=
0.5*ER1*0.915; DS1Q:=ord(RAS4&ROT2)*DS1; DS2:=0.5*ER2*0.915;
DS2Q:=ord(RAS4)*DS2; DS3:=0.5*ER3*0.915; DS3Q:=ord(RAS5&ROT5)*
DS3; DS4:=0.5*ER4*0.915; DS4Q:=ord(RAS5&ROT4)*DS4; DST:=MAX(DS1,
DS2,DS3,DS4); DSQ:=MAX(DS1Q,DS2Q,DS3Q,DS4Q); PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,
DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG8,BEG7,RED7,RED4,SS1,VOL7,
PCVOL7,FDVOL7,SDVOL7,MAN7,PCMAN7, FDMAN7,SDMAN7,FAP1,SDFAP1,
FDFAP1,ASY12,ASY11,ASY10,ASY9,ASY8,ASY7,ASY6,ASY5,ASY4,ASY3,
ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0130s154; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1972.333)-(HIRED+1.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-
MAX(HIRED+1.0,1972.333))*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-(
HIRED+1.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,1972.333);
SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(
HIRED,1972.333); FAP2:=ord(FDFAP2>SDFAP2)*SUM(WAGE,SDFAP2,FDFAP2)
;FDFAP3:=MIN(QUITD,BIRTHD+65.0); SDFAP3:=MAX(HIRED,FDFAP3-5.0);
FAP3:=ord(FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3); SS1:=SS(1.0,
BENIFITD); RED4:=AR(65.0-AGE); RED5:=NN(1.0-0.03*o(65.0,AGE));
RED13:=COSTRED; RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY3>=30.0);
RAS2:=(AGE>=65.0)&(ASY3>=5.0); RAS3:=AGE>=65.0; RAS4:=AGE>=55.0;
RAS5:=AGE>=60.0; RAS10:=(AGE>=40.0)&(ASY3>=15.0); RAS13:=AGE>=
60.0; ROT2:=PARTD<1976.167; ROT4:=QAPPROVL; ROT5:=QAPPROVL&(
PARTD<1976.167); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+60.0); BEG8:=
ANYTIME(BIRTHD+60.0,0.0); NR1:=NN(0.0225*FAP1*ASY1-0.014*SS1*
ASY1); NR1Q:=ord(RAS1)*NR1; NR2:=NN(0.0225*FAP2-0.014*SS1*ASY2);
NR2Q:=ord(RAS1)*NR2; NR3:=NN(0.1111*FAP3+0.0222*FAP3*b(ASY3,5.0,
15.0)-0.5*SS1); NR3Q:=ord(RAS2&ROT2)*NR3; NR4:=108.0*ASY3; NR4Q:=
ord(RAS3)*NR4; NRT:=MAX(NR1+NR2,NR3,NR4); NRQ:=MAX(NR1Q+NR2Q,
NR3Q,NR4Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=MAX(NR1+NR2,NR4)*RED4;
ER1Q:=ord(RAS4&ROT4)*ER1; ER2:=MAX(NR1+NR2,NR4)*RED5; ER2Q:=ord(
RAS5)*ER2; ER3:=NR3*RED4; ER3Q:=ord(RAS4&ROT5)*ER3; ER4:=NR3*
RED5; ER4Q:=ord(RAS5&ROT2)*ER4; ERT:=MAX(ER1,ER2,ER3,ER4); ERQ:=
MAX(ER1Q,ER2Q,ER3Q,ER4Q); VD1:=ER1; VD1Q:=ord(ROT4)*AA(BEG7,0.0)*
VD1; VD2:=ER2; VD2Q:=AA(BEG8,0.0)*VD2; VD3:=ER3; VD3Q:=ord(ROT5)*
AA(BEG7,0.0)*VD3; VD4:=ER4; VD4Q:=ord(ROT2)*AA(BEG8,0.0)*VD4;
VDT:=MAX(VD1,VD2,VD3,VD4); VDQ:=MAX(VD1Q,VD2Q,VD3Q,VD4Q); DR1:=
NR4; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ER2*0.5*
RED13; DS1Q:=ord(RAS13)*DS1; DS2:=ER4*0.5*RED13; DS2Q:=ord(RAS13&
ROT2)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY3>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD4Q,
VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,
ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,
NR1,BEG8,BEG7,RED13,RED5,RED4,SS1,FAP3,SDFAP3,FDFAP3,FAP2,
SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY3,ASY2, ASY1,CNQ) <0 then
negative end;

procedure c0131s155; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(30.0,MIN(
QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY10:=NN(
QUITD-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=
QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.01; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,BENIFITD); RED4:=1.0-(0.06*a(
AGE,60.0,55.0)+0.03*a(AGE,65.0,60.0)); RED5:=1.0-(0.0333*a(AGE,
60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=(AGE>=
65.0)!(AGE>=62.0)&(ASY1>=30.0); RAS4:=AGE>=55.0; RAS10:=(AGE>=
50.0)!(ASY1>=15.0); RAS11:=(AGE>=50.0)!(ASY10>=10.0); RAS13:=(
AGE>=50.0)!(ASY10>=10.0); ROT10:=^QSSDABLE; ROT11:=QSSDABLE;
LNG10:=ERD; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG11:=MAX(
ERD,QUITD); NR1:=ASY1*(0.02*FAP1-0.02*SS1); NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=ASY1*0.02*FAP1*
RED4-ASY1*0.02*SS1*RED5; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT; DR1Q:=ord(RAS10&ROT11)*AA(QUITD,LNG10)*DR1; DR2:=0.02*
FAP1*ASY1; DR2Q:=ord(RAS10&ROT10)*AA(QUITD,LNG10)*DR2; DR3:=ERT;
DR3Q:=ord(RAS1)*AA(BEG11,0.0)*DR3; DR4:=NRT; DR4Q:=ord(RAS11&
ROT11)*AA(QUITD,LNG10)*DR4; DR5:=0.02*FAP1*ASY1; DR5Q:=ord(RAS11&
ROT10)*AA(QUITD,LNG10)*DR5; DRT:=MAX(DR1,DR2,DR4,DR5)+DR3; DRQ:=
MAX(DR1Q,DR2Q,DR4Q,DR5Q)+DR3Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(
RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=MIN(0.5*ACPIG,0.025);
VEDB:=VOPT(ord((QUITAGE>=50.0)!(ASYV>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR5Q,DR5,DR4Q,DR4,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG11,BEG7,LNG10,RED13,RED5,RED4,SS1,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP1,FDFAP1,ASY10,ASY1,ASYV,CNQ) <0 then negative
end;

procedure c0132s157; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1700.0); ASY2:=(QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0;
RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0));
RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY2>=10.0); RAS10:=ASY2>=
10.0; DAT1:=1981.333<=QUITD; LNG4:=BIRTHD+SSAGE(1.0); LNG10:=
BIRTHD+62.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=8.25*
ASY1; NR1Q:=ord(RAS1&DAT1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4&DAT1)*ER1; ER2:=
7.25*u(ASY1,25.0); ER2Q:=ord(RAS4&DAT1)*AA(QUITD,LNG4)*ER2; ERT:=
ER1+ER2; ERQ:=(ER1Q+ER2Q)*12.0; VD1:=ER1; VD1Q:=ord(DAT1)*AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(
RAS10&DAT1)*DR1; DR2:=ER2; DR2Q:=ord(RAS10&DAT1)*AA(QUITD,LNG10)*
DR2; DRT:=DR1+DR2; DRQ:=(DR1Q+DR2Q)*12.0; DS1:=0.9*ER1*0.55;
DS1Q:=ord(RAS4&DAT1)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,
LNG10,LNG4,RED4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0133s159; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+70.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+70.0,QUITD-ASY1+30.0,1979.0); FAP1:=ord(FDFAP1>HIRED)*SUM(
WAGE,HIRED,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+70.0,QUITD-ASY1+
30.0); SDFAP2:=MAX(HIRED,1979.0); FAP2:=ord(FDFAP2>SDFAP2)*SUM(
WAGE,SDFAP2,FDFAP2); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(
0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED5:=AR(65.0-
AGE); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=AGE>=55.0; RAS5:=AGE>=
50.0; BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+65.0); BEG10:=MAX(NRD,
QUITD); NR1:=0.01*u(FAP1,7800.0)+0.02*o(FAP1,7800.0); NR1Q:=ord(
RAS1)*NR1; NR2:=0.015*u(FAP2,22900.0)+0.029*o(FAP2,22900.0);
NR2Q:=ord(RAS1)*NR2; NRT:=NR1+NR2; NRQ:=NR1Q+NR2Q; LRQ:=NRQ;
MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5;
ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT;
DR1Q:=AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS5)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
MAX(ord(ASY1>=5.0)*0.25,ord(ASY1>=10.0)*0.5,ord((QUITAGE>=50.0)!
(ASY1>=15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,RED5,RED4,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1,ASY1,CNQ) <0
then negative end;

procedure c0134s160; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0,1976.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+70.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/
2000.0); ASY3:=NN(MIN(QUITD,BIRTHD+70.0)-MAX(HIRED,1976.0))*ord(
WRKHRS>=1.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+70.0); FAP1:=ord(
FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
SS1:=SSBASE(BENIFITD); RED4:=NN(1.0-0.07*o(60.0,AGE)); RED7:=AR(
65.0-AGE); RED13:=JSRED; ASY57:=ASY1+ASY3; RAS1:=(AGE>=65.0)!(
AGE>=60.0)&(ASY57>=10.0); RAS4:=(AGE>=55.0)&(ASY57>=10.0); RAS5:=
(AGE>=55.0)&(ASY57>=15.0); ROT10:=QCODABLE; LNG4:=BIRTHD+SSAGE(
2.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.018*u(FAP1,SS1)+0.025*o(FAP1,
SS1))*ASY2; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=(60.0+4.8*
b(AGE,55.0,60.0))*(ASY1+ASY3); ER2Q:=ord(RAS5)*AA(QUITD,LNG4)*
ER2; ERT:=ER1+ER2; ERQ:=ER1Q+ER2Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ER1; DR1Q:=ord(ROT10)*AA(
BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=NRT*RED13*0.5; DS1Q:=
ord(RAS1)*DS1; DS2:=ER1*RED13*0.5; DS2Q:=ord(RAS4)*DS2; DST:=MAX(
DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY57>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,LNG4,
ASY57,RED13,RED7,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,
ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0135s162; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+70.0,1965.5)-MAX(
HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+70.0,
1971.417)-MAX(HIRED+1.0,BIRTHD+25.0,1965.5))*1.0; ASY3:=NN(MIN(
QUITD,BIRTHD+70.0,1976.417)-MAX(HIRED+1.0,BIRTHD+25.0,1971.417))
*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+70.0,1979.5)-MAX(HIRED+1.0,
BIRTHD+25.0,1976.417))*NNMIN(1.0,WRKHRS/2080.0); ASY5:=NN(MIN(
QUITD,BIRTHD+70.0)-MAX(HIRED+1.0,BIRTHD+25.0,1979.5))*NNMIN(1.0,
WRKHRS/2080.0); FDFAP1:=MIN(QUITD,BIRTHD+70.0,1965.5); FAP1:=ord(
FDFAP1>HIRED)*WAGE(FDFAP1)/12.0; FDFAP2:=MIN(QUITD,BIRTHD+70.0,
1971.417); SDFAP2:=MAX(HIRED,1965.5); FAP2:=ord(FDFAP2>SDFAP2)*
AVG(WAGE,SDFAP2,FDFAP2)/12.0; FDFAP3:=MIN(QUITD,BIRTHD+70.0,
1976.417); SDFAP3:=MAX(HIRED,1971.417); FAP3:=ord(FDFAP3>SDFAP3)*
AVG(WAGE,SDFAP3,FDFAP3)/12.0; FDFAP4:=MIN(QUITD,BIRTHD+70.0);
SDFAP4:=MAX(HIRED,1979.5); FAP4:=ord(FDFAP4>SDFAP4)*AVG(WAGE,
SDFAP4,FDFAP4)/12.0; FDFAP5:=MIN(QUITD,BIRTHD+70.0); SDFAP5:=MAX(
HIRED,FDFAP5-60.0/12.0); FAP5:=ord(FDFAP5>SDFAP5)*AVG(WAGE,
SDFAP5,FDFAP5)/12.0; FDFAP6:=MIN(QUITD,BIRTHD+70.0,1979.5);
SDFAP6:=MAX(HIRED,1976.417); FAP6:=ord(FDFAP6>SDFAP6)*AVG(WAGE,
SDFAP6,FDFAP6)/12.0; SDVOL7:=HIRED; FDVOL7:=QUITD; PCVOL7:=MAX(
VOL1NAR*WAGE(SURVEYD),MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,
FDVOL7); SS1:=SSBASE(BENIFITD)/12.0; RED4:=1.0-(0.05*a(AGE,59.0,
55.0)+0.1*a(AGE,62.0,59.0)); RED5:=1.0-(0.04*a(AGE,60.0,55.0)+
0.06*a(AGE,65.0,60.0)); RED13:=JSRED; RED14:=COSTRED; ASY59:=
ASY1+ASY2+ASY3+ASY4+ASY5; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY59>=
20.0); RAS4:=(AGE>=55.0)&(ASY59>=20.0); RAS5:=AGE>=55.0; RAS6:=(
AGE>=60.0)&(ASY59>=20.0); RAS10:=AGE>=60.0; ROT2:=QVOLCNTR;
ROT4:=QAPPROVL; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=
ANYTIME(BIRTHD+55.0,BIRTHD+62.0); BEG11:=ANYTIME(BIRTHD+62.0,
BIRTHD+65.0); NR1:=5.0*(u(ASY1,5.0)+u(ASY2,5.0)+ASY3+ASY4);
NR1Q:=ord(RAS1)*NR1; NR2:=(0.0125*u(FAP5,SS1)+0.0155*o(FAP5,SS1))
*u(ASY1+ASY2+ASY3+ASY4+ASY5,30.0); NR2Q:=ord(RAS1&ROT2)*NR2;
NR3:=NR2+(0.0165*u(FAP5,SS1)+0.0195*o(FAP5,SS1))*b(ASY1+ASY2+
ASY3+ASY4+ASY5,30.0,35.0); NR3Q:=ord(RAS1&ROT2)*NR3; NR4:=0.0225*
FAP4*ASY5; NR4Q:=ord(RAS1)*NR4; NR5:=0.0225*FAP1*ASY1+0.0225*
FAP2*ASY2+0.0225*FAP3*ASY3+0.0225*FAP6*ASY4+0.0225*FAP4*ASY5;
NR5Q:=ord(RAS1&ROT2)*NR5; NRT:=MAX(NR1+NR5,NR1+NR4,NR3); NRQ:=
MAX(NR1Q+NR5Q,NR1Q+NR4Q,NR3Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4&ROT4)*ER1; ER2:=NRT*RED5; ER2Q:=ord(
RAS5&ROT4)*ER2; ER3:=NRT*RED4; ER3Q:=ord(RAS6)*ER3; ER4:=NRT*
RED5; ER4Q:=ord(RAS10)*ER4; ERT:=MAX(ER1,ER2,ER3,ER4); ERQ:=MAX(
ER1Q,ER2Q,ER3Q,ER4Q)*12.0; VD1:=ER4; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=ER1; DR1Q:=ord(RAS4&ROT4)*AA(
BEG10,0.0)*DR1; DR2:=ER2; DR2Q:=ord(RAS5&ROT4)*AA(BEG10,0.0)*DR2;
DR3:=ER3; DR3Q:=ord(RAS6)*AA(BEG11,0.0)*DR3; DR4:=ER4; DR4Q:=ord(
RAS10)*AA(BEG11,0.0)*DR4; DRT:=MAX(DR1,DR2,DR3,DR4); DRQ:=MAX(
DR1Q,DR2Q,DR3Q,DR4Q)*12.0; DS1:=ER1*RED13*0.5; DS1Q:=ord(RAS5)*
DS1; DS2:=ER2*RED14*0.5; DS2Q:=ord(RAS10)*DS2; DST:=MAX(DS1,DS2);
DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
55.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG11,
BEG10,BEG7,ASY59,RED14,RED13,RED5,RED4,SS1,VOL7,PCVOL7,FDVOL7,
SDVOL7,FAP6,SDFAP6, FDFAP6,FAP5,SDFAP5,FDFAP5,FAP4,SDFAP4,FDFAP4,
FAP3,SDFAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1,ASY5,ASY4,
ASY3,ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0136s163; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0,1976.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/12.0); ASY2:=
NNMIN(35.0,MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,1976.0))*NNMIN(
1.0,WRKHRS/2000.0); ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY4:=NNMIN(25.0,MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,1974.0))*1.0; ASY51:=ASY1+ASY2;
FDFAP1:=MIN(QUITD,BIRTHD+65.0,QUITD-ASY51+35.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1)/12.0; FDFAP10:=MIN(QUITD,BIRTHD+65.0,QUITD-ASY51+35.0);
FAP10:=ord(FDFAP10>HIRED)*WAGE(FDFAP10)/12.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,
FDMAN7); SS1:=SS(2.0,MAX(BENIFITD,BIRTHD+62.0))/12.0; SS10:=SS(
2.0,MAX(BENIFITD,BIRTHD+62.0))/12.0; RED4:=NN(1.0-0.04*o(56.0,
AGE)); RED5:=1.0-(0.06*a(AGE,57.0,56.0)+0.1*a(AGE,60.0,57.0)+
0.02*a(AGE,65.0,60.0)); RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=AGE>=55.0; RAS10:=(AGE>=25.0)&(ASY3>=1.0);
LNG4:=BIRTHD+SSAGE(2.0); BGN5:=BIRTHD+SSAGE(2.0); BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(NRD,QUITD); NR1:=(ASY1+ASY2)
*0.015*FAP1-0.02*SS1*ASY4; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=
NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=(ASY1+ASY2)*FAP1*0.015*(
RED4+RED5-1.0); ER1Q:=ord(RAS4)*AA(QUITD,LNG4)*ER1; ER2:=((ASY1+
ASY2)*FAP1*0.015-0.02*SS1*ASY4)*(RED4+RED5-1.0); ER2Q:=ord(RAS4)*
AA(BGN5,0.0)*ER2; ERT:=ER1+ER2; ERQ:=(ER1Q+ER2Q)*12.0; VD1:=NRT*
RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=(
ASY1+ASY2)*0.015*FAP10-0.02*SS10*ASY4; DR1Q:=ord(RAS10)*AA(BEG10,
0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(
MAX(ord(ASY3>=5.0)*0.25,ord(ASY3>=10.0)*0.5,ord((QUITAGE>=55.0)!
(ASY3>=15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG10,BEG7,BGN5,LNG4,RED13,RED7,RED5,RED4,SS10,
SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP10,FDFAP10,FAP1,SDFAP1,FDFAP1,
ASY51,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0137s164; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
65.0,1975.0)-HIRED)*ord(WRKHRS>=12.0)*1.0; FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); SS1:=SS(1.0,BENIFITD);
RED4:=1.0-(0.0667*a(AGE,60.0,55.0)+0.0333*a(AGE,65.0,60.0));
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=15.0);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=NN(0.01*ASY1*FAP1+
0.0175*ASY1*FAP1-0.75*SS1); NR1Q:=ord(RAS1)*NR1; NR2:=36.0*ASY1;
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q);
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DRQ:=0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q; PRAG:=0.0; ASY51:=ASY1+ASY2; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,ASY51,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,SS1,FAP1,FDFAP1,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0138s165; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/2080.0);
ASY2:=NNMIN(35.0,MIN(QUITD,BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/
2080.0); FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,
FDFAP1-3.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1);
FDFAP2:=MIN(QUITD,BIRTHD+65.0); FAP2:=ord(FDFAP2>HIRED)*AVG(WAGE,
HIRED,FDFAP2); SDMAN7:=HIRED; FDMAN7:=QUITD; VR1MAN7:=ord(WAGE(
SURVEYD)>=12000.0)*0.03; PCMAN7:=VR1MAN7; MAN7:=SUMI(PCMAN7,7.0,
0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.05*a(AGE,56.0,55.0)+0.04*a(AGE,
58.0,56.0)+0.03*a(AGE,62.0,58.0)); RED7:=1.0-(0.04*a(AGE,60.0,
55.0)+0.06*a(AGE,65.0,60.0)); RED13:=COSTRED; RAS1:=AGE>=62.0;
RAS4:=AGE>=55.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(
0.015*u(FAP2,12000.0)+0.0225*o(FAP2,12000.0))*ASY1; NR1Q:=ord(
RAS1)*NR1; NR2:=(144.0-0.01*b(FAP1,7799.0,13199.0))*ASY2; NR2Q:=
ord(RAS1)*NR2; NR3:=(0.01*u(FAP1,9000.0)+0.015*o(FAP1,9000.0))*
ASY2; NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,
NR2Q,NR3Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ERT; DR1Q:=ord(ROT10)*AA(BEG10,
0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*0.5; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=55.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,
RED7,RED4,MAN7,PCMAN7,VR1MAN7,FDMAN7,SDMAN7,FAP2,FDFAP2,FAP1,
SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0139s166; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-MAX(HIRED,BIRTHD+25.0,1966.25))*1.0; ASY2:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+25.0,1976.0))*ord(WRKHRS>=
1000.0)*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0,1966.25)-MAX(HIRED,
1962.25))*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+65.0,1962.25)-MAX(HIRED,
BIRTHD+40.0))*1.0; ASY5:=NN(QUITD-MAX(HIRED,BIRTHD+25.0,1976.0))*
ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=
MAX(HIRED,1966.25); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1)/12.0; FDFAP2:=MIN(QUITD,BIRTHD+65.0,1966.25); SDFAP2:=
MAX(HIRED,1962.25); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,
FDFAP2)/12.0; FDFAP3:=MIN(QUITD,BIRTHD+65.0,1962.25); SDFAP3:=
MAX(HIRED,1961.25); FAP3:=ord(FDFAP3>SDFAP3)*WAGE(FDFAP3)/12.0;
RED4:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=65.0; ASY58:=
ASY1+ASY2+ASY3+ASY4; RAS4:=(AGE>=60.0)&(ASY58>=15.0); BEG7:=
ANYTIME(BIRTHD+60.0,BIRTHD+65.0); NR1:=(0.0075*u(FAP1,4800.0)+
0.01*b(FAP1,4800.0,6600.0)+0.015*o(FAP1,6600.0))*(ASY1+ASY2);
NR1Q:=ord(RAS1)*NR1; NR2:=(0.0075*u(FAP2,4800.0)+0.01*o(FAP2,
4800.0))*ASY3; NR2Q:=ord(RAS1)*NR2; NR3:=(0.0075*u(FAP3,4800.0)+
0.01*o(FAP3,4800.0))*ASY4; NR3Q:=ord(RAS1)*NR3; NR4:=3.0*u(ASY1+
ASY3+ASY4+ASY5,20.0); NR4Q:=ord(RAS1)*NR4; NRT:=MAX(NR1+NR2+NR3,
NR4); NRQ:=MAX(NR1Q+NR2Q+NR3Q,NR4Q)*12.0; LRQ:=NRQ; MRAGE:=70.0;
ER1:=MAX((NR1+NR2+NR3)*RED4,NR4); ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DRQ:=0.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY58>=
10.0)*0.5,ord(ASY58>=11.0)*0.6,ord(ASY58>=15.0)*1.0)); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,
ASY58,RED13,RED4,FAP3,SDFAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,
SDFAP1,FDFAP1,ASY5,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0140s212; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(QUITD-(HIRED+1.0)
)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),
FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; VR1MAN7:=ord(WAGE(SURVEYD)
>=9000.0)*0.03; PCMAN7:=VR1MAN7; MAN7:=SUMI(PCMAN7,7.0,0.0,
SDMAN7,FDMAN7); RED4:=1.0-(0.06*a(AGE,56.0,55.0)+0.07*a(AGE,59.0,
56.0)+0.13*a(AGE,60.0,59.0)); RED7:=NN(1.0-0.04*o(65.0,AGE));
RAS1:=(AGE>=70.0)!(AGE>=60.0)&(ASY1>=9.0); RAS2:=(AGE>=60.0)&(
ASY1>=15.0); RAS4:=(AGE>=55.0)&(ASY1>=9.0); RAS5:=(AGE>=60.0)&(
ASY1>=10.0); RAS6:=(AGE>=60.0)&(ASY1>=30.0); RAS13:=(AGE>=55.0)&(
ASY1>=5.0)!(AGE+ASY1>=70.0); DAT1:=(1983.167<=QUITD)&(
QUITD<1984.417); DAT2:=(1984.417<=QUITD)&(QUITD<1985.0); DAT3:=
1985.0<=QUITD; ROT2:=PARTD<1979.0; LNG2:=BIRTHD+65.0; LNG3:=
BIRTHD+62.0; BGN4:=MAX(BIRTHD+62.0,QUITD); BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+70.0); NR1:=(
144.0+3.0*b(FAP1,12359.0,15880.0)/220.0+0.015*o(FAP1,15660.0))*
ASY1; NR1Q:=ord(RAS1&DAT1)*NR1; NR2:=(168.0+3.0*b(FAP1,14119.0,
15880.0)/220.0+0.015*o(FAP1,15660.0))*ASY1; NR2Q:=ord(RAS1&DAT2)*
NR2; NR3:=(168.0+3.0*b(FAP1,14119.0,15880.0)/220.0+0.016*o(FAP1,
15660.0))*ASY1; NR3Q:=ord(RAS1&DAT3)*NR3; NR4:=660.0+12.0*b(ASY1,
19.0,40.0); NR4Q:=ord(RAS2)*AA(QUITD,LNG2)*NR4; NR5:=1200.0+96.0*
b(ASY1,14.0,35.0); NR5Q:=ord(RAS5)*AA(QUITD,LNG3)*NR5; NR6:=
7200.0; NR6Q:=ord(RAS6)*AA(QUITD,LNG3)*NR6; NR7:=MAX(ord(DAT1)*
NR1,ord(DAT2)*NR2,ord(DAT3)*NR3); NR7Q:=ord(RAS1)*AA(BGN4,0.0)*
NR7; NRT:=MAX(NR6+NR7,MAX(NR1,NR2,NR3)+MAX(NR4,NR5)); NRQ:=MAX(
NR6Q+NR7Q,MAX(NR1Q,NR2Q,NR3Q)+MAX(NR4Q,NR5Q)); LRQ:=NRQ; MRAGE:=
70.0; ER1:=MAX(ord(DAT1)*NR1,ord(DAT2)*NR2,ord(DAT3)*NR3)*RED4;
ER1Q:=ord(RAS4)*ER1; ER2:=NR4; ER2Q:=ord(RAS2)*AA(QUITD,LNG2)*
ER2; ER3:=NR5; ER3Q:=ord(RAS5)*AA(QUITD,LNG3)*ER3; ER4:=NR6;
ER4Q:=ord(RAS6)*AA(QUITD,LNG3)*ER4; ER5:=MAX(ord(DAT1)*NR1,ord(
DAT2)*NR2,ord(DAT3)*NR3)*RED4; ER5Q:=ord(RAS4)*AA(BGN4,0.0)*ER5;
ERT:=MAX(ER1+ER2,ER1+ER3,ER4+ER5); ERQ:=MAX(ER1Q+ER2Q,ER1Q+ER3Q,
ER4Q+ER5Q); VD1:=MAX(ord(DAT1)*NR1,ord(DAT2)*NR2,ord(DAT3)*NR3)*
RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR1; VD2Q:=ord(DAT1&ROT2)*AA(
BEG8,0.0)*VD2; VD3:=NR2; VD3Q:=ord(DAT2&ROT2)*AA(BEG8,0.0)*VD3;
VD4:=NR3; VD4Q:=ord(DAT3&ROT2)*AA(BEG8,0.0)*VD4; VDT:=MAX(VD1,
MAX(VD2,VD3,VD4)*RED7); VDQ:=MAX(VD1Q,MAX(VD2Q,VD3Q,VD4Q)*RED7);
DRQ:=0.0; DS1:=MAX(ord(DAT1)*NR1,ord(DAT2)*NR2,ord(DAT3)*NR3)*
RED7*0.5; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=70.0)!(ASYV>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR7Q,NR7,NR6Q,NR6,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,
NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,BGN4,LNG3,LNG2,RED7,RED4,MAN7,
PCMAN7,VR1MAN7,FDMAN7,SDMAN7,FAP1,FDFAP1, ASY1,ASYV,CNQ) <0 then
negative end;

procedure c0141s215; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=
MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,
FDFAP2-5.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2);
RED4:=AR(65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=
59.0)&(ASY1>=15.0); RAS10:=ASY1>=10.0; BEG7:=ANYTIME(BIRTHD+59.0,
BIRTHD+65.0); NR1:=(72.0+0.01*MAX(o(FAP1,10800.0),o(FAP2,10800.0)
))*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*
ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,FAP2,SDFAP2,
FDFAP2,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0142s217; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-60.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+62.0)); RED4:=NN(
1.0-0.036*o(65.0,AGE)); RED7:=AR(NRD-BENIFITD); RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY1>=15.0); ROT7:=ASY1>=15.0; BEG7:=MAX(
BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
0.015*FAP1*ASY1-0.0125*SS1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=10.0*
ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=MIN(FAP1-SS1,MAX(NR1,NR2)); NRQ:=
MIN(FAP1-SS1,MAX(NR1Q,NR2Q)); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=
AA(BEG7,0.0)*VD1; VD2:=NRT*RED7; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*
VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=0.5*
ERT; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,RED7,RED4,SS1,
FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0143s218; begin CNQ:=0.0; ASY1:=MIN(30.0,QUITD-HIRED)*
1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
SS1:=SSBASE(BENIFITD); RED4:=AR(65.0-AGE); RED10:=OTHERB; RED13:=
JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=25.0); RAS4:=(AGE>=
50.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; ROT10:=QSSDABLE; LNG10:=
BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+65.0); BEG11:=MAX(
BIRTHD+65.0,QUITD); NR1:=120.0*ASY1+0.012*o(FAP1,SS1)*ASY1;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT-RED10;
DR1Q:=ord(RAS10&ROT10)*AA(QUITD,LNG10)*DR1; DR2:=NRT; DR2Q:=ord(
RAS1)*AA(BEG11,0.0)*DR2; DRT:=DR1+DR2; DRQ:=DR1Q+DR2Q; DS1:=0.5*
ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=50.0)!(ASY1>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG7,
LNG10,RED13,RED10,RED4,SS1,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0144s219; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0,1981.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+70.0)-HIRED)*
1.0; FDFAP1:=MIN(QUITD,BIRTHD+70.0,1981.0); FAP1:=ord(
FDFAP1>HIRED)*WAGE(FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+70.0);
SDFAP2:=MAX(HIRED,1981.0); FAP2:=ord(FDFAP2>SDFAP2)*SUM(WAGE,
SDFAP2,FDFAP2); FDFAP3:=MIN(QUITD,BIRTHD+70.0); SDFAP3:=MAX(
HIRED,FDFAP3-5.0); FAP3:=ord(FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,
FDFAP3); SDSS1:=MAX(HIRED,1981.0); SS1:=ord(QUITD>SDSS1)*SUM(
SSBASE,SDSS1,QUITD); SS2:=SS(1.0,BENIFITD); SS3:=SS(2.0,BENIFITD)
;SS10:=SS(5.0,BENIFITD); RED4:=NN(1.0-0.03*o(65.0,AGE)); RED5:=
NN(1.0-0.03*o(62.0,AGE)); RED7:=AR(65.0-AGE); RED10:=OTHERB;
RED13:=JSRED; RAS1:=AGE>=65.0; RAS2:=(AGE>=62.0)&(ASY2>=20.0);
RAS3:=(AGE>=65.0)!(AGE>=62.0)&(ASY2>=20.0); RAS4:=(AGE+ASY2>=
65.0)&(AGE>=55.0); RAS5:=(AGE>=55.0)&(ASY2>=20.0); RAS10:=AGE+
ASY2>=65.0; RAS13:=(AGE+ASY2>=65.0)&(AGE>=50.0); RAS14:=(AGE>=
50.0)&(ASY2>=20.0); ROT7:=(ASY2>=10.0)&(AGE+ASY2>=45.0); ROT8:=(
ASY2>=5.0)&(AGE+ASY2>=45.0); ROT9:=AGE+ASY2>=65.0; ROT10:=
QSSDABLE; ROT11:=(ASY2>=20.0)&(AGE+ASY2>=65.0); LNG10:=NRD;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0-
ASY2,QUITD); BEG9:=MAX(BIRTHD+65.0,QUITD); BEG11:=MAX(BIRTHD+
70.0,QUITD); BEG13:=MAX(BIRTHD+55.0,QUITD); NR1:=(0.01*u(FAP1,
25900.0)+0.0125*o(FAP1,25900.0))*ASY1; NR1Q:=ord(RAS3)*NR1; NR2:=
0.0125*u(FAP2,SS1)+0.015*o(FAP2,SS1); NR2Q:=ord(RAS3)*NR2; NR3:=
0.016*ASY2*(FAP3-SS2); NR3Q:=ord(RAS1)*NR3; NR4:=0.016*ASY2*(
FAP3-SS3); NR4Q:=ord(RAS2)*NR4; NRT:=MAX(NR1+NR2,NR3,NR4); NRQ:=
MAX(NR1Q+NR2Q,NR3Q,NR4Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=(NR1+NR2)*
RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR4*RED4; ER2Q:=ord(RAS4)*ER2;
ER3:=(NR1+NR2)*RED5; ER3Q:=ord(RAS5)*ER3; ER4:=NR4*RED5; ER4Q:=
ord(RAS5)*ER4; ERT:=MAX(ER1,ER2,ER3,ER4); ERQ:=MAX(ER1Q,ER2Q,
ER3Q,ER4Q); VD1:=MAX((NR1+NR2)*RED7,0.0016*ASY2*(FAP3-SS3)*RED7);
VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=VD1; VD2Q:=ord(ROT8)*AA(
BEG8,0.0)*VD2; VD3:=MAX(ER1,ER2); VD3Q:=ord(ROT9)*AA(BEG7,0.0)*
VD3; VD4:=MAX(ER3,ER4); VD4Q:=ord(ROT11)*AA(BEG7,0.0)*VD4; VD5:=
NRT; VD5Q:=AA(BEG9,0.0)*VD5; VDT:=MAX(VD1,VD2,VD3,VD4,VD5); VDQ:=
MAX(VD1Q,VD2Q,VD3Q,VD4Q,VD5Q); DR1:=NR1+NR2-RED10; DR1Q:=ord(
RAS10&ROT10)*DR1; DR2:=48.0*ASY2-0.016*SS10-RED10; DR2Q:=ord(
RAS10&ROT10)*AA(QUITD,LNG10)*DR2; DR3:=MAX(NR1+NR2,NR3); DR3Q:=
ord(RAS10&ROT10)*AA(BEG11,0.0)*DR3; DRT:=MAX(DR1,DR2)+DR3; DRQ:=
MAX(DR1Q,DR2Q)+DR3Q; DS1:=0.5*ER1*RED13; DS1Q:=ord(RAS13)*AA(
BEG13,0.0)*DS1; DS2:=0.5*ER2*RED13; DS2Q:=ord(RAS13)*AA(BEG13,
0.0)*DS2; DS3:=0.5*ER3*RED13; DS3Q:=ord(RAS14)*AA(BEG13,0.0)*DS3;
DS4:=0.5*ER4*RED13; DS4Q:=ord(RAS14)*AA(BEG13,0.0)*DS4; DST:=MAX(
DS1,DS2,DS3,DS4); DSQ:=MAX(DS1Q,DS2Q,DS3Q,DS4Q); PRAG:=0.0;
VEDB:=VOPT(MAX(ord(ASY2>=10.0)*0.5,ord(ASY2>=12.0)*0.7,ord(
ASY2>=15.0)*1.0)); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,DS3,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD5Q,VD5,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,
NR2Q,NR2,NR1Q,NR1,BEG13,BEG11,BEG9,BEG8,BEG7,LNG10,RED13,RED10,
RED7, RED5,RED4,SS10,SS3,SS2,SS1,SDSS1,FAP3,SDFAP3,FDFAP3,FAP2,
SDFAP2,FDFAP2,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0145s220; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,1976.0)
-MAX(HIRED,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(QUITD-
MAX(HIRED,BIRTHD+22.0,1976.0))*ord(WRKHRS>=1000.0)*1.0; PSY4:=
MIN(35.0,BIRTHD+65.0-HIRED); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-5.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,
MAX(BENIFITD,BIRTHD+65.0)); RED4:=1.0-(0.033*a(AGE,60.0,55.0)+
0.066*a(AGE,61.0,60.0)+0.067*a(AGE,65.0,61.0)); RED13:=JSRED;
RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=
10.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG11:=MAX(NRD,QUITD);
NR1:=(0.017143*FAP1-0.014286*SS1)*u(ASY1+ASY2,35.0); NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
ASY1/PSY4*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ERT;
DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DR2:=NRT; DR2Q:=ord(ROT10)*
AA(BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=
0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG11,
BEG10,BEG7,ASY51,RED13,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,
FDFAP1,PSY4,ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0146s221; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/1800.0)
;PSY4:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-5.0),FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/12.0;
RED4:=AR(NRD-BENIFITD); RED7:=AR(NRD-BENIFITD); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.3*FAP1+0.01*FAP1*o(ASY1,15.0)-
0.5*SS1)*u(ASY1,15.0)/15.0; NR1Q:=ord(RAS1)*NR1; NR2:=15.0*ASY1;
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=(0.3*FAP1+0.01*FAP1*o(PSY4,15.0)-
0.5*SS1)*u(PSY4,15.0)/15.0*ASY1/PSY4*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=NR2*RED4; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q)*12.0; VD1:=ERT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED7,RED4,SS1,FAP1,
FDFAP1,PSY4,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0147s222; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
RED4:=NN(1.0-0.024*o(65.0,AGE)); RED5:=NN(1.0-0.012*o(65.0,AGE));
RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=25.0); RAS4:=(AGE>=55.0)&(
ASY1>=15.0); RAS5:=(AGE>=62.0)&(ASY1>=15.0); RAS10:=ASY1>=10.0;
RAS13:=(AGE>=55.0)&(ASY1>=15.0); RAS14:=(AGE>=60.0)&(ASY1>=15.0);
RAS15:=(AGE>=62.0)&(ASY1>=25.0); ROT7:=ASY1>=15.0; LNG10:=BIRTHD+
65.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(BIRTHD+
65.0,QUITD); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=13.0*ASY1;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5; ER2Q:=
ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=
ER1; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,
0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT;
DR1Q:=ord(RAS10)*AA(QUITD,LNG10)*DR1; DR2:=100.0; DR2Q:=ord(
RAS10)*AA(QUITD,LNG10)*DR2; DR3:=NRT; DR3Q:=ord(RAS10)*AA(BEG11,
0.0)*DR3; DRT:=MAX(DR1,DR2)+DR3; DRQ:=(MAX(DR1Q,DR2Q)+DR3Q)*12.0;
DS1:=0.4625*ER1; DS1Q:=ord(RAS14)*DS1; DS2:=0.4625*NRT*MAX(RED4,
0.88); DS2Q:=ord(RAS13)*DS2; DS3:=0.4625*NRT; DS3Q:=ord(RAS15)*
DS3; DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q)*12.0; PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG8,BEG7,LNG10,RED5,
RED4,ASY1,CNQ) <0 then negative end;

procedure c0148s225; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/480.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.085;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.05*a(AGE,
60.0,58.0)+0.0003*a(AGE,65.0,60.0)); RED5:=NN(1.0-0.0005*o(30.0,
ASY1)); RED13:=JSRED; RAS1:=(AGE>=60.0)&(ASY1>=5.0); RAS2:=ASY1>=
30.0; RAS4:=(AGE>=55.0)&(ASY1>=25.0); RAS10:=ASY1>=5.0; BEG7:=
MAX(BIRTHD+60.0,QUITD); NR1:=0.02*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1;
NR2:=0.9*FAP1; NR2Q:=ord(RAS1)*NR2; NR3:=86.0*ASY1; NR3Q:=ord(
RAS2)*NR3; NRT:=MIN(NR2,MAX(NR1,NR3)); NRQ:=MIN(NR2Q,MAX(NR1Q,
NR3Q)); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*MAX(RED4,RED5); ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*
VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NR1; DR1Q:=ord(RAS10)*DR1; DR2:=
0.3*FAP1; DR2Q:=ord(RAS10)*DR2; DR3:=0.75*FAP1; DR3Q:=ord(RAS10)*
DR3; DRT:=MIN(DR3,MAX(DR1,DR2)); DRQ:=MIN(DR3Q,MAX(DR1Q,DR2Q));
DS1:=ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=
ord(ACPIG>=0.03)*MIN(0.95*ACPIG,0.03); VEDB:=VOPT(ord(ASY1>=5.0)*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED5,RED4,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0149s226; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1982.5)-
MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=NN(QUITD-MAX(HIRED+1.0,
BIRTHD+25.0,1982.5))*NNMIN(1.0,WRKHRS/12.0); FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1); FDFAP2:=
QUITD; FAP2:=AVG(WAGE,MAX(HIRED,FDFAP2-60.0),FDFAP2); FAP3:=WAGE(
QUITD); RED4:=AR(NRD-BENIFITD); RED10:=1.0-(0.0667*a(AGE,60.0,
55.0)+0.0333*a(AGE,65.0,60.0)); RED11:=AR(55.0-AGE); RED13:=
JSRED; RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(
ASY51>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=
ANYTIME(0.0,0.0); NR1:=(0.12*MAX(FAP1,FAP2,FAP3)+0.3*MAX(o(FAP1,
17700.0),o(FAP2,17700.0),o(FAP3,17700.0)))*u(ASY1+ASY2,20.0)/
20.0; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=AI(AGE,65.0,
999.0)*NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=NRT*RED11*RED10; DR1Q:=AA(BEG10,0.0)*DR1; DRT:=
DR1; DRQ:=DR1Q; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG10,BEG7,ASY51,RED13,RED11,RED10,RED4,FAP3,FAP2,
FDFAP2,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0151s227; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(
FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1)/12.0; FDFAP10:=MIN(QUITD,
BIRTHD+65.0); FAP10:=ord(FDFAP10>HIRED)*AVG(WAGE,HIRED,FDFAP10)/
12.0; RED4:=1.0-(0.06*a(AGE,62.0,55.0)+0.03*a(AGE,65.0,62.0));
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=AGE>=55.0; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=
0.0135*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=0.0135*FAP10*ASY1; DR1Q:=AA(BEG10,0.0)*DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(
ASY1>=6.0)*0.2,ord(ASY1>=8.0)*0.6,ord((QUITAGE>=55.0)!(ASY1>=
10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG10,BEG7,RED13,RED4,FAP10,FDFAP10,FAP1,FDFAP1,ASY1,CNQ) <0
then negative end;

procedure c0152s230; begin CNQ:=0.0; ASY1:=NNMIN(37.0,QUITD-MAX(
HIRED,1976.5))*NNMIN(1.0,WRKHRS/1800.0); ASY2:=NNMIN(37.0,QUITD-
MAX(HIRED,1976.5))*NNMIN(1.0,WRKHRS/1000.0); ASY10:=NNMIN(36.0,
QUITD-MAX(HIRED,1976.5))*NNMIN(1.0,WRKHRS/1800.0); RED4:=1.0-(
0.0396*a(AGE,62.0,60.0)+0.03*a(AGE,65.0,62.0)); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS10:=ASY1>=
10.0; RAS13:=(AGE>=60.0)&(ASY1>=10.0)!(AGE>=55.0)&(ASY1>=25.0);
LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0);
BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=12.0*ASY1; NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=12.0*
ASY10; DR1Q:=ord(RAS10)*AA(QUITD,LNG10)*DR1; DR2:=NRT; DR2Q:=ord(
RAS1)*AA(BEG11,0.0)*DR2; DRT:=DR1+DR2; DRQ:=(DR1Q+DR2Q)*12.0;
DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*
12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG11,BEG7,LNG10,RED13,RED4,ASY10,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0153s231; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.5)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1976.5))*NNMIN(1.0,
WRKHRS/1904.0); ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+
22.0,1976.5))*ord(WRKHRS>=1000.0)*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+
65.0,1976.5)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,MAX(
BENIFITD,BIRTHD+65.0))/12.0; RED4:=NN(1.0-0.04*o(65.0,AGE));
RED13:=JSRED; RAS1:=AGE>=65.0; ASY52:=ASY3+ASY4; RAS4:=(AGE>=
55.0)&(ASY52>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
NR1:=(0.5*FAP1-0.5*SS1)*u(ASY1+ASY2,30.0)/30.0; NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=
0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY52>=10.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY52,RED13,RED4,SS1,
FAP1,SDFAP1,FDFAP1,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0154s235; begin CNQ:=0.0; ASY1:=NNMIN(40.0,MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=NNMIN(40.0,
MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+22.0))*1.0; FDFAP1:=MIN(
QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; RED4:=AR(NRD-
BENIFITD); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(
ASY2>=10.0); RAS13:=ASY2>=10.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=(0.01*u(FAP1,400.0)+0.015*o(FAP1,400.0))*ASY1; NR1Q:=
ord(RAS1)*NR1; NR2:=50.0; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=AI(AGE,65.0,70.0)*NRQ; MRAGE:=
70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*
12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DRQ:=0.0; DS1:=ERT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,
RED4,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0155s241; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1000.0); ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*NNMIN(
1.0,WRKHRS/1700.0); RED4:=1.0-(0.0057*a(AGE,57.0,55.0)+0.0058*a(
AGE,60.0,57.0)+0.067*a(AGE,62.0,60.0)); RED10:=OTHERB; RAS1:=
AGE>=62.0; RAS4:=(AGE>=60.0)&(ASY1>=10.0)!(AGE+ASY1>=85.0)&(AGE>=
55.0); RAS10:=ASY1>=10.0; RAS13:=(AGE>=60.0)&(ASY1>=10.0)!(AGE+
ASY1>=85.0)&(AGE>=55.0); ROT10:=QSSDABLE; ROT11:=^QSSDABLE;
LNG10:=BIRTHD+SSAGE(2.0); BEG7:=MAX(ERD,QUITD); BEG11:=MAX(
BIRTHD+62.0,QUITD); NR1:=9.5*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=8.25*ASY1-RED10; DR1Q:=ord(
RAS10&ROT10)*DR1; DR2:=2.0*8.25*ASY1-RED10; DR2Q:=ord(RAS10&
ROT11)*AA(QUITD,LNG10)*DR2; DR3:=DR1; DR3Q:=ord(RAS10&ROT11)*AA(
BEG11,0.0)*DR3; DRT:=MAX(DR1,DR2+DR3); DRQ:=MAX(DR1Q,DR2Q+DR3Q)*
12.0; DS1:=0.9*ERT*0.5; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=62.0)!(ASYV>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG11,BEG7,LNG10,RED10,RED4,ASY1,ASYV,CNQ) <0 then
negative end;

procedure c0156s242; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-(HIRED+1.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=
ord(FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1); SS1:=SSBASE(BENIFITD);
RED4:=AR(NRD-BENIFITD); RED10:=AR(NRD-BENIFITD); RED13:=JSRED;
RED14:=COSTRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=15.0);
RAS10:=ASY1>=10.0; ROT7:=ASY1>=15.0; ROT10:=QSSDABLE; BEG7:=MAX(
NRD,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.0075*
u(FAP1,SS1)+0.015*o(FAP1,SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=
NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1;
VD2:=ERT; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2);
VDQ:=MAX(VD1Q,VD2Q); DR1:=NRT*RED10; DR1Q:=ord(RAS10&ROT10)*DR1;
DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED14*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,RED14,RED13,RED10,RED4,SS1,FAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0157s170; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*NNMIN(1.0,WRKHRS/1440.0); PSY4:=BIRTHD+65.0-HIRED;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0;
FDFAP10:=MIN(QUITD,BIRTHD+65.0); FAP10:=ord(FDFAP10>HIRED)*WAGE(
FDFAP10)/12.0; SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0;
SS10:=SS(5.0,BENIFITD)/12.0; RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+
0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS2:=(
AGE>=65.0)&(ASY1>=5.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS13:=(
AGE>=65.0)!(AGE>=55.0)&(ASY1>=10.0)!(AGE>=45.0)&(ASY1>=20.0);
ROT10:=^QSSDABLE; ROT11:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=NN(0.015*FAP1*
ASY1-0.025*SS1*u(ASY1,20.0)); NR1Q:=ord(RAS1)*NR1; NR2:=4.0*ASY1;
NR2Q:=ord(RAS1)*NR2; NR3:=25.0; NR3Q:=ord(RAS2)*NR3; NRT:=MAX(
NR1,MAX(NR2,NR3)); NRQ:=MAX(NR1Q,MAX(NR2Q,NR3Q))*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NN(0.015*FAP1*PSY4-0.025*SS1*u(ASY1,20.0))*
ASY1/PSY4*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
NN(0.015*FAP10*ASY1-0.025*SS1*u(ASY1,20.0)); DR1Q:=ord(ROT10)*AA(
BEG10,0.0)*DR1; DR2:=NN(0.015*FAP10*ASY1-0.025*SS10*u(ASY1,20.0))
;DR2Q:=ord(ROT11)*AA(BEG10,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(
DR1Q,DR2Q)*12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS13)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,RED4,SS10,
SS1,FAP10,FDFAP10,FAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then negative
end;

procedure c0158s171; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(
HIRED,FDFAP1-3.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1)/12.0; FDFAP2:=MIN(QUITD,BIRTHD+70.0); SDFAP2:=MAX(HIRED,
FDFAP2-5.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2)/
12.0; RED4:=NN(1.0-0.03*o(65.0,AGE)); RED7:=NN(1.0-0.06*o(65.0,
AGE)); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=10.0)!(
AGE+ASY1>=80.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=
10.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.012*FAP1*
ASY1+0.012*FAP2*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=16.0*ASY1; NR2Q:=
ord(RAS1)*NR2; NR3:=18.0; NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1,NR2)+
NR3; NRQ:=(MAX(NR1Q,NR2Q)+NR3Q)*12.0; LRQ:=NRQ; MRAGE:=70.0;
ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR2*RED4; ER2Q:=ord(
RAS4)*ER2; ER3:=NR3; ER3Q:=ord(RAS4)*ER3; ERT:=MAX(ER1,ER2)+ER3;
ERQ:=(MAX(ER1Q,ER2Q)+ER3Q)*12.0; VD1:=NR1*RED7; VD1Q:=AA(BEG7,
0.0)*VD1; VD2:=NR2*RED7; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*NRT*RED13; DS1Q:=ord(RAS10)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG7,RED13,RED7,RED4,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0159s172; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-120.0/12.0),
FDFAP1)/12.0; FAP2:=WAGE(QUITD); SS13:=SS(6.0,BENIFITD)/12.0;
RED4:=1.0-(0.0548*a(AGE,62.0,60.0)+0.0685*a(AGE,64.0,62.0)+
0.0816*a(AGE,65.0,64.0)); RED7:=AR(65.0-AGE); RAS1:=(AGE>=65.0)&(
ASY1>=10.0)!(AGE>=62.0)&(ASY1>=30.0); RAS4:=(AGE>=60.0)&(ASY1>=
15.0); RAS10:=ASY1>=15.0; RAS11:=(AGE>=55.0)&(ASY1>=15.0)!(AGE+
ASY1>=80.0); RAS13:=ASY1>=30.0; RAS14:=ASY1>=15.0; ROT7:=ASY1>=
15.0; LNG2:=1.0; LNG10:=BIRTHD+SSAGE(1.0); LNG13:=BIRTHD+60.0;
BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+60.0,BIRTHD+
65.0); BEG11:=MAX(BIRTHD+65.0,QUITD); BEG14:=MAX(BIRTHD+60.0,
QUITD); NR1:=0.01*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=14.0*ASY1;
NR2Q:=ord(RAS1)*NR2; NR3:=0.25*FAP2; NR3Q:=ord(RAS1)*AA(QUITD,
LNG2+QUITD)*NR3; NRT:=MAX(NR1,NR2)+NR3; NRQ:=(MAX(NR1Q,NR2Q)+
NR3Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(
RAS4)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4)*ER2; ER3:=NR3; ER3Q:=
ord(RAS4)*AA(QUITD,LNG2+QUITD)*ER3; ERT:=MAX(ER1,ER2)+ER3; ERQ:=(
MAX(ER1Q,ER2Q)+ER3Q)*12.0; VD1:=MAX(NR1,NR2); VD1Q:=AA(BEG7,0.0)*
VD1; VD2:=VD1*RED7; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(
VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=MAX(125.0,MAX(NR1,NR2));
DR1Q:=ord(RAS10)*DR1; DR2:=MAX(NR1,NR2); DR2Q:=ord(RAS10)*AA(
BEG11,0.0)*DR2; DR3:=90.0; DR3Q:=ord(RAS10)*AA(QUITD,LNG10)*DR3;
DR4:=150.0; DR4Q:=ord(RAS11)*AA(QUITD,LNG10)*DR4; DRT:=MAX(DR1,
DR2)+DR3+DR4; DRQ:=(MAX(DR1Q,DR2Q)+DR3Q+DR4Q)*12.0; DS1:=MAX(0.5*
NRT,107.5); DS1Q:=ord(RAS13)*AA(QUITD,LNG13)*DS1; DS2:=MAX(0.5*
NRT-0.5*SS13,57.5); DS2Q:=ord(RAS13)*AA(BEG14,0.0)*DS2; DS3:=MAX(
0.5*ERT,107.5); DS3Q:=ord(RAS14)*AA(QUITD,LNG13)*DS3; DS4:=MAX(
0.5*ERT-0.5*SS13,57.5); DS4Q:=ord(RAS14)*AA(BEG14,0.0)*DS4; DST:=
MAX(DS1+DS2,DS3+DS4); DSQ:=MAX(DS1Q+DS2Q,DS3Q+DS4Q)*12.0; PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,
NR2Q,NR2,NR1Q,NR1,BEG14,BEG11,BEG8,BEG7,LNG13,LNG10,LNG2,RED7,
RED4,SS13,FAP2,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0160s173; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0,1962.0)-MAX(HIRED,1947.25))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+
70.0,1969.0)-MAX(HIRED,1962.0))*NNMIN(1.0,WRKHRS/1750.0); ASY4:=
NN(MIN(QUITD,BIRTHD+70.0,1976.0)-MAX(HIRED,1969.0))*NNMIN(1.0,
WRKHRS/1750.0); FDFAP1:=MIN(QUITD,BIRTHD+70.0,1969.0); SDFAP1:=
MAX(HIRED,1962.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1)/12.0; FDFAP2:=MIN(QUITD,BIRTHD+70.0,1976.0); SDFAP2:=MAX(
HIRED,1969.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2)/
12.0; FDFAP3:=MIN(QUITD,BIRTHD+70.0); SDFAP3:=MAX(HIRED,1976.0);
FAP3:=ord(FDFAP3>SDFAP3)*SUM(WAGE,SDFAP3,FDFAP3); RED4:=NN(1.0-
0.03*o(65.0,AGE)); RED7:=AR(65.0-AGE); RAS1:=(AGE>=65.0)!(AGE>=
60.0)&(ASY2>=25.0); RAS4:=(AGE>=55.0)&(ASY2>=10.0); RAS10:=(AGE>=
50.0)&(ASY2>=15.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
14.0*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=MAX(0.0075*FAP1*ASY3,14.0*
ASY3); NR2Q:=ord(RAS1)*NR2; NR3:=MAX(0.01*FAP2*ASY4,14.0*ASY4);
NR3Q:=ord(RAS1)*NR3; NR4:=0.015*FAP3/12.0; NR4Q:=ord(RAS1)*NR4;
NRT:=NR1+NR2+NR3+NR4; NRQ:=(NR1Q+NR2Q+NR3Q+NR4Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NRT*RED4; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=
DR1Q*12.0; DS1:=0.5*NRT; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,
NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED7,RED4,FAP3,SDFAP3,FDFAP3,FAP2,
SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY4,ASY3,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0161s97; begin CNQ:=0.0; ASY1:=NNMIN(40.0,MIN(QUITD,
BIRTHD+65.0,1976.0)-MAX(HIRED,MIN(HIRED+1.0,BIRTHD+25.0)))*1.0;
ASY2:=NNMIN(40.0,MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,MIN(HIRED+1.0,
BIRTHD+25.0),1976.0))*ord(WRKHRS>=1000.0)*1.0; ASY4:=NNMIN(5.0,
MIN(QUITD,BIRTHD+30.0,1976.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0,1975.0); SDFAP1:=MAX(HIRED,1974.0);
FAP1:=ord(FDFAP1>SDFAP1)*WAGE(FDFAP1)/12.0; FDFAP2:=MIN(QUITD,
BIRTHD+65.0); SDFAP2:=MAX(HIRED,FDFAP2-60.0/12.0); FAP2:=ord(
FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2)/12.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,
FDMAN7); RED4:=1.0-(0.0456*a(AGE,60.0,55.0)+0.04*a(AGE,62.0,60.0)
); ASY51:=ASY1+ASY2; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY51>=10.0);
RAS4:=(AGE>=55.0)&(ASY51>=15.0); ROT2:=PARTD<1981.0; ROT7:=(
PARTD<1981.0)&(ASY1+ASY2>=15.0); ROT8:=ASY1+ASY2>=15.0; ROT10:=
QCODABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(
BIRTHD+65.0,QUITD); BEG10:=MAX(BIRTHD+65.0,QUITD); ANMAN7:=
ANNPAY(MAN7,BENIFITD); NR1:=ANMAN7/24.0; NR1Q:=ord(RAS1&ROT2)*
NR1; NR2:=0.01*FAP1*ASY4; NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=(0.0075*
u(FAP2,400.0)+0.0133*o(FAP2,400.0))*(ASY1+ASY2); NR3Q:=ord(RAS1)*
NR3; NRT:=MAX(NR3,NR1+NR2); NRQ:=MAX(NR3Q,NR1Q+NR2Q)*12.0; LRQ:=
NRQ; MRAGE:=70.0; ER1:=(NR1+NR3)*RED4; ER1Q:=ord(RAS4&ROT2)*ER1;
ER2:=NR3*RED4; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q)*12.0; VD1:=(NR1+NR2)*RED4; VD1Q:=ord(ROT7)*AA(BEG7,
0.0)*VD1; VD2:=NR3*RED4; VD2Q:=ord(ROT8)*AA(BEG7,0.0)*VD2; VD3:=(
NR1+NR2)*RED4; VD3Q:=ord(ROT2)*AA(BEG8,0.0)*VD3; VD4:=NR3*RED4;
VD4Q:=AA(BEG8,0.0)*VD4; VDT:=MAX(MAX(VD3,VD4),VD1,VD2); VDQ:=MAX(
MAX(VD3Q,VD4Q),VD1Q,VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(ROT10)*AA(
BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,
VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,
NR3,NR2Q,NR2,NR1Q,NR1,ANMAN7,BEG10,BEG8,BEG7,ASY51,RED4,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY4,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0162s103; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FAP1:=WAGE(QUITD); FDFAP2:=QUITD; FAP2:=AVG(
WAGE,MAX(HIRED,FDFAP2-3.0),FDFAP2); FDFAP10:=MIN(QUITD,BIRTHD+
65.0); FAP10:=ord(FDFAP10>HIRED)*WAGE(FDFAP10); SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,97.0,0.0,SDMAN7,
FDMAN7); SDMAN8:=HIRED; FDMAN8:=QUITD; PCMAN8:=MANNAR; MAN8:=
SUMI(PCMAN8,97.0,0.0,SDMAN8,FDMAN8); RED4:=8.5*a(AGE,55.0,50.0)+
10.3*a(AGE,60.0,55.0)+8.58*a(AGE,65.0,60.0); RED5:=6.1*a(AGE,
54.0,50.0)+6.6*a(AGE,55.0,54.0)+7.72*a(AGE,56.0,55.0); RED6:=7.7*
a(AGE,57.0,56.0)+8.4*a(AGE,58.0,57.0)+9.2*a(AGE,59.0,58.0);
RED7:=10.0*a(AGE,60.0,59.0)+7.4*a(AGE,61.0,60.0)+10.0*a(AGE,
62.0,61.0); RED8:=10.7*a(AGE,63.0,62.0)+11.3*a(AGE,64.0,63.0)+
12.1*a(AGE,65.0,64.0); RAS1:=(AGE>=65.0)&(ASY1>=10.0); RAS4:=(
ASY1>=30.0)!(AGE>=50.0)&(ASY1>=10.0); RAS13:=ASY1>=5.0; ROT1:=
PARTD<1980.0; ROT2:=1980.0<=QUITD; ROT11:=QJRDABLE&(PARTD<1980.0)
;ROT12:=QJRDABLE&(1980.0<=QUITD); ROT13:=QJRDEATH; ROT14:=
^QJRDEATH; BEG7:=MAX(ERD,QUITD); NR1:=FAP1*MIN(1.0,ASY1*0.02611);
NR1Q:=ord(RAS1&ROT1)*NR1; NR2:=FAP2*MIN(1.0,ASY1*0.02432); NR2Q:=
ord(RAS1&ROT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=
NRQ; MRAGE:=999.0; ER1:=FAP1*MIN(1.0,ASY1*0.0001*(261.1-RED4));
ER1Q:=ord(RAS4&ROT1)*ER1; ER2:=FAP2*MIN(1.0,ASY1*0.0001*(243.2-
RED5-RED6-RED7-RED8)); ER2Q:=ord(RAS4&ROT2)*ER2; ERT:=MAX(ER1,
ER2); ERQ:=MAX(ER1,ER2); VD1:=ER1; VD1Q:=ord(ROT1)*AA(BEG7,0.0)*
VD1; VD2:=ER2; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1,VD2); DR1:=MAX(NR1,0.5*FAP10); DR1Q:=ord(
ROT11)*DR1; DR2:=MAX(NR2,0.5*FAP10); DR2Q:=ord(ROT12)*DR2; DRT:=
MAX(DR1,DR2); DRQ:=MAX(DR1,DR2); DS1:=0.6*DR1; DS1Q:=ord(RAS13&
ROT14)*DS1; DS2:=0.5*FAP10; DS2Q:=ord(ROT13)*DS2; DST:=MAX(DS1,
DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=MIN(0.95*ACPIG,0.03); VEDB:=
VOPT(ord(ASY1>=5.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG7,RED8,RED7,RED6,RED5,RED4,MAN8,PCMAN8,FDMAN8,SDMAN8,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP10,FDFAP10,FAP2,FDFAP2,FAP1,ASY1,CNQ) <0
then negative end;

procedure c0163s109; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-MAX(HIRED,BIRTHD+21.0))*NNMIN(1.0,WRKHRS/12.0);
ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+21.0,1976.0))*
ord(WRKHRS>=1000.0)*1.0; ASY3:=NNMIN(25.0,MIN(QUITD,BIRTHD+65.0)-
MAX(HIRED,BIRTHD+25.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0);
SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; FDFAP10:=MIN(QUITD,BIRTHD+65.0); FAP10:=ord(
FDFAP10>HIRED)*WAGE(FDFAP10)/12.0; SDVOL7:=HIRED; FDVOL7:=QUITD;
PCVOL7:=MAX(VOL1NAR*WAGE(SURVEYD),MIN(VOL2NAR*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL7:=SUMI(PCVOL7,2.0,0.0,
SDVOL7,FDVOL7); SS1:=SS(1.0,BENIFITD)/12.0; RED4:=NN(1.0-0.03*o(
62.0,AGE)); RED10:=OTHERB; RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=
(AGE>=65.0)!(AGE+ASY51>=75.0)&(AGE>=62.0); RAS4:=(AGE+ASY51>=
75.0)&(AGE>=55.0); RAS13:=(AGE+ASY51>=55.0)&(ASY51>=10.0); BEG7:=
MAX(BIRTHD+65.0,QUITD); BEG10:=MAX(NRD,QUITD); NR1:=(0.02*FAP1-
0.02*SS1)*ASY3; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=(0.02*FAP10-0.02*SS1)*ASY3-RED10; DR1Q:=AA(
BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*0.5;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,ASY51,RED13,RED10,
RED4,SS1,VOL7,PCVOL7,FDVOL7,SDVOL7,FAP10,FDFAP10,FAP1,SDFAP1,
FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0164s174; begin CNQ:=0.0; ASY1:=NNMIN(30.0,QUITD-(
HIRED+1.0))*NNMIN(1.0,WRKHRS/1800.0); ASY2:=NNMIN(15.0,QUITD-(
HIRED+1.0))*NNMIN(1.0,WRKHRS/1800.0); ASY3:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/900.0); PSY1:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD; FAP1:=
AVGMIN(120000.0,WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); FAP2:=SUM(
WAGE,HIRED,QUITD); FDFAP3:=QUITD; FAP3:=AVG(WAGE,MAX(HIRED,
FDFAP3-5.0),FDFAP3); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.04;
MAN7:=SUMI(PCMAN7,5.0,0.0,SDMAN7,FDMAN7); SDMAN8:=HIRED; FDMAN8:=
QUITD; PCMAN8:=0.02; MAN8:=SUMI(PCMAN8,4.0,0.0,SDMAN8,FDMAN8);
SS1:=SS(1.0,BENIFITD); RED4:=1.0-(0.04*a(AGE,60.0,55.0)+0.06*a(
AGE,65.0,60.0)); RED13:=COSTRED; RAS1:=AGE>=65.0; RAS2:=(AGE>=
65.0)&(ASY3>=12.0); RAS4:=(AGE>=55.0)&(ASY3>=10.0); RAS5:=(AGE>=
60.0)&(ASY3>=12.0); DAT2:=QUITD<1985.0; ROT2:=(PARTD<1975.0)&(
1975.0<=QUITD); ROT10:=QSSDABLE&(PARTD<1975.0)&(1975.0<=QUITD);
ROT11:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.86*u(FAP1,9000.0)+0.82*
b(FAP1,9000.0,12000.0)+0.74*b(FAP1,12000.0,18000.0)+0.68*b(FAP1,
18000.0,424000.0); NR1Q:=ord(RAS1)*NR1; NR2:=(NR1+0.63*b(FAP1,
24000.0,60000.0)+0.57*b(FAP1,60000.0,120000.0))*ASY1/30.0-SS1*
ASY1/MIN(30.0,PSY1); NR2Q:=ord(RAS1)*NR2; NR3:=0.01*ASY2*FAP3;
NR3Q:=ord(RAS2&DAT2&ROT2)*NR3; NR4:=MIN(0.15*FAP3,1200.0); NR4Q:=
ord(RAS2&DAT2&ROT2)*NR4; NR5:=FAP2*0.0075; NR5Q:=ord(RAS1)*NR5;
NRT:=MAX(NR2,NR3,NR5,NR4); NRQ:=MAX(NR2Q,NR3Q,NR5Q,NR4Q); LRQ:=
NRQ; MRAGE:=999.0; ER1:=MAX(NR2,NR5)*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=NR3*RED4; ER2Q:=ord(RAS5&DAT2&ROT2)*ER2; ER3:=NR4*RED4;
ER3Q:=ord(RAS5&DAT2&ROT2)*ER3; ERT:=MAX(ER1,ER2,ER3); ERQ:=MAX(
ER1Q,ER2Q,ER3Q); VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=MAX(ER2,
ER3); VD2Q:=ord(DAT2&ROT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2);
VDQ:=MAX(VD1Q,VD2Q); DR1:=ER1; DR1Q:=ord(RAS4&ROT11)*AA(BEG10,
0.0)*DR1; DR2:=ER2; DR2Q:=ord(RAS5&DAT2&ROT10)*AA(BEG10,0.0)*DR2;
DR3:=ER3; DR3Q:=ord(RAS5&DAT2&ROT10)*AA(BEG10,0.0)*DR3; DRT:=MAX(
DR1,DR2,DR3); DRQ:=MAX(DR1Q,DR2Q,DR3Q); DS1:=ER1*RED13*0.5;
DS1Q:=ord(RAS4)*DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(RAS5&DAT2&
ROT2)*DS2; DS3:=ER3*RED13*0.5; DS3Q:=ord(RAS5&DAT2&ROT2)*DS3;
DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q); PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY3>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,
ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,
NR2,NR1Q,NR1,BEG10,BEG7,RED13,RED4,SS1,MAN8,PCMAN8,FDMAN8,
SDMAN8,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP3,FDFAP3, FAP2,FAP1,FDFAP1,
PSY1,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0165s111; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY4:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(
1.0,BENIFITD)/12.0; SS4:=SS(2.0,BENIFITD)/12.0; RED4:=AR(NRD-
BENIFITD); RED10:=NN(1.0-0.0672*o(65.0,AGE)); RED13:=JSRED;
RED14:=COSTRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=15.0);
RAS10:=(AGE>=50.0)&(ASY1>=10.0); BEG7:=MAX(NRD,QUITD); BEG8:=MAX(
ERD,QUITD); BEG11:=MAX(NRD,QUITD); NR1:=(0.024*u(ASY1,25.0)+0.01*
o(ASY1,25.0))*FAP1-0.83333*SS1; NR1Q:=ord(RAS1)*NR1; NR2:=3.0*
ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)
*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=((0.024*u(ASY1,25.0)+0.01*o(
ASY1,25.0))*FAP1-0.83333*SS4)*ASY1/PSY4*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1;
VD2:=ERT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q)*12.0; DR1:=((0.024*u(ASY1,25.0)+0.01*o(ASY1,25.0))*
FAP1-0.83333*SS4)*ASY1/PSY4*RED10; DR1Q:=ord(RAS10)*DR1; DR2:=
NRT; DR2Q:=ord(RAS10)*AA(BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=
MAX(DR1Q,DR2Q)*12.0; DS1:=NRT*RED13*RED14*0.5; DS1Q:=ord(RAS1)*
DS1; DS2:=ERT*RED13*RED14*0.5; DS2Q:=ord(RAS4)*DS2; DST:=MAX(DS1,
DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(
ASY1>=5.0)*0.25,ord(ASY1>=10.0)*0.5,ord((QUITAGE>=65.0)!(ASY1>=
15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,
DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG11,BEG8,BEG7,RED14,
RED13,RED10,RED4,SS4,SS1,FAP1,SDFAP1,FDFAP1,PSY4,ASY1,CNQ) <0
then negative end;

procedure c0166s175; begin CNQ:=0.0; ASY1:=NNMIN(40.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/2000.0); ASY2:=MIN(40.0,
QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(
WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/
12.0; SS2:=SS(2.0,MAX(BENIFITD,BIRTHD+62.0))/12.0; SS7:=SS(1.0,
MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=NN(1.0-0.06*o(60.0,AGE));
RED7:=AR(65.0-AGE); RED13:=JSRED; RED14:=COSTRED; RAS1:=AGE>=
65.0; RAS2:=AGE>=60.0; RAS4:=(AGE>=55.0)&(ASY2>=15.0); ROT2:=
AGE<62.0; ROT7:=ASY2>=15.0; LNG2:=BIRTHD+SSAGE(2.0); BGN3:=
BIRTHD+SSAGE(2.0); BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=0.015*ASY1*FAP1-0.0125*ASY1*SS1;
NR1Q:=ord(RAS1)*NR1; NR2:=0.015*ASY1*FAP1-0.0125*ASY1*SS2; NR2Q:=
ord(RAS2&ROT2)*AA(BGN3,0.0)*NR2; NR3:=0.015*ASY1*FAP1; NR3Q:=ord(
RAS2&ROT2)*AA(QUITD,LNG2)*NR3; NRT:=MAX(NR1,NR2+NR3); NRQ:=MAX(
NR1Q,NR2Q+NR3Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=0.015*FAP1*
ASY1*RED4; ER1Q:=ord(RAS4)*AA(QUITD,LNG2)*ER1; ER2:=0.015*FAP1*
ASY1*RED4-0.0125*SS2*ASY1; ER2Q:=ord(RAS4)*AA(BGN3,0.0)*ER2;
ERT:=ER1+ER2; ERQ:=(ER1Q+ER2Q)*12.0; VD1:=0.015*ASY1*FAP1-0.0125*
ASY1*SS7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=VD1*RED7; VD2Q:=ord(ROT7)*
AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0;
DRQ:=0.0; DS1:=ER1; DS1Q:=ord(RAS4)*AA(QUITD,LNG2)*DS1; DS2:=ER2;
DS2Q:=ord(RAS4)*AA(BGN3,0.0)*DS2; DST:=(DS1+DS2)*RED13*RED14;
DSQ:=(DS1+DS2)*RED13*RED14*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=60.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,
ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG8,
BEG7,BGN3,LNG2,RED14,RED13,RED7,RED4,SS7,SS2,SS1,FAP1,FDFAP1,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0167s180; begin CNQ:=0.0; ASY1:=NNMIN(15.0,QUITD-MAX(
HIRED,BIRTHD+22.0))*NNMIN(1.0,WRKHRS/1000.0); PSY7:=BIRTHD+65.0-
HIRED; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-
5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(
1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=NN(1.0-0.06*o(65.0,AGE));
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)&(ASY1>=15.0);
RAS10:=ASY1>=10.0; ROT10:=QSSDABLE; LNG10:=NRD; BEG7:=ANYTIME(
BIRTHD+60.0,0.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=0.5*FAP1-
0.75*SS1; NR1Q:=ord(RAS1)*NR1; NR2:=1200.0*ASY1/15.0; NR2Q:=ord(
RAS1)*NR2; NR3:=27000.0; NR3Q:=ord(RAS1)*NR3; NRT:=MIN(MAX(NR1,
NR2),NR3); NRQ:=MIN(MAX(NR1Q,NR2Q),NR3Q); LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
NR1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=1200.0*ASY1/15.0*ASY1/PSY7;
VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q);
DR1:=VDT; DR1Q:=ord(ROT10)*AA(QUITD,LNG10)*DR1; DR2:=NRT; DR2Q:=
ord(RAS1&ROT10)*AA(BEG10,0.0)*DR2; DR3:=NRT; DR3Q:=ord(RAS10&
ROT10)*AA(BEG10,0.0)*DR3; DRT:=MAX(DR1,DR2+DR3); DRQ:=MAX(DR1Q,
DR2Q+DR3Q); DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=5.0)*0.25,ord(
ASY1>=10.0)*0.5,ord(ASY1>=15.0)*1.0)); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG10,BEG7,LNG10,RED13,RED4,SS1,FAP1,SDFAP1,FDFAP1,
PSY7,ASY1,CNQ) <0 then negative end;

procedure c0168s181; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*1.0;
ASY1:=NN(MIN(QUITD,1982.667)-HIRED)*1.0; ASY2:=NN(QUITD-MAX(
HIRED,1982.667))*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); RED4:=AR(NRD-BENIFITD); ASY51:=ASY1+ASY2;
RED13:=100.0*o(20.0,ASY51); RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)&(
ASY51>=10.0); RAS10:=ASY51>=10.0; ROT10:=^QJRDABLE; ROT11:=
QJRDABLE; LNG13:=1.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0);
NR1:=0.011*FAP1*ASY1+0.0125*FAP1*ASY2; NR1Q:=ord(RAS1)*NR1; NR2:=
900.0; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=NRT;
DR2Q:=ord(ROT11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q);
DS1:=2500.0-RED13; DS1Q:=ord(RAS10)*AA(QUITD,LNG13+QUITD)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,LNG13,RED13,ASY51,RED4,FAP1,
FDFAP1,ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0169s182; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1976.167)-
HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-
MAX(HIRED+1.0,1976.167))*NNMIN(1.0,WRKHRS/2000.0); FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0; SS1:=SS(1.0,
MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=1.0-(0.0333*a(AGE,60.0,
55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0;
ASY56:=ASY2+ASY3; RAS4:=(AGE>=55.0)&(ASY56>=10.0); RAS10:=ASY56>=
10.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
BEG10:=ANYTIME(0.0,0.0); NR1:=NN(0.0143*FAP1*u(ASY2+ASY3,35.0)-
SS1); NR1Q:=ord(RAS1)*NR1; NR2:=8.0*ASY2+ASY3; NR2Q:=ord(RAS1)*
NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*
12.0; DR1:=ERT; DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*DR1; DRT:=
DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=
5.0)*0.25,ord(ASY1>=10.0)*0.5,ord((QUITAGE>=65.0)!(ASY1>=15.0))*
1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG10,BEG7,ASY56,RED13,RED4,SS1,FAP1,FDFAP1,ASY3,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0171s184; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/2080.0); ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0,1962.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(2.0,
BENIFITD)/12.0; SS2:=SS(1.0,BENIFITD)/12.0; RED4:=NN(1.0-0.06*o(
60.0,AGE)); RED5:=NN(1.0-0.06*o(85.0,AGE+ASY1)); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS2:=(AGE>=60.0)&(ASY1>=10.0)!(AGE+ASY1>=85.0);
RAS4:=(AGE>=50.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; ROT2:=
AGE<65.0; ROT4:=QAPPROVL; LNG4:=BIRTHD+SSAGE(2.0); BGN5:=BIRTHD+
SSAGE(2.0); BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); BEG10:=MAX(
BIRTHD+50.0,QUITD); NR1:=0.014*FAP1*ASY1-0.0002*u(FAP1,2500.0)*
SS2*u(ASY1,30.0)/30.0; NR1Q:=ord(RAS1)*NR1; NR2:=0.014*FAP1*ASY1-
0.0002*u(FAP1,2500.0)*SS1*u(ASY1,30.0)/30.0; NR2Q:=ord(RAS2&ROT2)
*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=(1.0+
0.06*b(AGE,65.0,70.0))*NRQ; MRAGE:=70.0; ER1:=0.014*ASY1*FAP1*
MAX(RED4,RED5); ER1Q:=ord(RAS4&ROT4)*AA(QUITD,LNG4)*ER1; ER2:=NN(
ER1-0.0002*u(FAP1,2500.0)*SS1*u(ASY1,30.0)/30.0); ER2Q:=ord(RAS4&
ROT4)*AA(BGN5,0.0)*ER2; ERT:=ER1+ER2; ERQ:=(ER1Q+ER2Q)*12.0;
VD1:=NR2; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
ER1; DR1Q:=ord(RAS10)*AA(BEG10,LNG4)*DR1; DR2:=ER2; DR2Q:=ord(
RAS10)*AA(BGN5,0.0)*DR2; DRT:=DR1+DR2; DRQ:=(DR1Q+DR2Q)*12.0;
DS1:=ER1; DS1Q:=ord(RAS4)*AA(QUITD,LNG4)*DS1; DS2:=ER2; DS2Q:=
ord(RAS4)*AA(BGN5,0.0)*DS2; DST:=(DS1+DS2)*RED13*0.5; DSQ:=(DS1Q+
DS2Q)*RED13*0.5*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY2>=5.0)*
0.5,ord(ASY2>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0));
if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,BGN5,LNG4,RED13,RED5,RED4,
SS2,SS1,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0172s190; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1981.5)-(HIRED+1.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1981.5))*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,1981.5);
SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(
HIRED,1981.5); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2);
SDMAN7:=HIRED; FDMAN7:=QUITD; VR1MAN7:=ord(4800.0>WAGE(SURVEYD))*
0.02+ord(WAGE(SURVEYD)>=4800.0)*0.03; PCMAN7:=VR1MAN7; MAN7:=
SUMI(PCMAN7,7.0,0.0,SDMAN7,FDMAN7); SDVOL7:=HIRED; FDVOL7:=QUITD;
PCVOL7:=MAX(0.01*WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,
FDVOL7); RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,
60.0)); RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=(AGE>=65.0)&(
ASY51>=7.0); RAS4:=(AGE>=55.0)&(ASY51>=10.0); RAS10:=ASY51>=10.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.01*u(FAP1,4800.0)
+0.02*o(FAP1,4800.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.01*u(
FAP2,4800.0)+0.02*o(FAP2,4800.0))*ASY2; NR2Q:=ord(RAS1)*NR2;
NRT:=NR1+NR2; NRQ:=NR1Q+NR2Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10)
*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,ASY51,RED13,RED4,VOL7,PCVOL7,
FDVOL7,SDVOL7,MAN7,PCMAN7,VR1MAN7,FDMAN7,SDMAN7,FAP2,SDFAP2,
FDFAP2,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0173s194; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0; FAP13:=WAGE(
QUITD)/12.0; SS1:=SS(1.0,BENIFITD)/12.0; RED4:=AR(62.0-AGE);
RED5:=AR(60.0-AGE); RED6:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(
AGE>=65.0)!(AGE>=62.0)&(ASY1>=30.0)!(AGE+ASY1>=100.0); RAS4:=(
AGE>=55.0)&(ASY2>=10.0); RAS5:=(AGE>=55.0)&(ASY2>=30.0); RAS6:=(
AGE>=62.0)&(ASY2>=10.0); RAS10:=ASY1>=10.0; ROT10:=QSSDABLE;
LNG4:=BIRTHD+65.0; BGN5:=MAX(BIRTHD+65.0,QUITD); LNG13:=1.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.5*FAP1-0.5*SS1)*
ASY1/30.0; NR1Q:=ord(RAS1)*NR1; NR2:=10.0*ASY2; NR2Q:=ord(RAS1)*
NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=500.0*ASY1/30.0*RED5; ER1Q:=ord(RAS4)*AA(
QUITD,LNG4)*ER1; ER2:=NRT*RED6; ER2Q:=ord(RAS4)*AA(QUITD,LNG4)*
ER2; ER3:=MAX(NR1*RED6,NR2); ER3Q:=ord(RAS6)*AA(QUITD,LNG4)*ER3;
ER4:=NRT*RED4; ER4Q:=ord(RAS5)*AA(QUITD,LNG4)*ER4; ER5:=NRT;
ER5Q:=ord(RAS4)*AA(BGN5,0.0)*ER5; ERT:=ER5+MAX(ER1,ER2,ER3,ER4);
ERQ:=(ER5Q+MAX(ER1Q,ER2Q,ER3Q,ER4Q))*12.0; VD1:=MAX(ER1,ER2,ER3,
ER4); VD1Q:=AA(BEG7,LNG4)*VD1; VD2:=ER5; VD2Q:=AA(BGN5,0.0)*VD2;
VDT:=VD1+VD2; VDQ:=(VD1Q+VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(RAS10&
ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=MAX(ER1,ER2)*RED13*
0.5; DS1Q:=ord(RAS4)*AA(QUITD,LNG4)*DS1; DS2:=2.0*FAP13; DS2Q:=
AA(QUITD,LNG13+QUITD)*DS2; DS3:=ER3*RED13*0.5; DS3Q:=ord(RAS6)*
AA(QUITD,LNG4)*DS3; DS4:=ER4*RED13*0.5; DS4Q:=ord(RAS5)*AA(QUITD,
LNG4)*DS4; DS5:=ER5*RED13*0.5; DS5Q:=ord(RAS4)*AA(BGN5,0.0)*DS5;
DST:=MAX(DS1,DS3,DS4,DS5)+DS2; DSQ:=(MAX(DS1Q,DS3Q,DS4Q,DS5Q)+
DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS5Q,DS5,DS4Q,DS4,DS3Q,
DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,
VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,LNG13,BGN5,LNG4,RED13,RED6,
RED5,RED4,SS1,FAP13,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0174s195; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/1152.0); FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/12.0; SS2:=
SS(2.0,BENIFITD)/12.0; RED4:=1.0-(0.033*a(AGE,59.0,55.0)+0.051*a(
AGE,63.0,59.0)+0.072*a(AGE,65.0,63.0)); RED5:=1.0-(0.058*a(AGE,
57.0,55.0)+0.059*a(AGE,58.0,57.0)+0.066*a(AGE,60.0,58.0));
RED13:=JSRED; RAS1:=AGE>=65.0; RAS2:=(AGE>=60.0)&(ASY1>=10.0);
RAS3:=(AGE>=65.0)!(AGE>=60.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(
ASY1>=10.0); ROT2:=QAPPROVL&(AGE<65.0); ROT4:=QAPPROVL; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=MAX(0.02*FAP1*ASY1,13.5*
ASY1); NR1Q:=ord(RAS1)*NR1; NR2:=MAX(0.02*FAP1*ASY1,13.5*ASY1);
NR2Q:=ord(RAS2&ROT2)*NR2; NR3:=0.65*FAP1; NR3Q:=ord(RAS3)*NR3;
NR4:=0.75*FAP1-0.35*SS1; NR4Q:=ord(RAS1)*NR4; NR5:=0.75*FAP1-
0.35*SS2; NR5Q:=ord(RAS2&ROT2)*NR5; NRT:=MIN(NR3,NR4,NR5,MAX(NR1,
NR2)); NRQ:=MIN(NR3Q,NR4Q,NR5Q,MAX(NR1Q,NR2Q))*12.0; LRQ:=NRQ;
MRAGE:=70.0; ER1:=13.5*ASY1; ER1Q:=ord(RAS4)*ER1; ER2:=0.02*FAP1*
ASY1*RED4; ER2Q:=ord(RAS4)*ER2; ER3:=0.02*FAP1*ASY1*RED5; ER3Q:=
ord(RAS4&ROT4)*ER3; ER4:=MIN(NR3,NR5); ER4Q:=ord(RAS4)*ER4; ERT:=
MIN(ER4,MAX(ER1,ER2,ER3)); ERQ:=MIN(ER4Q,MAX(ER1Q,ER2Q,ER3Q))*
12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=AA(BEG7,
0.0)*VD2; VD3:=ER4; VD3Q:=AA(BEG7,0.0)*VD3; VDT:=MIN(VD3,MAX(VD1,
VD2)); VDQ:=MIN(VD3Q,MAX(VD1Q,VD2Q))*12.0; DRQ:=0.0; DS1:=0.5*
ER1*RED13; DS1Q:=ord(RAS4)*DS1; DS2:=0.5*ER2*RED13; DS2Q:=ord(
RAS4)*DS2; DS3:=0.5*ER3*RED13; DS3Q:=ord(RAS4&ROT4)*DS3; DS4:=
0.5*ER4*RED13; DS4Q:=ord(RAS4)*DS4; DST:=MIN(DS4,MAX(DS1,DS2,DS3)
); DSQ:=MIN(DS4Q,MAX(DS1Q,DS2Q,DS3Q))*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD3Q,
VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,
NR1,BEG7,RED13,RED5,RED4,SS2,SS1,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0
then negative end;

procedure c0175s196; begin CNQ:=0.0; ASY1:=NNMIN(32.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*1.0; RED4:=AR(65.0-AGE); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS10:=(AGE>=45.0)&(
ASY1>=10.0); ROT4:=QAPPROVL; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+
65.0); NR1:=8.0*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*
12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4&ROT4)
*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT4)*AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(
RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*0.5; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,ASY1,CNQ) <0 then
negative end;

procedure c0176s206; begin CNQ:=0.0; ASY1:=NNMIN(15.0,MIN(QUITD,
BIRTHD+70.0,1975.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+70.0)-
MAX(HIRED,1975.0))*NNMIN(1.0,WRKHRS/2080.0); ASY4:=(QUITD-HIRED)*
ord(WRKHRS>=1000.0)*1.0; RED4:=1.0-(0.0667*a(AGE,60.0,55.0)+
0.0333*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY4>=10.0); ROT4:=QAPPROVL; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=6.0*ASY1+20.0*ASY2; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4&ROT4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=
0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(ord(ASY4>=10.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,ASY4,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0177s207; begin CNQ:=0.0; ASY1:=MIN(30.0,QUITD-HIRED)*
ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(QUITD-MAX(HIRED,BIRTHD+22.0))*
ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-60.0/12.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,
MAX(BENIFITD,BIRTHD+65.0)); RED4:=1.0-(0.0445*a(AGE,60.0,55.0)+
0.088*a(AGE,61.0,60.0)+0.023*a(AGE,62.0,61.0)); RED5:=NN(1.0-
0.04*o(65.0,AGE)); RED7:=1.0-(0.0368*a(AGE,59.0,55.0)+0.0517*a(
AGE,62.0,59.0)+0.072*a(AGE,65.0,62.0)); RED13:=JSRED; RAS1:=(
AGE>=65.0)!(AGE>=62.0)&(ASY2>=5.0); RAS4:=(AGE>=55.0)&(ASY2>=5.0)
;RAS5:=AGE>=55.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(
0.5*FAP1-0.6*SS1)*ASY1/30.0; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=
NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=NRT*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q); VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*ER1*RED13; DS1Q:=ord(RAS4)*DS1;
DS2:=0.5*ER2*RED13; DS2Q:=ord(RAS5)*DS2; DST:=MAX(DS1,DS2); DSQ:=
MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY2>=5.0)*0.25,
ord(ASY2>=10.0)*0.625,ord((QUITAGE>=55.0)!(ASY2>=15.0))*1.0));
if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,
RED7,RED5,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0178s112; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*1.0;
ASY1:=NNMIN(30.0,QUITD-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; PSY4:=NN(
BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+25.0)); FDFAP1:=MIN(QUITD,
BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*WAGE(FDFAP1)/12.0; SDVOL7:=
HIRED; FDVOL7:=QUITD; PCVOL7:=MAX(240.0,MIN(0.1*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL7:=SUMI(PCVOL7,2.0,0.0,
SDVOL7,FDVOL7); SS1:=SSBASE(1974.0)/12.0; RED4:=AR(65.0-AGE);
RAS1:=AGE>=65.0; RAS4:=ASY1>=15.0; ROT10:=QSSDABLE; BEG7:=
ANYTIME(0.0,0.0); NR1:=NN(0.1*FAP1+0.3*o(FAP1,SS1))*ASY1/30.0;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=
65.0; ER1:=NN(0.1*FAP1+0.3*o(FAP1,SS1))*ASY1/PSY4*RED4; ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ER1; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=ER1; DR1Q:=ord(ROT10)*
DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ER1; DS1Q:=DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASYV>=5.0)*0.25,
ord(ASYV>=10.0)*0.5,ord((QUITAGE>=65.0)!(ASYV>=15.0))*1.0)); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED4,SS1,
VOL7,PCVOL7,FDVOL7,SDVOL7,FAP1,FDFAP1,PSY4,ASY1,ASYV,CNQ) <0
then negative end;

procedure c0179s113; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1975.0)-
HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(QUITD-MAX(HIRED,1975.0))*
NNMIN(1.0,WRKHRS/12.0); FDFAP1:=MIN(QUITD,1973.917); SDFAP1:=MAX(
HIRED,1973.0); FAP1:=ord(FDFAP1>SDFAP1)*WAGE(FDFAP1); SDFAP2:=
MAX(HIRED,1975.0); FAP2:=ord(QUITD>SDFAP2)*SUM(WAGE,SDFAP2,QUITD)
;RED4:=1.0-(0.048*a(AGE,62.0,55.0)+0.024*a(AGE,65.0,62.0));
RED13:=JSRED; RED14:=COSTRED; RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2;
RAS2:=(AGE>=65.0)&(ASY51>=15.0); RAS4:=(AGE>=55.0)&(ASY51>=5.0)!(
AGE>=60.0)&(ASY51>=1.0); RAS10:=ASY51>=1.0; RAS13:=AGE>=55.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=0.005*FAP1*ASY1+0.0075*FAP2; NR1Q:=ord(
RAS1)*NR1; NR2:=48.0*(ASY1+ASY2); NR2Q:=ord(RAS2)*NR2; NRT:=MAX(
NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ER1; DR1Q:=ord(RAS10)
*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13*
RED14; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord(ASY51>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,
DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,ASY51,RED14,RED13,RED4,
FAP2,SDFAP2,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0180s114; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=12.0)*1.0; FAP1:=WAGE(QUITD); FAP10:=WAGE(QUITD);
SDMAN7:=HIRED; FDMAN7:=QUITD; VR1MAN7:=ord(7800.0>WAGE(SURVEYD))*
0.02+ord(WAGE(SURVEYD)>=7800.0)*0.05; PCMAN7:=VR1MAN7; MAN7:=
SUMI(PCMAN7,7.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.04*o(65.0,AGE)
); RED5:=NN(1.0-0.0667*o(65.0,AGE)); RED10:=OTHERB; RED13:=JSRED;
RAS1:=(AGE>=65.0)&(ASY1>=15.0); RAS4:=(AGE>=62.0)&(ASY1>=15.0);
RAS5:=(AGE>=55.0)&(ASY1>=15.0); RAS11:=ASY1>=10.0; ROT10:=
QJRDABLE; ROT11:=^QJRDABLE; ROT13:=QJRDEATH; ROT14:=^QJRDEATH;
BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.0125*u(FAP1,7800.0)+0.023*
o(FAP1,7800.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
NRT*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q); VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=FAP10*0.5-RED10; DR1Q:=ord(ROT10)*DR1; DR2:=NRT; DR2Q:=ord(
RAS11&ROT11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=
FAP1*0.5; DS1Q:=ord(ROT13)*DS1; DS2:=ERT*RED13*0.5; DS2Q:=ord(
RAS4&ROT14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=
TAR(0.03,1.0); VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG7,RED13,RED10,RED5,RED4,MAN7,PCMAN7,VR1MAN7,FDMAN7,
SDMAN7,FAP10,FAP1,ASY1,CNQ) <0 then negative end;

procedure c0181s116; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1981.25)-MAX(HIRED,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0;
ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+25.0,1981.25))*
ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,1981.0);
SDFAP1:=MAX(HIRED,FDFAP1-3.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(
HIRED,1981.25); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2);
FDFAP10:=MIN(QUITD,BIRTHD+65.0); SDFAP10:=MAX(HIRED,1981.25);
FAP10:=ord(FDFAP10>SDFAP10)*WAGE(FDFAP10); SDSS1:=MAX(HIRED,
1981.25); SS1:=ord(QUITD>SDSS1)*AVG(SSBASE,SDSS1,QUITD); RED4:=
1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=
JSRED; RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(
ASY51>=10.0); RAS10:=ASY51>=1.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); BEG11:=MAX(ERD,
QUITD); NR1:=(0.0075*u(FAP1,10000.0)+0.015*o(FAP1,10000.0))*ASY1;
NR1Q:=ord(RAS1)*NR1; NR2:=(0.0075*u(FAP2,SS1)+0.015*o(FAP2,SS1))*
ASY2; NR2Q:=ord(RAS1)*NR2; NRT:=NR1+NR2; NRQ:=NR1Q+NR2Q; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NR1+(0.0075*u(FAP10,SS1)+0.015*o(FAP10,SS1))*ASY2; DR1Q:=
ord(RAS10)*AA(BEG10,0.0)*DR1; DR2:=DR1; DR2Q:=ord(RAS10)*AA(
BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.5*
ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG11,
BEG10,BEG7,ASY51,RED13,RED4,SS1,SDSS1,FAP10,SDFAP10,FDFAP10,
FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0182s117; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1974.0)-
MAX(HIRED,1955.5))*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,
1976.0)-MAX(HIRED,1974.0))*NNMIN(1.0,WRKHRS/720.0); ASY3:=NN(MIN(
QUITD,BIRTHD+72.0)-MAX(HIRED,1976.0))*NNMIN(1.0,WRKHRS/2000.0);
ASY10:=NN(QUITD-MAX(HIRED,1976.0))*ord(WRKHRS>=1000.0)*1.0;
RED13:=JSRED; ASY67:=ASY1+ASY2+ASY10; RAS1:=(AGE>=62.0)&(ASY67>=
10.0); RAS10:=(AGE>=50.0)&(ASY67>=10.0); ROT10:=QSSDABLE; BEG7:=
MAX(NRD,QUITD); NR1:=4.0*(ASY1+ASY2+ASY3); NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ERQ:=0.0; VD1:=
NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT;
DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*
NRT*RED13; DS1Q:=ord(RAS1)*DS1; DS2:=DS1; DS2Q:=ord(RAS10&ROT10)*
DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0;
ASY53:=ASY1+ASY2+ASY3; VEDB:=VOPT(ord(ASY53>=10.0)*1.0); if min(
VEDB,ASY53,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY67,RED13,
ASY10,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0183s118; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1971.5))*NNMIN(1.0,WRKHRS/
2000.0); ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1971.5)-MAX(HIRED+1.0,
BIRTHD+25.0,1961.5))*NNMIN(1.0,WRKHRS/2000.0); ASY3:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/
2000.0); PSY1:=NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+25.0));
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,1971.5); FAP1:=
ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; FDFAP2:=MIN(
QUITD,BIRTHD+65.0,1971.5); SDFAP2:=MAX(HIRED,1961.5); FAP2:=ord(
FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2)/12.0; FDFAP3:=MIN(QUITD,
BIRTHD+65.0,QUITD-ASY3+40.0); SDFAP3:=MAX(HIRED,FDFAP3-5.0);
FAP3:=ord(FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3)/12.0; FDFAP4:=
MIN(QUITD,BIRTHD+65.0); SDFAP4:=MAX(HIRED,FDFAP4-3.0); FAP4:=ord(
FDFAP4>SDFAP4)*AVG(WAGE,SDFAP4,FDFAP4)/12.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,
FDMAN7); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=AR(
65.0-AGE); RED10:=OTHERB; RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=
AGE>=55.0; RAS10:=(AGE>=40.0)&(ASY3>=10.0); BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=(0.0075*u(FAP1,250.0)+0.02*o(FAP1,250.0))
*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.0115*u(FAP1,367.65)+0.02*o(
FAP1,367.65))*ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=(0.006*u(FAP2,
250.0)+0.018*o(FAP2,250.0))*ASY2; NR3Q:=ord(RAS1)*NR3; NR4:=2.0*
u(ASY3,35.0); NR4Q:=ord(RAS1)*NR4; NR5:=u(ASY3,35.0)+0.015*FAP3*
u(ASY3,20.0)+0.01333*FAP3*b(ASY3,20.0,35.0)-0.66667*SS1*ASY3/
PSY1; NR5Q:=ord(RAS1)*NR5; NR6:=0.02*FAP4*u(ASY3,20.0)+0.0075*
FAP4*b(ASY3,20.0,40.0)-0.0125*SS1*ASY3; NR6Q:=ord(RAS1)*NR6;
NRT:=MAX(NR1+NR3+NR4,NR2+NR3+NR4,NR5,NR6); NRQ:=MAX(NR1Q+NR3Q+
NR4Q,NR2Q+NR3Q+NR4Q,NR5Q,NR6Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=ERT-
RED10; DR1Q:=ord(RAS10)*DR1; DR2:=SS1-RED10; DR2Q:=ord(RAS10)*
DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=0.5*ERT*
RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=TAR(
0.03,1.0); VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASYV>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR6Q,NR6,NR5Q,
NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED10,RED4,
SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP4,SDFAP4,FDFAP4,FAP3,SDFAP3,
FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,PSY1, ASY3,ASY2,
ASY1,ASYV,CNQ) <0 then negative end;

procedure c0184s123; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1981.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1981.0))*1.0; ASY3:=NN(
MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY4:=NN(
MIN(QUITD,BIRTHD+65.0,1976.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0;
ASY5:=NN(MIN(QUITD,BIRTHD+65.0,1981.0)-MAX(HIRED+1.0,BIRTHD+
25.0,1976.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,1981.0); FAP1:=
ord(FDFAP1>HIRED)*WAGE(FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0);
SDFAP2:=MAX(HIRED,1981.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,
SDFAP2,FDFAP2); FDFAP3:=MIN(QUITD,BIRTHD+65.0,1976.0); FAP3:=ord(
FDFAP3>HIRED)*WAGE(FDFAP3); FDFAP4:=MIN(QUITD,BIRTHD+65.0,1981.0)
;SDFAP4:=MAX(HIRED,1975.0); FAP4:=ord(FDFAP4>SDFAP4)*AVG(WAGE,
SDFAP4,FDFAP4); SDSS1:=MAX(HIRED,1981.0); SS1:=ord(QUITD>SDSS1)*
SSBASE(1976.0); RED4:=NN(1.0-0.06*o(65.0,AGE)); RED7:=AR(65.0-
AGE); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=AGE>=55.0; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.01*u(FAP1,9000.0)+
0.015*o(FAP1,9000.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.015*u(
FAP2,SS1)+0.025*o(FAP2,SS1))*ASY2; NR2Q:=ord(RAS1)*NR2; NR3:=
60.0*ASY3; NR3Q:=ord(RAS1)*NR3; NR4:=(0.0075*u(FAP3,7800.0)+
0.0125*o(FAP3,7800.0))*ASY4; NR4Q:=ord(RAS1)*NR4; NR5:=(0.01*u(
FAP4,SS1)+0.02*o(FAP4,SS1))*ASY5; NR5Q:=ord(RAS1)*NR5; NRT:=MAX(
MAX(NR1,NR4+NR5)+NR2,NR3); NRQ:=MAX(MAX(NR1Q,NR4Q+NR5Q)+NR2Q,
NR3Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
55.0)!(ASY3>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,
NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED7,RED4,SS1,
SDSS1,FAP4,SDFAP4,FDFAP4,FAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,
FDFAP1,ASY5,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0185s124; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1700.0); ASY2:=(QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0;
FAP1:=WAGE(QUITD)/12.0; RED4:=1.0-(0.025*a(AGE,49.0,47.0)+0.0305*
a(AGE,51.0,49.0)+0.037*a(AGE,53.0,51.0)); RED5:=1.0-(0.045*a(AGE,
55.0,53.0)+0.0575*a(AGE,57.0,55.0)+0.057*a(AGE,59.0,57.0));
RED6:=1.0-(0.059*a(AGE,60.0,59.0)+0.066*a(AGE,61.0,60.0)+0.067*
a(AGE,62.0,61.0)); RED7:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(
AGE,65.0,60.0)); RAS1:=(AGE>=65.0)&(ASY2>=5.0); RAS2:=(AGE>=62.0)
&(ASY1>=10.0); RAS4:=ASY1>=30.0; RAS5:=(AGE>=60.0)&(ASY1>=10.0)!(
AGE+ASY1>=85.0)&(AGE>=55.0); RAS6:=(ASY1>=30.0)!(AGE>=60.0)&(
ASY1>=10.0)!(AGE+ASY1>=85.0)&(AGE>=55.0); RAS10:=ASY2>=10.0;
ROT7:=AGE+ASY1>=85.0; LNG4:=BIRTHD+62.0; BGN5:=MAX(BIRTHD+62.0,
QUITD); BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); BEG8:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+62.0,QUITD); NR1:=
18.45*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=NR1; NR2Q:=ord(RAS2)*NR2;
NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=MAX(935.0,NR1*(RED4+RED5+RED6-2.0)); ER1Q:=ord(RAS4)*
AA(QUITD,LNG4)*ER1; ER2:=NR1; ER2Q:=ord(RAS4)*AA(BGN5,0.0)*ER2;
ER3:=NR1*(RED4+RED5+RED6-2.0)+(5.25+b(AGE,55.0,56.0)+1.25*b(AGE,
56.0,59.0)+1.5*b(AGE,59.0,60.0))*ASY1; ER3Q:=ord(RAS5)*AA(QUITD,
LNG4)*ER3; ER4:=NR1*(RED4+RED5+RED6-2.0); ER4Q:=ord(RAS5)*AA(
BGN5,0.0)*ER4; ER5:=0.7*FAP1; ER5Q:=ord(RAS6)*ER5; ERT:=MIN(ER5,
MAX(ER1+ER2,ER3+ER4)); ERQ:=MIN(ER5Q,MAX(ER1Q+ER2Q,ER3Q+ER4Q))*
12.0; VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR1*RED7;
VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q)*12.0; DR1:=NR1+15.0*u(ASY1,25.0); DR1Q:=ord(RAS10)*AA(
QUITD,LNG4)*DR1; DR2:=NR1; DR2Q:=ord(RAS10)*AA(BEG11,0.0)*DR2;
DRT:=DR1+DR2; DRQ:=(DR1Q+DR2Q)*12.0; DS1:=10.52*ASY1; DS1Q:=ord(
RAS4)*DS1; DS2:=0.55*18.45*(RED4+RED5+RED6-2.0); DS2Q:=ord(RAS6)*
DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((ASY2>=10.0)!(QUITAGE>=65.0)&(ASY2>=5.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG11,BEG8,BEG7,BGN5,LNG4,RED7,RED6,RED5,RED4,FAP1,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0186s125; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*NNMIN(1.0,WRKHRS/960.0); RED4:=NN(1.0-0.06*o(60.0,
AGE)); RED13:=JSRED; RAS1:=(ASY1>=30.0)!(AGE>=60.0)&(ASY1>=5.0);
RAS4:=(AGE>=55.0)&(ASY1>=5.0); RAS10:=ASY1>=10.0; RAS13:=(ASY1>=
15.0)!(AGE>=55.0)&(ASY1>=5.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=14.0*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*
12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1;
DRQ:=DR1Q*12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS13)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((ASY1>=10.0)!(
QUITAGE>=55.0)&(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,
DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,ASY1,CNQ) <0 then negative
end;

procedure c0187s126; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1975.0))*NNMIN(1.0,WRKHRS/
1000.0); ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1975.0)-MAX(HIRED,1957.0)
)*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0,1957.0)-HIRED)*1.0; ASY53:=
ASY1+ASY2+ASY3; FDFAP1:=MIN(QUITD,BIRTHD+65.0,QUITD-ASY53+35.0);
SDFAP1:=MAX(HIRED,1957.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0,1957.0); SDFAP2:=
MAX(HIRED,1956.0); FAP2:=ord(FDFAP2>SDFAP2)*WAGE(FDFAP2); RED4:=
AR(65.0-AGE); RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY53>=15.0);
RAS10:=ASY53>=15.0; RAS13:=(AGE>=45.0)&(ASY53>=10.0); ROT7:=ASY1+
ASY2+ASY3>=15.0; LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,QUITD); BEG11:=MAX(BIRTHD+
65.0,QUITD); NR1:=18.0*u(ASY1+ASY2+ASY3,35.0); NR1Q:=ord(RAS1)*
NR1; NR2:=(FAP1-4200.0)*0.01*(ASY1+ASY2); NR2Q:=ord(RAS1)*NR2;
NR3:=0.01*(FAP2-4200.0)*ASY3; NR3Q:=ord(RAS1)*NR3; NRT:=NR1+NR2+
NR3; NRQ:=NR1Q+NR2Q+NR3Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=ord(
ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=42.0*u(ASY1+ASY2+ASY3,
35.0)+NR2+NR3; DR1Q:=ord(RAS10)*AA(QUITD,LNG10)*DR1; DR2:=NRT;
DR2Q:=ord(RAS10)*AA(BEG11,0.0)*DR2; DRT:=DR1+DR2; DRQ:=DR1Q+DR2Q;
DS1:=NRT; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(MAX(ord(ASY53>=5.0)*0.25,ord(ASY53>=10.0)*0.5,ord((
QUITAGE>=65.0)!(ASY53>=15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG11,BEG8,BEG7,LNG10,RED4,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,
FDFAP1,ASY53,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0188s130; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1976.75)-
HIRED)*NNMIN(1.0,WRKHRS/700.0); ASY2:=NN(QUITD-MAX(HIRED,1976.75)
)*ord(WRKHRS>=1000.0)*1.0; RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=
(AGE>=62.0)&(ASY51>=20.0); RAS4:=(AGE>=50.0)&(ASY51>=20.0);
RAS5:=(AGE>=55.0)&(ASY51>=20.0); RAS10:=ASY51>=15.0; RAS13:=
ASY51>=20.0; RAS14:=(AGE>=50.0)&(ASY51>=20.0); LNG5:=BIRTHD+62.0;
BGN6:=MAX(BIRTHD+62.0,QUITD); BEG7:=MAX(NRD,QUITD); BEG14:=MAX(
BIRTHD+50.0,QUITD); NR1:=30.0*(ASY1+ASY2); NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=MIN(30.0*(
ASY1+ASY2),390.0); ER1Q:=ord(RAS4)*ER1; ER2:=MIN(30.0*(ASY1+ASY2)
,525.0); ER2Q:=ord(RAS5)*AA(QUITD,LNG5)*ER2; ER3:=MIN(30.0*(ASY1+
ASY2),600.0); ER3Q:=ord(RAS5)*AA(QUITD,LNG5)*ER3; ERT:=MAX(ER1,
ER2+ER3); ERQ:=MAX(ER1Q,ER2Q+ER3Q)*12.0; VD1:=NR1; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=MIN(NR1,750.0); DR1Q:=
ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ER1*RED13;
DS1Q:=ord(RAS4)*DS1; DS2:=150.0; DS2Q:=ord(RAS13)*AA(BEG14,0.0)*
DS2; DS3:=150.0; DS3Q:=ord(RAS14)*AA(BEG14,0.0)*DS3; DS4:=0.5*
ER2*RED13; DS4Q:=ord(RAS5)*AA(QUITD,LNG5)*DS4; DS5:=0.5*ER3*
RED13; DS5Q:=ord(RAS5)*AA(BGN6,0.0)*DS5; DST:=MAX(DS2,DS3,MAX(
DS1,DS4+DS5)); DSQ:=MAX(DS2Q,DS3Q,MAX(DS1Q,DS4Q+DS5Q))*12.0;
PRAG:=0.0; VEDB:=VOPT(ord(ASY51>=10.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS5Q,DS5,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG14,BEG7,BGN6,LNG5,ASY51,RED13,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0189s131; begin CNQ:=0.0; ASY1:=NNMIN(40.0,MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY4:=(QUITD-HIRED)
*1.0; PSY4:=MIN(40.0,NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+25.0)));
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/
12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FAP4:=
WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=
SUMI(PCMAN7,97.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,BENIFITD); SS4:=
SS(2.0,BENIFITD); RED4:=AR(65.0-AGE); RED5:=NN(1.0-0.02*o(60.0,
AGE)); RED13:=JSRED; RED14:=NN(1.0-0.005*o(65.0,AGE)); RAS1:=
AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=10.0); RAS5:=(AGE>=55.0)&(
ASY4>=20.0); RAS6:=(AGE>=60.0)&(ASY4>=20.0); RAS10:=ASY4>=10.0;
ROT4:=AGE<62.0; LNG4:=BIRTHD+62.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.02*
u(FAP1,7000.0)+0.01667*o(FAP1,7000.0)*u(ASY1,30.0)-0.01667*SS1*
ASY1+0.005*FAP1*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*ASY1/PSY4*RED4; ER1Q:=
ord(RAS4)*ER1; ER2:=NRT*(AGE+ASY1)/100.0*RED5; ER2Q:=ord(RAS5)*
ER2; ER3:=0.2*FAP4; ER3Q:=ord(RAS6&ROT4)*AA(QUITD,LNG4)*ER3;
ER4:=0.8*SS4; ER4Q:=ord(RAS6&ROT4)*AA(QUITD,LNG4)*ER4; ERT:=MAX(
ER1,ER2+MIN(ER3,ER4)); ERQ:=MAX(ER1Q,ER2Q+MIN(ER3Q,ER4Q)); VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ERT;
DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=
0.5*ERT*RED13*RED14; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG10,BEG7,LNG4,RED14,RED13,RED5,RED4,SS4,SS1,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP4,FAP1,SDFAP1,FDFAP1,PSY4,ASY4,ASY1,CNQ)
<0 then negative end;

procedure c0190s132; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0,1957.0)-MAX(HIRED+29.0,1946.75))*ord(WRKHRS>=12.0)*
1.0; ASY2:=NNMIN(30.0,MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1982.0))*
ord(WRKHRS>=12.0)*1.0; ASY3:=NNMIN(30.0,MIN(QUITD,BIRTHD+65.0,
1967.0)-MAX(HIRED,1957.0))*ord(WRKHRS>=12.0)*1.0; ASY4:=NNMIN(
30.0,MIN(QUITD,BIRTHD+65.0,1982.0)-MAX(HIRED,1967.0))*ord(
WRKHRS>=12.0)*1.0; PSY4:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,
BIRTHD+65.0,1957.0); FAP1:=ord(FDFAP1>HIRED)*WAGE(FDFAP1)/12.0;
FDFAP2:=MIN(QUITD,BIRTHD+65.0,1967.0); SDFAP2:=MAX(HIRED,1957.0);
FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2)/12.0; FDFAP3:=
MIN(QUITD,BIRTHD+65.0,1982.0); SDFAP3:=MAX(HIRED,1967.0); FAP3:=
ord(FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3)/12.0; FDFAP4:=MIN(
QUITD,BIRTHD+65.0,1982.0); SDFAP4:=MAX(HIRED,1981.0); FAP4:=ord(
FDFAP4>SDFAP4)*WAGE(FDFAP4)/12.0; FDFAP5:=MIN(QUITD,BIRTHD+65.0);
SDFAP5:=MAX(HIRED,FDFAP5-60.0/12.0,1982.0); FAP5:=ord(
FDFAP5>SDFAP5)*AVG(WAGE,SDFAP5,FDFAP5)/12.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,
FDMAN7); SDVOL7:=HIRED; FDVOL7:=QUITD; PCVOL7:=MAX(VOL1NAR*WAGE(
SURVEYD),MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,FDVOL7); SS1:=SS(1.0,
MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=1.0-(0.06*a(AGE,60.0,55.0)
+0.03*a(AGE,65.0,60.0)); RED7:=1.0-(0.0333*a(AGE,60.0,55.0)+
0.0667*a(AGE,65.0,60.0)); RED13:=NN(1.0-0.06*o(65.0,AGE)); RAS1:=
AGE>=65.0; RAS4:=AGE>=55.0; ROT2:=(PARTD<1982.0)&(1982.0<=QUITD);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.011*u(FAP1,350.0)
+0.0137*o(FAP1,350.0))*ASY1; NR1Q:=ord(RAS1&ROT2)*NR1; NR2:=(
0.011*u(FAP2,350.0)+0.022*o(FAP2,350.0))*ASY3; NR2Q:=ord(RAS1&
ROT2)*NR2; NR3:=(0.0135*u(FAP3,550.0)+0.0225*o(FAP3,550.0))*ASY4;
NR3Q:=ord(RAS1&ROT2)*NR3; NR4:=(0.0135*u(FAP4,550.0)+0.0225*o(
FAP4,550.0))*ASY2; NR4Q:=ord(RAS1&ROT2)*NR4; NR5:=(0.5*FAP5-0.65*
SS1)*ASY2/30.0; NR5Q:=ord(RAS1)*NR5; NRT:=MAX(NR1+NR2+NR3+NR4,
NR5); NRQ:=MAX(NR1Q+NR2Q+NR3Q+NR4Q,NR5Q)*12.0; LRQ:=NRQ; MRAGE:=
70.0; ER1:=NR1; ER1Q:=ord(RAS4&ROT2)*ER1; ER2:=NR2; ER2Q:=ord(
RAS4&ROT2)*ER2; ER3:=NR3; ER3Q:=ord(RAS4&ROT2)*ER3; ER4:=NR4;
ER4Q:=ord(RAS4&ROT2)*ER4; ER5:=MAX((0.5*FAP5-0.65*SS1*ASY2/PSY4)*
ASY2/30.0,ER1+ER2+ER3+ER4)*RED4; ER5Q:=ord(RAS4)*ER5; ERT:=ER5;
ERQ:=ER5Q*12.0; VD1:=(0.5*FAP5-0.65*SS1*ASY2/PSY4)*ASY2/30.0;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER1+ER2+ER3+ER4; VD2Q:=ord(ROT2)*AA(
BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2)*RED7; VDQ:=MAX(VD1Q,VD2Q)*RED7*
12.0; DRQ:=0.0; DS1:=0.5*NRT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=TAR(MIN(0.95*FAR(ACPIG,6.0/12.0),0.06)
,6.0/12.0); VEDB:=VOPT(MAX(ord(ASY2>=1.0)*0.1,ord(ASY2>=5.0)*0.5,
ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER5Q,ER5,
ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,
NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED7,RED4,SS1,
VOL7,PCVOL7,FDVOL7,SDVOL7,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP5,SDFAP5,
FDFAP5,FAP4,SDFAP4,FDFAP4,FAP3, SDFAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,
FAP1,FDFAP1,PSY4,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0191s133; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1975.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY4:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,BIRTHD+22.0))*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+65.0,1975.0); SDFAP1:=MAX(HIRED,1970.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+
65.0); SDFAP2:=MAX(HIRED,1975.0); FAP2:=ord(FDFAP2>SDFAP2)*SUM(
WAGE,SDFAP2,FDFAP2); RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(
AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)
&(ASY4>=10.0); RAS13:=(AGE>=55.0)&(ASY4>=10.0); BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=0.0075*FAP1*ASY1+0.01*FAP2; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*
ERT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,FAP2,SDFAP2,FDFAP2,
FAP1,SDFAP1,FDFAP1,ASY4,ASY1,CNQ) <0 then negative end;

procedure c0192s128; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); PSY4:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SSBASE(
BENIFITD); RED7:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY1>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=0.3*o(FAP1,SS1)*u(
ASY1,15.0)/15.0; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=
NRQ; MRAGE:=70.0; ER1:=0.3*o(FAP1,SS1)*u(PSY4,15.0)/15.0*ASY1/
PSY4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=AA(
BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*0.5; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(
ord(ASY1>=5.0)*0.5,ord(ASY1>=7.0)*0.7,ord((QUITAGE>=65.0)!(
ASY1>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG10,BEG7,RED13,RED7,SS1,FAP1,SDFAP1,FDFAP1,PSY4,ASY1,
CNQ) <0 then negative end;

procedure c0193s107; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1974.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1974.0))*1.0; FDFAP1:=MIN(QUITD,1974.0); SDFAP1:=MAX(HIRED,
1973.0); FAP1:=ord(FDFAP1>SDFAP1)*WAGE(FDFAP1); SDFAP2:=MAX(
HIRED,1974.0); FAP2:=ord(QUITD>SDFAP2)*SUM(WAGE,SDFAP2,QUITD);
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=AR(65.0-AGE);
RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=
55.0)&(ASY51>=10.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=0.01125*FAP1*ASY1+0.0175*FAP2-0.01*SS1*ASY2;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT;
DR1Q:=ord(ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*
RED13; DS1Q:=ord(RAS1)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY51,RED13,RED4,SS1,
FAP2,SDFAP2,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0194s30; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/12.0);
ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+55.0,
1976.0))*NNMIN(1.0,WRKHRS/2000.0); ASY3:=NN(MIN(QUITD,BIRTHD+
65.0)-(HIRED+2.0))*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+65.0,1976.0)-
HIRED)*1.0; ASY5:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1976.0))*
NNMIN(1.0,WRKHRS/1000.0); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SDVOL7:=HIRED;
FDVOL7:=QUITD; PCVOL7:=MAX(VOL1NAR*WAGE(SURVEYD),MIN(VOL2NAR*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL7:=SUMI(
PCVOL7,2.0,0.0,SDVOL7,FDVOL7); RED4:=AR(65.0-AGE); ASY55:=ASY4+
ASY5; RED5:=NN(1.0-0.03*o(85.0,AGE+ASY55)); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY55>=10.0); RAS5:=(AGE>=55.0)&(
ASY55>=25.0); RAS10:=ASY55>=10.0; RAS11:=(AGE>=55.0)&(ASY55>=
10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=22.5*u(ASY1+
ASY2,30.0)+10.0*ASY3; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*
12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=NRT*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q)*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=NRT*RED4; DR1Q:=ord(RAS10)*DR1; DR2:=ERT;
DR2Q:=ord(RAS11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*
12.0; DS1:=0.5*ER1*RED13; DS1Q:=ord(RAS4)*DS1; DS2:=0.5*ER2*
RED13; DS2Q:=ord(RAS5)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,
DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY55>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED5,ASY55,RED4,VOL7,
PCVOL7,FDVOL7,SDVOL7,MAN7,PCMAN7,FDMAN7,SDMAN7,ASY5,ASY4,ASY3,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0195s167; begin CNQ:=0.0; SDASY1:=MAX(HIRED+3.0,
BIRTHD+18.0); ASY1:=NN(MIN(QUITD,MAX(BIRTHD+65.0,SDASY1+33.0),
1974.0)-SDASY1)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+
3.0,BIRTHD+18.0,1974.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0);
SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; RAS1:=AGE>=65.0; ROT10:=QSSDABLE; LNG13:=
1.0; BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.01*u(FAP1,500.0)+
0.0165*o(FAP1,500.0))*ASY1+ASY2; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ERQ:=0.0; VD1:=NRT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT;
DR1Q:=ord(ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*NRT;
DS1Q:=AA(QUITD,LNG13+QUITD)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=
0.0; ASY51:=ASY1+ASY2; VEDB:=VOPT(MAX(ord(ASY51>=5.0)*0.25,ord(
ASY51>=10.0)*0.75,ord(ASY51>=15.0)*1.0)); if min( VEDB,ASY51,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,LNG13,FAP1,SDFAP1,FDFAP1,ASY2,
ASY1,SDASY1,CNQ) <0 then negative end;

procedure c0196s210; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; SDFAP1:=MAX(HIRED,FDFAP1-5.0,1975.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,MAX(BENIFITD,
BIRTHD+65.0)); RED4:=NN(1.0-0.0005*o(65.0,AGE)); RAS1:=(AGE>=
65.0)&(ASY1>=30.0); RAS2:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=
10.0); RAS10:=AGE>=65.0; ROT10:=QCODABLE; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=0.5*FAP1-
0.5*SS1; NR1Q:=ord(RAS1)*NR1; NR2:=0.01*FAP1*ASY1; NR2Q:=ord(
RAS1)*NR2; NR3:=(0.5*FAP1-0.5*SS1)*u(ASY1,30.0)/30.0; NR3Q:=ord(
RAS2)*NR3; NRT:=MAX(NR1,NR2,NR3,OTHCONT(209.0)); NRQ:=MAX(NR1Q,
NR2Q,NR3Q,OTHCONT(209.0)); LRQ:=NRQ; MRAGE:=70.0; ER1:=NR3*RED4;
ER1Q:=ord(RAS4)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4)*ER2; ERT:=
MAX(ER1,ER2,OTHCONT(209.0)); ERQ:=MAX(ER1Q,ER2Q,OTHCONT(209.0));
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NR1;
DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*DR1; DRT:=MAX(DR1,OTHCONT(
209.0)); DRQ:=MAX(DR1Q,OTHCONT(209.0)); DS1:=0.5*MAX(ER1,ER2);
DS1Q:=ord(RAS4)*DS1; DST:=MAX(DS1,OTHCONT(209.0)); DSQ:=MAX(DS1Q,
OTHCONT(209.0)); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED4,SS1,FAP1,
SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0198s274; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/1000.0); RED4:=NN(1.0-0.05*o(65.0,
AGE)); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE+ASY1>=90.0); RAS4:=(
AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=15.0; DAT1:=1982.5<=QUITD;
ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
14.5*ASY1; NR1Q:=ord(RAS1&DAT1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0;
LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4&DAT1)*ER1;
ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=ord(DAT1)*AA(BEG7,0.0)*
VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10&DAT1&
ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*0.5; DS1Q:=
ord(RAS4&DAT1)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,ASY1,CNQ) <0 then
negative end;

procedure c0199s275; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/1800.0); ASY2:=(QUITD-HIRED)*
NNMIN(1.0,WRKHRS/1000.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-5.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=SSBASE(
BENIFITD); RED4:=NN(1.0-0.04*o(65.0,AGE)); RAS1:=(AGE>=65.0)!(
AGE>=62.0)&(ASY2>=30.0); RAS4:=AGE>=55.0; RAS13:=(AGE>=55.0)!(
ASY1>=25.0); ROT10:=QCODABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.01*u(FAP1,SS1)+
0.01667*o(FAP1,SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.01*FAP1*
ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=17.0*ASY1; NR3Q:=ord(RAS1)*NR3;
NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q); LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=
DR1Q; DS1:=0.5*ERT; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=50.0)!(ASY2>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,
NR1,BEG10,BEG7,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0200s276; begin CNQ:=0.0; ASY1:=NNMIN(43.0,MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+2.0,BIRTHD+19.0))*1.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,
FDMAN7); RED4:=NN(1.0-0.03*o(65.0,AGE)); RED5:=NN(1.0-0.06*o(
60.0,AGE)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)&(
ASY1>=10.0); RAS5:=(AGE>=55.0)&(ASY1>=10.0); RAS13:=(AGE>=45.0)&(
ASY1>=15.0)!(AGE>=55.0)&(ASY1>=10.0); ROT4:=QAPPROVL; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=6.0*ASY1; NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=65.0; ER1:=NR1*
RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR1*RED5*RED4; ER2Q:=ord(RAS5&
ROT4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=ER1;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(ROT4)*AA(BEG7,0.0)*
VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DRQ:=0.0; DS1:=
ER1; DS1Q:=ord(RAS4)*DS1; DS2:=ER2; DS2Q:=ord(RAS5)*DS2; DS3:=
VD1*RED13; DS3Q:=ord(RAS13)*DS3; DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(
DS1Q,DS2Q,DS3Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=45.0)!(
ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,
DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED5,RED4,MAN7,PCMAN7,
FDMAN7,SDMAN7,ASY1,CNQ) <0 then negative end;

procedure c0201s278; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SSBASE(BENIFITD);
RED4:=1.0-(0.04*a(AGE,60.0,55.0)+0.03*a(AGE,65.0,60.0)); RED5:=
NN(1.0-0.04*o(60.0,AGE)); RED7:=NN(1.0-0.06*o(65.0,AGE)); RED10:=
OTHERB; RED13:=JSRED; RED14:=NN(1.0-0.04*o(55.0,AGE)); RAS1:=(
AGE>=65.0)!(AGE>=60.0)&(ASY2>=25.0); RAS4:=(AGE>=55.0)&(ASY2>=
10.0); RAS5:=(AGE>=55.0)&(ASY2>=25.0); RAS10:=ASY2>=5.0; RAS13:=
ASY2>=10.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); BEG11:=ANYTIME(0.0,BIRTHD+
65.0); NR1:=(0.0125*u(FAP1,SS1)+0.015*o(FAP1,SS1))*ASY1; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5; ER2Q:=ord(RAS5)*
ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=NRT*RED7;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT-RED10;
DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*DR1; DR2:=ERT; DR2Q:=ord(
RAS10&ROT10)*AA(BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,
DR2Q); DS1:=ERT*RED13*RED14*0.5; DS1Q:=ord(RAS13)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG11,BEG10,BEG7,RED14,RED13,RED10,RED7,RED5,RED4,
SS1,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0202s279; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/12.0; RED4:=
NN(1.0-0.025*o(85.0,AGE+ASY1)); RED5:=NN(1.0-0.025*o(65.0,AGE));
RED7:=1.0-(0.0041*a(AGE,59.0,55.0)+0.0597*a(AGE,62.0,59.0)+
0.0085*a(AGE,65.0,62.0)); RAS1:=(AGE>=65.0)&(ASY1>=10.0)!(AGE+
ASY1>=85.0)&(AGE>=55.0); RAS2:=(AGE>=65.0)&(ASY1>=5.0); RAS3:=(
AGE>=65.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=
ASY1>=10.0; RAS13:=(ASY1>=15.0)!(AGE>=55.0)&(ASY1>=10.0); ROT10:=
QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.015*
FAP1*ASY1-0.015*SS1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=80.0; NR2Q:=
ord(RAS2)*NR2; NR3:=8.0*ASY1; NR3Q:=ord(RAS3)*NR3; NRT:=MAX(NR1,
NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q)*12.0; LRQ:=NRQ; MRAGE:=65.0;
ER1:=NR1*MAX(RED4,RED5); ER1Q:=ord(RAS4)*ER1; ER2:=8.0*ASY1*MAX(
RED4,RED5); ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q)*12.0; VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=8.0*
ASY1*RED7; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q)*12.0; DR1:=MAX(NR1,NR3); DR1Q:=ord(RAS10&ROT10)*DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.0075*FAP1*ASY1; DS1Q:=ord(RAS13)
*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED7,RED5,RED4,SS1,FAP1,
SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0203s280; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/1725.0); ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/1000.0); RED4:=1.0-(0.0575*a(AGE,
57.0,55.0)+0.057*a(AGE,59.0,57.0)+0.064*a(AGE,62.0,59.0)); RED7:=
1.0-(0.0378*a(AGE,59.0,55.0)+0.0541*a(AGE,62.0,59.0)+0.0765*a(
AGE,65.0,62.0)); RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY2>=10.0);
RAS4:=(AGE>=55.0)&(ASY2>=10.0); RAS5:=(AGE>=55.0)&(ASY1>=30.0);
RAS10:=ASY2>=10.0; RAS13:=(AGE>=55.0)&(ASY2>=10.0); ROT10:=
QSSDABLE; LNG4:=BIRTHD+SSAGE(2.0); BGN5:=BIRTHD+SSAGE(2.0);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=ASY1*12.0; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0;
ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR1; ER2Q:=ord(RAS5)*AA(
BGN5,0.0)*ER2; ER3:=600.0; ER3Q:=ord(RAS5)*AA(QUITD,LNG4)*ER3;
ERT:=MAX(ER1,ER2+ER3); ERQ:=MAX(ER1Q,ER2Q+ER3Q)*12.0; VD1:=NR1*
RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NR1;
DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=
0.5225*ER1; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG7,BGN5,LNG4,RED7,RED4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0204s281; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/1000.0); FDFAP1:=MIN(QUITD,
BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1)/
12.0; RED4:=1.0-(0.04*a(AGE,60.0,55.0)+0.03*a(AGE,62.0,60.0));
RED7:=1.0-(0.0378*a(AGE,59.0,55.0)+0.0541*a(AGE,62.0,59.0)+
0.0765*a(AGE,65.0,62.0)); RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=
10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS5:=(AGE>=60.0)&(ASY1>=
20.0); RAS10:=ASY1>=10.0; RAS13:=(AGE>=55.0)&(ASY1>=10.0);
RAS14:=ASY1>=15.0; ROT10:=QSSDABLE; LNG4:=BIRTHD+SSAGE(2.0);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.016*u(FAP1,600.0)
+0.02*o(FAP1,600.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=12.0*ASY1;
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=65.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
NR2*RED4; ER2Q:=ord(RAS4)*ER2; ER3:=325.0; ER3Q:=ord(RAS5)*AA(
QUITD,LNG4)*ER3; ERT:=MAX(ER1,ER2)+ER3; ERQ:=(MAX(ER1Q,ER2Q)+
ER3Q)*12.0; VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=MAX(NR1,NR2); DR1Q:=ord(RAS10&ROT10)*DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*MAX(ER1,ER2); DS1Q:=ord(RAS13)
*DS1; DS2:=0.25*MAX(NR1,NR2); DS2Q:=ord(RAS14)*DS2; DST:=MAX(DS1,
DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG7,LNG4,RED7,RED4,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0205s283; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1951.0)-
HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1951.0))*NNMIN(1.0,WRKHRS/
1700.0); ASY3:=NN(MIN(QUITD,BIRTHD+68.0,1951.0)-HIRED)*1.0;
ASY4:=NN(MIN(QUITD,BIRTHD+68.0)-MAX(HIRED+1.0,BIRTHD+25.0,
1951.0))*NNMIN(1.0,WRKHRS/1700.0); FAP4:=WAGE(QUITD); RED4:=1.0-(
0.056*a(AGE,60.0,55.0)+0.067*a(AGE,62.0,60.0)); RED5:=1.0-(0.066*
a(AGE,61.0,60.0)+0.067*a(AGE,62.0,61.0)); ASY51:=ASY1+ASY2;
RED6:=13.33*o(30.0,ASY51); RED7:=NN(1.0-0.0667*o(65.0,AGE));
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE+ASY51>=85.0)&(AGE>=
55.0); RAS5:=(AGE>=60.0)&(ASY51>=10.0); RAS6:=(AGE>=60.0)&(
ASY51>=10.0)!(AGE+ASY51>=85.0)&(AGE>=55.0); RAS10:=ASY1>=10.0;
RAS13:=AGE>=55.0; ROT7:=(AGE>55.0)&(AGE+ASY1+ASY2>=85.0); ROT10:=
^QSSBENIF; LNG4:=BIRTHD+65.0; LNG10:=QUITD; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=8.5*(ASY3+ASY4); NR1Q:=ord(RAS1)*NR1;
NR2:=7.2; NR2Q:=ord(RAS1)*NR2; NRT:=NR1+NR2; NRQ:=(NR1Q+NR2Q)*
12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=NRT*RED5; ER2Q:=ord(RAS5)*ER2; ER3:=NN(ER1*60.0/65.0-u(AGE,
64.0)); ER3Q:=ord(RAS4)*AA(QUITD,LNG4)*ER3; ER4:=NN(400.0-ER2-
RED6); ER4Q:=ord(RAS6)*AA(QUITD,LNG4)*ER4; ER5:=0.7*FAP4; ER5Q:=
ord(RAS6)*ER5; ERT:=MIN(ER5,MAX(ER1,ER2)+MAX(ER3,ER4)); ERQ:=MIN(
ER5Q,MAX(ER1Q,ER2Q)+MAX(ER3Q,ER4Q))*12.0; VD1:=NRT*RED7; VD1Q:=
ord(ROT7)*AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT;
DR1Q:=ord(RAS10)*DR1; DR2:=ER3; DR2Q:=ord(RAS10&ROT10)*AA(QUITD,
LNG10)*DR2; DR3:=ER4; DR3Q:=ord(RAS10&ROT10)*AA(QUITD,LNG10)*DR3;
DRT:=DR1+MAX(DR2,DR3); DRQ:=(DR1Q+MAX(DR2Q,DR3Q))*12.0; DS1:=MAX(
ER1,ER2)*RED13*0.55; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*
12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY51>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,
ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,
LNG10,LNG4,RED13,RED7,RED6,ASY51,RED5,RED4,FAP4,ASY4,ASY3,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0206s327; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1)
/12.0; SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; SS4:=SS(2.0,
MAX(BENIFITD,BIRTHD+62.0))/12.0; RED4:=NN(1.0-0.03*o(65.0,AGE));
RED7:=1.0-(0.04*a(AGE,62.0,55.0)+0.0667*a(AGE,65.0,62.0));
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0);
RAS10:=ASY1>=10.0; LNG4:=BIRTHD+62.0; BGN5:=MAX(BIRTHD+62.0,
QUITD); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.01167*u(
FAP1,400.0)+0.01667*o(FAP1,400.0))*u(ASY1,35.0); NR1Q:=ord(RAS1)*
NR1; NR2:=0.02*FAP1*u(ASY1,30.0); NR2Q:=ord(RAS1)*NR2; NR3:=
0.01667*SS1*ASY1; NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1,NR2-NR3);
NRQ:=MAX(NR1Q,NR2Q-NR3Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR2*
RED4; ER1Q:=ord(RAS4)*AA(QUITD,LNG4)*ER1; ER2:=NR1*RED4; ER2Q:=
ord(RAS4)*AA(BGN5,0.0)*ER2; ER3:=NN(NR2*RED4-0.01667*SS4*ASY1);
ER3Q:=ord(RAS4)*AA(BGN5,0.0)*ER3; ERT:=ER1+MAX(ER2,ER3); ERQ:=(
ER1Q+MAX(ER2Q,ER3Q))*12.0; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=
DR1; DRQ:=DR1Q*12.0; DS1:=MAX(ER2,ER3)*RED13*0.5; DS1Q:=ord(RAS4)
*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(
ASYV>=5.0)*0.5,ord(ASYV>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASYV>=
10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,BGN5,LNG4,RED13,
RED7,RED4,SS4,SS1,FAP1,FDFAP1,ASY1,ASYV,CNQ) <0 then negative
end;

procedure c0207s330; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+21.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(15.0,MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+21.0))*NNMIN(1.0,WRKHRS/
1920.0); ASY4:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+21.0))*
NNMIN(1.0,WRKHRS/1920.0); PSY4:=MIN(15.0,NN(BIRTHD+65.0-MAX(
HIRED,BIRTHD+21.0))); PSY5:=NN(BIRTHD+65.0-MAX(HIRED,BIRTHD+21.0)
); FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SSBASE(
1971.0); RED4:=NN(1.0-0.0667*o(65.0,AGE)); RAS1:=AGE>=65.0;
RAS4:=AGE>=60.0; BEG7:=ANYTIME(BIRTHD+60.0,0.0); NR1:=(0.1*u(
FAP1,SS1)+0.25*o(FAP1,SS1))*ASY1/15.0; NR1Q:=ord(RAS1)*NR1; NRT:=
NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=(0.1*u(FAP1,SS1)+
0.25*o(FAP1,SS1))*PSY4/15.0*ASY4/PSY5*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*ERT; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=60.0)!(ASYV>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED4,SS1,FAP1,
SDFAP1,FDFAP1,PSY5,PSY4,ASY4,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0208s333; begin CNQ:=0.0; ASY4:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(
FDFAP1>HIRED)*SUM(WAGE,HIRED,FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=0.02; MAN7:=SUMI(PCMAN7,4.0,0.0,SDMAN7,FDMAN7);
SDMAN8:=HIRED; FDMAN8:=QUITD; PCMAN8:=0.04; MAN8:=SUMI(PCMAN8,
5.0,0.0,SDMAN8,FDMAN8); SS1:=SUM(SSBASE,HIRED,QUITD); RED4:=AR(
65.0-AGE); RED13:=COSTRED; RED14:=JSRED; RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY4>=15.0); ROT7:=ASY4>=15.0; BEG7:=MAX(NRD,QUITD);
BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.01*u(FAP1,SS1)+
0.015*o(FAP1,SS1); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ERT;
VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q); DRQ:=0.0; DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG8,BEG7,RED14,RED13,RED4,SS1,MAN8,PCMAN8,FDMAN8,
SDMAN8,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY4,CNQ) <0 then
negative end;

procedure c0209s395; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1); SS1:=SSBASE(BENIFITD); RED4:=NN(1.0-
0.0667*o(60.0,AGE)); RED13:=JSRED; RED14:=COSTRED; RAS1:=(AGE>=
65.0)!(AGE>=60.0)&(ASY1>=5.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0);
RAS13:=(AGE>=55.0)&(ASY1>=5.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=(0.0125*u(FAP1,SS1)+0.02*o(FAP1,SS1))*u(ASY1,30.0)+
0.005*FAP1*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=
NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*ERT*RED14*RED13; DS1Q:=ord(RAS13)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=
10.0)*0.5,ord(ASY1>=12.0)*0.7,ord((QUITAGE>=65.0)!(ASY1>=15.0))*
1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED14,RED13,
RED4,SS1,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0210s397; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1800.0); ASY4:=(QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0;
PSY4:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-36.0/12.0),FDFAP1)/12.0; RED4:=1.0-(0.0333*a(AGE,60.0,
55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY4>=15.0); RAS10:=ASY4>=10.0; BEG7:=ANYTIME(
BIRTHD+65.0,0.0); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
0.02*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=480.0; NR2Q:=ord(RAS1)*
NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=0.02*FAP1*PSY4*ASY1/PSY4*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1;
VD2:=ERT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q)*12.0; DR1:=0.5*FAP1; DR1Q:=ord(RAS10)*DR1; DR2:=0.02*
FAP1*PSY4*ASY1/PSY4; DR2Q:=ord(RAS10)*DR2; DRT:=MIN(DR1,DR2);
DRQ:=MIN(DR1Q,DR2Q)*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*
DS1; DS2:=0.5*NRT*RED13; DS2Q:=ord(RAS1)*DS2; DST:=MAX(DS1,DS2);
DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,
RED13,RED4,FAP1,FDFAP1,PSY4,ASY4,ASY1,CNQ) <0 then negative end;

procedure c0211s399; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,1979.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0,
1979.0)-(HIRED+1.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0);
SDFAP1:=MAX(HIRED,1979.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0,1979.0); SDFAP2:=
MAX(HIRED,1978.0); FAP2:=ord(FDFAP2>SDFAP2)*WAGE(FDFAP2); RED4:=
NN(1.0-0.06*o(62.0,AGE)); RED13:=JSRED; RED14:=COSTRED; ASY51:=
ASY1+ASY2; RAS1:=(AGE>=62.0)!(AGE>=60.0)&(ASY51>=30.0); RAS4:=
AGE>=55.0; ROT10:=QCODABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.0125*u(FAP1,7800.0)
+0.02*o(FAP1,7800.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.0125*u(
FAP2,7800.0)+0.02*o(FAP2,7800.0))*ASY2; NR2Q:=ord(RAS1)*NR2;
NRT:=NR1+NR2; NRQ:=NR1Q+NR2Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(ROT10)
*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*RED14*
0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=62.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,ASY51,RED14,
RED13,RED4,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0212s400; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1967.0)-MAX(HIRED+3.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*
1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1976.0)-MAX(HIRED+1.0,BIRTHD+
25.0,1967.0))*ord(WRKHRS>=1000.0)*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1976.0))*ord(WRKHRS>=1000.0)*
1.0; ASY4:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+22.0))*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,1967.0); FAP1:=ord(
FDFAP1>HIRED)*WAGE(FDFAP1); FDFAP2:=MIN(QUITD,1976.0); SDFAP2:=
MAX(HIRED,1975.0); FAP2:=ord(FDFAP2>SDFAP2)*WAGE(FDFAP2);
FDFAP3:=QUITD; SDFAP3:=MAX(HIRED,FDFAP3-10.0,1976.0); FAP3:=ord(
FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3); SS1:=SSBASE(BENIFITD);
RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0));
RED13:=JSRED; RED14:=COSTRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&
(ASY4>=15.0); ROT7:=ASY4>=15.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG8:=MAX(NRD,QUITD); NR1:=(0.005*u(FAP1,4800.0)+0.01*o(
FAP1,4800.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.0075*u(FAP2,
4800.0)+0.015*o(FAP2,4800.0))*ASY2; NR2Q:=ord(RAS1)*NR2; NR3:=(
0.0075*u(FAP3,SS1)+0.015*o(FAP3,SS1))*ASY3; NR3Q:=ord(RAS1)*NR3;
NR4:=(0.0075*u(FAP3,4800.0)+0.015*o(FAP3,4800.0))*ASY2; NR4Q:=
ord(RAS1)*NR4; NRT:=NR1+MIN(NR2,NR4)+NR3; NRQ:=NR1Q+MIN(NR2Q,
NR4Q)+NR3Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)
*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=ERT*RED14*RED13*0.5; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,RED14,
RED13,RED4,SS1,FAP3,SDFAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,
FDFAP1,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0213s394; begin CNQ:=0.0; ASY1:=MIN(40.0,QUITD-HIRED)*
NNMIN(1.0,WRKHRS/1875.0); PSY7:=MIN(40.0,BIRTHD+65.0-HIRED);
FDFAP1:=MIN(QUITD,QUITD-ASY1+40.0); FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); SS1:=SS(1.0,BENIFITD); SS2:=SS(2.0,BENIFITD)
;SS7:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=1.0-(0.05*a(AGE,
60.0,55.0)+0.025*a(AGE,62.0,60.0)); RED7:=1.0-(0.033*a(AGE,60.0,
55.0)+0.067*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=(AGE>=65.0)&(
ASY1>=10.0); RAS2:=(AGE>=62.0)&(ASY1>=10.0); RAS4:=(AGE>=60.0)&(
ASY1>=10.0)!(AGE>=55.0)&(ASY1>=20.0); RAS13:=(ASY1>=20.0)!(AGE>=
50.0)&(ASY1>=10.0); ROT2:=(AGE>=62.0)&(AGE<65.0); LNG4:=BIRTHD+
SSAGE(2.0); BGN5:=BIRTHD+SSAGE(2.0); BEG7:=MAX(ERD,QUITD); NR1:=
0.02*FAP1*u(ASY1,25.0)+0.00667*FAP1*o(ASY1,25.0)-0.0006*FAP1*u(
ASY1,25.0)/25.0/100.0*SS1; NR1Q:=ord(RAS1)*NR1; NR2:=0.02*FAP1*u(
ASY1,25.0)+0.00667*FAP1*o(ASY1,25.0)-0.0006*FAP1*u(ASY1,25.0)/
25.0/100.0*SS2; NR2Q:=ord(RAS2&ROT2)*NR2; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=(0.02*FAP1*u(
ASY1,25.0)+0.00667*FAP1*o(ASY1,25.0))*RED4; ER1Q:=ord(RAS4)*AA(
QUITD,LNG4)*ER1; ER2:=NR2; ER2Q:=ord(RAS4)*AA(BGN5,0.0)*ER2;
ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=NN(0.02*FAP1*u(PSY7,
25.0)+0.00667*FAP1*o(PSY7,25.0)-0.0006*FAP1*u(ASY1,25.0)/25.0/
100.0*SS7)*ASY1/PSY7*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*(0.02*FAP1*u(ASY1,25.0)+0.00667*
FAP1*o(ASY1,25.0))*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=MIN(0.95*ACPIG,0.03); VEDB:=VOPT(ord(ASY1>=10.0)*1.0)
;if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,BGN5,
LNG4,RED13,RED7,RED4,SS7,SS2,SS1,FAP1,FDFAP1,PSY7,ASY1,CNQ) <0
then negative end;

procedure c0214s382; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*1.0;
ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0;
ASY10:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,97.0,0.0,SDMAN7,FDMAN7);
SS1:=AVG(SSBASE,HIRED,QUITD); RED4:=NN(1.0-0.048*o(65.0,AGE));
RED5:=NN(1.0-0.048*o(62.0,AGE)); RED6:=NN(1.0-0.0005*o(30.0,ASY1)
); RED13:=COSTRED; RED14:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(
ASY1>=30.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY10>=10.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,
QUITD); NR1:=(0.011*u(FAP1,SS1)+0.016*o(FAP1,SS1))*ASY1; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=
NRT-MIN(RED4,MAX(RED5,RED6)); ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT; DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=
DR1Q; DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASYV>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,
BEG7,RED14,RED13,RED6,RED5,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP1,SDFAP1,FDFAP1,ASY10,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0215s383; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; PSY4:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SSBASE(BENIFITD);
RED4:=1.0-(0.05*a(AGE,59.0,55.0)+0.1*a(AGE,62.0,59.0)); RED5:=
1.0-(0.03*a(AGE,60.0,55.0)+0.07*a(AGE,65.0,60.0)); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=
10.0; ROT4:=ASY1>=20.0; ROT5:=ASY1<20.0; ROT10:=QCODABLE; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(NRD,QUITD); NR1:=(
0.0125*u(FAP1,SS1)+0.02*o(FAP1,SS1))*u(ASY1,20.0)+(0.0075*u(
FAP1,SS1)+0.015*o(FAP1,SS1))*o(ASY1,20.0); NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*ASY1/PSY4*
RED4; ER1Q:=ord(RAS4&ROT4)*ER1; ER2:=NRT*ASY1/PSY4*RED5; ER2Q:=
ord(RAS4&ROT5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=
NRT*RED4; VD1Q:=ord(ROT4)*AA(BEG7,0.0)*VD1; VD2:=NRT*RED5; VD2Q:=
ord(ROT5)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,
VD2Q); DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*DR1; DRT:=
DR1; DRQ:=DR1Q; DS1:=0.5*ER1*RED13; DS1Q:=ord(RAS4&ROT4)*DS1;
DS2:=0.5*ER2*RED13; DS2Q:=ord(RAS4&ROT5)*DS2; DST:=MAX(DS1,DS2);
DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,RED13,RED5,RED4,
SS1,FAP1,SDFAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0216s387; begin CNQ:=0.0; ASY1:=NNMIN(16.0,MIN(QUITD,
BIRTHD+70.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=NNMIN(16.0,
MIN(QUITD,BIRTHD+70.0)-HIRED)*1.0; ASY3:=NNMIN(16.0,MIN(QUITD,
BIRTHD+70.0)-MAX(HIRED,BIRTHD+22.0))*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+70.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); RED4:=1.0-(0.076*a(AGE,
65.0,60.0)+0.066*a(AGE,70.0,65.0)); RED5:=AR(60.0-AGE); RED13:=
JSRED; RAS1:=AGE>=70.0; RAS4:=(AGE>=55.0)&(ASY2>=10.0); BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+70.0); BEG10:=ANYTIME(BIRTHD+55.0,
BIRTHD+70.0); BEG13:=MAX(BIRTHD+70.0,QUITD); NR1:=0.025*FAP1*
ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=AI(AGE,70.0,
999.0)*NRQ; MRAGE:=70.0; ER1:=NRT*RED5*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=ERT; DR1Q:=AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=
DR1Q; DS1:=NRT*RED13*0.5; DS1Q:=AA(BEG13,0.0)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY3>=1.0)*0.2,ord(
ASY3>=3.0)*0.6,ord((QUITAGE>=70.0)!(ASY3>=5.0))*1.0)); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG13,BEG10,BEG7,
RED13,RED5,RED4,FAP1,SDFAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0217s371; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1976.0)-(
HIRED+1.0))*1.0; ASY2:=NNMIN(40.0,QUITD-MAX(HIRED+1.0,1976.0))*
ord(WRKHRS>=1000.0)*1.0; PSY10:=NN(BIRTHD+65.0-MAX(HIRED+1.0,
1976.0)); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),
FDFAP1); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=NN(1.0-
0.042*o(65.0,AGE)); RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=ASY1+
ASY2; RAS4:=(AGE>=55.0)&(ASY51>=10.0); RAS10:=ASY51>=2.0; ROT4:=
QAPPROVL; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(NRD,
QUITD); NR1:=0.01*FAP1*ASY1+(0.6*FAP1-0.5*SS1)*ASY2/40.0; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=
NR1*RED4; ER1Q:=ord(RAS4&ROT4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=0.01*FAP1*
ASY1+(0.6*FAP1-0.5*SS1)*PSY10/40.0; DR1Q:=ord(RAS10)*AA(BEG10,
0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,ASY51,RED13,RED4,SS1,FAP1,
FDFAP1,PSY10,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0218s373; begin CNQ:=0.0; ASY1:=(MIN(QUITD,MAX(BIRTHD+
65.0,HIRED+5.0))-HIRED)*NNMIN(1.0,WRKHRS/1800.0); ASY2:=(QUITD-
HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,MAX(BIRTHD+
65.0,QUITD-ASY2+5.0)); FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),
FDFAP1)/12.0; SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=
NN(1.0-0.05*o(65.0,AGE)); RAS1:=(AGE>=65.0)&(ASY2>=5.0); RAS4:=(
AGE>=55.0)&(ASY2>=10.0); RAS10:=ASY2>=5.0; RAS13:=ASY2>=10.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,
QUITD); NR1:=(0.01625*FAP1-0.0125*SS1)*ASY1; NR1Q:=ord(RAS1)*NR1;
NR2:=5.0*ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(
NR1Q,NR2Q)*12.0; LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NR1;
DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DR2:=NR2; DR2Q:=ord(RAS10)*
AA(BEG10,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0;
DS1:=NRT*0.5; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG10,BEG7,RED4,SS1,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0219s377; begin CNQ:=0.0; ASY4:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+68.0); FAP1:=ord(
FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1); FDSS1:=MIN(QUITD,BIRTHD+
68.0); SS1:=ord(FDSS1>HIRED)*AVG(SSBASE,HIRED,FDSS1); RED4:=1.0-(
0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,62.0,60.0)); RED7:=1.0-(
0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED10:=AR(62.0-
AGE); RED11:=OTHERB; RED13:=JSRED; RAS1:=AGE>=62.0; RAS4:=(AGE>=
55.0)&(ASY4>=10.0); RAS10:=(AGE>=50.0)&(ASY4>=15.0); RAS13:=(
AGE>=50.0)&(ASY4>=20.0)!(AGE>=55.0)&(ASY4>=10.0); ROT10:=
QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.012*
FAP1+0.008*o(FAP1,SS1); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=MAX(NRT*RED10,NRT-RED11); DR1Q:=ord(RAS10&ROT10)*
DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*0.66667; DS1Q:=ord(
RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED11,RED10,RED7,RED4,SS1,
FDSS1,FAP1,FDFAP1,ASY4,CNQ) <0 then negative end;

procedure c0220s378; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1960.25)-
HIRED)*NNMIN(1.0,WRKHRS/1200.0); ASY2:=NN(QUITD-MAX(HIRED,
1960.25))*NNMIN(1.0,WRKHRS/870.0); ASY3:=MIN(30.0,QUITD-HIRED)*
NNMIN(1.0,WRKHRS/1400.0); RED4:=NN(1.0-0.06*o(65.0,AGE)); RED13:=
JSRED; RAS1:=(AGE>=65.0)&(ASY3>=30.0); ASY51:=ASY1+ASY2; RAS2:=(
AGE>=65.0)&(ASY51>=10.0); RAS4:=(AGE>=55.0)&(ASY51>=10.0);
RAS10:=ASY3>=10.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
42.5*ASY3; NR1Q:=ord(RAS1)*NR1; NR2:=NR1; NR2Q:=ord(RAS2)*NR2;
NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*
12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=
ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,
ASY51,RED13,RED4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0221s245; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/1800.0); FDFAP1:=MIN(
QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,BENIFITD);
RED4:=NN(1.0-0.06*o(65.0,AGE)); RED7:=AR(NRD-BENIFITD); RED13:=
COSTRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=62.0)&(ASY1>=10.0)!(AGE+
ASY1>=80.0); BEG7:=ANYTIME(BIRTHD+62.0,BIRTHD+65.0); BEG10:=
ANYTIME(BIRTHD+62.0,0.0); BEG11:=MAX(BIRTHD+80.0-ASY1,QUITD);
NR1:=(0.5*FAP1-0.5*SS1)*ASY1/30.0; NR1Q:=ord(RAS1)*NR1; NR2:=
10.0*ASY1*12.0; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(
NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ER1; DR1Q:=AA(BEG10,0.0)*DR1;
DR2:=ER1; DR2Q:=AA(BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(
DR1Q,DR2Q); DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,
NR2,NR1Q,NR1,BEG11,BEG10,BEG7,RED13,RED7,RED4,SS1,FAP1,SDFAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0222s246; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(
HIRED,FDFAP1-3.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+70.0); SDFAP2:=MAX(HIRED,
FDFAP2-2.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.05; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); SDMAN8:=HIRED; FDMAN8:=QUITD; PCMAN8:=
0.07; MAN8:=SUMI(PCMAN8,8.0,0.0,SDMAN8,FDMAN8); RED4:=NN(1.0-
0.001*o(65.0,AGE)); RAS1:=AGE>=65.0; RAS2:=(AGE>=65.0)&(ASY1>=
20.0); RAS4:=(AGE>=55.0)!(ASY1>=20.0); RAS10:=(AGE>=55.0)!(ASY1>=
15.0); RAS14:=ASY1>=2.0; ROT2:=PARTD<1975.0; ROT3:=1975.0<=QUITD;
ROT4:=QVETERAN; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
0.025*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.5*u(ASY1,20.0)+
0.02*o(ASY1,20.0))*u(FAP2,5000.0); NR2Q:=ord(RAS2)*NR2; NR3:=0.4*
0.05*o(FAP2,5000.0); NR3Q:=ord(RAS2&ROT2)*NR3; NR4:=0.4*0.07*o(
FAP2,5000.0); NR4Q:=ord(RAS2&ROT3)*NR4; NR5:=15.0*u(ASY1,20.0);
NR5Q:=ord(RAS1&ROT4)*NR5; NR6:=0.8*FAP1; NR6Q:=ord(RAS1)*NR6;
NR7:=0.8*FAP2; NR7Q:=ord(RAS2)*NR7; NRT:=MIN(MAX(NR6,NR7),MAX(
NR1+NR5,NR2+NR3+NR5,NR2+NR4+NR5)); NRQ:=MIN(MAX(NR6Q,NR7Q),MAX(
NR1Q+NR5Q,NR2Q+NR3Q+NR5Q,NR2Q+NR4Q+NR5Q)); LRQ:=NRQ; MRAGE:=70.0;
ER1:=0.025*FAP1*ASY1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR5; ER2Q:=
ord(RAS4&ROT4)*ER2; ERT:=ER1+ER2; ERQ:=ER1Q+ER2Q; VD1:=ER1;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(ROT4)*AA(BEG7,0.0)*
VD2; VDT:=VD1+VD2; VDQ:=VD1Q+VD2Q; DR1:=ER1; DR1Q:=ord(RAS10)*
DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.667*ER1; DS1Q:=DS1; DS2:=1680.0;
DS2Q:=ord(RAS14)*DS2; DS3:=0.667*ER2; DS3Q:=ord(ROT4)*DS3; DST:=
MAX(DS2,DS1+DS3); DSQ:=MAX(DS2Q,DS1Q+DS3Q); PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=55.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,
VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR7Q,NR7,NR6Q,NR6,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG7,RED4,MAN8,PCMAN8,FDMAN8,SDMAN8,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1, ASY1,CNQ) <0 then
negative end;

procedure c0223s247; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1976.0))*ord(WRKHRS>=1000.0)*1.0; PSY7:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; FDFAP13:=
MIN(QUITD,BIRTHD+65.0); FAP13:=ord(FDFAP13>HIRED)*WAGE(FDFAP13);
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=1.0-(0.05*a(
AGE,62.0,55.0)+0.0333*a(AGE,64.0,62.0)); RED7:=1.0-(0.0333*a(AGE,
60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED10:=NN(1.0-0.03*o(55.0,
AGE)); RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(
ASY51>=10.0); RAS10:=ASY51>=10.0; RAS13:=(AGE>=25.0)&(ASY51>=1.0)
;ROT10:=QSSDABLE; LNG13:=1.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG10:=ANYTIME(0.0,0.0); NR1:=(0.02*FAP1-0.02*SS1)*u(ASY1+
ASY2,25.0)+0.005*FAP1*o(ASY1+ASY2,25.0); NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=((0.02*FAP1-
0.02*SS1)*u(PSY7,25.0)+0.005*FAP1*o(PSY7,25.0))*(ASY1+ASY2)/
PSY7*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DR1:=ERT*RED10; DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*DR1; DRT:=
DR1; DRQ:=DR1Q*12.0; DS1:=FAP13; DS1Q:=ord(RAS13)*AA(QUITD,LNG13+
QUITD)*DS1; DS2:=120.0*ERT; DS2Q:=ord(RAS4)*AA(QUITD,LNG13+QUITD)
*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,
LNG13,ASY51,RED10,RED7,RED4,SS1,FAP13,FDFAP13,FAP1,SDFAP1,
FDFAP1,PSY7,ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0224s250; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*1.0;
ASY1:=NNMIN(40.0,MIN(QUITD,BIRTHD+65.0)-(HIRED+1.0))*1.0; PSY4:=
BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,QUITD-ASY1+40.0); FAP1:=AVG(
WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); RED4:=1.0-(0.04*a(AGE,60.0,
55.0)+0.05*a(AGE,61.0,60.0)); RED7:=NN(1.0-0.05*o(65.0,AGE));
RED13:=JSRED; RAS1:=(AGE>=55.0)&(ASY1>=20.0)!(AGE+ASY1>=75.0)&(
AGE>=60.0); RAS2:=AGE>=65.0; RAS4:=AGE>=55.0; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=0.01*FAP1*ASY1/12.0-42.5; NR1Q:=
ord(RAS1)*NR1; NR2:=ASY1*13.0+15.0; NR2Q:=ord(RAS2)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=(0.01*FAP1*ASY1/12.0-ASY1/PSY4*42.5)*RED4; ER1Q:=ord(RAS4)*
ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=
MAX(ER1Q,ER2Q)*12.0; VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=0.6*ERT*RED13; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED7,RED4,FAP1,FDFAP1,
PSY4,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0225s251; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NNMIN(35.0,MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1976.0))*NNMIN(1.0,
WRKHRS/2000.0); ASY3:=NNMIN(35.0,MIN(QUITD,BIRTHD+65.0,1976.0)-
MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(
QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+
65.0); SDFAP2:=MAX(HIRED,FDFAP2-3.0); FAP2:=ord(FDFAP2>SDFAP2)*
AVG(WAGE,SDFAP2,FDFAP2); RED4:=NN(1.0-0.06*o(65.0,AGE)); RAS1:=
AGE>=65.0; ASY56:=ASY2+ASY3; RAS4:=(AGE>=55.0)&(ASY56>=20.0);
RAS10:=ASY56>=15.0; ROT7:=ASY2+ASY3>=15.0; ROT10:=QSSDABLE;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,
QUITD); NR1:=(0.005*u(FAP1,5600.0)+0.0125*o(FAP1,5600.0))*u(ASY2+
ASY3,35.0); NR1Q:=ord(RAS1)*NR1; NR2:=FAP2; NR2Q:=ord(RAS1)*NR2;
NR3:=10000.0; NR3Q:=ord(RAS1)*NR3; NRT:=MIN(NR1,MAX(NR2,NR3));
NRQ:=MIN(NR1Q,MAX(NR2Q,NR3Q)); LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*
RED4; ER1Q:=ord(RAS4)*ER1; ER2:=MAX(NR2,NR3); ER2Q:=ord(RAS4)*
ER2; ERT:=MIN(ER1,ER2); ERQ:=MIN(ER1Q,ER2Q); VD1:=ERT; VD1Q:=ord(
ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NRT; DR1Q:=ord(RAS10&
ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*NRT; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,
ASY56,RED4,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY3,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0226s252; begin CNQ:=0.0; ASY1:=NNMIN(40.0,MIN(QUITD,
BIRTHD+65.0,1976.0)-HIRED)*1.0; ASY2:=NNMIN(40.0,MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1976.0))*NNMIN(1.0,
WRKHRS/2000.0); ASY3:=NNMIN(40.0,MIN(QUITD,BIRTHD+65.0,1976.0)-
HIRED)*ord(WRKHRS>=780.0)*1.0; ASY4:=NNMIN(40.0,MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+22.0,1976.0))*ord(WRKHRS>=780.0)*1.0;
PSY4:=MIN(40.0,NN(MIN(BIRTHD+65.0,1976.0)-HIRED)); PSY5:=MIN(
40.0,NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+25.0,1976.0))); FDFAP1:=
MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,MAX(BENIFITD,
BIRTHD+65.0)); RED4:=1.0-(0.06*a(AGE,60.0,55.0)+0.03*a(AGE,65.0,
60.0)); RED5:=NN(1.0-0.03*o(65.0,AGE)); RED13:=JSRED; ASY52:=
ASY3+ASY4; RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY52>=20.0); RAS4:=(
AGE>=55.0)&(ASY52>=15.0); RAS5:=AGE>=60.0; ROT4:=ASY3+ASY4<20.0;
ROT7:=ASY3>=15.0; BEG7:=ANYTIME(BIRTHD+55.0,0.0); BEG8:=ANYTIME(
BIRTHD+60.0,0.0); NR1:=NN(0.02*FAP1*u(ASY1+ASY2,25.0)+0.005*FAP1*
b(ASY1+ASY2,25.0,40.0)-0.5*SS1); NR1Q:=ord(RAS1)*NR1; NR2:=600.0*
u(ASY1+ASY2,10.0)/10.0; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*u(ASY1+
ASY2,40.0)/(PSY4+PSY5)*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR1*u(
ASY1+ASY2,40.0)/(PSY4+PSY5)*RED5; ER2Q:=ord(RAS5&ROT4)*ER2; ER3:=
NR2; ER3Q:=ord(RAS4)*ER3; ER4:=NR2; ER4Q:=ord(RAS5)*ER4; ERT:=
MAX(ER1,ER2,MAX(ER3,ER4)); ERQ:=MAX(ER1Q,ER2Q,MAX(ER3Q,ER4Q));
VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=AA(
BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0;
DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=32.0)&(ASY52>=10.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,ASY52,RED13,RED5,RED4,SS1,FAP1,
SDFAP1,FDFAP1,PSY5,PSY4,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0227s284; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1976.0)-
HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1976.0))*ord(WRKHRS>=870.0)*
1.0; ASY3:=(QUITD-HIRED)*1.0; RED4:=1.0-(0.054*a(AGE,61.0,60.0)+
0.061*a(AGE,64.0,61.0)+0.087*a(AGE,65.0,64.0)); RED13:=JSRED;
RAS1:=(AGE>=65.0)!(ASY3>=30.0); RAS4:=(AGE>=60.0)&(ASY3>=15.0);
RAS10:=ASY3>=15.0; RAS13:=(AGE>=50.0)&(ASY3>=15.0); ROT7:=ASY3>=
15.0; LNG10:=BIRTHD+65.0; LNG11:=BIRTHD+60.0; BEG7:=MAX(BIRTHD+
60.0,QUITD); BEG8:=MAX(BIRTHD+65.0,QUITD); BEG11:=ANYTIME(BIRTHD+
60.0,BIRTHD+65.0); NR1:=10.0*ASY1+ASY2; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT; VD1Q:=
AA(BEG8,0.0)*VD1; VD2:=ERT; VD2Q:=ord(ROT7)*AA(BEG7,0.0)*VD2;
VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=MAX(125.0,NRT);
DR1Q:=ord(RAS10)*AA(QUITD,LNG10)*DR1; DR2:=MAX(125.0,ERT); DR2Q:=
ord(RAS10)*AA(QUITD,LNG11)*DR2; DR3:=ERT; DR3Q:=ord(RAS10)*AA(
BEG11,0.0)*DR3; DRT:=MAX(DR1,DR2)+DR3; DRQ:=(MAX(DR1Q,DR2Q)+DR3Q)
*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY3>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG8,BEG7,LNG11,LNG10,RED13,RED4,
ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0229s286; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1974.833)
-HIRED)*1.0; ASY2:=NN(MIN(QUITD,1976.0)-MAX(HIRED,1974.833))*1.0;
ASY3:=NN(QUITD-MAX(HIRED,1976.0))*1.0; ASY4:=NN(QUITD-MAX(HIRED,
1976.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,1974.833);
SDFAP1:=MAX(HIRED,1973.833); FAP1:=ord(FDFAP1>SDFAP1)*WAGE(
FDFAP1); FDFAP2:=QUITD; FAP2:=AVG(WAGE,MAX(HIRED,FDFAP2-5.0),
FDFAP2); RED4:=NN(1.0-0.06*o(65.0,AGE)); RED13:=COSTRED; ASY53:=
ASY1+ASY2+ASY3; RAS1:=(AGE>=65.0)&(ASY53>=10.0); RAS4:=(AGE>=
55.0)&(ASY3>=10.0); RAS10:=ASY3>=10.0; ROT10:=QSSDABLE; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.015*FAP1*ASY1; NR1Q:=
ord(RAS1)*NR1; NR2:=66.0*ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=0.0145*
FAP2*ASY2+ASY3; NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1,NR2)+NR3; NRQ:=
MAX(NR1Q,NR2Q)+NR3Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&
ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*0.5; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; ASY60:=ASY1+ASY2+ASY4;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY60>=10.0))*1.0); if min( VEDB,
ASY60,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG7,ASY53,RED13,RED4,FAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY4,ASY3,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0230s292; begin CNQ:=0.0; ASY1:=NNMIN(40.0,QUITD-MAX(
HIRED,1976.25))*NNMIN(1.0,WRKHRS/1800.0); ASY2:=NNMIN(40.0,QUITD-
MAX(HIRED,BIRTHD+22.0,1976.25))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=
QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1)/12.0;
RED4:=AR(65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=
62.0)&(ASY2>=15.0); RAS10:=ASY2>=10.0; ROT4:=QAPPROVL; ROT7:=
ASY1>=15.0; ROT10:=^QSSDABLE; BEG7:=ANYTIME(BIRTHD+62.0,0.0);
BEG8:=MAX(BIRTHD+65.0,QUITD); BEG10:=MAX(BIRTHD+65.0,QUITD);
NR1:=FAP1/160.0*1.56*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=
NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4&
ROT4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT7)*
AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*
AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*0.5;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,
ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG8,BEG7,RED13,
RED4,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0231s295; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; SS10:=SS(5.0,BENIFITD)/12.0; RED4:=NN(1.0-
0.048*o(65.0,AGE)); RED13:=COSTRED; RAS1:=(AGE>=65.0)&(ASY1>=5.0)
!(AGE>=62.0)&(ASY1>=30.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0);
RAS10:=ASY1>=10.0; ROT10:=QSSDABLE; ROT11:=^QSSDABLE; LNG10:=
BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG11:=MAX(
BIRTHD+65.0,QUITD); NR1:=11.5*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=
NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=23.0*ASY1-0.5*SS10;
DR1Q:=ord(RAS10&ROT10)*AA(QUITD,LNG10)*DR1; DR2:=23.0*ASY1;
DR2Q:=ord(RAS10&ROT11)*AA(QUITD,LNG10)*DR2; DR3:=NRT; DR3Q:=ord(
RAS10)*AA(BEG11,0.0)*DR3; DRT:=DR3+MAX(DR1,DR2); DRQ:=(DR3Q+MAX(
DR1Q,DR2Q))*12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((ASY1>=10.0)!(
QUITAGE>=65.0)&(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,
DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG7,LNG10,RED13,RED4,
SS10,ASY1,CNQ) <0 then negative end;

procedure c0232s297; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-4.0),FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.03*a(AGE,55.0,50.0)+0.05*a(
AGE,60.0,55.0)+0.03*a(AGE,64.0,60.0)); RED13:=JSRED; RAS1:=(
ASY1>=30.0)!(AGE>=65.0)&(ASY1>=5.0)!(AGE>=60.0)&(ASY1>=25.0);
RAS4:=(AGE>=50.0)&(ASY1>=20.0)!(AGE>=60.0)&(ASY1>=5.0); RAS10:=
ASY1>=5.0; RAS13:=(AGE>=55.0)!(ASY1>=30.0)!(AGE>=50.0)&(ASY1>=
20.0); BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+60.0); NR1:=0.0157*FAP1*
ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT;
DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0233s213; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0;
FDFAP2:=QUITD; FAP2:=AVG(WAGE,MAX(HIRED,FDFAP2-2.0),FDFAP2)/12.0;
FAP3:=WAGE(QUITD)/12.0; SS1:=SS(1.0,BENIFITD)/12.0; SS2:=SS(2.0,
MAX(BENIFITD,BIRTHD+62.0))/12.0; RED4:=AR(62.0-AGE); RED10:=AR(
62.0-AGE); RED13:=JSRED; RED14:=COSTRED; RAS1:=(ASY1>=30.0)!(
AGE>=65.0)&(ASY1>=5.0)!(AGE>=62.0)&(ASY1>=15.0); RAS2:=(ASY1>=
30.0)!(AGE>=62.0)&(ASY1>=15.0); RAS3:=ASY1>=30.0; RAS4:=(AGE>=
60.0)&(ASY1>=15.0); RAS11:=ASY1>=15.0; RAS12:=AGE>=62.0; RAS13:=(
AGE>=55.0)&(ASY1>=15.0)!(AGE>=60.0)&(ASY1>=10.0); DAT2:=
QUITD<1983.583; ROT2:=AGE<65.0; ROT3:=AGE<62.0; ROT7:=ASY1>=15.0;
ROT10:=^QSSDABLE; ROT11:=QSSDABLE; LNG2:=BIRTHD+SSAGE(2.0);
LNG3:=1.0; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=MAX(BIRTHD+62.0,
QUITD); BEG10:=ANYTIME(0.0,0.0); NR1:=MAX(0.015*FAP1*ASY1-0.5*
SS1,0.011*FAP1*u(ASY1,30.0)+0.012*FAP1*o(ASY1,30.0)); NR1Q:=ord(
RAS1)*NR1; NR2:=0.015*FAP1*ASY1-0.5*SS2; NR2Q:=ord(RAS2&ROT2)*
NR2; NR3:=16.5*u(ASY1,15.0)+18.0*b(ASY1,15.0,30.0)+19.0*o(ASY1,
30.0); NR3Q:=ord(RAS1)*NR3; NR4:=0.71*FAP2*o(ASY1,15.0)-SS1;
NR4Q:=ord(RAS1)*NR4; NR5:=0.71*FAP2*o(ASY1,15.0)-SS2; NR5Q:=ord(
RAS2&ROT2)*NR5; NR6:=0.2692*FAP3*b(ASY1,22.0,23.0); NR6Q:=ord(
RAS1)*AA(QUITD,LNG3+QUITD)*NR6; NR7:=400.0; NR7Q:=ord(RAS3&ROT3)*
AA(QUITD,LNG2)*NR7; NR8:=MIN(MAX(NR4,ord(RAS2&ROT2)*NR5),MAX(NR1,
ord(RAS2&ROT2)*NR2,NR3))*1.05; NR8Q:=ord(RAS1&DAT2)*NR8; NRT:=
MAX(MIN(MAX(NR4,NR5),MAX(NR1,NR2,NR3))+NR6+NR7,NR8); NRQ:=MAX(
MIN(MAX(NR4Q,NR5Q),MAX(NR1Q,NR2Q,NR3Q))+NR6Q+NR7Q,NR8Q)*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=MIN(NR5,MAX(NR2,NR1,NR3))*RED4;
ER1Q:=ord(RAS4)*ER1; ER2:=ER1*1.05; ER2Q:=ord(RAS4&DAT2)*ER2;
ER3:=NR6; ER3Q:=ord(RAS4)*AA(QUITD,LNG3+QUITD)*ER3; ER4:=NR7;
ER4Q:=ord(RAS4)*AA(QUITD,LNG2)*ER4; ERT:=MAX(ER1+ER3+ER4,ER2+ER3+
ER4); ERQ:=MAX(ER1Q+ER3Q+ER4Q,ER2Q+ER3Q+ER4Q)*12.0; VD1:=MIN(NR4,
MAX(NR1,NR3)); VD1Q:=AA(BEG7,0.0)*VD1; VD2:=MIN(NR5,MAX(NR2,NR1,
NR3)); VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q)*12.0; DR1:=MIN(NR5,MAX(NR2,NR1,NR3))*RED10; DR1Q:=
AA(BEG10,0.0)*DR1; DR2:=MAX(NR3+AA(QUITD,LNG2)*NR7,NR1+AA(QUITD,
LNG2)*NR7); DR2Q:=ord(RAS11&ROT10)*DR2; DR3:=0.015*FAP1*ASY1;
DR3Q:=ord(RAS11&ROT10)*DR3; DR4:=MAX(NR2,NR1,NR3); DR4Q:=ord(
ROT11)*DR4; DR5:=MAX(NR2,NR1,NR3); DR5Q:=ord(RAS12)*DR5; DRT:=
MAX(DR1,DR2,DR3,DR4,DR5); DRQ:=MAX(DR1Q,DR2Q,DR3Q,DR4Q,DR5Q)*
12.0; DS1:=MAX(NR1,NR3)*RED14*RED13*0.5; DS1Q:=ord(RAS13)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((ASY1>=10.0)!
(QUITAGE>=65.0)&(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR5Q,DR5,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR8Q,NR8,NR7Q,NR7,NR6Q,NR6,NR5Q,NR5,
NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG8,BEG7,LNG3,LNG2,
RED14,RED13,RED10,RED4,SS2, SS1,FAP3,FAP2,FDFAP2,FAP1,FDFAP1,
ASY1,CNQ) <0 then negative end;

procedure c0234s236; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/1800.0);
ASY2:=NN(MIN(QUITD,BIRTHD+70.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1)/12.0; RED4:=1.0-(0.0667*a(AGE,60.0,55.0)+
0.0333*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY1>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
NR1:=0.5*u(FAP1,650.0)+0.01*o(FAP1,650.0)*ASY1; NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=
ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY2>=5.0)*0.25,ord(ASY2>=10.0)*
0.5,ord((QUITAGE>=65.0)!(ASY2>=15.0))*1.0)); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,FAP1,FDFAP1,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0236s255; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
1976.0))*1.0; SDASY1:=MAX(HIRED,1976.0); ASY1:=NN(MIN(QUITD,MAX(
BIRTHD+65.0,SDASY1+5.0))-SDASY1)*NNMIN(1.0,WRKHRS/1700.0); RED4:=
1.0-(0.0355*a(AGE,54.0,47.0)+0.057*a(AGE,61.0,54.0)+0.067*a(AGE,
62.0,61.0)); RED5:=NN(1.0-0.12*o(60.0,AGE)); RED7:=NN(1.0-0.072*
o(65.0,AGE)); RAS1:=(AGE>=65.0)&(ASY1>=5.0); RAS4:=(ASY1>=30.0)!(
AGE>=60.0)&(ASY1>=10.0)!(AGE+ASY1>=85.0)&(AGE>=55.0); RAS10:=
ASY1>=10.0; ROT4:=ASY1>30.0; LNG4:=BIRTHD+62.0; LNG10:=QUITD;
BEG7:=ANYTIME(BIRTHD+60.0,0.0); NR1:=18.5*ASY1; NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ER2:=950.0*ASY1/30.0*RED5; ER2Q:=ord(
RAS4&ROT4)*AA(QUITD,LNG4)*ER2; ERT:=ER1+ER2; ERQ:=(ER1Q+ER2Q)*
12.0; VD1:=17.7*ASY1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*AA(QUITD,LNG10)*DR1;
DR2:=ER2; DR2Q:=ord(RAS10&ROT4)*AA(QUITD,LNG10)*DR2; DRT:=DR1+
DR2; DRQ:=(DR1Q+DR2Q)*12.0; DS1:=0.55*NRT; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASYV>=10.0)*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG7,LNG10,LNG4,RED7,RED5,RED4,ASY1,SDASY1,ASYV,
CNQ) <0 then negative end;

procedure c0237s256; begin CNQ:=0.0; ASY1:=NNMIN(30.0,QUITD-(
HIRED+1.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(
WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); SS1:=SSBASE(BENIFITD); RED4:=
AR(NRD-BENIFITD); RED13:=COSTRED; RED14:=JSRED; RAS1:=(AGE>=65.0)
&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); ROT7:=ASY1>=10.0;
LNG13:=10.0; BEG7:=MAX(NRD,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG14:=QUITD+10.0; NR1:=(0.01*u(FAP1,SS1)+0.015*o(
FAP1,SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=600.0; NR2Q:=ord(RAS1)
*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q;
VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=ord(ROT7)*AA(
BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0;
DS1:=ERT*RED13*RED14; DS1Q:=ord(RAS4)*AA(QUITD,LNG13+QUITD)*DS1;
DS2:=0.5*ERT*RED13*RED14; DS2Q:=ord(RAS4)*AA(BEG14,0.0)*DS2;
DST:=DS1+DS2; DSQ:=DS1Q+DS2Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(
ASY1>=5.0)*0.25,ord(ASY1>=10.0)*0.5,ord((QUITAGE>=55.0)!(ASY1>=
15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG14,BEG8,BEG7,LNG13,RED14,RED13,RED4,SS1,
FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0238s260; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
1976.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,1976.0))*NNMIN(1.0,WRKHRS/12.0); SDFAP1:=
MAX(HIRED,1974.083); FAP1:=ord(QUITD>SDFAP1)*AVG(WAGE,SDFAP1,
QUITD); RED4:=NN(1.0-0.03*o(62.0,AGE)); RED7:=AR(62.0-AGE);
RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=15.0); RAS4:=(AGE>=55.0)&(
ASY1>=15.0); RAS10:=(AGE>=40.0)&(ASY1>=10.0); RAS13:=(AGE+ASY1>=
70.0)&(ASY1>=15.0); ROT10:=QSSDABLE; ROT11:=^QSSDABLE; LNG10:=
BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+62.0); BEG11:=MAX(
BIRTHD+65.0,QUITD); NR1:=(0.01*u(FAP1,7800.0)+0.015*o(FAP1,
7800.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=54.0*ASY1; NR2Q:=ord(
RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ;
MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR2; ER2Q:=
ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=NRT*
RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT;
DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=0.015*FAP1*ASY1; DR2Q:=ord(
RAS10&ROT11)*AA(QUITD,LNG10)*DR2; DR3:=NRT; DR3Q:=ord(RAS10&
ROT11)*AA(BEG11,0.0)*DR3; DRT:=MAX(DR2+DR3,DR1); DRQ:=MAX(DR2Q+
DR3Q,DR1Q); DS1:=0.5*ERT; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASYV>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG11,BEG7,LNG10,RED7,RED4,FAP1,
SDFAP1,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0239s263; begin CNQ:=0.0; ASY1:=NNMIN(40.0,MIN(QUITD,
BIRTHD+65.0,1976.0)-MAX(HIRED,BIRTHD+27.0))*ord(WRKHRS>=960.0)*
1.0; ASY2:=NNMIN(40.0,MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,
BIRTHD+25.0,1976.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0; RED4:=AR(65.0-
AGE); RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(
AGE>=60.0)&(ASY51>=10.0)!(AGE>=55.0)&(ASY51>=15.0); RAS10:=
ASY51>=5.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.015*u(
FAP1,400.0)*u(ASY1+ASY2,40.0)+0.005*o(FAP1,400.0)*u(ASY1+ASY2,
40.0); NR1Q:=ord(RAS1)*NR1; NR2:=7.0*u(ASY1+ASY2,40.0); NR2Q:=
ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=ERT; DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,ASY51,RED13,RED4,
FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0240s271; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0,1976.25)-MAX(HIRED,BIRTHD+30.0))*1.0; ASY2:=NNMIN(
35.0,MIN(QUITD,BIRTHD+65.0,1977.0)-MAX(HIRED,1976.25))*1.0;
ASY3:=NNMIN(35.0,MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1977.0))*
NNMIN(1.0,WRKHRS/1500.0); ASY4:=NN(QUITD-MAX(HIRED,BIRTHD+22.0))*
NNMIN(1.0,WRKHRS/1000.0); PSY4:=MIN(35.0,NN(MIN(BIRTHD+65.0,
1976.25)-MAX(HIRED,BIRTHD+30.0))); PSY5:=MIN(35.0,NN(BIRTHD+65.0-
MAX(HIRED,1976.25))); ASY53:=ASY1+ASY2+ASY3; FDFAP1:=MIN(QUITD,
BIRTHD+65.0,QUITD-ASY53+35.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(
1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=1.0-(0.06*a(AGE,62.0,55.0)+
0.03*a(AGE,65.0,62.0)); RED5:=NN(1.0-0.03*o(62.0,AGE)); RED6:=NN(
1.0-0.03*o(92.0,AGE+ASY53)); RED7:=NN(1.0-0.06*o(65.0,AGE));
RED13:=COSTRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY53>=30.0);
RAS4:=(AGE>=55.0)&(ASY4>=10.0); RAS10:=ASY4>=10.0; ROT2:=
FAP1<15000.0; ROT3:=FAP1>=15000.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=0.015*o(FAP1,
SS1)*u(ASY1+ASY2+ASY3,35.0); NR1Q:=ord(RAS1)*NR1; NR2:=120.0*u(
ASY1+ASY2+ASY3,35.0); NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=156.0*u(
ASY1+ASY2+ASY3,35.0); NR3Q:=ord(RAS1&ROT3)*NR3; NRT:=MAX(NR1,NR2,
NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=
0.015*o(FAP1,SS1)*u(PSY4+PSY5,35.0)*u(ASY1+ASY2+ASY3,35.0)/u(
PSY4+PSY5,35.0); ER1Q:=ord(RAS4)*ER1; ER2:=120.0*u(PSY4+PSY5,
35.0)*u(ASY1+ASY2+ASY3,35.0)/u(PSY4+PSY5,35.0); ER2Q:=ord(RAS4&
ROT2)*ER2; ER3:=156.0*u(PSY4+PSY5,35.0)*u(ASY1+ASY2+ASY3,35.0)/u(
PSY4+PSY5,35.0); ER3Q:=ord(RAS4&ROT3)*ER3; ERT:=MAX(ER1,ER2,ER3)*
MAX(RED4,RED5+RED6-1.0); ERQ:=MAX(ER1Q,ER2Q,ER3Q)*MAX(RED4,RED5+
RED6-1.0); VD1:=0.015*o(FAP1,SS1)*u(PSY4+PSY5,35.0)*u(ASY1+ASY2+
ASY3,35.0)/u(PSY4+PSY5,35.0)*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=
120.0*u(PSY4+PSY5,35.0)*u(ASY1+ASY2+ASY3,35.0)/u(PSY4+PSY5,35.0)
*RED7; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*VD2; VD3:=156.0*u(PSY4+PSY5,
35.0)*u(ASY1+ASY2+ASY3,35.0)/u(PSY4+PSY5,35.0)*RED7; VD3Q:=ord(
ROT3)*AA(BEG7,0.0)*VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1Q,
VD2Q,VD3Q); DR1:=NRT; DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DRT:=
DR1; DRQ:=DR1Q; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,
VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,
BEG7,RED13,RED7,RED6,RED5,RED4,SS1,FAP1,SDFAP1,FDFAP1,ASY53,
PSY5,PSY4,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0241s272; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1970.5)-MAX(HIRED,BIRTHD+25.0))*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0,1976.5)-MAX(HIRED,1970.5))*1.0; ASY3:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,1976.5))*ord(WRKHRS>=1000.0)*1.0; FAP1:=
AVG(WAGE,HIRED,QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; VR1MAN7:=
ord(7800.0>WAGE(SURVEYD))*0.015+ord(WAGE(SURVEYD)>=7800.0)*
0.025; PCMAN7:=VR1MAN7; MAN7:=SUMI(PCMAN7,7.0,0.0,SDMAN7,FDMAN7);
RED4:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=65.0; ASY53:=
ASY1+ASY2+ASY3; RAS4:=(AGE>=55.0)&(ASY53>=10.0); ROT7:=^QWDMAN;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.0075*u(FAP1,
7800.0)+0.015*o(FAP1,7800.0))*(ASY1+ASY2+ASY3); NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q;
VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DRQ:=0.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY53>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY53,
RED13,RED4,MAN7,PCMAN7,VR1MAN7,FDMAN7,SDMAN7,FAP1,ASY3,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0242s358; begin CNQ:=0.0; ASY1:=(MIN(QUITD,MAX(BIRTHD+
65.0,HIRED+40.0))-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-
MAX(HIRED,1976.0))*1.0; PSY7:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(
QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0); FAP1:=
ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,MAX(
BENIFITD,BIRTHD+65.0))/12.0; SS4:=SS(2.0,MAX(BENIFITD,BIRTHD+
62.0))/12.0; RED4:=NN(1.0-0.03*o(65.0,AGE)); RED5:=NN(1.0-0.05*o(
60.0,AGE)); RED7:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,
60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS2:=(AGE>=60.0)&(ASY2>=
15.0); RAS4:=(AGE>=55.0)&(ASY2>=10.0); RAS5:=(AGE>=55.0)&(ASY2>=
15.0); ROT10:=QSSDABLE; BGN1:=MAX(BIRTHD+61.0,QUITD); LNG2:=
BIRTHD+62.0; LNG10:=ERD; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+61.0);
BEG8:=ANYTIME(BIRTHD+62.0,BIRTHD+65.0); BEG14:=MAX(BIRTHD+62.0,
QUITD); NR1:=0.02*FAP1*u(ASY1,25.0)+0.015*FAP1*o(ASY1,25.0)-
0.0125*SS1*ASY1; NR1Q:=ord(RAS1)*AA(BGN1,0.0)*NR1; NR2:=0.02*
FAP1*u(ASY1,25.0)+1.5*FAP1*o(ASY1,25.0); NR2Q:=ord(RAS2)*AA(
QUITD,LNG2)*NR2; NRT:=NR1+NR2; NRQ:=(NR1Q+NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=70.0; ER1:=(0.02*FAP1*u(ASY1,25.0)+0.015*FAP1*o(ASY1,25.0)
-0.0125*SS4*ASY1)*RED4; ER1Q:=ord(RAS4)*AA(BGN1,0.0)*ER1; ER2:=(
0.02*FAP1*u(ASY1,25.0)+0.015*FAP1*o(ASY1,25.0)-0.0125*SS4*ASY1)*
RED5; ER2Q:=ord(RAS5)*AA(BGN1,0.0)*ER2; ER3:=NR2*RED4; ER3Q:=ord(
RAS4)*AA(QUITD,LNG2)*ER3; ER4:=NR2*RED5; ER4Q:=ord(RAS5)*AA(
QUITD,LNG2)*ER4; ERT:=MAX(ER1+ER3,ER2+ER4); ERQ:=MAX(ER1Q+ER3Q,
ER2Q+ER4Q)*12.0; VD1:=((0.02*FAP1*u(PSY7,25.0)+0.015*FAP1*o(PSY7,
25.0))*ASY1/PSY7-0.0125*SS1*ASY1/PSY7)*RED7; VD1Q:=AA(BEG8,0.0)*
VD1; VD2:=(0.02*FAP1*u(PSY7,25.0)+0.015*FAP1*o(PSY7,25.0))*ASY1/
PSY7*RED7; VD2Q:=AA(BEG7,LNG2)*VD2; VDT:=VD1+VD2; VDQ:=(VD1Q+
VD2Q)*12.0; DR1:=0.02*FAP1*u(ASY1,25.0)+0.015*FAP1*o(ASY1,25.0);
DR1Q:=ord(ROT10)*AA(QUITD,LNG10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*AA(QUITD,LNG2)*DS1; DS2:=0.5*
(ERT*RED13-0.0125*SS4); DS2Q:=ord(RAS4)*AA(BEG14,0.0)*DS2; DST:=
MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,
VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG14,BEG8,BEG7,LNG10,LNG2,BGN1,RED13,
RED7,RED5,RED4,SS4,SS1,FAP1,SDFAP1,FDFAP1,PSY7,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0243s359; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1977.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/96.0);
ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1980.0)-MAX(HIRED+1.0,BIRTHD+
25.0,1977.0))*NNMIN(1.0,WRKHRS/1680.0); ASY3:=NN(MIN(QUITD,
BIRTHD+65.0,1984.0)-MAX(HIRED+1.0,BIRTHD+25.0,1980.0))*NNMIN(
1.0,WRKHRS/1680.0); ASY4:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+
1.0,BIRTHD+25.0,1984.0))*NNMIN(1.0,WRKHRS/1680.0); SDASY5:=MAX(
HIRED+1.0,BIRTHD+25.0); ASY5:=NN(MIN(QUITD,MAX(BIRTHD+65.0,
SDASY5+30.0))-SDASY5)*NNMIN(1.0,WRKHRS/1680.0); ASY6:=NN(MIN(
QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(
QUITD,BIRTHD+65.0,1977.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=
ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,
BIRTHD+65.0); SDFAP2:=MAX(HIRED,FDFAP2-60.0/12.0); FAP2:=ord(
FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); SS1:=SS(1.0,MAX(BENIFITD,
BIRTHD+65.0)); RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,
65.0,60.0)); RED10:=COSTRED; RED13:=1.0-(0.005*a(AGE,60.0,55.0)+
0.01*a(AGE,65.0,60.0)); RED14:=JSRED; RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY6>=10.0); RAS10:=(AGE>=50.0)&(ASY6>=10.0); BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=2.25*12.0*ASY1; NR1Q:=ord(
RAS1)*NR1; NR2:=(0.006*u(FAP1,6600.0)+0.014*o(FAP1,6600.0))*ASY1;
NR2Q:=ord(RAS1)*NR2; NR3:=(4.0*ASY2+6.0*ASY3+9.0*ASY4)*12.0;
NR3Q:=ord(RAS1)*NR3; NR4:=(0.02333*FAP2-0.02333*SS1)*ASY5; NR4Q:=
ord(RAS1)*NR4; NRT:=MIN(MAX(NR1,NR2)+NR3,NR4); NRQ:=MIN(MAX(NR1Q,
NR2Q)+NR3Q,NR4Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*
VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT*RED10; DR1Q:=ord(RAS10)*DR1;
DR2:=(0.02333*FAP2-0.02*SS1)*ASY5; DR2Q:=ord(RAS10)*DR2; DRT:=
MIN(MAX(DR1,50.0*12.0),DR2); DRQ:=MIN(MAX(DR1Q,50.0*12.0),DR2Q);
DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY6>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,
NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED14,RED13,RED10,RED4,SS1,
FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY6,ASY5,SDASY5,ASY4,
ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0244s360; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
72.0,1970.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,
BIRTHD+72.0)-MAX(HIRED,1970.0))*NNMIN(1.0,WRKHRS/12.0); ASY3:=NN(
MIN(QUITD,BIRTHD+72.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=
MIN(QUITD,BIRTHD+72.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+
72.0,1970.0); FAP2:=ord(FDFAP2>HIRED)*WAGE(FDFAP2); RED4:=NN(1.0-
0.06*o(65.0,AGE)); RED13:=JSRED; RED14:=AR(NRD-BENIFITD); RAS1:=(
AGE>=65.0)&(ASY3>=10.0); ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(
ASY51>=10.0); RAS5:=(AGE>=55.0)&(ASY3>=10.0); RAS10:=ASY51>=10.0;
RAS13:=(AGE>=55.0)&(ASY51>=10.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=MAX(63.0,0.0125*FAP2*ASY1+0.01325*
FAP1*ASY2); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=ER1;
ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NR1;
DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*
RED14*0.5; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY3>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY51,RED14,
RED13,RED4,FAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0245s361; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; RED4:=NN(1.0-0.06*o(
65.0,AGE)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(
ASY1>=10.0); RAS10:=ASY1>=10.0; DAT1:=1983.667<=QUITD; DAT2:=(
1982.583<=QUITD)&(QUITD<1983.667); BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=11.5*ASY1; NR1Q:=ord(RAS1&DAT1)*NR1; NR2:=9.0*
ASY1; NR2Q:=ord(RAS1&DAT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&
DAT1)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4&DAT2)*ER2; ERT:=MAX(ER1,
ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=ER1; VD1Q:=ord(DAT1)*AA(
BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(DAT2)*AA(BEG7,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NR1; DR1Q:=ord(
RAS10&DAT1)*DR1; DR2:=NR2; DR2Q:=ord(RAS10&DAT2)*DR2; DRT:=MAX(
DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=ER1*RED13*0.5; DS1Q:=
ord(RAS4&DAT1)*DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(RAS4&DAT2)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,ASY1,CNQ) <0 then negative end;

procedure c0246s353; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/1800.0); ASY2:=NN(
MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=
1000.0)*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*NNMIN(1.0,
WRKHRS/1800.0); PSY4:=NN(BIRTHD+65.0-MAX(HIRED,BIRTHD+25.0));
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/
12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0;
FDFAP10:=MIN(QUITD,BIRTHD+65.0); FAP10:=ord(FDFAP10>HIRED)*WAGE(
FDFAP10)/12.0; SS1:=SS(1.0,BENIFITD)/12.0; RED4:=NN(1.0-0.06*o(
62.0,AGE)); RAS1:=(AGE>=65.0)&(ASY3>=30.0); RAS2:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY3>=30.0); RAS5:=(AGE>=55.0)&(ASY1>=5.0);
RAS13:=(AGE>=50.0)&(ASY1>=5.0); ROT10:=QCODABLE&(ASY3>=30.0)&(
AGE>=65.0); ROT11:=QCODABLE; ROT13:=ASY3>=30.0; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=
FAP1*0.55-0.5*SS1+0.005*FAP1*o(ASY3,30.0); NR1Q:=ord(RAS1)*NR1;
NR2:=(FAP1*0.55-0.5*SS1)*u(ASY1,30.0)/30.0; NR2Q:=ord(RAS2)*NR2;
NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=
70.0; ER1:=(0.55*FAP1-0.5*SS1+0.005*FAP1*ASY3)*ASY1/PSY4*RED4;
ER1Q:=ord(RAS4)*ER1; ER2:=(0.55*FAP1-0.5*SS1)*u(ASY1,30.0)/30.0*
ASY1/PSY4*RED4; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q)*12.0; VD1:=ER2; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=FAP10*0.55-0.5*SS1+0.005*FAP10*o(ASY3,30.0);
DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DR2:=(FAP10*0.55-0.5*SS1)*
ASY1/30.0; DR2Q:=ord(ROT11)*AA(BEG10,0.0)*DR2; DRT:=MAX(DR1,DR2);
DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=0.5*NR1; DS1Q:=ord(RAS13&ROT13)*
DS1; DS2:=0.5*NR2; DS2Q:=ord(RAS13)*DS2; DST:=MAX(DS1,DS2); DSQ:=
MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED4,
SS1,FAP10,FDFAP10,FAP1,SDFAP1,FDFAP1,PSY4,ASY3,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0247s354; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+21.0,1973.0))*1.0; ASY1:=NNMIN(35.0,MIN(QUITD,BIRTHD+65.0)
-MAX(HIRED,BIRTHD+25.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-(
HIRED+1.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=
SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,MAX(BENIFITD,
BIRTHD+65.0)); RED4:=NN(1.0-0.03*o(62.0,AGE)); RED7:=AR(65.0-AGE)
;RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=15.0); RAS2:=
(AGE>=65.0)!(AGE>=62.0)&(ASY2>=5.0); RAS4:=(AGE>=55.0)&(ASY1>=
15.0); RAS5:=AGE>=55.0; ROT2:=PARTD<1973.0; ROT4:=QAPPROVL;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.016*FAP1-0.016*
SS1)*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=22.0*ASY2*12.0; NR2Q:=ord(
RAS2&ROT2)*NR2; NR3:=NR1; NR3Q:=ord(RAS2&ROT2)*NR3; NRT:=MAX(NR1,
NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=
NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=ER1; ER2Q:=ord(RAS5&ROT4)*
ER2; ER3:=NR2; ER3Q:=ord(RAS5&ROT2)*ER3; ER4:=ER3; ER4Q:=ord(
RAS4&ROT2)*ER4; ERT:=MAX(ER1,ER2,ER3,ER4); ERQ:=MAX(ER1Q,ER2Q,
ER3Q,ER4Q); VD1:=MAX(NR1*RED7,NR2); VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q; DR1:=MAX(NR1,NR2); DR1Q:=DR1; DRT:=DR1; DRQ:=
DR1Q; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASYV>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED7,RED4,SS1,
MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,ASYV,CNQ)
<0 then negative end;

procedure c0248s355; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1967.0)-
MAX(HIRED,1946.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,
1976.0)-MAX(HIRED,1967.0))*ord(WRKHRS>=1000.0)*1.0; ASY3:=NN(MIN(
QUITD,1980.0)-MAX(HIRED+1.0,BIRTHD+25.0,1976.0))*ord(WRKHRS>=
1000.0)*1.0; ASY4:=NN(QUITD-MAX(HIRED+1.0,BIRTHD+25.0,1980.0))*
ord(WRKHRS>=1000.0)*1.0; ASY5:=NN(QUITD-MAX(HIRED,BIRTHD+22.0,
1976.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,1980.0);
SDFAP1:=MAX(HIRED,1979.0); FAP1:=ord(FDFAP1>SDFAP1)*MIN(45000.0,
WAGE(FDFAP1)); SDFAP2:=MAX(HIRED,1980.0); FAP2:=ord(QUITD>SDFAP2)
*AVGMIN(45000.0,WAGE,SDFAP2,QUITD); FDFAP3:=QUITD; FAP3:=AVGMIN(
45000.0,WAGE,MAX(HIRED,FDFAP3-5.0),FDFAP3); RED4:=AR(NRD-
BENIFITD); RED13:=JSRED; RAS1:=AGE>=65.0; ASY69:=ASY1+ASY2+ASY5;
RAS4:=(AGE>=55.0)&(ASY69>=10.0); ROT4:=QAPPROVL; BEG10:=MAX(
BIRTHD+65.0,QUITD); NR1:=(0.0075*MIN(u(FAP1,6600.0),u(FAP3,
6600.0))+0.0125*MIN(b(FAP1,6600.0,45000.0),b(FAP3,6600.0,
45000.0)))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.01*MIN(u(FAP1,
14000.0),u(FAP3,14000.0))+0.0175*MIN(b(FAP1,14000.0,45000.0),b(
FAP3,14000.0,45000.0)))*(ASY2+ASY3); NR2Q:=ord(RAS1)*NR2; NR3:=(
0.01*u(FAP2,16000.0)+0.015*b(FAP2,16000.0,32000.0)+0.01875*b(
FAP2,32000.0,45000.0))*ASY4; NR3Q:=ord(RAS1)*NR3; NRT:=NR1+NR2+
NR3; NRQ:=NR1Q+NR2Q+NR3Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4&ROT4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=0.01*u(FAP1,
45000.0)*ASY1+ASY2+ASY5; VD1Q:=AA(BEG10,0.0)*VD1; VD2:=NN(NR2+
NR3-VD1); VD2Q:=AA(BEG10,0.0)*VD2; VD3:=NRT*RED4; VD3Q:=AA(BEG10,
0.0)*VD3; VDT:=NN(VD1+VD2-VD3); VDQ:=NN(VD1+VD2-VD3); DR1:=NRT;
DR1Q:=AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*0.5;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY69>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,
NR1,BEG10,ASY69,RED13,RED4,FAP3,FDFAP3,FAP2,SDFAP2,FAP1,SDFAP1,
FDFAP1,ASY5,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0249s357; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(40.0,QUITD-MAX(HIRED,BIRTHD+
25.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NNMIN(25.0,QUITD-MAX(HIRED,
BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(
WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); FAP2:=WAGE(QUITD); SS1:=
SSBASE(BENIFITD); SS2:=SS(1.0,BENIFITD); SS4:=SS(2.0,BENIFITD);
RED4:=1.0-(0.03*a(AGE,60.0,55.0)+0.06*a(AGE,65.0,60.0)); RED13:=
COSTRED; RED14:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=
10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.0075*u(
FAP1,SS1)+0.01*o(FAP1,SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=4.0*
ASY2; NR2Q:=ord(RAS1)*NR2; NR3:=0.85*FAP2-SS2; NR3Q:=ord(RAS1)*
NR3; NRT:=MAX(NR2,MIN(NR1,NR3)); NRQ:=MAX(NR2Q,MIN(NR1Q,NR3Q));
LRQ:=NRQ; MRAGE:=65.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
0.85*FAP2-SS4; ER2Q:=ord(RAS4)*ER2; ERT:=MIN(ER1,ER2); ERQ:=MIN(
ER1Q,ER2Q); VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DRQ:=0.0; DS1:=0.5*ER1*RED13*RED14; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,
NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED14,RED13,RED4,SS4,SS2,SS1,FAP2,
FAP1,FDFAP1,ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0250s343; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=(QUITD-HIRED)*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,
BENIFITD); RED4:=1.0-(0.025*a(AGE,60.0,55.0)+0.02*a(AGE,65.0,
60.0)); RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(AGE>=65.0)!(
AGE>=60.0)&(ASY2>=30.0); RAS2:=(AGE>=60.0)&(ASY2>=30.0); RAS4:=(
AGE>=55.0)&(ASY1>=10.0); RAS13:=AGE>=65.0; DAT2:=QUITD<1984.417;
DAT3:=1984.417<=QUITD; LNG2:=BIRTHD+SSAGE(2.0); BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.0175*FAP1-0.0125*SS1)*ASY1;
NR1Q:=ord(RAS1)*NR1; NR2:=1800.0; NR2Q:=ord(RAS2&DAT2)*AA(QUITD,
LNG2)*NR2; NR3:=3000.0; NR3Q:=ord(RAS2&DAT3)*AA(QUITD,LNG2)*NR3;
NRT:=NR1+MAX(NR2,NR3); NRQ:=NR1Q+MAX(NR2Q,NR3Q); LRQ:=NRQ;
MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DRQ:=0.0; DS1:=0.5*ERT; DS1Q:=ord(RAS4)*DS1; DS2:=0.5*NR2; DS2Q:=
ord(RAS2&DAT2)*AA(QUITD,LNG2)*DS2; DS3:=0.5*NR1*RED13; DS3Q:=ord(
RAS13)*DS3; DS4:=0.5*NR3; DS4Q:=ord(RAS2&DAT3)*AA(QUITD,LNG2)*
DS4; DST:=MAX(DS1+MAX(DS2,DS4),DS3); DSQ:=MAX(DS1Q+MAX(DS2Q,DS4Q)
,DS3Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,
DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,LNG2,RED13,RED7,RED4,SS1,FAP1,
SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0252s348; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1980.75)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1980.75))*NNMIN(1.0,WRKHRS/1572.0); ASY3:=NN(MIN(QUITD,
BIRTHD+65.0,1980.0)-HIRED)*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+65.0)-
MAX(HIRED,1980.0))*ord(WRKHRS>=870.0)*1.0; RED4:=NN(1.0-0.0667*o(
65.0,AGE)); RED5:=NN(1.0-0.0667*o(62.0,AGE)); ASY52:=ASY3+ASY4;
RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY52>=15.0); RAS4:=(AGE>=60.0)&(
ASY52>=10.0)!(AGE>=55.0)&(ASY52>=15.0); RAS5:=(AGE>=55.0)&(
ASY52>=15.0); RAS10:=ASY52>=10.0; ROT7:=ASY3+ASY4>=15.0; ROT10:=
^QSSDABLE; LNG10:=BIRTHD+SSAGE(2.0); BEG7:=ANYTIME(BIRTHD+55.0,
0.0); BEG8:=ANYTIME(BIRTHD+60.0,0.0); NR1:=13.5*(ASY1+ASY2);
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=13.5*(ASY1+ASY2)*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
13.5*(ASY1+ASY2)*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2);
ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=ER1; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*
VD1; VD2:=ER1; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DR2:=NRT;
DR2Q:=ord(RAS10&ROT10)*AA(QUITD,LNG10)*DR2; DRT:=DR1+DR2; DRQ:=(
DR1Q+DR2Q)*12.0; DS1:=ER1; DS1Q:=ord(RAS4)*DS1; DS2:=ER2; DS2Q:=
ord(RAS5)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY52>=10.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,LNG10,ASY52,RED5,RED4,ASY4,
ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0253s350; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-(HIRED+1.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-
MAX(HIRED+1.0,1976.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(
QUITD,BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*AVG(WAGE,HIRED,
FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.02; MAN7:=SUMI(
PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.0333*a(AGE,60.0,55.0)
+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=
ASY1+ASY2; RAS2:=(AGE>=65.0)&(ASY51>=10.0); RAS4:=(AGE>=55.0)&(
ASY51>=15.0); ROT4:=QAPPROVL; ROT7:=QAPPROVL&(ASY1>=15.0); BEG7:=
ANYTIME(BIRTHD+55.0,0.0); BEG8:=MAX(BIRTHD+65.0,QUITD); NR1:=
0.01*FAP1*(ASY1+ASY2); NR1Q:=ord(RAS1)*NR1; NR2:=300.0; NR2Q:=
ord(RAS2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=AI(
AGE,65.0,70.0)*NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&
ROT4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=ord(ROT7)*AA(
BEG7,0.0)*VD1; VD2:=NR1; VD2Q:=ord(ROT4)*AA(BEG8,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=ERT; DR1Q:=DR1; DRT:=DR1;
DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY51>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,ASY51,RED13,RED4,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0254s336; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-36.0/12.0),FDFAP1)
/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.075; MAN7:=SUMI(
PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RAS1:=ASY1>=20.0; RAS2:=(AGE>=
50.0)&(ASY1>=20.0); ROT2:=PARTD<1971.333; ROT10:=QJRDABLE;
ROT11:=^QJRDABLE; BEG7:=MAX(BIRTHD+50.0,QUITD); NR1:=0.5*FAP1+
0.01*FAP1*o(ASY1,20.0); NR1Q:=ord(RAS2&ROT2)*NR1; NR2:=0.35*FAP1+
0.03*FAP1*b(ASY1,20.0,25.0)+0.01*FAP1*o(ASY1,25.0); NR2Q:=ord(
RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ERQ:=0.0; VD1:=0.017*FAP1*ASY1; VD1Q:=AA(BEG7,0.0)*
VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=0.5*FAP1; DR1Q:=ord(ROT10)*
DR1; DR2:=NR1; DR2Q:=ord(RAS2)*DR2; DR3:=0.25*FAP1+0.025*FAP1*u(
ASY1,10.0); DR3Q:=ord(ROT11)*DR3; DR4:=NR2; DR4Q:=ord(RAS1)*DR4;
DRT:=MAX(MAX(DR2,DR4),DR1,DR3); DRQ:=MAX(MAX(DR2Q,DR4Q),DR1Q,
DR3Q)*12.0; DS1:=DR1; DS1Q:=ord(ROT10)*DS1; DS2:=DR2; DS2Q:=ord(
RAS2)*DS2; DS3:=DR3; DS3Q:=DS3; DS4:=DR4; DS4Q:=ord(RAS1)*DS4;
DST:=MAX(MAX(DS2,DS4),DS1,DS3); DSQ:=MAX(MAX(DS2Q,DS4Q),DS1Q,
DS3Q)*12.0; PRAG:=MIN(0.95*ACPIG,0.03); VEDB:=VOPT(ord(ASY1>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0255s339; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+50.0))*NNMIN(1.0,WRKHRS/12.0); PSY4:=
BIRTHD+65.0-HIRED; PSY5:=MIN(15.0,NN(BIRTHD+65.0-MAX(HIRED,
BIRTHD+50.0))); FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1)/12.0; FDFAP2:=MIN(QUITD,BIRTHD+65.0,1983.0); FAP2:=ord(
FDFAP2>HIRED)*WAGE(FDFAP2)/12.0; FDFAP10:=MIN(QUITD,BIRTHD+65.0);
SDFAP10:=MAX(HIRED,FDFAP10-12.0/12.0); FAP10:=ord(
FDFAP10>SDFAP10)*AVG(WAGE,SDFAP10,FDFAP10)/12.0; SS1:=SS(1.0,
BENIFITD)/12.0; SS2:=SS(1.0,BENIFITD)/12.0; SS10:=SS(5.0,
BENIFITD)/12.0; RED4:=1.0-(0.06*a(AGE,60.0,55.0)+0.02*a(AGE,61.0,
60.0)+0.08*a(AGE,62.0,61.0)); RED5:=1.0-(0.0333*a(AGE,60.0,55.0)+
0.0667*a(AGE,65.0,60.0)); RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(
ASY1>=10.0); ROT2:=(PARTD<1983.0)&(AGE>=55.0)&(ASY1>=15.0);
ROT3:=PARTD<1983.0; ROT10:=QSSDABLE; ROT11:=^QSSDABLE; LNG10:=
BIRTHD+65.0; LNG13:=1.0; BEG7:=MAX(NRD,QUITD); BEG11:=MAX(BIRTHD+
65.0,QUITD); NR1:=NN(0.016*FAP1*ASY1-0.015*SS1*u(ASY1,33.333));
NR1Q:=ord(RAS1)*NR1; NR2:=NN(0.025*FAP1*u(ASY1,20.0)-0.6*SS1);
NR2Q:=ord(RAS1)*NR2; NR3:=(0.01*u(FAP1,350.0)+0.015*o(FAP1,350.0)
)*ASY1; NR3Q:=ord(RAS1&ROT2)*NR3; NR4:=NN(0.03333*FAP1*ASY2-0.65*
SS2); NR4Q:=ord(RAS1&ROT2)*NR4; NR5:=(0.01*u(FAP2,350.0)+0.015*o(
FAP2,350.0))*ASY1; NR5Q:=ord(RAS1&ROT3)*NR5; NR6:=NN(0.03333*
FAP2*ASY2-0.65*SS2); NR6Q:=ord(RAS1&ROT3)*NR6; NRT:=MAX(NR1,NR2,
NR3,NR4,NR5,NR6); NRQ:=MAX(NR1Q,NR2Q,NR3Q,NR4Q,NR5Q,NR6Q)*12.0;
LRQ:=AI(AGE,65.0,70.0)*NRQ; MRAGE:=70.0; ER1:=NN((0.016*FAP1*
PSY4*ASY1/PSY4*RED4-0.015*SS1*u(PSY4,33.33)*ASY1/PSY4)*RED5);
ER1Q:=ord(RAS4)*ER1; ER2:=NN((0.025*FAP1*u(PSY4,20.0)*ASY1/PSY4*
RED4-0.6*SS1*ASY1/PSY4)*RED5); ER2Q:=ord(RAS4)*ER2; ER3:=MAX(NR3*
RED4,0.0333*FAP1*PSY5*ASY2/PSY5*RED4-0.65*SS2*RED5); ER3Q:=ord(
RAS4&ROT2)*ER3; ER4:=MAX(NR5*RED4,0.0333*FAP2*PSY5*ASY2/PSY5*
RED4-0.65*SS2*RED5); ER4Q:=ord(RAS4&ROT3)*ER4; ERT:=MAX(ER1,ER2,
ER3,ER4); ERQ:=MAX(ER1Q,ER2Q,ER3Q,ER4Q)*12.0; VD1:=NR1*ASY1/PSY4;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR2*ASY1/PSY4; VD2Q:=AA(BEG7,0.0)*
VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=0.6*MAX(
FAP1,FAP10); DR1Q:=AA(QUITD,LNG10)*DR1; DR2:=3000.0; DR2Q:=ord(
ROT11)*AA(QUITD,LNG10)*DR2; DR3:=3000.0-0.64*SS10; DR3Q:=ord(
ROT10)*AA(QUITD,LNG10)*DR3; DR4:=MAX(NR1,NR2,ord(ROT2)*NR3,ord(
ROT2)*NR4,ord(ROT3)*NR5,ord(ROT3)*NR6); DR4Q:=AA(BEG11,0.0)*DR4;
DRT:=MIN(DR1,DR2,DR3)+DR4; DRQ:=(MIN(DR1Q,DR2Q,DR3Q)+DR4Q)*12.0;
DS1:=30.0*MAX(FAP1,FAP10); DS1Q:=AA(QUITD,LNG13+QUITD)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR6Q,NR6,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG11,
BEG7,LNG13,LNG10,RED5,RED4,SS10,SS2,SS1,FAP10,SDFAP10,FDFAP10,
FAP2,FDFAP2, FAP1,SDFAP1,FDFAP1,PSY5,PSY4,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0256s362; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-HIRED)*NNMIN(1.0,WRKHRS/2080.0); ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,1976.0))*NNMIN(1.0,WRKHRS/1800.0); ASY3:=
NN(MIN(QUITD,BIRTHD+65.0,1976.0)-HIRED)*1.0; ASY4:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,1976.0))*ord(WRKHRS>=870.0)*1.0; FDFAP1:=
QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1)/12.0; RED4:=
1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=
JSRED; RAS1:=AGE>=65.0; ASY52:=ASY3+ASY4; RAS4:=(AGE>=55.0)&(
ASY52>=5.0); RAS10:=ASY52>=10.0; ROT10:=^QSSDABLE; LNG10:=QUITD;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG13:=MAX(ERD,QUITD);
NR1:=(0.01*u(FAP1,750.0)+0.015*o(FAP1,750.0))*ASY1+ASY2; NR1Q:=
ord(RAS1)*NR1; NR2:=5.0*(ASY1+ASY2); NR2Q:=ord(RAS1)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
NRT; DR1Q:=ord(RAS10)*DR1; DR2:=3.75*(ASY1+ASY2); DR2Q:=ord(
RAS10&ROT10)*AA(QUITD,LNG10)*DR2; DRT:=DR1+DR2; DRQ:=(DR1Q+DR2Q)*
12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*AA(BEG13,0.0)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY52>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG13,BEG7,LNG10,ASY52,
RED13,RED4,FAP1,FDFAP1,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0257s363; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*NNMIN(1.0,WRKHRS/2340.0); PSY4:=BIRTHD+65.0-HIRED;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=NN(1.0-0.05*o(60.0,
AGE)); RED5:=1.0-(0.035*a(AGE,60.0,55.0)+0.07*a(AGE,65.0,60.0));
RED7:=AR(65.0-AGE); RED8:=1.0-(0.035*a(AGE,60.0,55.0)+0.075*a(
AGE,64.0,60.0)); RED13:=NN(1.0-0.0025*o(65.0,AGE)); RAS1:=AGE>=
65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); ROT4:=QAPPROVL; ROT10:=
QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+60.0); BEG10:=MAX(
BIRTHD+65.0,QUITD); NR1:=0.01667*FAP1*u(ASY1,30.0)+0.0075*FAP1*o(
ASY1,30.0)-0.01667*SS1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=350.0;
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q);
LRQ:=NRQ; MRAGE:=70.0; ER1:=(0.01667*FAP1*u(PSY4,30.0)+0.0075*
FAP1*o(PSY4,30.0)*ASY1/PSY4)*RED4-0.01667*SS1*PSY4*ASY1/PSY4*
RED5; ER1Q:=ord(RAS4&ROT4)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4&
ROT4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=(0.01667*
FAP1*u(PSY4,30.0)+0.0075*FAP1*o(PSY4,30.0)*ASY1/PSY4)*RED7-
0.01667*SS1*PSY4*ASY1/PSY4*RED8; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=
NR1*RED7; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q); DR1:=NRT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DRT:=
DR1; DRQ:=DR1Q; DS1:=NN(FAP1/4.0*(0.05/3.0*u(ASY1,30.0)+0.03/4.0*
o(ASY1,30.0))-0.05/3.0*SS1*ASY1*RED5)*RED13; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,RED8,RED7,
RED5,RED4,SS1,FAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0258s365; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-12.0/12.0),FDFAP1)
;SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); RED10:=OTHERB; RED13:=JSRED; RAS1:=(AGE>=
45.0)&(ASY1>=1.0); RAS2:=(AGE>=45.0)&(ASY1>=10.0); ROT7:=^QWDMAN;
ROT10:=QJRDABLE; ROT11:=^QJRDABLE; ROT13:=QJRDEATH; ROT14:=
^QJRDEATH; LNG2:=BIRTHD+65.0; BGN3:=MAX(BIRTHD+65.0,QUITD);
LNG10:=1.0; BEG7:=MAX(NRD,QUITD); NR1:=0.025*FAP1*u(ASY1,40.0)/
12.0; NR1Q:=ord(RAS1)*NR1; NR2:=44.0*u(ASY1,10.0); NR2Q:=ord(
RAS1)*NR2; NR3:=500.0; NR3Q:=ord(RAS2)*AA(BGN3,0.0)*NR3; NR4:=
44.0*u(ASY1,10.0); NR4Q:=ord(RAS2)*AA(QUITD,LNG2)*NR4; NRT:=MAX(
NR1,NR2,NR3+NR4); NRQ:=MAX(NR1Q,NR2Q,NR3Q+NR4Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ERQ:=0.0; VD1:=NRT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*
VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=0.7*FAP1/12.0-RED10; DR1Q:=
ord(ROT10)*DR1; ANMAN7:=ANNPAY(MAN7,BENIFITD); DR2:=ANMAN7;
DR2Q:=ord(ROT10)*AA(QUITD,LNG10+QUITD)*DR2; DR3:=NRT; DR3Q:=ord(
ROT11)*DR3; DRT:=MAX(DR1+DR2,DR3); DRQ:=MAX(DR1Q+DR2Q,DR3Q)*12.0;
DS1:=0.6*FAP1; DS1Q:=ord(ROT13)*DS1; DS2:=0.1*FAP1*u(ASY1,10.0);
DS2Q:=ord(ROT14)*AA(QUITD,LNG10+QUITD)*DS2; DS3:=NRT*RED13;
DS3Q:=ord(ROT14)*DS3; DS4:=ANMAN7; DS4Q:=AA(QUITD,LNG10+QUITD)*
DS4; DST:=MAX(DS1+DS4,DS2+DS4,DS3); DSQ:=MAX(DS1Q+DS4Q,DS2Q+DS4Q,
DS3Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((ASY1>=10.0)!(QUITAGE>=
45.0)&(ASY1>=1.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,
DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,ANMAN7,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,
NR2,NR1Q,NR1,BEG7,LNG10,BGN3,LNG2,RED13,RED10,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0259s366; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED,
1980.0))*1.0; ASY2:=NN(MIN(QUITD,1980.0)-HIRED)*1.0; FAP1:=SUM(
WAGE,HIRED,QUITD); FDFAP2:=QUITD; FAP2:=AVGMIN(30000.0,WAGE,MAX(
HIRED,FDFAP2-5.0),FDFAP2); FAP10:=MIN(30000.0,WAGE(QUITD));
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.0425; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.06*a(AGE,62.0,60.0)+0.07*a(
AGE,63.0,62.0)+0.08*a(AGE,65.0,63.0)); RED13:=JSRED; RAS1:=AGE>=
65.0; RAS4:=AGE>=60.0; LNG10:=BIRTHD+65.0; BEG7:=MAX(BIRTHD+65.0,
QUITD); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=0.0125*FAP1; NR1Q:=
ord(RAS1)*NR1; NR2:=131.25*ASY2+0.0125*FAP2*ASY1; NR2Q:=ord(RAS1)
*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q;
VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=MAX(
0.6*FAP10,600.0); DR1Q:=ord(RAS1)*AA(QUITD,LNG10)*DR1; DR2:=NRT;
DR2Q:=ord(RAS1)*AA(BEG11,0.0)*DR2; DRT:=DR1+DR2; DRQ:=DR1Q+DR2Q;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=5.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG11,BEG7,LNG10,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP10,
FAP2,FDFAP2,FAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0260s370; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY4:=NNMIN(30.0,MIN(
QUITD,BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/7.0); RED4:=NN(1.0-
0.06*o(65.0,AGE)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS2:=(AGE>=
65.0)&(ASY1>=5.0); RAS4:=(AGE>=60.0)&(ASY4>=10.0); RAS10:=ASY4>=
10.0; RAS13:=ASY1>=1.0; ROT1:=PARTD<1973.0; ROT10:=QSSDABLE;
LNG13:=1.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); NR1:=9.0*
ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=9.0*MAX(10.0,ASY1); NR2Q:=ord(
RAS2&ROT1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=NR1; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1;
DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DS2:=
100.0*ASY1; DS2Q:=ord(RAS13)*AA(QUITD,LNG13+QUITD)*DS2; DST:=DS1+
DS2; DSQ:=(DS1Q+DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
60.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,LNG13,RED13,RED4,ASY4,
ASY1,CNQ) <0 then negative end;

procedure c0261s341; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
ASY2:=NN(MIN(QUITD,1982.0)-MAX(HIRED,1956.0))*1.0; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1)/12.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=0.09; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,
FDMAN7); RED4:=NN(1.0-0.06*o(65.0,AGE)); RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY1>=20.0)!(AGE>=62.0)&(ASY1>=10.0); RAS11:=ASY1>=
10.0; ROT1:=PARTD<1982.0; ROT2:=1982.0<=QUITD; ROT7:=^QWDMAN;
ROT10:=QJRDABLE; ROT11:=^QJRDABLE; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=0.97*FAP1*u(ASY1,40.0)/40.0-129.4*u(ASY2,40.0)
/40.0; NR1Q:=ord(RAS1&ROT1)*NR1; NR2:=0.97*FAP1*u(ASY1,40.0)/
40.0; NR2Q:=ord(RAS1&ROT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4&
ROT1)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT7)*
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=FAP1*0.33333;
DR1Q:=ord(ROT10)*DR1; DR2:=FAP1*0.3333; DR2Q:=ord(RAS11&ROT11)*
DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=0.5*ERT;
DS1Q:=ord(RAS4&ROT1)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=NN(
ACPIG-0.0); VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG7,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0262s267; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1981.0)-(HIRED+1.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,1981.0))*ord(WRKHRS>=1000.0)*
1.0; FDFAP1:=MIN(QUITD,1980.0); SDFAP1:=MAX(HIRED,1975.0); FAP1:=
ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDFAP2:=MAX(HIRED,
1981.0); FAP2:=ord(QUITD>SDFAP2)*AVG(WAGE,SDFAP2,QUITD); SS1:=
AVG(SSBASE,HIRED,QUITD); RED4:=1.0-(0.036*a(AGE,60.0,55.0)+0.072*
a(AGE,65.0,60.0)); RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=AGE>=
65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=5.0); BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.007*FAP1*ASY1+0.005*o(
FAP1,10200.0)*ASY1+0.009*FAP2*ASY2+0.007*o(FAP2,SS1)*ASY2; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*
RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0;
DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY51>=7.0)*0.25,ord(ASY51>=8.0)*
0.5,ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0)); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY51,RED13,RED7,RED4,SS1,FAP2,SDFAP2,
FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0263s239; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
5.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.04; MAN7:=
SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.05*o(65.0,AGE)
); RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); LNG13:=1.0;
BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=0.02*FAP1*ASY1; NR1Q:=ord(
RAS1)*NR1; NR2:=0.6*FAP1; NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,NR2);
NRQ:=MIN(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=65.0; ER1:=NRT*RED4; ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*
VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; ANMAN7:=ANNPAY(MAN7,BENIFITD)
;DS1:=ANMAN7*ASY1; DS1Q:=AA(QUITD,LNG13+QUITD)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=9.0))
*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,ANMAN7,DRQ,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG7,LNG13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ)
<0 then negative end;

procedure c0264s293; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED+1.0,BIRTHD+25.0,1976.0))*ord(WRKHRS>=1000.0)*1.0; ASY4:=NN(
MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=
1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,
1981.0); FAP1:=ord(FDFAP1>SDFAP1)*SUM(WAGE,SDFAP1,FDFAP1);
FDFAP2:=MIN(QUITD,BIRTHD+65.0,1981.0); SDFAP2:=MAX(HIRED,FDFAP2-
60.0/12.0,1976.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,
FDFAP2); SDSS1:=MAX(HIRED,1981.0); SS1:=ord(QUITD>SDSS1)*SUM(
SSBASE,SDSS1,QUITD); RED4:=AR(65.0-AGE); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=10.0); BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=0.0075*u(FAP1,SS1)+0.015*o(FAP1,SS1);
NR1Q:=ord(RAS1)*NR1; NR2:=(0.0075*u(FAP2,10000.0)+0.015*o(FAP2,
10000.0))*(ASY1+ASY2); NR2Q:=ord(RAS1)*NR2; NRT:=NR1+NR2; NRQ:=
NR1Q+NR2Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,SS1,SDSS1,FAP2,SDFAP2,
FDFAP2,FAP1,SDFAP1,FDFAP1,ASY4,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0265s248; begin CNQ:=0.0; ASY1:=NNMIN(25.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; VR1MAN7:=ord(6600.0>WAGE(SURVEYD))*
0.015+ord(WAGE(SURVEYD)>=6600.0)*0.03; PCMAN7:=VR1MAN7; MAN7:=
SUMI(PCMAN7,7.0,0.0,SDMAN7,FDMAN7); RED4:=AR(NRD-BENIFITD);
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=AGE>=65.0; ROT1:=
PARTD<1977.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=48.0*
ASY1; NR1Q:=ord(RAS1&ROT1)*NR1; NR2:=0.5*(0.015*u(FAP1,6600.0)+
0.03*o(FAP1,6600.0))*ASY2; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2)
;NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4;
ER1Q:=ord(RAS4&ROT1)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4)*ER2;
ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=ER1; VD1Q:=ord(ROT1)
*AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MAX(
VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=ER1; DR1Q:=ord(ROT1)*DR1;
DR2:=ER2; DR2Q:=DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q);
DS1:=ER1*RED13; DS1Q:=ord(ROT1)*DS1; DS2:=ER2*RED13; DS2Q:=DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(
MAX(ord(ASY2>=3.0)*0.1,ord(ASY2>=7.0)*0.5,ord((QUITAGE>=55.0)!(
ASY2>=12.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,
RED13,RED4,MAN7,PCMAN7,VR1MAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0266s380; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/12.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
3.0),FDFAP1); SS1:=SSBASE(BENIFITD); RED4:=NN(1.0-0.05*o(65.0,
AGE)); RED5:=NN(1.0-0.05*o(60.0,AGE)); RED10:=1.0-(0.02*a(AGE,
51.0,50.0)+0.034*a(AGE,55.0,51.0)+0.05*a(AGE,65.0,55.0)); RAS1:=(
AGE>=65.0)!(AGE>=60.0)&(ASY1>=30.0); RAS2:=(AGE>=50.0)&(ASY1>=
30.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS5:=(AGE>=50.0)&(ASY1>=
10.0); RAS6:=(AGE>=55.0)&(ASY1>=30.0); RAS11:=ASY1>=10.0; ROT4:=
PARTD<1951.0; ROT10:=QCODABLE&(PARTD<1951.0); ROT11:=QCODABLE;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+
50.0,BIRTHD+65.0); BEG11:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
(0.013*u(FAP1,SS1)+0.016*o(FAP1,SS1))*u(ASY1,35.0)+0.01*o(ASY1,
35.0); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS5&ROT4)*ER1; ER2:=NRT*
RED5; ER2Q:=ord(RAS2&ROT4)*ER2; ER3:=NRT*RED4; ER3Q:=ord(RAS4)*
ER3; ER4:=NRT*RED5; ER4Q:=ord(RAS6)*ER4; ERT:=MAX(ER1,ER2,ER3,
ER4); ERQ:=MAX(ER1Q,ER2Q,ER3Q,ER4Q); VD1:=ER3; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT*RED10; DR1Q:=ord(RAS11&ROT10)
*AA(BEG10,0.0)*DR1; DR2:=ER2*RED4; DR2Q:=ord(ROT11)*AA(BEG11,0.0)
*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=ER1; DS1Q:=
ord(RAS5&ROT4)*DS1; DS2:=ER2; DS2Q:=ord(RAS2&ROT4)*DS2; DS3:=ER3;
DS3Q:=ord(RAS4)*DS3; DS4:=ER4; DS4Q:=ord(RAS6)*DS4; DST:=MAX(DS1,
DS2,DS3,DS4); DSQ:=MAX(DS1Q,DS2Q,DS3Q,DS4Q); PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG10,BEG7,RED10,RED5,
RED4,SS1,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0267s389; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0,1976.583)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=
1000.0)*1.0; ASY2:=NNMIN(30.0,MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+
1.0,BIRTHD+25.0,1976.583))*ord(WRKHRS>=1000.0)*1.0; ASY3:=NN(
QUITD-MAX(HIRED+1.0,BIRTHD+25.0,1976.583))*ord(WRKHRS>=1000.0)*
1.0; ASY4:=NN(QUITD-MAX(HIRED,BIRTHD+22.0,1976.583))*ord(WRKHRS>=
1000.0)*1.0; PSY1:=NN(BIRTHD+65.0-MAX(HIRED,BIRTHD+25.0,1976.583)
); FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,
MAX(BENIFITD,BIRTHD+65.0)); RED4:=AR(65.0-AGE); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(ASY4>=30.0)!(AGE>=55.0)&(ASY4>=20.0)!(
AGE>=62.0)&(ASY4>=15.0); BEG7:=MAX(ERD,QUITD); NR1:=0.005*FAP1*
ASY1+(0.015*FAP1-0.025*SS1)*ASY2*ASY3/PSY1; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=ERT*RED13*0.5;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,SS1,FAP1,SDFAP1,FDFAP1,PSY1,
ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0268s391; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/2080.0);
ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+21.0))*ord(
WRKHRS>=1000.0)*1.0; RED4:=NN(1.0-0.0667*o(65.0,AGE)); RED13:=
JSRED; RAS1:=AGE>=65.0; RAS2:=(AGE>=65.0)&(ASY1>=15.0); RAS3:=(
AGE>=65.0)&(ASY1>=20.0); RAS4:=(AGE>=65.0)&(ASY1>=25.0); RAS5:=(
AGE>=65.0)&(ASY1>=30.0); RAS6:=(AGE>=65.0)&(ASY1>=35.0); RAS10:=(
AGE>=62.0)&(ASY2>=20.0); RAS11:=(AGE>=62.0)&(ASY2>=25.0); RAS12:=
(AGE>=62.0)&(ASY2>=30.0); RAS13:=(AGE>=62.0)&(ASY2>=15.0);
RAS14:=(AGE>=62.0)&(ASY2>=35.0); RAS15:=ASY2>=10.0; ROT7:=ASY2>=
15.0; BEG7:=MAX(NRD,QUITD); BEG8:=MAX(ERD,QUITD); BEG10:=MAX(NRD,
QUITD); NR1:=1.5*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=2.0*ASY1; NR2Q:=
ord(RAS2)*NR2; NR3:=4.0*ASY1; NR3Q:=ord(RAS3)*NR3; NR4:=5.0*ASY1;
NR4Q:=ord(RAS4)*NR4; NR5:=6.0*ASY1; NR5Q:=ord(RAS5)*NR5; NR6:=
7.0*ASY1; NR6Q:=ord(RAS6)*NR6; NRT:=MAX(NR1,NR2,NR3,NR4,NR5,NR6);
NRQ:=MAX(NR1Q,NR2Q,NR3Q,NR4Q,NR5Q,NR6Q)*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NR2*RED4; ER1Q:=ord(RAS13)*ER1; ER2:=NR3*RED4; ER2Q:=
ord(RAS10)*ER2; ER3:=NR4*RED4; ER3Q:=ord(RAS11)*ER3; ER4:=NR5*
RED4; ER4Q:=ord(RAS12)*ER4; ER5:=NR6*RED4; ER5Q:=ord(RAS14)*ER5;
ERT:=MAX(ER1,ER2,ER3,ER4,ER5); ERQ:=MAX(ER1Q,ER2Q,ER3Q,ER4Q,ER5Q)
*12.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=ord(
ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*
12.0; DR1:=NRT; DR1Q:=ord(RAS15)*AA(BEG10,0.0)*DR1; DRT:=DR1;
DRQ:=DR1Q*12.0; DS1:=0.5*MAX(NR1,ord(RAS2)*NR2,ord(RAS3)*NR3,ord(
RAS4)*NR4,ord(RAS5)*NR5,ord(RAS6)*NR6)*RED13; DS1Q:=ord(RAS1)*
DS1; DS2:=0.5*MAX(ER1,ord(RAS10)*ER2,ord(RAS11)*ER3,ord(RAS12)*
ER4,ord(RAS14)*ER5)*RED13; DS2Q:=ord(RAS13)*DS2; DST:=MAX(DS1,
DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR6Q,NR6,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG10,BEG8,BEG7,RED13,RED4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0269s329; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,1978.0))*ord(WRKHRS>=1000.0)*1.0; PSY7:=BIRTHD+
65.0-HIRED; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,
FDFAP1-5.0,1977.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=
SUMI(PCMAN7,97.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,MAX(BENIFITD,
BIRTHD+65.0)); SS7:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=1.0-
(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)!(AGE>=55.0)&(ASY1>=10.0);
ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=
MAX(BIRTHD+65.0,QUITD); NR1:=(0.4*u(FAP1,20000.0)+0.35*o(FAP1,
20000.0))*u(ASY1,35.0)/35.0-0.5*SS1*u(ASY1,35.0)/35.0; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=((0.4*u(
FAP1,20000.0)+0.35*o(FAP1,20000.0))*u(ASY1,35.0)/35.0-0.5*SS7*
ASY1/PSY7)*RED4; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=
DR1Q; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,
BEG7,RED13,RED4,SS7,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,
FDFAP1,PSY7,ASY1,CNQ) <0 then negative end;

procedure c0270s798; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-HIRED)*NNMIN(1.0,WRKHRS/1000.0); ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,1976.0))*NNMIN(1.0,WRKHRS/1000.0); ASY3:=
NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+22.0))*NNMIN(1.0,
WRKHRS/1000.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
5.0),FDFAP1)/12.0; SS1:=SSBASE(BENIFITD)/12.0; RED4:=1.0-(0.05*a(
AGE,56.0,55.0)+0.06*a(AGE,62.0,56.0)+0.03*a(AGE,65.0,62.0));
RED7:=AR(55.0-AGE); ASY51:=ASY1+ASY2; RAS1:=(AGE>=62.0)&(ASY51>=
23.0)!(AGE>=65.0)&(ASY51>=5.0); RAS2:=(AGE>=62.0)&(ASY3>=23.0)!(
AGE>=65.0)&(ASY3>=5.0); RAS4:=(AGE>=55.0)&(ASY51>=10.0); RAS13:=
AGE>=55.0; ROT2:=PARTD<1980.0; BEG7:=ANYTIME(0.0,0.0); BEG10:=
ANYTIME(0.0,BIRTHD+65.0); NR1:=(0.0125*u(FAP1,SS1)+0.02*o(FAP1,
SS1))*u(ASY1+ASY2,25.0)+0.0025*FAP1*o(ASY1,25.0); NR1Q:=ord(RAS1&
ROT2)*NR1; NR2:=(0.0125*u(FAP1,SS1)+0.02*o(FAP1,SS1))*u(ASY3,
25.0); NR2Q:=ord(RAS1)*NR2; NR3:=NR1; NR3Q:=ord(RAS2&ROT2)*NR3;
NR4:=NR2; NR4Q:=ord(RAS2)*NR4; NRT:=MAX(NR1,NR2,NR3,NR4); NRQ:=
MAX(NR1Q,NR2Q,NR3Q,NR4Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1;
ER1Q:=ord(RAS4&ROT2)*ER1; ER2:=NR2; ER2Q:=ord(RAS4)*ER2; ER3:=
NR3; ER3Q:=ord(RAS4&ROT2)*ER3; ER4:=NR4; ER4Q:=ord(RAS4)*ER4;
ERT:=MAX(ER1,ER2,ER3,ER4)*RED4; ERQ:=MAX(ER1,ER2,ER3,ER4)*RED4*
12.0; VD1:=ER1; VD1Q:=ord(ROT2)*AA(BEG7,0.0)*VD1; VD2:=ER2;
VD2Q:=AA(BEG7,0.0)*VD2; VD3:=ER3; VD3Q:=ord(ROT2)*AA(BEG7,0.0)*
VD3; VD4:=ER4; VD4Q:=AA(BEG7,0.0)*VD4; VDT:=MAX(VD1,VD2,VD3,VD4)*
RED7; VDQ:=MAX(VD1,VD2,VD3,VD4)*RED7*12.0; DR1:=ER1; DR1Q:=ord(
ROT2)*AA(BEG10,0.0)*DR1; DR2:=ER2; DR2Q:=AA(BEG10,0.0)*DR2; DR3:=
ER3; DR3Q:=ord(ROT2)*AA(BEG10,0.0)*DR3; DR4:=ER4; DR4Q:=AA(BEG10,
0.0)*DR4; DRT:=MAX(DR1,DR2,DR3,DR4)*RED7; DRQ:=MAX(DR1,DR2,DR3,
DR4)*RED7*12.0; DS1:=NR1; DS1Q:=ord(RAS13&ROT2)*DS1; DS2:=NR2;
DS2Q:=ord(RAS13)*DS2; DS3:=NR3; DS3Q:=ord(RAS13&ROT2)*DS3; DS4:=
NR4; DS4Q:=ord(RAS13)*DS4; DST:=MAX(DS1,DS2,DS3,DS4)*0.5; DSQ:=
MAX(DS1,DS2,DS3,DS4)*0.5*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(
ASY3>=5.0)*0.25,ord(ASY3>=7.0)*0.55,ord((ASY3>=10.0)!(QUITAGE>=
65.0)&(ASY3>=5.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,
DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,ASY51,RED7,RED4,SS1,FAP1,
FDFAP1,ASY3,ASY2, ASY1,CNQ) <0 then negative end;

procedure c0271s697; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1968.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1974.0)-
MAX(HIRED,1968.0))*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0,1979.0)-
MAX(HIRED,1974.0))*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1979.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,1980.0);
SDFAP1:=MAX(HIRED,1979.0); FAP1:=ord(FDFAP1>SDFAP1)*WAGE(FDFAP1);
FDFAP2:=MIN(QUITD,BIRTHD+65.0,1979.0); SDFAP2:=MAX(HIRED,FDFAP2-
5.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); FDFAP3:=
MIN(QUITD,BIRTHD+65.0); SDFAP3:=MAX(HIRED,1979.0); FAP3:=ord(
FDFAP3>SDFAP3)*SUM(WAGE,SDFAP3,FDFAP3); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); SS2:=SS(1.0,MAX(BENIFITD,
BIRTHD+65.0)); RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,
65.0,60.0)); RED5:=NN(1.0-0.03*o(62.0,AGE)); RED7:=AR(NRD-
BENIFITD); RED13:=JSRED; RAS1:=AGE>=62.0; RAS4:=AGE>=55.0;
ROT10:=QSSDABLE; BEG7:=ANYTIME(0.0,BIRTHD+65.0); BEG10:=MAX(
BIRTHD+65.0,QUITD); NR1:=(0.00833*FAP1+0.005*o(FAP1,4800.0))*
ASY1+(0.015*FAP1+0.005*o(FAP1,7800.0))*ASY2+(0.02*FAP1-0.0125*
SS1)*ASY3+0.02*FAP3; NR1Q:=ord(RAS1)*NR1; NR2:=(0.00833*FAP2+
0.005*o(FAP2,4800.0))*ASY1+(0.015*FAP2+0.005*o(FAP2,7800.0))*
ASY2+(0.02*FAP2-0.0125*SS1)*ASY3+0.02*FAP3; NR2Q:=ord(RAS1)*NR2;
NR3:=144.0*(ASY1+ASY2+ASY3+ASY4); NR3Q:=ord(RAS1)*NR3; NR4:=NR1-
0.0125*SS2*RED4*ASY4; NR4Q:=ord(RAS1)*NR4; NR5:=NR2-0.0125*SS2*
RED4*ASY4; NR5Q:=ord(RAS1)*NR5; NRT:=MAX(MIN(NR4,NR5),NR3); NRQ:=
MAX(MIN(NR4Q,NR5Q),NR3Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED5;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(ROT10)
*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*0.5;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; ASY58:=ASY1+
ASY2+ASY3+ASY4; VEDB:=VOPT(MAX(ord(ASY58>=5.0)*0.25,ord(ASY58>=
10.0)*0.5,ord((QUITAGE>=55.0)!(ASY58>=15.0))*1.0)); if min( VEDB,
ASY58,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,
NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,RED7,RED5,RED4,SS2,SS1,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP3,SDFAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,
SDFAP1,FDFAP1,ASY4,ASY3,ASY2,ASY1, CNQ) <0 then negative end;

procedure c0272s488; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*ord(WRKHRS>=780.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
70.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SSBASE(BENIFITD);
RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY1>=30.0); RAS3:=(AGE>=50.0)&(
ASY1>=10.0); ROT10:=QCODABLE; BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+
70.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=0.8*FAP1; NR1Q:=NR1;
NR2:=(0.013*u(FAP1,SS1)+0.018*o(FAP1,SS1))*ASY1; NR2Q:=ord(RAS1)*
NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=
70.0; ER1:=120.0+20.0*b(AGE,50.0,52.0)+25.0*b(AGE,52.0,54.0)+
24.0*b(AGE,54.0,56.0)+21.0*b(AGE,56.0,58.0)+30.0*b(AGE,58.0,
60.0); ER2:=(ER1-45.0*b(AGE,60.0,62.0)-75.0*b(AGE,62.0,64.0)-
120.0*b(AGE,64.0,65.0))/120.0; ER3:=2.0*a(AGE,65.0,60.0)/5.0;
ER4:=100.0-4.0*a(AGE,60.0,50.0)-ER3*a(AGE+ASY1,90.0,80.0)-ER2*a(
AGE+ASY1,80.0,60.0); ER5:=MIN(0.8*FAP1,0.01*ER4*NR2); ER5Q:=ord(
RAS3)*ER5; ERT:=ER5; ERQ:=ER5; VD1:=ER5; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS3&ROT10)*AA(BEG10,
0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ER5; DS1Q:=ord(RAS3)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4,ER3,ER2,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,SS1,FAP1,SDFAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0273s659; begin CNQ:=0.0; ASY1:=NNMIN(30.0,QUITD-MAX(
HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; PSY7:=BIRTHD+65.0-
HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),
FDFAP1); RED4:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(AGE>=65.0)&(
ASY1>=10.0); RAS4:=(AGE>=60.0)&(ASY1>=15.0); RAS10:=(AGE>=50.0)&(
ASY1>=10.0); ROT10:=QSSDABLE; BEG7:=MAX(NRD,QUITD); NR1:=0.0075*
FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=AI(AGE,
65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*ASY1/PSY7; VD1Q:=AA(BEG7,0.0)*
VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ERT; DR1Q:=ord(RAS10&ROT10)*DR1;
DR2:=0.5*NRT; DR2Q:=ord(RAS10&ROT10)*DR2; DRT:=MAX(DR1,DR2);
DRQ:=MAX(DR1Q,DR2Q); DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,
RED13,RED4,FAP1,FDFAP1,PSY7,ASY1,CNQ) <0 then negative end;

procedure c0274s594; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
1978.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NNMIN(35.0,QUITD-
MAX(HIRED,1978.0))*NNMIN(1.0,WRKHRS/12.0); FDFAP1:=QUITD;
SDFAP1:=MAX(HIRED,FDFAP1-5.0,1976.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1); SDVOL7:=HIRED; FDVOL7:=QUITD; PCVOL7:=
MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,FDVOL7); SS1:=SSBASE(
BENIFITD); RED4:=NN(1.0-0.05*o(65.0,AGE)); RAS1:=AGE>=65.0;
ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=10.0); RAS10:=ASY51>=
5.0; RAS11:=ASY51>=10.0; ROT7:=ASY1+ASY2>=10.0; ROT10:=QCODABLE;
BEG7:=MAX(NRD,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
BEG10:=MAX(NRD,QUITD); BEG11:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
NR1:=0.015*u(FAP1,SS1)*ASY1+0.0125*u(FAP1,SS1)*ASY2+0.02*o(FAP1,
SS1)*(ASY1+ASY2); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=ord(
ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q);
DR1:=NRT; DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DR2:=ERT; DR2Q:=
ord(RAS11&ROT10)*AA(BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(
DR1Q,DR2Q); DS1:=0.6*ERT; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY51>=5.0)*0.5,ord(ASY51>=
7.0)*0.7,ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0)); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,
VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG11,
BEG10,BEG8,BEG7,ASY51,RED4,SS1,VOL7,PCVOL7,FDVOL7,SDVOL7,FAP1,
SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0275s867; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,1976.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=
MIN(QUITD,BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*AVG(WAGE,HIRED,
FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,
FDFAP2-10.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2);
SDMAN7:=HIRED; FDMAN7:=QUITD; VR1MAN7:=ord(9000.0>WAGE(SURVEYD))*
0.02+ord(WAGE(SURVEYD)>=9000.0)*0.04; PCMAN7:=VR1MAN7; MAN7:=
SUMI(PCMAN7,7.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,BENIFITD); RED4:=
AR(65.0-AGE); RED10:=AR(65.0-AGE); RED13:=JSRED; RED14:=COSTRED;
RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=
10.0); RAS10:=ASY51>=15.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0)
;NR1:=(0.01*u(FAP1,9000.0)+0.02*o(FAP1,9000.0))*(ASY1+ASY2);
NR1Q:=ord(RAS1)*NR1; NR2:=(0.45*FAP2-0.45*SS1)*(ASY1+ASY2)/30.0;
NR2Q:=ord(RAS1)*NR2; NR3:=120.0*(ASY1+ASY2); NR3Q:=ord(RAS1)*NR3;
NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q); LRQ:=NRQ;
MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT*RED10; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=
ERT*RED13*RED14*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,
NR1,BEG7,ASY51,RED14,RED13,RED10,RED4,SS1,MAN7,PCMAN7,VR1MAN7,
FDMAN7,SDMAN7,FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0276s680; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1700.0); ASY4:=NN(MIN(QUITD,1976.0)-HIRED)*NNMIN(1.0,
WRKHRS/1700.0); ASY5:=NN(QUITD-MAX(HIRED,1976.0))*NNMIN(1.0,
WRKHRS/1000.0); RED4:=NN(1.0-0.06*o(60.0,AGE)); RED7:=NN(1.0-
0.06*o(65.0,AGE)); RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY1>=10.0);
RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; ROT7:=ASY1>=
10.0; ROT10:=^QSSDABLE; ROT11:=QSSDABLE; LNG10:=BIRTHD+65.0;
BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=13.0*ASY1; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=65.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=
13.0*ASY1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=13.0*ASY1*RED7; VD2Q:=
ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,
VD2Q)*12.0; DR1:=26.0*ASY1; DR1Q:=ord(RAS10&ROT10)*AA(QUITD,
LNG10)*DR1; DR2:=13.0*ASY1; DR2Q:=ord(RAS10&ROT11)*AA(QUITD,
LNG10)*DR2; DR3:=13.0*ASY1; DR3Q:=ord(RAS10)*AA(BEG11,0.0)*DR3;
DRT:=MAX(DR1+DR3,DR2+DR3); DRQ:=MAX(DR1Q+DR3Q,DR2Q+DR3Q)*12.0;
DS1:=ERT*0.5; DS1Q:=ord(RAS10)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; ASY55:=ASY4+ASY5; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY55>=10.0))*1.0); if min( VEDB,ASY55,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,
ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG8,BEG7,LNG10,
RED7,RED4,ASY5,ASY4,ASY1,CNQ) <0 then negative end;

procedure c0277s532; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1976.0))*ord(WRKHRS>=1000.0)*1.0; PSY4:=NN(BIRTHD+65.0-MAX(
HIRED,1976.0)); PSY5:=NN(MIN(BIRTHD+65.0,1976.0)-HIRED); FDFAP1:=
MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,MAX(
BENIFITD,BIRTHD+65.0))/12.0; SS10:=SS(5.0,BENIFITD)/12.0; RED4:=
1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=
JSRED; RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(
ASY51>=10.0); RAS10:=ASY51>=5.0; ROT7:=QAPPROVL; ROT10:=QSSDABLE;
ROT11:=^QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=
MAX(NRD,QUITD); BEG10:=MAX(NRD,QUITD); NR1:=NN(0.0175*FAP1*u(
ASY1+ASY2,20.0)+0.01*FAP1*b(ASY1+ASY2,20.0,30.0)-0.025*SS1*u(
ASY1+ASY2,20.0)); NR1Q:=ord(RAS1)*NR1; NR2:=2.5*(ASY1+ASY2);
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=AI(AGE,65.0,70.0)*NRQ; MRAGE:=70.0; ER1:=0.0175*FAP1*u(PSY4+
PSY5,20.0)+0.01*FAP1*b(PSY4+PSY5,20.0,30.0); ER1Q:=ord(RAS4)*ER1;
ER2:=NN(ER1-0.025*SS1*u(PSY4+PSY5,20.0))*(ASY1+ASY2)/(PSY4+PSY5)
*RED4; ER2Q:=ord(RAS4)*ER2; ERT:=ER2; ERQ:=ER2Q*12.0; VD1:=ERT;
VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=0.0175*FAP1*u(PSY4+PSY5,
20.0)+0.01*FAP1*b(PSY4+PSY5,20.0,30.0); VD2Q:=AA(BEG8,0.0)*VD2;
VD3:=(VD2-0.025*u(PSY4+PSY5,20.0))*(ASY1+ASY2)/(PSY4+PSY5);
VD3Q:=AA(BEG8,0.0)*VD3; VDT:=MAX(VD1,VD3); VDQ:=MAX(VD1Q,VD3Q)*
12.0; DR1:=NN(0.0175*FAP1*u(ASY1+ASY2,20.0)+0.01*FAP1*b(ASY1+
ASY2,20.0,30.0)-0.025*SS10*u(ASY1+ASY2,20.0)); DR1Q:=ord(RAS10&
ROT10)*AA(BEG10,0.0)*DR1; DR2:=NRT; DR2Q:=ord(RAS10&ROT11)*AA(
BEG10,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*
12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY51>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG8,BEG7,ASY51,
RED13,RED4,SS10,SS1,FAP1,SDFAP1,FDFAP1,PSY5,PSY4,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0279s795; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.667)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1976.667))*ord(WRKHRS>=1000.0)*1.0; RED13:=JSRED; RAS1:=
AGE>=65.0; DAT2:=1984.0<=QUITD; BEG7:=MAX(NRD,QUITD); NR1:=78.0*(
ASY1+ASY2); NR1Q:=ord(RAS1&DAT2)*NR1; NR2:=72.0*(ASY1+ASY2);
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q);
LRQ:=NRQ; MRAGE:=70.0; ERQ:=0.0; VD1:=NR1; VD1Q:=ord(DAT2)*AA(
BEG7,0.0)*VD1; VD2:=NR2; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=NR1*RED13*0.5; DS1Q:=
ord(DAT2)*DS1; DS2:=NR2*RED13*0.5; DS2Q:=DS2; DST:=MAX(DS1,DS2);
DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; ASY51:=ASY1+ASY2; VEDB:=VOPT(ord(
(QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,ASY51,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0281s674; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0,1974.583))*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-
HIRED)*1.0; ASY7:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+
22.0,1974.583))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-60.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0;
SS4:=SS(2.0,MAX(BENIFITD,BIRTHD+62.0))/12.0; SS7:=SS(1.0,MAX(
BENIFITD,BIRTHD+65.0))/12.0; SS10:=SS(5.0,BENIFITD)/12.0; RED4:=
1.0-(0.04*a(AGE,62.0,55.0)+0.02*a(AGE,65.0,62.0)); RED7:=AR(65.0-
AGE); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=
5.0); RAS10:=ASY1>=5.0; LNG13:=10.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG10:=MAX(NRD,QUITD); NR1:=(0.01667*FAP1-0.01667*
SS1)*u(ASY1,30.0)+0.005*FAP1*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=((0.01667*
FAP1-0.01667*SS4)*u(ASY1,30.0)+0.005*FAP1*o(ASY1,30.0))*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=((0.01667*
FAP1-0.01667*SS7)*u(ASY7,30.0)+0.005*FAP1*o(ASY7,30.0))*RED7;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=(0.01667*
FAP1-0.01667*SS10)*u(ASY1,30.0)+0.005*FAP1*o(ASY1,30.0); DR1Q:=
ord(RAS10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*
RED13; DS1Q:=ord(RAS4)*AA(QUITD,LNG13+QUITD)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASYV>=5.0)*0.25,ord(
ASYV>=10.0)*0.5,ord((QUITAGE>=65.0)!(ASYV>=15.0)!(QUITAGE>=55.0)
&(ASYV>=5.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG10,BEG7,LNG13,RED13,RED7,RED4,SS10,SS7,SS4,SS1,FAP1,
SDFAP1,FDFAP1,ASY7,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0283s647; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/2080.0); ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,BENIFITD); SS2:=SS(2.0,
BENIFITD); RED4:=NN(1.0-0.03*o(62.0,AGE)); RAS1:=(AGE>=62.0)&(
ASY2>=10.0); RAS2:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY2>=10.0);
RAS13:=(ASY2>=25.0)!(AGE>=55.0)&(ASY2>=10.0); ROT2:=AGE<65.0;
ROT10:=QCODABLE; LNG4:=BIRTHD+62.0; BGN5:=MAX(BIRTHD+62.0,QUITD);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,
QUITD); NR1:=(0.01667*FAP1-0.01667*SS1)*u(ASY1,30.0)+0.00333*
FAP1*o(ASY1,30.0); NR1Q:=ord(RAS2)*NR1; NR2:=(0.01667*FAP1-
0.01667*SS2)*u(ASY1,30.0)+0.00333*FAP1*o(ASY1,30.0); NR2Q:=ord(
RAS1&ROT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ;
MRAGE:=999.0; ER1:=(0.01667*FAP1*u(ASY1,30.0)+0.00333*FAP1*o(
ASY1,30.0))*RED4; ER1Q:=ord(RAS4)*AA(QUITD,LNG4)*ER1; ER2:=NR2*
RED4; ER2Q:=ord(RAS4)*AA(BGN5,0.0)*ER2; ERT:=ER1+ER2; ERQ:=ER1Q+
ER2Q; VD1:=ER1; VD1Q:=AA(BEG7,LNG4)*VD1; VD2:=ER2; VD2Q:=AA(BGN5,
0.0)*VD2; VDT:=VD1+VD2; VDQ:=VD1Q+VD2Q; DR1:=NR1; DR1Q:=ord(
ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=NR2*0.5;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,
BEG7,BGN5,LNG4,RED4,SS2,SS1,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0284s703; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*
NNMIN(1.0,WRKHRS/2080.0); RED4:=NN(1.0-0.06*o(65.0,AGE)); RED7:=
AR(NRD-BENIFITD); RED13:=JSRED; RED14:=COSTRED; RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=(AGE>=40.0)&(ASY1>=15.0);
ROT7:=ASY1>=10.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=
MAX(BIRTHD+65.0,QUITD); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=13.0*
ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ;
MRAGE:=65.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=NRT*RED7; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=
NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,
VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DRT:=
DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*RED14*0.5; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord((
QUITAGE>=40.0)&(ASYV>=5.0))*0.5,ord((QUITAGE>=38.0)&(ASYV>=7.0))
*0.7,ord((QUITAGE>=65.0)!(QUITAGE>=35.0)&(ASYV>=10.0))*1.0)); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,
VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,
BEG8,BEG7,RED14,RED13,RED7,RED4,ASY1,ASYV,CNQ) <0 then negative
end;

procedure c0285s693; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); PSY4:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; RED4:=NN(
1.0-0.0667*o(65.0,AGE)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(
AGE>=60.0)&(ASY1>=10.0); RAS10:=ASY1>=2.0; ROT10:=QSSDABLE;
BEG7:=ANYTIME(BIRTHD+60.0,0.0); BEG13:=MAX(ERD,QUITD); NR1:=(0.1*
FAP1+0.2*o(FAP1,900.0))*u(ASY1,25.0)/25.0; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=(0.1*FAP1+
0.2*o(FAP1,900.0))*u(ASY1,25.0)/25.0*ASY1/PSY4*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*
DR1; DR2:=(0.1*FAP1+0.2*o(FAP1,900.0))*u(PSY4,25.0)/25.0*PSY4*
0.7; DR2Q:=ord(RAS10&ROT10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(
DR1Q,DR2Q)*12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*AA(BEG13,
0.0)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG13,BEG7,RED13,RED4,FAP1,
SDFAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0287s597; begin CNQ:=0.0; ASY1:=NNMIN(35.0,QUITD-MAX(
HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=(QUITD-
HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,
MAX(HIRED,FDFAP1-36.0/12.0),FDFAP1)/12.0; FDFAP10:=QUITD; FAP10:=
AVG(WAGE,MAX(HIRED,FDFAP10-12.0/12.0),FDFAP10)/12.0; SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,
SDMAN7,FDMAN7); SS1:=SS(1.0,BENIFITD)/12.0; RED4:=1.0-(0.06*a(
AGE,60.0,55.0)+0.05*a(AGE,62.0,60.0)+0.03*a(AGE,65.0,62.0));
RED10:=OTHERB; RED13:=JSRED; RAS1:=(AGE>=65.0)!(ASY1>=35.0)!(
AGE>=62.0)&(ASY1>=30.0); RAS4:=AGE>=55.0; RAS5:=(AGE>=55.0)&(
ASY2>=10.0); RAS10:=ASY2>=10.0; RAS13:=AGE>=55.0; RAS14:=(AGE>=
55.0)&(ASY2>=10.0); ROT4:=PARTD<1977.667; ROT13:=PARTD<1977.667;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.55*FAP1-0.5*SS1)*
ASY1/35.0; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4&ROT4)*ER1; ER2:=
NRT*RED4; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q)*12.0; VD1:=ER1; VD1Q:=ord(ROT4)*AA(BEG7,0.0)*VD1; VD2:=ER2;
VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*
12.0; DR1:=ER1; DR1Q:=ord(RAS4&ROT4)*DR1; DR2:=0.25*FAP10-RED10;
DR2Q:=ord(RAS10)*DR2; DR3:=ER2; DR3Q:=ord(RAS5)*DR3; DRT:=MAX(
MAX(DR1,DR3),DR2); DRQ:=MAX(MAX(DR1Q,DR3Q),DR2Q)*12.0; DS1:=ERT*
RED13*0.5; DS1Q:=ord(RAS13&ROT13)*DS1; DS2:=ERT*RED13*0.5; DS2Q:=
ord(RAS14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED10,RED4,SS1,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP10,FDFAP10,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0288s546; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED,
BIRTHD+25.0))*NNMIN(1.0,WRKHRS/1800.0); ASY2:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); SS1:=SS(2.0,BENIFITD); SS2:=SS(1.0,BENIFITD)
;RED4:=NN(1.0-0.04*o(65.0,AGE)); RED5:=NN(1.0-0.04*o(60.0,AGE));
RED7:=NN(1.0-0.07*o(65.0,AGE)); RAS1:=(AGE>=60.0)&(ASY2>=25.0);
RAS2:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY2>=10.0); RAS5:=(AGE>=
55.0)&(ASY2>=25.0); RAS10:=ASY2>=10.0; RAS13:=(ASY2>=20.0)!(AGE>=
55.0)&(ASY2>=10.0); RAS14:=AGE>=65.0; ROT10:=ASY1>=25.0; LNG2:=
BIRTHD+SSAGE(2.0); BGN3:=BIRTHD+SSAGE(2.0); BEG7:=ANYTIME(BIRTHD+
55.0,0.0); BEG8:=MAX(BIRTHD+65.0,QUITD); BEG10:=ANYTIME(BIRTHD+
60.0,0.0); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=0.02*u(ASY1,25.0)*
FAP1+0.005*o(ASY1,25.0)*FAP1-0.02*ASY1*SS1; NR1Q:=ord(RAS1)*AA(
BGN3,0.0)*NR1; NR2:=0.02*u(ASY1,25.0)*FAP1+0.005*o(ASY1,25.0)*
FAP1; NR2Q:=ord(RAS1)*AA(QUITD,LNG2)*NR2; NR3:=0.02*u(ASY1,25.0)*
FAP1+0.005*o(ASY1,25.0)*FAP1-0.02*ASY1*SS2; NR3Q:=ord(RAS2)*NR3;
NRT:=MAX(NR1+NR2,NR3); NRQ:=MAX(NR1Q+NR2Q,NR3Q); LRQ:=NRQ;
MRAGE:=999.0; ER1:=NR1; ER1Q:=ord(RAS4)*AA(BGN3,0.0)*ER1; ER2:=
NR2; ER2Q:=ord(RAS4)*AA(QUITD,LNG2)*ER2; ER3:=NR1; ER3Q:=ord(
RAS5)*AA(BGN3,0.0)*ER3; ER4:=NR2; ER4Q:=ord(RAS5)*AA(QUITD,LNG2)*
ER4; ERT:=MAX((ER1+ER2)*RED4,(ER3+ER4)*RED5); ERQ:=MAX((ER1Q+
ER2Q)*RED4,(ER3Q+ER4Q)*RED5); VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*
VD1; VD2:=NR3*RED7; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2);
VDQ:=MAX(VD1Q,VD2Q); DR1:=NR1; DR1Q:=ord(RAS10&ROT10)*AA(BGN3,
0.0)*DR1; DR2:=NR3; DR2Q:=ord(RAS10)*AA(BEG11,0.0)*DR2; DR3:=NR2;
DR3Q:=ord(RAS10&ROT10)*AA(BEG10,LNG2)*DR3; DRT:=MAX(DR1+DR3,DR2);
DRQ:=MAX(DR1Q+DR3Q,DR2Q); DS1:=NR1*0.5; DS1Q:=ord(RAS13)*DS1;
DS2:=NR3*0.5; DS2Q:=ord(RAS14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(
DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,
NR2Q,NR2,NR1Q,NR1,BEG11,BEG10,BEG8,BEG7,BGN3,LNG2,RED7,RED5,
RED4,SS2,SS1,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0289s1071; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*NNMIN(1.0,WRKHRS/10.0); FDFAP1:=MIN(QUITD,BIRTHD+
70.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1); FDFAP10:=MIN(QUITD,BIRTHD+70.0); FAP10:=
ord(FDFAP10>HIRED)*WAGE(FDFAP10); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=0.05; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SDMAN8:=
HIRED; FDMAN8:=QUITD; PCMAN8:=0.07; MAN8:=SUMI(PCMAN8,8.0,0.0,
SDMAN8,FDMAN8); RED13:=JSRED; RAS1:=(ASY1>=20.0)!(AGE>=55.0)&(
ASY1>=2.0); RAS10:=ASY1>=15.0; RAS11:=ASY1>=10.0; ROT2:=QVETERAN;
ROT10:=^QJRDABLE; ROT11:=^QJRDABLE&QVETERAN; ROT12:=QJRDABLE;
BEG7:=ANYTIME(BIRTHD+55.0,0.0); NR1:=0.001*b(AGE,40.0,65.0)*FAP1*
ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.8*FAP1; NR2Q:=ord(RAS1)*NR2;
NR3:=15.0*u(ASY1,20.0); NR3Q:=ord(RAS1&ROT2)*NR3; NRT:=MIN(NR1+
NR3,NR2); NRQ:=MIN(NR1Q+NR3Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ERQ:=
0.0; VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR2; VD2Q:=AA(BEG7,
0.0)*VD2; VD3:=NR3; VD3Q:=ord(ROT2)*AA(BEG7,0.0)*VD3; VDT:=MIN(
VD1+VD3,VD2); VDQ:=MIN(VD1Q+VD3Q,VD2Q); DR1:=0.5*FAP10; DR1Q:=
ord(RAS11&ROT11)*DR1; DR2:=0.5*FAP10; DR2Q:=ord(RAS10&ROT10)*DR2;
DR3:=0.72*FAP10; DR3Q:=ord(ROT12)*DR3; DRT:=MAX(DR1,DR2,DR3);
DRQ:=MAX(DR1Q,DR2Q,DR3Q); DS1:=0.667*NRT*RED13; DS1Q:=DS1; DS2:=
1680.0; DS2Q:=DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=
0.03; VEDB:=VOPT(ord((ASY1>=10.0)!(QUITAGE>=55.0)&(ASY1>=2.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,
DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,
MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,MAN8,
PCMAN8,FDMAN8,SDMAN8,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP10,FDFAP10,
FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0290s414; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*NNMIN(1.0,WRKHRS/1560.0); ASY1:=NNMIN(35.0,MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/
1560.0); ASY2:=NNMIN(35.0,MIN(QUITD,BIRTHD+65.0)-HIRED)*NNMIN(
1.0,WRKHRS/1560.0); FDFAP1:=MIN(QUITD,BIRTHD+65.0,QUITD-ASY1+
35.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=0.01; MAN7:=SUMI(PCMAN7,4.0,0.0,SDMAN7,FDMAN7); SDMAN8:=
HIRED; FDMAN8:=QUITD; PCMAN8:=0.02; MAN8:=SUMI(PCMAN8,5.0,0.0,
SDMAN8,FDMAN8); SS1:=SS(1.0,BENIFITD)/12.0; RED4:=NN(1.0-0.03*o(
65.0,AGE)); RED5:=NN(1.0-0.0003*o(94.0,AGE+ASY2)); RED6:=NN(1.0-
0.03*o(94.0,AGE+ASY2)); RED7:=AR(NRD-BENIFITD); RED13:=JSRED;
RED14:=COSTRED; RAS1:=AGE>=65.0; RAS2:=AGE+ASY2>=94.0; RAS4:=(
AGE+ASY1>=70.0)&(AGE>=55.0); RAS5:=(AGE>=50.0)&(ASY1>=10.0);
RAS6:=(AGE>=55.0)&(ASY2>=29.0); RAS10:=ASY1>=10.0; RAS13:=(AGE+
ASY1>=70.0)&(AGE>=55.0); ROT4:=QAPPROVL; ROT10:=QCODABLE; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=0.015*FAP1*
ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.525*FAP1-0.5*SS1)*ASY1/35.0;
NR2Q:=ord(RAS1)*NR2; NR3:=0.5*AGE+2.0*ASY1; NR3Q:=ord(RAS1)*NR3;
NR4:=MAX(NR1,NR2,NR3); NR4Q:=ord(RAS2)*NR4; NRT:=MAX(NR1,NR2,NR3,
NR4); NRQ:=MAX(NR1Q,NR2Q,NR3Q,NR4Q)*12.0; LRQ:=NRQ; MRAGE:=70.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=ER1; ER2Q:=ord(RAS5&
ROT4)*ER2; ER3:=NRT*RED5*RED6; ER3Q:=ord(RAS6)*ER3; ERT:=MAX(ER1,
ER2,ER3); ERQ:=MAX(ER1Q,ER2Q,ER3Q)*12.0; VD1:=NRT*RED7; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=ERT; DR1Q:=ord(
RAS4&ROT10)*AA(BEG10,0.0)*DR1; DR2:=NRT; DR2Q:=ord(RAS10&ROT10)*
AA(BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0;
DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASYV>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG11,BEG10,
BEG7,RED14,RED13,RED7,RED6,RED5,RED4,SS1,MAN8,PCMAN8,FDMAN8,
SDMAN8,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,
ASYV,CNQ) <0 then negative end;

procedure c0291s1046; begin CNQ:=0.0; ASY1:=NNMIN(40.0,MIN(QUITD,
1968.833)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NNMIN(40.0,MIN(
QUITD,1983.0)-MAX(HIRED,1968.833))*NNMIN(1.0,WRKHRS/1600.0);
ASY3:=NNMIN(40.0,QUITD-MAX(HIRED,1983.0))*NNMIN(1.0,WRKHRS/
1600.0); ASY4:=(QUITD-HIRED)*ord(WRKHRS>=400.0)*1.0; RED4:=NN(
1.0-0.04*o(65.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY4>=
10.0); RAS4:=(AGE>=55.0)&(ASY4>=10.0); RAS10:=ASY4>=10.0; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=20.0*(ASY1+ASY2)+27.5*
ASY3; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*
12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS10)*DS1; DST:=DS1; DSQ:=DS1Q*
12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY4>=10.0)*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,ASY4,ASY3,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0292s1053; begin CNQ:=0.0; ASY1:=NNMIN(10.0,MIN(QUITD,
1973.25)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/2080.0); ASY2:=NNMIN(30.0,
QUITD-MAX(HIRED+1.0,1973.25))*NNMIN(1.0,WRKHRS/2080.0); RED4:=AR(
65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2;
RAS4:=(AGE>=55.0)&(ASY51>=15.0); BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=2.5*u(ASY1,10.0)+10.0*u(ASY2,30.0); NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=
0.0; DS1:=ERT*RED13; DS1Q:=DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=
0.0; VEDB:=VOPT(MAX(ord(ASY51>=5.0)*0.25,ord(ASY51>=10.0)*0.5,
ord((QUITAGE>=65.0)!(ASY51>=15.0))*1.0)); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,ASY51,RED13,RED4,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0293s1050; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
FAP10:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.085;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.05*a(AGE,
49.0,48.0)+0.06*a(AGE,50.0,49.0)+0.07*a(AGE,52.0,50.0)); RED13:=
JSRED; RAS1:=(AGE>=52.0)&(ASY1>=25.0)!(AGE>=62.0)&(ASY1>=15.0);
RAS4:=(AGE>=48.0)&(ASY1>=25.0); RAS11:=ASY1>=5.0; ROT10:=
QJRDABLE; ROT11:=^QJRDABLE; ROT13:=QJRDEATH; LNG14:=NRD; BEG7:=
MAX(BIRTHD+52.0,QUITD); BEG13:=MAX(ERD,QUITD); NR1:=0.025*FAP1*u(
ASY1,20.0)+0.02*FAP1*b(ASY1,20.0,25.0)+0.015*FAP1*b(ASY1,25.0,
33.0); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=0.015*FAP1*ASY1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=0.72*FAP10; DR1Q:=ord(ROT10)*DR1; DR2:=NRT;
DR2Q:=ord(ROT10)*DR2; DR3:=MIN(NRT,0.6*FAP1); DR3Q:=ord(RAS11&
ROT11)*DR3; DRT:=MAX(DR1,DR2,DR3); DRQ:=MAX(DR1Q,DR2Q,DR3Q);
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*AA(BEG13,0.0)*DS1; DS2:=0.5*
NRT*RED13; DS2Q:=ord(RAS1)*AA(BEG13,0.0)*DS2; DS3:=FAP10; DS3Q:=
ord(ROT13)*AA(BEG13,LNG14)*DS3; DS4:=2520.0; DS4Q:=AA(BEG13,0.0)*
DS4; DST:=MAX(DS1+DS4,DS2+DS4,DS3+DS4); DSQ:=MAX(DS1Q+DS4Q,DS2Q+
DS4Q,DS3Q+DS4Q); PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=15.0)*1.0); if
min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,
DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG13,BEG7,LNG14,RED13,RED4,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP10,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0294s1051; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; PSY4:=
NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+25.0)); FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); SS1:=SS(1.0,MAX(BENIFITD,
BIRTHD+65.0)); RED4:=NN(1.0-0.04*o(65.0,AGE)); RED7:=AR(65.0-AGE)
;RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=11.0);
ROT7:=ASY1>=11.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=
MAX(BIRTHD+65.0,QUITD); NR1:=(0.02*FAP1-0.02*SS1)*u(ASY1,25.0)+
0.005*FAP1*o(ASY1,25.0); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=
NR1Q; LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=NRT*ASY1/
PSY4*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*
ASY1/PSY4*RED7; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT*ASY1/
PSY4; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,
VD2Q); DRQ:=0.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=4.0)*0.4,ord(
ASY1>=6.0)*0.5,ord((QUITAGE>=65.0)!(ASY1>=11.0))*1.0)); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,
ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,RED13,RED7,
RED4,SS1,FAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0295s392; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/2080.0); ASY2:=NN(MIN(QUITD,
BIRTHD+34.0,1976.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,
WRKHRS/2080.0); ASY3:=NN(MIN(QUITD,BIRTHD+44.0,1976.0)-MAX(HIRED,
BIRTHD+34.0))*NNMIN(1.0,WRKHRS/2080.0); ASY4:=NN(MIN(QUITD,
1976.0)-MAX(HIRED,BIRTHD+44.0))*NNMIN(1.0,WRKHRS/2080.0); ASY5:=
NN(QUITD-MAX(HIRED+1.0,BIRTHD+25.0,1976.0))*NNMIN(1.0,WRKHRS/
2080.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/
12.0),FDFAP1)/12.0; FAP2:=WAGE(QUITD); RED4:=NN(1.0-0.04*o(65.0,
AGE)); RED7:=NN(1.0-0.04*o(62.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=
65.0)!(ASY1>=30.0)!(AGE>=62.0)&(ASY1>=15.0); RAS4:=(AGE>=55.0)&(
ASY1>=10.0); RAS10:=ASY1>=15.0; ROT2:=PARTD<1976.0; ROT7:=
ASY1<15.0; ROT8:=ASY1>=15.0; ROT10:=^QSSDABLE; LNG2:=1.0; LNG10:=
BIRTHD+62.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=
ANYTIME(BIRTHD+55.0,BIRTHD+62.0); NR1:=17.5*u(ASY1,15.0)+19.0*b(
ASY1,15.0,30.0)+20.5*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1; NR2:=
0.011*FAP1*u(ASY1,30.0)+0.012*FAP1*o(ASY1,30.0); NR2Q:=ord(RAS1)*
NR2; NR3:=17.5*ASY5+1.5*o(ASY5,15.0)+1.5*o(ASY5,30.0); NR3Q:=ord(
RAS1&ROT2)*NR3; NR4:=FAP1*(0.011*ASY5+0.001*o(ASY5,30.0)); NR4Q:=
ord(RAS1&ROT2)*NR4; NR5:=MAX(NR3,NR4)+0.01*FAP1*(ASY2/2.0+ASY3+
7.0/4.0*ASY4); NR5Q:=ord(RAS1&ROT2)*NR5; NR6:=0.26*FAP2; NR6Q:=
ord(RAS1)*AA(QUITD,LNG2+QUITD)*NR6; NRT:=NR6+MAX(NR1,NR2,NR5);
NRQ:=(NR6+MAX(NR1,NR2,NR5))*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=
NR1; ER1Q:=ord(RAS4)*ER1; ER2:=NR2; ER2Q:=ord(RAS4)*ER2; ER3:=
NR5; ER3Q:=ord(RAS4&ROT2)*ER3; ER4:=NR6; ER4Q:=ord(RAS4)*AA(
QUITD,LNG2+QUITD)*ER4; ERT:=(ER4+MAX(ER1,ER2,NR3))*RED4; ERQ:=(
ER4+MAX(ER1,ER2,NR3))*RED4*12.0; VD1:=MAX(NR1,NR2)*RED4; VD1Q:=
ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=MAX(NR1,NR2)*RED7; VD2Q:=ord(
ROT8)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*
12.0; DR1:=NR2; DR1Q:=ord(RAS10)*DR1; DR2:=400.0; DR2Q:=ord(
RAS10&ROT10)*AA(QUITD,LNG10)*DR2; DRT:=DR1+DR2; DRQ:=(DR1Q+DR2Q)*
12.0; DS1:=0.5*NR2*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,
ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR6Q,NR6,NR5Q,NR5,NR4Q,NR4,NR3Q,
NR3,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,LNG10,LNG2,RED13,RED7,RED4,FAP2,
FAP1,FDFAP1,ASY5,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0296s407; begin CNQ:=0.0; ASY1:=NNMIN(30.0,QUITD-MAX(
HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; PSY4:=MIN(30.0,
NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+25.0))); FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-10.0),FDFAP1)/12.0; SS1:=SSBASE(
BENIFITD)/12.0; RED4:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=
65.0; RAS4:=(AGE>=60.0)&(ASY1>=10.0); BEG7:=ANYTIME(BIRTHD+60.0,
BIRTHD+65.0); NR1:=(0.2*FAP1+0.3*o(FAP1,SS1))*u(ASY1,30.0)/30.0;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=AI(AGE,65.0,
999.0)*NRQ; MRAGE:=999.0; ER1:=(0.2*FAP1+0.3*o(FAP1,SS1))*ASY1/
PSY4*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=ERT;
DR1Q:=DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*0.5; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(
MAX(ord(ASY1>=5.0)*0.25,ord(ASY1>=9.0)*0.5,ord((QUITAGE>=65.0)!(
ASY1>=14.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG7,RED13,RED4,SS1,FAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then
negative end;

procedure c0297s401; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/2280.0); ASY4:=(QUITD-HIRED)
*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0);
SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVGMIN(
50000.0,WAGE,SDFAP1,FDFAP1); FDSS1:=MIN(QUITD,BIRTHD+65.0); SS1:=
ord(FDSS1>HIRED)*SSBASE(BENIFITD); RED4:=1.0-(0.0333*a(AGE,60.0,
55.0)+0.0667*a(AGE,65.0,60.0)); RED7:=NN(1.0-0.01*o(55.0,AGE));
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=10.0);
RAS13:=ASY4>=10.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG8:=ANYTIME(0.0,BIRTHD+65.0); BEG10:=MAX(NRD,
QUITD); NR1:=(0.01*u(FAP1,SS1)+0.015*o(FAP1,SS1))*u(ASY1,25.0)+(
0.0075*u(FAP1,SS1)+0.01125*o(FAP1,SS1))*b(ASY1,25.0,35.0); NR1Q:=
ord(RAS1)*NR1; NR2:=48.0*u(ASY1,25.0); NR2Q:=ord(RAS1)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ERT*RED7; VD2Q:=AA(BEG8,0.0)*VD2;
VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NRT; DR1Q:=ord(
ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=VD2*RED13;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG8,BEG7,
RED13,RED7,RED4,SS1,FDSS1,FAP1,SDFAP1,FDFAP1,ASY4,ASY1,CNQ) <0
then negative end;

procedure c0298s402; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(35.0,MIN(QUITD,BIRTHD+65.0)-(
HIRED+1.0))*NNMIN(1.0,WRKHRS/12.0); FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=1.0-(0.06*a(AGE,
60.0,55.0)+0.03*a(AGE,62.0,60.0)); RED10:=NN(1.0-(0.01*o(40.0,
AGE)+0.03*a(AGE,55.0,40.0)+0.06*a(AGE,60.0,55.0)+0.03*a(AGE,
65.0,60.0))); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=
14.0); RAS4:=(AGE>=55.0)&(ASY1>=14.0); RAS10:=ASY1>=4.0; ROT7:=
ASY1>=15.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(
BIRTHD+65.0,QUITD); NR1:=0.55*FAP1*ASY1/35.0; NR1Q:=ord(RAS1)*
NR1; NR2:=FAP1*0.9-SS1*ASY1/35.0; NR2Q:=ord(RAS1)*NR2; NRT:=MIN(
NR1,NR2); NRQ:=MIN(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=
ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2;
VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NR1*RED10; DR1Q:=
ord(RAS10)*DR1; DR2:=NR2; DR2Q:=ord(RAS10)*DR2; DRT:=MIN(DR1,DR2)
;DRQ:=MIN(DR1Q,DR2Q); DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,RED13,RED10,RED4,
SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,ASY1,ASYV,CNQ)
<0 then negative end;

procedure c0299s420; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0,1976.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(
QUITD,1976.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*
1.0; ASY3:=NN(QUITD-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=
1000.0)*1.0; ASY4:=NN(QUITD-MAX(HIRED,BIRTHD+21.0))*ord(WRKHRS>=
1000.0)*1.0; SDFAP1:=MAX(HIRED,1976.0); FAP1:=ord(QUITD>SDFAP1)*
AVG(WAGE,SDFAP1,QUITD); FDFAP2:=QUITD; FAP2:=AVG(WAGE,MAX(HIRED,
FDFAP2-3.0),FDFAP2); FDFAP3:=MIN(QUITD,1976.0); SDFAP3:=MAX(
HIRED,1975.0); FAP3:=ord(FDFAP3>SDFAP3)*WAGE(FDFAP3); RED4:=NN(
1.0-0.04*o(65.0,AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=15.0); RAS13:=AGE>=55.0;
ROT2:=(PARTD<1976.0)&(1976.0<=QUITD); ROT7:=ASY3>=15.0; ROT8:=(
PARTD<1976.0)&(1976.0<=QUITD)&(ASY3>=15.0); BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=(0.01*u(FAP1,10800.0)+0.015*o(FAP1,
10800.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.00625*u(FAP2,6600.0)
+0.01375*b(FAP2,6600.0,20000.0)+0.005*o(FAP2,20000.0))*ASY2;
NR2Q:=ord(RAS1)*NR2; NR3:=(0.00625*u(FAP3,6600.0)+0.01375*b(FAP3,
6800.0,20000.0)+0.005*o(FAP3,20000.0))*ASY3; NR3Q:=ord(RAS1&ROT2)
*NR3; NR4:=(0.00625*u(FAP2,6600.0)+0.01375*b(FAP2,6600.0,20000.0)
+0.005*o(FAP2,20000.0))*ASY3; NR4Q:=ord(RAS1&ROT2)*NR4; NR5:=(
0.00625*u(FAP3,6600.0)+0.01375*b(FAP3,6600.0,20000.0)+0.005*o(
FAP3,20000.0))*ASY2; NR5Q:=ord(RAS1)*NR5; NRT:=MAX(NR1+MIN(NR2,
NR5),MIN(NR3,NR4)); NRQ:=MAX(NR1Q+MIN(NR2Q,NR5Q),MIN(NR3Q,NR4Q));
LRQ:=NRQ; MRAGE:=999.0; ER1:=MAX(NR1+MIN(NR2,NR5))*RED4; ER1Q:=
ord(RAS4)*ER1; ER2:=MIN(NR3,NR4)*RED4; ER2Q:=ord(RAS4&ROT2)*ER2;
ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=NRT*RED7; VD1Q:=AA(
BEG7,0.0)*VD1; VD2:=(NR1+MIN(NR2,NR5))*RED4; VD2Q:=ord(ROT7)*AA(
BEG7,0.0)*VD2; VD3:=MIN(NR3,NR4)*RED4; VD3Q:=ord(ROT8)*AA(BEG7,
0.0)*VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1Q,VD2Q,VD3Q); DRQ:=
0.0; DS1:=0.5*ER1*RED13; DS1Q:=ord(RAS13)*DS1; DS2:=0.5*ER2*
RED13; DS2Q:=ord(RAS13&ROT2)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(
DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,
VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,
RED13,RED7,RED4,FAP3,SDFAP3,FDFAP3,FAP2,FDFAP2,FAP1,SDFAP1,ASY4,
ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0300s610; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
68.0,1946.5)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+68.0,1965.5)-MAX(HIRED,1946.5))*ord(WRKHRS>=1000.0)*1.0;
ASY3:=NN(MIN(QUITD,BIRTHD+68.0)-MAX(HIRED,1965.5))*ord(WRKHRS>=
1000.0)*1.0; FDFAP1:=MIN(QUITD,1947.0); SDFAP1:=MAX(HIRED,1946.0)
;FAP1:=ord(FDFAP1>SDFAP1)*WAGE(FDFAP1); FDFAP2:=MIN(QUITD,1965.5)
;SDFAP2:=MAX(HIRED,1946.5); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,
SDFAP2,FDFAP2); SDFAP3:=MAX(HIRED,1965.5); FAP3:=ord(
QUITD>SDFAP3)*AVG(WAGE,SDFAP3,QUITD); SDSS1:=MAX(HIRED,1965.5);
SS1:=ord(QUITD>SDSS1)*SSBASE(BENIFITD); RED4:=AR(65.0-AGE);
RED13:=JSRED; RED14:=COSTRED; RAS1:=AGE>=65.0; ASY53:=ASY1+ASY2+
ASY3; RAS4:=(AGE>=55.0)&(ASY53>=10.0); RAS13:=(AGE>=55.0)&(
ASY53>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(
0.00875*u(FAP1,3000.0)+0.015*o(FAP1,3000.0))*ASY1; NR1Q:=ord(
RAS1)*NR1; NR2:=(0.01125*u(FAP2,3000.0)+0.02*o(FAP2,3000.0))*
ASY2; NR2Q:=ord(RAS1)*NR2; NR3:=(0.015*u(FAP3,SS1)+0.02*o(FAP3,
SS1))*ASY3; NR3Q:=ord(RAS1)*NR3; NRT:=MIN(NR1+NR2+NR3,15000.0);
NRQ:=MIN(NR1Q+NR2Q+NR3Q,15000.0); LRQ:=NRQ; MRAGE:=999.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*
RED4; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0;
DS1:=ERT*RED13*RED14*0.5; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY53>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG7,ASY53,RED14,RED13,RED4,SS1,SDSS1,FAP3,SDFAP3,FAP2,SDFAP2,
FDFAP2,FAP1,SDFAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0301s1057; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED,
1968.5))*NNMIN(1.0,WRKHRS/1500.0); ASY2:=NN(QUITD-MAX(HIRED,
1976.0))*NNMIN(1.0,WRKHRS/1000.0); ASY3:=NNMIN(25.0,MIN(QUITD,
1968.5)-HIRED)*NNMIN(1.0,WRKHRS/1500.0); ASY4:=NN(MIN(QUITD,
1976.0)-HIRED)*NNMIN(1.0,WRKHRS/1500.0); RED4:=NN(1.0-0.05*o(
65.0,AGE)); ASY54:=ASY2+ASY4; RAS1:=(AGE>=65.0)&(ASY54>=10.0);
RAS4:=(AGE+ASY54>=70.0)&(ASY54>=10.0); RAS10:=ASY54>=10.0;
RAS13:=ASY2>=2.0; RAS14:=ASY54>=10.0; LNG13:=1.0; BEG7:=MAX(
BIRTHD+70.0-ASY54,QUITD); NR1:=4.5*ASY3; NR1Q:=ord(RAS1)*NR1;
NR2:=16.5*ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=NR1+NR2; NRQ:=(NR1Q+
NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*NRT; DS1Q:=ord(RAS14)*DS1;
DS2:=1000.0+(60.0-o(AGE,39.0))*200.0; DS2Q:=ord(RAS13)*AA(QUITD,
LNG13+QUITD)*DS2; DST:=DS1+DS2; DSQ:=(DS1Q+DS2Q)*12.0; PRAG:=0.0;
VEDB:=VOPT(ord(ASY54>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,
DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,LNG13,ASY54,RED4,ASY4,
ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0302s467; begin CNQ:=0.0; ASY1:=NNMIN(5.0,MIN(QUITD,
1972.333)-MAX(HIRED,1962.417))*ord(WRKHRS>=1200.0)*1.0; ASY2:=NN(
MIN(QUITD,1981.0)-MAX(HIRED,1972.333))*NNMIN(1.0,WRKHRS/1200.0);
ASY3:=NN(QUITD-MAX(HIRED,1981.0))*NNMIN(1.0,WRKHRS/1200.0);
ASY4:=(QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0; RED4:=NN(1.0-0.06*o(
65.0,AGE)); RED13:=JSRED; ASY53:=ASY1+ASY2+ASY3; RAS1:=(AGE>=
65.0)!(AGE>=62.0)&(ASY53>=10.0); RAS4:=(AGE>=55.0)&(ASY53>=10.0);
RAS10:=ASY53>=5.0; ROT7:=ASY1+ASY2+ASY3>=10.0; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,QUITD); NR1:=
12.0*ASY1+17.0*ASY2+19.5*ASY3; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT7)*
AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(
ASY4>=5.0)*0.5,ord(ASY4>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASY4>=
10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG8,BEG7,ASY53,RED13,RED4,ASY4,ASY3,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0303s436; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
65.0,1973.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY3:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,1973.0))*ord(WRKHRS>=1000.0)*1.0; ASY13:=
NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=
1000.0)*1.0; PSY4:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0));
RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0));
RED5:=AR(55.0-AGE); RED6:=NN(1.0-0.04*o(62.0,AGE)); RED7:=AR(
65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=62.0)!(
AGE>=50.0)&(ASY1>=15.0); RAS13:=(AGE>=62.0)!(ASY13>=10.0); DAT2:=
QUITD<1973.0; ROT2:=(PARTD<1973.0)&(PARTD<1973.0)&(FAP1>50000.0);
ROT10:=QCODABLE; BEG7:=ANYTIME(BIRTHD+62.0,BIRTHD+65.0); BEG8:=
ANYTIME(BIRTHD+50.0,BIRTHD+65.0); BEG10:=MAX(ERD,QUITD); NR1:=NN(
0.015*FAP1*ASY1-0.01667*SS1*ASY1); NR1Q:=ord(RAS1)*NR1; NR2:=
0.01*FAP1*ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=NN((0.015*u(FAP1,
50000.0)+0.01*o(FAP1,50000.0))*ASY2+0.015*FAP1*ASY3-0.01667*SS1*
ASY1); NR3Q:=ord(RAS1&ROT2)*NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(
NR1Q,NR2Q,NR3Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NN((0.015*FAP1*
ASY1*RED6-0.0167*SS1*u(PSY4,30.0)*ASY1/PSY4)*RED4)*RED5; ER1Q:=
ord(RAS4)*ER1; ER2:=NR2*RED6; ER2Q:=ord(RAS4)*ER2; ER3:=NN(((
0.015*u(FAP1,50000.0)+0.01*o(FAP1,50000.0))*ASY2+0.015*FAP1*
ASY3)*RED6-0.0167*SS1*u(PSY4,30.0)*ASY1/PSY4)*RED4; ER3Q:=ord(
RAS4&ROT2)*ER3; ER4:=ER3*RED5; ER4Q:=ord(RAS4&ROT2)*ER4; ERT:=
MAX(ER1,ER2,ER4); ERQ:=MAX(ER1Q,ER2Q,ER4Q); VD1:=MAX((0.015*FAP1*
ASY1-0.01667*SS1*u(PSY4,30.0)*ASY1/PSY4)*RED7,NR2*RED7); VD1Q:=
AA(BEG7,0.0)*VD1; VD2:=NN((0.015*u(FAP1,50000.0)+0.01*o(FAP1,
50000.0))*ASY2+0.015*FAP1*ASY3-0.01667*SS1*u(PSY4,30.0)*ASY1/
PSY4)*RED7; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*VD2; VD3:=MAX(VD1,VD2);
VD3Q:=AA(BEG8,0.0)*VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1Q,
VD2Q,VD3Q); DR1:=ERT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DRT:=
DR1; DRQ:=DR1Q; DS1:=VD1*RED13; DS1Q:=ord(RAS13)*DS1; DS2:=VD2*
RED13; DS2Q:=ord(RAS1&DAT2)*DS2; DS3:=VD3*RED13; DS3Q:=ord(RAS1)*
DS3; DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q); PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,
ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,
BEG8,BEG7,RED13,RED7,RED6,RED5,RED4,SS1,FAP1,SDFAP1,FDFAP1,PSY4,
ASY13,ASY3,ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0304s451; begin CNQ:=0.0; ASY1:=NNMIN(40.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY4:=MIN(40.0,
BIRTHD+65.0-HIRED); FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-60.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; FDFAP2:=MIN(QUITD,BIRTHD+65.0); FAP2:=ord(
FDFAP2>HIRED)*AVG(WAGE,HIRED,FDFAP2)/12.0; SS1:=SS(1.0,MAX(
BENIFITD,BIRTHD+65.0))/12.0; RED4:=AR(60.0-AGE); RED5:=NN(1.0-
0.05*o(60.0,AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=AGE>=
60.0; RAS4:=(AGE+ASY1>=80.0)&(AGE>=55.0); BEG7:=MAX(BIRTHD+80.0-
ASY1,QUITD); BEG10:=MAX(BIRTHD+60.0,QUITD); NR1:=0.0175*MAX(FAP1,
FAP2)*u(ASY1,15.0)+0.0135*MAX(FAP1,FAP2)*b(ASY1,15.0,40.0)-
0.025*SS1*u(ASY1,20.0); NR1Q:=ord(RAS1)*NR1; NR2:=3.0*ASY1;
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=65.0; ER1:=NR1*MAX(RED4,RED5); ER1Q:=ord(RAS4)*
ER1; ER2:=(0.0175*MAX(FAP1,FAP2)*u(ASY1,15.0)+0.0135*MAX(FAP1,
FAP2)*b(ASY1,15.0,40.0)-0.5*SS1*ASY1/PSY4)*MAX(RED4,RED5); ER2Q:=
ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=
NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=(0.0175*MIN(FAP1,FAP2)*u(
ASY1,15.0)+0.0135*MAX(FAP1,FAP2)*b(ASY1,15.0,40.0)-0.5*SS1*ASY1/
PSY4)*RED7; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q)*12.0; DR1:=NR1; DR1Q:=AA(BEG10,0.0)*DR1; DR2:=0.0175*
MAX(FAP1,FAP2)*u(ASY1,15.0)+0.0135*MAX(FAP1,FAP2)*b(ASY1,15.0,
40.0)-0.5*SS1*ASY1/PSY4; DR2Q:=AA(BEG10,0.0)*DR2; DRT:=MAX(DR1,
DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=60.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG10,BEG7,RED13,RED7,RED5,RED4,SS1,FAP2,FDFAP2,FAP1,SDFAP1,
FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0305s627; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY4:=(QUITD-HIRED)*
1.0; PSY4:=MIN(30.0,BIRTHD+65.0-HIRED); FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/12.0; RED4:=
NN(1.0-0.05*o(62.0,AGE)); RED13:=JSRED; RED14:=COSTRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=10.0); ROT10:=QCODABLE;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=NN(0.02*FAP1*ASY1-0.5*SS1); NR1Q:=ord(
RAS1)*NR1; NR2:=4.0*ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NN(0.02*
FAP1*PSY4-0.5*SS1); ER1Q:=ord(RAS4)*ER1; ER2:=4.0*PSY4; ER2Q:=
ord(RAS4)*ER2; ERT:=MAX(ER1,ER2)*ASY1/PSY4*RED4; ERQ:=MAX(ER1Q,
ER2Q)*ASY1/PSY4*RED4*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=ERT; DR1Q:=ord(ROT10)*AA(BEG10,
0.0)*DR1; DR2:=NRT; DR2Q:=ord(RAS1)*DR2; DRT:=MAX(DR1,DR2); DRQ:=
MAX(DR1Q,DR2Q)*12.0; DS1:=ERT*RED14*RED13*0.5; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,
BEG7,RED14,RED13,RED4,SS1,FAP1,SDFAP1,FDFAP1,PSY4,ASY4,ASY1,CNQ)
<0 then negative end;

procedure c0306s458; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-(HIRED+1.0))*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+65.0,1977.0)-
HIRED)*ord(WRKHRS>=250.0)*1.0; ASY5:=NN(MIN(QUITD,BIRTHD+65.0)-
MAX(HIRED,1977.0))*ord(WRKHRS>=750.0)*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1);
FDSS1:=MIN(QUITD,BIRTHD+65.0); SS1:=ord(FDSS1>HIRED)*SUM(SSBASE,
HIRED,FDSS1); RED4:=AR(NRD-BENIFITD); RED13:=AR(NRD-BENIFITD);
RAS1:=AGE>=65.0; ASY55:=ASY4+ASY5; RAS4:=(AGE>=55.0)&(ASY55>=
10.0); RAS10:=ASY55>=10.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=(0.0125*u(FAP1,SS1)+0.015*o(FAP1,SS1))*
ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT;
DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*
0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=
VOPT(MAX(ord(ASY55>=5.0)*0.25,ord(ASY55>=8.0)*0.5,ord((QUITAGE>=
65.0)!(ASY55>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,ASY55,RED13,RED4,SS1,FDSS1,FAP1,FDFAP1,
ASY5,ASY4,ASY1,CNQ) <0 then negative end;

procedure c0307s459; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,1977.0))*NNMIN(1.0,WRKHRS/1800.0); ASY4:=NN(
MIN(QUITD,BIRTHD+65.0,1977.0)-HIRED)*ord(WRKHRS>=250.0)*1.0;
ASY5:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1977.0))*ord(WRKHRS>=
750.0)*1.0; RED4:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=
65.0; ASY55:=ASY4+ASY5; RAS4:=(AGE>=55.0)&(ASY55>=10.0); RAS10:=
ASY55>=10.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=10.0*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*
12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=
DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY55>=
5.0)*0.25,ord(ASY55>=8.0)*0.5,ord((QUITAGE>=65.0)!(ASY55>=10.0))
*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,
ASY55,RED13,RED4,ASY5,ASY4,ASY1,CNQ) <0 then negative end;

procedure c0308s408; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1948.5)-
HIRED)*1.0; ASY2:=NN(MIN(QUITD,1973.5)-MAX(HIRED,1948.5))*1.0;
ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1973.5))*1.0; FDFAP1:=
MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
SS1:=SS(1.0,BENIFITD); RED4:=NN(1.0-0.04*o(62.0,AGE)); RED7:=1.0-
(0.036*a(AGE,60.0,55.0)+0.06*a(AGE,65.0,60.0)); RED13:=JSRED;
ASY53:=ASY1+ASY2+ASY3; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY53>=
10.0); RAS4:=(AGE>=55.0)&(ASY53>=10.0); ROT10:=QCODABLE!QSSDABLE;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(NRD,QUITD);
NR1:=(0.008*u(FAP1,7800.0)+0.01*o(FAP1,7800.0))*ASY1; NR1Q:=ord(
RAS1)*NR1; NR2:=(0.0115*u(FAP1,7800.0)+0.015*o(FAP1,7800.0))*
ASY2; NR2Q:=ord(RAS1)*NR2; NR3:=0.015*FAP1*ASY3-0.0125*SS1*u(
ASY3,40.0); NR3Q:=ord(RAS1)*NR3; NR4:=(ASY1+ASY2+ASY3)*120.0;
NR4Q:=ord(RAS1)*NR4; NRT:=MAX(NR1+NR2+NR3,NR4); NRQ:=MAX(NR1Q+
NR2Q+NR3Q,NR4Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(ROT10)*AA(BEG10,
0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY53>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,
BEG7,ASY53,RED13,RED7,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,
SDFAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0309s434; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=(QUITD-HIRED)*ord(WRKHRS>=2000.0)*1.0;
PSY7:=BIRTHD+63.0-HIRED; FAP1:=AVG(WAGE,HIRED,QUITD)/12.0; RED4:=
AR(63.0-AGE); RED13:=JSRED; RAS1:=(AGE>=63.0)&(ASY1>=10.0);
RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS13:=(AGE>=53.0)!(AGE>=45.0)&(
ASY1>=10.0); BEG7:=MAX(BIRTHD+63.0,QUITD); NR1:=0.5*FAP1; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=AI(AGE,63.0,999.0)*
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=NRT*ASY1/PSY7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(
RAS13)*DS1; DS2:=0.5*VDT*RED13; DS2Q:=ord(RAS13)*DS2; DST:=MAX(
DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(
ord(ASYV>=10.0)*0.5,ord(ASYV>=13.0)*0.8,ord((ASYV>=15.0)!(
QUITAGE>=65.0)&(ASYV>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,FAP1,PSY7,ASY1,ASYV,CNQ) <0
then negative end;

procedure c0310s506; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVGMIN(6000.0,WAGE,MAX(HIRED,FDFAP1-60.0/
12.0),FDFAP1)/12.0; SS1:=SS(2.0,MAX(BENIFITD,BIRTHD+62.0))/12.0;
SS2:=SS(1.0,BENIFITD)/12.0; RED4:=1.0-(0.05*a(AGE,60.0,50.0)+
0.03*a(AGE,62.0,60.0)); RED7:=AR(NRD-BENIFITD); RED13:=JSRED;
RAS1:=(AGE>=62.0)&(ASY1>=10.0); RAS2:=AGE>=65.0; RAS4:=(AGE>=
50.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; ROT2:=AGE<65.0; ROT10:=
QSSDABLE; BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+65.0); NR1:=ASY1/30.0*
(0.92*u(FAP1,750.0)+0.72*b(FAP1,750.0,1000.0)+0.57*b(FAP1,
1000.0,1250.0)+0.45*b(FAP1,1250.0,1500.0)); NR1Q:=ord(RAS1&ROT2)*
NR1; NR2:=(0.47*b(FAP1,1500.0,3000.0)+0.49*b(FAP1,3000.0,6000.0))
*ASY1/30.0; NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=NN(NR1+NR2-SS1);
NR3Q:=ord(RAS1&ROT2)*NR3; NR4:=NN(NR1+NR2-SS2); NR4Q:=ord(RAS2)*
NR4; NRT:=MAX(NR3,NR4); NRQ:=MAX(NR3Q,NR4Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NR3*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=NR3*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NR3; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=
DR1Q*12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED7,RED4,SS2,SS1,FAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0311s934; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1)
/12.0; FDFAP10:=MIN(QUITD,BIRTHD+65.0); FAP10:=ord(FDFAP10>HIRED)
*WAGE(FDFAP10)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.03;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=AR(65.0-AGE);
RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY1>=5.0); RAS4:=(AGE>=55.0)&(
ASY1>=5.0); RAS10:=ASY1>=10.0; ROT10:=QSSDABLE; LNG10:=BIRTHD+
65.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+
65.0,QUITD); NR1:=(0.018*u(FAP1,400.0)+0.023*o(FAP1,400.0))*ASY1;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*
12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DR1:=0.333*FAP10; DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=0.333*FAP10;
DR2Q:=ord(RAS10&ROT10)*AA(QUITD,LNG10)*DR2; DR3:=NRT; DR3Q:=ord(
RAS10&ROT10)*AA(BEG11,0.0)*DR3; DRT:=MAX(DR1,DR2+DR3); DRQ:=MAX(
DR1Q,DR2Q+DR3Q)*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=
5.0)*0.25,ord(ASY1>=10.0)*0.5,ord((ASY1>=20.0)!(QUITAGE>=55.0)&(
ASY1>=5.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG7,LNG10,RED13,RED4,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP10,FDFAP10,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0312s439; begin CNQ:=0.0; ASY1:=NNMIN(40.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/45.0); FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; FDFAP10:=MIN(QUITD,
BIRTHD+65.0); FAP10:=ord(FDFAP10>HIRED)*WAGE(FDFAP10)/12.0;
RED4:=NN(1.0-0.025*o(65.0,AGE)); RED5:=NN(1.0-0.025*o(85.0,AGE+
ASY1)); RED7:=AR(65.0-AGE); RED10:=OTHERB; RED13:=COSTRED;
RED14:=JSRED; RAS1:=(AGE>=65.0)!(AGE+ASY1>=85.0); RAS4:=(AGE>=
55.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=(0.015*o(FAP1,349.98)+2.0)*ASY1; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5; ER2Q:=ord(
RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=NRT*
RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT;
DR1Q:=ord(RAS10)*DR1; DR2:=0.6*FAP10-RED10; DR2Q:=ord(RAS10)*DR2;
DRT:=MIN(DR1,DR2); DRQ:=MIN(DR1Q,DR2Q)*12.0; DS1:=ERT*RED13*
RED14*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,
BEG7,RED14,RED13,RED10,RED7,RED5,RED4,FAP10,FDFAP10,FAP1,SDFAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0313s756; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/960.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-60.0/12.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,97.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-
0.06*o(60.0,AGE)); RAS1:=(AGE>=60.0)&(ASY1>=10.0); RAS4:=(AGE>=
55.0)&(ASY1>=15.0); RAS10:=ASY1>=10.0; RAS13:=ASY1>=10.0; ROT4:=
ASY1>=25.0; ROT10:=^QJRDABLE; ROT11:=QJRDABLE; BEG7:=MAX(BIRTHD+
60.0,QUITD); NR1:=(0.012*u(FAP1,4200.0)+0.017*o(FAP1,4200.0))*
ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=
70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4&ROT4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=NRT; DR2Q:=ord(ROT11)*
DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.75*NRT;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0314s826; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1977.833)
-HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1977.833))*NNMIN(1.0,
WRKHRS/2080.0); ASY4:=NN(MIN(QUITD,1977.833)-HIRED)*1.0; ASY5:=
NN(QUITD-MAX(HIRED,1977.833))*ord(WRKHRS>=1000.0)*1.0; RED4:=1.0-
(0.0336*a(AGE,60.0,55.0)+0.066*a(AGE,65.0,60.0)); RED13:=JSRED;
RAS1:=AGE>=65.0; ASY55:=ASY4+ASY5; RAS4:=(AGE>=55.0)&(ASY55>=
10.0); RAS10:=ASY55>=10.0; DAT1:=QUITD<1983.083; DAT2:=(
1983.083<=QUITD)&(QUITD<1984.083); DAT3:=1984.083<=QUITD; ROT10:=
QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=3.75*(
ASY1+ASY2); NR1Q:=ord(RAS1&DAT1)*NR1; NR2:=4.0*(ASY1+ASY2);
NR2Q:=ord(RAS1&DAT2)*NR2; NR3:=4.25*(ASY1+ASY2); NR3Q:=ord(RAS1&
DAT3)*NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q)*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&DAT1)*ER1;
ER2:=NR2*RED4; ER2Q:=ord(RAS4&DAT2)*ER2; ER3:=NR3*RED4; ER3Q:=
ord(RAS4&DAT3)*ER3; ERT:=MAX(ER1,ER2,ER3); ERQ:=MAX(ER1Q,ER2Q,
ER3Q)*12.0; VD1:=ER1; VD1Q:=ord(DAT1)*AA(BEG7,0.0)*VD1; VD2:=ER2;
VD2Q:=ord(DAT2)*AA(BEG7,0.0)*VD2; VD3:=ER3; VD3Q:=ord(DAT3)*AA(
BEG7,0.0)*VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1Q,VD2Q,VD3Q)*
12.0; DR1:=NR1; DR1Q:=ord(RAS10&DAT1&ROT10)*DR1; DR2:=NR2; DR2Q:=
ord(RAS10&DAT2&ROT10)*DR2; DR3:=NR3; DR3Q:=ord(RAS10&DAT3&ROT10)*
DR3; DRT:=MAX(DR1,DR2,DR3); DRQ:=MAX(DR1Q,DR2Q,DR3Q)*12.0; DS1:=
ER1*RED13*0.5; DS1Q:=ord(RAS4&DAT1)*DS1; DS2:=ER2*RED13*0.5;
DS2Q:=ord(RAS4&DAT2)*DS2; DS3:=ER3*RED13*0.5; DS3Q:=ord(RAS4&
DAT3)*DS3; DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q)*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY55>=10.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,
NR2Q,NR2,NR1Q,NR1,BEG7,ASY55,RED13,RED4,ASY5,ASY4,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0315s910; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+65.0,1966.0)-
HIRED)*NNMIN(1.0,WRKHRS/2000.0); ASY2:=NN(MIN(QUITD,BIRTHD+65.0,
1968.0)-MAX(HIRED,1966.0))*NNMIN(1.0,WRKHRS/2000.0); ASY3:=NN(
MIN(QUITD,BIRTHD+65.0,1971.0)-MAX(HIRED,1968.0))*NNMIN(1.0,
WRKHRS/2000.0); ASY4:=NN(MIN(QUITD,BIRTHD+65.0,1975.0)-MAX(HIRED,
1971.0))*NNMIN(1.0,WRKHRS/2000.0); ASY5:=NN(MIN(QUITD,BIRTHD+
65.0,1980.0)-MAX(HIRED,1975.0))*NNMIN(1.0,WRKHRS/2000.0); ASY6:=
NN(MIN(QUITD,BIRTHD+65.0,1981.0)-MAX(HIRED,1980.0))*NNMIN(1.0,
WRKHRS/2000.0); ASY7:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1981.0)
)*NNMIN(1.0,WRKHRS/2000.0); ASY8:=NN(MIN(QUITD,BIRTHD+65.0)-
HIRED)*NNMIN(1.0,WRKHRS/2000.0); ASY10:=NN(MIN(QUITD,BIRTHD+65.0)
-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,
1966.0); FAP1:=ord(FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1)/12.0;
FDFAP2:=MIN(QUITD,BIRTHD+65.0,1968.0); SDFAP2:=MAX(HIRED,1966.0);
FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2)/12.0; FDFAP3:=
MIN(QUITD,BIRTHD+65.0,1971.0); SDFAP3:=MAX(HIRED,1968.0); FAP3:=
ord(FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3)/12.0; FDFAP4:=MIN(
QUITD,BIRTHD+65.0,1975.0); SDFAP4:=MAX(HIRED,1971.0); FAP4:=ord(
FDFAP4>SDFAP4)*AVG(WAGE,SDFAP4,FDFAP4)/12.0; FDFAP5:=MIN(QUITD,
BIRTHD+65.0,1980.0); SDFAP5:=MAX(HIRED,1975.0); FAP5:=ord(
FDFAP5>SDFAP5)*AVG(WAGE,SDFAP5,FDFAP5)/12.0; FDFAP6:=MIN(QUITD,
BIRTHD+65.0,1981.0); SDFAP6:=MAX(HIRED,1980.0); FAP6:=ord(
FDFAP6>SDFAP6)*AVG(WAGE,SDFAP6,FDFAP6)/12.0; FDFAP7:=MIN(QUITD,
BIRTHD+65.0); SDFAP7:=MAX(HIRED,1981.0); FAP7:=ord(FDFAP7>SDFAP7)
*AVG(WAGE,SDFAP7,FDFAP7)/12.0; RED4:=1.0-(0.0333*a(AGE,60.0,55.0)
+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=(AGE>=65.0)&(
ASY8>=5.0); RAS4:=(AGE>=55.0)&(ASY8>=10.0); RAS10:=ASY10>=10.0;
RAS13:=(AGE>=55.0)&(ASY10>=10.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.01*u(FAP1,400.0)+0.015*o(FAP1,
400.0))*ASY1+(0.01*u(FAP2,550.0)+0.015*o(FAP2,550.0))*ASY2;
NR1Q:=ord(RAS1)*NR1; NR2:=((0.01*u(FAP3,650.0)+0.015*o(FAP3,
650.0))*ASY3+NR1)*0.4; NR2Q:=ord(RAS1)*NR2; NR3:=(NR2+(0.01*u(
FAP4,650.0)+0.015*o(FAP4,650.0))*ASY4)*0.32; NR3Q:=ord(RAS1)*NR3;
NR4:=((0.01*u(FAP5,650.0)+0.015*o(FAP5,650.0))*ASY5+NR3)*0.2;
NR4Q:=ord(RAS1)*NR4; NR5:=(0.01*u(FAP6,650.0)+0.015*o(FAP6,650.0)
)*ASY6; NR5Q:=ord(RAS1)*NR5; NR6:=0.015*FAP7*ASY7; NR6Q:=ord(
RAS1)*NR6; NR7:=15.0*ASY8; NR7Q:=ord(RAS1)*NR7; NRT:=MAX(NR1+NR2+
NR3+NR4+NR5+NR6,NR7); NRQ:=MAX(NR1Q+NR2Q+NR3Q+NR4Q+NR5Q+NR6Q,
NR7Q)*12.0; LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=(NR1+
NR2+NR3+NR4+NR5+NR6)*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR7*RED4;
ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=
ERT*RED13*0.5; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((ASYV>=10.0)!(QUITAGE>=65.0)&(ASYV>=
5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR7Q,NR7,NR6Q,NR6,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG7,RED13,RED4,FAP7,SDFAP7,FDFAP7,FAP6,SDFAP6,FDFAP6,FAP5,
SDFAP5,FDFAP5,FAP4,SDFAP4,FDFAP4,FAP3,SDFAP3,FDFAP3,FAP2,SDFAP2,
FDFAP2,FAP1,FDFAP1,ASY10,ASY8,ASY7,ASY6,ASY5,ASY4,ASY3,ASY2,
ASY1,ASYV,CNQ) <0 then negative end;

procedure c0316s620; begin CNQ:=0.0; ASY1:=NNMIN(25.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*
1.0; PSY4:=MIN(25.0,BIRTHD+65.0-HIRED); FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+
65.0))/12.0; RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,
65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(
ASY1>=15.0); RAS10:=(AGE>=50.0)&(ASY1>=10.0); ROT7:=ASY1>=15.0;
BEG7:=MAX(NRD,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
NR1:=(0.5*FAP1-0.83333*SS1)*ASY1/25.0; NR1Q:=ord(RAS1)*NR1; NRT:=
NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=(0.5*FAP1-
0.83333*SS1)*PSY4/25.0*ASY4/PSY4*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER1;
VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q)*12.0; DR1:=ERT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=
DR1Q*12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG8,BEG7,RED13,RED4,SS1,FAP1,SDFAP1,FDFAP1,PSY4,ASY4,
ASY1,CNQ) <0 then negative end;

procedure c0317s530; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1976.0)-
MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/1440.0); ASY2:=NN(
QUITD-MAX(HIRED+1.0,BIRTHD+25.0,1976.0))*NNMIN(1.0,WRKHRS/
1800.0); ASY4:=NN(MIN(QUITD,1976.0)-MAX(HIRED,BIRTHD+22.0))*1.0;
ASY5:=NN(QUITD-MAX(HIRED+1.0,BIRTHD+22.0,1976.0))*ord(WRKHRS>=
1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),
FDFAP1); RED4:=NN(1.0-0.072*o(65.0,AGE)); RED13:=JSRED; RED14:=
COSTRED; RAS1:=AGE>=65.0; ASY55:=ASY4+ASY5; RAS4:=(AGE>=55.0)&(
ASY55>=10.0); RAS10:=(AGE>=50.0)&(ASY55>=10.0); ROT10:=QSSDABLE;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.01*FAP1*(ASY1+
ASY2); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=
ERT*RED13*RED14*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY55>=10.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY55,
RED14,RED13,RED4,FAP1,FDFAP1,ASY5,ASY4,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0318s823; begin CNQ:=0.0; ASY1:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); SS1:=SS(1.0,BENIFITD); RED4:=1.0-(0.0333*a(
AGE,60.0,55.0)+0.0668*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=5.0); BEG7:=ANYTIME(BIRTHD+
55.0,0.0); BEG13:=MAX(ERD,QUITD); NR1:=0.015*FAP1*u(ASY1,30.0)+
0.01*FAP1*b(ASY1,30.0,40.0)-0.01667*SS1*u(ASY1,30.0); NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=ERT*RED13*
0.5; DS1Q:=ord(RAS4)*AA(BEG13,0.0)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0)!(QUITAGE>=
55.0)&(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,
BEG13,BEG7,RED13,RED4,SS1,FAP1,FDFAP1,ASY1,CNQ) <0 then negative
end;

procedure c0319s821; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1)/12.0; RED4:=NN(1.0-0.06*o(61.0,AGE)); RED13:=
JSRED; RAS1:=AGE>=61.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=
ASY1>=10.0; ROT4:=QAPPROVL; ROT10:=QSSDABLE; BEG7:=ANYTIME(0.0,
BIRTHD+61.0); BEG8:=MAX(NRD,QUITD); NR1:=0.013*FAP1*ASY1; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=(1.0+0.06*b(AGE,
61.0,70.0))*NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4&ROT4)
*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT4)*AA(
BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*
DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*NRT*RED13; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=61.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,RED13,RED4,FAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0320s435; begin CNQ:=0.0; ASY1:=NNMIN(10.0,MIN(QUITD,
1966.417)-HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1966.417))*1.0;
RED4:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED; ASY51:=ASY1+ASY2;
RAS1:=(AGE>=65.0)&(ASY51>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0);
RAS10:=ASY1>=10.0; LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=MIN(15.0,1.5*
ASY1); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*
12.0; DR1:=ERT; DR1Q:=ord(RAS10)*DR1; DR2:=20.0; DR2Q:=ord(RAS10)
*AA(QUITD,LNG10)*DR2; DR3:=ERT; DR3Q:=ord(RAS10)*AA(BEG11,0.0)*
DR3; DRT:=MAX(DR1,DR2+DR3); DRQ:=MAX(DR1Q,DR2Q+DR3Q)*12.0; DS1:=
ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG11,BEG7,LNG10,ASY51,RED13,RED4,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0321s558; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+24.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=
NN(MIN(QUITD,BIRTHD+65.0,1976.0)-MAX(HIRED+1.0,BIRTHD+22.0))*
ord(WRKHRS>=720.0)*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED+1.0,BIRTHD+22.0,1976.0))*ord(WRKHRS>=1000.0)*1.0; PSY4:=NN(
BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+24.0)); FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,BENIFITD);
SS10:=SS(5.0,BENIFITD); RED4:=1.0-(0.0398*a(AGE,59.0,55.0)+0.055*
a(AGE,62.0,59.0)+0.075*a(AGE,65.0,62.0)); RED13:=1.0-(0.01*a(AGE,
63.0,55.0)+0.02*a(AGE,65.0,63.0)); ASY56:=ASY2+ASY3; RAS1:=(AGE>=
65.0)&(ASY56>=1.0); RAS4:=(AGE>=55.0)&(ASY56>=10.0); RAS5:=(AGE>=
55.0)&(ASY56>=5.0); RAS10:=(AGE+ASY56>=45.0)&(ASY56>=10.0);
RAS11:=(AGE>=55.0)&(ASY56>=10.0); RAS12:=(AGE>=55.0)&(ASY56>=5.0)
;DAT4:=QUITD<1973.5; DAT5:=1973.5<=QUITD; ROT10:=QSSDABLE;
ROT11:=QSSDABLE&(PARTD<1973.5); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=36.0*u(ASY1,5.0)+12.0*b(ASY1,5.0,45.0); NR1Q:=ord(
RAS1)*NR1; NR2:=NN(0.0175*FAP1*u(ASY1,20.0)+0.015*FAP1*b(ASY1,
20.0,30.0)+0.005*FAP1*b(ASY1,30.0,45.0)-0.75*SS1); NR2Q:=ord(
RAS1)*NR2; NRT:=NR1+NR2; NRQ:=NR1Q+NR2Q; LRQ:=NRQ; MRAGE:=70.0;
ER1:=(36.0*u(PSY4,5.0)+12.0*b(PSY4,5.0,45.0))*ASY1/PSY4; ER1Q:=
ord(RAS4&DAT5)*ER1; ER2:=ER1+NN(0.0175*FAP1*u(PSY4,20.0)+0.015*
FAP1*b(PSY4,20.0,30.0)+0.005*FAP1*b(PSY4,30.0,45.0)-0.75*SS1)*
ASY1/PSY4; ER2Q:=ord(RAS4&DAT5)*ER2; ER3:=ER2; ER3Q:=ord(RAS5&
DAT4)*ER3; ERT:=MAX(ER2,ER3)*RED4; ERQ:=MAX(ER2Q,ER3Q)*RED4;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=MAX(
36.0*u(PSY4,5.0)+12.0*b(PSY4,5.0,45.0)-MIN(2500.0,0.5*SS10),
120.0); DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=ERT; DR2Q:=ord(RAS11&
ROT10)*DR2; DR3:=MAX(DR1,DR2); DR3Q:=ord(RAS12&ROT11)*DR3; DRT:=
MAX(DR1,DR2,DR3); DRQ:=MAX(DR1Q,DR2Q,DR3Q); DS1:=ERT*0.42*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)&(ASY56>=1.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,
NR2,NR1Q,NR1,BEG7,ASY56,RED13,RED4,SS10,SS1,FAP1,SDFAP1,FDFAP1,
PSY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0322s577; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*NNMIN(1.0,WRKHRS/1000.0); ASY1:=MIN(30.0,QUITD-
HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY1:=BIRTHD+65.0-HIRED; FDFAP1:=
QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); FAP2:=WAGE(
QUITD); SS1:=SS(1.0,BENIFITD); RED4:=NN(1.0-0.05*o(62.0,AGE));
RED5:=NN(1.0-0.04*o(90.0,AGE+ASY1)); RED7:=AR(65.0-AGE); RED10:=
OTHERB; RED13:=JSRED; RED14:=COSTRED; RAS1:=(AGE>=65.0)!(AGE>=
62.0)&(ASY1>=10.0); RAS2:=(AGE>=62.0)&(ASY1>=10.0); RAS3:=(AGE>=
62.0)&(ASY1>=30.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=
10.0; LNG2:=BIRTHD+65.0; BGN3:=MAX(BIRTHD+65.0,QUITD); BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.01667*FAP1*PSY1-0.03*
SS1*b(PSY1,15.0,30.0))*ASY1/PSY1; NR1Q:=ord(RAS1)*NR1; NR2:=
1320.0; NR2Q:=ord(RAS2)*NR2; NR3:=7200.0; NR3Q:=ord(RAS3)*AA(
QUITD,LNG2)*NR3; NR4:=NR1; NR4Q:=ord(RAS3)*AA(BGN3,0.0)*NR4;
NR5:=0.7*FAP2; NR5Q:=ord(RAS1)*NR5; NRT:=MIN(NR5,MAX(NR1,NR2,NR3+
NR4)); NRQ:=MIN(NR5Q,MAX(NR1Q,NR2Q,NR3Q+NR4Q)); LRQ:=NRQ; MRAGE:=
65.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR3*RED5; ER2Q:=
ord(RAS4)*AA(QUITD,LNG2)*ER2; ER3:=NR1*RED4; ER3Q:=ord(RAS4)*AA(
BGN3,0.0)*ER3; ER4:=NR5; ER4Q:=ord(RAS4)*ER4; ERT:=MIN(ER4,MAX(
ER1,ER2+ER3)); ERQ:=MIN(ER4Q,MAX(ER1Q,ER2Q+ER3Q)); VD1:=NR1*RED7;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR5; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=
MIN(VD1,VD2); VDQ:=MIN(VD1Q,VD2Q); DR1:=NR1-RED10; DR1Q:=ord(
RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ER1*RED13*RED14*0.5; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,
NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,BGN3,LNG2,RED14,RED13,
RED10,RED7,RED5,RED4,SS1,FAP2,FAP1,FDFAP1,PSY1,ASY1,ASYV,CNQ) <0
then negative end;

procedure c0323s859; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,
99.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.06*o(60.0,AGE)); RED13:=
JSRED; RAS1:=(AGE>=55.0)&(ASY1>=30.0)!(AGE>=60.0)&(ASY1>=10.0);
RAS4:=(AGE>=55.0)&(ASY1>=15.0); RAS10:=ASY1>=10.0; RAS13:=(ASY1>=
15.0)!(AGE>=60.0)&(ASY1>=10.0); ROT10:=QSSDABLE&QJRDABLE; ROT11:=
QJRDABLE; BEG7:=MAX(BIRTHD+60.0,QUITD); BEG11:=MAX(BIRTHD+65.0,
QUITD); NR1:=0.015*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=NRT;
DR2Q:=ord(ROT11)*AA(BEG11,0.0)*DR2; DR3:=2200.0; DR3Q:=ord(ROT11)
*DR3; DRT:=MAX(DR1,MIN(DR2,DR3)); DRQ:=MAX(DR1Q,MIN(DR2Q,DR3Q));
DS1:=ERT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=
0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG7,RED13,
RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0324s635; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1980.917)
-MAX(HIRED+1.0,BIRTHD+21.0,1976.0))*ord(WRKHRS>=1000.0)*1.0;
ASY2:=NN(QUITD-MAX(HIRED+1.0,BIRTHD+21.0,1980.917))*ord(WRKHRS>=
1000.0)*1.0; ASY4:=NN(QUITD-MAX(HIRED,1976.0))*ord(WRKHRS>=
1000.0)*1.0; FDFAP1:=MIN(QUITD,1980.917); SDFAP1:=MAX(HIRED,
1979.833); FAP1:=ord(FDFAP1>SDFAP1)*MIN(75000.0,WAGE(FDFAP1));
SDFAP2:=MAX(HIRED,1980.917); FAP2:=ord(QUITD>SDFAP2)*AVGMIN(
75000.0,WAGE,SDFAP2,QUITD); SDSS1:=MAX(HIRED,1980.917); SS1:=ord(
QUITD>SDSS1)*SSBASE(BENIFITD); RED4:=1.0-(0.048*a(AGE,60.0,55.0)+
0.072*a(AGE,65.0,60.0)); RED13:=JSRED; RED14:=COSTRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=5.0); BEG7:=MAX(BIRTHD+65.0,
QUITD); NR1:=(0.01*u(FAP1,9400.0)+0.02*o(FAP1,9400.0))*ASY1+(
0.01*u(FAP2,SS1)+0.02*o(FAP2,SS1))*ASY2; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=ERT*RED14*
RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=10.0)!(QUITAGE>=55.0)&(
ASY4>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED14,
RED13,RED4,SS1,SDSS1,FAP2,SDFAP2,FAP1,SDFAP1,FDFAP1,ASY4,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0325s411; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; ASY2:=NNMIN(35.0,MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED+1.0,BIRTHD+25.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0);
SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0));
RED4:=NN(1.0-0.08*o(60.0,AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED;
RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(
ASY1>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(
BIRTHD+65.0,QUITD); NR1:=(0.018*FAP1-0.014*SS1)*ASY2; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=AA(
BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*0.5; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,RED13,RED7,RED4,SS1,FAP1,
SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0326s932; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,
BIRTHD+22.0))*1.0; PSY7:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=NN(1.0-0.03*o(62.0,
AGE)); RED5:=NN(1.0-0.03*o(65.0,AGE)); RED7:=AR(65.0-AGE);
RED13:=JSRED; RAS1:=AGE>=65.0; RAS2:=(AGE>=62.0)&(ASY1>=30.0);
RAS4:=(AGE>=55.0)&(ASY1>=30.0); RAS5:=(AGE>=55.0)&(ASY2>=10.0);
RAS10:=ASY1>=5.0; RAS13:=(AGE>=65.0)!(ASY1>=20.0); RAS14:=AGE>=
65.0; RAS15:=(AGE>=55.0)&(ASY2>=10.0); ROT10:=QSSDABLE; LNG2:=
BIRTHD+65.0; BGN3:=MAX(BIRTHD+65.0,QUITD); BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=NN((0.025*
FAP1-0.02*SS1)*u(ASY1,10.0)+(0.015*FAP1-0.015*SS1)*b(ASY1,10.0,
30.0)+0.0025*FAP1*o(ASY1,30.0)); NR1Q:=ord(RAS1)*NR1; NR2:=NR1+
0.01667*SS1*u(ASY1,30.0); NR2Q:=ord(RAS2)*AA(QUITD,LNG2)*NR2;
NR3:=NR1; NR3Q:=ord(RAS2)*AA(BGN3,0.0)*NR3; NRT:=MAX(NR1,NR2+NR3)
;NRQ:=MAX(NR1Q,NR2Q+NR3Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4+
0.01667*SS1*u(ASY1,30.0); ER1Q:=ord(RAS4)*AA(QUITD,LNG2)*ER1;
ER2:=NR1*RED4; ER2Q:=ord(RAS4)*AA(BGN3,0.0)*ER2; ER3:=NR1*RED5+
0.01667*SS1*u(ASY1,30.0); ER3Q:=ord(RAS5)*AA(QUITD,LNG2)*ER3;
ER4:=NR1*RED5; ER4Q:=ord(RAS5)*AA(BGN3,0.0)*ER4; ERT:=MAX(ER1+
ER2,ER3+ER4); ERQ:=MAX(ER1Q+ER2Q,ER3Q+ER4Q); VD1:=NN((0.025*FAP1-
0.02*SS1)*u(PSY7,10.0)+(0.015*FAP1-0.015*SS1)*b(PSY7,10.0,30.0)+
0.0025*FAP1*o(PSY7,30.0))*ASY1/PSY7*RED7; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=NR1; DR1Q:=ord(RAS10&ROT10)*AA(BEG10,
0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.01*FAP1*u(ASY1,25.0);
DS1Q:=ord(RAS13)*DS1; DS2:=0.5*NR1*RED13; DS2Q:=ord(RAS14)*DS2;
DS3:=DS1; DS3Q:=ord(RAS15)*DS3; DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(
DS1Q,DS2Q,DS3Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG10,BEG7,BGN3,LNG2,RED13,RED7,RED5,RED4,SS1,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,PSY7,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0327s759; begin CNQ:=0.0; ASY1:=MIN(45.0,QUITD-HIRED)*
1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-4.0),FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.01; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); SDMAN8:=HIRED; FDMAN8:=QUITD; PCMAN8:=
0.07; MAN8:=SUMI(PCMAN8,8.0,0.0,SDMAN8,FDMAN8); RED4:=NN(1.0-
0.06*o(60.0,AGE)); RED10:=1.0-(0.06*a(AGE,51.0,50.0)+0.06*a(AGE,
55.0,51.0)); RAS1:=(AGE>=60.0)&(ASY1>=20.0)!(AGE>=55.0)&(ASY1>=
35.0); RAS2:=(AGE>=62.0)&(ASY1>=5.0); RAS4:=(AGE>=55.0)&(ASY1>=
20.0); RAS10:=ASY1>=10.0; RAS11:=ASY1>=20.0; RAS12:=ASY1>=25.0;
RAS13:=ASY1>=1.0; ROT7:=ASY1<=20.0; ROT8:=(ASY1>20.0)&(ASY1<=
35.0); ROT9:=ASY1>35.0; ROT10:=AGE<=55.0; ROT11:=AGE>55.0; BEG7:=
MAX(BIRTHD+62.0,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+60.0);
BEG9:=MAX(BIRTHD+55.0,QUITD); NR1:=0.0167*FAP1*u(ASY1,10.0)+
0.019*FAP1*b(ASY1,10.0,20.0)+0.021*FAP1*b(ASY1,20.0,30.0)+0.023*
FAP1*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1; NR2:=MAX(0.75*FAP1,
18000.0); NR2Q:=ord(RAS1)*NR2; NR3:=0.01667*FAP1*ASY1; NR3Q:=ord(
RAS2)*NR3; NRT:=MIN(NR2,MAX(NR1,NR3)); NRQ:=MIN(NR2Q,MAX(NR1Q,
NR3Q)); LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=MIN(NR3,NR2); VD1Q:=ord(ROT7)*AA(
BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=ord(ROT8)*AA(BEG8,0.0)*VD2; VD3:=
MIN(NR1,NR2); VD3Q:=ord(ROT9)*AA(BEG9,0.0)*VD3; VDT:=MAX(VD1,VD2,
VD3); VDQ:=MAX(VD1Q,VD2Q,VD3Q); DR1:=NR3; DR1Q:=ord(RAS10)*DR1;
DR2:=NR1*RED10; DR2Q:=ord(RAS11&ROT10)*DR2; DR3:=NR1; DR3Q:=ord(
RAS11&ROT11)*DR3; DR4:=NR1; DR4Q:=ord(RAS12)*DR4; DRT:=MAX(DR1,
DR2,DR3,DR4); DRQ:=MAX(DR1Q,DR2Q,DR3Q,DR4Q); DS1:=MIN(4800.0,MAX(
0.3*FAP1,480.0)); DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.03; VEDB:=VOPT(ord(ASY1>=5.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG9,BEG8,BEG7,RED10,RED4,
MAN8,PCMAN8,FDMAN8,SDMAN8,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,
ASY1,CNQ) <0 then negative end;

procedure c0328s569; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/2000.0); ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-7.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/12.0; RED4:=
NN(1.0-0.05*o(60.0,AGE)); RED7:=NN(1.0-0.05*o(65.0,AGE)); RED13:=
JSRED; RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY2>=10.0); RAS4:=(AGE>=
55.0)&(ASY2>=10.0); RAS10:=ASY2>=10.0; RAS13:=(AGE>=65.0)!(ASY2>=
10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(
BIRTHD+65.0,0.0); NR1:=(0.015*u(FAP1,400.0)+0.02*o(FAP1,400.0))*
ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.8*FAP1-0.5*SS1; NR2Q:=ord(RAS1)
*NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DR2:=
ERT; DR2Q:=ord(RAS4)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*
12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DS2:=0.5*VDT*
RED13; DS2Q:=ord(RAS13)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,
DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,RED7,RED4,SS1,FAP1,
SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0329s744; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
RED4:=1.0-(0.06*a(AGE,60.0,55.0)+0.03*a(AGE,65.0,60.0)); RED7:=
NN(1.0-0.06*o(65.0,AGE)); RED10:=OTHERB; RED13:=JSRED; RED14:=
COSTRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=
ASY1>=10.0; RAS13:=ASY1>=1.0; LNG13:=2.0; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=11.0*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT*RED7; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT-RED10; DR1Q:=
ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13*
RED14; DS1Q:=ord(RAS4)*DS1; DS2:=150.0; DS2Q:=ord(RAS13)*AA(
QUITD,LNG13+QUITD)*DS2; DST:=DS1+DS2; DSQ:=(DS1Q+DS2Q)*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,
LNG13,RED14,RED13,RED10,RED7,RED4,ASY1,CNQ) <0 then negative end;

procedure c0330s672; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1976.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
65.0,1978.0); SDFAP1:=MAX(HIRED,FDFAP1-1.0,1977.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; FDFAP2:=MIN(QUITD,
BIRTHD+65.0); SDFAP2:=MAX(HIRED,1978.0); FAP2:=ord(FDFAP2>SDFAP2)
*AVG(WAGE,SDFAP2,FDFAP2)/12.0; RED4:=1.0-(0.0333*a(AGE,60.0,55.0)
+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=
ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=10.0); BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=(0.01*u(FAP1,650.0)+0.0175*o(FAP1,650.0))
*ASY1+(0.01*u(FAP2,650.0)+0.0175*o(FAP2,650.0))*ASY2; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=(1.0+0.06*b(AGE,65.0,
67.0)+0.07*b(AGE,67.0,69.0)+0.08*b(AGE,69.0,70.0))*NRQ; MRAGE:=
70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*
12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DRQ:=0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY51>=5.0)*0.5,
ord(ASY51>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0)); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY51,RED13,RED4,FAP2,
SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0331s667; begin CNQ:=0.0; ASY1:=MIN(30.0,QUITD-HIRED)*
ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,1976.75)-HIRED)*1.0;
ASY3:=NN(QUITD-MAX(HIRED+1.0,BIRTHD+21.0,1976.75))*1.0; ASY4:=
MIN(34.0,QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY4:=BIRTHD+65.0-
HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),
FDFAP1)/12.0; SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=
NN(1.0-0.048*o(65.0,AGE)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY1>=15.0); RAS5:=(AGE>=55.0)&(ASY1>=35.0); ROT2:=
1974.917<=QUITD; ROT10:=QCODABLE&QSSDABLE; ROT11:=^QCODABLE&
QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG11:=MAX(
BIRTHD+65.0,QUITD); NR1:=(0.015*FAP1-0.0167*SS1)*ASY1; NR1Q:=ord(
RAS1)*NR1; NR2:=0.00687*FAP1*ASY1; NR2Q:=ord(RAS1&ROT2)*NR2;
NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NR1; ER1Q:=ord(RAS4)*ER1; ER2:=NR2; ER2Q:=ord(RAS5&
ROT2)*ER2; ERT:=MAX(MAX(ER1,ER2)*ASY4/PSY4*RED4,MAX(ER1,ER2)*
RED4); ERQ:=MAX(MAX(ER1Q,ER2Q)*ASY4/PSY4*RED4,MAX(ER1Q,ER2Q)*
RED4)*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NRT; DR1Q:=ord(ROT11)*DR1; DR2:=NRT; DR2Q:=ord(
ROT10)*AA(BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*
12.0; DS1:=ER1*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DS2:=ER2*RED13*
0.5; DS2Q:=ord(RAS5)*DS2; DST:=MAX(MAX(DS1,DS2)*ASY4/PSY4*RED4,
MAX(ER1,ER2)*RED4); DSQ:=MAX(MAX(DS1Q,DS2Q)*ASY4/PSY4*RED4,MAX(
ER1Q,ER2Q)*RED4)*12.0; PRAG:=0.0; ASY56:=ASY2+ASY3; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY56>=10.0))*1.0); if min( VEDB,ASY56,PRAG,
DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,
NR1Q,NR1,BEG11,BEG7,RED13,RED4,SS1,FAP1,FDFAP1,PSY4,ASY4,ASY3,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0332s763; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
68.0)-(HIRED+1.0))*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(
AGE,64.0,60.0)+0.07*a(AGE,65.0,64.0)); RED13:=JSRED; RAS1:=(AGE>=
65.0)&(ASY1>=3.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0)!(AGE>=59.0)&(
ASY1>=12.0)!(AGE>=58.0)&(ASY1>=14.0); RAS5:=(AGE>=57.0)&(ASY1>=
16.0)!(AGE>=56.0)&(ASY1>=18.0)!(AGE>=55.0)&(ASY1>=20.0); BEG7:=
ANYTIME(BIRTHD+60.0,BIRTHD+65.0); NR1:=0.015*FAP1*ASY1; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED4; ER2Q:=ord(RAS5)*
ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=NRT*RED4;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=NRT*
RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((ASY1>=10.0)!(QUITAGE+ASY1>=70.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,
ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,FAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0333s564; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1976.0)-
HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(QUITD-MAX(HIRED+1.0,
BIRTHD+25.0,1976.0))*ord(WRKHRS>=1000.0)*1.0; PSY4:=BIRTHD+62.0-
HIRED; PSY5:=NN(BIRTHD+62.0-MAX(HIRED+1.0,BIRTHD+25.0,1976.0));
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0;
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=1.0-(0.0667*a(
AGE,60.0,55.0)+0.0333*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=
AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=15.0);
RAS5:=(AGE>=55.0)&(ASY2>=15.0); RAS10:=ASY51>=10.0; RAS11:=ASY2>=
10.0; RAS13:=(AGE>=55.0)&(ASY51>=10.0); RAS14:=(AGE>=55.0)&(
ASY2>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.5*
FAP1-0.5*SS1)*u(ASY1+ASY2,20.0)/20.0; NR1Q:=ord(RAS1)*NR1; NRT:=
NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*u(ASY1+
ASY2,PSY4)/PSY4*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*u(ASY2,PSY5)/
PSY5*RED4; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q)*12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=AA(
BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=
NRT*u(ASY1+ASY2,PSY4)/PSY4; DR1Q:=ord(RAS10)*DR1; DR2:=NRT*u(
ASY2,PSY5)/PSY5; DR2Q:=ord(RAS11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=
MAX(DR1Q,DR2Q)*12.0; DS1:=0.5*ER1*RED13; DS1Q:=ord(RAS13)*DS1;
DS2:=0.5*ER2*RED13; DS2Q:=ord(RAS14)*DS2; DST:=MAX(DS1,DS2);
DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY51,
RED13,RED4,SS1,FAP1,FDFAP1,PSY5,PSY4,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0334s665; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-(HIRED+1.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/2080.0); FDFAP1:=MIN(
QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,MAX(
BENIFITD,BIRTHD+65.0))/12.0; RED4:=NN(1.0-0.03*o(65.0,AGE));
RED5:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0));
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0);
RAS10:=ASY1>=10.0; RAS13:=(AGE>=65.0)!(AGE>=55.0)&(ASY1>=10.0);
ROT10:=QCODABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=
MAX(BIRTHD+65.0,QUITD); NR1:=0.0175*FAP1*ASY2-0.0125*SS1*ASY2;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=0.0175*FAP1*ASY2*RED4-0.0125*SS1*ASY2*RED5; ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10&
ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*NRT*
RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,RED13,RED5,RED4,
SS1,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0335s544; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1969.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1974.0)-
MAX(HIRED,1969.0))*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0,1976.0)-
MAX(HIRED,1974.0))*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED+1.0,1976.0))*1.0; ASY5:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*
NNMIN(1.0,WRKHRS/1000.0); FDFAP1:=MIN(QUITD,BIRTHD+65.0,1969.0);
SDFAP1:=MAX(HIRED,1964.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0,1974.0); SDFAP2:=
MAX(HIRED,1969.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,
FDFAP2); FDFAP3:=MIN(QUITD,BIRTHD+65.0,1976.0); SDFAP3:=MAX(
HIRED,1974.0); FAP3:=ord(FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3);
FDFAP4:=MIN(QUITD,BIRTHD+65.0); SDFAP4:=MAX(HIRED,1976.0); FAP4:=
ord(FDFAP4>SDFAP4)*AVG(WAGE,SDFAP4,FDFAP4); RED4:=1.0-(0.0333*a(
AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY5>=10.0); RAS10:=ASY5>=10.0;
ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(
0.0075*FAP1+0.0075*o(FAP1,7200.0))*ASY1+(0.0075*FAP2+0.0075*o(
FAP2,7200.0))*ASY2; NR1Q:=ord(RAS1)*NR1; NR2:=(0.0075*FAP3+
0.0075*o(FAP3,7800.0))*ASY3+(0.0075*FAP4+0.0075*o(FAP4,7899.0))*
ASY4+NR1; NR2Q:=ord(RAS1)*NR2; NRT:=NR2; NRQ:=NR2Q; LRQ:=AI(AGE,
65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1;
DRQ:=DR1Q; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY5>=5.0)*0.5,ord(
ASY5>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASY5>=10.0))*1.0)); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,
RED4,FAP4,SDFAP4,FDFAP4,FAP3,SDFAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,
FAP1,SDFAP1,FDFAP1,ASY5,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0336s567; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1949.5)-MAX(HIRED,BIRTHD+30.0))*ord(WRKHRS>=1000.0)*1.0;
ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1959.5)-MAX(HIRED,1949.5))*ord(
WRKHRS>=1000.0)*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0,1986.0)-MAX(
HIRED,1959.5))*ord(WRKHRS>=1000.0)*1.0; ASY4:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,1986.0))*ord(WRKHRS>=1000.0)*1.0; ASY5:=
NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0,1959.5); FAP1:=ord(FDFAP1>HIRED)*
WAGE(FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0,1986.0); SDFAP2:=MAX(
HIRED,1959.5); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2);
FDFAP3:=MIN(QUITD,BIRTHD+65.0); SDFAP3:=MAX(HIRED,1986.0); FAP3:=
ord(FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3); SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,
FDMAN7); RED4:=1.0-(0.15*a(AGE,61.0,60.0)+0.2*a(AGE,62.0,61.0));
RED5:=AR(65.0-AGE); RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY5>=15.0);
RAS4:=(AGE>=60.0)&(ASY5>=15.0); RAS5:=AGE>=55.0; RAS13:=AGE>=
50.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.02*FAP1*(
ASY1+ASY2)+0.02*FAP2*ASY3+(0.01*u(FAP3,3000.0)+0.02*o(FAP3,
3000.0))*ASY4; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=
NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*
RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)
;VD1:=ER2; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0;
DS1:=0.5*NRT; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY5>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,
ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED5,RED4,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP3,SDFAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,
FDFAP1,ASY5,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0337s774; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(
HIRED,FDFAP1-60.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.01;
MAN7:=SUMI(PCMAN7,4.0,0.0,SDMAN7,FDMAN7); SDMAN8:=HIRED; FDMAN8:=
QUITD; PCMAN8:=0.045; MAN8:=SUMI(PCMAN8,5.0,0.0,SDMAN8,FDMAN8);
SS1:=SS(1.0,BENIFITD)/12.0; RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+
0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS2:=(
AGE>=65.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=NN(0.02*FAP1-0.015*SS1)*
ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=NN(0.4*FAP1-0.83333*SS1); NR2Q:=
ord(RAS2)*NR2; NR3:=12.0*ASY2; NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1,
NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q)*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=
0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG7,RED13,RED4,SS1,MAN8,PCMAN8,FDMAN8,SDMAN8,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0338s617; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*
1.0; PSY4:=BIRTHD+62.0-HIRED; PSY7:=MIN(30.0,BIRTHD+65.0-HIRED);
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(
1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; SS4:=SS(2.0,MAX(BENIFITD,
BIRTHD+62.0))/12.0; RED4:=NN(1.0-0.04*o(62.0,AGE)); RED7:=1.0-(
0.04*a(AGE,60.0,55.0)+0.06*a(AGE,65.0,60.0)); RED13:=JSRED;
RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(
ASY1>=10.0); RAS10:=ASY1>=10.0; RAS13:=(AGE>=37.0)&(ASY1>=10.0);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=(0.01667*FAP1-0.01667*SS1)*ASY1; NR1Q:=
ord(RAS1)*NR1; NR2:=15.0*ASY2; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,
NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=(
0.01667*FAP1*ASY1-0.01667*SS4*ASY1/PSY4)*RED4; ER1Q:=ord(RAS4)*
ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=
MAX(ER1Q,ER2Q)*12.0; VD1:=(0.01667*FAP1*PSY7-0.01667*SS1*PSY7)*
ASY1/PSY7*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR2; VD2Q:=AA(BEG7,
0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=ERT;
DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*
12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,RED7,RED4,SS4,SS1,FAP1,
SDFAP1,FDFAP1,PSY7,PSY4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0339s600; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/2000.0); ASY2:=NN(QUITD-MAX(
HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1); SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,
SDMAN7,FDMAN7); RED4:=NN(1.0-0.03*o(65.0,AGE)); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY2>=15.0); RAS13:=(AGE>=
55.0)&(ASY2>=15.0)!(AGE>=60.0)&(ASY2>=10.0); ROT7:=ASY2>=15.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,
QUITD); NR1:=0.015*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)
*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG8,BEG7,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,
FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0340s1020; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED,
BIRTHD+35.0))*ord(WRKHRS>=870.0)*1.0; ASY2:=NNMIN(33.0,QUITD-MAX(
HIRED,BIRTHD+22.0,1943.083))*ord(WRKHRS>=870.0)*1.0; FDFAP1:=
QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); RED4:=1.08*
o(65.0,AGE); RED13:=JSRED; RED14:=COSTRED; RAS1:=(AGE>=65.0)&(
ASY1>=20.0); RAS2:=(AGE>=65.0)&(ASY2>=10.0); RAS4:=(AGE>=62.0)&(
ASY1>=20.0); RAS5:=(AGE>=62.0)&(ASY2>=10.0); RAS10:=ASY1>=20.0;
BEG7:=ANYTIME(BIRTHD+62.0,0.0); NR1:=0.096*u(FAP1,15000.0)+0.06*
b(FAP1,15000.0,21000.0); NR1Q:=ord(RAS1)*NR1; NR2:=(0.00288*u(
FAP1,15000.0)+1.8*b(FAP1,15000.0,21000.0)/1000.0)*ASY2; NR2Q:=
ord(RAS2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ;
MRAGE:=999.0; ER1:=NR1-RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NN(
0.00288*u(FAP1,15000.0)+1.8*b(FAP1,15000.0,21000.0)/1000.0-u(
AGE,65.0)*3.24)*ASY2; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2);
ERQ:=MAX(ER1Q,ER2Q); VD1:=ER2; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=NR1; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q;
DS1:=ER1; DS1Q:=ord(RAS4)*DS1; DS2:=ER2; DS2Q:=ord(RAS5)*DS2;
DST:=MAX(DS1,DS2)*RED13*RED14*0.5; DSQ:=MAX(DS1,DS2)*RED13*RED14*
0.5; PRAG:=0.0; VEDB:=VOPT(ord(ASY2>=10.0)*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG7,RED14,RED13,RED4,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0341s630; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
1976.0)-HIRED)*1.0; ASY2:=NNMIN(30.0,QUITD-MAX(HIRED,1976.0))*
ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/12.0; RED4:=1.0-(
0.036*a(AGE,60.0,55.0)+0.072*a(AGE,65.0,60.0)); RED13:=JSRED;
RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=
10.0); RAS10:=ASY51>=10.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0)
;NR1:=(0.015*FAP1-0.01667*SS1)*u(ASY1+ASY2,30.0); NR1Q:=ord(RAS1)
*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=ERT;
DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*
RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY51,RED13,RED4,SS1,
FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0342s835; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=870.0)*1.0; ASY1:=MIN(25.0,QUITD-HIRED)*NNMIN(1.0,WRKHRS/
250.0); RED4:=NN(1.0-0.06*o(62.0,AGE)); RED13:=JSRED; RAS1:=(
AGE>=62.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=
ASY1>=10.0; RAS13:=(AGE>=50.0)&(ASY1>=10.0); BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=22.0*ASY1; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(
RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*0.5; DS1Q:=
ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(
ord(ASYV>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG7,RED13,RED4,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0343s396; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1970.0)-
MAX(HIRED,1969.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*
ord(WRKHRS>=1000.0)*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+70.0)-MAX(
HIRED,BIRTHD+65.0))*ord(WRKHRS>=1000.0)*1.0; PSY7:=BIRTHD+65.0-
HIRED; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-
3.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0;
FDFAP2:=MIN(QUITD,BIRTHD+70.0); FAP2:=ord(FDFAP2>HIRED)*WAGE(
FDFAP2)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR;
MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SDVOL7:=HIRED;
FDVOL7:=QUITD; PCVOL7:=MAX(VOL1NAR*WAGE(SURVEYD),MIN(VOL2NAR*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL7:=SUMI(
PCVOL7,2.0,0.0,SDVOL7,FDVOL7); SS1:=SS(1.0,BENIFITD)/12.0; SS2:=
SS(2.0,MAX(BENIFITD,BIRTHD+62.0))/12.0; SS7:=SS(1.0,MAX(BENIFITD,
BIRTHD+65.0))/12.0; RED4:=NN(1.0-0.05*o(60.0,AGE)); RED7:=AR(
65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0; ASY56:=ASY2+ASY3;
RAS2:=(AGE>=60.0)&(ASY56>=15.0); RAS3:=(AGE>=65.0)!(AGE>=60.0)&(
ASY56>=15.0); RAS4:=(AGE>=55.0)&(ASY56>=15.0); ROT2:=AGE<65.0;
ROT3:=QVOLCNTR; ROT7:=ASY1>=15.0; ROT8:=QVOLCNTR&(ASY1>=15.0);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=ANYTIME(BIRTHD+
65.0,0.0); NR1:=0.016*ASY2*FAP1+0.00533*ASY3*FAP2-0.015*SS1*u(
ASY2+ASY3,33.333); NR1Q:=ord(RAS1)*NR1; NR2:=0.016*ASY2*FAP1+
0.00533*ASY3*FAP2-0.015*SS2*u(ASY2+ASY3,33.333); NR2Q:=ord(RAS2&
ROT2)*NR2; NR3:=0.002*FAP1*ASY1; NR3Q:=ord(RAS3&ROT3)*NR3; NRT:=
MAX(NR1+NR3,NR2+NR3); NRQ:=MAX(NR1Q+NR3Q,NR2Q+NR3Q)*12.0; LRQ:=
NRQ; MRAGE:=70.0; ER1:=NR2; ER1Q:=ord(RAS4&ROT2)*ER1; ER2:=NR3;
ER2Q:=ord(RAS4&ROT3)*ER2; ERT:=(ER1+ER2)*RED4; ERQ:=(ER1Q+ER2Q)*
RED4*12.0; VD1:=(0.016*PSY7*FAP1-0.015*PSY7*SS7)*ASY2/PSY7*RED7;
VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=0.002*FAP1*ASY1*ASY2/PSY7*
RED7; VD2Q:=ord(ROT8)*AA(BEG7,0.0)*VD2; VD3:=(0.016*PSY7*FAP1-
0.015*PSY7*SS7)*ASY2/PSY7; VD3Q:=AA(BEG8,0.0)*VD3; VD4:=0.002*
FAP1*ASY1*ASY2/PSY7; VD4Q:=ord(ROT3)*AA(BEG8,0.0)*VD4; VDT:=MAX(
VD1+VD2,VD3+VD4); VDQ:=MAX(VD1Q+VD2Q,VD3Q+VD4Q)*12.0; DRQ:=0.0;
DS1:=ER1; DS1Q:=ord(RAS4)*DS1; DS2:=ER2; DS2Q:=ord(RAS4&ROT2)*
DS2; DST:=0.5*(ER1+ER2)*RED4*RED13; DSQ:=0.5*(ER1Q+ER2Q)*RED4*
RED13*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY56>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,
VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,
ASY56,RED13,RED7,RED4,SS7,SS2,SS1,VOL7,PCVOL7,FDVOL7,SDVOL7,
MAN7,PCMAN7,FDMAN7,SDMAN7,FAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,PSY7,
ASY3, ASY2,ASY1,CNQ) <0 then negative end;

procedure c0344s671; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY7:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(
1.0,BENIFITD)/12.0; RED13:=JSRED; RAS1:=AGE>=65.0; RAS13:=AGE>=
55.0; BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.5*FAP1-0.74*SS1)*u(
ASY1,25.0)/25.0; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0;
LRQ:=NRQ; MRAGE:=999.0; ERQ:=0.0; VD1:=(0.5*FAP1-0.74*SS1)*u(
ASY1,25.0)/25.0*ASY1/PSY7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=0.5*VDT*RED13; DS1Q:=ord(RAS13)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(
ASY1>=4.0)*0.4,ord(ASY1>=6.0)*0.5,ord((QUITAGE>=65.0)!(ASY1>=
11.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,
VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,SS1,FAP1,
SDFAP1,FDFAP1,PSY7,ASY1,CNQ) <0 then negative end;

procedure c0345s555; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0))*1.0; ASY2:=NN(QUITD-MAX(HIRED,BIRTHD+22.0,
1949.5))*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0)
,FDFAP1)/12.0; FDFAP2:=QUITD; FAP2:=AVG(WAGE,MAX(HIRED,FDFAP2-
3.0),FDFAP2)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR;
MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.024*o(
65.0,AGE)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=AGE>=60.0;
BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); NR1:=(0.01*u(FAP1,550.0)+
0.0175*o(FAP1,550.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=MAX(FAP2,
7512.5); NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,
NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(MAX(ord(ASY2>=5.0)*0.5,ord(ASY2>=7.0)*0.7,ord((QUITAGE>=
60.0)!(ASY2>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,
NR2,NR1Q,NR1,BEG7,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP2,
FDFAP2,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0346s736; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1000.0); ASY1:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/2080.0);
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1);
SS1:=SSBASE(BENIFITD); RED4:=1.0-(0.0006*a(AGE,50.0,49.0)+0.06*a(
AGE,55.0,50.0)); RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(AGE>=
65.0)!(AGE+ASY1>=78.0)&(AGE>=55.0)&(ASY1>=15.0); RAS2:=(AGE+
ASY1>=78.0)&(AGE>=55.0)&(ASY1>=15.0); RAS3:=(AGE+ASY1>=78.0)&(
AGE>=55.0)&(ASY1>=30.0); RAS4:=(AGE>=55.0)&(ASY1>=40.0); RAS5:=(
AGE+ASY1>=78.0)&(ASY1>=15.0); RAS6:=(AGE+ASY1>=78.0)&(ASY1>=30.0)
;RAS10:=(AGE+ASY1>=78.0)&(ASY1>=40.0); RAS11:=ASY1>=15.0; RAS12:=
ASY1>=30.0; RAS13:=ASY1>=40.0; ROT7:=ASY1>=15.0; ROT8:=ASY1>=
30.0; ROT9:=ASY1>=40.0; ROT10:=QSSDABLE; BEG7:=MAX(BIRTHD+65.0,
QUITD); BEG8:=MAX(BIRTHD+65.0,QUITD); NR1:=(u(FAP1,SS1)*0.0115+o(
FAP1,SS1)*0.014)*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=FAP1*0.013*ASY1;
NR2Q:=ord(RAS1)*NR2; NR3:=2100.0; NR3Q:=ord(RAS2)*NR3; NR4:=
2400.0; NR4Q:=ord(RAS3)*NR4; NR5:=2700.0; NR5Q:=ord(RAS4)*NR5;
NRT:=MAX(NR1,NR2,NR3,NR4,NR5); NRQ:=MAX(NR1Q,NR2Q,NR3Q,NR4Q,NR5Q)
;LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS5)*ER1;
ER2:=NR2*RED4; ER2Q:=ord(RAS5)*ER2; ER3:=NR3*RED4; ER3Q:=ord(
RAS5)*ER3; ER4:=NR4*RED4; ER4Q:=ord(RAS6)*ER4; ER5:=NR5*RED4;
ER5Q:=ord(RAS10)*ER5; ERT:=MAX(ER1,ER2,ER3,ER4,ER5); ERQ:=MAX(
ER1Q,ER2Q,ER3Q,ER4Q,ER5Q); VD1:=MAX(NR1,NR2); VD1Q:=AA(BEG7,0.0)*
VD1; VD2:=MAX(NR1,NR2,NR3)*RED7; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*
VD2; VD3:=NR4*RED7; VD3Q:=ord(ROT8)*AA(BEG8,0.0)*VD3; VD4:=NR5*
RED7; VD4Q:=ord(ROT9)*AA(BEG8,0.0)*VD4; VDT:=MAX(VD1,VD2,VD3,VD4)
;VDQ:=MAX(VD1,VD2,VD3,VD4); DR1:=MAX(NR1,NR2,NR3); DR1Q:=ord(
RAS11&ROT10)*DR1; DR2:=NR4; DR2Q:=ord(RAS12&ROT10)*DR2; DR3:=NR5;
DR3Q:=ord(RAS13&ROT10)*DR3; DRT:=MAX(DR1,DR2,DR3); DRQ:=MAX(DR1Q,
DR2Q,DR3Q); DS1:=MAX(NR1*RED13*0.5,NR2*RED13*0.5,NR3*RED13*0.5);
DS1Q:=ord(RAS5)*DS1; DS2:=NR4*RED13*0.5; DS2Q:=ord(RAS6)*DS2;
DS3:=NR5*RED13*0.5; DS3Q:=ord(RAS10)*DS3; DST:=MAX(DS1,DS2,DS3);
DSQ:=MAX(DS1Q,DS2Q,DS3Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,RED13,RED7,RED4,SS1,FAP1,
FDFAP1,ASY1,ASYV, CNQ) <0 then negative end;

procedure c0347s802; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=6.0)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); PSY1:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(
1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=1.0-(0.035*a(AGE,59.0,
55.0)+0.06*a(AGE,61.0,59.0)+0.24*a(AGE,62.0,61.0)); RED5:=1.0-(
0.03*a(AGE,57.0,55.0)+0.04*a(AGE,59.0,57.0)+0.06*a(AGE,65.0,
59.0)); RED13:=NN(1.0-0.02*o(65.0,AGE)); RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY1>=30.0); RAS5:=(AGE>=55.0)&(ASY1>=10.0); RAS13:=(
AGE>=45.0)&(ASY1>=10.0); RAS14:=AGE>=55.0; ROT7:=ASY1>=30.0;
ROT10:=QCODABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+62.0); BEG8:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD);
BEG13:=MAX(BIRTHD+55.0,QUITD); NR1:=NN((25.0+b(PSY1,1.0,20.0)+
0.5*b(PSY1,20.0,30.0))/100.0*FAP1-0.5*SS1+73.25+1.625*b(ASY1,
1.0,30.0)+3.25*b(ASY1,30.0,50.0)); NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NN(0.26*(0.01*b(
PSY1,1.0,20.0)+0.005*b(PSY1,20.0,30.0))*FAP1-0.5*SS1+74.75+
1.625*b(PSY1,1.0,30.0)+3.25*b(PSY1,30.0,50.0)); ER1Q:=ord(RAS4)*
ER1; ER2:=ER1*ASY1/PSY1*RED4; ER2Q:=ord(RAS4)*ER2; ER3:=ER1*ASY1/
PSY1*RED5; ER3Q:=ord(RAS5)*ER3; ERT:=MAX(ER2,ER3); ERQ:=MAX(ER2Q,
ER3Q)*12.0; VD1:=ER2; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=ER3;
VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*
12.0; DR1:=NRT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1;
DRQ:=DR1Q*12.0; DS1:=ER1*ASY1/PSY1*RED13; DS1Q:=ord(RAS13)*AA(
BEG13,0.0)*DS1; DS2:=DS1; DS2Q:=ord(RAS14)*DS2; DST:=MAX(DS1,DS2)
;DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG13,
BEG10,BEG8,BEG7,RED13,RED5,RED4,SS1,FAP1,SDFAP1,FDFAP1,PSY1,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0348s1030; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY4:=
NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY1:=
MIN(40.0,NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+25.0))); FDFAP1:=
MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,
BENIFITD)/12.0; RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,
65.0,60.0)); RED5:=AR(55.0-AGE); RAS1:=AGE>=65.0; RAS4:=ASY4>=
10.0; BEG7:=ANYTIME(0.0,0.0); NR1:=0.78479*FAP1-0.7407*SS1;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=
71.0; ER1:=NRT*ASY1/PSY1*RED4*RED5; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=ERT; DR1Q:=DR1; DRT:=DR1; DRQ:=DR1Q*12.0;
DS1:=VD1; DS1Q:=ord(RAS1)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=
0.0; VEDB:=VOPT(MAX(ord(ASY4>=1.0)*0.1,ord(ASY4>=5.0)*0.5,ord((
QUITAGE>=65.0)!(ASY4>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED5,RED4,SS1,FAP1,SDFAP1,
FDFAP1,PSY1,ASY4,ASY1,CNQ) <0 then negative end;

procedure c0349s628; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(25.0,MIN(
QUITD,1976.0)-(HIRED+3.0))*1.0; ASY2:=NNMIN(25.0,QUITD-MAX(HIRED+
1.0,BIRTHD+25.0,1976.0))*ord(WRKHRS>=1000.0)*1.0; ASY10:=NN(
QUITD-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=
QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-25.0),FDFAP1); RED10:=AR(
NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=65.0; RAS10:=(AGE>=50.0)&
(ASY10>=10.0); ROT10:=QSSDABLE; BEG7:=MAX(NRD,QUITD); NR1:=(
0.005*u(FAP1,6600.0)+0.01*o(FAP1,6600.0))*u(ASY1+ASY2,25.0);
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0;
ERQ:=0.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT*RED10; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q;
DS1:=NRT*RED13*0.5; DS1Q:=ord(RAS1)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASYV>=5.0)*0.25,ord(ASYV>=10.0)*
0.5,ord((QUITAGE>=65.0)!(ASYV>=15.0))*1.0)); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED10,FAP1,FDFAP1,ASY10,ASY2,
ASY1,ASYV,CNQ) <0 then negative end;

procedure c0350s746; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1974.0)-(HIRED+
1.0))*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,1974.0))
*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-
5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0;
SDVOL7:=HIRED; FDVOL7:=QUITD; PCVOL7:=MAX(0.02*MIN(SSBASE(
SURVEYD),WAGE(SURVEYD)),CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD);
VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,FDVOL7); SDVOL8:=HIRED; FDVOL8:=
QUITD; PCVOL8:=MAX(0.02*MAX(0.0,WAGE(SURVEYD)-SSBASE(SURVEYD)),
CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL8:=SUMI(PCVOL8,2.0,0.0,
SDVOL8,FDVOL8); SS1:=SS(1.0,BENIFITD)/12.0; RED4:=1.0-(0.06*a(
AGE,60.0,55.0)+0.04*a(AGE,62.0,60.0)); RED7:=NN(1.0-0.06*o(65.0,
AGE)); RED13:=JSRED; RED14:=COSTRED; RAS1:=(AGE>=65.0)!(AGE>=
62.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS11:=ASY1>=
8.0; ROT1:=QVOLCNTR; ROT10:=QJRDABLE; ROT11:=^QJRDABLE; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD);
BEG11:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.01667*FAP1*u(
ASY1,30.0)-0.01667*SS1*u(ASY1,30.0)+0.005*FAP1*o(ASY1,30.0);
NR1Q:=ord(RAS1&ROT1)*NR1; NR2:=12.0*ASY1; NR2Q:=ord(RAS1&ROT1)*
NR2; NR3:=4.0*ASY2; NR3Q:=ord(RAS1)*NR3; NR4:=6.0*ASY3; NR4Q:=
ord(RAS1)*NR4; NRT:=MAX(NR1,NR2,NR3+NR4); NRQ:=MAX(NR1Q,NR2Q,
NR3Q+NR4Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=MAX(NR1,NR2)*RED4;
ER1Q:=ord(RAS4&ROT1)*ER1; ER2:=(NR3+NR4)*RED4; ER2Q:=ord(RAS4)*
ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=MAX(NR1,
NR2)*RED7; VD1Q:=ord(ROT1)*AA(BEG7,0.0)*VD1; VD2:=(NR3+NR4)*RED7;
VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*
12.0; DR1:=NRT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DR2:=ERT;
DR2Q:=ord(RAS11&ROT11)*AA(BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2);
DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=ER1*RED14*RED13; DS1Q:=ord(RAS4&
ROT1)*DS1; DS2:=ER2*RED14*RED13; DS2Q:=ord(RAS4)*DS2; DST:=MAX(
DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG11,BEG10,BEG7,RED14,RED13,RED7,
RED4,SS1,VOL8,PCVOL8,FDVOL8,SDVOL8,VOL7,PCVOL7,FDVOL7,SDVOL7,
FAP1,SDFAP1,FDFAP1,ASY3,ASY2, ASY1,CNQ) <0 then negative end;

procedure c0351s460; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,MIN(HIRED+1.0,BIRTHD+25.0)))*1.0; ASY2:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*
1.0; PSY4:=NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+25.0)); FDFAP1:=
MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,
SDMAN7,FDMAN7); SS1:=SS(1.0,BENIFITD)/12.0; RED4:=NN(1.0-0.03*o(
62.0,AGE)); RED5:=NN(1.0-0.03*o(65.0,AGE)); RED13:=JSRED; RAS1:=(
AGE>=65.0)!(AGE>=62.0)&(ASY1>=10.0); RAS2:=AGE+ASY2>=85.0; RAS4:=
(AGE>=55.0)&(ASY1>=10.0); RAS5:=AGE>=55.0; ROT7:=ASY1>=10.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.55*FAP1*u(ASY1,
30.0)/30.0+0.01*FAP1*o(ASY1,30.0)-0.5*SS1; NR1Q:=ord(RAS1)*NR1;
NR2:=NR1; NR2Q:=ord(RAS2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=(0.55*FAP1*u(PSY4,30.0)/
30.0+0.01*FAP1*o(PSY4,30.0)-0.5*SS1)*ASY1/PSY4*RED4; ER1Q:=ord(
RAS4)*ER1; ER2:=(0.55*FAP1*u(PSY4,30.0)/30.0+0.01*FAP1*o(PSY4,
30.0)-0.5*SS1)*ASY1/PSY4*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,
ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=ER1; VD1Q:=ord(ROT7)*AA(
BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DRQ:=0.0; DS1:=0.5*ER1*RED13;
DS1Q:=ord(RAS4)*DS1; DS2:=0.5*ER2*RED13; DS2Q:=ord(RAS5)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=
VOPT(1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,
VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED5,RED4,SS1,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,PSY4,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0352s706; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,
BIRTHD+25.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); FAP2:=ord(FDFAP2>HIRED)*
AVG(WAGE,HIRED,FDFAP2); SDVOL7:=HIRED; FDVOL7:=QUITD; PCVOL7:=
MAX(0.025*WAGE(SURVEYD),MIN(0.025*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,
FDVOL7); SS1:=SSBASE(BENIFITD); RED4:=NN(1.0-0.04*o(62.0,AGE));
RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(
AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; ROT2:=QVOLCNTR;
ROT10:=QSSDABLE; ROT11:=QSSDABLE&QVOLCNTR; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); BEG14:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.0105*u(
FAP1,SS1)+0.015*o(FAP1,SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.2*
0.025*FAP2*ASY2; NR2Q:=ord(RAS1&ROT2)*NR2; NRT:=NR1+NR2; NRQ:=
NR1Q+NR2Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1; ER1Q:=ord(RAS4)*ER1;
ER2:=NR2; ER2Q:=ord(RAS4&ROT2)*ER2; ERT:=(ER1+ER2)*RED4; ERQ:=(
ER1Q+ER2Q)*RED4; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2;
VD2Q:=ord(ROT2)*AA(BEG7,0.0)*VD2; VDT:=(VD1+VD2)*RED4; VDQ:=(
VD1Q+VD2Q)*RED4; DR1:=NR1; DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=NR2*
RED4; DR2Q:=ord(RAS10&ROT11)*DR2; DRT:=DR1+DR2; DRQ:=DR1Q+DR2Q;
DS1:=ER1; DS1Q:=ord(RAS4)*DS1; DS2:=ER2; DS2Q:=ord(RAS4&ROT2)*
DS2; DS3:=NR1; DS3Q:=ord(RAS4)*AA(BEG14,0.0)*DS3; DS4:=NR2;
DS4Q:=ord(RAS4&ROT2)*AA(BEG14,0.0)*DS4; DST:=MAX((DS1+DS2)*RED13*
0.5,(DS3+DS4)*0.5); DSQ:=MAX((DS1Q+DS2Q)*RED13*0.5,(DS3Q+DS4Q)*
0.5); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,
DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG14,
BEG7,RED13,RED4,SS1,VOL7,PCVOL7,FDVOL7,SDVOL7,FAP2,FDFAP2,FAP1,
SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0353s507; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,1961.083))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0);
SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; SS10:=SS(5.0,BENIFITD)/12.0; RED4:=1.0-(
0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=15.0); RAS14:=ASY1>=
5.0; ROT4:=QAPPROVL; ROT7:=QAPPROVL; ROT10:=QSSDABLE; LNG10:=
BIRTHD+65.0; LNG13:=1.0; BEG7:=ANYTIME(BIRTHD+55.0,0.0); BEG8:=
MAX(BIRTHD+65.0,QUITD); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=(
0.005*u(FAP1,500.0)+0.01*o(FAP1,500.0))*ASY1; NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=AI(AGE,65.0,999.0)*NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4&ROT4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=
NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,
VD2Q)*12.0; DR1:=NN(0.5*FAP1-0.64*SS10); DR1Q:=ord(ROT10)*AA(
QUITD,LNG10)*DR1; DR2:=1500.0; DR2Q:=ord(ROT10)*AA(QUITD,LNG10)*
DR2; DR3:=MIN(DR1,DR2,NR1); DR3Q:=ord(ROT10)*AA(BEG11,0.0)*DR3;
DRT:=MIN(DR1+DR3,DR2+DR3); DRQ:=MIN(DR1Q+DR3Q,DR2Q+DR3Q)*12.0;
DS1:=NRT*RED13; DS1Q:=DS1; DS2:=FAP1*12.0; DS2Q:=AA(QUITD,LNG13+
QUITD)*DS2; DS3:=30.0*FAP1; DS3Q:=ord(RAS14)*AA(QUITD,LNG13+
QUITD)*DS3; DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q)*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,
DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG8,BEG7,LNG13,LNG10,
RED13,RED4,SS10,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative
end;

procedure c0354s621; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0,1974.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=MIN(20.0,
QUITD-HIRED)*1.0; ASY7:=NN(QUITD-MAX(HIRED+1.0,BIRTHD+25.0))*ord(
WRKHRS>=1000.0)*1.0; PSY7:=NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+
25.0)); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),
FDFAP1); SS1:=SS(1.0,BENIFITD); RAS1:=(AGE>=65.0)&(ASY1>=10.0);
BEG7:=MAX(NRD,QUITD); NR1:=NN(0.5*FAP1-0.83333*SS1)*ASY1/20.0;
NR1Q:=ord(RAS1)*NR1; NR2:=20000.0; NR2Q:=ord(RAS1)*NR2; NRT:=MIN(
NR1,NR2); NRQ:=MIN(NR1Q,NR2Q); LRQ:=AI(AGE,65.0,999.0)*NRQ;
MRAGE:=999.0; ERQ:=0.0; VD1:=NN(0.5*FAP1-0.83333*SS1)*u(PSY7,
20.0)/20.0*ASY7/PSY7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DRQ:=0.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASYV>=5.0)*0.25,
ord(ASYV>=10.0)*0.5,ord((ASYV>=15.0)!(QUITAGE>=65.0)&(ASYV>=
10.0))*1.0)); if min( VEDB,PRAG,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,SS1,FAP1,FDFAP1,PSY7,ASY7,
ASY1,ASYV,CNQ) <0 then negative end;

procedure c0355s788; begin CNQ:=0.0; ASY1:=MIN(25.0,QUITD-HIRED)*
1.0; RED4:=AR(NRD-BENIFITD); RED13:=COSTRED; RED14:=JSRED; RAS1:=
(AGE>=65.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=15.0); ROT4:=
QAPPROVL; BEG7:=MAX(NRD,QUITD); BEG8:=MAX(ERD,QUITD); NR1:=60.0*
u(ASY1,25.0); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4&ROT4)*ER1; ERT:=ER1;
ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=ord(
ROT4)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q);
DRQ:=0.0; DS1:=ERT*RED13*RED14; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,
ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,RED14,RED13,
RED4,ASY1,CNQ) <0 then negative end;

procedure c0356s728; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+70.0); FAP1:=ord(
FDFAP1>HIRED)*SUM(WAGE,HIRED,FDFAP1); RED4:=0.8*o(55.0,AGE)+0.15*
a(AGE,60.0,55.0); RED5:=NN(1.0-(0.05*o(55.0,AGE)+0.03*a(AGE,60.0,
55.0))); RED7:=NN(1.0-0.03*o(65.0,AGE)); RED8:=AR(65.0-AGE);
RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY1>=1.0)!(AGE>=62.0)&(ASY1>=
5.0)!(AGE>=60.0)&(ASY1>=15.0); RAS4:=(ASY1>=30.0)!(AGE>=55.0)&(
ASY1>=15.0); ROT7:=ASY1>=15.0; ROT8:=(ASY1>=10.0)&(ASY1<15.0);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=ANYTIME(BIRTHD+
62.0,BIRTHD+65.0); NR1:=16.0*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=1.0/
12.0*0.015*FAP1; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=
MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NN(ASY1*(16.0-
RED4)); ER1Q:=ord(RAS4)*ER1; ER2:=NR2*RED5; ER2Q:=ord(RAS4)*ER2;
ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=NRT*RED7;
VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT*RED8; VD2Q:=ord(ROT8)*
AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0;
DRQ:=0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG8,BEG7,RED13,RED8,RED7,RED5,RED4,FAP1,FDFAP1,ASY1,CNQ) <0
then negative end;

procedure c0357s615; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1040.0)*
1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,
1976.0))*NNMIN(1.0,WRKHRS/1880.0); ASY3:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1976.0))*ord(WRKHRS>=1000.0)*
1.0; PSY4:=NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+25.0)); PSY5:=MIN(
15.0,NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+25.0))); FDFAP1:=MIN(
QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+
65.0); FAP2:=ord(FDFAP2>HIRED)*WAGE(FDFAP2); FDSS1:=MIN(QUITD,
BIRTHD+65.0); SS1:=ord(FDSS1>HIRED)*SSBASE(BENIFITD); SS2:=SS(
1.0,MAX(BENIFITD,BIRTHD+65.0)); SS10:=SS(5.0,BENIFITD); RED4:=NN(
1.0-0.05*o(65.0,AGE)); RED7:=AR(65.0-AGE); RED13:=1.0-(0.05*a(
AGE,60.0,55.0)+0.05*a(AGE,65.0,60.0)); RAS1:=AGE>=65.0; ASY51:=
ASY1+ASY2; RAS2:=(AGE>=65.0)&(ASY51>=20.0); ASY57:=ASY1+ASY3;
RAS4:=(AGE>=55.0)&(ASY57>=20.0); RAS5:=(AGE>=55.0)&(ASY51>=20.0);
RAS6:=(AGE>=60.0)&(ASY57>=10.0); RAS10:=ASY57>=15.0; RAS13:=
ASY57>=10.0; ROT7:=ASY1+ASY3>=20.0; ROT10:=QSSDABLE; ROT13:=
QCODABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(
BIRTHD+65.0,QUITD); NR1:=0.012*FAP1*(ASY1+ASY2); NR1Q:=ord(RAS1)*
NR1; NR2:=0.0025*o(FAP1,SS1)*u(ASY1+ASY2,15.0); NR2Q:=ord(RAS1)*
NR2; NR3:=NN(0.8*FAP2-SS2); NR3Q:=ord(RAS1)*NR3; NR4:=1620.0+
20.0*b(ASY1+ASY2,24.0,30.0); NR4Q:=ord(RAS2)*NR4; NRT:=MIN(NR3,
MAX(NR1+NR2,NR4)); NRQ:=MIN(NR3Q,MAX(NR1Q+NR2Q,NR4Q)); LRQ:=NRQ;
MRAGE:=70.0; ER1:=(NR1+0.0025*o(FAP1,SS1)*PSY5*(ASY1+ASY2)/PSY4)*
RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NN(0.8*FAP2-SS2)*(ASY1+ASY2)/
PSY4; ER2Q:=ord(RAS4)*ER2; ER3:=0.01*FAP1*(ASY1+ASY2); ER3Q:=ord(
RAS6)*ER3; ER4:=NR4; ER4Q:=ord(RAS5)*ER4; ERT:=MIN(ER2,MAX(ER1,
ER3,ER4)); ERQ:=MIN(ER2Q,MAX(ER1Q,ER3Q,ER4Q)); VD1:=(NR1+0.0025*
o(FAP1,SS1)*PSY5*(ASY1+ASY2)/PSY4)*RED7; VD1Q:=ord(ROT7)*AA(BEG7,
0.0)*VD1; VD2:=(81.0*u(PSY4,20.0)+20.0*b(PSY4,24.0,30.0))*(ASY1+
ASY2)/PSY4*RED7; VD2Q:=ord(ROT7)*AA(BEG7,0.0)*VD2; VD3:=VD1;
VD3Q:=AA(BEG8,0.0)*VD3; VD4:=VD2; VD4Q:=AA(BEG8,0.0)*VD4; VDT:=
MAX(VD1,VD2,VD3,VD4); VDQ:=MAX(VD1Q,VD2Q,VD3Q,VD4Q); DR1:=NR1+
0.0025*o(FAP1,SS1)*PSY5*(ASY1+ASY2)/PSY4; DR1Q:=ord(RAS10&ROT10)*
DR1; DR2:=NN(0.8*FAP2-SS10)*(ASY1+ASY2)/PSY4; DR2Q:=ord(RAS10&
ROT10)*DR2; DR3:=ER3; DR3Q:=ord(RAS10&ROT10)*DR3; DR4:=ER4;
DR4Q:=ord(RAS10&ROT10)*DR4; DRT:=MIN(DR2,MAX(DR1,DR3,DR4)); DRQ:=
MIN(DR2Q,MAX(DR1Q,DR3Q,DR4Q)); DS1:=ER4; DS1Q:=ord(RAS13&ROT13)*
DS1; DS2:=(NR1+0.0025*o(FAP1,SS1)*PSY5*(ASY1+ASY2)/PSY4)*RED13;
DS2Q:=ord(RAS13&ROT13)*DS2; DS3:=ER2; DS3Q:=ord(RAS13&ROT13)*DS3;
DST:=MIN(DS3,MAX(DS1,DS2)); DSQ:=MIN(DS3Q,MAX(DS1Q,DS2Q)); PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY57>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,
DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,ASY57,
ASY51,RED13,RED7,RED4,SS10,SS2,SS1,FDSS1,FAP2, FDFAP2,FAP1,
SDFAP1,FDFAP1,PSY5,PSY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0358s952; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=950.0)*1.0; ASY1:=NNMIN(20.0,MIN(QUITD,1958.417)-HIRED)*
NNMIN(1.0,WRKHRS/6.0); ASY2:=NN(MIN(QUITD,1975.0)-MAX(HIRED,
1958.417))*NNMIN(1.0,WRKHRS/1700.0); ASY3:=NN(QUITD-MAX(HIRED,
1975.0))*NNMIN(1.0,WRKHRS/1700.0); RED4:=NN(1.0-0.015*o(61.0,AGE)
); RED13:=1.0-(0.015*a(AGE,60.0,55.0)+0.015*a(AGE,61.0,60.0));
ASY53:=ASY1+ASY2+ASY3; RAS1:=(AGE>=61.0)&(ASY53>=15.0); RAS4:=(
AGE>=55.0)&(ASY53>=15.0); RAS10:=ASY53>=10.0; RAS13:=ASY53>=15.0;
ROT10:=QSSDABLE; BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=156.0*ASY1+
288.0*ASY2+504.0*ASY3; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q;
DS1:=NRT*RED13*0.5; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord(ASYV>=10.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY53,RED13,RED4,ASY3,ASY2,
ASY1,ASYV,CNQ) <0 then negative end;

procedure c0359s489; begin CNQ:=0.0; ASY1:=NNMIN(30.0,QUITD-MAX(
HIRED+1.0,BIRTHD+25.0))*1.0; FAP1:=WAGE(QUITD)/12.0; SS1:=SS(1.0,
BENIFITD)/12.0; RED4:=AR(NRD-BENIFITD); RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY1>=15.0); BEG7:=ANYTIME(BIRTHD+65.0,0.0); NR1:=(
0.5*FAP1-0.5*SS1)*ASY1/30.0; NR1Q:=ord(RAS1)*NR1; NR2:=50.0*ASY1*
ASY1/30.0; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DSQ:=0.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED4,SS1,FAP1,ASY1,CNQ) <0 then
negative end;

procedure c0360s873; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/12.0); ASY4:=
NN(QUITD-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1)
;SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,
99.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0));
RED4:=1.0-(0.04*a(AGE,56.0,55.0)+0.03*a(AGE,57.0,56.0)+0.02*a(
AGE,62.0,57.0)); RED13:=JSRED; RAS1:=AGE>=62.0; RAS4:=(AGE>=55.0)
&(ASY4>=10.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
62.0); BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+70.0); NR1:=NN(0.015*
FAP1-0.0125*SS1)*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DR1:=ERT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1;
DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=62.0)!(ASY4>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,
BEG7,RED13,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY4,
ASY1,CNQ) <0 then negative end;

procedure c0361s874; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(40.0,MIN(QUITD,BIRTHD+65.0)-
HIRED)*1.0; FDFAP10:=MIN(QUITD,BIRTHD+65.0); SDFAP10:=MAX(HIRED,
FDFAP10-5.0); FAP10:=ord(FDFAP10>SDFAP10)*AVGMIN(1050.0,WAGE,
SDFAP10,FDFAP10)/12.0; SDVOL7:=HIRED; FDVOL7:=QUITD; PCVOL7:=MAX(
VOL1NAR*WAGE(SURVEYD),MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,
FDVOL7); RED4:=NN(1.0-0.02*o(65.0,AGE)); RED5:=NN(1.0-0.02*o(
62.0,AGE)); RED10:=OTHERB; RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=
62.0)&(ASY1>=30.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS5:=(AGE>=
55.0)&(ASY1>=30.0); RAS10:=(ASY1>=15.0)!(AGE>=40.0)&(ASY1>=10.0);
RAS13:=AGE>=65.0; RAS14:=(AGE>=55.0)&(ASY1>=10.0); DAT1:=(
1982.667<=QUITD)&(QUITD<1983.667); DAT2:=1983.667<=QUITD; ROT10:=
QSSDABLE; ROT11:=^QSSDABLE; LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=
14.5*u(ASY1,40.0); NR1Q:=ord(RAS1&DAT1)*NR1; NR2:=16.0*u(ASY1,
40.0); NR2Q:=ord(RAS1&DAT2)*NR2; ANVOL7:=ANNPAY(VOL7,BENIFITD);
NR3:=0.028*ANVOL7; NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1,NR2)+NR3;
NRQ:=(MAX(NR1Q,NR2Q)+NR3Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1;
ER1Q:=ord(RAS4&DAT1)*ER1; ER2:=NR2; ER2Q:=ord(RAS5&DAT2)*ER2;
ER3:=NR3; ER3Q:=ord(RAS4)*ER3; ERT:=MAX((MAX(ER1,ER2)+ER3)*RED4,(
MAX(ER1,ER2)+ER3)*RED5); ERQ:=MAX((MAX(ER1Q,ER2Q)+ER3Q)*RED4,(
MAX(ER1Q,ER2Q)+ER3Q)*RED5)*12.0; VD1:=ER1; VD1Q:=ord(DAT1)*AA(
BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(DAT2)*AA(BEG7,0.0)*VD2; VD3:=
ER3; VD3Q:=AA(BEG7,0.0)*VD3; VDT:=MAX((MAX(VD1,VD2)+VD3)*RED4,(
MAX(VD1,VD2)+VD3)*RED5); VDQ:=MAX((MAX(VD1Q,VD2Q)+VD3Q)*RED4,(
MAX(VD1Q,VD2Q)+VD3Q)*RED5)*12.0; DR1:=MIN(NRT-RED10,0.8*FAP10);
DR1Q:=ord(RAS10&DAT2&ROT10)*AA(QUITD,LNG10)*DR1; DR2:=MIN((NRT-
RED10)*2.0,0.8*FAP10); DR2Q:=ord(RAS10&DAT2&ROT11)*AA(QUITD,
LNG10)*DR2; DR3:=NRT; DR3Q:=ord(RAS10&DAT2)*AA(BEG11,0.0)*DR3;
DRT:=MAX(DR1,DR2)+DR3; DRQ:=(MAX(DR1Q,DR2Q)+DR3Q)*12.0; DS1:=0.5*
NRT*RED13; DS1Q:=ord(RAS13&DAT2)*DS1; DS2:=0.5*ERT*RED13; DS2Q:=
ord(RAS14&DAT2)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER3Q,
ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,ANVOL7,NR2Q,
NR2,NR1Q,NR1,BEG11,BEG7,LNG10,RED13,RED10,RED5,RED4,VOL7,PCVOL7,
FDVOL7,SDVOL7,FAP10,SDFAP10,FDFAP10,ASY1,ASYV, CNQ) <0 then
negative end;

procedure c0362s677; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(
WRKHRS>=1040.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-60.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); SS1:=SSBASE(BENIFITD); RED4:=1.0-(0.0333*a(AGE,
60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED5:=1.0-(0.0333*a(AGE+
ASY1,90.0,85.0)+0.0667*a(AGE+ASY1,95.0,90.0)); RED13:=JSRED;
RAS1:=(AGE>=65.0)!(AGE+ASY1>=95.0)&(ASY1>=30.0); RAS4:=(AGE>=
55.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; RAS13:=(AGE>=65.0)!(AGE>=
55.0)&(ASY1>=10.0); ROT4:=ASY1>=30.0; ROT10:=QSSDABLE; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(NRD,QUITD); NR1:=(
0.01*FAP1+0.005*o(FAP1,SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)
*ER1; ER2:=NRT*RED5; ER2Q:=ord(RAS4&ROT4)*ER2; ERT:=MAX(ER1,ER2);
ERQ:=MAX(ER1Q,ER2Q); VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2;
VD2Q:=ord(ROT4)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q); DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*DR1;
DRT:=DR1; DRQ:=DR1Q; DS1:=ER1*RED13*0.5; DS1Q:=ord(RAS13)*DS1;
DS2:=ER2*RED13*0.5; DS2Q:=ord(RAS13&ROT4)*DS2; DST:=MAX(DS1,DS2);
DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,RED13,RED5,RED4,
SS1,FAP1,SDFAP1,FDFAP1,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0363s999; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/12.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
36.0/12.0),FDFAP1)/12.0; RED4:=NN(1.0-0.072*o(60.0,AGE)); RED7:=
AR(NRD-BENIFITD); RED10:=OTHERB; RAS1:=(AGE>=65.0)&(ASY1>=4.0)!(
AGE>=60.0)&(ASY1>=15.0); RAS2:=(AGE>=65.0)&(ASY1>=10.0)!(AGE>=
60.0)&(ASY1>=15.0); RAS4:=(AGE>=55.0)&(ASY1>=15.0); RAS10:=ASY1>=
5.0; RAS13:=ASY1>=10.0; ROT7:=ASY1>=15.0; BEG7:=MAX(BIRTHD+65.0,
QUITD); BEG8:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); NR1:=0.0125*FAP1*
ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=75.0+7.5*b(ASY1,10.0,15.0);
NR2Q:=ord(RAS2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR2;
VD2Q:=AA(BEG7,0.0)*VD2; VD3:=NR1*RED7; VD3Q:=ord(ROT7)*AA(BEG8,
0.0)*VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1Q,VD2Q,VD3Q)*12.0;
DR1:=NR1-RED10; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0;
DS1:=0.5*NR1; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=NN(ACPIG-0.0); VEDB:=VOPT(ord((ASY1>=10.0)!(QUITAGE>=65.0)&
(ASY1>=4.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,RED10,RED7,RED4,
FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0364s1031; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(15.0,MIN(QUITD,1965.417)-MAX(
HIRED,1936.0))*1.0; ASY2:=NN(MIN(QUITD,1976.0)-MAX(HIRED+1.0,
1965.417))*NNMIN(1.0,WRKHRS/10.0); ASY3:=NN(QUITD-MAX(HIRED+1.0,
1976.0))*NNMIN(1.0,WRKHRS/1730.0); RED4:=1.0-(0.05*a(AGE,60.0,
55.0)+0.1*a(AGE,62.0,60.0)); RED13:=JSRED; ASY56:=ASY2+ASY3;
RAS1:=(AGE>=65.0)&(ASY56>=5.0)!(AGE>=62.0)&(ASY56>=10.0); RAS4:=(
AGE>=55.0)&(ASY56>=10.0); RAS10:=ASY56>=5.0; ASY53:=ASY1+ASY2+
ASY3; RAS11:=ASY53>=10.0; RAS13:=(AGE>=52.0)&(ASY56>=10.0);
BEG7:=ANYTIME(BIRTHD+55.0,0.0); NR1:=15.0*ASY1+17.0*(ASY2+ASY3);
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*
12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DR1:=5.0*ASY1+12.0*(ASY2+ASY3); DR1Q:=ord(RAS10)*DR1; DR2:=5.0*
ASY1+12.0*(ASY2+ASY3); DR2Q:=ord(RAS11)*DR2; DRT:=MAX(DR1,DR2);
DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((ASYV>=
10.0)!(QUITAGE>=65.0)&(ASYV>=5.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY53,ASY56,RED13,RED4,
ASY3,ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0365s509; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1974.0)-HIRED)*ord(WRKHRS>=1152.0)*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,1974.0))*ord(WRKHRS>=1000.0)*1.0; ASY7:=
NN(MIN(QUITD,BIRTHD+65.0,1974.0)-HIRED)*ord(WRKHRS>=1152.0)*1.0;
ASY8:=NN(MIN(QUITD,BIRTHD+65.0,1976.0)-MAX(HIRED,1974.0))*ord(
WRKHRS>=1000.0)*1.0; ASY9:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,
1976.0))*ord(WRKHRS>=1000.0)*1.0; PSY7:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-4.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,
BENIFITD); SS2:=SS(2.0,BENIFITD); RED4:=NN(1.0-0.05*o(62.0,AGE));
RED5:=NN(1.0-0.05*o(65.0,AGE)); ASY51:=ASY1+ASY2; RED6:=NN(1.0-
0.05*o(92.0,AGE+ASY51)); RED7:=AR(65.0-AGE); RED13:=COSTRED;
RED14:=JSRED; RAS1:=AGE>=62.0; RAS2:=(AGE>=58.0)&(ASY51>=34.0)!(
AGE>=59.0)&(ASY51>=32.0)!(AGE>=63.0)&(ASY51>=28.0)!(AGE+ASY51>=
90.0)&(AGE>=60.0); RAS3:=AGE>=65.0; RAS4:=AGE>=55.0; ROT10:=
QCODABLE; LNG2:=BIRTHD+62.0; BGN3:=MAX(BIRTHD+62.0,QUITD); BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD);
NR1:=0.01*u(FAP1,20000.0)*(ASY1+ASY2); NR1Q:=ord(RAS1)*NR1; NR2:=
0.47*FAP1+3630.0; NR2Q:=ord(RAS2)*AA(QUITD,LNG2)*NR2; NR3:=0.47*
FAP1+3630.0-SS2*1.0; NR3Q:=ord(RAS2)*AA(BGN3,0.0)*NR3; NR4:=(
0.47*FAP1+3630.0-SS1)*u(ASY1+ASY2,30.0)/30.0; NR4Q:=ord(RAS3)*
NR4; NRT:=MAX(NR1,NR4,NR2+NR3); NRQ:=MAX(NR1Q,NR4Q,NR2Q+NR3Q);
LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
(0.47*FAP1+3630.0-SS2)*u(ASY1+ASY2,30.0)/30.0*RED5; ER2Q:=ord(
RAS1)*ER2; ER3:=(0.47*FAP1+3630.0-SS2)*u(ASY1+ASY2,30.0)/30.0*
RED6; ER3Q:=ord(RAS4)*ER3; ER4:=NR1*RED6; ER4Q:=ord(RAS4)*ER4;
ERT:=MAX(ER1,ER2,ER3,ER4); ERQ:=MAX(ER1Q,ER2Q,ER3Q,ER4Q); VD1:=
NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=(0.47*FAP1+3630.0-SS1)*((
ASY7+ASY8)*0.5+ASY9)/PSY7*RED7; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MAX(
VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NR1; DR1Q:=ord(RAS3&ROT10)*
AA(BEG10,0.0)*DR1; DR2:=0.47*FAP1+3630.0-SS1; DR2Q:=ord(RAS3&
ROT10)*AA(BEG10,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q);
DS1:=ERT*RED13*RED14*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASY51>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,
ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,
NR1,BEG10,BEG7,BGN3,LNG2,RED14,RED13,RED7,RED6,ASY51,RED5,RED4,
SS2,SS1,FAP1,SDFAP1,FDFAP1,PSY7,ASY9,ASY8,ASY7,ASY2,ASY1, CNQ)
<0 then negative end;

procedure c0366s1075; begin CNQ:=0.0; ASY1:=NNMIN(33.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*1.0; PSY7:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(
QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0); FAP1:=
ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,MAX(
BENIFITD,BIRTHD+65.0))/12.0; SS7:=SS(1.0,MAX(BENIFITD,BIRTHD+
65.0))/12.0; RED4:=1.0-(0.04*a(AGE,60.0,55.0)+0.06*a(AGE,65.0,
60.0)); RED7:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY1>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=0.02*FAP1*ASY1-0.5*SS1*ASY1/33.0; NR1Q:=ord(RAS1)*
NR1; NR2:=4.0*ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=
MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=(0.02*FAP1*
PSY7-0.5*SS7*u(PSY7,33.0)/33.0)*ASY1/PSY7*RED7; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=0.667*ERT*
RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED7,RED4,SS7,
SS1,FAP1,SDFAP1,FDFAP1,PSY7,ASY1,CNQ) <0 then negative end;

procedure c0367s444; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1972.0)-
HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(QUITD-MAX(HIRED,1972.0))*
ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,1972.0); SDFAP1:=MAX(
HIRED,1971.0); FAP1:=ord(FDFAP1>SDFAP1)*WAGE(FDFAP1); FDFAP2:=
QUITD; SDFAP2:=MAX(HIRED,FDFAP2-5.0,1972.0); FAP2:=ord(
FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); RED4:=NN(1.0-0.06*o(65.0,
AGE)); RED13:=JSRED; RED14:=COSTRED; ASY51:=ASY1+ASY2; RAS1:=(
AGE>=65.0)&(ASY51>=10.0); RAS4:=(AGE>=55.0)&(ASY51>=10.0);
RAS10:=ASY51>=10.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
MAX(66.0*ASY1,0.015*FAP1*ASY1); NR1Q:=ord(RAS1)*NR1; NR2:=0.0145*
FAP2*ASY2; NR2Q:=ord(RAS1)*NR2; NRT:=NR1+NR2; NRQ:=NR1Q+NR2Q;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=
ERT*RED14*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord(ASY51>=10.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,ASY51,RED14,RED13,
RED4,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0368s692; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,1976.0); FAP1:=ord(FDFAP1>SDFAP1)
*AVG(WAGE,SDFAP1,FDFAP1)/12.0; RED4:=AR(65.0-AGE); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.0075*u(FAP1,550.0)+0.015*o(
FAP1,550.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG7,RED13,RED4,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0
then negative end;

procedure c0369s599; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.25)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1976.25))*ord(WRKHRS>=1000.0)*1.0; PSY4:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/
12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0;
SS1:=SSBASE(1968.0)/12.0; RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+
0.0667*a(AGE,65.0,60.0)); RED10:=NN(1.0-(0.0333*o(60.0,AGE)+
0.0667*a(AGE,65.0,60.0))); RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=
ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=10.0); BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=(0.0075*u(FAP1,SS1)+0.015*o(FAP1,SS1))*(
ASY1+ASY2); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*(ASY1+ASY2)/PSY4*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=ERT*RED10; DR1Q:=DR1; DRT:=
DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,ASY51,RED13,RED10,RED4,SS1,FAP1,SDFAP1,
FDFAP1,PSY4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0370s1019; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); RED13:=JSRED; RAS1:=(ASY1>=35.0)!(AGE>=
55.0)&(ASY1>=30.0)!(AGE>=60.0)&(ASY1>=5.0); RAS13:=(AGE>=50.0)&(
ASY1>=25.0); BEG7:=MAX(NRD,QUITD); NR1:=0.02*FAP1*ASY1; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ERQ:=
0.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DS1:=
NRT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=55.0)&(ASY1>=5.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG7,RED13,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,
CNQ) <0 then negative end;

procedure c0371s901; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1964.5)-
HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,1967.0)-MAX(
HIRED,1964.5))*NNMIN(1.0,WRKHRS/12.0); ASY3:=NN(MIN(QUITD,1974.0)
-MAX(HIRED,1967.0))*ord(WRKHRS>=1000.0)*1.0; ASY4:=NN(MIN(QUITD,
1977.0)-MAX(HIRED,1974.0))*ord(WRKHRS>=1000.0)*1.0; ASY5:=NN(MIN(
QUITD,1979.0)-MAX(HIRED,1977.0))*ord(WRKHRS>=1000.0)*1.0; ASY6:=
NN(MIN(QUITD,1981.0)-MAX(HIRED,1979.0))*ord(WRKHRS>=1000.0)*1.0;
ASY7:=NN(QUITD-MAX(HIRED,1981.0))*NNMIN(1.0,WRKHRS/500.0); ASY8:=
NN(MIN(QUITD,1967.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY9:=NN(
QUITD-MAX(HIRED,1967.0))*NNMIN(1.0,WRKHRS/500.0); RED4:=NN(1.0-
0.0333*o(65.0,AGE)); RED13:=JSRED; ASY68:=ASY8+ASY9; RAS1:=(AGE>=
65.0)&(ASY68>=10.0)!(AGE>=62.0)&(ASY68>=15.0); RAS4:=(AGE>=55.0)&
(ASY68>=10.0); RAS10:=ASY68>=10.0; ROT10:=QSSDABLE; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(2.75*ASY1+5.25*ASY2+6.25*
ASY3+10.0*ASY4+15.5*ASY5+18.5*ASY6)*1.14+18.5*ASY7; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=
0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(ord(ASY68>=10.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY68,RED13,RED4,ASY9,ASY8,
ASY7,ASY6,ASY5,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0372s1001; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-4.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.06;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.03*a(AGE,
53.0,50.0)+0.0487*a(AGE,60.0,53.0)+0.03*a(AGE,65.0,60.0));
RED13:=JSRED; RAS1:=(ASY1>=30.0)!(AGE>=65.0)&(ASY1>=5.0); RAS4:=(
AGE>=50.0)&(ASY1>=20.0)!(AGE>=60.0)&(ASY1>=5.0); RAS5:=(AGE>=
55.0)&(ASY1>=5.0); RAS10:=ASY1>=5.0; RAS13:=(AGE>=55.0)!(ASY1>=
30.0)!(AGE>=50.0)&(ASY1>=20.0); DAT1:=1983.5<=QUITD; DAT2:=
QUITD<1983.5; ROT4:=QHAZDUTY; BEG7:=MAX(NRD,QUITD); BEG8:=MAX(
ERD,QUITD); NR1:=0.0157*ASY1*FAP1; NR1Q:=ord(RAS1&DAT1)*NR1;
NR2:=0.0155*ASY1*FAP1; NR2Q:=ord(RAS1&DAT2)*NR2; NRT:=MAX(NR1,
NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4;
ER1Q:=ord(RAS4&DAT1)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4&DAT2)*
ER2; ER3:=NR1*RED4; ER3Q:=ord(RAS5&DAT1&ROT4)*ER3; ER4:=NR2*RED4;
ER4Q:=ord(RAS5&DAT2&ROT4)*ER4; ERT:=MAX(ER1,ER2,ER3,ER4); ERQ:=
MAX(ER1Q,ER2Q,ER3Q,ER4Q); VD1:=MAX(ord(DAT1)*NR1,ord(DAT2)*NR2);
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=MAX(ord(DAT1)*ER1,ord(DAT2)*ER2,ord(
DAT1&ROT4)*ER3,ord(DAT2&ROT4)*ER4); VD2Q:=AA(BEG8,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=MAX(ord(DAT1)*NR1,ord(
DAT2)*NR2); DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ER1*
RED13; DS1Q:=ord(RAS13&DAT1)*DS1; DS2:=ER2*RED13; DS2Q:=ord(
RAS13&DAT2)*DS2; DS3:=ER3*RED13; DS3Q:=ord(RAS13&DAT1&ROT4)*DS3;
DS4:=ER4*RED13; DS4Q:=ord(RAS13&DAT2&ROT4)*DS4; DST:=MAX(DS1,DS2,
DS3,DS4); DSQ:=MAX(DS1Q,DS2Q,DS3Q,DS4Q); PRAG:=TAR(NN(FAR(ACPIG,
1.0)-0.0),1.0); VEDB:=VOPT(ord((ASY1>=5.0)!(QUITAGE+ASY1>=40.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,
DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG8,BEG7,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,
CNQ) <0 then negative end;

procedure c0373s609; begin CNQ:=0.0; ASY1:=MIN(30.0,QUITD-HIRED)*
1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
SS1:=SS(1.0,BENIFITD); RED4:=NN(1.0-0.03*o(62.0,AGE)); RED5:=NN(
1.0-0.024*o(65.0,AGE)); RED7:=AR(NRD-BENIFITD); RAS1:=(AGE>=65.0)
&(ASY1>=5.0)!(AGE>=62.0)&(ASY1>=15.0); RAS4:=(AGE>=55.0)&(ASY1>=
10.0); RAS5:=(AGE>=55.0)&(ASY1>=15.0); RAS13:=AGE>=35.0; BGN1:=
MAX(BIRTHD+65.0,QUITD); LNG2:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=0.02*FAP1*ASY1-0.5*SS1; NR1Q:=ord(RAS1)*
AA(BGN1,0.0)*NR1; NR2:=0.02*FAP1*ASY1; NR2Q:=ord(RAS1)*AA(QUITD,
LNG2)*NR2; NRT:=NR1+NR2; NRQ:=NR1Q+NR2Q; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED5; ER1Q:=ord(RAS4)*AA(BGN1,0.0)*ER1; ER2:=NRT*RED4;
ER2Q:=ord(RAS5)*AA(BGN1,0.0)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q); VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DRQ:=0.0; DS1:=NRT*0.3; DS1Q:=ord(RAS13)*DS1; DST:=
DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((ASY1>=10.0)!(QUITAGE>=
65.0)&(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG7,LNG2,BGN1,RED7,RED5,RED4,SS1,FAP1,FDFAP1,
ASY1,CNQ) <0 then negative end;

procedure c0374s748; begin CNQ:=0.0; ASY1:=MIN(30.0,QUITD-HIRED)*
NNMIN(1.0,WRKHRS/1000.0); FDFAP1:=MIN(QUITD,BIRTHD+65.0);
SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVGMIN(
525.0,WAGE,SDFAP1,FDFAP1)/12.0; FDFAP2:=MIN(QUITD,BIRTHD+65.0);
SDFAP2:=MAX(HIRED,FDFAP2-5.0); FAP2:=ord(FDFAP2>SDFAP2)*AVGMIN(
600.0,WAGE,SDFAP2,FDFAP2)/12.0; RED4:=1.0-(0.0333*a(AGE,60.0,
55.0)+0.0533*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=(AGE>=65.0)&(
ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0;
DAT1:=(1982.75<=QUITD)&(QUITD<1983.75); DAT2:=1983.75<=QUITD;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(8.0+0.012*b(FAP1,
100.0,225.0)+0.0175*b(FAP1,225.0,425.0)+0.04*b(FAP1,425.0,525.0)
)*ASY1; NR1Q:=ord(RAS1&DAT1)*NR1; NR2:=(8.0+0.012*b(FAP2,100.0,
225.0)+0.0175*b(FAP2,225.0,425.0)+0.04*b(FAP2,425.0,600.0))*
ASY1; NR2Q:=ord(RAS1&DAT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(
RAS4&DAT1)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4&DAT2)*ER2; ERT:=
MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=ER1; VD1Q:=ord(DAT1)
*AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(DAT2)*AA(BEG7,0.0)*VD2;
VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NR1; DR1Q:=ord(
RAS10&DAT1)*DR1; DR2:=NR2; DR2Q:=ord(RAS10&DAT2)*DR2; DRT:=MAX(
DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=0.5*NR1*RED13; DS1Q:=
ord(RAS4&DAT1)*DS1; DS2:=0.5*NR2*RED13; DS2Q:=ord(RAS4&DAT2)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=
VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG7,RED13,RED4,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY1,CNQ)
<0 then negative end;

procedure c0375s652; begin CNQ:=0.0; ASY1:=MIN(25.0,QUITD-HIRED)*
ord(WRKHRS>=1000.0)*1.0; ASY2:=MIN(30.0,QUITD-HIRED)*ord(WRKHRS>=
1000.0)*1.0; ASY4:=NN(QUITD-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=
1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),
FDFAP1); FDFAP2:=MIN(QUITD,1983.0); SDFAP2:=MAX(HIRED,1978.0);
FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); SS1:=SSBASE(
BENIFITD); SS2:=SS(1.0,BENIFITD); RED4:=AR(NRD-BENIFITD); RED13:=
JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=10.0); ROT2:=
PARTD<1982.833; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(
0.008*FAP1+0.009*o(FAP1,SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=
NNMIN(0.015*FAP2*ASY2,0.75*FAP2-0.75*SS2); NR2Q:=ord(RAS1)*NR2;
NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0;
ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR2*RED4; ER2Q:=ord(
RAS4&ROT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=ER1;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*
VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=ER1*
RED13*0.5; DS1Q:=ord(RAS4)*DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(
RAS4&ROT2)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,
VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG7,RED13,RED4,SS2,SS1,FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1,ASY4,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0376s694; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*AVG(WAGE,
HIRED,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,
FDFAP2-5.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2);
SDMAN7:=HIRED; FDMAN7:=QUITD; VR1MAN7:=ord(10801.0>WAGE(SURVEYD))
*0.02+ord(WAGE(SURVEYD)>=10801.0)*0.04; PCMAN7:=VR1MAN7; MAN7:=
SUMI(PCMAN7,7.0,0.0,SDMAN7,FDMAN7); SS1:=SSBASE(BENIFITD)/12.0;
RED4:=1.0-(0.05*a(AGE,62.0,55.0)+0.025*a(AGE,64.0,62.0)+0.05*a(
AGE,65.0,64.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=AGE>=55.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.01*u(FAP1,
10800.0)+0.02*b(FAP1,10800.0,21600.0)+0.015*o(FAP1,21600.0))*
ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.0075*FAP2*ASY2+0.0075*o(FAP2,
SS1)*ASY2; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
55.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,
NR1Q,NR1,BEG7,RED13,RED4,SS1,MAN7,PCMAN7,VR1MAN7,FDMAN7,SDMAN7,
FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1,ASY2,ASY1,ASYV,CNQ) <0 then
negative end;

procedure c0377s650; begin CNQ:=0.0; ASY1:=NNMIN(40.0,MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*
1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-
5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVGMIN(50000.0,WAGE,SDFAP1,FDFAP1)
;RED4:=1.0-(0.05*a(AGE,62.0,55.0)+0.1*a(AGE,65.0,62.0)); RED13:=
JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS5:=(
AGE>=55.0)&(ASY1>=5.0); ROT4:=PARTD<1976.0; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=0.01*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=
ord(RAS4)*ER1; ER2:=NRT*RED4; ER2Q:=ord(RAS5&ROT4)*ER2; ERT:=MAX(
ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1;
VD2:=ER2; VD2Q:=ord(ROT4)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2);
VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=0.5*ER1*RED13; DS1Q:=ord(
RAS4)*DS1; DS2:=0.5*ER2*RED13; DS2Q:=ord(RAS4&ROT4)*DS2; DST:=
MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,
ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,FAP1,
SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0378s570; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/1000.0); ASY4:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1)/12.0; SS1:=SS(2.0,BENIFITD)/12.0; RED4:=1.0-(0.0333*a(
AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=COSTRED; RED14:=
JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=10.0); RAS10:=(
AGE>=50.0)&(ASY1>=10.0); RAS13:=(AGE>=55.0)&(ASY1>=10.0); ROT10:=
QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.018*
FAP1*ASY1-0.018*SS1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=
NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(
RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED14,RED13,RED4,SS1,FAP1,
SDFAP1,FDFAP1,ASY4,ASY1,CNQ) <0 then negative end;

procedure c0379s589; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY4:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/
12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0;
SS1:=SSBASE(1978.0); RED4:=AR(65.0-AGE); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=60.0)&(ASY1>=5.0); BEG7:=ANYTIME(BIRTHD+
60.0,BIRTHD+65.0); NR1:=(0.6*u(FAP1,SS1)+0.9*o(FAP1,SS1))*u(ASY1,
15.0)/15.0; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=
AI(AGE,65.0,999.0)*NRQ; MRAGE:=65.0; ER1:=(0.6*u(FAP1,SS1)+0.9*o(
FAP1,SS1))*u(PSY4,15.0)/15.0*ASY1/PSY4*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q*12.0; DR1:=VD1; DR1Q:=DR1; DRT:=DR1; DRQ:=DR1Q*
12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.03; VEDB:=VOPT(MAX(ord(ASY1>=1.0)*0.2,ord(
ASY1>=3.0)*0.6,ord((QUITAGE>=65.0)!(ASY1>=5.0))*1.0)); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,SS1,
FAP1,SDFAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0380s747; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1967.0)-
HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1967.0))*1.0; ASY3:=MIN(
15.0,QUITD-HIRED)*1.0; FDFAP1:=MIN(QUITD,1967.0); FAP1:=ord(
FDFAP1>HIRED)*WAGE(FDFAP1); SDFAP2:=MAX(HIRED,1967.0); FAP2:=ord(
QUITD>SDFAP2)*AVG(WAGE,SDFAP2,QUITD); RED4:=AR(65.0-AGE); RED13:=
JSRED; ASY51:=ASY1+ASY2; RAS1:=(AGE>=65.0)&(ASY51>=10.0); RAS4:=(
ASY51>=30.0)!(AGE>=55.0)&(ASY51>=10.0); RAS10:=ASY51>=15.0;
ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+66.0); BEG10:=
MAX(BIRTHD+65.0,QUITD); NR1:=0.01656*ASY1*FAP1+0.0207*ASY2*FAP2;
NR1Q:=ord(RAS1)*NR1; NR2:=2484.0*ASY3/15.0; NR2Q:=ord(RAS1)*NR2;
NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0;
ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NR1;
DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q;
DS1:=VDT*0.5*RED13; DS1Q:=AA(BEG10,0.0)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord(ASY51>=10.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,ASY51,RED13,
RED4,FAP2,SDFAP2,FAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0381s481; begin CNQ:=0.0; ASY1:=MIN(35.0,QUITD-HIRED)*
ord(WRKHRS>=1000.0)*1.0; RED4:=NN(1.0-0.072*o(65.0,AGE)); RED10:=
OTHERB; RED13:=JSRED; RED14:=COSTRED; RAS1:=(AGE>=65.0)&(ASY1>=
10.0); RAS4:=(AGE>=62.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; LNG10:=
BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+62.0,BIRTHD+65.0); BEG11:=MAX(
BIRTHD+65.0,QUITD); NR1:=10.0*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=
NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=350.0-RED10; DR1Q:=ord(
RAS10)*AA(QUITD,LNG10)*DR1; DR2:=NRT; DR2Q:=ord(RAS10)*AA(BEG11,
0.0)*DR2; DRT:=DR1+DR2; DRQ:=DR1Q+DR2Q; DS1:=ERT*RED13*RED14*0.5;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG7,LNG10,RED14,RED13,RED10,
RED4,ASY1,CNQ) <0 then negative end;

procedure c0382s758; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVGMIN(32000.0,WAGE,MAX(HIRED,FDFAP1-24.0/
12.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; VR1MAN7:=ord(
9000.0>WAGE(SURVEYD))*0.0625+ord((18000.0>WAGE(SURVEYD))&(WAGE(
SURVEYD)>=9000.0))*0.0937+ord((32000.0>WAGE(SURVEYD))&(WAGE(
SURVEYD)>=18000.0))*0.125; PCMAN7:=VR1MAN7; MAN7:=SUMI(PCMAN7,
7.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.06*o(60.0,AGE)); RAS1:=(
AGE>=60.0)&(ASY1>=20.0); RAS4:=(AGE>=55.0)&(ASY1>=8.0); RAS10:=
ASY1>=12.0; BEG7:=ANYTIME(BIRTHD+55.0,0.0); NR1:=0.025*u(ASY1,
20.0)*FAP1*(1.0+0.02*b(ASY1,20.0,40.0)); NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NR1; DR1Q:=ord(RAS10)*
DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=NR1*0.9; DS1Q:=ord(RAS1)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=8.0)*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED4,MAN7,
PCMAN7,VR1MAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0383s514; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY4:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; PSY4:=MIN(30.0,BIRTHD+65.0-HIRED); PSY5:=
BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVGMIN(100000.0,WAGE,
SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(
HIRED,FDFAP2-5.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,
FDFAP2); SS1:=SS(1.0,BENIFITD); SS4:=SS(1.0,MAX(BENIFITD,BIRTHD+
65.0)); RED4:=NN(1.0-0.0667*o(65.0,AGE)); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=60.0)&(ASY4>=10.0); LNG2:=5.0; BGN3:=
BENIFITD+5.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); NR1:=(0.6*
FAP1-0.5*SS1)*u(ASY1,30.0)/30.0; NR1Q:=ord(RAS1)*NR1; NR2:=0.3*
FAP2; NR2Q:=ord(RAS1)*AA(QUITD,LNG2+QUITD)*NR2; NR3:=0.25*FAP2;
NR3Q:=ord(RAS1)*AA(BGN3,0.0)*NR3; NRT:=MIN(NR1,NR2+NR3); NRQ:=
MIN(NR1Q,NR2Q+NR3Q); LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0;
ER1:=(0.6*FAP1-0.5*SS4)*PSY4/30.0*ASY1/PSY5*RED4; ER1Q:=ord(RAS4)
*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4)*AA(QUITD,LNG2+QUITD)*ER2;
ER3:=NR3; ER3Q:=ord(RAS4)*AA(BGN3,0.0)*ER3; ERT:=MIN(ER1,ER2+ER3)
;ERQ:=MIN(ER1Q,ER2Q+ER3Q); VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1;
VD2:=ER2; VD2Q:=AA(BEG7,LNG2+BEG7)*VD2; VD3:=ER3; VD3Q:=AA(BGN3,
0.0)*VD3; VDT:=MIN(VD1,VD2+VD3); VDQ:=MIN(VD1Q,VD2Q+VD3Q); DRQ:=
0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY4>=5.0)*0.25,ord(ASY4>=
10.0)*0.5,ord((QUITAGE>=65.0)!(ASY4>=15.0)!(QUITAGE>=60.0)&(
ASY4>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,
VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,BGN3,LNG2,
RED13,RED4,SS4,SS1,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,PSY5,
PSY4,ASY4,ASY1,CNQ) <0 then negative end;

procedure c0384s656; begin CNQ:=0.0; ASY1:=NNMIN(25.0,MIN(QUITD,
BIRTHD+65.0,1965.583)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NNMIN(
25.0,MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1965.583))*ord(WRKHRS>=
1000.0)*1.0; RED4:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED; RAS1:=
AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=15.0);
RAS10:=ASY51>=15.0; ROT7:=ASY1+ASY2>=15.0; ROT10:=QSSDABLE;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,
QUITD); NR1:=(ASY1+ASY2)*26.0; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT7)*
AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*
DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(
ord(ASY51>=5.0)*0.25,ord(ASY51>=10.0)*0.5,ord((QUITAGE>=65.0)!(
ASY51>=15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG8,BEG7,ASY51,RED13,RED4,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0385s691; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1983.583)-MAX(HIRED+1.0,BIRTHD+25.0,1946.75))*NNMIN(1.0,
WRKHRS/2080.0); ASY2:=NNMIN(30.0,MIN(QUITD,BIRTHD+65.0,1984.583)-
MAX(HIRED+1.0,BIRTHD+25.0,1983.583))*NNMIN(1.0,WRKHRS/2080.0);
ASY3:=NNMIN(30.0,MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+
25.0,1984.583))*NNMIN(1.0,WRKHRS/2080.0); ASY4:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0;
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,
99.0,0.0,SDMAN7,FDMAN7); RED4:=AR(62.0-AGE); RED5:=NN(1.0-0.03*o(
62.0,AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED; RED14:=COSTRED;
RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY4>=10.0); RAS4:=(AGE>=55.0)&(
ASY4>=10.0); RAS5:=(AGE>=55.0)&(ASY4>=27.0); RAS10:=ASY4>=10.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=28.0*ASY1+29.0*ASY2+
32.0*ASY3; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*
RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)
*12.0; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NRT*RED5; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=
DR1Q*12.0; DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,RED14,RED13,RED7,RED5,RED4,MAN7,PCMAN7,
FDMAN7,SDMAN7,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0386s653; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0;
SS1:=SS(1.0,BENIFITD)/12.0; RED4:=o(62.0,AGE); RED7:=NN(1.0-
0.072*o(65.0,AGE)); RAS1:=(AGE>=65.0)&(ASY1>=5.0)!(AGE>=62.0)&(
ASY1>=10.0)!(AGE>=60.0)&(ASY1>=40.0); RAS4:=(AGE>=55.0)&(ASY1>=
30.0)!(AGE>=60.0)&(ASY1>=10.0); RAS5:=(AGE>=55.0)&(ASY1>=30.0);
RAS10:=ASY1>=15.0; RAS11:=(AGE>=65.0)&(ASY1>=15.0); RAS12:=(AGE>=
60.0)&(ASY1>=15.0); RAS13:=(AGE>=55.0)&(ASY1>=10.0)!(AGE>=65.0)&(
ASY1>=5.0); ROT10:=AGE>60.0; LNG10:=BIRTHD+65.0; LNG12:=MIN(
BIRTHD+70.0,BENIFITD+5.0); LNG13:=MIN(BIRTHD+70.0,BENIFITD+5.0);
BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+65.0,
QUITD); NR1:=16.5*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=16.5*u(ASY1,
30.0)+0.014*o(FAP1,1315.0)*u(ASY1,30.0); NR2Q:=ord(RAS1)*NR2;
NR3:=(0.01667*FAP1-0.01667*SS1)*u(ASY1,30.0); NR3Q:=ord(RAS1)*
NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q)*12.0; LRQ:=
NRQ; MRAGE:=70.0; ER1:=NR1; ER1Q:=ord(RAS5)*ER1; ER2:=NRT*(1.0-(
0.06-0.006*b(ASY1,30.0,40.0)))-RED4; ER2Q:=ord(RAS4)*ER2; ERT:=
MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=NRT*RED7; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=MAX(331.0,NRT);
DR1Q:=ord(RAS10)*AA(QUITD,LNG10)*DR1; DR2:=NRT; DR2Q:=ord(RAS11)*
AA(BEG11,0.0)*DR2; DR3:=MAX(331.0,NRT); DR3Q:=ord(RAS12&ROT10)*
AA(QUITD,LNG12)*DR3; DR4:=NRT; DR4Q:=ord(RAS11&ROT10)*AA(QUITD,
LNG13)*DR4; DRT:=MAX(DR1,DR2,DR3,DR4); DRQ:=MAX(DR1Q,DR2Q,DR3Q,
DR4Q)*12.0; DS1:=90.0; DS1Q:=ord(RAS13)*DS1; DS2:=ERT*0.4; DS2Q:=
ord(RAS13)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((ASY1>=10.0)!(QUITAGE>=65.0)&(ASY1>=
5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG11,BEG7,LNG13,LNG12,LNG10,RED7,RED4,SS1,FAP1,FDFAP1,ASY1,CNQ)
<0 then negative end;

procedure c0387s637; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(30.0,QUITD-
MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(
MIN(QUITD,1946.667)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=
1000.0)*1.0; ASY3:=NN(QUITD-MAX(HIRED+1.0,BIRTHD+25.0,1946.667))*
ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; SDFAP1:=MAX(HIRED,FDFAP1-
5.0,1946.667); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1);
FDFAP2:=MIN(QUITD,1946.667); SDFAP2:=MAX(HIRED,1945.667); FAP2:=
ord(FDFAP2>SDFAP2)*WAGE(FDFAP2); SS1:=SS(1.0,BENIFITD); RED4:=
1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED5:=1.0-
(0.03*a(AGE,58.0,55.0)+0.04*a(AGE,62.0,58.0)); RED10:=1.0-(0.03*
a(AGE,55.0,50.0)+0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)
); RED11:=1.0-(0.03*a(AGE,58.0,50.0)+0.04*a(AGE,62.0,58.0));
RED13:=JSRED; RED14:=COSTRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(
ASY1>=20.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS5:=(AGE>=55.0)&(
ASY1>=20.0); ROT2:=(PARTD<1971.0)&(1971.0<=QUITD); ROT10:=
QCODABLE; ROT11:=^QCODABLE; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG10:=
MAX(NRD,QUITD); BEG11:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=NN(
0.5*FAP1-0.5*SS1)*u(ASY1,30.0)/30.0; NR1Q:=ord(RAS1)*NR1; NR2:=
0.0125*FAP1*ASY3+0.0125*FAP2*ASY2+0.005*FAP1*ASY1; NR2Q:=ord(
RAS1&ROT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ;
MRAGE:=65.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR2*RED4;
ER2Q:=ord(RAS4&ROT2)*ER2; ER3:=NR1*RED5; ER3Q:=ord(RAS4)*ER3;
ER4:=NR2*RED5; ER4Q:=ord(RAS4&ROT2)*ER4; ERT:=MAX(MAX(ER1,ER2),
MAX(ER3,ER4)); ERQ:=MAX(MAX(ER1Q,ER2Q),MAX(ER3Q,ER4Q)); VD1:=ER1;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*
VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NRT; DR1Q:=ord(
ROT10)*AA(BEG10,0.0)*DR1; DR2:=NRT*RED10; DR2Q:=ord(RAS4&ROT11)*
AA(BEG11,0.0)*DR2; DR3:=NRT*RED11; DR3Q:=ord(RAS5&ROT11)*AA(
BEG11,0.0)*DR3; DRT:=MAX(DR1,DR2,DR3); DRQ:=MAX(DR1Q,DR2Q,DR3Q);
DS1:=ER1*RED14*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DS2:=ER2*RED14*
RED13*0.5; DS2Q:=ord(RAS4&ROT2)*DS2; DS3:=ER3*RED14*RED13*0.5;
DS3Q:=ord(RAS4)*DS3; DS4:=ER4*RED14*RED13*0.5; DS4Q:=ord(RAS4&
ROT2)*DS4; DST:=MAX(MAX(DS1,DS2),MAX(DS3,DS4)); DSQ:=MAX(MAX(
DS1Q,DS2Q),MAX(DS3Q,DS4Q)); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,
DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG11,BEG10,BEG7,
RED14,RED13,RED11,RED10,RED5,RED4,SS1,FAP2,SDFAP2,FDFAP2,FAP1,
SDFAP1,FDFAP1,ASY3, ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0388s732; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/12.0); ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*1.0;
ASY10:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0);
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/
12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(
1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=1.0-(0.0333*a(AGE,58.0,
55.0)+0.037*a(AGE,59.0,58.0)+0.045*a(AGE,60.0,59.0)); RED5:=1.0-(
0.051*a(AGE,61.0,60.0)+0.0667*a(AGE,65.0,61.0)); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY10>=
10.0; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG10:=MAX(BIRTHD+65.0,QUITD)
;NR1:=(0.85*u(FAP1,24000.0)+0.5*o(FAP1,24000.0)+0.01*FAP1*b(ASY1,
35.0,45.0)-SS1)*u(ASY1,35.0)/35.0; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED5*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10)*AA(BEG10,0.0)*
DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG10,BEG7,RED13,RED5,RED4,SS1,FAP1,SDFAP1,FDFAP1,
ASY10,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0389s526; begin CNQ:=0.0; ASY1:=MIN(35.0,QUITD-HIRED)*
ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); SS1:=SS(2.0,BENIFITD); SS2:=SS(1.0,BENIFITD)
;SS3:=SS(2.0,MAX(BENIFITD,BIRTHD+62.0)); RED4:=NN(1.0-0.06*o(
60.0,AGE)); RED7:=AR(65.0-AGE); RAS1:=AGE>=65.0; RAS2:=AGE>=60.0;
RAS4:=AGE>=55.0; RAS10:=ASY1>=25.0; RAS13:=(AGE>=55.0)!(AGE>=
50.0)&(ASY1>=15.0); RAS14:=AGE>=65.0; ROT2:=PARTD<1954.25;
ROT10:=^QSSDABLE; ROT11:=^QSSDABLE&(PARTD<1954.25); BGN2:=MAX(
BIRTHD+60.0,QUITD); LNG2:=BIRTHD+62.0; LNG10:=BIRTHD+SSAGE(2.0);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=NN(0.02*FAP1*u(ASY1,
30.0)+0.0075*FAP1*o(ASY1,30.0)-0.01667*SS1*ASY1); NR1Q:=ord(RAS1)
*NR1; NR2:=SS3; NR2Q:=ord(RAS2&ROT2)*AA(BGN2,LNG2)*NR2; NR3:=NN(
0.02*FAP1*u(ASY1,30.0)+0.0075*FAP1*o(ASY1,30.0)-0.01667*SS2*
ASY1); NR3Q:=ord(RAS2)*NR3; NRT:=MAX(NR1,NR2+NR3); NRQ:=MAX(NR1Q,
NR2Q+NR3Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NR3*RED4; ER1Q:=ord(RAS4)
*ER1; ER2:=NR2; ER2Q:=ord(RAS4)*AA(BGN2,LNG2)*ER2; ERT:=ER1+ER2;
ERQ:=ER1Q+ER2Q; VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=NR1; DR1Q:=ord(RAS10)*DR1; DR2:=NR2; DR2Q:=ord(
ROT11)*AA(QUITD,LNG10)*DR2; DR3:=0.5*SS3; DR3Q:=ord(ROT10)*AA(
QUITD,LNG10)*DR3; DRT:=DR1+MAX(DR2,DR3); DRQ:=DR1Q+MAX(DR2Q,DR3Q)
;DS1:=0.5*NR3; DS1Q:=ord(RAS13)*DS1; DS2:=0.5*NR1; DS2Q:=ord(
RAS14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASY1>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,LNG10,LNG2,BGN2,RED7,RED4,
SS3,SS2,SS1,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0390s775; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/12.0); ASY4:=
NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,BENIFITD);
RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0));
RED7:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY4>=10.0); RAS10:=ASY4>=5.0; ROT10:=QSSDABLE;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,
QUITD); NR1:=0.02*FAP1*u(ASY1,25.0)+0.0075*FAP1*b(ASY1,25.0,40.0)
-0.02*SS1*u(ASY1,25.0); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*DR1;
DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG10,BEG7,RED13,RED7,RED4,SS1,FAP1,SDFAP1,FDFAP1,ASY4,
ASY1,CNQ) <0 then negative end;

procedure c0391s870; begin CNQ:=0.0; ASY1:=NNMIN(25.0,MIN(QUITD,
1972.667)-(HIRED+3.0))*1.0; ASY2:=NNMIN(25.0,QUITD-MAX(HIRED+1.0,
BIRTHD+25.0,1972.667))*NNMIN(1.0,WRKHRS/1920.0); ASY3:=NNMIN(
25.0,QUITD-MAX(HIRED,1972.667))*NNMIN(1.0,WRKHRS/1920.0); RED4:=
NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED; RED14:=COSTRED; ASY51:=
ASY1+ASY2; RAS1:=(AGE>=65.0)&(ASY51>=10.0); RAS4:=(AGE>=60.0)&(
ASY51>=15.0); RAS10:=ASY51>=10.0; ROT7:=ASY1+ASY2>=15.0; ROT10:=
QSSDABLE; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+
60.0,BIRTHD+65.0); NR1:=2.09*u(ASY1+ASY2,25.0); NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*
VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT;
DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*
RED13*RED14*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; ASY57:=ASY1+ASY3; VEDB:=VOPT(ord(ASY57>=10.0)*1.0);
if min( VEDB,ASY57,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG8,BEG7,ASY51,RED14,RED13,RED4,ASY3,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0392s701; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(35.0,MIN(QUITD,BIRTHD+65.0)-
HIRED)*NNMIN(1.0,WRKHRS/2080.0); PSY10:=BIRTHD+65.0-HIRED;
RED13:=JSRED; RAS1:=AGE>=65.0; RAS2:=(AGE>=64.0)&(ASY1>=34.0)!(
AGE>=63.0)&(ASY1>=33.0)!(AGE>=62.0)&(ASY1>=32.0); RAS4:=(AGE>=
60.0)&(ASY1>=30.0); RAS5:=(AGE>=61.0)&(ASY1>=31.0); RAS10:=ASY1>=
5.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0);
BEG8:=ANYTIME(BIRTHD+61.0,BIRTHD+65.0); BEG9:=MAX(BIRTHD+65.0,
QUITD); NR1:=12.0*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=12.0*u(ASY1,
AGE-30.0); NR2Q:=ord(RAS2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q)*12.0; LRQ:=AI(AGE,65.0,68.0)*NRQ; MRAGE:=68.0; ER1:=10.02*
u(ASY1,31.0); ER1Q:=ord(RAS5)*ER1; ER2:=9.36*u(ASY1,30.0); ER2Q:=
ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=
ER2; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER1; VD2Q:=AA(BEG8,0.0)*VD2;
VD3:=NR1; VD3Q:=AA(BEG9,0.0)*VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=
MAX(VD1Q,VD2Q,VD3Q)*12.0; DR1:=12.0*PSY10; DR1Q:=ord(RAS10&ROT10)
*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASYV>=10.0)!(QUITAGE>=60.0)&(ASYV>=5.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD3Q,
VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG9,BEG8,BEG7,RED13,PSY10,ASY1,ASYV,CNQ)
<0 then negative end;

procedure c0393s780; begin CNQ:=0.0; ASY1:=MIN(38.0,QUITD-HIRED)*
NNMIN(1.0,WRKHRS/680.0); ASY10:=NN(MIN(QUITD,BIRTHD+60.0)-HIRED)*
NNMIN(1.0,WRKHRS/680.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-4.0),FDFAP1); FDFAP10:=MIN(QUITD,BIRTHD+60.0); FAP10:=ord(
FDFAP10>HIRED)*WAGE(FDFAP10); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=0.08; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(
1.0-0.06*o(60.0,AGE)); RED10:=NN(1.0-0.06*o(55.0,AGE)); RED11:=
OTHERB; RAS1:=(AGE>=62.0)&(ASY1>=5.0)!(AGE>=60.0)&(ASY1>=10.0)!(
AGE>=55.0)&(ASY1>=35.0); RAS4:=(AGE>=55.0)&(ASY1>=20.0); RAS10:=
ASY1>=3.0; RAS13:=ASY1>=1.0; ROT7:=^QWDMAN; ROT10:=QJRDABLE;
LNG10:=MIN(BIRTHD+65.0,BENIFITD+ASY10/4.0); LNG11:=BIRTHD+65.0;
LNG13:=1.0; BEG7:=ANYTIME(BIRTHD+55.0,0.0); BEG8:=ANYTIME(BIRTHD+
62.0,0.0); BEG11:=MAX(MIN(BIRTHD+65.0,BENIFITD+ASY10/4.0),QUITD);
BEG12:=MAX(BIRTHD+65.0,QUITD); BEG13:=MAX(BIRTHD+50.0,QUITD);
NR1:=(0.0167*u(ASY1,10.0)+0.019*b(ASY1,10.0,20.0)+0.021*b(ASY1,
20.0,30.0)+0.023*b(ASY1,30.0,38.0))*FAP1; NR1Q:=ord(RAS1)*NR1;
NR2:=0.75*FAP1; NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(
NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=ord(ROT7)*AA(
BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=0.4*FAP10; DR1Q:=ord(
RAS10)*AA(QUITD,LNG10)*DR1; DR2:=0.35*FAP10*RED10; DR2Q:=ord(
RAS10)*AA(BEG11,0.0)*DR2; DR3:=NR1*RED10; DR3Q:=ord(RAS10)*AA(
BEG11,0.0)*DR3; DR4:=0.6*FAP10-RED11; DR4Q:=ord(ROT10)*AA(QUITD,
LNG11)*DR4; DR5:=NR1; DR5Q:=ord(ROT10)*AA(BEG12,0.0)*DR5; DRT:=
MAX(DR4+DR5,DR1+MAX(DR2,DR3)); DRQ:=MAX(DR4Q+DR5Q,DR1Q+MAX(DR2Q,
DR3Q)); DS1:=1000.0; DS1Q:=ord(RAS13)*AA(BEG13,LNG13+BEG13)*DS1;
DS2:=0.3*FAP1; DS2Q:=ord(RAS13)*AA(BEG13,0.0)*DS2; DS3:=4800.0;
DS3Q:=ord(RAS13)*AA(BEG13,0.0)*DS3; DS4:=0.5*ER1; DS4Q:=ord(
RAS13)*AA(BEG13,0.0)*DS4; DST:=MAX(DS4,MIN(DS2,DS3))+DS1; DSQ:=
MAX(DS4Q,MIN(DS2Q,DS3Q))+DS1Q; PRAG:=TAR(0.03,1.0); VEDB:=VOPT(
ord(ASY1>=5.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,DS3,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR5Q,DR5,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG13,BEG12,BEG11,BEG8,BEG7,LNG13,
LNG11,LNG10,RED11,RED10,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP10,
FDFAP10,FAP1, FDFAP1,ASY10,ASY1,CNQ) <0 then negative end;

procedure c0394s738; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1977.0)-MAX(HIRED,BIRTHD+18.0))*ord(WRKHRS>=1000.0)*1.0;
ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+18.0,1977.0))*
ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,1977.0);
SDFAP1:=MAX(HIRED,1976.0); FAP1:=ord(FDFAP1>SDFAP1)*WAGE(FDFAP1);
FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,1977.0); FAP2:=
ord(FDFAP2>SDFAP2)*SUM(WAGE,SDFAP2,FDFAP2); RED4:=1.0-(0.0333*a(
AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=
AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=10.0);
RAS13:=(AGE>=65.0)!(AGE>=55.0)&(ASY51>=10.0); BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=0.0075*FAP1*ASY1+0.01*FAP2; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=(1.0+0.07*b(AGE,66.0,
69.0)+0.08*b(AGE,69.0,73.0)+0.09*b(AGE,73.0,75.0))*NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0;
DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY51,RED13,RED4,FAP2,
SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0395s634; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.917)-MAX(HIRED+1.0,BIRTHD+30.0))*1.0; ASY2:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1976.917))*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); ASY51:=ASY1+ASY2; RED4:=NN(1.0-0.05*o(80.0,
AGE+ASY51)); RED5:=NN(1.0-0.05*o(65.0,AGE)); RED7:=AR(NRD-
BENIFITD); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE+ASY51>=80.0)&(
AGE>=55.0); RAS4:=(AGE>=50.0)&(ASY51>=16.0); RAS5:=(AGE>=50.0)&(
ASY51>=10.0); RAS13:=(AGE>=65.0)!(AGE>=50.0)&(ASY51>=10.0);
BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+65.0); NR1:=0.013*FAP1*(ASY1+
ASY2); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR1*RED5;
ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=
0.0; DS1:=NR1*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED7,
RED5,RED4,ASY51,FAP1,FDFAP1,ASY2,ASY1,ASYV,CNQ) <0 then negative
end;

procedure c0396s588; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; RED4:=AR(60.0-AGE); RED7:=AR(65.0-AGE);
RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY1>=15.0); RAS4:=(
AGE>=55.0)&(ASY1>=15.0); RAS10:=ASY1>=15.0; DAT1:=QUITD<1983.583;
DAT2:=1983.583<=QUITD; ROT7:=ASY1>=15.0; BEG7:=MAX(BIRTHD+65.0,
QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=10.0*ASY1;
NR1Q:=ord(RAS1&DAT1)*NR1; NR2:=11.0*ASY1; NR2Q:=ord(RAS1&DAT2)*
NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&DAT1)*ER1; ER2:=NR2*
RED4; ER2Q:=ord(RAS4&DAT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q)*12.0; VD1:=NR1*RED7; VD1Q:=ord(DAT1&ROT7)*AA(BEG8,0.0)*VD1;
VD2:=NR2*RED7; VD2Q:=ord(DAT2&ROT7)*AA(BEG8,0.0)*VD2; VD3:=NR1;
VD3Q:=ord(DAT1)*AA(BEG7,0.0)*VD3; VD4:=NR2; VD4Q:=ord(DAT2)*AA(
BEG7,0.0)*VD4; VDT:=MAX(MAX(VD1,VD2),MAX(VD3,VD4)); VDQ:=MAX(MAX(
VD1Q,VD2Q),MAX(VD3Q,VD4Q))*12.0; DR1:=NR1; DR1Q:=ord(RAS10&DAT1)*
DR1; DR2:=NR2; DR2Q:=ord(RAS10&DAT2)*DR2; DRT:=MAX(DR1,DR2);
DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=ER1*RED13*0.5; DS1Q:=ord(RAS4&
DAT1)*DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(RAS4&DAT2)*DS2; DST:=
MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD4Q,
VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,RED13,RED7,RED4,ASY1,
CNQ) <0 then negative end;

procedure c0397s616; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/12.0); ASY4:=
NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; RED4:=
1.0-(0.03*a(AGE,57.0,55.0)+0.04*a(AGE,59.0,57.0)+0.05*a(AGE,
61.0,59.0)); RED5:=1.0-(0.06*a(AGE,62.0,61.0)+0.0667*a(AGE,65.0,
62.0)); RED6:=NN(1.0-0.03*o(62.0,AGE)); RED7:=AR(NRD-BENIFITD);
RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY4>=30.0); RAS4:=(
AGE>=55.0)&(ASY4>=10.0); RAS5:=(AGE>=55.0)&(ASY4>=30.0); BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=30.0*ASY1; NR1Q:=ord(RAS1)
*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED5*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED6; ER2Q:=ord(RAS5)*
ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=NRT*RED7;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=
ER1*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DS2:=ER2*RED13*0.5; DS2Q:=
ord(RAS5)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,
RED7,RED6,RED5,RED4,ASY4,ASY1,CNQ) <0 then negative end;

procedure c0398s832; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1020.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-
0.06*o(60.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=60.0)&(ASY1>=10.0)!(
AGE>=55.0)&(ASY1>=30.0); RAS4:=(AGE>=55.0)&(ASY1>=15.0); RAS10:=
ASY1>=10.0; RAS13:=(ASY1>=15.0)!(AGE>=60.0)&(ASY1>=10.0); ROT7:=
ASY1>=15.0; ROT10:=QSSDABLE&QJRDABLE; ROT13:=QJRDEATH; BEG7:=MAX(
BIRTHD+60.0,QUITD); BEG8:=MAX(BIRTHD+55.0,QUITD); NR1:=0.015*
FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=ord(ROT7)
*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=
0.015*FAP1*ASY1; DR1Q:=ord(RAS10)*DR1; DR2:=MAX(0.015*FAP1*10.0,
DR1); DR2Q:=ord(ROT10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,
DR2Q); DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS13)*DS1; DS2:=NRT; DS2Q:=
ord(ROT13)*DS2; DS3:=0.015*FAP1*10.0; DS3Q:=ord(ROT13)*DS3; DST:=
MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q); PRAG:=0.0; VEDB:=
VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,
RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0
then negative end;

procedure c0399s416; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,1976.0))*NNMIN(1.0,WRKHRS/
2000.0); ASY4:=NN(MIN(QUITD,BIRTHD+65.0,1976.0)-HIRED)*1.0;
ASY5:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1976.0))*ord(WRKHRS>=
1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,
FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1);
RED4:=NN(1.0-0.06*o(65.0,AGE)); RED10:=OTHERB; RED13:=JSRED;
RAS1:=AGE>=65.0; ASY55:=ASY4+ASY5; RAS4:=(AGE>=55.0)&(ASY55>=
10.0); ASY51:=ASY1+ASY2; RAS10:=ASY51>=10.0; ROT10:=QSSDABLE;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.01*u(FAP1,7800.0)
+0.015*o(FAP1,7800.0))*(ASY1+ASY2); NR1Q:=ord(RAS1)*NR1; NR2:=
90.0*(ASY1+ASY2); NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=
MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=NRT-RED10; DR1Q:=ord(RAS10&ROT10)*DR1;
DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY55>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG7,ASY51,ASY55,RED13,RED10,RED4,FAP1,SDFAP1,
FDFAP1,ASY5,ASY4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0400s737; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY4:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0,1977.0); SDFAP1:=MAX(HIRED,FDFAP1-
5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); RED4:=AR(
65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(
ASY1>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.1*u(
FAP1,4800.0)+0.4*o(FAP1,4800.0))*u(ASY1,15.0)/15.0; NR1Q:=ord(
RAS1)*NR1; NR2:=120.0*ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,
NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=
999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=(0.1*u(FAP1,
4800.0)+0.4*o(FAP1,4800.0))*ASY1/PSY4*RED4; ER2Q:=ord(RAS4)*ER2;
ERT:=MIN(ER1,ER2); ERQ:=MIN(ER1Q,ER2Q); VD1:=ERT; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,FAP1,SDFAP1,
FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0401s705; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+70.0)-HIRED)*NNMIN(1.0,WRKHRS/1800.0); ASY2:=(QUITD-HIRED)
*ord(WRKHRS>=1000.0)*1.0; RED4:=1.0-(0.0743*a(AGE,63.0,62.0)+
0.0837*a(AGE,64.0,63.0)+0.0948*a(AGE,65.0,64.0)); RED10:=1.0-(
0.0103*a(AGE,45.0,35.0)+0.0236*a(AGE,55.0,45.0)+0.0553*a(AGE,
65.0,55.0)); RED13:=JSRED; RED14:=COSTRED; RAS1:=AGE>=65.0;
RAS4:=(AGE>=62.0)&(ASY2>=15.0); RAS10:=(AGE>=35.0)&(ASY2>=15.0);
ROT7:=ASY2>=15.0; BEG7:=ANYTIME(BIRTHD+62.0,BIRTHD+65.0); BEG8:=
MAX(BIRTHD+65.0,QUITD); NR1:=8.0*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=
NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=ord(
ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT*RED10; DR1Q:=
ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13*
RED14; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,RED14,
RED13,RED10,RED4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0402s816; begin CNQ:=0.0; ASY1:=NNMIN(25.0,MIN(QUITD,
1976.75)-HIRED)*1.0; ASY2:=NNMIN(25.0,QUITD-MAX(HIRED+1.0,BIRTHD+
25.0,1976.75))*NNMIN(1.0,WRKHRS/1500.0); RED4:=NN(1.0-0.0667*o(
65.0,AGE)); RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=(AGE>=65.0)&(
ASY51>=10.0); RAS4:=(AGE>=62.0)&(ASY51>=10.0); RAS10:=(AGE>=50.0)
&(ASY51>=10.0); BEG7:=ANYTIME(BIRTHD+62.0,BIRTHD+65.0); NR1:=5.5*
u(ASY1+ASY2,25.0); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=
DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY51>=10.0)*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY51,
RED13,RED4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0403s915; begin CNQ:=0.0; ASY1:=MIN(25.0,QUITD-HIRED)*
1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/
12.0; SS1:=SS(1.0,BENIFITD)/12.0; RAS1:=(AGE>=65.0)&(ASY1>=10.0);
BEG7:=MAX(NRD,QUITD); NR1:=0.375*FAP1-0.936*SS1; NR1Q:=ord(RAS1)*
NR1; NR2:=600.0; NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=
MIN(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ERQ:=0.0; VD1:=NRT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DSQ:=
0.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,
PRAG,DSQ,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,
NR1Q,NR1,BEG7,SS1,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0404s916; begin CNQ:=0.0; ASY1:=NNMIN(25.0,MIN(QUITD,
BIRTHD+65.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/1873.0); ASY2:=NN(
QUITD-(HIRED+1.0))*ord(WRKHRS>=1000.0)*1.0; RED4:=AR(65.0-AGE);
RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY2>=10.0); RAS4:=(AGE>=55.0)&(
ASY2>=10.0); RAS10:=ASY2>=15.0; RAS13:=ASY2>=10.0; ROT10:=
QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=2.5*ASY1;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=AI(AGE,65.0,
999.0)*NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=
DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY2>=10.0)*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,
RED13,RED4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0405s585; begin CNQ:=0.0; ASY1:=NNMIN(20.0,QUITD-MAX(
HIRED+1.0,BIRTHD+21.0))*ord(WRKHRS>=1000.0)*1.0; PSY4:=NN(BIRTHD+
65.0-MAX(HIRED+1.0,BIRTHD+21.0)); FDFAP1:=QUITD; FAP1:=AVG(WAGE,
MAX(HIRED,FDFAP1-5.0),FDFAP1); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+
65.0)); RED4:=1.0-(0.03*a(AGE,55.0,50.0)+0.04*a(AGE,60.0,55.0)+
0.07*a(AGE,65.0,60.0)); RED5:=NN(1.0-0.01*o(50.0,AGE)); RED13:=
JSRED; RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY1>=25.0); RAS4:=(ASY1>=
20.0)!(AGE>=45.0)&(ASY1>=10.0); RAS10:=(AGE>=35.0)&(ASY1>=5.0);
RAS13:=(AGE>=55.0)&(ASY1>=10.0); ROT10:=QCODABLE; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=(
0.01*u(FAP1,3600.0)+0.015*o(FAP1,3600.0))*ASY1; NR1Q:=ord(RAS1)*
NR1; NR2:=NN(0.025*FAP1*ASY1-0.5*SS1); NR2Q:=ord(RAS1)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=(
0.01*u(FAP1,3600.0)+0.015*o(FAP1,3600.0))*u(PSY4,20.0)*ASY1/
PSY4*RED4*RED5; ER1Q:=ord(RAS4)*ER1; ER2:=NN(0.025*FAP1*u(PSY4,
20.0)-0.5*SS1)*ASY1/PSY4*RED4*RED5; ER2Q:=ord(RAS4)*ER2; ERT:=
MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=ERT; VD1Q:=AA(BEG7,0.0)*
VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*AA(
BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*0.5; DS1Q:=
ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,
RED5,RED4,SS1,FAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0406s889; begin CNQ:=0.0; ASY1:=(MIN(QUITD,MAX(BIRTHD+
30.0,HIRED+1.0))-HIRED)*NNMIN(1.0,WRKHRS/800.0); ASY2:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+30.0,1954.833))*NNMIN(
1.0,WRKHRS/800.0); ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*NNMIN(
1.0,WRKHRS/800.0); FDFAP1:=MIN(QUITD,BIRTHD+65.0,1953.917);
SDFAP1:=MAX(HIRED,1952.917); FAP1:=ord(FDFAP1>SDFAP1)*WAGE(
FDFAP1)/12.0; FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,
1954.833); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2)/12.0;
RED4:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED; RED14:=COSTRED;
RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY3>=20.0)!(AGE>=55.0)&(ASY3>=
30.0); RAS2:=(AGE>=60.0)&(ASY3>=15.0); RAS4:=(AGE>=55.0)&(ASY3>=
10.0); RAS10:=ASY3>=5.0; ROT2:=QAPPROVL; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=17.0*u(ASY3,35.0); NR1Q:=ord(RAS1)*NR1;
NR2:=1.6*u(ASY1+ASY2,35.0)+0.0075*o(FAP1,300.0)*ASY1+0.015*o(
FAP2,300.0)*ASY2; NR2Q:=ord(RAS1)*NR2; NR3:=NR1; NR3Q:=ord(RAS2&
ROT2)*NR3; NR4:=NR2; NR4Q:=ord(RAS2&ROT2)*NR4; NRT:=MAX(NR1,NR2,
NR3,NR4); NRQ:=MAX(NR1Q,NR2Q,NR3Q,NR4Q)*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*0.5; ER2Q:=
ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT;
DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*
RED14*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=60.0)!(ASY3>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,
NR2Q,NR2,NR1Q,NR1,BEG7,RED14,RED13,RED4,FAP2,SDFAP2,FDFAP2,FAP1,
SDFAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0407s721; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(15.0,QUITD-MAX(HIRED+1.0,BIRTHD+
25.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,
MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/12.0;
RED4:=AR(NRD-BENIFITD); RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(
ASY1>=5.0); LNG13:=1.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
NR1:=(0.35*FAP1-0.5*SS1)*ASY1/15.0; NR1Q:=ord(RAS1)*NR1; NRT:=
NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=ERT; DR1Q:=DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT; DS1Q:=AA(QUITD,LNG13+QUITD)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(
ASYV>=5.0)*0.25,ord(ASYV>=10.0)*0.5,ord((QUITAGE>=65.0)!(ASYV>=
15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG7,LNG13,RED4,SS1,FAP1,FDFAP1,ASY1,ASYV,CNQ) <0 then
negative end;

procedure c0408s722; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED,
BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; PSY4:=NN(BIRTHD+65.0-MAX(
HIRED,BIRTHD+25.0)); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); SDVOL7:=HIRED; FDVOL7:=QUITD; PCVOL7:=MAX(
0.0,MIN(0.001*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,FDVOL7); RED10:=AR(65.0-AGE);
RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY1>=5.0); RAS4:=AGE>=60.0;
BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); NR1:=0.5*FAP1; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=AI(AGE,65.0,999.0)*NRQ;
MRAGE:=999.0; ER1:=0.5*FAP1*ASY1/PSY4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DR1:=NRT*RED10; DR1Q:=DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=NRT*
RED13; DS1Q:=DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(
ord(ASY1>=5.0)*0.4,ord(ASY1>=7.0)*0.5,ord((QUITAGE>=60.0)!(
ASY1>=11.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG7,RED13,RED10,VOL7,PCVOL7,FDVOL7,SDVOL7,FAP1,FDFAP1,
PSY4,ASY1,CNQ) <0 then negative end;

procedure c0409s698; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+23.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0; RAS1:=(AGE>=65.0)&(
ASY1>=10.0); BEG7:=MAX(NRD,QUITD); NR1:=(0.05*FAP1+0.1*o(FAP1,
400.0))*u(ASY1,15.0)/15.0+0.0025*FAP1*b(ASY1,15.0,35.0); NR1Q:=
ord(RAS1)*NR1; NR2:=20.0; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ERQ:=0.0; VD1:=
NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT;
DR1Q:=DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DSQ:=0.0; PRAG:=0.0; VEDB:=
VOPT(MAX(ord(ASY1>=4.0)*0.4,ord(ASY1>=8.0)*0.7,ord(ASY1>=11.0)*
1.0)); if min( VEDB,PRAG,DSQ,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,FAP1,FDFAP1,ASY1,
CNQ) <0 then negative end;

procedure c0410s880; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-MAX(HIRED,1967.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,1976.0))*ord(WRKHRS>=12.0)*1.0; FDFAP1:=MIN(
QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SSBASE(1980.0)/
12.0; RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0))
;RED10:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=
ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=10.0); RAS10:=ASY51>=10.0;
RAS13:=(AGE>=55.0)&(ASY51>=10.0); RAS14:=(AGE>=40.0)&(ASY51>=
10.0); ROT10:=QSSDABLE; ROT11:=^QSSDABLE; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=(0.0125*u(FAP1,SS1)+0.01625*o(FAP1,SS1))*
(ASY1+ASY2); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=
NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=NRT*RED10;
DR2Q:=ord(RAS10&ROT11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,
DR2Q)*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*DS1; DS2:=0.5*
NRT*RED13; DS2Q:=ord(RAS14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(
DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY51,RED13,RED10,RED4,SS1,FAP1,
SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0411s813; begin CNQ:=0.0; ASY1:=NNMIN(30.0,QUITD-MAX(
HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,
QUITD-ASY1+30.0); FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/
12.0; FDFAP2:=MIN(QUITD,QUITD-ASY1+30.0); FAP2:=AVG(WAGE,MAX(
HIRED,FDFAP2-3.0),FDFAP2)/12.0; SS1:=SS(1.0,BENIFITD)/12.0;
RED4:=1.0-(0.033*a(AGE,60.0,55.0)+0.067*a(AGE,65.0,60.0));
RED13:=JSRED; RED14:=COSTRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&
(ASY1>=10.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=(0.5*FAP1-0.648*SS1)*ASY1/30.0; NR1Q:=ord(RAS1)*NR1;
NR2:=MIN(75000.0,FAP2); NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,NR2);
NRQ:=MIN(NR1Q,NR2Q)*12.0; LRQ:=(1.0+0.06*b(AGE,65.0,70.0))*NRQ;
MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*
12.0; DR1:=NRT; DR1Q:=ord(ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0;
DS1:=0.5*ERT*RED13*RED14; DS1Q:=DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=5.0)*0.25,ord(ASY1>=10.0)*
0.5,ord((QUITAGE>=65.0)!(ASY1>=15.0))*1.0)); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED14,RED13,RED4,
SS1,FAP2,FDFAP2,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0412s643; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1975.083)
-HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1975.083))*ord(WRKHRS>=
900.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),
FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.02; MAN7:=
SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.0333*a(AGE,60.0,
55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RED14:=COSTRED;
ASY51:=ASY1+ASY2; RAS1:=(AGE>=70.0)!(AGE>=65.0)&(ASY51>=10.0);
RAS4:=(AGE>=55.0)&(ASY51>=10.0); RAS10:=ASY51>=10.0; RAS13:=(
AGE>=62.0)&(ASY51>=10.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=(0.006*u(FAP1,600.0)+0.011*o(FAP1,600.0))
*(ASY1+ASY2); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0;
LRQ:=(1.0+0.0007*b(AGE,66.0,68.0)+0.0008*b(AGE,68.0,74.0)+0.09*
b(AGE,74.0,75.0))*NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*
DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13*RED14; DS1Q:=
ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(
MAX(ord(ASY51>=5.0)*0.25,ord(ASY51>=10.0)*0.5,ord((QUITAGE>=
70.0)!(ASY51>=15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,ASY51,RED14,RED13,RED4,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0413s740; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1000.0); ASY1:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/2080.0);
ASY7:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/1000.0); PSY7:=BIRTHD+65.0-
HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),
FDFAP1); RED4:=1.0-(0.03*a(AGE,50.0,49.0)+0.03*a(AGE,55.0,50.0));
RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE+ASY1>=
76.0)&(AGE>=55.0)&(ASY1>=15.0); RAS2:=(AGE+ASY1>=76.0)&(AGE>=
55.0)&(ASY1>=15.0); RAS4:=(AGE+ASY1>=76.0)&(ASY1>=15.0); RAS10:=
ASY1>=15.0; RAS13:=(AGE>=65.0)!(AGE+ASY1>=76.0)&(ASY1>=15.0);
ROT7:=ASY1>=15.0; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=MAX(BIRTHD+
76.0-ASY1,QUITD); BEG10:=ANYTIME(BIRTHD+55.0,0.0); NR1:=ASY1*
FAP1*0.0135; NR1Q:=ord(RAS1)*NR1; NR2:=2100.0+90.0*b(ASY1,17.0,
19.0)+12.0*b(ASY1,19.0,29.0)+60.0*b(ASY1,29.0,39.0)+300.0*b(
ASY1,39.0,40.0); NR2Q:=ord(RAS2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=
MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(
RAS4)*ER1; ER2:=NR2; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2);
ERQ:=MAX(ER1Q,ER2Q); VD1:=ASY7*FAP1*0.0135*RED7; VD1Q:=AA(BEG7,
0.0)*VD1; VD2:=(2100.0+90.0*b(ASY7,17.0,19.0)+12.0*b(ASY7,19.0,
29.0)+60.0*b(ASY7,29.0,39.0)+300.0*b(ASY7,39.0,40.0))*ASY7/PSY7;
VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q); DR1:=NRT; DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DRT:=
DR1; DRQ:=DR1Q; DS1:=0.5*NRT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=
DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASYV>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG8,BEG7,RED13,RED7,RED4,FAP1,
FDFAP1,PSY7,ASY7,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0414s1066; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1650.0); PSY10:=BIRTHD+60.0-HIRED; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=0.05; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,
FDMAN7); SDVOL7:=HIRED; FDVOL7:=QUITD; PCVOL7:=MAX(0.05*MAX(0.0,
WAGE(SURVEYD)-SSBASE(SURVEYD)),CRVOL*WAGE(SURVEYD))/WAGE(
SURVEYD); VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,FDVOL7); SS1:=SSBASE(
BENIFITD); SS10:=SS(5.0,BENIFITD); RED4:=AR(60.0-AGE); RED5:=AR(
35.0-ASY1); RED10:=OTHERB; RED13:=JSRED; RAS1:=(ASY1>=35.0)!(
AGE>=60.0)&(ASY1>=3.0); RAS2:=ASY1>=41.0; RAS4:=ASY1>=10.0;
RAS10:=ASY1>=17.0; RAS11:=ASY1>=5.0; ROT2:=QVOLCNTR&(
PARTD<1968.583)&(1974.167<=QUITD); ROT10:=QJRDABLE; BEG7:=
ANYTIME(0.0,0.0); NR1:=0.02*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=
0.02*o(FAP1,SS1)*ASY1; NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=0.02*FAP1*
o(ASY1,40.0); NR3Q:=ord(RAS2)*NR3; NRT:=NR1+NR2+NR3; NRQ:=NR1Q+
NR2Q+NR3Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1; ER1Q:=ord(RAS4)*ER1;
ER2:=NR2; ER2Q:=ord(RAS4&ROT2)*ER2; ERT:=(ER1+ER2)*MAX(RED4,RED5)
;ERQ:=(ER1+ER2)*MAX(RED4,RED5); VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1;
VD2:=ER2; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*VD2; VDT:=(VD1+VD2)*MAX(
RED4,RED5); VDQ:=(VD1+VD2)*MAX(RED4,RED5); DR1:=0.02*ASY1*FAP1;
DR1Q:=ord(RAS10)*DR1; DR2:=0.333*FAP1; DR2Q:=ord(RAS11)*DR2;
DR3:=0.02*FAP1*PSY10; DR3Q:=ord(RAS11)*DR3; DR4:=NN(0.7*FAP1-
SS10-RED10); DR4Q:=ord(RAS11&ROT10)*DR4; DRT:=MAX(DR1,DR2,DR3,
DR4); DRQ:=MAX(DR1Q,DR2Q,DR3Q,DR4Q); DS1:=NR1; DS1Q:=ord(RAS1)*
DS1; DS2:=NR2; DS2Q:=ord(RAS1&ROT2)*DS2; DS3:=NR3; DS3Q:=ord(
RAS2)*DS3; DS4:=NR1; DS4Q:=ord(RAS4)*DS4; DS5:=NR3; DS5Q:=ord(
RAS4&ROT2)*DS5; DST:=MAX(DS1+DS2+DS3,(DS4+DS5)*MAX(RED4,RED5))*
RED13; DSQ:=MAX(DS1+DS2+DS3,(DS4+DS5)*MAX(RED4,RED5))*RED13;
PRAG:=0.0; VEDB:=VOPT(ord((ASY1>=10.0)!(QUITAGE>=60.0)&(ASY1>=
3.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS5Q,DS5,DS4Q,DS4,DS3Q,DS3,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED10,RED5,RED4,
SS10,SS1,VOL7,PCVOL7,FDVOL7,SDVOL7,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP1,FDFAP1,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0415s809; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1977.0)-
HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(QUITD-MAX(HIRED,1977.0))*
NNMIN(1.0,WRKHRS/12.0); SDFAP1:=MAX(HIRED,1977.0); FAP1:=ord(
QUITD>SDFAP1)*SUM(WAGE,SDFAP1,QUITD); RED4:=1.0-(0.0333*a(AGE,
60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=
65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=15.0); ROT7:=
ASY1+ASY2>=15.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=
MAX(BIRTHD+65.0,QUITD); NR1:=0.01*FAP1*ASY2; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=ord(
ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,ASY51,RED13,RED4,FAP1,
SDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0416s537; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-MAX(HIRED,1974.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
65.0,1981.0)-MAX(HIRED,1976.0))*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+
65.0,1982.0)-MAX(HIRED+1.0,1981.0))*1.0; ASY4:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,1982.0))*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+65.0,1976.0); SDFAP1:=MAX(HIRED,1974.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+
65.0,1981.0); SDFAP2:=MAX(HIRED,1976.0); FAP2:=ord(FDFAP2>SDFAP2)
*AVG(WAGE,SDFAP2,FDFAP2); FDFAP3:=MIN(QUITD,BIRTHD+65.0,1987.75);
SDFAP3:=MAX(HIRED,1901.0); FAP3:=ord(FDFAP3>SDFAP3)*SUM(WAGE,
SDFAP3,FDFAP3); FDFAP4:=MIN(QUITD,BIRTHD+65.0); SDFAP4:=MAX(
HIRED,1982.0); FAP4:=ord(FDFAP4>SDFAP4)*AVG(WAGE,SDFAP4,FDFAP4);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,
99.0,0.0,SDMAN7,FDMAN7); RED4:=AR(65.0-AGE); RAS1:=AGE>=65.0;
ASY58:=ASY1+ASY2+ASY3+ASY4; RAS4:=(AGE>=60.0)!(AGE>=55.0)&(
ASY58>=20.0); RAS11:=ASY58>=10.0; DAT2:=(1981.0<=QUITD)&(
QUITD<1983.417); ROT10:=ASY1+ASY2+ASY3+ASY4<10.0; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0)
;NR1:=(0.01*u(FAP1,4800.0)+0.015*o(FAP1,4800.0))*ASY1+(0.0125*u(
FAP2,4800.0)+0.015*o(FAP2,4800.0))*ASY2+0.016*FAP3*ASY3; NR1Q:=
ord(RAS1)*NR1; NR2:=MIN(240.0*(ASY1+ASY2+ASY3+ASY4),6000.0);
NR2Q:=ord(RAS1&DAT2)*NR2; NR3:=0.0175*FAP4*ASY4; NR3Q:=ord(RAS1)*
NR3; NR4:=NR1+NR3; NR4Q:=ord(RAS1)*NR4; NRT:=MAX(NR4,NR2); NRQ:=
MAX(NR4Q,NR2Q); LRQ:=AI(AGE,65.0,70.0)*NRQ; MRAGE:=70.0; ER1:=
NR4*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4&
DAT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=ER1;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(DAT2)*AA(BEG7,0.0)*
VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NR4*RED4;
DR1Q:=AA(BEG10,0.0)*DR1; DR2:=2400.0; DR2Q:=ord(RAS11)*DR2; DR3:=
240.0*(ASY1+ASY2+ASY3+ASY4)*RED4; DR3Q:=ord(ROT10)*DR3; DRT:=MAX(
DR1,DR2,DR3); DRQ:=MAX(DR1Q,DR2Q,DR3Q); DSQ:=0.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY58>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,ASY58,RED4,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP4,SDFAP4,FDFAP4,FAP3,SDFAP3,FDFAP3,FAP2,SDFAP2,
FDFAP2,FAP1,SDFAP1,FDFAP1,ASY4,ASY3,ASY2, ASY1,CNQ) <0 then
negative end;

procedure c0417s502; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/12.0); FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); SS1:=AVG(SSBASE,HIRED,
QUITD); RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,
60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=AGE>=55.0; ROT10:=
QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(
BIRTHD+65.0,QUITD); NR1:=0.01*FAP1*ASY1+0.01*o(FAP1,SS1)*u(ASY1,
25.0); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=
DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=ord(ACPIG>=0.01)*MIN(0.95*ACPIG,0.04); VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,RED13,RED4,SS1,FAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0418s1038; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1975.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1975.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-3.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,
FDFAP2-3.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2);
FDFAP3:=MIN(QUITD,BIRTHD+65.0); SDFAP3:=MAX(HIRED,FDFAP3-2.0);
FAP3:=ord(FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3); FAP10:=WAGE(
QUITD); FDFAP13:=MIN(QUITD,BIRTHD+65.0); FAP13:=ord(
FDFAP13>HIRED)*WAGE(FDFAP13); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,97.0,0.0,SDMAN7,FDMAN7); RED4:=
NN(1.0-0.04*o(55.0,AGE)); RED10:=OTHERB; RED13:=JSRED; RAS1:=
AGE>=55.0; ASY51:=ASY1+ASY2; RAS2:=(AGE>=65.0)&(ASY51>=20.0);
RAS3:=(AGE>=55.0)!(AGE>=65.0)&(ASY1>=20.0); RAS4:=(AGE>=45.0)&(
ASY51>=20.0); RAS10:=(AGE>=55.0)!(ASY51>=15.0); RAS11:=ASY51>=
10.0; RAS13:=ASY51>=2.0; ROT2:=QVETERAN; ROT10:=QVETERAN; ROT13:=
QJRDEATH; ROT14:=^QJRDEATH; BEG7:=ANYTIME(BIRTHD+55.0,0.0); NR1:=
0.025*MAX(FAP1,FAP2)*(ASY1+ASY2); NR1Q:=ord(RAS1)*NR1; NR2:=0.5*
u(FAP3,5000.0)+0.02*u(FAP3,5000.0)*o(ASY1+ASY2,20.0)+0.02*o(
FAP3,5000.0)*ASY1; NR2Q:=ord(RAS2)*NR2; NR3:=MIN(300.0,15.0*(
ASY1+ASY2)); NR3Q:=ord(RAS3&ROT2)*NR3; NR4:=0.8*MAX(FAP1,FAP2);
NR4Q:=ord(RAS1)*NR4; NR5:=0.8*FAP3; NR5Q:=ord(RAS2)*NR5; NR6:=
0.028*o(FAP3,5000.0)*ASY2; NR6Q:=ord(RAS2)*NR6; NR7:=NR2+NR6;
NR7Q:=ord(RAS2)*NR7; NRT:=MAX(MIN(NR4,NR1+NR3),MIN(NR5,NR7+NR3));
NRQ:=MAX(MIN(NR4Q,NR1Q+NR3Q),MIN(NR5Q,NR7Q+NR3Q)); LRQ:=NRQ;
MRAGE:=65.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DR2:=0.5*FAP10; DR2Q:=ord(RAS11&
ROT10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=NRT*
RED13*0.6667; DS1Q:=ord(ROT14)*DS1; DS2:=MIN(FAP13,1680.0);
DS2Q:=ord(RAS13)*DS2; DS3:=0.72*FAP13-RED10; DS3Q:=ord(ROT13)*
DS3; DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q); PRAG:=TAR(
NN(FAR(ACPIG,1.0)-0.0),1.0); VEDB:=VOPT(ord((QUITAGE>=55.0)!(
ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR7Q,NR7,NR6Q,NR6,NR5Q,NR5,NR4Q,NR4,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,ASY51,RED13,RED10,RED4,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP13,FDFAP13,FAP10,FAP3,SDFAP3,FDFAP3,
FAP2,SDFAP2, FDFAP2,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0419s708; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-(HIRED+1.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+70.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,MAX(
BENIFITD,BIRTHD+65.0))/12.0; RED4:=AR(65.0-AGE); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=
10.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.02*(FAP1-
SS1)*u(ASY1,25.0)+0.005*FAP1*o(ASY1,25.0); NR1Q:=ord(RAS1)*NR1;
NR2:=2500.0; NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(
NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=MIN(NR1*RED4,NR2);
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(
RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,SS1,FAP1,
SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0420s704; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1976.0)-
HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1976.0))*NNMIN(1.0,WRKHRS/
2080.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-10.0),
FDFAP1)/12.0; SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=
1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=
JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=5.0); DAT2:=(
1982.167<=QUITD)&(QUITD<1983.167); DAT3:=(1983.167<=QUITD)&(
QUITD<1984.167); DAT4:=1984.167<=QUITD; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=NN(0.015*FAP1-0.015*SS1)*u(ASY1+ASY2,
33.33); NR1Q:=ord(RAS1)*NR1; NR2:=9.0*u(ASY1+ASY2,33.33); NR2Q:=
ord(RAS1&DAT2)*NR2; NR3:=9.5*u(ASY1+ASY2,33.33); NR3Q:=ord(RAS1&
DAT3)*NR3; NR4:=10.0*u(ASY1+ASY2,33.33); NR4Q:=ord(RAS1&DAT4)*
NR4; NRT:=MAX(NR1,NR2,NR3,NR4); NRQ:=MAX(NR1Q,NR2Q,NR3Q,NR4Q)*
12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=NR2*RED4; ER2Q:=ord(RAS1&DAT2)*ER2; ER3:=NR3*RED4; ER3Q:=
ord(RAS1&DAT3)*ER3; ER4:=NR4*RED4; ER4Q:=ord(RAS1&DAT4)*ER4;
ERT:=MAX(ER1,ER2,ER3,ER4); ERQ:=MAX(ER1Q,ER2Q,ER3Q,ER4Q)*12.0;
VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(DAT2)*AA(
BEG7,0.0)*VD2; VD3:=ER3; VD3Q:=ord(DAT3)*AA(BEG7,0.0)*VD3; VD4:=
ER4; VD4Q:=ord(DAT4)*AA(BEG7,0.0)*VD4; VDT:=MAX(VD1,VD2,VD3);
VDQ:=MAX(VD1Q,VD2Q,VD3Q)*12.0; DRQ:=0.0; DS1:=0.5*ER1*RED13;
DS1Q:=ord(RAS4)*DS1; DS2:=0.5*ER2*RED13; DS2Q:=ord(RAS4&DAT2)*
DS2; DS3:=0.5*ER3*RED13; DS3Q:=ord(RAS4&DAT3)*DS3; DS4:=0.5*ER4*
RED13; DS4Q:=ord(RAS4&DAT4)*DS4; DST:=MAX(DS1,DS2,DS3,DS4); DSQ:=
MAX(DS1Q,DS2Q,DS3Q,DS4Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD4Q,VD4,VD3Q,
VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,
RED13,RED4,SS1,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0421s861; begin CNQ:=0.0; ASY1:=MIN(30.0,QUITD-HIRED)*
1.0; PSY10:=BIRTHD+62.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-24.0/12.0),FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=0.0803; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7);
SDMAN8:=HIRED; FDMAN8:=QUITD; PCMAN8:=MANNAR; MAN8:=SUMI(PCMAN8,
97.0,0.0,SDMAN8,FDMAN8); RED4:=NN(1.0-0.05*o(80.0,AGE+ASY1));
RED5:=NN(1.0-0.03*o(75.0,AGE+ASY1)); RED6:=NN(1.0-0.03*o(70.0,
AGE+ASY1)); RED13:=JSRED; RAS1:=(ASY1>=30.0)!(AGE>=65.0)&(ASY1>=
5.0)!(AGE+ASY1>=80.0); RAS4:=(AGE>=52.0)&(ASY1>=20.0); RAS5:=(
AGE>=57.0)&(ASY1>=10.0); RAS6:=(AGE>=62.0)&(ASY1>=5.0); RAS11:=
ASY1>=10.0; RAS13:=ASY1>=10.0; ROT10:=QJRDABLE; ROT11:=^QJRDABLE;
BEG7:=ANYTIME(BIRTHD+52.0,BIRTHD+65.0); NR1:=0.02*FAP1*ASY1;
NR1Q:=ord(RAS1)*NR1; NR2:=0.6*FAP1; NR2Q:=ord(RAS1)*NR2; NRT:=
MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5; ER2Q:=ord(
RAS5)*ER2; ER3:=NRT*RED6; ER3Q:=ord(RAS6)*ER3; ERT:=MAX(ER1,ER2,
ER3); ERQ:=MAX(ER1Q,ER2Q,ER3Q)*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=0.015*FAP1*ASY1; DR1Q:=DR1;
DR2:=0.015*FAP1*MAX(0.0,ASY1-PSY10); DR2Q:=DR2; DR3:=MAX(140.0,
DR1,ord(ASY1<22.0)*MIN(FAP1/3.0,DR1+DR2)); DR3Q:=ord(ROT10)*DR3;
DR4:=MAX(140.0,DR1,ord(ASY1<22.0)*MIN(FAP1/3.0,DR1+DR2)); DR4Q:=
ord(RAS11&ROT11)*DR4; DRT:=MAX(DR3,DR4); DRQ:=MAX(DR3,DR4)*12.0;
DS1:=NRT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.03; VEDB:=VOPT(ord(ASY1>=5.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED6,RED5,RED4,MAN8,PCMAN8,
FDMAN8,SDMAN8,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,PSY10,ASY1,
CNQ) <0 then negative end;

procedure c0422s783; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/12.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
36.0/12.0),FDFAP1)/12.0; FAP10:=WAGE(QUITD)/12.0; FDFAP11:=QUITD;
FAP11:=AVG(WAGE,MAX(HIRED,FDFAP11-60.0/12.0),FDFAP11)/12.0;
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.02*a(AGE,57.0,55.0)+0.0235*
a(AGE,59.0,57.0)+0.025*a(AGE,60.0,59.0)); RED5:=1.0-(0.0165*a(
AGE,52.0,50.0)+0.019*a(AGE,54.0,52.0)+0.021*a(AGE,55.0,54.0));
RED13:=JSRED; RAS1:=(AGE>=60.0)&(ASY1>=10.0)!(AGE>=55.0)&(ASY1>=
30.0); RAS4:=(AGE>=55.0)&(ASY1>=25.0); RAS5:=(AGE>=50.0)&(ASY1>=
30.0); RAS11:=ASY1>=10.0; RAS13:=ASY1>=20.0; ROT10:=QJRDABLE;
ROT11:=^QJRDABLE; ROT13:=QJRDEATH; LNG13:=1.0; BEG7:=ANYTIME(
BIRTHD+50.0,BIRTHD+60.0); NR1:=0.015*FAP1*u(ASY1,10.0)+0.02*FAP1*
o(ASY1,10.0); NR1Q:=ord(RAS1)*NR1; NR2:=0.8*FAP1; NR2Q:=ord(RAS1)
*NR2; NRT:=MAX(MIN(NR1,NR2),75.0); NRQ:=MAX(MIN(NR1Q,NR2Q),75.0)*
12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=NRT*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q)*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=MIN(0.017*FAP10*ASY1,0.7*FAP10); DR1Q:=ord(
ROT10)*DR1; DR2:=MIN(0.017*FAP11*ASY1,0.7*FAP11); DR2Q:=ord(
RAS11&ROT11)*DR2; DR3:=MAX(0.35*FAP10,110.0); DR3Q:=ord(ROT10)*
DR3; DR4:=MAX(0.35*FAP11,110.0); DR4Q:=ord(RAS11&ROT11)*DR4;
DRT:=MAX(DR1,DR2,DR3,DR4); DRQ:=MAX(DR1Q,DR2Q,DR3Q,DR4Q)*12.0;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*DS1; DS2:=FAP10*12.0; DS2Q:=
ord(ROT13)*AA(QUITD,LNG13+QUITD)*DS2; DST:=DS1+DS2; DSQ:=(DS1Q+
DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min(
VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,LNG13,RED13,RED5,RED4,
MAN7,PCMAN7,FDMAN7,SDMAN7,FAP11,FDFAP11,FAP10,FAP1,FDFAP1,ASY1,
CNQ) <0 then negative end;

procedure c0424s591; begin CNQ:=0.0; ASY1:=NNMIN(25.0,QUITD-(
HIRED+1.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NNMIN(25.0,QUITD-(
HIRED+1.0))*NNMIN(1.0,WRKHRS/1800.0); RED4:=NN(1.0-0.072*o(65.0,
AGE)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=62.0)&(ASY2>=
15.0); RAS10:=ASY2>=10.0; DAT1:=1981.583<=QUITD; ROT10:=QSSDABLE;
BEG7:=ANYTIME(BIRTHD+62.0,BIRTHD+65.0); NR1:=8.5*ASY2; NR1Q:=ord(
RAS1&DAT1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4&DAT1)*ER1; ERT:=ER1; ERQ:=ER1Q*
12.0; VD1:=ERT; VD1Q:=ord(DAT1)*AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10&DAT1&ROT10)*DR1; DRT:=DR1;
DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4&DAT1)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG7,RED13,RED4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0425s820; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED,
BIRTHD+21.0,1966.25))*ord(WRKHRS>=1000.0)*1.0; ASY2:=MIN(25.0,
QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY4:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; PSY4:=NN(BIRTHD+65.0-
MAX(HIRED+1.0,BIRTHD+25.0)); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-60.0/12.0),FDFAP1)/12.0; RED4:=NN(1.0-0.0667*o(65.0,
AGE)); RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY4>=10.0); RAS4:=(AGE>=
60.0)&(ASY2>=15.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
0.25*o(FAP1,600.0)*ASY2/25.0; NR1Q:=ord(RAS1)*NR1; NR2:=MIN(50.0,
3.0*ASY2); NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q)*12.0; LRQ:=AI(AGE,65.0,70.0)*NRQ; MRAGE:=70.0; ER1:=0.25*
FAP1*ASY4/PSY4*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*
12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DRQ:=0.0; DS1:=ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=5.0)*0.25,ord(
ASY1>=10.0)*0.5,ord(ASY1>=15.0)*1.0)); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,FAP1,FDFAP1,PSY4,ASY4,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0426s718; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
67.0)-HIRED)*1.0; PSY4:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,
BIRTHD+67.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); RED4:=NN(1.0-0.03*o(65.0,
AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED; RED14:=COSTRED; RAS1:=(
AGE>=65.0)!(AGE+ASY1>=80.0)&(ASY1>=20.0); RAS4:=(AGE>=55.0)&(
ASY1>=10.0); RAS10:=ASY1>=30.0; ROT10:=^QJRDABLE; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=0.013*FAP1*ASY1; NR1Q:=ord(RAS1)*
NR1; NR2:=1200.0*u(ASY1,20.0)/20.0; NR2Q:=ord(RAS1)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=
NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=1200.0*u(ASY1,20.0)/MAX(20.0,
PSY4)*RED4; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q); VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=1200.0*u(
ASY1,20.0)/MAX(20.0,PSY4)*RED7; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MAX(
VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*
DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(
ASY1>=5.0)*0.5,ord(ASY1>=9.0)*0.7,ord((QUITAGE>=65.0)!(ASY1>=
10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED14,RED13,RED7,RED4,FAP1,
SDFAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0427s822; begin CNQ:=0.0; ASY1:=MIN(25.0,QUITD-HIRED)*
1.0; PSY4:=MIN(25.0,BIRTHD+65.0-HIRED); PSY7:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,
MAX(BENIFITD,BIRTHD+65.0)); RED4:=1.0-(0.03*a(AGE,60.0,55.0)+
0.02*a(AGE,65.0,60.0)); RED7:=NN(1.0-0.06*o(65.0,AGE)); RED13:=
JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=
ASY1>=10.0; LNG4:=BIRTHD+65.0; BGN5:=MAX(BIRTHD+65.0,QUITD);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,
QUITD); NR1:=(0.45*FAP1-0.5*SS1)*ASY1/25.0; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=0.45*FAP1*ASY1/
25.0*RED4; ER1Q:=ord(RAS4)*AA(QUITD,LNG4)*ER1; ER2:=ER1-0.5*SS1*
ASY1/MAX(PSY4,25.0); ER2Q:=ord(RAS4)*AA(BGN5,0.0)*ER2; ERT:=MAX(
ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=(0.45*FAP1-0.5*SS1)*ASY1/
PSY7*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT;
DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=
0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,
BGN5,LNG4,RED13,RED7,RED4,SS1,FAP1,SDFAP1,FDFAP1,PSY7,PSY4,ASY1,
CNQ) <0 then negative end;

procedure c0428s645; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; PSY4:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); SS1:=SS(1.0,MAX(
BENIFITD,BIRTHD+65.0)); RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+
0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY1>=15.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=NN(0.015*FAP1*ASY1-0.75*SS1); NR1Q:=ord(
RAS1)*NR1; NR2:=600.0; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1Q,NR2Q); LRQ:=AI(AGE,65.0,70.0)*NRQ; MRAGE:=70.0;
ER1:=NN(0.015*FAP1*PSY4-SS1*ASY1/PSY4)*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=NR2*RED4; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q); VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DR1:=ER1; DR1Q:=ord(ROT10)*DR1; DR2:=NR2; DR2Q:=ord(ROT10)*
DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
MAX(ord(ASY1>=5.0)*0.25,ord(ASY1>=10.0)*0.5,ord((QUITAGE>=65.0)!
(ASY1>=15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,SS1,FAP1,
FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0429s895; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.083)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*
1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,
1976.083))*ord(WRKHRS>=1000.0)*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+22.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,
1976.083); SDFAP1:=MAX(HIRED,1971.083); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=
MAX(HIRED,1976.083); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,
FDFAP2); SDSS1:=MAX(HIRED,1976.083); SS1:=ord(QUITD>SDSS1)*
SSBASE(BENIFITD); RED4:=NN(1.0-0.06*o(65.0,AGE)); RED7:=AR(NRD-
BENIFITD); RED10:=AR(65.0-AGE); RED13:=JSRED; RED14:=COSTRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)&(ASY4>=10.0); ROT10:=QSSDABLE;
BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); NR1:=(0.00625*u(FAP1,
6600.0)+0.01*o(FAP1,6600.0))*(ASY1-1.0); NR1Q:=ord(RAS1)*NR1;
NR2:=(0.00875*u(FAP2,SS1)+0.01375*o(FAP2,SS1))*ASY2; NR2Q:=ord(
RAS1)*NR2; NRT:=NR1+NR2; NRQ:=NR1Q+NR2Q; LRQ:=AI(AGE,65.0,999.0)*
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DR1:=NRT*RED10; DR1Q:=ord(ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q;
DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG7,RED14,RED13,RED10,RED7,RED4,SS1,SDSS1,FAP2,SDFAP2,
FDFAP2,FAP1,SDFAP1,FDFAP1,ASY4,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0430s426; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
1976.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+65.0,
1976.0)-MAX(HIRED+1.0,1972.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,1976.0))*ord(WRKHRS>=1656.0)*1.0; FDFAP1:=
MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
SS1:=AVG(SSBASE,HIRED,QUITD); RED4:=NN(1.0-0.06*o(62.0,AGE));
RED13:=JSRED; RED14:=COSTRED; RAS1:=AGE>=62.0; ASY51:=ASY1+ASY2;
RAS4:=(AGE>=55.0)&(ASY51>=15.0); RAS5:=AGE>=55.0; ROT4:=QAPPROVL;
ROT7:=ASY1+ASY2<15.0; ROT8:=ASY1+ASY2>=15.0; BEG7:=ANYTIME(
BIRTHD+62.0,BIRTHD+65.0); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+62.0);
BEG10:=ANYTIME(BIRTHD+62.0,BIRTHD+65.0); BEG11:=ANYTIME(BIRTHD+
55.0,BIRTHD+62.0); NR1:=(0.0125*FAP1+0.005*o(FAP1,SS1))*(ASY1+
ASY2); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED4;
ER2Q:=ord(RAS5&ROT4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=NRT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=ord(
ROT8)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q);
DR1:=VD1; DR1Q:=ord(ROT7)*AA(BEG10,0.0)*DR1; DR2:=VD2; DR2Q:=ord(
ROT8)*AA(BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q);
DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASYV>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG10,BEG8,BEG7,ASY51,RED14,RED13,
RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,
ASYV,CNQ) <0 then negative end;

procedure c0431s418; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+65.0,1976.0)-MAX(
HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED+1.0,BIRTHD+25.0,1976.0))*1.0; ASY10:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+22.0))*1.0; ASY13:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); SS1:=SS(1.0,BENIFITD); SS2:=SS(2.0,MAX(BENIFITD,BIRTHD+
62.0)); RED4:=NN(1.0-0.06*o(60.0,AGE)); RED7:=AR(NRD-BENIFITD);
RED13:=JSRED; RAS1:=AGE>=60.0; RAS4:=AGE>=55.0; RAS10:=ASY10>=
10.0; RAS13:=(AGE>=55.0)!(ASY13>=25.0); ASY51:=ASY1+ASY2; RAS14:=
(AGE>=50.0)&(ASY51>=10.0); ROT2:=AGE<65.0; ROT10:=QCODABLE;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+60.0); BEG10:=MAX(BIRTHD+65.0,
QUITD); NR1:=0.015*FAP1*ASY1+0.0165*FAP1*ASY2-0.0125*SS1*ASY2;
NR1Q:=ord(RAS1)*NR1; NR2:=0.015*FAP1*ASY1+0.0165*FAP1*ASY2-
0.0125*SS2*ASY2; NR2Q:=ord(RAS1&ROT2)*NR2; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NR2*RED4; ER1Q:=
ord(RAS4&ROT2)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=(0.015*FAP1*ASY1+
0.0165*FAP1*ASY2-0.0125*SS2*ASY2)*RED7; VD1Q:=ord(ROT2)*AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NR1; DR1Q:=ord(RAS10&ROT10)*
AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=NR1*RED13; DS1Q:=
ord(RAS13)*DS1; DS2:=NR2*RED13; DS2Q:=ord(RAS13&ROT2)*DS2; DS3:=
DS1; DS3Q:=ord(RAS14)*DS3; DS4:=DS2; DS4Q:=ord(RAS14&ROT2)*DS4;
DST:=MAX(MAX(DS1,DS2),MAX(DS3,DS4)); DSQ:=MAX(MAX(DS1Q,DS2Q),MAX(
DS3Q,DS4Q)); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASYV>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,
DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,ASY51,RED13,RED7,
RED4,SS2,SS1,FAP1,SDFAP1,FDFAP1,ASY13,ASY10,ASY2,ASY1,ASYV,CNQ)
<0 then negative end;

procedure c0432s1032; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
PSY10:=MIN(40.0,BIRTHD+65.0-HIRED); FDFAP1:=QUITD; FAP1:=AVG(
WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=0.08; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(
1.0-0.07*o(60.0,AGE)); RED5:=NN(1.0-0.07*o(65.0,AGE)); RED13:=
JSRED; RAS1:=(ASY1>=35.0)!(AGE>=55.0)&(ASY1>=30.0)!(AGE>=60.0)&(
ASY1>=20.0)!(AGE>=65.0)&(ASY1>=5.0); RAS4:=(AGE>=55.0)&(ASY1>=
20.0); RAS5:=(AGE>=60.0)&(ASY1>=5.0); RAS10:=ASY1>=5.0; ROT7:=
ASY1>=20.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+60.0); BEG8:=MAX(
NRD,QUITD); NR1:=0.025*FAP1*u(ASY1,20.0)+0.01*FAP1*b(ASY1,20.0,
40.0); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5;
ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(
BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=
0.025*FAP1*u(PSY10,20.0)+0.01*FAP1*b(PSY10,20.0,40.0); DR1Q:=ord(
RAS10)*DR1; DR2:=0.5*FAP1; DR2Q:=ord(RAS10)*DR2; DRT:=MIN(DR1,
DR2); DRQ:=MIN(DR1Q,DR2Q); DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=MIN(0.95*ACPIG,0.03); VEDB:=VOPT(
ord(ASY1>=5.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,RED13,RED5,RED4,
MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,PSY10,ASY1,CNQ) <0 then
negative end;

procedure c0433s1035; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1941.5)-
HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1941.5))*1.0; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=0.0784; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,
FDMAN7); RED4:=NN(1.0-0.05*o(60.0,AGE)); ASY51:=ASY1+ASY2; RED5:=
NN(1.0-0.05*o(30.0,ASY51)); RED13:=JSRED; RAS1:=(ASY51>=30.0)!(
AGE>=60.0)&(ASY51>=5.0); RAS4:=(AGE>=55.0)&(ASY51>=5.0); RAS10:=
ASY1>=5.0; LNG10:=5.0; LNG13:=1.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+60.0); BEG11:=QUITD+5.0; NR1:=100.0*ASY1+0.02*FAP1*ASY2;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*MAX(RED4,RED5); ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=0.6*FAP1; DR1Q:=ord(RAS10)*AA(QUITD,LNG10+QUITD)*DR1; DR2:=
NRT; DR2Q:=ord(RAS10)*AA(BEG11,0.0)*DR2; DR3:=300.0; DR3Q:=ord(
RAS10)*AA(BEG11,0.0)*DR3; DRT:=DR1+MAX(DR2,DR3); DRQ:=DR1Q+MAX(
DR2Q,DR3Q); DS1:=ERT*RED13; DS1Q:=ord(RAS4)*DS1; DS2:=2000.0;
DS2Q:=AA(QUITD,LNG13+QUITD)*DS2; DST:=DS1+DS2; DSQ:=DS1Q+DS2Q;
PRAG:=0.0; VEDB:=VOPT(ord(ASY51>=5.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,
BEG11,BEG7,LNG13,LNG10,RED13,RED5,ASY51,RED4,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0434s629; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.25)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1976.25))*NNMIN(1.0,
WRKHRS/12.0); ASY4:=NN(MIN(QUITD,BIRTHD+65.0,1976.25)-HIRED)*ord(
WRKHRS>=6.0)*1.0; ASY5:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,
BIRTHD+22.0,1976.25))*ord(WRKHRS>=6.0)*1.0; FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); SS1:=SS(1.0,MAX(BENIFITD,
BIRTHD+65.0)); RED4:=NN(1.0-0.06*o(62.0,AGE)); RED7:=NN(1.0-0.06*
o(65.0,AGE)); RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=(AGE>=65.0)!(
AGE>=62.0)&(ASY51>=15.0); ASY55:=ASY4+ASY5; RAS4:=(AGE>=55.0)&(
ASY55>=15.0); RAS10:=ASY51>=15.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=0.016*FAP1*(ASY1+ASY2)-0.015*SS1*(
ASY1+ASY2); NR1Q:=ord(RAS1)*NR1; NR2:=120.0*(ASY1+ASY2); NR2Q:=
ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=
0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY55>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,ASY55,
ASY51,RED13,RED7,RED4,SS1,FAP1,FDFAP1,ASY5,ASY4,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0435s528; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/1800.0); RED4:=1.0-(0.0333*
a(AGE,60.0,50.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=50.0)&(ASY1>=15.0); DAT1:=1983.833<=QUITD;
DAT2:=QUITD<1983.833; ROT7:=ASY1>=15.0; BEG7:=MAX(BIRTHD+65.0,
QUITD); BEG8:=ANYTIME(BIRTHD+50.0,BIRTHD+65.0); NR1:=11.5*ASY1;
NR1Q:=ord(RAS1&DAT1)*NR1; NR2:=10.0*ASY1; NR2Q:=ord(RAS1&DAT2)*
NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&DAT1)*ER1; ER2:=NR2*
RED4; ER2Q:=ord(RAS4&DAT2)*ER2; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=
NR1; VD1Q:=ord(DAT1)*AA(BEG7,0.0)*VD1; VD2:=NR2; VD2Q:=ord(DAT2)*
AA(BEG7,0.0)*VD2; VD3:=ER1; VD3Q:=ord(DAT1&ROT7)*AA(BEG8,0.0)*
VD3; VD4:=ER2; VD4Q:=ord(DAT2&ROT7)*AA(BEG8,0.0)*VD4; VDT:=MAX(
MAX(VD1,VD2),MAX(VD3,VD4)); VDQ:=MAX(MAX(VD1Q,VD2Q),MAX(VD3Q,
VD4Q))*12.0; DR1:=NR1; DR1Q:=ord(RAS4&DAT1)*DR1; DR2:=NR2; DR2Q:=
ord(RAS4&DAT2)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0;
DS1:=0.5*ER1*RED13; DS1Q:=ord(RAS4&DAT1)*DS1; DS2:=0.5*ER2*RED13;
DS2Q:=ord(RAS4&DAT2)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*
12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,
ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG8,
BEG7,RED13,RED4,ASY1,CNQ) <0 then negative end;

procedure c0436s824; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.05; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); RED10:=NN(1.0-0.03*o(60.0,AGE)); RED11:=
NN(1.0-0.03*o(30.0,ASY1)); RED13:=JSRED; RAS1:=(ASY1>=30.0)!(
AGE>=60.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; RAS13:=ASY1>=25.0;
ROT1:=PARTD<1971.75; BEG7:=ANYTIME(BIRTHD+60.0,0.0); NR1:=72.0*
ASY1*1.15; NR1Q:=ord(RAS1&ROT1)*NR1; NR2:=0.020125*FAP1*ASY1;
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q);
LRQ:=NRQ; MRAGE:=70.0; ERQ:=0.0; VD1:=NR1; VD1Q:=ord(ROT1)*AA(
BEG7,0.0)*VD1; VD2:=NR2; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1,VD2); DR1:=NR1; DR1Q:=ord(RAS10&ROT1)*DR1;
DR2:=NR2; DR2Q:=ord(RAS10)*DR2; DRT:=MAX(DR1,DR2)*MAX(0.75,RED10,
RED11); DRQ:=MAX(DR1,DR2)*MAX(0.75,RED10,RED11); DS1:=NR1; DS1Q:=
ord(RAS13&ROT1)*DS1; DS2:=NR2; DS2Q:=ord(RAS13&ROT1)*DS2; DST:=
0.5*MAX(DS1,DS2)*MAX(0.75,RED10,RED11)*RED13; DSQ:=0.5*MAX(DS1,
DS2)*MAX(0.75,RED10,RED11)*RED13; PRAG:=0.0; VEDB:=VOPT(ord(
ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED11,RED10,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0437s683; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; PSY4:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); FAP2:=WAGE(QUITD);
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); SS4:=SS(2.0,MAX(BENIFITD,
BIRTHD+65.0)); RED4:=AR(65.0-AGE); RAS1:=AGE>=65.0; RAS4:=(AGE>=
55.0)&(ASY1>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=0.01667*FAP1*ASY1-0.0125*SS1*
u(ASY1,40.0); NR1Q:=ord(RAS1)*NR1; NR2:=0.6667*FAP2; NR2Q:=ord(
RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q); LRQ:=NRQ;
MRAGE:=999.0; ER1:=(0.01667*FAP1*PSY4-0.0125*SS4*u(PSY4,40.0))*
ASY1/PSY4*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT;
DR1Q:=AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DSQ:=0.0; PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED4,SS4,SS1,
FAP2,FAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0438s777; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-36.0/12.0),FDFAP1)
/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.08; MAN7:=SUMI(
PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.06*o(60.0,AGE));
RED5:=NN(1.0-0.06*o(55.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=60.0)&(
ASY1>=10.0); RAS2:=(AGE>=55.0)&(ASY1>=30.0); RAS4:=ASY1>=10.0;
RAS5:=ASY1>=30.0; RAS10:=ASY1>=5.0; RAS13:=ASY1>=2.0; ROT2:=AGE<=
55.0; BEG7:=MAX(BIRTHD+60.0,QUITD); NR1:=0.025*FAP1*u(ASY1,30.0);
NR1Q:=ord(RAS1)*NR1; NR2:=0.025*FAP1*u(ASY1,36.0); NR2Q:=ord(
RAS2&ROT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
NR1*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q)*12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*
12.0; DS1:=MAX(0.5*NRT*RED13,200.0); DS1Q:=ord(RAS13)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,
RED13,RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ)
<0 then negative end;

procedure c0439s1060; begin CNQ:=0.0; ASY1:=MIN(40.0,QUITD-HIRED)
*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)
;SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.04; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.0355*a(AGE,60.0,58.0)+
0.0463*a(AGE,64.0,60.0)+0.063*a(AGE,65.0,64.0)); RED5:=1.0-(
0.042*a(AGE,60.0,58.0)+0.048*a(AGE,61.0,60.0)+0.056*a(AGE,62.0,
61.0)); RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY1>=1.0)!(AGE>=62.0)&(
ASY1>=30.0); RAS4:=(AGE>=58.0)&(ASY1>=20.0)!(AGE>=62.0)&(ASY1>=
10.0); RAS5:=(AGE>=58.0)&(ASY1>=30.0); RAS10:=(ASY1>=10.0)!(AGE>=
50.0)&(ASY1>=5.0); ROT7:=(ASY1>=20.0)&(ASY1<30.0); ROT8:=(ASY1>=
10.0)&(ASY1<20.0); ROT9:=ASY1>=30.0; BEG7:=ANYTIME(BIRTHD+58.0,
BIRTHD+65.0); BEG8:=ANYTIME(BIRTHD+62.0,BIRTHD+65.0); BEG9:=
ANYTIME(BIRTHD+58.0,BIRTHD+62.0); NR1:=0.01*FAP1*u(ASY1,10.0)+
0.015*FAP1*o(ASY1,10.0); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=
NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=NRT*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q); VD1:=ER1; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=ER1;
VD2Q:=ord(ROT8)*AA(BEG8,0.0)*VD2; VD3:=ER2; VD3Q:=ord(ROT9)*AA(
BEG9,0.0)*VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1Q,VD2Q,VD3Q);
DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*
ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.03;
VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,
DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG9,BEG8,BEG7,
RED13,RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ)
<0 then negative end;

procedure c0440s862; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1020.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-
0.06*o(60.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=60.0)&(ASY1>=10.0)!(
AGE>=55.0)&(ASY1>=30.0); RAS4:=(AGE>=55.0)&(ASY1>=15.0); RAS11:=
ASY1>=10.0; RAS13:=(ASY1>=15.0)!(AGE>=60.0)&(ASY1>=10.0); ROT7:=(
ASY1>=10.0)&(ASY1<30.0); ROT8:=ASY1>=30.0; ROT10:=QJRDABLE;
ROT11:=^QJRDABLE; ROT13:=^QJRDEATH; ROT14:=QJRDEATH; BEG7:=MAX(
BIRTHD+60.0,QUITD); BEG8:=MAX(BIRTHD+55.0,QUITD); NR1:=0.015*
FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=NRT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT;
VD2Q:=ord(ROT8)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q); DR1:=NRT; DR1Q:=ord(ROT10)*DR1; DR2:=NRT; DR2Q:=ord(
RAS11&ROT11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=
NRT*RED13; DS1Q:=ord(RAS13&ROT13)*DS1; DS2:=NRT*RED13; DS2Q:=ord(
ROT14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0;
VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,
DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,RED13,
RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0441s517; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-(HIRED+1.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-36.0/12.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=1.0-(0.07*a(AGE,
60.0,55.0)+0.03*a(AGE,65.0,60.0)); RED5:=AR(65.0-AGE); RED13:=
JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=25.0); RAS5:=(
AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; ROT4:=QAPPROVL;
ROT10:=QSSDABLE; BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=ASY1*(0.016*
FAP1-0.015*SS1); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*
RED5; ER2Q:=ord(RAS5&ROT4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q); VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=
0.5*ER1*RED13; DS1Q:=ord(RAS4)*DS1; DS2:=0.5*ER2*RED13; DS2Q:=
ord(RAS5&ROT4)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q);
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG7,RED13,RED5,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,
SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0443s675; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/870.0); ASY1:=NNMIN(40.0,QUITD-MAX(HIRED,1976.0))*
NNMIN(1.0,WRKHRS/1760.0); ASY2:=NNMIN(40.0,MIN(QUITD,1976.0)-
HIRED)*MIN(2.0,NN(WRKHRS/50.0)); ASY3:=MIN(25.0,QUITD-HIRED)*MIN(
2.0,NN(WRKHRS/50.0)); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); RED4:=AR(NRD-BENIFITD); RED7:=AR(65.0-AGE);
RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=(AGE>=62.0)&(ASY51>=10.0);
RAS2:=(AGE>=65.0)&(ASY51>=10.0); RAS3:=ASY51>=30.0; RAS4:=(AGE>=
55.0)&(ASY51>=10.0); RAS10:=ASY51>=10.0; ROT2:=PARTD<1969.5;
ROT7:=ASY1+ASY2>=10.0; ROT8:=(PARTD<1969.5)&(ASY1+ASY2>=10.0);
ROT10:=QSSDABLE; ROT11:=QSSDABLE&(PARTD<1969.5); BEG7:=MAX(
BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
(0.0125*u(ASY1,15.0)+0.0155*b(ASY1,15.0,16.0)+0.0165*b(ASY1,
16.0,34.0)+0.01*b(ASY1,34.0,40.0))*FAP1; NR1Q:=ord(RAS1)*NR1;
NR2:=(0.0125*u(ASY2,15.0)+0.0155*b(ASY2,15.0,16.0)+0.0165*b(
ASY2,16.0,34.0)+0.01*b(ASY2,34.0,40.0))*FAP1; NR2Q:=ord(RAS1)*
NR2; NR3:=(0.014*u(ASY1,10.0)+0.015*b(ASY1,10.0,40.0))*FAP1;
NR3Q:=ord(RAS2&ROT2)*NR3; NR4:=(0.014*u(ASY2,10.0)+0.015*b(ASY2,
10.0,40.0))*FAP1; NR4Q:=ord(RAS2&ROT2)*NR4; NR5:=0.007*ASY3*FAP1;
NR5Q:=ord(RAS1)*NR5; NR6:=(0.0125*u(ASY1,15.0)+0.0155*b(ASY1,
15.0,16.0)+0.0165*b(ASY1,16.0,34.0)+0.01*b(ASY1,34.0,40.0))*
FAP1; NR6Q:=ord(RAS3)*NR6; NR7:=(0.0125*u(ASY2,15.0)+0.0155*b(
ASY2,15.0,16.0)+0.0165*b(ASY2,16.0,34.0)+0.01*b(ASY2,34.0,40.0))
*FAP1; NR7Q:=ord(RAS3)*NR7; NRT:=MAX(NR1+NR2+NR5,NR3+NR4+NR5,NR6+
NR7); NRQ:=MAX(NR1Q+NR2Q+NR5Q,NR3Q+NR4Q+NR5Q,NR6Q+NR7Q); LRQ:=
NRQ; MRAGE:=999.0; ER1:=NR1+NR2+NR5; ER1Q:=ord(RAS1&ROT2)*ER1;
ER2:=(NR3+NR4+NR5)*RED4; ER2Q:=ord(RAS1&ROT2)*ER2; ER3:=(NR1+NR2)
*RED4; ER3Q:=ord(RAS4)*ER3; ER4:=(NR3+NR4)*RED4; ER4Q:=ord(RAS4&
ROT2)*ER4; ERT:=MAX(ER1,ER2,ER3,ER4); ERQ:=MAX(ER1Q,ER2Q,ER3Q,
ER4Q); VD1:=NR1+NR2; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR3+NR4; VD2Q:=
ord(ROT2)*AA(BEG7,0.0)*VD2; VD3:=(NR1+NR2)*RED7; VD3Q:=ord(ROT7)*
AA(BEG8,0.0)*VD3; VD4:=(NR3+NR4)*RED7; VD4Q:=ord(ROT8)*AA(BEG8,
0.0)*VD4; VDT:=MAX(VD1,VD2,VD3,VD4); VDQ:=MAX(VD1Q,VD2Q,VD3Q,
VD4Q); DR1:=NR1+NR2+NR5; DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=NR3+
NR4+NR5; DR2Q:=ord(RAS10&ROT11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(
DR1Q,DR2Q); DS1:=ER1*RED13*0.5; DS1Q:=ord(RAS1&ROT2)*DS1; DS2:=
ER2*RED13*0.5; DS2Q:=ord(RAS1&ROT2)*DS2; DS3:=ER3*RED13*0.5;
DS3Q:=ord(RAS4)*DS3; DS4:=ER4*RED13*0.5; DS4Q:=ord(RAS4&ROT2)*
DS4; DST:=MAX(DS1,DS2,DS3,DS4); DSQ:=MAX(DS1Q,DS2Q,DS3Q,DS4Q);
PRAG:=0.0; VEDB:=VOPT(ord(ASYV>=10.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR7Q,NR7,
NR6Q,NR6,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,
ASY51,RED13,RED7,RED4,FAP1,FDFAP1, ASY3,ASY2,ASY1,ASYV,CNQ) <0
then negative end;

procedure c0444s938; begin CNQ:=0.0; ASY1:=MIN(37.0,QUITD-HIRED)*
1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1)/
12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.08; MAN7:=SUMI(
PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.02*o(60.0,AGE));
RED5:=NN(1.0-(0.03*o(55.0,AGE)+0.06*a(AGE,60.0,55.0))); RED13:=
JSRED; RAS1:=(AGE>=60.0)&(ASY1>=15.0)!(AGE>=65.0)&(ASY1>=10.0)!(
AGE>=55.0)&(ASY1>=30.0); RAS4:=(AGE>=55.0)&(ASY1>=25.0); RAS5:=
ASY1>=15.0; ROT7:=^QWDMAN; BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=
0.02*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
NRT*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q)*12.0; VD1:=NRT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=ER1*RED13*0.75; DS1Q:=ord(RAS4)*
DS1; DS2:=ER2*RED13*0.75; DS2Q:=ord(RAS5)*DS2; DST:=MAX(DS1,DS2);
DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=ord(ACPIG>=0.03)*MIN(0.95*ACPIG,
0.03); VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED5,RED4,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0445s1068; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0,1965.75)-HIRED)*NNMIN(1.0,WRKHRS/960.0); ASY2:=NN(MIN(QUITD,
BIRTHD+70.0)-MAX(HIRED,1965.75))*NNMIN(1.0,WRKHRS/960.0);
FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/
12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0;
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.03; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); ASY51:=ASY1+ASY2; RAS1:=(AGE>=60.0)&(
ASY51>=5.0); RAS10:=ASY51>=8.0; ROT7:=^QWDMAN; BEG7:=MAX(BIRTHD+
60.0,QUITD); NR1:=0.01125*(0.5*ASY1+ASY2)*FAP1; NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0; ERQ:=0.0;
VD1:=NRT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*
12.0; DR1:=0.9*NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*
12.0; DSQ:=0.0; PRAG:=TAR(NN(FAR(ACPIG,1.0)-0.0),1.0); VEDB:=
VOPT(ord((ASY51>=10.0)!(QUITAGE>=60.0)&(ASY51>=5.0))*1.0); if
min( VEDB,PRAG,DSQ,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY51,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,
SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0446s893; begin CNQ:=0.0; ASY1:=NNMIN(40.0,QUITD-MAX(
HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-10.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; RED4:=NN(1.0-0.0667*
o(65.0,AGE)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)&(
ASY1>=10.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+
65.0); BEG10:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); NR1:=(0.01*u(
FAP1,1275.0)+0.015*o(FAP1,1275.0))*ASY1; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=(1.0+0.06*b(AGE,65.0,67.0)+0.07*b(
AGE,67.0,69.0)+0.08*b(AGE,69.0,70.0))*NRQ; MRAGE:=70.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=ERT;
DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*
12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,
BEG7,RED13,RED4,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative
end;

procedure c0447s648; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+21.0))*1.0; ASY1:=NNMIN(30.0,MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED+1.0,BIRTHD+21.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0);
SDFAP1:=MAX(HIRED,FDFAP1-4.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); FDFAP10:=MIN(QUITD,BIRTHD+65.0); FAP10:=ord(
FDFAP10>HIRED)*WAGE(FDFAP10); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=0.02; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=
1.0-(0.08*a(AGE,56.0,55.0)+0.07*a(AGE,62.0,56.0)); RED7:=AR(NRD-
BENIFITD); RED13:=JSRED; RAS1:=AGE>=62.0; RAS4:=AGE>=55.0;
RAS10:=ASY1>=3.0; ROT7:=^QWDMAN; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=0.0175*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=
NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=ord(ROT7)*
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=0.0175*FAP10*ASY1;
DR1Q:=ord(RAS10)*DR1; DR2:=0.25*FAP10; DR2Q:=ord(RAS10)*DR2;
DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.5*NRT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
MAX(ord(ASYV>=5.0)*0.25,ord(ASYV>=10.0)*0.5,ord((QUITAGE>=55.0)!
(ASYV>=15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED7,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP10,FDFAP10,FAP1,SDFAP1,FDFAP1,ASY1,ASYV,CNQ) <0 then negative
end;

procedure c0448s1036; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1976.0))*ord(WRKHRS>=
1000.0)*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=
1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(
FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1); RED4:=AR(65.0-AGE); RED13:=
JSRED; RED14:=COSTRED; RAS1:=AGE>=65.0; RAS2:=(AGE>=65.0)&(ASY4>=
20.0); RAS4:=(AGE>=55.0)&(ASY4>=10.0); BEG7:=MAX(BIRTHD+65.0,
QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.01*FAP1*(
ASY1+ASY2); NR1Q:=ord(RAS1)*NR1; NR2:=2400.0; NR2Q:=ord(RAS2)*
NR2; NR3:=7000.0; NR3Q:=ord(RAS1)*NR3; NRT:=MIN(NR3,MAX(NR1,NR2))
;NRQ:=MIN(NR3Q,MAX(NR1Q,NR2Q)); LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NR1; VD1Q:=
AA(BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=0.5*ERT*RED13*RED14;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,RED14,
RED13,RED4,FAP1,FDFAP1,ASY4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0449s428; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=501.0)*1.0; ASY1:=NNMIN(35.0,MIN(QUITD,BIRTHD+65.0,
1971.5)-HIRED)*NNMIN(1.0,WRKHRS/2000.0); ASY2:=NNMIN(35.0,MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED,1971.5))*NNMIN(1.0,WRKHRS/2000.0);
ASY3:=NNMIN(35.0,MIN(QUITD,BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/
2000.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),
FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=
SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,BENIFITD);
RED4:=NN(1.0-0.05*o(60.0,AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED;
RAS1:=AGE>=60.0; RAS4:=AGE>=55.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=0.017*FAP1*ASY1+0.016*FAP1*ASY2-0.5*SS1*u(
ASY3,35.0)/35.0; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=
NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DRQ:=0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASYV>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED7,
RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY3,ASY2,ASY1,
ASYV,CNQ) <0 then negative end;

procedure c0450s543; begin CNQ:=0.0; ASY1:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; RED4:=NN(1.0-0.06*o(65.0,AGE)); RED10:=
AR(65.0-AGE); RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY1>=5.0); RAS4:=
(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; DAT1:=1983.25<=
QUITD; DAT2:=QUITD<1983.25; ROT10:=QSSDABLE; BEG7:=MAX(NRD,QUITD)
;BEG13:=MAX(ERD,QUITD); NR1:=78.0*ASY1; NR1Q:=ord(RAS1&DAT1)*NR1;
NR2:=66.0*ASY1; NR2Q:=ord(RAS1&DAT2)*NR2; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4&DAT1)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=
ord(DAT1)*AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT*RED10;
DR1Q:=ord(RAS10&DAT1&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*
ERT*RED13; DS1Q:=ord(RAS4&DAT1)*AA(BEG13,0.0)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=10.0)*0.5,ord(
ASY1>=12.0)*0.7,ord((ASY1>=15.0)!(QUITAGE>=65.0)&(ASY1>=5.0))*
1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG13,BEG7,RED13,RED10,RED4,ASY1,CNQ) <0 then negative end;

procedure c0451s866; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY4:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,
FDMAN7); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=AR(62.0-
AGE); RED10:=OTHERB; RED13:=JSRED; RED14:=COSTRED; RAS1:=(AGE>=
65.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0);
RAS10:=ASY1>=15.0; ROT1:=QPASTSRV; ROT7:=ASY1>=10.0; LNG10:=
BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(
BIRTHD+65.0,QUITD); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=0.015*
FAP1*ASY1-0.5*SS1*0.035*ASY1; NR1Q:=ord(RAS1&ROT1)*NR1; NR2:=
600.0; NR2Q:=ord(RAS1&ROT1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(
NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&
ROT1)*ER1; ER2:=(0.015*FAP1*PSY4-0.035*SS1*PSY4)*ASY1/PSY4;
ER2Q:=ord(RAS4&ROT1)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=ord(
ROT1)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q);
DR1:=0.015*FAP1*ASY1-RED10; DR1Q:=ord(RAS10&ROT1)*AA(QUITD,LNG10)
*DR1; DR2:=NR1; DR2Q:=ord(RAS10&ROT1)*AA(BEG11,0.0)*DR2; DRT:=
DR1+DR2; DRQ:=DR1Q+DR2Q; DS1:=ERT*RED13*RED14*0.5; DS1Q:=ord(
RAS4&ROT1)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(
ord(ASY1>=5.0)*0.5,ord(ASY1>=8.0)*0.8,ord((QUITAGE>=65.0)!(
ASY1>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG11,BEG8,BEG7,
LNG10,RED14,RED13,RED10,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,
SDFAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0452s1063; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/10.0); PSY10:=BIRTHD+60.0-HIRED; FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7);
RED4:=NN(1.0-0.03*o(65.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=65.0)!(
ASY1>=30.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0;
RAS11:=ASY1>=30.0; RAS13:=ASY1>=30.0; BEG7:=ANYTIME(BIRTHD+60.0,
BIRTHD+65.0); NR1:=0.01625*FAP1*u(ASY1,20.0)+0.0175*FAP1*b(ASY1,
20.0,30.0)+0.02*FAP1*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1; NR2:=
60.0*ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=(0.01625*FAP1*u(PSY10,20.0)+0.0175*FAP1*b(PSY10,
20.0,30.0))*0.85; DR1Q:=ord(RAS10)*DR1; DR2:=NR1; DR2Q:=ord(
RAS11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.5*ERT*
RED13; DS1Q:=ord(RAS4)*DS1; DS2:=0.5*NRT*RED13; DS2Q:=ord(RAS13)*
DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=MIN(0.5*ACPIG,
0.025); VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,
NR2,NR1Q,NR1,BEG7,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,
FDFAP1,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0453s1064; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/10.0); PSY10:=BIRTHD+60.0-HIRED; FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7);
RED4:=NN(1.0-0.03*o(65.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=65.0)!(
ASY1>=30.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0;
RAS11:=ASY1>=30.0; RAS13:=ASY1>=30.0; BEG7:=ANYTIME(BIRTHD+60.0,
BIRTHD+65.0); NR1:=0.01625*FAP1*u(ASY1,20.0)+0.0175*FAP1*b(ASY1,
20.0,30.0)+0.02*FAP1*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1; NR2:=
60.0*ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=(0.01625*FAP1*u(PSY10,20.0)+0.0175*FAP1*b(PSY10,
20.0,30.0))*0.85; DR1Q:=ord(RAS10)*DR1; DR2:=NR1; DR2Q:=ord(
RAS11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.5*ERT*
RED13; DS1Q:=ord(RAS4)*DS1; DS2:=0.5*NRT*RED13; DS2Q:=ord(RAS13)*
DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=MIN(0.5*ACPIG,
0.025); VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,
NR2,NR1Q,NR1,BEG7,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,
FDFAP1,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0454s1062; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/10.0); PSY10:=BIRTHD+60.0-HIRED; FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7);
RED4:=NN(1.0-0.03*o(65.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=65.0)!(
ASY1>=30.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0;
RAS11:=ASY1>=30.0; RAS13:=ASY1>=30.0; BEG7:=ANYTIME(BIRTHD+60.0,
BIRTHD+65.0); NR1:=0.01625*FAP1*u(ASY1,20.0)+0.0175*FAP1*b(ASY1,
20.0,30.0)+0.02*FAP1*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1; NR2:=
60.0*ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=(0.01625*FAP1*u(PSY10,20.0)+0.0175*FAP1*b(PSY10,
20.0,30.0))*0.85; DR1Q:=ord(RAS10)*DR1; DR2:=NR1; DR2Q:=ord(
RAS11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.5*ERT*
RED13; DS1Q:=ord(RAS4)*DS1; DS2:=0.5*NRT*RED13; DS2Q:=ord(RAS13)*
DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=MIN(0.5*ACPIG,
0.025); VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,
NR2,NR1Q,NR1,BEG7,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,
FDFAP1,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0455s641; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1961.0)-MAX(HIRED+3.0,BIRTHD+30.0))*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0,1976.0)-MAX(HIRED+1.0,BIRTHD+30.0,1961.0))*1.0;
ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,
1976.0))*1.0; ASY4:=NN(QUITD-MAX(HIRED,1976.0))*1.0; FDFAP1:=
QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0; SS1:=
SS(1.0,BENIFITD)/12.0; RED4:=NN(1.0-0.06*o(65.0,AGE)); RED13:=
JSRED; RED14:=COSTRED; RAS1:=AGE>=65.0; ASY60:=ASY1+ASY2+ASY4;
RAS4:=(AGE>=55.0)&(ASY60>=10.0); RAS10:=(AGE>=50.0)&(ASY60>=10.0)
;LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.015*FAP1-0.01667*SS1)*(
ASY1+ASY2+ASY3); NR1Q:=ord(RAS1)*NR1; NR2:=8.0*(ASY1+ASY2+ASY3);
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=MAX(NRT,100.0); DR1Q:=ord(RAS10)*AA(QUITD,
LNG10)*DR1; DR2:=NRT; DR2Q:=ord(RAS10)*AA(BEG11,0.0)*DR2; DRT:=
DR1+DR2; DRQ:=(DR1Q+DR2Q)*12.0; DS1:=0.5*ERT*RED13*RED14; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY60>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG11,BEG7,LNG10,
ASY60,RED14,RED13,RED4,SS1,FAP1,FDFAP1,ASY4,ASY3,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0456s642; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
1977.0)-HIRED)*NNMIN(1.0,WRKHRS/1710.0); ASY2:=NNMIN(30.0,QUITD-
MAX(HIRED,1977.0))*NNMIN(1.0,WRKHRS/1710.0); ASY4:=NN(MIN(QUITD,
1976.0)-HIRED)*NNMIN(1.0,WRKHRS/1710.0); ASY5:=NN(QUITD-MAX(
HIRED,1976.0))*ord(WRKHRS>=1000.0)*1.0; RED4:=NN(1.0-0.06*o(65.0,
AGE)); RED13:=JSRED; RED14:=COSTRED; RAS1:=AGE>=65.0; ASY55:=
ASY4+ASY5; RAS4:=(AGE>=55.0)&(ASY55>=10.0); RAS10:=(AGE>=50.0)&(
ASY55>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=4.0*u(
ASY1+ASY2,30.0)+1.5*ASY2; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=
NR1Q*12.0; LRQ:=NRQ; MRAGE:=68.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=MAX(NRT,100.0); DR1Q:=ord(RAS10)*
DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13*RED14; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY55>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY55,RED14,RED13,RED4,ASY5,
ASY4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0457s742; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1000.0); ASY1:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/2080.0);
ASY7:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/1000.0); PSY7:=BIRTHD+65.0-
HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),
FDFAP1); RED4:=1.0-(0.03*a(AGE,50.0,49.0)+0.03*a(AGE,55.0,50.0));
RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE+ASY1>=
76.0)&(AGE>=55.0)&(ASY1>=15.0); RAS2:=(AGE+ASY1>=76.0)&(AGE>=
55.0)&(ASY1>=15.0); RAS4:=(AGE+ASY1>=76.0)&(ASY1>=15.0); RAS10:=
ASY1>=15.0; RAS13:=(AGE>=65.0)!(AGE+ASY1>=76.0)&(ASY1>=15.0);
ROT7:=ASY1>=15.0; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=MAX(BIRTHD+
76.0-ASY1,QUITD); BEG10:=ANYTIME(BIRTHD+55.0,0.0); NR1:=ASY1*
FAP1*0.0135; NR1Q:=ord(RAS1)*NR1; NR2:=2100.0+90.0*b(ASY1,17.0,
19.0)+12.0*b(ASY1,19.0,29.0)+60.0*b(ASY1,29.0,39.0)+300.0*b(
ASY1,39.0,40.0); NR2Q:=ord(RAS2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=
MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(
RAS4)*ER1; ER2:=NR2; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2);
ERQ:=MAX(ER1Q,ER2Q); VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=
NR2*ASY7/PSY7; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NRT; DR1Q:=ord(RAS10)*AA(BEG10,
0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*NRT*RED13; DS1Q:=ord(
RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,
BEG8,BEG7,RED13,RED7,RED4,FAP1,FDFAP1,PSY7,ASY7,ASY1,ASYV,CNQ)
<0 then negative end;

procedure c0458s743; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1000.0); ASY1:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/2080.0);
ASY7:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/1000.0); PSY7:=BIRTHD+65.0-
HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),
FDFAP1); RED4:=1.0-(0.03*a(AGE,50.0,49.0)+0.03*a(AGE,55.0,50.0));
RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE+ASY1>=
76.0)&(AGE>=55.0)&(ASY1>=15.0); RAS2:=(AGE+ASY1>=76.0)&(AGE>=
55.0)&(ASY1>=15.0); RAS4:=(AGE+ASY1>=76.0)&(ASY1>=15.0); RAS10:=
ASY1>=15.0; RAS13:=(AGE>=65.0)!(AGE+ASY1>=76.0)&(ASY1>=15.0);
ROT7:=ASY1>=15.0; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=MAX(BIRTHD+
76.0-ASY1,QUITD); BEG10:=ANYTIME(BIRTHD+55.0,0.0); NR1:=ASY1*
FAP1*0.0135; NR1Q:=ord(RAS1)*NR1; NR2:=2100.0+90.0*b(ASY1,17.0,
19.0)+12.0*b(ASY1,19.0,29.0)+60.0*b(ASY1,29.0,39.0)+300.0*b(
ASY1,39.0,40.0); NR2Q:=ord(RAS2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=
MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(
RAS4)*ER1; ER2:=NR2; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2);
ERQ:=MAX(ER1Q,ER2Q); VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=
NR2*ASY7/PSY7; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NRT; DR1Q:=ord(RAS10)*AA(BEG10,
0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*NRT*RED13; DS1Q:=ord(
RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,
BEG8,BEG7,RED13,RED7,RED4,FAP1,FDFAP1,PSY7,ASY7,ASY1,ASYV,CNQ)
<0 then negative end;

procedure c0459s598; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0,1976.0)-MAX(HIRED,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0;
ASY2:=NN(MIN(QUITD,BIRTHD+70.0)-MAX(HIRED,BIRTHD+25.0,1976.0))*
NNMIN(1.0,WRKHRS/1560.0); ASY3:=NN(MIN(QUITD,BIRTHD+70.0,1976.0)-
MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY4:=NN(MIN(
QUITD,BIRTHD+70.0)-MAX(HIRED,BIRTHD+22.0,1976.0))*NNMIN(1.0,
WRKHRS/1560.0); FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(
HIRED,FDFAP1-60.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0;
RED4:=NN(1.0-0.03*o(62.0,AGE)); RED13:=JSRED; ASY51:=ASY1+ASY2;
RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY51>=15.0); RAS4:=(AGE>=55.0)&(
ASY51>=15.0); RAS5:=AGE>=40.0; ROT4:=PARTD<1975.0; BEG7:=MAX(
BIRTHD+65.0,QUITD); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=0.017*
FAP1*u(ASY1+ASY2,25.0)+0.0075*FAP1*o(ASY1+ASY2,25.0); NR1Q:=ord(
RAS1)*NR1; NR2:=NN(0.75*FAP1-SS1); NR2Q:=ord(RAS1)*NR2; NRT:=MIN(
NR1,NR2); NRQ:=MIN(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=
MIN(NR1*RED4,NR2); ER1Q:=ord(RAS4)*ER1; ER2:=ER1; ER2Q:=ord(RAS5&
ROT4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=NRT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT;
DR1Q:=AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*
RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0;
ASY52:=ASY3+ASY4; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY52>=10.0))*
1.0); if min( VEDB,ASY52,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,ASY51,RED13,RED4,SS1,FAP1,SDFAP1,
FDFAP1,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0460s673; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(35.0,MIN(
QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY7:=BIRTHD+
65.0-HIRED; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,
FDFAP1-36.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1)/12.0; SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=
1.0-(0.048*a(AGE,57.0,55.0)+0.061*a(AGE,60.0,57.0)+0.0785*a(AGE,
62.0,60.0)); RED7:=AR(65.0-AGE); RAS1:=(AGE>=65.0)!(AGE>=62.0)&(
ASY1>=5.0); RAS4:=(AGE>=55.0)&(ASY1>=5.0); RAS13:=(AGE>=20.0)!(
AGE>=55.0)&(ASY1>=10.0); RAS14:=(AGE>=55.0)&(ASY1>=5.0); BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.02*FAP1-0.02*SS1)*u(
ASY1,15.0)+(0.015*FAP1-0.01*SS1)*b(ASY1,15.0,35.0); NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=AI(AGE,65.0,999.0)*NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=((0.02*FAP1-0.02*SS1)*u(PSY7,15.0)+(0.015*FAP1-
0.01*SS1)*b(PSY7,15.0,35.0))*ASY1/PSY7*RED7; VD1Q:=AA(BEG7,0.0)*
VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=0.5*NRT; DS1Q:=ord(
RAS13)*DS1; DS2:=0.5*ERT; DS2Q:=ord(RAS14)*DS2; DST:=MAX(DS1,DS2)
;DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASYV>=10.0)!(QUITAGE>=55.0)&(ASYV>=5.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,
ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED7,RED4,SS1,FAP1,
SDFAP1,FDFAP1,PSY7,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0461s975; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1000.0); RED4:=NN(1.0-0.0667*o(65.0,AGE)); RED13:=
JSRED; RAS1:=(AGE>=65.0)&(ASY1>=10.0); RAS4:=(AGE>=62.0)&(ASY1>=
10.0); RAS10:=ASY1>=10.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=120.0*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=
NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=
2400.0; DR2Q:=ord(RAS10&ROT10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(
DR1Q,DR2Q); DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,
RED4,ASY1,CNQ) <0 then negative end;

procedure c0462s790; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); FDFAP1:=MIN(QUITD,BIRTHD+
70.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,
BENIFITD); RED4:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS5:=(AGE>=58.0)&(ASY1>=10.0);
LNG4:=BIRTHD+62.0; BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=NN(0.6*
FAP1-0.5*SS1)*u(ASY1,37.5)/37.5; NR1Q:=ord(RAS1)*NR1; NR2:=NN(
0.85*FAP1-0.02667*SS1)*u(ASY1,37.5); NR2Q:=ord(RAS1)*NR2; NRT:=
MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=72.0*u(ASY1,25.0); ER2Q:=ord(
RAS5)*AA(QUITD,LNG4)*ER2; ERT:=ER1+ER2; ERQ:=ER1Q+ER2Q; VD1:=NRT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=ER1*
RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,LNG4,RED13,
RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,ASY1,CNQ)
<0 then negative end;

procedure c0463s686; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1968.583)
-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(QUITD-MAX(HIRED,
1968.583))*NNMIN(1.0,WRKHRS/12.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,
MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/12.0;
RED4:=1.0-(0.042*a(AGE,56.0,55.0)+0.0386*a(AGE,57.0,56.0)+
0.0667*a(AGE,62.0,57.0)); RED7:=1.0-(0.032*a(AGE,56.0,55.0)+
0.035*a(AGE,57.0,56.0)+0.038*a(AGE,58.0,57.0)); RED8:=1.0-(0.042*
a(AGE,59.0,58.0)+0.039*a(AGE,60.0,59.0)+0.0666*a(AGE,65.0,60.0))
;RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(
ASY51>=10.0); RAS4:=(AGE>=55.0)&(ASY51>=10.0); LNG4:=BIRTHD+62.0;
BGN5:=MAX(BIRTHD+62.0,QUITD); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=2.5*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=NN(0.01*FAP1-
0.01667*o(SS1,450.0))*u(ASY2,30.0); NR2Q:=ord(RAS1)*NR2; NR3:=
8.0*(ASY1+ASY2); NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1+NR2,NR3);
NRQ:=MAX(NR1Q+NR2Q,NR3Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=(2.5*
ASY1+0.01*FAP1*u(ASY2,30.0))*RED4; ER1Q:=ord(RAS4)*AA(QUITD,LNG4)
*ER1; ER2:=NN(2.5*ASY1+(0.01*FAP1-0.01667*o(SS1,450.0))*u(ASY2,
30.0))*RED4; ER2Q:=ord(RAS4)*AA(BGN5,0.0)*ER2; ER3:=8.0*(ASY1+
ASY2)*RED4; ER3Q:=ord(RAS4)*ER3; ERT:=MAX(ER1+ER2,ER3); ERQ:=MAX(
ER1Q+ER2Q,ER3Q)*12.0; VD1:=NRT*RED7*RED8; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=ER1*RED13*0.5; DS1Q:=
ord(RAS4)*AA(QUITD,LNG4)*DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(RAS4)
*AA(BGN5,0.0)*DS2; DS3:=ER3*RED13*0.5; DS3Q:=ord(RAS4)*DS3; DST:=
MAX(DS1+DS2,DS3); DSQ:=MAX(DS1Q+DS2Q,DS3Q)*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,
NR2Q,NR2,NR1Q,NR1,BEG7,BGN5,LNG4,ASY51,RED13,RED8,RED7,RED4,SS1,
FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0464s504; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1976.0))*NNMIN(1.0,WRKHRS/1000.0); FDFAP1:=MIN(QUITD,
BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*SUM(WAGE,HIRED,FDFAP1);
FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,1959.0); FAP2:=
ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); FDFAP3:=MIN(QUITD,
BIRTHD+65.0); SDFAP3:=MAX(HIRED,FDFAP3-60.0/12.0); FAP3:=ord(
FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3); SDSS1:=MAX(HIRED,1959.0);
SS1:=ord(QUITD>SDSS1)*SSBASE(BENIFITD); RED4:=NN(1.0-0.04*o(62.0,
AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=
(AGE>=65.0)!(AGE>=62.0)&(ASY51>=10.0); RAS4:=(AGE>=55.0)&(ASY51>=
10.0); RAS13:=(ASY51>=14.0)!(AGE>=55.0)&(ASY51>=10.0); BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.02*FAP1; NR1Q:=ord(RAS1)
*NR1; NR2:=0.05*FAP3+0.01*FAP3*u(ASY1+ASY2,40.0)+0.003*u(ASY1+
ASY2,40.0)*(FAP2-SS1); NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,ASY51,RED13,RED7,RED4,SS1,SDSS1,
FAP3,SDFAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0465s951; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; RED4:=AR(NRD-BENIFITD);
RED10:=OTHERB; RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(
ASY1>=10.0); RAS10:=ASY1>=10.0; DAT1:=1984.25<=QUITD; DAT2:=
QUITD<1984.25; LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=144.0*ASY1;
NR1Q:=ord(RAS1&DAT1)*NR1; NR2:=132.0*ASY1; NR2Q:=ord(RAS1&DAT2)*
NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=
999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&DAT1)*ER1; ER2:=NR2*RED4;
ER2Q:=ord(RAS4&DAT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=ER1; VD1Q:=ord(DAT1)*AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(
DAT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q);
DR1:=NR1-RED10; DR1Q:=ord(RAS10&DAT1)*AA(QUITD,LNG10)*DR1; DR2:=
NR2-RED10; DR2Q:=ord(RAS10&DAT2)*AA(QUITD,LNG10)*DR2; DR3:=NR1;
DR3Q:=ord(RAS10&DAT1)*AA(BEG11,0.0)*DR3; DR4:=NR1; DR4Q:=ord(
RAS10&DAT2)*AA(BEG11,0.0)*DR4; DRT:=MAX(DR1,DR2)+MAX(DR3,DR4);
DRQ:=MAX(DR1Q,DR2Q)+MAX(DR3Q,DR4Q); DS1:=0.5*ER1*RED13; DS1Q:=
ord(RAS4&DAT1)*DS1; DS2:=0.5*ER2*RED13; DS2Q:=ord(RAS4&DAT2)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG11,BEG7,LNG10,RED13,RED10,RED4,
ASY1,CNQ) <0 then negative end;

procedure c0466s540; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/12.0);
ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,
1976.0))*NNMIN(1.0,WRKHRS/1615.0); PSY4:=NN(BIRTHD+65.0-MAX(
HIRED+1.0,BIRTHD+25.0)); FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=
MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=
SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,MAX(BENIFITD,
BIRTHD+65.0)); SS10:=SS(5.0,BENIFITD); RED4:=NN(1.0-0.03*o(62.0,
AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=
(AGE>=65.0)!(AGE>=62.0)&(ASY51>=10.0); RAS4:=(AGE>=55.0)&(ASY51>=
10.0); ROT4:=PSY4>=36.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=(0.015*FAP1-0.01429*SS1)*(ASY1+ASY2);
NR1Q:=ord(RAS1)*NR1; NR2:=225.0*(ASY1+ASY2)-0.01429*SS1*(ASY1+
ASY2); NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=(0.015*FAP1*(ASY1+ASY2)-0.5*SS1*(ASY1+ASY2)/PSY4)*RED4;
ER2Q:=ord(RAS4&ROT4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=(0.015*FAP1*(ASY1+
ASY2)-0.5*SS1*(ASY1+ASY2)/PSY4)*RED7; VD2Q:=ord(ROT4)*AA(BEG7,
0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=(0.015*
FAP1-0.01429*SS10)*16.667; DR1Q:=ord(ROT10)*DR1; DR2:=(0.015*
FAP1-0.01429*SS10)*(ASY1+ASY2); DR2Q:=ord(ROT10)*DR2; DRT:=MAX(
DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=ER1*RED13*0.5; DS1Q:=ord(
RAS4)*DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(RAS4&ROT4)*DS2; DST:=
MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,
NR1Q,NR1,BEG7,ASY51,RED13,RED7,RED4,SS10,SS1,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP1,SDFAP1,FDFAP1,PSY4,ASY2,ASY1,ASYV,CNQ) <0 then
negative end;

procedure c0467s541; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+
68.0)-HIRED)*NNMIN(1.0,WRKHRS/1700.0); RED4:=1.0-(0.072*a(AGE,
62.0,60.0)+0.048*a(AGE,65.0,62.0)); RED13:=JSRED; RAS1:=AGE>=
65.0; RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS5:=(AGE>=62.0)&(ASY1>=
10.0); RAS10:=ASY1>=10.0; RAS13:=(AGE>=55.0)&(ASY1>=10.0); ROT4:=
QAPPROVL; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); BEG8:=ANYTIME(
BIRTHD+62.0,BIRTHD+65.0); NR1:=16.5*ASY1; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4&ROT4)*ER1; ER2:=NRT*RED4; ER2Q:=ord(RAS5)*ER2;
ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=ER1; VD1Q:=ord(
ROT4)*AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(
RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ER1*RED13*0.5; DS1Q:=
ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,RED13,
RED4,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0468s651; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY4:=
NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY4:=
NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+25.0)); FDFAP1:=MIN(QUITD,
BIRTHD+60.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; FDFAP2:=MIN(QUITD,
BIRTHD+65.0); SDFAP2:=MAX(HIRED,FDFAP2-5.0); FAP2:=ord(
FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2)/12.0; RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=10.0); ROT2:=BIRTHD+
55.0<HIRED; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG13:=MAX(ERD,QUITD);
NR1:=0.1*u(FAP1,550.0)+0.01*o(FAP1,550.0)*u(ASY1,30.0); NR1Q:=
ord(RAS1)*NR1; NR2:=0.1*u(FAP2,550.0)+0.01*o(FAP2,550.0)*u(ASY1,
30.0); NR2Q:=ord(RAS1&ROT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(
NR1Q,NR2Q)*12.0; LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=
NR1*ASY1/PSY4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0;
VD1:=(0.1*u(FAP1,550.0)+0.01*o(FAP1,550.0)*u(ASY1,30.0))*ASY1/
PSY4; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*AA(BEG13,0.0)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG13,
BEG7,RED13,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,PSY4,ASY4,ASY1,
CNQ) <0 then negative end;

procedure c0469s102; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-36.0/12.0),FDFAP1)
/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(
PCMAN7,97.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.03*o(62.0,AGE));
RAS1:=(AGE>=62.0)&(ASY1>=10.0)!(AGE>=55.0)&(ASY1>=30.0); RAS4:=(
AGE>=60.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; LNG10:=BIRTHD+60.0;
BEG7:=MAX(BIRTHD+62.0,QUITD); BEG11:=MAX(NRD,QUITD); NR1:=0.02*(
FAP1-100.0)*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=30.0*ASY1; NR2Q:=ord(
RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=MIN(NR1,NR2)*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=0.02*FAP1*ASY1; DR1Q:=ord(RAS10)*AA(QUITD,
LNG10)*DR1; DR2:=NRT; DR2Q:=ord(RAS10)*AA(BEG11,0.0)*DR2; DRT:=
DR1+DR2; DRQ:=(DR1Q+DR2Q)*12.0; DSQ:=0.0; PRAG:=0.0; VEDB:=VOPT(
ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DRQ,DRT,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG11,BEG7,LNG10,RED4,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0470s849; begin CNQ:=0.0; ASY1:=MIN(40.0,QUITD-HIRED)*
1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-36.0/12.0),
FDFAP1); FAP10:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=0.04; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RAS1:=(
AGE>=60.0)&(ASY1>=10.0)!(AGE>=55.0)&(ASY1>=20.0)!(AGE>=50.0)&(
ASY1>=25.0); RAS11:=ASY1>=10.0; ROT7:=(ASY1>=15.0)&(ASY1<20.0);
ROT8:=(ASY1>=20.0)&(ASY1<25.0); ROT9:=ASY1>=25.0; ROT10:=
QJRDABLE; ROT11:=^QJRDABLE; ROT13:=QJRDEATH; ROT14:=^QJRDEATH;
BEG7:=MAX(BIRTHD+60.0,QUITD); BEG8:=MAX(BIRTHD+55.0,QUITD);
BEG9:=MAX(BIRTHD+50.0,QUITD); NR1:=0.02*FAP1*ASY1; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ERQ:=0.0;
VD1:=NRT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=ord(
ROT8)*AA(BEG8,0.0)*VD2; VD3:=NRT; VD3Q:=ord(ROT9)*AA(BEG9,0.0)*
VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1Q,VD2Q,VD3Q); DR1:=MIN(
0.2*FAP10+0.01*FAP10*ASY1,NRT); DR1Q:=ord(ROT10)*DR1; DR2:=NRT;
DR2Q:=ord(RAS11&ROT11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,
DR2Q); DS1:=0.5*DR1; DS1Q:=ord(ROT13)*DS1; DS2:=0.5*DR2; DS2Q:=
ord(RAS11&ROT14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q);
PRAG:=MIN(0.95*ACPIG,0.02); VEDB:=VOPT(ord(ASY1>=15.0)*1.0); if
min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG9,BEG8,BEG7,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP10,FAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0471s850; begin CNQ:=0.0; ASY1:=MIN(40.0,QUITD-HIRED)*
1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-36.0/12.0),
FDFAP1); FAP10:=WAGE(QUITD); RED4:=NN(1.0-0.06*o(62.0,AGE));
RAS1:=(AGE>=62.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=20.0);
RAS11:=ASY1>=10.0; ROT10:=QJRDABLE; ROT11:=^QJRDABLE; ROT13:=
QJRDEATH; ROT14:=^QJRDEATH; BEG7:=MAX(BIRTHD+62.0,QUITD); NR1:=
0.0125*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=MAX(NRT,0.2*FAP10); DR1Q:=ord(ROT10)*DR1; DR2:=NRT; DR2Q:=
ord(RAS11&ROT11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q);
DS1:=MAX(0.5*DR1,600.0); DS1Q:=ord(ROT13)*DS1; DS2:=MAX(0.5*DR2,
600.0); DS2Q:=ord(RAS11&ROT14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(
DS1Q,DS2Q); PRAG:=MIN(0.95*ACPIG,0.04); VEDB:=VOPT(ord(ASY1>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,RED4,FAP10,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0472s657; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=
MAX(HIRED,FDFAP1-5.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.01;
MAN7:=SUMI(PCMAN7,4.0,0.0,SDMAN7,FDMAN7); SDMAN8:=HIRED; FDMAN8:=
QUITD; PCMAN8:=0.03; MAN8:=SUMI(PCMAN8,5.0,0.0,SDMAN8,FDMAN8);
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=1.0-(0.02*a(
AGE,60.0,55.0)+0.03*a(AGE,65.0,60.0)); RED5:=1.0-(0.0333*a(AGE,
60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED7:=AR(65.0-AGE); RED13:=
JSRED; RAS1:=AGE>=65.0; RAS4:=AGE>=55.0; ROT4:=QAPPROVL; ROT7:=
QAPPROVL; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); BEG13:=ANYTIME(
0.0,0.0); NR1:=(0.6*FAP1-0.5*SS1)*ASY1/30.0; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=(0.6*FAP1*
RED4-0.5*SS1*RED5)*ASY1/30.0; ER1Q:=ord(RAS4&ROT4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NRT*RED7;
VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q)*12.0; DR1:=NRT; DR1Q:=AA(BEG10,0.0)*DR1; DRT:=DR1;
DRQ:=DR1Q*12.0; DS1:=VD2*RED13*0.5; DS1Q:=ord(RAS1)*AA(BEG13,0.0)
*DS1; DS2:=ERT*RED13*0.5; DS2Q:=ord(RAS4)*AA(BEG13,0.0)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=
VOPT(MAX(ord(ASY1>=5.0)*0.25,ord(ASY1>=9.0)*0.5,ord((QUITAGE>=
55.0)!(ASY1>=14.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG13,BEG10,BEG8,BEG7,RED13,
RED7,RED5,RED4,SS1,MAN8,PCMAN8,FDMAN8,SDMAN8,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0473s658; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0,1976.333)-(HIRED+1.0))*1.0; ASY2:=NNMIN(30.0,MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,1976.333))*NNMIN(1.0,WRKHRS/
1800.0); ASY3:=NNMIN(30.0,MIN(QUITD,BIRTHD+65.0)-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; RED4:=NN(1.0-0.04*o(65.0,AGE)); RED7:=
AR(65.0-AGE); RED13:=JSRED; RED14:=COSTRED; RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY3>=10.0); RAS10:=ASY3>=10.0; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=10.0*u(ASY1+ASY2,30.0); NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=
NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*
ERT*RED13*RED14; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY3>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED14,
RED13,RED7,RED4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0474s644; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.5)-(HIRED+1.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-
MAX(HIRED+1.0,1976.5))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(
QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; FDFAP2:=MIN(QUITD,
BIRTHD+65.0,1981.0); SDFAP2:=MAX(HIRED,FDFAP2-5.0); FAP2:=ord(
FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2)/12.0; SS1:=SS(1.0,
BENIFITD)/12.0; RED4:=NN(1.0-0.03*o(65.0,AGE)); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=AGE>=55.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=(0.01667*FAP1-0.01667*SS1)*(ASY1+ASY2); NR1Q:=
ord(RAS1)*NR1; NR2:=0.01*FAP1*(ASY1+ASY2); NR2Q:=ord(RAS1)*NR2;
NR3:=2.5*(ASY1+ASY2)+0.0125*o(FAP2,400.0)*(ASY1+ASY2); NR3Q:=ord(
RAS1)*NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q)*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=ERT*RED13; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; ASY51:=ASY1+ASY2; VEDB:=
VOPT(ord((QUITAGE>=55.0)!(ASY51>=10.0))*1.0); if min( VEDB,ASY51,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,
SS1,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0475s834; begin CNQ:=0.0; ASY1:=NNMIN(25.0,MIN(QUITD,
1964.0)-HIRED)*ord(WRKHRS>=260.0)*1.0; ASY2:=NNMIN(25.0,MIN(
QUITD,1968.0)-MAX(HIRED,1964.0))*NNMIN(1.0,WRKHRS/45.0); ASY3:=
NNMIN(25.0,MIN(QUITD,1976.0)-MAX(HIRED,1968.0))*NNMIN(1.0,
WRKHRS/520.0); ASY4:=NNMIN(25.0,QUITD-MAX(HIRED,1976.0))*NNMIN(
1.0,WRKHRS/870.0); RED4:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED;
ASY58:=ASY1+ASY2+ASY3+ASY4; RAS1:=(AGE>=65.0)&(ASY58>=15.0);
RAS4:=(AGE>=55.0)&(ASY58>=15.0); RAS10:=(AGE>=50.0)&(ASY58>=15.0)
;ROT7:=ASY1+ASY2+ASY3+ASY4>=15.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,QUITD); NR1:=
300.0*u(ASY1+ASY2+ASY3+ASY4,25.0)/25.0; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=
ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2;
VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(
RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=NRT*RED13;
DS1Q:=DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(
ASY58>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG8,BEG7,ASY58,RED13,RED4,ASY4,ASY3,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0476s976; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*MIN(2.0,
NN(WRKHRS/200.0)); RED4:=1.0-(0.03*a(AGE,60.0,55.0)+0.06*a(AGE,
62.0,60.0)); RED13:=JSRED; RAS1:=AGE>=62.0; RAS4:=(AGE>=55.0)&(
ASY1>=10.0); RAS10:=ASY1>=10.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+62.0); NR1:=195.0*ASY1; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&
ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=62.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,ASY1,CNQ) <0 then
negative end;

procedure c0477s947; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*
NNMIN(1.0,WRKHRS/1600.0); PSY1:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-36.0/12.0),FDFAP1); SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,
SDMAN7,FDMAN7); SS1:=SS(1.0,BENIFITD); RED4:=NN(1.0-0.05*o(62.0,
AGE)); RED7:=1.0-(0.038*a(AGE,58.0,55.0)+0.053*a(AGE,61.0,58.0)+
0.324*a(AGE,62.0,61.0)); RED13:=JSRED; RAS1:=AGE>=62.0; RAS4:=
AGE>=55.0; ROT10:=QCODABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
62.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.016*FAP1-0.015*SS1)
*PSY1*ASY1/PSY1; NR1Q:=ord(RAS1)*NR1; NR2:=102.0*PSY1*ASY1/PSY1;
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q);
LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=MAX(NR1,NR2); DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1;
DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=55.0)!(
ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,RED7,RED4,SS1,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP1,FDFAP1,PSY1,ASY1,ASYV,CNQ) <0 then negative
end;

procedure c0478s679; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*1.0; ASY1:=(QUITD-HIRED)*1.0; FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); SS1:=SSBASE(BENIFITD);
RED4:=NN(1.0-0.048*o(65.0,AGE)); RED5:=NN(1.0-0.048*o(85.0,AGE+
ASY1)); RAS1:=AGE>=65.0; RAS2:=AGE+ASY1>=85.0; RAS4:=(AGE>=55.0)&
(ASY1>=10.0); LNG2:=BIRTHD+65.0; BGN3:=MAX(BIRTHD+65.0,QUITD);
BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.01*u(FAP1,SS1)+0.015*o(
FAP1,SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.015*FAP1*ASY1;
NR2Q:=ord(RAS2)*AA(QUITD,LNG2)*NR2; NR3:=NR1; NR3Q:=ord(RAS2)*AA(
BGN3,0.0)*NR3; NRT:=MAX(NR1,NR2+NR3); NRQ:=MAX(NR1Q,NR2Q+NR3Q);
LRQ:=NRQ; MRAGE:=70.0; ER1:=NR2*MAX(RED4,RED5); ER1Q:=ord(RAS4)*
AA(QUITD,LNG2)*ER1; ER2:=NR1; ER2Q:=ord(RAS4)*AA(BGN3,0.0)*ER2;
ERT:=ER1+ER2; ERQ:=ER1Q+ER2Q; VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DSQ:=0.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,
NR2Q,NR2,NR1Q,NR1,BEG7,BGN3,LNG2,RED5,RED4,SS1,FAP1,FDFAP1,ASY1,
ASYV,CNQ) <0 then negative end;

procedure c0479s518; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*1.0; ASY1:=NNMIN(25.0,MIN(QUITD,BIRTHD+65.0)-HIRED)
*1.0; PSY7:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,BIRTHD+65.0);
SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); RED10:=AR(65.0-AGE); RAS1:=AGE>=65.0; BEG7:=
ANYTIME(BIRTHD+65.0,0.0); NR1:=(0.01*u(FAP1,7200.0)+0.0135*o(
FAP1,7200.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ERQ:=0.0; VD1:=(0.01*
u(FAP1,7200.0)+0.0135*o(FAP1,7200.0))*PSY7*ASY1/PSY7; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=VDT*RED10; DR1Q:=DR1;
DRT:=DR1; DRQ:=DR1Q; DSQ:=0.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,
RED10,FAP1,SDFAP1,FDFAP1,PSY7,ASY1,ASYV,CNQ) <0 then negative
end;

procedure c0480s843; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,MAX(
BENIFITD,BIRTHD+65.0))/12.0; RED4:=NN(1.0-0.072*o(65.0,AGE));
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)&(ASY1>=10.0);
RAS10:=ASY1>=10.0; BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=10.0*u(
ASY1,35.0); NR1Q:=ord(RAS1)*NR1; NR2:=0.015*FAP1*ASY1-0.5*SS1*
ASY1/35.0; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=
DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,SS1,FAP1,SDFAP1,FDFAP1,
ASY1,CNQ) <0 then negative end;

procedure c0481s817; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+22.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0)
;FAP1:=ord(FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1)/12.0; FDFAP2:=
MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,FDFAP2-60.0/12.0);
FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2)/12.0; SDMAN7:=
HIRED; FDMAN7:=QUITD; VR1MAN7:=ord(WAGE(SURVEYD)>=12000.0)*0.02;
PCMAN7:=VR1MAN7; MAN7:=SUMI(PCMAN7,7.0,0.0,SDMAN7,FDMAN7); SS1:=
SS(1.0,BENIFITD)/12.0; RED4:=1.0-(0.04*a(AGE,62.0,55.0)+0.02*a(
AGE,65.0,62.0)); RED5:=1.0-(0.03*a(AGE,62.0,55.0)+0.02*a(AGE,
65.0,62.0)); RED7:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=
65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS5:=(AGE>=55.0)&(ASY1>=
30.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.01333*u(
FAP1,400.0)*ASY1+0.02*o(FAP1,400.0)*ASY1; NR1Q:=ord(RAS1)*NR1;
NR2:=0.02*FAP2*u(ASY1,15.0)+0.011*FAP2*b(ASY1,16.0,35.0)-0.0143*
SS1*u(ASY1,35.0); NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=
MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=
ord(RAS4)*ER1; ER2:=NRT*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,
ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=NRT*RED13; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED7,RED5,RED4,
SS1,MAN7,PCMAN7,VR1MAN7,FDMAN7,SDMAN7,FAP2,SDFAP2,FDFAP2,FAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0482s438; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY4:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS10:=SS(5.0,
BENIFITD); RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,
60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=
10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.015*u(
ASY1,25.0)+0.005*o(ASY1,25.0))*u(FAP1,6000.0)+(0.02*u(ASY1,25.0)
+0.005*o(ASY1,25.0))*o(FAP1,6000.0); NR1Q:=ord(RAS1)*NR1; NRT:=
NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=(0.015*u(PSY4,25.0)+
0.005*o(PSY4,25.0))*u(FAP1,6000.0)+(0.02*u(PSY4,25.0)+0.005*o(
PSY4,25.0))*o(FAP1,6000.0); ER1Q:=ord(RAS4)*ER1; ER2:=ER1*ASY1/
PSY4*RED4; ER2Q:=ord(RAS4)*ER2; ERT:=ER2; ERQ:=ER2Q; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=0.45*FAP1-0.5*
SS10; DR1Q:=DR1; DR2:=0.15*FAP1; DR2Q:=DR2; DRT:=MAX(DR1,DR2);
DRQ:=MAX(DR1Q,DR2Q); DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=3.0)*
0.2,ord(ASY1>=5.0)*0.6,ord((QUITAGE>=65.0)!(ASY1>=7.0))*1.0));
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG7,RED13,RED4,SS10,FAP1,SDFAP1,FDFAP1,PSY4,ASY1,CNQ) <0
then negative end;

procedure c0483s469; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY4:=BIRTHD+65.0-
HIRED; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-
5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FDFAP10:=
MIN(QUITD,BIRTHD+65.0); FAP10:=ord(FDFAP10>HIRED)*WAGE(FDFAP10);
RED4:=AR(65.0-AGE); RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=
15.0); RAS13:=(AGE>=25.0)&(ASY1>=3.0); ROT4:=QAPPROVL; ROT7:=
ASY1>=15.0; LNG13:=1.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
BEG8:=MAX(BIRTHD+65.0,QUITD); BEG10:=ANYTIME(0.0,0.0); NR1:=(
0.0075*u(FAP1,6000.0)+0.015*o(FAP1,6000.0))*ASY1; NR1Q:=ord(RAS1)
*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=
65.0; ER1:=(0.0075*u(FAP1,6000.0)+0.015*o(FAP1,6000.0))*u(PSY4,
30.0)*ASY1/PSY4*RED4; ER1Q:=ord(RAS4&ROT4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=(0.0075*u(
FAP1,6000.0)+0.015*o(FAP1,6000.0))*u(PSY4,30.0)*ASY1/PSY4; VD2Q:=
AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=(
0.0075*u(FAP10,6000.0)+0.015*o(FAP10,6000.0))*u(PSY4,30.0)*ASY1/
PSY4*RED4; DR1Q:=AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=
NRT*8.333; DS1Q:=ord(RAS13)*AA(QUITD,LNG13+QUITD)*DS1; DS2:=VD2;
DS2Q:=ord(RAS13)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q);
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG10,BEG8,BEG7,LNG13,RED4,FAP10,FDFAP10,FAP1,SDFAP1,FDFAP1,
PSY4,ASY1,CNQ) <0 then negative end;

procedure c0484s791; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
RED4:=NN(1.0-0.048*o(62.0,AGE)); RED13:=JSRED; RED14:=COSTRED;
RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(
ASY1>=10.0); RAS10:=ASY1>=10.0; ROT4:=QAPPROVL; ROT10:=^QSSDABLE;
ROT11:=QSSDABLE; LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+62.0); BEG8:=MAX(BIRTHD+62.0,QUITD); BEG11:=MAX(BIRTHD+
65.0,QUITD); NR1:=9.25*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=
NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4&
ROT4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT4)*
AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=18.5*ASY1; DR1Q:=ord(RAS10&
ROT10)*AA(QUITD,LNG10)*DR1; DR2:=ERT; DR2Q:=ord(RAS10&ROT11)*AA(
QUITD,LNG10)*DR2; DR3:=NRT; DR3Q:=ord(RAS10)*AA(BEG11,0.0)*DR3;
DRT:=MAX(DR1+DR3,DR2+DR3); DRQ:=MAX(DR1Q+DR3Q,DR2Q+DR3Q)*12.0;
DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG8,BEG7,LNG10,RED14,RED13,RED4,
ASY1,CNQ) <0 then negative end;

procedure c0485s753; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1080.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-4.0),FDFAP1); FDFAP10:=MIN(QUITD,BIRTHD+70.0); FAP10:=ord(
FDFAP10>HIRED)*WAGE(FDFAP10); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=0.085; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=
NN(1.0-0.06*o(60.0,AGE)); RAS1:=(AGE>=55.0)&(ASY1>=35.0)!(AGE>=
60.0)&(ASY1>=4.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS13:=ASY1>=
20.0; ROT10:=QJRDABLE; LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(0.0,
BIRTHD+60.0); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.017*u(ASY1,
10.0)+0.02*b(ASY1,10.0,20.0)+0.024*b(ASY1,20.0,30.0)+0.028*b(
ASY1,30.0,35.0))*FAP1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DR1:=NRT; DR1Q:=ord(ROT10)*AA(BEG11,0.0)*DR1; DR2:=0.75*
FAP10; DR2Q:=ord(ROT10)*AA(QUITD,LNG10)*DR2; DRT:=DR1+DR2; DRQ:=
DR1Q+DR2Q; DS1:=0.5*ERT; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=TAR(0.03,1.0); VEDB:=VOPT(ord((ASY1>=10.0)!(QUITAGE>=
60.0)&(ASY1>=4.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG7,LNG10,RED4,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP10,FDFAP10,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0486s581; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/12.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
60.0/12.0),FDFAP1)/12.0; SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/
12.0; RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0))
;RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=5.0); BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=NN(
0.016*FAP1-0.014*SS1)*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=4.0*ASY1;
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
NR2*RED4; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q)*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NRT; DR1Q:=AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=
DR1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=5.0)*0.1,ord(
ASY1>=8.0)*0.6,ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0)); if min(
VEDB,PRAG,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED4,
SS1,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0487s547; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1966.0)-MAX(HIRED,MIN(HIRED+3.0,BIRTHD+30.0)))*ord(WRKHRS>=
1000.0)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1971.0)-MAX(HIRED,
MIN(HIRED+3.0,BIRTHD+30.0),1966.0))*ord(WRKHRS>=1000.0)*1.0;
ASY3:=NN(MIN(QUITD,BIRTHD+65.0,1976.0)-MAX(HIRED,MIN(HIRED+3.0,
BIRTHD+30.0),1971.0))*ord(WRKHRS>=1000.0)*1.0; ASY4:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1976.0))*ord(
WRKHRS>=1000.0)*1.0; ASY5:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
65.0,1966.0); FAP1:=ord(FDFAP1>HIRED)*WAGE(FDFAP1); FDFAP2:=MIN(
QUITD,BIRTHD+65.0,1971.0); SDFAP2:=MAX(HIRED,1966.0); FAP2:=ord(
FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); FDFAP3:=MIN(QUITD,BIRTHD+
65.0); SDFAP3:=MAX(HIRED,1971.0); FAP3:=ord(FDFAP3>SDFAP3)*AVG(
WAGE,SDFAP3,FDFAP3); SDSS1:=MAX(HIRED,1971.0); SS1:=ord(
QUITD>SDSS1)*SSBASE(BENIFITD); RED4:=1.0-(0.04*a(AGE,60.0,55.0)+
0.08*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=
AGE>=55.0; RAS5:=(AGE>=55.0)&(ASY5>=10.0); ROT4:=PARTD<1982.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.006*u(FAP1,
6600.0)+0.012*o(FAP1,6600.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(
0.0075*u(FAP2,6600.0)+0.015*o(FAP2,6600.0))*ASY2; NR2Q:=ord(RAS1)
*NR2; NR3:=(0.01*u(FAP3,SS1)+0.02*o(FAP3,SS1))*(ASY3+ASY4);
NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1+NR2+NR3,240.0); NRQ:=MAX(NR1Q+
NR2Q+NR3Q,240.0); LRQ:=NRQ; MRAGE:=999.0; ER1:=(NR1+NR2+NR3)*
RED4; ER1Q:=ord(RAS4&ROT4)*ER1; ER2:=ER1; ER2Q:=ord(RAS5)*ER2;
ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=ERT; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*NRT*RED13;
DS1Q:=ord(RAS4&ROT4)*DS1; DS2:=DS1; DS2Q:=ord(RAS5)*DS2; DST:=
MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY5>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,
RED4,SS1,SDSS1,FAP3,SDFAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,
FDFAP1,ASY5,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0488s493; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-(HIRED+1.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=
MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); SS1:=SS(1.0,BENIFITD); RED4:=NN(1.0-0.024*o(62.0,AGE));
RED7:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=
62.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=
10.0; RAS13:=(AGE>=55.0)&(ASY1>=10.0); ROT10:=QSSDABLE; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD);
NR1:=NN(0.02*FAP1*u(ASY1,20.0)+0.01*FAP1*o(ASY1,20.0)-0.5*SS1);
NR1Q:=ord(RAS1)*NR1; NR2:=156.0+0.012*b(FAP1,11000.0,19000.0)*
ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)
;LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*
DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS13)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,RED7,RED4,SS1,FAP1,
SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0489s494; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-(HIRED+1.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=
MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); RED4:=NN(1.0-0.024*o(62.0,AGE)); RED7:=AR(NRD-BENIFITD);
RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(
AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; DAT1:=QUITD<1984.0;
DAT2:=1984.0<=QUITD; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=(168.0+0.012*b(FAP1,12000.0,18000.0))*ASY1;
NR1Q:=ord(RAS1&DAT1)*NR1; NR2:=(180.0+0.012*b(FAP1,13000.0,
19000.0))*ASY1; NR2Q:=ord(RAS1&DAT2)*NR2; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4;
ER1Q:=ord(RAS4&DAT1)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4&DAT2)*
ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=NR1*RED7;
VD1Q:=ord(DAT1)*AA(BEG7,0.0)*VD1; VD2:=NR2*RED7; VD2Q:=ord(DAT2)*
AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=
NR1; DR1Q:=ord(RAS10&DAT1&ROT10)*DR1; DR2:=NR2; DR2Q:=ord(RAS10&
DAT2&ROT10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=
ER1*RED13*0.5; DS1Q:=ord(RAS4&DAT1)*DS1; DS2:=ER2*RED13*0.5;
DS2Q:=ord(RAS4&DAT2)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q);
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED7,RED4,FAP1,SDFAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0490s1079; begin CNQ:=0.0; ASY1:=NNMIN(15.0,MIN(QUITD,
1960.417)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NNMIN(15.0,MIN(
QUITD,1966.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY3:=NN(MIN(QUITD,
1981.0)-MAX(HIRED,1960.417))*NNMIN(1.0,WRKHRS/12.0); ASY4:=NN(
MIN(QUITD,1981.0)-MAX(HIRED,1966.0))*NNMIN(1.0,WRKHRS/12.0);
ASY5:=NN(QUITD-MAX(HIRED,1981.0))*NNMIN(1.0,WRKHRS/12.0); ASY6:=(
QUITD-HIRED)*NNMIN(1.0,WRKHRS/12.0); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
RED4:=AR(62.0-AGE); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(
ASY6>=10.0); RAS4:=(AGE>=55.0)&(ASY6>=10.0); RAS10:=ASY6>=5.0;
ROT2:=PARTD<1960.417; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+62.0);
NR1:=15.0*ASY1+17.0*ASY3+19.0*ASY5; NR1Q:=ord(RAS1&ROT2)*NR1;
NR2:=15.0*ASY2+17.0*ASY4+19.0*ASY5; NR2Q:=ord(RAS1)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0;
ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR2*RED4; ER2Q:=ord(
RAS4&ROT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0;
VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(ROT2)*AA(
BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=
NR1; DR1Q:=ord(RAS10)*DR1; DR2:=NR2; DR2Q:=ord(RAS10&ROT2)*DR2;
DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.5*ER1*RED13;
DS1Q:=ord(RAS4)*DS1; DS2:=0.5*ER2*RED13; DS2Q:=ord(RAS4&ROT2)*
DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY6>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,
ASY6,ASY5,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0491s511; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0))*1.0; ASY4:=(QUITD-HIRED)*1.0; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); SDVOL7:=HIRED;
FDVOL7:=QUITD; VR1VOL7:=ord(WAGE(SURVEYD)>=9600.0)*0.04;
VR2VOL7:=ord(WAGE(SURVEYD)>=9600.0)*0.04; PCVOL7:=MAX(VR1VOL7*
WAGE(SURVEYD),MIN(VR2VOL7*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,FDVOL7); RED4:=
AR(NRD-BENIFITD); RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=10.0)
;RAS13:=ASY1>=10.0; ROT2:=QVOLCNTR; BEG7:=ANYTIME(BIRTHD+55.0,
0.0); NR1:=(0.01*u(FAP1,4800.0)+0.02*b(FAP1,4800.0,9600.0))*ASY1;
NR1Q:=ord(RAS1)*NR1; NR2:=0.02*o(FAP1,9600.0)*ASY1; NR2Q:=ord(
RAS1&ROT2)*NR2; NR3:=10.0*u(ASY1,20.0); NR3Q:=ord(RAS1)*NR3;
NRT:=MAX(NR1+NR2,NR3); NRQ:=MAX(NR1Q+NR2Q,NR3Q); LRQ:=NRQ;
MRAGE:=999.0; ER1:=NR1; ER1Q:=ord(RAS4)*ER1; ER2:=NR2; ER2Q:=ord(
RAS1&ROT2)*ER2; ER3:=NR3*RED4; ER3Q:=ord(RAS1)*ER3; ERT:=MAX((
ER1+ER2)*RED4,ER3); ERQ:=MAX((ER1Q+ER2Q)*RED4,ER3Q); VD1:=ER1;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*
VD2; VD3:=ER3; VD3Q:=AA(BEG7,0.0)*VD3; VDT:=MAX((VD1+VD2)*RED4,
VD3); VDQ:=MAX((VD1Q+VD2Q)*RED4,VD3Q); DRQ:=0.0; DS1:=NRT; DS1Q:=
ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER3Q,
ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,
NR1,BEG7,RED4,VOL7,PCVOL7,VR2VOL7,VR1VOL7,FDVOL7,SDVOL7,FAP1,
FDFAP1,ASY4,ASY1,CNQ) <0 then negative end;

procedure c0492s712; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1981.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1981.0))*ord(WRKHRS>=1000.0)*1.0; ASY3:=NN(MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(2.0,BENIFITD);
RED4:=NN(1.0-0.03*o(62.0,AGE)); RED5:=NN(1.0-0.03*o(90.0,AGE+
ASY3)); RED7:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED; RAS1:=(
AGE>=65.0)!(AGE>=62.0)&(ASY3>=10.0)!(AGE+ASY3>=90.0); RAS4:=(
AGE>=55.0)&(ASY3>=10.0); ASY51:=ASY1+ASY2; RAS13:=ASY51>=10.0;
ROT10:=QCODABLE!QSSDABLE; LNG4:=BIRTHD+62.0; BGN5:=MAX(BIRTHD+
62.0,QUITD); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(
NRD,QUITD); BEG13:=MAX(BIRTHD+55.0,QUITD); NR1:=(0.015*FAP1-
0.0125*SS1)*u(ASY3,40.0); NR1Q:=ord(RAS1)*NR1; NR2:=264.0*u(ASY1+
ASY2,25.0)+132.0*o(ASY1+ASY2,25.0); NR2Q:=ord(RAS1)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=
MAX(0.015*ASY3*RED4,NR2*RED4); ER1Q:=ord(RAS4)*AA(QUITD,LNG4)*
ER1; ER2:=MAX(0.015*ASY3*RED5,NR2*RED5); ER2Q:=ord(RAS4)*AA(
QUITD,LNG4)*ER2; ER3:=NRT*RED4; ER3Q:=ord(RAS4)*AA(BGN5,0.0)*ER3;
ER4:=NRT*RED5; ER4Q:=ord(RAS4)*AA(BGN5,0.0)*ER4; ERT:=MAX(ER1+
ER3,ER2+ER4); ERQ:=MAX(ER1Q+ER3Q,ER2Q+ER4Q); VD1:=NRT*RED7;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(
ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ER1*
RED13; DS1Q:=ord(RAS13)*AA(BEG13,LNG4)*DS1; DS2:=0.5*ER2*RED13;
DS2Q:=ord(RAS13)*AA(BEG13,LNG4)*DS2; DS3:=0.5*ER3*RED13; DS3Q:=
ord(RAS13)*AA(BGN5,0.0)*DS3; DS4:=0.5*ER4*RED13; DS4Q:=ord(RAS13)
*AA(BGN5,0.0)*DS4; DST:=MAX(DS1+DS3,DS2+DS4); DSQ:=MAX(DS1Q+DS3Q,
DS2Q+DS4Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY3>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,
DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG13,BEG10,BEG7,BGN5,LNG4,ASY51,RED13,RED7,RED5,RED4,SS1,FAP1,
SDFAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0493s580; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY4:=
NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SDMAN7:=
HIRED; FDMAN7:=QUITD; VR1MAN7:=ord(3600.0>WAGE(SURVEYD))*0.03+
ord(WAGE(SURVEYD)>=3600.0)*0.045; PCMAN7:=VR1MAN7; MAN7:=SUMI(
PCMAN7,7.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+
65.0))/12.0; RED4:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=
65.0; RAS4:=(AGE>=55.0)&(ASY4>=20.0); RAS13:=AGE>=55.0; ROT2:=
PARTD<1978.083; ROT7:=ASY4>=20.0; ROT10:=QSSDABLE; ROT11:=
QSSDABLE&(PARTD<1978.083); BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD);
ANMAN7:=ANNPAY(MAN7,BENIFITD); NR1:=0.042*ANMAN7*ASY2; NR1Q:=ord(
RAS1)*NR1; NR2:=NN(0.025*FAP1*u(ASY1,20.0)-0.58333*SS1); NR2Q:=
ord(RAS1&ROT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NR1; VD1Q:=AA(BEG7,
0.0)*VD1; VD2:=ER1; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(
VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NR1; DR1Q:=ord(ROT10)*
AA(BEG10,0.0)*DR1; DR2:=NR2; DR2Q:=ord(ROT11)*AA(BEG10,0.0)*DR2;
DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=ERT*RED13*1.0;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(MAX(ord(ASY4>=10.0)*0.5,ord(ASY4>=11.0)*0.6,ord((QUITAGE>=
65.0)!(ASY4>=15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,ANMAN7,BEG10,BEG8,
BEG7,RED13,RED4,SS1,MAN7,PCMAN7,VR1MAN7,FDMAN7,SDMAN7,FAP1,
SDFAP1,FDFAP1,ASY4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0494s727; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY4:=BIRTHD+65.0-
HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-10.0),
FDFAP1); FAP2:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=
SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=1.0-(0.048*a(AGE,60.0,
55.0)+0.072*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=(AGE>=65.0)&(
ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=15.0); RAS10:=(AGE>=40.0)&(
ASY1>=10.0); RAS13:=AGE>=55.0; ROT10:=QSSDABLE; LNG2:=1.0; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD);
NR1:=NN(0.015*FAP1*ASY1-0.5*SS1+80.4); NR1Q:=ord(RAS1)*NR1; NR2:=
102.0*ASY2+80.4; NR2Q:=ord(RAS1)*NR2; NR3:=0.25*FAP2; NR3Q:=ord(
RAS1)*AA(QUITD,LNG2+QUITD)*NR3; NRT:=MAX(NR1+NR3,NR2+NR3); NRQ:=
MAX(NR1Q+NR3Q,NR2Q+NR3Q); LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=
65.0; ER1:=NN(0.015*PSY4-0.5*SS1+80.4)*ASY1/PSY4*RED4; ER1Q:=ord(
RAS4)*ER1; ER2:=(102.0*PSY4+80.4)*ASY2/PSY4*RED4; ER2Q:=ord(RAS4)
*ER2; ER3:=NR3; ER3Q:=ord(RAS4)*AA(QUITD,LNG2+QUITD)*ER3; ERT:=
MAX(ER1+ER3,ER2+ER3); ERQ:=MAX(ER1Q+ER3Q,ER2Q+ER3Q); VD1:=ER1;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NR1; DR1Q:=ord(RAS10&
ROT10)*AA(BEG10,0.0)*DR1; DR2:=NR2; DR2Q:=ord(RAS10&ROT10)*AA(
BEG10,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.5*
MAX(ER1,ER2)*RED13; DS1Q:=ord(RAS13)*DS1; DS2:=ER3; DS2Q:=ord(
RAS4)*AA(QUITD,LNG2+QUITD)*DS2; DST:=DS1+DS2; DSQ:=DS1Q+DS2Q;
PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=5.0)*0.25,ord(ASY1>=10.0)*
0.5,ord((ASY1>=15.0)!(QUITAGE>=65.0)&(ASY1>=10.0))*1.0)); if min(
VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,LNG2,
RED13,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP2,FAP1,FDFAP1,PSY4,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0495s415; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1979.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1979.0))*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,97.0,0.0,SDMAN7,
FDMAN7); SDMAN8:=HIRED; FDMAN8:=QUITD; PCMAN8:=MANNAR; MAN8:=
SUMI(PCMAN8,97.0,0.0,SDMAN8,FDMAN8); SS1:=SS(2.0,BENIFITD); SS2:=
SS(1.0,BENIFITD)/12.0; RED4:=NN(1.0-0.05*o(62.0,AGE)); RED7:=AR(
NRD-BENIFITD); RAS1:=AGE>=65.0; RAS2:=(AGE>=62.0)&(ASY3>=15.0);
RAS3:=(AGE>=65.0)!(AGE>=62.0)&(ASY3>=15.0); RAS4:=(AGE>=55.0)&(
ASY3>=15.0); RAS10:=ASY3>=10.0; ROT2:=AGE<65.0; LNG4:=BIRTHD+
62.0; BGN5:=MAX(BIRTHD+62.0,QUITD); BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=(0.0095*u(FAP1,5000.0)+0.015*o(FAP1,5000.0))*
ASY1; NR1Q:=ord(RAS3)*NR1; NR2:=(0.015*FAP1-0.015*SS1)*ASY2;
NR2Q:=ord(RAS2&ROT2)*NR2; NR3:=(0.015*FAP1-0.015*SS2)*ASY2;
NR3Q:=ord(RAS1)*NR3; NR4:=168.0*ASY3; NR4Q:=ord(RAS3)*NR4; NRT:=
MAX(NR1+NR2,NR1+NR3,NR4); NRQ:=MAX(NR1Q+NR2Q,NR1Q+NR3Q,NR4Q);
LRQ:=NRQ; MRAGE:=70.0; ER1:=(NR1+0.015*FAP1*ASY2-0.015*SS1*RED4)*
RED4; ER1Q:=ord(RAS4)*AA(QUITD,LNG4)*ER1; ER2:=(NR1+NR2)*RED4;
ER2Q:=ord(RAS4)*AA(BGN5,0.0)*ER2; ER3:=NR4*RED4; ER3Q:=ord(RAS4)*
ER3; ERT:=MAX(ER1,ER2,ER3); ERQ:=MAX(ER1Q,ER2Q,ER3Q); VD1:=NR1;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR2; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*
VD2; VD3:=NR3; VD3Q:=AA(BEG7,0.0)*VD3; VD4:=NR4; VD4Q:=AA(BEG7,
0.0)*VD4; VDT:=MAX(VD1+VD2,VD1+VD3,VD4)*RED7; VDQ:=MAX(VD1Q+VD2Q,
VD1Q+VD3Q,VD4Q)*RED7; DR1:=NR1; DR1Q:=ord(RAS10)*DR1; DR2:=NR2;
DR2Q:=ord(RAS10&ROT2)*DR2; DR3:=NR3; DR3Q:=ord(RAS10)*DR3; DR4:=
NR4; DR4Q:=ord(RAS10)*DR4; DRT:=MAX(DR1+DR2,DR1+DR3,DR4); DRQ:=
MAX(DR1Q+DR2Q,DR1Q+DR3Q,DR4Q); DS1:=0.0075*FAP1*ASY3*RED4; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY3>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG7,BGN5,LNG4,RED7,RED4,SS2,SS1,MAN8,PCMAN8,FDMAN8,SDMAN8,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP1, SDFAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0497s969; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/2080.0); ASY2:=(QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0;
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=341.0/WAGE(SURVEYD); MAN7:=
SUMI(PCMAN7,2.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.03*a(AGE,56.0,
55.0)+0.035*a(AGE,57.0,56.0)+0.04*a(AGE,58.0,57.0)); RED5:=1.0-(
0.045*a(AGE,59.0,58.0)+0.05*a(AGE,60.0,59.0)+0.055*a(AGE,62.0,
60.0)); RED6:=1.0-(0.06*a(AGE,63.0,62.0)+0.065*a(AGE,64.0,63.0)+
0.075*a(AGE,65.0,64.0)); RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY2>=
10.0); RAS4:=(AGE>=62.0)&(ASY2>=10.0)!(AGE>=55.0)&(ASY2>=20.0);
RAS10:=ASY2>=10.0; BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=16.22*u(
ASY1,10.0)+21.63*b(ASY1,10.0,20.0)+13.73*o(ASY1,20.0); NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4*RED5*RED6; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*
12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*
12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY2>=10.0)*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED6,RED5,RED4,
MAN7,PCMAN7,FDMAN7,SDMAN7,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0498s966; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/2080.0); ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/12.0); FDFAP1:=MIN(
QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; RED7:=AR(65.0-AGE);
RED13:=JSRED; RAS1:=AGE>=65.0; RAS10:=ASY1>=10.0; RAS13:=(AGE>=
55.0)&(ASY1>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=0.01*FAP1*ASY1; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=AI(AGE,65.0,999.0)*NRQ;
MRAGE:=65.0; ERQ:=0.0; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*AA(BEG10,
0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*VD1*RED13; DS1Q:=
ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(
MAX(ord(ASY2>=5.0)*0.25,ord(ASY2>=10.0)*0.5,ord((QUITAGE>=65.0)!
(ASY2>=15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,
BEG7,RED13,RED7,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0499s551; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(20.0,MIN(QUITD,BIRTHD+65.0)-(
HIRED+1.0))*NNMIN(1.0,WRKHRS/2080.0); RED4:=AR(NRD-BENIFITD);
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=AGE>=55.0; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=3.0*ASY1; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=65.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(
ASYV>=5.0)*0.5,ord(ASYV>=6.0)*0.75,ord((QUITAGE>=55.0)!(ASYV>=
7.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,
BEG7,RED13,RED4,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0500s475; begin CNQ:=0.0; ASY1:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=SSBASE(
BENIFITD); RED4:=NN(1.0-0.03*o(62.0,AGE)); RED7:=AR(NRD-BENIFITD)
;RED13:=JSRED; RAS1:=(AGE>=62.0)!(AGE+ASY1>=85.0)&(AGE>=59.0);
RAS4:=AGE>=55.0; RAS10:=ASY1>=2.0; RAS13:=ASY1>=10.0; ROT4:=
QAPPROVL; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(
BIRTHD+65.0,QUITD); BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
NR1:=(0.0125*u(FAP1,SS1)+0.0175*o(FAP1,SS1))*ASY1; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4&ROT4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NR1*
RED7; VD1Q:=ord(ROT4)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,
0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=ERT;
DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=
ERT*RED13*0.5; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=
0.0; VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASY1>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG8,
BEG7,RED13,RED7,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,
ASY1,CNQ) <0 then negative end;

procedure c0501s794; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NN(QUITD-MAX(HIRED+1.0,BIRTHD+25.0))*
NNMIN(1.0,WRKHRS/1600.0); ASY2:=NN(QUITD-(HIRED+3.0))*NNMIN(1.0,
WRKHRS/1600.0); ASY7:=(QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1)
/12.0; SS1:=SS(1.0,BENIFITD)/12.0; RED4:=NN(1.0-0.07*o(62.0,AGE))
;RED7:=1.0-(0.07*a(AGE,60.0,55.0)+0.03*a(AGE,65.0,60.0)); RED10:=
OTHERB; RED13:=JSRED; RAS1:=AGE>=62.0; RAS4:=(AGE>=55.0)&(ASY1>=
10.0)!(AGE+ASY1>=75.0)&(AGE>=55.0); RAS10:=ASY1>=15.0; ROT7:=(
AGE<55.0)&(AGE+ASY7<75.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0)
;NR1:=0.02*FAP1*u(ASY1,10.0)+0.0125*FAP1*b(ASY1,10.0,30.0)-0.5*
SS1; NR1Q:=ord(RAS1)*NR1; NR2:=0.01*FAP1*ASY1; NR2Q:=ord(RAS1)*
NR2; NR3:=0.02*FAP1*u(ASY2,10.0)+0.0125*FAP1*b(ASY2,10.0,30.0)-
0.5*SS1; NR3Q:=ord(RAS1)*NR3; NR4:=0.01*FAP1*ASY2; NR4Q:=ord(
RAS1)*NR4; NRT:=MAX(NR1,NR2,NR3,NR4); NRQ:=MAX(NR1Q,NR2Q,NR3Q,
NR4Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)
*VD1; VD2:=NRT*RED7; VD2Q:=ord(ROT7)*AA(BEG7,0.0)*VD2; VDT:=MAX(
VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT-RED10; DR1Q:=ord(
RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASYV>=10.0)!(QUITAGE+ASYV>=60.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,
VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,
NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED10,RED7,RED4,SS1,FAP1,
FDFAP1,ASY7,ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0502s760; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
PSY10:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
0.05; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,
BENIFITD); SS4:=SS(2.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=NN(1.0-
0.03*o(65.0,AGE)); RED7:=NN(1.0-0.036*o(65.0,AGE)); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=62.0)&(ASY1>=10.0); RAS10:=ASY1>=
10.0; ROT7:=^QWDMAN; ROT10:=QSSDABLE; LNG13:=10.0; BEG7:=ANYTIME(
0.0,0.0); NR1:=0.0165*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.85*
FAP1-SS1; NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,
NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=0.85*FAP1-SS4; ER2Q:=ord(RAS4)*ER2; ERT:=MIN(ER1,ER2); ERQ:=
MIN(ER1Q,ER2Q); VD1:=NR1*RED7; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=0.0165*FAP1*PSY10; DR1Q:=ord(RAS10&
ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=VDT*RED13; DS1Q:=ord(RAS10)
*AA(QUITD,LNG13+QUITD)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=TAR(MIN(
0.95*FAR(ACPIG,13.0/12.0),0.04),13.0/12.0); VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,LNG13,RED13,
RED7,RED4,SS4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,PSY10,
ASY1,CNQ) <0 then negative end;

procedure c0503s495; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-36.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,97.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,
MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=NN(1.0-0.04*o(62.0,AGE));
RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(
AGE>=55.0)&(ASY1>=10.0); RAS11:=ASY1>=10.0; ROT7:=(ASY1>=5.0)&(
ASY1<10.0); ROT8:=ASY1>=10.0; ROT10:=QCODABLE; BEG7:=MAX(BIRTHD+
65.0,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(
BIRTHD+65.0,QUITD); BEG11:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
NR1:=(0.015*FAP1-0.0167*SS1)*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(
0.0125*u(FAP1,750.0)+0.0042*o(FAP1,750.0))*ASY1; NR2Q:=ord(RAS1)*
NR2; NR3:=11.5*ASY1; NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1,NR2,NR3);
NRQ:=MAX(NR1Q,NR2Q,NR3Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT;
VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=ord(ROT8)*AA(
BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=
NRT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DR2:=ERT; DR2Q:=ord(
RAS11&ROT10)*AA(BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,
DR2Q)*12.0; DS1:=0.667*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=5.0)*0.5,ord(
ASY1>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0)); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,
NR2Q,NR2,NR1Q,NR1,BEG11,BEG10,BEG8,BEG7,RED13,RED4,SS1,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0504s496; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-MAX(HIRED,BIRTHD+22.0))*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0,1981.0)-MAX(HIRED,BIRTHD+22.0,1976.0))*NNMIN(1.0,
WRKHRS/1620.0); ASY3:=NN(MIN(QUITD,BIRTHD+65.0,1982.0)-MAX(HIRED,
BIRTHD+22.0,1981.0))*NNMIN(1.0,WRKHRS/1620.0); ASY4:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+22.0,1982.0))*NNMIN(1.0,
WRKHRS/1620.0); ASY5:=NN(MIN(QUITD,1976.0)-MAX(HIRED,BIRTHD+22.0)
)*1.0; ASY6:=NN(QUITD-MAX(HIRED,BIRTHD+22.0,1976.0))*ord(WRKHRS>=
1000.0)*1.0; SS10:=SS(5.0,BENIFITD)/12.0; RED4:=NN(1.0-0.04*o(
62.0,AGE)); RED7:=NN(1.0-0.04*o(65.0,AGE)); RED13:=JSRED; RED14:=
COSTRED; RAS1:=AGE>=65.0; ASY62:=ASY5+ASY6; RAS4:=(AGE>=55.0)&(
ASY62>=10.0); RAS10:=ASY62>=10.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=15.0*(ASY1+ASY2)+16.0*ASY3+17.0*ASY4; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0;
VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DR1:=NN(NRT-SS10+150.0); DR1Q:=ord(RAS10)*DR1; DR2:=NRT; DR2Q:=
ord(RAS10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0;
DS1:=0.667*ERT*RED13*RED14; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY62>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG7,ASY62,RED14,RED13,RED7,RED4,SS10,ASY6,ASY5,ASY4,
ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0505s1040; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
FDFAP2:=QUITD; FAP2:=AVG(WAGE,MAX(HIRED,FDFAP2-3.0),FDFAP2);
FDFAP3:=QUITD; FAP3:=AVG(WAGE,MAX(HIRED,FDFAP3-2.0),FDFAP3);
FAP10:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.07;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.04*o(
55.0,AGE)); RED10:=OTHERB; RED13:=JSRED; RAS1:=AGE>=55.0; RAS2:=(
AGE>=65.0)&(ASY1>=20.0); RAS3:=(AGE>=55.0)!(AGE>=65.0)&(ASY1>=
20.0); RAS4:=ASY1>=20.0; RAS10:=(AGE>=55.0)!(ASY1>=15.0); RAS11:=
ASY1>=10.0; RAS13:=(AGE>=55.0)&(ASY1>=2.0); ROT2:=QVETERAN;
ROT10:=QJRDABLE; ROT11:=QVETERAN; BEG7:=ANYTIME(BIRTHD+55.0,0.0);
NR1:=0.025*MAX(FAP1,FAP2)*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.5*u(
FAP3,5000.0)+0.02*u(FAP3,5000.0)*o(ASY1,20.0); NR2Q:=ord(RAS2)*
NR2; NR3:=15.0*u(ASY1,20.0); NR3Q:=ord(RAS3&ROT2)*NR3; NR4:=0.8*
MAX(FAP1,FAP2); NR4Q:=ord(RAS1)*NR4; NR5:=0.8*FAP3; NR5Q:=ord(
RAS2)*NR5; NRT:=MAX(MIN(NR4,NR1+NR3),MIN(NR5,NR2+NR3)); NRQ:=MAX(
MIN(NR4Q,NR1Q+NR3Q),MIN(NR5Q,NR2Q+NR3Q)); LRQ:=NRQ; MRAGE:=65.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT;
DR1Q:=ord(RAS10)*DR1; DR2:=0.5*FAP10; DR2Q:=ord(RAS11&ROT11)*DR2;
DR3:=0.72*FAP10-RED10; DR3Q:=ord(ROT10)*DR3; DRT:=MAX(DR1,DR2,
DR3); DRQ:=MAX(DR1Q,DR2Q,DR3Q); DS1:=NRT*RED13*0.66667; DS1Q:=
ord(RAS1)*DS1; DS2:=MIN(FAP10,1680.0); DS2Q:=ord(RAS13)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=TAR(NN(FAR(ACPIG,
1.0)-0.0),1.0); VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASY1>=10.0))*1.0)
;if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,
RED10,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP10,FAP3,FDFAP3,FAP2,
FDFAP2,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0506s903; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1971.0)-
HIRED)*NNMIN(1.0,WRKHRS/1400.0); ASY2:=NN(QUITD-MAX(HIRED,1971.0)
)*NNMIN(1.0,WRKHRS/1260.0); ASY3:=NN(MIN(QUITD,1971.0)-MAX(HIRED,
1957.5))*NNMIN(1.0,WRKHRS/1400.0); ASY4:=NN(QUITD-MAX(HIRED,
1977.0))*NNMIN(1.0,WRKHRS/1260.0); ASY5:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; RED4:=1.0-(0.06*a(AGE,60.0,55.0)+0.03*a(AGE,
65.0,60.0)); RED13:=JSRED; RED14:=COSTRED; ASY51:=ASY1+ASY2;
RAS1:=(ASY51>=25.0)!(AGE>=65.0)&(ASY51>=12.0); RAS2:=ASY51>=25.0;
RAS4:=(AGE>=55.0)&(ASY51>=12.0); RAS10:=ASY51>=12.0; ROT10:=
QSSDABLE; BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=24.0*u(ASY1+ASY2,
25.0); NR1Q:=ord(RAS1)*NR1; NR2:=24.0*u(ASY4,10.0); NR2Q:=ord(
RAS2)*NR2; NRT:=NR1+NR2; NRQ:=(NR1Q+NR2Q)*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR2; ER2Q:=ord(
RAS2)*ER2; ERT:=ER1+ER2; ERQ:=(ER1Q+ER2Q)*12.0; VD1:=18.0*(ASY2+
ASY3); VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
NR1; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=
0.5*ER1*RED13*RED14; DS1Q:=ord(RAS1)*DS1; DS2:=0.5*ER2*RED13*
RED14; DS2Q:=ord(RAS2)*DS2; DST:=DS1+DS2; DSQ:=(DS1Q+DS2Q)*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY5>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,
NR2,NR1Q,NR1,BEG7,ASY51,RED14,RED13,RED4,ASY5,ASY4,ASY3,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0507s1039; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
FAP10:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.07;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.04*o(
65.0,AGE)); RED10:=OTHERB; RED13:=JSRED; RED14:=COSTRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=55.0)!(ASY1>=20.0); RAS10:=ASY1>=15.0;
RAS11:=ASY1>=10.0; RAS13:=ASY1>=2.0; ROT2:=QVETERAN; ROT10:=
^QJRDABLE&^QVETERAN; ROT11:=^QJRDABLE&QVETERAN; ROT12:=QJRDABLE;
ROT13:=^QJRDEATH; ROT14:=QJRDEATH; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=0.025*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=
0.8*FAP1; NR2Q:=ord(RAS1)*NR2; NR3:=15.0*u(ASY1,20.0); NR3Q:=ord(
RAS1&ROT2)*NR3; NRT:=MIN(NR1+NR3,NR2); NRQ:=MIN(NR1Q+NR3Q,NR2Q);
LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1; ER1Q:=ord(RAS4)*ER1; ER2:=NR2*
RED4; ER2Q:=ord(RAS4)*ER2; ER3:=NR3; ER3Q:=ord(RAS4&ROT2)*ER3;
ERT:=MIN((ER1+ER3)*RED4,ER2); ERQ:=MIN((ER1Q+ER3Q)*RED4,ER2Q);
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ERT;
DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=0.5*FAP1; DR2Q:=ord(RAS11&ROT11)
*DR2; DR3:=0.72*FAP10-RED10; DR3Q:=ord(ROT12)*DR3; DRT:=MAX(DR1,
DR2,DR3); DRQ:=MAX(DR1Q,DR2Q,DR3Q); DS1:=0.667*ERT*RED13*RED14;
DS1Q:=ord(RAS13&ROT13)*DS1; DS2:=0.72*FAP10*RED13; DS2Q:=ord(
ROT14)*DS2; DS3:=1680.0; DS3Q:=ord(RAS13)*DS3; DST:=MAX(DS1,DS2,
DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q); PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG7,RED14,RED13,RED10,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP10,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0508s545; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1971.25)-MAX(HIRED+2.0,BIRTHD+30.0))*1.0; ASY2:=NN(MIN(
QUITD,BIRTHD+65.0,1976.25)-MAX(HIRED,1971.25))*1.0; ASY3:=NN(MIN(
QUITD,BIRTHD+65.0,1977.0)-MAX(HIRED,1976.25))*ord(WRKHRS>=750.0)
*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+65.0,1978.0)-MAX(HIRED,1977.0))*
ord(WRKHRS>=1000.0)*1.0; ASY5:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1978.0))*1.0; ASY6:=NN(MIN(QUITD,BIRTHD+65.0,1976.25)-
HIRED)*1.0; ASY7:=NN(MIN(QUITD,BIRTHD+65.0,1977.0)-MAX(HIRED,
BIRTHD+22.0,1976.25))*ord(WRKHRS>=750.0)*1.0; ASY8:=NN(MIN(QUITD,
BIRTHD+65.0,1978.0)-MAX(HIRED,BIRTHD+22.0,1977.0))*ord(WRKHRS>=
1000.0)*1.0; ASY9:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+
22.0,1978.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,1971.25); FAP1:=
ord(FDFAP1>HIRED)*WAGE(FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0);
SDFAP2:=MAX(HIRED,1971.25); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,
SDFAP2,FDFAP2); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.02;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.0333*a(
AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RED14:=
COSTRED; RAS1:=AGE>=65.0; ASY71:=ASY6+ASY7+ASY8+ASY9; RAS4:=(
AGE>=55.0)&(ASY71>=10.0); RAS10:=ASY71>=10.0; ROT10:=QSSDABLE;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=(0.008*u(FAP1,7800.0)+0.012*o(FAP1,
7800.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.008*u(FAP2,7800.0)+
0.012*o(FAP2,7800.0))*(ASY2+ASY3+ASY4+ASY5); NR2Q:=ord(RAS1)*NR2;
NRT:=NR1+NR2; NRQ:=NR1Q+NR2Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ERT; DR1Q:=ord(RAS10&
ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*
RED13*RED14; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(QUITAGE>=55.0)&(ASY71>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG10,BEG7,ASY71,RED14,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1,ASY9,ASY8,ASY7,ASY6,ASY5,ASY4,
ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0509s778; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
FAP10:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.08;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.03*o(
55.0,AGE)); RED10:=OTHERB; RED13:=JSRED; RED14:=COSTRED; RAS1:=(
AGE>=55.0)&(ASY1>=5.0); RAS4:=(AGE>=45.0)&(ASY1>=5.0); RAS11:=
ASY1>=3.0; RAS13:=ASY1>=1.0; ROT10:=QJRDABLE; ROT11:=^QJRDABLE;
ROT12:=QCHILD21; ROT13:=^QSSBENIF; LNG10:=BIRTHD+55.0; LNG13:=
BIRTHD+65.0; BEG7:=MAX(BIRTHD+55.0,QUITD); BEG14:=MAX(BIRTHD+
65.0,QUITD); NR1:=0.02*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=0.5*FAP10-RED10; DR1Q:=ord(ROT10)*AA(
QUITD,LNG10)*DR1; DR2:=0.1*FAP10-RED10; DR2Q:=ord(ROT12)*AA(
QUITD,LNG10)*DR2; DR3:=DR1; DR3Q:=ord(RAS11&ROT11)*AA(QUITD,
LNG10)*DR3; DR4:=DR2; DR4Q:=ord(RAS11&ROT12)*AA(QUITD,LNG10)*DR4;
DRT:=MAX(DR1+DR2,DR3+DR4); DRQ:=MAX(DR1Q+DR2Q,DR3Q+DR4Q); DS1:=
0.4*FAP10*RED13*RED14; DS1Q:=ord(RAS13&ROT13)*AA(QUITD,LNG13)*
DS1; DS2:=0.5*NRT*RED13; DS2Q:=ord(RAS13)*AA(BEG14,0.0)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=MIN(0.95*ACPIG,
0.02); VEDB:=VOPT(ord(ASY1>=5.0)*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,
BEG14,BEG7,LNG13,LNG10,RED14,RED13,RED10,RED4,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP10,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0510s779; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
FAP10:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.05;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,BENIFITD);
RED4:=NN(1.0-0.03*o(65.0,AGE)); RED10:=OTHERB; RED13:=JSRED;
RED14:=COSTRED; RAS1:=(AGE>=65.0)&(ASY1>=5.0); RAS4:=(AGE>=55.0)&
(ASY1>=5.0); RAS11:=ASY1>=3.0; RAS13:=ASY1>=1.0; ROT10:=QJRDABLE;
ROT11:=^QJRDABLE; ROT12:=QCHILD21; ROT13:=^QSSBENIF; LNG10:=
BIRTHD+65.0; LNG13:=BIRTHD+65.0; BEG7:=MAX(NRD,QUITD); BEG14:=
MAX(BIRTHD+65.0,QUITD); NR1:=0.01*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1;
NR2:=NN(0.02*FAP1*ASY1-SS1); NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,
NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=0.5*FAP10-RED10; DR1Q:=
ord(ROT10)*AA(QUITD,LNG10)*DR1; DR2:=0.1*FAP10-RED10; DR2Q:=ord(
ROT12)*AA(QUITD,LNG10)*DR2; DR3:=DR1; DR3Q:=ord(RAS11&ROT11)*AA(
QUITD,LNG10)*DR3; DR4:=DR2; DR4Q:=ord(RAS11&ROT12)*AA(QUITD,
LNG10)*DR4; DRT:=MAX(DR1+DR2,DR3+DR4); DRQ:=MAX(DR1Q+DR2Q,DR3Q+
DR4Q); DS1:=0.4*FAP10*RED13*RED14; DS1Q:=ord(RAS13&ROT13)*AA(
QUITD,LNG13)*DS1; DS2:=0.5*NRT*RED13; DS2Q:=ord(RAS13)*AA(BEG14,
0.0)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=MIN(0.95*
ACPIG,0.02); VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=5.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,
DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG14,BEG7,LNG13,LNG10,
RED14,RED13,RED10,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP10,FAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0511s993; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
FAP10:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.07;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.04*o(
65.0,AGE)); RED10:=OTHERB; RED13:=JSRED; RED14:=COSTRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=55.0)!(ASY1>=20.0); RAS10:=ASY1>=15.0;
RAS11:=ASY1>=10.0; RAS13:=ASY1>=2.0; ROT2:=QVETERAN; ROT10:=
^QJRDABLE&^QVETERAN; ROT11:=^QJRDABLE&QVETERAN; ROT12:=QJRDABLE;
ROT13:=^QJRDEATH; ROT14:=QJRDEATH; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=0.025*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=
15.0*u(ASY1,20.0); NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=0.8*FAP1;
NR3Q:=ord(RAS1)*NR3; NRT:=MIN(NR1+NR2,NR3); NRQ:=MIN(NR1Q+NR2Q,
NR3Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1; ER1Q:=ord(RAS4)*ER1;
ER2:=NR2; ER2Q:=ord(RAS4&ROT2)*ER2; ER3:=NR3*RED4; ER3Q:=ord(
RAS4)*ER3; ERT:=MIN((ER1+ER2)*RED4,ER3); ERQ:=MIN((ER1Q+ER2Q)*
RED4,ER3Q); VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DR1:=ERT; DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=0.5*FAP1; DR2Q:=
ord(RAS11&ROT11)*DR2; DR3:=0.72*FAP10-RED10; DR3Q:=ord(ROT12)*
DR3; DRT:=MAX(DR1,DR2,DR3); DRQ:=MAX(DR1Q,DR2Q,DR3Q); DS1:=0.667*
ERT*RED13*RED14; DS1Q:=ord(RAS13&ROT13)*DS1; DS2:=0.72*FAP10*
RED13; DS2Q:=ord(ROT14)*DS2; DS3:=1680.0; DS3Q:=ord(RAS13)*DS3;
DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q); PRAG:=0.0;
VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,
DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED14,RED13,RED10,RED4,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP10,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0512s926; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.833)-MAX(HIRED+1.0,BIRTHD+22.0))*ord(WRKHRS>=6.0)*1.0;
ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+22.0,
1976.833))*ord(WRKHRS>=1000.0)*1.0; PSY1:=NN(BIRTHD+65.0-MAX(
HIRED+1.0,BIRTHD+22.0)); FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=
MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); FDFAP10:=MIN(QUITD,BIRTHD+65.0); FAP10:=ord(
FDFAP10>HIRED)*WAGE(FDFAP10); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+
65.0)); RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,
60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(
AGE>=55.0)&(ASY51>=10.0); RAS10:=ASY51>=5.0; ROT7:=QAPPROVL;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,
QUITD); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.6*FAP1-0.5*SS1)*u(
ASY1+ASY2,30.0)/30.0; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=(0.6*FAP1-0.5*
SS1)*(ASY1+ASY2)/PSY1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT;
VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q);
DR1:=NR1; DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DR2:=(0.6*FAP10-
0.5*SS1)*u(ASY1+ASY2,30.0)/30.0; DR2Q:=ord(RAS10)*AA(BEG10,0.0)*
DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
MAX(ord(ASY51>=4.0)*0.4,ord(ASY51>=7.0)*0.6,ord((QUITAGE>=65.0)!
(ASY51>=11.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG8,BEG7,ASY51,RED13,RED4,SS1,
FAP10,FDFAP10,FAP1,SDFAP1,FDFAP1,PSY1,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0513s818; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-36.0/12.0),FDFAP1)
/12.0; SS1:=SS(1.0,BENIFITD)/12.0; RED4:=1.0-(0.05*a(AGE,60.0,
55.0)+0.05*a(AGE,61.0,60.0)+0.05*a(AGE,65.0,61.0)); RED5:=1.0-(
0.05*a(AGE+ASY1,80.0,75.0)+0.05*a(AGE+ASY1,81.0,80.0)+0.05*a(
AGE+ASY1,85.0,81.0)); RED7:=NN(1.0-0.05*o(65.0,AGE)); RED13:=
COSTRED; RAS1:=(AGE>=65.0)&(ASY1>=15.0)!(AGE+ASY1>=85.0)&(AGE>=
58.0); RAS4:=(AGE>=50.0)&(ASY1>=15.0); RAS5:=(AGE>=50.0)&(ASY1>=
21.0); RAS10:=ASY1>=15.0; RAS13:=(AGE>=55.0)&(ASY1>=15.0); ROT7:=
(ASY1>=10.0)&(ASY1<15.0); ROT8:=(ASY1>=15.0)&(ASY1<30.0); ROT9:=
ASY1>=30.0; LNG10:=QUITD; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0);
BEG8:=ANYTIME(BIRTHD+50.0,BIRTHD+65.0); BEG9:=ANYTIME(BIRTHD+
50.0,BIRTHD+65.0); NR1:=0.012*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1;
NR2:=NN(0.015*FAP1*ASY1-0.5*SS1); NR2Q:=ord(RAS1)*NR2; NR3:=9.0*
ASY1+0.1*FAP1; NR3Q:=ord(RAS1)*NR3; NR4:=NN(FAP1-SS1); NR4Q:=ord(
RAS1)*NR4; NRT:=MAX(NR1,NR2,NR3,NR4); NRQ:=MAX(NR1Q,NR2Q,NR3Q,
NR4Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)
*ER1; ER2:=NRT*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2);
ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=MAX(NR1,NR2,9.0*ASY1+0.00667*FAP1)
*RED7; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=VD1; VD2Q:=ord(
ROT8)*AA(BEG8,0.0)*VD2; VD3:=MAX(NR1,NR2,9.0*ASY1+0.00667*FAP1);
VD3Q:=ord(ROT9)*AA(BEG9,0.0)*VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=
MAX(VD1Q,VD2Q,VD3Q)*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DR2:=
MAX(0.5*SS1,90.0); DR2Q:=ord(RAS10)*AA(QUITD,LNG10)*DR2; DRT:=
DR1+DR2; DRQ:=(DR1Q+DR2Q)*12.0; DS1:=0.1*ERT*RED13; DS1Q:=ord(
RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(
ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG9,BEG8,BEG7,LNG10,RED13,RED7,RED5,RED4,SS1,FAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0514s982; begin CNQ:=0.0; ASY1:=MIN(35.0,QUITD-HIRED)*
1.0; FDFAP1:=MIN(QUITD,QUITD-ASY1+35.0); FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-5.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
0.06; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RAS1:=(ASY1>=
35.0)!(AGE>=65.0)&(ASY1>=10.0)!(AGE>=62.0)&(ASY1>=15.0)!(AGE>=
60.0)&(ASY1>=20.0); RAS4:=ASY1>=30.0; RAS5:=(AGE>=55.0)&(ASY1>=
10.0); RAS13:=ASY1>=10.0; ROT7:=^QWDMAN; BEG7:=MAX(ERD,QUITD);
BEG8:=MAX(NRD,QUITD); BEG13:=MAX(ERD,QUITD); NR1:=(0.0175*FAP1*
ASY1+60.0)*1.07; NR1Q:=ord(RAS1)*NR1; NR2:=0.0175*FAP1*ASY1*1.06*
1.07; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)
;LRQ:=NRQ; MRAGE:=999.0; ER1:=NN(MIN(10.0,35.0-ASY1,MAX(10.0-
ASY1,65.0-AGE),MAX(15.0-ASY1,62.0-AGE),MAX(20.0-ASY1,60.0-AGE)))
;ER2:=NRT*(1.0-0.084*ER1); ER2Q:=ord(RAS4)*ER2; ER3:=NRT*(1.0-
0.096*u(ER1,5.0)-0.036*o(ER1,5.0)); ER3Q:=ord(RAS5)*ER3; ERT:=
MAX(ER2,ER3); ERQ:=MAX(ER2Q,ER3Q); VD1:=ERT; VD1Q:=ord(ROT7)*AA(
BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DS1:=0.5*0.85*ERT; DS1Q:=ord(
RAS13)*AA(BEG13,0.0)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=MIN(0.95*
ACPIG,0.03); VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,
ER2Q,ER2,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG13,BEG8,
BEG7,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0515s827; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-MAX(HIRED,BIRTHD+18.0))*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,BIRTHD+18.0,1976.0))*ord(WRKHRS>=1000.0)*
1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-
48.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/
12.0; RED4:=NN(1.0-0.03*o(65.0,AGE)); RED5:=AR(65.0-AGE); ASY51:=
ASY1+ASY2; RED6:=NN(1.0-0.03*o(93.0,AGE+ASY51)); RED13:=JSRED;
RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY51>=33.0); RAS4:=(AGE>=55.0)&(
ASY51>=20.0); RAS5:=(AGE>=60.0)&(ASY51>=10.0); RAS13:=(ASY51>=
25.0)!(AGE>=55.0)&(ASY51>=15.0)!(AGE>=60.0)&(ASY51>=10.0); ROT4:=
QAPPROVL; ROT7:=ASY1+ASY2>=20.0; ROT10:=QCODABLE; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG8:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0);
BEG10:=MAX(NRD,QUITD); NR1:=0.015*FAP1*u(ASY1+ASY2,33.333);
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=
70.0; ER1:=MAX(NRT*RED4,NRT*RED6); ER1Q:=ord(RAS4&ROT4)*ER1;
ER2:=NRT*RED5; ER2Q:=ord(RAS5&ROT4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=
MAX(ER1Q,ER2Q)*12.0; VD1:=ER1; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1;
VD2:=ER2; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*NRT*RED13; DS1Q:=ord(RAS13)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG8,BEG7,
RED13,RED6,ASY51,RED5,RED4,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0516s828; begin CNQ:=0.0; ASY1:=MIN(30.0,QUITD-HIRED)*
1.0; ASY2:=(QUITD-HIRED)*1.0; ASY4:=NN(MIN(QUITD,1976.0)-HIRED)*
1.0; ASY5:=NN(MIN(QUITD,1980.0)-MAX(HIRED,1976.0))*NNMIN(1.0,
WRKHRS/1000.0); ASY6:=NN(QUITD-MAX(HIRED,1980.0))*1.0; PSY7:=
BIRTHD+65.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-60.0/12.0),FDFAP1)/12.0; FDFAP10:=MIN(QUITD,BIRTHD+65.0);
FAP10:=ord(FDFAP10>HIRED)*WAGE(FDFAP10)/12.0; SS1:=SS(1.0,MAX(
BENIFITD,BIRTHD+65.0))/12.0; RED4:=NN(1.0-0.06*o(60.0,AGE));
RED13:=JSRED; ASY70:=ASY4+ASY5+ASY6; RAS1:=(AGE>=65.0)!(AGE>=
60.0)&(ASY70>=10.0); RAS4:=(AGE>=55.0)&(ASY70>=10.0); RAS10:=
ASY1>=1.0; RAS13:=(AGE>=55.0)&(ASY1>=10.0); BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+60.0); NR1:=0.016*FAP1*ASY1-0.5*SS1*ASY1/30.0; NR1Q:=
ord(RAS1)*NR1; NR2:=15.0*ASY2; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,
NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=(0.016*FAP1*u(PSY7,30.0)-0.5*SS1*u(
PSY7,30.0)/30.0)*ASY2/PSY7*RED4; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=0.5*FAP10-0.64*SS1;
DR1Q:=ord(RAS10)*DR1; DR2:=15.0*ASY2; DR2Q:=ord(RAS10)*DR2; DRT:=
MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY70>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG7,ASY70,RED13,RED4,SS1,FAP10,FDFAP10,FAP1,FDFAP1,PSY7,ASY6,
ASY5,ASY4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0517s829; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*MIN(2.0,
NN(WRKHRS/1500.0)); ASY2:=NN(MIN(QUITD,1977.0)-HIRED)*MIN(2.0,NN(
WRKHRS/1500.0)); ASY3:=NN(QUITD-MAX(HIRED,1977.0))*MIN(2.0,NN(
WRKHRS/1000.0)); RED4:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS2:=(AGE>=60.0)&(ASY1>=15.0); RAS4:=(AGE>=
60.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; RAS13:=(AGE>=60.0)&(ASY1>=
10.0); DAT1:=1984.0<=QUITD; ROT2:=QAPPROVL; BEG7:=ANYTIME(BIRTHD+
60.0,BIRTHD+65.0); NR1:=12.0*ASY1; NR1Q:=ord(RAS1&DAT1)*NR1;
NR2:=12.0*ASY1; NR2Q:=ord(RAS2&DAT1&ROT2)*NR2; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4&DAT1)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT;
VD1Q:=ord(DAT1)*AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
NRT; DR1Q:=ord(RAS10&DAT1)*DR1; DR2:=150.0; DR2Q:=ord(RAS10)*DR2;
DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS13&DAT1)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0;
ASY56:=ASY2+ASY3; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY56>=10.0))*
1.0); if min( VEDB,ASY56,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,ASY3,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0518s830; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0,1982.0)-HIRED)*NNMIN(1.0,WRKHRS/1700.0); ASY2:=NN(MIN(QUITD,
BIRTHD+70.0)-MAX(HIRED,1982.0))*NNMIN(1.0,WRKHRS/1500.0); ASY3:=
NN(MIN(QUITD,BIRTHD+70.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; RED4:=
NN(1.0-0.072*o(65.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=65.0)&(
ASY3>=10.0); RAS4:=(AGE>=60.0)&(ASY3>=10.0); ASY51:=ASY1+ASY2;
RAS10:=ASY51>=10.0; RAS13:=(AGE>=60.0)&(ASY51>=10.0); DAT1:=
QUITD<1984.0; DAT2:=1984.0<=QUITD; ROT10:=^QSSDABLE; LNG10:=
BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); BEG11:=MAX(
BIRTHD+65.0,QUITD); NR1:=11.0*(ASY1+ASY2); NR1Q:=ord(RAS1&DAT1)*
NR1; NR2:=11.5*(ASY1+ASY2); NR2Q:=ord(RAS1&DAT2)*NR2; NRT:=MAX(
NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=
NR1*RED4; ER1Q:=ord(RAS4&DAT1)*ER1; ER2:=NR2*RED4; ER2Q:=ord(
RAS4&DAT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0;
VD1:=ER1; VD1Q:=ord(DAT1)*AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(
DAT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*
12.0; DR1:=175.0; DR1Q:=ord(RAS10&ROT10)*AA(QUITD,LNG10)*DR1;
DR2:=NRT; DR2Q:=ord(RAS10)*AA(QUITD,LNG10)*DR2; DR3:=NRT; DR3Q:=
ord(RAS10)*AA(BEG11,0.0)*DR3; DRT:=MAX(DR1+DR3,DR2+DR3); DRQ:=
MAX(DR1Q+DR3Q,DR2Q+DR3Q)*12.0; DS1:=0.5*ER1*RED13; DS1Q:=ord(
RAS13&DAT1)*DS1; DS2:=0.5*ER2*RED13; DS2Q:=ord(RAS13&DAT2)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)&(ASY3>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG11,BEG7,LNG10,ASY51,RED13,RED4,
ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0519s913; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
66.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); FDFAP1:=MIN(QUITD,BIRTHD+
66.0); FAP1:=ord(FDFAP1>HIRED)*WAGE(FDFAP1); RED4:=11.69*o(60.0,
AGE); RED5:=NN(1.0-0.06*o(62.0,AGE)); RED7:=NN(1.0-0.06*o(65.0,
AGE)); RAS1:=(ASY1>=30.0)!(AGE>=62.0)&(ASY1>=10.0)!(AGE+ASY1>=
85.0)&(AGE>=60.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0)!(AGE+ASY1>=
85.0)&(AGE>=55.0); RAS5:=(AGE>=62.0)&(ASY1>=10.0)!(AGE+ASY1>=
85.0)&(AGE>=55.0); RAS6:=(AGE>=60.0)&(ASY1>=10.0); RAS10:=ASY1>=
10.0; ROT10:=^QSSDABLE; LNG1:=BIRTHD+62.0; BGN2:=MAX(BIRTHD+62.0,
QUITD); LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+
65.0); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=379.8*u(ASY1,30.0);
NR1Q:=ord(RAS1)*AA(QUITD,LNG1)*NR1; NR2:=0.7*FAP1; NR2Q:=ord(
RAS1)*AA(QUITD,LNG1)*NR2; NR3:=234.0*ASY1; NR3Q:=ord(RAS1)*AA(
BGN2,0.0)*NR3; NRT:=MIN(NR1+NR3,NR2+NR3); NRQ:=MIN(NR1Q+NR3Q,
NR2Q+NR3Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=379.8*ASY1-RED4; ER1Q:=
ord(RAS4)*AA(QUITD,LNG1)*ER1; ER2:=NR2; ER2Q:=ord(RAS4)*AA(QUITD,
LNG1)*ER2; ER3:=234.0*ASY1; ER3Q:=ord(RAS5)*AA(BGN2,0.0)*ER3;
ER4:=234.0*ASY1*RED5; ER4Q:=ord(RAS6)*AA(BGN2,0.0)*ER4; ERT:=MIN(
ER1,ER2)+MAX(ER3,ER4); ERQ:=MIN(ER1Q,ER2Q)+MAX(ER3Q,ER4Q); VD1:=
MIN(NR1,NR2)*RED7; VD1Q:=AA(BEG7,LNG1)*VD1; VD2:=NR3*RED7; VD2Q:=
AA(BGN2,0.0)*VD2; VDT:=VD1+VD2; VDQ:=VD1Q+VD2Q; DR1:=NR3; DR1Q:=
ord(RAS10)*AA(QUITD,LNG10)*DR1; DR2:=180.0*u(ASY1,30.0); DR2Q:=
ord(RAS10&ROT10)*AA(QUITD,LNG10)*DR2; DR3:=NR3; DR3Q:=ord(RAS10)*
AA(BEG11,LNG1)*DR3; DRT:=DR1+DR2+DR3; DRQ:=DR1Q+DR2Q+DR3Q; DS1:=
MIN(ER1,ER2)*0.55; DS1Q:=ord(RAS4)*AA(QUITD,LNG1)*DS1; DS2:=ER3*
0.55; DS2Q:=ord(RAS5)*AA(BGN2,0.0)*DS2; DS3:=ER4*0.55; DS3Q:=ord(
RAS6)*AA(BGN2,0.0)*DS3; DST:=DS1+MAX(DS2,DS3); DSQ:=DS1Q+MAX(
DS2Q,DS3Q); PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min(
VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG11,BEG7,LNG10,BGN2,LNG1,RED7,RED5,RED4,FAP1,FDFAP1,
ASY1,CNQ) <0 then negative end;

procedure c0520s810; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+
65.0,1974.75)-HIRED)*1.0; ASY5:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1974.75))*ord(WRKHRS>=1000.0)*1.0; PSY4:=BIRTHD+65.0-HIRED;
SDFAP1:=MAX(HIRED,1974.75); FAP1:=ord(QUITD>SDFAP1)*AVG(WAGE,
SDFAP1,QUITD)/12.0; SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0;
RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0));
RED5:=1.0-(0.038*a(AGE,58.0,55.0)+0.0535*a(AGE,62.0,58.0)+
0.0767*a(AGE,65.0,62.0)); RED13:=JSRED; RAS1:=AGE>=65.0; ASY55:=
ASY4+ASY5; RAS4:=(AGE>=55.0)&(ASY55>=15.0); RAS10:=ASY55>=10.0;
ROT7:=(ASY4+ASY5>=5.0)&(ASY4+ASY5<15.0); ROT8:=ASY4+ASY5>=15.0;
BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=NN(0.025*
FAP1*u(ASY1,32.0)-0.66667*SS1); NR1Q:=ord(RAS1)*NR1; NR2:=2.0*
ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=25.0; NR3Q:=ord(RAS1)*NR3; NRT:=
MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q)*12.0; LRQ:=NRQ;
MRAGE:=65.0; ER1:=NN((0.025*FAP1*u(ASY1,32.0)*ASY1/PSY4*RED4-
0.66667*SS1*ASY1/PSY4)*RED5); ER1Q:=ord(RAS4)*ER1; ER2:=NR2*RED4;
ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0;
VD1:=NR1*ASY1/PSY4; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NR1*
ASY1/PSY4; VD2Q:=ord(ROT8)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2);
VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=ERT; DR1Q:=ord(RAS10)*AA(BEG10,
0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(
MAX(ord(ASY55>=5.0)*0.25,ord(ASY55>=10.0)*0.5,ord((QUITAGE>=
65.0)!(ASY55>=15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,
BEG8,BEG7,ASY55,RED13,RED5,RED4,SS1,FAP1,SDFAP1,PSY4,ASY5,ASY4,
ASY1,CNQ) <0 then negative end;

procedure c0521s1017; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
PSY10:=BIRTHD+60.0-HIRED; FDFAP1:=QUITD; FAP1:=AVGMIN(13200.0,
WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); FDFAP2:=QUITD; FAP2:=AVG(
WAGE,MAX(HIRED,FDFAP2-3.0),FDFAP2); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=0.05; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SS1:=SS(
1.0,BENIFITD); RED4:=1.0-(0.048*a(AGE,60.0,55.0)+0.06*a(AGE,65.0,
60.0)); RED10:=OTHERB; RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=
60.0)&(ASY1>=30.0)!(AGE+ASY1>=90.0)&(AGE>=55.0)&(ASY1>=30.0);
RAS4:=(AGE>=55.0)&(ASY1>=5.0); RAS11:=ASY1>=5.0; RAS13:=(AGE>=
60.0)!(ASY1>=30.0); ROT10:=QJRDABLE; ROT11:=^QJRDABLE; ROT13:=
^QJRDEATH; ROT14:=QJRDEATH; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=0.015*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.0165*(
FAP2-1200.0)*ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=0.625*MAX(FAP1,FAP2)
-0.5*SS1; NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(
NR1Q,NR2Q,NR3Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=0.6667*MAX(FAP1,FAP2)-0.5*SS1-RED10;
DR1Q:=ord(ROT10)*DR1; DR2:=0.015*FAP1*MIN(2.0*ASY1,PSY10); DR2Q:=
ord(RAS11&ROT11)*DR2; DR3:=0.0165*(FAP2-1200.0)*MIN(2.0*ASY1,
PSY10); DR3Q:=ord(RAS11&ROT10)*DR3; DRT:=MAX(DR1,DR2,DR3); DRQ:=
MAX(DR1Q,DR2Q,DR3Q); DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4&ROT13)*
DS1; DS2:=0.5*NRT*RED13; DS2Q:=ord(RAS13&ROT13)*DS2; DS3:=0.5*
MAX(FAP1,FAP2)-0.5*SS1-RED10; DS3Q:=ord(ROT14)*DS3; DST:=MAX(DS1,
DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q); PRAG:=MIN(0.95*ACPIG,0.05);
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=5.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED10,RED4,SS1,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP2,FDFAP2,FAP1,FDFAP1,PSY10,ASY1,CNQ) <0
then negative end;

procedure c0522s664; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+21.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+45.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0)
;SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(
WAGE,SDFAP1,FDFAP1); FDFAP4:=MIN(QUITD,BIRTHD+60.0); SDFAP4:=MAX(
HIRED,FDFAP4-5.0); FAP4:=ord(FDFAP4>SDFAP4)*AVG(WAGE,SDFAP4,
FDFAP4); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.02; MAN7:=SUMI(
PCMAN7,5.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+
65.0)); RED4:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=65.0;
RAS4:=AGE>=60.0; RAS5:=AGE>=55.0; ROT4:=QAPPROVL; ROT5:=QAPPROVL&
(AGE<60.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=0.02*FAP1*u(ASY1,10.0)
+0.015*FAP1*b(ASY1,10.0,30.0)+0.01*FAP1*o(ASY1,30.0)-0.017*SS1*
ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.02*FAP1*u(ASY2,10.0)+0.015*
FAP1*b(ASY2,10.0,20.0)-0.017*SS1*ASY2; NR2Q:=ord(RAS1)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=AI(AGE,65.0,999.0)*NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4&ROT4)*ER1; ER2:=(
0.02*FAP4*u(ASY1,10.0)+0.015*FAP4*b(ASY1,10.0,30.0)+0.01*FAP4*o(
ASY1,30.0)-0.017*SS1*ASY1)*RED4; ER2Q:=ord(RAS5&ROT5)*ER2; ER3:=(
0.02*FAP4*u(ASY2,10.0)+0.015*FAP4*b(ASY2,10.0,20.0)-0.017*SS1*
ASY2)*RED4; ER3Q:=ord(RAS5&ROT5)*ER3; ERT:=MAX(ER1,ER2,ER3);
ERQ:=MAX(ER1Q,ER2Q,ER3Q); VD1:=MAX(ER2,ER3); VD1Q:=ord(ROT5)*AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(ROT10)*
AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ER1*RED13*0.5;
DS1Q:=ord(RAS4&ROT4)*DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(RAS5&
ROT5)*DS2; DS3:=ER3*RED13*0.5; DS3Q:=ord(RAS5&ROT5)*DS3; DST:=
MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q); PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=55.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,RED4,SS1,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP4,SDFAP4,FDFAP4,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0523s896; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/12.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
60.0/12.0),FDFAP1)/12.0; SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/
12.0; RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0))
;RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=5.0); BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(NRD,QUITD); NR1:=(0.016*
FAP1-0.014*SS1)*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=4.0*ASY1; NR2Q:=
ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=
NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NRT; DR1Q:=AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=
DR1Q*12.0; DSQ:=0.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=5.0)*
0.1,ord(ASY1>=8.0)*0.6,ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0));
if min( VEDB,PRAG,DSQ,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED4,
SS1,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0524s1041; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
FAP13:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.05;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.06*o(
60.0,AGE)); RED5:=NN(1.0-0.06*o(30.0,ASY1)); RED10:=OTHERB;
RAS1:=(AGE>=60.0)!(ASY1>=30.0); RAS4:=ASY1>=25.0; RAS10:=ASY1>=
5.0; RAS13:=ASY1>=1.0; ROT7:=^QWDMAN; ROT10:=^QJRDABLE; ROT11:=
QJRDABLE; LNG13:=1.0; BEG7:=MAX(NRD,QUITD); NR1:=0.018*FAP1*ASY1;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5; ER2Q:=ord(
RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=NRT;
VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=MAX(
NRT,0.25*FAP1)-RED10; DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=0.66667*
FAP1-RED10; DR2Q:=ord(ROT11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(
DR1Q,DR2Q); DS1:=FAP13; DS1Q:=ord(RAS13)*AA(QUITD,LNG13+QUITD)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.95*ACPIG; VEDB:=VOPT(ord((
QUITAGE>=60.0)!(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,
DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,LNG13,RED10,RED5,RED4,
MAN7,PCMAN7,FDMAN7,SDMAN7,FAP13,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0525s1042; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/2080.0); ASY4:=(QUITD-HIRED)*ord(WRKHRS>=700.0)*1.0;
FAP1:=AVG(WAGE,HIRED,QUITD); FAP13:=WAGE(QUITD); SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=0.05; MAN7:=SUMI(PCMAN7,5.0,0.0,SDMAN7,
FDMAN7); SS1:=SSBASE(BENIFITD); RED4:=NN(1.0-0.06*o(62.0,AGE));
RED7:=AR(62.0-AGE); RAS1:=(ASY1>=30.0)!(AGE>=62.0)&(ASY1>=5.0)!(
AGE>=63.0)&(ASY1>=4.0)!(AGE>=65.0)&(ASY1>=2.0); RAS4:=(AGE>=55.0)
&(ASY4>=15.0); RAS13:=ASY1>=1.0; ROT7:=QWDMAN; ROT8:=^QWDMAN;
ROT13:=QJRDEATH; LNG13:=1.0; BEG7:=MAX(BIRTHD+62.0,QUITD); NR1:=
0.008*u(FAP1,SS1)*ASY1+0.015*o(FAP1,SS1)*ASY1; NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=
ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=ord(ROT8)*AA(BEG7,
0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DS1:=FAP13;
DS1Q:=ord(RAS13&ROT13)*AA(QUITD,LNG13+QUITD)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=MIN(0.95*ACPIG,0.03); VEDB:=VOPT(ord((ASY4>=5.0)!(
QUITAGE>=63.0)&(ASY4>=4.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,
DS1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG7,LNG13,RED7,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP13,FAP1,ASY4,ASY1,CNQ) <0 then negative end;

procedure c0526s962; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
PSY10:=BIRTHD+60.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
0.07; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SDVOL7:=HIRED;
FDVOL7:=QUITD; PCVOL7:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD)
;VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,FDVOL7); RED4:=NN(1.0-0.02*o(
55.0,AGE)); RAS1:=(AGE>=62.0)&(ASY1>=5.0)!(AGE>=60.0)&(ASY1>=
20.0)!(AGE>=55.0)&(ASY1>=30.0); RAS4:=(ASY1>=25.0)!(AGE>=50.0)&(
ASY1>=20.0); RAS10:=ASY1>=5.0; RAS13:=ASY1>=1.0; BEG7:=MAX(
BIRTHD+62.0,QUITD); NR1:=0.015*FAP1*u(ASY1,5.0)+0.0175*FAP1*b(
ASY1,5.0,10.0)+0.02*FAP1*o(ASY1,10.0); NR1Q:=ord(RAS1)*NR1; NR2:=
0.8*FAP1; NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,
NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q; DR1:=0.015*FAP1*u(PSY10,5.0)+0.0175*FAP1*b(PSY10,
5.0,10.0)+0.02*FAP1*o(PSY10,10.0); DR1Q:=ord(RAS10)*DR1; DR2:=
0.4*FAP1; DR2Q:=ord(RAS10)*DR2; DR3:=MAX(NRT,MIN(DR1,DR2));
DR3Q:=ord(RAS1)*DR3; DRT:=DR3; DRQ:=DR3; DS1:=0.55*DRT; DS1Q:=
ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.95*ACPIG; VEDB:=
VOPT(ord(ASY1>=5.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED4,VOL7,PCVOL7,
FDVOL7,SDVOL7,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,PSY10,ASY1,
CNQ) <0 then negative end;

procedure c0527s1000; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/10.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
60.0/12.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.06;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.03*o(
65.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=65.0)!(ASY1>=30.0); RAS4:=(
AGE>=60.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; RAS11:=ASY1>=30.0;
RAS13:=(AGE>=60.0)&(ASY1>=10.0); RAS14:=ASY1>=30.0; BEG7:=
ANYTIME(BIRTHD+60.0,BIRTHD+65.0); NR1:=0.01625*FAP1*u(ASY1,20.0)+
0.0175*FAP1*b(ASY1,20.0,30.0)+0.02*FAP1*o(ASY1,30.0); NR1Q:=ord(
RAS1)*NR1; NR2:=60.0*ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2)
;NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=0.85*(0.01625*FAP1*u(
ASY1,20.0)+0.0175*FAP1*b(ASY1,20.0,30.0)); DR1Q:=ord(RAS10)*DR1;
DR2:=0.01625*FAP1*u(ASY1,20.0)+0.0175*FAP1*b(ASY1,20.0,30.0)+
0.02*FAP1*o(ASY1,30.0); DR2Q:=ord(RAS11)*DR2; DRT:=MAX(DR1,DR2);
DRQ:=MAX(DR1Q,DR2Q); DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*DS1;
DS2:=0.5*NRT*RED13; DS2Q:=ord(RAS14)*DS2; DST:=MAX(DS1,DS2);
DSQ:=MAX(DS1Q,DS2Q); PRAG:=MIN(0.5*ACPIG,0.025); VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,
RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0528s578; begin CNQ:=0.0; ASY1:=NNMIN(38.0,MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+19.0,1973.833))*ord(WRKHRS>=
1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,
FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/
12.0; RED4:=AR(NRD-BENIFITD); RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&
(ASY1>=15.0); RAS10:=(AGE>=29.0)&(ASY1>=10.0); ROT4:=QAPPROVL;
BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.01*u(FAP1,400.0)+0.015*o(
FAP1,400.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0;
LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=
ord(RAS4&ROT4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=VD1*RED4; DR1Q:=
ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=DR1; DS1Q:=DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=
5.0)*0.25,ord(ASY1>=10.0)*0.5,ord((QUITAGE>=65.0)!(ASY1>=15.0))*
1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,
RED4,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0529s491; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY2:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/2000.0)
;PSY7:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-3.0),FDFAP1); FAP2:=AVG(WAGE,HIRED,QUITD); SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,
SDMAN7,FDMAN7); SS1:=SS(1.0,BENIFITD); SS2:=SSBASE(BENIFITD);
RED4:=NN(1.0-0.05*o(60.0,AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED;
RED14:=COSTRED; RAS1:=(AGE>=65.0)!(AGE+ASY2>=75.0)&(AGE>=60.0);
RAS4:=(AGE+ASY2>=75.0)&(AGE>=55.0); RAS10:=ASY2>=10.0; RAS13:=(
AGE>=55.0)&(ASY1>=10.0); BGN2:=MAX(BIRTHD+65.0,QUITD); BEG7:=
ANYTIME(0.0,BIRTHD+65.0); NR1:=0.01667*FAP1*u(ASY2,36.0); NR1Q:=
ord(RAS1)*NR1; NR2:=(0.015*u(FAP2,SS2)+0.02*o(FAP2,SS2))*ASY2;
NR2Q:=ord(RAS1)*NR2; NR3:=144.0*ASY2; NR3Q:=ord(RAS1)*NR3; NR4:=
0.015*SS1*ASY2; NR4Q:=ord(RAS1)*AA(BGN2,0.0)*NR4; NRT:=MAX(NR1-
NR4,NR2,NR3); NRQ:=MAX(NR1Q-NR4Q,NR2Q,NR3Q); LRQ:=NRQ; MRAGE:=
70.0; ER1:=MAX(NR2,NR3); ER1Q:=ord(RAS4)*ER1; ER2:=NR1; ER2Q:=
ord(RAS4)*ER2; ER3:=NR4; ER3Q:=ord(RAS4)*AA(BGN2,0.0)*ER3; ERT:=
MAX(ER1,ER2-ER3)*RED4; ERQ:=MAX(ER1Q,ER2Q-ER3Q)*RED4; VD1:=(
0.01667*FAP1*u(PSY7,36.0)-0.015*SS1*PSY7)*ASY2/PSY7*RED7; VD1Q:=
AA(BEG7,0.0)*VD1; VD2:=(0.015*u(FAP2,SS2)+0.02*o(FAP2,SS2))*ASY2*
RED7; VD2Q:=AA(BEG7,0.0)*VD2; VD3:=144.0*ASY2*RED7; VD3Q:=AA(
BEG7,0.0)*VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1Q,VD2Q,VD3Q);
DR1:=NR1; DR1Q:=ord(RAS10)*DR1; DR2:=NR2; DR2Q:=ord(RAS10)*DR2;
DR3:=NR3; DR3Q:=ord(RAS10)*DR3; DR4:=NR4; DR4Q:=ord(RAS10)*AA(
BGN2,0.0)*DR4; DRT:=MAX(DR1-DR4,DR2,DR3); DRQ:=MAX(DR1Q-DR4Q,
DR2Q,DR3Q); DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(RAS13)*DS1; DST:=
DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,
DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,BGN2,RED14,RED13,RED7,RED4,SS2,
SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP2,FAP1,FDFAP1,PSY7,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0530s465; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1977.75)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*
1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1981.75)-MAX(HIRED+1.0,
BIRTHD+25.0,1977.75))*NNMIN(1.0,WRKHRS/2000.0); ASY3:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1977.75))*NNMIN(
1.0,WRKHRS/2000.0); ASY4:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
65.0,1977.75); FAP1:=ord(FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1);
FDFAP2:=MIN(QUITD,BIRTHD+65.0,1981.75); SDFAP2:=MAX(HIRED,
1980.75); FAP2:=ord(FDFAP2>SDFAP2)*WAGE(FDFAP2); FDFAP3:=MIN(
QUITD,BIRTHD+65.0); SDFAP3:=MAX(HIRED,1977.75); FAP3:=ord(
FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3); SS1:=SSBASE(BENIFITD);
RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0));
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=10.0);
ROT2:=(PARTD<1981.75)&(1981.75<=QUITD); ROT10:=QSSDABLE; ROT11:=
QSSDABLE&(PARTD<1981.75); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.01*u(FAP3,SS1)+0.02*o(
FAP3,SS1))*ASY3; NR1Q:=ord(RAS1)*NR1; NR2:=(0.01*u(FAP1,SS1)+
0.02*o(FAP1,SS1))*ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=0.005*FAP2*(
ASY1+ASY2); NR3Q:=ord(RAS1&ROT2)*NR3; NRT:=NR1+NR2+NR3; NRQ:=
NR1Q+NR2Q+NR3Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=(NR1+NR2)*RED4;
ER1Q:=ord(RAS4)*ER1; ER2:=NR3*RED4; ER2Q:=ord(RAS4&ROT2)*ER2;
ERT:=ER1+ER2; ERQ:=ER1+ER2; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1;
VD2:=ER2; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*VD2; VDT:=VD1+VD2; VDQ:=
VD1+VD2; DR1:=NR1+NR2; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DR2:=
NR3; DR2Q:=ord(ROT11)*AA(BEG10,0.0)*DR2; DRT:=DR1+DR2; DRQ:=DR1Q+
DR2Q; DS1:=ER1; DS1Q:=ord(RAS4)*DS1; DS2:=ER2; DS2Q:=ord(RAS4&
ROT2)*DS2; DST:=0.5*(DS1+DS2)*RED13; DSQ:=0.5*(DS1+DS2)*RED13;
PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY4>=5.0)*0.25,ord(ASY4>=10.0)*
0.5,ord((QUITAGE>=65.0)!(ASY4>=15.0))*1.0)); if min( VEDB,PRAG,
DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,RED4,SS1,FAP3,
SDFAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1,ASY4,ASY3,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0531s847; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY1:=MIN(30.0,
BIRTHD+65.0-HIRED); FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); SS1:=SS(1.0,BENIFITD); RED4:=AR(65.0-AGE); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)&(ASY1>=10.0); BEG7:=ANYTIME(
BIRTHD+60.0,BIRTHD+65.0); NR1:=MAX(OTHCONT(846.0),(0.015*FAP1-
0.01667*SS1)*PSY1*ASY1/PSY1); NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=MAX(OTHCONT(846.0),NR1*
RED4); ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*ERT*
RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,SS1,FAP1,SDFAP1,
FDFAP1,PSY1,ASY1,CNQ) <0 then negative end;

procedure c0532s584; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
RED4:=NN(1.0-0.04*o(62.0,AGE)); RAS1:=(ASY1>=30.0)!(AGE>=62.0)&(
ASY1>=10.0); RAS4:=(AGE+ASY1>=75.0)&(AGE>=55.0); RAS10:=ASY1>=
10.0; DAT1:=1983.75<=QUITD; DAT2:=QUITD<1983.75; LNG10:=NRD;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+62.0); BEG11:=MAX(NRD,QUITD);
NR1:=16.0*ASY1; NR1Q:=ord(RAS1&DAT1)*NR1; NR2:=15.0*ASY1; NR2Q:=
ord(RAS1&DAT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&DAT1)*ER1;
ER2:=NR2*RED4; ER2Q:=ord(RAS4&DAT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=
MAX(ER1Q,ER2Q)*12.0; VD1:=ER1; VD1Q:=ord(DAT1)*AA(BEG7,0.0)*VD1;
VD2:=ER2; VD2Q:=ord(DAT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2);
VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=300.0; DR1Q:=ord(RAS10&DAT1)*AA(
QUITD,LNG10)*DR1; DR2:=NR1; DR2Q:=ord(RAS10&DAT2)*AA(BEG11,0.0)*
DR2; DR3:=NR2; DR3Q:=ord(RAS10&DAT2)*DR3; DRT:=MAX(DR2,DR3)+DR1;
DRQ:=(MAX(DR2Q,DR3Q)+DR1Q)*12.0; DS1:=ER1*0.5; DS1Q:=ord(RAS4&
DAT1)*DS1; DS2:=ER2*0.5; DS2Q:=ord(RAS4&DAT2)*DS2; DST:=MAX(DS1,
DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((ASY1>=
30.0)!(QUITAGE>=62.0)&(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG11,BEG7,LNG10,RED4,ASY1,CNQ) <0 then
negative end;

procedure c0533s811; begin CNQ:=0.0; ASY1:=NNMIN(40.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*1.0; PSY10:=MIN(40.0,BIRTHD+65.0-HIRED);
RED4:=NN(1.0-0.05*o(65.0,AGE)); RAS1:=AGE>=65.0; RAS4:=(AGE>=
55.0)&(ASY1>=10.0); RAS10:=ASY1>=11.0; LNG13:=1.0; BEG7:=MAX(
BIRTHD+65.0,QUITD); NR1:=10.0*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=
NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=10.0*PSY10;
DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=1000.0*u(
PSY10,12.0); DS1Q:=AA(QUITD,LNG13+QUITD)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=5.0)*0.25,ord(
ASY1>=10.0)*0.5,ord((QUITAGE>=65.0)!(ASY1>=15.0)!(QUITAGE>=55.0)
&(ASY1>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG7,LNG13,RED4,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0534s468; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY4:=(QUITD-HIRED)*
ord(WRKHRS>=1000.0)*1.0; PSY4:=NN(BIRTHD+65.0-MAX(HIRED+1.0,
BIRTHD+25.0)); FDFAP1:=QUITD; FAP1:=AVGMIN(18000.0,WAGE,MAX(
HIRED,FDFAP1-60.0/12.0),FDFAP1); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+
65.0)); RED4:=NN(1.0-0.0667*o(65.0,AGE)); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=62.0)&(ASY1>=10.0); BEG7:=ANYTIME(BIRTHD+
62.0,BIRTHD+65.0); NR1:=NN(0.6*FAP1-0.83333*SS1)*u(ASY1,25.0)/
25.0; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NN(0.6*FAP1-
0.83333*SS1)*u(ASY1,25.0)/PSY4*RED4; ER2Q:=ord(RAS4)*ER2; ERT:=
MIN(ER1,ER2); ERQ:=MIN(ER1Q,ER2Q); VD1:=ERT; VD1Q:=AA(BEG7,0.0)*
VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*ERT*RED13; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,SS1,FAP1,FDFAP1,PSY4,ASY4,
ASY1,CNQ) <0 then negative end;

procedure c0535s990; begin CNQ:=0.0; ASY1:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); RED4:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=
(AGE>=60.0)&(ASY1>=5.0); RAS4:=(AGE>=60.0)&(ASY1>=5.0); BEG7:=
MAX(NRD,QUITD); NR1:=0.3*FAP1+0.1*o(FAP1,9000.0); NR1Q:=ord(RAS1)
*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ERT; DR1Q:=DR1; DRT:=
DR1; DRQ:=DR1Q; DS1:=NRT*RED13; DS1Q:=DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=1.0)*0.2,ord(ASY1>=3.0)*0.6,
ord(ASY1>=5.0)*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG7,RED13,RED4,FAP1,FDFAP1,ASY1,CNQ) <0 then negative
end;

procedure c0536s690; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY7:=
(QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY7:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-20.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(
1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; RED10:=AR(65.0-AGE); RED13:=
JSRED; RAS1:=AGE>=65.0; RAS13:=AGE>=55.0; ROT10:=QSSDABLE; BEG7:=
MAX(BIRTHD+65.0,QUITD); NR1:=(0.35*FAP1-0.75*SS1)*u(ASY1,20.0)/
20.0; NR1Q:=ord(RAS1)*NR1; NR2:=6.67*u(ASY1,15.0); NR2Q:=ord(
RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=AI(
AGE,65.0,70.0)*NRQ; MRAGE:=70.0; ERQ:=0.0; VD1:=(0.35*FAP1-0.75*
SS1)*u(PSY7,20.0)/20.0*ASY1/PSY7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q*12.0; DR1:=NRT*RED10; DR1Q:=ord(ROT10)*DR1; DRT:=
DR1; DRQ:=DR1Q*12.0; DS1:=VD1*RED13*0.5; DS1Q:=ord(RAS13)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY7>=
4.0)*0.4,ord(ASY7>=6.0)*0.5,ord((QUITAGE>=65.0)!(ASY7>=11.0))*
1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,
RED10,SS1,FAP1,SDFAP1,FDFAP1,PSY7,ASY7,ASY1,CNQ) <0 then
negative end;

procedure c0537s604; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*NNMIN(1.0,WRKHRS/2080.0); ASY2:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; PSY7:=NN(BIRTHD+65.0-MAX(
HIRED,BIRTHD+22.0)); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-60.0/12.0),FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/12.0; SS2:=
SS(2.0,MAX(BENIFITD,BIRTHD+62.0))/12.0; RED4:=NN(1.0-0.03*o(65.0,
AGE)); RED7:=1.0-(0.05*a(AGE,60.0,55.0)+0.08*a(AGE,65.0,60.0));
RED13:=JSRED; RAS1:=AGE>=65.0; RAS2:=(AGE>=60.0)&(ASY2>=40.0);
RAS4:=(AGE>=55.0)&(ASY2>=15.0); RAS13:=(ASY2>=25.0)!(AGE>=55.0)&(
ASY2>=15.0); ROT2:=AGE<=65.0; ROT7:=ASY2>=15.0; LNG2:=BIRTHD+
62.0; BGN3:=MAX(BIRTHD+62.0,QUITD); BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,QUITD); NR1:=0.02*FAP1*u(
ASY1,25.0)+0.005*FAP1*o(ASY1,25.0)-0.02*SS1*u(ASY1,25.0); NR1Q:=
ord(RAS1)*NR1; NR2:=0.02*FAP1*u(ASY1,25.0)+0.005*FAP1*o(ASY1,
25.0); NR2Q:=ord(RAS2&ROT2)*AA(QUITD,LNG2)*NR2; NR3:=0.02*FAP1*u(
ASY1,25.0)+0.005*FAP1*o(ASY1,25.0)-0.02*SS2*u(ASY1,25.0); NR3Q:=
ord(RAS2&ROT2)*AA(BGN3,0.0)*NR3; NRT:=MAX(NR1,NR2+NR3); NRQ:=MAX(
NR1Q,NR2Q+NR3Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR2*RED4;
ER1Q:=ord(RAS4&ROT2)*AA(QUITD,LNG2)*ER1; ER2:=NR3*RED4; ER2Q:=
ord(RAS4&ROT2)*AA(BGN3,0.0)*ER2; ERT:=ER1+ER2; ERQ:=(ER1Q+ER2Q)*
12.0; VD1:=(0.02*FAP1*u(PSY7,25.0)+0.005*FAP1*o(PSY7,25.0)-0.02*
SS1*u(PSY7,25.0))*ASY1/PSY7*RED7; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*
VD1; VD2:=(0.02*FAP1*u(PSY7,25.0)+0.005*FAP1*o(PSY7,25.0)-0.02*
SS1*u(PSY7,25.0))*ASY1/PSY7; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(
VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DRQ:=0.0; DS1:=ER2*RED13*0.5;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,
BGN3,LNG2,RED13,RED7,RED4,SS2,SS1,FAP1,FDFAP1,PSY7,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0538s1076; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,
1961.417)-HIRED)*NNMIN(1.0,WRKHRS/1200.0); ASY2:=NN(MIN(QUITD,
1981.417)-MAX(HIRED,1961.417))*NNMIN(1.0,WRKHRS/1200.0); ASY3:=
NN(QUITD-MAX(HIRED,1981.417))*NNMIN(1.0,WRKHRS/1200.0); ASY4:=(
QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0; RED4:=AR(65.0-AGE); RED13:=
JSRED; RAS1:=(AGE>=62.0)&(ASY4>=10.0); RAS4:=(AGE>=55.0)&(ASY4>=
10.0); ASY53:=ASY1+ASY2+ASY3; RAS10:=ASY53>=5.0; BEG7:=MAX(
BIRTHD+65.0,QUITD); NR1:=15.0*ASY1+17.0*ASY2+19.5*ASY3; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0;
VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
NRT; DR1Q:=ord(RAS10)*DR1; DR2:=25.0; DR2Q:=ord(RAS10)*DR2; DRT:=
MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,
ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY53,RED13,RED4,
ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0539s1077; begin CNQ:=0.0; ASY1:=NNMIN(15.0,MIN(QUITD,
BIRTHD+65.0,1967.5)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/12.0); ASY2:=
NN(MIN(QUITD,BIRTHD+65.0,1977.0)-MAX(HIRED+1.0,1967.5))*NNMIN(
1.0,WRKHRS/12.0); ASY3:=NN(MIN(QUITD,BIRTHD+65.0,1981.417)-MAX(
HIRED+1.0,1977.0))*NNMIN(1.0,WRKHRS/12.0); ASY4:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,1981.417))*NNMIN(1.0,WRKHRS/12.0);
ASY5:=NN(MIN(QUITD,BIRTHD+65.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/
12.0); FDFAP1:=MIN(QUITD,BIRTHD+65.0,1977.0); SDFAP1:=MAX(HIRED,
1967.5); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0;
RED4:=NN(1.0-0.06*o(65.0,AGE)); RED10:=OTHERB; RED13:=JSRED;
RED14:=COSTRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY5>=15.0);
RAS10:=ASY5>=5.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
15.0*ASY1+0.015*FAP1*ASY2/12.0+17.0*ASY3+19.5*ASY4; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT-
RED10; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*
ERT*RED13*RED14; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY5>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED14,
RED13,RED10,RED4,FAP1,SDFAP1,FDFAP1,ASY5,ASY4,ASY3,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0540s1078; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(
WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0; SS1:=SSBASE(BENIFITD)/
12.0; SS2:=SS(1.0,BENIFITD)/12.0; RED4:=NN(1.0-0.06*o(62.0,AGE));
RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(
AGE>=60.0)&(ASY1>=10.0)!(AGE>=55.0)&(ASY1>=15.0); BEG7:=ANYTIME(
BIRTHD+60.0,BIRTHD+65.0); NR1:=(0.015*u(FAP1,SS1)+0.02*o(FAP1,
SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=MAX(500.0,0.7*FAP1-0.5*SS2)
;NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q)*
12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=ERT*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,SS2,SS1,FAP1,FDFAP1,ASY1,
CNQ) <0 then negative end;

procedure c0541s892; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; FAP1:=WAGE(QUITD)/
12.0; SS1:=SS(1.0,BENIFITD)/12.0; RED10:=AR(65.0-AGE); RED13:=
JSRED; RAS1:=AGE>=65.0; RAS10:=AGE>=65.0; BEG7:=ANYTIME(0.0,
BIRTHD+65.0); NR1:=0.534*FAP1-0.74*SS1; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ERQ:=0.0; VD1:=
NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT*
RED10; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=NRT*
RED13; DS1Q:=DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(MAX(ord(ASY1>=2.0)*0.25,ord(ASY1>=3.0)*0.5,ord((QUITAGE>=
65.0)!(ASY1>=5.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,
BEG7,RED13,RED10,SS1,FAP1,ASY1,CNQ) <0 then negative end;

procedure c0542s156; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; FDFAP2:=MIN(QUITD,
BIRTHD+65.0); SDFAP2:=MAX(HIRED,FDFAP2-10.0); FAP2:=ord(
FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2)/12.0; SS1:=SS(1.0,
BENIFITD)/12.0; RED4:=NN(1.0-0.05*o(65.0,AGE)); RED13:=JSRED;
RAS1:=(AGE>=65.0)!(AGE+ASY1>=85.0)&(AGE>=55.0); RAS4:=(AGE>=55.0)
&(ASY1>=10.0); RAS13:=(AGE>=50.0)&(ASY1>=10.0); ROT10:=QCODABLE;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,
QUITD); NR1:=0.012*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.015*
FAP1*ASY1-0.015*SS1*u(ASY1,33.33); NR2Q:=ord(RAS1)*NR2; NR3:=0.4*
FAP2-0.5*SS1; NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=
MAX(NR1Q,NR2Q,NR3Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(
ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.4*ERT;
DS1Q:=ord(RAS13)*DS1; DS2:=0.5*NRT*RED13; DS2Q:=ord(RAS1)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,
ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,
BEG7,RED13,RED4,SS1,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY1,
CNQ) <0 then negative end;

procedure c0543s719; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY4:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,
BENIFITD); RED4:=NN(1.0-0.04*o(65.0,AGE)); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=AGE>=55.0; BEG7:=ANYTIME(BIRTHD+65.0,0.0);
BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.0125*FAP1*ASY1-
0.0125*SS1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=300.0; NR2Q:=ord(RAS1)
*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=
999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=300.0*ASY1/PSY4*
RED4; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)
;VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=AA(BEG8,0.0)*
VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=0.5*
ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASY1>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,
RED13,RED4,SS1,FAP1,SDFAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then
negative end;

procedure c0544s720; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1634.0); ASY2:=(QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1)/12.0;
SS1:=SS(1.0,BENIFITD)/12.0; SS2:=SS(2.0,MAX(BENIFITD,BIRTHD+62.0)
)/12.0; RED4:=NN(1.0-0.06*o(60.0,AGE)); RAS1:=(AGE>=60.0)!(AGE>=
55.0)&(ASY1>=30.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=
10.0; RAS13:=(AGE>=50.0)&(ASY1>=10.0); ROT2:=AGE<=65.0; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,QUITD);
NR1:=16.0*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=NN(80.0+o(ASY1,30.0)*
0.01*FAP1-SS1); NR2Q:=ord(RAS1)*NR2; NR3:=NN(0.8*FAP1+0.01*o(
ASY1,30.0)*FAP1-SS2); NR3Q:=ord(RAS1&ROT2)*NR3; NRT:=MIN(NR1,MAX(
NR2,NR3)); NRQ:=MIN(NR1Q,MAX(NR2Q,NR3Q))*12.0; LRQ:=NRQ; MRAGE:=
70.0; ER1:=MIN(NR1,NR3)*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR1;
VD2Q:=AA(BEG8,0.0)*VD2; VD3:=NR2; VD3Q:=AA(BEG8,0.0)*VD3; VD4:=
NR3; VD4Q:=ord(ROT2)*AA(BEG8,0.0)*VD4; VDT:=MAX(VD1,MIN(VD2,MAX(
VD3,VD4))); VDQ:=MAX(VD1Q,MIN(VD2Q,MAX(VD3Q,VD4Q)))*12.0; DR1:=
NR1; DR1Q:=ord(RAS10)*DR1; DR2:=NR2; DR2Q:=ord(RAS10)*DR2; DR3:=
NR3; DR3Q:=ord(RAS10&ROT2)*DR3; DRT:=MIN(DR1,MAX(DR2,DR3)); DRQ:=
MIN(DR1Q,MAX(DR2Q,DR3Q))*12.0; DS1:=0.5*NR1; DS1Q:=ord(RAS13)*
DS1; DS2:=0.5*NR2; DS2Q:=ord(RAS13)*DS2; DS3:=0.5*NR3; DS3Q:=ord(
RAS13&ROT2)*DS3; DST:=MIN(DS1,MAX(DS2,DS3)); DSQ:=MIN(DS1Q,MAX(
DS2Q,DS3Q))*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=60.0)!(
ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD4Q,VD4,
VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,RED4,SS2,SS1,FAP1,FDFAP1,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0545s750; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-60.0/12.0),FDFAP1); RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+
0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY1>=15.0); RAS13:=(AGE>=65.0)!(AGE>=55.0)&(ASY1>=
15.0); ROT7:=ASY1>=15.0; ROT10:=QCODABLE; BEG7:=MAX(BIRTHD+65.0,
QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(
BIRTHD+65.0,QUITD); NR1:=0.01*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*
VD1; VD2:=ERT; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NRT; DR1Q:=ord(ROT10)*AA(BEG10,
0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*0.5; DS1Q:=ord(
RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(
ASY1>=5.0)*0.25,ord(ASY1>=10.0)*0.5,ord((QUITAGE>=65.0)!(ASY1>=
15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG10,BEG8,BEG7,RED13,RED4,FAP1,FDFAP1,ASY1,CNQ) <0
then negative end;

procedure c0546s6; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,MAX(BIRTHD+
65.0,HIRED+1.0+10.0),1979.0)-(HIRED+1.0))*ord(WRKHRS>=1000.0)*
1.0; SDASY2:=MAX(HIRED+1.0,1979.0); ASY2:=NN(MIN(QUITD,MAX(
BIRTHD+65.0,SDASY2+10.0),1980.0)-SDASY2)*ord(WRKHRS>=1000.0)*
1.0; SDASY3:=MAX(HIRED+1.0,1980.0); ASY3:=NN(MIN(QUITD,MAX(
BIRTHD+65.0,SDASY3+10.0))-SDASY3)*ord(WRKHRS>=1000.0)*1.0; ASY4:=
NN(MIN(QUITD,MAX(BIRTHD+65.0,HIRED+1.0+10.0))-(HIRED+1.0))*ord(
WRKHRS>=1000.0)*1.0; SDASY5:=MAX(HIRED+1.0,BIRTHD+22.0); ASY5:=
NN(MIN(QUITD,MAX(BIRTHD+65.0,SDASY5+10.0))-SDASY5)*ord(WRKHRS>=
1000.0)*1.0; FDFAP1:=MIN(QUITD,MAX(BIRTHD+65.0,QUITD-ASY5+10.0),
1979.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; FDFAP2:=MIN(QUITD,MAX(BIRTHD+65.0,
QUITD-ASY5+10.0),1980.0); SDFAP2:=MAX(HIRED,1979.0); FAP2:=ord(
FDFAP2>SDFAP2)*WAGE(FDFAP2)/12.0; FDFAP3:=MIN(QUITD,MAX(BIRTHD+
65.0,QUITD-ASY5+10.0)); SDFAP3:=MAX(HIRED,1980.0); FAP3:=ord(
FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3)/12.0; FDFAP4:=MIN(QUITD,
MAX(BIRTHD+65.0,QUITD-ASY5+10.0)); FAP4:=AVG(WAGE,MAX(HIRED,
FDFAP4-5.0),FDFAP4)/12.0; FAP5:=WAGE(MIN(QUITD,MAX(BIRTHD+65.0,
QUITD-ASY5+10.0)))/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,
BENIFITD)/12.0; RED4:=NN(1.0-0.03*o(65.0,AGE)); RED7:=AR(65.0-
AGE); RED13:=JSRED; RED14:=COSTRED; RAS1:=(AGE>=65.0)&(ASY5>=
10.0); RAS4:=(AGE>=55.0)&(ASY5>=10.0); RAS13:=(AGE>=45.0)&(ASY5>=
10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.012*u(
FAP1,1400.0)+0.016*o(FAP1,1400.0))*ASY1; NR1Q:=ord(RAS1)*NR1;
NR2:=(0.012*u(FAP2,1170.0)+0.018*o(FAP2,1170.0))*ASY2+(0.012*u(
FAP3,1970.0)+0.0135*o(FAP3,1970.0))*ASY3; NR2Q:=ord(RAS1)*NR2;
NR3:=3.25*u(ASY4,40.0); NR3Q:=ord(RAS1)*NR3; NR4:=(0.45*FAP4-0.5*
SS1)*(1.0-0.01*(30.0-u(ASY4,30.0))); NR4Q:=ord(RAS1)*NR4; NR5:=
0.75*(FAP5-SS1); NR5Q:=ord(RAS1)*NR5; NRT:=MIN(NR5,MAX(NR1+NR2,
NR3,NR4)); NRQ:=MIN(NR5Q,MAX(NR1Q+NR2Q,NR3Q,NR4Q))*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=MAX((NR1+NR2)*RED4,NR3*RED4,NR4*RED4);
ER1Q:=ord(RAS4)*ER1; ER2:=NR5; ER2Q:=ord(RAS4)*ER2; ERT:=MIN(ER1,
ER2); ERQ:=MIN(ER1Q,ER2Q)*12.0; VD1:=MAX((NR1+NR2)*RED7,NR3*RED7,
NR4*RED7); VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR5; VD2Q:=AA(BEG7,0.0)*
VD2; VDT:=MIN(VD1,VD2); VDQ:=MIN(VD1Q,VD2Q)*12.0; DRQ:=0.0; DS1:=
ER1*RED13*RED14*0.5; DS1Q:=ord(RAS13)*DS1; DST:=MIN(DS1,NR5);
DSQ:=MIN(DS1Q,NR5Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY5>=10.0)*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,
NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED14,RED13,RED7,RED4,
SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP5,FAP4,FDFAP4,FAP3,SDFAP3,
FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY5,SDASY5,ASY4,
ASY3,SDASY3,ASY2,SDASY2,ASY1,CNQ) <0 then negative end;

procedure c0547s1045; begin CNQ:=0.0; ASY1:=(MIN(QUITD,MAX(
BIRTHD+65.0,HIRED+10.0))-HIRED)*ord(WRKHRS>=1000.0)*1.0; FAP1:=
AVG(WAGE,HIRED,MIN(QUITD,MAX(BIRTHD+65.0,QUITD-ASY1+10.0)));
SS1:=SS(1.0,BENIFITD); RED10:=AR(65.0-AGE); RAS1:=(AGE>=65.0)&(
ASY1>=10.0); LNG13:=1.0; BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=
NNMIN(0.75*FAP1-0.66667*SS1,11368.75*12.0); NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0;
ERQ:=0.0; VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT*RED10; DR1Q:=DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=NRT*RED10*
5.666; DS1Q:=AA(QUITD,LNG13+QUITD)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=5.0)*0.25,ord(ASY1>=10.0)*
0.5,ord((ASY1>=15.0)!(QUITAGE>=65.0)&(ASY1>=10.0))*1.0)); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,LNG13,RED10,SS1,FAP1,ASY1,
CNQ) <0 then negative end;

procedure c0548s122; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; PSY4:=
BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.01; MAN7:=SUMI(
PCMAN7,4.0,0.0,SDMAN7,FDMAN7); SDMAN8:=HIRED; FDMAN8:=QUITD;
PCMAN8:=0.03; MAN8:=SUMI(PCMAN8,5.0,0.0,SDMAN8,FDMAN8); SS1:=SS(
1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=AR(NRD-BENIFITD); RED13:=
JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY2>=5.0); RAS10:=(
AGE>=45.0)&(ASY2>=10.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,QUITD); BEG10:=MAX(
BIRTHD+65.0,QUITD); NR1:=(0.6*FAP1-0.7*SS1)*u(ASY1,30.0)/30.0;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=AI(AGE,65.0,999.0)
*NRQ; MRAGE:=999.0; ER1:=(0.6*FAP1-0.7*SS1)*ASY1/MAX(30.0,PSY4)*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NR1; DR1Q:=ord(RAS10&ROT10)*AA(
BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*0.5; DS1Q:=
ord(RAS4)*DS1; DS2:=NRT*RED13*0.5; DS2Q:=ord(RAS1)*DS2; DST:=MAX(
DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(MAX(ord(
ASY2>=5.0)*0.5,ord(ASY2>=6.0)*0.6,ord((QUITAGE>=65.0)!(ASY2>=
10.0)!(QUITAGE>=55.0)&(ASY2>=5.0))*1.0)); if min( VEDB,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG8,BEG7,
RED13,RED4,SS1,MAN8,PCMAN8,FDMAN8,SDMAN8,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP1,SDFAP1,FDFAP1,PSY4,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0549s583; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1976.0)-
HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1976.0))*ord(WRKHRS>=1000.0)
*1.0; ASY13:=NN(MIN(QUITD,BIRTHD+40.0)-MAX(HIRED,BIRTHD+18.0))*
ord(WRKHRS>=1000.0)*1.0; ASY14:=NN(MIN(QUITD,BIRTHD+50.0)-MAX(
HIRED,BIRTHD+40.0))*ord(WRKHRS>=1000.0)*1.0; ASY15:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,BIRTHD+50.0))*ord(WRKHRS>=1000.0)*1.0;
PSY4:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-60.0/12.0),FDFAP1)/12.0; FDFAP13:=MIN(QUITD,BIRTHD+40.0);
FAP13:=ord(FDFAP13>HIRED)*AVGMIN(40000.0,WAGE,HIRED,FDFAP13);
FDFAP14:=MIN(QUITD,BIRTHD+50.0); SDFAP14:=MAX(HIRED,BIRTHD+40.0);
FAP14:=ord(FDFAP14>SDFAP14)*AVGMIN(40000.0,WAGE,SDFAP14,FDFAP14)
;FDFAP15:=MIN(QUITD,BIRTHD+65.0); SDFAP15:=MAX(HIRED,BIRTHD+50.0)
;FAP15:=ord(FDFAP15>SDFAP15)*AVGMIN(40000.0,WAGE,SDFAP15,FDFAP15)
;SDVOL7:=HIRED; FDVOL7:=QUITD; PCVOL7:=MAX(100.0,MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL7:=SUMI(PCVOL7,
2.0,0.0,SDVOL7,FDVOL7); SS1:=SS(1.0,BENIFITD)/12.0; SS10:=SS(5.0,
BENIFITD)/12.0; RED4:=NN(1.0-0.0667*o(65.0,AGE)); RED7:=1.0-(
0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RAS1:=AGE>=
65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=60.0)&(ASY51>=10.0); RAS10:=(
AGE>=30.0)&(ASY51>=5.0); ROT10:=QSSDABLE; ROT11:=^QSSDABLE;
LNG10:=BIRTHD+65.0; LNG13:=1.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=0.024*FAP1*u(ASY1+
ASY2,25.0)+0.01*FAP1*o(ASY1+ASY2,25.0)-0.02*SS1*(ASY1+ASY2);
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NRT*(ASY1+ASY2)/PSY4*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=NRT*(ASY1+ASY2)/PSY4*RED7; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=0.024*FAP1*u(PSY4,
25.0)+0.01*FAP1*o(PSY4,25.0)-0.02*SS10*u(PSY4,25.0); DR1Q:=ord(
RAS10&ROT10)*DR1; DR2:=0.024*FAP1*u(PSY4,25.0)+0.01*FAP1*o(PSY4,
25.0); DR2Q:=ord(RAS10&ROT11)*AA(QUITD,LNG10)*DR2; DR3:=NRT*(
ASY1+ASY2)/PSY4; DR3Q:=ord(RAS10&ROT11)*AA(BEG11,0.0)*DR3; DR4:=
DR1; DR4Q:=ord(ROT10)*AA(BEG11,0.0)*DR4; DR5:=DR3; DR5Q:=ord(
ROT11)*AA(BEG11,0.0)*DR5; DRT:=MAX(DR1,DR2+DR3,DR4,DR5); DRQ:=
MAX(DR1Q,DR2Q+DR3Q,DR4Q,DR5Q)*12.0; DS1:=(0.15*FAP13*ASY13+0.3*
FAP14*ASY14+0.5*FAP15*ASY15)*u(ASY1+ASY2,25.0)/25.0; DS1Q:=AA(
QUITD,LNG13+QUITD)*DS1; DS2:=350000.0; DS2Q:=AA(QUITD,LNG13+
QUITD)*DS2; DST:=MIN(DS1,DS2); DSQ:=MIN(DS1Q,DS2Q); PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR5Q,DR5,DR4Q,DR4,DR3Q,
DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG7,LNG13,LNG10,ASY51,RED7,RED4,
SS10,SS1,VOL7,PCVOL7,FDVOL7,SDVOL7,FAP15,SDFAP15,FDFAP15,FAP14,
SDFAP14,FDFAP14,FAP13,FDFAP13,FAP1,FDFAP1, PSY4,ASY15,ASY14,
ASY13,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0550s134; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; ASY5:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,
BIRTHD+22.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(
FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
FDSS1:=MIN(QUITD,BIRTHD+65.0); SS1:=ord(FDSS1>HIRED)*SSBASE(
BENIFITD); RED4:=NN(1.0-0.08*o(65.0,AGE)); RED13:=JSRED; RED14:=
COSTRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)&(ASY4>=15.0); RAS10:=
(AGE>=60.0)&(ASY4>=10.0); ROT7:=ASY4>=15.0; ROT10:=QSSDABLE;
BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+60.0,BIRTHD+
65.0); NR1:=(0.01*u(FAP1,SS1)+0.0175*o(FAP1,SS1))*ASY1; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=(1.0+0.12*b(AGE,65.0,
68.0)+0.2*b(AGE,68.0,70.0))*NRQ; MRAGE:=70.0; ER1:=NR1*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(
BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=ERT; DR1Q:=ord(RAS10&
ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*RED14*0.5; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY5>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,RED14,RED13,RED4,
SS1,FDSS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY5,ASY4,ASY1,
CNQ) <0 then negative end;

procedure c0551s654; begin CNQ:=0.0; ASY1:=NNMIN(25.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+60.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,97.0,0.0,SDMAN7,
FDMAN7); SDMAN8:=HIRED; FDMAN8:=QUITD; PCMAN8:=MANNAR; MAN8:=
SUMI(PCMAN8,97.0,0.0,SDMAN8,FDMAN8); SS1:=SSBASE(BENIFITD)/12.0;
RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0));
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0);
BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.16*u(FAP1,SS1)+0.4*o(FAP1,
SS1))*ASY1/25.0; NR1Q:=ord(RAS1)*NR1; NR2:=50.0; NR2Q:=ord(RAS1)*
NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=AI(AGE,
65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=0.5*ERT*RED13; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,SS1,MAN8,PCMAN8,
FDMAN8,SDMAN8,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,ASY1,
CNQ) <0 then negative end;

procedure c0552s941; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/12.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
48.0/12.0),FDFAP1)/12.0; FDFAP10:=MIN(QUITD,BIRTHD+70.0);
SDFAP10:=MAX(HIRED,FDFAP10-12.0/12.0); FAP10:=ord(
FDFAP10>SDFAP10)*AVG(WAGE,SDFAP10,FDFAP10)/12.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=0.045; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,
FDMAN7); SS10:=SS(5.0,BENIFITD)/12.0; RED4:=NN(1.0-0.06*o(60.0,
AGE)); RED10:=OTHERB; RED13:=JSRED; RAS1:=(AGE>=60.0)&(ASY1>=8.0)
!(AGE>=55.0)&(ASY1>=35.0); RAS4:=(AGE>=55.0)&(ASY1>=8.0); RAS10:=
ASY1>=1.0; LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=0.01667*FAP1*u(ASY1,15.0)+0.02*FAP1*o(ASY1,15.0);
NR1Q:=ord(RAS1)*NR1; NR2:=0.75*FAP1; NR2Q:=ord(RAS1)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0;
VD1:=MAX(30.0,ERT); VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*
12.0; DR1:=0.5*FAP10-SS10-RED10; DR1Q:=ord(RAS10)*AA(QUITD,LNG10)
*DR1; DR2:=10.0; DR2Q:=ord(RAS10)*AA(QUITD,LNG10)*DR2; DRT:=MAX(
DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=ERT*RED13*0.5; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=NN(ACPIG-0.0);
VEDB:=VOPT(ord(ASY1>=8.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,
DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,LNG10,RED13,RED10,RED4,
SS10,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP10,SDFAP10,FDFAP10,FAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0553s638; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/12.0; RED4:=NN(1.0-0.03*o(
62.0,AGE)); RED5:=NN(1.0-0.03*o(90.0,AGE+ASY1)); RED7:=AR(65.0-
AGE); RED13:=JSRED; RAS1:=(AGE+ASY1>=90.0)!(AGE+ASY1>=80.0)&(
AGE>=62.0); RAS2:=AGE+ASY1>=90.0; RAS4:=AGE+ASY1>=80.0; RAS13:=(
ASY1>=15.0)!(AGE+ASY1>=5.0)&(AGE>=65.0); LNG2:=BIRTHD+62.0;
BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=MAX(BIRTHD+80.0-ASY1,QUITD);
NR1:=0.011*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.5*FAP1-0.5*
SS1)*u(ASY1,35.0)/35.0; NR2Q:=ord(RAS1)*NR2; NR3:=(AGE+ASY1)*2.0;
NR3Q:=ord(RAS1)*NR3; NR4:=150.0; NR4Q:=ord(RAS2)*AA(QUITD,LNG2)*
NR4; NRT:=MAX(NR1,NR2,NR3)+NR4; NRQ:=(MAX(NR1Q,NR2Q,NR3Q)+NR4Q)*
12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*MAX(RED4,RED5); ER1Q:=ord(
RAS4)*ER1; ER2:=NR2*MAX(RED4,RED5); ER2Q:=ord(RAS4)*ER2; ER3:=
NR3; ER3Q:=ord(RAS4)*ER3; ERT:=MAX(ER1,ER2,ER3); ERQ:=MAX(ER1Q,
ER2Q,ER3Q)*12.0; VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR1*RED7;
VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*
12.0; DRQ:=0.0; DS1:=NRT*RED13*0.5; DS1Q:=ord(RAS13)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,LNG2,RED13,RED7,RED5,RED4,
SS1,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0554s801; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1976.0)-
HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(QUITD-MAX(HIRED+1.0,
BIRTHD+25.0,1976.0))*ord(WRKHRS>=1000.0)*1.0; ASY3:=(QUITD-HIRED)
*ord(WRKHRS>=1000.0)*1.0; PSY1:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1)/12.0; FDFAP2:=
QUITD; FAP2:=AVG(WAGE,MAX(HIRED,FDFAP2-3.0),FDFAP2); SS1:=SS(1.0,
MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=1.0-(0.0333*a(AGE,60.0,
55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY3>=15.0)!(AGE>=60.0)&(ASY3>=10.0); ROT1:=
PARTD<1976.0; ROT2:=1976.0<=QUITD; BEG7:=MAX(ERD,QUITD); NR1:=
MAX(0.04*FAP1*u(PSY1,15.0)-0.5*SS1,50.0)*ASY1/PSY1; NR1Q:=ord(
RAS1&ROT1)*NR1; NR2:=MAX(0.03*FAP1*u(PSY1,20.0)-0.5*SS1,50.0)*
ASY2/PSY1; NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=FAP2*u(ASY3,10.0)/10.0;
NR3Q:=ord(RAS1)*NR3; NR4:=10000.0/12.0*u(ASY3,10.0)/10.0; NR4Q:=
ord(RAS1)*NR4; NRT:=MIN(NR3,MAX(NR1,NR2,NR4)); NRQ:=MIN(NR3Q,MAX(
NR1Q,NR2Q,NR4Q))*12.0; LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0;
ER1:=NR1*RED4; ER1Q:=ord(RAS4&ROT1)*ER1; ER2:=NR2*RED4; ER2Q:=
ord(RAS4&ROT2)*ER2; ER3:=NR3*RED4; ER3Q:=ord(RAS4)*ER3; ER4:=NR4*
RED4; ER4Q:=ord(RAS4)*ER4; ERT:=MIN(ER3,MAX(ER1,ER2,ER4)); ERQ:=
MIN(ER3Q,MAX(ER1Q,ER2Q,ER4Q)); VD1:=ER1; VD1Q:=ord(ROT1)*AA(BEG7,
0.0)*VD1; VD2:=ER2; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*VD2; VD3:=ER3;
VD3Q:=AA(BEG7,0.0)*VD3; VD4:=ER4; VD4Q:=AA(BEG7,0.0)*VD4; VDT:=
MIN(VD3,MAX(VD1,VD2,VD4)); VDQ:=MIN(VD3Q,MAX(VD1Q,VD2Q,VD4Q));
DRQ:=0.0; DS1:=ER1*RED13*0.5; DS1Q:=ord(RAS4&ROT1)*DS1; DS2:=ER2*
RED13*0.5; DS2Q:=ord(RAS4&ROT2)*DS2; DS3:=ER3*RED13*0.5; DS3Q:=
ord(RAS4)*DS3; DS4:=ER4*RED13*0.5; DS4Q:=ord(RAS4)*DS4; DST:=MIN(
DS3,MAX(DS1,DS2,DS4)); DSQ:=MIN(DS3Q,MAX(DS1Q,DS2Q,DS4Q))*12.0;
PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY3>=10.0)*0.5,ord(ASY3>=12.0)*
0.7,ord((QUITAGE>=65.0)!(ASY3>=15.0))*1.0)); if min( VEDB,PRAG,
DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD4Q,
VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,
ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,
NR1,BEG7,RED13,RED4,SS1,FAP2,FDFAP2,FAP1,FDFAP1,PSY1,ASY3,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0555s851; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-1.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.0627;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SDVOL7:=HIRED; FDVOL7:=
QUITD; PCVOL7:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL7:=
SUMI(PCVOL7,2.0,0.0,SDVOL7,FDVOL7); RED4:=NN(1.0-0.05*o(60.0,AGE)
); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY1>=10.0);
RAS4:=(AGE>=50.0)&(ASY1>=20.0); RAS10:=ASY1>=10.0; BEG7:=ANYTIME(
BIRTHD+50.0,BIRTHD+60.0); NR1:=0.02*FAP1*ASY1; NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=65.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=0.4*FAP1;
DR1Q:=ord(RAS10)*DR1; DR2:=0.018*FAP1*ASY1; DR2Q:=ord(RAS10)*DR2;
DRT:=MIN(DR1,DR2); DRQ:=MIN(DR1Q,DR2Q)*12.0; DS1:=ERT*RED13*0.5;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,
ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,VOL7,
PCVOL7,FDVOL7,SDVOL7,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0556s437; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0))*1.0; ASY2:=(QUITD-HIRED)*1.0; PSY4:=NN(BIRTHD+
65.0-MAX(HIRED+1.0,BIRTHD+25.0)); FDFAP1:=MIN(QUITD,BIRTHD+65.0);
SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; SS1:=SSBASE(BENIFITD)/12.0; RED4:=1.0-(
0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED;
RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY2>=25.0); RAS4:=AGE>=55.0;
LNG13:=10.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.01*FAP1*ASY1+0.01*o(
FAP1,SS1)*u(ASY1,25.0)*u(ASY1,15.0)/15.0; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*ASY1/
PSY4*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=ERT;
DR1Q:=AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*
RED13; DS1Q:=ord(RAS4)*AA(QUITD,LNG13+QUITD)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASY2>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,
BEG7,LNG13,RED13,RED4,SS1,FAP1,SDFAP1,FDFAP1,PSY4,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0557s700; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=
NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FDFAP2:=MIN(
QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,FDFAP2-3.0); FAP2:=ord(
FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); SS1:=SSBASE(BENIFITD);
RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0));
RED7:=AR(NRD-BENIFITD); RED10:=NN(1.0-(0.0167*o(50.0,AGE)+0.028*
a(AGE,55.0,50.0)+0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0)
)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0)
;RAS10:=ASY1>=10.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
(0.3*FAP1+0.3333*o(FAP1,SS1))*u(ASY1,30.0)/30.0; NR1Q:=ord(RAS1)*
NR1; NR2:=(0.3*FAP2+0.3333*o(FAP2,SS1))*u(ASY1,30.0)/30.0; NR2Q:=
ord(RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q); LRQ:=(1.0+
0.1*b(AGE,65.0,70.0))*NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT*RED10; DR1Q:=ord(RAS10)*DR1;
DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED10,RED7,RED4,SS1,FAP2,SDFAP2,
FDFAP2,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0559s725; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; PSY7:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,
BENIFITD)/12.0; SS2:=SS(2.0,BENIFITD)/12.0; RED4:=NN(1.0-0.06*o(
62.0,AGE)); RED7:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,
60.0)); RED10:=NN(1.0-0.03*o(60.0,AGE)); RED11:=NN(1.0-(0.03*o(
60.0,AGE)+0.06*a(AGE,62.0,60.0))); RED13:=JSRED; RAS1:=(AGE>=
65.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0);
RAS10:=(ASY1>=15.0)!(AGE>=55.0)&(ASY1>=10.0); ROT2:=PARTD<1974.0;
ROT3:=AGE<=65.0; LNG4:=BIRTHD+62.0; BGN5:=MAX(BIRTHD+62.0,QUITD);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.015*FAP1*u(ASY1,
25.0)+0.0125*FAP1*o(ASY1,25.0)-0.0125*SS1*u(ASY1,40.0); NR1Q:=
ord(RAS1&ROT2)*NR1; NR2:=24.0*u(ASY1,25.0)+12.0*o(ASY1,25.0);
NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=0.015*FAP1*u(ASY1,25.0)+0.0125*
FAP1*b(ASY1,25.0,40.0)-0.0125*SS1*u(ASY1,40.0); NR3Q:=ord(RAS1)*
NR3; NR4:=24.0*u(ASY1,25.0)+12.0*b(ASY1,25.0,40.0); NR4Q:=ord(
RAS1)*NR4; NR5:=0.015*FAP1*u(ASY1,25.0)+0.0125*FAP1*o(ASY1,25.0)-
0.0125*SS2*u(ASY1,40.0); NR5Q:=ord(RAS1&ROT3)*NR5; NRT:=MAX(NR1,
NR2,NR3,NR4,NR5); NRQ:=MAX(NR1Q,NR2Q,NR3Q,NR4Q,NR5Q)*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=(0.015*FAP1*u(ASY1,25.0)+0.0125*FAP1*o(
ASY1,25.0))*RED4; ER1Q:=ord(RAS4&ROT2)*AA(QUITD,LNG4)*ER1; ER2:=
NR2*RED4; ER2Q:=ord(RAS4&ROT2)*ER2; ER3:=NR5*RED4; ER3Q:=ord(
RAS4)*AA(BGN5,0.0)*ER3; ER4:=(0.015*FAP1*u(ASY1,25.0)+0.0125*
FAP1*b(ASY1,25.0,40.0))*RED4; ER4Q:=ord(RAS4)*AA(QUITD,LNG4)*ER4;
ER5:=NR4*RED4; ER5Q:=ord(RAS4)*ER5; ERT:=MAX(ER1+ER3,ER4+ER3,MAX(
ER2,ER5)); ERQ:=MAX(ER1Q+ER3Q,ER4Q+ER3Q,MAX(ER2Q,ER5Q))*12.0;
VD1:=(0.015*FAP1*u(PSY7,25.0)+0.0125*FAP1*b(PSY7,25.0,40.0)-
0.0125*SS1*PSY7)*ASY1/PSY7*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=(
24.0*u(PSY7,25.0)+12.0*b(PSY7,25.0,40.0))*ASY1/PSY7*RED7; VD2Q:=
AA(BEG7,0.0)*VD2; VD3:=(24.0*u(PSY7,25.0)+12.0*o(PSY7,25.0))*
ASY1/PSY7*RED7; VD3Q:=ord(ROT2)*AA(BEG7,0.0)*VD3; VDT:=MAX(VD1,
VD2,VD3); VDQ:=MAX(VD1Q,VD2Q,VD3Q)*12.0; DR1:=NR5*RED10; DR1Q:=
ord(RAS10)*DR1; DR2:=NR2*RED11; DR2Q:=ord(RAS10&ROT2)*DR2; DR3:=
NR4*RED11; DR3Q:=ord(RAS10)*DR3; DRT:=MAX(DR1,MAX(DR2,DR3));
DRQ:=MAX(DR1Q,MAX(DR2Q,DR3Q))*12.0; DS1:=ER1; DS1Q:=ord(RAS4&
ROT2)*AA(QUITD,LNG4)*DS1; DS2:=ER2; DS2Q:=ord(RAS4&ROT2)*DS2;
DS3:=ER3; DS3Q:=ord(RAS4)*AA(BGN5,0.0)*DS3; DS4:=ER4; DS4Q:=ord(
RAS4)*AA(QUITD,LNG4)*DS4; DS5:=ER5; DS5Q:=ord(RAS4)*DS5; DST:=
0.5*MAX(DS1+DS3,DS4+DS3,MAX(DS2,DS5)*RED13); DSQ:=0.5*MAX(DS1Q+
DS3Q,DS4Q+DS3Q,MAX(DS2Q,DS5Q)*RED13)*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS5Q,DS5,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,
DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,
ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,BGN5,LNG4,
RED13,RED11,RED10,RED7,RED4, SS2,SS1,FAP1,SDFAP1,FDFAP1,PSY7,
ASY1,CNQ) <0 then negative end;

procedure c0560s917; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/1000.0); ASY2:=(QUITD-HIRED)*
ord(WRKHRS>=1000.0)*1.0; RED13:=JSRED; RAS1:=(AGE>=62.0)&(ASY2>=
10.0); RAS10:=ASY2>=10.0; BEG7:=MAX(BIRTHD+62.0,QUITD); NR1:=4.0*
ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ;
MRAGE:=999.0; ERQ:=0.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1;
DRQ:=DR1Q*12.0; DS1:=0.5*NRT*RED13; DS1Q:=ord(RAS1)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY2>=10.0)*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0561s844; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=870.0)*1.0; ASY2:=NN(QUITD-MAX(HIRED+1.0,BIRTHD+25.0))*
NNMIN(1.0,WRKHRS/1200.0); FAP1:=AVG(WAGE,HIRED,QUITD); SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,
SDMAN7,FDMAN7); RED4:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(AGE>=
65.0)!(AGE+ASY1>=90.0); RAS4:=(AGE>=55.0)&(ASY1>=20.0); RAS10:=
ASY1>=20.0; LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=0.011*FAP1*ASY2;
NR1Q:=ord(RAS1)*NR1; NR2:=114.0*ASY2; NR2Q:=ord(RAS1)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=MIN(6000.0,MAX(
600.0,NRT)); DR1Q:=ord(RAS10)*AA(QUITD,LNG10)*DR1; DR2:=NRT;
DR2Q:=ord(RAS10)*AA(BEG11,0.0)*DR2; DRT:=DR1+DR2; DRQ:=DR1Q+DR2Q;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG11,BEG7,LNG10,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0562s948; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*AVG(WAGE,
HIRED,FDFAP1); FDSS1:=MIN(QUITD,BIRTHD+65.0); SS1:=ord(
FDSS1>HIRED)*SSBASE(BENIFITD); RED4:=NN(1.0-0.05*o(65.0,AGE));
RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=
55.0)&(ASY1>=10.0); RAS10:=ASY1>=15.0; RAS13:=(AGE>=30.0)!(AGE>=
55.0)&(ASY1>=10.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG10:=ANYTIME(0.0,BIRTHD+65.0); NR1:=(0.01*u(FAP1,
SS1)+0.015*o(FAP1,SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=MIN(
25000.0,NR1); NRQ:=MIN(25000.0,NR1Q); LRQ:=NRQ; MRAGE:=999.0;
ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NR1;
DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,
RED13,RED7,RED4,SS1,FDSS1,FAP1,FDFAP1,ASY1,CNQ) <0 then negative
end;

procedure c0563s607; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1979.0)-
HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1979.0))
*NNMIN(1.0,WRKHRS/2280.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-5.0),FDFAP1); SDVOL7:=HIRED; FDVOL7:=QUITD; PCVOL7:=
MAX(100.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,FDVOL7); RED4:=AR(
65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2;
RAS4:=(AGE>=55.0)&(ASY51>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=0.012*FAP1*u(ASY1+ASY2,30.0); NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,ASY51,RED13,RED4,VOL7,PCVOL7,FDVOL7,
SDVOL7,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0564s440; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1)
;SS1:=AVG(SSBASE,HIRED,QUITD); SS2:=SS(1.0,MAX(BENIFITD,BIRTHD+
65.0)); SS3:=SS(2.0,MAX(BENIFITD,BIRTHD+62.0)); RED4:=AR(55.0-
AGE); RED5:=AR(60.0-AGE); RED7:=AR(65.0-AGE); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS2:=(AGE>=60.0)&(ASY1>=5.0)!(AGE>=55.0)&(
ASY1>=30.0); RAS4:=ASY1>=30.0; RAS5:=(AGE>=55.0)&(ASY1>=5.0);
RAS10:=(AGE>=50.0)&(ASY1>=5.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); NR1:=(0.0125*u(FAP1,SS1)+0.0175*o(FAP1,SS1))*ASY1; NR1Q:=
ord(RAS1)*NR1; NR2:=192.0*ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=FAP1-
SS2; NR3Q:=ord(RAS1)*NR3; NR4:=MAX(NR1,NR2); NR4Q:=ord(RAS2)*NR4;
NR5:=FAP1-SS3; NR5Q:=ord(RAS2)*NR5; NRT:=MAX(MIN(NR3,MAX(NR1,NR2)
),MIN(NR4,NR5)); NRQ:=MAX(MIN(NR3Q,MAX(NR1Q,NR2Q)),MIN(NR4Q,NR5Q)
); LRQ:=NRQ; MRAGE:=70.0; ER1:=MIN(NR4,NR5)*RED4; ER1Q:=ord(RAS4)
*ER1; ER2:=MIN(NR4,NR5)*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,
ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=ER2; DR1Q:=ord(RAS10)*DR1; DRT:=DR1;
DRQ:=DR1Q; DS1:=0.5*ER2*RED13; DS1Q:=ord(RAS5)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=6.0)*0.2,ord(
ASY1>=8.0)*0.6,ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0)); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED7,RED5,RED4,SS3,SS2,
SS1,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0565s441; begin CNQ:=0.0; ASY1:=MIN(35.0,QUITD-HIRED)*
1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),
FDFAP1); SS1:=AVG(SSBASE,HIRED,QUITD); RED4:=AR(60.0-AGE); RED5:=
AR(55.0-AGE); RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(AGE>=65.0)
!(AGE>=60.0)&(ASY1>=5.0)!(AGE>=55.0)&(ASY1>=30.0); RAS4:=(AGE>=
55.0)&(ASY1>=5.0); RAS5:=ASY1>=30.0; RAS10:=(AGE>=50.0)&(ASY1>=
5.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.0125*u(
FAP1,SS1)+0.0175*o(FAP1,SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=
0.015*u(FAP1,13500.0)*u(ASY1,30.0); NR2Q:=ord(RAS1)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5; ER2Q:=ord(RAS5)*
ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=NRT*RED7;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ERT; DR1Q:=ord(
RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(
ASY1>=6.0)*0.2,ord(ASY1>=8.0)*0.6,ord((QUITAGE>=65.0)!(ASY1>=
10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED7,RED5,RED4,SS1,FAP1,FDFAP1,
ASY1,CNQ) <0 then negative end;

procedure c0566s770; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-60.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); SS1:=SS(1.0,BENIFITD); RED4:=NN(1.0-0.03*o(65.0,
AGE)); RED5:=NN(1.0-0.04*o(65.0,AGE)); RED6:=1.0-(0.05*a(AGE,
60.0,55.0)+0.04*a(AGE,65.0,60.0)); RAS1:=(AGE>=65.0)!(AGE>=62.0)&
(ASY1>=30.0); RAS4:=(AGE>=62.0)&(ASY1>=10.0); RAS5:=(AGE>=60.0)&(
ASY1>=10.0); RAS6:=(AGE>=55.0)&(ASY1>=10.0); RAS13:=ASY1>=10.0;
LNG13:=1.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.015*
FAP1*ASY1-0.0125*SS1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=600.0;
NR2Q:=ord(RAS1)*NR2; NR3:=100.0+0.01*b(FAP1,8000.0,13000.0);
NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,
NR3Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*
ER1; ER2:=NRT*RED5; ER2Q:=ord(RAS5)*ER2; ER3:=NRT*RED6; ER3Q:=
ord(RAS6)*ER3; ERT:=MAX(ER1,ER2,ER3); ERQ:=MAX(ER1Q,ER2Q,ER3Q);
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0;
DS1:=ERT; DS1Q:=ord(RAS13)*DS1; DS2:=1000.0; DS2Q:=ord(RAS13)*AA(
QUITD,LNG13+QUITD)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q);
PRAG:=0.0; VEDB:=VOPT(MAX(ord((ASY1>=10.0)!(QUITAGE>=35.0)&(
ASY1>=5.0))*0.5,ord((ASY1>=11.0)!(QUITAGE>=35.0)&(ASY1>=6.0))*
0.6,ord((QUITAGE>=65.0)!(ASY1>=15.0)!(QUITAGE>=29.0)&(ASY1>=
12.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,LNG13,RED6,RED5,RED4,
SS1,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0567s688; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/12.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
5.0),FDFAP1)/12.0; RED4:=NN(1.0-0.04*o(62.0,AGE)); RED7:=NN(1.0-
0.04*o(65.0,AGE)); RED13:=COSTRED; RED14:=JSRED; RAS1:=(AGE>=
65.0)&(ASY1>=5.0)!(AGE>=62.0)&(ASY1>=10.0)!(AGE>=58.0)&(ASY1>=
30.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; DAT1:=
QUITD<1983.417; DAT2:=(1983.417<=QUITD)&(QUITD<1984.417); DAT3:=
1984.417<=QUITD; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
13.5*ASY1; NR1Q:=ord(RAS1&DAT1)*NR1; NR2:=13.75*ASY1; NR2Q:=ord(
RAS1&DAT2)*NR2; NR3:=14.75*ASY1; NR3Q:=ord(RAS1&DAT3)*NR3; NR4:=
0.01*FAP1*ASY1; NR4Q:=ord(RAS1)*NR4; NRT:=MAX(NR1,NR2,NR3,NR4);
NRQ:=MAX(NR1Q,NR2Q,NR3Q,NR4Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=
NR1*RED4; ER1Q:=ord(RAS4&DAT1)*ER1; ER2:=NR2*RED4; ER2Q:=ord(
RAS4&DAT2)*ER2; ER3:=NR3*RED4; ER3Q:=ord(RAS4&DAT3)*ER3; ER4:=
NR4*RED4; ER4Q:=ord(RAS4)*ER4; ERT:=MAX(ER1,ER2,ER3,ER4); ERQ:=
MAX(ER1Q,ER2Q,ER3Q,ER4Q)*12.0; VD1:=NR1*RED7; VD1Q:=ord(DAT1)*AA(
BEG7,0.0)*VD1; VD2:=NR2*RED7; VD2Q:=ord(DAT2)*AA(BEG7,0.0)*VD2;
VD3:=NR3*RED7; VD3Q:=ord(DAT3)*AA(BEG7,0.0)*VD3; VD4:=NR4*RED7;
VD4Q:=AA(BEG7,0.0)*VD4; VDT:=MAX(VD1,VD2,VD3,VD4); VDQ:=MAX(VD1Q,
VD2Q,VD3Q,VD4Q)*12.0; DR1:=MAX(NR1,225.0); DR1Q:=ord(RAS10&DAT1)*
DR1; DR2:=MAX(NR2,225.0); DR2Q:=ord(RAS10&DAT2)*DR2; DR3:=MAX(
NR3,225.0); DR3Q:=ord(RAS10&DAT3)*DR3; DR4:=MAX(NR4,225.0);
DR4Q:=ord(RAS10)*DR4; DRT:=MAX(DR1,DR2,DR3,DR4); DRQ:=MAX(DR1Q,
DR2Q,DR3Q,DR4Q)*12.0; DS1:=0.5*ER1*RED13*RED14; DS1Q:=ord(RAS4&
DAT1)*DS1; DS2:=0.5*ER2*RED13*RED14; DS2Q:=ord(RAS4&DAT2)*DS2;
DS3:=0.5*ER3*RED13*RED14; DS3Q:=ord(RAS4&DAT3)*DS3; DS4:=0.5*ER4*
RED13*RED14; DS4Q:=ord(RAS4)*DS4; DST:=MAX(DS1,DS2,DS3,DS4);
DSQ:=MAX(DS1Q,DS2Q,DS3Q,DS4Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((
ASY1>=10.0)!(QUITAGE>=65.0)&(ASY1>=5.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,
DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED14,RED13,
RED7,RED4,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0568s573; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1976.0)-
HIRED)*ord(WRKHRS>=1040.0)*1.0; ASY2:=NN(QUITD-MAX(HIRED+1.0,
BIRTHD+25.0,1976.0))*NNMIN(1.0,WRKHRS/2080.0); ASY3:=(QUITD-
HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,
MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/
12.0; SS4:=SS(2.0,BENIFITD)/12.0; RED4:=AR(NRD-BENIFITD); RED10:=
OTHERB; RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY3>=5.0);
RAS4:=(AGE>=55.0)&(ASY3>=10.0); RAS10:=AGE>=55.0; RAS13:=ASY3>=
10.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(NRD,
QUITD); BEG11:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG13:=MAX(ERD,
QUITD); NR1:=0.02*FAP1*u(ASY1+ASY2,25.0); NR1Q:=ord(RAS1)*NR1;
NR2:=0.75*FAP1-0.5*SS1; NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,NR2);
NRQ:=MIN(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4;
ER1Q:=ord(RAS4)*ER1; ER2:=(0.75*FAP1-0.5*SS4)*RED4; ER2Q:=ord(
RAS4)*ER2; ERT:=MIN(ER1,ER2); ERQ:=MIN(ER1Q,ER2Q)*12.0; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT;
DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DR2:=ER1-RED10; DR2Q:=ord(
RAS10)*AA(BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*
12.0; DS1:=0.5*NR1*(0.5+0.05*b(ASY3,10.0,20.0))*RED13; DS1Q:=ord(
RAS13)*AA(BEG13,0.0)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY3>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG13,BEG11,BEG10,BEG7,RED13,RED10,RED4,SS4,SS1,FAP1,FDFAP1,
ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0569s994; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.065; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); SDVOL7:=HIRED; FDVOL7:=QUITD; PCVOL7:=
MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,FDVOL7); RED4:=1.0-(
0.018*a(AGE,52.0,50.0)+0.0218*a(AGE,57.0,52.0)+0.0266*a(AGE,
60.0,57.0)); RED13:=JSRED; RAS1:=(ASY1>=25.0)!(AGE>=60.0)&(ASY1>=
1.0); RAS2:=(AGE>=60.0)&(ASY1>=10.0); RAS4:=ASY1>=25.0; RAS10:=
ASY1>=5.0; RAS13:=(AGE>=60.0)!(ASY1>=25.0); RAS14:=(AGE>=60.0)&(
ASY1>=10.0); LNG10:=5.0; BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+60.0);
NR1:=0.02*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=1200.0; NR2Q:=ord(
RAS2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=0.6667*FAP1; DR1Q:=ord(RAS10)*AA(QUITD,LNG10+QUITD)*DR1;
DRT:=DR1; DRQ:=DR1Q; DS1:=NR1*RED13; DS1Q:=ord(RAS13)*DS1; DS2:=
NR2*RED13; DS2Q:=ord(RAS14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(
DS1Q,DS2Q); PRAG:=MIN(0.95*ACPIG,0.04); VEDB:=VOPT(ord(ASY1>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG7,LNG10,RED13,RED4,VOL7,PCVOL7,FDVOL7,
SDVOL7,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0570s995; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
PSY10:=BIRTHD+60.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
0.05; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SS10:=SS(5.0,
BENIFITD); RED4:=1.0-(0.018*a(AGE,52.0,50.0)+0.0218*a(AGE,57.0,
52.0)+0.0266*a(AGE,60.0,57.0)); RED10:=OTHERB; RAS1:=(AGE>=60.0)!
(ASY1>=25.0); RAS2:=(AGE>=60.0)&(ASY1>=10.0); RAS4:=ASY1>=25.0;
RAS10:=ASY1>=10.0; RAS11:=ASY1>=25.0; RAS12:=ASY1>=30.0; RAS13:=
ASY1>=10.0; LNG10:=BIRTHD+60.0; BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+
60.0); BEG13:=MAX(BIRTHD+60.0,QUITD); NR1:=0.02*FAP1*ASY1; NR1Q:=
ord(RAS1)*NR1; NR2:=1200.0; NR2Q:=ord(RAS2)*NR2; NRT:=MAX(NR1,
NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=0.25*FAP1*RED4; DR1Q:=
ord(RAS10)*AA(QUITD,LNG10)*DR1; DR2:=0.018*FAP1*PSY10*RED4;
DR2Q:=ord(RAS11)*AA(QUITD,LNG10)*DR2; DR3:=NN(0.6667*FAP1-SS10-
RED10); DR3Q:=ord(RAS10)*AA(QUITD,LNG10)*DR3; DR4:=NRT; DR4Q:=
ord(RAS12)*AA(QUITD,LNG10)*DR4; DRT:=MAX(DR1,DR2,DR3,DR4); DRQ:=
MAX(DR1Q,DR2Q,DR3Q,DR4Q); DS1:=1200.0; DS1Q:=ord(RAS13)*AA(BEG13,
0.0)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,
DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG13,BEG7,LNG10,RED10,RED4,
SS10,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,PSY10,ASY1,CNQ) <0
then negative end;

procedure c0571s804; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); SS1:=SS(1.0,BENIFITD); RED10:=AR(65.0-AGE);
RAS1:=(AGE>=65.0)&(ASY1>=10.0); RAS13:=ASY1>=1.0; ROT10:=
QSSDABLE; BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=(FAP1-0.74*SS1)*u(
ASY1,38.0)/38.0; NR1Q:=ord(RAS1)*NR1; NRT:=NN(NR1-0.1*OTHCONT(
803.0)); NRQ:=NN(NR1-0.1*OTHCONT(803.0)); LRQ:=NRQ; MRAGE:=999.0;
ERQ:=0.0; VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NR1*RED10; DR1Q:=ord(ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=
DR1; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=
VOPT(MAX(ord(ASY1>=1.0)*0.1,ord(ASY1>=5.0)*0.5,ord(ASY1>=10.0)*
1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED10,SS1,FAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0572s839; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*ord(WRKHRS>=800.0)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
70.0)-MAX(HIRED,1951.0))*ord(WRKHRS>=800.0)*1.0; ASY3:=NN(MIN(
QUITD,BIRTHD+70.0,1951.0)-HIRED)*ord(WRKHRS>=800.0)*1.0; PSY10:=
BIRTHD+60.0-HIRED; FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.0422; MAN7:=
SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED10:=OTHERB; RED13:=JSRED;
RAS1:=(AGE>=60.0)&(ASY1>=15.0); RAS11:=ASY1>=10.0; ROT2:=
PARTD<1967.5; ROT10:=QJRDABLE; ROT11:=^QJRDABLE; ROT13:=QJRDEATH;
ROT14:=^QJRDEATH; BEG7:=ANYTIME(BIRTHD+60.0,0.0); NR1:=0.014*
FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=100.0+0.007*FAP1*ASY2+0.015*
FAP1*ASY3; NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=0.5*FAP1; NR3Q:=ord(
RAS1&ROT2)*NR3; NRT:=MAX(NR1,MIN(NR2,NR3)); NRQ:=MAX(NR1Q,MIN(
NR2Q,NR3Q)); LRQ:=NRQ; MRAGE:=75.0; ERQ:=0.0; VD1:=NR1; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=MAX(NR1,0.125*FAP1)-
RED10; DR1Q:=ord(RAS1&ROT10)*DR1; DR2:=0.014*FAP1*PSY10-RED10;
DR2Q:=ord(ROT10)*DR2; DR3:=NR1-RED10; DR3Q:=ord(RAS11&ROT11)*DR3;
DR4:=DR3; DR4Q:=ord(RAS11&ROT11)*DR4; DRT:=MAX(DR1,DR2,DR3,DR4);
DRQ:=MAX(DR1Q,DR2Q,DR3Q,DR4Q); ANMAN7:=ANNPAY(MAN7,BENIFITD);
DS1:=MIN(0.5*FAP1,3000.0,ANMAN7+0.333*FAP1); DS1Q:=ord(ROT13)*
DS1; DS2:=MAX(0.5*NR1*RED13,360.0); DS2Q:=ord(RAS11&ROT14)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(
ord(ASY1>=15.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,
DS1,ANMAN7,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,
RED13,RED10,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,PSY10,
ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0573s840; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=960.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-3.0),FDFAP1); FAP2:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7);
RED10:=OTHERB; RED13:=JSRED; RAS1:=(AGE>=55.0)&(ASY1>=20.0);
RAS10:=ASY1>=10.0; RAS13:=ASY1>=10.0; ROT10:=^QJRDABLE; ROT11:=
QJRDABLE; ROT13:=^QJRDEATH; ROT14:=QJRDEATH; BEG7:=ANYTIME(
BIRTHD+60.0,0.0); NR1:=0.025*FAP1*u(ASY1,25.0)+0.015*FAP1*o(ASY1,
25.0); NR1Q:=ord(RAS1)*NR1; NR2:=0.75*FAP2; NR2Q:=ord(RAS1)*NR2;
NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0;
ERQ:=0.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=MIN(0.75*FAP2,MAX(0.2*FAP2,0.025*FAP1*u(ASY1,25.0)-RED10));
DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=MAX(DR1,0.5*FAP2); DR2Q:=ord(
ROT11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=NRT*
RED13; DS1Q:=ord(RAS13&ROT13)*DS1; ANMAN7:=ANNPAY(MAN7,BENIFITD);
DS2:=ANMAN7+0.333*FAP2; DS2Q:=ord(ROT14)*DS2; DST:=MAX(DS1,DS2);
DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=25.0)*1.0);
if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,ANMAN7,DS1Q,DS1,DRQ,DRT,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,
NR1Q,NR1,BEG7,RED13,RED10,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP2,FAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0574s713; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1981.0)-(
HIRED+1.0))*NNMIN(1.0,WRKHRS/2000.0); ASY2:=NN(QUITD-MAX(HIRED+
1.0,1981.0))*NNMIN(1.0,WRKHRS/2000.0); ASY3:=NN(MIN(QUITD,1955.0)
-(HIRED+1.0))*NNMIN(1.0,WRKHRS/2000.0); ASY4:=NN(MIN(QUITD,
1978.0)-MAX(HIRED+1.0,1955.0))*NNMIN(1.0,WRKHRS/2000.0); ASY5:=
NN(QUITD-(HIRED+1.0))*NNMIN(1.0,WRKHRS/2000.0); ASY6:=(QUITD-
HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,1955.0);
SDFAP1:=MAX(HIRED,1954.0); FAP1:=ord(FDFAP1>SDFAP1)*WAGE(FDFAP1)/
12.0; FDFAP2:=MIN(QUITD,1978.0); SDFAP2:=MAX(HIRED,1955.0);
FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2)/12.0; FDFAP3:=
QUITD; FAP3:=AVG(WAGE,MAX(HIRED,FDFAP3-5.0),FDFAP3)/12.0; FDSS1:=
MIN(QUITD,1978.0); SDSS1:=MAX(HIRED,1955.0); SS1:=ord(
FDSS1>SDSS1)*SSBASE(BENIFITD)/12.0; SS2:=SS(1.0,BENIFITD)/12.0;
RED4:=NN(1.0-0.03*o(60.0,AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED;
RAS1:=(AGE>=62.0)&(ASY6>=10.0); RAS2:=(AGE>=60.0)&(ASY6>=10.0);
RAS4:=(AGE>=55.0)&(ASY6>=10.0); RAS10:=(AGE>=50.0)&(ASY6>=10.0);
RAS13:=(AGE>=55.0)&(ASY6>=10.0); RAS14:=(AGE>=55.0)&(ASY6>=6.0);
ROT2:=QAPPROVL; ROT10:=QSSDABLE; BEG7:=ANYTIME(0.0,BIRTHD+65.0);
NR1:=14.0*ASY1+16.0*ASY2; NR1Q:=ord(RAS1)*NR1; NR2:=0.0075*o(
FAP1,350.0)*ASY3; NR2Q:=ord(RAS1)*NR2; NR3:=0.015*o(FAP2,SS1)*
ASY4; NR3Q:=ord(RAS1)*NR3; NR4:=NN(0.015*FAP3-0.0125*SS2)*ASY5;
NR4Q:=ord(RAS1)*NR4; NR5:=MAX(NR1+NR2+NR3,NR4); NR5Q:=ord(RAS2&
ROT2)*NR5; NRT:=MAX(NR1+NR2+NR3,NR4,NR5); NRQ:=MAX(NR1Q+NR2Q+
NR3Q,NR4Q,NR5Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4&ROT2)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT*
RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT;
DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*
ERT*RED13; DS1Q:=ord(RAS13)*DS1; DS2:=0.5*VDT*RED13; DS2Q:=ord(
RAS14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=
0.0; VEDB:=VOPT(MAX(ord(ASY6>=6.0)*0.45,ord(ASY6>=8.0)*0.75,ord(
ASY6>=10.0)*1.0)); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,
RED7,RED4,SS2,SS1,SDSS1,FDSS1,FAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,
FAP1,SDFAP1,FDFAP1,ASY6,ASY5,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0575s920; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1970.5)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1970.5))*1.0; PSY10:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,BENIFITD);
SS10:=SS(5.0,BENIFITD); RED4:=AR(65.0-AGE); RED10:=OTHERB;
RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=(AGE>=65.0)!(AGE>=60.0)&(
ASY51>=25.0); RAS2:=(AGE>=60.0)&(ASY51>=25.0); RAS4:=(AGE>=55.0)&
(ASY51>=10.0); RAS11:=ASY51>=10.0; RAS13:=(ASY51>=20.0)!(AGE>=
55.0)&(ASY51>=10.0); ROT10:=QSSDABLE; ROT11:=^QSSDABLE; LNG2:=
BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG11:=MAX(
BIRTHD+65.0,QUITD); NR1:=(0.0125*u(FAP1,7800.0)+0.0175*o(FAP1,
7800.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.01*u(FAP1,7800.0)+
0.0175*o(FAP1,7800.0))*ASY2; NR2Q:=ord(RAS1)*NR2; NR3:=SS1;
NR3Q:=ord(RAS2)*AA(QUITD,LNG2)*NR3; NRT:=NR1+NR2+NR3; NRQ:=NR1Q+
NR2Q+NR3Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=(NR1+NR2)*RED4; ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*
VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NN(0.5*FAP1-0.5*SS10); DR1Q:=ord(
ROT10)*AA(QUITD,LNG2)*DR1; DR2:=NN(0.8*FAP1-SS10-RED10); DR2Q:=
ord(ROT10)*AA(QUITD,LNG2)*DR2; DR3:=0.01125*ASY1+0.01*ASY2;
DR3Q:=ord(RAS11&ROT11)*DR3; DR4:=(0.01*u(FAP1,7800.0)+0.0175*o(
FAP1,7800.0))*PSY10; DR4Q:=ord(ROT10)*AA(BEG11,0.0)*DR4; DRT:=
MAX(MAX(MIN(DR1,DR2),DR4),DR3); DRQ:=MAX(MAX(MIN(DR1Q,DR2Q),DR4Q)
,DR3Q); DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY51>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,
DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG11,BEG7,LNG2,ASY51,
RED13,RED10,RED4,SS10,SS1,FAP1,SDFAP1,FDFAP1,PSY10,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0576s921; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1966.0)-
HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1966.0))*1.0; FDFAP1:=MIN(
QUITD,1966.0); SDFAP1:=MAX(HIRED,1965.0); FAP1:=ord(
FDFAP1>SDFAP1)*WAGE(FDFAP1); SDFAP2:=MAX(HIRED,1966.0); FAP2:=
ord(QUITD>SDFAP2)*AVG(WAGE,SDFAP2,QUITD); RED4:=NN(1.0-0.05*o(
65.0,AGE)); RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=(AGE>=65.0)!(
ASY51>=30.0)!(AGE>=62.0)&(ASY51>=25.0); RAS4:=(AGE>=55.0)&(
ASY51>=10.0); RAS10:=ASY51>=10.0; RAS13:=(AGE>=55.0)&(ASY51>=
10.0); RAS14:=(AGE>=65.0)!(AGE>=62.0)&(ASY51>=25.0)!(AGE>=55.0)&(
ASY51>=30.0); RAS15:=ASY51>=30.0; ROT10:=QSSDABLE; LNG13:=5.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.01*u(FAP1,4200.0)
+0.014*o(FAP1,4200.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.01*u(
FAP2,4200.0)+0.0125*o(FAP2,4200.0))*ASY2; NR2Q:=ord(RAS1)*NR2;
NR3:=18.0*(ASY1+ASY2); NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1+NR2,NR3)
;NRQ:=MAX(NR1Q+NR2Q,NR3Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&
ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(
RAS13)*DS1; DS2:=0.5*NRT*RED13; DS2Q:=ord(RAS14)*DS2; DS3:=NRT;
DS3Q:=ord(RAS15)*AA(QUITD,LNG13+QUITD)*DS3; DST:=MAX(DS1,DS2,DS3)
;DSQ:=MAX(DS1Q,DS2Q,DS3Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,
LNG13,ASY51,RED13,RED4,FAP2,SDFAP2,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0577s922; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1966.0)-
HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1966.0))*1.0; ASY3:=(QUITD-
HIRED)*1.0; FDFAP1:=MIN(QUITD,1966.0); SDFAP1:=MAX(HIRED,1965.0);
FAP1:=ord(FDFAP1>SDFAP1)*WAGE(FDFAP1); SDFAP2:=MAX(HIRED,1966.0);
FAP2:=ord(QUITD>SDFAP2)*AVG(WAGE,SDFAP2,QUITD); RED4:=NN(1.0-
0.05*o(65.0,AGE)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=
55.0)&(ASY3>=10.0); RAS10:=ASY3>=10.0; RAS13:=(AGE>=65.0)!(AGE>=
55.0)&(ASY3>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
(0.01*u(FAP1,4200.0)+0.014*o(FAP1,4200.0))*ASY1; NR1Q:=ord(RAS1)*
NR1; NR2:=(0.01*u(FAP2,4200.0)+0.014*o(FAP2,4200.0))*ASY2; NR2Q:=
ord(RAS1)*NR2; NR3:=15.0*u(ASY3,30.0); NR3Q:=ord(RAS1)*NR3; NRT:=
MAX(NR1+NR2,NR3); NRQ:=MAX(NR1Q+NR2Q,NR3Q); LRQ:=NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT;
DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY3>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,
FAP2,SDFAP2,FAP1,SDFAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0578s676; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/1700.0); ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=
QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); FDFAP2:=
QUITD; FAP2:=AVG(WAGE,MAX(HIRED,FDFAP2-60.0/12.0),FDFAP2);
FDFAP3:=QUITD; FAP3:=AVG(WAGE,MAX(HIRED,FDFAP3-3.0),FDFAP3);
RED4:=NN(1.0-0.03*o(65.0,AGE)); RED10:=NN(1.0-0.06*o(65.0,AGE));
RED13:=JSRED; RED14:=COSTRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&
(ASY1>=15.0); RAS10:=(AGE>=50.0)&(ASY1>=15.0); RAS13:=(AGE>=45.0)
&(ASY1>=15.0); ROT10:=^QCODABLE; LNG10:=BIRTHD+65.0; LNG13:=3.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,
QUITD); BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=0.0125*MAX(FAP1,FAP2)
*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=108.0*ASY1; NR2Q:=ord(RAS1)*NR2;
NR3:=MAX(FAP3,136425.0); NR3Q:=ord(RAS1)*NR3; NR4:=90.0; NR4Q:=
ord(RAS1)*NR4; NRT:=MIN(MAX(NR1,NR2)+NR4,NR3); NRQ:=MIN(MAX(NR1Q,
NR2Q)+NR4Q,NR3Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=
ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*
VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q); DR1:=NRT*RED10; DR1Q:=ord(RAS10&ROT10)*AA(QUITD,
LNG10)*DR1; DR2:=NRT; DR2Q:=ord(RAS10)*AA(BEG11,0.0)*DR2; DRT:=
MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=NRT; DS1Q:=ord(RAS13)*AA(
QUITD,LNG13+QUITD)*DS1; DS2:=0.5*ERT*RED13*RED14; DS2Q:=ord(RAS4)
*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG11,BEG8,BEG7,LNG13,LNG10,RED14,
RED13,RED10,RED4,FAP3,FDFAP3,FAP2,FDFAP2,FAP1,FDFAP1,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0579s470; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+68.0)-MAX(HIRED,BIRTHD+25.0))*1.0; ASY2:=(QUITD-HIRED)*
1.0; PSY4:=NN(BIRTHD+65.0-MAX(HIRED,BIRTHD+25.0)); FDFAP1:=MIN(
QUITD,MAX(BIRTHD+68.0,QUITD-ASY1+30.0)); FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-60.0/12.0),FDFAP1)/12.0; SS1:=SS(1.0,BENIFITD)/12.0;
RED4:=NN(1.0-0.04*o(65.0,AGE)); RED5:=1.0-(0.0333*a(AGE,60.0,
55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=(AGE>=65.0)!(
AGE+ASY1>=85.0)&(AGE>=60.0); RAS4:=(AGE>=55.0)&(ASY2>=20.0);
RAS5:=(AGE>=55.0)&(ASY2>=10.0); LNG4:=BIRTHD+65.0; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=NN(0.75*1000.0+0.6*o(FAP1,1000.0)-
SS1)*ASY1/30.0; NR1Q:=ord(RAS1)*NR1; NR2:=NN(0.6*FAP1-0.8*SS1)*
ASY1/30.0; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NN(750.0+0.6*o(FAP1,
1000.0)-SS1*ASY1/MAX(PSY4,30.0))*ASY1/30.0*RED5; ER1Q:=ord(RAS4)*
ER1; ER2:=(0.75*1000.0+0.6*o(FAP1,1000.0)-SS1*ASY1/MAX(PSY4,30.0)
)*ASY1/30.0*RED5; ER2Q:=ord(RAS5)*ER2; ER3:=NN(0.02*FAP1*ASY1*
RED4-ER1); ER3Q:=ord(RAS4)*AA(QUITD,LNG4)*ER3; ER4:=NN(0.02*FAP1*
ASY1*RED5-ER2); ER4Q:=ord(RAS5)*AA(QUITD,LNG4)*ER4; ER5:=NN(0.02*
FAP1*ASY1*MAX(RED4,RED5)-0.8*SS1); ER5Q:=ord(RAS5)*ER5; ERT:=MAX(
ER1,ER2,ER5)+MAX(ER3,ER4); ERQ:=(MAX(ER1Q,ER2Q,ER5Q)+MAX(ER3Q,
ER4Q))*12.0; VD1:=NRT*RED5; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=0.5*(MAX(ord(RAS4)*ER1,ER2,ER5)+
MAX(ord(RAS4)*ER3,ER4))*RED13; DS1Q:=ord(RAS5)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=MIN(0.95*ACPIG,0.06); VEDB:=VOPT(ord((
QUITAGE>=32.0)&(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,
ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,
LNG4,RED13,RED5,RED4,SS1,FAP1,FDFAP1,PSY4,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0580s296; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*1.0; ASY1:=(QUITD-HIRED)*1.0; ASY2:=NN(QUITD-MAX(
HIRED,1976.0))*1.0; PSY7:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-10.0),FDFAP1); SS1:=SSBASE(
BENIFITD); RED4:=NN(1.0-0.04*o(60.0,AGE)); RED5:=1.0-(0.0003*a(
AGE,58.0,55.0)+0.0004*a(AGE,62.0,58.0)+0.0006*a(AGE,65.0,62.0));
RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY1>=20.0); RAS4:=(
AGE>=55.0)&(ASY1>=15.0)!(AGE>=58.0)&(ASY1>=14.0)!(AGE>=59.0)&(
ASY1>=12.0)!(AGE+ASY1>=70.0)&(AGE>=60.0)!(AGE+ASY1>=68.0)&(AGE>=
62.0)&(ASY1>=6.0); RAS5:=(AGE>=55.0)&(ASY1>=20.0); ROT2:=
PARTD<1976.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(
0.011*u(FAP1,SS1)+0.018*o(FAP1,SS1))*u(ASY1,20.0)+(0.01*u(FAP1,
SS1)+0.015*o(FAP1,SS1))*b(ASY1,20.0,35.0); NR1Q:=ord(RAS1)*NR1;
NR2:=NR1*0.01*o(ASY1,35.0); NR2Q:=ord(RAS1)*NR2; NR3:=0.01*u(
FAP1,4800.0)*u(ASY2,10.0)+0.02*u(FAP1,4800.0)*o(ASY2,10.0)+
0.015*b(FAP1,4800.0,SS1)*u(ASY2,10.0); NR3Q:=ord(RAS1&ROT2)*NR3;
NR4:=NR3+0.025*b(FAP1,4800.0,SS1)*o(ASY2,10.0)+0.02*o(FAP1,SS1)*
u(ASY2,10.0)+0.03*o(FAP1,SS1)*o(ASY2,10.0); NR4Q:=ord(RAS1&ROT2)*
NR4; NRT:=MAX(NR1+NR2,NR4); NRQ:=MAX(NR1Q+NR2Q,NR4Q); LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS5)*ER1; ER2:=NRT*RED5;
ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=NRT*ASY1/PSY7*RED5; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DRQ:=0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DS2:=
ERT*RED13*0.5; DS2Q:=ord(RAS5)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(
DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=32.0)&(ASYV>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,
NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED5,RED4,SS1,FAP1,
FDFAP1,PSY7,ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0581s479; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0,1957.5)-(HIRED+3.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+70.0,
1967.5)-MAX(HIRED+1.0,BIRTHD+25.0,1957.5))*1.0; ASY3:=NN(MIN(
QUITD,BIRTHD+70.0)-MAX(HIRED+1.0,BIRTHD+25.0,1967.5))*1.0; ASY4:=
NN(MIN(QUITD,BIRTHD+70.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
70.0,1957.5); SDFAP1:=MAX(HIRED,1956.5); FAP1:=ord(FDFAP1>SDFAP1)
*WAGE(FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+70.0,1967.5); SDFAP2:=
MAX(HIRED,1957.5); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,
FDFAP2); FDFAP3:=MIN(QUITD,BIRTHD+70.0); SDFAP3:=MAX(HIRED,
1967.5); FAP3:=ord(FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3);
FDFAP4:=MIN(QUITD,BIRTHD+70.0); SDFAP4:=MAX(HIRED,FDFAP4-5.0);
FAP4:=ord(FDFAP4>SDFAP4)*AVG(WAGE,SDFAP4,FDFAP4); SDMAN7:=HIRED;
FDMAN7:=QUITD; VR1MAN7:=ord(6600.0>WAGE(SURVEYD))*0.015+ord(WAGE(
SURVEYD)>=6600.0)*0.03; PCMAN7:=VR1MAN7; MAN7:=SUMI(PCMAN7,7.0,
0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,BENIFITD); RED4:=NN(1.0-0.06*o(
65.0,AGE)); RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=10.0);
RAS10:=ASY4>=15.0; RAS13:=AGE>=55.0; ROT10:=QSSDABLE; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.005*u(FAP1,4200.0)+
0.0125*o(FAP1,4200.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.0075*u(
FAP2,6600.0)+0.015*o(FAP2,6600.0))*ASY2; NR2Q:=ord(RAS1)*NR2;
NR3:=(0.01*u(FAP3,6600.0)+0.0175*o(FAP3,6600.0))*ASY3; NR3Q:=ord(
RAS1)*NR3; NR4:=0.015*FAP4*u(ASY1+ASY2+ASY3,40.0)-0.015*SS1*u(
ASY1+ASY2+ASY3,33.333); NR4Q:=ord(RAS1)*NR4; NRT:=MAX(NR1+NR2+
NR3,NR4); NRQ:=MAX(NR1Q+NR2Q+NR3Q,NR4Q); LRQ:=NRQ; MRAGE:=70.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT;
DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.425*NRT;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED4,
SS1,MAN7,PCMAN7,VR1MAN7,FDMAN7,SDMAN7,FAP4,SDFAP4,FDFAP4,FAP3,
SDFAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY4,ASY3,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0582s936; begin CNQ:=0.0; ASY1:=NN(QUITD-MAX(HIRED,
MIN(HIRED+1.0,BIRTHD+21.0)))*NNMIN(1.0,WRKHRS/1000.0); ASY2:=NN(
MIN(QUITD,1975.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/1000.0); ASY3:=(
QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0; FAP1:=AVG(WAGE,HIRED,QUITD)
/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(
PCMAN7,97.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.06*o(65.0,AGE));
RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY3>=1.0); RAS4:=(AGE>=62.0)!(
AGE>=55.0)&(ASY3>=10.0); RAS10:=ASY3>=10.0; RAS13:=AGE>=55.0;
ROT2:=PARTD<1976.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=10.5*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.0075*
FAP1*ASY2; NR2Q:=ord(RAS1&ROT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(
NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=
ord(RAS4)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4&ROT2)*ER2; ERT:=MAX(
ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*
VD1; VD2:=ER2; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*
DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ER1*RED13*0.5; DS1Q:=ord(
RAS13)*DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(RAS13&ROT2)*DS2; DST:=
MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=62.0)!(ASY3>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,
VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG7,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,ASY3,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0583s937; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-MAX(HIRED,MIN(HIRED+1.0,BIRTHD+21.0)))*NNMIN(1.0,WRKHRS/
1000.0); ASY2:=NN(MIN(QUITD,BIRTHD+70.0)-(HIRED+1.0))*NNMIN(1.0,
WRKHRS/1000.0); ASY3:=NN(MIN(QUITD,BIRTHD+70.0)-HIRED)*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1)/12.0; FAP2:=AVG(WAGE,HIRED,QUITD)/12.0;
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,
99.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/
12.0; RED4:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=
65.0)&(ASY3>=5.0); RAS4:=(AGE>=55.0)&(ASY3>=10.0); RAS10:=ASY3>=
10.0; RAS13:=AGE>=55.0; ROT2:=PARTD<1975.0; ROT10:=QSSDABLE;
ROT11:=QSSDABLE&(PARTD<1975.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.4*FAP1-0.5*SS1)*u(
ASY1,35.0)/35.0; NR1Q:=ord(RAS1)*NR1; NR2:=10.5*ASY1; NR2Q:=ord(
RAS1)*NR2; NR3:=0.0075*FAP2*ASY1; NR3Q:=ord(RAS1)*NR3; NR4:=MAX(
0.0075*FAP2*ASY2,10.5*ASY2,(0.4*FAP1-0.5*SS1)*u(ASY2,35.0)/35.0)
;NR4Q:=ord(RAS1&ROT2)*NR4; NRT:=MAX(NR1,NR2,NR3,NR4); NRQ:=MAX(
NR1Q,NR2Q,NR3Q,NR4Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=MAX(NR1,
NR2,NR3)*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR4*RED4; ER2Q:=ord(
RAS4&ROT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0;
VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(ROT2)*AA(
BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=
MAX(NR1,NR2,NR3); DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*DR1; DR2:=
NR4; DR2Q:=ord(RAS10&ROT11)*AA(BEG10,0.0)*DR2; DRT:=MAX(DR1,DR2);
DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=ER1*RED13*0.5; DS1Q:=ord(RAS13)*
DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(RAS13&ROT2)*DS2; DST:=MAX(DS1,
DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((ASY3>=
10.0)!(QUITAGE>=65.0)&(ASY3>=5.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,
VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,
NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,RED4,SS1,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP2,FAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0584s1016; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=5.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
3.0),FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.0665;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.04*a(AGE,
60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED5:=AR(60.0-AGE); RED13:=
JSRED; RAS1:=(AGE>=65.0)&(ASY1>=10.0)!(AGE>=60.0)&(ASY1>=20.0)!(
AGE+ASY1>=95.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS5:=(ASY1>=
30.0)!(AGE>=55.0)&(ASY1>=20.0); RAS10:=ASY1>=10.0; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=0.02*FAP1*ASY1; NR1Q:=ord(RAS1)*
NR1; NR2:=MAX(75.0,6.5*ASY1); NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,
NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5; ER2Q:=ord(RAS5)*ER2;
ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=ERT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=MAX(6.5*ASY1,NR1);
DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=NRT*RED13;
DS1Q:=DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(
ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED5,RED4,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0585s1025; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
PSY10:=MIN(30.0,BIRTHD+65.0-HIRED); FDFAP1:=QUITD; FAP1:=AVG(
WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); SS1:=SSBASE(1982.0); SS10:=
SS(5.0,BENIFITD); RED4:=NN(1.0-0.06*o(65.0,AGE)); RED10:=OTHERB;
RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY1>=10.0)!(AGE>=70.0)&(ASY1>=
5.0); RAS2:=ASY1>=25.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS11:=
ASY1>=10.0; RAS13:=(ASY1>=25.0)!(AGE>=55.0)&(ASY1>=10.0); DAT2:=(
1983.5<=QUITD)&(QUITD<1984.417); ROT2:=QHAZDUTY; ROT10:=QJRDABLE;
ROT11:=^QJRDABLE; ROT13:=QJRDEATH; LNG13:=5.0; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.01333*FAP1+0.005*o(FAP1,SS1))*
ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.02*FAP1*ASY1; NR2Q:=ord(RAS2&
ROT2)*NR2; NR3:=2640.0; NR3Q:=ord(RAS2&DAT2&ROT2)*NR3; NRT:=MAX(
NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q); LRQ:=NRQ; MRAGE:=70.0;
ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=(0.01333*
FAP1+0.005*o(FAP1,SS1))*MAX(ASY1,PSY10); DR1Q:=ord(ROT10)*DR1;
DR2:=DR1; DR2Q:=ord(RAS11&ROT11)*DR2; DR3:=NN(0.8*FAP1-SS10-
RED10); DR3Q:=DR3; DRT:=MIN(MAX(DR1,DR2),DR3); DRQ:=MIN(MAX(DR1Q,
DR2Q),DR3Q); DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DS2:=DR1;
DS2Q:=ord(RAS2)*DS2; DS3:=0.5*NR2*RED13; DS3Q:=ord(RAS2&ROT2)*
DS3; DS4:=800.0; DS4Q:=ord(RAS13&ROT13)*AA(QUITD,LNG13+QUITD)*
DS4; DST:=MAX(DS1,DS2,DS3)+DS4; DSQ:=MAX(DS1Q,DS2Q,DS3Q)+DS4Q;
PRAG:=0.03; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,LNG13,RED13,RED10,RED4,
SS10,SS1,FAP1,FDFAP1,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0586s1026; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
PSY10:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-3.0),FDFAP1); FAP10:=WAGE(QUITD); SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=0.02; MAN7:=SUMI(PCMAN7,4.0,0.0,SDMAN7,
FDMAN7); SDMAN8:=HIRED; FDMAN8:=QUITD; PCMAN8:=0.05; MAN8:=SUMI(
PCMAN8,5.0,0.0,SDMAN8,FDMAN8); SDVOL7:=HIRED; FDVOL7:=QUITD;
PCVOL7:=MAX(0.03*MIN(SSBASE(SURVEYD),WAGE(SURVEYD)),CRVOL*WAGE(
SURVEYD))/WAGE(SURVEYD); VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,FDVOL7)
;SS10:=SS(5.0,BENIFITD); RED4:=AR(65.0-AGE); RED10:=OTHERB;
RED13:=JSRED; RAS1:=(AGE>=55.0)&(ASY1>=25.0)!(AGE>=65.0)&(ASY1>=
10.0); RAS2:=(AGE>=55.0)&(ASY1>=25.0); RAS3:=(AGE>=70.0)&(ASY1>=
5.0); RAS4:=(AGE>=47.0)&(ASY1>=20.0); RAS5:=(AGE>=55.0)&(ASY1>=
10.0); RAS10:=ASY1>=5.0; RAS13:=(AGE>=55.0)&(ASY1>=10.0); RAS14:=
ASY1>=25.0; ROT2:=QVOLCNTR; ROT4:=QHAZDUTY; ROT7:=QHAZDUTY&(
ASY1>=20.0); ROT10:=^QJRDABLE; ROT11:=QJRDABLE; LNG2:=BIRTHD+
65.0; BGN3:=MAX(BIRTHD+65.0,QUITD); BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG8:=ANYTIME(BIRTHD+47.0,0.0); NR1:=0.02*FAP1*
ASY1; NR1Q:=ord(RAS1)*AA(QUITD,LNG2)*NR1; NR2:=(0.01*u(FAP1,
4800.0)+0.02*o(FAP1,4800.0))*ASY1; NR2Q:=ord(RAS1)*AA(BGN3,0.0)*
NR2; NR3:=0.02*FAP1*ASY1; NR3Q:=ord(RAS1&ROT2)*NR3; NR4:=3600.0;
NR4Q:=ord(RAS2)*NR4; NR5:=(0.0125*u(FAP1,4800.0)+0.025*o(FAP1,
4800.0))*u(ASY1,20.0); NR5Q:=ord(RAS3)*NR5; NR6:=0.025*FAP1*u(
ASY1,20.0); NR6Q:=ord(RAS3&ROT2)*NR6; NR7:=0.5*FAP1+0.02*FAP1*o(
ASY1,20.0); NR7Q:=ord(RAS4&ROT4)*NR7; NRT:=MAX(NR1+NR2,NR3,NR4,
NR5,NR6,NR7); NRQ:=MAX(NR1Q+NR2Q,NR3Q,NR4Q,NR5Q,NR6Q,NR7Q); LRQ:=
NRQ; MRAGE:=70.0; ER1:=(NR1+NR2)*RED4; ER1Q:=ord(RAS5)*ER1; ER2:=
NR3*RED4; ER2Q:=ord(RAS5&ROT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q); VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR7; VD2Q:=
ord(ROT7)*AA(BEG8,0.0)*VD2; VD3:=ER2; VD3Q:=ord(ROT2)*AA(BEG7,
0.0)*VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1,VD2,VD3); DR1:=
0.03*FAP1*ASY1; DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=0.01667*FAP1*
PSY10; DR2Q:=ord(RAS10&ROT10)*DR2; DR3:=0.01667*MAX(FAP1,FAP10)*
u(PSY10,30.0); DR3Q:=ord(ROT11)*DR3; DR4:=NN(0.8*FAP1-SS10-RED10)
;DR4Q:=DR4; DRT:=MIN(MAX(MIN(DR1,DR2),DR3),DR4); DRQ:=MIN(MAX(
MIN(DR1Q,DR2Q),DR3Q),DR4Q); DS1:=ERQ*RED13*0.5; DS1Q:=ord(RAS13)*
DS1; DS2:=MAX(NR1Q+NR2Q,NR3Q)*RED13*0.5; DS2Q:=ord(RAS14)*DS2;
DS3:=0.5*NR7*RED13; DS3Q:=ord(RAS4&ROT4)*DS3; DST:=MAX(DS1,DS2,
DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q); PRAG:=0.03; VEDB:=VOPT(ord(ASY1>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD3Q,VD3,
VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR7Q,NR7,NR6Q,NR6,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG8,BEG7,BGN3,LNG2,RED13,RED10,RED4,SS10,VOL7,PCVOL7,FDVOL7,
SDVOL7,MAN8,PCMAN8,FDMAN8,SDMAN8,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP10,FAP1,FDFAP1,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0587s812; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=550.0)*1.0; ASY1:=NN(MIN(QUITD,1962.0)-HIRED)*1.0; ASY2:=
NN(QUITD-MAX(HIRED,1962.0))*NNMIN(1.0,WRKHRS/390.0); ASY7:=MIN(
25.0,QUITD-HIRED)*ord(WRKHRS>=550.0)*1.0; RED4:=NN(1.0-0.0667*o(
65.0,AGE)); RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=(AGE>=65.0)&(
ASY51>=15.0); RAS4:=(AGE>=60.0)&(ASY51>=15.0); BEG7:=MAX(BIRTHD+
65.0,QUITD); NR1:=125.0*u(ASY1+ASY2,25.0)/25.0; NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=5.0*
ASY7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*
12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASYV>=10.0)*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY51,RED13,RED4,ASY7,ASY2,ASY1,
ASYV,CNQ) <0 then negative end;

procedure c0588s127; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1952.0)-(
HIRED+1.0))*NNMIN(1.0,WRKHRS/2000.0); ASY2:=NN(QUITD-MAX(HIRED+
1.0,1972.0))*NNMIN(1.0,WRKHRS/2000.0); ASY3:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); SS1:=SS(1.0,BENIFITD); RED4:=NN(1.0-0.03*o(
65.0,AGE)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=AGE>=55.0;
ROT10:=QCODABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.01*FAP1*(ASY1+ASY2);
NR1Q:=ord(RAS1)*NR1; NR2:=0.01667*o(FAP1,SS1)*u(ASY1+ASY2,30.0);
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q);
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DR1:=ERT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1;
DRQ:=DR1Q; DS1:=ERT*RED13; DS1Q:=ord(RAS4)*AA(BEG10,0.0)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=55.0)!(
ASY3>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED13,RED4,SS1,FAP1,FDFAP1,ASY3,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0589s957; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1907.0); ASY2:=NN(QUITD-MAX(HIRED,1975.0))*NNMIN(1.0,
WRKHRS/1907.0); ASY3:=NN(MIN(QUITD,1975.0)-HIRED)*NNMIN(1.0,
WRKHRS/1907.0); ASY4:=(QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0;
PSY7:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); FAP2:=AVG(WAGE,HIRED,QUITD); RED4:=NN(1.0-
0.025*o(65.0,AGE)); RED5:=NN(1.0-0.025*o(85.0,AGE+ASY1)); RED7:=
AR(65.0-AGE); RED13:=JSRED; RED14:=COSTRED; RAS1:=(AGE>=65.0)!(
AGE+ASY1>=85.0); RAS4:=(AGE>=55.0)&(ASY4>=10.0); BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.015*o(FAP1,4800.0)+24.0)*ASY1;
NR1Q:=ord(RAS1)*NR1; NR2:=(0.015*o(FAP2,4800.0)+24.0)*ASY1;
NR2Q:=ord(RAS1)*NR2; NR3:=144.0*ASY2+108.0*ASY3; NR3Q:=ord(RAS1)*
NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q); LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5;
ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=(0.015*o(FAP1,4800.0)+24.0)*PSY7*ASY1/PSY7; VD1Q:=AA(BEG7,
0.0)*VD1; VD2:=NR2*RED7; VD2Q:=AA(BEG7,0.0)*VD2; VD3:=NR3*RED7;
VD3Q:=AA(BEG7,0.0)*VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1Q,
VD2Q,VD3Q); DRQ:=0.0; DS1:=ERT*RED13*RED14; DS1Q:=ord(RAS4)*DS1;
DS2:=NRT*RED13*RED14; DS2Q:=ord(RAS1)*DS2; DST:=MAX(DS1,DS2);
DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
DRQ,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED14,
RED13,RED7,RED5,RED4,FAP2,FAP1,FDFAP1,PSY7,ASY4,ASY3,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0590s805; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
68.0)-HIRED)*ord(WRKHRS>=500.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
68.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; FDFAP2:=MIN(QUITD,BIRTHD+68.0);
FAP2:=ord(FDFAP2>HIRED)*WAGE(FDFAP2)/12.0; RED4:=NN(1.0-0.04*o(
60.0,AGE)); RED5:=NN(1.0-0.04*o(62.0,AGE)); RED6:=NN(1.0-0.12*o(
60.0,AGE)); RED7:=NN(1.0-0.06*o(65.0,AGE)); RAS1:=(AGE>=65.0)&(
ASY1>=5.0)!(AGE>=60.0)&(ASY1>=10.0); RAS2:=(AGE>=65.0)&(ASY1>=
5.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(ASY1>=30.0)!(AGE>=60.0)&(
ASY1>=10.0)!(AGE+ASY1>=80.0); RAS5:=ASY1>=30.0; RAS10:=ASY1>=
10.0; LNG4:=BIRTHD+SSAGE(2.0); LNG10:=BIRTHD+65.0; LNG12:=BIRTHD+
62.0; BEG7:=MAX(ERD,QUITD); BEG11:=MAX(BIRTHD+65.0,QUITD);
BEG14:=MAX(BIRTHD+60.0,QUITD); NR1:=0.015*MAX(FAP1,FAP2)*ASY1;
NR1Q:=ord(RAS1)*NR1; NR2:=19.0*ASY1; NR2Q:=ord(RAS2)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0;
ER1:=NR2*RED5; ER1Q:=ord(RAS4)*ER1; ER2:=950.0*u(ASY1,30.0)/30.0*
RED6; ER2Q:=ord(RAS4)*AA(QUITD,LNG4)*ER2; ER3:=NR1*RED4; ER3Q:=
ord(RAS4)*ER3; ER4:=950.0; ER4Q:=ord(RAS5)*AA(QUITD,LNG4)*ER4;
ER5:=0.7*MAX(FAP1,FAP2); ER5Q:=ord(RAS4)*ER5; ERT:=MIN(MAX(ER1,
ER3)+MAX(ER2,ER4),ER5); ERQ:=MIN(MAX(ER1Q,ER3Q)+MAX(ER2Q,ER4Q),
ER5Q)*12.0; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=NR2; DR1Q:=ord(RAS10)*AA(QUITD,LNG10)*DR1;
DR2:=NRT; DR2Q:=ord(RAS4)*AA(BEG11,0.0)*DR2; DR3:=15.0*u(ASY1,
25.0); DR3Q:=ord(RAS10)*AA(QUITD,LNG12)*DR3; DRT:=DR1+DR2+DR3;
DRQ:=(DR1Q+DR2Q+DR3Q)*12.0; DS1:=0.55*NRT; DS1Q:=ord(RAS1)*DS1;
DS2:=0.55*ERT; DS2Q:=ord(RAS4)*DS2; DS3:=0.55*VDT; DS3Q:=ord(
RAS10)*AA(BEG14,0.0)*DS3; DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,
DS2Q,DS3Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if
min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,
DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,
ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG14,BEG11,BEG7,LNG12,LNG10,LNG4,RED7,RED6,RED5,RED4,FAP2,
FDFAP2,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0591s806; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
68.0)-HIRED)*ord(WRKHRS>=500.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
68.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVGMIN(2375.0,WAGE,SDFAP1,FDFAP1)/12.0; FAP4:=WAGE(QUITD)/12.0;
RED4:=NN(1.0-0.06*o(62.0,AGE)); RED5:=NN(1.0-0.12*o(60.0,AGE));
RED7:=NN(1.0-0.06*o(65.0,AGE)); RAS1:=(AGE>=65.0)&(ASY1>=5.0)!(
AGE>=62.0)&(ASY1>=10.0); RAS4:=(ASY1>=30.0)!(AGE>=60.0)&(ASY1>=
10.0)!(AGE+ASY1>=85.0)&(AGE>=55.0); RAS10:=ASY1>=10.0; LNG4:=
BIRTHD+SSAGE(2.0); LNG10:=BIRTHD+65.0; LNG12:=QUITD; BEG7:=
ANYTIME(BIRTHD+60.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+65.0,QUITD);
BEG14:=MAX(BIRTHD+62.0,QUITD); NR1:=0.005*u(FAP1,350.0)*u(ASY1,
25.0)+0.015*o(FAP1,350.0)*u(ASY1,25.0)+0.015*FAP1*o(ASY1,25.0);
NR1Q:=ord(RAS1)*NR1; NR2:=19.0*ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0;
ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR2*RED4; ER2Q:=ord(
RAS4)*ER2; ER3:=0.7*FAP4; ER3Q:=ord(RAS4)*ER3; ER4:=950.0*u(ASY1,
30.0)/30.0*RED5; ER4Q:=ord(RAS4)*AA(QUITD,LNG4)*ER4; ERT:=MIN(
MAX(ER1,ER2)+ER4,ER3); ERQ:=MIN(MAX(ER1Q,ER2Q)+ER4Q,ER3Q)*12.0;
VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DR1:=NR2; DR1Q:=ord(RAS10)*AA(QUITD,LNG10)*DR1; DR2:=NRT; DR2Q:=
ord(RAS1)*AA(BEG11,0.0)*DR2; DR3:=15.0*u(ASY1,25.0); DR3Q:=ord(
RAS10)*AA(QUITD,LNG12)*DR3; DRT:=DR1+DR2+DR3; DRQ:=(DR1Q+DR2Q+
DR3Q)*12.0; DS1:=0.55*NRT; DS1Q:=ord(RAS1)*DS1; DS2:=0.55*ERT;
DS2Q:=ord(RAS4)*DS2; DS3:=0.55*VDT; DS3Q:=ord(RAS10)*AA(BEG14,
0.0)*DS3; DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q)*12.0;
PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG14,BEG11,BEG7,
LNG12,LNG10,LNG4,RED7,RED5,RED4,FAP4,FAP1,SDFAP1,FDFAP1,ASY1,
CNQ) <0 then negative end;

procedure c0592s1069; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1972.25)
-(HIRED+1.0))*1.0; ASY2:=NN(MIN(QUITD,1975.25)-MAX(HIRED+1.0,
1972.25))*NNMIN(1.0,WRKHRS/1200.0); ASY3:=NN(QUITD-MAX(HIRED+1.0,
1975.25))*NNMIN(1.0,WRKHRS/1000.0); ASY4:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=AR(65.0-
AGE); RED10:=OTHERB; RED13:=JSRED; ASY53:=ASY1+ASY2+ASY3; RAS1:=(
AGE>=65.0)!(AGE>=62.0)&(ASY53>=25.0); RAS4:=(AGE>=55.0)&(ASY53>=
10.0); RAS10:=ASY4>=5.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); NR1:=144.0*(ASY1+ASY2+ASY3); NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT-RED10; DR1Q:=ord(
RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY53,RED13,RED10,RED4,MAN7,
PCMAN7,FDMAN7,SDMAN7,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0593s1013; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1600.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-3.0),FDFAP1); FAP13:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=0.05; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7);
RED4:=NN(1.0-0.05*o(55.0,AGE)); RAS1:=(ASY1>=30.0)!(AGE>=55.0)&(
ASY1>=5.0); RAS4:=(AGE>=50.0)&(ASY1>=25.0); BEG7:=ANYTIME(BIRTHD+
55.0,0.0); NR1:=0.0175*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DS1:=0.5*FAP13; DS1Q:=DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=ord(ACPIG>=0.03)*MIN(0.95*ACPIG,0.04); VEDB:=VOPT(
ord(ASY1>=5.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED4,
MAN7,PCMAN7,FDMAN7,SDMAN7,FAP13,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0594s1014; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,
99.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.05*o(65.0,AGE)); RAS1:=(
AGE>=65.0)!(ASY1>=30.0); RAS2:=(ASY1>=30.0)!(AGE>=65.0)&(ASY1>=
20.0); RAS4:=AGE>=60.0; RAS5:=(AGE>=60.0)&(ASY1>=20.0); ROT2:=
FAP1>=18000.0; ROT7:=ASY1>=20.0; ROT8:=(ASY1>=20.0)&(FAP1>=
18000.0); BEG7:=ANYTIME(BIRTHD+60.0,0.0); NR1:=(0.0125*u(FAP1,
4800.0)+0.0165*o(FAP1,4800.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=
960.0+12.0*o(ASY1,20.0); NR2Q:=ord(RAS2)*NR2; NR3:=1800.0+12.0*o(
ASY1,20.0); NR3Q:=ord(RAS2&ROT2)*NR3; NRT:=MAX(NR1,NR2,NR3);
NRQ:=MAX(NR1Q,NR2Q,NR3Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4;
ER1Q:=ord(RAS4)*ER1; ER2:=(960.0+12.0*o(ASY1,20.0))*u(ASY1,35.0)/
35.0*RED4; ER2Q:=ord(RAS5)*ER2; ER3:=(1800.0+12.0*o(ASY1,20.0))*
u(ASY1,35.0)/35.0*RED4; ER3Q:=ord(RAS5&ROT2)*ER3; ERT:=MAX(ER1,
ER2,ER3); ERQ:=MAX(ER1Q,ER2Q,ER3Q); VD1:=ER1; VD1Q:=AA(BEG7,0.0)*
VD1; VD2:=ER2; VD2Q:=ord(ROT7)*AA(BEG7,0.0)*VD2; VD3:=ER3; VD3Q:=
ord(ROT8)*AA(BEG7,0.0)*VD3; VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1Q,
VD2Q,VD3Q); DRQ:=0.0; DSQ:=0.0; PRAG:=ord(ACPIG>=0.03)*MIN(0.95*
ACPIG,0.04); VEDB:=VOPT(ord((QUITAGE>=60.0)!(ASY1>=5.0))*1.0);
if min( VEDB,PRAG,DSQ,DRQ,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,
ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,
NR2,NR1Q,NR1,BEG7,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,
ASY1,CNQ) <0 then negative end;

procedure c0595s424; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/2080.0); ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY7:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*WAGE(
FDFAP1); FDSS1:=MIN(QUITD,BIRTHD+65.0); SS1:=ord(FDSS1>HIRED)*
SSBASE(BENIFITD); RED4:=NN(1.0-0.04*o(65.0,AGE)); RED13:=JSRED;
RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY2>=25.0); RAS4:=(AGE>=55.0)&(
ASY2>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.014*
u(FAP1,SS1)+0.02*o(FAP1,SS1))*u(ASY1,25.0)+0.005*FAP1*o(ASY1,
25.0); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=((0.014*u(FAP1,SS1)+0.02*o(FAP1,SS1))*u(PSY7,25.0)+
0.005*FAP1*o(PSY7,25.0))*ASY1/PSY7*RED4; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(
RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG7,RED13,RED4,SS1,FDSS1,FAP1,FDFAP1,PSY7,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0596s587; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1981.0)-MAX(HIRED+1.0,BIRTHD+21.0))*ord(WRKHRS>=501.0)*1.0;
ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+21.0,
1981.0))*ord(WRKHRS>=501.0)*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-
MAX(HIRED+1.0,BIRTHD+21.0))*ord(WRKHRS>=1000.0)*1.0; ASY4:=NN(
MIN(QUITD,BIRTHD+55.0,1981.0)-MAX(HIRED+1.0,BIRTHD+21.0))*ord(
WRKHRS>=501.0)*1.0; ASY5:=NN(MIN(QUITD,BIRTHD+55.0)-MAX(HIRED+
1.0,BIRTHD+21.0,1981.0))*ord(WRKHRS>=501.0)*1.0; FDFAP1:=MIN(
QUITD,BIRTHD+65.0,1981.0); FAP1:=ord(FDFAP1>HIRED)*WAGE(FDFAP1);
FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,1981.0); FAP2:=
ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); FDFAP3:=MIN(QUITD,
BIRTHD+55.0,1981.0); FAP3:=ord(FDFAP3>HIRED)*WAGE(FDFAP3);
FDFAP4:=MIN(QUITD,BIRTHD+55.0); SDFAP4:=MAX(HIRED,1981.0); FAP4:=
ord(FDFAP4>SDFAP4)*AVG(WAGE,SDFAP4,FDFAP4); SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,
FDMAN7); RED4:=NN(1.0-(0.0333*o(60.0,AGE)+0.0667*a(AGE,65.0,60.0)
)); RED7:=NN(1.0-0.05*o(65.0,AGE)); RED13:=COSTRED; RAS1:=AGE>=
65.0; RAS2:=AGE>=55.0; RAS4:=(AGE>=50.0)&(ASY3>=10.0); RAS5:=(
AGE>=40.0)&(ASY3>=10.0); ROT2:=PARTD<1961.0; BEG7:=ANYTIME(
BIRTHD+50.0,BIRTHD+65.0); NR1:=0.01*FAP1*ASY1+0.015*FAP2*ASY2;
NR1Q:=ord(RAS1)*NR1; NR2:=0.01*FAP3*ASY4+0.015*FAP4*ASY5; NR2Q:=
ord(RAS2&ROT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=
AI(AGE,55.0,65.0)*NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(
RAS4)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS5&ROT2)*ER2; ERT:=MAX(ER1,
ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1;
VD2:=NR2*RED7; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=ER1*RED13*0.5; DS1Q:=
ord(RAS4)*DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(RAS5&ROT2)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY3>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,
RED13,RED7,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP4,SDFAP4,FDFAP4,
FAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1,ASY5,ASY4,ASY3,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0597s1067; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1152.0); ASY2:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/1080.0);
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-2.0),FDFAP1)/12.0;
FDFAP2:=QUITD; FAP2:=AVG(WAGE,MAX(HIRED,FDFAP2-5.0),FDFAP2)/12.0;
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); SDMAN8:=HIRED; FDMAN8:=QUITD; PCMAN8:=
0.0621; MAN8:=SUMI(PCMAN8,8.0,0.0,SDMAN8,FDMAN8); RED4:=AR(65.0-
AGE); RAS1:=(ASY1>=30.0)!(AGE>=60.0)&(ASY1>=5.0)!(AGE>=55.0)&(
ASY1>=25.0); RAS2:=(AGE>=65.0)&(ASY2>=5.0); RAS4:=(AGE>=55.0)&(
ASY2>=20.0); RAS10:=ASY1>=5.0; RAS13:=(ASY1>=10.0)!(AGE>=60.0)&(
ASY1>=5.0); RAS14:=(ASY2>=10.0)!(AGE>=65.0)&(ASY2>=5.0); ROT1:=
PARTD<1977.75; ROT2:=1977.75<=QUITD; BEG7:=MAX(NRD,QUITD); BEG8:=
MAX(ERD,QUITD); NR1:=0.02*ASY1*FAP1; NR1Q:=ord(RAS1&ROT1)*NR1;
NR2:=10.0*ASY1; NR2Q:=ord(RAS1&ROT1)*NR2; NR3:=0.02*ASY2*FAP2;
NR3Q:=ord(RAS2&ROT2)*NR3; NR4:=10.0*ASY2; NR4Q:=ord(RAS2&ROT2)*
NR4; NR5:=0.6*FAP1; NR5Q:=ord(RAS1&ROT1)*NR5; NRT:=MIN(NR5,MAX(
NR1,NR2,NR3,NR4)); NRQ:=MIN(NR5Q,MAX(NR1Q,NR2Q,NR3Q,NR4Q))*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=MAX(NR3,NR4)*RED4; ER1Q:=ord(RAS4&
ROT2)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=MIN(NR5,MAX(NR1,NR2));
VD1Q:=ord(ROT1)*AA(BEG7,0.0)*VD1; VD2:=MAX(NR3,NR4)*RED4; VD2Q:=
ord(ROT2)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,
VD2Q)*12.0; DR1:=MIN(NR5,MAX(NR1,NR2)); DR1Q:=ord(RAS10&ROT1)*
DR1; DR2:=ERT; DR2Q:=ord(ROT2)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(
DR1Q,DR2Q)*12.0; DS1:=MIN(MAX(NR1,NR2),NR5); DS1Q:=ord(RAS13&
ROT1)*DS1; DS2:=MAX(NR3,NR4); DS2Q:=ord(RAS13&ROT2)*DS2; DS3:=
MIN(MAX(NR1,NR2),NR5); DS3Q:=ord(RAS14&ROT1)*DS3; DS4:=MAX(NR3,
NR4); DS4Q:=ord(RAS14&ROT2)*DS4; DST:=MAX(MIN(DS1,DS2),MIN(DS3,
DS4)); DSQ:=MAX(MIN(DS1Q,DS2Q),MIN(DS3Q,DS4Q))*12.0; PRAG:=0.0;
ASY51:=ASY1+ASY2; VEDB:=VOPT(ord(ASY51>=5.0)*1.0); if min( VEDB,
ASY51,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG8,BEG7,RED4,MAN8,PCMAN8,FDMAN8,SDMAN8,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP2,FDFAP2,FAP1,FDFAP1,ASY2,ASY1, CNQ) <0 then negative
end;

procedure c0598s918; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=2.0)*1.0; ASY2:=NN(MIN(QUITD,1963.0)-HIRED)*1.0; ASY3:=
NN(QUITD-MAX(HIRED,1963.0))*ord(WRKHRS>=2.0)*1.0; ASY4:=NNMIN(
3.0,QUITD-MAX(HIRED,1945.0))*ord(WRKHRS>=20.0)*1.0; FAP1:=AVG(
WAGE,HIRED,QUITD); RED4:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED;
ASY73:=ASY1+ASY4; RAS1:=(AGE>=65.0)&(ASY73>=10.0); ASY56:=ASY2+
ASY3; RAS2:=(AGE>=65.0)&(ASY56>=25.0); RAS4:=(AGE>=60.0)&(ASY73>=
10.0); RAS5:=(AGE>=60.0)&(ASY56>=25.0); RAS10:=(AGE>=50.0)&(
ASY73>=10.0); ROT2:=PARTD<1963.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(
BIRTHD+60.0,BIRTHD+65.0); NR1:=(0.0175*u(FAP1,10000.0)+0.014*b(
FAP1,10000.0,25000.0)+0.012*b(FAP1,25000.0,50000.0))*ASY1; NR1Q:=
ord(RAS1)*NR1; NR2:=36.0*ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=600.0;
NR3Q:=ord(RAS1)*NR3; NR4:=MAX(900.0,NR1+NR2); NR4Q:=ord(RAS2&
ROT2)*NR4; NR5:=NR1+(0.008*b(FAP1,50000.0,75000.0)+0.006*o(FAP1,
75000.0))*ASY1; NR5Q:=ord(RAS1)*NR5; NRT:=MAX(NR5+NR2,NR3,NR4);
NRQ:=MAX(NR5Q+NR2Q,NR3Q,NR4Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=MAX(
NR5+NR2,NR3)*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=MAX(NR5+NR2,900.0)*
RED4; ER2Q:=ord(RAS5&ROT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q); VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NR5+NR2; DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=NR3; DR2Q:=ord(
RAS10&ROT10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=
ER1; DS1Q:=ord(RAS4)*DS1; DS2:=ER2; DS2Q:=ord(RAS5&ROT2)*DS2;
DST:=MAX(DS1,DS2)*RED13*0.5; DSQ:=MAX(DS1,DS2)*RED13*0.5; PRAG:=
0.0; VEDB:=VOPT(ord(ASY73>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,ASY56,ASY73,RED13,RED4,FAP1,
ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0599s729; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1969.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0,1976.0)-MAX(HIRED+1.0,BIRTHD+25.0,1969.0))*1.0;
ASY3:=NN(MIN(QUITD,BIRTHD+65.0,1981.0)-MAX(HIRED+1.0,BIRTHD+
25.0,1976.0))*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,
BIRTHD+25.0,1981.0))*1.0; ASY5:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED+1.0,BIRTHD+25.0))*1.0; ASY6:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,BIRTHD+22.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,1969.0);
FAP1:=ord(FDFAP1>HIRED)*WAGE(FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+
65.0,1976.0); SDFAP2:=MAX(HIRED,FDFAP2-36.0/12.0,1969.0); FAP2:=
ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); FDFAP3:=MIN(QUITD,
BIRTHD+65.0,1981.0); SDFAP3:=MAX(HIRED,FDFAP3-36.0/12.0,1976.0);
FAP3:=ord(FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3); FDFAP4:=MIN(
QUITD,BIRTHD+65.0); SDFAP4:=MAX(HIRED,1981.0); FAP4:=ord(
FDFAP4>SDFAP4)*AVG(WAGE,SDFAP4,FDFAP4); FDFAP5:=MIN(QUITD,BIRTHD+
65.0); SDFAP5:=MAX(HIRED,FDFAP5-3.0); FAP5:=ord(FDFAP5>SDFAP5)*
AVG(WAGE,SDFAP5,FDFAP5); SDSS1:=MAX(HIRED,1981.0); SS1:=ord(
QUITD>SDSS1)*SSBASE(BENIFITD); SS2:=SSBASE(BENIFITD); RED4:=1.0-(
0.06*a(AGE,60.0,55.0)+0.04*a(AGE,65.0,60.0)); RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY6>=10.0); ROT10:=QCODABLE; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=(
0.00875*u(FAP1,6000.0)+0.0125*o(FAP1,6000.0))*ASY1; NR1Q:=ord(
RAS1)*NR1; NR2:=(0.01*u(FAP2,12000.0)+0.0125*o(FAP2,12000.0))*
ASY2; NR2Q:=ord(RAS1)*NR2; NR3:=(0.01*u(FAP3,22167.0)+0.0125*o(
FAP3,22167.0))*ASY3; NR3Q:=ord(RAS1)*NR3; NR4:=(0.01*u(FAP4,SS1)+
0.015*o(FAP4,SS1))*ASY4; NR4Q:=ord(RAS1)*NR4; NR5:=(0.01*u(FAP5,
SS2)+0.015*o(FAP5,SS2))*ASY5; NR5Q:=ord(RAS1)*NR5; NRT:=MAX(NR1+
NR2+NR3+NR4,NR5); NRQ:=MAX(NR1Q+NR2Q+NR3Q+NR4Q,NR5Q); LRQ:=AI(
AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*
DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.4*NRT; DS1Q:=ord(RAS4)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY6>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED4,
SS2,SS1,SDSS1,FAP5,SDFAP5,FDFAP5,FAP4,SDFAP4,FDFAP4,FAP3,SDFAP3,
FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1,ASY6,ASY5,ASY4,ASY3,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0600s457; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+22.0))*NNMIN(1.0,WRKHRS/1000.0); ASY2:=NN(
MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/
2080.0); ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+25.0))*
NNMIN(1.0,WRKHRS/2080.0); ASY4:=NN(MIN(QUITD,BIRTHD+45.0)-MAX(
HIRED,BIRTHD+35.0))*NNMIN(1.0,WRKHRS/2080.0); ASY5:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,BIRTHD+45.0))*NNMIN(1.0,WRKHRS/2080.0);
PSY4:=NN(BIRTHD+35.0-MAX(HIRED,BIRTHD+25.0)); PSY5:=NN(BIRTHD+
45.0-MAX(HIRED,BIRTHD+35.0)); PSY6:=NN(BIRTHD+65.0-MAX(HIRED,
BIRTHD+45.0)); PSY7:=NN(BIRTHD+65.0-MAX(HIRED,BIRTHD+25.0));
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SSBASE(
1977.0); RED4:=NN(1.0-0.05*o(65.0,AGE)); RED5:=NN(1.0-0.04*o(
65.0,AGE)); RED6:=NN(1.0-0.03*o(65.0,AGE)); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY2>=5.0); RAS5:=(AGE>=55.0)&(
ASY2>=15.0); RAS6:=(AGE>=55.0)&(ASY2>=25.0); ROT1:=1975.75<=
QUITD; ROT2:=PARTD<1975.75; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG8:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.01*u(FAP1,SS1)+
0.015*o(FAP1,SS1))*ASY2; NR1Q:=ord(RAS1&ROT1)*NR1; NR2:=(0.0055*
ASY3+0.011*ASY4+0.022*ASY5)*MAX(FAP1-0.3333*SS1,0.66667*FAP1);
NR2Q:=ord(RAS1&ROT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q);
LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&ROT1)*ER1;
ER2:=NR1*RED5; ER2Q:=ord(RAS5&ROT1)*ER2; ER3:=NR1*RED6; ER3Q:=
ord(RAS6&ROT1)*ER3; ER4:=(0.0055*PSY4+0.011*PSY5+0.022*PSY6)*MAX(
FAP1-0.3333*SS1,0.66667*FAP1)*ASY2/PSY7*RED4; ER4Q:=ord(RAS4&
ROT2)*ER4; ER5:=(0.0055*PSY4+0.011*PSY5+0.022*PSY6)*MAX(FAP1-
0.3333*SS1,0.66667*FAP1)*ASY2/PSY7*RED5; ER5Q:=ord(RAS5&ROT2)*
ER5; ERT:=MAX(ER1,ER2,ER3,ER4,ER5); ERQ:=MAX(ER1Q,ER2Q,ER3Q,ER4Q,
ER5Q); VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR1; VD2Q:=AA(BEG8,
0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=
ER1*RED13*0.75; DS1Q:=ord(RAS4&ROT1)*DS1; DS2:=ER2*RED13*0.75;
DS2Q:=ord(RAS5&ROT1)*DS2; DS3:=ER3*RED13*0.75; DS3Q:=ord(RAS6&
ROT1)*DS3; DS4:=ER4*RED13*0.75; DS4Q:=ord(RAS4&ROT2)*DS4; DS5:=
ER5*RED13*0.75; DS5Q:=ord(RAS5&ROT2)*DS5; DST:=MAX(DS1,DS2,DS3,
DS4,DS5); DSQ:=MAX(DS1Q,DS2Q,DS3Q,DS4Q,DS5Q); PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS5Q,DS5,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,
VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,ER3,ER2Q,
ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,
RED13,RED6,RED5,RED4,SS1,FAP1,SDFAP1,FDFAP1,PSY7,PSY6,PSY5,PSY4,
ASY5,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0601s449; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+70.0)-MAX(HIRED,MIN(HIRED+1.0,BIRTHD+25.0)))*1.0; ASY2:=
NNMIN(35.0,MIN(QUITD,BIRTHD+70.0)-MAX(HIRED,BIRTHD+27.0))*1.0;
ASY3:=NN(QUITD-MAX(HIRED,BIRTHD+22.0))*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+70.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=NN(1.0-0.04*o(62.0,
AGE)); RED13:=JSRED; RAS1:=AGE>=62.0; RAS4:=AGE>=55.0; ROT10:=
QCODABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+62.0); BEG10:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.01667*FAP1-0.01429*SS1)*ASY1;
NR1Q:=ord(RAS1)*NR1; NR2:=(0.01667*FAP1-0.01429*SS1)*ASY2; NR2Q:=
ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS1)*ER1; ERT:=ER1; ERQ:=
ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=ERT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=
DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASY3>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG10,BEG7,RED13,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,
SDFAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0602s178; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+21.0))*ord(WRKHRS>=1000.0)*1.0; PSY4:=
NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+21.0)); FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,MAX(BENIFITD,
BIRTHD+65.0)); RED4:=NN(1.0-0.048*o(65.0,AGE)); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); ROT7:=ASY1>=
10.0; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=(0.5*FAP1-0.5*SS1)*u(ASY1,30.0)/30.0; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=AI(AGE,65.0,999.0)*NRQ;
MRAGE:=999.0; ER1:=(0.5*FAP1-0.5*SS1)*u(PSY4,30.0)/30.0*ASY1/
PSY4*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=(0.5*
FAP1-0.5*SS1)*u(PSY4,30.0)/30.0*ASY1/PSY4; VD1Q:=AA(BEG7,0.0)*
VD1; VD2:=ERT; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=ERT*RED13*0.5; DS1Q:=
ord(RAS4)*DS1; DS2:=NRT*RED13*0.5; DS2Q:=ord(RAS1)*DS2; DST:=MAX(
DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(MAX(ord(
ASY1>=3.0)*0.3,ord(ASY1>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY1>=
10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG8,BEG7,RED13,RED4,SS1,FAP1,SDFAP1,FDFAP1,PSY4,ASY1,
CNQ) <0 then negative end;

procedure c0603s405; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*ord(WRKHRS>=501.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
70.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,
BENIFITD); SS2:=SS(2.0,BENIFITD); RED4:=NN(1.0-0.05*o(60.0,AGE));
RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(AGE>=60.0)!(AGE>=55.0)&(
ASY1>=30.0); RAS2:=(AGE>=60.0)!(AGE>=55.0)&(ASY2>=30.0); RAS4:=(
AGE>=55.0)&(ASY1>=10.0); RAS5:=(AGE>=55.0)&(ASY2>=10.0); RAS10:=
ASY1>=1.0; ROT2:=AGE<65.0; ROT4:=QAPPROVL; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); BEG10:=MAX(NRD,QUITD); NR1:=(0.5*FAP1-0.5*SS1)
*u(ASY1,35.0)/35.0+0.005*FAP1*o(ASY1,35.0); NR1Q:=ord(RAS1)*NR1;
NR2:=(0.5*FAP1-0.5*SS2)*u(ASY1,35.0)/35.0+0.005*FAP1*o(ASY1,
35.0); NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=MAX(132.0*ASY1,MIN(192.0*
ASY1,0.8*FAP1*ASY1+0.01*FAP1*o(ASY1,30.0))); NR3Q:=ord(RAS2)*NR3;
NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q); LRQ:=NRQ;
MRAGE:=999.0; ER1:=NR2*RED4; ER1Q:=ord(RAS4&ROT4)*ER1; ER2:=NR3*
RED4; ER2Q:=ord(RAS5&ROT4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q); VD1:=MAX(NR2,NR3)*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=NR1; DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DR2:=
NR2; DR2Q:=ord(RAS10&ROT2)*AA(BEG10,0.0)*DR2; DR3:=NR3; DR3Q:=
ord(RAS10)*AA(BEG10,0.0)*DR3; DRT:=MAX(DR1,DR2,DR3); DRQ:=MAX(
DR1Q,DR2Q,DR3Q); DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DS2:=
NR1*RED13*0.5; DS2Q:=ord(RAS1)*DS2; DS3:=NR2*RED13*0.5; DS3Q:=
ord(RAS1&ROT2)*DS3; DS4:=NR3*RED13*0.5; DS4Q:=ord(RAS2)*DS4;
DST:=MAX(MAX(DS2,DS3,DS4),DS1); DSQ:=MAX(MAX(DS2Q,DS3Q,DS4Q),
DS1Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=60.0)!(ASY1>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,
DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG10,BEG7,RED13,RED7,RED4,SS2,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0604s406; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
70.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+
65.0))/12.0; SS2:=SS(2.0,BENIFITD)/12.0; RED4:=NN(1.0-0.06*o(
60.0,AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(AGE>=60.0)!(
AGE>=55.0)&(ASY1>=30.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=
ASY1>=10.0; DAT2:=1984.25<=QUITD; ROT2:=AGE<65.0; ROT4:=QAPPROVL;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=15.0*ASY1; NR1Q:=
ord(RAS1)*NR1; NR2:=16.0*ASY1; NR2Q:=ord(RAS1&DAT2)*NR2; NR3:=
12.0*ASY1; NR3Q:=ord(RAS1)*NR3; NR4:=NN(0.8*FAP1+0.01*FAP1*o(
ASY1,30.0)-SS1); NR4Q:=ord(RAS1)*NR4; NR5:=NN(0.8*FAP1+0.01*FAP1*
o(ASY1,30.0)-SS2); NR5Q:=ord(RAS1&ROT2)*NR5; NRT:=MAX(NR3,MIN(
MAX(NR1,NR2),MAX(NR4,NR5))); NRQ:=MAX(NR3Q,MIN(MAX(NR1Q,NR2Q),
MAX(NR4Q,NR5Q)))*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4;
ER1Q:=ord(RAS4&ROT4)*ER1; ER2:=NR5; ER2Q:=ord(RAS4&ROT4)*ER2;
ER3:=NR3*RED4; ER3Q:=ord(RAS4&ROT4)*ER3; ER4:=NR2*RED4; ER4Q:=
ord(RAS4&DAT2&ROT4)*ER4; ERT:=MAX(ER3,MIN(MAX(ER1,ER4),ER2));
ERQ:=MAX(ER3Q,MIN(MAX(ER1Q,ER4Q),ER2Q))*12.0; VD1:=NR1*RED7;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR4; VD2Q:=AA(BEG7,0.0)*VD2; VD3:=
NR3*RED7; VD3Q:=AA(BEG7,0.0)*VD3; VD4:=NR2*RED7; VD4Q:=ord(DAT2)*
AA(BEG7,0.0)*VD4; VDT:=MAX(VD3,MIN(MAX(VD1,VD4),VD2)); VDQ:=MAX(
VD3Q,MIN(MAX(VD1Q,VD4Q),VD2Q))*12.0; DR1:=NR1; DR1Q:=ord(RAS10)*
DR1; DR2:=NR2; DR2Q:=ord(RAS10&DAT2)*DR2; DR3:=NR3; DR3Q:=ord(
RAS10)*DR3; DR4:=NR4; DR4Q:=ord(RAS10)*DR4; DRT:=MAX(DR3,MIN(MAX(
DR1,DR2),DR4)); DRQ:=MAX(DR3Q,MIN(MAX(DR1Q,DR2Q),DR4Q))*12.0;
DS1:=MAX(ER3,MIN(MAX(ER1,ord(DAT2)*ER4),ER2))*RED13*0.5; DS1Q:=
ord(RAS4)*DS1; DS2:=0.5*MAX(NR3,MIN(MAX(NR1,ord(DAT2)*NR2),MAX(
NR4,NR5)))*RED13; DS2Q:=ord(RAS1)*DS2; DST:=MAX(DS1,DS2); DSQ:=
MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=60.0)!(
ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD4Q,VD4,
VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG7,RED13,RED7,RED4,SS2,SS1,FAP1,SDFAP1,FDFAP1,ASY1,
CNQ) <0 then negative end;

procedure c0605s842; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+
70.0,1972.083)-HIRED)*MIN(2.0,NN(WRKHRS/2000.0)); ASY3:=NN(MIN(
QUITD,BIRTHD+70.0)-MAX(HIRED,1972.083))*MIN(2.0,NN(WRKHRS/
1800.0)); RED4:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(AGE>=65.0)&(
ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); ASY56:=ASY2+ASY3;
RAS10:=ASY56>=10.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=72.0*(ASY2+ASY3); NR1Q:=ord(RAS1)*NR1; NRT:=
NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=
DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,ASY56,
RED13,RED4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0606s997; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1);
FAP2:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.04;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.03*o(
65.0,AGE)); RED5:=NN(1.0-0.03*o(62.0,AGE)); RED10:=OTHERB;
RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY1>=10.0)!(AGE+ASY1>=90.0);
RAS4:=(AGE>=58.0)&(ASY1>=20.0)!(AGE>=62.0)&(ASY1>=10.0); RAS5:=(
AGE>=58.0)&(ASY1>=30.0); RAS10:=(ASY1>=10.0)!(AGE>=50.0)&(ASY1>=
5.0); BEG7:=MAX(ERD,QUITD); NR1:=(0.01*u(ASY1,10.0)+0.015*o(ASY1,
10.0))*FAP1; NR1Q:=ord(RAS1)*NR1; NR2:=FAP2; NR2Q:=ord(RAS1)*NR2;
NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5; ER2Q:=ord(
RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT-RED10;
DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED10,RED5,RED4,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP2,FAP1,FDFAP1,ASY1,CNQ) <0 then negative
end;

procedure c0607s784; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-36.0/12.0),FDFAP1)
/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.07; MAN7:=SUMI(
PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED13:=JSRED; RAS1:=(ASY1>=30.0)!(
AGE>=55.0)&(ASY1>=25.0)!(AGE>=60.0)&(ASY1>=10.0); RAS10:=ASY1>=
5.0; RAS13:=ASY1>=15.0; BEG7:=MAX(NRD,QUITD); BEG13:=MAX(BIRTHD+
50.0,QUITD); NR1:=MIN(FAP1,0.025*FAP1*ASY1+2.0*ASY1); NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0;
ERQ:=0.0; VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*
12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0;
DS1:=0.5*NRT*RED13; DS1Q:=ord(RAS13)*AA(BEG13,0.0)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=MIN(0.95*ACPIG,0.03); VEDB:=VOPT(ord(ASY1>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG13,BEG7,
RED13,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0608s287; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/
2000.0); ASY4:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=
1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,
FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1);
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0)); RED4:=NN(1.0-0.036*o(
65.0,AGE)); RED7:=AR(65.0-AGE); RAS1:=AGE>=65.0; RAS4:=(AGE>=
55.0)&(ASY4>=10.0); RAS10:=(AGE>=35.0)&(ASY4>=5.0); RAS13:=(AGE>=
50.0)&(ASY4>=10.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=ASY1/
30.0*0.5*(FAP1-SS1); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=ERT; DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*DR1;
DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*NRT; DS1Q:=ord(RAS13)*DS1; DST:=
DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,
BEG10,BEG7,RED7,RED4,SS1,FAP1,SDFAP1,FDFAP1,ASY4,ASY1,CNQ) <0
then negative end;

procedure c0609s868; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY2:=MIN(25.0,QUITD-HIRED)*NNMIN(1.0,
WRKHRS/40.0); RED4:=NN(1.0-0.06*o(65.0,AGE)); RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=(AGE>=50.0)&(ASY1>=10.0);
RAS13:=ASY1>=10.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
8.25*ASY2; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*
12.0; DS1:=0.5*NRT; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*
12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,
RED4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0610s76; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*ord(WRKHRS>=870.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+
70.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; RED4:=NN(1.0-0.06*o(60.0,AGE));
RED7:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=65.0)!(
AGE>=55.0)&(ASY1>=30.0); RAS2:=AGE>=60.0; RAS4:=(AGE>=60.0)!(
AGE>=50.0)&(ASY2>=10.0); RAS5:=(AGE>=60.0)!(AGE>=55.0)&(ASY2>=
10.0); RAS10:=ASY2>=10.0; RAS13:=(AGE>=45.0)&(ASY2>=10.0); ROT2:=
PARTD<1954.0; BEG7:=ANYTIME(BIRTHD+55.0,0.0); BEG8:=ANYTIME(
BIRTHD+50.0,0.0); NR1:=MIN(16.0*ASY1,0.8+0.01*o(ASY1,30.0)*FAP1);
NR1Q:=ord(RAS1)*NR1; NR2:=12.0*ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=
NR1; NR3Q:=ord(RAS2&ROT2)*NR3; NR4:=NR2; NR4Q:=ord(RAS2&ROT2)*
NR4; NRT:=MAX(NR1,NR2,NR3,NR4); NRQ:=MAX(NR1Q,NR2Q,NR3Q,NR4Q)*
12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=MAX(NR1,NR2)*RED4; ER1Q:=ord(
RAS4&ROT2)*ER1; ER2:=MAX(NR1,NR2)*RED4; ER2Q:=ord(RAS5)*ER2;
ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0; VD1:=NRT*RED7;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NRT*RED7; VD2Q:=ord(ROT2)*AA(BEG8,
0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT;
DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ER1*RED13*
0.5; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=60.0)!(ASY2>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,
VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,
NR3,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,RED13,RED7,RED4,FAP1,SDFAP1,
FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0611s1089; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; PSY10:=MIN(20.0,BIRTHD+60.0-HIRED); FDFAP1:=
MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,
FDMAN7); SS1:=SSBASE(BENIFITD)/12.0; RED4:=NN(1.0-0.048*o(60.0,
AGE)); RED5:=NN(1.0-0.048*o(30.0,ASY1)); RED10:=OTHERB; RED13:=
JSRED; RAS1:=(AGE>=60.0)!(ASY1>=30.0); RAS4:=(AGE>=55.0)&(ASY1>=
10.0); RAS5:=(AGE>=55.0)&(ASY1>=4.0); RAS10:=ASY1>=5.0; RAS13:=(
AGE>=60.0)!(ASY1>=10.0); ROT4:=PARTD<1979.5; ROT10:=^QSSDABLE;
ROT11:=QSSDABLE; BEG7:=MAX(NRD,QUITD); NR1:=MIN(0.015*FAP1*ASY1+
0.0025*o(FAP1,SS1)*ASY1,0.75*FAP1); NR1Q:=ord(RAS1)*NR1; NR2:=
MIN(7.0*ASY1,FAP1); NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=
MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*MAX(RED4,
RED5); ER1Q:=ord(RAS4)*ER1; ER2:=NRT*MAX(RED4,RED5); ER2Q:=ord(
RAS5&ROT4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0;
VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
0.9*NRT; DR1Q:=ord(RAS10)*DR1; DR2:=0.9*(0.015*FAP1*PSY10+0.0025*
o(FAP1,SS1)*PSY10); DR2Q:=ord(RAS10)*DR2; DR3:=MIN(0.5*FAP1,0.75*
FAP1-RED10); DR3Q:=ord(ROT10)*DR3; DR4:=MIN(0.3333*FAP1,0.75*
FAP1-RED10); DR4Q:=ord(ROT11)*DR4; DRT:=MIN(DR1,DR2,DR3,DR4);
DRQ:=MIN(DR1Q,DR2Q,DR3Q,DR4Q)*12.0; DS1:=ERT*RED13; DS1Q:=ord(
RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=ord(ACPIG>=0.01)*MIN(
0.95*ACPIG,0.03); VEDB:=VOPT(ord((QUITAGE>=60.0)!(ASY1>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,
DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED10,RED5,
RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,PSY10,
ASY1,CNQ) <0 then negative end;

procedure c0612s904; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(25.0,MIN(QUITD,1963.417)-HIRED)*
NNMIN(1.0,WRKHRS/1200.0); ASY2:=NNMIN(25.0,QUITD-MAX(HIRED,
1963.417))*NNMIN(1.0,WRKHRS/1200.0); RED4:=1.0-(0.0333*a(AGE,
60.0,55.0)+0.0667*a(AGE,65.0,60.0)); RED13:=JSRED; ASY51:=ASY1+
ASY2; RAS1:=(AGE>=65.0)&(ASY51>=10.0); RAS4:=(AGE>=55.0)&(ASY51>=
15.0); RAS10:=ASY51>=5.0; ROT7:=ASY1+ASY2>=15.0; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,QUITD); NR1:=
12.45*ASY1+21.34*ASY2+50.0; NR1Q:=ord(RAS1)*NR1; NR2:=450.0;
NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=(12.45*ASY1+21.34*ASY2)*RED4+50.0;
ER1Q:=ord(RAS4)*ER1; ER2:=450.0; ER2Q:=ord(RAS4)*ER2; ERT:=MIN(
ER1,ER2); ERQ:=MIN(ER1Q,ER2Q)*12.0; VD1:=ERT; VD1Q:=ord(ROT7)*AA(
BEG7,0.0)*VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=MIN(NR2,0.9*(12.45*ASY1+
21.34*ASY2)+50.0); DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*
12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASYV>=10.0)*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,
NR1Q,NR1,BEG8,BEG7,ASY51,RED13,RED4,ASY2,ASY1,ASYV,CNQ) <0 then
negative end;

procedure c0613s62; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/1634.0); ASY2:=NN(MIN(QUITD,BIRTHD+
70.0)-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=870.0)*1.0; RED4:=NN(
1.0-0.06*o(62.0,AGE)); RED7:=1.0-(0.043*a(AGE,58.0,57.0)+0.048*a(
AGE,59.0,58.0)+0.055*a(AGE,60.0,59.0)); RED8:=1.0-(0.061*a(AGE,
61.0,60.0)+0.07*a(AGE,62.0,61.0)+0.079*a(AGE,63.0,62.0)); RED9:=
1.0-(0.09*a(AGE,64.0,63.0)+0.104*a(AGE,65.0,64.0)); RED13:=JSRED;
RAS1:=(ASY1>=30.0)!(AGE>=62.0)&(ASY1>=10.0); RAS2:=ASY1>=30.0;
RAS3:=(AGE>=65.0)&(ASY1>=10.0); RAS4:=(AGE>=57.0)&(ASY1>=10.0);
RAS10:=ASY1>=10.0; RAS13:=(ASY1>=30.0)!(AGE>=57.0)&(ASY1>=10.0);
ROT10:=^QSSDABLE; LNG2:=BIRTHD+62.0; BGN3:=MAX(BIRTHD+65.0,QUITD)
;LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+57.0,BIRTHD+65.0);
BEG11:=MAX(BIRTHD+65.0,QUITD); BEG14:=MAX(BIRTHD+65.0,QUITD);
NR1:=18.0*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=12.0*ASY1; NR2Q:=ord(
RAS2)*AA(QUITD,LNG2)*NR2; NR3:=9.7; NR3Q:=ord(RAS3)*AA(BGN3,0.0)*
NR3; NRT:=NR1+NR2+NR3; NRQ:=(NR1Q+NR2Q+NR3Q)*12.0; LRQ:=NRQ;
MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR3; ER2Q:=
ord(RAS4)*AA(BGN3,0.0)*ER2; ERT:=ER1+ER2; ERQ:=(ER1Q+ER2Q)*12.0;
VD1:=NR1*RED7*RED8*RED9; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NR1; DR1Q:=ord(RAS10)*DR1; DR2:=NR1; DR2Q:=ord(
RAS10&ROT10)*AA(QUITD,LNG10)*DR2; DR3:=NR3; DR3Q:=ord(RAS10)*AA(
BEG11,0.0)*DR3; DRT:=DR1+DR2+DR3; DRQ:=(DR1Q+DR2Q+DR3Q)*12.0;
DS1:=0.6*ER1*RED13; DS1Q:=ord(RAS13)*DS1; DS2:=NR3; DS2Q:=ord(
RAS13)*AA(BEG14,0.0)*DS2; DST:=DS1+DS2; DSQ:=(DS1Q+DS2Q)*12.0;
PRAG:=0.0; VEDB:=VOPT(ord(ASY2>=10.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG14,BEG11,BEG7,LNG10,BGN3,LNG2,
RED13,RED9,RED8,RED7,RED4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0614s63; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1975.0)-
HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(QUITD-MAX(HIRED,1975.0))*
NNMIN(1.0,WRKHRS/12.0); ASY3:=(QUITD-HIRED)*1.0; ASY4:=(QUITD-
HIRED)*NNMIN(1.0,WRKHRS/12.0); FDFAP1:=MIN(QUITD,1975.0);
SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; SDFAP2:=MAX(HIRED,1975.0); FAP2:=
ord(QUITD>SDFAP2)*AVG(WAGE,SDFAP2,QUITD)/12.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,
FDMAN7); SS1:=SSBASE(BENIFITD)/12.0; RED4:=NN(1.0-(0.03*o(55.0,
AGE)+0.06*a(AGE,60.0,55.0)+0.03*a(AGE,65.0,60.0))); RED5:=NN(1.0-
0.06*o(62.0,AGE)); RED7:=AR(65.0-AGE); RED8:=AR(62.0-AGE);
RED13:=JSRED; RAS1:=(ASY4>=30.0)!(AGE>=65.0)&(ASY4>=10.0); RAS2:=
ASY4>=30.0; RAS3:=(ASY4>=30.0)!(AGE>=62.0)&(ASY4>=10.0); RAS4:=(
AGE>=60.0)&(ASY4>=10.0)!(AGE+ASY4>=85.0)&(AGE>=55.0); RAS5:=(
AGE>=55.0)&(ASY4>=15.0)!(AGE>=60.0)&(ASY4>=10.0)!(AGE+ASY4>=
75.0); RAS10:=ASY4>=10.0; RAS13:=(ASY4>=30.0)!(AGE>=55.0)&(ASY4>=
10.0); RAS14:=AGE+ASY4>=75.0; ROT4:=PARTD<1975.0; ROT10:=
^QSSDABLE; LNG2:=BIRTHD+62.0; LNG10:=BIRTHD+65.0; BEG7:=MAX(ERD,
QUITD); NR1:=0.0125*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.015*
u(FAP2,SS1)+0.025*o(FAP2,SS1))*ASY2; NR2Q:=ord(RAS1)*NR2; NR3:=
10.0*ASY4+15.0; NR3Q:=ord(RAS2)*AA(QUITD,LNG2)*NR3; NR4:=12.0*
ASY4; NR4Q:=ord(RAS2)*AA(QUITD,LNG2)*NR4; NR5:=18.0*ASY4; NR5Q:=
ord(RAS3)*NR5; NRT:=MAX(NR1+NR2+NR3,NR4+NR5); NRQ:=MAX(NR1Q+NR2Q+
NR3Q,NR4Q+NR5Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=(NR1+NR2)*
RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR5*RED5; ER2Q:=ord(RAS4)*ER2;
ER3:=ER1; ER3Q:=ord(RAS5&ROT4)*ER3; ER4:=ER2; ER4Q:=ord(RAS5&
ROT4)*ER4; ERT:=MAX(ER1,ER2,ER3,ER4); ERQ:=MAX(ER1Q,ER2Q,ER3Q,
ER4Q)*12.0; VD1:=(NR1+NR2)*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=
NR5*RED8; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q)*12.0; DR1:=18.0*ASY4; DR1Q:=ord(RAS10)*DR1; DR2:=18.0*
ASY4; DR2Q:=ord(RAS10&ROT10)*AA(QUITD,LNG10)*DR2; DR3:=NR1+NR2;
DR3Q:=ord(RAS10)*DR3; DR4:=10.0*u(ASY4,25.0); DR4Q:=ord(RAS10&
ROT10)*AA(QUITD,LNG10)*DR4; DRT:=MAX(DR1+DR2,DR3+DR4); DRQ:=MAX(
DR1Q+DR2Q,DR3Q+DR4Q)*12.0; DS1:=MAX(ER1,ER2)*RED13*0.55; DS1Q:=
ord(RAS13)*DS1; DS2:=DS1; DS2Q:=ord(RAS14&ROT4)*DS2; DST:=MAX(
DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord(
ASY3>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,LNG10,
LNG2,RED13,RED8,RED7,RED5,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP2, SDFAP2,FAP1,SDFAP1,FDFAP1,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0615s869; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; FAP1:=AVG(WAGE,HIRED,QUITD); RED4:=AR(65.0-
AGE); RED5:=AR(62.0-AGE); RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY1>=
10.0)!(AGE>=62.0)&(ASY1>=25.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0);
RAS5:=(AGE>=55.0)&(ASY1>=25.0); RAS10:=ASY1>=10.0; ROT10:=
QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.006*
FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5;
ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT;
DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*
RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,
DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED5,RED4,FAP1,ASY1,CNQ)
<0 then negative end;

procedure c0616s101; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FAP1:=WAGE(QUITD)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
0.0925; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED13:=JSRED;
RAS1:=(ASY1>=30.0)!(AGE>=55.0)&(ASY1>=25.0)!(AGE>=60.0)&(ASY1>=
10.0); RAS10:=ASY1>=5.0; BEG7:=MAX(NRD,QUITD); NR1:=0.03*FAP1*
ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=FAP1; NR2Q:=ord(RAS1)*NR2; NRT:=
MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0;
ERQ:=0.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*
12.0; DR1:=NR1; DR1Q:=ord(RAS10)*DR1; DR2:=0.6*FAP1; DR2Q:=ord(
RAS10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=
NRT*RED13; DS1Q:=ord(RAS10)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=
0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP1,ASY1,CNQ) <0 then negative end;

procedure c0617s776; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
ASY2:=NN(MIN(QUITD,1951.667)-HIRED)*1.0; ASY3:=NN(MIN(QUITD,
1973.667)-HIRED)*1.0; FAP1:=SUM(WAGE,HIRED,QUITD); SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=0.04; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,
FDMAN7); RED4:=NN(1.0-0.04*o(65.0,AGE)); RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY1>=10.0); RAS13:=ASY1>=10.0; BEG7:=MAX(BIRTHD+
65.0,QUITD); NR1:=30.0*ASY2+0.012*FAP1; NR1Q:=ord(RAS1)*NR1;
NR2:=20.0*ASY3; NR2Q:=ord(RAS1)*NR2; NR3:=30.0*ASY1; NR3Q:=ord(
RAS1)*NR3; NRT:=MAX(NR1+NR2,NR2+NR3); NRQ:=MAX(NR1Q+NR2Q,NR2Q+
NR3Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1; ER1Q:=ord(RAS4)*ER1;
ER2:=NR2; ER2Q:=ord(RAS4)*ER2; ER3:=NR3; ER3Q:=ord(RAS4)*ER3;
ERT:=MAX(ER1+ER2,ER2+ER3)*RED4; ERQ:=MAX(ER1+ER2,ER2+ER3)*RED4;
VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR2; VD2Q:=AA(BEG7,0.0)*
VD2; VD3:=NR3; VD3Q:=AA(BEG7,0.0)*VD3; VDT:=MAX(VD1+VD2,VD2+VD3);
VDQ:=MAX(VD1+VD2,VD2+VD3); DRQ:=0.0; DS1:=NR3; DS1Q:=ord(RAS13)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED4,
MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,ASY3,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0618s768; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1);
FDFAP2:=QUITD; FAP2:=AVG(WAGE,MAX(HIRED,FDFAP2-5.0),FDFAP2);
FAP13:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR;
MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED10:=OTHERB; RED13:=
JSRED; RAS1:=ASY1>=25.0; RAS11:=ASY1>=5.0; ROT1:=PARTD<1969.0;
ROT2:=1969.0<=QUITD; ROT10:=QJRDABLE; ROT11:=^QJRDABLE; ROT13:=
QJRDEATH; ROT14:=^QJRDEATH; LNG10:=NRD; BEG7:=MAX(NRD,QUITD);
BEG11:=MAX(NRD,QUITD); NR1:=0.02*FAP1*u(ASY1,25.0); NR1Q:=ord(
RAS1&ROT1)*NR1; NR2:=0.02*FAP2*u(ASY1,35.0); NR2Q:=ord(RAS1&ROT2)
*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=
60.0; ERQ:=0.0; VD1:=NR1; VD1Q:=ord(ROT1)*AA(BEG7,0.0)*VD1; VD2:=
NR2; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1,VD2); DR1:=2.0/3.0*FAP1-RED10; DR1Q:=ord(ROT10)*AA(QUITD,
LNG10)*DR1; DR2:=NRT; DR2Q:=ord(ROT10)*AA(BEG11,0.0)*DR2; DR3:=
MAX(NRT,0.2*FAP2); DR3Q:=ord(RAS11&ROT11)*DR3; DRT:=MAX(DR3,DR1+
DR2); DRQ:=MAX(DR3,DR1+DR2); DS1:=0.455*FAP13; DS1Q:=ord(ROT13)*
DS1; DS2:=MAX(NRT*RED13,0.2*FAP13); DS2Q:=ord(ROT14)*DS2; DST:=
MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=AWAGEG; VEDB:=VOPT(ord((
QUITAGE>=40.0)&(ASY1>=8.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,
DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,
VD2,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG11,BEG7,
LNG10,RED13,RED10,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP13,FAP2,FDFAP2,
FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0619s886; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
68.0)-(HIRED+1.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+68.0); FAP1:=
ord(FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1); SDVOL7:=HIRED; FDVOL7:=
QUITD; VR1VOL7:=ord(WAGE(SURVEYD)>=23688.0)*0.02; VR2VOL7:=ord(
WAGE(SURVEYD)>=23688.0)*0.02; PCVOL7:=MAX(VR1VOL7*WAGE(SURVEYD),
MIN(VR2VOL7*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,FDVOL7); RED4:=AR(65.0-AGE);
RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY1>=20.0)!(AGE>=
62.0)&(ASY1>=15.0); RAS4:=(AGE>=55.0)&(ASY1>=13.0); ROT2:=
QVOLCNTR; BEG7:=MAX(ERD,QUITD); NR1:=0.015*FAP1*ASY1; NR1Q:=ord(
RAS1)*NR1; NR2:=(0.015*u(FAP1,23688.0)+0.025*o(FAP1,23688.0))*
ASY1; NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=108.0*ASY1; NR3Q:=ord(RAS1)*
NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q); LRQ:=NRQ;
MRAGE:=999.0; ER1:=MAX(NR1,NR3)*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
NR2*RED4; ER2Q:=ord(RAS4&ROT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q); VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=
ord(ROT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,
VD2Q); DRQ:=0.0; DS1:=ER1*RED13; DS1Q:=ord(RAS1)*DS1; DS2:=ER2*
RED13; DS2Q:=ord(RAS4&ROT2)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(
DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=5.0)*0.6,ord(
ASY1>=6.0)*0.65,ord((QUITAGE>=65.0)!(ASY1>=13.0))*1.0)); if min(
VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,
VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,
NR2,NR1Q,NR1,BEG7,RED13,RED4,VOL7,PCVOL7,VR2VOL7,VR1VOL7,FDVOL7,
SDVOL7,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0620s1012; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+65.0,1982.5)-(
HIRED+1.0))*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,1982.5))*NNMIN(1.0,WRKHRS/12.0); FDFAP1:=MIN(
QUITD,BIRTHD+65.0,1982.5); FAP1:=ord(FDFAP1>HIRED)*WAGE(FDFAP1);
FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,FDFAP2-5.0);
FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); FDFAP3:=MIN(
QUITD,BIRTHD+65.0); SDFAP3:=MAX(HIRED,1982.5); FAP3:=ord(
FDFAP3>SDFAP3)*AVG(WAGE,SDFAP3,FDFAP3); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
SDSS1:=MAX(HIRED,1982.5); SS1:=ord(QUITD>SDSS1)*SSBASE(BENIFITD);
RED4:=NN(1.0-0.04*o(60.0,AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED;
RAS1:=AGE>=61.0; RAS4:=AGE>=55.0; ROT7:=^QWDMAN; BGN4:=MAX(
BIRTHD+55.0,QUITD); LNG4:=BIRTHD+60.0; BGN5:=MAX(BIRTHD+60.0,
QUITD); LNG5:=BIRTHD+61.0; BGN6:=MAX(BIRTHD+61.0,QUITD); BEG7:=
MAX(BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
NR1:=(0.0085*MIN(u(FAP1,11000.0),u(FAP2,11000.0))+0.015*MIN(o(
FAP1,11000.0),o(FAP2,11000.0)))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(
0.01125*u(FAP3,SS1)+0.02*o(FAP3,SS1))*ASY2; NR2Q:=ord(RAS1)*NR2;
NRT:=NR1+NR2; NRQ:=NR1Q+NR2Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=(
0.01173*MIN(u(FAP1,11000.0),u(FAP2,11000.0))+0.015*MIN(o(FAP1,
11000.0),o(FAP2,11000.0)))*ASY1*RED4; ER1Q:=ord(RAS4)*AA(BGN4,
LNG4)*ER1; ER2:=(0.01493*u(FAP3,SS1)+0.02*o(FAP3,SS1))*ASY2*RED4;
ER2Q:=ord(RAS4)*AA(BGN4,LNG4)*ER2; ER3:=(0.01173*MIN(u(FAP1,
11000.0),u(FAP2,11000.0))+0.015*MIN(o(FAP1,11000.0),o(FAP2,
11000.0)))*ASY1; ER3Q:=ord(RAS4)*AA(BGN5,LNG5)*ER3; ER4:=(
0.01493*u(FAP3,SS1)+0.02*o(FAP3,SS1))*ASY2; ER4Q:=ord(RAS4)*AA(
BGN5,LNG5)*ER4; ER5:=NRT; ER5Q:=ord(RAS4)*AA(BGN6,0.0)*ER5; ERT:=
ER1+ER2+ER3+ER4+ER5; ERQ:=ER1Q+ER2Q+ER3Q+ER4Q+ER5Q; VD1:=NRT;
VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT*RED7; VD2Q:=ord(ROT7)*
AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=
0.0; DS1:=0.5*ER1*RED13; DS1Q:=ord(RAS4)*AA(BGN4,LNG4)*DS1; DS2:=
0.5*ER2*RED13; DS2Q:=ord(RAS4)*AA(BGN4,LNG4)*DS2; DS3:=0.5*ER3*
RED13; DS3Q:=ord(RAS4)*AA(BGN5,LNG5)*DS3; DS4:=0.5*ER4*RED13;
DS4Q:=ord(RAS4)*AA(BGN5,LNG5)*DS4; DS5:=0.5*ER5*RED13; DS5Q:=ord(
RAS4)*AA(BGN6,0.0)*DS5; DST:=DS1+DS2+DS3+DS4+DS5; DSQ:=DS1Q+DS2Q+
DS3Q+DS4Q+DS5Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASYV>=5.0)*0.25,
ord(ASYV>=10.0)*0.5,ord((QUITAGE>=55.0)!(ASYV>=15.0))*1.0)); if
min( VEDB,PRAG,DSQ,DST,DS5Q,DS5,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,
DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG8,BEG7,BGN6,LNG5,BGN5,LNG4,BGN4,RED13,RED7,RED4,SS1,SDSS1,
MAN7,PCMAN7,FDMAN7,SDMAN7,FAP3,SDFAP3,FDFAP3,FAP2, SDFAP2,FDFAP2,
FAP1,FDFAP1,ASY2,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0621s290; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/1800.0); ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; RED4:=1.0-
(0.048*a(AGE,60.0,55.0)+0.06*a(AGE,65.0,60.0)); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY2>=10.0); RAS10:=(AGE>=
50.0)&(ASY2>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
9.5*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=AI(
AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=
DR1; DRQ:=DR1Q*12.0; DS1:=0.45*ERT; DS1Q:=ord(RAS4)*DS1; DS2:=
0.5*NRT*RED13; DS2Q:=ord(RAS1)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(
DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0622s342; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
ASY2:=NNMIN(25.0,QUITD-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; FDFAP1:=
QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); SS1:=SSBASE(
BENIFITD); RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,
60.0)); RAS1:=AGE>=65.0; RAS4:=AGE>=55.0; BEG7:=MAX(BIRTHD+65.0,
QUITD); NR1:=0.01*FAP1*ASY2+0.01*o(FAP1,SS1)*ASY2; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; PRAG:=TAR(0.03,1.0);
VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASY1>=5.0))*1.0); if min( VEDB,
PRAG,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG7,RED4,SS1,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0623s1044; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; PSY10:=BIRTHD+60.0-HIRED; FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1)/12.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=0.04; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,
FDMAN7); SS10:=SS(5.0,BENIFITD)/12.0; RED4:=NN(1.0-0.06*o(60.0,
AGE)); RED13:=JSRED; RAS1:=(AGE>=60.0)&(ASY1>=5.0); RAS4:=(AGE>=
55.0)&(ASY1>=5.0); RAS10:=ASY1>=5.0; ROT10:=^QJRDABLE; ROT11:=
QJRDABLE; LNG13:=10.0; BEG7:=MAX(BIRTHD+60.0,QUITD); NR1:=0.01*
FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NNMIN(NR1,FAP1-SS10); DR1Q:=ord(RAS10&ROT10)*DR1;
DR2:=NNMIN(0.01*PSY10*FAP1,FAP1-SS10); DR2Q:=ord(ROT11)*DR2;
DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=0.8*ERT*RED13;
DS1Q:=ord(RAS10)*AA(QUITD,LNG13+QUITD)*DS1; DS2:=0.8*ERT*RED13;
DS2Q:=ord(RAS10)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*
12.0; PRAG:=MIN(0.95*ACPIG,0.02); VEDB:=VOPT(MAX(ord(ASY1>=5.0)*
0.5,ord(ASY1>=6.0)*0.6,ord((ASY1>=10.0)!(QUITAGE>=55.0)!(ASY1>=
5.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,LNG13,RED13,RED4,SS10,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP1,FDFAP1,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0624s930; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-12.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.06;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RAS1:=(AGE>=62.0)!(
ASY1>=20.0); RAS10:=ASY1>=5.0; BEG7:=MAX(BIRTHD+50.0,QUITD);
NR1:=0.025*FAP1*u(ASY1,20.0)+0.01*FAP1*b(ASY1,20.0,30.0); NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=65.0;
ERQ:=0.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*
12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0;
DSQ:=0.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=5.0))*
1.0); if min( VEDB,PRAG,DSQ,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0625s992; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/900.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-4.0),FDFAP1); FDFAP10:=MIN(QUITD,BIRTHD+65.0); FAP10:=ord(
FDFAP10>HIRED)*WAGE(FDFAP10); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=0.04; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SS10:=SS(
5.0,BENIFITD); SS13:=SS(6.0,BENIFITD); RED4:=NN(1.0-0.06*o(60.0,
AGE)); RED10:=OTHERB; RAS1:=(ASY1>=35.0)!(AGE>=60.0)&(ASY1>=8.0);
RAS4:=(AGE>=55.0)&(ASY1>=30.0); RAS10:=ASY1>=1.0; ROT10:=
^QJRDABLE; ROT11:=QJRDABLE; ROT13:=^QJRDEATH; ROT14:=QJRDEATH;
LNG10:=MIN(BIRTHD+65.0,BENIFITD+ASY1/2.0); LNG11:=BIRTHD+65.0;
LNG14:=1.0; BEG7:=MAX(ERD,QUITD); BEG8:=MAX(NRD,QUITD); NR1:=(
0.01*u(ASY1,10.0)+0.011*b(ASY1,10.0,20.0)+0.013*b(ASY1,20.0,
30.0)+0.015*o(ASY1,30.0))*FAP1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1;
VD2:=NR1; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q); DR1:=NN(0.5*FAP10-SS10); DR1Q:=ord(RAS10&ROT10)*AA(
QUITD,LNG10)*DR1; DR2:=NN(0.75*FAP10-RED10); DR2Q:=ord(ROT11)*AA(
QUITD,LNG11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=
1000.0; DS1Q:=ord(RAS10&ROT13)*AA(QUITD,LNG14+QUITD)*DS1; DS2:=
NNMIN(0.3*FAP1-0.5*SS13,4800.0-0.5*SS13); DS2Q:=ord(RAS10&ROT13)*
DS2; DS3:=0.5*FAP10; DS3Q:=ord(ROT14)*DS3; DST:=MAX(DS1+DS2,DS3);
DSQ:=MAX(DS1Q+DS2Q,DS3Q); PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=8.0)*
1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,
DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,LNG14,LNG11,LNG10,
RED10,RED4,SS13,SS10,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP10,FDFAP10,
FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0626s1108; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/900.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-4.0),FDFAP1); FDFAP10:=MIN(QUITD,BIRTHD+65.0); FAP10:=ord(
FDFAP10>HIRED)*WAGE(FDFAP10); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=0.055; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SS10:=
SS(5.0,BENIFITD); SS13:=SS(6.0,BENIFITD); RED4:=NN(1.0-0.06*o(
60.0,AGE)); RED10:=OTHERB; RAS1:=(ASY1>=35.0)!(AGE>=60.0)&(ASY1>=
8.0); RAS4:=(AGE>=55.0)&(ASY1>=30.0); RAS10:=ASY1>=1.0; ROT10:=
^QJRDABLE; ROT11:=QJRDABLE; ROT13:=^QJRDEATH; ROT14:=QJRDEATH;
LNG10:=MIN(BIRTHD+65.0,BENIFITD+ASY1/2.0); LNG11:=BIRTHD+65.0;
LNG14:=1.0; BEG7:=MAX(ERD,QUITD); BEG8:=MAX(NRD,QUITD); NR1:=(
0.0167*u(ASY1,10.0)+0.019*b(ASY1,10.0,20.0)+0.021*b(ASY1,20.0,
30.0)+0.023*o(ASY1,30.0))*FAP1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1;
VD2:=NR1; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q); DR1:=NN(0.5*FAP10-SS10); DR1Q:=ord(RAS10&ROT10)*AA(
QUITD,LNG10)*DR1; DR2:=0.75*FAP10-RED10; DR2Q:=ord(ROT11)*AA(
QUITD,LNG11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=
1000.0; DS1Q:=ord(RAS10&ROT13)*AA(QUITD,LNG14+QUITD)*DS1; DS2:=
NNMIN(0.3*FAP1-0.5*SS13,4800.0-0.5*SS13); DS2Q:=ord(RAS10&ROT13)*
DS2; DS3:=0.5*FAP10; DS3Q:=ord(ROT14)*DS3; DST:=MAX(DS1+DS2,DS3);
DSQ:=MAX(DS1Q+DS2Q,DS3Q); PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=8.0)*
1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,
DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,LNG14,LNG11,LNG10,
RED10,RED4,SS13,SS10,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP10,FDFAP10,
FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0627s1109; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/900.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-4.0),FDFAP1); FDFAP10:=MIN(QUITD,BIRTHD+65.0); FAP10:=ord(
FDFAP10>HIRED)*WAGE(FDFAP10); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=0.08; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(
1.0-0.06*o(60.0,AGE)); RED10:=OTHERB; RAS1:=(ASY1>=35.0)!(AGE>=
60.0)&(ASY1>=8.0); RAS4:=(AGE>=55.0)&(ASY1>=30.0); RAS10:=ASY1>=
1.0; ROT10:=^QJRDABLE; ROT11:=QJRDABLE; ROT13:=^QJRDEATH; ROT14:=
QJRDEATH; LNG10:=MIN(BIRTHD+65.0,BENIFITD+ASY1/2.0); LNG11:=
BIRTHD+65.0; LNG14:=1.0; BEG7:=MAX(ERD,QUITD); BEG8:=MAX(NRD,
QUITD); NR1:=(0.0167*u(ASY1,10.0)+0.019*b(ASY1,10.0,20.0)+0.021*
b(ASY1,20.0,30.0)+0.023*o(ASY1,30.0))*FAP1; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ER1; VD1Q:=AA(
BEG7,0.0)*VD1; VD2:=NR1; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=0.5*FAP10; DR1Q:=ord(RAS10&ROT10)
*AA(QUITD,LNG10)*DR1; DR2:=0.75*FAP10-RED10; DR2Q:=ord(ROT11)*AA(
QUITD,LNG11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=
1000.0; DS1Q:=ord(RAS10&ROT13)*AA(QUITD,LNG14+QUITD)*DS1; DS2:=
MIN(0.3*FAP1,4800.0); DS2Q:=ord(RAS10&ROT13)*DS2; DS3:=0.5*FAP10;
DS3Q:=ord(ROT14)*DS3; DST:=MAX(DS1+DS2,DS3); DSQ:=MAX(DS1Q+DS2Q,
DS3Q); PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=8.0)*1.0); if min( VEDB,
PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG8,BEG7,LNG14,LNG11,LNG10,RED10,RED4,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP10,FDFAP10,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0628s463; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; VR1MAN7:=ord(3600.0>WAGE(SURVEYD))*0.02+ord(WAGE(
SURVEYD)>=3600.0)*0.04; PCMAN7:=VR1MAN7; MAN7:=SUMI(PCMAN7,7.0,
0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0;
RED4:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE+ASY2>=
75.0)&(AGE>=55.0); RAS4:=(AGE>=55.0)&(ASY2>=10.0); RAS13:=AGE>=
55.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(11.0+0.005*
FAP1)*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.01625*FAP1*ASY1-0.015*
SS1*ASY1; NR2Q:=ord(RAS1)*NR2; ANMAN7:=ANNPAY(MAN7,BENIFITD);
NRT:=MAX(NR1,NR2,ANMAN7/24.0); NRQ:=MAX(NR1Q,NR2Q,ANMAN7/24.0)*
12.0; LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=0.5*
ERT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=
MIN(0.95*ACPIG,0.04); VEDB:=VOPT(MAX(ord(ASY2>=5.0)*0.5,ord(
ASY2>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0)); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,ANMAN7,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,
SS1,MAN7,PCMAN7,VR1MAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0629s316; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=750.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+68.0)-HIRED)*NNMIN(
1.0,WRKHRS/1615.0); PSY7:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,
BIRTHD+68.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SS1:=SS(1.0,
BENIFITD)/12.0; SS2:=SS(2.0,BENIFITD)/12.0; SS4:=SS(2.0,MAX(
BENIFITD,BIRTHD+62.0))/12.0; SS7:=SS(1.0,MAX(BENIFITD,BIRTHD+
65.0))/12.0; RED4:=NN(1.0-0.03*o(62.0,AGE)); RED5:=NN(1.0-0.12*o(
60.0,AGE)); RED7:=1.0-(0.044*a(AGE,60.0,55.0)+0.072*a(AGE,65.0,
60.0)); RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY1>=10.0); RAS2:=(
ASY1>=30.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=
10.0); RAS5:=(ASY1>=30.0)!(AGE>=60.0)&(ASY1>=10.0)!(AGE+ASY1>=
85.0)&(AGE>=55.0); ROT2:=AGE<65.0; ROT10:=QCODABLE; LNG4:=BIRTHD+
62.0; BGN5:=MAX(BIRTHD+62.0,QUITD); BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG10:=MAX(ERD,QUITD); NR1:=NN(0.6*FAP1*u(ASY1,
25.0)/25.0-0.65*SS1); NR1Q:=ord(RAS1)*NR1; NR2:=NN(0.6*FAP1*u(
ASY1,25.0)/25.0-0.65*SS2); NR2Q:=ord(RAS2&ROT2)*NR2; NR3:=16.0*
ASY1; NR3Q:=ord(RAS2)*NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,
NR2Q,NR3Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=0.6*FAP1*u(ASY1,
25.0)/25.0*RED4; ER1Q:=ord(RAS4)*AA(QUITD,LNG4)*ER1; ER2:=NN(0.6*
FAP1*u(ASY1,25.0)/25.0-0.65*SS4)*RED4; ER2Q:=ord(RAS4)*AA(BGN5,
0.0)*ER2; ER3:=23.33*RED5*u(ASY1,30.0); ER3Q:=ord(RAS5)*AA(QUITD,
LNG4)*ER3; ERT:=MAX(ER1+ER2,ER2+ER3); ERQ:=MAX(ER1Q+ER2Q,ER2Q+
ER3Q)*12.0; VD1:=NN(0.6*FAP1*u(ASY1,25.0)/25.0-0.65*SS7)*ASY1/
PSY7*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DR1:=ER1; DR1Q:=ord(ROT10)*AA(BEG10,LNG4)*DR1; DR2:=ER2; DR2Q:=
ord(ROT10)*AA(BGN5,0.0)*DR2; DR3:=ER3; DR3Q:=ord(ROT10)*AA(BEG10,
LNG4)*DR3; DRT:=MAX(DR1+DR2,DR2+DR3); DRQ:=MAX(DR1Q+DR2Q,DR2Q+
DR3Q)*12.0; DS1:=0.6*ER1*RED13; DS1Q:=ord(RAS4)*DS1; DS2:=0.6*
ER3*RED13; DS2Q:=ord(RAS5)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,
DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord((ASYV>=10.0)!(QUITAGE>=
70.0)&(ASYV>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,
DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG10,BEG7,BGN5,LNG4,RED13,RED7,RED5,RED4,SS7,SS4,SS2,
SS1,FAP1,SDFAP1,FDFAP1,PSY7,ASY1,ASYV,CNQ) <0 then negative end;

procedure c0630s724; begin CNQ:=0.0; ASYV:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+70.0)-HIRED)*
NNMIN(1.0,WRKHRS/1800.0); ASY13:=(QUITD-HIRED)*ord(WRKHRS>=
1000.0)*1.0; RED4:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED; RAS1:=
AGE>=65.0; RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS10:=(AGE>=50.0)&(
ASY1>=15.0); RAS13:=(AGE>=60.0)&(ASY13>=10.0); DAT1:=1984.167<=
QUITD; DAT2:=(1983.167<=QUITD)&(QUITD<1984.167); DAT3:=
QUITD<1983.167; ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+60.0,
BIRTHD+65.0); NR1:=5.0*ASY1; NR1Q:=ord(RAS1&DAT1)*NR1; NR2:=4.5*
ASY1; NR2Q:=ord(RAS1&DAT2)*NR2; NR3:=4.0*ASY1; NR3Q:=ord(RAS1&
DAT3)*NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q)*12.0;
LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&DAT1)*ER1;
ER2:=NR2*RED4; ER2Q:=ord(RAS4&DAT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=
MAX(ER1Q,ER2Q)*12.0; VD1:=ER1; VD1Q:=ord(DAT1)*AA(BEG7,0.0)*VD1;
VD2:=ER2; VD2Q:=ord(DAT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2);
VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NR1; DR1Q:=ord(RAS10&DAT1&ROT10)*
DR1; DR2:=NR2; DR2Q:=ord(RAS10&DAT2&ROT10)*DR2; DRT:=MAX(DR2,DR2)
;DRQ:=MAX(DR2Q,DR2Q)*12.0; DS1:=ER1*RED13*0.5; DS1Q:=ord(RAS13&
DAT1)*DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(RAS13&DAT2)*DS2; DST:=
MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,
VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,
NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,ASY13,ASY1,ASYV,CNQ) <0
then negative end;

procedure c0631s452; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/2080.0); ASY2:=(QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0;
FAP1:=AVG(WAGE,HIRED,QUITD); FDFAP2:=QUITD; FAP2:=AVG(WAGE,MAX(
HIRED,FDFAP2-5.0),FDFAP2); SDMAN7:=HIRED; FDMAN7:=QUITD;
VR1MAN7:=ord(WAGE(SURVEYD)>=12000.0)*0.03; PCMAN7:=VR1MAN7;
MAN7:=SUMI(PCMAN7,7.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.04*a(AGE,
59.0,55.0)+0.16*a(AGE,60.0,59.0)); RED7:=NN(1.0-0.06*o(65.0,AGE))
;RED13:=JSRED; RAS1:=AGE>=60.0; RAS2:=(AGE>=60.0)&(ASY2>=10.0);
RAS3:=(AGE>=60.0)&(ASY2>=5.0); RAS4:=AGE>=55.0; RAS5:=(AGE>=55.0)
&(ASY2>=15.0); RAS10:=ASY2>=15.0; ROT4:=(PARTD<1955.583)&(
1955.583<=QUITD); ROT7:=(PARTD<1955.583)&(1955.583<=QUITD)&(
ASY2>=15.0); ROT10:=^QSSDABLE; LNG2:=BIRTHD+62.0; LNG4:=BIRTHD+
65.0; BEG7:=MAX(BIRTHD+60.0,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,
BIRTHD+60.0); BEG9:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); BEG11:=MAX(
BIRTHD+65.0,QUITD); NR1:=(0.013*u(FAP1,12000.0)+0.024*o(FAP1,
12000.0))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(168.0+3.0*b(FAP2,
16950.0,23550.0)/300.0)*ASY1; NR2Q:=ord(RAS2)*NR2; NR3:=84.0*u(
ASY1,25.0); NR3Q:=ord(RAS3)*AA(QUITD,LNG2)*NR3; NRT:=MAX(NR1+NR3,
NR2+NR3); NRQ:=MAX(NR1Q+NR3Q,NR2Q+NR3Q); LRQ:=NRQ; MRAGE:=70.0;
ER1:=NR1*RED4; ER1Q:=ord(RAS4&ROT4)*ER1; ER2:=540.0; ER2Q:=ord(
RAS5&ROT4)*AA(QUITD,LNG4)*ER2; ERT:=ER1+ER2; ERQ:=ER1Q+ER2Q;
VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER1; VD2Q:=ord(ROT4)*AA(
BEG8,0.0)*VD2; VD3:=ER2; VD3Q:=ord(ROT7)*AA(BEG8,LNG4)*VD3; VD4:=
NR2*RED7; VD4Q:=AA(BEG9,0.0)*VD4; VDT:=MAX(VD1,VD2+VD3,VD4);
VDQ:=MAX(VD1Q,VD2Q+VD3Q,VD4Q); DR1:=0.88*NR1+800.0; DR1Q:=ord(
RAS10)*AA(QUITD,LNG4)*DR1; DR2:=0.88*NR2; DR2Q:=ord(RAS10)*AA(
QUITD,LNG4)*DR2; DR3:=MAX(0.88*NR1,0.88*NR2); DR3Q:=ord(RAS10)*
AA(BEG11,0.0)*DR3; DR4:=MAX(1500.0,72.0*u(ASY2,25.0)); DR4Q:=ord(
RAS10&ROT10)*AA(QUITD,LNG2)*DR4; DRT:=MAX(DR1+DR3+DR4,DR2+DR3+
DR4); DRQ:=MAX(DR1Q+DR3Q+DR4Q,DR2Q+DR3Q+DR4Q); DS1:=ER1*RED13*
0.5; DS1Q:=ord(RAS5)*DS1; DS2:=NR1*RED13*0.5; DS2Q:=ord(RAS1)*
DS2; DS3:=0.5*NR2*RED13; DS3Q:=ord(RAS2)*DS3; DST:=MAX(DS1,DS2,
DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q); PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=60.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG11,BEG9,BEG8,BEG7,LNG4,LNG2,RED13,RED7,RED4,MAN7,PCMAN7,
VR1MAN7,FDMAN7,SDMAN7,FAP2, FDFAP2,FAP1,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0632s593; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY2:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/1500.0)
;FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/
12.0; SS1:=SS(1.0,BENIFITD)/12.0; RED4:=NN(1.0-0.04*o(60.0,AGE));
RED5:=AR(65.0-AGE); RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY2>=10.0);
RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS13:=ASY2>=10.0; ROT10:=
QCODABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(
BIRTHD+65.0,QUITD); NR1:=NN((0.016*FAP1*ASY2-0.0125*SS1*ASY2)*
RED5); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NN((0.016*FAP1*ASY2*RED4-0.0125*SS1*ASY2)*
RED5); ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT;
DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0;
DS1:=0.75*ERT; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,RED5,
RED4,SS1,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0633s973; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; PSY10:=MIN(20.0,BIRTHD+65.0-HIRED); PSY11:=MIN(
30.0,BIRTHD+65.0-HIRED); PSY12:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(
QUITD,BIRTHD+70.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,BENIFITD);
RED4:=AR(65.0-AGE); RAS1:=AGE>=65.0; RAS4:=AGE>=55.0; RAS13:=(
AGE>=40.0)&(ASY1>=10.0); ROT2:=PARTD<1980.167; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=(
0.03*FAP1-0.0375*SS1)*u(ASY1,20.0); NR1Q:=ord(RAS1)*NR1; NR2:=(
0.02*FAP1-0.0167*SS1)*u(ASY1,30.0); NR2Q:=ord(RAS1)*NR2; NR3:=(
0.01*FAP1+0.0075*o(FAP1,4800.0))*ASY1; NR3Q:=ord(RAS1&ROT2)*NR3;
NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q); LRQ:=NRQ;
MRAGE:=70.0; ER1:=MAX(NR1,NR2)*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
NR3*RED4; ER2Q:=ord(RAS4&ROT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q); VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=
ord(ROT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,
VD2Q); DR1:=(0.03*FAP1-0.0375*SS1)*PSY10; DR1Q:=AA(BEG10,0.0)*
DR1; DR2:=(0.02*FAP1-0.0167*SS1)*PSY11; DR2Q:=AA(BEG10,0.0)*DR2;
DR3:=(0.01*FAP1+0.0075*o(FAP1,4800.0))*PSY12; DR3Q:=ord(ROT2)*AA(
BEG10,0.0)*DR3; DRT:=MAX(DR1,DR2,DR3); DRQ:=MAX(DR1Q,DR2Q,DR3Q);
DS1:=0.5*MAX(NR1,NR2); DS1Q:=ord(RAS13)*DS1; DS2:=0.5*NR3; DS2Q:=
ord(RAS13&ROT2)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q);
PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=5.0)*0.5,ord(ASY1>=6.0)*0.6,
ord((QUITAGE>=55.0)!(ASY1>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED4,SS1,FAP1,SDFAP1,
FDFAP1,PSY12,PSY11,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0634s974; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0,1979.0)-HIRED)*NNMIN(1.0,WRKHRS/1000.0); ASY2:=NNMIN(
30.0,MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1979.0))*NNMIN(1.0,WRKHRS/
1000.0); ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/
1000.0); RED4:=AR(65.0-AGE); RED5:=AR(62.0-AGE); RED13:=JSRED;
RAS1:=AGE>=62.0; RAS4:=AGE>=55.0; RAS5:=(AGE>=55.0)&(ASY3>=10.0);
RAS10:=ASY3>=10.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
14.0*ASY1+15.0*ASY2; NR1Q:=ord(RAS1)*NR1; NR2:=450.0; NR2Q:=ord(
RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5;
ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0;
VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
MAX(NRT,200.0); DR1Q:=ord(RAS10)*DR1; DR2:=ER1; DR2Q:=DR2; DRT:=
MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=ER1*RED13*0.5;
DS1Q:=ord(RAS4)*DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(RAS5)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0; VEDB:=
VOPT(MAX(ord((QUITAGE>=40.0)&(ASY3>=5.0))*0.5,ord((QUITAGE>=
40.0)&(ASY3>=6.0))*0.6,ord(ASY3>=10.0)*1.0)); if min( VEDB,PRAG,
DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,
NR1Q,NR1,BEG7,RED13,RED5,RED4,ASY3,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0635s1091; begin CNQ:=0.0; ASY1:=MIN(40.0,QUITD-HIRED)
*1.0; FDFAP1:=MIN(QUITD,MAX(BIRTHD+65.0,QUITD-ASY1+40.0)); FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-24.0/12.0),FDFAP1)/12.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,
FDMAN7); RED4:=NN(1.0-0.03*o(62.0,AGE)); RED13:=JSRED; RAS1:=(
AGE>=62.0)!(ASY1>=30.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS10:=
ASY1>=9.0; RAS13:=ASY1>=10.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+
62.0); NR1:=0.02*ASY1*FAP1; NR1Q:=ord(RAS1)*NR1; NR2:=12.0*ASY1;
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=
DR1Q*12.0; DS1:=NRT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=TAR(MIN(0.95*FAR(ACPIG,6.0/12.0),0.015),6.0/
12.0); VEDB:=VOPT(ord((QUITAGE>=62.0)!(ASY1>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,
RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0636s1098; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
PSY10:=BIRTHD+60.0-HIRED; PSY11:=BIRTHD+65.0-HIRED; FAP1:=WAGE(
QUITD)/12.0; FDFAP2:=QUITD; FAP2:=AVG(WAGE,MAX(HIRED,FDFAP2-24.0/
12.0),FDFAP2)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.0025;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-0.05*o(
65.0,AGE)); RED13:=JSRED; RAS1:=(ASY1>=30.0)!(AGE>=65.0)&(ASY1>=
10.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS5:=ASY1>=27.0; RAS10:=
ASY1>=13.0; RAS11:=ASY1>=18.0; RAS12:=ASY1>=24.0; BEG7:=ANYTIME(
BIRTHD+60.0,BIRTHD+65.0); NR1:=0.015*FAP2*ASY1; NR1Q:=ord(RAS1)*
NR1; NR2:=0.9*FAP1; NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=
MIN(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=MIN(NR1*RED4,
NR2); ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=MIN(
0.01125*PSY10*FAP2,0.9*FAP1); DR1Q:=ord(RAS10)*DR1; DR2:=MIN(
0.015*PSY10*FAP2,0.9*FAP1); DR2Q:=ord(RAS11)*DR2; DR3:=MIN(
0.01125*FAP2*PSY11,0.9*FAP1); DR3Q:=ord(RAS12)*DR3; DR4:=MIN(
0.015*FAP2*PSY11,0.9*FAP1); DR4Q:=ord(RAS5)*DR4; DRT:=MAX(DR1,
DR2,DR3,DR4); DRQ:=MAX(DR1Q,DR2Q,DR3Q,DR4Q)*12.0; DS1:=DR1*RED13;
DS1Q:=ord(RAS10)*DS1; DS2:=ERT*RED13; DS2Q:=ord(RAS4)*DS2; DS3:=
DR2*RED13; DS3Q:=ord(RAS11)*DS3; DS4:=DR3*RED13; DS4Q:=ord(RAS12)
*DS4; DS5:=DR4*RED13; DS5Q:=ord(RAS5)*DS5; DST:=MAX(DS1,DS2,DS3,
DS4,DS5); DSQ:=MAX(DS1Q,DS2Q,DS3Q,DS4Q,DS5Q)*12.0; PRAG:=TAR(MIN(
0.95*FAR(ACPIG,6.0/12.0),0.015),6.0/12.0); VEDB:=VOPT(ord(ASY1>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS5Q,DS5,DS4Q,DS4,DS3Q,DS3,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,
NR1Q,NR1,BEG7,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP2,FDFAP2,
FAP1,PSY11,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0637s1099; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=9.0)*1.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=36.0/
WAGE(SURVEYD); MAN7:=SUMI(PCMAN7,2.0,0.0,SDMAN7,FDMAN7); RED4:=
NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY1>=
10.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS10:=ASY1>=15.0; BEG7:=
ANYTIME(BIRTHD+60.0,BIRTHD+65.0); NR1:=7.0*ASY1; NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT;
DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=NRT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,ASY1,
CNQ) <0 then negative end;

procedure c0638s988; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(
HIRED,FDFAP1-36.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(
0.0281*a(AGE,53.0,50.0)+0.0339*a(AGE,55.0,53.0)+0.0393*a(AGE,
57.0,55.0)); RED5:=1.0-(0.0447*a(AGE,58.0,57.0)+0.048*a(AGE,59.0,
58.0)+0.0521*a(AGE,60.0,59.0)); RED6:=1.0-(0.0542*a(AGE,61.0,
60.0)+0.0571*a(AGE,62.0,61.0)+0.0604*a(AGE,63.0,62.0)); RAS1:=(
AGE>=70.0)!(AGE>=63.0)&(ASY1>=5.0); RAS4:=(AGE>=50.0)&(ASY1>=5.0)
;BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+63.0); NR1:=0.02418*ASY1*(FAP1-
133.33); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ;
MRAGE:=70.0; ER1:=NR1*(RED4+RED5+RED6-2.0); ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q*12.0; DS1:=0.5*ERT; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=MIN(0.95*ACPIG,0.02); VEDB:=VOPT(ord((
QUITAGE>=70.0)!(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,
DS1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG7,RED6,RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0639s989; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(
HIRED,FDFAP1-36.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(
0.0281*a(AGE,53.0,50.0)+0.0339*a(AGE,55.0,53.0)+0.0393*a(AGE,
57.0,55.0)); RED5:=1.0-(0.0447*a(AGE,58.0,57.0)+0.048*a(AGE,59.0,
58.0)+0.0521*a(AGE,60.0,59.0)); RED6:=1.0-(0.0542*a(AGE,61.0,
60.0)+0.0571*a(AGE,62.0,61.0)+0.0604*a(AGE,63.0,62.0)); RED13:=
JSRED; RAS1:=(AGE>=70.0)!(AGE>=63.0)&(ASY1>=5.0); RAS4:=(AGE>=
50.0)&(ASY1>=5.0); BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+63.0); NR1:=
0.02418*(FAP1-133.33)*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=
NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*(RED4+RED5+RED6-2.0);
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DS1:=ERT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=MIN(0.95*
ACPIG,0.02); VEDB:=VOPT(ord((QUITAGE>=70.0)!(ASY1>=5.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED6,RED5,RED4,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0640s998; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-36.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(
0.048*a(AGE,51.0,50.0)+0.053*a(AGE,52.0,51.0)+0.057*a(AGE,53.0,
52.0)); RED5:=1.0-(0.062*a(AGE,54.0,53.0)+0.067*a(AGE,55.0,54.0))
;RAS1:=(AGE>=65.0)!(AGE>=55.0)&(ASY1>=5.0); RAS4:=(AGE>=50.0)&(
ASY1>=5.0); ROT13:=^QJRDEATH; ROT14:=QJRDEATH; BEG7:=ANYTIME(
BIRTHD+50.0,BIRTHD+55.0); NR1:=0.02*(FAP1-133.33)*ASY1; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=65.0;
ER1:=NRT*(RED4+RED5-1.0); ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*
12.0; DS1:=0.5*ERT; DS1Q:=ord(RAS4&ROT13)*DS1; DS2:=0.5*FAP1;
DS2Q:=ord(ROT14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*
12.0; PRAG:=MIN(0.95*ACPIG,0.02); VEDB:=VOPT(ord((QUITAGE>=65.0)!
(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,
BEG7,RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,
ASY1,CNQ) <0 then negative end;

procedure c0641s986; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(
HIRED,FDFAP1-36.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(
0.0281*a(AGE,53.0,50.0)+0.0339*a(AGE,55.0,53.0)+0.0393*a(AGE,
57.0,55.0)); RED5:=1.0-(0.0447*a(AGE,58.0,57.0)+0.048*a(AGE,59.0,
58.0)+0.0521*a(AGE,60.0,59.0)); RED6:=1.0-(0.0542*a(AGE,61.0,
60.0)+0.0571*a(AGE,62.0,61.0)+0.0604*a(AGE,63.0,62.0)); RAS1:=(
AGE>=70.0)!(AGE>=63.0)&(ASY1>=5.0); RAS4:=(AGE>=50.0)&(ASY1>=5.0)
;BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+63.0); NR1:=0.02418*FAP1*ASY1;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=
70.0; ER1:=NRT*(RED4+RED5+RED6-2.0); ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DS1:=0.5*ERT; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=MIN(0.95*ACPIG,0.02); VEDB:=VOPT(ord((
QUITAGE>=70.0)!(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,
DS1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG7,RED6,RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,
FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0642s996; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-36.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(
0.048*a(AGE,51.0,50.0)+0.053*a(AGE,52.0,51.0)+0.057*a(AGE,53.0,
52.0)); RED5:=1.0-(0.062*a(AGE,54.0,53.0)+0.067*a(AGE,55.0,54.0))
;RAS1:=(AGE>=65.0)!(AGE>=55.0)&(ASY1>=5.0); RAS4:=(AGE>=50.0)&(
ASY1>=5.0); ROT13:=^QJRDEATH; ROT14:=QJRDEATH; BEG7:=ANYTIME(
BIRTHD+50.0,BIRTHD+55.0); NR1:=0.02*FAP1*ASY1; NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=65.0; ER1:=NRT*(
RED4+RED5-1.0); ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DS1:=
0.5*ERT; DS1Q:=ord(RAS4&ROT13)*DS1; DS2:=0.5*FAP1; DS2Q:=ord(
ROT14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=
MIN(0.95*ACPIG,0.02); VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=5.0))
*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED5,RED4,
MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0643s614; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1982.0)-
MAX(HIRED,BIRTHD+22.0))*NNMIN(1.0,WRKHRS/1000.0); ASY2:=NN(QUITD-
MAX(HIRED,BIRTHD+22.0,1982.0))*NNMIN(1.0,WRKHRS/1000.0); ASY3:=
NNMIN(35.0,QUITD-MAX(HIRED,BIRTHD+22.0))*NNMIN(1.0,WRKHRS/
1000.0); FDFAP1:=MIN(QUITD,1982.0); FAP1:=ord(FDFAP1>HIRED)*AVG(
WAGE,HIRED,FDFAP1); SDFAP2:=MAX(HIRED,1982.0); FAP2:=ord(
QUITD>SDFAP2)*AVG(WAGE,SDFAP2,QUITD); RED4:=NN(1.0-0.072*o(65.0,
AGE)); RAS1:=(AGE>=65.0)&(ASY3>=5.0); RAS4:=(AGE>=60.0)&(ASY3>=
10.0); BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); NR1:=0.006*FAP1*
ASY1+0.008*FAP2*ASY2; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DRQ:=0.0; DS1:=0.495*ERT; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((ASY3>=10.0)!(QUITAGE>=65.0)
&(ASY3>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,
RED4,FAP2,SDFAP2,FAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0644s1092; begin CNQ:=0.0; ASY1:=MIN(25.0,QUITD-HIRED)
*NNMIN(1.0,WRKHRS/2000.0); ASY2:=(QUITD-HIRED)*1.0; ASY3:=(QUITD-
HIRED)*ord(WRKHRS>=1000.0)*1.0; RED4:=AR(65.0-AGE); RED13:=JSRED;
RAS1:=(AGE>=65.0)&(ASY2>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=25.0);
RAS10:=ASY1>=15.0; ROT7:=ASY1>=25.0; ROT10:=QSSDABLE; BEG7:=MAX(
BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
4.0*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER1;
VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q)*12.0; DR1:=ERT; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1;
DRQ:=DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY3>=10.0)*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,
VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,
BEG7,RED13,RED4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0645s924; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=750.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+
68.0)-HIRED)*NNMIN(1.0,WRKHRS/1615.0); PSY7:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+68.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/12.0; SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,
SDMAN7,FDMAN7); SS1:=SS(1.0,BENIFITD)/12.0; SS2:=SS(2.0,BENIFITD)
/12.0; SS7:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=NN(1.0-
0.03*o(62.0,AGE)); RED7:=1.0-(0.042*a(AGE,59.0,55.0)+0.05*a(AGE,
60.0,59.0)+0.072*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=(AGE>=
68.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0);
ROT2:=AGE<65.0; ROT10:=QCODABLE; LNG4:=BIRTHD+62.0; BGN5:=MAX(
BIRTHD+62.0,QUITD); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
BEG10:=MAX(BIRTHD+65.0,QUITD); NR1:=NN(0.6*FAP1*u(ASY1,25.0)/
25.0-0.65*SS1); NR1Q:=ord(RAS1)*NR1; NR2:=NN(0.6*FAP1*u(ASY1,
25.0)/25.0-0.65*SS2); NR2Q:=ord(RAS1&ROT2)*NR2; NRT:=MAX(NR1,NR2)
;NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=0.6*FAP1*
u(ASY1,25.0)/25.0*RED4; ER1Q:=ord(RAS4)*AA(QUITD,LNG4)*ER1; ER2:=
NN(0.6*FAP1*u(ASY1,25.0)/25.0*RED4-0.65*SS2); ER2Q:=ord(RAS4)*AA(
BGN5,0.0)*ER2; ERT:=ER1+ER2; ERQ:=(ER1Q+ER2Q)*12.0; VD1:=NN(0.6*
FAP1*u(PSY7,25.0)/25.0-0.65*SS7)*ASY1/PSY7*RED7; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NR1; DR1Q:=ord(ROT10)*
AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.55*NR1*RED13;
DS1Q:=ord(RAS4)*DS1; DS2:=0.55*NR2*RED13; DS2Q:=ord(RAS4&ROT2)*
DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=68.0)!(ASYV>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG10,BEG7,BGN5,LNG4,RED13,RED7,RED4,SS7,SS2,SS1,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,PSY7,ASY1,ASYV,CNQ) <0
then negative end;

procedure c0646s925; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=750.0)*1.0; ASY1:=NN(MIN(QUITD,BIRTHD+
68.0)-HIRED)*NNMIN(1.0,WRKHRS/1615.0); ASY2:=NNMIN(25.0,MIN(
QUITD,BIRTHD+68.0)-HIRED)*NNMIN(1.0,WRKHRS/1615.0); FDFAP1:=MIN(
QUITD,BIRTHD+68.0); FAP1:=ord(FDFAP1>HIRED)*WAGE(FDFAP1)/12.0;
RED4:=NN(1.0-0.06*o(62.0,AGE)); RED5:=NN(1.0-0.12*o(60.0,AGE));
RED7:=1.0-(0.042*a(AGE,59.0,55.0)+0.05*a(AGE,60.0,59.0)+0.072*a(
AGE,65.0,60.0)); RED13:=JSRED; RAS1:=(AGE>=62.0)&(ASY1>=10.0)!(
AGE>=70.0)&(ASY1>=5.0); RAS4:=(ASY1>=30.0)!(AGE+ASY1>=85.0)&(
AGE>=55.0); RAS5:=(AGE>=60.0)&(ASY1>=10.0); RAS6:=(ASY1>=30.0)!(
AGE>=60.0)&(ASY1>=10.0)!(AGE+ASY1>=85.0)&(AGE>=55.0); RAS10:=
ASY1>=10.0; RAS13:=(ASY1>=30.0)!(AGE>=70.0)&(ASY1>=5.0)!(AGE>=
60.0)&(ASY1>=10.0)!(AGE+ASY1>=85.0)&(AGE>=55.0); ROT7:=AGE+ASY1>=
85.0; ROT10:=^QSSDABLE; ROT11:=QSSDABLE; LNG4:=BIRTHD+62.0;
BGN5:=MAX(BIRTHD+62.0,QUITD); BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+
65.0); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+
62.0,QUITD); NR1:=18.625*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.7*
FAP1; NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q)
*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=MIN(NR1*RED4,NR2); ER1Q:=ord(
RAS4)*AA(QUITD,LNG4)*ER1; ER2:=MIN(NR1*RED4,NR2); ER2Q:=ord(RAS5)
*AA(QUITD,LNG4)*ER2; ER3:=NRT; ER3Q:=ord(RAS4)*AA(BGN5,0.0)*ER3;
ER4:=31.67*u(ASY1,30.0)*RED5; ER4Q:=ord(RAS6)*AA(QUITD,LNG4)*ER4;
ER5:=ER2; ER5Q:=ord(RAS5)*AA(BGN5,0.0)*ER5; ERT:=MAX(ER1+ER3,ER3+
ER4,ER2+ER5,ER4+ER5); ERQ:=MAX(ER1Q+ER3Q,ER3Q+ER4Q,ER2Q+ER5Q,
ER4Q+ER5Q)*12.0; VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR1*
RED7; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q)*12.0; DR1:=MAX(NR1+15.0*ASY2,ER4); DR1Q:=ord(
RAS10&ROT10)*AA(QUITD,LNG4)*DR1; DR2:=NR1; DR2Q:=ord(RAS10)*AA(
BEG11,0.0)*DR2; DR3:=MAX(NR1,ER4-15.0*ASY2); DR3Q:=ord(RAS10&
ROT11)*AA(QUITD,LNG4)*DR3; DR4:=NR2; DR4Q:=ord(RAS10)*DR4; DRT:=
MIN(DR4,MAX(DR1+DR2,DR2+DR3)); DRQ:=MIN(DR4Q,MAX(DR1Q+DR2Q,DR2Q+
DR3Q))*12.0; DS1:=0.55*NR1*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((ASYV>=10.0)!(QUITAGE>=
70.0)&(ASYV>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,
VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG11,BEG8,BEG7,BGN5,LNG4,RED13,
RED7,RED5,RED4,FAP1,FDFAP1,ASY2,ASY1,ASYV,CNQ) <0 then negative
end;

procedure c0647s473; begin CNQ:=0.0; ASY1:=NNMIN(40.0,MIN(QUITD,
1979.0)-MAX(HIRED,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/1000.0); ASY2:=
NNMIN(40.0,QUITD-MAX(HIRED,BIRTHD+25.0,1979.0))*NNMIN(1.0,
WRKHRS/1000.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
60.0/12.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR;
MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=SS(1.0,BENIFITD);
SS4:=SS(2.0,MAX(BENIFITD,BIRTHD+62.0)); RED4:=NN(1.0-0.03*o(65.0,
AGE)); RED7:=NN(1.0-0.06*o(65.0,AGE)); ASY51:=ASY1+ASY2; RAS1:=(
AGE>=65.0)!(ASY51>=30.0); RAS4:=AGE>=55.0; ROT10:=QCODABLE&
QSSDABLE; LNG4:=BIRTHD+62.0; BGN5:=MAX(BIRTHD+62.0,QUITD); BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=0.014*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=
0.014*FAP1*ASY2-0.014*SS1*ASY2; NR2Q:=ord(RAS1)*NR2; NRT:=NR1+
NR2; NRQ:=NR1Q+NR2Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=(0.014*ASY1*
FAP1+0.014*ASY2*FAP1)*RED4; ER1Q:=ord(RAS4)*AA(QUITD,LNG4)*ER1;
ER2:=(0.014*ASY1*FAP1+0.014*ASY2*FAP1-0.014*SS4*ASY2)*RED4;
ER2Q:=ord(RAS4)*AA(BGN5,0.0)*ER2; ERT:=ER1+ER2; ERQ:=ER1Q+ER2Q;
VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=
ER1; DR1Q:=ord(ROT10)*AA(BEG10,LNG4)*DR1; DR2:=ER2; DR2Q:=ord(
ROT10)*AA(BGN5,0.0)*DR2; DRT:=DR1+DR2; DRQ:=DR1Q+DR2Q; DS1:=0.5*
ER1; DS1Q:=ord(RAS4)*AA(QUITD,LNG4)*DS1; DS2:=0.5*ER2; DS2Q:=ord(
RAS4)*AA(BGN5,0.0)*DS2; DST:=DS1+DS2; DSQ:=DS1Q+DS2Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASY51>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,
NR2,NR1Q,NR1,BEG10,BEG7,BGN5,LNG4,ASY51,RED7,RED4,SS4,SS1,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative
end;

procedure c0648s430; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-60.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; SS13:=SS(6.0,BENIFITD)/12.0; RED4:=1.0-(
0.0763*a(AGE,61.0,60.0)+0.0855*a(AGE,62.0,61.0)); RED7:=1.0-(
0.0518*a(AGE,61.0,60.0)+0.0578*a(AGE,62.0,61.0)+0.0646*a(AGE,
63.0,62.0)); RED8:=1.0-(0.0724*a(AGE,64.0,63.0)+0.0816*a(AGE,
65.0,64.0)); RAS1:=(ASY1>=30.0)!(AGE>=65.0)&(ASY1>=10.0)!(AGE>=
62.0)&(ASY1>=15.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS10:=ASY1>=
15.0; ROT7:=(AGE>=40.0)&(ASY1>=15.0); ROT10:=^QSSDABLE; LNG10:=
BIRTHD+62.0; LNG13:=BIRTHD+60.0; BEG7:=ANYTIME(BIRTHD+60.0,
BIRTHD+62.0); BEG8:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); BEG11:=MAX(
BIRTHD+62.0,QUITD); BEG14:=MAX(BIRTHD+60.0,QUITD); NR1:=0.011*
FAP1*u(ASY1,30.0)+0.012*FAP1*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1;
NR2:=17.5*u(ASY1,15.0)+19.0*b(ASY1,15.0,30.0)+20.5*o(ASY1,30.0);
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1;
VD2:=NRT*RED7*RED8; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2);
VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT+400.0; DR1Q:=ord(RAS10&ROT10)*
AA(QUITD,LNG10)*DR1; DR2:=NRT; DR2Q:=ord(RAS10&ROT10)*AA(BEG11,
0.0)*DR2; DR3:=NRT; DR3Q:=ord(RAS10)*DR3; DRT:=MAX(DR1+DR2,DR3);
DRQ:=MAX(DR1Q+DR2Q,DR3Q)*12.0; DS1:=0.5*NRT; DS1Q:=ord(RAS10)*AA(
QUITD,LNG13)*DS1; DS2:=0.5*NRT-0.5*SS13; DS2Q:=ord(RAS10)*AA(
BEG14,0.0)*DS2; DS3:=65.0; DS3Q:=ord(RAS10)*AA(BEG14,0.0)*DS3;
DS4:=115.0; DS4Q:=ord(RAS10)*AA(QUITD,LNG13)*DS4; DST:=MAX(DS1+
DS2,DS3+DS4); DSQ:=MAX(DS1Q+DS2Q,DS3Q+DS4Q)*12.0; PRAG:=0.0;
VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,
DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG14,BEG11,BEG8,BEG7,LNG13,LNG10,RED8,
RED7,RED4,SS13,FAP1,SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0649s77; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; RED4:=NN(1.0-0.04*o(62.0,AGE)); RAS1:=(ASY1>=
30.0)!(AGE>=65.0)&(ASY1>=5.0)!(AGE>=62.0)&(ASY1>=10.0); RAS2:=(
AGE>=60.0)&(ASY1>=30.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS10:=
ASY1>=10.0; LNG2:=BIRTHD+62.0; BGN3:=MAX(BIRTHD+62.0,QUITD);
LNG3:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); NR1:=
17.0*u(ASY1,15.0)+18.5*b(ASY1,15.0,30.0)+20.0*o(ASY1,30.0);
NR1Q:=ord(RAS1)*NR1; NR2:=300.0; NR2Q:=ord(RAS2)*AA(QUITD,LNG2)*
NR2; NR3:=130.0; NR3Q:=ord(RAS2)*AA(BGN3,LNG3)*NR3; NRT:=NR1+NR2+
NR3; NRQ:=(NR1Q+NR2Q+NR3Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ER1;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=MAX(NR1,
150.0); DR1Q:=ord(RAS10)*DR1; DR2:=NR2; DR2Q:=ord(RAS10)*AA(
QUITD,LNG2)*DR2; DRT:=DR1+DR2; DRQ:=(DR1Q+DR2Q)*12.0; DS1:=0.5*
NR1; DS1Q:=ord(RAS10)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((ASY1>=10.0)!(QUITAGE>=65.0)&(ASY1>=5.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,
NR2,NR1Q,NR1,BEG7,LNG3,BGN3,LNG2,RED4,ASY1,CNQ) <0 then negative
end;

procedure c0650s807; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1)
/12.0; SS13:=SS(6.0,BENIFITD)/12.0; RED4:=1.0-(0.0763*a(AGE,61.0,
60.0)+0.0855*a(AGE,62.0,61.0)); RED7:=1.0-(0.0575*a(AGE,61.0,
60.0)+0.0643*a(AGE,62.0,61.0)+0.0725*a(AGE,63.0,62.0)); RED8:=
1.0-(0.0819*a(AGE,64.0,63.0)+0.0928*a(AGE,65.0,64.0)); RAS1:=(
ASY1>=30.0)!(AGE>=65.0)&(ASY1>=10.0)!(AGE>=62.0)&(ASY1>=15.0);
RAS4:=(AGE>=60.0)&(ASY1>=15.0); RAS10:=(AGE>=55.0)&(ASY1>=15.0)!(
AGE+ASY1>=80.0)!(AGE+ASY1>=65.0)&(ASY1>=20.0); RAS13:=ASY1>=15.0;
ROT7:=(AGE>=40.0)&(ASY1>=15.0); ROT10:=^QSSDABLE; LNG10:=BIRTHD+
62.0; LNG13:=BIRTHD+60.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+62.0);
BEG8:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+62.0,
QUITD); BEG14:=MAX(BIRTHD+60.0,QUITD); NR1:=17.5*u(ASY1,15.0)+
19.0*b(ASY1,15.0,30.0)+20.5*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1;
NR2:=(0.011*u(ASY1,30.0)+0.012*o(ASY1,30.0))*FAP1; NR2Q:=ord(
RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT*(
RED7+RED8-1.0); VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q)*12.0; DR1:=NRT+400.0; DR1Q:=ord(RAS10&ROT10)*AA(
QUITD,LNG10)*DR1; DR2:=NRT; DR2Q:=ord(RAS10&ROT10)*AA(BEG11,0.0)*
DR2; DR3:=NRT; DR3Q:=ord(RAS10)*DR3; DRT:=MAX(DR1+DR2,DR3); DRQ:=
MAX(DR1Q+DR2Q,DR3Q)*12.0; DS1:=0.5*NRT; DS1Q:=ord(RAS13)*AA(
QUITD,LNG13)*DS1; DS2:=NN(0.5*NRT-0.5*SS13); DS2Q:=ord(RAS13)*AA(
BEG14,0.0)*DS2; DS3:=140.0; DS3Q:=ord(RAS13)*AA(QUITD,LNG13)*DS3;
DS4:=90.0; DS4Q:=ord(RAS13)*AA(BEG14,0.0)*DS4; DST:=MAX(DS1+DS2,
DS3+DS4); DSQ:=MAX(DS1Q+DS2Q,DS3Q+DS4Q)*12.0; PRAG:=0.0; VEDB:=
VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,
DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG14,BEG11,BEG8,BEG7,LNG13,LNG10,RED8,RED7,
RED4,SS13,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0651s232; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; PSY4:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,
BIRTHD+70.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
FDSS1:=MIN(QUITD,BIRTHD+70.0); SS1:=ord(FDSS1>HIRED)*SSBASE(
BENIFITD); SS2:=SS(1.0,BENIFITD); SS4:=SS(2.0,BENIFITD); RED4:=
NN(1.0-0.05*o(62.0,AGE)); RED13:=JSRED; RED14:=COSTRED; RAS1:=(
AGE>=65.0)!(ASY1>=30.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(ASY1>=
30.0)!(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=2.0; ROT10:=
QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.02*u(FAP1,SS1)+0.0065*o(FAP1,
SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.009*u(FAP1,SS1)+0.018*o(
FAP1,SS1))*u(ASY1,25.0)+(0.005*u(FAP1,SS1)+0.01*o(FAP1,SS1))*b(
ASY1,25.0,35.0); NR2Q:=ord(RAS1)*NR2; NR3:=0.007*FAP1*o(ASY1,
35.0); NR3Q:=ord(RAS1)*NR3; NR4:=0.9*FAP1-SS2; NR4Q:=ord(RAS1)*
NR4; NRT:=MIN(NR4,MAX(NR2+NR3,NR1)); NRQ:=MIN(NR4Q,MAX(NR2Q+NR3Q,
NR1Q)); LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*
ER1; ER2:=(0.009*u(FAP1,SS1)+0.018*o(FAP1,SS1))*u(PSY4,25.0)*
ASY1/PSY4*RED4; ER2Q:=ord(RAS4)*ER2; ER3:=((0.005*u(FAP1,SS1)+
0.01*o(FAP1,SS1))*b(PSY4,25.0,35.0)+0.007*FAP1*o(PSY4,35.0))*
ASY1/PSY4*RED4; ER3Q:=ord(RAS4)*ER3; ER4:=0.9*FAP1-SS4; ER4Q:=
ord(RAS4)*ER4; ERT:=MIN(ER4,MAX(ER2+ER3,ER1)); ERQ:=MIN(ER4Q,MAX(
ER2Q+ER3Q,ER1Q)); VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=ERT; DR1Q:=ord(RAS10&ROT10)*AA(BEG10,0.0)*DR1;
DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(RAS4)*
DS1; DS2:=0.5*NRT*RED13*RED14; DS2Q:=ord(RAS1)*DS2; DST:=MAX(DS1,
DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,
NR2Q,NR2,NR1Q,NR1,BEG10,BEG7,RED14,RED13,RED4,SS4,SS2,SS1,FDSS1,
MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,SDFAP1,FDFAP1,PSY4,ASY1,CNQ) <0
then negative end;

procedure c0652s233; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/12.0); FAP1:=WAGE(QUITD)/12.0; SS1:=SS(1.0,BENIFITD)/
12.0; RED4:=NN(1.0-0.06*o(62.0,AGE)); RED13:=JSRED; RAS1:=(ASY1>=
30.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0);
RAS10:=ASY1>=10.0; ROT10:=^QSSDABLE; LNG10:=QUITD; BEG7:=ANYTIME(
BIRTHD+60.0,BIRTHD+62.0); NR1:=20.25*ASY1; NR1Q:=ord(RAS1)*NR1;
NR2:=(0.85+0.01*b(ASY1,30.0,45.0))*FAP1-SS1; NR2Q:=ord(RAS1)*NR2;
NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR2; ER2Q:=ord(
RAS4)*ER2; ERT:=MIN(ER1,ER2); ERQ:=MIN(ER1Q,ER2Q)*12.0; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=MAX(NR1,
250.0); DR1Q:=ord(RAS10)*DR1; DR2:=400.0; DR2Q:=ord(RAS10&ROT10)*
AA(QUITD,LNG10)*DR2; DR3:=NR2; DR3Q:=ord(RAS10)*DR3; DRT:=MIN(
DR1+DR2,DR3); DRQ:=MIN(DR1Q+DR2Q,DR3Q)*12.0; DS1:=0.5*NR1*RED13;
DS1Q:=ord(RAS10)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,
LNG10,RED13,RED4,SS1,FAP1,ASY1,CNQ) <0 then negative end;

procedure c0653s234; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); RED4:=NN(1.0-0.06*o(65.0,
AGE)); RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY1>=10.0); RAS4:=(AGE>=
60.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; BEG7:=ANYTIME(BIRTHD+60.0,
BIRTHD+65.0); NR1:=12.0*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1;
DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,
BEG7,RED13,RED4,ASY1,CNQ) <0 then negative end;

procedure c0654s927; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0;
SS13:=SS(6.0,BENIFITD)/12.0; RED4:=1.0-(0.045*a(AGE,56.0,55.0)+
0.0498*a(AGE,57.0,56.0)+0.0551*a(AGE,58.0,57.0)); RED5:=1.0-(
0.0612*a(AGE,59.0,58.0)+0.0686*a(AGE,60.0,59.0)+0.0809*a(AGE,
62.0,60.0)); RED7:=1.0-(0.0356*a(AGE,57.0,55.0)+0.0473*a(AGE,
59.0,57.0)+0.0547*a(AGE,61.0,59.0)); RED8:=1.0-(0.0684*a(AGE,
63.0,61.0)+0.0819*a(AGE,64.0,63.0)+0.0928*a(AGE,65.0,64.0));
RAS1:=(ASY1>=30.0)!(AGE>=65.0)&(ASY1>=10.0)!(AGE>=62.0)&(ASY1>=
15.0); RAS4:=(AGE>=55.0)&(ASY1>=15.0); RAS10:=(ASY1>=15.0)!(AGE+
ASY1>=80.0)!(AGE+ASY1>=70.0)&(AGE>=55.0); RAS13:=ASY1>=15.0;
LNG10:=QUITD; LNG13:=BIRTHD+60.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG14:=MAX(BIRTHD+60.0,QUITD); NR1:=17.5*u(ASY1,
15.0)+19.0*b(ASY1,15.0,30.0)+20.5*o(ASY1,30.0); NR1Q:=ord(RAS1)*
NR1; NR2:=(0.011*u(ASY1,30.0)+0.012*o(ASY1,30.0))*FAP1; NR2Q:=
ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED5*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=NRT*(RED7+RED8-1.0); VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1;
DR2:=400.0; DR2Q:=ord(RAS10)*AA(QUITD,LNG10)*DR2; DRT:=DR1+DR2;
DRQ:=(DR1Q+DR2Q)*12.0; DS1:=140.0; DS1Q:=ord(RAS13)*AA(QUITD,
LNG13)*DS1; DS2:=90.0; DS2Q:=ord(RAS13)*AA(BEG14,0.0)*DS2; DS3:=
NRT*0.5; DS3Q:=ord(RAS13)*AA(QUITD,LNG13)*DS3; DS4:=NN(NRT*0.5-
SS13*0.5); DS4Q:=ord(RAS13)*AA(BEG14,0.0)*DS4; DST:=MAX(DS1+DS2,
DS3+DS4); DSQ:=MAX(DS1Q+DS2Q,DS3Q+DS4Q)*12.0; PRAG:=0.0; VEDB:=
VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,
DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG14,BEG7,LNG13,LNG10,RED8,RED7,RED5,RED4,SS13,FAP1,FDFAP1,
ASY1,CNQ) <0 then negative end;

procedure c0655s928; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1)
/12.0; SS13:=SS(6.0,BENIFITD)/12.0; RED4:=1.0-(0.0763*a(AGE,61.0,
60.0)+0.0855*a(AGE,62.0,61.0)); RED7:=1.0-(0.0575*a(AGE,61.0,
60.0)+0.0643*a(AGE,62.0,61.0)+0.0725*a(AGE,63.0,62.0)); RED8:=
1.0-(0.0819*a(AGE,64.0,63.0)+0.0928*a(AGE,65.0,64.0)); RAS1:=(
ASY1>=30.0)!(AGE>=65.0)&(ASY1>=10.0)!(AGE>=62.0)&(ASY1>=15.0);
RAS4:=(AGE>=60.0)&(ASY1>=15.0); RAS10:=(AGE>=55.0)&(ASY1>=15.0)!(
AGE+ASY1>=80.0)!(AGE+ASY1>=65.0)&(ASY1>=20.0); RAS13:=ASY1>=15.0;
ROT7:=(AGE>=45.0)&(ASY1>=15.0); ROT10:=^QSSDABLE; LNG10:=BIRTHD+
62.0; LNG13:=BIRTHD+60.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+62.0);
BEG8:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+62.0,
QUITD); BEG14:=MAX(BIRTHD+60.0,QUITD); NR1:=17.5*u(ASY1,15.0)+
19.0*b(ASY1,15.0,30.0)+20.5*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1;
NR2:=(0.011*u(ASY1,30.0)+0.012*o(ASY1,30.0))*FAP1; NR2Q:=ord(
RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT*(
RED7+RED8-1.0); VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q)*12.0; DR1:=NRT+400.0; DR1Q:=ord(RAS10&ROT10)*AA(
QUITD,LNG10)*DR1; DR2:=NRT; DR2Q:=ord(RAS10)*AA(BEG11,0.0)*DR2;
DR3:=NRT; DR3Q:=ord(RAS10)*DR3; DRT:=MAX(DR1+DR2,DR3); DRQ:=MAX(
DR1Q+DR2Q,DR3Q)*12.0; DS1:=0.5*NRT; DS1Q:=ord(RAS13)*AA(QUITD,
LNG13)*DS1; DS2:=NN(0.5*NRT-0.5*SS13); DS2Q:=ord(RAS13)*AA(BEG14,
0.0)*DS2; DS3:=140.0; DS3Q:=ord(RAS13)*AA(QUITD,LNG13)*DS3; DS4:=
90.0; DS4Q:=ord(RAS13)*AA(BEG14,0.0)*DS4; DST:=MAX(DS1+DS2,DS3+
DS4); DSQ:=MAX(DS1Q+DS2Q,DS3Q+DS4Q)*12.0; PRAG:=0.0; VEDB:=VOPT(
ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,
DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,
NR2,NR1Q,NR1,BEG14,BEG11,BEG8,BEG7,LNG13,LNG10,RED8,RED7,RED4,
SS13,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0656s964; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
PSY10:=BIRTHD+60.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
0.07; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RAS1:=(AGE>=62.0)
&(ASY1>=5.0)!(AGE>=60.0)&(ASY1>=20.0)!(AGE>=55.0)&(ASY1>=30.0);
RAS10:=ASY1>=5.0; RAS13:=ASY1>=1.0; BEG7:=MAX(BIRTHD+62.0,QUITD);
NR1:=0.015*FAP1*u(ASY1,5.0)+0.0175*FAP1*b(ASY1,5.0,10.0)+0.02*
FAP1*o(ASY1,10.0); NR1Q:=ord(RAS1)*NR1; NR2:=(0.01*FAP1+25.0)*
ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=(0.01*FAP1+25.0)*u(ASY1,5.0)+
0.0175*FAP1*b(ASY1,5.0,10.0)+0.02*FAP1*o(ASY1,10.0); NR3Q:=ord(
RAS1)*NR3; NR4:=(0.01*FAP1+25.0)*u(ASY1,10.0)+0.02*FAP1*o(ASY1,
10.0); NR4Q:=ord(RAS1)*NR4; NR5:=0.8*FAP1; NR5Q:=ord(RAS1)*NR5;
NRT:=MIN(NR5,MAX(NR1,NR2,NR3,NR4)); NRQ:=MIN(NR5Q,MAX(NR1Q,NR2Q,
NR3Q,NR4Q)); LRQ:=NRQ; MRAGE:=999.0; ERQ:=0.0; VD1:=NRT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=0.4*FAP1; DR1Q:=ord(
RAS10)*DR1; DR2:=0.015*FAP1*u(NN(PSY10),5.0)+0.0175*FAP1*b(NN(
PSY10),5.0,10.0)+0.02*FAP1*o(NN(PSY10),10.0); DR2Q:=ord(RAS10)*
DR2; DR3:=(0.01*FAP1+25.0)*u(NN(PSY10),5.0)+0.0175*FAP1*b(NN(
PSY10),5.0,10.0)+0.02*FAP1*o(NN(PSY10),10.0); DR3Q:=ord(RAS10)*
DR3; DR4:=MAX((0.01*FAP1+25.0)*u(NN(PSY10),10.0)+0.02*FAP1*o(NN(
PSY10),10.0),(0.01*FAP1+25.0)*NN(PSY10)); DR4Q:=ord(RAS10)*DR4;
DRT:=MIN(DR1,MAX(DR2,DR3,DR4)); DRQ:=MIN(DR1Q,MAX(DR2Q,DR3Q,DR4Q)
); DS1:=0.55*NRT; DS1Q:=ord(RAS13)*DS1; DS2:=0.22*FAP1; DS2Q:=
ord(RAS13)*DS2; DS3:=0.55*MAX(DR2,DR3,DR4); DS3Q:=ord(RAS13)*DS3;
DST:=MAX(DS1,MIN(DS2,DS3)); DSQ:=MAX(DS1Q,MIN(DS2Q,DS3Q)); PRAG:=
TAR(0.95*FAR(ACPIG,6.0/12.0),6.0/12.0); VEDB:=VOPT(ord(ASY1>=5.0)
*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,
DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,
MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG7,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,PSY10,ASY1,CNQ) <0
then negative end;

procedure c0657s964; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
PSY10:=BIRTHD+60.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
0.07; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RAS1:=(AGE>=62.0)
&(ASY1>=5.0)!(AGE>=60.0)&(ASY1>=20.0)!(AGE>=55.0)&(ASY1>=30.0);
RAS10:=ASY1>=5.0; RAS13:=ASY1>=1.0; BEG7:=MAX(BIRTHD+62.0,QUITD);
NR1:=0.015*FAP1*u(ASY1,5.0)+0.0175*FAP1*b(ASY1,5.0,10.0)+0.02*
FAP1*o(ASY1,10.0); NR1Q:=ord(RAS1)*NR1; NR2:=(0.01*FAP1+25.0)*
ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=(0.01*FAP1+25.0)*u(ASY1,5.0)+
0.0175*FAP1*b(ASY1,5.0,10.0)+0.02*FAP1*o(ASY1,10.0); NR3Q:=ord(
RAS1)*NR3; NR4:=(0.01*FAP1+25.0)*u(ASY1,10.0)+0.02*FAP1*o(ASY1,
10.0); NR4Q:=ord(RAS1)*NR4; NR5:=0.8*FAP1; NR5Q:=ord(RAS1)*NR5;
NRT:=MIN(NR5,MAX(NR1,NR2,NR3,NR4)); NRQ:=MIN(NR5Q,MAX(NR1Q,NR2Q,
NR3Q,NR4Q)); LRQ:=NRQ; MRAGE:=999.0; ERQ:=0.0; VD1:=NRT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=0.4*FAP1; DR1Q:=ord(
RAS10)*DR1; DR2:=0.015*FAP1*u(NN(PSY10),5.0)+0.0175*FAP1*b(NN(
PSY10),5.0,10.0)+0.02*FAP1*o(NN(PSY10),10.0); DR2Q:=ord(RAS10)*
DR2; DR3:=(0.01*FAP1+25.0)*u(NN(PSY10),5.0)+0.0175*FAP1*b(NN(
PSY10),5.0,10.0)+0.02*FAP1*o(NN(PSY10),10.0); DR3Q:=ord(RAS10)*
DR3; DR4:=MAX((0.01*FAP1+25.0)*u(NN(PSY10),10.0)+0.02*FAP1*o(NN(
PSY10),10.0),(0.01*FAP1+25.0)*NN(PSY10)); DR4Q:=ord(RAS10)*DR4;
DRT:=MIN(DR1,MAX(DR2,DR3,DR4)); DRQ:=MIN(DR1Q,MAX(DR2Q,DR3Q,DR4Q)
); DS1:=0.55*NRT; DS1Q:=ord(RAS13)*DS1; DS2:=0.22*FAP1; DS2Q:=
ord(RAS13)*DS2; DS3:=0.55*MAX(DR2,DR3,DR4); DS3Q:=ord(RAS13)*DS3;
DST:=MAX(DS1,MIN(DS2,DS3)); DSQ:=MAX(DS1Q,MIN(DS2Q,DS3Q)); PRAG:=
TAR(0.95*FAR(ACPIG,6.0/12.0),6.0/12.0); VEDB:=VOPT(ord(ASY1>=5.0)
*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,
DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,
MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG7,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,PSY10,ASY1,CNQ) <0
then negative end;

procedure c0658s1011; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1100.0)*1.0; PSY10:=BIRTHD+62.0-HIRED; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=0.0525; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,
FDMAN7); RED4:=NN(1.0-0.03*o(60.0,AGE)); RED5:=AR(62.0-AGE);
RED13:=JSRED; RAS1:=(ASY1>=35.0)!(AGE>=62.0)&(ASY1>=1.0)!(AGE>=
60.0)&(ASY1>=30.0); RAS4:=(AGE>=55.0)&(ASY1>=25.0); RAS5:=ASY1>=
10.0; RAS10:=ASY1>=5.0; RAS11:=ASY1>=17.0; BEG7:=ANYTIME(0.0,0.0)
;NR1:=0.02*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=100.0*ASY1;
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q);
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
NRT*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q); VD1:=ER2; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NR1*u(ASY1,PSY10)/PSY10; DR1Q:=ord(RAS10)*DR1; DR2:=NR1*u(
ASY1,16.667)/16.667; DR2Q:=ord(RAS10)*DR2; DR3:=NRT; DR3Q:=ord(
RAS11)*DR3; DR4:=100.0*ASY1; DR4Q:=ord(RAS10)*DR4; DRT:=MAX(DR3,
DR4,MIN(DR1,DR2)); DRQ:=MAX(DR3Q,DR4Q,MIN(DR1Q,DR2Q)); DS1:=ER1*
RED13; DS1Q:=ord(RAS4)*DS1; DS2:=ER2*RED13; DS2Q:=ord(RAS5)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(
ord((ASY1>=10.0)!(QUITAGE>=62.0)&(ASY1>=1.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED5,RED4,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP1,FDFAP1,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0659s429; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1981.167)-(HIRED+1.0))*ord(WRKHRS>=12.0)*1.0; ASY2:=NN(MIN(
QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=12.0)*1.0; FDFAP1:=MIN(
QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+
65.0); SDFAP2:=MAX(HIRED,FDFAP2-5.0); FAP2:=ord(FDFAP2>SDFAP2)*
AVG(WAGE,SDFAP2,FDFAP2); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
0.03; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SS1:=SS(2.0,
BENIFITD); SS2:=SS(1.0,BENIFITD); RED4:=NN(1.0-0.04*o(62.0,AGE));
RED10:=OTHERB; RED13:=JSRED; RAS1:=(AGE>=62.0)&(ASY2>=5.0)!(AGE+
ASY2>=80.0); RAS4:=(AGE>=55.0)&(ASY2>=10.0)!(AGE>=50.0)&(ASY2>=
20.0); RAS5:=(AGE>=52.0)&(ASY2>=5.0); RAS10:=(AGE>=52.0)!(ASY2>=
5.0); RAS13:=ASY2>=5.0; ROT2:=AGE<65.0; ROT4:=QAPPROVL; BEG7:=
MAX(BIRTHD+62.0,QUITD); NR1:=NN(0.018*FAP1-0.025*SS1)*u(ASY2,
20.0)+0.02*FAP1*o(ASY2,20.0); NR1Q:=ord(RAS1&ROT2)*NR1; NR2:=
0.01*FAP1*ASY2; NR2Q:=ord(RAS1)*NR2; NR3:=MIN(0.008*u(FAP2,
6600.0)+0.018*o(FAP2,6600.0)*u(ASY1,20.0)+0.02*FAP2*b(ASY1,20.0,
40.0),20000.0); NR3Q:=ord(RAS1)*NR3; NR4:=NN(0.018*FAP1-0.025*
SS2)*u(ASY2,20.0)+0.02*FAP1*o(ASY2,20.0); NR4Q:=ord(RAS1)*NR4;
NR5:=0.8*FAP1; NR5Q:=ord(RAS1)*NR5; NRT:=MAX(MIN(NR1,NR5),MIN(
NR2,NR5),MIN(NR3,NR5),MIN(NR4,NR5)); NRQ:=MAX(MIN(NR1Q,NR5Q),MIN(
NR2Q,NR5Q),MIN(NR3Q,NR5Q),MIN(NR4Q,NR5Q)); LRQ:=NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED4; ER2Q:=
ord(RAS5&ROT4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=
NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ERT;
DR1Q:=ord(RAS10)*DR1; DR2:=0.1*FAP1+0.01*b(ASY2,5.0,10.0); DR2Q:=
ord(RAS10)*DR2; DR3:=0.1*FAP1+0.01*FAP1*b(AGE,51.0,57.0); DR3Q:=
ord(RAS10)*DR3; DR4:=NN(0.9*FAP1-SS1-RED10); DR4Q:=ord(RAS10)*
DR4; DRT:=MIN(DR4,MAX(DR1,DR2,DR3)); DRQ:=MIN(DR4Q,MAX(DR1Q,DR2Q,
DR3Q)); DS1:=0.66667*NRT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord(ASY2>=5.0)*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,
RED10,RED4,SS2,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP2,SDFAP2,FDFAP2,
FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0660s863; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1970.667)
-(HIRED+1.0))*NNMIN(1.0,WRKHRS/1200.0); ASY2:=NN(QUITD-MAX(HIRED+
1.0,1970.667))*NNMIN(1.0,WRKHRS/2050.0); ASY3:=NN(MIN(QUITD,
1976.0)-(HIRED+1.0))*NNMIN(1.0,WRKHRS/1000.0); ASY4:=NN(QUITD-
MAX(HIRED+1.0,1976.0))*ord(WRKHRS>=1000.0)*1.0; RED4:=NN(1.0-
0.06*o(62.0,AGE)); RED13:=JSRED; ASY52:=ASY3+ASY4; RAS1:=(AGE>=
62.0)&(ASY52>=10.0); RAS4:=(AGE>=55.0)&(ASY52>=15.0); RAS10:=
ASY52>=15.0; ROT7:=ASY3+ASY4>=15.0; BEG7:=MAX(BIRTHD+62.0,QUITD);
BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+62.0); NR1:=4.5*ASY1+15.12*ASY2;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*
12.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=ord(ROT7)
*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0;
DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=
0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(ord(ASY52>=10.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,
ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,ASY52,RED13,
RED4,ASY4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0661s364; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1)
/12.0; SS13:=SS(6.0,BENIFITD)/12.0; RED4:=1.0-(0.0763*a(AGE,61.0,
60.0)+0.0855*a(AGE,62.0,61.0)); RED7:=1.0-(0.0575*a(AGE,61.0,
60.0)+0.0643*a(AGE,62.0,61.0)+0.0725*a(AGE,63.0,62.0)); RED8:=
1.0-(0.0819*a(AGE,64.0,63.0)+0.0928*a(AGE,65.0,64.0)); RAS1:=(
ASY1>=30.0)!(AGE>=65.0)&(ASY1>=10.0)!(AGE>=62.0)&(ASY1>=15.0);
RAS4:=(AGE>=60.0)&(ASY1>=15.0); RAS10:=(AGE>=55.0)&(ASY1>=15.0)!(
AGE+ASY1>=80.0)!(AGE+ASY1>=65.0)&(ASY1>=20.0); RAS13:=ASY1>=15.0;
ROT7:=(AGE>=40.0)&(ASY1>=15.0); ROT10:=^QSSDABLE; LNG10:=BIRTHD+
62.0; LNG13:=BIRTHD+60.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+62.0);
BEG8:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+62.0,
QUITD); BEG14:=MAX(BIRTHD+60.0,QUITD); NR1:=17.5*u(ASY1,15.0)+
19.0*b(ASY1,15.0,30.0)+20.5*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1;
NR2:=(0.011*u(ASY1,30.0)+0.012*o(ASY1,30.0))*FAP1; NR2Q:=ord(
RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT*(
RED7+RED8-1.0); VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q)*12.0; DR1:=NRT+400.0; DR1Q:=ord(RAS10&ROT10)*AA(
QUITD,LNG10)*DR1; DR2:=NRT; DR2Q:=ord(RAS10&ROT10)*AA(BEG11,0.0)*
DR2; DR3:=NRT; DR3Q:=ord(RAS10)*DR3; DRT:=MAX(DR1+DR2,DR3); DRQ:=
MAX(DR1Q+DR2Q,DR3Q)*12.0; DS1:=0.5*NRT; DS1Q:=ord(RAS13)*AA(
QUITD,LNG13)*DS1; DS2:=0.5*NRT-0.5*SS13; DS2Q:=ord(RAS13)*AA(
BEG14,0.0)*DS2; DS3:=140.0; DS3Q:=ord(RAS13)*AA(QUITD,LNG13)*DS3;
DS4:=90.0; DS4Q:=ord(RAS13)*AA(BEG14,0.0)*DS4; DST:=MAX(DS1+DS2,
DS3+DS4); DSQ:=MAX(DS1Q+DS2Q,DS3Q+DS4Q)*12.0; PRAG:=0.0; VEDB:=
VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,
DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG14,BEG11,BEG8,BEG7,LNG13,LNG10,RED8,RED7,
RED4,SS13,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0662s977; begin CNQ:=0.0; ASY1:=MIN(35.0,QUITD-HIRED)*
1.0; RED4:=NN(1.0-0.06*o(62.0,AGE)); RAS1:=AGE>=62.0; RAS4:=(
AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; ROT10:=QSSDABLE;
BEG7:=MAX(BIRTHD+62.0,QUITD); NR1:=17.0*ASY1; NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT;
DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=0.5*
ERT; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=62.0)!(ASY1>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED4,ASY1,CNQ) <0 then
negative end;

procedure c0663s553; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1)
/12.0; SS13:=SS(6.0,BENIFITD)/12.0; RED4:=1.0-(0.0763*a(AGE,61.0,
60.0)+0.0855*a(AGE,62.0,61.0)); RED7:=1.0-(0.0575*a(AGE,61.0,
60.0)+0.0643*a(AGE,62.0,61.0)+0.0725*a(AGE,63.0,62.0)); RED8:=
1.0-(0.0819*a(AGE,64.0,63.0)+0.0928*a(AGE,65.0,64.0)); RAS1:=(
AGE>=65.0)!(ASY1>=30.0)!(AGE>=62.0)&(ASY1>=15.0); RAS4:=(AGE>=
60.0)&(ASY1>=15.0); RAS10:=(AGE>=55.0)&(ASY1>=15.0)!(AGE+ASY1>=
80.0)!(AGE+ASY1>=65.0)&(ASY1>=20.0); RAS13:=ASY1>=15.0; ROT7:=(
AGE>=40.0)&(ASY1>=15.0); ROT10:=^QSSDABLE; LNG10:=BIRTHD+62.0;
LNG13:=BIRTHD+60.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+62.0);
BEG8:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+62.0,
QUITD); BEG14:=MAX(BIRTHD+60.0,QUITD); NR1:=17.5*u(ASY1,15.0)+
19.0*b(ASY1,15.0,30.0)+20.5*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1;
NR2:=(0.011*u(ASY1,30.0)+0.012*o(ASY1,30.0))*FAP1; NR2Q:=ord(
RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT*(
RED7+RED8-1.0); VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q)*12.0; DR1:=NRT+400.0; DR1Q:=ord(RAS10&ROT10)*AA(
QUITD,LNG10)*DR1; DR2:=NRT; DR2Q:=ord(RAS10)*AA(BEG11,0.0)*DR2;
DR3:=NRT; DR3Q:=ord(RAS10)*DR3; DRT:=MAX(DR1+DR2,DR3); DRQ:=MAX(
DR1Q+DR2Q,DR3Q)*12.0; DS1:=0.5*NRT; DS1Q:=ord(RAS13)*AA(QUITD,
LNG13)*DS1; DS2:=NN(0.5*NRT-0.5*SS13); DS2Q:=ord(RAS13)*AA(BEG14,
0.0)*DS2; DS3:=145.0; DS3Q:=ord(RAS13)*AA(QUITD,LNG13)*DS3; DS4:=
95.0; DS4Q:=ord(RAS13)*AA(BEG14,0.0)*DS4; DST:=MAX(DS1+DS2,DS3+
DS4); DSQ:=MAX(DS1Q+DS2Q,DS3Q+DS4Q)*12.0; PRAG:=0.0; VEDB:=VOPT(
ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,
DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,
NR2,NR1Q,NR1,BEG14,BEG11,BEG8,BEG7,LNG13,LNG10,RED8,RED7,RED4,
SS13,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0664s554; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1)
/12.0; SS13:=SS(6.0,BENIFITD)/12.0; RED4:=1.0-(0.0763*a(AGE,61.0,
60.0)+0.0855*a(AGE,62.0,61.0)); RED7:=1.0-(0.0575*a(AGE,61.0,
60.0)+0.0643*a(AGE,62.0,61.0)+0.0725*a(AGE,63.0,62.0)); RED8:=
1.0-(0.0819*a(AGE,64.0,63.0)+0.0928*a(AGE,65.0,64.0)); RAS1:=(
ASY1>=30.0)!(AGE>=65.0)&(ASY1>=10.0)!(AGE>=62.0)&(ASY1>=15.0);
RAS4:=(AGE>=60.0)&(ASY1>=15.0); RAS10:=(AGE>=55.0)&(ASY1>=15.0)!(
AGE+ASY1>=80.0)!(AGE+ASY1>=65.0)&(ASY1>=20.0); RAS13:=ASY1>=15.0;
ROT7:=(AGE>=40.0)&(ASY1>=15.0); ROT10:=^QSSDABLE; LNG10:=BIRTHD+
62.0; LNG13:=BIRTHD+60.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+62.0);
BEG8:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+62.0,
QUITD); BEG14:=MAX(BIRTHD+60.0,QUITD); NR1:=17.5*u(ASY1,15.0)+
19.0*b(ASY1,15.0,30.0)+20.5*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1;
NR2:=(0.011*u(ASY1,30.0)+0.012*o(ASY1,30.0))*FAP1; NR2Q:=ord(
RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT*(
RED7+RED8-1.0); VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q)*12.0; DR1:=NRT+400.0; DR1Q:=ord(RAS10&ROT10)*AA(
QUITD,LNG10)*DR1; DR2:=NRT; DR2Q:=ord(RAS10&ROT10)*AA(BEG11,0.0)*
DR2; DR3:=NRT; DR3Q:=ord(RAS10)*DR3; DRT:=MAX(DR1+DR2,DR3); DRQ:=
MAX(DR1Q+DR2Q,DR3Q)*12.0; DS1:=0.5*NRT; DS1Q:=ord(RAS13)*AA(
QUITD,LNG13)*DS1; DS2:=0.5*NRT-0.5*SS13; DS2Q:=ord(RAS13)*AA(
BEG14,0.0)*DS2; DS3:=140.0; DS3Q:=ord(RAS13)*AA(QUITD,LNG13)*DS3;
DS4:=90.0; DS4Q:=ord(RAS13)*AA(BEG14,0.0)*DS4; DST:=MAX(DS1+DS2,
DS3+DS4); DSQ:=MAX(DS1Q+DS2Q,DS3Q+DS4Q)*12.0; PRAG:=0.0; VEDB:=
VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,
DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG14,BEG11,BEG8,BEG7,LNG13,LNG10,RED8,RED7,
RED4,SS13,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0665s443; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/2040.0); ASY2:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/2040.0); ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,
1976.667))*NNMIN(1.0,WRKHRS/2040.0); FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; RED4:=NN(1.0-0.06*o(62.0,AGE));
RED5:=NN(1.0-0.06*o(88.0,AGE+ASY2)); RED7:=NN(1.0-0.06*o(65.0,
AGE)); RAS1:=(ASY2>=30.0)!(AGE>=62.0)&(ASY2>=10.0)!(AGE+ASY2>=
88.0); RAS2:=(ASY2>=30.0)!(AGE+ASY2>=88.0); RAS3:=AGE>=65.0;
RAS4:=(AGE>=60.0)&(ASY2>=10.0); RAS10:=ASY2>=10.0; RAS13:=ASY2>=
10.0; ROT10:=QSSDABLE; LNG2:=BIRTHD+62.0; LNG13:=10.0; BEG7:=
ANYTIME(BIRTHD+60.0,BIRTHD+65.0); NR1:=0.017*FAP1*u(ASY1,30.0);
NR1Q:=ord(RAS1)*NR1; NR2:=400.0; NR2Q:=ord(RAS2)*AA(QUITD,LNG2)*
NR2; NR3:=0.017*FAP1*ASY3; NR3Q:=ord(RAS3)*NR3; NRT:=MAX(NR1+NR2,
NR3); NRQ:=MAX(NR1Q+NR2Q,NR3Q)*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NR1*MAX(RED4,RED5); ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NR1; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=
DR1Q*12.0; DS1:=NR1; DS1Q:=ord(RAS13)*AA(QUITD,LNG13+QUITD)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,LNG13,LNG2,RED7,RED5,RED4,
FAP1,SDFAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0666s762; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=800.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-3.0),FDFAP1); FAP13:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=0.0625; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7);
RED13:=JSRED; RAS1:=(ASY1>=25.0)!(AGE>=60.0)&(ASY1>=10.0);
RAS10:=ASY1>=10.0; RAS13:=(ASY1>=20.0)!(AGE>=55.0)&(ASY1>=10.0);
ROT10:=^QJRDABLE; ROT11:=QJRDABLE; ROT13:=^QJRDEATH; ROT14:=
QJRDEATH; BEG7:=MAX(NRD,QUITD); NR1:=0.022*FAP1*ASY1; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ERQ:=0.0;
VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT;
DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=NRT; DR2Q:=ord(ROT11)*DR2; DR3:=
0.15*FAP1; DR3Q:=ord(RAS10&ROT10)*DR3; DR4:=0.15*FAP1; DR4Q:=ord(
ROT11)*DR4; DRT:=MAX(DR1,DR2,DR3,DR4); DRQ:=MAX(DR1Q,DR2Q,DR3Q,
DR4Q); DS1:=NRT*RED13; DS1Q:=ord(RAS13&ROT13)*DS1; DS2:=0.33333*
FAP13; DS2Q:=ord(ROT14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,
DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((ASY1>=15.0)!(QUITAGE>=60.0)&(
ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP13,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0667s43; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1967.5)-
HIRED)*1.0; ASY2:=NN(QUITD-MAX(HIRED,1967.5))*1.0; ASY3:=(QUITD-
HIRED)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),
FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.07; MAN7:=SUMI(
PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.05*a(AGE,60.0,50.0)+
0.03*a(AGE,65.0,60.0)); RED5:=1.0-(0.05*a(AGE,60.0,50.0)+0.03*a(
AGE,62.0,60.0)); RED6:=NN(1.0-0.05*o(60.0,AGE)); RED7:=AR(NRD-
BENIFITD); RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY3>=10.0)!(AGE>=60.0)
&(ASY3>=25.0); RAS4:=(AGE>=50.0)&(ASY3>=5.0); RAS5:=(AGE>=50.0)&(
ASY3>=10.0); RAS6:=(AGE>=50.0)&(ASY3>=25.0); BEG7:=ANYTIME(
BIRTHD+50.0,0.0); NR1:=(0.015*ASY1+0.02*ASY2)*FAP1; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5; ER2Q:=ord(RAS5)*ER2;
ER3:=NRT*RED6; ER3Q:=ord(RAS6)*ER3; ERT:=MAX(ER1,ER2,ER3); ERQ:=
MAX(ER1Q,ER2Q,ER3Q); VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q; DRQ:=0.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY3>=5.0))*1.0); if min( VEDB,PRAG,DRQ,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,
BEG7,RED7,RED6,RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,
ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0668s169; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/2080.0); ASY2:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/1000.0);
PSY10:=BIRTHD+60.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-3.0),FDFAP1)/12.0; FDFAP2:=QUITD; FAP2:=AVG(WAGE,
MAX(HIRED,FDFAP2-36.0/12.0),FDFAP2)/12.0; SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
SS10:=SS(5.0,BENIFITD)/12.0; RED4:=NN(1.0-0.03*o(65.0,AGE));
RED10:=OTHERB; RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE+ASY1>=80.0)&(
AGE>=55.0); RAS2:=AGE>=60.0; RAS4:=(AGE>=55.0)&(ASY2>=10.0);
RAS10:=ASY1>=3.0; RAS11:=ASY2>=10.0; RAS12:=AGE>=55.0; RAS13:=(
AGE>=65.0)!(ASY2>=20.0)!(AGE>=50.0)&(ASY2>=10.0); LNG2:=BIRTHD+
62.0; LNG10:=BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
BEG11:=MAX(BIRTHD+65.0,QUITD); NR1:=0.014*FAP1*ASY1; NR1Q:=ord(
RAS1)*NR1; NR2:=0.014*FAP2*ASY1; NR2Q:=ord(RAS1)*NR2; NR3:=28.0*
ASY1; NR3Q:=ord(RAS1)*NR3; NR4:=4.0*ASY1; NR4Q:=ord(RAS1)*AA(
QUITD,LNG2)*NR4; NRT:=MAX(NR1+NR4,NR2+NR4,NR3+NR4); NRQ:=MAX(
NR1Q+NR4Q,NR2Q+NR4Q,NR3Q+NR4Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=
MAX(NR1,NR2,NR3)*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR4; ER2Q:=ord(
RAS4)*AA(QUITD,LNG2)*ER2; ERT:=ER1+ER2; ERQ:=(ER1Q+ER2Q)*12.0;
VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
NN(0.65*MAX(NR1,NR2,NR3)-SS10-RED10); DR1Q:=ord(RAS10)*AA(QUITD,
LNG10)*DR1; DR2:=MAX(NR1,NR2,NR3)-RED10; DR2Q:=ord(RAS11)*DR2;
DR3:=MAX(0.014*FAP1*PSY10,0.014*FAP2*PSY10,28.0*PSY10); DR3Q:=
ord(RAS12)*DR3; DR4:=MAX(NR1,NR2,NR3); DR4Q:=ord(RAS2)*DR4; DR5:=
MAX(NR1,NR2,NR3); DR5Q:=ord(RAS10)*AA(BEG11,0.0)*DR5; DRT:=MAX(
DR1+DR5,DR2,DR3,DR4); DRQ:=MAX(DR1Q+DR5Q,DR2Q,DR3Q,DR4Q)*12.0;
DS1:=0.5*ER1*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q*
12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR5Q,DR5,DR4Q,
DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,
ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,
NR1,BEG11,BEG7,LNG10,LNG2,RED13,RED10,RED4,SS10,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP2,FDFAP2,FAP1,FDFAP1,PSY10,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0669s254; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1)
/12.0; SS13:=SS(6.0,BENIFITD)/12.0; RED4:=1.0-(0.0763*a(AGE,61.0,
60.0)+0.0855*a(AGE,62.0,61.0)); RED7:=1.0-(0.0575*a(AGE,61.0,
60.0)+0.0643*a(AGE,62.0,61.0)+0.0725*a(AGE,63.0,62.0)); RED8:=
1.0-(0.0819*a(AGE,64.0,63.0)+0.0928*a(AGE,65.0,64.0)); RAS1:=(
ASY1>=30.0)!(AGE>=65.0)&(ASY1>=10.0)!(AGE>=62.0)&(ASY1>=15.0);
RAS4:=(AGE>=60.0)&(ASY1>=15.0); RAS10:=(AGE>=55.0)&(ASY1>=15.0)!(
AGE+ASY1>=80.0)!(AGE+ASY1>=65.0)&(ASY1>=20.0); RAS13:=ASY1>=15.0;
ROT7:=(AGE>=40.0)&(ASY1>=15.0); ROT10:=^QSSDABLE; LNG10:=BIRTHD+
62.0; LNG13:=BIRTHD+60.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+62.0);
BEG8:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+62.0,
QUITD); BEG14:=MAX(BIRTHD+60.0,QUITD); NR1:=17.5*u(ASY1,15.0)+
19.0*b(ASY1,15.0,30.0)+20.5*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1;
NR2:=(0.011*u(ASY1,30.0)+0.012*o(ASY1,30.0))*FAP1; NR2Q:=ord(
RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VD2:=NRT*(
RED7+RED8-1.0); VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q)*12.0; DR1:=NRT+400.0; DR1Q:=ord(RAS10&ROT10)*AA(
QUITD,LNG10)*DR1; DR2:=NRT; DR2Q:=ord(RAS10&ROT10)*AA(BEG11,0.0)*
DR2; DR3:=NRT; DR3Q:=ord(RAS10)*DR3; DRT:=MAX(DR1+DR2,DR3); DRQ:=
MAX(DR1Q+DR2Q,DR3Q)*12.0; DS1:=0.5*NRT; DS1Q:=ord(RAS13)*AA(
QUITD,LNG13)*DS1; DS2:=0.5*NRT-0.5*SS13; DS2Q:=ord(RAS13)*AA(
BEG14,0.0)*DS2; DS3:=140.0; DS3Q:=ord(RAS13)*AA(QUITD,LNG13)*DS3;
DS4:=90.0; DS4Q:=ord(RAS13)*AA(BEG14,0.0)*DS4; DST:=MAX(DS1+DS2,
DS3+DS4); DSQ:=MAX(DS1Q+DS2Q,DS3Q+DS4Q)*12.0; PRAG:=0.0; VEDB:=
VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,
DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG14,BEG11,BEG8,BEG7,LNG13,LNG10,RED8,RED7,
RED4,SS13,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0670s622; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1615.0); ASY2:=(QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0;
FAP1:=WAGE(QUITD)/12.0; SS1:=SS(1.0,BENIFITD)/12.0; RED4:=NN(1.0-
0.06*o(60.0,AGE)); RED7:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED;
RAS1:=(AGE>=65.0)!(ASY1>=30.0)!(AGE>=60.0)&(ASY1>=10.0); RAS2:=
ASY1>=30.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0;
ROT10:=^QSSDABLE; LNG2:=BIRTHD+62.0; LNG10:=BIRTHD+SSAGE(2.0);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+62.0,
QUITD); NR1:=15.0*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=FAP1-SS1;
NR2Q:=ord(RAS1)*NR2; NR3:=100.0; NR3Q:=ord(RAS2)*AA(QUITD,LNG2)*
NR3; NRT:=MIN(NR1+NR3,NR2); NRQ:=MIN(NR1Q+NR3Q,NR2Q)*12.0; LRQ:=
NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR2;
ER2Q:=ord(RAS4)*ER2; ERT:=MIN(ER1,ER2); ERQ:=MIN(ER1Q,ER2Q)*12.0;
VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR2; VD2Q:=AA(BEG7,
0.0)*VD2; VDT:=MIN(VD1,VD2); VDQ:=MIN(VD1Q,VD2Q)*12.0; DR1:=NR1;
DR1Q:=ord(RAS10)*DR1; DR2:=30.0*ASY1; DR2Q:=ord(RAS10&ROT10)*AA(
QUITD,LNG10)*DR2; DR3:=NR1; DR3Q:=ord(RAS10&ROT10)*AA(BEG11,0.0)*
DR3; DRT:=MAX(DR1,DR2+DR3); DRQ:=MAX(DR1Q,DR2Q+DR3Q)*12.0; DS1:=
0.5*ERT*RED13; DS1Q:=ord(RAS10)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG11,BEG7,LNG10,LNG2,
RED13,RED7,RED4,SS1,FAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0671s909; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1000.0); RED4:=NN(1.0-0.03*o(62.0,AGE)); RED7:=AR(
62.0-AGE); RAS1:=(AGE>=62.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(
ASY1>=10.0); RAS11:=ASY1>=10.0; ROT10:=QSSDABLE&QJRDABLE; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+62.0); NR1:=15.5*u(ASY1,10.0)+16.0*b(
ASY1,10.0,20.0)+16.5*b(ASY1,20.0,30.0)+17.0*o(ASY1,30.0); NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0;
VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DR1:=155.0; DR1Q:=ord(ROT10)*DR1; DR2:=NRT; DR2Q:=ord(RAS11&
ROT10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=
0.5*ERT; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=
0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED7,RED4,ASY1,CNQ) <0
then negative end;

procedure c0672s50; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1976.0)-MAX(HIRED,MIN(HIRED+1.0,BIRTHD+40.0)))*1.0; ASY2:=
NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,MIN(HIRED+1.0,BIRTHD+40.0),
1976.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,
FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1);
SS1:=SS(1.0,BENIFITD); RED4:=NN(1.0-0.048*o(62.0,AGE)); RED7:=AR(
65.0-AGE); RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=(AGE>=65.0)!(
AGE>=62.0)&(ASY51>=5.0); RAS4:=(AGE>=55.0)&(ASY51>=5.0); RAS13:=(
ASY51>=10.0)!(AGE>=55.0)&(ASY51>=5.0); ROT10:=QSSDABLE; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(NRD,QUITD); NR1:=NN(
0.01667*FAP1*u(ASY1+ASY2,30.0)-0.01667*SS1*u(ASY1+ASY2,30.0)+
0.005*FAP1*o(ASY1+ASY2,30.0)); NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*
DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.2*FAP1; DS1Q:=ord(RAS13)*DS1;
DS2:=0.5*ERT*RED13; DS2Q:=ord(RAS4)*DS2; DST:=MAX(DS1,DS2); DSQ:=
MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY51>=10.0)!(QUITAGE>=55.0)&(ASY51>=5.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG10,BEG7,
ASY51,RED13,RED7,RED4,SS1,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0673s51; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0,1976.0)-MAX(HIRED,1966.0))*NNMIN(1.0,WRKHRS/12.0);
ASY2:=NNMIN(30.0,MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1976.0))*ord(
WRKHRS>=1000.0)*1.0; ASY3:=NNMIN(30.0,MIN(QUITD,BIRTHD+65.0,
1976.0)-HIRED)*1.0; RED4:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=
AGE>=65.0; ASY51:=ASY1+ASY2; RAS4:=(AGE>=55.0)&(ASY51>=10.0);
RAS10:=ASY51>=10.0; DAT1:=QUITD<1984.667; DAT2:=(1984.667<=QUITD)
&(QUITD<1985.667); DAT3:=1985.667<=QUITD; ROT10:=QSSDABLE; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=8.5*(ASY1+ASY2); NR1Q:=
ord(RAS1&DAT1)*NR1; NR2:=9.0*(ASY1+ASY2); NR2Q:=ord(RAS1&DAT2)*
NR2; NR3:=9.5*(ASY1+ASY2); NR3Q:=ord(RAS1&DAT3)*NR3; NRT:=MAX(
NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q)*12.0; LRQ:=NRQ; MRAGE:=
70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&DAT1)*ER1; ER2:=NR2*RED4;
ER2Q:=ord(RAS4&DAT2)*ER2; ER3:=NR3*RED4; ER3Q:=ord(RAS4&DAT3)*
ER3; ERT:=MAX(ER1,ER2,ER3); ERQ:=MAX(ER1Q,ER2Q,ER3Q)*12.0; VD1:=
ER1; VD1Q:=ord(DAT1)*AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(DAT2)*
AA(BEG7,0.0)*VD2; VD3:=ER3; VD3Q:=ord(DAT3)*AA(BEG7,0.0)*VD3;
VDT:=MAX(VD1,VD2,VD3); VDQ:=MAX(VD1Q,VD2Q,VD3Q)*12.0; DR1:=NR1;
DR1Q:=ord(RAS10&DAT1&ROT10)*DR1; DR2:=NR2; DR2Q:=ord(RAS10&DAT2&
ROT10)*DR2; DR3:=NR3; DR3Q:=ord(RAS10&DAT3&ROT10)*DR3; DRT:=MAX(
DR1,DR2,DR3); DRQ:=MAX(DR1Q,DR2Q,DR3Q)*12.0; DS1:=0.5*ER1*RED13;
DS1Q:=ord(RAS4&DAT1)*DS1; DS2:=0.5*ER2*RED13; DS2Q:=ord(RAS4&
DAT2)*DS2; DS3:=0.5*ER3*RED13; DS3Q:=ord(RAS4&DAT3)*DS3; DST:=
MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q)*12.0; PRAG:=0.0;
ASY56:=ASY2+ASY3; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY56>=10.0))*
1.0); if min( VEDB,ASY56,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,ASY51,RED13,RED4,ASY3,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0674s836; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0;
SS13:=SS(6.0,BENIFITD)/12.0; RED4:=1.0-(0.0763*a(AGE,61.0,60.0)+
0.0855*a(AGE,62.0,61.0)); RED7:=1.0-(0.0575*a(AGE,61.0,60.0)+
0.0643*a(AGE,62.0,61.0)+0.0725*a(AGE,63.0,62.0)); RED8:=1.0-(
0.0819*a(AGE,64.0,63.0)+0.0928*a(AGE,65.0,64.0)); RAS1:=(ASY1>=
30.0)!(AGE>=65.0)&(ASY1>=10.0)!(AGE>=62.0)&(ASY1>=15.0); RAS4:=(
AGE>=60.0)&(ASY1>=15.0); RAS10:=ASY1>=15.0; ROT7:=(AGE>=40.0)&(
ASY1>=15.0); ROT10:=^QSSDABLE; LNG10:=BIRTHD+62.0; LNG13:=BIRTHD+
60.0; BEG7:=ANYTIME(BIRTHD+60.0,BIRTHD+62.0); BEG8:=ANYTIME(
BIRTHD+60.0,BIRTHD+65.0); BEG14:=MAX(BIRTHD+60.0,QUITD); NR1:=
0.011*FAP1*u(ASY1,30.0)+0.012*FAP1*o(ASY1,30.0); NR1Q:=ord(RAS1)*
NR1; NR2:=17.5*u(ASY1,15.0)+19.0*b(ASY1,15.0,30.0)+20.5*o(ASY1,
30.0); NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,
NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ER1; VD1Q:=ord(ROT7)*
AA(BEG7,0.0)*VD1; VD2:=NRT*(RED7+RED8-1.0); VD2Q:=AA(BEG8,0.0)*
VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q)*12.0; DR1:=NRT;
DR1Q:=ord(RAS10)*DR1; DR2:=400.0; DR2Q:=ord(RAS10&ROT10)*AA(
QUITD,LNG10)*DR2; DRT:=DR1+DR2; DRQ:=(DR1Q+DR2Q)*12.0; DS1:=MAX(
140.0,0.5*NRT); DS1Q:=ord(RAS10)*AA(QUITD,LNG13)*DS1; DS2:=MAX(
90.0,0.5*NRT-0.5*SS13); DS2Q:=ord(RAS10)*AA(BEG14,0.0)*DS2; DST:=
DS1+DS2; DSQ:=(DS1Q+DS2Q)*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG14,BEG8,BEG7,LNG13,LNG10,
RED8,RED7,RED4,SS13,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0675s1106; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1980.0)-
MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=NN(QUITD-MAX(HIRED+1.0,
BIRTHD+25.0,1980.0))*1.0; ASY3:=(QUITD-HIRED)*1.0; FDFAP1:=MIN(
QUITD,1980.0); FAP1:=ord(FDFAP1>HIRED)*AVGMIN(60000.0,WAGE,HIRED,
FDFAP1); SDFAP2:=MAX(HIRED,1980.0); FAP2:=ord(QUITD>SDFAP2)*
AVGMIN(100000.0,WAGE,SDFAP2,QUITD); SS1:=SSBASE(BENIFITD); RED4:=
AR(65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2;
RAS4:=(AGE>=55.0)&(ASY51>=10.0); RAS13:=(AGE>=55.0)&(ASY3>=10.0);
BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=(0.0025*u(FAP1,SS1)+0.015*o(
FAP1,SS1))*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.005*u(FAP2,SS1)+
0.019*o(FAP2,SS1))*ASY2; NR2Q:=ord(RAS1)*NR2; NRT:=NR1+NR2; NRQ:=
NR1Q+NR2Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(
RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY3>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR2Q,NR2,NR1Q,NR1,BEG7,ASY51,RED13,RED4,SS1,FAP2,SDFAP2,
FAP1,FDFAP1,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0676s981; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=250.0)*1.0; FAP1:=SUM(WAGE,HIRED,QUITD); RED4:=1.0-(0.05*
a(AGE,64.0,60.0)+0.1*a(AGE,65.0,64.0)); RED13:=JSRED; RAS1:=(
AGE>=65.0)&(ASY1>=10.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS10:=
ASY1>=10.0; ROT10:=QSSDABLE; BEG7:=MAX(NRD,QUITD); NR1:=FAP1*
0.08*0.03; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q*12.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q*12.0; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=
DR1Q*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,
FAP1,ASY1,CNQ) <0 then negative end;

procedure c0677s773; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,
BIRTHD+22.0))*1.0; PSY7:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FDFAP10:=MIN(QUITD,
BIRTHD+65.0); FAP10:=ord(FDFAP10>HIRED)*WAGE(FDFAP10); SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,
SDMAN7,FDMAN7); RED7:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED;
RAS1:=(AGE>=65.0)!(AGE>=64.0)&(ASY1>=15.0)!(AGE>=60.0)&(ASY1>=
21.0); RAS2:=(AGE>=55.0)&(ASY1>=24.0); RAS4:=(AGE>=55.0)&(ASY1>=
15.0); RAS5:=(AGE>=55.0)&(ASY1>=30.0); RAS6:=(AGE>=55.0)&(ASY1>=
21.0); RAS10:=ASY1>=10.0; RAS13:=ASY1>=20.0; ROT7:=ASY1>=15.0;
BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,0.0);
NR1:=0.01975*FAP1*u(ASY1,20.0)+0.005*FAP1*b(ASY1,21.0,22.0)+
0.02*FAP1*b(ASY1,22.0,25.0); NR1Q:=ord(RAS1)*NR1; NR2:=0.01*FAP1*
b(ASY1,26.0,28.0)+0.005*FAP1*b(ASY1,28.0,31.0)+0.005*FAP1*b(
ASY1,33.0,34.0); NR2Q:=ord(RAS1)*NR2; NRT:=NR1+NR2; NRQ:=NR1Q+
NR2Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=(0.016+0.0005*b(AGE,55.0,59.0)
+0.00125*b(AGE,59.0,60.0)+0.00025*b(AGE,61.0,62.0))*FAP1*u(ASY1,
20.0); ER1Q:=ord(RAS4)*ER1; ER2:=(0.4+0.02*b(AGE,55.0,59.0))*
FAP1; ER2Q:=ord(RAS5)*ER2; ER3:=(0.33+0.01*b(AGE,55.0,59.0)+0.01*
b(ASY1,21.0,23.0))*FAP1; ER3Q:=ord(RAS6)*ER3; ER4:=(0.385+0.01*b(
AGE,55.0,59.0))*FAP1; ER4Q:=ord(RAS2)*ER4; ERT:=MAX(ER1,ER2,ER3,
ER4); ERQ:=MAX(ER1Q,ER2Q,ER3Q,ER4Q); VD1:=(0.01975*FAP1*u(PSY7,
20.0)+0.005*FAP1*b(PSY7,21.0,22.0)+0.02*FAP1*b(PSY7,22.0,25.0))*
ASY1/PSY7; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=(0.01*FAP1*b(PSY7,26.0,
28.0)+0.005*FAP1*b(PSY7,28.0,31.0)+0.005*FAP1*b(PSY7,33.0,34.0))
*ASY1/PSY7; VD2Q:=AA(BEG7,0.0)*VD2; VD3:=(VD1+VD2)*RED7; VD3Q:=
ord(ROT7)*AA(BEG8,0.0)*VD3; VDT:=MAX(VD1+VD2,VD3); VDQ:=MAX(VD1Q+
VD2Q,VD3Q); DR1:=3000.0; DR1Q:=ord(RAS10)*DR1; DR2:=(0.25+0.005*
b(ASY1,10.0,30.0))*FAP10; DR2Q:=ord(RAS10)*DR2; DRT:=MAX(DR1,DR2)
;DRQ:=MAX(DR1,DR2); DS1:=0.5*NRT*RED13; DS1Q:=ord(RAS1)*DS1;
DS2:=ERQ*RED13*0.5; DS2Q:=DS2; DS3:=(0.32+0.01*b(ASY1,20.0,23.0)+
0.02*b(ASY1,23.0,24.0)+0.015*b(ASY1,24.0,25.0))*FAP1*RED13*0.5;
DS3Q:=ord(RAS13)*DS3; DS4:=(0.005*b(ASY1,26.0,27.0)+0.005*b(ASY1,
28.0,30.0))*FAP1*RED13*0.5; DS4Q:=ord(RAS13)*DS4; DST:=MAX(DS1,
DS2,DS3+DS4); DSQ:=MAX(DS1Q,DS2Q,DS3Q+DS4Q); PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,
BEG8,BEG7,RED13,RED7,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP10,FDFAP10,
FAP1,SDFAP1,FDFAP1,PSY7,ASY2,ASY1, CNQ) <0 then negative end;

procedure c0678s549; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*NNMIN(1.0,WRKHRS/52.0); ASY2:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=
MIN(QUITD,BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*MIN(35000.0,WAGE(
FDFAP1)); RED4:=NN(1.0-0.06*o(55.0,AGE)); RED10:=OTHERB; RAS1:=(
AGE>=65.0)!(ASY1>=30.0)!(AGE>=55.0)&(ASY1>=20.0); RAS4:=(AGE>=
50.0)&(ASY1>=25.0); RAS10:=ASY1>=15.0; BEG7:=MAX(NRD,QUITD);
BEG8:=MAX(ERD,QUITD); NR1:=(0.0117*u(FAP1,18000.0)+0.01265*b(
FAP1,18000.0,22000.0)+0.0115*o(FAP1,22000.0))*ASY1; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NR1; VD1Q:=
AA(BEG7,0.0)*VD1; VD2:=ER1; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,
VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NR1-RED10; DR1Q:=ord(RAS10)*DR1;
DRT:=DR1; DRQ:=DR1Q; DS1:=0.45*ERT; DS1Q:=ord(RAS4)*DS1; DS2:=
0.45*NRT; DS2Q:=ord(RAS1)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,
DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG8,BEG7,RED10,RED4,FAP1,FDFAP1,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0679s550; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1980.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*
1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+22.0))*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,1980.0);
SDFAP1:=MAX(HIRED,1975.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(
HIRED,1980.0); FAP2:=ord(FDFAP2>SDFAP2)*SUM(WAGE,SDFAP2,FDFAP2);
FDFAP3:=MIN(QUITD,BIRTHD+65.0); FAP3:=ord(FDFAP3>HIRED)*SUM(WAGE,
HIRED,FDFAP3); RED4:=NN(1.0-0.03*o(55.0,AGE)); RED5:=NN(1.0-0.06*
o(55.0,AGE)); RED7:=AR(65.0-AGE); RED10:=OTHERB; RAS1:=(AGE>=
65.0)!(AGE>=55.0)&(ASY2>=20.0); RAS4:=ASY2>=30.0; RAS5:=(AGE>=
50.0)&(ASY2>=20.0); RAS10:=ASY2>=15.0; RAS13:=(AGE>=65.0)!(ASY2>=
15.0); ROT2:=PARTD<1975.0; ROT7:=ASY2>=20.0; ROT8:=ASY2>=25.0;
BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); BEG9:=ANYTIME(BIRTHD+50.0,BIRTHD+65.0); NR1:=FAP1*ASY1*
0.016+FAP2*0.016; NR1Q:=ord(RAS1&ROT2)*NR1; NR2:=FAP3*0.016;
NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q);
LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
NR2*RED4; ER2Q:=ord(RAS4&ROT2)*ER2; ER3:=NR1*RED5; ER3Q:=ord(
RAS5)*ER3; ER4:=NR2*RED5; ER4Q:=ord(RAS5&ROT2)*ER4; ERT:=MAX(MAX(
ER1,ER2),MAX(ER3,ER4)); ERQ:=MAX(MAX(ER1Q,ER2Q),MAX(ER3Q,ER4Q));
VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR2*RED7; VD2Q:=ord(ROT7)*
AA(BEG8,0.0)*VD2; VD3:=NR2*RED7; VD3Q:=ord(ROT8)*AA(BEG9,0.0)*
VD3; VD4:=NR2; VD4Q:=ord(ROT2)*AA(BEG7,0.0)*VD4; VDT:=MAX(VD1,
VD2,VD3,VD4); VDQ:=MAX(VD1Q,VD2Q,VD3Q,VD4Q); DR1:=NR1-RED10;
DR1Q:=ord(RAS10)*DR1; DR2:=NR2-RED10; DR2Q:=ord(RAS10&ROT2)*DR2;
DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.45*NR1; DS1Q:=ord(
RAS13)*DS1; DS2:=0.45*NR2; DS2Q:=ord(RAS13)*DS2; DST:=MAX(DS1,
DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY3>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,
VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG9,BEG8,BEG7,RED10,RED7,
RED5,RED4,FAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,
ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0680s1101; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-(HIRED+1.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/1000.0); FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SS1:=SS(1.0,BENIFITD);
RED4:=NN(1.0-0.02*o(65.0,AGE)); RED5:=NN(1.0-0.02*o(60.0,AGE));
RED7:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0));
RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=60.0)&(ASY1>=30.0); RAS4:=(
AGE>=55.0)&(ASY1>=15.0); RAS5:=(AGE>=55.0)&(ASY1>=30.0); ROT10:=
QCODABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(ERD,
QUITD); BEG11:=MAX(NRD,QUITD); NR1:=0.015*FAP1*u(ASY1,30.0)+
0.0125*FAP1*o(ASY1,30.0)-0.025*SS1*u(ASY1,40.0); NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED5; ER2Q:=ord(RAS5)*ER2; ERT:=
MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=NRT*RED7; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ERT; DR1Q:=ord(ROT10)*AA(
BEG10,0.0)*DR1; DR2:=NRT; DR2Q:=ord(ROT10)*AA(BEG11,0.0)*DR2;
DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG10,BEG7,
RED13,RED7,RED5,RED4,SS1,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0681s36; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/250.0); ASY2:=(QUITD-HIRED)*
ord(WRKHRS>=870.0)*1.0; RED4:=NN(1.0-0.072*o(65.0,AGE)); RED10:=
OTHERB; RAS1:=(AGE>=65.0)&(ASY1>=10.0); RAS2:=AGE>=65.0; RAS4:=(
AGE>=60.0)&(ASY1>=10.0)!(AGE+ASY1>=80.0)&(AGE>=55.0)&(ASY1>=
10.0); RAS10:=ASY1>=10.0; RAS13:=(AGE>=60.0)&(ASY1>=10.0)!(AGE+
ASY1>=80.0)&(AGE>=55.0)&(ASY1>=10.0); RAS14:=AGE>=65.0; BEG7:=
MAX(ERD,QUITD); NR1:=12.0*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=100.0;
NR2Q:=ord(RAS2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0;
LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=NR1-RED10; DR1Q:=ord(RAS10)*DR1; DRT:=DR1;
DRQ:=DR1Q*12.0; DS1:=0.45*ER1; DS1Q:=ord(RAS13)*DS1; DS2:=45.0;
DS2Q:=ord(RAS14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*
12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,
NR2,NR1Q,NR1,BEG7,RED10,RED4,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0682s37; begin CNQ:=0.0; ASY1:=(MIN(QUITD,MAX(BIRTHD+
65.0,HIRED+10.0))-HIRED)*NNMIN(1.0,WRKHRS/1500.0); ASY2:=(QUITD-
HIRED)*ord(WRKHRS>=870.0)*1.0; SS10:=SS(5.0,BENIFITD)/12.0;
RED4:=1.0-(0.0576*a(AGE,60.0,55.0)+0.0667*a(AGE,62.0,60.0));
RED7:=NN(1.0-0.0007*o(65.0,AGE)); RED10:=OTHERB; RAS1:=(AGE>=
65.0)!(AGE>=62.0)&(ASY1>=10.0); RAS2:=(AGE>=62.0)&(ASY1>=15.0);
RAS3:=ASY1>=30.0; RAS4:=(AGE>=60.0)&(ASY1>=10.0)!(AGE+ASY1>=85.0)
&(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; RAS11:=ASY1>=30.0;
ROT10:=^QSSDABLE; LNG2:=BIRTHD+65.0; BGN3:=MAX(BIRTHD+65.0,QUITD)
;LNG4:=BIRTHD+62.0; BGN5:=MAX(BIRTHD+62.0,QUITD); LNG10:=BIRTHD+
65.0; BEG7:=MAX(ERD,QUITD); BEG11:=MAX(BIRTHD+62.0,QUITD); NR1:=
14.95*u(ASY1,24.0)+16.2*b(ASY1,24.0,29.0)+17.7*o(ASY1,29.0);
NR1Q:=ord(RAS1)*NR1; NR2:=NR1*2.0; NR2Q:=ord(RAS2)*AA(QUITD,LNG2)
*NR2; NR3:=NR1; NR3Q:=ord(RAS2)*AA(BGN3,0.0)*NR3; NR4:=915.0;
NR4Q:=ord(RAS3)*AA(QUITD,LNG4)*NR4; NR5:=NR1; NR5Q:=ord(RAS3)*AA(
BGN5,0.0)*NR5; NRT:=MAX(NR1,NR2+NR3,NR4+NR5); NRQ:=MAX(NR1Q,NR2Q+
NR3Q,NR4Q+NR5Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=NRT*RED7;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=12.0*u(
ASY1,25.0); DR1Q:=ord(RAS10&ROT10)*AA(QUITD,LNG10)*DR1; DR2:=NR1-
RED10; DR2Q:=ord(RAS10)*DR2; DR3:=NN(NR4-SS10); DR3Q:=ord(RAS11)*
AA(QUITD,LNG4)*DR3; DR4:=DR2; DR4Q:=ord(RAS11)*AA(BEG11,0.0)*DR4;
DRT:=MAX(DR1+DR2,DR3+DR4); DRQ:=MAX(DR1Q+DR2Q,DR3Q+DR4Q)*12.0;
DS1:=0.57*ERT; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG11,BEG7,
LNG10,BGN5,LNG4,BGN3,LNG2,RED10,RED7,RED4,SS10,ASY2,ASY1,CNQ) <0
then negative end;

procedure c0683s786; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1)/12.0;
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.05; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); RED10:=NN(1.0-0.03*o(60.0,AGE)); RED11:=
NN(1.0-0.03*o(30.0,ASY1)); RED13:=JSRED; RAS1:=(ASY1>=30.0)!(
AGE>=60.0)&(ASY1>=10.0); RAS2:=(AGE>=60.0)!(ASY1>=30.0); RAS10:=
ASY1>=10.0; ROT2:=PARTD<1965.75; ROT7:=^QWDMAN; BEG7:=MAX(BIRTHD+
60.0,QUITD); NR1:=0.020125*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=
6.0*u(ASY1,25.0)*1.15; NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=MAX(NR1,
NR2); NR3Q:=ord(RAS2&ROT2)*NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(
NR1Q,NR2Q,NR3Q)*12.0; LRQ:=NRQ; MRAGE:=70.0; ERQ:=0.0; VD1:=NRT;
VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
MAX(NR1,ord(ROT2)*NR2,ord(ROT2)*NR3)*RED10; DR1Q:=ord(RAS10)*DR1;
DR2:=MAX(NR1,ord(ROT2)*NR2,ord(ROT2)*NR3)*RED11; DR2Q:=ord(RAS10)
*DR2; DR3:=MAX(NR1,ord(ROT2)*NR2,ord(ROT2)*NR3)*0.75; DR3Q:=ord(
RAS10)*DR3; DRT:=MAX(DR1,DR2,DR3); DRQ:=MAX(DR1Q,DR2Q,DR3Q)*12.0;
DS1:=0.5*NR1*RED13; DS1Q:=ord(RAS1)*DS1; DS2:=0.5*NR2*RED13;
DS2Q:=ord(RAS1&ROT2)*DS2; DS3:=0.5*NR3*RED13; DS3Q:=ord(RAS2&
ROT2)*DS3; DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q)*12.0;
PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,
NR2,NR1Q,NR1,BEG7,RED13,RED11,RED10,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0684s1010; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-(HIRED+1.0))*ord(WRKHRS>=720.0)*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+70.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVGMIN(2083.0,WAGE,SDFAP1,FDFAP1)/12.0; SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=0.05; MAN7:=SUMI(PCMAN7,3.0,1250.0,
SDMAN7,FDMAN7); RED4:=1.0-(0.0453*a(AGE,60.0,55.0)+0.0667*a(AGE,
62.0,60.0)); RED5:=1.0-(0.0435*a(AGE,51.0,50.0)+0.0472*a(AGE,
52.0,51.0)+0.0509*a(AGE,53.0,52.0)); RED6:=1.0-(0.0553*a(AGE,
54.0,53.0)+0.0602*a(AGE,55.0,54.0)); RAS1:=(AGE>=62.0)&(ASY1>=
10.0)!(AGE>=55.0)&(ASY1>=30.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0);
RAS5:=ASY1>=30.0; RAS10:=ASY1>=10.0; RAS13:=ASY1>=1.0; LNG13:=
1.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.02*FAP1*ASY1;
NR1Q:=ord(RAS1)*NR1; NR2:=10.83*ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=
MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*(RED5+RED6-1.0);
ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q)*12.0;
VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=
18000.0; DS1Q:=ord(RAS13)*AA(QUITD,LNG13+QUITD)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG7,LNG13,RED6,RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,
SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0685s800; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0,1974.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,1974.0))*NNMIN(1.0,WRKHRS/12.0); ASY3:=NN(
MIN(QUITD,BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); FDFAP1:=
MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,1974.0); FAP1:=ord(
FDFAP1>SDFAP1)*SUM(WAGE,SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+
65.0); SDFAP2:=MAX(HIRED,FDFAP2-5.0); FAP2:=ord(FDFAP2>SDFAP2)*
AVG(WAGE,SDFAP2,FDFAP2); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); SS1:=SSBASE(
BENIFITD); SS2:=SS(1.0,BENIFITD); RED4:=NN(1.0-(0.0002*o(50.0,
AGE)+0.0005*a(AGE,62.0,50.0))); RED7:=AR(65.0-AGE); RED13:=JSRED;
RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY3>=10.0); RAS2:=(AGE>=55.0)&(
ASY3>=30.0); RAS4:=(ASY3>=25.0)!(AGE>=55.0)&(ASY3>=10.0); RAS10:=
ASY3>=10.0; ROT7:=^QWDMAN; ROT10:=QSSDABLE; LNG2:=BIRTHD+SSAGE(
2.0); BGN3:=BIRTHD+SSAGE(2.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+
65.0); ANMAN7:=ANNPAY(MAN7,BENIFITD); NR1:=198.0*ASY1+0.5*ANMAN7;
NR1Q:=ord(RAS1)*NR1; NR2:=MAX(198.0*ASY2,0.013*u(FAP1,SS1-1800.0)
+0.02*o(FAP1,SS1-1800.0)+0.5*ANMAN7); NR2Q:=ord(RAS1)*NR2; NR3:=
NN(0.015*FAP2*u(ASY3,33.33)+0.0075*FAP2*o(ASY3,33.33)-0.5*SS2);
NR3Q:=ord(RAS1)*NR3; NR4:=6540.0+120.0*b(AGE,55.0,61.0)+264.0*o(
ASY3,30.0)+0.5*ANMAN7*RED4; NR4Q:=ord(RAS2)*AA(QUITD,LNG2)*NR4;
NR5:=198.0*ASY3+0.5*ANMAN7*RED4; NR5Q:=ord(RAS2)*AA(BGN3,0.0)*
NR5; NRT:=MAX(NR1+NR2,NR3,NR4+NR5); NRQ:=MAX(NR1Q+NR2Q,NR3Q,NR4Q+
NR5Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=(NR1+NR2)*RED4; ER1Q:=ord(
RAS4)*ER1; ER2:=NR3*RED4; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2);
ERQ:=MAX(ER1Q,ER2Q); VD1:=MAX(NR1+NR2,NR3)*RED7; VD1Q:=ord(ROT7)*
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=MAX(NR1+NR2,NR3);
DR1Q:=ord(RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*
0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY3>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,
ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,
NR2,NR1Q,NR1,ANMAN7,BEG7,BGN3,LNG2,RED13,RED7,RED4,SS2,SS1,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY3,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0686s1084; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.05; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); RED7:=AR(55.0-AGE); RED10:=OTHERB;
RED13:=JSRED; RAS1:=(ASY1>=25.0)!(AGE>=55.0)&(ASY1>=10.0);
RAS11:=ASY1>=10.0; ROT10:=QJRDABLE; BEG7:=ANYTIME(0.0,BIRTHD+
55.0); NR1:=0.02*FAP1*u(ASY1,33.0)+0.01*FAP1*o(ASY1,33.0); NR1Q:=
ord(RAS1)*NR1; NR2:=0.75*FAP1; NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,
NR2); NRQ:=MIN(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ERQ:=0.0; VD1:=
NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT-
RED10; DR1Q:=ord(RAS11)*DR1; DR2:=MAX(0.5*FAP1-RED10,DR1); DR2Q:=
ord(ROT10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.5*
NRT*RED13; DS1Q:=ord(RAS1)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,
DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED10,RED7,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0687s1086; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FAP1:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.08;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RAS1:=(ASY1>=20.0)!(
AGE>=55.0)&(ASY1>=10.0); RAS11:=ASY1>=10.0; RAS12:=ASY1>=15.0;
RAS13:=ASY1>=20.0; ROT10:=QJRDABLE; ROT11:=^QJRDABLE; ROT13:=
^QJRDEATH; ROT14:=QJRDEATH; BEG7:=MAX(BIRTHD+55.0,QUITD); NR1:=
0.025*FAP1*u(ASY1,30.0); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=
NR1Q; LRQ:=NRQ; MRAGE:=999.0; ERQ:=0.0; VD1:=NR1; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(ROT10)*DR1;
DR2:=0.125*FAP1; DR2Q:=ord(ROT11)*DR2; DR3:=0.25*FAP1; DR3Q:=ord(
RAS11&ROT11)*DR3; DR4:=0.4*FAP1; DR4Q:=ord(RAS12&ROT11)*DR4;
DR5:=0.5*FAP1; DR5Q:=ord(RAS13&ROT11)*DR5; DRT:=MAX(DR1,DR2,DR3,
DR4,DR5); DRQ:=MAX(DR1Q,DR2Q,DR3Q,DR4Q,DR5Q); DS1:=0.25*FAP1+
0.0125*FAP1*b(ASY1,20.0,30.0); DS1Q:=ord(ROT13)*DS1; DS2:=0.5*
FAP1+0.025*FAP1*b(ASY1,20.0,30.0); DS2Q:=ord(RAS11&ROT14)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.95*AWAGEG; VEDB:=
VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR5Q,DR5,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP1,ASY1,CNQ) <0 then negative end;

procedure c0688s944; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
PSY10:=BIRTHD+55.0-HIRED; FAP1:=WAGE(QUITD); SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,
FDMAN7); SS10:=SS(5.0,BENIFITD); RED10:=OTHERB; RAS1:=(AGE>=55.0)
&(ASY1>=20.0); ROT13:=QJRDEATH; BEG7:=MAX(BIRTHD+55.0,QUITD);
NR1:=0.025*FAP1*u(ASY1,20.0)+0.02*FAP1*b(ASY1,20.0,32.0); NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ERQ:=
0.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=
NN(NRT-SS10-RED10); DR1Q:=DR1; DR2:=NN(0.025*FAP1*u(PSY10,20.0)+
0.02*FAP1*b(PSY10,20.0,32.0)-SS10-RED10); DR2Q:=DR2; DRT:=MAX(
DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.6*NRT; DS1Q:=DS1; DS2:=(
0.025*FAP1*u(PSY10,20.0)+0.02*FAP1*b(PSY10,20.0,32.0))*0.6;
DS2Q:=ord(ROT13)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q);
PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=20.0)*1.0); if min( VEDB,PRAG,
DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED10,SS10,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP1,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0689s856; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/52.0); PSY10:=BIRTHD+60.0-HIRED; FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,97.0,0.0,SDMAN7,FDMAN7);
RED4:=NN(1.0-0.03*o(55.0,AGE)); RAS1:=(AGE>=60.0)!(AGE>=55.0)&(
ASY1>=25.0); RAS4:=ASY1>=25.0; RAS10:=ASY1>=10.0; ROT7:=ASY1>=
25.0; ROT10:=QJRDABLE; BEG7:=MAX(BIRTHD+60.0,QUITD); BEG8:=MAX(
ERD,QUITD); NR1:=ASY1/60.0*FAP1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=71.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=
ERT; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q); DR1:=0.015*FAP1*ASY1; DR1Q:=ord(RAS10)*DR1; DR2:=
MIN(0.9*PSY10/60.0*FAP1,0.4*FAP1); DR2Q:=ord(RAS10)*DR2; DR3:=
0.667*FAP1; DR3Q:=ord(ROT10)*DR3; DRT:=MAX(DR1,DR2,DR3); DRQ:=
MAX(DR1Q,DR2Q,DR3Q); PRAG:=0.6*ACPIG; VEDB:=VOPT(ord((QUITAGE>=
60.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DRQ,DRT,DR3Q,DR3,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,RED4,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP1,FDFAP1,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0690s1002; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/52.0); PSY10:=BIRTHD+60.0-HIRED; FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,97.0,0.0,SDMAN7,FDMAN7);
RED4:=NN(1.0-0.03*o(55.0,AGE)); RAS1:=(AGE>=60.0)!(AGE>=55.0)&(
ASY1>=25.0); RAS4:=ASY1>=25.0; RAS10:=ASY1>=10.0; ROT7:=ASY1>=
25.0; ROT10:=QJRDABLE; BEG7:=MAX(BIRTHD+60.0,QUITD); BEG8:=MAX(
ERD,QUITD); NR1:=ASY1/60.0*FAP1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=71.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=
ERT; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q); DR1:=MAX(0.015*FAP1*ASY1,0.4*FAP1); DR1Q:=ord(
RAS10)*DR1; DR2:=0.9*PSY10/60.0*FAP1; DR2Q:=ord(RAS10)*DR2; DR3:=
0.667*FAP1; DR3Q:=ord(ROT10)*DR3; DRT:=MAX(DR3,MIN(DR1,DR2));
DRQ:=MAX(DR3Q,MIN(DR1Q,DR2Q)); PRAG:=0.6*ACPIG; VEDB:=VOPT(ord((
QUITAGE>=60.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DRQ,DRT,
DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,RED4,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP1,FDFAP1,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0691s1003; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/52.0); PSY10:=BIRTHD+60.0-HIRED; FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,97.0,0.0,SDMAN7,FDMAN7);
RED4:=NN(1.0-0.03*o(55.0,AGE)); RAS1:=(AGE>=60.0)!(AGE>=55.0)&(
ASY1>=25.0); RAS4:=ASY1>=25.0; RAS10:=ASY1>=10.0; ROT7:=ASY1>=
25.0; ROT10:=QJRDABLE; BEG7:=MAX(BIRTHD+60.0,QUITD); BEG8:=MAX(
ERD,QUITD); NR1:=ASY1/60.0*FAP1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=71.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=
ERT; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q); DR1:=0.015*FAP1*ASY1; DR1Q:=ord(RAS10)*DR1; DR2:=
MIN(0.9*PSY10/60.0*FAP1,0.4*FAP1); DR2Q:=ord(RAS10)*DR2; DR3:=
0.667*FAP1; DR3Q:=ord(ROT10)*DR3; DRT:=MAX(DR1,DR2,DR3); DRQ:=
MAX(DR1Q,DR2Q,DR3Q); PRAG:=0.6*ACPIG; VEDB:=VOPT(ord((QUITAGE>=
60.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DRQ,DRT,DR3Q,DR3,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,RED4,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP1,FDFAP1,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0692s1127; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
PSY10:=BIRTHD+65.0-HIRED; PSY11:=MIN(30.0,BIRTHD+65.0-HIRED);
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-4.0),FDFAP1);
FAP13:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.06;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.03*a(AGE,
53.0,50.0)+0.04*a(AGE,56.0,53.0)+0.05*a(AGE,58.0,56.0)); RED5:=
1.0-(0.06*a(AGE,60.0,58.0)+0.03*a(AGE,65.0,60.0)); RED7:=AR(NRD-
BENIFITD); RED13:=JSRED; RAS1:=(ASY1>=30.0)!(AGE>=65.0)&(ASY1>=
5.0); RAS4:=(AGE>=50.0)&(ASY1>=20.0)!(AGE>=60.0)&(ASY1>=5.0);
RAS10:=ASY1>=5.0; RAS13:=(AGE>=55.0)!(ASY1>=30.0)!(AGE>=50.0)&(
ASY1>=20.0); RAS14:=ASY1>=1.0; LNG13:=1.0; BEG7:=MAX(ERD,QUITD);
BEG8:=MAX(NRD,QUITD); NR1:=0.0157*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*(RED4+RED5-
1.0); ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NR1*RED7;
VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR1; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=0.015*FAP1*PSY10; DR1Q:=
ord(RAS10)*DR1; DR2:=0.015*FAP1*PSY11; DR2Q:=ord(RAS10)*DR2;
DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=ERT*RED13; DS1Q:=
ord(RAS13)*DS1; DS2:=MIN(FAP13,20000.0); DS2Q:=ord(RAS14)*AA(
QUITD,LNG13+QUITD)*DS2; DS3:=NRT*RED13; DS3Q:=ord(RAS4)*DS3;
DST:=MAX(DS1+DS2,DS2+DS3); DSQ:=MAX(DS1Q+DS2Q,DS2Q+DS3Q); PRAG:=
0.0; VEDB:=VOPT(ord(ASY1>=5.0)*1.0); if min( VEDB,PRAG,DSQ,DST,
DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,
BEG8,BEG7,LNG13,RED13,RED7,RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP13,FAP1,FDFAP1,PSY11,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0693s970; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*MIN(2.0,
NN(WRKHRS/400.0)); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=66.0/
WAGE(SURVEYD); MAN7:=SUMI(PCMAN7,2.0,0.0,SDMAN7,FDMAN7); RED4:=
1.0-(0.03*a(AGE,56.0,55.0)+0.035*a(AGE,57.0,56.0)+0.04*a(AGE,
58.0,57.0)); RED5:=1.0-(0.045*a(AGE,59.0,58.0)+0.05*a(AGE,60.0,
59.0)+0.055*a(AGE,62.0,60.0)); RED6:=1.0-(0.06*a(AGE,63.0,62.0)+
0.065*a(AGE,64.0,63.0)+0.075*a(AGE,65.0,64.0)); RED13:=JSRED;
RAS1:=(AGE>=65.0)&(ASY1>=20.0); RAS4:=(AGE>=55.0)&(ASY1>=20.0)!(
AGE>=62.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; RAS13:=ASY1>=20.0;
ROT2:=BIRTHD<=1924.583; BEG7:=MAX(ERD,QUITD); NR1:=3.12*u(ASY1,
10.0)+4.16*b(ASY1,10.0,20.0)+2.64*o(ASY1,20.0); NR1Q:=ord(RAS1)*
NR1; NR2:=NR1*1.4; NR2Q:=ord(RAS1&ROT2)*NR2; NRT:=MAX(NR1,NR2);
NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*(RED4+
RED5+RED6-2.0); ER1Q:=ord(RAS4)*ER1; ER2:=NR2*(RED4+RED5+RED6-
2.0); ER2Q:=ord(RAS4&ROT2)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q)*12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=
ord(ROT2)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,
VD2Q)*12.0; DR1:=NR1; DR1Q:=ord(RAS10)*DR1; DR2:=NR2; DR2Q:=ord(
RAS10&ROT2)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DS2:=100.0; DS2Q:=ord(
RAS13)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)*12.0; PRAG:=
0.0; VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,
NR1Q,NR1,BEG7,RED13,RED6,RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,
ASY1,CNQ) <0 then negative end;

procedure c0694s879; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; PSY10:=BIRTHD+60.0-HIRED; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=0.07; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7);
RED13:=JSRED; RAS1:=(ASY1>=20.0)!(AGE>=60.0)&(ASY1>=10.0); RAS2:=
(ASY1>=30.0)!(AGE>=65.0)&(ASY1>=20.0)!(AGE>=55.0)&(ASY1>=25.0);
RAS10:=ASY1>=5.0; RAS13:=ASY1>=10.0; BEG7:=MAX(BIRTHD+60.0,QUITD)
;NR1:=0.02*FAP1*ASY1+300.0; NR1Q:=ord(RAS1)*NR1; NR2:=0.025*FAP1*
ASY1+300.0; NR2Q:=ord(RAS2)*NR2; NRT:=MIN(FAP1,MAX(NR1,NR2));
NRQ:=MIN(FAP1,MAX(NR1Q,NR2Q)); LRQ:=NRQ; MRAGE:=70.0; ERQ:=0.0;
VD1:=MIN(NR1,FAP1); VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=0.025*FAP1*ASY1+300.0; DR1Q:=ord(RAS10)*DR1; DR2:=MIN(0.5*
FAP1,0.75*(0.02*FAP1*PSY10+300.0)); DR2Q:=ord(RAS10)*DR2; DRT:=
MIN(FAP1,MAX(DR1,DR2)); DRQ:=MIN(FAP1,MAX(DR1Q,DR2Q)); DS1:=NR1*
RED13; DS1Q:=ord(RAS13)*DS1; DS2:=NR2*RED13; DS2Q:=ord(RAS2)*DS2;
DS3:=3600.0; DS3Q:=ord(RAS13)*DS3; DST:=MAX(DS1,DS2,DS3); DSQ:=
MAX(DS1Q,DS2Q,DS3Q); PRAG:=MIN(0.95*ACPIG,0.03); VEDB:=VOPT(ord(
ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,
LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP1,SDFAP1,FDFAP1,PSY10,ASY1,CNQ) <0 then negative end;

procedure c0695s484; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*MIN(2.0,
NN(WRKHRS/600.0)); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); FAP13:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
RED4:=NN(1.0-0.05*o(62.0,AGE)); RED13:=JSRED; RAS1:=(ASY1>=30.0)!
(AGE>=62.0)&(ASY1>=10.0); RAS4:=ASY1>=10.0; RAS11:=ASY1>=10.0;
RAS12:=ASY1>=5.0; ROT10:=QJRDABLE; ROT11:=(PARTD<1980.0)&(
1980.0<=QUITD); ROT13:=QJRDEATH; ROT14:=^QJRDEATH; BEG7:=ANYTIME(
0.0,0.0); BEG14:=ANYTIME(0.0,0.0); NR1:=0.015*FAP1*ASY1; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=
NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=MAX(NRT,0.42*
FAP1); DR1Q:=ord(ROT10)*DR1; DR2:=MAX(ERT,0.25*FAP1); DR2Q:=ord(
RAS11)*DR2; DR3:=MAX(ERT,0.25*FAP1); DR3Q:=ord(RAS12&ROT11)*DR3;
DRT:=MAX(DR1,DR2,DR3); DRQ:=MAX(DR1Q,DR2Q,DR3Q); DS1:=ER1*RED13;
DS1Q:=ord(RAS11&ROT14)*AA(BEG14,0.0)*DS1; DS2:=0.5*FAP13; DS2Q:=
ord(ROT13)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=
MIN(0.95*ACPIG,0.03); VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min(
VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,BEG14,BEG7,RED13,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP13,
FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0696s1007; begin CNQ:=0.0; ASY1:=MIN(45.0,QUITD-HIRED)
*1.0; PSY10:=MIN(37.0,BIRTHD+60.0-HIRED); FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=0.085; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7);
RED4:=1.0-(0.05*a(AGE,60.0,58.0)+0.03*a(AGE,65.0,60.0)); RED5:=
NN(1.0-0.05*o(30.0,ASY1)); RAS1:=(ASY1>=30.0)!(AGE>=65.0)&(ASY1>=
5.0); RAS4:=(AGE>=60.0)&(ASY1>=5.0)!(AGE>=55.0)&(ASY1>=25.0);
RAS10:=ASY1>=5.0; RAS13:=ASY1>=10.0; RAS14:=ASY1>=1.0; BEG13:=
MAX(BIRTHD+50.0,QUITD); BEG14:=MAX(BIRTHD+62.0,QUITD); NR1:=MAX(
0.02*FAP1*ASY1,86.0*ASY1); NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=
NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=NR1*RED5; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(
ER1Q,ER2Q); VD1:=ERT; VD1Q:=VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=0.02*
FAP1*PSY10; DR1Q:=ord(RAS10)*DR1; DR2:=0.3*FAP1; DR2Q:=ord(RAS10)
*AA(BEG14,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=
MAX(1272.0,0.25*FAP1); DS1Q:=ord(RAS13)*AA(BEG13,0.0)*DS1; DS2:=
MAX(1152.0,0.25*FAP1); DS2Q:=ord(RAS14)*AA(BEG13,0.0)*DS2; DST:=
MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=ord(ACPIG>=0.03)*MIN(
0.95*ACPIG,0.03); VEDB:=VOPT(ord(ASY1>=5.0)*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG14,BEG13,RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,
PSY10,ASY1,CNQ) <0 then negative end;

procedure c0697s1005; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
PSY10:=MIN(20.0,BIRTHD+60.0-HIRED); FDFAP1:=QUITD; FAP1:=AVG(
WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); FAP13:=WAGE(QUITD); SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=0.03; MAN7:=SUMI(PCMAN7,8.0,0.0,
SDMAN7,FDMAN7); RAS1:=(AGE>=62.0)&(ASY1>=10.0)!(AGE>=70.0)&(
ASY1>=5.0); RAS2:=(AGE>=62.0)&(ASY1>=25.0); RAS10:=ASY1>=10.0;
RAS13:=ASY1>=1.0; ROT7:=ASY1>=25.0; ROT10:=QJRDABLE; ROT13:=
QJRDEATH; ROT14:=^QJRDEATH; LNG13:=1.0; BEG7:=MAX(BIRTHD+62.0,
QUITD); NR1:=0.0167*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.02*
FAP1*u(ASY1,30.0)+0.015*FAP1*o(ASY1,30.0); NR2Q:=ord(RAS2)*NR2;
NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0;
ERQ:=0.0; VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR2; VD2Q:=ord(
ROT7)*AA(BEG7,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q);
DR1:=MAX(NR1,0.0167*FAP1*PSY10); DR1Q:=ord(RAS10)*DR1; DR2:=DR1;
DR2Q:=ord(ROT10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q);
DS1:=0.5*FAP13; DS1Q:=ord(ROT13)*DS1; DS2:=0.0833*FAP13*u(ASY1,
36.0); DS2Q:=ord(RAS13&ROT14)*AA(QUITD,LNG13+QUITD)*DS2; DST:=
MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((
ASY1>=10.0)!(QUITAGE>=70.0)&(ASY1>=5.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD2Q,VD2,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,
LNG13,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP13,FAP1,FDFAP1,PSY10,ASY1,
CNQ) <0 then negative end;

procedure c0698s1022; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.04; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.04*a(AGE,60.0,55.0)+0.05*a(
AGE,65.0,60.0)); RED5:=1.0-(0.04*a(ASY1,25.0,20.0)+0.05*a(ASY1,
30.0,25.0)); RAS1:=(ASY1>=30.0)!(AGE>=65.0)&(ASY1>=4.0); RAS4:=(
AGE>=55.0)&(ASY1>=5.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
NR1:=0.016*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
NR1*RED5; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q); VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=5.0))*1.0); if
min( VEDB,PRAG,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0699s1023; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.04; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.04*a(AGE,60.0,55.0)+0.05*a(
AGE,65.0,60.0)); RED5:=1.0-(0.04*a(ASY1,25.0,20.0)+0.05*a(ASY1,
30.0,25.0)); RAS1:=(ASY1>=30.0)!(AGE>=65.0)&(ASY1>=4.0); RAS4:=(
AGE>=55.0)&(ASY1>=5.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
NR1:=0.016*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
NR1*RED5; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,
ER2Q); VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=5.0))*1.0); if
min( VEDB,PRAG,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0701s298; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0,1973.0)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+70.0)-MAX(
HIRED,1973.0))*1.0; FAP1:=AVG(WAGE,HIRED,QUITD); SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,
FDMAN7); SS1:=SSBASE(BENIFITD); RED4:=NN(1.0-0.03*o(65.0,AGE));
RED13:=JSRED; RAS1:=AGE>=65.0; ASY51:=ASY1+ASY2; RAS2:=(AGE>=
65.0)&(ASY51>=10.0); RAS4:=(AGE>=55.0)&(ASY51>=10.0); RAS5:=AGE>=
60.0; RAS13:=(AGE>=65.0)!(ASY51>=25.0)!(AGE>=55.0)&(ASY51>=10.0);
RAS14:=AGE>=60.0; ROT2:=PARTD<1979.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=(0.0075*u(FAP1,SS1)+0.015*o(FAP1,SS1))*ASY1;
NR1Q:=ord(RAS1&ROT2)*NR1; NR2:=(0.01*u(FAP1,SS1)+0.0175*o(FAP1,
SS1))*ASY2; NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=NR1; NR3Q:=ord(RAS2)*
NR3; NR4:=NR2; NR4Q:=ord(RAS2)*NR4; NRT:=MAX(NR1+NR2,NR3+NR4);
NRQ:=MAX(NR1Q+NR2Q,NR3Q+NR4Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NRT*RED4; ER2Q:=ord(RAS5&ROT2)*
ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=ER1; VD1Q:=AA(
BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS13)*DS1; DS2:=0.5*ERT*RED13; DS2Q:=ord(RAS14&ROT2)*
DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,BEG7,ASY51,RED13,RED4,SS1,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP1,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0702s472; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*MIN(2.0,NN(WRKHRS/1500.0)); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=146.0/WAGE(SURVEYD); MAN7:=SUMI(PCMAN7,2.0,0.0,
SDMAN7,FDMAN7); RED4:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=
65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=(AGE>=45.0)&(ASY1>=
10.0); RAS13:=(ASY1>=20.0)!(AGE>=40.0)&(ASY1>=10.0); LNG10:=
BIRTHD+65.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG11:=MAX(
BIRTHD+65.0,QUITD); NR1:=11.0*u(ASY1,10.0)+14.0*b(ASY1,10.0,20.0)
;NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=AI(AGE,65.0,
999.0)*NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1;
ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q*12.0; DR1:=200.0; DR1Q:=ord(RAS10)*AA(QUITD,LNG10)
*DR1; DR2:=NR1; DR2Q:=ord(RAS10)*AA(BEG11,0.0)*DR2; DRT:=DR1+DR2;
DRQ:=(DR1Q+DR2Q)*12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*DS1;
DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG11,BEG7,LNG10,RED13,RED4,MAN7,PCMAN7,
FDMAN7,SDMAN7,ASY1,CNQ) <0 then negative end;

procedure c0703s761; begin CNQ:=0.0; ASY1:=(MIN(QUITD,MAX(BIRTHD+
70.0,HIRED+10.0))-HIRED)*1.0; FAP1:=WAGE(QUITD); SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=0.08; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,
FDMAN7); RAS1:=(AGE>=70.0)&(ASY1>=10.0); RAS2:=(AGE>=66.0)&(
ASY1>=18.0)!(AGE>=67.0)&(ASY1>=16.0)!(AGE>=68.0)&(ASY1>=14.0)!(
AGE+ASY1>=81.0)&(AGE>=69.0)&(ASY1>=12.0); RAS3:=(AGE>=60.0)&(
ASY1>=20.0); RAS4:=(AGE>=63.0)&(ASY1>=5.0); RAS10:=ASY1>=2.0;
RAS11:=ASY1>=20.0; ROT7:=PARTD<1974.0; BEG7:=MAX(BIRTHD+65.0,
QUITD); BEG8:=MAX(BIRTHD+63.0,QUITD); NR1:=0.5*FAP1; NR1Q:=ord(
RAS1)*NR1; NR2:=0.65*FAP1; NR2Q:=ord(RAS2)*NR2; NR3:=0.75*FAP1;
NR3Q:=ord(RAS3)*NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,
NR3Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=(0.02+0.0025*b(ASY1,5.0,12.0)
)*u(ASY1,20.0)*FAP1; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q;
VD1:=0.05*FAP1*u(ASY1,8.0); VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1;
VD2:=ERT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q); DR1:=0.65*FAP1; DR1Q:=ord(RAS10)*DR1; DR2:=0.75*FAP1;
DR2Q:=ord(RAS11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q);
DS1:=0.5*ERT; DS1Q:=ord(RAS4)*DS1; DS2:=NR1*0.5; DS2Q:=ord(RAS1)*
DS2; DS3:=NR2*0.5; DS3Q:=ord(RAS2)*DS3; DS4:=NR3*0.5; DS4Q:=ord(
RAS3)*DS4; DST:=MAX(DS1,DS2,DS3,DS4); DSQ:=MAX(DS1Q,DS2Q,DS3Q,
DS4Q); PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=5.0)*1.0); if min( VEDB,
PRAG,DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP1,ASY1,CNQ) <0 then negative end;

procedure c0704s782; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,1969.5)-
HIRED)*NNMIN(1.0,WRKHRS/960.0); ASY2:=NN(MIN(QUITD,1977.5)-MAX(
HIRED,1969.5))*NNMIN(1.0,WRKHRS/960.0); ASY3:=NN(QUITD-MAX(HIRED,
1977.5))*NNMIN(1.0,WRKHRS/960.0); ASY4:=(QUITD-HIRED)*NNMIN(1.0,
WRKHRS/960.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
5.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.06; MAN7:=
SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=AR(NRD-BENIFITD);
RED13:=JSRED; RAS1:=(ASY4>=30.0)!(AGE>=60.0)&(ASY4>=10.0); RAS4:=
ASY4>=25.0; RAS10:=ASY4>=10.0; RAS13:=ASY4>=5.0; RAS14:=ASY4>=
15.0; RAS15:=(ASY4>=20.0)!(AGE>=60.0)&(ASY4>=10.0); DAT2:=(
1983.5<=QUITD)&(QUITD<1984.5); DAT3:=1984.5<=QUITD; ROT7:=ASY4>=
25.0; BEG7:=MAX(BIRTHD+60.0,QUITD); BEG8:=MAX(BIRTHD+55.0,QUITD);
BEG13:=MAX(BIRTHD+62.0,QUITD); BEG14:=MAX(BIRTHD+50.0,QUITD);
NR1:=118.8*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.018*FAP1*ASY2;
NR2Q:=ord(RAS1)*NR2; NR3:=0.0159*FAP1*ASY3; NR3Q:=ord(RAS1)*NR3;
NR4:=MAX(0.015*FAP1*ASY4,1800.0); NR4Q:=ord(RAS1&DAT2)*NR4; NR5:=
MAX(0.0159*FAP1*ASY4,1800.0); NR5Q:=ord(RAS1&DAT3)*NR5; NRT:=MAX(
NR1+NR2+NR3,NR4,NR5); NRQ:=MAX(NR1Q+NR2Q+NR3Q,NR4Q,NR5Q); LRQ:=
NRQ; MRAGE:=72.0; ER1:=(NR1+NR2+NR3)*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=NR4*RED4; ER2Q:=ord(RAS4&DAT2)*ER2; ER3:=NR5*RED4; ER3Q:=
ord(RAS4&DAT3)*ER3; ERT:=MAX(ER1,ER2,ER3); ERQ:=MAX(ER1Q,ER2Q,
ER3Q); VD1:=MAX(ER1,ord(DAT2)*ER2,ord(DAT3)*ER3); VD1Q:=AA(BEG7,
0.0)*VD1; VD2:=MAX(ER1,ord(DAT2)*ER2,ord(DAT3)*ER3); VD2Q:=ord(
ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q);
DS1:=MAX(0.1*FAP1,600.0); DS1Q:=ord(RAS13)*AA(BEG13,0.0)*DS1;
DS2:=DS1; DS2Q:=ord(RAS14)*AA(BEG14,0.0)*DS2; DS3:=DS1; DS3Q:=
ord(RAS15)*AA(BEG13,0.0)*DS3; DS4:=MAX(ER1,ord(DAT2)*ER2,ord(
DAT3)*ER3)*RED13; DS4Q:=ord(RAS10)*DS4; DST:=MAX(DS1,DS2,DS3,DS4)
;DSQ:=MAX(DS1,DS2,DS3,DS4); PRAG:=MIN(0.95*ACPIG,0.03); VEDB:=
VOPT(ord(ASY4>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,
DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG14,BEG13,BEG8,BEG7,RED13,RED4,
MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY4,ASY3,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0705s1043; begin CNQ:=0.0; ASY1:=NNMIN(35.0,MIN(QUITD,
BIRTHD+65.0)-HIRED)*NNMIN(1.0,WRKHRS/294.0); ASY2:=NNMIN(35.0,
MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,97.0,0.0,
SDMAN7,FDMAN7); RED4:=NN(1.0-0.042*o(65.0,AGE)); RED7:=AR(65.0-
AGE); RED13:=JSRED; RED14:=COSTRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=
55.0)&(ASY1>=15.0); RAS5:=(AGE>=60.0)&(ASY1>=15.0); RAS10:=(AGE+
ASY1>=60.0)&(AGE>=40.0); ROT7:=ASY1>=15.0; BGN4:=MAX(BIRTHD+60.0,
QUITD); LNG4:=BIRTHD+65.0; BGN5:=MAX(BIRTHD+65.0,QUITD); BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG8:=MAX(BIRTHD+65.0,QUITD);
NR1:=15.0*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0;
LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS5)*AA(BGN4,
LNG4)*ER1; ER2:=400.0; ER2Q:=ord(RAS5)*AA(BGN4,LNG4)*ER2; ER3:=
NRT; ER3Q:=ord(RAS5)*AA(BGN5,0.0)*ER3; ER4:=NRT*RED4; ER4Q:=ord(
RAS4)*ER4; ERT:=MAX(ER1+ER2+ER3,ER4); ERQ:=MAX(ER1Q+ER2Q+ER3Q,
ER4Q)*12.0; VD1:=NRT*RED7; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1;
VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q)*12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=
DR1Q*12.0; DS1:=ERT*RED13*RED14*0.5; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER4Q,ER4,ER3Q,ER3,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,BGN5,
LNG4,BGN4,RED14,RED13,RED7,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0706s983; begin CNQ:=0.0; ASY1:=MIN(35.0,QUITD-HIRED)*
1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.06; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); RED4:=AR(NRD-BENIFITD); RAS1:=(AGE>=65.0)
&(ASY1>=10.0)!(AGE>=60.0)&(ASY1>=20.0); RAS4:=(AGE>=55.0)&(ASY1>=
10.0); RAS10:=ASY1>=10.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
NR1:=0.018*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DR1:=ERT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; PRAG:=
ord(ACPIG>=0.03)*MIN(0.95*ACPIG,0.03); VEDB:=VOPT(ord(ASY1>=10.0)
*1.0); if min( VEDB,PRAG,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,
ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED4,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0707s960; begin CNQ:=0.0; ASY1:=MIN(35.0,QUITD-HIRED)*
1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1);
SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+62.0)); RED4:=AR(NRD-BENIFITD);
RAS1:=(AGE>=65.0)&(ASY1>=10.0)!(AGE>=55.0)&(ASY1>=35.0); RAS4:=(
AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY1>=10.0; BEG7:=ANYTIME(BIRTHD+
55.0,0.0); NR1:=(0.01625*FAP1-0.0125*SS1)*ASY1; NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=ERT; DR1Q:=ord(RAS10)*
DR1; DRT:=DR1; DRQ:=DR1Q; PRAG:=ord(ACPIG>=0.03)*MIN(0.95*ACPIG,
0.03); VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if min( VEDB,PRAG,DRQ,
DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,BEG7,RED4,SS1,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0708s531; begin CNQ:=0.0; ASY1:=MIN(35.0,QUITD-HIRED)*
1.0; PSY4:=BIRTHD+62.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-5.0),FDFAP1)/12.0; SS1:=SS(2.0,MAX(BENIFITD,BIRTHD+
62.0))/12.0; SS2:=SSBASE(BENIFITD)/12.0; SS4:=SS(2.0,MAX(
BENIFITD,BIRTHD+62.0))/12.0; SS10:=SS(5.0,BENIFITD)/12.0; RED4:=
NN(1.0-0.05*o(62.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=62.0)&(ASY1>=
5.0); RAS4:=(AGE>=55.0)&(ASY1>=20.0); RAS10:=ASY1>=5.0; RAS13:=(
AGE>=50.0)&(ASY1>=20.0)!(AGE>=62.0)&(ASY1>=5.0); ROT7:=ASY1>=
20.0; ROT10:=QSSDABLE; LNG10:=BIRTHD+62.0; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+62.0); BEG8:=MAX(BIRTHD+62.0,QUITD); BEG11:=MAX(
BIRTHD+62.0,QUITD); NR1:=0.0175*FAP1*ASY1-0.5*SS1; NR1Q:=ord(
RAS1)*NR1; NR2:=0.0125*u(FAP1,SS2)*ASY1; NR2Q:=ord(RAS1)*NR2;
NR3:=150.0; NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1,NR2,NR3); NRQ:=MAX(
NR1Q,NR2Q,NR3Q)*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=(0.0175*ASY1*
FAP1-SS4*ASY1/PSY4*0.5)*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=0.0125*u(
FAP1,SS2)*ASY1*ASY1/PSY4*RED4; ER2Q:=ord(RAS4)*ER2; ER3:=150.0*
ASY1/PSY4*RED4; ER3Q:=ord(RAS4)*ER3; ERT:=MAX(ER1,ER2,ER3); ERQ:=
MAX(ER1Q,ER2Q,ER3Q)*12.0; VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*
VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q)*12.0; DR1:=0.5*FAP1-0.5*SS10; DR1Q:=ord(RAS10&
ROT10)*AA(QUITD,LNG10)*DR1; DR2:=(0.0175*FAP1*ASY1-0.5*SS10)*
ASY1/PSY4; DR2Q:=ord(RAS10&ROT10)*AA(QUITD,LNG10)*DR2; DR3:=
0.0125*u(FAP1,SS2)*ASY1*ASY1/PSY4; DR3Q:=ord(RAS10&ROT10)*AA(
QUITD,LNG10)*DR3; DR4:=NRT; DR4Q:=ord(RAS10&ROT10)*AA(BEG11,0.0)*
DR4; DRT:=MAX(DR1,DR2,DR3)+DR4; DRQ:=(MAX(DR1Q,DR2Q,DR3Q)+DR4Q)*
12.0; DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=TAR(0.03,1.0); VEDB:=VOPT(MAX(ord(ASY1>=5.0)*
0.25,ord(ASY1>=10.0)*0.5,ord((ASY1>=15.0)!(QUITAGE>=65.0)&(
ASY1>=5.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,
NR2Q,NR2,NR1Q,NR1,BEG11,BEG8,BEG7,LNG10,RED13,RED4,SS10,SS4,SS2,
SS1,FAP1,FDFAP1,PSY4,ASY1,CNQ) <0 then negative end;

procedure c0709s899; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/12.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
5.0),FDFAP1); FAP13:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=
NN(1.0-0.05*o(62.0,AGE)); RED13:=JSRED; RAS1:=(ASY1>=30.0)!(AGE>=
62.0)&(ASY1>=10.0); RAS2:=(ASY1>=31.0)!(AGE>=63.0)&(ASY1>=10.0);
RAS3:=(ASY1>=32.0)!(AGE>=64.0)&(ASY1>=10.0); RAS4:=(AGE>=65.0)&(
ASY1>=10.0); RAS5:=ASY1>=10.0; RAS11:=ASY1>=5.0; RAS12:=ASY1>=
10.0; ROT10:=QJRDABLE; ROT11:=PARTD<1980.5; ROT13:=QJRDEATH;
BEG7:=ANYTIME(0.0,0.0); NR1:=0.016*FAP1*ASY1; NR1Q:=ord(RAS1)*
NR1; NR2:=0.0163*FAP1*ASY1; NR2Q:=ord(RAS2)*NR2; NR3:=0.0165*
FAP1*ASY1; NR3Q:=ord(RAS3)*NR3; NR4:=0.0168*FAP1*ASY1; NR4Q:=ord(
RAS4)*NR4; NRT:=MAX(NR1,NR2,NR3,NR4); NRQ:=MAX(NR1Q,NR2Q,NR3Q,
NR4Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS5)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q; DR1:=MAX(NR1,0.42*FAP1); DR1Q:=ord(ROT10)*DR1;
DR2:=MAX(ER1,0.25*FAP1); DR2Q:=ord(RAS11&ROT11)*DR2; DR3:=DR2;
DR3Q:=ord(RAS12)*DR3; DRT:=MAX(DR1,DR2,DR3); DRQ:=MAX(DR1Q,DR2Q,
DR3Q); DS1:=0.5*FAP13; DS1Q:=ord(ROT13)*DS1; DS2:=ER1*RED13;
DS2Q:=ord(RAS12)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q);
PRAG:=MIN(0.95*ACPIG,0.03); VEDB:=VOPT(ord(ASY1>=10.0)*1.0); if
min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED4,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP13,FAP1,FDFAP1,ASY1,CNQ) <0 then
negative end;

procedure c0710s900; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/12.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-
5.0),FDFAP1); FAP13:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7); RED4:=
NN(1.0-0.05*o(62.0,AGE)); RED13:=JSRED; RAS1:=(ASY1>=30.0)!(AGE>=
62.0)&(ASY1>=30.0); RAS4:=ASY1>=10.0; RAS11:=ASY1>=5.0; RAS12:=
ASY1>=10.0; ROT10:=QJRDABLE; ROT11:=PARTD<1980.5; ROT13:=
QJRDEATH; BEG7:=ANYTIME(0.0,0.0); NR1:=0.02*FAP1*ASY1; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ER1; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=MAX(NR1,0.42*FAP1);
DR1Q:=ord(ROT10)*DR1; DR2:=MAX(ER1,0.25*FAP1); DR2Q:=ord(RAS11&
ROT11)*DR2; DR3:=DR2; DR3Q:=ord(RAS12)*DR3; DRT:=MAX(DR1,DR2,DR3)
;DRQ:=MAX(DR1Q,DR2Q,DR3Q); DS1:=0.5*FAP13; DS1Q:=ord(ROT13)*DS1;
DS2:=ER1*RED13; DS2Q:=ord(RAS12)*DS2; DST:=MAX(DS1,DS2); DSQ:=
MAX(DS1Q,DS2Q); PRAG:=MIN(0.95*ACPIG,0.03); VEDB:=VOPT(ord(ASY1>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP13,FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0711s965; begin CNQ:=0.0; ASY1:=MIN(35.0,QUITD-HIRED)*
1.0; PSY10:=MIN(35.0,BIRTHD+60.0-HIRED); FDFAP1:=QUITD; FAP1:=
AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=0.07; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7);
RED13:=JSRED; RAS1:=AGE>=60.0; RAS2:=(AGE>=50.0)&(ASY1>=20.0);
RAS10:=ASY1>=5.0; RAS13:=ASY1>=1.0; ROT2:=QAPPROVL; BEG7:=MAX(
BIRTHD+60.0,QUITD); NR1:=0.02*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1;
NR2:=NR1; NR2Q:=ord(RAS2&ROT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(
NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=60.0; ERQ:=0.0; VD1:=NR1; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=0.4*FAP1; DR1Q:=ord(
RAS10)*DR1; DR2:=0.02*FAP1*PSY10; DR2Q:=ord(RAS10)*DR2; DRT:=MIN(
DR1,DR2); DRQ:=MIN(DR1Q,DR2Q); DS1:=MAX(DRT*RED13*0.55,NR1*RED13*
0.55); DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=TAR(0.95*
FAR(ACPIG,3.0/12.0),3.0/12.0); VEDB:=VOPT(ord((QUITAGE>=60.0)!(
ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR2Q,
NR2,NR1Q,NR1,BEG7,RED13,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,
PSY10,ASY1,CNQ) <0 then negative end;

procedure c0712s93; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
PSY10:=MIN(23.0,BIRTHD+65.0-HIRED); FDFAP1:=MIN(QUITD,BIRTHD+
70.0); FAP1:=ord(FDFAP1>HIRED)*WAGE(FDFAP1); SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,97.0,0.0,SDMAN7,
FDMAN7); RED4:=1.0-(0.0665*a(AGE,50.0,45.0)+0.0585*a(AGE,55.0,
50.0)+0.0315*a(AGE,60.0,55.0)); RAS1:=(AGE>=60.0)!(AGE>=55.0)&(
ASY1>=30.0); RAS4:=(ASY1>=30.0)!(AGE>=55.0)&(ASY1>=10.0); RAS10:=
ASY1>=5.0; BEG7:=MAX(BIRTHD+60.0,QUITD); BEG8:=MAX(ERD,QUITD);
NR1:=0.0216*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q;
LRQ:=NRQ; MRAGE:=70.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ERT;
VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q);
DR1:=0.0143*FAP1*ASY1; DR1Q:=ord(RAS10)*DR1; DR2:=0.0143*PSY10*
FAP1; DR2Q:=ord(RAS10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,
DR2Q); DS1:=0.5*NRT; DS1Q:=ord(RAS1)*DS1; DS2:=0.5*ERT; DS2Q:=
ord(RAS4)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=60.0)!(ASY1>=5.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG8,BEG7,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,PSY10,
ASY1,CNQ) <0 then negative end;

procedure c0713s498; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*NNMIN(1.0,WRKHRS/12.0); FDFAP1:=MIN(QUITD,BIRTHD+
70.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1); FDFAP10:=MIN(QUITD,BIRTHD+67.0); FAP10:=
ord(FDFAP10>HIRED)*WAGE(FDFAP10); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,97.0,0.0,SDMAN7,FDMAN7); RAS1:=
AGE>=63.0; RAS4:=(AGE>=62.0)!(AGE>=55.0)&(ASY1>=5.0); RAS10:=
ASY1>=2.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+63.0); NR1:=0.023*
FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.8*FAP1; NR2Q:=ord(RAS1)*
NR2; NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=
70.0; ER1:=(0.023-0.001*b(AGE,54.0,62.0))*FAP1*ASY1; ER1Q:=ord(
RAS4)*ER1; ER2:=NR2; ER2Q:=ord(RAS4)*ER2; ERT:=MIN(ER1,ER2);
ERQ:=MIN(ER1Q,ER2Q); VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=(0.25+0.05*b(ASY1,2.0,5.0))*FAP10; DR1Q:=ord(
RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.25*FAP10; DS1Q:=ord(
RAS10)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=MIN(0.95*ACPIG,0.02);
VEDB:=VOPT(ord((QUITAGE>=62.0)!(ASY1>=5.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP10,FDFAP10,FAP1,SDFAP1,FDFAP1,ASY1,CNQ)
<0 then negative end;

procedure c0714s264; begin CNQ:=0.0; ASYV:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY1:=MIN(35.0,QUITD-
HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY2:=MIN(30.0,QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-5.0),FDFAP1); FAP2:=SUM(WAGE,HIRED,QUITD); SS1:=SSBASE(
BENIFITD); RED4:=1.0-(0.06*a(AGE,60.0,55.0)+0.04*a(AGE,65.0,60.0)
); RED5:=3.0*a(AGE,57.0,55.0)+6.0*a(AGE,58.0,57.0)+9.0*a(AGE,
59.0,58.0); RED6:=60.0*a(AGE,56.0,55.0)+120.0*a(AGE,58.0,56.0)+
240.0*a(AGE,59.0,58.0); RAS1:=(AGE>=65.0)&(ASY1>=10.0); RAS4:=(
AGE>=55.0)&(ASY1>=10.0); RAS5:=(AGE>=55.0)&(ASY1>=25.0); RAS10:=
ASY1>=50.0; LNG4:=BIRTHD+62.0; LNG13:=1.0; BEG7:=MAX(BIRTHD+65.0,
QUITD); NR1:=(0.5*MIN(SS1,FAP1)+0.7*MAX(0.0,FAP1-SS1))*0.03333*
ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=
999.0; ER1:=(0.5*MIN(SS1,FAP1)+0.7*MAX(0.0,FAP1-SS1))*0.03333*
ASY2*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=(36.0-RED5)*u(ASY1,25.0);
ER2Q:=ord(RAS4)*AA(QUITD,LNG4)*ER2; ER3:=960.0-RED6; ER3Q:=ord(
RAS5)*AA(QUITD,LNG4)*ER3; ERT:=ER1+MAX(ER2,ER3); ERQ:=ER1Q+MAX(
ER2Q,ER3Q); VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=
VD1Q; DR1:=MAX(1200.0,0.02*FAP2); DR1Q:=ord(RAS10)*DR1; DRT:=DR1;
DRQ:=DR1Q; DS1:=3.0*FAP1; DS1Q:=AA(QUITD,LNG13+QUITD)*DS1; DST:=
DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord(ASYV>=10.0)*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,BEG7,LNG13,LNG4,RED6,RED5,RED4,SS1,FAP2,FAP1,FDFAP1,ASY2,
ASY1,ASYV,CNQ) <0 then negative end;

procedure c0715s931; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(
FDFAP1>HIRED)*WAGE(FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,97.0,0.0,SDMAN7,FDMAN7); RED4:=
1.0-(0.0572*a(AGE,55.0,50.0)+0.0524*a(AGE,60.0,55.0)+0.0353*a(
AGE,65.0,60.0)); RED5:=NN(1.0-0.0544*o(50.0,AGE)); RED6:=1.16*a(
AGE,56.0,50.0)+1.56*a(AGE,60.0,56.0)+1.2*a(AGE,65.0,60.0); RAS1:=
AGE>=65.0; RAS4:=(AGE>=50.0)&(ASY1>=10.0); RAS5:=ASY1>=30.0;
RAS10:=ASY1>=5.0; ROT10:=^QJRDABLE; ROT11:=QJRDABLE; ROT13:=
^QJRDEATH; ROT14:=QJRDEATH; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=0.02611*FAP1*ASY1-36.6*
ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=
65.0; ER1:=0.02611*FAP1*ASY1*RED4-(36.6-RED6)*ASY1; ER1Q:=ord(
RAS4)*ER1; ER2:=0.02611*FAP1*ASY1*RED4*RED5-(36.6-RED6)*ASY1;
ER2Q:=ord(RAS5)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q);
VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER1; VD2Q:=AA(BEG8,0.0)*
VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=MAX(0.33333*
FAP1,0.015*FAP1*ASY1); DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=0.5*FAP1;
DR2Q:=ord(ROT11)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q);
DS1:=MAX(0.2*FAP1,0.009*FAP1*ASY1); DS1Q:=ord(RAS10&ROT13)*DS1;
DS2:=0.5*FAP1; DS2Q:=ord(ROT14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(
DS1Q,DS2Q); PRAG:=MIN(0.95*ACPIG,0.03); VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,
DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG8,BEG7,RED6,
RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0
then negative end;

procedure c0716s447; begin CNQ:=0.0; ASY1:=(MIN(QUITD,MAX(BIRTHD+
68.0,HIRED+10.0))-HIRED)*NNMIN(1.0,WRKHRS/1615.0); ASY2:=(MIN(
QUITD,MAX(BIRTHD+68.0,HIRED+10.0))-HIRED)*ord(WRKHRS>=1000.0)*
1.0; FAP1:=WAGE(QUITD); RED4:=1.0-(0.0235*a(AGE,51.0,42.0)+0.052*
a(AGE,60.0,51.0)+0.0665*a(AGE,62.0,60.0)); RED5:=12.0*a(AGE,57.0,
55.0)+15.0*a(AGE,59.0,57.0)+18.0*a(AGE,60.0,59.0); RED7:=1.0-(
0.043*a(AGE,58.0,55.0)+0.0565*a(AGE,60.0,58.0)+0.0667*a(AGE,
65.0,60.0)); RAS1:=(AGE>=70.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(
AGE>=55.0)&(ASY2>=10.0); RAS5:=(ASY1>=30.0)!(AGE>=60.0)&(ASY1>=
10.0)!(AGE+ASY1>=85.0)&(AGE>=55.0); RAS6:=ASY1>=30.0; RAS10:=
ASY1>=10.0; ROT10:=^QSSDABLE; BGN2:=MAX(BIRTHD+65.0,QUITD);
LNG4:=BIRTHD+62.0; BGN5:=MAX(BIRTHD+62.0,QUITD); LNG10:=BIRTHD+
62.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+
65.0,QUITD); BEG14:=MAX(BIRTHD+65.0,QUITD); NR1:=222.9*ASY1;
NR1Q:=ord(RAS1)*NR1; NR2:=117.0; NR2Q:=ord(RAS1)*AA(BGN2,0.0)*
NR2; NR3:=0.7*FAP1; NR3Q:=ord(RAS1)*NR3; NRT:=MIN(NR3+NR1,NR1+
NR2); NRQ:=MIN(NR3Q+NR1Q,NR1Q+NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=
(138.0-RED5)*ASY1; ER1Q:=ord(RAS4)*AA(QUITD,LNG4)*ER1; ER2:=
222.96*ASY1*RED4; ER2Q:=ord(RAS5)*ER2; ER3:=NR2; ER3Q:=ord(RAS5)*
AA(BGN2,0.0)*ER3; ER4:=11220.0; ER4Q:=ord(RAS6)*AA(QUITD,LNG4)*
ER4; ER5:=ER2; ER5Q:=ord(RAS6)*AA(BGN5,0.0)*ER5; ERT:=MIN(NR3,
MAX(ER1+ER2+ER3,ER3+ER4+ER5)); ERQ:=MIN(NR3Q,MAX(ER1Q+ER2Q+ER3Q,
ER3Q+ER4Q+ER5Q)); VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
MIN(NR3,VD1); VDQ:=MIN(NR3Q,VD1Q); DR1:=NR1; DR1Q:=ord(RAS10)*
DR1; DR2:=NR2; DR2Q:=ord(RAS10)*AA(BEG11,0.0)*DR2; DR3:=180.0*u(
ASY1,30.0); DR3Q:=ord(RAS10&ROT10)*AA(QUITD,LNG10)*DR3; DRT:=MIN(
DR1+DR2+DR3,NR3); DRQ:=MIN(DR1Q+DR2Q+DR3Q,NR3Q); DS1:=0.57*NR1;
DS1Q:=ord(RAS5)*DS1; DS2:=NR2; DS2Q:=ord(RAS5)*AA(BEG14,0.0)*DS2;
DST:=DS1+DS2; DSQ:=DS1Q+DS2Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=70.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG14,BEG11,BEG7,
LNG10,BGN5,LNG4,BGN2,RED7,RED5,RED4,FAP1,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0717s448; begin CNQ:=0.0; ASY1:=(MIN(QUITD,MAX(BIRTHD+
68.0,HIRED+10.0))-HIRED)*NNMIN(1.0,WRKHRS/1615.0); ASY2:=(MIN(
QUITD,MAX(BIRTHD+68.0,HIRED+10.0))-HIRED)*ord(WRKHRS>=1000.0)*
1.0; FAP1:=WAGE(QUITD); RED4:=1.0-(0.0235*a(AGE,51.0,42.0)+0.052*
a(AGE,60.0,51.0)+0.0665*a(AGE,62.0,60.0)); RED5:=12.0*a(AGE,57.0,
55.0)+15.0*a(AGE,59.0,57.0)+18.0*a(AGE,60.0,59.0); RED7:=1.0-(
0.043*a(AGE,58.0,55.0)+0.0565*a(AGE,60.0,58.0)+0.0667*a(AGE,
65.0,60.0)); RAS1:=(AGE>=70.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(
AGE>=55.0)&(ASY2>=10.0); RAS5:=(ASY1>=30.0)!(AGE>=60.0)&(ASY1>=
10.0)!(AGE+ASY1>=85.0)&(AGE>=55.0); RAS6:=ASY1>=30.0; RAS10:=
ASY1>=10.0; ROT10:=^QSSDABLE; BGN2:=MAX(BIRTHD+65.0,QUITD);
LNG4:=BIRTHD+62.0; BGN5:=MAX(BIRTHD+62.0,QUITD); LNG10:=BIRTHD+
62.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG11:=MAX(BIRTHD+
65.0,QUITD); BEG14:=MAX(BIRTHD+65.0,QUITD); NR1:=222.9*ASY1;
NR1Q:=ord(RAS1)*NR1; NR2:=117.0; NR2Q:=ord(RAS1)*AA(BGN2,0.0)*
NR2; NR3:=0.7*FAP1; NR3Q:=ord(RAS1)*NR3; NRT:=MIN(NR1+NR2,NR2+
NR3); NRQ:=MIN(NR1Q+NR2Q,NR2Q+NR3Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=
(138.0-RED5)*ASY1; ER1Q:=ord(RAS4)*AA(QUITD,LNG4)*ER1; ER2:=
222.96*ASY1*RED4; ER2Q:=ord(RAS5)*ER2; ER3:=NR2; ER3Q:=ord(RAS5)*
AA(BGN2,0.0)*ER3; ER4:=11220.0; ER4Q:=ord(RAS6)*AA(QUITD,LNG4)*
ER4; ER5:=ER2; ER5Q:=ord(RAS6)*AA(BGN5,0.0)*ER5; ERT:=MIN(NR3,
MAX(ER1+ER2+ER3,ER3+ER4+ER5)); ERQ:=MIN(NR3Q,MAX(ER1Q+ER2Q+ER3Q,
ER3Q+ER4Q+ER5Q)); VD1:=NR1*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
MIN(VD1,NR3); VDQ:=MIN(VD1Q,NR3Q); DR1:=NR1; DR1Q:=ord(RAS10)*
DR1; DR2:=NR2; DR2Q:=ord(RAS10)*AA(BEG11,0.0)*DR2; DR3:=180.0*u(
ASY1,25.0); DR3Q:=ord(RAS10&ROT10)*AA(QUITD,LNG10)*DR3; DRT:=MIN(
NR3,DR1+DR2+DR3); DRQ:=MIN(NR3Q,DR1Q+DR2Q+DR3Q); DS1:=0.57*NR1;
DS1Q:=ord(RAS5)*DS1; DS2:=NR2; DS2Q:=ord(RAS5)*AA(BEG14,0.0)*DS2;
DST:=DS1+DS2; DSQ:=DS1Q+DS2Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=70.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG14,BEG11,BEG7,
LNG10,BGN5,LNG4,BGN2,RED7,RED5,RED4,FAP1,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0718s186; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1700.0); FAP1:=WAGE(QUITD); RED4:=1.0-(0.0575*a(AGE,
60.0,55.0)+0.0667*a(AGE,62.0,60.0)); RED5:=1.0-(0.0263*a(AGE,
50.0,47.0)+0.0353*a(AGE,53.0,50.0)+0.045*a(AGE,55.0,53.0));
RED6:=12.0*a(AGE,56.0,55.0)+15.0*a(AGE,59.0,56.0)+18.0*a(AGE,
60.0,59.0); RAS1:=(AGE>=70.0)!(AGE>=62.0)&(ASY1>=10.0); RAS2:=(
AGE>=60.0)&(ASY1>=10.0)!(AGE+ASY1>=85.0)&(AGE>=55.0); RAS3:=(
ASY1>=30.0)!(AGE>=60.0)&(ASY1>=10.0)!(AGE+ASY1>=85.0)&(AGE>=
55.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0); RAS5:=ASY1>=30.0; RAS6:=(
ASY1>=30.0)!(AGE+ASY1>=85.0)&(AGE>=55.0); RAS10:=ASY1>=10.0;
ROT10:=^QSSDABLE; BGN2:=MAX(BIRTHD+65.0,QUITD); LNG4:=BIRTHD+
62.0; BGN5:=MAX(BIRTHD+62.0,QUITD); BEG7:=MAX(BIRTHD+65.0,QUITD);
BEG11:=MAX(BIRTHD+62.0,QUITD); BEG12:=MAX(BIRTHD+65.0,QUITD);
BEG14:=MAX(BIRTHD+65.0,QUITD); NR1:=222.9*ASY1; NR1Q:=ord(RAS1)*
NR1; NR2:=116.4; NR2Q:=ord(RAS1)*AA(BGN2,0.0)*NR2; NR3:=0.7*FAP1;
NR3Q:=ord(RAS1)*NR3; NRT:=MIN(NR1+NR2,NR2+NR3); NRQ:=MIN(NR1Q+
NR2Q,NR2Q+NR3Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4*RED5+(
138.0-RED6)*ASY1; ER1Q:=ord(RAS2)*AA(QUITD,LNG4)*ER1; ER2:=NR1*
RED4; ER2Q:=ord(RAS4)*AA(BGN5,0.0)*ER2; ER3:=MIN(11220.0,FAP1*
0.7); ER3Q:=ord(RAS5)*AA(QUITD,LNG4)*ER3; ER4:=NR1; ER4Q:=ord(
RAS6)*AA(BGN5,0.0)*ER4; ER5:=NR2; ER5Q:=ord(RAS3)*AA(BGN2,0.0)*
ER5; ERT:=MIN(0.7*FAP1+ER5,MAX(ER1+ER4+ER5,ER1+ER2+ER5,ER3+ER4+
ER5)); ERQ:=MIN(0.7*FAP1+ER5Q,MAX(ER1Q+ER4Q+ER5Q,ER1Q+ER2Q+ER5Q,
ER3Q+ER4Q+ER5Q)); VD1:=NR1+NR2; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q; DR1:=NR1; DR1Q:=ord(RAS10)*DR1; DR2:=NR1+180.0*ASY1;
DR2Q:=ord(RAS10&ROT10)*AA(QUITD,LNG4)*DR2; DR3:=NR1; DR3Q:=ord(
RAS10&ROT10)*AA(BEG11,0.0)*DR3; DR4:=NR2; DR4Q:=ord(RAS10)*AA(
BEG12,0.0)*DR4; DRT:=MAX(DR1+DR4,DR2+DR3+DR4); DRQ:=MAX(DR1Q+
DR4Q,DR2Q+DR3Q+DR4Q); DS1:=0.57*NR1; DS1Q:=ord(RAS3)*DS1; DS2:=
NR2; DS2Q:=ord(RAS3)*AA(BEG14,0.0)*DS2; DST:=DS1+DS2; DSQ:=DS1Q+
DS2Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=70.0)!(ASY1>=10.0))*
1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,
DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER5Q,
ER5,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,
NR3,NR2Q,NR2,NR1Q,NR1,BEG14,BEG12,BEG11,BEG7,BGN5,LNG4,BGN2,
RED6,RED5,RED4,FAP1,ASY1,CNQ) <0 then negative end;

procedure c0719s940; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(
FDFAP1>HIRED)*SUM(WAGE,HIRED,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+
65.0); SDFAP2:=MAX(HIRED,FDFAP2-4.0); FAP2:=ord(FDFAP2>SDFAP2)*
AVG(WAGE,SDFAP2,FDFAP2); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
0.07; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=NN(1.0-
0.05*o(65.0,AGE)); RED13:=JSRED; RED14:=COSTRED; RAS1:=(AGE>=
65.0)&(ASY1>=3.0); RAS2:=(AGE>=65.0)&(ASY1>=20.0); RAS4:=(ASY1>=
30.0)!(AGE>=55.0)&(ASY1>=3.0)!(AGE+ASY1>=94.0)!(AGE+ASY1>=90.0)&
(AGE>=60.0); RAS10:=ASY1>=5.0; RAS11:=ASY1>=10.0; ROT10:=
QJRDABLE; ROT11:=^QJRDABLE; BEG7:=MAX(BIRTHD+65.0,QUITD); NR1:=
0.01667*FAP1; NR1Q:=ord(RAS1)*NR1; NR2:=0.005*FAP2*ASY1; NR2Q:=
ord(RAS1)*NR2; NR3:=2220.0; NR3Q:=ord(RAS2)*NR3; NR4:=0.6*FAP2;
NR4Q:=ord(RAS1)*NR4; NRT:=MIN(NR4,MAX(NR1,NR2,NR3)); NRQ:=MIN(
NR4Q,MAX(NR1Q,NR2Q,NR3Q)); LRQ:=NRQ; MRAGE:=70.0; ER1:=MAX(NR1,
NR2)*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR4; ER2Q:=ord(RAS4)*ER2;
ERT:=MIN(ER1,ER2); ERQ:=MIN(ER1Q,ER2Q); VD1:=MAX(NR1,NR2); VD1Q:=
AA(BEG7,0.0)*VD1; VD2:=NR4; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MIN(VD1,
VD2); VDQ:=MIN(VD1Q,VD2Q); DR1:=MAX(NR1,NR2,4200.0); DR1Q:=ord(
RAS10&ROT10)*DR1; DR2:=MAX(NR1,NR2,4200.0); DR2Q:=ord(RAS11&
ROT11)*DR2; DRT:=MIN(NR4,MAX(DR1,DR2)); DRQ:=MIN(NR4Q,MAX(DR1Q,
DR2Q)); DS1:=MAX(NR1,NR2)*RED13*RED14*0.5; DS1Q:=ord(RAS1)*DS1;
DS2:=ERT*RED13*RED14*0.5; DS2Q:=ord(RAS4)*DS2; DS3:=NR3; DS3Q:=
ord(RAS2)*DS3; DS4:=NR4; DS4Q:=ord(RAS1)*DS4; DST:=MAX(DS2,MIN(
DS4,MAX(DS1,DS3))); DSQ:=MAX(DS2Q,MIN(DS4Q,MAX(DS1Q,DS3Q)));
PRAG:=0.0; VEDB:=VOPT(ord((ASY1>=10.0)!(QUITAGE>=55.0)&(ASY1>=
3.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,DS3Q,DS3,DS2Q,DS2,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,
ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,
NR2Q,NR2,NR1Q,NR1,BEG7,RED14,RED13,RED4,MAN7,PCMAN7,FDMAN7,
SDMAN7,FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1,ASY1,CNQ) <0 then negative
end;

procedure c0720s919; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0,1975.833)-HIRED)*NNMIN(1.0,WRKHRS/2080.0); ASY2:=NN(MIN(
QUITD,BIRTHD+70.0,1981.667)-MAX(HIRED,1975.833))*NNMIN(1.0,
WRKHRS/2008.0); ASY3:=NN(MIN(QUITD,BIRTHD+70.0)-MAX(HIRED,
1981.667))*NNMIN(1.0,WRKHRS/2080.0); ASY4:=NN(MIN(QUITD,BIRTHD+
70.0)-MAX(HIRED,1975.833))*NNMIN(1.0,WRKHRS/2080.0); ASY5:=NN(
MIN(QUITD,BIRTHD+70.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=
QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); FDFAP2:=
QUITD; FAP2:=AVG(WAGE,MAX(HIRED,FDFAP2-5.0),FDFAP2); SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=0.05; MAN7:=SUMI(PCMAN7,8.0,0.0,
SDMAN7,FDMAN7); SS1:=SS(1.0,BENIFITD); RED4:=NN(1.0-0.03*o(62.0,
AGE)); RED5:=1.0-(0.044*a(AGE,55.0,50.0)+0.043*a(AGE,58.0,55.0)+
0.03*a(AGE,62.0,58.0)); RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(
AGE>=65.0)!(AGE>=62.0)&(ASY5>=10.0); RAS4:=(AGE>=50.0)&(ASY5>=
10.0); RAS10:=(AGE>=40.0)&(ASY5>=10.0); RAS13:=(AGE>=55.0)&(
ASY5>=10.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+50.0,BIRTHD+
65.0); NR1:=(0.01*u(FAP2,9000.0)+0.02*o(FAP2,9000.0))*ASY1;
NR1Q:=ord(RAS1)*NR1; NR2:=0.015*FAP2*ASY2+0.016*FAP1*ASY3-0.015*
SS1*u(ASY4,33.333); NR2Q:=ord(RAS1)*NR2; NRT:=NR1+NR2; NRQ:=NR1Q+
NR2Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4+NR2*RED5; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)
*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&ROT10)*DR1;
DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*NRT*RED13; DS1Q:=ord(RAS1)*DS1;
DS2:=0.5*ERT*RED13; DS2Q:=ord(RAS13)*DS2; DST:=MAX(DS1,DS2);
DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY5>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG7,RED13,RED7,RED5,RED4,SS1,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP2,FDFAP2,FAP1,FDFAP1,ASY5,ASY4,ASY3,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0721s204; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/12.0); ASY2:=
NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=6.0)*1.0; RED4:=9.6*
o(62.0,AGE); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY2>=
10.0); RAS4:=(AGE>=55.0)&(ASY2>=10.0); DAT1:=1981.583<=QUITD;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=324.0*ASY1; NR1Q:=
ord(RAS1&DAT1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NRT-RED4; ER1Q:=ord(RAS4&DAT1)*ER1; ERT:=ER1; ERQ:=ER1Q;
VD1:=ERT; VD1Q:=ord(DAT1)*AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DRQ:=0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4&DAT1)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,
ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0722s205; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/12.0); ASY2:=
NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(WRKHRS>=6.0)*1.0; RED4:=
10.62*o(62.0,AGE); RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=(AGE>=
65.0)!(AGE>=62.0)&(ASY2>=10.0); RAS4:=(AGE>=55.0)&(ASY2>=10.0);
RAS5:=(AGE>=50.0)&(ASY2>=10.0); ROT4:=QAPPROVL; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=354.0*ASY1; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT-RED4;
ER1Q:=ord(RAS4)*ER1; ER2:=NRT-RED4; ER2Q:=ord(RAS5&ROT4)*ER2;
ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=NRT*RED7; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=VD1; DR1Q:=ord(RAS4)*
DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ER1*RED13; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED7,RED4,ASY2,ASY1,CNQ) <0 then
negative end;

procedure c0723s349; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+20.0))*NNMIN(1.0,WRKHRS/2016.0);
ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1981.0)-MAX(HIRED+1.0,BIRTHD+
20.0))*NNMIN(1.0,WRKHRS/2016.0); ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-
MAX(HIRED+1.0,BIRTHD+20.0,1981.0))*NNMIN(1.0,WRKHRS/2016.0);
ASY4:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+20.0))*ord(
WRKHRS>=1000.0)*1.0; PSY10:=MIN(30.0,NN(BIRTHD+65.0-MAX(HIRED+
1.0,BIRTHD+20.0))); FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(
FDFAP1>HIRED)*SUM(WAGE,HIRED,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+
65.0); SDFAP2:=MAX(HIRED,FDFAP2-5.0); FAP2:=ord(FDFAP2>SDFAP2)*
AVG(WAGE,SDFAP2,FDFAP2); SS1:=SS(1.0,BENIFITD); SS2:=SS(2.0,
BENIFITD); SS7:=SS(1.0,BENIFITD); SS10:=SS(5.0,BENIFITD); RED4:=
NN(1.0-0.05*o(19.0,ASY1)); RED5:=NN(1.0-0.04*o(62.0,AGE));
RED10:=OTHERB; RED13:=JSRED; RAS1:=(AGE>=65.0)!(ASY1>=40.0);
RAS2:=(ASY1>=40.0)!(AGE>=62.0)&(ASY1>=20.0); RAS4:=(AGE>=57.0)&(
ASY1>=20.0)!(AGE+ASY1>=90.0)&(AGE>=55.0); RAS10:=(AGE>=20.0)&(
ASY4>=1.0); ROT2:=AGE<65.0; ROT7:=ASY1>20.0; ROT10:=QSSDABLE;
ROT11:=^QSSDABLE; LNG10:=BIRTHD+65.0; BEG7:=MAX(BIRTHD+65.0,
QUITD); BEG8:=ANYTIME(BIRTHD+57.0,BIRTHD+65.0); BEG11:=MAX(
BIRTHD+65.0,QUITD); NR1:=NN(0.0175*FAP1-0.5*SS1); NR1Q:=ord(RAS1)
*NR1; NR2:=NN(0.0175*FAP1-0.5*SS2); NR2Q:=ord(RAS2&ROT2)*NR2;
NR3:=NN(0.018*FAP2*u(ASY2,30.0)+0.01667*FAP2*u(ASY3,30.0-ASY2)-
0.5*SS7); NR3Q:=ord(RAS1)*NR3; NR4:=NN(0.018*FAP2*u(ASY2,30.0)+
0.01667*FAP2*u(ASY3,30.0-ASY2)-0.5*SS2); NR4Q:=ord(RAS2&ROT2)*
NR4; NR5:=NN(1200.0*RED4-0.5*SS1); NR5Q:=ord(RAS1)*NR5; NRT:=MAX(
NR1,NR2,NR3,NR4,NR5); NRQ:=MAX(NR1Q,NR2Q,NR3Q,NR4Q,NR5Q); LRQ:=
NRQ; MRAGE:=999.0; ER1:=MAX(NR2,NR4)*RED5; ER1Q:=ord(RAS4&ROT2)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NN(0.0175*FAP1-0.5*SS7); VD1Q:=AA(
BEG7,0.0)*VD1; VD2:=NN(0.018*FAP2*u(ASY2,30.0)+0.01667*FAP2*u(
ASY3,30.0-ASY2)-0.5*SS7); VD2Q:=AA(BEG7,0.0)*VD2; VD3:=NN(1200.0*
RED4-0.5*SS7); VD3Q:=AA(BEG7,0.0)*VD3; VD4:=ERT; VD4Q:=ord(ROT7)*
AA(BEG8,0.0)*VD4; VDT:=MAX(VD1,VD2,VD3,VD4); VDQ:=MAX(VD1Q,VD2Q,
VD3Q,VD4Q); DR1:=NN(0.01667*FAP2*PSY10-0.5*SS10-RED10); DR1Q:=
ord(RAS10&ROT10)*DR1; DR2:=NN(0.01667*FAP2*PSY10-RED10); DR2Q:=
ord(RAS10&ROT11)*AA(QUITD,LNG10)*DR2; DR3:=NN(0.01667*FAP2*PSY10-
0.5*SS1-RED10); DR3Q:=ord(RAS10&ROT11)*AA(BEG11,0.0)*DR3; DRT:=
MAX(DR1,DR2+DR3); DRQ:=MAX(DR1Q,DR2Q+DR3Q); DS1:=MAX(NR1,NR3,NR5)
*RED13*0.5; DS1Q:=ord(RAS1)*DS1; DS2:=ERT*RED13*0.5; DS2Q:=ord(
RAS4)*DS2; DS3:=MAX(NR2,NR4)*RED13*0.5; DS3Q:=ord(RAS2&ROT2)*DS3;
DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q); PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,
ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,NR3Q,NR3,NR2Q,
NR2,NR1Q,NR1,BEG11,BEG8,BEG7,LNG10,RED13,RED10,RED5,RED4,SS10,
SS7,SS2,SS1,FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1, PSY10,ASY4,ASY3,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0724s754; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FAP1:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.08;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RAS1:=(AGE>=50.0)&(
ASY1>=20.0); RAS11:=ASY1>=10.0; ROT10:=QJRDABLE; ROT11:=
^QJRDABLE; BEG7:=MAX(BIRTHD+50.0,QUITD); BEG11:=MAX(BIRTHD+50.0,
QUITD); NR1:=0.02*FAP1*u(ASY1,25.0); NR1Q:=ord(RAS1)*NR1; NRT:=
NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ERQ:=0.0; VD1:=NRT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=0.2*FAP1+0.01*
FAP1*o(ASY1,20.0); DR1Q:=ord(ROT10)*DR1; DR2:=0.02*FAP1*u(ASY1,
20.0); DR2Q:=ord(RAS11&ROT11)*DR2; DR3:=0.02*FAP1*b(ASY1,20.0,
25.0); DR3Q:=ord(RAS11&ROT11)*AA(BEG11,0.0)*DR3; DRT:=MAX(DR1,
DR2+DR3); DRQ:=MAX(DR1Q,DR2Q+DR3Q); DS1:=0.2*FAP1; DS1Q:=DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=20.0)*1.0);
if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG11,
BEG7,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,ASY1,CNQ) <0 then negative
end;

procedure c0725s905; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
55.0)-HIRED)*MIN(2.0,NN(WRKHRS/1200.0)); ASY2:=NN(QUITD-MAX(
HIRED,BIRTHD+55.0))*MIN(2.0,NN(WRKHRS/1000.0)); ASY3:=(QUITD-
HIRED)*ord(WRKHRS>=1000.0)*1.0; RED4:=NN(1.0-0.05*o(62.0,AGE));
RAS1:=(AGE>=62.0)&(ASY3>=10.0)!(AGE>=70.0)&(ASY3>=4.0); ASY51:=
ASY1+ASY2; RAS2:=(AGE>=55.0)&(ASY51>=25.0); RAS4:=(AGE>=55.0)&(
ASY3>=10.0); BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=33.0*(
ASY1+ASY2); NR1Q:=ord(RAS1)*NR1; NR2:=NR1; NR2Q:=ord(RAS2)*NR2;
NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q)*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*
12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DRQ:=0.0; DS1:=0.45*ERT; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((ASY3>=10.0)!(QUITAGE>=70.0)
&(ASY3>=4.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,BEG7,ASY51,RED4,ASY3,ASY2,ASY1,CNQ) <0 then negative end;

procedure c0726s1047; begin CNQ:=0.0; ASY1:=NNMIN(30.0,MIN(QUITD,
1977.5)-HIRED)*NNMIN(1.0,WRKHRS/1000.0); ASY2:=NNMIN(30.0,MIN(
QUITD,1980.5)-MAX(HIRED,1977.5))*NNMIN(1.0,WRKHRS/1000.0); ASY3:=
NNMIN(30.0,MIN(QUITD,1981.5)-MAX(HIRED,1980.5))*NNMIN(1.0,
WRKHRS/1000.0); ASY4:=NNMIN(30.0,QUITD-MAX(HIRED,1980.5))*NNMIN(
1.0,WRKHRS/1000.0); ASY5:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/1000.0);
RED4:=NN(1.0-0.03*o(65.0,AGE)); RED13:=JSRED; RAS1:=(AGE>=65.0)&(
ASY5>=10.0); RAS4:=(AGE>=55.0)&(ASY5>=10.0); RAS10:=ASY5>=5.0;
ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=
20.25*ASY1+25.0*ASY2+32.0*ASY3+33.25*ASY4; NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(
RAS10&ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q*12.0; DS1:=ERT*RED13*0.5;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=
VOPT(ord(ASY5>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR1Q,NR1,BEG7,RED13,RED4,ASY5,ASY4,ASY3,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c0727s313; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/12.0); ASY2:=NN(MIN(QUITD,1969.0)-HIRED)*NNMIN(1.0,
WRKHRS/12.0); ASY3:=NN(QUITD-MAX(HIRED,1969.0))*NNMIN(1.0,WRKHRS/
12.0); ASY4:=NN(QUITD-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=4.0)*
1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1);
FDFAP2:=MIN(QUITD,1969.0); SDFAP2:=MAX(HIRED,1964.0); FAP2:=ord(
FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); SDVOL7:=HIRED; FDVOL7:=
QUITD; VR1VOL7:=ord(WAGE(SURVEYD)>=15000.0)*0.03; VR2VOL7:=ord(
WAGE(SURVEYD)>=15000.0)*0.03; PCVOL7:=MAX(VR1VOL7*WAGE(SURVEYD),
MIN(VR2VOL7*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL7:=SUMI(PCVOL7,2.0,0.0,SDVOL7,FDVOL7); RED4:=1.0-(0.0575*a(
AGE,60.0,55.0)+0.0665*a(AGE,62.0,60.0)); RED5:=1.0-(0.0335*a(AGE,
61.0,55.0)+0.133*a(AGE,62.0,61.0)); RED7:=1.0-(0.0335*a(AGE,60.0,
55.0)+0.0665*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=(AGE>=65.0)!(
AGE>=62.0)&(ASY4>=10.0); RAS4:=(AGE>=55.0)&(ASY4>=10.0); RAS10:=
ASY4>=10.0; ROT2:=QVOLCNTR; ROT10:=QSSDABLE; ROT11:=^QSSDABLE;
BGN2:=MAX(BIRTHD+65.0,QUITD); BEG7:=MAX(BIRTHD+65.0,QUITD);
BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG14:=MAX(BIRTHD+65.0,
QUITD); NR1:=204.0*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=MAX(0.009*
FAP1*ASY2,0.0125*FAP2*ASY2,204.0*ASY2); NR2Q:=ord(RAS1&ROT2)*NR2;
NR3:=122.4; NR3Q:=ord(RAS1)*AA(BGN2,0.0)*NR3; ANVOL7:=ANNPAY(
VOL7,BENIFITD); NR4:=ANVOL7*0.5; NR4Q:=ord(RAS1&ROT2)*NR4; NR5:=
0.009*FAP1*ASY3; NR5Q:=ord(RAS1&ROT2)*NR5; NRT:=MAX(NR1,NR2+NR5)+
NR3+NR4; NRQ:=MAX(NR1Q,NR2Q+NR5Q)+NR3Q+NR4Q; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=(NR2+NR5)*RED4;
ER2Q:=ord(RAS4&ROT2)*ER2; ER3:=NR3; ER3Q:=ord(RAS4)*AA(BGN2,0.0)*
ER3; ER4:=NR4*RED5; ER4Q:=ord(RAS4&ROT2)*ER4; ER5:=NR1; ER5Q:=
ord(RAS4&ROT2)*ER5; ERT:=MAX(ER1,ER2)+ER3+ER4; ERQ:=MAX(ER1Q,
ER2Q)+ER3Q+ER4Q; VD1:=NR1*RED7; VD1Q:=AA(BEG8,0.0)*VD1; VD2:=(
NR2+NR5)*RED7; VD2Q:=ord(ROT2)*AA(BEG8,0.0)*VD2; VD3:=NR3; VD3Q:=
AA(BEG7,0.0)*VD3; VD4:=ER4; VD4Q:=ord(ROT2)*AA(BEG8,0.0)*VD4;
VDT:=MAX(VD1,VD2)+VD3+VD4; VDQ:=MAX(VD1Q,VD2Q)+VD3Q+VD4Q; DR1:=
NR2+NR5; DR1Q:=ord(RAS4&ROT2)*DR1; DR2:=168.0*u(ASY1,25.0);
DR2Q:=ord(RAS4&ROT11)*DR2; DR3:=MAX(NR1,NR2+NR5); DR3Q:=ord(
RAS10&ROT10)*DR3; DR4:=NR4; DR4Q:=ord(RAS10&ROT2)*DR4; DR5:=NR3;
DR5Q:=ord(RAS10)*AA(BEG7,0.0)*DR5; DRT:=MAX(DR1,ER5,DR3)+DR2+DR4+
DR5; DRQ:=MAX(DR1,ER5,DR3)+DR2+DR4+DR5; DS1:=ER1*RED13*0.5;
DS1Q:=ord(RAS4)*DS1; DS2:=NR3; DS2Q:=ord(RAS4)*AA(BEG14,0.0)*DS2;
DS3:=0.5*ER4; DS3Q:=ord(RAS4&ROT2)*DS3; DS4:=ER2*RED13*0.5;
DS4Q:=ord(RAS4&ROT2)*DS4; DST:=MAX(DS1,DS4)+DS2+DS3; DSQ:=MAX(
DS1Q,DS4Q)+DS2Q+DS3Q; PRAG:=0.0; VEDB:=VOPT(ord((ASY4>=10.0)!(
QUITAGE>=65.0)&(ASY4>=1.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS4Q,
DS4,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR5Q,DR5,DR4Q,DR4,DR3Q,
DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,
VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,ANVOL7,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG14,BEG8,BEG7, BGN2,RED13,RED7,RED5,RED4,VOL7,PCVOL7,VR2VOL7,
VR1VOL7,FDVOL7,SDVOL7,FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1,ASY4,ASY3,
ASY2,ASY1,CNQ) <0 then negative end;

procedure c0728s1083; begin CNQ:=0.0; ASY1:=NNMIN(20.0,MIN(QUITD,
BIRTHD+65.0,1975.5)-HIRED)*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-
HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,1975.0); SDFAP1:=MAX(
HIRED,1974.0); FAP1:=ord(FDFAP1>SDFAP1)*WAGE(FDFAP1); FDFAP2:=
MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,FDFAP2-3.0); FAP2:=ord(
FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); FDFAP3:=MIN(QUITD,BIRTHD+
65.0,1982.75); SDFAP3:=MAX(HIRED,1975.5); FAP3:=ord(
FDFAP3>SDFAP3)*SUM(WAGE,SDFAP3,FDFAP3); FDFAP4:=MIN(QUITD,BIRTHD+
65.0); SDFAP4:=MAX(HIRED,1982.75); FAP4:=ord(FDFAP4>SDFAP4)*SUM(
WAGE,SDFAP4,FDFAP4); FDSS1:=MIN(QUITD,1982.75); SDSS1:=MAX(HIRED,
1975.5); SS1:=ord(FDSS1>SDSS1)*SUM(SSBASE,SDSS1,FDSS1); SDSS2:=
MAX(HIRED,1982.75); SS2:=ord(QUITD>SDSS2)*SUM(SSBASE,SDSS2,QUITD)
;RED4:=NN(1.0-0.06*o(65.0,AGE)); RAS1:=AGE>=65.0; RAS4:=(AGE>=
55.0)&(ASY2>=10.0); RAS10:=ASY2>=1.0; ROT10:=QSSDABLE; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD);
NR1:=(0.005*u(FAP1,13200.0)+0.01*o(FAP1,13200.0))*ASY1; NR1Q:=
ord(RAS1)*NR1; NR2:=(0.005*u(FAP2,13200.0)+0.01*o(FAP2,13200.0))*
ASY2; NR2Q:=ord(RAS1)*NR2; NR3:=0.0075*u(FAP3,SS1)+0.015*o(FAP3,
SS1); NR3Q:=ord(RAS1)*NR3; NR4:=0.01*u(FAP4,SS2)+0.015*b(FAP4,
SS2,1.54*SS2); NR4Q:=ord(RAS1)*NR4; NRT:=MAX(NR1,NR2)+NR3+NR4;
NRQ:=MAX(NR1Q,NR2Q)+NR3Q+NR4Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10&
ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ERT;
DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG10,
BEG7,RED4,SS2,SDSS2,SS1,SDSS1,FDSS1,FAP4,SDFAP4,FDFAP4,FAP3,
SDFAP3,FDFAP3,FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY2,ASY1,
CNQ) <0 then negative end;

procedure c0729s100; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; ASY2:=NNMIN(25.0,MIN(QUITD,BIRTHD+65.0,1962.5)-
HIRED)*1.0; ASY10:=NN(MIN(QUITD,1973.25)-HIRED)*1.0; FDFAP1:=MIN(
QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FAP10:=WAGE(QUITD); SS1:=
SS(1.0,BENIFITD); RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(
AGE,65.0,60.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS2:=(AGE>=65.0)
&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS10:=ASY10>=
20.0; RAS13:=(AGE>=55.0)&(ASY1>=5.0); ROT2:=PARTD<1962.5; LNG10:=
NRD; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.6*FAP1-0.8*
SS1)*u(ASY1,25.0)/25.0+0.005*FAP1*b(ASY1,25.0,45.0); NR1Q:=ord(
RAS1)*NR1; NR2:=20.0*ASY2; NR2Q:=ord(RAS1&ROT2)*NR2; NR3:=96.0*
ASY2; NR3Q:=ord(RAS2)*NR3; NRT:=MAX(NR1+NR2,NR2+NR3); NRQ:=MAX(
NR1Q+NR2Q,NR2Q+NR3Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1; ER1Q:=
ord(RAS4)*ER1; ER2:=NR2; ER2Q:=ord(RAS4&ROT2)*ER2; ER3:=NR3;
ER3Q:=ord(RAS4)*ER3; ERT:=MAX(ER1+ER2,ER2+ER3)*RED4; ERQ:=MAX(
ER1Q+ER2Q,ER2Q+ER3Q)*RED4; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1;
VD2:=ER2; VD2Q:=ord(ROT2)*AA(BEG7,0.0)*VD2; VD3:=ER3; VD3Q:=AA(
BEG7,0.0)*VD3; VDT:=MAX(VD1+VD2,VD2+VD3)*RED4; VDQ:=MAX(VD1Q+
VD2Q,VD2Q+VD3Q)*RED4; DR1:=0.333*FAP10; DR1Q:=ord(RAS10)*AA(
QUITD,LNG10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ER1; DS1Q:=ord(RAS13)
*DS1; DS2:=ER2; DS2Q:=ord(RAS13&ROT2)*DS2; DS3:=ER3; DS3Q:=ord(
RAS13)*DS3; DST:=0.5*MAX(DS1+DS2,(DS2+DS3)*RED4)*RED13; DSQ:=0.5*
MAX(DS1Q+DS2Q,(DS2Q+DS3Q)*RED4)*RED13; PRAG:=0.0; VEDB:=VOPT(ord(
(QUITAGE>=65.0)!(ASY1>=10.0)!(QUITAGE>=30.0)&(ASY1>=5.0))*1.0);
if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,
BEG7,LNG10,RED13,RED4,SS1,FAP10,FAP1,SDFAP1,FDFAP1,ASY10,ASY2,
ASY1,CNQ) <0 then negative end;

procedure c0730s766; begin CNQ:=0.0; ASY1:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+70.0); SDFAP1:=MAX(
HIRED,FDFAP1-3.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+70.0); FAP2:=ord(FDFAP2>HIRED)*
WAGE(FDFAP2); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.03; MAN7:=
SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RAS1:=(AGE>=62.0)&(ASY1>=
10.0)!(AGE>=70.0)&(ASY1>=5.0); RAS2:=(AGE>=62.0)&(ASY1>=25.0);
RAS10:=AGE>=60.0; RAS11:=ASY1>=20.0; RAS13:=ASY1>=10.0; ROT7:=
ASY1<=25.0; ROT10:=QJRDABLE; ROT13:=QJRDEATH; ROT14:=^QJRDEATH;
LNG14:=1.0; BEG7:=MAX(BIRTHD+62.0,QUITD); NR1:=0.01667*FAP1*ASY1;
NR1Q:=ord(RAS1)*NR1; NR2:=0.02*FAP1*u(ASY1,30.0)+0.015*FAP1*o(
ASY1,30.0); NR2Q:=ord(RAS2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(
NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ERQ:=0.0; VD1:=NR1; VD1Q:=AA(
BEG7,0.0)*VD1; VD2:=NR2; VD2Q:=ord(ROT7)*AA(BEG7,0.0)*VD2; VDT:=
MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=MIN(NR1,NR2,0.3333*FAP1,
0.01667*FAP1*NN(BIRTHD+60.0-HIRED)); DR1Q:=ord(RAS10)*DR1; DR2:=
0.01667*FAP1*ASY1; DR2Q:=ord(RAS11)*DR2; DR3:=MIN(0.33333*FAP1,
0.01667*FAP1*ASY1); DR3Q:=ord(ROT10)*DR3; DR4:=DR3; DR4Q:=ord(
RAS13)*DR4; DRT:=MAX(DR1,DR2,DR3,DR4); DRQ:=MAX(DR1Q,DR2Q,DR3Q,
DR4Q); DS1:=0.5*FAP2; DS1Q:=ord(ROT13)*DS1; DS2:=0.083*FAP2*u(
ASY1,36.0); DS2Q:=ord(ROT14)*AA(QUITD,LNG14+QUITD)*DS2; DST:=MAX(
DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((ASY1>=
10.0)!(QUITAGE>=70.0)&(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,
NR1Q,NR1,BEG7,LNG14,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP2,FDFAP2,FAP1,
SDFAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0731s455; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; PSY13:=BIRTHD+55.0-HIRED; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); FDSS1:=MIN(QUITD,
BIRTHD+70.0); SS1:=ord(FDSS1>HIRED)*SSBASE(BENIFITD); RED4:=NN(
1.0-0.06*o(65.0,AGE)); RED5:=NN(1.0-0.06*o(85.0,AGE+ASY1));
RED6:=NN(1.0-0.06*o(40.0,ASY1)); RED7:=AR(NRD-BENIFITD); RED13:=
JSRED; RAS1:=(AGE>=65.0)!(ASY1>=40.0)!(AGE+ASY1>=85.0)&(AGE>=
60.0); RAS4:=(AGE>=60.0)&(ASY1>=10.0)!(AGE+ASY1>=70.0)&(AGE>=
55.0); RAS13:=(ASY1>=25.0)!(AGE>=50.0)&(ASY1>=10.0); ROT4:=
QAPPROVL; LNG2:=BIRTHD+SSAGE(2.0); BGN3:=MAX(BIRTHD+62.0,QUITD);
LNG3:=BIRTHD+65.0; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); NR1:=(0.0125*u(FAP1,SS1)+0.018*o(FAP1,
SS1))*u(ASY1,30.0)+0.01*FAP1*o(ASY1,30.0); NR1Q:=ord(RAS1)*NR1;
NR2:=3000.0; NR2Q:=ord(RAS1)*AA(QUITD,LNG2)*NR2; NR3:=1620.0;
NR3Q:=ord(RAS1)*AA(BGN3,LNG3)*NR3; NRT:=NR1+NR2+NR3; NRQ:=NR1Q+
NR2Q+NR3Q; LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4&
ROT4)*ER1; ER2:=NR1*RED5; ER2Q:=ord(RAS4&ROT4)*ER2; ER3:=NR1*
RED6; ER3Q:=ord(RAS4&ROT4)*ER3; ERT:=MAX(ER1,ER2,ER3); ERQ:=MAX(
ER1Q,ER2Q,ER3Q); VD1:=NR1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=NR1*RED7;
VD2Q:=ord(ROT4)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q); DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS13)*DS1; DS2:=((
0.0125*u(FAP1,SS1)+0.018*o(FAP1,SS1))*u(PSY13,30.0)+0.01*FAP1*o(
PSY13,30.0))*RED13*0.5; DS2Q:=ord(RAS13)*DS2; DST:=MAX(DS1,DS2);
DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(
ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,BEG8,BEG7,LNG3,
BGN3,LNG2,RED13,RED7,RED6,RED5,RED4,SS1,FDSS1,FAP1,FDFAP1,PSY13,
ASY1,CNQ) <0 then negative end;

procedure c0732s987; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*1.0;
FAP1:=WAGE(QUITD); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR;
MAN7:=SUMI(PCMAN7,97.0,0.0,SDMAN7,FDMAN7); RED4:=1.0-(0.0587*a(
AGE,51.0,50.0)+0.06*a(AGE,52.0,51.0)+0.0425*a(AGE,53.0,52.0));
RED5:=1.0-(0.0543*a(AGE,54.0,53.0)+0.0549*a(AGE,55.0,54.0)+
0.0548*a(AGE,56.0,55.0)); RED6:=1.0-(0.0555*a(AGE,57.0,56.0)+
0.0379*a(AGE,58.0,57.0)+0.0365*a(AGE,59.0,58.0)); RED7:=1.0-(
0.0352*a(AGE,60.0,59.0)+0.034*a(AGE,61.0,60.0)+0.0325*a(AGE,
62.0,61.0)); RED10:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=(AGE>=
65.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=(ASY1>=30.0)!(AGE>=50.0)&(
ASY1>=10.0); RAS10:=ASY1>=5.0; ROT10:=^QJRDABLE; ROT11:=QJRDABLE;
LNG13:=1.0; BEG7:=MAX(ERD,QUITD); NR1:=0.02611*FAP1*ASY1; NR1Q:=
ord(RAS1)*NR1; NR2:=FAP1; NR2Q:=ord(RAS1)*NR2; NRT:=MIN(NR1,NR2);
NRQ:=MIN(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4*RED5*
RED6*RED7; ER1Q:=ord(RAS4)*ER1; ER2:=FAP1; ER2Q:=ord(RAS4)*ER2;
ERT:=MIN(ER1,ER2); ERQ:=MIN(ER1Q,ER2Q); VD1:=ERT; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NR1*RED10; DR1Q:=ord(RAS10&
ROT10)*DR1; DR2:=0.5*FAP1; DR2Q:=ord(ROT11)*DR2; DRT:=MAX(DR1,
DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.6*ERT*RED13; DS1Q:=ord(RAS4)*
DS1; DS2:=FAP1/12.0*u(ASY1,6.0); DS2Q:=AA(QUITD,LNG13+QUITD)*DS2;
DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=MIN(0.95*ACPIG,
0.03); VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=5.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR2Q,NR2,NR1Q,NR1,BEG7,LNG13,RED13,RED10,RED7,RED6,RED5,RED4,
MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,ASY1,CNQ) <0 then negative end;

procedure c0733s119; begin CNQ:=0.0; ASY1:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/2080.0); FAP1:=WAGE(MIN(QUITD,MAX(BIRTHD+65.0,QUITD-
ASY1+42.0))); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR;
MAN7:=SUMI(PCMAN7,97.0,0.0,SDMAN7,FDMAN7); RED4:=0.06*a(AGE,51.0,
50.0)+0.06*a(AGE,53.0,51.0)+0.06*a(AGE,54.0,53.0); RED5:=0.07*a(
AGE,55.0,54.0)+0.07*a(AGE,56.0,55.0)+0.08*a(AGE,57.0,56.0);
RED6:=0.08*a(AGE,58.0,57.0)+0.09*a(AGE,59.0,58.0)+0.1*a(AGE,
60.0,59.0); RED7:=0.07*a(AGE,61.0,60.0)+0.1*a(AGE,62.0,61.0)+
0.11*a(AGE,63.0,62.0); RED8:=0.11*a(AGE,64.0,63.0)+0.12*a(AGE,
65.0,64.0); RAS1:=(ASY1>=30.0)!(AGE>=50.0)&(ASY1>=10.0); RAS4:=(
ASY1>=30.0)!(AGE>=50.0)&(ASY1>=10.0); RAS11:=ASY1>=5.0; ROT10:=
QJRDABLE; ROT11:=^QJRDABLE; LNG13:=1.0; BEG7:=ANYTIME(BIRTHD+
50.0,BIRTHD+70.0); NR1:=(0.02432*u(ASY1,41.0)+0.0029*b(ASY1,41.0,
42.0))*MAX(1.0-RED4,1.0-RED5,1.0-RED6,1.0-RED7,1.0-RED8)*ASY1*
FAP1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=
70.0; ER1:=NRT; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=
NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=0.5*FAP1;
DR1Q:=ord(ROT10)*DR1; DR2:=0.33333*FAP1; DR2Q:=ord(RAS11&ROT11)*
DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.08333*FAP1*u(
ASY1,6.0); DS1Q:=AA(QUITD,LNG13+QUITD)*DS1; DS2:=0.6*DR2; DS2Q:=
ord(RAS11)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=
MIN(0.95*ACPIG,0.05); VEDB:=VOPT(ord(ASY1>=5.0)*1.0); if min(
VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,
BEG7,LNG13,RED8,RED7,RED6,RED5,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP1,ASY1,CNQ) <0 then negative end;

procedure c0735s853; begin CNQ:=0.0; ASY1:=MIN(20.0,QUITD-HIRED)*
1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1);
RAS1:=(ASY1>=35.0)!(AGE>=60.0)&(ASY1>=15.0); ROT10:=QJRDABLE;
BEG7:=MAX(BIRTHD+60.0,QUITD); NR1:=0.025*FAP1*ASY1; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ERQ:=0.0;
VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT;
DR1Q:=DR1; DR2:=0.5*FAP1; DR2Q:=ord(ROT10)*DR2; DRT:=MAX(DR1,DR2)
;DRQ:=MAX(DR1Q,DR2Q); PRAG:=TAR(0.5*FAR(ACPIG,1.0),1.0); VEDB:=
VOPT(ord(ASY1>=15.0)*1.0); if min( VEDB,PRAG,DRQ,DRT,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,BEG7,
FAP1,FDFAP1,ASY1,CNQ) <0 then negative end;

procedure c0736s837; begin CNQ:=0.0; ASY1:=MIN(30.0,QUITD-HIRED)*
NNMIN(1.0,WRKHRS/1080.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(
HIRED,FDFAP1-2.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
0.0511; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); RED4:=AR(65.0-
AGE); RAS1:=(AGE>=65.0)&(ASY1>=5.0); RAS4:=(AGE>=55.0)&(ASY1>=
20.0); RAS13:=(ASY1>=10.0)!(AGE>=65.0)&(ASY1>=5.0); ROT7:=ASY1>=
20.0; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG8:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); NR1:=0.02*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=
120.0*ASY1; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(
NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(
RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1;
VD2:=ERT; VD2Q:=ord(ROT7)*AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2);
VDQ:=MAX(VD1Q,VD2Q); DR1:=0.02*FAP1*ASY1*RED4; DR1Q:=DR1; DRT:=
DR1; DRQ:=DR1Q; DS1:=DR1; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=
DS1Q; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=5.0)*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG8,
BEG7,RED4,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1,CNQ) <0
then negative end;

procedure c0737s501; begin CNQ:=0.0; ASY1:=(MIN(QUITD,MAX(BIRTHD+
68.0,HIRED+10.0))-HIRED)*NNMIN(1.0,WRKHRS/1700.0); ASY2:=NN(
QUITD-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=750.0)*1.0; FDFAP1:=
MIN(QUITD,BIRTHD+62.0); FAP1:=ord(FDFAP1>HIRED)*WAGE(FDFAP1);
RED4:=AR(NRD-BENIFITD); RED5:=12.0*a(AGE,56.0,55.0)+15.0*a(AGE,
59.0,56.0)+18.0*a(AGE,60.0,59.0); RAS1:=(AGE>=70.0)!(AGE>=62.0)&(
ASY1>=10.0); RAS4:=ASY1>=30.0; RAS5:=(ASY1>=30.0)!(AGE>=60.0)&(
ASY1>=10.0)!(AGE+ASY1>=85.0)&(AGE>=55.0); RAS6:=AGE+ASY1>=85.0;
RAS10:=ASY1>=10.0; ROT10:=^QSSDABLE; BGN2:=MAX(BIRTHD+65.0,QUITD)
;LNG4:=BIRTHD+62.0; BGN5:=MAX(BIRTHD+62.0,QUITD); LNG10:=BIRTHD+
65.0; BEG7:=MAX(BIRTHD+65.0,QUITD); BEG11:=MAX(BIRTHD+65.0,QUITD)
;BEG12:=MAX(BIRTHD+62.0,QUITD); BEG14:=MAX(BIRTHD+65.0,QUITD);
NR1:=222.84*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=116.4; NR2Q:=ord(
RAS1)*AA(BGN2,0.0)*NR2; NRT:=NR1+NR2; NRQ:=NR1Q+NR2Q; LRQ:=NRQ;
MRAGE:=70.0; ER1:=MIN(0.7*FAP1,11220.0); ER1Q:=ord(RAS4)*AA(
QUITD,LNG4)*ER1; ER2:=NR1*RED4; ER2Q:=ord(RAS4)*AA(BGN5,0.0)*ER2;
ER3:=NR1*RED4; ER3Q:=ord(RAS5)*AA(BGN5,0.0)*ER3; ER4:=NR1*RED4+(
138.0-RED5)*ASY1; ER4Q:=ord(RAS5)*AA(QUITD,LNG4)*ER4; ER5:=NR1;
ER5Q:=ord(RAS6)*AA(BGN5,0.0)*ER5; ERT:=MAX(ER1+ER2,ER3+ER4,ER4+
ER5); ERQ:=MAX(ER1Q+ER2Q,ER3Q+ER4Q,ER4Q+ER5Q); VD1:=NRT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NR1; DR1Q:=ord(RAS10)
*DR1; DR2:=NR1+180.0*u(ASY1,25.0); DR2Q:=ord(RAS10&ROT10)*AA(
QUITD,LNG4)*DR2; DR3:=NR1; DR3Q:=ord(RAS10&ROT10)*AA(BEG12,LNG10)
*DR3; DR4:=NR2; DR4Q:=ord(RAS10)*AA(BEG11,0.0)*DR4; DRT:=MAX(DR1+
DR4,DR2+DR3+DR4); DRQ:=MAX(DR1Q+DR4Q,DR2Q+DR3Q+DR4Q); DS1:=0.57*
NR1; DS1Q:=ord(RAS5)*DS1; DS2:=NR2; DS2Q:=ord(RAS5)*AA(BEG14,0.0)
*DS2; DST:=DS1+DS2; DSQ:=DS1Q+DS2Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=70.0)!(ASY2>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,NR1,BEG14,BEG12,BEG11,
BEG7,LNG10,BGN5,LNG4,BGN2,RED5,RED4,FAP1,FDFAP1,ASY2,ASY1,CNQ)
<0 then negative end;

procedure c3003s1055; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); SDVOL1:=MAX(
HIRED,BIRTHD+2.0); FDVOL1:=QUITD; PCVOL1:=MAX(100.0,MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=CNT; if min(
CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,
VCT1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3004s606; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(
ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0));
SDCOE1:=MAX(HIRED,BIRTHD+1.0); FDCOE1:=QUITD; PCCOE1:=120.0/WAGE(
SURVEYD); COE1:=SUMI(PCCOE1,2.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=
1000.0)*1.0*VCO1; CNT:=COE1; CNQ:=ord(AGE>=65.0)*CNT; if min(
CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3006s393; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=5.0)*0.4,ord(
ASY16>=8.0)*0.7,ord((QUITAGE>=60.0)!(ASY16>=11.0))*1.0)); VCT2:=
VOPT(MAX(ord(ASY16>=5.0)*0.4,ord(ASY16>=8.0)*0.7,ord((QUITAGE>=
60.0)!(ASY16>=11.0))*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+1.0);
FDVOL1:=QUITD; PCVOL1:=MAX(0.03*WAGE(SURVEYD),MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
ord(WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0);
FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,
FDCTE2)*ord(WRKHRS>=1000.0)*1.0*VCT2; CNT:=VOL1+CTE1+CTE2; CNQ:=
ord((AGE>=60.0)&(ASY16>=10.0))*CNT; if min( CNQ,CNT,CTE2,PCCTE2,
FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,
SDVOL1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3007s176; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
1.0; VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(ASY16>=5.0)*0.5,ord((
QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VCT2:=VOPT(MAX(ord(ASY16>=
1.0)*0.1,ord(ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*
1.0)); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(
0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,
BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,
7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0);
FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,
FDCTE2)*1.0*VCT2; CNT:=VOL1+CTE1+CTE2; CNQ:=ord(AGE>=65.0)*CNT;
if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,
SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3008s963; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
70.0)-MAX(HIRED,MIN(HIRED+3.0,BIRTHD+35.0)))*1.0; VCO1:=VOPT(1.0)
;SDMAN1:=MAX(HIRED,MIN(BIRTHD+35.0,HIRED+3.0)); FDMAN1:=QUITD;
PCMAN1:=0.07; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDCOE1:=
MAX(HIRED,MAX(BIRTHD+35.0,HIRED+3.0)); FDCOE1:=QUITD; VR1COE1:=
ord(7800.0>WAGE(SURVEYD))*0.05+ord(WAGE(SURVEYD)>=7800.0)*0.1;
PCCOE1:=VR1COE1; COE1:=SUMI(PCCOE1,7.0,0.0,SDCOE1,FDCOE1)*1.0*
VCO1; CNT:=MAN1+COE1; CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,
COE1,PCCOE1,VR1COE1,FDCOE1,SDCOE1,MAN1,PCMAN1,FDMAN1,SDMAN1,
VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3010s819; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCT1:=VOPT(MAX(ord(ASY16>=4.0)*0.4,ord(ASY16>=7.0)*0.6,ord(
ASY16>=11.0)*1.0)); VCT2:=VOPT(MAX(ord(ASY16>=4.0)*0.4,ord(
ASY16>=7.0)*0.6,ord(ASY16>=11.0)*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+
1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1)
;SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1;
CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; SDCTE2:=MAX(
HIRED,BIRTHD+1.0); FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(
PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2; CNT:=VOL1+CTE1+CTE2;
CNQ:=CNT; if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,
FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT2,VCT1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3011s337; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; SDVOL1:=HIRED; FDVOL1:=QUITD;
PCVOL1:=MAX(0.0,MIN(MAX(2000.0,0.95*WAGE(SURVEYD)),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDVOL2:=HIRED; FDVOL2:=QUITD; PCVOL2:=MAX(0.0,MIN(0.1*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL2:=SUMI(
PCVOL2,2.0,0.0,SDVOL2,FDVOL2); SDVOL3:=HIRED; FDVOL3:=QUITD;
PCVOL3:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL3:=SUMI(
PCVOL3,2.0,0.0,SDVOL3,FDVOL3); CNT:=VOL1+VOL2+VOL3; CNQ:=ord(
AGE>=55.0)*CNT; if min( CNQ,CNT,VOL3,PCVOL3,FDVOL3,SDVOL3,VOL2,
PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3012s338; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDVOL1:=
HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(VOL1NAR*WAGE(SURVEYD),MIN(
VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=HIRED; FDCOE1:=QUITD;
PCCOE1:=0.1; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1;
CNT:=VOL1+COE1; CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,CNT,COE1,
PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO1,VEDB,DSQ,
DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3013s9; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=0.0;
DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); VCO1:=VOPT(1.0);
SDVOL1:=HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=HIRED; FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1;
SDCOE1:=HIRED; FDCOE1:=QUITD; PCCOE1:=0.01; COE1:=SUMI(PCCOE1,
8.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; CNT:=VOL1+CTE1+COE1; CNQ:=CNT;
if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,CTE1,PCCTE1,FDCTE1,
SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO1,VCT1,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3014s950; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDMAN1:=MAX(
HIRED,BIRTHD+1.0); FDMAN1:=QUITD; PCMAN1:=0.055; MAN1:=SUMI(
PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDCOE1:=MAX(HIRED,BIRTHD+1.0);
FDCOE1:=QUITD; PCCOE1:=0.055; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,
FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=MAN1+COE1; CNQ:=CNT;
if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,MAN1,PCMAN1,FDMAN1,
SDMAN1,VCO1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3015s379; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1000.0); VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(
ASY16>=5.0)*0.5,ord((ASY16>=10.0)!(QUITAGE>=65.0)&(ASY16>=5.0))*
1.0)); VCT2:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(ASY16>=5.0)*0.5,
ord((ASY16>=10.0)!(QUITAGE>=65.0)&(ASY16>=5.0))*1.0)); SDVOL1:=
MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0);
FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,
FDCTE1)*1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0); FDCTE2:=QUITD;
PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*
VCT2; CNT:=VOL1+CTE1+CTE2; CNQ:=CNT; if min( CNQ,CNT,CTE2,PCCTE2,
FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,
SDVOL1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3016s431; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=3.0)*0.3,ord(
ASY16>=6.0)*0.6,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VCO1:=
VOPT(MAX(ord(ASY16>=3.0)*0.3,ord(ASY16>=6.0)*0.5,ord((QUITAGE>=
65.0)!(ASY16>=10.0))*1.0)); SDCTE1:=HIRED; FDCTE1:=QUITD;
PCCTE1:=CRFORT1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*
VCT1; SDCOE1:=HIRED; FDCOE1:=QUITD; PCCOE1:=0.1; COE1:=SUMI(
PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; CNT:=COE1+CTE1; CNQ:=CNT;
if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,CTE1,PCCTE1,FDCTE1,
SDCTE1,VCO1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3017s432; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=3.0)*0.3,ord(
ASY16>=6.0)*0.6,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VCT2:=
VOPT(MAX(ord(ASY16>=3.0)*0.3,ord(ASY16>=6.0)*0.6,ord((QUITAGE>=
65.0)!(ASY16>=10.0))*1.0)); SDCTE1:=HIRED; FDCTE1:=QUITD;
PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*
VCT1; SDCTE2:=HIRED; FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(
PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2; CNT:=CTE1+CTE2; CNQ:=ord(
AGE>=65.0)*CNT; if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,
PCCTE1,FDCTE1,SDCTE1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3019s741; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(ord((QUITAGE>=65.0)!(ASY16>=12.0)
)*1.0); SDVOL1:=MAX(HIRED,MAX(BIRTHD+22.0,HIRED+1.0)); FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD))
)/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
SDCTE1:=MAX(HIRED,MAX(BIRTHD+22.0,HIRED+1.0)); FDCTE1:=QUITD;
PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*
VCT1; CNT:=VOL1+CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,
FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3020s799; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(1.0); VCT2:=VOPT(1.0); VCT3:=
VOPT(1.0); SDVOL1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0));
FDVOL1:=QUITD; PCVOL1:=MAX(0.02*WAGE(SURVEYD),MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+
1.0)); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,
MAX(BIRTHD+25.0,HIRED+1.0)); FDCTE2:=QUITD; PCCTE2:=CRPROF2;
CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=1000.0)*
1.0*VCT2; SDCTE3:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCTE3:=
QUITD; PCCTE3:=CRFORT1; CTE3:=SUMI(PCCTE3,7.0,0.0,SDCTE3,FDCTE3)*
ord(WRKHRS>=1000.0)*1.0*VCT3; CNT:=VOL1+CTE1+CTE2+CTE3; CNQ:=ord(
(AGE>=65.0)!(AGE>=50.0)&(ASY16>=10.0))*CNT; if min( CNQ,CNT,CTE3,
PCCTE3,FDCTE3,SDCTE3,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,
FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT3,VCT2,VCT1,ASY16,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3021s566; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.14,ord(ASY16>=4.0)*0.56,ord((
ASY16>=7.0)!(QUITAGE>=65.0)&(ASY16>=5.0))*1.0)); VCT2:=VOPT(MAX(
ord(ASY16>=1.0)*0.14,ord(ASY16>=4.0)*0.56,ord((ASY16>=7.0)!(
QUITAGE>=65.0)&(ASY16>=5.0))*1.0)); VCO1:=VOPT(MAX(ord(ASY16>=
1.0)*0.14,ord(ASY16>=4.0)*0.56,ord((ASY16>=7.0)!(QUITAGE>=65.0)&
(ASY16>=5.0))*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD))
)/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1;
CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; SDCTE2:=MAX(
HIRED,BIRTHD+1.0); FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(
PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2; SDCOE1:=MAX(HIRED,BIRTHD+
1.0); FDCOE1:=QUITD; PCCOE1:=0.07; COE1:=SUMI(PCCOE1,5.0,0.0,
SDCOE1,FDCOE1)*1.0*VCO1; CNT:=VOL1+CTE1+COE1+CTE2; CNQ:=CNT; if
min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,CTE2,PCCTE2,FDCTE2,SDCTE2,
CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO1,VCT2,
VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3022s646; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; VCO1:=VOPT(MAX(ord(
ASY16>=1.0)*0.2,ord(ASY16>=3.0)*0.6,ord((QUITAGE>=65.0)!(ASY16>=
5.0))*1.0)); SDVOL1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0));
FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCOE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCOE1:=
QUITD; VR1COE1:=ord(7200.0>WAGE(SURVEYD))*0.08+ord(WAGE(SURVEYD)
>=7200.0)*0.15; PCCOE1:=VR1COE1; COE1:=SUMI(PCCOE1,7.0,0.0,
SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=VOL1+COE1;
CNQ:=CNT; if min( CNQ,CNT,COE1,PCCOE1,VR1COE1,FDCOE1,SDCOE1,VOL1,
PCVOL1,FDVOL1,SDVOL1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3023s726; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1500.0)*1.0; VCO1:=VOPT(1.0); SDVOL1:=HIRED; FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,BIRTHD+2.0)
;FDCOE1:=QUITD; VR1COE1:=ord(3.0>ASY16)*0.02+ord((6.0>ASY16)&(
ASY16>=3.0))*0.0233+ord((10.0>ASY16)&(ASY16>=6.0))*0.0288+ord((
17.0>ASY16)&(ASY16>=10.0))*0.0359+ord(ASY16>=17.0)*0.0447;
PCCOE1:=VR1COE1; COE1:=SUMI(PCCOE1,7.0,0.0,SDCOE1,FDCOE1)*ord(
WRKHRS>=1500.0)*1.0*VCO1; CNT:=VOL1+COE1; CNQ:=CNT; if min( CNQ,
CNT,COE1,PCCOE1,VR1COE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,
VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3024s624; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=4.0)*0.4,ord(
ASY16>=7.0)*0.6,ord(ASY16>=11.0)*1.0)); VCT2:=VOPT(MAX(ord(
ASY16>=4.0)*0.4,ord(ASY16>=7.0)*0.6,ord(ASY16>=11.0)*1.0));
SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,
MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0)
;FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,
BIRTHD+1.0); FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,
7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=1000.0)*1.0*VCT2; CNT:=VOL1+
CTE1+CTE2; CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,CTE2,PCCTE2,
FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,
SDVOL1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3025s757; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+18.0))*ord(WRKHRS>=1000.0)*1.0; VMV1:=VOPT(MAX(ord(
ASY16>=1.0)*0.2,ord(ASY16>=3.0)*0.6,ord((QUITAGE>=55.0)!(ASY16>=
5.0))*1.0)); VCO1:=VOPT(MAX(ord(ASY16>=1.0)*0.2,ord(ASY16>=3.0)*
0.6,ord((QUITAGE>=55.0)!(ASY16>=5.0))*1.0)); SDMAN1:=MAX(HIRED,
MAX(BIRTHD+18.0,HIRED+1.0)); FDMAN1:=QUITD; PCMAN1:=0.03; MAN1:=
SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDVOL1:=MAX(HIRED,MAX(BIRTHD+
18.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD),
MIN(0.02*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=MAX(HIRED,MAX(
BIRTHD+18.0,HIRED+1.0)); FDVOL2:=QUITD; PCVOL2:=MAX(0.0,MIN(0.08*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL2:=SUMI(
PCVOL2,2.0,0.0,SDVOL2,FDVOL2); PCMVOL1:=PCVOL1; MVOL1:=SUMI(
PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1; SDCOE1:=MAX(HIRED,MAX(
BIRTHD+18.0,HIRED+1.0)); FDCOE1:=QUITD; PCCOE1:=0.05; COE1:=SUMI(
PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=
MAN1+VOL1+VOL2+MVOL1+COE1; CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,
CNT,COE1,PCCOE1,FDCOE1,SDCOE1,MVOL1,PCMVOL1,VOL2,PCVOL2,FDVOL2,
SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCO1,
VMV1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3026s632; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDCOE1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+3.0)); FDCOE1:=MIN(QUITD,BIRTHD+65.0)
;PCCOE1:=0.1; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1;
CNT:=COE1; CNQ:=CNT; if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,
VCO1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3027s897; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=5.0)*0.25,ord(
ASY16>=10.0)*0.75,ord((QUITAGE>=55.0)!(ASY16>=15.0))*1.0));
VCO1:=VOPT(MAX(ord(ASY16>=5.0)*0.25,ord(ASY16>=10.0)*0.75,ord((
QUITAGE>=55.0)!(ASY16>=15.0))*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+
1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*
WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDVOL2:=MAX(HIRED,BIRTHD+1.0); FDVOL2:=MIN(QUITD,BIRTHD+
71.0); PCVOL2:=MAX(0.0,MIN(MAX(2000.0,0.95*WAGE(SURVEYD)),CRVOL*
WAGE(SURVEYD)))/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,
FDVOL2); SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=
CRFORT1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=
1000.0)*1.0*VCT1; SDCOE1:=MAX(HIRED,BIRTHD+1.0); FDCOE1:=QUITD;
PCCOE1:=0.02; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*ord(
WRKHRS>=1000.0)*1.0*VCO1; CNT:=VOL1+VOL2+COE1+CTE1; CNQ:=ord((
AGE>=62.0)!(AGE>=55.0)&(ASY16>=15.0))*CNT; if min( CNQ,CNT,COE1,
PCCOE1,FDCOE1,SDCOE1,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL2,PCVOL2,
FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO1,VCT1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3028s571; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); VCO2:=VOPT(
1.0); VCO3:=VOPT(1.0); SDCOE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+
3.0)); FDCOE1:=MIN(QUITD,1985.0); PCCOE1:=0.035; COE1:=SUMI(
PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; SDCOE2:=MAX(HIRED,MAX(
BIRTHD+25.0,HIRED+3.0),1985.0); FDCOE2:=QUITD; PCCOE2:=0.0325;
COE2:=SUMI(PCCOE2,8.0,0.0,SDCOE2,FDCOE2)*1.0*VCO2; SDCOE3:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+3.0)); FDCOE3:=QUITD; PCCOE3:=0.04;
COE3:=SUMI(PCCOE3,5.0,0.0,SDCOE3,FDCOE3)*1.0*VCO3; CNT:=MAX(COE1,
COE2)+COE3; CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,CNT,COE3,PCCOE3,
FDCOE3,SDCOE3,COE2,PCCOE2,FDCOE2,SDCOE2,COE1,PCCOE1,FDCOE1,
SDCOE1,VCO3,VCO2,VCO1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3029s572; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); VCO2:=VOPT(
1.0); SDCOE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+3.0)); FDCOE1:=MIN(
QUITD,1985.0); PCCOE1:=0.005; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,
FDCOE1)*1.0*VCO1; SDCOE2:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+3.0),
1985.0); FDCOE2:=QUITD; PCCOE2:=0.0075; COE2:=SUMI(PCCOE2,8.0,
0.0,SDCOE2,FDCOE2)*1.0*VCO2; CNT:=COE1+COE2; CNQ:=ord(AGE>=55.0)*
CNT; if min( CNQ,CNT,COE2,PCCOE2,FDCOE2,SDCOE2,COE1,PCCOE1,
FDCOE1,SDCOE1,VCO2,VCO1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3030s98; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=0.0;
DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+1.0,
BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY17:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY17>=
5.0)*0.25,ord(ASY17>=10.0)*0.5,ord((QUITAGE>=65.0)!(ASY17>=15.0)
)*1.0)); SDCTE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=CTE1; CNQ:=ord(AGE>=65.0)*CNT;
if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,ASY17,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3031s99; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=0.0;
DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VMM1:=VOPT(1.0); VMV1:=VMM1;
SDMAN1:=HIRED; FDMAN1:=QUITD; PCMAN1:=0.06; MAN1:=SUMI(PCMAN1,
8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=0.15*PCMAN1; MMAN1:=SUMI(
PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=HIRED; FDVOL1:=
QUITD; PCVOL1:=MAX(0.05*WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); PCMVOL1:=0.15*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,
0.0,SDVOL1,FDVOL1)*VMV1; CNT:=MAN1+VOL1+u(MMAN1+MVOL1,45.0);
CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,CNT,MVOL1,PCMVOL1,VOL1,
PCVOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,
VMV1,VMM1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3032s74; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=0.0;
DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0; VCO1:=
VOPT(1.0); SDCOE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+3.0));
FDCOE1:=QUITD; VR1COE1:=ord(55.0>AGE)*0.04+ord((60.0>AGE)&(AGE>=
55.0))*0.06+ord(AGE>=60.0)*0.08; PCCOE1:=VR1COE1; COE1:=SUMI(
PCCOE1,7.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; CNT:=COE1; CNQ:=ord(AGE>=
65.0)*CNT; if min( CNQ,CNT,COE1,PCCOE1,VR1COE1,FDCOE1,SDCOE1,
VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3033s75; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=0.0;
DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0; VMM1:=
VOPT(1.0); VMV1:=VOPT(1.0); SDMAN1:=MAX(HIRED,MAX(BIRTHD+23.0,
HIRED+1.0)); FDMAN1:=QUITD; PCMAN1:=0.02; MAN1:=SUMI(PCMAN1,8.0,
0.0,SDMAN1,FDMAN1); VR1MMAN1:=ord(1.0>ASY16)*0.25+ord((3.0>ASY16)
&(ASY16>=1.0))*0.5+ord((4.0>ASY16)&(ASY16>=3.0))*0.75+ord(
ASY16>=4.0)*1.0; PCMMAN1:=VR1MMAN1*PCMAN1; MMAN1:=SUMI(PCMMAN1,
7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=MAX(HIRED,MAX(BIRTHD+23.0,
HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.14*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); VR1MVOL1:=ord(1.0>ASY16)*0.25+ord((
3.0>ASY16)&(ASY16>=1.0))*0.5+ord((4.0>ASY16)&(ASY16>=3.0))*0.75+
ord(ASY16>=4.0)*1.0; PCMVOL1:=VR1MVOL1*PCVOL1; MVOL1:=SUMI(
PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1; CNT:=MAN1+MMAN1+VOL1+MVOL1;
CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,MVOL1,PCMVOL1,VR1MVOL1,
VOL1,PCVOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,VR1MMAN1,MAN1,PCMAN1,
FDMAN1,SDMAN1,VMV1,VMM1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3035s374; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=3.0)*0.3,ord(
ASY16>=5.0)*0.5,ord(ASY16>=10.0)*1.0)); VCT2:=VOPT(MAX(ord(
ASY16>=3.0)*0.3,ord(ASY16>=5.0)*0.5,ord(ASY16>=10.0)*1.0));
VCT3:=VOPT(MAX(ord(ASY16>=3.0)*0.3,ord(ASY16>=5.0)*0.5,ord(
ASY16>=10.0)*1.0)); SDCTE1:=HIRED; FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=
1000.0)*1.0*VCT1; SDCTE2:=HIRED; FDCTE2:=QUITD; PCCTE2:=CRPROF2;
CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=1000.0)*
1.0*VCT2; SDCTE3:=HIRED; FDCTE3:=QUITD; PCCTE3:=CRFORT1; CTE3:=
SUMI(PCCTE3,7.0,0.0,SDCTE3,FDCTE3)*ord(WRKHRS>=1000.0)*1.0*VCT3;
CNT:=CTE1+CTE2+CTE3; CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,
CTE3,PCCTE3,FDCTE3,SDCTE3,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,
FDCTE1,SDCTE1,VCT3,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ)
<0 then negative end;

procedure c3036s375; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=3.0)*0.3,ord(
ASY16>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VCT2:=
VOPT(MAX(ord(ASY16>=3.0)*0.3,ord(ASY16>=7.0)*0.7,ord((QUITAGE>=
65.0)!(ASY16>=10.0))*1.0)); SDCTE1:=MAX(HIRED,BIRTHD+1.0);
FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,
FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+
1.0); FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,
SDCTE2,FDCTE2)*ord(WRKHRS>=1000.0)*1.0*VCT2; CNT:=CTE1+CTE2;
CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,
SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3037s308; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDVOL1:=
HIRED; FDVOL1:=MIN(QUITD,BIRTHD+65.0); PCVOL1:=MAX(VOL1NAR*WAGE(
SURVEYD),MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=
HIRED; FDCOE1:=QUITD; VR1COE1:=ord(9000.0>WAGE(SURVEYD))*0.11+
ord(WAGE(SURVEYD)>=9000.0)*0.15; PCCOE1:=VR1COE1; COE1:=SUMI(
PCCOE1,7.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; CNT:=COE1+VOL1; CNQ:=ord(
AGE>=65.0)*CNT; if min( CNQ,CNT,COE1,PCCOE1,VR1COE1,FDCOE1,
SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3038s307; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=2.0)*0.2,ord(
ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VCO2:=
VOPT(MAX(ord(ASY16>=2.0)*0.2,ord(ASY16>=5.0)*0.5,ord((QUITAGE>=
65.0)!(ASY16>=10.0))*1.0)); SDCOE1:=MAX(HIRED,BIRTHD+1.0);
FDCOE1:=MIN(QUITD,BIRTHD+70.0); PCCOE1:=COENAR; COE1:=SUMI(
PCCOE1,97.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1;
SDCOE2:=MAX(HIRED,BIRTHD+1.0); FDCOE2:=MIN(QUITD,BIRTHD+70.0);
PCCOE2:=COENAR; COE2:=SUMI(PCCOE2,97.0,0.0,SDCOE2,FDCOE2)*ord(
WRKHRS>=1000.0)*1.0*VCO2; CNT:=COE1+COE2; CNQ:=CNT; if min( CNQ,
CNT,COE2,PCCOE2,FDCOE2,SDCOE2,COE1,PCCOE1,FDCOE1,SDCOE1,VCO2,
VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3039s54; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=0.0;
DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+1.0,
BIRTHD+18.0))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=
1.0)*0.1,ord(ASY16>=5.0)*0.5,ord(ASY16>=10.0)*1.0)); SDVOL1:=MAX(
HIRED,MAX(BIRTHD+18.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(
0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,MAX(
BIRTHD+18.0,HIRED+1.0)); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=
SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1;
CNT:=VOL1+CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,
SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3041s21; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=0.0;
DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); VCT2:=VOPT(1.0);
SDCTE1:=HIRED; FDCTE1:=MIN(QUITD,BIRTHD+65.0); PCCTE1:=CRPROF1;
CTE1:=ord(QUITD>=1977.75)*SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
ord(WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0);
FDCTE2:=MIN(QUITD,BIRTHD+65.0); PCCTE2:=CRPROF2; CTE2:=ord(
QUITD>=1977.75)*SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=
1000.0)*1.0*VCT2; CNT:=CTE1+CTE2; CNQ:=CNT; if min( CNQ,CNT,CTE2,
PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT2,VCT1,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3042s40; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=0.0;
DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=2.0)*0.05,ord(
ASY16>=6.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=9.0))*1.0)); VCT2:=
VOPT(MAX(ord(ASY16>=2.0)*0.05,ord(ASY16>=6.0)*0.5,ord((QUITAGE>=
65.0)!(ASY16>=9.0))*1.0)); VCT3:=VOPT(MAX(ord(ASY16>=2.0)*0.05,
ord(ASY16>=6.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=9.0))*1.0));
SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=QUITD; PCMAN1:=0.02;
MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDVOL1:=MAX(HIRED,
BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.02*WAGE(SURVEYD),MIN(
0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0)
;FDCTE1:=QUITD; PCCTE1:=0.02; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,
FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+
1.0); FDCTE2:=QUITD; PCCTE2:=CRPROF1; CTE2:=SUMI(PCCTE2,7.0,0.0,
SDCTE2,FDCTE2)*ord(WRKHRS>=1000.0)*1.0*VCT2; SDCTE3:=MAX(HIRED,
BIRTHD+1.0); FDCTE3:=QUITD; PCCTE3:=CRPROF2; CTE3:=SUMI(PCCTE3,
7.0,0.0,SDCTE3,FDCTE3)*ord(WRKHRS>=1000.0)*1.0*VCT3; CNT:=MAN1+
VOL1+CTE3+MIN(CTE1,CTE2); CNQ:=CNT; if min( CNQ,CNT,CTE3,PCCTE3,
FDCTE3,SDCTE3,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,
SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCT3,
VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3043s95; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=0.0;
DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*NNMIN(1.0,
WRKHRS/12.0); SDMAN1:=HIRED; FDMAN1:=QUITD; PCMAN1:=0.03; MAN1:=
SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDMAN2:=HIRED; FDMAN2:=QUITD;
PCMAN2:=0.05; MAN2:=SUMI(PCMAN2,8.0,0.0,SDMAN2,FDMAN2); SDMAN3:=
HIRED; FDMAN3:=QUITD; PCMAN3:=0.07; MAN3:=SUMI(PCMAN3,8.0,0.0,
SDMAN3,FDMAN3); CNT:=MAN1+MAN2+MAN3; CNQ:=ord((ASY16>=18.0)!(
AGE>=60.0)&(ASY16>=5.0))*CNT; if min( CNQ,CNT,MAN3,PCMAN3,FDMAN3,
SDMAN3,MAN2,PCMAN2,FDMAN2,SDMAN2,MAN1,PCMAN1,FDMAN1,SDMAN1,
ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3044s96; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=0.0;
DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+1.0,
BIRTHD+21.0))*1.0; VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(ASY16>=
5.0)*0.5,ord(ASY16>=10.0)*1.0)); SDVOL1:=MAX(HIRED,MAX(BIRTHD+
21.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+
1.0)); FDCTE1:=MIN(QUITD,BIRTHD+65.0); PCCTE1:=CRPROF1; CTE1:=
SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=VOL1+CTE1;
CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,
SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3045s67; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=0.0;
DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED,MIN(
HIRED+1.0,BIRTHD+25.0)))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(
ord(ASY16>=1.0)*0.1,ord(ASY16>=5.0)*0.5,ord(ASY16>=10.0)*1.0));
SDMAN1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDMAN1:=QUITD;
PCMAN1:=0.03; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDVOL1:=
MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=
MAX(0.0,MIN(0.07*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=
1000.0)*1.0*VCT1; CNT:=MAN1+VOL1+CTE1; CNQ:=ord(AGE>=65.0)*CNT;
if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,
SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3046s81; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=0.0;
DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*1.0;
VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.5,ord(ASY16>=4.0)*0.75,ord(
ASY16>=6.0)*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD;
PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=
VOL1+CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,
VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3047s13; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=0.0;
DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*1.0;
VCT1:=VOPT(MAX(ord(ASY16>=5.0)*0.5,ord(ASY16>=7.0)*0.7,ord((
QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VCT2:=VOPT(MAX(ord(ASY16>=
5.0)*0.5,ord(ASY16>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASY16>=10.0))*
1.0)); SDVOL1:=MAX(HIRED,1974.833); FDVOL1:=QUITD; PCVOL1:=MAX(
VOL1NAR*WAGE(SURVEYD),MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0,1974.833); FDCTE1:=QUITD;
PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*
VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0); FDCTE2:=QUITD; PCCTE2:=
CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2; CNT:=
CTE1+CTE2+VOL1; CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,CTE2,
PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3048s15; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=0.0;
DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); VCT2:=VOPT(1.0);
SDCTE1:=MAX(HIRED,BIRTHD+3.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1;
CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; SDCTE2:=MAX(
HIRED,BIRTHD+3.0); FDCTE2:=QUITD; PCCTE2:=CRPROF2; CTE2:=SUMI(
PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2; CNT:=CTE1+CTE2; CNQ:=CNT;
if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,
SDCTE1,VCT2,VCT1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3049s27; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=0.0;
DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*1.0;
VCT1:=VOPT(MAX(ord(ASY16>=2.0)*0.1428,ord(ASY16>=5.0)*0.5,ord((
QUITAGE>=62.0)!(ASY16>=9.0))*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+1.0)
;FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.06*WAGE(SURVEYD),CRVOL*
WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=
0.05; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=
VOL1+CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,
VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3050s305; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCT1:=VOPT(MAX(ord(ASY16>=2.0)*0.4,ord(ASY16>=3.0)*0.6,ord(
ASY16>=5.0)*1.0)); VCO1:=VCT1; SDMAN1:=MAX(HIRED,BIRTHD+1.0);
FDMAN1:=QUITD; PCMAN1:=0.02; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,
FDMAN1); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=
MAX(0.01*WAGE(SURVEYD),MIN(0.04*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDVOL2:=MAX(HIRED,BIRTHD+1.0); FDVOL2:=QUITD; PCVOL2:=
MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2); SDCTE1:=MAX(
HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(
PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1;
SDCOE1:=MAX(HIRED,BIRTHD+1.0); FDCOE1:=MIN(QUITD,1989.917);
PCCOE1:=0.04; COE1:=ord((HIRED<=1980.917)&(QUITD>=1980.917))*
SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1;
CNT:=MAX(CTE1+MAN1+COE1+VOL2,CTE1+MAN1+VOL1+VOL2); CNQ:=CNT; if
min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,CTE1,PCCTE1,FDCTE1,SDCTE1,
VOL2,PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,
FDMAN1,SDMAN1,VCO1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3051s306; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VMV1:=VOPT(1.0); VCT1:=VOPT(
1.0); SDVOL1:=HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.01*WAGE(
SURVEYD),MIN(0.06*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); PCMVOL1:=
PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1; SDCTE1:=
HIRED; FDCTE1:=QUITD; PCCTE1:=0.05; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=VOL1+MVOL1+
CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,MVOL1,
PCMVOL1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,VMV1,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3052s301; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,1976.0)-
MAX(HIRED+1.0,BIRTHD+21.0))*ord(WRKHRS>=900.0)*1.0; ASY17:=NN(
QUITD-MAX(HIRED+1.0,BIRTHD+23.0,1976.0))*ord(WRKHRS>=900.0)*1.0;
VCT1:=VOPT(1.0); VCT2:=VOPT(1.0); SDVOL1:=MAX(HIRED,MAX(BIRTHD+
21.0,HIRED+1.0)); FDVOL1:=MIN(QUITD,1976.0); PCVOL1:=MAX(260.0,
MIN(MAX(10000.0,0.1*WAGE(SURVEYD)),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=MAX(
HIRED,MAX(BIRTHD+23.0,HIRED+1.0),1976.0); FDVOL2:=QUITD; PCVOL2:=
MAX(260.0,MIN(MAX(10000.0,0.1*WAGE(SURVEYD)),CRVOL*WAGE(SURVEYD)
))/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2);
SDCTE1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDCTE1:=MIN(QUITD,
1976.0); PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,
FDCTE1)*ord(WRKHRS>=900.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,MAX(
BIRTHD+23.0,HIRED+1.0),1976.0); FDCTE2:=QUITD; PCCTE2:=CRPROF2;
CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=900.0)*1.0*
VCT2; CNT:=MAX(VOL1,VOL2)+MAX(CTE1,CTE2); CNQ:=CNT; if min( CNQ,
CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL2,
PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT2,VCT1,ASY17,
ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3054s228; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCT1:=VOPT(MAX(ord(ASY16>=6.0)*0.2,ord(ASY16>=8.0)*0.6,ord((
QUITAGE>=55.0)!(ASY16>=10.0))*1.0)); VCT2:=VOPT(1.0); VCT3:=VOPT(
MAX(ord(ASY16>=6.0)*0.2,ord(ASY16>=8.0)*0.6,ord((QUITAGE>=55.0)!
(ASY16>=10.0))*1.0)); SDCTE1:=HIRED; FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1;
SDCTE2:=HIRED; FDCTE2:=QUITD; PCCTE2:=CRPROF2; CTE2:=SUMI(PCCTE2,
7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2; SDCTE3:=HIRED; FDCTE3:=QUITD;
PCCTE3:=CRFORT1; CTE3:=SUMI(PCCTE3,7.0,0.0,SDCTE3,FDCTE3)*1.0*
VCT3; CNT:=CTE1+CTE2+CTE3; CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,
CNT,CTE3,PCCTE3,FDCTE3,SDCTE3,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,
PCCTE1,FDCTE1,SDCTE1,VCT3,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3055s115; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDVOL1:=MAX(
HIRED,BIRTHD+3.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=MAX(HIRED,BIRTHD+3.0); FDVOL2:=
QUITD; PCVOL2:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL2:=
SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2); SDCOE1:=MAX(HIRED,BIRTHD+3.0)
;FDCOE1:=QUITD; PCCOE1:=0.075; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,
FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=VOL1+VOL2+COE1; CNQ:=
ord(AGE>=65.0)*CNT; if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,
VOL2,PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO1,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3056s208; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCO1:=VOPT(MAX(ord(ASY16>=5.0)*0.25,ord(ASY16>=10.0)*0.5,ord((
QUITAGE>=65.0)!(ASY16>=15.0))*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+
3.0); FDVOL1:=QUITD; PCVOL1:=MAX(100.0,MIN(0.1*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,BIRTHD+1.0); FDCOE1:=MIN(QUITD,
BIRTHD+65.0); VR1COE1:=ord(6600.0>WAGE(SURVEYD))*0.03+ord((
13200.0>WAGE(SURVEYD))&(WAGE(SURVEYD)>=6600.0))*0.06+ord(WAGE(
SURVEYD)>=13200.0)*0.075; PCCOE1:=VR1COE1; COE1:=SUMI(PCCOE1,7.0,
0.0,SDCOE1,FDCOE1)*1.0*VCO1; CNT:=VOL1+COE1; CNQ:=ord(AGE>=60.0)*
CNT; if min( CNQ,CNT,COE1,PCCOE1,VR1COE1,FDCOE1,SDCOE1,VOL1,
PCVOL1,FDVOL1,SDVOL1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3057s203; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCO1:=VOPT(ord((QUITAGE>=65.0)!(ASY16>=5.0))*1.0); VCO2:=VOPT(
ord((QUITAGE>=65.0)!(ASY16>=5.0))*1.0); SDMAN1:=MAX(HIRED,BIRTHD+
1.0); FDMAN1:=QUITD; PCMAN1:=0.03; MAN1:=SUMI(PCMAN1,3.0,5200.0,
SDMAN1,FDMAN1); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD;
PCVOL1:=MAX(0.0,MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=
MAX(HIRED,BIRTHD+1.0); FDCOE1:=QUITD; PCCOE1:=0.06; COE1:=SUMI(
PCCOE1,3.0,312.0,SDCOE1,FDCOE1)*1.0*VCO1; SDCOE2:=MAX(HIRED,
BIRTHD+1.0); FDCOE2:=QUITD; PCCOE2:=0.09; COE2:=ord(QAPPROVL)*
SUMI(PCCOE2,3.0,468.0,SDCOE2,FDCOE2)*1.0*VCO2; CNT:=MAX(COE1,
COE2)+MAN1+VOL1; CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,COE2,
PCCOE2,FDCOE2,SDCOE2,COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCO2,VCO1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3058s201; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCT1:=VOPT(MAX(ord(ASY16>=4.0)*0.4,ord(ASY16>=7.0)*0.6,ord(
ASY16>=11.0)*1.0)); VCT2:=VOPT(MAX(ord(ASY16>=4.0)*0.4,ord(
ASY16>=7.0)*0.6,ord(ASY16>=11.0)*1.0)); SDCTE1:=MAX(HIRED,MAX(
BIRTHD+21.0,HIRED+1.0)); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=
SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; SDCTE2:=MAX(HIRED,
MAX(BIRTHD+21.0,HIRED+1.0)); FDCTE2:=QUITD; PCCTE2:=CRFORT1;
CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2; CNT:=CTE1+
CTE2; CNQ:=ord((AGE>=65.0)!(AGE>=55.0)&(ASY16>=11.0))*CNT; if
min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,
VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3059s192; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=3.0)*0.33,ord(
ASY16>=4.0)*0.66,ord(ASY16>=5.0)*1.0)); VCO2:=VOPT(1.0); SDVOL1:=
MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,CRVOL*WAGE(
SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1)
;SDCOE1:=MAX(HIRED,BIRTHD+1.0); FDCOE1:=QUITD; PCCOE1:=0.05;
COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; SDCOE2:=MAX(
HIRED,BIRTHD+1.0); FDCOE2:=QUITD; PCCOE2:=0.05; COE2:=ord(HIRED<=
1981.5)*SUMI(PCCOE2,8.0,0.0,SDCOE2,FDCOE2)*1.0*VCO2; CNT:=VOL1+
MAX(COE1,COE2); CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,CNT,COE2,
PCCOE2,FDCOE2,SDCOE2,COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,VCO2,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3060s193; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=3.0)*0.33,ord(
ASY16>=4.0)*0.66,ord(ASY16>=5.0)*1.0)); VCT2:=VOPT(1.0); SDCTE1:=
MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=
SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; SDCTE2:=MAX(HIRED,
BIRTHD+1.0); FDCTE2:=QUITD; PCCTE2:=CRPROF2; CTE2:=ord(HIRED<=
1981.5)*SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2; CNT:=MAX(
CTE1,CTE2); CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,CNT,CTE2,PCCTE2,
FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT2,VCT1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3061s191; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDMAN1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDMAN1:=QUITD; VR1MAN1:=ord(
10000.0>WAGE(SURVEYD))*0.04+ord(WAGE(SURVEYD)>=10000.0)*0.06;
PCMAN1:=VR1MAN1; MAN1:=SUMI(PCMAN1,7.0,0.0,SDMAN1,FDMAN1);
SDCOE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCOE1:=QUITD;
VR1COE1:=ord(10000.0>WAGE(SURVEYD))*0.06+ord(WAGE(SURVEYD)>=
10000.0)*0.15; PCCOE1:=VR1COE1; COE1:=SUMI(PCCOE1,7.0,0.0,SDCOE1,
FDCOE1)*1.0*VCO1; CNT:=MAN1+COE1; CNQ:=ord(AGE>=65.0)*CNT; if
min( CNQ,CNT,COE1,PCCOE1,VR1COE1,FDCOE1,SDCOE1,MAN1,PCMAN1,
VR1MAN1,FDMAN1,SDMAN1,VCO1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3062s179; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=1.0)*0.55,ord(
ASY16>=5.0)*0.75,ord(ASY16>=10.0)*1.0)); SDCOE1:=HIRED; FDCOE1:=
QUITD; PCCOE1:=COENAR; COE1:=SUMI(PCCOE1,99.0,0.0,SDCOE1,FDCOE1)*
ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=COE1; CNQ:=ord((AGE>=62.0)&(
ASY16>=10.0))*CNT; if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,
VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3063s177; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; VCO1:=VOPT(ord((QUITAGE>=
60.0)!(ASY16>=2.0))*1.0); VCO2:=VOPT(ord((QUITAGE>=60.0)!(ASY16>=
2.0))*1.0); SDVOL1:=HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(VOL1NAR*
WAGE(SURVEYD),MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=
MAX(HIRED,MAX(BIRTHD+25.0,HIRED+2.0)); FDCOE1:=MIN(QUITD,BIRTHD+
65.0); PCCOE1:=0.1; COE1:=SUMI(PCCOE1,5.0,0.0,SDCOE1,FDCOE1)*ord(
WRKHRS>=1000.0)*1.0*VCO1; SDCOE2:=MAX(HIRED,MAX(BIRTHD+25.0,
HIRED+2.0)); FDCOE2:=MIN(QUITD,BIRTHD+65.0); PCCOE2:=0.03; COE2:=
SUMI(PCCOE2,4.0,0.0,SDCOE2,FDCOE2)*ord(WRKHRS>=1000.0)*1.0*VCO2;
CNT:=VOL1+COE1+COE2; CNQ:=ord((AGE>=55.0)&(ASY16>=10.0))*CNT; if
min( CNQ,CNT,COE2,PCCOE2,FDCOE2,SDCOE2,COE1,PCCOE1,FDCOE1,SDCOE1,
VOL1,PCVOL1,FDVOL1,SDVOL1,VCO2,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3064s135; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+19.0))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(
ASY16>=2.0)*0.1,ord(ASY16>=6.0)*0.5,ord(ASY16>=10.0)*1.0));
VCT2:=VOPT(MAX(ord(ASY16>=2.0)*0.1,ord(ASY16>=6.0)*0.5,ord(
ASY16>=10.0)*1.0)); VCT3:=VOPT(MAX(ord(ASY16>=2.0)*0.1,ord(
ASY16>=6.0)*0.5,ord(ASY16>=10.0)*1.0)); SDVOL1:=MAX(HIRED,MAX(
BIRTHD+19.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.05*WAGE(
SURVEYD),MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(
HIRED,MAX(BIRTHD+19.0,HIRED+1.0)); FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1;
SDCTE2:=MAX(HIRED,MAX(BIRTHD+19.0,HIRED+1.0)); FDCTE2:=QUITD;
PCCTE2:=CRPROF2; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*
VCT2; SDCTE3:=MAX(HIRED,MAX(BIRTHD+19.0,HIRED+1.0)); FDCTE3:=
QUITD; PCCTE3:=CRPROF3; CTE3:=SUMI(PCCTE3,7.0,0.0,SDCTE3,FDCTE3)*
1.0*VCT3; CNT:=VOL1+CTE1+CTE2+CTE3; CNQ:=CNT; if min( CNQ,CNT,
CTE3,PCCTE3,FDCTE3,SDCTE3,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,
FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT3,VCT2,VCT1,ASY16,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3065s243; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=4.0)*0.15,ord(
ASY16>=7.0)*0.5,ord((QUITAGE>=62.0)!(ASY16>=12.0))*1.0));
SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1;
CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*
1.0*VCT1; CNT:=CTE1; CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,
CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3066s237; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; VCO1:=VOPT(ord((QUITAGE>=65.0)!(ASY16>=5.0))*
1.0); SDVOL1:=HIRED; FDVOL1:=MIN(QUITD,BIRTHD+65.0); PCVOL1:=MAX(
0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,
0.0,SDVOL1,FDVOL1); SDCOE1:=HIRED; FDCOE1:=MIN(QUITD,BIRTHD+65.0)
;PCCOE1:=0.18; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1;
CLS10:=0.0; CNT:=VOL1+COE1+CLS10; CNQ:=ord(AGE>=62.0)*CNT; if
min( CNQ,CNT,CLS10,COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,
SDVOL1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3067s214; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=4.0)*0.4,ord(
ASY16>=5.0)*0.5,ord((QUITAGE>=62.0)!(ASY16>=10.0))*1.0));
SDCOE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCOE1:=QUITD;
PCCOE1:=0.02; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*ord(
WRKHRS>=1000.0)*1.0*VCO1; CNT:=COE1; CNQ:=CNT; if min( CNQ,CNT,
COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3068s211; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCO1:=VOPT(ord(ASY16>=2.0)*1.0); VCO2:=VOPT(
ord(ASY16>=2.0)*1.0); SDCOE1:=MAX(HIRED,MAX(BIRTHD+18.0,HIRED+
1.0)); FDCOE1:=QUITD; PCCOE1:=0.1; COE1:=ord(HIRED<=1982.833)*
SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; SDCOE2:=MAX(HIRED,
MAX(BIRTHD+18.0,HIRED+1.0)); FDCOE2:=QUITD; PCCOE2:=0.1; COE2:=
SUMI(PCCOE2,8.0,0.0,SDCOE2,FDCOE2)*1.0*VCO2; CNT:=MAX(COE1,COE2);
CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,COE2,PCCOE2,FDCOE2,
SDCOE2,COE1,PCCOE1,FDCOE1,SDCOE1,VCO2,VCO1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3069s158; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+21.0,1970.25))*ord(WRKHRS>=1.0)*1.0; VCT1:=VOPT(MAX(
ord(ASY16>=5.0)*0.5,ord(ASY16>=6.0)*0.6,ord(ASY16>=10.0)*1.0));
SDVOL1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0),1970.25); FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD))
)/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
SDCTE1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0),1970.25); FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
1.0*VCT1; CNT:=CTE1+VOL1; CNQ:=ord((AGE>=55.0)&(ASY16>=10.0))*
CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3070s151; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED,
1976.0))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=5.0)*
0.4,ord(ASY16>=6.0)*0.52,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0)
); SDVOL1:=MAX(HIRED,BIRTHD+1.0,1976.0); FDVOL1:=QUITD; PCVOL1:=
MAX(50.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(
HIRED,BIRTHD+1.0,1976.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=
SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1;
CNT:=CTE1+VOL1; CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,CTE1,
PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3071s148; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; VCO1:=VOPT(1.0); VCO2:=
VOPT(1.0); SDCOE1:=MAX(HIRED,BIRTHD+1.0); FDCOE1:=MIN(QUITD,
BIRTHD+65.0); VR1COE1:=ord(40.0>AGE)*0.04+ord((55.0>AGE)&(AGE>=
40.0))*0.07+ord((65.0>AGE)&(AGE>=55.0))*0.1; PCCOE1:=VR1COE1;
COE1:=ord((HIRED<=1982.5)&(QUITD>=1982.5))*SUMI(PCCOE1,7.0,0.0,
SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; SDCOE2:=MAX(HIRED,
MAX(BIRTHD+25.0,HIRED+2.0)); FDCOE2:=MIN(QUITD,BIRTHD+65.0);
PCCOE2:=COENAR; COE2:=SUMI(PCCOE2,97.0,0.0,SDCOE2,FDCOE2)*ord(
WRKHRS>=1000.0)*1.0*VCO2; CNT:=MAX(COE1,COE2); CNQ:=CNT; if min(
CNQ,CNT,COE2,PCCOE2,FDCOE2,SDCOE2,COE1,PCCOE1,VR1COE1,FDCOE1,
SDCOE1,VCO2,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3072s142; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,1982.167)
-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY17:=NN(QUITD-MAX(HIRED,
1982.167))*ord(WRKHRS>=12.0)*1.0; ASY61:=ASY16+ASY17; VMM1:=VOPT(
MAX(ord(ASY61>=2.0)*0.1,ord(ASY61>=6.0)*0.5,ord((QUITAGE>=65.0)!
(ASY61>=10.0))*1.0)); VMV1:=VOPT(MAX(ord(ASY61>=2.0)*0.1,ord(
ASY61>=6.0)*0.5,ord((QUITAGE>=65.0)!(ASY61>=11.0))*1.0)); VCT1:=
VOPT(MAX(ord(ASY61>=2.0)*0.1,ord(ASY61>=6.0)*0.5,ord((QUITAGE>=
65.0)!(ASY61>=11.0))*1.0)); SDMAN1:=MAX(HIRED,MAX(BIRTHD+18.0,
HIRED+1.0)); FDMAN1:=QUITD; PCMAN1:=0.01; MAN1:=SUMI(PCMAN1,8.0,
0.0,SDMAN1,FDMAN1); PCMMAN1:=MIN(0.95,0.5*PCMAN1); MMAN1:=SUMI(
PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=MAX(HIRED,MAX(
BIRTHD+18.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.05*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); PCMVOL1:=MIN(0.95,0.5*PCVOL1);
MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1; SDCTE1:=MAX(
HIRED,MAX(BIRTHD+18.0,HIRED+1.0)); FDCTE1:=QUITD; PCCTE1:=
CRFORT1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=
MAN1+MMAN1+VOL1+MVOL1+CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,
PCCTE1,FDCTE1,SDCTE1,MVOL1,PCMVOL1,VOL1,PCVOL1,FDVOL1,SDVOL1,
MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCT1,VMV1,VMM1,ASY61,
ASY17,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3073s129; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCT1:=VOPT(MAX(ord(ASY16>=3.0)*0.2,ord(ASY16>=7.0)*0.6,ord((
QUITAGE>=55.0)!(ASY16>=11.0))*1.0)); VCT2:=VOPT(MAX(ord(ASY16>=
3.0)*0.2,ord(ASY16>=7.0)*0.6,ord((QUITAGE>=55.0)!(ASY16>=11.0))*
1.0)); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(
0.01*WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=
MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=
SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; SDCTE2:=MAX(HIRED,
BIRTHD+1.0); FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,
7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2; CNT:=VOL1+CTE1+CTE2; CNQ:=ord((
AGE>=65.0)!(AGE>=55.0)&(ASY16>=10.0))*CNT; if min( CNQ,CNT,CTE2,
PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3074s108; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=1.0)*0.2,ord(
ASY16>=3.0)*0.6,ord((QUITAGE>=65.0)!(ASY16>=5.0))*1.0)); SDCOE1:=
MAX(HIRED,BIRTHD+1.0); FDCOE1:=QUITD; PCCOE1:=COENAR; COE1:=SUMI(
PCCOE1,97.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1;
CNT:=COE1; CNQ:=ord((AGE>=55.0)&(ASY16>=5.0))*CNT; if min( CNQ,
CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3075s168; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
3.0,BIRTHD+18.0))*1.0; VMM1:=VOPT(ord((QUITAGE>=65.0)!(ASY16>=
10.0))*1.0); SDMAN1:=MAX(HIRED,MAX(BIRTHD+18.0,HIRED+3.0));
FDMAN1:=QUITD; PCMAN1:=0.04; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,
FDMAN1); PCMMAN1:=1.5*PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,
FDMAN1)*VMM1; CNT:=MAN1+MMAN1; CNQ:=ord(AGE>=65.0)*CNT; if min(
CNQ,CNT,MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMM1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3076s209; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); VCT2:=VOPT(
1.0); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(
0.02*WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=
MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=
SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; SDCTE2:=MAX(HIRED,
BIRTHD+1.0); FDCTE2:=QUITD; PCCTE2:=CRPROF2; CTE2:=SUMI(PCCTE2,
7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2; CNT:=VOL1+CTE1+CTE2; CNQ:=CNT;
if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,
SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT2,VCT1,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3077s369; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; SDVOL1:=HIRED; FDVOL1:=QUITD;
PCVOL1:=MAX(0.05*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); CNT:=VOL1;
CNQ:=CNT; if min( CNQ,CNT,VOL1,PCVOL1,FDVOL1,SDVOL1,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3078s346; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VMM1:=VOPT(MAX(ord(ASY16>=2.0)*0.1,ord(ASY16>=6.0)*0.5,ord((
QUITAGE>=55.0)!(ASY16>=11.0))*1.0)); VCT1:=VMM1; VCT2:=VMM1;
SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=QUITD; VR1MAN1:=ord(
10000.0>WAGE(SURVEYD))*0.02+ord(WAGE(SURVEYD)>=10000.0)*0.04;
PCMAN1:=VR1MAN1; MAN1:=SUMI(PCMAN1,7.0,0.0,SDMAN1,FDMAN1);
VR1MMAN1:=ord(5.0>ASY16)*0.5+ord((9.0>ASY16)&(ASY16>=5.0))*
54.86+ord((14.0>ASY16)&(ASY16>=9.0))*63.09+ord(ASY16>=14.0)*
78.77; PCMMAN1:=VR1MMAN1/WAGE(SURVEYD); MMAN1:=SUMI(PCMMAN1,7.0,
0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=
QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD;
PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*
VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0); FDCTE2:=QUITD; PCCTE2:=
CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2;
CLS1:=0.0; CLS7:=0.0; CLS10:=0.0; CNT:=MAN1+MMAN1+CTE1+CTE2+CLS1+
VOL1+CLS7+CLS10; CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,CNT,CLS10,
CLS7,CLS1,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,
VOL1,PCVOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,VR1MMAN1,MAN1,PCMAN1,
VR1MAN1,FDMAN1,SDMAN1,VCT2,VCT1,VMM1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3079s345; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCO1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(ASY16>=5.0)*0.5,ord((
QUITAGE>=60.0)!(ASY16>=10.0))*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+
1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.005*WAGE(SURVEYD),MIN(0.1*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,BIRTHD+1.0);
FDCOE1:=QUITD; PCCOE1:=0.14; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,
FDCOE1)*1.0*VCO1; CNT:=VOL1+COE1; CNQ:=CNT; if min( CNQ,CNT,COE1,
PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3080s344; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; VMV1:=VOPT(MAX(ord(ASY16>=
5.0)*0.25,ord(ASY16>=10.0)*0.5,ord((QUITAGE>=59.0)!(ASY16>=15.0)
!(QUITAGE>=55.0)&(ASY16>=5.0))*1.0)); VCO1:=VMV1; VCO2:=VMV1;
SDVOL1:=MAX(HIRED,MAX(BIRTHD+24.0,HIRED+1.0)); FDVOL1:=MIN(QUITD,
BIRTHD+65.0); PCVOL1:=MAX(52.0,MIN(0.05*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDVOL2:=MAX(HIRED,MAX(BIRTHD+24.0,HIRED+1.0)); FDVOL2:=
MIN(QUITD,BIRTHD+65.0); PCVOL2:=MAX(0.0,MIN(0.05*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,
SDVOL2,FDVOL2); PCMVOL1:=PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,
SDVOL1,FDVOL1)*VMV1; SDCOE1:=MAX(HIRED,MAX(BIRTHD+24.0,HIRED+1.0)
); FDCOE1:=MIN(QUITD,BIRTHD+65.0); PCCOE1:=0.062; COE1:=SUMI(
PCCOE1,4.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1;
SDCOE2:=MAX(HIRED,MAX(BIRTHD+24.0,HIRED+1.0)); FDCOE2:=MIN(QUITD,
BIRTHD+65.0); PCCOE2:=0.124; COE2:=SUMI(PCCOE2,5.0,0.0,SDCOE2,
FDCOE2)*ord(WRKHRS>=1000.0)*1.0*VCO2; CNT:=VOL1+MVOL1+VOL2+COE1+
COE2; CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,CNT,COE2,PCCOE2,
FDCOE2,SDCOE2,COE1,PCCOE1,FDCOE1,SDCOE1,MVOL1,PCMVOL1,VOL2,
PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO2,VCO1,VMV1,
ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3081s356; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCO1:=VOPT(ord(ASY16>=5.0)*1.0); SDCOE1:=
MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCOE1:=QUITD; PCCOE1:=
0.07; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=
1000.0)*1.0*VCO1; CNT:=COE1; CNQ:=ord(AGE>=55.0)*CNT; if min(
CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3082s352; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,1976.0))*ord(WRKHRS>=1000.0)*1.0; ASY17:=NN(MIN(QUITD,1976.0)
-MAX(HIRED+1.0,1960.0))*1.0; ASY61:=ASY16+ASY17; VCT1:=VOPT(MAX(
ord(ASY61>=5.0)*0.25,ord(ASY61>=11.0)*0.5,ord((QUITAGE>=65.0)!(
ASY61>=15.0))*1.0)); VCT2:=VOPT(MAX(ord(ASY61>=5.0)*0.25,ord(
ASY61>=11.0)*0.5,ord((QUITAGE>=65.0)!(ASY61>=15.0))*1.0));
SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1;
CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*
1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0); FDCTE2:=QUITD; PCCTE2:=
CRPROF2; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=
1000.0)*1.0*VCT2; CNT:=CTE1+CTE2; CNQ:=ord(AGE>=60.0)*CNT; if
min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,
VCT2,VCT1,ASY61,ASY17,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3083s265; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+21.0,1971.083))*ord(WRKHRS>=1000.0)*1.0; VMM1:=VOPT(
MAX(ord(ASY16>=5.0)*0.25,ord(ASY16>=7.0)*0.35,ord((QUITAGE>=
65.0)!(ASY16>=8.0))*1.0)); VMV1:=VMM1; SDMAN1:=MAX(HIRED,MAX(
BIRTHD+21.0,HIRED+1.0),1971.083); FDMAN1:=QUITD; PCMAN1:=0.02;
MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=PCMAN1;
MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=MAX(
HIRED,MAX(BIRTHD+21.0,HIRED+1.0),1971.083); FDVOL1:=QUITD;
PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.02*WAGE(SURVEYD),CRVOL*
WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); PCMVOL1:=PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,
FDVOL1)*VMV1; CNT:=MAN1+MMAN1+VOL1+MVOL1; CNQ:=ord(AGE>=65.0)*
CNT; if min( CNQ,CNT,MVOL1,PCMVOL1,VOL1,PCVOL1,FDVOL1,SDVOL1,
MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMV1,VMM1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3084s261; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1035.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=3.0)*0.125,
ord(ASY16>=6.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0));
SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1;
CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=23.0)*1.0*
VCT1; CNT:=CTE1; CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,CTE1,
PCCTE1,FDCTE1,SDCTE1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3085s258; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCO1:=VOPT(1.0); SDCOE1:=MAX(HIRED,BIRTHD+1.0); FDCOE1:=QUITD;
VR1COE1:=ord(10.0>ASY16)*0.03+ord((15.0>ASY16)&(ASY16>=10.0))*
0.032+ord((20.0>ASY16)&(ASY16>=15.0))*0.0357+ord(ASY16>=20.0)*
0.042; PCCOE1:=VR1COE1; COE1:=SUMI(PCCOE1,7.0,0.0,SDCOE1,FDCOE1)*
1.0*VCO1; CNT:=COE1; CNQ:=CNT; if min( CNQ,CNT,COE1,PCCOE1,
VR1COE1,FDCOE1,SDCOE1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ)
<0 then negative end;

procedure c3086s244; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCO1:=VOPT(1.0); SDCOE1:=MAX(HIRED,BIRTHD+
3.0); FDCOE1:=QUITD; PCCOE1:=0.07; COE1:=SUMI(PCCOE1,8.0,0.0,
SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=COE1; CNQ:=CNT;
if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,ASY16,VEDB,DSQ,
DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3087s291; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDCOE1:=
HIRED; FDCOE1:=QUITD; PCCOE1:=0.142; COE1:=SUMI(PCCOE1,8.0,0.0,
SDCOE1,FDCOE1)*1.0*VCO1; CNT:=COE1; CNQ:=CNT; if min( CNQ,CNT,
COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3088s372; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
1.0; VCT1:=VOPT(MAX(ord(ASY16>=4.0)*0.5,ord(ASY16>=7.0)*0.7,ord(
ASY16>=10.0)*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD;
PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDVOL2:=MAX(HIRED,BIRTHD+3.0); FDVOL2:=QUITD; PCVOL2:=
MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,
2.0,0.0,SDVOL2,FDVOL2); SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
1.0*VCT1; CNT:=CTE1+VOL1+VOL2; CNQ:=CNT; if min( CNQ,CNT,CTE1,
PCCTE1,FDCTE1,SDCTE1,VOL2,PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,
FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3089s388; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+22.0,1976.0))*ord(WRKHRS>=1000.0)*
1.0; VCT1:=VOPT(MAX(ord(ASY16>=5.0)*0.25,ord(ASY16>=10.0)*0.75,
ord((QUITAGE>=65.0)!(ASY16>=13.0))*1.0)); VCT2:=VOPT(MAX(ord(
ASY16>=5.0)*0.25,ord(ASY16>=10.0)*0.75,ord((QUITAGE>=65.0)!(
ASY16>=13.0))*1.0)); SDCTE1:=MAX(HIRED,BIRTHD+1.0,1976.0);
FDCTE1:=MIN(QUITD,BIRTHD+65.0); PCCTE1:=CRPROF1; CTE1:=SUMI(
PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1;
SDCTE2:=MAX(HIRED,BIRTHD+1.0,1976.0); FDCTE2:=MIN(QUITD,BIRTHD+
65.0); PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*
ord(WRKHRS>=1000.0)*1.0*VCT2; CNT:=CTE1+CTE2; CNQ:=ord(AGE>=65.0)
*CNT; if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,
FDCTE1,SDCTE1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3090s1074; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(
ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0));
SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=QUITD; PCMAN1:=MANNAR;
MAN1:=SUMI(PCMAN1,99.0,0.0,SDMAN1,FDMAN1); SDVOL1:=MAX(HIRED,
BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(VOL1NAR*WAGE(SURVEYD),
MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,
BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,
7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=CTE1+
MAN1+VOL1; CNQ:=ord((AGE>=65.0)!(AGE>=55.0)&(ASY16>=10.0))*CNT;
if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,
SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3091s1095; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(1.0); SDVOL1:=MAX(HIRED,BIRTHD+
3.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.06*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+3.0); FDCTE1:=QUITD;
PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(
WRKHRS>=1000.0)*1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=ord((AGE+ASY16>=
85.0)&(AGE>=50.0))*CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,
SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3092s1093; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=
1.0)*0.1,ord(ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*
1.0)); SDMAN1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDMAN1:=
MIN(QUITD,BIRTHD+65.0); PCMAN1:=0.01; MAN1:=SUMI(PCMAN1,8.0,0.0,
SDMAN1,FDMAN1); SDCOE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0));
FDCOE1:=MIN(QUITD,BIRTHD+65.0); PCCOE1:=0.01; COE1:=SUMI(PCCOE1,
8.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=MAN1+
COE1; CNQ:=ord((AGE>=55.0)&(ASY16>=10.0))*CNT; if min( CNQ,CNT,
COE1,PCCOE1,FDCOE1,SDCOE1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCO1,ASY16,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3093s1088; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=
4.0)*0.4,ord(ASY16>=6.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=11.0))*
1.0)); SDCOE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCOE1:=
QUITD; VR1COE1:=ord(10000.0>WAGE(SURVEYD))*0.03+ord(WAGE(SURVEYD)
>=10000.0)*0.07; PCCOE1:=VR1COE1; COE1:=SUMI(PCCOE1,7.0,0.0,
SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=COE1; CNQ:=ord(
AGE>=65.0)*CNT; if min( CNQ,CNT,COE1,PCCOE1,VR1COE1,FDCOE1,
SDCOE1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3094s398; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCO1:=VOPT(ord(ASY16>=1.0)*1.0); SDMAN1:=HIRED; FDMAN1:=QUITD;
PCMAN1:=0.015; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDVOL1:=
HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=
HIRED; FDCOE1:=QUITD; VR1COE1:=ord(16500.0>WAGE(SURVEYD))*0.105+
ord(WAGE(SURVEYD)>=16500.0)*0.135; PCCOE1:=VR1COE1; COE1:=SUMI(
PCCOE1,7.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; CNT:=VOL1+MAN1+COE1;
CNQ:=CNT; if min( CNQ,CNT,COE1,PCCOE1,VR1COE1,FDCOE1,SDCOE1,VOL1,
PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCO1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3095s340; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED,
1982.0))*1.0; VMM1:=VOPT(MAX(ord(ASY16>=1.0)*0.2,ord(ASY16>=3.0)*
0.6,ord((QUITAGE>=65.0)!(ASY16>=5.0))*1.0)); VMV1:=VOPT(MAX(ord(
ASY16>=1.0)*0.2,ord(ASY16>=3.0)*0.6,ord((QUITAGE>=65.0)!(ASY16>=
5.0))*1.0)); SDMAN1:=MAX(HIRED,1982.0); FDMAN1:=QUITD; PCMAN1:=
0.03; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=PCMAN1;
MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=MAX(
HIRED,1982.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.0365*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); PCMVOL1:=PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,
0.0,SDVOL1,FDVOL1)*VMV1; CNT:=MAN1+MMAN1+VOL1+MVOL1; CNQ:=CNT;
if min( CNQ,CNT,MVOL1,PCMVOL1,VOL1,PCVOL1,FDVOL1,SDVOL1,MMAN1,
PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMV1,VMM1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3096s268; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY17:=NN(QUITD-(HIRED+1.0))*ord(WRKHRS>=
1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=3.0)*0.2,ord(ASY16>=5.0)*
0.6,ord((QUITAGE>=65.0)!(ASY16>=7.0))*1.0)); SDMAN1:=MAX(HIRED,
BIRTHD+1.0); FDMAN1:=QUITD; PCMAN1:=0.02; MAN1:=SUMI(PCMAN1,8.0,
0.0,SDMAN1,FDMAN1); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD;
PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.08*WAGE(SURVEYD),CRVOL*
WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=
MAN1+VOL1+CTE1; CNQ:=ord((AGE>=55.0)&(ASY17>=10.0))*CNT; if min(
CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,
MAN1,PCMAN1,FDMAN1,SDMAN1,VCT1,ASY17,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3097s238; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=440.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=
2.0)*0.2,ord(ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*
1.0)); SDCOE1:=HIRED; FDCOE1:=MIN(QUITD,BIRTHD+65.0); PCCOE1:=
COENAR; COE1:=SUMI(PCCOE1,97.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=
440.0)*1.0*VCO1; CNT:=COE1; CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,
CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3098s294; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; VMM1:=VOPT(MAX(ord(ASY16>=
3.0)*0.2,ord(ASY16>=9.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=15.0))*
1.0)); VMV1:=VMM1; SDMAN1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0));
FDMAN1:=QUITD; PCMAN1:=0.02; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,
FDMAN1); PCMMAN1:=0.25*PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,
SDMAN1,FDMAN1)*VMM1; SDVOL1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)
); FDVOL1:=QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.03*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); PCMVOL1:=0.25*PCVOL1; MVOL1:=SUMI(
PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1; CNT:=MAN1+MMAN1+VOL1+MVOL1;
CNQ:=CNT; if min( CNQ,CNT,MVOL1,PCMVOL1,VOL1,PCVOL1,FDVOL1,
SDVOL1,MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMV1,VMM1,ASY16,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3099s249; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=3.0)*0.1,ord(
ASY16>=7.0)*0.5,ord((QUITAGE>=55.0)!(ASY16>=12.0))*1.0));
SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1;
CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*
1.0*VCT1; CNT:=CTE1; CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,CNT,
CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3100s381; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+3.0))*
1.0; SDVOL1:=MAX(HIRED,BIRTHD+3.0); FDVOL1:=QUITD; PCVOL1:=MAX(
VOL1NAR*WAGE(SURVEYD),MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); CNT:=VOL1; CNQ:=CNT; if min( CNQ,CNT,VOL1,PCVOL1,FDVOL1,
SDVOL1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3102s328; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=3.0)*0.5,ord(
ASY16>=7.0)*0.75,ord((QUITAGE>=65.0)!(ASY16>=11.0))*1.0));
SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=QUITD; PCMAN1:=0.01;
MAN1:=SUMI(PCMAN1,3.0,1375.0,SDMAN1,FDMAN1); SDVOL1:=MAX(HIRED,
BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(
0.05*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0)
;FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=MAN1+VOL1+CTE1;
CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCT1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3103s462; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=2.0)*0.1,ord(
ASY16>=6.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=11.0))*1.0)); VCT2:=
VOPT(1.0); VCT3:=VCT1; SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD))
)/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1;
CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*
1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0); FDCTE2:=QUITD; PCCTE2:=
CRPROF2; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=
1000.0)*1.0*VCT2; SDCTE3:=MAX(HIRED,BIRTHD+1.0); FDCTE3:=QUITD;
PCCTE3:=CRFORT1; CTE3:=SUMI(PCCTE3,7.0,0.0,SDCTE3,FDCTE3)*ord(
WRKHRS>=1000.0)*1.0*VCT3; CNT:=VOL1+CTE1+CTE2+CTE3; CNQ:=ord(
AGE>=65.0)*CNT; if min( CNQ,CNT,CTE3,PCCTE3,FDCTE3,SDCTE3,CTE2,
PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,VCT3,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ)
<0 then negative end;

procedure c3105s521; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.05,ord(ASY16>=10.0)*0.5,ord((
QUITAGE>=60.0)!(ASY16>=13.0))*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+
1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*
WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=
VOL1+CTE1; CNQ:=ord(AGE>=60.0)*CNT; if min( CNQ,CNT,CTE1,PCCTE1,
FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3106s797; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.05,ord(
ASY16>=8.0)*0.4,ord((QUITAGE>=55.0)!(ASY16>=15.0))*1.0)); VCT2:=
VOPT(MAX(ord(ASY16>=1.0)*0.05,ord(ASY16>=8.0)*0.4,ord((QUITAGE>=
55.0)!(ASY16>=15.0))*1.0)); SDCTE1:=MAX(HIRED,BIRTHD+1.0);
FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,
FDCTE1)*1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0); FDCTE2:=QUITD;
PCCTE2:=0.15; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2;
CNT:=MIN(CTE1,CTE2); CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,CNT,
CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT2,VCT1,
ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3107s596; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCO1:=VOPT(ord(ASY16>=10.0)*1.0); VCO2:=VOPT(ord(ASY16>=10.0)*
1.0); SDMAN1:=HIRED; FDMAN1:=QUITD; PCMAN1:=0.03; MAN1:=SUMI(
PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDMAN2:=HIRED; FDMAN2:=QUITD;
PCMAN2:=MANNAR; MAN2:=SUMI(PCMAN2,97.0,0.0,SDMAN2,FDMAN2);
SDCOE1:=HIRED; FDCOE1:=QUITD; PCCOE1:=0.12; COE1:=SUMI(PCCOE1,
8.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; SDCOE2:=HIRED; FDCOE2:=QUITD;
PCCOE2:=0.044; COE2:=SUMI(PCCOE2,8.0,0.0,SDCOE2,FDCOE2)*1.0*VCO2;
CNT:=MAN1+MAN2+COE1+COE2; CNQ:=ord(AGE>=60.0)*CNT; if min( CNQ,
CNT,COE2,PCCOE2,FDCOE2,SDCOE2,COE1,PCCOE1,FDCOE1,SDCOE1,MAN2,
PCMAN2,FDMAN2,SDMAN2,MAN1,PCMAN1,FDMAN1,SDMAN1,VCO2,VCO1,ASY16,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3108s413; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+3.0))*
ord(WRKHRS>=1000.0)*1.0; VCO1:=VOPT(1.0); VCO2:=VOPT(1.0);
SDVOL1:=MAX(HIRED,BIRTHD+3.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.01*
WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=MAX(
HIRED,BIRTHD+3.0); FDCOE1:=QUITD; PCCOE1:=COENAR; COE1:=SUMI(
PCCOE1,99.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1;
SDCOE2:=MAX(HIRED,BIRTHD+3.0); FDCOE2:=QUITD; PCCOE2:=COENAR;
COE2:=SUMI(PCCOE2,99.0,0.0,SDCOE2,FDCOE2)*ord(WRKHRS>=1000.0)*
1.0*VCO2; CNT:=COE1+COE2+VOL1; CNQ:=ord(AGE>=65.0)*CNT; if min(
CNQ,CNT,COE2,PCCOE2,FDCOE2,SDCOE2,COE1,PCCOE1,FDCOE1,SDCOE1,
VOL1,PCVOL1,FDVOL1,SDVOL1,VCO2,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3109s461; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=5.0)*0.25,ord(
ASY16>=8.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=13.0))*1.0));
SDCTE1:=HIRED; FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,
7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=CTE1;
CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,ASY16,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3110s403; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(
ASY16>=5.0)*0.5,ord(ASY16>=10.0)*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+
1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*
WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCOE1:=MAX(HIRED,BIRTHD+1.0); FDCOE1:=QUITD; VR1COE1:=
ord(WAGE(SURVEYD)>=14000.0)*0.07; PCCOE1:=VR1COE1; COE1:=SUMI(
PCCOE1,7.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=
VOL1+COE1; CNQ:=CNT; if min( CNQ,CNT,COE1,PCCOE1,VR1COE1,FDCOE1,
SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3111s404; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(
ASY16>=5.0)*0.5,ord(ASY16>=10.0)*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+
1.0); FDVOL1:=QUITD; PCVOL1:=MAX(10.0,MIN(0.1*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD;
PCCTE1:=(0.15+0.0)/2.0; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=CNT; if min(
CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,
VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3112s409; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VMV1:=VOPT(1.0); VCT1:=VOPT(
1.0); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(
50.0,MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); PCMVOL1:=
PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1; SDCTE1:=
MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=
SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=VOL1+MVOL1+
CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,MVOL1,
PCMVOL1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,VMV1,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3113s410; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; SDMAN1:=MAX(HIRED,BIRTHD+1.0)
;FDMAN1:=QUITD; PCMAN1:=0.02; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,
FDMAN1); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=
MAX(0.0,MIN(0.08*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); CNT:=MAN1+
VOL1; CNQ:=ord(AGE>=59.0)*CNT; if min( CNQ,CNT,VOL1,PCVOL1,
FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3114s433; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=12.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=2.0)*0.28,ord(
ASY16>=4.0)*0.64,ord(ASY16>=6.0)*1.0)); SDVOL1:=HIRED; FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD))
)/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
SDCTE1:=HIRED; FDCTE1:=QUITD; PCCTE1:=0.05; CTE1:=SUMI(PCCTE1,
7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=ord(AGE>=
55.0)*CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3115s699; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=2.0)*0.1,ord(
ASY16>=6.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=11.0))*1.0)); VCT2:=
VOPT(MAX(ord(ASY16>=2.0)*0.1,ord(ASY16>=6.0)*0.5,ord((QUITAGE>=
65.0)!(ASY16>=11.0))*1.0)); SDCTE1:=MAX(HIRED,MAX(BIRTHD+21.0,
HIRED+1.0)); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,
7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=MAX(
HIRED,MAX(BIRTHD+20.0,HIRED+1.0)); FDCTE2:=QUITD; PCCTE2:=
CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=
1000.0)*1.0*VCT2; CNT:=CTE1+CTE2; CNQ:=CNT; if min( CNQ,CNT,CTE2,
PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT2,VCT1,ASY16,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3116s682; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(ASY16>=5.0)*0.5,ord((
QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VCT2:=VOPT(MAX(ord(ASY16>=
1.0)*0.1,ord(ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*
1.0)); SDVOL1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD))
)/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
SDCTE1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDCTE1:=QUITD;
PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*
VCT1; SDCTE2:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDCTE2:=
QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*
1.0*VCT2; CNT:=VOL1+CTE1+CTE2; CNQ:=ord((AGE>=65.0)!(AGE>=55.0)&(
ASY16>=15.0))*CNT; if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,
CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT2,VCT1,
ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3117s499; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=17.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=2.0)*0.5,ord((
QUITAGE>=65.0)!(ASY16>=3.0))*1.0)); SDCOE1:=HIRED; FDCOE1:=QUITD;
PCCOE1:=0.0665; COE1:=SUMI(PCCOE1,3.0,32400.0,SDCOE1,FDCOE1)*ord(
WRKHRS>=17.0)*1.0*VCO1; CNT:=COE1; CNQ:=CNT; if min( CNQ,CNT,
COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3118s711; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,1980.0)-
HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY17:=NN(QUITD-MAX(HIRED,1980.0)
)*NNMIN(1.0,WRKHRS/12.0); ASY61:=ASY16+ASY17; VCT1:=VOPT(MAX(ord(
ASY61>=2.0)*0.25,ord(ASY61>=3.0)*0.5,ord((QUITAGE>=60.0)!(
ASY61>=5.0))*1.0)); VCT2:=VOPT(MAX(ord(ASY61>=2.0)*0.25,ord(
ASY61>=3.0)*0.5,ord((QUITAGE>=60.0)!(ASY61>=5.0))*1.0)); SDVOL1:=
MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=
MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=
6.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0));
FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,
FDCTE2)*ord(WRKHRS>=6.0)*1.0*VCT2; CNT:=VOL1+CTE1+CTE2; CNQ:=CNT;
if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,
SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT2,VCT1,ASY61,ASY17,ASY16,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3119s860; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
SDMAN1:=HIRED; FDMAN1:=QUITD; PCMAN1:=0.05; MAN1:=SUMI(PCMAN1,
3.0,7500.0,SDMAN1,FDMAN1); SDVOL1:=HIRED; FDVOL1:=QUITD; PCVOL1:=
MAX(0.01*WAGE(SURVEYD),MIN(MAX(7500.0,0.2*WAGE(SURVEYD)),CRVOL*
WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); CNT:=MAN1+VOL1; CNQ:=CNT; if min( CNQ,CNT,VOL1,PCVOL1,
FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,ASY16,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3120s636; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(ord((QUITAGE>=65.0)!(ASY16>=3.0))
*1.0); SDVOL1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDVOL2:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDVOL2:=
QUITD; PCVOL2:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD))
)/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2);
SDCTE1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDCTE1:=QUITD;
PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(
WRKHRS>=1000.0)*1.0*VCT1; CNT:=VOL1+VOL2+CTE1; CNQ:=CNT; if min(
CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL2,PCVOL2,FDVOL2,SDVOL2,
VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3121s412; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VMM1:=VOPT(1.0); VMV1:=VOPT(1.0); SDMAN1:=MAX(HIRED,BIRTHD+1.0);
FDMAN1:=QUITD; PCMAN1:=0.02; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,
FDMAN1); PCMMAN1:=2.0*PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,
FDMAN1)*VMM1; SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD;
PCVOL1:=MAX(0.0,MIN(0.04*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=
MAX(HIRED,BIRTHD+1.0); FDVOL2:=QUITD; PCVOL2:=MAX(0.0,MIN(0.1*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL2:=SUMI(
PCVOL2,2.0,0.0,SDVOL2,FDVOL2); PCMVOL1:=2.0*PCVOL1; MVOL1:=SUMI(
PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1; CNT:=MAN1+MMAN1+VOL1+MVOL1+
VOL2; CNQ:=ord((AGE>=65.0)!(AGE>=55.0)&(ASY16>=10.0))*CNT; if
min( CNQ,CNT,MVOL1,PCMVOL1,VOL2,PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,
FDVOL1,SDVOL1,MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMV1,VMM1,
ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3122s933; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); SDVOL1:=MAX(
HIRED,BIRTHD+3.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.02*WAGE(SURVEYD),
MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+3.0)
;FDCTE1:=MIN(QUITD,BIRTHD+70.0); PCCTE1:=CRPROF1; CTE1:=SUMI(
PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=CNT;
if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,
SDVOL1,VCT1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3123s535; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/52.0); VMM1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(ASY16>=
5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VMV1:=VMM1;
VCO1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(ASY16>=5.0)*0.5,ord((
QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VCO2:=VOPT(MAX(ord(ASY16>=
1.0)*0.1,ord(ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*
1.0)); SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=QUITD; PCMAN1:=
0.03; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=PCMAN1;
MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=MAX(
HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD),
MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); PCMVOL1:=PCVOL1; MVOL1:=SUMI(
PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1; SDCOE1:=MAX(HIRED,BIRTHD+
1.0); FDCOE1:=QUITD; PCCOE1:=0.06; COE1:=SUMI(PCCOE1,8.0,0.0,
SDCOE1,FDCOE1)*1.0*VCO1; SDCOE2:=MAX(HIRED,BIRTHD+1.0); FDCOE2:=
QUITD; PCCOE2:=COENAR; COE2:=SUMI(PCCOE2,97.0,0.0,SDCOE2,FDCOE2)*
1.0*VCO2; CNT:=MAN1+VOL1+MIN(MMAN1+MVOL1,COE1,COE2); CNQ:=CNT;
if min( CNQ,CNT,COE2,PCCOE2,FDCOE2,SDCOE2,COE1,PCCOE1,FDCOE1,
SDCOE1,MVOL1,PCMVOL1,VOL1,PCVOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,
MAN1,PCMAN1,FDMAN1,SDMAN1,VCO2,VCO1,VMV1,VMM1,ASY16,VEDB,DSQ,
DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3124s575; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VMM1:=VOPT(1.0); SDMAN1:=MAX(
HIRED,BIRTHD+1.0); FDMAN1:=MIN(QUITD,BIRTHD+70.0); PCMAN1:=
MANNAR; MAN1:=SUMI(PCMAN1,97.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=1.5*
PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=
MAX(HIRED,BIRTHD+1.0); FDVOL1:=MIN(QUITD,BIRTHD+70.0); PCVOL1:=
MAX(60.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); CNT:=MAN1+
MMAN1+VOL1; CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,CNT,VOL1,PCVOL1,
FDVOL1,SDVOL1,MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMM1,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3125s576; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VMM1:=VOPT(1.0); VMV1:=VOPT(
1.0); SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=MIN(QUITD,BIRTHD+
70.0); PCMAN1:=30.0/WAGE(SURVEYD); MAN1:=SUMI(PCMAN1,2.0,0.0,
SDMAN1,FDMAN1); PCMMAN1:=1.5*PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,
SDMAN1,FDMAN1)*VMM1; SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=MIN(
QUITD,BIRTHD+70.0); PCVOL1:=MAX(0.0,MIN(VOL2NAR*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDVOL2:=MAX(HIRED,BIRTHD+1.0); FDVOL2:=MIN(QUITD,
BIRTHD+70.0); PCVOL2:=MAX(60.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,
FDVOL2); PCMVOL1:=1.5*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,
FDVOL1)*VMV1; CNT:=MAN1+MMAN1+VOL1+MVOL1+VOL2; CNQ:=CNT; if min(
CNQ,CNT,MVOL1,PCMVOL1,VOL2,PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,
FDVOL1,SDVOL1,MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMV1,VMM1,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3126s884; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+21.0))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(
ASY16>=3.0)*0.5,ord(ASY16>=4.0)*0.75,ord((QUITAGE>=65.0)!(
ASY16>=5.0))*1.0)); SDVOL1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0))
;FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCTE1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=ord((AGE>=
65.0)!(AGE>=55.0)&(ASY16>=10.0))*CNT; if min( CNQ,CNT,CTE1,
PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3127s367; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
70.0)-MAX(HIRED,MIN(HIRED+5.0,BIRTHD+30.0)))*ord(WRKHRS>=1000.0)
*1.0; VCO1:=VOPT(1.0); SDMAN1:=MAX(HIRED,MIN(BIRTHD+30.0,HIRED+
5.0)); FDMAN1:=MIN(QUITD,BIRTHD+65.0); PCMAN1:=0.03; MAN1:=SUMI(
PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDVOL1:=MAX(HIRED,MIN(BIRTHD+30.0,
HIRED+5.0)); FDVOL1:=MIN(QUITD,BIRTHD+65.0); PCVOL1:=MAX(0.0,
CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,MIN(BIRTHD+30.0,HIRED+5.0));
FDCOE1:=MIN(QUITD,BIRTHD+65.0); VR1COE1:=ord(55.0>AGE)*0.1+ord((
65.0>AGE)&(AGE>=55.0))*0.12; PCCOE1:=VR1COE1; COE1:=SUMI(PCCOE1,
7.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; CNT:=MAN1+VOL1+COE1; CNQ:=CNT;
if min( CNQ,CNT,COE1,PCCOE1,VR1COE1,FDCOE1,SDCOE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCO1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3128s445; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDMAN1:=MAX(
HIRED,BIRTHD+1.0); FDMAN1:=QUITD; PCMAN1:=0.05; MAN1:=SUMI(
PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDCOE1:=MAX(HIRED,BIRTHD+1.0);
FDCOE1:=QUITD; PCCOE1:=0.1; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,
FDCOE1)*1.0*VCO1; CNT:=MAN1+COE1; CNQ:=CNT; if min( CNQ,CNT,COE1,
PCCOE1,FDCOE1,SDCOE1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCO1,VEDB,DSQ,
DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3129s796; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VMM1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(
ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0));
SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=QUITD; PCMAN1:=MANNAR;
MAN1:=SUMI(PCMAN1,97.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=MMANNAR*
PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=
MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(VOL1NAR*WAGE(
SURVEYD),MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); CNT:=MAN1+
VOL1+MMAN1; CNQ:=CNT; if min( CNQ,CNT,VOL1,PCVOL1,FDVOL1,SDVOL1,
MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMM1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3130s678; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); SDCTE1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+3.0)); FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=
CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3131s733; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VMM1:=VOPT(1.0); VMV1:=VOPT(1.0); SDMAN1:=MAX(HIRED,BIRTHD+1.0);
FDMAN1:=QUITD; PCMAN1:=0.02; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,
FDMAN1); PCMMAN1:=MIN(0.02,PCMAN1); MMAN1:=SUMI(PCMMAN1,7.0,0.0,
SDMAN1,FDMAN1)*VMM1; SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,MIN(0.02*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)
))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
SDVOL2:=MAX(HIRED,BIRTHD+1.0); FDVOL2:=QUITD; PCVOL2:=MAX(0.0,
MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL2:=
SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2); PCMVOL1:=MIN(0.01,PCVOL1);
MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1; CNT:=MAN1+MMAN1+
VOL1+MVOL1+VOL2; CNQ:=CNT; if min( CNQ,CNT,MVOL1,PCMVOL1,VOL2,
PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,
MAN1,PCMAN1,FDMAN1,SDMAN1,VMV1,VMM1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3132s734; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); VCO1:=VOPT(
1.0); VCO2:=VOPT(1.0); SDCTE1:=MAX(HIRED,BIRTHD+3.0); FDCTE1:=
MIN(QUITD,1983.0); PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*ord(WRKHRS>=12.0)*1.0*VCT1; SDCOE1:=MAX(HIRED,
BIRTHD+3.0,1983.0); FDCOE1:=MIN(QUITD,1985.0); PCCOE1:=0.005;
COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*NNMIN(1.0,WRKHRS/12.0)*
VCO1; SDCOE2:=MAX(HIRED,BIRTHD+3.0,1985.0); FDCOE2:=QUITD;
PCCOE2:=0.0075; COE2:=SUMI(PCCOE2,8.0,0.0,SDCOE2,FDCOE2)*NNMIN(
1.0,WRKHRS/12.0)*VCO2; CNT:=CTE1+COE1+COE2; CNQ:=CNT; if min(
CNQ,CNT,COE2,PCCOE2,FDCOE2,SDCOE2,COE1,PCCOE1,FDCOE1,SDCOE1,
CTE1,PCCTE1,FDCTE1,SDCTE1,VCO2,VCO1,VCT1,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3133s527; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VMV1:=VOPT(1.0); SDVOL1:=MAX(
HIRED,BIRTHD+2.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.03*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=MAX(HIRED,BIRTHD+2.0); FDVOL2:=
QUITD; PCVOL2:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD))
)/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2);
PCMVOL1:=PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1;
CNT:=VOL1+MVOL1+VOL2; CNQ:=CNT; if min( CNQ,CNT,MVOL1,PCMVOL1,
VOL2,PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,VMV1,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3134s538; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(
ASY16>=7.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=12.0))*1.0));
SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,
MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0)
;FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=VOL1+CTE1;
CNQ:=ord((AGE>=65.0)!(AGE>=60.0)&(ASY16>=20.0))*CNT; if min( CNQ,
CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,
ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3135s881; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
70.0)-MAX(HIRED+1.0,BIRTHD+21.0))*1.0; VCT1:=VOPT(MAX(ord(ASY16>=
4.0)*0.4,ord(ASY16>=6.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=11.0))*
1.0)); SDVOL1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDVOL1:=
MIN(QUITD,BIRTHD+70.0); PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0));
FDCTE1:=MIN(QUITD,BIRTHD+70.0); PCCTE1:=CRPROF1; CTE1:=SUMI(
PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=CNT;
if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,
SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3136s894; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); SDMAN1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDMAN1:=QUITD; PCMAN1:=0.02;
MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDVOL1:=MAX(HIRED,MAX(
BIRTHD+25.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.08*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,MAX(BIRTHD+25.0,
HIRED+1.0)); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,
7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=MAN1+VOL1+CTE1; CNQ:=ord(
AGE>=65.0)*CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,
PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCT1,VEDB,DSQ,
DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3137s427; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
1.0; VCT1:=VOPT(1.0); SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=
QUITD; PCMAN1:=0.01; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1);
SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.01*
WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(
HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(
PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=MAN1+VOL1+CTE1;
CNQ:=ord((AGE>=62.0)&(ASY16>=5.0))*CNT; if min( CNQ,CNT,CTE1,
PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,
FDMAN1,SDMAN1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3138s417; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); SDVOL1:=MAX(
HIRED,BIRTHD+2.0); FDVOL1:=QUITD; PCVOL1:=MAX(130.0,MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+2.0); FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,
FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3139s666; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=2.0)*0.1,ord(
ASY16>=6.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=11.0))*1.0));
SDVOL1:=HIRED; FDVOL1:=MIN(QUITD,BIRTHD+65.0); PCVOL1:=MAX(0.0,
MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,
BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,
7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=VOL1+
CTE1; CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,CTE1,PCCTE1,
FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3140s487; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=5.0)*0.25,ord(
ASY16>=10.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=15.0))*1.0));
SDCTE1:=MAX(HIRED,BIRTHD+21.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1;
CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*
1.0*VCT1; CNT:=CTE1; CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,
CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3141s668; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=5.0)*0.5,ord(
ASY16>=7.0)*0.7,ord((QUITAGE>=55.0)!(ASY16>=10.0))*1.0));
SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=QUITD; PCMAN1:=0.035;
MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDVOL1:=MAX(HIRED,
BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD)
,CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,BIRTHD+1.0); FDCOE1:=QUITD;
PCCOE1:=0.04; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*ord(
WRKHRS>=1000.0)*1.0*VCO1; CNT:=MAN1+VOL1+COE1; CNQ:=ord(AGE>=
55.0)*CNT; if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCO1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3142s752; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
1.0; VMM1:=VOPT(ord((QUITAGE>=65.0)!(ASY16>=2.0))*1.0); VMV1:=
VMM1; SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=QUITD; PCMAN1:=
0.005; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=
MMANNAR*PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1;
SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.005*
WAGE(SURVEYD),MIN(0.055*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
PCMVOL1:=MVOLNAR*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,
FDVOL1)*VMV1; CNT:=MAN1+MMAN1+VOL1+MVOL1; CNQ:=CNT; if min( CNQ,
CNT,MVOL1,PCMVOL1,VOL1,PCVOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,MAN1,
PCMAN1,FDMAN1,SDMAN1,VMV1,VMM1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3143s749; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NNMIN(20.0,MIN(QUITD,
BIRTHD+65.0,1978.75)-HIRED)*1.0; ASY17:=NN(QUITD-MAX(HIRED,
1978.75))*1.0; ASY61:=ASY16+ASY17; VCO1:=VOPT(MAX(ord(ASY61>=5.0)
*0.5,ord(ASY61>=7.0)*0.7,ord(ASY61>=10.0)*1.0)); VCO2:=VOPT(MAX(
ord(ASY61>=5.0)*0.5,ord(ASY61>=7.0)*0.7,ord(ASY61>=10.0)*1.0));
SDMAN1:=MAX(HIRED,1978.75); FDMAN1:=QUITD; PCMAN1:=0.06; MAN1:=
SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDVOL1:=MAX(HIRED,1978.75);
FDVOL1:=QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,1978.75); FDCOE1:=
QUITD; PCCOE1:=0.05; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*
1.0*VCO1; SDCOE2:=HIRED; FDCOE2:=MIN(QUITD,1978.75); PCCOE2:=
0.02; COE2:=SUMI(PCCOE2,8.0,0.0,SDCOE2,FDCOE2)*1.0*VCO2; CNT:=
VOL1+MAN1+COE1+COE2; CNQ:=ord((AGE>=65.0)&(ASY61>=10.0))*CNT; if
min( CNQ,CNT,COE2,PCCOE2,FDCOE2,SDCOE2,COE1,PCCOE1,FDCOE1,SDCOE1,
VOL1,PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCO2,VCO1,
ASY61,ASY17,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3144s745; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(
ASY16>=4.0)*0.4,ord(ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=
10.0))*1.0)); SDVOL1:=MAX(HIRED,MAX(BIRTHD+22.0,HIRED+1.0));
FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCTE1:=MAX(HIRED,MAX(BIRTHD+22.0,HIRED+1.0)); FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=CNT; if min(
CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,
VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3145s548; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VMM1:=VOPT(MAX(ord(ASY16>=4.0)*0.4,ord(
ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VMV1:=
VMM1; VCT1:=VMM1; SDMAN1:=MAX(HIRED,BIRTHD+1.0,1958.833);
FDMAN1:=QUITD; PCMAN1:=0.02; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,
FDMAN1); VR1MMAN1:=ord(5.0>ASY16)*0.5+ord((10.0>ASY16)&(ASY16>=
5.0))*0.75+ord(ASY16>=10.0)*1.0; PCMMAN1:=VR1MMAN1*PCMAN1;
MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=MAX(
HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.04*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=MAX(HIRED,BIRTHD+1.0); FDVOL2:=
QUITD; PCVOL2:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD))
)/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2);
VR1MVOL1:=ord(5.0>ASY16)*0.5+ord((10.0>ASY16)&(ASY16>=5.0))*
0.75+ord(ASY16>=10.0)*1.0; PCMVOL1:=VR1MVOL1*PCVOL1; MVOL1:=SUMI(
PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1; SDCTE1:=MAX(HIRED,BIRTHD+
1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=MAN1+MMAN1+
VOL1+MVOL1+VOL2+CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,
FDCTE1,SDCTE1,MVOL1,PCMVOL1,VR1MVOL1,VOL2,PCVOL2,FDVOL2,SDVOL2,
VOL1,PCVOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,VR1MMAN1,MAN1,PCMAN1,
FDMAN1,SDMAN1,VCT1,VMV1,VMM1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ)
<0 then negative end;

procedure c3146s497; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); SDCTE1:=MAX(
HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(
PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=CTE1; CNQ:=CNT; if
min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3147s561; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+2.0))*
1.0; VCO1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(ASY16>=5.0)*0.5,ord(
ASY16>=10.0)*1.0)); VCO2:=VCO1; VCO3:=VCO1; SDVOL1:=HIRED;
FDVOL1:=QUITD; PCVOL1:=MAX(VOL1NAR*WAGE(SURVEYD),MIN(VOL2NAR*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,MAX(BIRTHD+23.0,
HIRED+2.0),1976.5); FDCOE1:=MIN(QUITD,1979.0); VR1COE1:=ord(
12500.0>WAGE(SURVEYD))*0.08+ord(WAGE(SURVEYD)>=12500.0)*0.14;
PCCOE1:=VR1COE1; COE1:=SUMI(PCCOE1,7.0,0.0,SDCOE1,FDCOE1)*1.0*
VCO1; SDCOE2:=MAX(HIRED,MAX(BIRTHD+23.0,HIRED+2.0),1979.0);
FDCOE2:=MIN(QUITD,1980.5); VR1COE2:=ord(14400.0>WAGE(SURVEYD))*
0.08+ord(WAGE(SURVEYD)>=14400.0)*0.14; PCCOE2:=VR1COE2; COE2:=
SUMI(PCCOE2,7.0,0.0,SDCOE2,FDCOE2)*1.0*VCO2; SDCOE3:=MAX(HIRED,
MAX(BIRTHD+23.0,HIRED+2.0),1980.5); FDCOE3:=QUITD; VR1COE3:=ord(
16500.0>WAGE(SURVEYD))*0.08+ord(WAGE(SURVEYD)>=16500.0)*0.14;
PCCOE3:=VR1COE3; COE3:=SUMI(PCCOE3,7.0,0.0,SDCOE3,FDCOE3)*1.0*
VCO3; CNT:=VOL1+COE1+COE2+COE3; CNQ:=ord((AGE>=55.0)&(ASY16>=
10.0))*CNT; if min( CNQ,CNT,COE3,PCCOE3,VR1COE3,FDCOE3,SDCOE3,
COE2,PCCOE2,VR1COE2,FDCOE2,SDCOE2,COE1,PCCOE1,VR1COE1,FDCOE1,
SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO3,VCO2,VCO1,ASY16,VEDB,DSQ,
DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3150s539; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED,
1978.75))*ord(WRKHRS>=1000.0)*1.0; VMM1:=VOPT(MAX(ord(ASY16>=2.0)
*0.25,ord(ASY16>=3.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=5.0))*1.0)
); SDMAN1:=MAX(HIRED,BIRTHD+1.0,1978.75); FDMAN1:=QUITD; PCMAN1:=
104.0/WAGE(SURVEYD); MAN1:=SUMI(PCMAN1,2.0,0.0,SDMAN1,FDMAN1);
PCMMAN1:=PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1;
CNT:=MAN1+MMAN1; CNQ:=CNT; if min( CNQ,CNT,MMAN1,PCMMAN1,MAN1,
PCMAN1,FDMAN1,SDMAN1,VMM1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3151s474; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDCOE1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+3.0),1979.5); FDCOE1:=QUITD; PCCOE1:=
0.1; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)
*1.0*VCO1; CNT:=COE1; CNQ:=CNT; if min( CNQ,CNT,COE1,PCCOE1,
FDCOE1,SDCOE1,VCO1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3152s914; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
1.0; VCT1:=VOPT(MAX(ord(ASY16>=2.0)*0.2,ord(ASY16>=5.0)*0.5,ord((
QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VCT2:=VOPT(MAX(ord(ASY16>=
2.0)*0.2,ord(ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*
1.0)); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(
0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,
BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,
7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0);
FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,
FDCTE2)*1.0*VCT2; CNT:=VOL1+CTE1+CTE2; CNQ:=CNT; if min( CNQ,CNT,
CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3153s505; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(
ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VCT2:=
VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(ASY16>=5.0)*0.5,ord((QUITAGE>=
65.0)!(ASY16>=10.0))*1.0)); SDMAN1:=MAX(HIRED,BIRTHD+1.0);
FDMAN1:=QUITD; PCMAN1:=0.02; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,
FDMAN1); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=
MAX(0.01*WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)
))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1;
CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*
1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0); FDCTE2:=QUITD; PCCTE2:=
CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=
1000.0)*1.0*VCT2; CNT:=MAN1+VOL1+CTE1+CTE2; CNQ:=CNT; if min(
CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,
VOL1,PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCT2,VCT1,
ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3154s685; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=
5.0)*0.25,ord(ASY16>=10.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=15.0)
)*1.0)); VCT2:=VOPT(MAX(ord(ASY16>=5.0)*0.25,ord(ASY16>=10.0)*
0.5,ord((QUITAGE>=65.0)!(ASY16>=15.0))*1.0)); SDCTE1:=MAX(HIRED,
MIN(BIRTHD+25.0,HIRED+1.0)); FDCTE1:=QUITD; PCCTE1:=CRPROF1;
CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*
1.0*VCT1; SDCTE2:=MAX(HIRED,MIN(BIRTHD+25.0,HIRED+1.0)); FDCTE2:=
QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*
ord(WRKHRS>=1000.0)*1.0*VCT2; CNT:=CTE1+CTE2; CNQ:=CNT; if min(
CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,
VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3155s681; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,1982.417)
-HIRED)*1.0; ASY17:=NN(QUITD-MAX(HIRED,1982.417))*ord(WRKHRS>=
1000.0)*1.0; ASY61:=ASY16+ASY17; VCT1:=VOPT(MAX(ord(ASY61>=2.0)*
0.2,ord(ASY61>=4.0)*0.6,ord(ASY61>=6.0)*1.0)); VCT2:=VOPT(MAX(
ord(ASY61>=2.0)*0.2,ord(ASY61>=4.0)*0.6,ord(ASY61>=6.0)*1.0));
SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,
MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0)
;FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,
BIRTHD+1.0); FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,
7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=1000.0)*1.0*VCT2; CNT:=VOL1+
CTE1+CTE2; CNQ:=CNT; if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,
CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT2,VCT1,
ASY61,ASY17,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3156s929; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,1983.0)-(
HIRED+1.0))*ord(WRKHRS>=1000.0)*1.0; ASY17:=NN(QUITD-MAX(HIRED,
1983.0))*1.0; ASY61:=ASY16+ASY17; VCT1:=VOPT(MAX(ord(ASY61>=2.0)*
0.1,ord(ASY61>=7.0)*0.4,ord((QUITAGE>=65.0)!(ASY61>=12.0))*1.0))
;VCT2:=VOPT(MAX(ord(ASY61>=2.0)*0.1,ord(ASY61>=7.0)*0.4,ord((
QUITAGE>=65.0)!(ASY61>=12.0))*1.0)); SDCTE1:=HIRED; FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
1.0*VCT1; SDCTE2:=HIRED; FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=
SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2; CNT:=CTE1+CTE2;
CNQ:=CNT; if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,
FDCTE1,SDCTE1,VCT2,VCT1,ASY61,ASY17,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3157s524; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=5.0)*0.25,ord(
ASY16>=10.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=15.0))*1.0)); VCT2:=
VOPT(MAX(ord(ASY16>=5.0)*0.25,ord(ASY16>=10.0)*0.5,ord((
QUITAGE>=65.0)!(ASY16>=15.0))*1.0)); SDCTE1:=MAX(HIRED,BIRTHD+
1.0); FDCTE1:=QUITD; PCCTE1:=0.05; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,
BIRTHD+1.0); FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,
7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=1000.0)*1.0*VCT2; CNT:=CTE1+
CTE2; CNQ:=CNT; if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,
PCCTE1,FDCTE1,SDCTE1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3158s471; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED,
BIRTHD+21.0))*1.0; VCT1:=VOPT(MAX(ord(ASY16>=4.0)*0.4,ord(ASY16>=
6.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=11.0))*1.0)); VCT2:=VOPT(
MAX(ord(ASY16>=4.0)*0.4,ord(ASY16>=6.0)*0.5,ord((QUITAGE>=65.0)!
(ASY16>=11.0))*1.0)); SDCTE1:=MAX(HIRED,BIRTHD+21.0); FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+21.0); FDCTE2:=QUITD; PCCTE2:=
CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2; CNT:=
CTE1+CTE2; CNQ:=CNT; if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,
CTE1,PCCTE1,FDCTE1,SDCTE1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3161s709; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VMM1:=VOPT(MAX(ord(ASY16>=1.0)*0.25,ord(
ASY16>=2.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=4.0))*1.0)); VMV1:=
VMM1; SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=MIN(QUITD,BIRTHD+
70.0); PCMAN1:=0.01; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1);
PCMMAN1:=0.5*PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*
VMM1; SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=MIN(QUITD,BIRTHD+
70.0); PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.09*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDVOL2:=MAX(HIRED,BIRTHD+1.0); FDVOL2:=MIN(QUITD,
BIRTHD+70.0); PCVOL2:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,
FDVOL2); PCMVOL1:=0.5*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,
FDVOL1)*VMV1; CNT:=MAN1+MMAN1+VOL1+MVOL1+VOL2; CNQ:=CNT; if min(
CNQ,CNT,MVOL1,PCMVOL1,VOL2,PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,
FDVOL1,SDVOL1,MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMV1,VMM1,
ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3162s582; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+21.0,1981.0))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(
ord(ASY16>=3.0)*0.3,ord(ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(
ASY16>=10.0))*1.0)); VCT2:=VOPT(MAX(ord(ASY16>=3.0)*0.3,ord(
ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0));
SDCTE1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDCTE1:=QUITD;
PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(
WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,MAX(BIRTHD+21.0,
HIRED+1.0)); FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,
7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=1000.0)*1.0*VCT2; CNT:=CTE1+
CTE2; CNQ:=CNT; if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,
PCCTE1,FDCTE1,SDCTE1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3163s525; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED,
1978.25))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=2.0)
*0.1,ord(ASY16>=6.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=11.0))*1.0)
); VCT2:=VOPT(MAX(ord(ASY16>=2.0)*0.1,ord(ASY16>=6.0)*0.5,ord((
QUITAGE>=65.0)!(ASY16>=11.0))*1.0)); SDVOL1:=MAX(HIRED,MAX(
BIRTHD+23.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(100.0,CRVOL*
WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCTE1:=MAX(HIRED,MAX(BIRTHD+23.0,HIRED+1.0),1978.25);
FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,
FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,MAX(
BIRTHD+23.0,HIRED+1.0),1978.25); FDCTE2:=QUITD; PCCTE2:=CRFORT1;
CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=1000.0)*
1.0*VCT2; CNT:=VOL1+CTE1+CTE2; CNQ:=CNT; if min( CNQ,CNT,CTE2,
PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3164s510; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
75.0)-MAX(HIRED+1.0,BIRTHD+18.0))*ord(WRKHRS>=1000.0)*1.0; VCO1:=
VOPT(MAX(ord(ASY16>=3.0)*0.1,ord(ASY16>=7.0)*0.5,ord(ASY16>=
10.0)*1.0)); SDVOL1:=MAX(HIRED,MAX(BIRTHD+18.0,HIRED+1.0));
FDVOL1:=MIN(QUITD,BIRTHD+75.0); PCVOL1:=MAX(0.0,MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,MAX(BIRTHD+18.0,HIRED+
1.0)); FDCOE1:=MIN(QUITD,BIRTHD+75.0); PCCOE1:=0.1; COE1:=SUMI(
PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=
VOL1+COE1; CNQ:=ord((AGE>=55.0)&(ASY16>=15.0))*CNT; if min( CNQ,
CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO1,
ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3165s446; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCO1:=VOPT(1.0); SDVOL1:=MAX(HIRED,MAX(
BIRTHD+19.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,MAX(BIRTHD+19.0,
HIRED+1.0)); FDCOE1:=QUITD; PCCOE1:=0.02; COE1:=SUMI(PCCOE1,8.0,
0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=VOL1+COE1;
CNQ:=ord((AGE>=65.0)&(ASY16>=10.0))*CNT; if min( CNQ,CNT,COE1,
PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3166s640; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+21.0))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(ord(ASY16>=
1.0)*1.0); VCT2:=VOPT(ord(ASY16>=1.0)*1.0); SDVOL1:=MAX(HIRED,
MAX(BIRTHD+21.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(
0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,MAX(BIRTHD+
21.0,HIRED+1.0)); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(
PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; SDCTE2:=MAX(HIRED,MAX(
BIRTHD+21.0,HIRED+1.0)); FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=
SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2; CNT:=VOL1+CTE1+CTE2;
CNQ:=CNT; if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,
FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT2,VCT1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3167s586; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; VCO1:=VOPT(ord(ASY16>=5.0)*1.0); SDMAN1:=HIRED;
FDMAN1:=MIN(QUITD,BIRTHD+70.0); PCMAN1:=0.04; MAN1:=SUMI(PCMAN1,
8.0,0.0,SDMAN1,FDMAN1); SDCOE1:=HIRED; FDCOE1:=MIN(QUITD,BIRTHD+
70.0); PCCOE1:=0.09; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*
1.0*VCO1; CNT:=MAN1+COE1; CNQ:=ord((AGE>=60.0)!(ASY16>=30.0))*
CNT; if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,MAN1,PCMAN1,
FDMAN1,SDMAN1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3168s512; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+21.0))*ord(WRKHRS>=500.0)*1.0; VCO1:=VOPT(MAX(ord(
ASY16>=1.0)*0.1,ord(ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=
10.0))*1.0)); SDCOE1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0));
FDCOE1:=QUITD; VR1COE1:=ord(6000.0>WAGE(SURVEYD))*0.05+ord(WAGE(
SURVEYD)>=6000.0)*0.12; PCCOE1:=VR1COE1; COE1:=SUMI(PCCOE1,7.0,
0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=500.0)*1.0*VCO1; CNT:=COE1; CNQ:=
ord((AGE>=65.0)!(AGE>=55.0)&(ASY16>=10.0))*CNT; if min( CNQ,CNT,
COE1,PCCOE1,VR1COE1,FDCOE1,SDCOE1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3169s513; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+21.0))*ord(WRKHRS>=500.0)*1.0; VCT1:=VOPT(MAX(ord(
ASY16>=1.0)*0.3333,ord(ASY16>=2.0)*0.6667,ord((QUITAGE>=65.0)!(
ASY16>=3.0))*1.0)); SDVOL1:=MAX(HIRED,MAX(BIRTHD+20.0,HIRED+1.0))
;FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCTE1:=MAX(HIRED,MAX(BIRTHD+20.0,HIRED+1.0)); FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
ord(WRKHRS>=500.0)*1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=ord((AGE>=65.0)
!(AGE>=62.0)&(ASY16>=3.0))*CNT; if min( CNQ,CNT,CTE1,PCCTE1,
FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3170s710; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+21.0))*1.0; VMM1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(
ASY16>=9.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=15.0))*1.0));
SDMAN1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDMAN1:=QUITD;
PCMAN1:=0.02; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=
PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=
MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=
MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); CNT:=MAN1+
MMAN1+VOL1; CNQ:=ord((AGE>=65.0)!(AGE>=55.0)&(ASY16>=15.0))*CNT;
if min( CNQ,CNT,VOL1,PCVOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,MAN1,
PCMAN1,FDMAN1,SDMAN1,VMM1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3171s649; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCO1:=VOPT(1.0); VCO2:=VOPT(1.0); SDMAN1:=HIRED; FDMAN1:=QUITD;
VR1MAN1:=ord((3.0>ASY16)&(ASY16>=1.0))*0.015+ord((6.0>ASY16)&(
ASY16>=3.0))*0.0267+ord(ASY16>=6.0)*0.0433; PCMAN1:=VR1MAN1;
MAN1:=SUMI(PCMAN1,7.0,0.0,SDMAN1,FDMAN1); SDCOE1:=HIRED; FDCOE1:=
QUITD; VR1COE1:=ord(3.0>ASY16)*0.03+ord((6.0>ASY16)&(ASY16>=3.0))
*0.0333+ord((11.0>ASY16)&(ASY16>=6.0))*0.0394+ord((20.0>ASY16)&(
ASY16>=11.0))*0.0471+ord(ASY16>=20.0)*0.054; PCCOE1:=VR1COE1;
COE1:=SUMI(PCCOE1,7.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; SDCOE2:=HIRED;
FDCOE2:=QUITD; VR1COE2:=ord(ASY16>=20.0)*0.08; PCCOE2:=VR1COE2;
COE2:=SUMI(PCCOE2,7.0,0.0,SDCOE2,FDCOE2)*1.0*VCO2; CNT:=MAN1+
COE1+COE2; CNQ:=CNT; if min( CNQ,CNT,COE2,PCCOE2,VR1COE2,FDCOE2,
SDCOE2,COE1,PCCOE1,VR1COE1,FDCOE1,SDCOE1,MAN1,PCMAN1,VR1MAN1,
FDMAN1,SDMAN1,VCO2,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3172s968; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0,1978.083))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(
ord(ASY16>=3.0)*0.3,ord(ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(
ASY16>=10.0))*1.0)); VCT2:=VOPT(MAX(ord(ASY16>=3.0)*0.3,ord(
ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0));
SDCTE1:=MAX(HIRED,BIRTHD+24.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1;
CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*
1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+24.0); FDCTE2:=QUITD; PCCTE2:=
CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=
1000.0)*1.0*VCT2; CNT:=CTE1+CTE2; CNQ:=ord(AGE>=65.0)*CNT; if
min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,
VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3173s655; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED,
BIRTHD+21.0))*ord(WRKHRS>=1000.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=
5.0)*0.5,ord(ASY16>=8.0)*0.8,ord((QUITAGE>=65.0)!(ASY16>=10.0))*
1.0)); SDVOL1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0),1980.0);
FDVOL1:=QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+
1.0),1980.0); FDCOE1:=QUITD; PCCOE1:=0.05; COE1:=SUMI(PCCOE1,8.0,
0.0,SDCOE1,FDCOE1)*1.0*VCO1; CNT:=VOL1+COE1; CNQ:=ord(AGE>=65.0)*
CNT; if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3174s792; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); VCO1:=VCT1;
SDVOL1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDVOL1:=QUITD;
PCVOL1:=MAX(0.02*WAGE(SURVEYD),MIN(0.06*WAGE(SURVEYD),CRVOL*
WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCTE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
ord(WRKHRS>=1000.0)*1.0*VCT1; SDCOE1:=MAX(HIRED,MAX(BIRTHD+25.0,
HIRED+1.0)); FDCOE1:=QUITD; PCCOE1:=0.1; COE1:=SUMI(PCCOE1,8.0,
0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=VOL1+CTE1+
COE1; CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,CNT,COE1,PCCOE1,
FDCOE1,SDCOE1,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,
SDVOL1,VCO1,VCT1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3175s559; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+18.0))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(
ASY16>=3.0)*0.1,ord(ASY16>=7.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=
12.0))*1.0)); SDVOL1:=MAX(HIRED,MAX(BIRTHD+18.0,HIRED+1.0));
FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCTE1:=MAX(HIRED,MAX(BIRTHD+18.0,HIRED+1.0)); FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=CNT; if min(
CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,
VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3176s633; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=6.0)*0.2,ord(ASY16>=
8.0)*0.6,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); SDCOE1:=HIRED;
FDCOE1:=MIN(QUITD,BIRTHD+65.0); PCCOE1:=0.05; COE1:=SUMI(PCCOE1,
8.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; CNT:=COE1; CNQ:=ord((AGE>=65.0)!
(AGE>=55.0)&(ASY16>=5.0))*CNT; if min( CNQ,CNT,COE1,PCCOE1,
FDCOE1,SDCOE1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3177s735; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
ASY17:=NNMIN(25.0,MIN(QUITD,BIRTHD+62.0)-(HIRED+1.0))*1.0; VCO1:=
VOPT(MAX(ord(ASY16>=5.0)*0.5,ord(ASY16>=6.0)*0.6,ord((ASY16>=
10.0)!(QUITAGE>=55.0)&(ASY16>=5.0))*1.0)); SDMAN1:=MAX(HIRED,
BIRTHD+1.0); FDMAN1:=QUITD; PCMAN1:=0.05; MAN1:=SUMI(PCMAN1,8.0,
0.0,SDMAN1,FDMAN1); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD;
PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(2000.0,CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=
MAX(HIRED,BIRTHD+1.0); FDVOL2:=QUITD; PCVOL2:=MAX(0.01*WAGE(
SURVEYD),MIN(0.05*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2); SDCOE1:=MAX(
HIRED,BIRTHD+1.0); FDCOE1:=QUITD; PCCOE1:=0.06; COE1:=SUMI(
PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; CLS10:=0.0; CNT:=MAN1+
VOL1+VOL2+COE1+CLS10; CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,CNT,
CLS10,COE1,PCCOE1,FDCOE1,SDCOE1,VOL2,PCVOL2,FDVOL2,SDVOL2,VOL1,
PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCO1,ASY17,ASY16,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3178s707; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=5.0)*0.25,ord(
ASY16>=10.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=15.0)!(QUITAGE>=
60.0)&(ASY16>=10.0))*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+1.0);
FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=
1000.0)*1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,
PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3179s611; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED,
BIRTHD+21.0))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=
3.0)*0.3,ord(ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*
1.0)); VCT2:=VOPT(MAX(ord(ASY16>=3.0)*0.3,ord(ASY16>=5.0)*0.5,
ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); SDCTE1:=MAX(HIRED,MAX(
BIRTHD+21.0,HIRED+1.0)); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=
SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; SDCTE2:=MAX(HIRED,
MAX(BIRTHD+21.0,HIRED+1.0)); FDCTE2:=QUITD; PCCTE2:=CRFORT1;
CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2; CNT:=CTE1+
CTE2; CNQ:=CNT; if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,
PCCTE1,FDCTE1,SDCTE1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3180s601; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY17:=NN(QUITD-MAX(HIRED+1.0,BIRTHD+25.0))*
ord(WRKHRS>=500.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(
ASY16>=5.0)*0.5,ord(ASY16>=10.0)*1.0)); SDVOL1:=MAX(HIRED,MAX(
BIRTHD+25.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(100.0,MIN(
0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,MAX(BIRTHD+
25.0,HIRED+1.0)); FDCOE1:=QUITD; PCCOE1:=0.1; COE1:=SUMI(PCCOE1,
8.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=500.0)*1.0*VCO1; CNT:=VOL1+
COE1; CNQ:=ord((AGE>=55.0)&(ASY17>=5.0))*CNT; if min( CNQ,CNT,
COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO1,ASY17,
ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3181s623; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCT1:=VOPT(MAX(ord(ASY16>=4.0)*0.4,ord(ASY16>=6.0)*0.5,ord((
QUITAGE>=65.0)!(ASY16>=11.0))*1.0)); SDCTE1:=MAX(HIRED,BIRTHD+
1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*1.0*VCT1; CNT:=CTE1; CNQ:=CNT; if min( CNQ,CNT,
CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3182s618; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.05,ord(
ASY16>=6.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=11.0))*1.0));
SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,
MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0)
;FDCTE1:=MIN(QUITD,BIRTHD+65.0); PCCTE1:=CRPROF1; CTE1:=SUMI(
PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=
VOL1+CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,
VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3183s855; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCO1:=VOPT(ord((QUITAGE>=65.0)!(ASY16>=5.0))*1.0); SDCOE1:=HIRED;
FDCOE1:=QUITD; PCCOE1:=COENAR; COE1:=SUMI(PCCOE1,97.0,0.0,SDCOE1,
FDCOE1)*1.0*VCO1; CLS4:=0.0; CNT:=COE1+CLS4; CNQ:=CNT; if min(
CNQ,CNT,CLS4,COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3184s639; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NNMIN(30.0,QUITD-MAX(
HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; VCO1:=VOPT(ord((
QUITAGE>=65.0)!(ASY16>=10.0))*1.0); SDCOE1:=MAX(HIRED,MAX(BIRTHD+
25.0,HIRED+1.0)); FDCOE1:=MIN(QUITD,SDCOE1+30.0); PCCOE1:=COENAR;
COE1:=SUMI(PCCOE1,97.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*
1.0*VCO1; CNT:=COE1; CNQ:=CNT; if min( CNQ,CNT,COE1,PCCOE1,
FDCOE1,SDCOE1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3185s605; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; ASY17:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; VCO1:=VOPT(MAX(ord(
ASY16>=4.0)*0.15,ord(ASY16>=7.0)*0.6,ord((ASY16>=10.0)!(
QUITAGE>=55.0)&(ASY16>=5.0))*1.0)); SDVOL1:=MAX(HIRED,MAX(BIRTHD+
25.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(10.0,MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+
1.0)); FDCOE1:=QUITD; VR1COE1:=ord(9000.0>WAGE(SURVEYD))*0.08+
ord(WAGE(SURVEYD)>=9000.0)*0.15; PCCOE1:=VR1COE1; COE1:=SUMI(
PCCOE1,7.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=
VOL1+COE1; CNQ:=ord((AGE>=55.0)&(ASY17>=5.0))*CNT; if min( CNQ,
CNT,COE1,PCCOE1,VR1COE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,
VCO1,ASY17,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3186s717; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=500.0)*1.0; VMV1:=VOPT(MAX(ord(ASY16>=4.0)*0.4,ord(
ASY16>=6.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VCT1:=
VOPT(MAX(ord(ASY16>=4.0)*0.4,ord(ASY16>=7.0)*0.6,ord((QUITAGE>=
65.0)!(ASY16>=10.0))*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+1.0);
FDVOL1:=QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.06*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=MAX(HIRED,BIRTHD+1.0); FDVOL2:=
QUITD; PCVOL2:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD))
)/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2);
PCMVOL1:=0.5*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*
VMV1; SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=
500.0)*1.0*VCT1; CNT:=VOL1+VOL2+MVOL1+CTE1; CNQ:=CNT; if min(
CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,MVOL1,PCMVOL1,VOL2,PCVOL2,
FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,VMV1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3187s602; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(
ASY16>=4.0)*0.5,ord((QUITAGE>=55.0)!(ASY16>=7.0))*1.0)); SDVOL1:=
MAX(HIRED,BIRTHD+1.0,1980.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.02*
WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(
HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(
PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=
VOL1+CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,
VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3188s568; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCT1:=VOPT(MAX(ord(ASY16>=3.0)*0.05,ord(ASY16>=10.0)*0.56,ord((
QUITAGE>=57.0)!(ASY16>=15.0))*1.0)); SDVOL1:=HIRED; FDVOL1:=
QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.06*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDVOL2:=HIRED; FDVOL2:=QUITD; PCVOL2:=MAX(0.01*
WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2); SDCTE1:=
HIRED; FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*1.0*VCT1; CNT:=VOL1+VOL2+CTE1; CNQ:=ord(AGE>=57.0)
*CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL2,PCVOL2,
FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3189s739; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDMAN1:=MAX(
HIRED,BIRTHD+1.0); FDMAN1:=QUITD; PCMAN1:=0.075; MAN1:=SUMI(
PCMAN1,3.0,1800.0,SDMAN1,FDMAN1); SDVOL1:=MAX(HIRED,BIRTHD+1.0);
FDVOL1:=QUITD; PCVOL1:=MAX(VOL1NAR*WAGE(SURVEYD),MIN(VOL2NAR*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,BIRTHD+1.0);
FDCOE1:=QUITD; PCCOE1:=0.11; COE1:=SUMI(PCCOE1,3.0,2640.0,SDCOE1,
FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=VOL1+COE1+MAN1; CNQ:=
CNT; if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCO1,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3190s967; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=5.0)*0.5,ord(
ASY16>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0));
SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,
MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0)
;FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=VOL1+CTE1;
CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,
SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3191s522; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=4.0)*0.4,ord(
ASY16>=7.0)*0.6,ord((QUITAGE>=65.0)!(ASY16>=11.0)!(QUITAGE>=
55.0)&(ASY16>=10.0))*1.0)); SDVOL1:=HIRED; FDVOL1:=QUITD;
PCVOL1:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=HIRED; FDCTE1:=QUITD;
PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(
WRKHRS>=1000.0)*1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=ord((AGE>=65.0)!(
AGE>=55.0)&(ASY16>=10.0))*CNT; if min( CNQ,CNT,CTE1,PCCTE1,
FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3192s552; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=5.0)*0.5,ord(
ASY16>=6.0)*0.75,ord((QUITAGE>=65.0)!(ASY16>=6.0))*1.0));
SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=QUITD; PCMAN1:=0.02;
MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDVOL1:=MAX(HIRED,
BIRTHD+1.0,1974.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD)
,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,
BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,
7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=MAN1+
VOL1+CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,
VOL1,PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCT1,ASY16,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3193s476; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VMM1:=VOPT(MAX(ord(ASY16>=2.0)*0.2,ord(
ASY16>=4.0)*0.6,ord((QUITAGE>=55.0)!(ASY16>=6.0))*1.0)); VMV1:=
VOPT(MAX(ord(ASY16>=2.0)*0.2,ord(ASY16>=4.0)*0.6,ord((QUITAGE>=
55.0)!(ASY16>=6.0))*1.0)); SDMAN1:=MAX(HIRED,BIRTHD+1.0);
FDMAN1:=QUITD; PCMAN1:=0.02; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,
FDMAN1); PCMMAN1:=PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,
FDMAN1)*VMM1; SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD;
VR2VOL1:=ord((5.0>ASY16)&(ASY16>=1.0))*0.0133+ord((10.0>ASY16)&(
ASY16>=5.0))*0.024+ord(ASY16>=10.0)*0.04; PCVOL1:=MAX(0.01*WAGE(
SURVEYD),MIN(VR2VOL1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=MAX(
HIRED,BIRTHD+1.0); FDVOL2:=QUITD; VR2VOL2:=ord((5.0>ASY16)&(
ASY16>=1.0))*0.0533+ord((10.0>ASY16)&(ASY16>=5.0))*0.0627+ord(
ASY16>=10.0)*0.051; PCVOL2:=MAX(0.01*WAGE(SURVEYD),MIN(VR2VOL2*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL2:=SUMI(
PCVOL2,2.0,0.0,SDVOL2,FDVOL2); PCMVOL1:=PCVOL1; MVOL1:=SUMI(
PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1; CNT:=MAN1+MMAN1+VOL1+MVOL1+
VOL2; CNQ:=CNT; if min( CNQ,CNT,MVOL1,PCMVOL1,VOL2,PCVOL2,
VR2VOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,VR2VOL1,FDVOL1,SDVOL1,MMAN1,
PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMV1,VMM1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3194s477; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VMV1:=VOPT(1.0); VCT1:=VOPT(1.0); VCT2:=
VOPT(1.0); VCT3:=VOPT(1.0); SDVOL1:=MAX(HIRED,BIRTHD+1.0,1982.0);
FDVOL1:=MIN(QUITD,1983.0); PCVOL1:=MAX(0.0,MIN(VOL2NAR*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); PCMVOL1:=PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,
0.0,SDVOL1,FDVOL1)*VMV1; SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=
MIN(QUITD,1983.0); PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,
BIRTHD+1.0,1983.0); FDCTE2:=MIN(QUITD,1985.0); PCCTE2:=0.005;
CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=1000.0)*
1.0*VCT2; SDCTE3:=MAX(HIRED,BIRTHD+1.0,1985.0); FDCTE3:=QUITD;
PCCTE3:=0.0075; CTE3:=SUMI(PCCTE3,7.0,0.0,SDCTE3,FDCTE3)*ord(
WRKHRS>=1000.0)*1.0*VCT3; CNT:=VOL1+MVOL1+CTE1+CTE2+CTE3; CNQ:=
CNT; if min( CNQ,CNT,CTE3,PCCTE3,FDCTE3,SDCTE3,CTE2,PCCTE2,
FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,MVOL1,PCMVOL1,VOL1,
PCVOL1,FDVOL1,SDVOL1,VCT3,VCT2,VCT1,VMV1,ASY16,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3195s478; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.2,ord(
ASY16>=3.0)*0.6,ord((QUITAGE>=65.0)!(ASY16>=5.0))*1.0)); SDCTE1:=
MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=
SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1;
CNT:=CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,
VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3196s533; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(
ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VCT2:=
VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(ASY16>=5.0)*0.5,ord((QUITAGE>=
65.0)!(ASY16>=10.0))*1.0)); SDCTE1:=MAX(HIRED,BIRTHD+1.0);
FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,
FDCTE1)*1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0); FDCTE2:=QUITD;
PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*
VCT2; CNT:=CTE1+CTE2; CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,CNT,
CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT2,VCT1,
ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3197s579; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+24.0))*1.0; VCT1:=VOPT(MAX(ord(ASY16>=5.0)*0.25,ord(
ASY16>=10.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=15.0))*1.0)); VCT2:=
VOPT(MAX(ord(ASY16>=5.0)*0.25,ord(ASY16>=10.0)*0.5,ord((
QUITAGE>=65.0)!(ASY16>=15.0))*1.0)); SDVOL1:=MAX(HIRED,MAX(
BIRTHD+24.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=MAX(HIRED,BIRTHD+3.0);
FDVOL2:=QUITD; PCVOL2:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,
FDVOL2); SDCTE1:=MAX(HIRED,MAX(BIRTHD+24.0,HIRED+1.0)); FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+3.0); FDCTE2:=QUITD; PCCTE2:=
CRPROF2; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2; CNT:=
MAX(VOL1+CTE1,VOL2+CTE2); CNQ:=ord(AGE>=65.0)*CNT; if min( CNQ,
CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL2,
PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT2,VCT1,ASY16,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3198s490; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VMM1:=VOPT(MAX(ord(ASY16>=2.0)*0.25,ord(
ASY16>=3.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=5.0))*1.0)); VMV1:=
VMM1; SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=QUITD; PCMAN1:=0.01;
MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=PCMAN1;
MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=MAX(
HIRED,BIRTHD+1.0); FDVOL1:=QUITD; VR2VOL1:=ord(10.0>ASY16)*0.03+
ord(ASY16>=10.0)*0.04; PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(
VR2VOL1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=MAX(HIRED,BIRTHD+1.0)
;FDVOL2:=QUITD; PCVOL2:=MAX(0.01*WAGE(SURVEYD),MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,
2.0,0.0,SDVOL2,FDVOL2); PCMVOL1:=PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,
0.0,SDVOL1,FDVOL1)*VMV1; CNT:=MAN1+MMAN1+VOL1+VOL2+MVOL1; CNQ:=
CNT; if min( CNQ,CNT,MVOL1,PCMVOL1,VOL2,PCVOL2,FDVOL2,SDVOL2,
VOL1,PCVOL1,VR2VOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,MAN1,PCMAN1,
FDMAN1,SDMAN1,VMV1,VMM1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3199s492; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); SDCTE1:=MAX(
HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(
PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=CTE1; CNQ:=CNT; if
min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3200s466; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); SDVOL1:=
HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.1*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0);
FDCTE1:=QUITD; PCCTE1:=0.05; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,
FDCTE1)*1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=ord(AGE>=59.0)*CNT; if
min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,
VCT1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3201s846; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
3.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(1.0);
SDCTE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+3.0)); FDCTE1:=QUITD;
PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(
WRKHRS>=1000.0)*1.0*VCT1; CNT:=CTE1; CNQ:=CNT; if min( CNQ,CNT,
CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3202s1015; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=900.0)*1.0; VMM1:=VOPT(ord(ASY16>=12.0)*1.0); SDMAN1:=
HIRED; FDMAN1:=QUITD; PCMAN1:=0.055; MAN1:=SUMI(PCMAN1,8.0,0.0,
SDMAN1,FDMAN1); PCMMAN1:=PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,
SDMAN1,FDMAN1)*VMM1; CNT:=MAN1+MMAN1; CNQ:=ord((ASY16>=30.0)!(
AGE>=60.0)&(ASY16>=12.0))*CNT; if min( CNQ,CNT,MMAN1,PCMMAN1,
MAN1,PCMAN1,FDMAN1,SDMAN1,VMM1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3203s848; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VMV1:=VOPT(ord((QUITAGE>=65.0)!(ASY16>=5.0))
*1.0); VCO1:=VMV1; SDVOL1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0));
FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(300.0,CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
PCMVOL1:=0.5*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*
VMV1; SDCOE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCOE1:=MIN(
QUITD,BIRTHD+65.0); PCCOE1:=COENAR; COE1:=SUMI(PCCOE1,97.0,0.0,
SDCOE1,FDCOE1)*NNMIN(1.0,WRKHRS/1800.0)*VCO1; CNT:=VOL1+MVOL1+
COE1; CNQ:=ord((AGE>=65.0)!(AGE>=55.0)&(ASY16>=10.0))*CNT; if
min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,MVOL1,PCMVOL1,VOL1,PCVOL1,
FDVOL1,SDVOL1,VCO1,VMV1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3204s991; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=1.0)*0.2,ord(
ASY16>=3.0)*0.6,ord(ASY16>=5.0)*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+
1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*
WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCOE1:=MAX(HIRED,BIRTHD+1.0); FDCOE1:=QUITD; PCCOE1:=
0.05; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=
1000.0)*1.0*VCO1; CNT:=VOL1+COE1; CNQ:=ord(AGE>=60.0)*CNT; if
min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,
VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3205s689; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=3.0)*0.3,ord(
ASY16>=6.0)*0.6,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VCT2:=
VOPT(MAX(ord(ASY16>=3.0)*0.3,ord(ASY16>=6.0)*0.6,ord((QUITAGE>=
65.0)!(ASY16>=10.0))*1.0)); SDMAN1:=MAX(HIRED,BIRTHD+1.0);
FDMAN1:=QUITD; PCMAN1:=0.01; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,
FDMAN1); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=
MAX(0.01*WAGE(SURVEYD),MIN(0.03*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=
1000.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0); FDCTE2:=QUITD;
PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*ord(
WRKHRS>=1000.0)*1.0*VCT2; CNT:=MAN1+VOL1+CTE1+CTE2; CNQ:=CNT; if
min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,
VOL1,PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCT2,VCT1,
ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3206s603; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+3.0))*
ord(WRKHRS>=1000.0)*1.0; VMM1:=VOPT(1.0); VMV1:=VOPT(1.0); VCT1:=
VOPT(1.0); SDMAN1:=MAX(HIRED,BIRTHD+3.0); FDMAN1:=QUITD; PCMAN1:=
0.02; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=MIN(
750.0/WAGE(SURVEYD),0.5*PCMAN1); MMAN1:=SUMI(PCMMAN1,7.0,0.0,
SDMAN1,FDMAN1)*VMM1; SDVOL1:=MAX(HIRED,BIRTHD+3.0); FDVOL1:=
QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.04*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDVOL2:=MAX(HIRED,BIRTHD+3.0); FDVOL2:=QUITD;
PCVOL2:=MAX(0.01*WAGE(SURVEYD),MIN(0.06*WAGE(SURVEYD),CRVOL*
WAGE(SURVEYD)))/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,
FDVOL2); PCMVOL1:=MIN(1500.0/WAGE(SURVEYD),0.5*PCVOL1); MVOL1:=
SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1; SDCTE1:=MAX(HIRED,
BIRTHD+3.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,
7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=MAN1+MMAN1+VOL1+MVOL1+VOL2+
CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,MVOL1,
PCMVOL1,VOL2,PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,
MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCT1,VMV1,VMM1,ASY16,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3207s890; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=4.0)*0.4,ord(
ASY16>=7.0)*0.7,ord(ASY16>=10.0)*1.0)); VCO1:=VOPT(MAX(ord(
ASY16>=4.0)*0.4,ord(ASY16>=7.0)*0.7,ord(ASY16>=10.0)*1.0));
SDVOL1:=MAX(HIRED,BIRTHD+25.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,
MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+
25.0); FDCTE1:=QUITD; PCCTE1:=CRFORT1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; SDCOE1:=MAX(HIRED,
BIRTHD+25.0); FDCOE1:=QUITD; PCCOE1:=0.07; COE1:=SUMI(PCCOE1,8.0,
0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=VOL1+CTE1+
COE1; CNQ:=ord((AGE>=65.0)!(AGE>=50.0)&(ASY16>=10.0))*CNT; if
min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,CTE1,PCCTE1,FDCTE1,SDCTE1,
VOL1,PCVOL1,FDVOL1,SDVOL1,VCO1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3208s891; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=4.0)*0.4,ord(
ASY16>=7.0)*0.7,ord(ASY16>=10.0)*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+
25.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+25.0); FDCTE1:=QUITD;
PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(
WRKHRS>=1000.0)*1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=ord((AGE>=65.0)!(
AGE>=50.0)&(ASY16>=10.0))*CNT; if min( CNQ,CNT,CTE1,PCCTE1,
FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3209s590; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VMM1:=VOPT(1.0); SDMAN1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+3.0)); FDMAN1:=QUITD; PCMAN1:=0.05;
MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=PCMAN1;
MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+3.0)); FDVOL1:=QUITD; PCVOL1:=MAX(
0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,
0.0,SDVOL1,FDVOL1); CNT:=MAN1+MMAN1+VOL1; CNQ:=CNT; if min( CNQ,
CNT,VOL1,PCVOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,
SDMAN1,VMM1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3210s978; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDCOE1:=
HIRED; FDCOE1:=QUITD; PCCOE1:=COENAR; COE1:=SUMI(PCCOE1,97.0,0.0,
SDCOE1,FDCOE1)*1.0*VCO1; CNT:=COE1; CNQ:=ord(AGE>=55.0)*CNT; if
min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3211s421; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(
ASY16>=1.0)*0.1,ord(ASY16>=5.0)*0.4,ord((QUITAGE>=65.0)!(ASY16>=
10.0))*1.0)); VCT2:=VCT1; SDVOL1:=MAX(HIRED,MAX(BIRTHD+21.0,
HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD)
,CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0));
FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,
FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,MAX(
BIRTHD+21.0,HIRED+1.0)); FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=
SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=1000.0)*1.0*VCT2;
CNT:=VOL1+CTE1+CTE2; CNQ:=ord((AGE>=65.0)!(AGE>=55.0)&(ASY16>=
5.0))*CNT; if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,
FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT2,VCT1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3212s608; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,1981.083))*ord(WRKHRS>=1000.0)*1.0; VMM1:=VOPT(MAX(ord(
ASY16>=1.0)*0.2,ord(ASY16>=3.0)*0.6,ord((QUITAGE>=65.0)!(ASY16>=
5.0))*1.0)); VMV1:=VMM1; SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=
QUITD; PCMAN1:=0.02; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1);
PCMMAN1:=0.5*PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*
VMM1; SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(
0.01*WAGE(SURVEYD),MIN(0.03*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
PCMVOL1:=0.5*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*
VMV1; CNT:=MAN1+MMAN1+VOL1+MVOL1; CNQ:=CNT; if min( CNQ,CNT,
MVOL1,PCMVOL1,VOL1,PCVOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,MAN1,
PCMAN1,FDMAN1,SDMAN1,VMV1,VMM1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3213s771; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); SDVOL1:=MAX(
HIRED,BIRTHD+3.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD),
MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(HIRED,BIRTHD+3.0)
;FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*1.0*VCT1; CNT:=VOL1+CTE1; CNQ:=CNT; if min( CNQ,
CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3214s772; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; SDMAN1:=HIRED; FDMAN1:=QUITD;
PCMAN1:=0.01; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDVOL1:=
HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.07*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); CNT:=MAN1+VOL1; CNQ:=CNT; if min( CNQ,CNT,VOL1,
PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3215s1096; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(
ASY16>=5.0)*0.5,ord((ASY16>=11.0)!(QUITAGE>=65.0)&(ASY16>=10.0))
*1.0)); VCT2:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(ASY16>=5.0)*0.5,
ord((ASY16>=11.0)!(QUITAGE>=65.0)&(ASY16>=10.0))*1.0)); SDCTE1:=
HIRED; FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=HIRED;
FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,
FDCTE2)*ord(WRKHRS>=1000.0)*1.0*VCT2; CNT:=CTE1+CTE2; CNQ:=ord((
AGE>=60.0)&(ASY16>=13.0)!(AGE>=65.0)&(ASY16>=10.0))*CNT; if min(
CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,
VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3216s1097; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
1.0; VCO1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(ASY16>=5.0)*0.5,ord(
ASY16>=10.0)*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD;
PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=
MAX(HIRED,BIRTHD+1.0); FDCOE1:=QUITD; VR1COE1:=ord(WAGE(SURVEYD)
>=10800.0)*0.07; PCCOE1:=VR1COE1; COE1:=SUMI(PCCOE1,7.0,0.0,
SDCOE1,FDCOE1)*1.0*VCO1; CNT:=VOL1+COE1; CNQ:=ord((AGE>=65.0)&(
ASY16>=10.0)!(AGE>=60.0)&(ASY16>=13.0))*CNT; if min( CNQ,CNT,
COE1,PCCOE1,VR1COE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,
VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3217s384; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; SDASY16:=MAX(HIRED+1.0,
BIRTHD+21.0); ASY16:=NN(MIN(QUITD,MAX(BIRTHD+65.0,SDASY16+10.0))-
SDASY16)*ord(WRKHRS>=1000.0)*1.0; VCO1:=VOPT(1.0); SDCOE1:=MAX(
HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDCOE1:=QUITD; PCCOE1:=0.04;
COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*
1.0*VCO1; CNT:=COE1; CNQ:=ord((AGE>=55.0)&(ASY16>=10.0))*CNT; if
min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,ASY16,SDASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3218s385; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+21.0))*ord(WRKHRS>=1000.0)*1.0; VCO1:=VOPT(ord(ASY16>=
10.0)*1.0); SDCOE1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0));
FDCOE1:=MIN(QUITD,BIRTHD+70.0); PCCOE1:=0.015; COE1:=SUMI(PCCOE1,
8.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=COE1;
CNQ:=ord((AGE>=65.0)!(AGE>=55.0)&(ASY16>=10.0))*CNT; if min( CNQ,
CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3219s386; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
70.0)-MAX(HIRED+1.0,BIRTHD+21.0))*ord(WRKHRS>=1000.0)*1.0; VCO1:=
VOPT(1.0); SDVOL1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0));
FDVOL1:=QUITD; PCVOL1:=MAX(240.0,MIN(0.1*WAGE(SURVEYD),CRVOL*
WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCOE1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDCOE1:=
MIN(QUITD,BIRTHD+70.0); PCCOE1:=0.01; COE1:=SUMI(PCCOE1,8.0,0.0,
SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=VOL1+COE1;
CNQ:=ord((AGE>=65.0)!(AGE>=55.0)&(ASY16>=10.0))*CNT; if min( CNQ,
CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO1,
ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3220s574; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); VCO2:=VOPT(
1.0); VCO3:=VOPT(1.0); SDVOL1:=HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(
0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,
0.0,SDVOL1,FDVOL1); SDCOE1:=HIRED; FDCOE1:=MIN(QUITD,BIRTHD+66.0)
;VR1COE1:=ord(40.0>AGE)*0.125; PCCOE1:=VR1COE1; COE1:=SUMI(
PCCOE1,7.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; SDCOE2:=HIRED; FDCOE2:=
MIN(QUITD,BIRTHD+66.0); VR1COE2:=ord(AGE>=40.0)*0.11; PCCOE2:=
VR1COE2; COE2:=SUMI(PCCOE2,4.0,0.0,SDCOE2,FDCOE2)*1.0*VCO2;
SDCOE3:=HIRED; FDCOE3:=MIN(QUITD,BIRTHD+66.0); VR1COE3:=ord(AGE>=
40.0)*0.16; PCCOE3:=VR1COE3; COE3:=SUMI(PCCOE3,5.0,0.0,SDCOE3,
FDCOE3)*1.0*VCO3; CNT:=COE1+COE2+VOL1+COE3; CNQ:=CNT; if min(
CNQ,CNT,COE3,PCCOE3,VR1COE3,FDCOE3,SDCOE3,COE2,PCCOE2,VR1COE2,
FDCOE2,SDCOE2,COE1,PCCOE1,VR1COE1,FDCOE1,SDCOE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,VCO3,VCO2,VCO1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3221s803; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=
4.0)*0.4,ord(ASY16>=5.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=10.0))*
1.0)); VCT2:=VOPT(MAX(ord(ASY16>=4.0)*0.4,ord(ASY16>=5.0)*0.5,
ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); SDCTE1:=MAX(HIRED,
BIRTHD+1.0); FDCTE1:=MIN(QUITD,BIRTHD+70.0); PCCTE1:=CRPROF1;
CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*
1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0); FDCTE2:=MIN(QUITD,
BIRTHD+70.0); PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,
FDCTE2)*ord(WRKHRS>=1000.0)*1.0*VCT2; CNT:=CTE1+CTE2; CNQ:=ord(
AGE>=65.0)*CNT; if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,
PCCTE1,FDCTE1,SDCTE1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3222s714; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
1.0; VMM1:=VOPT(1.0); VMV1:=VMM1; SDMAN1:=MAX(HIRED,BIRTHD+1.0);
FDMAN1:=QUITD; PCMAN1:=0.01; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,
FDMAN1); PCMMAN1:=0.5*PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,
FDMAN1)*VMM1; SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD;
PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.07*WAGE(SURVEYD),CRVOL*
WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDVOL2:=MAX(HIRED,BIRTHD+1.0); FDVOL2:=QUITD; PCVOL2:=
MAX(0.0,MIN(0.04*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2); PCMVOL1:=0.5*
PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1; CNT:=
MAN1+MMAN1+VOL1+MVOL1+VOL2; CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,
CNT,MVOL1,PCMVOL1,VOL2,PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,
SDVOL1,MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMV1,VMM1,ASY16,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3223s716; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); SDCTE1:=MAX(
HIRED,BIRTHD+3.0,1983.0); FDCTE1:=MIN(QUITD,1984.0); PCCTE1:=
0.005; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=
CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3224s958; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED+
1.0,BIRTHD+18.0))*1.0; VMV1:=VOPT(1.0); SDVOL1:=MAX(HIRED,MAX(
BIRTHD+18.0,HIRED+1.0)); FDVOL1:=QUITD; VR2VOL1:=ord(3.0>ASY16)*
0.05+ord(ASY16>=3.0)*0.0745; PCVOL1:=MAX(0.02*WAGE(SURVEYD),MIN(
VR2VOL1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=MAX(HIRED,MAX(BIRTHD+
18.0,HIRED+1.0)); FDVOL2:=QUITD; VR2VOL2:=ord(3.0>ASY16)*0.07+
ord(ASY16>=3.0)*0.0455; PCVOL2:=MAX(0.0,MIN(VR2VOL2*WAGE(SURVEYD)
,CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,
SDVOL2,FDVOL2); PCMVOL1:=0.5*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,
SDVOL1,FDVOL1)*VMV1; CNT:=VOL1+VOL2+MVOL1; CNQ:=ord(AGE>=59.0)*
CNT; if min( CNQ,CNT,MVOL1,PCMVOL1,VOL2,PCVOL2,VR2VOL2,FDVOL2,
SDVOL2,VOL1,PCVOL1,VR2VOL1,FDVOL1,SDVOL1,VMV1,ASY16,VEDB,DSQ,
DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3226s425; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=4.0)*0.1,ord(
ASY16>=7.0)*0.55,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0));
SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.01*
WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(
HIRED,BIRTHD+1.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(
PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=
VOL1+CTE1; CNQ:=ord(AGE>=55.0)*CNT; if min( CNQ,CNT,CTE1,PCCTE1,
FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3227s422; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,1970.0))*1.0; VCO1:=VOPT(MAX(ord(ASY16>=5.0)*0.5,
ord(ASY16>=6.0)*0.6,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0));
VCO2:=VOPT(MAX(ord(ASY16>=5.0)*0.5,ord(ASY16>=6.0)*0.6,ord((
QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); SDVOL1:=MAX(HIRED,MAX(
BIRTHD+25.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,MAX(BIRTHD+25.0,
HIRED+1.0)); FDCOE1:=MIN(QUITD,BIRTHD+65.0); PCCOE1:=0.0636;
COE1:=SUMI(PCCOE1,4.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; SDCOE2:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCOE2:=MIN(QUITD,BIRTHD+65.0)
;PCCOE2:=0.1336; COE2:=SUMI(PCCOE2,5.0,0.0,SDCOE2,FDCOE2)*1.0*
VCO2; CNT:=VOL1+COE1+COE2; CNQ:=CNT; if min( CNQ,CNT,COE2,PCCOE2,
FDCOE2,SDCOE2,COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,
SDVOL1,VCO2,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3228s423; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
70.0)-MAX(HIRED+1.0,BIRTHD+25.0,1975.0))*1.0; VCT1:=VOPT(MAX(ord(
ASY16>=1.0)*0.5,ord(ASY16>=2.0)*0.6,ord((QUITAGE>=65.0)!(ASY16>=
6.0))*1.0)); VCT2:=VOPT(MAX(ord(ASY16>=1.0)*0.5,ord(ASY16>=2.0)*
0.6,ord((QUITAGE>=65.0)!(ASY16>=6.0))*1.0)); SDCTE1:=MAX(HIRED,
MAX(BIRTHD+25.0,HIRED+1.0)); FDCTE1:=MIN(QUITD,BIRTHD+70.0);
PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*
VCT1; SDCTE2:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCTE2:=MIN(
QUITD,BIRTHD+70.0); PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,
SDCTE2,FDCTE2)*1.0*VCT2; CNT:=CTE1+CTE2; CNQ:=CNT; if min( CNQ,
CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT2,
VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3229s106; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
67.0)-HIRED)*1.0; VCO1:=VOPT(1.0); VCO2:=VOPT(1.0); SDVOL1:=
HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=
HIRED; FDCOE1:=MIN(QUITD,BIRTHD+67.0); VR1COE1:=ord(40.0>AGE)*
0.05+ord((67.0>AGE)&(AGE>=40.0))*0.11; PCCOE1:=VR1COE1; COE1:=
SUMI(PCCOE1,4.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; SDCOE2:=HIRED;
FDCOE2:=MIN(QUITD,BIRTHD+67.0); VR1COE2:=ord(40.0>AGE)*0.1+ord((
67.0>AGE)&(AGE>=40.0))*0.16; PCCOE2:=VR1COE2; COE2:=SUMI(PCCOE2,
5.0,0.0,SDCOE2,FDCOE2)*1.0*VCO2; CNT:=VOL1+COE1+COE2; CNQ:=CNT;
if min( CNQ,CNT,COE2,PCCOE2,VR1COE2,FDCOE2,SDCOE2,COE1,PCCOE1,
VR1COE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO2,VCO1,ASY16,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3230s723; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCT1:=VOPT(MAX(ord(ASY16>=1.0)*0.1,ord(ASY16>=5.0)*0.5,ord((
QUITAGE>=60.0)!(ASY16>=10.0))*1.0)); SDVOL1:=MAX(HIRED,MAX(
BIRTHD+25.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.01*WAGE(
SURVEYD),MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=
CTE1+VOL1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,
VOL1,PCVOL1,FDVOL1,SDVOL1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3231s453; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VMM1:=VOPT(1.0); VMV1:=VOPT(
1.0); VMV2:=VOPT(1.0); SDMAN1:=HIRED; FDMAN1:=QUITD; PCMAN1:=
0.01; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=0.5*
PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=
HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.05*
WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=MAX(HIRED,BIRTHD+3.0);
FDVOL2:=QUITD; PCVOL2:=MAX(0.01*WAGE(SURVEYD),MIN(0.01*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,
2.0,0.0,SDVOL2,FDVOL2); SDVOL3:=HIRED; FDVOL3:=QUITD; PCVOL3:=
MAX(0.01*WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)
))/WAGE(SURVEYD); VOL3:=SUMI(PCVOL3,2.0,0.0,SDVOL3,FDVOL3);
PCMVOL1:=0.5*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*
VMV1; PCMVOL2:=0.5*PCVOL2; MVOL2:=SUMI(PCMVOL2,7.0,0.0,SDVOL2,
FDVOL2)*VMV2; CNT:=MAN1+MMAN1+VOL1+VOL2+VOL3+MVOL1+MVOL2; CNQ:=
CNT; if min( CNQ,CNT,MVOL2,PCMVOL2,MVOL1,PCMVOL1,VOL3,PCVOL3,
FDVOL3,SDVOL3,VOL2,PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,
SDVOL1,MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMV2,VMV1,VMM1,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3232s454; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); VCT2:=VOPT(
1.0); SDCTE1:=MAX(HIRED,BIRTHD+1.0); FDCTE1:=MIN(QUITD,1983.0);
PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*
VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0,1983.0); FDCTE2:=QUITD;
PCCTE2:=0.05; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*1.0*VCT2;
CNT:=CTE1+CTE2; CNQ:=CNT; if min( CNQ,CNT,CTE2,PCCTE2,FDCTE2,
SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT2,VCT1,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3233s450; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); SDCTE1:=MAX(
HIRED,BIRTHD+2.0); FDCTE1:=QUITD; PCCTE1:=0.005; CTE1:=SUMI(
PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=1000.0)*1.0*VCT1; CNT:=
CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3234s972; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); SDCTE1:=
HIRED; FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*1.0*VCT1; CNT:=CTE1; CNQ:=CNT; if min( CNQ,CNT,
CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3235s1080; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; VCO1:=VOPT(MAX(ord(ASY16>=3.0)*0.1,ord(
ASY16>=7.0)*0.5,ord((QUITAGE>=60.0)!(ASY16>=12.0))*1.0));
SDCOE1:=HIRED; FDCOE1:=QUITD; PCCOE1:=0.05; COE1:=SUMI(PCCOE1,
8.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=COE1;
CNQ:=ord((AGE>=60.0)!(ASY16>=25.0)!(AGE>=55.0)&(ASY16>=20.0))*
CNT; if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3236s1081; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY17:=NN(QUITD-MAX(HIRED+1.0,BIRTHD+25.0))*
ord(WRKHRS>=1000.0)*1.0; VCT1:=VOPT(MAX(ord(ASY16>=3.0)*0.1,ord(
ASY16>=7.0)*0.5,ord((QUITAGE>=60.0)!(ASY16>=12.0))*1.0)); VCT2:=
VOPT(MAX(ord(ASY16>=3.0)*0.1,ord(ASY16>=7.0)*0.5,ord((QUITAGE>=
60.0)!(ASY16>=12.0))*1.0)); SDCTE1:=HIRED; FDCTE1:=QUITD;
PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(
WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=HIRED; FDCTE2:=QUITD; PCCTE2:=
CRFORT1; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=
1000.0)*1.0*VCT2; CNT:=CTE1+CTE2; CNQ:=ord((AGE>=60.0)!(ASY16>=
25.0)!(AGE>=55.0)&(ASY16>=20.0))*CNT; if min( CNQ,CNT,CTE2,
PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT2,VCT1,ASY17,
ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3237s289; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-(HIRED+1.0))*
1.0; VCT1:=VOPT(ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0); VCT2:=
VOPT(1.0); SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=QUITD; PCMAN1:=
0.02; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDVOL1:=MAX(
HIRED,BIRTHD+1.0); FDVOL1:=QUITD; PCVOL1:=MAX(0.04*WAGE(SURVEYD),
MIN(0.04*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=MAX(HIRED,
BIRTHD+1.0); FDVOL2:=QUITD; PCVOL2:=MAX(0.01*WAGE(SURVEYD),MIN(
0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL2:=
SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2); SDCTE1:=MAX(HIRED,BIRTHD+1.0)
;FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,
SDCTE1,FDCTE1)*1.0*VCT1; SDCTE2:=MAX(HIRED,BIRTHD+1.0); FDCTE2:=
QUITD; PCCTE2:=CRPROF2; CTE2:=SUMI(PCCTE2,7.0,0.0,SDCTE2,FDCTE2)*
1.0*VCT2; CNT:=MAN1+VOL1+VOL2+CTE1+CTE2; CNQ:=CNT; if min( CNQ,
CNT,CTE2,PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL2,
PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,
FDMAN1,SDMAN1,VCT2,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3238s120; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); SDCTE1:=MAX(
HIRED,BIRTHD+3.0); FDCTE1:=QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(
PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=501.0)*1.0*VCT1; CNT:=
CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3239s105; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); SDCTE1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+3.0)); FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=
CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3240s1107; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VMM1:=VOPT(1.0); VMV1:=VOPT(
1.0); SDMAN1:=HIRED; FDMAN1:=QUITD; PCMAN1:=0.01; MAN1:=SUMI(
PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=0.15*PCMAN1; MMAN1:=SUMI(
PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=HIRED; FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,MIN(MAX(10000.0,0.05*WAGE(SURVEYD)),CRVOL*
WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); PCMVOL1:=0.15*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,
SDVOL1,FDVOL1)*VMV1; CNT:=MAN1+MMAN1+VOL1+MVOL1; CNQ:=CNT; if
min( CNQ,CNT,MVOL1,PCMVOL1,VOL1,PCVOL1,FDVOL1,SDVOL1,MMAN1,
PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMV1,VMM1,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3241s902; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/1000.0); VCO1:=VOPT(1.0); SDCOE1:=HIRED; FDCOE1:=
QUITD; PCCOE1:=COENAR; COE1:=SUMI(PCCOE1,97.0,0.0,SDCOE1,FDCOE1)*
1.0*VCO1; CNT:=COE1; CNQ:=ord((AGE>=62.0)!(AGE>=55.0)&(ASY16>=
10.0))*CNT; if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,ASY16,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3242s1111; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDMAN1:=
HIRED; FDMAN1:=QUITD; PCMAN1:=0.05; MAN1:=SUMI(PCMAN1,8.0,0.0,
SDMAN1,FDMAN1); SDVOL1:=HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(300.0,
CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDCOE1:=HIRED; FDCOE1:=QUITD; PCCOE1:=0.0795;
COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; CNT:=MAN1+
VOL1+COE1; CNQ:=CNT; if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,
VOL1,PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCO1,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3244s1119; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDCOE1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+2.0)); FDCOE1:=MIN(QUITD,BIRTHD+65.0)
;PCCOE1:=0.08; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*ord(
WRKHRS>=1000.0)*1.0*VCO1; CNT:=COE1; CNQ:=CNT; if min( CNQ,CNT,
COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3245s1120; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; SDVOL1:=HIRED; FDVOL1:=QUITD;
PCVOL1:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); CNT:=VOL1; CNQ:=CNT; if min( CNQ,
CNT,VOL1,PCVOL1,FDVOL1,SDVOL1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3246s1128; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VMM1:=VOPT(ord(ASY16>=5.0)*1.0); SDMAN1:=HIRED; FDMAN1:=QUITD;
PCMAN1:=0.06; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=
PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=
HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); CNT:=MAN1+
MMAN1+VOL1; CNQ:=CNT; if min( CNQ,CNT,VOL1,PCVOL1,FDVOL1,SDVOL1,
MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMM1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3247s1112; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
70.0)-HIRED)*1.0; VMM1:=VOPT(1.0); VMM2:=VOPT(1.0); SDMAN1:=
HIRED; FDMAN1:=MIN(QUITD,BIRTHD+70.0); VR1MAN1:=ord(4800.0>WAGE(
SURVEYD))*0.0333+ord(WAGE(SURVEYD)>=4800.0)*0.05; PCMAN1:=
VR1MAN1; MAN1:=SUMI(PCMAN1,7.0,0.0,SDMAN1,FDMAN1); SDMAN2:=MAX(
HIRED,BIRTHD+6.0); FDMAN2:=MIN(QUITD,BIRTHD+70.0); VR1MAN2:=ord(
1200.0>WAGE(SURVEYD))*0.0333+ord(WAGE(SURVEYD)>=1200.0)*0.05;
PCMAN2:=VR1MAN2; MAN2:=SUMI(PCMAN2,7.0,0.0,SDMAN2,FDMAN2);
PCMMAN1:=2.0*PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*
VMM1; PCMMAN2:=2.0*PCMAN2; MMAN2:=SUMI(PCMMAN2,7.0,0.0,SDMAN2,
FDMAN2)*VMM2; CNT:=MAN1+MAN2+MMAN1+MMAN2; CNQ:=CNT; if min( CNQ,
CNT,MMAN2,PCMMAN2,MMAN1,PCMMAN1,MAN2,PCMAN2,VR1MAN2,FDMAN2,
SDMAN2,MAN1,PCMAN1,VR1MAN1,FDMAN1,SDMAN1,VMM2,VMM1,ASY16,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3248s1121; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VMM1:=VOPT(1.0); SDMAN1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+3.0)); FDMAN1:=QUITD; PCMAN1:=0.05;
MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=PCMAN1;
MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; CNT:=MAN1+MMAN1;
CNQ:=CNT; if min( CNQ,CNT,MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,
SDMAN1,VMM1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3249s1122; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; SDVOL1:=HIRED; FDVOL1:=QUITD;
PCVOL1:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); CNT:=VOL1; CNQ:=CNT; if min( CNQ,
CNT,VOL1,PCVOL1,FDVOL1,SDVOL1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3250s1116; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VMV1:=VOPT(1.0); VCO1:=VMV1; SDVOL1:=HIRED; FDVOL1:=QUITD;
PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=
HIRED; FDVOL2:=QUITD; PCVOL2:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(
SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2); VR1MVOL1:=
ord((1000.0>PCVOL1)&(PCVOL1>=500.0))*1.0; PCMVOL1:=VR1MVOL1*
PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1; SDCOE1:=
HIRED; FDCOE1:=MIN(QUITD,BIRTHD+65.0); PCCOE1:=0.05; COE1:=SUMI(
PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; CNT:=VOL1+VOL2+MVOL1+
COE1; CNQ:=CNT; if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,MVOL1,
PCMVOL1,VR1MVOL1,VOL2,PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,
SDVOL1,VCO1,VMV1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3251s1110; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); VCO2:=VOPT(
1.0); SDMAN1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDMAN1:=MIN(
QUITD,BIRTHD+65.0); PCMAN1:=0.025; MAN1:=SUMI(PCMAN1,4.0,0.0,
SDMAN1,FDMAN1); SDMAN2:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0));
FDMAN2:=MIN(QUITD,BIRTHD+65.0); PCMAN2:=0.05; MAN2:=SUMI(PCMAN2,
5.0,0.0,SDMAN2,FDMAN2); SDVOL1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+
1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCOE1:=MIN(QUITD,BIRTHD+65.0)
;PCCOE1:=0.075; COE1:=SUMI(PCCOE1,4.0,0.0,SDCOE1,FDCOE1)*1.0*
VCO1; SDCOE2:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCOE2:=MIN(
QUITD,BIRTHD+65.0); PCCOE2:=0.1; COE2:=SUMI(PCCOE2,5.0,0.0,
SDCOE2,FDCOE2)*1.0*VCO2; CNT:=MAN1+MAN2+COE1+COE2+VOL1; CNQ:=CNT;
if min( CNQ,CNT,COE2,PCCOE2,FDCOE2,SDCOE2,COE1,PCCOE1,FDCOE1,
SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,MAN2,PCMAN2,FDMAN2,SDMAN2,MAN1,
PCMAN1,FDMAN1,SDMAN1,VCO2,VCO1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3252s1125; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDMAN1:=
HIRED; FDMAN1:=QUITD; PCMAN1:=0.03; MAN1:=SUMI(PCMAN1,8.0,0.0,
SDMAN1,FDMAN1); SDVOL1:=HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.0,
CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDCOE1:=HIRED; FDCOE1:=QUITD; PCCOE1:=0.12;
COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; CNT:=MAN1+
VOL1+COE1; CNQ:=CNT; if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,
VOL1,PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,VCO1,VEDB,
DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3253s1126; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); VCO2:=VOPT(
1.0); SDVOL1:=MAX(HIRED,MAX(BIRTHD+30.0,HIRED+1.0)); FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,MAX(BIRTHD+
30.0,HIRED+1.0)); FDCOE1:=MIN(QUITD,BIRTHD+65.0); PCCOE1:=0.1;
COE1:=SUMI(PCCOE1,4.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; SDCOE2:=MAX(
HIRED,MAX(BIRTHD+30.0,HIRED+1.0)); FDCOE2:=MIN(QUITD,BIRTHD+65.0)
;PCCOE2:=0.15; COE2:=SUMI(PCCOE2,5.0,0.0,SDCOE2,FDCOE2)*1.0*VCO2;
CNT:=VOL1+COE1+COE2; CNQ:=CNT; if min( CNQ,CNT,COE2,PCCOE2,
FDCOE2,SDCOE2,COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,
SDVOL1,VCO2,VCO1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3254s1117; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VMM1:=VOPT(1.0); SDMAN1:=
HIRED; FDMAN1:=QUITD; PCMAN1:=0.05; MAN1:=SUMI(PCMAN1,8.0,0.0,
SDMAN1,FDMAN1); PCMMAN1:=1.5*PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,
SDMAN1,FDMAN1)*VMM1; CNT:=MAN1+MMAN1; CNQ:=CNT; if min( CNQ,CNT,
MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMM1,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3255s1118; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; SDVOL1:=HIRED; FDVOL1:=QUITD;
PCVOL1:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); CNT:=VOL1; CNQ:=CNT; if min( CNQ,
CNT,VOL1,PCVOL1,FDVOL1,SDVOL1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3256s485; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VMM1:=VOPT(MAX(ord(ASY16>=1.0)*0.2,ord(ASY16>=3.0)*0.6,ord(
ASY16>=5.0)*1.0)); VMV1:=VOPT(MAX(ord(ASY16>=1.0)*0.2,ord(ASY16>=
3.0)*0.6,ord(ASY16>=5.0)*1.0)); VCO1:=VOPT(ord((ASY16>=10.0)!(
QUITAGE>=40.0)&(ASY16>=5.0))*1.0); VCO2:=VOPT(ord((ASY16>=10.0)!(
QUITAGE>=40.0)&(ASY16>=5.0))*1.0); SDMAN1:=HIRED; FDMAN1:=QUITD;
PCMAN1:=0.01; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=
PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=
HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.05*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDVOL2:=HIRED; FDVOL2:=QUITD; PCVOL2:=MAX(0.0,
MIN(0.06*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2); PCMVOL1:=PCVOL1;
MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1; SDCOE1:=HIRED;
FDCOE1:=QUITD; VR1COE1:=ord(35.0>AGE)*0.04+ord(AGE>=35.0)*0.07;
PCCOE1:=VR1COE1; COE1:=SUMI(PCCOE1,4.0,0.0,SDCOE1,FDCOE1)*1.0*
VCO1; SDCOE2:=HIRED; FDCOE2:=QUITD; VR1COE2:=ord(35.0>AGE)*0.09+
ord(AGE>=35.0)*0.12; PCCOE2:=VR1COE2; COE2:=SUMI(PCCOE2,5.0,0.0,
SDCOE2,FDCOE2)*1.0*VCO2; CNT:=VOL1+MVOL1+VOL2+MAN1+MMAN1+COE1+
COE2; CNQ:=CNT; if min( CNQ,CNT,COE2,PCCOE2,VR1COE2,FDCOE2,
SDCOE2,COE1,PCCOE1,VR1COE1,FDCOE1,SDCOE1,MVOL1,PCMVOL1,VOL2,
PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,
MAN1,PCMAN1,FDMAN1,SDMAN1,VCO2,VCO1,VMV1,VMM1,ASY16,VEDB,DSQ,
DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3257s1113; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VMM1:=VOPT(1.0); SDMAN1:=MAX(
HIRED,MAX(BIRTHD+20.0,HIRED+1.0)); FDMAN1:=QUITD; PCMAN1:=0.05;
MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=PCMAN1;
MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; CNT:=MAN1+MMAN1;
CNQ:=CNT; if min( CNQ,CNT,MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,
SDMAN1,VMM1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3258s1129; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDCOE1:=
HIRED; FDCOE1:=MIN(QUITD,BIRTHD+70.0); PCCOE1:=0.2; COE1:=SUMI(
PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*ord(WRKHRS>=1000.0)*1.0*VCO1; CNT:=
COE1; CNQ:=CNT; if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3259s1130; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; SDVOL1:=HIRED; FDVOL1:=QUITD;
PCVOL1:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); CNT:=VOL1; CNQ:=CNT; if min( CNQ,
CNT,VOL1,PCVOL1,FDVOL1,SDVOL1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3260s299; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VMM1:=VOPT(ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0); VMV1:=VMM1;
SDMAN1:=HIRED; FDMAN1:=QUITD; PCMAN1:=0.01; MAN1:=SUMI(PCMAN1,
8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=0.5*PCMAN1; MMAN1:=SUMI(PCMMAN1,
7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=HIRED; FDVOL1:=QUITD;
PCVOL1:=MAX(0.0,MIN(0.03*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=
HIRED; FDVOL2:=QUITD; PCVOL2:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,
SDVOL2,FDVOL2); PCMVOL1:=0.5*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,
SDVOL1,FDVOL1)*VMV1; CNT:=MAN1+MMAN1+VOL1+VOL2+MVOL1; CNQ:=CNT;
if min( CNQ,CNT,MVOL1,PCMVOL1,VOL2,PCVOL2,FDVOL2,SDVOL2,VOL1,
PCVOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,
VMV1,VMM1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3261s1114; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VMM1:=VOPT(1.0); VMV1:=VOPT(
1.0); SDMAN1:=HIRED; FDMAN1:=QUITD; PCMAN1:=0.02; MAN1:=SUMI(
PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=2.0*PCMAN1; MMAN1:=SUMI(
PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=HIRED; FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,MIN(0.03*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)
))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
PCMVOL1:=2.0*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*
VMV1; CNT:=MAN1+MMAN1+VOL1+MVOL1; CNQ:=CNT; if min( CNQ,CNT,
MVOL1,PCMVOL1,VOL1,PCVOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,MAN1,
PCMAN1,FDMAN1,SDMAN1,VMV1,VMM1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3262s1115; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; SDVOL1:=MAX(HIRED,BIRTHD+1.0)
;FDVOL1:=QUITD; PCVOL1:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); CNT:=VOL1;
CNQ:=CNT; if min( CNQ,CNT,VOL1,PCVOL1,FDVOL1,SDVOL1,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3263s335; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VCO1:=VOPT(1.0); SDMAN1:=HIRED; FDMAN1:=QUITD; PCMAN1:=0.03;
MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDVOL1:=HIRED; FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD))
)/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
SDCOE1:=HIRED; FDCOE1:=QUITD; PCCOE1:=COENAR; COE1:=SUMI(PCCOE1,
97.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; CLS10:=0.0; CNT:=VOL1+COE1+
MAN1+CLS10; CNQ:=ord((AGE>=62.0)!(ASY16>=37.0))*CNT; if min( CNQ,
CNT,CLS10,COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,
MAN1,PCMAN1,FDMAN1,SDMAN1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3264s669; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/12.0); VCO1:=VOPT(MAX(ord(ASY16>=5.0)*0.25,ord(ASY16>=
10.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=15.0)!(QUITAGE>=55.0)&(
ASY16>=10.0))*1.0)); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,MIN(0.04*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)
))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
SDCOE1:=MAX(HIRED,BIRTHD+1.0); FDCOE1:=QUITD; PCCOE1:=0.02;
COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*NNMIN(1.0,WRKHRS/12.0)*
VCO1; CNT:=VOL1+COE1; CNQ:=ord((AGE>=65.0)!(AGE>=55.0)&(ASY16>=
10.0))*CNT; if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,
PCVOL1,FDVOL1,SDVOL1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0
then negative end;

procedure c3265s670; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*NNMIN(
1.0,WRKHRS/12.0); VCO1:=VOPT(MAX(ord(ASY16>=5.0)*0.25,ord(ASY16>=
10.0)*0.5,ord((QUITAGE>=65.0)!(ASY16>=15.0)!(QUITAGE>=55.0)&(
ASY16>=10.0))*1.0)); SDVOL1:=HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(
0.0,MIN(0.04*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=HIRED; FDCOE1:=
QUITD; PCCOE1:=0.06; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*
NNMIN(1.0,WRKHRS/12.0)*VCO1; CNT:=VOL1+COE1; CNQ:=ord((AGE>=65.0)
!(AGE>=55.0)&(ASY16>=10.0))*CNT; if min( CNQ,CNT,COE1,PCCOE1,
FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO1,ASY16,VEDB,DSQ,DRQ,
VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3266s1132; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCO1:=VOPT(1.0); SDMAN1:=
HIRED; FDMAN1:=QUITD; PCMAN1:=0.015; MAN1:=SUMI(PCMAN1,8.0,0.0,
SDMAN1,FDMAN1); SDCOE1:=HIRED; FDCOE1:=QUITD; PCCOE1:=COENAR;
COE1:=SUMI(PCCOE1,97.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; CNT:=MAN1+
COE1; CNQ:=CNT; if min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,MAN1,
PCMAN1,FDMAN1,SDMAN1,VCO1,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c3267s949; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VMM1:=VOPT(1.0); SDMAN1:=
HIRED; FDMAN1:=QUITD; PCMAN1:=0.05; MAN1:=SUMI(PCMAN1,8.0,0.0,
SDMAN1,FDMAN1); PCMMAN1:=1.5*PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,
SDMAN1,FDMAN1)*VMM1; CNT:=MAN1+MMAN1; CNQ:=CNT; if min( CNQ,CNT,
MMAN1,PCMMAN1,MAN1,PCMAN1,FDMAN1,SDMAN1,VMM1,VEDB,DSQ,DRQ,VDQ,
ERQ,LRQ,NRQ) <0 then negative end;

procedure c3268s1082; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(QUITD-MAX(HIRED,
1982.833))*1.0; VCT1:=VOPT(MAX(ord(ASY16>=5.0)*0.5,ord(ASY16>=
6.0)*0.6,ord((QUITAGE>=65.0)!(ASY16>=10.0))*1.0)); VCO1:=VCT1;
SDCTE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0),1982.833); FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
1.0*VCT1; SDCOE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0),1982.833);
FDCOE1:=QUITD; PCCOE1:=COENAR; COE1:=SUMI(PCCOE1,97.0,0.0,SDCOE1,
FDCOE1)*1.0*VCO1; CNT:=COE1+CTE1; CNQ:=ord(AGE>=55.0)*CNT; if
min( CNQ,CNT,COE1,PCCOE1,FDCOE1,SDCOE1,CTE1,PCCTE1,FDCTE1,SDCTE1,
VCO1,VCT1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative
end;

procedure c3269s1090; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; VMM1:=VOPT(1.0); VMV1:=VMM1; VCT1:=VMM1;
SDMAN1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDMAN1:=QUITD;
PCMAN1:=0.02; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=
0.25*PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1;
SDVOL1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDVOL1:=QUITD;
PCVOL1:=MAX(0.0,MIN(0.04*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=
MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDVOL2:=QUITD; PCVOL2:=
MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(
SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2); PCMVOL1:=
0.25*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*VMV1;
SDCTE1:=MAX(HIRED,MAX(BIRTHD+21.0,HIRED+1.0)); FDCTE1:=QUITD;
PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*
VCT1; CNT:=MAN1+MMAN1+VOL1+MVOL1+VOL2+CTE1; CNQ:=CNT; if min(
CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,MVOL1,PCMVOL1,VOL2,PCVOL2,
FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,MAN1,
PCMAN1,FDMAN1,SDMAN1,VCT1,VMV1,VMM1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,
LRQ,NRQ) <0 then negative end;

procedure c3270s1131; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=NN(MIN(QUITD,BIRTHD+
68.0)-HIRED)*1.0; VCO1:=VOPT(1.0); SDCOE1:=HIRED; FDCOE1:=MIN(
QUITD,BIRTHD+68.0); PCCOE1:=COENAR; COE1:=SUMI(PCCOE1,97.0,0.0,
SDCOE1,FDCOE1)*1.0*VCO1; CNT:=COE1; CNQ:=CNT; if min( CNQ,CNT,
COE1,PCCOE1,FDCOE1,SDCOE1,VCO1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,
NRQ) <0 then negative end;

procedure c3271s612; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; VCT1:=VOPT(1.0); SDCTE1:=MAX(
HIRED,MAX(BIRTHD+24.0,HIRED+2.0)); FDCTE1:=QUITD; PCCTE1:=
CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; CNT:=
CTE1; CNQ:=CNT; if min( CNQ,CNT,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,
VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then negative end;

procedure c3272s1021; begin NRQ:=0.0; LRQ:=0.0; ERQ:=0.0; VDQ:=
0.0; DRQ:=0.0; DSQ:=0.0; VEDB:=0.0; ASY16:=(QUITD-HIRED)*1.0;
VMM1:=VOPT(ord(QUITAGE>=55.0)*1.0); SDMAN1:=HIRED; FDMAN1:=QUITD;
PCMAN1:=0.05; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=
PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; CNT:=
MAN1+MMAN1; CNQ:=CNT; if min( CNQ,CNT,MMAN1,PCMMAN1,MAN1,PCMAN1,
FDMAN1,SDMAN1,VMM1,ASY16,VEDB,DSQ,DRQ,VDQ,ERQ,LRQ,NRQ) <0 then
negative end;

procedure c5001s888; begin ASY1:=(QUITD-HIRED)*ord(WRKHRS>=12.0)*
1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0/12.0),
FDFAP1); SDMAN1:=HIRED; FDMAN1:=QUITD; PCMAN1:=0.03; MAN1:=SUMI(
PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDVOL1:=HIRED; FDVOL1:=QUITD;
PCVOL1:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); RED4:=1.0-(0.05*a(AGE,60.0,50.0)+
0.012*a(AGE,65.0,60.0)); RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY1>=
10.0); RAS4:=(AGE>=50.0)&(ASY1>=15.0); RAS10:=ASY1>=5.0; RAS13:=
ASY1>=15.0; ROT7:=ASY1>=15.0; ROT10:=QSSDABLE; BEG7:=ANYTIME(
BIRTHD+50.0,BIRTHD+65.0); BEG8:=MAX(NRD,QUITD); CNT:=MAN1+VOL1;
CNQ:=CNT; NR1:=0.011*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; ANCONT:=
ANNPAY(CNT,BENIFITD); NRT:=NR1+ANCONT; NRQ:=NR1Q+ANCONT; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1+
ANCONT; ERQ:=ER1Q+ANCONT; VD1:=ERT; VD1Q:=ord(ROT7)*AA(BEG7,0.0)*
VD1; VD2:=NRT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=
MAX(VD1Q,VD2Q); DR1:=NR1; DR1Q:=ord(RAS10&ROT10)*DR1; DR2:=
1200.0; DR2Q:=ord(RAS10&ROT10)*DR2; DRT:=MAX(DR1,DR2)+ANCONT;
DRQ:=MAX(DR1Q,DR2Q)+ANCONT; DS1:=ER1*RED13; DS1Q:=ord(RAS13)*DS1;
DST:=DS1+ANCONT; DSQ:=DS1Q+ANCONT; PRAG:=0.0; VEDB:=VOPT(ord(
ASY1>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,ANCONT,NR1Q,NR1,CNQ,CNT,BEG8,BEG7,RED13,RED4,
VOL1,PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,FAP1,FDFAP1,
ASY1) <0 then negative end;

procedure c5002s787; begin ASY1:=NN(MIN(QUITD,1968.5)-HIRED)*1.0;
ASY2:=NN(QUITD-MAX(HIRED,1968.5))*1.0; FDFAP1:=QUITD; SDFAP1:=
MAX(HIRED,FDFAP1-3.0,1968.5); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1); SDMAN1:=HIRED; FDMAN1:=MIN(QUITD,1968.5);
PCMAN1:=0.05; MAN1:=SUMI(PCMAN1,3.0,120.0,SDMAN1,FDMAN1);
SDMAN2:=MAX(HIRED,1968.5); FDMAN2:=QUITD; PCMAN2:=0.035; MAN2:=
SUMI(PCMAN2,8.0,0.0,SDMAN2,FDMAN2); RED4:=AR(65.0-AGE); RED13:=
JSRED; ASY51:=ASY1+ASY2; RAS1:=(ASY51>=35.0)!(AGE>=65.0)&(ASY51>=
5.0); RAS4:=(AGE>=60.0)&(ASY51>=5.0); RAS13:=(ASY51>=30.0)!(AGE>=
55.0)&(ASY51>=20.0); BEG7:=ANYTIME(BIRTHD+60.0,0.0); CNT:=MAN1+
MAN2; CNQ:=ord((ASY1>=35.0)!(AGE>=60.0)&(ASY1>=5.0))*CNT; NR1:=
42.0*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=42.0*ASY2; NR2Q:=ord(RAS1)*
NR2; ANMAN1:=ANNPAY(MAN1,BENIFITD); NR3:=ANMAN1; NR3Q:=ord(RAS1)*
NR3; ANMAN2:=ANNPAY(MAN2,BENIFITD); NR4:=ANMAN2; NR4Q:=ord(RAS1)*
NR4; NR5:=0.015*FAP1*ASY2; NR5Q:=ord(RAS1)*NR5; NRT:=MAX(NR1+NR2+
NR3+NR4,NR1+NR2+NR5); NRQ:=MAX(NR1Q+NR2Q+NR3Q+NR4Q,NR1Q+NR2Q+
NR5Q); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=
0.5*ERT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=
0.0; VEDB:=VOPT(ord(ASY1>=5.0)*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR5Q,NR5,NR4Q,NR4,ANMAN2,NR3Q,NR3,ANMAN1,NR2Q,
NR2,NR1Q,NR1,CNQ,CNT,BEG7,ASY51,RED13,RED4,MAN2,PCMAN2,FDMAN2,
SDMAN2,MAN1,PCMAN1,FDMAN1,SDMAN1,FAP1,SDFAP1,FDFAP1,ASY2,ASY1)
<0 then negative end;

procedure c5003s1009; begin ASY1:=(QUITD-HIRED)*ord(WRKHRS>=
960.0)*1.0; ASY16:=NN(MIN(QUITD,1984.0)-HIRED)*ord(WRKHRS>=960.0)
*1.0; ASY17:=NN(QUITD-MAX(HIRED,1984.0))*ord(WRKHRS>=960.0)*1.0;
PSY10:=MIN(37.0,BIRTHD+60.0-HIRED); FDFAP1:=QUITD; FAP1:=AVG(
WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); VMM1:=VOPT(ord((QUITAGE>=
65.0)!(ASY16>=5.0))*1.0); VMM2:=VOPT(ord((QUITAGE>=65.0)!(ASY17>=
5.0))*1.0); SDMAN1:=HIRED; FDMAN1:=MIN(QUITD,1984.0); PCMAN1:=
0.085; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDMAN2:=MAX(
HIRED,1984.0); FDMAN2:=QUITD; PCMAN2:=0.0875; MAN2:=SUMI(PCMAN2,
8.0,0.0,SDMAN2,FDMAN2); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=
0.085; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); PCMMAN1:=PCMAN1;
MMAN1:=SUMI(PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; PCMMAN2:=PCMAN2;
MMAN2:=SUMI(PCMMAN2,7.0,0.0,SDMAN2,FDMAN2)*VMM2; RED4:=NN(1.0-
0.03*o(65.0,AGE)); RED5:=NN(1.0-0.05*o(30.0,ASY1)); RED13:=JSRED;
RAS1:=(AGE>=65.0)!(ASY1>=30.0); RAS4:=(AGE>=60.0)&(ASY1>=5.0)!(
AGE>=55.0)&(ASY1>=25.0); RAS10:=ASY1>=5.0; BEG7:=MAX(ERD,QUITD);
CNT:=MAN1+MMAN1+MAN2+MMAN2; ASY61:=ASY16+ASY17; CNQ:=ord((AGE>=
65.0)!(ASY61>=30.0)!(AGE>=55.0)&(ASY61>=25.0)!(AGE>=60.0)&(
ASY61>=5.0))*CNT; NR1:=0.02*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1;
ANCONT:=ANNPAY(CNT,BENIFITD); NRT:=MAX(NR1,ANCONT); NRQ:=MAX(
NR1Q,ANCONT); LRQ:=NRQ; MRAGE:=999.0; ER1:=MAX(NR1*RED4,NR1*RED5,
ANCONT); ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=MAX(0.02*PSY10*
FAP1,0.3*FAP1,ANCONT); DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=ord(ACPIG>=0.03)*MIN(0.95*ACPIG,0.03); VEDB:=VOPT(ord((
QUITAGE>=65.0)!(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,
DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,
LRQ,NRQ,NRT,ANCONT,NR1Q,NR1,CNQ,ASY61,CNT,BEG7,RED13,RED5,RED4,
MMAN2,PCMMAN2,MMAN1,PCMMAN1,MAN7,PCMAN7,FDMAN7,SDMAN7,MAN2,
PCMAN2,FDMAN2,SDMAN2,MAN1,PCMAN1,FDMAN1,SDMAN1,VMM2,VMM1,FAP1,
FDFAP1,PSY10,ASY17,ASY16, ASY1) <0 then negative end;

procedure c5004s46; begin ASY1:=NN(MIN(QUITD,1946.5)-HIRED)*
NNMIN(1.0,WRKHRS/10.0); ASY2:=NN(QUITD-MAX(HIRED,1946.5))*NNMIN(
1.0,WRKHRS/10.0); ASY10:=NN(MIN(QUITD,BIRTHD+60.0,1946.5)-HIRED)*
NNMIN(1.0,WRKHRS/10.0); ASY11:=NN(MIN(QUITD,BIRTHD+60.0)-MAX(
HIRED,1946.5))*NNMIN(1.0,WRKHRS/10.0); PSY10:=NN(MIN(BIRTHD+60.0,
1946.5)-HIRED); PSY11:=NN(BIRTHD+60.0-MAX(HIRED,1946.5));
FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0;
FDFAP10:=MIN(QUITD,BIRTHD+60.0); FAP10:=ord(FDFAP10>HIRED)*WAGE(
FDFAP10)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.095;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SDVOL1:=HIRED; FDVOL1:=
QUITD; PCVOL1:=MAX(25.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)
))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
RED4:=AR(62.0-AGE); ASY51:=ASY1+ASY2; RAS1:=ASY51>=30.0; RAS4:=
ASY51>=25.0; RAS10:=ASY10>=8.0; RAS13:=ASY51>=2.0; BEG7:=MAX(
BIRTHD+60.0,QUITD); BEG13:=MAX(BIRTHD+60.0,QUITD); CNT:=VOL1;
CNQ:=CNT; NR1:=MIN((ASY1*0.6+ASY2)*FAP1*0.02,0.8*FAP1); NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0;
ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0;
VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=
0.018*(ASY10*0.6+ASY11)*FAP1; DR1Q:=ord(RAS10)*DR1; DR2:=MIN(0.5*
FAP10,(PSY10*0.6+PSY11)*0.02*FAP1); DR2Q:=ord(RAS10)*DR2; DRT:=
MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0; DS1:=250.0; DS1Q:=ord(
RAS13)*AA(BEG13,0.0)*DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=ord(
ACPIG>=0.04)*MIN(0.95*ACPIG,0.04); VEDB:=VOPT(ord((ASY51>=10.0)!(
QUITAGE>=60.0)&(ASY51>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,CNQ,CNT,BEG13,BEG7,ASY51,
RED4,VOL1,PCVOL1,FDVOL1,SDVOL1,MAN7,PCMAN7,FDMAN7,SDMAN7,FAP10,
FDFAP10,FAP1,FDFAP1,PSY11,PSY10,ASY11,ASY10,ASY2,ASY1) <0 then
negative end;

procedure c5005s841; begin ASY1:=(QUITD-HIRED)*1.0; FDFAP1:=
QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); SDVOL1:=
HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); RED4:=AR(55.0-AGE); RED13:=JSRED; RAS1:=(AGE>=
60.0)!(AGE>=55.0)&(ASY1>=20.0); RAS4:=ASY1>=20.0; RAS10:=ASY1>=
5.0; RAS13:=(AGE>=60.0)!(ASY1>=10.0); ROT7:=^QWDMAN; BEG7:=MAX(
BIRTHD+60.0,QUITD); CNT:=VOL1; CNQ:=CNT; NR1:=0.01*FAP1*ASY1;
NR1Q:=ord(RAS1)*NR1; ANCONT:=ANNPAY(CNT,BENIFITD); NRT:=NR1+
ANCONT; NRQ:=NR1Q+ANCONT; LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4+
ANCONT; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT;
VD1Q:=ord(ROT7)*AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=0.25*
FAP1+ANCONT; DR1Q:=ord(RAS10)*DR1; DRT:=DR1+ANCONT; DRQ:=DR1Q+
ANCONT; DS1:=0.5*NR1*RED4*RED13+ANCONT; DS1Q:=ord(RAS13)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=60.0)!(
ASY1>=8.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
ANCONT,NR1Q,NR1,CNQ,CNT,BEG7,RED13,RED4,VOL1,PCVOL1,FDVOL1,
SDVOL1,FAP1,FDFAP1,ASY1) <0 then negative end;

procedure c5006s53; begin ASY1:=NNMIN(30.0,QUITD-(HIRED+1.0))*
1.0; PSY10:=NN(BIRTHD+60.0-HIRED+1.0); PSY11:=NN(BIRTHD+55.0-
HIRED+1.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),
FDFAP1)/12.0; SDMAN1:=MAX(HIRED,BIRTHD+1.0); FDMAN1:=QUITD;
PCMAN1:=0.06; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1); RED4:=NN(
1.0-0.08*o(60.0,AGE)); RAS1:=(AGE>=58.0)!(AGE>=55.0)&(ASY1>=30.0)
;RAS2:=(AGE>=65.0)&(ASY1>=15.0); RAS4:=AGE>=55.0; RAS11:=ASY1>=
10.0; ROT10:=QJRDABLE; ROT11:=^QJRDABLE; ROT12:=QHAZDUTY&
QJRDABLE; ROT13:=QHAZDUTY&^QJRDABLE; LNG13:=1.0; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); CNT:=MAN1; CNQ:=CNT; NR1:=0.0167*FAP1*
ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=100.0; NR2Q:=ord(RAS2)*NR2;
ANCONT:=ANNPAY(CNT,BENIFITD); NRT:=MAX(NR1,NR2)+ANCONT/12.0;
NRQ:=(MAX(NR1Q,NR2Q)+ANCONT/12.0)*12.0; LRQ:=NRQ; MRAGE:=70.0;
ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1+ANCONT/12.0; ERQ:=(
ER1Q+ANCONT/12.0)*12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1+ANCONT/12.0; VDQ:=(VD1Q+ANCONT/12.0)*12.0; DR1:=0.0167*FAP1*
PSY10; DR1Q:=ord(ROT10)*DR1; DR2:=MAX(0.0167*FAP1*PSY10,100.0);
DR2Q:=ord(RAS11&ROT11)*DR2; DR3:=100.0; DR3Q:=ord(ROT10)*DR3;
DR4:=0.0167*FAP1*PSY11; DR4Q:=ord(ROT12)*DR4; DR5:=0.0167*FAP1*
PSY11; DR5Q:=ord(RAS11&ROT13)*DR5; DRT:=MAX(DR1,DR2,DR3,DR4,DR5)+
ANCONT/12.0; DRQ:=(MAX(DR1Q,DR2Q,DR3Q,DR4Q,DR5Q)+ANCONT/12.0)*
12.0; DS1:=ANCONT/12.0; DS1Q:=AA(QUITD,LNG13+QUITD)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=TAR(0.03,1.0); VEDB:=VOPT(ord((
QUITAGE>=50.0)!(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,
DS1,DRQ,DRT,DR5Q,DR5,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,ANCONT,NR2Q,NR2,
NR1Q,NR1,CNQ,CNT,BEG7,LNG13,RED4,MAN1,PCMAN1,FDMAN1,SDMAN1,FAP1,
FDFAP1,PSY11,PSY10,ASY1) <0 then negative end;

procedure c5007s94; begin ASY1:=NN(MIN(QUITD,1967.5)-HIRED)*ord(
WRKHRS>=1872.0)*1.0; ASY2:=NN(MIN(QUITD,1975.5)-MAX(HIRED,1967.5)
)*ord(WRKHRS>=1872.0)*1.0; ASY3:=NN(QUITD-MAX(HIRED,1975.5))*ord(
WRKHRS>=1872.0)*1.0; PSY10:=BIRTHD+65.0-HIRED; FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0; SDMAN7:=HIRED;
FDMAN7:=QUITD; PCMAN7:=0.065; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,
FDMAN7); SDMAN8:=HIRED; FDMAN8:=QUITD; PCMAN8:=0.042; MAN8:=SUMI(
PCMAN8,8.0,0.0,SDMAN8,FDMAN8); SDVOL1:=HIRED; FDVOL1:=QUITD;
PCVOL1:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(
PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SS1:=SS(1.0,BENIFITD)/12.0; RED4:=
NN(1.0-0.03*o(65.0,AGE)); RED10:=OTHERB; RED13:=JSRED; ASY53:=
ASY1+ASY2+ASY3; RAS1:=(ASY53>=30.0)!(AGE>=65.0)&(ASY53>=4.0);
RAS4:=(AGE>=62.0)&(ASY53>=10.0)!(AGE>=60.0)&(ASY53>=20.0);
RAS10:=ASY53>=10.0; BEG7:=MAX(ERD,QUITD); CNT:=VOL1; CNQ:=ord((
ASY53>=30.0)!(AGE>=65.0)&(ASY53>=4.0)!(AGE>=62.0)&(ASY53>=10.0)!
(AGE>=60.0)&(ASY53>=20.0))*CNT; NR1:=(ASY1*0.011+ASY2*0.0125+
ASY3*0.02)*FAP1; NR1Q:=ord(RAS1)*NR1; NR2:=6.75*(ASY1+ASY2+ASY3);
NR2Q:=ord(RAS1)*NR2; NR3:=NN(FAP1-SS1); NR3Q:=NR3; NRT:=MIN(MAX(
NR1,NR2),NR3); NRQ:=MIN(MAX(NR1Q,NR2Q),NR3Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NN(FAP1-
SS1); ER2Q:=ord(RAS4)*ER2; ERT:=MIN(MAX(ER1,NR2),ER2); ERQ:=MIN(
MAX(ER1Q,NR2Q),ER2Q)*12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1;
VD2:=NR2; VD2Q:=AA(BEG7,0.0)*VD2; VD3:=NR3; VD3Q:=AA(BEG7,0.0)*
VD3; VDT:=MIN(MAX(VD1,VD2),VD3); VDQ:=MIN(MAX(VD1Q,VD2Q),VD3Q)*
12.0; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DR2:=NRT+NN(0.012*FAP1*(
PSY10-ASY1-ASY2-ASY3)); DR2Q:=ord(RAS10)*DR2; DR3:=0.25*FAP1;
DR3Q:=ord(RAS10)*DR3; DR4:=75.0; DR4Q:=ord(RAS10)*DR4; DR5:=0.5*
FAP1; DR5Q:=ord(RAS10)*DR5; DRT:=MAX(MIN(DR4,DR5),MAX(DR1,MIN(
DR2,DR3)))-RED10; DRQ:=(MAX(MIN(DR4Q,DR5Q),MAX(DR1Q,MIN(DR2Q,
DR3Q)))-RED10)*12.0; DS1:=ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q*12.0; PRAG:=MIN(0.95*ACPIG,0.04); VEDB:=VOPT(ord(
ASY53>=4.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR5Q,DR5,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD3Q,VD3,
VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,CNQ,CNT,BEG7,ASY53,RED13,RED10,RED4,
SS1,VOL1,PCVOL1,FDVOL1,SDVOL1,MAN8,PCMAN8,FDMAN8,SDMAN8,MAN7,
PCMAN7, FDMAN7,SDMAN7,FAP1,FDFAP1,PSY10,ASY3,ASY2,ASY1) <0 then
negative end;

procedure c5008s80; begin ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,1970.583))*1.0; ASY16:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*
1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*SUM(
WAGE,HIRED,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(
HIRED,1970.583); FAP2:=ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2)
;VCO1:=VOPT(MAX(ord(ASY16>=5.0)*0.25,ord(ASY16>=10.0)*0.5,ord((
QUITAGE>=60.0)!(ASY16>=15.0))*1.0)); SDMAN1:=MAX(HIRED,BIRTHD+
1.0); FDMAN1:=MIN(QUITD,BIRTHD+65.0); PCMAN1:=0.01; MAN1:=SUMI(
PCMAN1,8.0,0.0,SDMAN1,FDMAN1); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=0.02; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SDCOE1:=
MAX(HIRED,BIRTHD+1.0); FDCOE1:=MIN(QUITD,BIRTHD+65.0); PCCOE1:=
COENAR; COE1:=SUMI(PCCOE1,99.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1;
RED4:=NN(1.0-0.03*o(65.0,AGE)); RED5:=AR(65.0-AGE); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=AGE>=60.0; RAS5:=(AGE>=55.0)&(ASY1>=5.0);
RAS10:=AGE>=60.0; ROT4:=QAPPROVL; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG10:=ANYTIME(0.0,0.0); BEG11:=QUITD+2.0; CNT:=
MAN1+COE1; CNQ:=ord((AGE>=55.0)&(ASY16>=5.0))*CNT; NR1:=0.0125*
FAP1+0.0075*FAP2*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=0.00625*FAP1;
NR2Q:=ord(RAS1)*NR2; ANCONT:=ANNPAY(CNT,BENIFITD); NRT:=MAX(NR1,
NR2+ANCONT); NRQ:=MAX(NR1Q,NR2Q+ANCONT); LRQ:=AI(AGE,65.0,999.0)*
NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR2*
RED4; ER2Q:=ord(RAS4)*ER2; ER3:=NR1*RED5; ER3Q:=ord(RAS5&ROT4)*
ER3; ER4:=NR2*RED5; ER4Q:=ord(RAS5)*ER4; ERT:=MAX(ER1,ER3,ER2+
ANCONT,ER4+ANCONT); ERQ:=MAX(ER1Q,ER3Q,ER2Q+ANCONT,ER4Q+ANCONT);
VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=AA(BEG7,0.0)*
VD2; VD3:=ER3; VD3Q:=ord(ROT4)*AA(BEG7,0.0)*VD3; VD4:=ER4; VD4Q:=
AA(BEG7,0.0)*VD4; VDT:=MAX(VD1,VD3,VD2+ANCONT,VD4+ANCONT); VDQ:=
MAX(VD1Q,VD3Q,VD2Q+ANCONT,VD4Q+ANCONT); DR1:=ER1; DR1Q:=ord(
RAS10)*AA(BEG10,0.0)*DR1; DR2:=ER2; DR2Q:=ord(RAS10)*AA(BEG10,
0.0)*DR2; DR3:=ER3; DR3Q:=AA(BEG11,0.0)*DR3; DR4:=ER4; DR4Q:=AA(
BEG11,0.0)*DR4; DRT:=MAX(DR1,DR3,DR2+ANCONT,DR4+ANCONT); DRQ:=
MAX(DR1Q,DR3Q,DR2Q+ANCONT,DR4Q+ANCONT); DS1:=ER1*RED13*0.5;
DS1Q:=ord(RAS4)*DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(RAS4)*DS2;
DS3:=ER3*RED13*0.5; DS3Q:=ord(RAS5)*DS3; DS4:=ER4*RED13*0.5;
DS4Q:=ord(RAS5)*DS4; DST:=MAX(DS1,DS3,DS2+ANCONT,DS4+ANCONT);
DSQ:=MAX(DS1Q,DS3Q,DS2Q+ANCONT,DS4Q+ANCONT); PRAG:=0.0; VEDB:=
VOPT(MAX(ord(ASY1>=5.0)*0.25,ord(ASY1>=10.0)*0.5,ord((QUITAGE>=
60.0)!(ASY1>=15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS4Q,DS4,
DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR4Q,DR4,DR3Q,DR3,DR2Q,DR2,
DR1Q,DR1,VDQ,VDT,VD4Q,VD4,VD3Q,VD3,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER4Q,ER4,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,ANCONT,
NR2Q,NR2,NR1Q,NR1,CNQ,CNT,BEG11,BEG10,BEG7,RED13,RED5,RED4,COE1,
PCCOE1,FDCOE1,SDCOE1, MAN7,PCMAN7,FDMAN7,SDMAN7,MAN1,PCMAN1,
FDMAN1,SDMAN1,VCO1,FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1,ASY16,ASY1) <0
then negative end;

procedure c5009s31; begin ASY1:=NN(MIN(QUITD,BIRTHD+65.0,1976.0)-
MAX(HIRED+1.0,BIRTHD+25.0))*NNMIN(1.0,WRKHRS/12.0); ASY2:=NN(MIN(
QUITD,BIRTHD+65.0)-(HIRED+2.0))*1.0; ASY3:=NN(MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0,1976.0))*NNMIN(1.0,WRKHRS/
2000.0); ASY4:=NN(MIN(QUITD,BIRTHD+65.0,1976.0)-HIRED)*1.0;
ASY5:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1976.0))*NNMIN(1.0,
WRKHRS/1000.0); ASY6:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*1.0;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*SUM(WAGE,
HIRED,FDFAP1); ASY55:=ASY4+ASY5; VCO1:=VOPT(MAX(ord(ASY55>=5.0)*
0.5,ord(ASY55>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASY55>=10.0)!(
QUITAGE>=55.0)&(ASY55>=5.0))*1.0)); VCO2:=VOPT(MAX(ord(ASY55>=
5.0)*0.5,ord(ASY55>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASY55>=10.0)!(
QUITAGE>=55.0)&(ASY55>=5.0))*1.0)); SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=0.01; MAN7:=SUMI(PCMAN7,4.0,0.0,SDMAN7,FDMAN7); SDMAN8:=
HIRED; FDMAN8:=QUITD; PCMAN8:=0.02; MAN8:=SUMI(PCMAN8,5.0,0.0,
SDMAN8,FDMAN8); SDVOL1:=HIRED; FDVOL1:=MIN(QUITD,BIRTHD+65.0);
PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCOE1:=HIRED; FDCOE1:=MIN(QUITD,BIRTHD+65.0,1976.0);
PCCOE1:=0.05; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1;
SDCOE2:=MAX(HIRED,1976.0); FDCOE2:=MIN(QUITD,BIRTHD+65.0);
PCCOE2:=0.05; COE2:=SUMI(PCCOE2,8.0,0.0,SDCOE2,FDCOE2)*ord(
WRKHRS>=2000.0)*1.0*VCO2; SS1:=SUM(SSBASE,HIRED,QUITD); RED4:=AR(
65.0-AGE); RED5:=NN(1.0-0.03*o(85.0,AGE+ASY55)); RED13:=JSRED;
RED14:=COSTRED; RAS1:=(AGE>=65.0)!(AGE+ASY6>=85.0)&(AGE>=55.0)&(
ASY6>=25.0); RAS4:=(AGE>=55.0)&(ASY55>=5.0); RAS5:=(AGE>=55.0)&(
ASY6>=25.0); RAS10:=(AGE>=50.0)&(ASY6>=5.0); RAS11:=(AGE>=55.0)&(
ASY6>=5.0); RAS12:=(AGE>=55.0)&(ASY6>=25.0); BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); CNT:=VOL1+COE1+COE2; CNQ:=ord((AGE>=
65.0)!(AGE+ASY6>=85.0)&(AGE>=55.0)&(ASY6>=25.0))*CNT; NR1:=
0.0075*u(FAP1,SS1)+0.015*o(FAP1,SS1); NR1Q:=ord(RAS1)*NR1; NR2:=
240.0*(ASY1+ASY3)+96.0*ASY2; NR2Q:=ord(RAS1)*NR2; ANCOE1:=ANNPAY(
COE1,BENIFITD); ANCOE2:=ANNPAY(COE2,BENIFITD); ANVOL1:=ANNPAY(
VOL1,BENIFITD); NRT:=MAX(NR1+ANCOE1+ANCOE2,NR2)+ANVOL1; NRQ:=MAX(
NR1Q+ANCOE1+ANCOE2,NR2Q)+ANVOL1; LRQ:=NRQ; MRAGE:=999.0; ER1:=
NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR1*RED5; ER2Q:=ord(RAS5)*
ER2; ERT:=MAX(MAX(ER1,ER2)+ANCOE1+ANCOE2,NR2*MAX(RED4,RED5))+
ANVOL1; ERQ:=MAX(MAX(ER1Q,ER2Q)+ANCOE1+ANCOE2,NR2Q*MAX(RED4,RED5)
)+ANVOL1; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=NRT*RED4; DR1Q:=ord(RAS10)*DR1; DR2:=ER1; DR2Q:=ord(RAS11)*
DR2; DR3:=ER2; DR3Q:=ord(RAS12)*DR3; DRT:=MAX(MAX(DR1,DR2,DR3)+
ANCOE1+ANCOE2,NR2*MAX(RED4,RED5))+ANVOL1; DRQ:=MAX(MAX(DR1Q,DR2Q,
DR3Q)+ANCOE1+ANCOE2,NR2Q*MAX(RED4,RED5))+ANVOL1; DS1:=ER1*RED13*
RED14*0.5; DS1Q:=ord(RAS4)*DS1; DS2:=ER2*RED13*RED14*0.5; DS2Q:=
ord(RAS5)*DS2; DST:=MAX(MAX(ER1,ER2)+ANCOE1+ANCOE2,NR2*MAX(RED4,
RED5)); DSQ:=MAX(MAX(ER1,ER2)+ANCOE1+ANCOE2,NR2*MAX(RED4,RED5));
PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY55>=5.0)*0.5,ord(ASY55>=7.0)*
0.7,ord((QUITAGE>=65.0)!(ASY55>=10.0)!(QUITAGE>=55.0)&(ASY55>=
5.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,
DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,ANVOL1,ANCOE2,ANCOE1,NR2Q,NR2,NR1Q,
NR1,CNQ,CNT,BEG7,RED14,RED13,RED5,RED4,SS1,COE2,PCCOE2,FDCOE2,
SDCOE2,COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,PCVOL1,FDVOL1,SDVOL1,MAN8,
PCMAN8,FDMAN8,SDMAN8,MAN7,PCMAN7,FDMAN7,SDMAN7,VCO2,VCO1,ASY55,
FAP1,FDFAP1,ASY6,ASY5,ASY4,ASY3,ASY2,ASY1) <0 then negative end;

procedure c5010s223; begin ASY1:=NNMIN(30.0,MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=NN(QUITD-MAX(HIRED,
BIRTHD+22.0))*1.0; PSY10:=MIN(25.0,BIRTHD+65.0-HIRED); FDFAP1:=
MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-36.0/12.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDVOL1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(
0.0,CRVOL*WAGE(SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,
0.0,SDVOL1,FDVOL1); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0));
RED4:=1.0-(0.0333*a(AGE,58.0,55.0)+0.0467*a(AGE,61.0,58.0)+0.07*
a(AGE,65.0,61.0)); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=
60.0)&(ASY2>=5.0)!(AGE+ASY2>=70.0)&(ASY2>=5.0); RAS10:=ASY2>=
10.0; RAS13:=(AGE>=60.0)!(AGE+ASY2>=70.0); BEG7:=MAX(BIRTHD+70.0-
ASY2,QUITD); BEG8:=ANYTIME(BIRTHD+60.0,BIRTHD+65.0); CNT:=VOL1;
CNQ:=CNT; NR1:=(0.02*FAP1-0.01667*SS1)*ASY1; NR1Q:=ord(RAS1)*NR1;
ANCONT:=ANNPAY(CNT,BENIFITD); NRT:=NR1+ANCONT; NRQ:=NR1Q+ANCONT;
LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1+ANCONT; ERQ:=ER1Q+ANCONT; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1;
VD2:=ERT; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(
VD1Q,VD2Q); DR1:=0.01*FAP1*MAX(ASY1,PSY10); DR1Q:=ord(RAS10)*DR1;
DR2:=0.02*FAP1*ASY1; DR2Q:=ord(RAS10)*DR2; DRT:=MIN(DR1,DR2)+
ANCONT; DRQ:=MIN(DR1Q,DR2Q)+ANCONT; DS1:=ER1*RED13; DS1Q:=ord(
RAS13)*DS1; DST:=DS1+ANCONT; DSQ:=DS1Q+ANCONT; PRAG:=0.0; VEDB:=
VOPT(ord(ASY2>=10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,
DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,ANCONT,NR1Q,NR1,CNQ,CNT,BEG8,BEG7,
RED13,RED4,SS1,VOL1,PCVOL1,FDVOL1,SDVOL1,FAP1,SDFAP1,FDFAP1,
PSY10,ASY2,ASY1) <0 then negative end;

procedure c5011s161; begin ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-(
HIRED+1.0))*NNMIN(1.0,WRKHRS/12.0); FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1); SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=
QUITD; PCVOL1:=MAX(0.02*WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SS1:=SS(1.0,BENIFITD); RED4:=AR(NRD-BENIFITD);
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=20.0);
RAS10:=ASY1>=10.0; ROT7:=ASY1>=20.0; BEG7:=MAX(BIRTHD+65.0,QUITD)
;BEG8:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); CNT:=VOL1; CNQ:=ord(
AGE>=55.0)*CNT; NR1:=60.0*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=NN(
0.016*FAP1*ASY1-0.0125*SS1*u(ASY1,40.0)); NR2Q:=ord(RAS1)*NR2;
ANCONT:=ANNPAY(CNT,BENIFITD); NRT:=MAX(NR1,NR2)+ANCONT; NRQ:=MAX(
NR1Q,NR2Q)+ANCONT; LRQ:=NRQ; MRAGE:=999.0; ER1:=MAX(NR1,NR2)*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1+ANCONT; ERQ:=ER1Q+ANCONT;
VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VD2:=ERT; VD2Q:=ord(ROT7)*AA(
BEG8,0.0)*VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=ERT;
DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=0.5*ER1*RED13;
DS1Q:=ord(RAS4)*DS1; DST:=DS1+ANCONT; DSQ:=DS1Q+ANCONT; PRAG:=
0.03; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,ANCONT,NR2Q,NR2,
NR1Q,NR1,CNQ,CNT,BEG8,BEG7,RED13,RED4,SS1,VOL1,PCVOL1,FDVOL1,
SDVOL1,FAP1,SDFAP1,FDFAP1,ASY1) <0 then negative end;

procedure c5012s240; begin ASY1:=NNMIN(40.0,MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED,BIRTHD+25.0,1976.0))*1.0; ASY2:=NNMIN(40.0,MIN(
QUITD,BIRTHD+65.0,1976.0)-MAX(HIRED,BIRTHD+25.0))*1.0; FDFAP1:=
MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-60.0/12.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); VMM1:=VOPT(1.0)
;SDMAN1:=MAX(HIRED,BIRTHD+25.0); FDMAN1:=MIN(QUITD,BIRTHD+65.0,
1976.0); PCMAN1:=MANNAR; MAN1:=SUMI(PCMAN1,99.0,0.0,SDMAN1,
FDMAN1); PCMMAN1:=MMANNAR*PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,0.0,
SDMAN1,FDMAN1)*VMM1; SS1:=SSBASE(BENIFITD); SS10:=SSBASE(
BENIFITD)/12.0; RED4:=1.0-(0.03*a(AGE,59.0,55.0)+0.047*a(AGE,
60.0,59.0)+0.067*a(AGE,61.0,60.0)); RED5:=NN(1.0-0.03*o(65.0,AGE)
); RED13:=JSRED; ASY51:=ASY1+ASY2; RAS1:=(AGE>=65.0)!(AGE>=62.0)&
(ASY51>=25.0); RAS4:=(AGE>=55.0)&(ASY51>=25.0); RAS5:=(AGE>=55.0)
&(ASY51>=10.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); CNT:=MAN1+MMAN1;
CNQ:=ord((AGE>=65.0)!(AGE>=55.0)&(ASY51>=10.0))*CNT; NR1:=(0.01*
u(FAP1,SS1)+0.015*o(FAP1,SS1))*ASY1+0.005*FAP1*u(ASY2,40.0-ASY1)
;NR1Q:=ord(RAS1)*NR1; NR2:=MIN(120.0+0.006*o(FAP1,10000.0),180.0)
*u(ASY1+ASY2,40.0); NR2Q:=ord(RAS1)*NR2; ANCONT:=ANNPAY(CNT,
BENIFITD); NRT:=MAX(NR1,NR2)+ANCONT; NRQ:=MAX(NR1Q,NR2Q)+ANCONT;
LRQ:=(1.0+0.03*o(AGE,65.0))*NRQ; MRAGE:=999.0; ER1:=MAX(NR1,NR2)*
RED4; ER1Q:=ord(RAS4)*ER1; ER2:=MAX(NR1,NR2)*RED5; ER2Q:=ord(
RAS5)*ER2; ERT:=MAX(ER1,ER2)+ANCONT; ERQ:=MAX(ER1Q,ER2Q)+ANCONT;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=(
0.01*u(FAP1,SS10)+0.015*o(FAP1,SS10))*ASY1+0.005*FAP1*u(ASY2,
40.0-ASY1); DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DR2:=NR2; DR2Q:=
ord(ROT10)*AA(BEG10,0.0)*DR2; DRT:=MAX(DR1,DR2)+ANCONT; DRQ:=MAX(
DR1Q,DR2Q)+ANCONT; DS1:=MAX(ER1,ER2)*RED13*0.5; DS1Q:=ord(RAS4)*
DS1; DST:=DS1+ANCONT; DSQ:=DS1Q+ANCONT; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY51>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,ANCONT,NR2Q,NR2,NR1Q,NR1,
CNQ,CNT,BEG10,BEG7,ASY51,RED13,RED5,RED4,SS10,SS1,MMAN1,PCMMAN1,
MAN1,PCMAN1,FDMAN1,SDMAN1,VMM1,FAP1,SDFAP1,FDFAP1,ASY2,ASY1) <0
then negative end;

procedure c5014s277; begin ASY1:=NN(MIN(QUITD,BIRTHD+70.0)-HIRED)
*NNMIN(1.0,WRKHRS/1664.0); ASY2:=NN(MIN(QUITD,BIRTHD+70.0)-HIRED)
*ord(WRKHRS>=1000.0)*1.0; ASY16:=NN(QUITD-(HIRED+1.0))*ord(
WRKHRS>=1000.0)*1.0; VMM1:=VOPT(MAX(ord(ASY16>=5.0)*0.5,ord(
ASY16>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASY16>=10.0)!(QUITAGE>=
55.0)&(ASY16>=5.0))*1.0)); VMV1:=VOPT(MAX(ord(ASY16>=5.0)*0.5,
ord(ASY16>=7.0)*0.7,ord((QUITAGE>=65.0)!(ASY16>=10.0)!(QUITAGE>=
55.0)&(ASY16>=5.0))*1.0)); SDMAN1:=MAX(HIRED,BIRTHD+1.0);
FDMAN1:=QUITD; PCMAN1:=52.0/WAGE(SURVEYD); MAN1:=SUMI(PCMAN1,2.0,
0.0,SDMAN1,FDMAN1); PCMMAN1:=0.25*PCMAN1; MMAN1:=SUMI(PCMMAN1,
7.0,0.0,SDMAN1,FDMAN1)*VMM1; SDVOL1:=MAX(HIRED,BIRTHD+1.0);
FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(572.0,CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1);
PCMVOL1:=0.25*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,FDVOL1)*
VMV1; RED4:=NN(1.0-0.05*o(62.0,AGE)); RED7:=NN(1.0-0.05*o(65.0,
AGE)); RED10:=OTHERB; RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=62.0)
&(ASY2>=5.0); RAS4:=(AGE>=55.0)&(ASY1>=5.0); RAS10:=ASY2>=10.0;
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); CNT:=MAN1+VOL1+MVOL1+
MMAN1; CNQ:=ord((AGE>=55.0)&(ASY16>=5.0))*CNT; NR1:=11.0*ASY1;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*
12.0; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*
12.0; DR1:=NRT-RED10; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q*
12.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0)
!(QUITAGE>=55.0)&(ASY2>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,CNQ,CNT,BEG7,RED13,RED10,RED7,RED4,
MVOL1,PCMVOL1,VOL1,PCVOL1,FDVOL1,SDVOL1,MMAN1,PCMMAN1,MAN1,
PCMAN1,FDMAN1,SDMAN1,VMV1,VMM1,ASY16,ASY2,ASY1) <0 then negative
end;

procedure c5015s619; begin ASY1:=NNMIN(30.0,MIN(QUITD,BIRTHD+
65.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; SDVOL1:=MAX(HIRED,BIRTHD+1.0); FDVOL1:=
QUITD; PCVOL1:=MAX(0.02*WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); RED4:=AR(NRD-BENIFITD); RED13:=AR(NRD-BENIFITD);
RAS1:=(AGE>=65.0)&(ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0);
BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); CNT:=VOL1; CNQ:=CNT;
NR1:=7.0*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0;
LRQ:=NRQ; MRAGE:=65.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DRQ:=0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*
DS1; DST:=DS1; DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=
10.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,CNQ,CNT,BEG7,
RED13,RED4,VOL1,PCVOL1,FDVOL1,SDVOL1,ASY16,ASY1) <0 then
negative end;

procedure c5016s769; begin ASY1:=NN(MIN(QUITD,1965.583)-MAX(
HIRED+3.0,BIRTHD+25.0))*ord(WRKHRS>=1080.0)*1.0; ASY16:=NN(QUITD-
MAX(HIRED+3.0,BIRTHD+25.0))*ord(WRKHRS>=1080.0)*1.0; FDFAP1:=MIN(
QUITD,1965.583); FAP1:=ord(FDFAP1>HIRED)*AVG(WAGE,HIRED,FDFAP1)/
12.0; VMM1:=VOPT(MAX(ord(ASY16>=5.0)*0.5,ord(ASY16>=7.0)*0.7,ord(
(QUITAGE>=60.0)!(ASY16>=10.0))*1.0)); SDMAN1:=MAX(HIRED,MAX(
BIRTHD+25.0,HIRED+3.0)); FDMAN1:=QUITD; PCMAN1:=0.05; MAN1:=SUMI(
PCMAN1,8.0,0.0,SDMAN1,FDMAN1); PCMMAN1:=PCMAN1; MMAN1:=SUMI(
PCMMAN1,7.0,0.0,SDMAN1,FDMAN1)*VMM1; RAS1:=AGE>=60.0; BEG7:=MAX(
NRD,QUITD); CNT:=MAN1+MMAN1; CNQ:=ord(AGE>=60.0)*CNT; NR1:=
0.00333*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0;
LRQ:=NRQ; MRAGE:=999.0; ERQ:=0.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*
VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=DR1; DRT:=DR1;
DRQ:=DR1Q*12.0; DSQ:=0.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=
5.0)*0.5,ord(ASY1>=6.0)*0.6,ord((QUITAGE>=60.0)!(ASY1>=10.0))*
1.0)); if min( VEDB,PRAG,DSQ,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,
ERQ,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,CNQ,CNT,BEG7,MMAN1,PCMMAN1,MAN1,
PCMAN1,FDMAN1,SDMAN1,VMM1,FAP1,FDFAP1,ASY16,ASY1) <0 then
negative end;

procedure c5017s885; begin ASYV:=NN(QUITD-MAX(HIRED,BIRTHD+22.0))
*ord(WRKHRS>=1000.0)*1.0; ASY1:=NNMIN(25.0,MIN(QUITD,BIRTHD+65.0)
-HIRED)*NNMIN(1.0,WRKHRS/1800.0); PSY4:=BIRTHD+65.0-HIRED;
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); VCT1:=VOPT(1.0)
;SDCTE1:=HIRED; FDCTE1:=MIN(QUITD,1976.0); PCCTE1:=CRPROF1;
CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*1.0*VCT1; SS1:=SS(1.0,
BENIFITD); RED4:=1.0-(0.05*a(AGE,60.0,55.0)+0.02*a(AGE,65.0,60.0)
); RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(
AGE>=55.0)&(ASY1>=10.0); ROT10:=QSSDABLE; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); CNT:=CTE1;
CNQ:=CNT; NR1:=(0.5*FAP1-0.5*SS1)*u(ASY1,25.0)/25.0; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=AI(AGE,65.0,999.0)*NRQ;
MRAGE:=999.0; ER1:=(0.5*FAP1-0.5*SS1)*u(PSY4,25.0)/25.0*ASY1/
PSY4*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=(0.5*
FAP1-0.5*SS1)*u(PSY4,25.0)/25.0*ASY1/PSY4*RED7; VD1Q:=AA(BEG7,
0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(ROT10)*AA(
BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=ERT*RED13*0.5; DS1Q:=
ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((
QUITAGE>=22.0)&(ASYV>=10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,CNQ,CNT,BEG10,BEG7,RED13,RED7,RED4,
SS1,CTE1,PCCTE1,FDCTE1,SDCTE1,VCT1,FAP1,SDFAP1,FDFAP1,PSY4,ASY1,
ASYV) <0 then negative end;

procedure c5018s480; begin ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)
*ord(WRKHRS>=1000.0)*1.0; ASY16:=NN(QUITD-MAX(HIRED+1.0,BIRTHD+
24.0))*1.0; PSY4:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,BIRTHD+
65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*
AVG(WAGE,SDFAP1,FDFAP1)/12.0; SDVOL1:=MAX(HIRED,MAX(BIRTHD+24.0,
HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD)
,CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SS1:=SSBASE(1971.0)/12.0; RAS1:=(AGE>=65.0)&(
ASY1>=10.0); RAS4:=(AGE>=55.0)&(ASY1>=10.0); CNT:=VOL1; CNQ:=CNT;
NR1:=0.1*FAP1+0.22*o(FAP1,SS1); NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q*12.0; LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ER1:=
NRT*ASY1/PSY4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*12.0;
VD1:=ERT; VD1Q:=VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=
DR1; DRT:=DR1; DRQ:=DR1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(
ASY1>=1.0)*0.1,ord(ASY1>=5.0)*0.5,ord(ASY1>=10.0)*1.0)); if min(
VEDB,PRAG,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,CNQ,CNT,SS1,VOL1,PCVOL1,FDVOL1,
SDVOL1,FAP1,SDFAP1,FDFAP1,PSY4,ASY16,ASY1) <0 then negative end;

procedure c5019s731; begin ASY1:=NN(MIN(QUITD,BIRTHD+65.0,1978.0)
-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)
-MAX(HIRED+1.0,BIRTHD+25.0,1978.0))*1.0; ASY3:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; ASY4:=NN(MIN(QUITD,
BIRTHD+65.0)-HIRED)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0,1978.0);
SDFAP1:=MAX(HIRED,1977.0); FAP1:=ord(FDFAP1>SDFAP1)*WAGE(FDFAP1);
FDFAP2:=MIN(QUITD,BIRTHD+65.0); SDFAP2:=MAX(HIRED,1978.0); FAP2:=
ord(FDFAP2>SDFAP2)*AVG(WAGE,SDFAP2,FDFAP2); VCO1:=VOPT(ord((
QUITAGE>=65.0)!(ASY4>=10.0))*1.0); VCO2:=VOPT(ord((QUITAGE>=65.0)
!(ASY4>=10.0))*1.0); SDCOE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)
,1978.0); FDCOE1:=MIN(QUITD,BIRTHD+65.0); PCCOE1:=0.01; COE1:=
SUMI(PCCOE1,4.0,0.0,SDCOE1,FDCOE1)*1.0*VCO1; SDCOE2:=MAX(HIRED,
MAX(BIRTHD+25.0,HIRED+1.0),1978.0); FDCOE2:=MIN(QUITD,BIRTHD+
65.0); PCCOE2:=0.0125; COE2:=SUMI(PCCOE2,5.0,0.0,SDCOE2,FDCOE2)*
1.0*VCO2; SDSS1:=MAX(HIRED,1978.0); SS1:=ord(QUITD>SDSS1)*SSBASE(
BENIFITD); RED4:=NN(1.0-0.04*o(65.0,AGE)); RED5:=NN(1.0-0.02*o(
90.0,AGE+ASY4)); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE+ASY3>=90.0)
;RAS2:=(AGE>=65.0)&(ASY3>=10.0); RAS4:=(AGE>=55.0)&(ASY4>=10.0)!(
AGE+ASY4>=90.0); RAS13:=(AGE>=55.0)&(ASY4>=10.0); BEG7:=MAX(ERD,
QUITD); BEG8:=MAX(NRD,QUITD); CNT:=COE1+COE2; CNQ:=ord((AGE>=
65.0)!(AGE>=55.0)&(ASY4>=10.0)!(AGE+ASY4>=80.0))*CNT; NR1:=(0.01*
u(FAP2,SS1)+0.0125*o(FAP2,SS1))*ASY2; NR1Q:=ord(RAS1)*NR1; NR2:=(
0.0155*u(FAP1,8250.0)+0.02*o(FAP1,8250.0))*ASY1; NR2Q:=ord(RAS1)*
NR2; ANCONT:=ANNPAY(CNT,BENIFITD); NR3:=NN((0.02*u(FAP2,SS1)+
0.025*o(FAP2,SS1))*ASY2-ANCONT); NR3Q:=ord(RAS1)*NR3; NR4:=NN(
1200.0+60.0*b(ASY3,10.0,30.0)-ANCONT); NR4Q:=ord(RAS2)*NR4; NRT:=
MAX(NR1+NR2,NR2+NR3,NR4)+ANCONT; NRQ:=MAX(NR1Q+NR2Q,NR2Q+NR3Q,
NR4Q)+ANCONT; LRQ:=NRQ; MRAGE:=70.0; ER1:=(NR1+NR2)*MAX(RED4,
RED5); ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VD2:=NR1+NR2; VD2Q:=AA(BEG8,0.0)*VD2; VDT:=MAX(
VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DRQ:=0.0; DS1:=0.5*ERT*RED13;
DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY4>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS1Q,DS1,DRQ,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR4Q,NR4,NR3Q,NR3,ANCONT,NR2Q,NR2,NR1Q,NR1,
CNQ,CNT,BEG8,BEG7,RED13,RED5,RED4,SS1,SDSS1,COE2,PCCOE2,FDCOE2,
SDCOE2,COE1,PCCOE1,FDCOE1,SDCOE1,VCO2,VCO1,FAP2,SDFAP2,FDFAP2,
FAP1,SDFAP1,FDFAP1,ASY4,ASY3,ASY2, ASY1) <0 then negative end;

procedure c5020s523; begin ASY1:=NNMIN(15.0,MIN(QUITD,BIRTHD+
65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=
NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED+1.0,BIRTHD+25.0))*ord(
WRKHRS>=1000.0)*1.0; ASY4:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*ord(
WRKHRS>=1000.0)*1.0; PSY4:=NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+
25.0)); FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-
60.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1)/
12.0; SDVOL1:=HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.0,CRVOL*WAGE(
SURVEYD))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1)
;SS1:=SSBASE(1977.0)/12.0; RED4:=AR(65.0-AGE); RAS1:=AGE>=65.0;
RAS4:=(AGE>=55.0)&(ASY4>=10.0); LNG13:=1.0; BEG7:=ANYTIME(BIRTHD+
55.0,BIRTHD+65.0); CNT:=VOL1; CNQ:=CNT; ANCONT:=ANNPAY(CNT,
BENIFITD); NR1:=0.3333*o(FAP1,SS1)+ASY1/15.0+ANCONT/12.0; NR1Q:=
ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=70.0;
ER1:=NR1*ASY2/PSY4*RED4+ANCONT/12.0; ER1Q:=ord(RAS4)*ER1; ERT:=
ER1; ERQ:=ER1Q*12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1;
VDQ:=VD1Q*12.0; DR1:=ER1; DR1Q:=DR1; DRT:=DR1; DRQ:=DR1Q*12.0;
DS1:=VDT; DS1Q:=ord(RAS1)*AA(QUITD,LNG13+QUITD)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY4>=4.0)*0.4,ord(
ASY4>=7.0)*0.6,ord((QUITAGE>=65.0)!(ASY4>=11.0)!(QUITAGE>=55.0)&
(ASY4>=10.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,
NR1Q,NR1,ANCONT,CNQ,CNT,BEG7,LNG13,RED4,SS1,VOL1,PCVOL1,FDVOL1,
SDVOL1,FAP1,SDFAP1,FDFAP1,PSY4,ASY4,ASY2,ASY1) <0 then negative
end;

procedure c5021s563; begin ASY1:=NNMIN(40.0,MIN(QUITD,BIRTHD+
65.0)-HIRED)*1.0; ASY2:=NNMIN(40.0,MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED,MIN(HIRED+1.0,BIRTHD+23.0)))*1.0; ASY3:=NN(MIN(QUITD,
BIRTHD+65.0)-MAX(HIRED,BIRTHD+22.0))*1.0; FDFAP1:=MIN(QUITD,
BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-54.0/12.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDVOL1:=MAX(HIRED,MIN(
BIRTHD+23.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(
VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SS1:=SS(1.0,BENIFITD); RED4:=
1.0-(0.04*a(AGE,60.0,55.0)+0.02*a(AGE,62.0,60.0)); RED7:=AR(65.0-
AGE); RED13:=JSRED; RAS1:=(AGE>=65.0)!(AGE>=55.0)&(ASY1>=30.0)!(
AGE+ASY1>=85.0)&(ASY1>=30.0); RAS2:=(AGE>=65.0)!(AGE>=55.0)&(
ASY2>=30.0)!(AGE+ASY2>=85.0)&(ASY2>=30.0); RAS3:=(AGE>=62.0)&(
ASY3>=5.0); RAS4:=(AGE>=55.0)&(ASY3>=5.0); RAS10:=AGE>=55.0;
ROT2:=PARTD<1982.25; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0);
CNT:=VOL1; CNQ:=CNT; NR1:=0.0185*FAP1*u(ASY1,30.0)+0.015*FAP1*o(
ASY1,30.0)-0.5*SS1*u(ASY1,30.0)/30.0; NR1Q:=ord(RAS1&ROT2)*NR1;
NR2:=0.0185*FAP1*u(ASY2,30.0)+0.015*FAP1*o(ASY2,30.0)-0.5*SS1*u(
ASY2,3030.0)/30.0; NR2Q:=ord(RAS2)*NR2; NR3:=NR1; NR3Q:=ord(RAS3&
ROT2)*NR3; NR4:=NR2; NR4Q:=ord(RAS3)*NR4; NRT:=MAX(NR1,NR2,NR3,
NR4); NRQ:=MAX(NR1,NR2,NR3,NR4); LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*
RED4; ER1Q:=ord(RAS4&ROT2)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4)*
ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1,ER2); VD1:=NR1*RED7; VD1Q:=
ord(ROT2)*AA(BEG7,0.0)*VD1; VD2:=NR2*RED7; VD2Q:=AA(BEG7,0.0)*
VD2; VDT:=MAX(VD1,VD2); VDQ:=MAX(VD1,VD2); DR1:=NR1; DR1Q:=ord(
RAS10&ROT2)*DR1; DR2:=NR2; DR2Q:=ord(RAS10)*DR2; DRT:=MAX(DR1,
DR2); DRQ:=MAX(DR1,DR2); DS1:=ER1*RED13*0.5; DS1Q:=ord(RAS4&ROT2)
*DS1; DS2:=ER2*RED13*0.5; DS2Q:=ord(RAS4)*DS2; DST:=MAX(DS1,DS2);
DSQ:=MAX(DS1,DS2); PRAG:=NN(ACPIG-0.0); VEDB:=VOPT(ord((QUITAGE>=
65.0)!(ASY3>=10.0)!(QUITAGE>=55.0)&(ASY3>=5.0))*1.0); if min(
VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,
VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,
NRQ,NRT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,CNQ,CNT,BEG7,RED13,
RED7,RED4,SS1,VOL1,PCVOL1,FDVOL1,SDVOL1,FAP1,SDFAP1,FDFAP1,ASY3,
ASY2,ASY1) <0 then negative end;

procedure c5022s663; begin ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED+1.0,BIRTHD+23.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=(QUITD-
HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY7:=NN(BIRTHD+65.0-MAX(HIRED+
1.0,BIRTHD+23.0)); FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-3.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1); SDVOL1:=MAX(HIRED,MAX(BIRTHD+23.0,HIRED+1.0)); FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD))
)/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SS1:=
SSBASE(1971.0); RED7:=AR(65.0-AGE); RAS1:=(AGE>=65.0)&(ASY2>=5.0)
;RAS2:=ASY2>=10.0; ROT2:=BIRTHD+60.0<HIRED; BEG7:=MAX(BIRTHD+
65.0,QUITD); CNT:=VOL1; CNQ:=CNT; NR1:=(0.1*u(FAP1,SS1)+0.4*o(
FAP1,SS1))*u(ASY1,15.0)/15.0; NR1Q:=ord(RAS1)*NR1; NR2:=NR1;
NR2Q:=ord(RAS2&ROT2)*NR2; NRT:=MAX(NR1,NR2); NRQ:=MAX(NR1Q,NR2Q);
LRQ:=AI(AGE,65.0,999.0)*NRQ; MRAGE:=999.0; ERQ:=0.0; VD1:=(0.1*u(
FAP1,SS1)+0.4*o(FAP1,SS1))*u(PSY7,15.0)/15.0*ASY1/PSY7*RED7;
VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=VD1; DR1Q:=DR1;
DRT:=DR1; DRQ:=DR1Q; DS1:=VD1; DS1Q:=DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY2>=1.0)*0.2,ord(ASY2>=3.0)*0.6,
ord(ASY2>=5.0)*1.0)); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,
DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,CNQ,CNT,BEG7,RED7,SS1,VOL1,PCVOL1,FDVOL1,SDVOL1,FAP1,SDFAP1,
FDFAP1,PSY7,ASY2,ASY1) <0 then negative end;

procedure c5023s562; begin ASYV:=(QUITD-HIRED)*ord(WRKHRS>=
1000.0)*1.0; ASY1:=NNMIN(40.0,MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,
BIRTHD+25.0))*1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(
HIRED,FDFAP1-60.0/12.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; SDVOL1:=MAX(HIRED,1979.0); FDVOL1:=MIN(
QUITD,SDVOL1+10.0); PCVOL1:=MAX(0.0,CRVOL*WAGE(SURVEYD))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SS1:=SS(1.0,
MAX(BENIFITD,BIRTHD+65.0))/12.0; RED4:=NN(1.0-0.04*o(62.0,AGE));
RED7:=NN(1.0-0.06*o(65.0,AGE)); RED13:=JSRED; RED14:=NN(1.0-0.04*
o(62.0,AGE)); RAS1:=AGE>=62.0; RAS4:=(AGE>=55.0)&(ASY1>=14.0);
RAS10:=(AGE>=25.0)&(ASY1>=5.0); RAS11:=ASY1>=14.0; RAS13:=(AGE>=
45.0)&(ASY1>=14.0); RAS14:=(AGE>=55.0)&(ASY1>=14.0); ROT10:=
QCODABLE; ROT11:=^QCODABLE; LNG4:=BIRTHD+SSAGE(2.0); BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+65.0,0.0)
;BEG11:=ANYTIME(BIRTHD+55.0,0.0); CNT:=VOL1; CNQ:=CNT; NR1:=(
0.02*FAP1-0.02*SS1)*u(ASY1,25.0)+0.00667*FAP1*o(ASY1,25.0);
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=(1.0+0.04*o(
AGE,65.0))*NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1;
ER2:=0.02*SS1*u(ASY1,25.0)*RED4; ER2Q:=ord(RAS4)*AA(QUITD,LNG4)*
ER2; ERT:=ER1+ER2; ERQ:=(ER1Q+ER2Q)*12.0; VD1:=NRT*RED7; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NRT; DR1Q:=ord(
RAS10&ROT10)*AA(BEG10,0.0)*DR1; DR2:=NRT; DR2Q:=ord(RAS11&ROT11)*
AA(BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*12.0;
DS1:=0.5*ERT*RED13*RED14; DS1Q:=ord(RAS13)*DS1; DS2:=ERT*RED13*
0.5; DS2Q:=ord(RAS14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q)
*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASYV>=5.0)*0.25,ord(ASYV>=
9.0)*0.5,ord(ASYV>=14.0)*1.0)); if min( VEDB,PRAG,DSQ,DST,DS2Q,
DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,
ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,CNQ,CNT,BEG11,
BEG10,BEG7,LNG4,RED14,RED13,RED7,RED4,SS1,VOL1,PCVOL1,FDVOL1,
SDVOL1,FAP1,SDFAP1,FDFAP1,ASY1,ASYV) <0 then negative end;

procedure c5024s660; begin ASY1:=NN(QUITD-MAX(HIRED,BIRTHD+22.0))
*ord(WRKHRS>=1000.0)*1.0; ASY2:=NNMIN(35.0,QUITD-MAX(HIRED+1.0,
BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(
WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); SDVOL1:=MAX(HIRED,MAX(BIRTHD+
25.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SS1:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0));
RED4:=AR(65.0-AGE); RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=AGE>=
55.0; BEG7:=ANYTIME(BIRTHD+55.0,0.0); CNT:=VOL1; CNQ:=ord(AGE>=
55.0)*CNT; NR1:=NN(0.01*FAP1*ASY2-74.0*SS1); NR1Q:=ord(RAS1)*NR1;
NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=0.5*NRT*RED4;
ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(
BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=VDT; DR1Q:=DR1; DRT:=
DR1; DRQ:=DR1Q; DS1:=0.5*NRT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=
DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY1>=4.0)*0.4,ord(
ASY1>=5.0)*0.5,ord(ASY1>=10.0)*1.0)); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,
MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,CNQ,CNT,BEG7,RED13,RED4,SS1,VOL1,
PCVOL1,FDVOL1,SDVOL1,FAP1,FDFAP1,ASY2,ASY1) <0 then negative end;

procedure c5025s808; begin ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED+1.0,BIRTHD+25.0))*ord(WRKHRS>=1000.0)*1.0; ASY4:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+22.0))*ord(WRKHRS>=1000.0)*
1.0; FDFAP1:=MIN(QUITD,BIRTHD+65.0); FAP1:=ord(FDFAP1>HIRED)*AVG(
WAGE,HIRED,FDFAP1); SDVOL1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0))
;FDVOL1:=QUITD; PCVOL1:=MAX(0.04*WAGE(SURVEYD),MIN(0.1*WAGE(
SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,
2.0,0.0,SDVOL1,FDVOL1); SS1:=SSBASE(BENIFITD); RED4:=NN(1.0-0.05*
o(65.0,AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED; RED14:=COSTRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=10.0); RAS5:=AGE>=55.0;
ROT4:=PARTD<1976.0; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); CNT:=
VOL1; CNQ:=CNT; NR1:=(0.01*u(FAP1,SS1)+0.015*o(FAP1,SS1))*ASY1;
NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR1*RED4; ER2Q:=ord(
RAS5&ROT4)*ER2; ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=NRT*
RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0;
DS1:=0.5*ER1*RED13*RED14; DS1Q:=ord(RAS4)*DS1; DS2:=0.5*ER2*
RED13*RED14; DS2Q:=ord(RAS5&ROT4)*DS2; DST:=MAX(DS1,DS2); DSQ:=
MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY4>=
10.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,
NR1,CNQ,CNT,BEG7,RED14,RED13,RED7,RED4,SS1,VOL1,PCVOL1,FDVOL1,
SDVOL1,FAP1,FDFAP1,ASY4,ASY1) <0 then negative end;

procedure c5026s946; begin ASY1:=MIN(35.0,QUITD-HIRED)*1.0;
ASY2:=NNMIN(35.0,QUITD-MAX(HIRED+1.0,BIRTHD+25.0))*1.0; FDFAP1:=
QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1); VCO1:=VOPT(
ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); SDVOL1:=HIRED; FDVOL1:=
QUITD; PCVOL1:=MAX(0.05*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD))/WAGE(
SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDVOL2:=QUITD; PCVOL2:=MAX(
0.03*MIN(SSBASE(SURVEYD),WAGE(SURVEYD)),MIN(0.06*MAX(0.0,WAGE(
SURVEYD)-SSBASE(SURVEYD)),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2); SDCOE1:=HIRED; FDCOE1:=
QUITD; PCCOE1:=COENAR; COE1:=SUMI(PCCOE1,97.0,0.0,SDCOE1,FDCOE1)*
1.0*VCO1; SS1:=SSBASE(BENIFITD); RED4:=NN(1.0-0.04*o(65.0,AGE));
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=60.0)!(ASY2>=30.0)!(
AGE>=55.0)&(ASY2>=20.0); RAS10:=(AGE>=40.0)&(ASY2>=10.0); ROT1:=
QVOLCNTR; BEG7:=ANYTIME(BIRTHD+60.0,0.0); CNT:=MAX(VOL1,VOL2)+
COE1; CNQ:=ord(AGE>=65.0)*CNT; NR1:=(0.0125*u(FAP1,SS1)+0.02*o(
FAP1,SS1))*ASY1; NR1Q:=ord(RAS1&ROT1)*NR1; NR2:=(0.0125*u(FAP1,
SS1)+0.02*o(FAP1,SS1))*ASY2; NR2Q:=ord(RAS1)*NR2; NRT:=MAX(NR1,
NR2); NRQ:=MAX(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=70.0; ER1:=NR1*RED4;
ER1Q:=ord(RAS4&ROT1)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4)*ER2;
ERT:=MAX(ER1,ER2); ERQ:=MAX(ER1Q,ER2Q); VD1:=ER1; VD1Q:=ord(ROT1)
*AA(BEG7,0.0)*VD1; VD2:=ER2; VD2Q:=AA(BEG7,0.0)*VD2; VDT:=MAX(
VD1,VD2); VDQ:=MAX(VD1Q,VD2Q); DR1:=NR1; DR1Q:=ord(RAS10&ROT1)*
DR1; DR2:=NR2; DR2Q:=ord(RAS10)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(
DR1Q,DR2Q); DS1:=ER1*RED13; DS1Q:=ord(RAS4&ROT1)*DS1; DS2:=ER2*
RED13; DS2Q:=ord(RAS4)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,
DS2Q); PRAG:=ord(ACPIG>=0.01)*MIN(0.05*ACPIG,0.25); VEDB:=VOPT(
ord((QUITAGE>=65.0)!(ASY1>=10.0))*1.0); if min( VEDB,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,
VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,
NR2,NR1Q,NR1,CNQ,CNT,BEG7,RED13,RED4,SS1,COE1,PCCOE1,FDCOE1,
SDCOE1,VOL2,PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,VCO1,
FAP1,FDFAP1,ASY2,ASY1) <0 then negative end;

procedure c5027s565; begin ASY1:=NNMIN(40.0,QUITD-MAX(HIRED,
BIRTHD+25.0))*ord(WRKHRS>=12.0)*1.0; ASY2:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; ASY16:=NNMIN(40.0,QUITD-MAX(HIRED+1.0,
BIRTHD+25.0))*ord(WRKHRS>=12.0)*1.0; FDFAP1:=QUITD; FAP1:=AVG(
WAGE,MAX(HIRED,FDFAP1-60.0/12.0),FDFAP1); SDMAN1:=MAX(HIRED,MAX(
BIRTHD+25.0,HIRED+1.0)); FDMAN1:=MIN(QUITD,SDMAN1+40.0,1970.0);
PCMAN1:=MANNAR; MAN1:=SUMI(PCMAN1,99.0,0.0,SDMAN1,FDMAN1); SS1:=
SS(1.0,BENIFITD); RED4:=NN(1.0-0.04*o(62.0,AGE)); RED13:=JSRED;
RAS1:=(AGE>=65.0)!(AGE>=62.0)&(ASY2>=14.0); RAS4:=(AGE>=55.0)&(
ASY2>=14.0); RAS10:=(AGE>=25.0)&(ASY2>=5.0); RAS11:=ASY2>=14.0;
RAS13:=(AGE>=45.0)&(ASY1>=14.0); RAS14:=(AGE>=55.0)&(ASY1>=14.0);
ROT10:=^QCODABLE; LNG4:=BIRTHD+62.0; BEG7:=ANYTIME(BIRTHD+55.0,
BIRTHD+65.0); BEG10:=MAX(BIRTHD+65.0,QUITD); BEG11:=ANYTIME(
BIRTHD+55.0,0.0); CNT:=MAN1; CNQ:=ord(AGE>=65.0)*CNT; NR1:=(0.02*
FAP1-0.02*SS1)*u(ASY1,25.0)+0.00667*FAP1*o(ASY1,25.0); NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ER2:=0.02*SS1*u(ASY1,25.0)*RED4;
ER2Q:=ord(RAS4)*AA(QUITD,LNG4)*ER2; ERT:=ER1+ER2; ERQ:=ER1Q+ER2Q;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=NRT;
DR1Q:=ord(RAS10)*AA(BEG10,0.0)*DR1; DR2:=ERT; DR2Q:=ord(RAS11&
ROT10)*AA(BEG11,0.0)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q);
DS1:=ER1*RED13*0.5; DS1Q:=ord(RAS13)*DS1; DS2:=ERT*RED13*0.5;
DS2Q:=ord(RAS14)*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q);
PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY2>=5.0)*0.25,ord(ASY2>=9.0)*0.5,
ord((QUITAGE>=65.0)!(ASY2>=14.0))*1.0)); if min( VEDB,PRAG,DSQ,
DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,CNQ,
CNT,BEG11,BEG10,BEG7,LNG4,RED13,RED4,SS1,MAN1,PCMAN1,FDMAN1,
SDMAN1,FAP1,FDFAP1,ASY16,ASY2,ASY1) <0 then negative end;

procedure c5028s858; begin ASY1:=(QUITD-HIRED)*ord(WRKHRS>=960.0)
*1.0; ASY16:=NN(MIN(QUITD,BIRTHD+70.0)-HIRED)*ord(WRKHRS>=960.0)*
1.0; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1);
VCT1:=VOPT(ord(ASY16>=8.0)*1.0); SDMAN1:=HIRED; FDMAN1:=MIN(
QUITD,BIRTHD+70.0); VR1MAN1:=ord(13500.0>WAGE(SURVEYD))*0.0367+
ord(WAGE(SURVEYD)>=13500.0)*0.0567; PCMAN1:=VR1MAN1; MAN1:=SUMI(
PCMAN1,7.0,0.0,SDMAN1,FDMAN1); SDMAN2:=HIRED; FDMAN2:=MIN(QUITD,
BIRTHD+70.0); VR1MAN2:=ord(13500.0>WAGE(SURVEYD))*0.0425+ord(
WAGE(SURVEYD)>=13500.0)*0.0625; PCMAN2:=VR1MAN2; MAN2:=SUMI(
PCMAN2,7.0,0.0,SDMAN2,FDMAN2); SDMAN3:=HIRED; FDMAN3:=MIN(QUITD,
BIRTHD+70.0); VR1MAN3:=ord(13500.0>WAGE(SURVEYD))*0.03+ord(WAGE(
SURVEYD)>=13500.0)*0.05; PCMAN3:=VR1MAN3; MAN3:=SUMI(PCMAN3,7.0,
0.0,SDMAN3,FDMAN3); SDVOL1:=HIRED; FDVOL1:=MIN(QUITD,BIRTHD+70.0)
;PCVOL1:=MAX(0.0,MIN(0.05*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/
WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCTE1:=
HIRED; FDCTE1:=MIN(QUITD,BIRTHD+70.0); PCCTE1:=CRPROF1; CTE1:=
SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*ord(WRKHRS>=960.0)*1.0*VCT1;
RED13:=JSRED; RAS1:=(AGE>=50.0)&(ASY1>=25.0)!(AGE>=60.0)&(ASY1>=
5.0); RAS10:=ASY1>=10.0; BEG7:=MAX(BIRTHD+60.0,QUITD); CNT:=MAX(
MAN1,MAN2,MAN3)+VOL1+CTE1; CNQ:=ord(AGE>=60.0)*CNT; NR1:=0.02*
FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NR2:=40.0*ASY1; NR2Q:=ord(RAS1)*
NR2; NR3:=0.75*FAP1; NR3Q:=ord(RAS1)*NR3; NRT:=MIN(MAX(NR1,NR2),
NR3); NRQ:=MIN(MAX(NR1Q,NR2Q),NR3Q); LRQ:=AI(AGE,60.0,65.0)*NRQ;
MRAGE:=70.0; ERQ:=0.0; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q; DR1:=MAX(NRT,4800.0); DR1Q:=ord(RAS10)*DR1; DRT:=
DR1; DRQ:=DR1Q; DS1:=NRT*RED13*0.5; DS1Q:=ord(RAS10)*DS1; DST:=
DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord(ASY1>=8.0)*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,CNQ,CNT,
BEG7,RED13,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,FDVOL1,SDVOL1,
MAN3,PCMAN3,VR1MAN3,FDMAN3,SDMAN3,MAN2,PCMAN2,VR1MAN2,FDMAN2,
SDMAN2,MAN1,PCMAN1,VR1MAN1,FDMAN1,SDMAN1,VCT1,FAP1, FDFAP1,ASY16,
ASY1) <0 then negative end;

procedure c5029s985; begin ASY1:=(QUITD-HIRED)*1.0; PSY10:=
BIRTHD+60.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-3.0),FDFAP1)/12.0; FDFAP10:=MIN(QUITD,BIRTHD+60.0);
SDFAP10:=MAX(HIRED,FDFAP10-3.0); FAP10:=ord(FDFAP10>SDFAP10)*AVG(
WAGE,SDFAP10,FDFAP10)/12.0; SDMAN7:=HIRED; FDMAN7:=QUITD;
PCMAN7:=0.08; MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SDVOL1:=
HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.2*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); SDVOL2:=HIRED; FDVOL2:=QUITD; PCVOL2:=MAX(0.0,
MIN(VOL2NAR*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,FDVOL2); SS10:=SS(5.0,BENIFITD)/
12.0; RED4:=NN(1.0-0.06*o(60.0,AGE)); RED5:=NN(1.0-(0.03*o(55.0,
AGE)+0.06*a(AGE,60.0,55.0))); RED6:=NN(1.0-0.03*o(60.0,AGE));
RED10:=OTHERB; RED13:=JSRED; RED14:=COSTRED; RAS1:=(AGE>=60.0)&(
ASY1>=5.0); RAS4:=(AGE>=55.0)&(ASY1>=5.0); RAS5:=(AGE>=50.0)&(
ASY1>=30.0); RAS6:=(AGE>=55.0)&(ASY1>=30.0); RAS10:=ASY1>=5.0;
ROT4:=QAPPROVL; ROT7:=^QWDMAN; LNG10:=BIRTHD+60.0; BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+60.0); BEG11:=MAX(BIRTHD+60.0,QUITD); CNT:=
VOL1+VOL2; CNQ:=CNT; NR1:=0.02*MAX(FAP1,500.0)*ASY1; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=999.0;
ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR1*RED5; ER2Q:=ord(
RAS5)*ER2; ER3:=NR1*RED6; ER3Q:=ord(RAS6&ROT4)*ER3; ERT:=MAX(ER1,
ER2,ER3); ERQ:=MAX(ER1Q,ER2Q,ER3Q)*12.0; VD1:=ER1; VD1Q:=ord(
ROT7)*AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=NN(0.5*
FAP1-SS10-RED10); DR1Q:=ord(RAS10)*AA(QUITD,LNG10)*DR1; DR2:=
0.02*PSY10*FAP10; DR2Q:=ord(RAS10)*AA(BEG11,0.0)*DR2; DR3:=DR1;
DR3Q:=ord(RAS10)*AA(BEG11,0.0)*DR3; DRT:=MIN(DR1+DR2,DR1+DR3);
DRQ:=MIN(DR1Q+DR2Q,DR1Q+DR3Q)*12.0; DS1:=0.5*ER1*RED13*RED14;
DS1Q:=ord(RAS4)*DS1; DS2:=0.5*ER2*RED13*RED14; DS2Q:=ord(RAS5)*
DS2; DS3:=0.5*ER3*RED13*RED14; DS3Q:=ord(RAS6&ROT4)*DS3; DST:=
MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q)*12.0; PRAG:=0.03;
VEDB:=VOPT(ord(ASY1>=5.0)*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,
DS3,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER3Q,ER3,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,CNQ,CNT,BEG11,BEG7,LNG10,RED14,RED13,RED10,RED6,
RED5,RED4,SS10,VOL2,PCVOL2,FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,
SDVOL1,MAN7,PCMAN7,FDMAN7, SDMAN7,FAP10,SDFAP10,FDFAP10,FAP1,
FDFAP1,PSY10,ASY1) <0 then negative end;

procedure c5030s696; begin ASY1:=NN(MIN(QUITD,BIRTHD+65.0,1981.5)
-MAX(HIRED,BIRTHD+21.0))*ord(WRKHRS>=1000.0)*1.0; ASY2:=NN(MIN(
QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+23.0,1981.5))*ord(WRKHRS>=
1000.0)*1.0; ASY4:=(QUITD-HIRED)*ord(WRKHRS>=1000.0)*1.0; PSY4:=
BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,BIRTHD+65.0,1981.5); FAP1:=
ord(FDFAP1>HIRED)*WAGE(FDFAP1)/12.0; FDFAP2:=MIN(QUITD,BIRTHD+
65.0); SDFAP2:=MAX(HIRED,1981.5); FAP2:=ord(FDFAP2>SDFAP2)*AVG(
WAGE,SDFAP2,FDFAP2)/12.0; SDVOL1:=MAX(HIRED,MAX(BIRTHD+23.0,
HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(0.02*WAGE(SURVEYD),MIN(
0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDSS1:=MAX(HIRED,1981.5);
SS1:=ord(QUITD>SDSS1)*SSBASE(BENIFITD)/12.0; RED4:=AR(65.0-AGE);
RED13:=JSRED; RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY4>=12.0);
BEG7:=MAX(BIRTHD+62.0,QUITD); CNT:=VOL1; CNQ:=CNT; NR1:=50.0+
0.01*o(FAP1,750.0)*ASY1+0.01*o(FAP2,SS1)*ASY2; NR1Q:=ord(RAS1)*
NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=AI(AGE,65.0,999.0)*NRQ;
MRAGE:=999.0; ER1:=(50.0*ASY4/PSY4+0.01*o(FAP1,750.0)*ASY1+0.01*
o(FAP2,SS1)*ASY2)*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q*
12.0; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0;
DRQ:=0.0; DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(MAX(ord(ASY4>=3.0)*0.1,ord(
ASY4>=7.0)*0.5,ord((QUITAGE>=65.0)!(ASY4>=12.0))*1.0)); if min(
VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,CNQ,CNT,BEG7,RED13,RED4,SS1,
SDSS1,VOL1,PCVOL1,FDVOL1,SDVOL1,FAP2,SDFAP2,FDFAP2,FAP1,FDFAP1,
PSY4,ASY4,ASY2,ASY1) <0 then negative end;

procedure c5031s687; begin ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)
*NNMIN(1.0,WRKHRS/12.0); ASY16:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/
12.0); PSY10:=BIRTHD+65.0-HIRED; FDFAP1:=MIN(QUITD,BIRTHD+65.0);
SDFAP1:=MAX(HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,
SDFAP1,FDFAP1)/12.0; VMV1:=VOPT(1.0); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
SDVOL1:=HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.02*WAGE(SURVEYD),MIN(
0.06*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDVOL2:=HIRED; FDVOL2:=QUITD;
PCVOL2:=MAX(0.01*WAGE(SURVEYD),MIN(0.06*WAGE(SURVEYD),CRVOL*
WAGE(SURVEYD)))/WAGE(SURVEYD); VOL2:=SUMI(PCVOL2,2.0,0.0,SDVOL2,
FDVOL2); PCMVOL1:=0.5*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,0.0,SDVOL1,
FDVOL1)*VMV1; SS1:=SS(1.0,BENIFITD)/12.0; RED4:=NN(1.0-0.06*o(
65.0,AGE)); RED5:=NN(1.0-0.04*o(65.0,AGE)); RED6:=NN(1.0-0.03*o(
65.0,AGE)); RED7:=NN(1.0-0.02*o(65.0,AGE)); RED8:=NN(1.0-0.01*o(
65.0,AGE)); RAS1:=AGE>=65.0; RAS2:=(AGE>=65.0)&(ASY1>=15.0);
RAS4:=(AGE>=55.0)&(ASY1>=10.0); RAS5:=(AGE>=61.0)&(ASY1>=10.0);
RAS6:=(AGE>=62.0)&(ASY1>=10.0); RAS10:=(AGE>=63.0)&(ASY1>=10.0);
RAS11:=(AGE>=64.0)&(ASY1>=10.0); RAS12:=ASY1>=10.0; BEG7:=
ANYTIME(BIRTHD+55.0,BIRTHD+65.0); CNT:=VOL1+MVOL1+VOL2; CNQ:=ord(
(AGE>=65.0)!(AGE>=55.0)&(ASY16>=10.0))*CNT; NR1:=0.4*FAP1-0.7*
SS1; NR1Q:=ord(RAS2)*NR1; NR2:=11.0*ASY1; NR2Q:=ord(RAS1)*NR2;
NR3:=0.015*FAP1*ASY1-0.0125*SS1*ASY1; NR3Q:=ord(RAS1)*NR3; NRT:=
MAX(NR1,NR2,NR3); NRQ:=MAX(NR1Q,NR2Q,NR3Q)*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=MAX(NR2,NR3)*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=
MAX(NR2,NR3)*RED5; ER2Q:=ord(RAS5)*ER2; ER3:=MAX(NR2,NR3)*RED6;
ER3Q:=ord(RAS6)*ER3; ER4:=MAX(NR2,NR3)*RED7; ER4Q:=ord(RAS10)*
ER4; ER5:=MAX(NR2,NR3)*RED8; ER5Q:=ord(RAS11)*ER5; ERT:=MAX(ER1,
ER2,ER3,ER4,ER5); ERQ:=MAX(ER1Q,ER2Q,ER3Q,ER4Q,ER5Q)*12.0; VD1:=
ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*12.0; DR1:=11.0*
PSY10; DR1Q:=ord(RAS12)*DR1; DR2:=(0.015*FAP1-0.0125*SS1)*PSY10;
DR2Q:=ord(RAS12)*DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q)*
12.0; DS1:=0.5*MAX(NR2,NR3); DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=
DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY1>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,
DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER5Q,ER5,ER4Q,ER4,ER3Q,ER3,ER2Q,
ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,CNQ,
CNT,BEG7,RED8,RED7,RED6,RED5,RED4,SS1,MVOL1,PCMVOL1,VOL2,PCVOL2,
FDVOL2,SDVOL2,VOL1,PCVOL1,FDVOL1,SDVOL1,MAN7,PCMAN7,FDMAN7,
SDMAN7,VMV1,FAP1,SDFAP1,FDFAP1,PSY10,ASY16,ASY1) <0 then
negative end;

procedure c5032s592; begin ASY1:=NNMIN(25.0,MIN(QUITD,BIRTHD+
60.0)-HIRED)*ord(WRKHRS>=1000.0)*1.0; ASY16:=(QUITD-HIRED)*ord(
WRKHRS>=1000.0)*1.0; FDFAP1:=MIN(QUITD,BIRTHD+60.0); SDFAP1:=MAX(
HIRED,FDFAP1-5.0); FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,
FDFAP1)/12.0; VCT1:=VOPT(MAX(ord(ASY16>=5.0)*0.5,ord(ASY16>=6.0)*
0.6,ord((QUITAGE>=55.0)!(ASY16>=10.0))*1.0)); VCT2:=VOPT(MAX(ord(
ASY16>=5.0)*0.5,ord(ASY16>=6.0)*0.6,ord((QUITAGE>=55.0)!(ASY16>=
10.0))*1.0)); SDVOL1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0));
FDVOL1:=QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(
SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,
FDVOL1); SDCTE1:=MAX(HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDCTE1:=
QUITD; PCCTE1:=CRPROF1; CTE1:=SUMI(PCCTE1,7.0,0.0,SDCTE1,FDCTE1)*
ord(WRKHRS>=1000.0)*1.0*VCT1; SDCTE2:=MAX(HIRED,MAX(BIRTHD+25.0,
HIRED+1.0)); FDCTE2:=QUITD; PCCTE2:=CRFORT1; CTE2:=SUMI(PCCTE2,
7.0,0.0,SDCTE2,FDCTE2)*ord(WRKHRS>=1000.0)*1.0*VCT2; SS1:=SS(1.0,
BENIFITD)/12.0; RED4:=AR(NRD-BENIFITD); RED13:=JSRED; RAS1:=AGE>=
60.0; RAS4:=AGE>=55.0; ROT10:=QSSDABLE; LNG1:=BIRTHD+65.0; BGN2:=
MAX(BIRTHD+65.0,QUITD); BEG7:=MAX(BIRTHD+55.0,QUITD); BEG10:=MAX(
NRD,QUITD); CNT:=VOL1+CTE1+CTE2; CNQ:=ord(AGE>=60.0)*CNT; NR1:=
NN(0.016*FAP1*u(ASY1,25.0)-ord(AGE>65.0)*0.5*SS1); NR1Q:=ord(
RAS1)*AA(QUITD,LNG1)*NR1; NR2:=NN(NR1-0.5*SS1); NR2Q:=ord(RAS1)*
AA(BGN2,0.0)*NR2; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ; MRAGE:=
999.0; ER1:=NR1; ER1Q:=ord(RAS4)*AA(QUITD,LNG1)*ER1; ER2:=NR2;
ER2Q:=ord(RAS4)*AA(BGN2,0.0)*ER2; ERT:=(ER1+ER2)*RED4; ERQ:=(ER1+
ER2)*RED4*12.0; VD1:=ER1; VD1Q:=AA(BEG7,LNG1)*VD1; VD2:=ER2;
VD2Q:=AA(BGN2,0.0)*VD2; VDT:=(VD1+VD2)*RED4; VDQ:=(VD1+VD2)*RED4*
12.0; DR1:=NR1; DR1Q:=ord(RAS1&ROT10)*AA(BEG10,LNG1)*DR1; DR2:=
NR2; DR2Q:=ord(RAS1&ROT10)*AA(BGN2,0.0)*DR2; DRT:=(DR1+DR2)*RED4;
DRQ:=(DR1+DR2)*RED4*12.0; DS1:=ER1; DS1Q:=ord(RAS4)*AA(QUITD,
LNG1)*DS1; DS2:=ER2; DS2Q:=ord(RAS4)*AA(BGN2,0.0)*DS2; DST:=(DS1+
DS2)*RED4*RED13*0.5; DSQ:=(DS1+DS2)*RED4*RED13*0.5*12.0; PRAG:=
0.0; VEDB:=VOPT(MAX(ord(ASY1>=5.0)*0.25,ord(ASY1>=10.0)*0.5,ord((
QUITAGE>=55.0)!(ASY1>=15.0))*1.0)); if min( VEDB,PRAG,DSQ,DST,
DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,
VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,
NR1Q,NR1,CNQ,CNT,BEG10,BEG7,BGN2,LNG1,RED13,RED4,SS1,CTE2,
PCCTE2,FDCTE2,SDCTE2,CTE1,PCCTE1,FDCTE1,SDCTE1,VOL1,PCVOL1,
FDVOL1,SDVOL1,VCT2,VCT1,FAP1,SDFAP1, FDFAP1,ASY16,ASY1) <0 then
negative end;

procedure c5033s971; begin ASY1:=NN(MIN(QUITD,BIRTHD+45.0)-HIRED)
*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,BIRTHD+45.0))*
1.0; ASY3:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*1.0; FDFAP1:=MIN(
QUITD,BIRTHD+45.0); FAP1:=ord(FDFAP1>HIRED)*AVG(WAGE,HIRED,
FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+65.0); FAP2:=ord(FDFAP2>HIRED)*
AVG(WAGE,HIRED,FDFAP2); FDFAP3:=MIN(QUITD,BIRTHD+65.0); FAP3:=
ord(FDFAP3>HIRED)*SUM(WAGE,HIRED,FDFAP3); SDMAN7:=HIRED; FDMAN7:=
QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,SDMAN7,FDMAN7);
SDVOL1:=HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.01*WAGE(SURVEYD),MIN(
0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SS1:=SUM(SSBASE,HIRED,QUITD);
RED4:=1.0-(0.03*a(AGE,55.0,50.0)+0.045*a(AGE,60.0,55.0)+0.015*a(
AGE,65.0,60.0)); RED7:=AR(65.0-AGE); RED13:=JSRED; RAS1:=AGE>=
65.0; RAS4:=(AGE>=55.0)&(ASY3>=10.0)!(AGE>=50.0)&(ASY3>=20.0);
RAS10:=(ASY3>=15.0)!(AGE>=55.0)&(ASY3>=10.0); RAS13:=(AGE>=65.0)!
(ASY3>=15.0)!(AGE>=55.0)&(ASY3>=10.0)!(AGE>=50.0)&(ASY3>=20.0);
BEG7:=MAX(ERD,QUITD); CNT:=VOL1; CNQ:=CNT; NR1:=0.0175*FAP1*ASY1+
0.0125*FAP2*ASY2+0.01*o(FAP3,SS1); NR1Q:=ord(RAS1)*NR1; NRT:=NR1;
NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)
*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=VD1; VDQ:=VD1Q; DR1:=NRT; DR1Q:=ord(RAS10)*DR1; DR2:=ERT;
DR2Q:=DR2; DRT:=MAX(DR1,DR2); DRQ:=MAX(DR1Q,DR2Q); DS1:=0.5*ERT*
RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0;
VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY3>=10.0))*1.0); if min( VEDB,
PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,CNQ,CNT,BEG7,
RED13,RED7,RED4,SS1,VOL1,PCVOL1,FDVOL1,SDVOL1,MAN7,PCMAN7,
FDMAN7,SDMAN7,FAP3,FDFAP3,FAP2,FDFAP2,FAP1,FDFAP1,ASY3,ASY2,
ASY1) <0 then negative end;

procedure c5034s898; begin ASY1:=(MIN(QUITD,MAX(BIRTHD+70.0,
HIRED+45.0))-HIRED)*NNMIN(1.0,WRKHRS/960.0); FDFAP1:=QUITD;
FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-5.0),FDFAP1)/12.0; SDMAN1:=HIRED;
FDMAN1:=QUITD; PCMAN1:=0.03; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,
FDMAN1); RED4:=1.0-(0.05*a(AGE,60.0,50.0)+0.012*a(AGE,65.0,60.0))
;RED13:=JSRED; RAS1:=(AGE>=65.0)&(ASY1>=5.0); RAS4:=(AGE>=50.0)&(
ASY1>=15.0); RAS10:=ASY1>=5.0; RAS13:=ASY1>=15.0; BEG7:=ANYTIME(
BIRTHD+50.0,BIRTHD+65.0); CNT:=MAN1; CNQ:=CNT; NR1:=0.011*FAP1*
ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q*12.0; LRQ:=NRQ;
MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=
ER1Q*12.0; VD1:=ER1; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q*
12.0; DR1:=125.0+5.0*o(ASY1,5.0); DR1Q:=ord(RAS10)*DR1; DRT:=DR1;
DRQ:=DR1Q*12.0; DS1:=ERT*RED13; DS1Q:=ord(RAS13)*DS1; DST:=DS1;
DSQ:=DS1Q*12.0; PRAG:=0.0; VEDB:=VOPT(ord((ASY1>=10.0)!(QUITAGE>=
65.0)&(ASY1>=5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,CNQ,CNT,BEG7,RED13,RED4,MAN1,PCMAN1,FDMAN1,SDMAN1,
FAP1,FDFAP1,ASY1) <0 then negative end;

procedure c5035s730; begin ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-MAX(
HIRED+1.0,BIRTHD+25.0))*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0)-
HIRED)*1.0; PSY1:=NN(BIRTHD+65.0-MAX(HIRED+1.0,BIRTHD+25.0));
FDFAP1:=MIN(QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-5.0);
FAP1:=ord(FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); SDVOL1:=MAX(
HIRED,MAX(BIRTHD+25.0,HIRED+1.0)); FDVOL1:=QUITD; PCVOL1:=MAX(
0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SS1:=SS(1.0,MAX(
BENIFITD,BIRTHD+65.0)); SS2:=SS(1.0,MAX(BENIFITD,BIRTHD+65.0));
RED4:=1.0-(0.0333*a(AGE,60.0,55.0)+0.0667*a(AGE,65.0,60.0));
RED5:=NN(1.0-0.03*o(65.0,AGE)); RED7:=AR(65.0-AGE); RED13:=JSRED;
RAS1:=AGE>=65.0; RAS4:=(AGE>=55.0)&(ASY1>=10.0); BEG7:=ANYTIME(
BIRTHD+55.0,BIRTHD+65.0); BEG10:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0)
;BEG11:=MAX(BIRTHD+65.0,QUITD); CNT:=VOL1; CNQ:=CNT; NR1:=(0.5*
FAP1-0.8*SS1)*u(ASY1,35.0)/PSY1; NR1Q:=ord(RAS1)*NR1; NR2:=(0.5*
FAP1-0.8*SS1)*u(ASY1,35.0)/35.0; NR2Q:=ord(RAS1)*NR2; NR3:=4.0*u(
ASY1,25.0); NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR3,MIN(NR1,NR2));
NRQ:=MAX(NR3Q,MIN(NR1Q,NR2Q)); LRQ:=NRQ; MRAGE:=999.0; ER1:=(0.5*
FAP1-0.8*SS1*RED4)*u(ASY1,35.0)/PSY1*RED5; ER1Q:=ord(RAS4)*ER1;
ER2:=(0.5*FAP1-0.8*SS1*RED4)*u(ASY1,35.0)/35.0*RED5; ER2Q:=ord(
RAS4)*ER2; ERT:=MIN(ER1,ER2); ERQ:=MIN(ER1Q,ER2Q); VD1:=(0.5*
FAP1-0.8*SS2*RED4)*u(ASY1,35.0)/PSY1*RED7; VD1Q:=AA(BEG7,0.0)*
VD1; VD2:=(0.5*FAP1-0.8*SS2*RED4)*u(ASY1,35.0)/35.0*RED7; VD2Q:=
AA(BEG7,0.0)*VD2; VDT:=MIN(VD1,VD2); VDQ:=MIN(VD1Q,VD2Q); DR1:=
NRT; DR1Q:=ord(RAS1)*AA(BEG11,0.0)*DR1; DR2:=(0.5*FAP1-0.8*SS2*
RED4)*u(ASY1,35.0)/PSY1*RED5; DR2Q:=ord(RAS4)*AA(BEG10,0.0)*DR2;
DR3:=(0.5*FAP1-0.8*SS2*RED4)*u(ASY1,35.0)/35.0*RED5; DR3Q:=ord(
RAS4)*AA(BEG10,0.0)*DR3; DRT:=MAX(DR1,DR2,DR3); DRQ:=MAX(DR1Q,
DR2Q,DR3Q); DS1:=ERT*RED13*0.5; DS1Q:=ord(RAS4)*DS1; DST:=DS1;
DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=65.0)!(ASY2>=10.0)
)*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR3Q,DR3,DR2Q,
DR2,DR1Q,DR1,VDQ,VDT,VD2Q,VD2,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,
ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,CNQ,CNT,BEG11,
BEG10,BEG7,RED13,RED7,RED5,RED4,SS2,SS1,VOL1,PCVOL1,FDVOL1,
SDVOL1,FAP1,SDFAP1,FDFAP1,PSY1,ASY2,ASY1) <0 then negative end;

procedure c5036s1006; begin ASY1:=MIN(45.0,QUITD-HIRED)*1.0;
ASY16:=MIN(45.0,QUITD-HIRED)*1.0; PSY10:=MIN(37.0,BIRTHD+60.0-
HIRED); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),
FDFAP1); VMM1:=VOPT(ord(ASY16>=5.0)*1.0); SDMAN1:=HIRED; FDMAN1:=
QUITD; PCMAN1:=0.085; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,FDMAN1);
SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.085; MAN7:=SUMI(PCMAN7,
8.0,0.0,SDMAN7,FDMAN7); PCMMAN1:=PCMAN1; MMAN1:=SUMI(PCMMAN1,7.0,
0.0,SDMAN1,FDMAN1)*VMM1; RED4:=1.0-(0.05*a(AGE,60.0,58.0)+0.03*a(
AGE,65.0,60.0)); RED5:=NN(1.0-0.05*o(30.0,ASY1)); RAS1:=(ASY1>=
30.0)!(AGE>=65.0)&(ASY1>=5.0); RAS4:=(AGE>=60.0)&(ASY1>=5.0)!(
AGE>=55.0)&(ASY1>=25.0); RAS10:=ASY1>=5.0; RAS13:=ASY1>=10.0;
RAS14:=ASY1>=1.0; BEG13:=MAX(BIRTHD+50.0,QUITD); BEG14:=MAX(
BIRTHD+62.0,QUITD); CNT:=MAN1+MMAN1; CNQ:=ord((ASY16>=30.0)!(
AGE>=55.0)&(ASY16>=25.0)!(AGE>=60.0)&(ASY16>=5.0))*CNT; NR1:=
0.02*ASY1*FAP1; NR1Q:=ord(RAS1)*NR1; ANCONT:=ANNPAY(CNT,BENIFITD)
;NRT:=MAX(NR1,ANCONT); NRQ:=MAX(NR1Q,ANCONT); LRQ:=NRQ; MRAGE:=
999.0; ER1:=NR1*RED4; ER1Q:=ord(RAS4)*ER1; ER2:=NR1*RED5; ER2Q:=
ord(RAS4)*ER2; ERT:=MAX(ER1,ER2,ANCONT); ERQ:=MAX(ER1Q,ER2Q,
ANCONT); VD1:=ERT; VD1Q:=VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=0.02*
FAP1*PSY10; DR1Q:=ord(RAS10)*DR1; DR2:=0.3*FAP1; DR2Q:=ord(RAS10)
*DR2; DRT:=MAX(DR1,DR2,ANCONT); DRQ:=MAX(DR1Q,DR2Q,ANCONT); DS1:=
MAX(1272.0,0.25*FAP1); DS1Q:=ord(RAS13)*AA(BEG13,0.0)*DS1; DS2:=
MAX(1152.0,0.25*FAP1); DS2Q:=ord(RAS14)*AA(BEG14,0.0)*DS2; DST:=
MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=ord(ACPIG>=0.03)*MIN(
0.95*ACPIG,0.03); VEDB:=VOPT(ord(ASY1>=5.0)*1.0); if min( VEDB,
PRAG,DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,ANCONT,
NR1Q,NR1,CNQ,CNT,BEG14,BEG13,RED5,RED4,MMAN1,PCMMAN1,MAN7,
PCMAN7,FDMAN7,SDMAN7,MAN1,PCMAN1,FDMAN1,SDMAN1,VMM1,FAP1,FDFAP1,
PSY10,ASY16,ASY1) <0 then negative end;

procedure c5037s939; begin ASY1:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/
6.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-4.0),FDFAP1)
;VCO1:=VOPT(MAX(ord(ASY1>=11.0)*0.1,ord(ASY1>=15.0)*0.5,ord((
ASY1>=20.0)!(QUITAGE>=65.0)&(ASY1>=15.0))*1.0)); SDMAN1:=HIRED;
FDMAN1:=QUITD; PCMAN1:=0.085; MAN1:=SUMI(PCMAN1,8.0,0.0,SDMAN1,
FDMAN1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.085; MAN7:=SUMI(
PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SDCOE1:=HIRED; FDCOE1:=QUITD;
PCCOE1:=0.085; COE1:=SUMI(PCCOE1,8.0,0.0,SDCOE1,FDCOE1)*NNMIN(
1.0,WRKHRS/6.0)*VCO1; RED4:=NN(1.0-0.06*o(60.0,AGE)); RED10:=
OTHERB; RAS1:=(AGE>=60.0)&(ASY1>=20.0); RAS2:=(AGE>=65.0)&(ASY1>=
15.0); RAS4:=(AGE>=55.0)&(ASY1>=20.0); RAS13:=ASY1>=20.0; ROT2:=(
PARTD<1953.0)&(1953.0<=QUITD); ROT10:=QJRDABLE; BEG7:=ANYTIME(
BIRTHD+55.0,0.0); CNT:=MAN1+COE1; CNQ:=ord(AGE>=55.0)*CNT; NR1:=
0.0167*FAP1*u(ASY1,10.0)+0.019*FAP1*b(ASY1,10.0,20.0)+0.021*
FAP1*b(ASY1,20.0,30.0)+0.023*FAP1*o(ASY1,30.0); NR1Q:=ord(RAS1)*
NR1; NR2:=0.75*FAP1; NR2Q:=ord(RAS1)*NR2; NR3:=0.015*FAP1*u(ASY1,
20.0)+150.0; NR3Q:=ord(RAS1&ROT2)*NR3; NR4:=(0.01*FAP1+25.0)*
ASY1; NR4Q:=ord(RAS2)*NR4; ANCONT:=ANNPAY(CNT,BENIFITD); NRT:=
MAX(MIN(NR1,NR2),NR3,NR4,ANCONT); NRQ:=MAX(MIN(NR1Q,NR2Q),NR3Q,
NR4Q,ANCONT); LRQ:=NRQ; MRAGE:=999.0; ER1:=NR1*RED4; ER1Q:=ord(
RAS4)*ER1; ER2:=NR2*RED4; ER2Q:=ord(RAS4)*ER2; ERT:=MAX(ANCONT,
MIN(ER1,ER2)); ERQ:=MAX(ANCONT,MIN(ER1Q,ER2Q)); VD1:=ERT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=MAX(VD1,ANCONT); VDQ:=MAX(VD1Q,ANCONT);
DR1:=0.75*FAP1-RED10; DR1Q:=ord(ROT10)*DR1; DRT:=DR1; DRQ:=DR1Q;
DS1:=0.5*ERT; DS1Q:=ord(RAS13)*DS1; DST:=MIN(DS1,4800.0); DSQ:=
MIN(DS1Q,4800.0); PRAG:=0.03; VEDB:=VOPT(ord((ASY1>=20.0)!(
QUITAGE>=65.0)&(ASY1>=15.0))*1.0); if min( VEDB,PRAG,DSQ,DST,
DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER2Q,ER2,
ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,ANCONT,NR4Q,NR4,NR3Q,NR3,NR2Q,NR2,
NR1Q,NR1,CNQ,CNT,BEG7,RED10,RED4,COE1,PCCOE1,FDCOE1,SDCOE1,MAN7,
PCMAN7,FDMAN7,SDMAN7,MAN1,PCMAN1,FDMAN1,SDMAN1,VCO1,FAP1,FDFAP1,
ASY1) <0 then negative end;

procedure c5038s857; begin ASY1:=(QUITD-HIRED)*1.0; FDFAP1:=
QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=0.08; MAN7:=SUMI(PCMAN7,8.0,0.0,
SDMAN7,FDMAN7); SDVOL1:=HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.0,
MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); RED4:=AR(60.0-AGE); RAS1:=(
AGE>=60.0)!(AGE>=55.0)&(ASY1>=20.0); RAS4:=ASY1>=20.0; RAS10:=
ASY1>=5.0; RAS13:=(AGE>=60.0)!(ASY1>=10.0); BEG7:=MAX(BIRTHD+
60.0,QUITD); CNT:=VOL1; CNQ:=CNT; NR1:=ASY1/60.0*FAP1; NR1Q:=ord(
RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*
RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=NRT; VD1Q:=
AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=0.25*FAP1; DR1Q:=ord(
RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=NRT*RED4; DS1Q:=ord(RAS13)*
DS1; DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=
60.0)!(ASY1>=8.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,
DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,
NRT,NR1Q,NR1,CNQ,CNT,BEG7,RED4,VOL1,PCVOL1,FDVOL1,SDVOL1,MAN7,
PCMAN7,FDMAN7,SDMAN7,FAP1,FDFAP1,ASY1) <0 then negative end;

procedure c5039s942; begin ASY1:=(QUITD-HIRED)*NNMIN(1.0,WRKHRS/
1376.0); FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-4.0),
FDFAP1); VCO1:=VOPT(ord((ASY1>=8.0)!(QUITAGE>=62.0)&(ASY1>=5.0))*
1.0); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.065; MAN7:=SUMI(
PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SDMAN8:=HIRED; FDMAN8:=QUITD;
PCMAN8:=0.015; MAN8:=SUMI(PCMAN8,8.0,0.0,SDMAN8,FDMAN8); SDCOE1:=
HIRED; FDCOE1:=QUITD; PCCOE1:=0.091; COE1:=SUMI(PCCOE1,8.0,0.0,
SDCOE1,FDCOE1)*NNMIN(1.0,WRKHRS/1376.0)*VCO1; RED4:=NN(1.0-0.06*
o(60.0,AGE)); RAS1:=(ASY1>=35.0)!(AGE>=60.0)&(ASY1>=8.0)!(AGE>=
62.0)&(ASY1>=5.0); RAS2:=(AGE>=55.0)&(ASY1>=8.0); RAS4:=(AGE>=
55.0)&(ASY1>=8.0); RAS13:=ASY1>=1.0; ROT2:=QAPPROVL; BEG7:=
ANYTIME(BIRTHD+55.0,0.0); BEG13:=MAX(BIRTHD+50.0,QUITD); CNT:=
MAN7+COE1; CNQ:=CNT; NR1:=(0.0167*u(ASY1,10.0)+0.019*b(ASY1,10.0,
20.0)+0.021*b(ASY1,20.0,30.0)+0.023*o(ASY1,30.0))*FAP1; NR1Q:=
ord(RAS1)*NR1; NR2:=(96.0+12.0*b(FAP1,3500.0,6500.0)/1000.0)*u(
ASY1,30.0); NR2Q:=ord(RAS1)*NR2; NR3:=MAX(NR1,NR2); NR3Q:=ord(
RAS2&ROT2)*NR3; ANCONT:=ANNPAY(CNT,BENIFITD); NRT:=MAX(NR1,NR2,
NR3,ANCONT); NRQ:=MAX(NR1Q,NR2Q,NR3Q,ANCONT); LRQ:=NRQ; MRAGE:=
999.0; ER1:=MAX(NR1,NR2)*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=MAX(ER1,
ANCONT); ERQ:=MAX(ER1Q,ANCONT); VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1;
VDT:=MAX(VD1,ANCONT); VDQ:=MAX(VD1Q,ANCONT); DRQ:=0.0; DS1:=0.5*
NRT; DS1Q:=ord(RAS1)*AA(BEG13,0.0)*DS1; DS2:=0.5*ERT; DS2Q:=ord(
RAS4)*AA(BEG13,0.0)*DS2; DS3:=0.3*FAP1; DS3Q:=ord(RAS13)*AA(
BEG13,0.0)*DS3; DST:=MAX(DS1,DS2,DS3); DSQ:=MAX(DS1Q,DS2Q,DS3Q);
PRAG:=0.03; VEDB:=VOPT(ord((ASY1>=8.0)!(QUITAGE>=62.0)&(ASY1>=
5.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS3Q,DS3,DS2Q,DS2,DS1Q,DS1,
DRQ,VDQ,VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,ANCONT,
NR3Q,NR3,NR2Q,NR2,NR1Q,NR1,CNQ,CNT,BEG13,BEG7,RED4,COE1,PCCOE1,
FDCOE1,SDCOE1,MAN8,PCMAN8,FDMAN8,SDMAN8,MAN7,PCMAN7,FDMAN7,
SDMAN7,VCO1,FAP1,FDFAP1,ASY1) <0 then negative end;

procedure c5040s755; begin ASY1:=(QUITD-HIRED)*1.0; FDFAP1:=
QUITD; FAP1:=AVG(WAGE,MAX(HIRED,FDFAP1-3.0),FDFAP1); SDMAN1:=
HIRED; FDMAN1:=QUITD; PCMAN1:=0.07; MAN1:=SUMI(PCMAN1,8.0,0.0,
SDMAN1,FDMAN1); SDVOL1:=HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.0,
MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=
SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); RED4:=AR(NRD-BENIFITD);
RED13:=JSRED; RAS1:=(AGE>=60.0)!(AGE>=55.0)&(ASY1>=20.0); RAS4:=
ASY1>=20.0; RAS10:=ASY1>=5.0; RAS13:=AGE>=60.0; RAS14:=ASY1>=
10.0; BEG7:=MAX(NRD,QUITD); CNT:=MAN1+VOL1; CNQ:=CNT; NR1:=1.0/
80.0*FAP1*ASY1; NR1Q:=ord(RAS1)*NR1; NRT:=NR1; NRQ:=NR1Q; LRQ:=
NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*ER1; ERT:=ER1;
ERQ:=ER1Q; VD1:=NRT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q;
DR1:=0.25*FAP1; DR1Q:=ord(RAS10)*DR1; DRT:=DR1; DRQ:=DR1Q; DS1:=
NRT*RED13; DS1Q:=ord(RAS13)*DS1; DS2:=ERT*RED13; DS2Q:=ord(RAS14)
*DS2; DST:=MAX(DS1,DS2); DSQ:=MAX(DS1Q,DS2Q); PRAG:=0.0; VEDB:=
VOPT(ord((QUITAGE>=60.0)!(ASY1>=8.0))*1.0); if min( VEDB,PRAG,
DSQ,DST,DS2Q,DS2,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,VD1,ERQ,
ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,CNQ,CNT,BEG7,RED13,RED4,
VOL1,PCVOL1,FDVOL1,SDVOL1,MAN1,PCMAN1,FDMAN1,SDMAN1,FAP1,FDFAP1,
ASY1) <0 then negative end;

procedure c5041s911; begin ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)
*1.0; ASY2:=NN(MIN(QUITD,BIRTHD+65.0,1981.0)-HIRED)*1.0; ASY3:=
NN(MIN(QUITD,BIRTHD+65.0)-MAX(HIRED,1981.0))*1.0; FDFAP1:=MIN(
QUITD,BIRTHD+65.0,1981.0); SDFAP1:=MAX(HIRED,1976.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FDFAP2:=MIN(QUITD,BIRTHD+
65.0); SDFAP2:=MAX(HIRED,1981.0); FAP2:=ord(FDFAP2>SDFAP2)*AVG(
WAGE,SDFAP2,FDFAP2); VMV1:=VOPT(1.0); SDMAN7:=HIRED; FDMAN7:=
QUITD; VR1MAN7:=ord(WAGE(SURVEYD)>=7800.0)*0.01; PCMAN7:=VR1MAN7;
MAN7:=SUMI(PCMAN7,7.0,0.0,SDMAN7,FDMAN7); SDVOL1:=HIRED; FDVOL1:=
QUITD; PCVOL1:=MAX(VOL1NAR*WAGE(SURVEYD),MIN(0.1*WAGE(SURVEYD),
CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,
SDVOL1,FDVOL1); PCMVOL1:=0.75*PCVOL1; MVOL1:=SUMI(PCMVOL1,7.0,
0.0,SDVOL1,FDVOL1)*VMV1; RED4:=NN(1.0-0.025*o(85.0,AGE+ASY1));
RED5:=NN(1.0-0.025*o(65.0,AGE)); RED7:=AR(NRD-BENIFITD); RED13:=
JSRED; RAS1:=(AGE>=65.0)!(AGE>=55.0)&(ASY1>=30.0)!(AGE>=60.0)&(
ASY1>=20.0)!(AGE>=62.0)&(ASY1>=10.0); RAS4:=AGE>=55.0; ROT10:=
QCODABLE; BEG7:=ANYTIME(BIRTHD+55.0,BIRTHD+65.0); BEG10:=MAX(
BIRTHD+65.0,QUITD); CNT:=VOL1+MVOL1; CNQ:=CNT; NR1:=0.01*u(FAP1,
7800.0)*ASY2+0.0165*o(FAP1,7800.0)*ASY2; NR1Q:=ord(RAS1)*NR1;
NR2:=(0.0125*u(FAP2,7800.0)+0.02*o(FAP2,7800.0))*ASY3; NR2Q:=ord(
RAS1)*NR2; NR3:=168.0*ASY1; NR3Q:=ord(RAS1)*NR3; NRT:=MAX(NR1+
NR2,NR3); NRQ:=MAX(NR1Q+NR2Q,NR3Q); LRQ:=NRQ; MRAGE:=68.0; ER1:=
NRT*MAX(RED4,RED5); ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q;
VD1:=NRT*RED7; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DR1:=
NRT; DR1Q:=ord(ROT10)*AA(BEG10,0.0)*DR1; DRT:=DR1; DRQ:=DR1Q;
DS1:=0.5*ERT*RED13; DS1Q:=ord(RAS4)*DS1; DST:=DS1; DSQ:=DS1Q;
PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=55.0)!(ASY1>=10.0))*1.0); if
min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,DRT,DR1Q,DR1,VDQ,VDT,VD1Q,
VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR3Q,NR3,NR2Q,NR2,NR1Q,
NR1,CNQ,CNT,BEG10,BEG7,RED13,RED7,RED5,RED4,MVOL1,PCMVOL1,VOL1,
PCVOL1,FDVOL1,SDVOL1,MAN7,PCMAN7,VR1MAN7,FDMAN7,SDMAN7,VMV1,
FAP2,SDFAP2,FDFAP2,FAP1,SDFAP1,FDFAP1,ASY3,ASY2, ASY1) <0 then
negative end;

procedure c5042s767; begin ASY1:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)
*1.0; ASY16:=NN(MIN(QUITD,BIRTHD+65.0)-HIRED)*1.0; FDFAP1:=MIN(
QUITD,BIRTHD+65.0); SDFAP1:=MAX(HIRED,FDFAP1-3.0); FAP1:=ord(
FDFAP1>SDFAP1)*AVG(WAGE,SDFAP1,FDFAP1); FAP13:=WAGE(QUITD);
VCO1:=VOPT(ord((QUITAGE>=55.0)&(ASY16>=20.0))*1.0); SDMAN7:=
HIRED; FDMAN7:=QUITD; PCMAN7:=MANNAR; MAN7:=SUMI(PCMAN7,99.0,0.0,
SDMAN7,FDMAN7); SDVOL1:=HIRED; FDVOL1:=QUITD; PCVOL1:=MAX(0.0,
MIN(0.02*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD)))/WAGE(SURVEYD);
VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); SDCOE1:=MAX(HIRED,
BIRTHD+25.0); FDCOE1:=QUITD; PCCOE1:=0.02; COE1:=SUMI(PCCOE1,8.0,
0.0,SDCOE1,FDCOE1)*1.0*VCO1; RED4:=1.0-(0.03*a(AGE,60.0,55.0)+
0.06*a(AGE,62.0,60.0)); RAS1:=(AGE>=62.0)&(ASY1>=25.0); RAS4:=(
AGE>=55.0)&(ASY1>=25.0); LNG13:=1.0; BEG7:=MAX(ERD,QUITD); CNT:=
VOL1+COE1; CNQ:=ord(AGE>=55.0)*CNT; NR1:=0.55*FAP1+0.017*FAP1*o(
ASY1,25.0); NR1Q:=ord(RAS1)*NR1; NR2:=0.6*u(FAP1,15300.0)+0.5*b(
FAP1,15300.0,27300.0)+0.4*o(FAP1,27300.0); NR2Q:=ord(RAS1)*NR2;
NRT:=MIN(NR1,NR2); NRQ:=MIN(NR1Q,NR2Q); LRQ:=NRQ; MRAGE:=65.0;
ER1:=MIN(NR1*RED4,NR2); ER1Q:=ord(RAS4)*ER1; ERT:=ER1; ERQ:=ER1Q;
VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=VD1; VDQ:=VD1Q; DRQ:=0.0;
DS1:=0.0833*FAP13*u(ASY1,36.0); DS1Q:=AA(QUITD,LNG13+QUITD)*DS1;
DST:=DS1; DSQ:=DS1Q; PRAG:=0.0; VEDB:=VOPT(ord((QUITAGE>=55.0)&(
ASY1>=20.0))*1.0); if min( VEDB,PRAG,DSQ,DST,DS1Q,DS1,DRQ,VDQ,
VDT,VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR2Q,NR2,NR1Q,
NR1,CNQ,CNT,BEG7,LNG13,RED4,COE1,PCCOE1,FDCOE1,SDCOE1,VOL1,
PCVOL1,FDVOL1,SDVOL1,MAN7,PCMAN7,FDMAN7,SDMAN7,VCO1,FAP13,FAP1,
SDFAP1,FDFAP1,ASY16,ASY1) <0 then negative end;

procedure c5043s1018; begin ASY1:=(QUITD-HIRED)*1.0; PSY10:=
BIRTHD+65.0-HIRED; FDFAP1:=QUITD; FAP1:=AVG(WAGE,MAX(HIRED,
FDFAP1-3.0),FDFAP1); SDMAN7:=HIRED; FDMAN7:=QUITD; PCMAN7:=0.05;
MAN7:=SUMI(PCMAN7,8.0,0.0,SDMAN7,FDMAN7); SDVOL1:=HIRED; FDVOL1:=
QUITD; PCVOL1:=MAX(0.0,MIN(0.1*WAGE(SURVEYD),CRVOL*WAGE(SURVEYD))
)/WAGE(SURVEYD); VOL1:=SUMI(PCVOL1,2.0,0.0,SDVOL1,FDVOL1); RED4:=
1.0-(0.048*a(AGE,60.0,55.0)+0.06*a(AGE,65.0,60.0)); RAS1:=AGE>=
65.0; RAS4:=AGE>=55.0; RAS10:=ASY1>=5.0; BEG7:=ANYTIME(BIRTHD+
55.0,0.0); CNT:=VOL1; CNQ:=CNT; NR1:=0.013*FAP1*ASY1; NR1Q:=ord(
RAS1)*NR1; NRT:=MAX(NR1,OTHCONT(1021.0)); NRQ:=MAX(NR1Q,OTHCONT(
1021.0)); LRQ:=NRQ; MRAGE:=999.0; ER1:=NRT*RED4; ER1Q:=ord(RAS4)*
ER1; ERT:=ER1; ERQ:=ER1Q; VD1:=ERT; VD1Q:=AA(BEG7,0.0)*VD1; VDT:=
VD1; VDQ:=VD1Q; DR1:=0.013*FAP1*PSY10; DR1Q:=ord(RAS10)*DR1;
DR2:=0.5*FAP1; DR2Q:=ord(RAS10)*DR2; DRT:=MIN(DR1,DR2); DRQ:=MIN(
DR1Q,DR2Q); DSQ:=0.0; PRAG:=0.0; VEDB:=VOPT(ord(QUITAGE>=55.0)*
1.0); if min( VEDB,PRAG,DSQ,DRQ,DRT,DR2Q,DR2,DR1Q,DR1,VDQ,VDT,
VD1Q,VD1,ERQ,ERT,ER1Q,ER1,MRAGE,LRQ,NRQ,NRT,NR1Q,NR1,CNQ,CNT,
BEG7,RED4,VOL1,PCVOL1,FDVOL1,SDVOL1,MAN7,PCMAN7,FDMAN7,SDMAN7,
FAP1,FDFAP1,PSY10,ASY1) <0 then negative end;
