Correct way of creating a networked RAPID application/module

All suggestions are welcome  

MODULE Server

    PERS tooldata myTool:=[TRUE,[[0,0,1],[1,0,0,0]],[1,[0,0,0.1],[1,0,0,0],0,0,0]];

    TASK PERS wobjdata myWobj:=[FALSE,TRUE,"",[[400,0,400],[1,0,0,0]],[[0,0,0],[1,0,0,0]]];

    VAR robtarget myRobtarget:=[[0,0,0],[1,0,0,0],[0,0,0,0],[9E9,9E9,9E9,9E9,9E9,9E9]];

    VAR socketdev server_socket;

    VAR socketdev client_socket;

    VAR bool server_created:=FALSE;

    VAR byte command:=255;

    VAR num peek_value:=0;

    VAR num read_offset:=1;

    VAR num bytes_available:=0;

    VAR pos read_position;

    VAR rawbytes raw_data_in;

    VAR rawbytes parse_data;

    VAR rawbytes tmp_data;

    VAR bool must_parse:=FALSE;

    VAR bool to_home:=TRUE;

    PROC main()

        IF to_home=TRUE THEN

            ! Move all axis into their start position.

            MoveAbsJ [[0,0,0,0,0,0],[9E9,9E9,9E9,9E9,9E9,9E9]],vmax,z0,tool0;

            ! We turn of `Configuration Joint` and `Configuration Linear` which 

            ! means that the robot can use different confirations than that which 

            ! was programmed. 

            ConfJ\Off;

            ConfL\Off;

            ! Rotate the `tcp` around the world Y-axis so that X will point 

            ! down and Z forwad. This gives us move freedom to move the 

            ! robot. 

            myRobtarget.rot:=OrientZYX(0,90,0);

            MoveJ myRobtarget,vmax,fine,tool0\WObj:=myWobj;

            to_home:=FALSE;

        ENDIF

        IF server_created=FALSE THEN

            SocketCreate server_socket;

            SocketBind server_socket,"127.0.0.1",1025;

            SocketListen server_socket;

            SocketAccept server_socket,client_socket;

            TPWrite "Accepted a new connection";

            server_created:=TRUE;

        ENDIF

        peek_value:=SocketPeek(client_socket);

        IF peek_value>=1 THEN

            ClearRawBytes raw_data_in;

            SocketReceive client_socket\RawData:=parse_data;

            bytes_available:=RawBytesLen(parse_data);

            IF bytes_available>=1 THEN

                UnpackRawBytes parse_data,1,command\Hex1;

                IF 0=command THEN

                    ! Read a position.      

                    UnpackRawBytes parse_data\Network,2,read_position.x\Float4;

                    UnpackRawBytes parse_data\Network,6,read_position.y\Float4;

                    UnpackRawBytes parse_data\Network,10,read_position.z\Float4;

                    MoveL Offs(myRobtarget,read_position.x, read_position.y, read_position.z),vmax,z0,tool0,\WObj:=myWobj; 

                ELSE

                    TPWrite "Unhandled command: "\Num:=command;

                ENDIF

            ENDIF

        ENDIF

    ENDPROC

ENDMODULE