>This is the calling program
>
>local amtdue,annualrate
>loandate = {04/10/2000}
>loanamt = 100
>strcode = 0
>firearmcode = "E"
>govermentcode = .T.
>loanduration = date() - loandate
>set database to pawn
>amtdue = feecalc(loanduration,loanamt,strcode,firearmcode,govermentcode,@amtdue,@annualrate)
>? amtdue
>*? annualrate
>
>
>
>here is the top part of the function
>function feecalc(loanduration,loanamt,strcode,firearmcode,govermentcode)

Move amtdue and annualrate in with the paramaters.

function feecalc(loanduration,loanamt,strcode,firearmcode,govermentcode,amtdue,annualrate)

and remember to remove them from your local variables.

local storage,prorateamt,sixday,thrtday

>local storage,prorateamt,amtdue,sixday,thrtday
>local annualrate
>
>use fees &&load fees table
>scatter memvar && load all fields to varibals
>use && clear table
>use intrest && load intrest table
>scatter memvar && load all fields to variables
>use && clear table
>
>sixtyday = sixtyday / 100 && normilze values
>thirtyday = thirtyday / 100 && normilze values
>
>
>Thanks Kelly