Go to:  Site entry | Site contents | Site index | Internet | HTMLScript | Text bottom

Mirzayan  Song  List  HTMLScript

MIRZAY-E script generates 3 song names selected at random from 3 sections of a song list.  Then a 4-th song name is generated by random selection from the entire list of all 3 sections.  Script provides uniqueness of the 4-th name (it never repeats any of the other 3 names).

Notes: Entire HTMLScript code is placed between </HEAD> and <BODY> tags.
HTMLScript line right above <BODY> tag selects a background at random out of 9 opportunities.


<!-- Alexander Mirzayan Songs (English List)  02/27/199812/14/1998 -->
<!-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -->
<!-- DAVAR/RUSSIAN/SONGS/MIRZAYAN/MIRZAY-E.HTS                      -->
<!-- Copyright (C) 1998 by Vladimir Veytsel                         -->

<HTML>
<HEAD>
  <TITLE>Mirazayn Songs (Russian at Davar Web Site)</TITLE>
</HEAD>

<LET S1 ="HAMLET">
<LET S2 ="OHTELLME">
<LET S3 ="FORGIVE">
<LET S4 ="HOPE">      <!-- End of the 1-st section -->

<LET S5 ="ROMANFRI">
<LET S6 ="STILLIFE">
<LET S7 ="CHRISTMS">
<LET S8 ="RATCATCH">
<LET S9 ="DEATHFRI">
<LET S10="21TYRANT">
<LET S11="MEXTANGO">  <!-- End of the 2-nd section -->

<LET S12="FRESHET">   <!-- End of the entire list -->

<LET Sect_1= 4>  <!-- Highest index of the 1-st section        -->
<LET Sect_2=11>  <!-- Highest index of the 2-nd section        -->
<LET Total =12>  <!-- Total number of songs in the entire list -->

<LET T =tm_min*tm_sec>
<LET I1=(T MOD  Sect_1)+1>                 <!-- Ind within 1-st section -->
<LET I2=(T MOD (Sect_2-Sect_1))+Sect_1+1>  <!-- Ind within 2-nd section -->
<LET I3=(T MOD (Total -Sect_2))+Sect_2+1>  <!-- Ind within 3-rd section -->

<LET Valid=0>       <!-- Index valid (non-repeatable) flag     -->
<WHILE Valid EQ 0>  <!-- Repeat until valid index is generated -->
  <LET I=((dyn_tm_min*dyn_tm_sec) MOD Total)+1>
  <LET Valid=1>
  <IF I EQ I1>
      <LET Valid=0>
  </IF>
  <IF I EQ I2>
      <LET Valid=0>
  </IF>
  <IF I EQ I3>
      <LET Valid=0>
  </IF>
</WHILE>

<LET All   =S&[I]>
<LET Sect_1=S&[I1]>
<LET Sect_2=S&[I2]>
<LET Sect_3=S&[I3]>

