if(key(_a))
taste("a");
END
if(key(_b))
taste("b");
END
....
etc

process taste(string taste)
private pressed=0;
begin

if(pressed==0)
globalstring+=taste; //the textstring gets a character added
pressed=1; //only one char, per pressed key
end

For(timepl=0;timepl<fps*0.2;timepl++) 
Frame; //waiting 0.2 seconds, before new chars are allowed
End
pressed=0; //allow new chars to be added

end

process senddata(int ballx)

begin
    NET_SendVar( netid , &ballx , sizeof(ballx) );
end

     If (Net.incoming[1]==NET_STATUS_ACTIVE or     Net.incoming[1]==NET_STATUS_ESTABLISHED)

//getting the variable doesn't work yet          
    ballx=NET_RecvVar( netid , &ballx , sizeof(ballx) );   
   
    end  

if (ascii != 0)
   taste(chr(ascii)) ;
end

or

if (ascii >= 32 && ascii <= 126)
    mystr += chr(ascii) ;
    while (ascii > 0) frame; end
end

netid = NET_Open(...);

if(NET.Incoming[1]==...) // notice the 1

ballx=NET_RecvVar( netid , &ballx , sizeof(ballx) );

NET_RecvVar( netid , &ballx , sizeof(ballx) );

NET_Init(0,20,10,0,0,0,0) ;
netid = NET_Open("localhost",4555) ; // netid will be 0 because NET.MaxListenPorts = 0
NET_Seperator(netid,chr(13)+chr(10),2) ;
loop
  if(NET.Incoming[netid]==NET_STATUS_ACTIVE) // incoming message
    NET_RecvVar(netid,&ballx,sizeof(ballx)) ;
  end
end

NET_Init(0,20,10,1,4555,0,0) ; // 4555 is the port number
loop
  for(c=1; c<=1; c++) // serve multiple connections (don't use only 'netid' as a var then
    if(NET.Incoming[c]==NET_STATUS_ESTABLISHED) //connection is being made
      netid = c; // netid will be 1 because NET.MaxListenPorts = 1
      NET_Seperator(netid,chr(13)+chr(10),2) ;
    end
  end
  if(key(_s))
    NET_SendRN(netid,ballx) ; // this function can send ints
  end
end

loop
 //reading the incoming data, my server is listening to port 3435 
 If (Net.incoming[1]==NET_STATUS_ACTIVE or Net.incoming[1]==NET_STATUS_ESTABLISHED)
         clientip=NET_IPaddress(1);
    Message=NET_GetMessage(1); //speichern in message
    if (message=="ready")
    clientconnected=1;
   
    //here is the problem:
    clientip= ;// i want to get the ip from the origin of "NET.incoming[1]" somehow 
    end  

    if (clientconnected==1&&connectedtoclient==0)
    //now using that ip i can conntect to the client using HIS open port 3536:
     netid=NET_Open(clientip,3536,NET_CONNTYPE_EXTERNAL); 
    connectedtoclient=1;
    end 

end 

 If (Net.incoming[1]==NET_STATUS_ACTIVE or Net.incoming[1]==NET_STATUS_ESTABLISHED)

    Message=NET_GetMessage(1); //speichern in message
    if (message=="ready")
    clientconnected=1;
    clientip=NET_IPaddress(1 ) ;// i want to get the ip from the origin of "NET.incoming[1]" somehow 
    //here is the problem:
clientip=NET_IPaddress(1); //should return the client ip, but doesn't
    end  

// msg is a string
// conn_counter is the connection counter of the for() loop
case NET_STATUS_ACTIVE: // ...there's >0 new messages on this connection
    msg = NET_GetMessage(conn_counter);
    repeat
        say("Incoming(" + conn_counter + "): " + msg);
        msg = NET_GetMessage(conn_counter);
    until(len(msg)<=0)
end