%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% Rate based document download %% %% using HttpClient.urlGET class %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% functor import System Application HTTPClient at 'x-ozlib://mesaros/net/HTTPClient.ozf' define fun {GetDoc Url} proc {GetRate Stream PrevTime PLock} LLock in case Stream of nil then PLock=unit Continue=true [] X|Xr then if X\=nil then Tp in PLock=unit if X.1