10
User Manual
Copyright ©2003 A7 Engineering, Inc.
SEROUT 1,84,["con 00:0C:84:00:07:D8",CR]
SERIN 0,84,[WAIT("ACK",CR)]
WaitForConnection:
IF in5 = 0 THEN WaitForConnection
DEBUG "Connected",CR
SEROUT 1,84,["This text is sent in data mode",CR]
'Switch to Command Mode
PAUSE 2000
SEROUT 1,84,["+++"]
SERIN 0,84,[WAIT(CR,">")]
DEBUG "In Command Mode",CR
'Get the eb500 Bluetooth Address
SEROUT 1,84,["get addr",CR]
SERIN 0,84,[WAIT("ACK",CR)]
'Read the local address from the get command
SERIN 0,84,[STR szData\17]
SERIN 0,84,[WAIT(CR,">")]
szData(17) = 0
DEBUG STR szData\17,CR
'Return to Data Mode
SEROUT 1,84,["ret",CR]
SERIN 0,84,[WAIT("ACK",CR)]
DEBUG "In Data Mode",CR
SEROUT 1,84,["My Bluetooth address is ",STR szData,CR]
'Switch to Command Mode
PAUSE 2000