INIT:
'Set as default macro
!DEFS (ME)
!MACR .OBJECTS
' Set Queue size
!QSIZ 6536
' Set analog span
!SPAN  0, 250
' Set max time
!TMAX 360
' Set number of samples
!PNTS 30
' Shift left at max
!SHFT ON
' Title plot
!TITL 
' Set display information
!DISP D9 G2 A0 S0 B15 R
!ECHO off

ENDMAC

OBJECTS:
!POBJ Clear
!PPER 65,100

' Set Back Color ******** 
!POBJ oBack=11

'   btnInit -- OBUTTON *****
!POBJ oButton.btnInit=78.,92.,12.,5.,&Initialize Xbee,8
!POBJ btnInit.F=Arial,8,1,0
!POBJ btnInit.tip=Set XBee for low guard times to quicken configuring
'-- Event Code
!POBJ btnInit.C=!POBJ lstReturn.clear(;)
!POBJ lstreturn.add=Initializing(;)
!Echo off(;)
!POBJ lstReturn.add=Waiting..(;)
!wait 2(;)
!POBJ lstReturn.add=Sending +++(;)
!SRAW +++(;)
!GRAB 3(;)
!POBJ lstReturn.add=(grab)(;)
!POBJ lstReturn.add=Waiting...(;)
!wait 2(;)
!POBJ lstReturn.add=Sending ATGT 3(;)
!Send ATGT 3(;)
!GRAB(;)
!POBJ lstReturn.add=(grab)(;)
!POBJ lstReturn.add=Exiting(;)
!SEND ATCN(;)
!GRAB(;)
!POBJ lstReturn.add=(grab)(;)
!POBJ lstReturn.add=Done(;)
!BELL(;)



'   btnSendData -- OBUTTON *****
!POBJ oButton.btnSendData=79.,23.,10.,5.,Send &Data,8
!POBJ btnSendData.F=Arial,8,1,0
!POBJ btnSendData.tip=Send data, updates DL if changed
'-- Event Code
!POBJ btnSendData.C=!IFTH (drpCh),<>,%m10,!POBJ drpAT=DL Set/Read Destination Address hex(;)
!IFTH (drpCh),<>,%m10,!POBJ txtReturn=(drpCh)(;)
!IFTH (drpCh),<>,%m10,!POBJ btnSet.Run(;)
!POBJ lstReturn.add=Sending (drpout)(;)
!SEND (drpOut)(;)
!IFTH (chkGrab),==,1,!GRAB (drpTO)(;)
!IFTH (chkGrab),==,1,!POBJ lblReturn=(grab)(;)
!IFTH (chkGrab),==,1,!BELL(;)
!MATH %m10=(drpCh)(;)
(;)



'   lstReturn -- OLIST *****
!POBJ oList.lstReturn=74.,61.,20.,20.8,9,
!POBJ lstReturn.F=Arial,9,0,0

'   txtReturn -- OTEXT *****
!POBJ oText.txtReturn=76.,75.,15.,4.5,0,15,0,9
!POBJ txtReturn.F=Arial,9,0,0

'   btnSet -- OBUTTON *****
!POBJ oButton.btnSet=87.,69.,7.,5.,&Set,8
!POBJ btnSet.F=Arial,8,1,0
!POBJ btnSet.tip=Sets current setting with value
'-- Event Code
!POBJ btnSet.C=!POBJ lstreturn.clear(;)
!wait 0.1(;)
!SRAW +++(;)
!GRAB 1(;)
!POBJ lstreturn.add=(grab)(;)
!send AT[(drpAT),mid,1,2] (txtReturn)(;)
!POBJ lstreturn.add=Sending AT[(drpAT),mid,1,2] (txtReturn)(;)
!GRAB 1(;)
!POBJ lstreturn.add=(grab)(;)
!ifTH (grab),==,?,!POBJ lstreturn.add=Not Found(;)
!SEND ATCN(;)
!GRAB 1(;)
!POBJ lstreturn.add=(grab)(;)
!POBJ lstreturn.add=Reading...(;)
!Bell(;)
!wait 0.1(;)
!SRAW +++(;)
!GRAB 1(;)
!POBJ lstreturn.add=(grab)(;)
!send AT[(drpAT),mid,1,2](;)
!POBJ lstreturn.add=Sending AT[(drpAT),mid,1,2](;)
!GRAB 1(;)
!POBJ lstreturn.add=(grab)(;)
!POBJ txtReturn=(grab)(;)
!ifTH (grab),==,?,!POBJ lstreturn.add=Not Found(;)
!SEND ATCN(;)
!GRAB 1(;)
!POBJ lstreturn.add=(grab)(;)
!POBJ lstreturn.add=Done(;)
!Bell


