sub WebSocketRXBinary() 'server receives binary array from client
     RXSockRead% = 1
     Paylength% = 0
     if SockRXBuffer%(1) = 130 then 'only process data if FIN bit set, OPCODE 0001 for binary
       select case SockRXBuffer%(2)-128  'remove the MSB mask bit as it is always set to 1
       case <=125
         Paylength% = SockRXBuffer%(2) - 128 'paylength less MSB mask bit always set to 1
         b% = 6
       case 126
         Paylength% = SockRXBuffer%(3) << 8 or SockRXBuffer%(4)
         b% = 8
       case 127
         Paylength% = SockRXBuffer%(3)<<56 or SockRXBuffer%(4)<<48 or SockRXBuffer%(5)<<40 or SockRXBuffer%(6)<<32 or SockRXBuffer%(7)<<24 or SockRXBuffer%(8)<<16 or SockRXBuffer%(9)<<8 or SockRXBuffer%(10)
         b% = 14
       end select
       for a% = 1 to 4
         MaskKey%(a%) = SockRXBuffer%(a% + b% - 4)
       next a%
       c% = 1
       d% = 1
       for a% = 1 to Paylength% step 2
         RXArrayBuffer%(d%) = (SockRXBuffer%(a% + b% + 1) xor MaskKey%(c%+1))<<8 or (SockRXBuffer%(a% + b%) xor MaskKey%(c%))'unmask all big endian binary data into 16bit values
         d% = d% + 1
         c% = c% + 2
         if c% = 5 then c% = 1
       next a%
       print "Valid Websocket Data Received"
       ProcessRXBinary()
     end if
end sub