API Help

Yes, I copied wrong from the program.  

This doesn't work -
  temp =TCPPrint(handle, "C3|interlock "; ampline$; "_enabled=t")

I'm guessing I have messed up the syntax somehow.

As long as you asked...

Liberty Basic Code -

    ' TCP/IP socket functions by by Alex Davies
   open "mesock32.dll" for dll as #me

[setup.main.Window]
    nomainwin
    WindowWidth = 200
    WindowHeight = 146
    UpperLeftX=500
    UpperLeftY=200
    loadbmp "Tune", "C:Tune Antenna Tuner SafelyTune.bmp"
    loadbmp "Stop", "C:Tune Antenna Tuner SafelyStop.bmp"

    '-----Begin GUI objects code
    bmpbutton #main.start,"C:Tune Antenna Tuner SafelyTune.bmp",[startClick], UL, 0,  0
    'button #main.reconn, "    RESET    ", [reconnClick], UL, 0, 76 , 184, 30
    '-----End GUI objects code


open "TS" for window as #main
    'print #main.reconn, "!font ms_sans_serif 14 bold"

    print #main, "trapclose [quit]"

    'read .ini file for address, RCA TX line, tune power
    open "C:Tune Antenna Tuner SafelyTATS.ini" for input as #tuncfg
    line input #tuncfg, radioaddress$
    line input #tuncfg, ampline$
    input #tuncfg, tunepower$
    close #tuncfg

    tuneflag=0

'    handle = TCPOpen(radioaddress$, 4992)
'    temp =TCPPrint(handle, "C4|transmit set tunepower=0")

[main.inputLoop]
    wait

[startClick]

    if tuneflag = 0 then
        handle = TCPOpen(radioaddress$, 4992)
        temp =TCPPrint(handle, "C0|interlock "; ampline$; "_enabled=f")
        'temp =TCPPrint(handle, "C1|transmit set tunepower=";tunepower$)
        temp =TCPPrint(handle, "C1|transmit tune on")
        print #main.start, "bitmap Stop"
        tuneflag=1

    else

        temp =TCPPrint(handle, "C2|transmit tune off")
        'temp =TCPPrint(handle, "C4|transmit set tunepower=";tunepower$)
        temp =TCPPrint(handle, "C3|interlock "; ampline$; "_enabled=T")
        temp = TCPClose(handle)
        print #main.start, "bitmap Tune"
        tuneflag=0

    end if
    wait
'[reconnClick]
'    temp = TCPClose(handle)
'    handle = TCPOpen(radioaddress$, 4992)
'    wait

[quit]
    temp = TCPClose(handle)
    close #me
    close #main
    end

''''Function TCPOpen()''''''''''
Function TCPOpen(address$,Port)
Timeout=1000
calldll #me, "Open", address$ As ptr,_
Port As Long,_
Timeout As Long, re As Long
TCPOpen=re
End Function

''''Function TCPReceive$()''''''''''
Function TCPReceive$(handle)
buffer=4096
all=0
calldll #me, "ReceiveA" ,handle As Long,_
buffer As Long,_
all As Long, re As long
if re<>0 then TCPReceive$ = winstring(re)
End Function

''''Function TCPPrint()''''''''''
Function TCPPrint(handle,text$)
calldll #me, "PrintA", handle As Long,_
text$ As ptr,re As Long
TCPPrint=re
End Function

''''Function TCPClose()''''''''''
Function TCPClose(handle)
calldll #me, "CloseA",handle As Long,_
TCPClose As Long
End Function