Attribute VB_Name = "Main"
Option Explicit

' timerCommStartMark can be used as COM ReadBusy,
' at this time, you cannot write COM!
Public TimerCommStartMark As Boolean
Public strRecHex As String 'received hex chars
Public bSwitch As Boolean

Public bStatus As Byte

Public nWorkMode As Integer
Public Const MODE_MANUAL = 0
Public Const MODE_AUTO = 1

Public Const EOT = "04"
Public Const RD = "52"
Public Const STX = "02"
Public Const WD = "57"
Public strADDress As String

Public RemoteHost As String
Public RemotePort As Integer

Public nReplyLen As Integer

Public nBlockParity As Integer '0=none, 1=xor, 2=add
Public nEndMark As Integer     '0=none, 1=cr, 2=crlf