VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsBUP"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public AppCODE As Byte
Public Counter As Byte
Public RadioAdr As Currency
Public Billing_Volume As Currency
Public Alarm As Byte
Public A_CRC As Long

Public RSSI As Byte

Public Sub Decode(ByRef arbytes() As Byte)
'   Dim i As Integer
'   For i = 0 To 6
'      Debug.Print "BUP " & i & ": " & arbytes(i) & " = " & Hex(arbytes(i))
'   Next
   
   RSSI = arbytes(2)
   
   AppCODE = arbytes(8)
   Counter = arbytes(9)
   RadioAdr = NumberFromByteArray(arbytes, 10, 13)
   Billing_Volume = NumberFromByteArray(arbytes, 14, 17)
   Alarm = arbytes(18)
   A_CRC = NumberFromByteArray(arbytes, 19, 20)
End Sub