#
#  Maple procedure to execute maple code stored on the web
#
ExecuteFromWeb:=proc(URL::string, {printfile::truefalse:=false})
 local n,m, status, webfile, headers;
 # try to get the URL
 status,webfile,headers:=HTTP[Get](URL):
 if ( HTTP[Code](status) <> "OK") then
     error(HTTP[Code](status),URL);
 fi;
 # now interpret the maple on 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: