if BonusAmt >= MgrApprovalRequired then
PayProgrBonus( EmpID, StdAmt() ) ‘pay company std. amount
else
PayProgrBonus( EmpID, BonusAmt ) ‘pay 1ntended, full amount
end if
next EmpID
TAB
132
MemToInit := MemoryAvailable(); { get amount of memory available }
Pointer := GetMem( MemToInit ); { get a ptr to the available memory }
Zeromem( Pointer, MemToInit ); { at memory to 0 }
...
FreeMem( Pointer ); { tree memory allocated }
for RateIdx L := l to RateCount do begin { Compute discounted rates}
begin
LookupRegularRate( RateIdx, ReguinrRate );
Rate[ RateIdx ] := RegualarRate * Discount[ RateIdx ];
end;
132
