>Current value would be your first field. Next to it put PastVal() as the second field where:
>**************
>FUNCTION PastVal
>*************
>lnrec = RECNO()
>SKIP (n) && or locate your Past val record
>lcReturn = alias.field
>GO (lnrec)
>RETURN (lcReturn)
Very clever. Thank you for your solution