nn = (document.layers) ? true:false;
ie = (document.all) ? true:false;
gecko = (document.getElementById) ? true:false;

bname=navigator.appName;
bversion=parseInt(navigator.appVersion)
if ((bname=="Netscape" && bversion>=4) || (bname=="Microsoft Internet Explorer" && bversion>=4)){
if (bname=="Netscape"){
brows=true
dt=1
}
else{
brows=false
dt=100
}
var z=0;
var msg=0;
var rgb=0;
var status=true;
var updwn=false;
var message= new Array();
var value=0;
var timer1;
var timer2;
var timer3;
var convert = new Array()
var hexbase= new Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F");


var bgcolor="#FFFFFF"; 
var color="#0000FF"; 

message[0]='1 PAŹDZIERNIKA, 1803, SOBOTA'
message[1]='Przedwczoraj powziąłem decyzję, z którą się od dawna nosiłem, chcę'
message[2]='regularnie prowadzić dziennik. Wyznaczyłem na dziś termin rozpoczęcia.'
message[3]='Myślałem, że zacznę go jowialnie, w poczuciu beztroski, dzięki uzyskanej'
message[4]='na papierze wolności. A okoliczność, że dziś jest pierwszy, nie ma znaczenia.'
message[5]='Lecz opatrzony czarną pieczęcią list z Berlina zawierał wiadomość, że wuj'
message[6]='umarł w nocy z 24 na 25 września na zapalenie płuc. (...)'
message[7]='Śmierć wuja wprawiła mnie w zły humor - to nie jest dobry początek.'
message[8]='NIEDZIELA, 2 PAŹDZIERNIKA'
message[9]='Dziś przed południem byłem na mszy u norbertynek: muzyka była świetnie'
message[10]='skomponowana, lecz one zawodziły jak puchacze - Incarnatus w moll było wspaniałe.'
message[11]='Jedna mniszka śpiewała znośnie; można się było czegoś domyśleć.'
message[12]='Zrobiło na mnie wielkie wrażenie. A jakież będą moje odczucia, jeśli usłyszę'
message[13]='Schik, Marketi w Berlinie - jeżeli znów będzie mi dane usłyszeć mszę w Dreźnie.'
message[14]='Wtedy chyba oszaleję, będę płakał jak dziecko!'
message[15]='(...) Przez cały wieczór czytałem, ot tak sobie, "Magię naturalną" Wiegleba'
message[16]='i postanowiłem, gdy tylko nadejdzie odpowiednia pora, skonstruować automat'
message[17]='ku pożytkowi i uciesze wszystkich rozumnych, których widzę wokół siebie!'
message[18]='- Quod deus bene vertat! (...)'
message[19]='Z moimi ideami muzycznymi dzieje się tak jak z olśnieniami Savonaroli,'
message[20]='męczennika z Florencji, którego historię czytałem w tych dniach: najpierw'
message[21]='zaczyna coś świtać i wirować w głowie, potem zaczynam pościć i modlić się,'
message[22]='to znaczy siadam do fortepianu, zaciskając powieki wstrzymuję się od wszelkich'
message[23]='doczesnych myśli i kieruję ducha w stronę muzycznych przywidzeń w czterech'
message[24]='ścianach mego mózgu - i już mam przed sobą jasną ideę - łapię ją i zapisuję'
message[25]='jak Savonarola swoje proroctwa. Ciekawe, czy inni kompozytorzy czynią podobnie?'
message[26]='Ale tego się nie dowie królewski pruski radca rządowy w Płocku!'
message[27]='Jednak jestem w bardzo złym humorze, muszę koniecznie napisać do Hippela!'
message[28]='PONIEDZIAŁEK, 3 PAŹDZIERNIKA'
message[29]='Opłakany dzień pod każdym względem. Przed południem i po południu do 22.00.'
message[30]='harowałem jak wół - grzebiąc w zakurzonych aktach. Moja praca jest teraz'
message[31]='w fazie przypływu i byłby to nie lada traf, gdyby mnie teraz reskrypt'
message[32]='o przeniesieniu wyciągnął z tego odmętu.'
message[33]='Po południu byłem przez godzinę u Reichenberga - stroiłem mu piano'
message[34]='i zagrałem moją nową Mszę - nie jest w jego guście, lecz udawał zachwyt,'
message[35]='gdy wykonałem dla niego Benedictus.'
message[36]='O nieba! Jestem zupełnie wyczerpany, stałem się tak prozaiczny przez'
message[37]='te przeklęte akta, że nie skleciłbym nawet walca! Napiszę jeszcze parę nut'
message[38]='i położę się do łóżka - widzę, że mój dziennik jest coraz krótszy,'
message[39]='ale nie pozwolę, żeby się skurczył do zera.'
message[40]='WTOREK, 4 PAŹDZIERNIKA'
message[41]='Przed południem jak zwykle dość nudne posiedzenie. Po południu u Hildebrandta,'
message[42]='potem z nim do 10.00. u Reichenberga. Dużo mówiliśmy o muzyce.'
message[43]='Jeżeli słyszę o starych i nowych kompozytorach, to jednak przypomina mi się'
message[44]='znane Anchio son pittore. Do diaska, jakież nędzne teraz przeżywam dni.'
message[45]='Lecz cierpliwości - wnet wzejdzie jutrzenka.'
message[46]='ŚRODA, 5 PAŹDZIERNIKA'
message[47]='Coś nie wychodzi mi ten dziennik. Znów dzień pocztowy i nic, nic, nic!'
message[48]='Do Hippela napisałem lakonicznie i komicznie.'
message[49]='CZWARTEK, 6 PAŹDZIERNIKA'
message[50]='Kiedyż odwrócą się moje cierpienia?! - powiedział Frederic le grand na polu bitwy.'
message[51]='Ja zaś, H. le petit mówię to samo, tyle, że podnosząc się spod sterty zakurzonych akt.'
message[52]='PIĄTEK, 7 PAŹDZIERNIKA'
message[53]='Przed południem wegetowałem na rozprawie. Wieczorem kwartet u Reichenberga -'
message[54]='Pan von Piwnicki, kandydat na referendarza i wielki wiolonczelista,'
message[55]='jak sam o sobie mówi, zaprezentował się, a raczej dał próbkę swego talentu,'
message[56]='co skończyło się żałośnie. Nędzny Kwartet Pleyela - i był bezradny,'
message[57]='potem parę kwartetów Haydna - żałosne jak to zazwyczaj wszelka muzyka'
message[58]='w tej strasznej dziurze, lecz niebiańskie oryginalne prowadzenie harmonii'
message[59]='mimo to mnie zachwyciło - Haydn byłby niesłychanie wielki w muzyce instrumentalnej,'
message[60]='gdyby zrezygnował z figli - wszystkie te ozdobniki w jego kwartetach psują całość.'
message[61]='Potem próbowaliśmy Mszę ex G.d., poszło źle. Fuga ex E.b. zupełnie nie udała się.'
message[62]='O nieba! Nic tu się nie udaje!'

for (x=0; x<16; x++){
for (y=0; y<16; y++){
convert[value]= hexbase[x] + hexbase[y];
value++;
}
}

redx=color.substring(1,3);
greenx=color.substring(3,5);
bluex=color.substring(5,7);
hred=eval(parseInt(redx,16));
hgreen=eval(parseInt(greenx,16));
hblue=eval(parseInt(bluex,16));
eredx=bgcolor.substring(1,3);
egreenx=bgcolor.substring(3,5);
ebluex=bgcolor.substring(5,7);
ered=eval(parseInt(eredx,16));
egreen=eval(parseInt(egreenx,16));
eblue=eval(parseInt(ebluex,16));
red=ered;
green=egreen;
blue=eblue;

function start(){
if ((bname=="Netscape" && bversion>=4) || (bname=="Microsoft Internet Explorer" && bversion>=4)){
if (brows)
res=document.layers['textanim'].top
else
res=textanim.style.top
updwn=true;
timer1=window.setInterval('up()',dt)
}
}

function stop(){
if ((bname=="Netscape" && bversion>=4) || (bname=="Microsoft Internet Explorer" && bversion>=4)){
window.clearInterval(timer1);
window.clearInterval(timer2);
window.clearTimeout(timer3);
}
}

function breakf(){
if (status){
window.clearInterval(timer1);
window.clearInterval(timer2);
window.clearTimeout(timer3);
status=false
return;
}
else{
if (updwn)
timer1=window.setInterval('up()',dt)
else
timer2=window.setInterval('down()',dt)
status=true;
}
}


function up(){
if (red<hred){
if ((red+15)<hred){
red+=15;
redx = convert[red]
}
else{
red=hred
redx = convert[red]
}
}

if (red>hred){
if ((red-15)>hred){
red-=15;
redx = convert[red]
}
else{
red=hred
redx = convert[red]
}
}

if (green<hgreen){
if ((green+15)<hgreen){
green+=15;
greenx = convert[green]
}
else{
green=hgreen
greenx = convert[green]
}
}

if (green>hgreen){
if ((green-15)>hgreen){
green-=15;
greenx = convert[green]
}
else{
green=hgreen
greenx = convert[green]
}
}

if (blue<hblue){
if ((blue+15)<hblue){
blue+=15;
bluex = convert[blue]
}
else{
blue=hblue
bluex = convert[blue]
}
}

if (blue>hblue){
if ((blue-15)>hblue){
blue-=15;
bluex = convert[blue]
}
else{
blue=hblue
bluex = convert[blue]
}
}

rgb = "#"+redx+greenx+bluex;
if (brows){
document.layers['textanim'].document.linkColor=rgb;
document.layers['textanim'].document.vlinkColor=rgb;
document.layers['textanim'].document.writeln('<Pre><P Class="main" Align="Center"><font color="'+rgb+'">'+message[msg]+'</font></P></Pre>')
document.layers['textanim'].document.close();
}
else{
textanim.document.linkColor=rgb;
textanim.document.vlinkColor=rgb;
textanim.innerHTML='<Pre><P Class="main" Align="Center"><font color="'+rgb+'">'+message[msg]+'</font></P></Pre>'
}
if (z<19){
if (brows)
document.layers['textanim'].top-=1
else
textanim.style.posTop-=1
z++
}
else
{
updwn=false;
window.clearInterval(timer1);
timer2=window.setInterval('down()',dt)
}
}


function down(){
if (red<ered){
if ((red+15)<ered){
red+=15;
redx = convert[red]
}
else{
red=ered
redx = convert[red]
}
}

if (red>ered){
if ((red-15)>ered){
red-=15;
redx = convert[red]
}
else{
red=ered
redx = convert[red]
}
}

if (green<egreen){
if ((green+15)<egreen){
green+=15;
greenx = convert[green]
}
else{
green=egreen
greenx = convert[green]
}
}

if (green>egreen){
if ((green-15)>egreen){
green-=15;
greenx = convert[green]
}
else{
green=egreen
greenx = convert[green]
}
}

if (blue<eblue){
if ((blue+15)<eblue){
blue+=15;
bluex = convert[blue]
}
else{
blue=eblue
bluex = convert[blue]
}
}

if (blue>eblue){
if ((blue-15)>eblue){
blue-=15;
bluex = convert[blue]
}
else{
blue=eblue
bluex = convert[blue]
}
}

rgb = "#"+redx+greenx+bluex;
if (brows){
document.layers['textanim'].document.linkColor=rgb;
document.layers['textanim'].document.vlinkColor=rgb;
document.layers['textanim'].document.writeln('<Pre><P Class="main" Align="Center"><font color="'+rgb+'">'+message[msg]+'</font></P></Pre>')
document.layers['textanim'].document.close();
}
else{
textanim.document.linkColor=rgb;
textanim.document.vlinkColor=rgb;
textanim.innerHTML='<Pre><P Class="main" Align="Center"><font color="'+rgb+'">'+message[msg]+'</font></P></Pre>'
}
if (z<38){
if (brows)
document.layers['textanim'].top-=1
else
textanim.style.posTop-=1
z++
}
else
{
if (brows){
document.layers['textanim'].document.writeln('')
document.layers['textanim'].document.close();
}
else
textanim.innerHTML='';
window.clearInterval(timer2);
if(msg<message.length-1){
msg++;
z=0;
if (brows)
document.layers['textanim'].top=res;
else
textanim.style.top=res;
timer3=window.setTimeout('start()',100);
}
else
{
msg=0;
z=0;
if (brows)
document.layers['textanim'].top=res;
else
textanim.style.top=res;
timer3=window.setTimeout('start()',2000);
}
}
}
}