BT.Open
'No need to "BT.Connect" because the other device is auto-connecting
'"to the last paired device"
Do
BT.Status s
If s = 3
'I can now send/receive data. Moving out of range makes 's' < 3 so I simply wait
'for s = 3 and comms resume.
Endif
Until
BT.Close