read out a binary waveform from a LeCroy oscilloscope using the SOCKIT xop

function/s makemsgstr(command)
    string command      // command must not exceed 255 characters!!
    variable a=strlen(command)
    string LecroyStr=num2char(129)+num2char(1)+num2char(1)+num2char(0)
    LecroyStr+=num2char(0)+num2char(0)+num2char(0)
    LecroyStr+=num2char(a)
    LecroyStr+=command
    return LecroyStr
End

function LeCroyReadOutBinWaveForm(bufferwave,entry)
    wave/t bufferwave
    variable entry

    variable pos=4
    variable blockLen
    variable i
    for(i=0;i<4;i+=1)
        blockLen+=(char2num((bufferwave[entry][0])[pos])<0 ? char2num((bufferwave[entry][0])[pos])+256 : char2num((bufferwave[entry][0])[pos]))*(256^(3-i))
        pos+=1
    endfor
    string headerStr=(bufferwave[entry][0])[pos,pos+blockLen-1]; pos+=blockLen
    headerStr=replacestring(" ",headerStr,""); headerStr=replacestring("\"",headerStr,"")
    print headerStr
    blockLen=0; pos+=4
    for(i=0;i<4;i+=1)
        blockLen+=(char2num((bufferwave[entry][0])[pos])<0 ? char2num((bufferwave[entry][0])[pos])+256 : char2num((bufferwave[entry][0])[pos]))*(256^(3-i))
        pos+=1
    endfor
    string blockFormatStr=(bufferwave[entry][0])[pos,pos+blockLen-1]; pos+=blockLen
    print blockFormatStr
    blockLen=0; pos+=4
    for(i=0;i<4;i+=1)
        blockLen+=(char2num((bufferwave[entry][0])[pos])<0 ? char2num((bufferwave[entry][0])[pos])+256 : char2num((bufferwave[entry][0])[pos]))*(256^(3-i))
        pos+=1
    endfor
    print blockLen      // number of data bytes

//  make/n=(blockLen/2)/o/w LeCroyWave      // because there are two byte words...
//  string S_tmp=uniquename("tmp",1,0); make/n=(blockLen)/o/b/u $S_tmp; wave W_tmp=$S_tmp
//  W_tmp=char2num((bufferwave[entry][0])[pos+p]); pos+=blockLen
//  LeCroyWave=W_tmp[2*p]*256+W_tmp[2*p+1]
//  killwaves W_tmp
//  redimension/s LeCroyWave

    make/n=(blocklen)/o/b/u LeCroyWave
    LeCroyWave=char2num((bufferwave[entry][0])[pos+p]); pos+=blockLen
    redimension/w/e=2/n=(blocklen/2) LeCroyWave // one data point is a two-byte word
    redimension/s LeCroyWave

    LeCroyWave=LeCroyWave*numberbykey("VERTICAL_GAIN",headerStr)-numberbykey("VERTICAL_OFFSET",headerStr)
    setscale/p x,numberbykey("HORIZ_OFFSET",headerStr),numberbykey("HORIZ_INTERVAL",headerStr),"s",LeCroyWave
    setscale d,0,0,"V",LeCroyWave
//  display LeCroyWave
end