<LET J=((tm_min*tm_sec) MOD 9)+1>
<BODY BACKGROUND="../../../PAPER00&[J].JPG" BGCOLOR=White TEXT=Black LINK=Blue ALINK=Fuchsia VLINK=Purple>
<FONT FACE="Times New Roman" SIZE=3>
  <A NAME="Top"></A>
  <CENTER>
    <TABLE>
      <TR>
        <TD>
          <I>
            <FONT COLOR=Green>Go to:</FONT>  <A HREF="../../../HOME.HTM">Site entry</A>
            <FONT COLOR=Green>|</FONT> <A HREF="../../../DIRECT.HTS">Direct</A>
            <FONT COLOR=Green>|</FONT> <A HREF="../../../INDEX.HTS">Index</A>
            <FONT COLOR=Green>|</FONT> <A HREF="../../RUSSIAN.HTS">Russian</A>
            <FONT COLOR=Green>|</FONT> <A HREF="../SONGS.HTS">Russian songs</A>
            <FONT COLOR=Green>|</FONT> <A HREF="MIRZAY-R.HTS">Russian list</A>
            <FONT COLOR=Green>|</FONT> <FONT COLOR=Gray>Song lyrics</FONT>
            <!--
            <FONT COLOR=Green>|</FONT> <A HREF="MIRZAY-L.HTS">Song lyrics</A>
             -->
            <FONT COLOR=Green>|</FONT> <A HREF="#Bottom">List bot</A>
          </I>
        </TD>
      </TR>
      <TR><TD><HR></TD></TR>
      <TR>
        <TD ALIGN=Center>
          <FONT COLOR=Teal>Real play sample song selected from:</FONT>  <A HREF="&[All].RAM">All songs</A>
          <FONT COLOR=Teal>|</FONT> <A HREF="&[Sect_1].RAM">1-st section</A>
          <FONT COLOR=Teal>|</FONT> <A HREF="&[Sect_2].RAM">2-nd section</A>
          <FONT COLOR=Teal>|</FONT> <A HREF="&[Sect_3].RAM">3-rd section</A>
        </TD>
      </TR>
      <TR><TD><HR></TD></TR>
    </TABLE>
    <FONT SIZE=5 COLOR=Red><B><I><U> Alexander  Mirzayan</U></I></B></FONT>
         
    (To enable playback
    <A HREF="http://www.real.com/products/player/index.html">download</A>
    & install <FONT COLOR=Red>Real Player</FONT>)
    <BR> 
    <TABLE>  <!-- Keep all WIDTHs at the top row -->
      <TR><TD WIDTH=380><I><FONT COLOR=Red><B>H</B></FONT>amlet 
                                              (Dedication to Vladimir Visotsky)
                        </I>
          </TD>
          <TD></TD>
          <TD><A HREF="HAMLET.RA">Save & play</A>   675 Kb   
              <A HREF="HAMLET.RAM">Real play</A>   5:21
          </TD>
      </TR>
      <TR><TD><I><FONT COLOR=Red><B>H</B></FONT>ope</I></TD>
          <TD></TD>
          <TD><A HREF="HOPE.RA">Save & play</A>   326 Kb   
              <A HREF="HOPE.RAM">Real play</A>   2:35
          </TD>
      </TR>
      <TR><TD><I><FONT COLOR=Red><B>F</B></FONT>orgive Me, Lord</I></TD>
          <TD></TD>
          <TD><A HREF="FORGIVE.RA">Save & play</A>   349 Kb   
              <A HREF="FORGIVE.RAM">Real play</A>   2:46
          </TD>
      </TR>
      <TR><TD><I><FONT COLOR=Red><B>O</B></FONT>h Tell Me, My Friend ...</I></TD>
          <TD></TD>
          <TD><A HREF="OHTELLME.RA">Save & play</A>   609 Kb   
              <A HREF="OHTELLME.RAM">Real play</A>   4:50
          </TD>
      </TR>
    </TABLE>
    <A NAME="Sect_2"></A>
    <TABLE>
      <TR><TD WIDTH=380><HR></TD><TD></TD>
          <TD><I><FONT COLOR=Green>Go to:</FONT>  <A HREF="#Top">Top</A>
                 <FONT COLOR=Green>|</FONT> <A HREF="#Sect_3">Next</A>
                 <FONT COLOR=Green>|</FONT> <A HREF="#Bottom">Bottom</A>
              </I>
          </TD>
      </TR>
      </TR>
      <TR><TD><I><FONT COLOR=Red><B>L</B></FONT>etters to the Roman Friend 
                                    (Joseph Brodsky)
              </I>
          </TD>
          <TD></TD>
          <TD><A HREF="ROMANFRI.RA">Save & play</A>   503 Kb   
              <A HREF="ROMANFRI.RAM">Real play</A>   3:59
          </TD>
      </TR>
      <TR><TD><I><FONT COLOR=Red><B>S</B></FONT>till-Life  (Joseph Brodsky)
              </I>
          </TD>
          <TD></TD>
          <TD><A HREF="STILLIFE.RA">Save & play</A>   524 Kb   
              <A HREF="STILLIFE.RAM">Real play</A>   4:12
          </TD>
      </TR>
      <TR><TD><I><FONT COLOR=Red><B>C</B></FONT>hristmas  (Joseph Brodsky)
              </I>
          </TD>
          <TD></TD>
          <TD><A HREF="CHRISTMS.RA">Save & play</A>   277 Kb   
              <A HREF="CHRISTMS.RAM">Real play</A>   2:12
          </TD>
      </TR>
      <TR><TD><I><FONT COLOR=Red><B>P</B></FONT>ied Piper  (Joseph Brodsky)
              </I>
          </TD>
          <TD></TD>
          <TD><A HREF="PIEDPIPR.RA">Save & play</A>   318 Kb   
              <A HREF="PIEDPIPR.RAM">Real play</A>   2:31
          </TD>
      </TR>
      <TR><TD><I><FONT COLOR=Red><B>O</B></FONT>n a Friend's Death  (Joseph Brodsky)
              </I>
          </TD>
          <TD></TD>
          <TD><A HREF="DEATHFRI.RA">Save & play</A>   401 Kb   
              <A HREF="DEATHFRI.RAM">Real play</A>   3:11
          </TD>
      </TR>
      <TR><TD><I><FONT COLOR=Red><B>T</B></FONT>o One Tyrant 
                                    (Joseph Brodsky)
              </I>
          </TD>
          <TD></TD>
          <TD><A HREF="21TYRANT.RA">Save & play</A>   293 Kb   
              <A HREF="21TYRANT.RAM">Real play</A>   1:53
          </TD>
      </TR>
      <TR><TD><I><FONT COLOR=Red><B>M</B></FONT>exican Tango 
                                    (Joseph Brodsky)
              </I>
          </TD>
          <TD></TD>
          <TD><A HREF="MEXTANGO.RA">Save & play</A>   271 Kb   
              <A HREF="MEXTANGO.RAM">Real play</A>   2:09
          </TD>
      </TR>
    </TABLE>
    <A NAME="Sect_3"></A>
    <TABLE>
      <TR><TD WIDTH=380><HR></TD><TD></TD>
          <TD><I><FONT COLOR=Green>Go to:</FONT>  <A HREF="#Top">Top</A>
                 <FONT COLOR=Green>|</FONT> <A HREF="#Sect_2">Previous</A>
                 <FONT COLOR=Green>|</FONT> <A HREF="#Bottom">Bottom</A>
              </I>
          </TD>
      </TR>
      <TR><TD><I><FONT COLOR=Red><B>F</B></FONT>reshet  (Oleg Chuhontsev)
              </I>
          </TD>
          <TD></TD>
          <TD><A HREF="FRESHET.RA">Save & play</A>   295 Kb   
              <A HREF="FRESHET.RAM">Real play</A>   2:20
          </TD>
      </TR>
    </TABLE>
    <TABLE>
      <TR><TD><HR></TD></TR>
      <TR>
        <TD ALIGN=Center>
          <FONT COLOR=Teal>Play:</FONT>  <A HREF="PLAY-ALL.RAM">All songs</A> 37:59
          <FONT COLOR=Teal>|</FONT> <A HREF="PLAY-1.RAM">1-st section</A> 15:32
          <FONT COLOR=Teal>|</FONT> <A HREF="PLAY-2.RAM">2-nd section</A> 20:07
          <FONT COLOR=Teal>|</FONT> <A HREF="PLAY-3.RAM">3-rd section</A> 2:20
        </TD>
      </TR>
      <TR><TD><HR></TD></TR>
      <TR>
        <TD>
          <I>
            <FONT COLOR=Green>Go to:</FONT>  <A HREF="../../../HOME.HTS">Site entry</A>
            <FONT COLOR=Green>|</FONT> <A HREF="../../../DIRECT.HTS">Direct</A>
            <FONT COLOR=Green>|</FONT> <A HREF="../../../INDEX.HTS">Index</A>
            <FONT COLOR=Green>|</FONT> <A HREF="../../RUSSIAN.HTS">Russian</A>
            <FONT COLOR=Green>|</FONT> <A HREF="../SONGS.HTS">Russian songs</A>
            <FONT COLOR=Green>|</FONT> <A HREF="MIRZAY-R.HTS">Russian list</A>
            <FONT COLOR=Green>|</FONT> <FONT COLOR=Gray>Song lyrics</FONT>
            <!--
            <FONT COLOR=Green>|</FONT> <A HREF="MIRZAY-L.HTS">Song lyrics</A>
             -->
            <FONT COLOR=Green>|</FONT> <A HREF="#Top">List top</A>
          </I>
        </TD>
      </TR>
    </TABLE>
  </CENTER>
  <A NAME="Bottom"></A>
</FONT>
</BODY>
</HTML>
  

View Mirzayan Song List (now in Russian) or view [and save] MIRZAY-E.TXT text
(Use [Back] button or [Alt]+[CL] to return here from page/text view)
To make text executable rename it to *.HTS and make a global change of "&lt;" to "<" signs.
Go to:  Site entry | Site contents | Site index | Internet | HTMLScript | Text top