gnat sockets problem

[mutilation@bonbon.net (wave)]

Hi, I apologise that yet again I ask this newsgroup another question,
but I've exhausted google and all the resources I could find on this
subject!

I'm having a problem, basically I'm wanting to write an ada program to
return a raw quake3 server string. If any of you know how this works,
it's over udp and you're sending the server a basic keyword command
and then it responds timely to your request.

Here's the problem; in my code the server is only giving me back 4
characters of the response the server should give, and I can't figure
out why. I wondered if any of you lovely people could shed some light
on this issue if you have any experience in this area.

Here is my code below:

with Gnat.Sockets; use Gnat.Sockets;
with Ada.Text_Io; use Ada.Text_Io;

procedure meh is 
   Socket  : Socket_Type;  
   Server  : Sock_Addr_Type;  
   Channel : Stream_Access;
begin

   Initialize;
   Create_Socket (Socket, Family_Inet, Socket_Datagram);

-- Functioning ip address of a server I'm trying to query
   Server := (
      Addr => Addresses (Get_Host_By_Name ("216.12.23.248"), 1),
      Port => 27960,
      Family => Family_Inet
      );

 Bind_Socket (Socket, Server);

 Connect_Socket (Socket, Server);  
 Channel := Stream (Socket);

-- tried Character'Val(255) instead of � too! 
 String'Output (Channel,"����getstatus");

    loop
      declare
  Message : String := String'Input (Channel);
      begin
         Put (Message);
      end;
   end loop;


 Close_Socket (Socket);
end meh;

It all goes so well up until a point, but instead of the server
responding with "����statusResponse.\game_version\sof2mp-1.02\sv_keywords\SOF2FULL.\sv_pure\1\......"
I'm only just getting the ����.
Is there some limit to the amount of data ada can send back or
something?

There are some quake3 protocol specs here:
http://www.game-tracker.com/gameproto/enemyterritory.htm (et is just a
mod for q3, same concept) that should show how the server should
behave in this situation.

As always, I'm really helpful for any insight you can give me.

Cheers guys.