Sub hrPole_onclick
dim idObrazka
if P>1 then Porovnaj
idObrazka=window.event.srcElement.id
if idObrazka="hrPole" then exit sub
if Obrazok(idObrazka).className = "1" then exit sub
if P=0 then mem1=idObrazka
if P=1then mem2=idObrazka
if mem1=mem2 then exit sub
Obrazok(idObrazka).src=Subor(idObrazka)
Obrazok(idObrazka).className="1"
P=P+1
End Sub

sub Porovnaj()
P=0
if Subor(mem1)<>Subor(mem2) then
Obrazok(mem1).src="pozadie.gif"
Obrazok(mem1).className=""
Obrazok(mem2).src="pozadie.gif"
Obrazok(mem2).className=""
end if
End sub
Sub Tl_onclick
window_onload
End Sub
--></SCRIPT>