Attribute VB_Name = "hase_pg"
'********************
'Instructions
'1) Add HASEX control to form as HASEx1
'2) Delete SlinkX control from form
'3) Add the hase_pg module to the application
'4) Search & Replace "slinkx.send" with "slinkx_send" ' Note, this might get the sendex line too...
'5) Search & Replace "slinkx.sendex" with "slinkx_sendex"
'6) Search & Replace "slinkx.AddDevice" with "slinkx.AddDevice"
'7) Search & Replace "slinkx.AddDeviceText" with "slinkx.AddDeviceText"
'8) Add a hasex1.winsockconnect(addr,port) in the form load prior to any calls
'9) Copy the HASEx1_DeviceEvent procedure from the HASE_PG module and paste in the fullwin form code

'Add this to the FULLWIN Form code
'Private Sub HASEx1_DeviceEvent(Device As String, Message As String)
'Slinkx_SlinkeDeviceEvent Device, Message
'End Sub


'********************

'These functions map the slinkx specific methods to the "generic" hasex control
'(since Hasex can talk to socketservers other than just slinkx)

Function Slinkx_Send(Device As String, Message As String)
Dim ret As String
ret = FullWin.HASEx1.Command("WS_SS_CMD slinkx send " & Device & "," & Message)
Slinkx_Send = Val(ret)
End Function

Function Slinkx_SendEX(Message As String)
Dim ret As String
ret = FullWin.HASEx1.Command("WS_SS_CMD slinkx send," & Message)
Slinkx_SendEX = Val(ret)
End Function

Function Slinkx_AddDevice(devname As String, devfile As String, id As Long, slinkenum As Long, ports As Long)
Dim ret As String
ret = FullWin.HASEx1.Command("WS_SS_CMD slinkx adddevice " & devname & " " & devfile _
            & " " & id & " " & slinkenum & " " & ports)
Slinkx_AddDevice = Val(ret)
End Function

Function Slinkx_AddDeviceText(devname As String, devtext As String, id As Long, slinkenum As Long, ports As Long)
Dim ret As String
ret = FullWin.HASEx1.Command("WS_SS_CMD slinkx adddevice " & devname & " " & devtext _
            & " " & id & " " & slinkenum & " " & ports)
Slinkx_AddDeviceText = Val(ret)

End Function