JS1K

#2: the original

Source for demo by Peter van der Zee. See also description.

a="\",[.@functiI A(b,a){while(x||c]!=bc>Oc+aPx+G=a?cQ:cP=a?C:B)||G==b-1}z=document.body,T=cle,S=Uring.fromCh;zVinnerHTML<pWu>Reseep	 <u>Uop	\\nUaZ:  Ueps: \\n` Data`<~ea_~eaq_qq_q_pW>@v=z[vchildWn[0][va0avalueHi JS1K!@f2f]+,[.[-],]@g3EIcliZ!(b=cP?F():gVLsubstr(0,c)+\"<u #=baZground:Wd>\"+b+\"	\"+L](c+1gN,R=|=xO>d<Qd+-Q.(jV]+=S(R)+(k%80?\"\":\"\\n),(=n.chAt(0)|0,11(n=n[L](1))||\" ;b=B[&!RA(C,0,cb=C]RA(B,1,Qcc,7b,9S(s[8d&=32767]&=2554]s.join(5o};(f[$Ikeyup=a[$lO]T(l);s=[Y=o=c=d=kOn=am=fF((j4PV]})(3FY2]f[K#[Xdisplay=aY?NbloZ\":M;g11]Y?MnIe\":N;Y?T(l):l=set(E,1)})(Y=1)});";for(b in c="~text`[_/ZckWreV[ZUStQ--P])O=0Ion@\";#style\")),[Q=(\"]=arm[<input>Code][z];++t	 <u>StInterval><\"]=1s[d]&&	</u>v[,b=][Z]=[K][X]==\"<b></b>=function(){".split(""))a=a.replace(RegExp(c[b][0],"g"),c[b].slice(1));eval(a)