ReadFromWeb:=proc(URL::string, {printfile::truefalse:=false}) local n,m, status, webfile, headers; status,webfile,headers:=HTTP[Get](URL): if ( HTTP[Code](status) <> "OK") then error(HTTP[Code](status),URL); fi; # now read the web page n:=0: while (n < length(webfile)) do m:=n; parse(webfile,statement,lastread='n', offset=n); if (printfile) then printf("%s",webfile[m+1..n]); fi; od: end: