p = 104
u = "www.ard-text.de/mobil/"
h1 = "<h2>"
h2 = "</h2>"
h3 = "Seite nicht vorhanden!"
timer 6000,[tm]
wait

[tm]
s = wgets(u & str(p))
l = len(s)
if l <> 0 then p = p + 1
a = instr(s,h1)
b = instr(s,h2)
c = mid(s,a,b-a)
c = replace(c,h1,"")
c = replace(c,h2,"")
if instr(c,h3) = 0 && len(c)>0 then
	print c
else
	p = 104
	print "----------------------------------"
	cls
end if
wait