procedure textMenu(text1,text2,text3,text4:string;x,y,prom:integer);
begin
drawText(text1,x,y);
drawText(text2,x,y+prom);
drawText(text3,x,y+prom+prom);
drawText(text4,x,y+prom+prom+prom);
end;

function receivepage(url:string):string;
var conn: http;
htmlBody: string;
contentType: string;
i: integer;
begin
if not openHttp(conn, url) then halt;
setHttpMethod(conn, GET);
addHttpHeader(conn, 'User-agent', 'MIDletPascal browser');
i:=sendHttpMessage(conn);
htmlBody := getHttpResponse(conn);
contentType := getHttpHeader(conn, 'Content-type');
closeHttp(conn);
receivepage := htmlBody;
end.