'   drpPort -- ODROP *****
!POBJ oDrop.drpPort=80.,98.,7.,4.2,9,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,1
!POBJ drpPort.F=Arial,9,0,0
'-- Event Code
!POBJ drpPort.C=!POBJ chkConnect=0


'   lblPort -- OLABEL *****
!POBJ oLabel.lblPort=70.,97.,10.,3.,XBee Port:,,0,9,0
!POBJ lblPort.F=Arial,9,1,0

'   chkConnect -- OCHECK *****
!POBJ oCheck.chkConnect=89.,98.,15.,5.,&Connect,0,11,0,9
!POBJ chkConnect.F=Arial,9,1,0
'-- Event Code
!POBJ chkConnect.C=!PORT (drpPort)(;)
!CONN ((ME))


'   Obj13 -- OIMGBUT *****
!POBJ oImgBut.Obj13=69.,86.,30.,1.,,1,,0

'   drpAT -- ODROP *****
!POBJ oDrop.drpAT=69.,81.,30.,4.2,9,MY  Set/Read device address hex,DL Set/Read Destination Address hex,NI Set/Read device name 20 char,ID Set/Read PAN ID,CH Set/Read channel hex,DB Read last RSSI level,PL Set/Read current power level 0-4,ED Read Energy Levels,VR Read Firmware Version,HV Read current hardware version,EC Read CCA failures,EA Set/Read ACK failures,MY  Set/Read device address hex,DL Set/Read Destination Address hex,DL Set/Read Destination Address hex
!POBJ drpAT.F=Arial,9,0,0

'   btnRead -- OBUTTON *****
!POBJ oButton.btnRead=74.,69.,7.,5.,&Read,8
!POBJ btnRead.F=Arial,8,1,0
!POBJ btnRead.tip=Reads current setting
'-- Event Code
!POBJ btnRead.C=!POBJ lstreturn.clear(;)
!wait 0.1(;)
!SRAW +++(;)
!GRAB 1(;)
!POBJ lstreturn.add=(grab)(;)
!send AT[(drpAT),mid,1,2](;)
!POBJ lstreturn.add=Sending AT[(drpAT),mid,1,2](;)
!GRAB 1(;)
!POBJ lstreturn.add=(grab)(;)
!POBJ txtReturn=(grab)(;)
!ifTH (grab),==,?,!POBJ lstreturn.add=Not Found(;)
!SEND ATCN(;)
!GRAB 1(;)
!POBJ lstreturn.add=(grab)(;)
!POBJ lstreturn.add=Done(;)
!Bell


'   Obj13 -- OLABEL *****
!POBJ oLabel.Obj13=69.,85.,28.,4.,---- Configuration ----,,0,9,0
!POBJ Obj13.F=Arial,9,0,0

'   Obj15 -- OIMGBUT *****
!POBJ oImgBut.Obj15=70.,38.,29.,1.,,1,,0

'   drpCh -- ODROP *****
!POBJ oDrop.drpCh=79.,36.,8.,4.2,9,0,1,2,3,4,5,6,7,8,9,A,FFFF
!POBJ drpCh.F=Arial,9,0,0

'   drpOut -- ODROP *****
!POBJ oDrop.drpOut=79.,29.,13.,4.2,9,Test
!POBJ drpOut.F=Arial,9,0,0
!POBJ drpOut.tip=Data to be sent

'   Obj17 -- OLABEL *****
!POBJ oLabel.Obj17=70.,35.,10.,3.,To Addr:,,0,9,0
!POBJ Obj17.F=Arial,9,1,0

'   chkGrab -- OCHECK *****
!POBJ oCheck.chkGrab=72.,16.,25.,5.,Ca&pture Returning Data,0,11,0,9
!POBJ chkGrab.F=Arial,9,1,0
!POBJ chkGrab.tip=If not selected, returning data will be processed as normal StampPlot Data

'   lblReturn -- OLABEL *****
!POBJ oLabel.lblReturn=72.,6.,25.,4.,Test ,15,0,8,1
!POBJ lblReturn.F=Arial,8,0,0
!POBJ lblReturn.tip=Returning data if selected

'   drpTO -- ODROP *****
!POBJ oDrop.drpTO=84.,11.,7.,4.2,9,1,2,3,4,5,10,1
!POBJ drpTO.F=Arial,9,0,0

'   Obj20 -- OLABEL *****
!POBJ oLabel.Obj20=71.3,10.,13.,3.,Return Timeout:,,0,9,0
!POBJ Obj20.F=Arial,9,1,0

'   Obj21 -- OLABEL *****
!POBJ oLabel.Obj21=72.,28.,4.,3.,Data:,,0,9,0
!POBJ Obj21.F=Arial,9,1,0

ENDMAC