{src/web/method/wrap-cgi.i}
def var vline as raw no-undo.

def stream xin.

input stream xin from value("c:/ffw/test.gif") binary no-echo.

{&out} 
/*"HTTP/1.0 200 OK" ~n*/
"Content-type: image/gif~n~n" /*http-newline http-newline*/
.
repeat:          
  length(vline) = 1024. /* or whatever length you think might be appropriate */
  import stream xin unformatted vline.
  put {&WEBSTREAM} control vline.
end.
length(vline) = 0.

input close.