I do not see a loop in the sending device. Seems it sends the data once and then stops.

So the receiving device, if fails to receive first time correct data, loops in the timeout sub.

Then spits out the data that are randomly stored in the variables, since you do not have a CLEAR command on the top of your program. CLEAR will ensure all variables are set to zero.

The PAUSE 3000 are not needed I guess, since you have a 1 sec timeout.

Ioannis.