sequence longtext={}
-- dit is een stream reader daar gets() een line reader is
function readlineclient(integer client)
sequence data={}
integer timeout 
integer cr_where
sequence line={}    
     cr_where=find('\n',longtext) 
     if cr_where = 0 then 
       timeout = 1
       while sequence(data) and timeout!=0 do
       data = gets(client) 
       if data = 0 then 
          puts(1,"WAIT TIME OUT\n")
          data = "" 
          timeout-=1
       elsif data=-1 then
          puts(1,"EOF recieved\n")
          exit
       elsif sequence(data) then 
          longtext&=data 
          cr_where=find('\n',longtext) 
          if cr_where then exit end if
       end if
       end while 
     end if      
     if cr_where 
     then line = longtext[1..cr_where]
          longtext=longtext[cr_where+1..]   
     else 
        if length(longtext) 
        then line = longtext
             longtext=""
        else return data
        end if
     end if   
     printf(1,"? %s",{line}) 
     return line
end function

--   main program

atom socket 
sequence data=""

     socket = open("127.0.0.1:6000","c")   -- open file as (URL,client_mode)

     puts(socket,"GET //menno/what-ever.doc HTTP\r\n\r\n")

     while sequence(data) do
       data=readlineclient(socket)
     end while

     close(socket)                         -- close as file
--   end program