New Post: Dropdown Lookup

Hello all, i'm looking for a function that will do a lookup to a different list and copy the value to a single line of text field.

Using MOSS 2007

Source List A:
ID Title
1 Apple
2 Orange
3 Banana

List B NewForm
Lookup to list A (ID):
Fruit:

If from the dropdown the value 1 is selected then auto fill Fruit field with Apple

Thanks in advance