Random Tagline Sample (Internet HTMLScript at Davar Web Site)

Random Tagline Sample HTMLScript

RANDOM script generates a random tagline selected from a predefined list contained within script text. This integration of code and data being processed is made here for the sake of a quick response. Ideally a cycle of purely random attempts should work until a new tagline index is selected, which is not presented in the history of previously generated indexes. However, with this approach response time tends to be more than is acceptable. To keep the response time always within reasonable limits the following approach was chosen after a number of experiments:

Depth of the history is limited to 8 indexes (history is saved as a "sliding" parameter list to HTML itself).
Maximum number of attempts is limited to a total number of taglines on the list.
3/4 of maximum number of attempts are used to randomly generate a tagline index which is not present in the history.
If this fails, the remaining 1/4 of maximum number of attempts is used to generate a tagline index which is not present in the history by adding 1 (cyclically) to the previously generated index.
If this fails also, the last generated index is used for tagline selection regardless of its presence in the history.

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

<HTML> <HEAD> <TITLE>Random Tagline (Miscellaneous Selection at Davar Web Site)</TITLE> <META NAME = Description CONTENT ="Computer Science, Programming, Mainframe, UNIX, PC, Internet, Mathematics, Go, Zen, Quotations, Extracts, Humor, Russian"> <META NAME = Keywords CONTENT ="Davar Web Site, Tagline, Taglines, Random"> <META NAME=Author CONTENT ="Vladimir Veytsel"> <LINK REV =Made HREF ="mailto:nobody@nowhere.net"> </HEAD> <LET T1 ="A man is known by the silence he keeps...%"> <LET T2 ="All things are difficult before they are easy.%"> <LET T3 ="Better to understand a little than to misunderstand a lot.%"> <LET T4 ="Beware of a half truth; you may be getting the wrong half.%"> <LET T5 ="Doing it the hard way is always easier.%"> <LET T6 ="Don't let your superiors know you're superior to them.%"> <LET T7 ="Don't listen to what they say, watch what they do!%"> <LET T8 ="Eternal vigilance is the price of freedom.%"> <LET T9 ="From listening comes wisdom, from speaking, repentance.%"> <LET T10="He who is good for making excuses, is seldom good for anything else.%"> <LET T11="I saw what you did and I know who you are.%"> <LET T12="If everything's coming your way, you're in the wrong lane.%"> <LET T13="If you don't stand for something, you'll fall for anything.%"> <LET T14="If you trade freedom for security, you get neither.%"> <LET T15="Liberty is from God. Liberties, from the devil.%"> <LET T16="Men fight for freedom, then pass laws to take it away.%"> <LET T17="Never argue with a fool - people might not know the difference.%"> <LET T18="Patience and time do more than strength or passion.%"> <LET T19="Professionals built the Titanic. Amateurs built the Ark.%"> <LET T20="Small is beautiful.%"> <LET T21="Spare yourself many hard falls; don't jump to conclusions.%"> <LET T22="The best lessons are learned by doing, or at least trying.%"> <LET T23="The best solution uses the fewest assumptions.%"> <LET T24="The best way to save face is to keep the lower part shut.%"> <LET T25="The scenery only changes for the lead dog.%"> <LET T26="Those who won't think will have it done for them.%"> <LET T27="Watch where you go... remember where you've been...%"> <LET T28="We are not beaten when we loose, we're beaten when we quit.%"> <LET T29="What you don't do is always more important than what you do do.%"> <LET T30="Whenever anyone promises heaven on earth, expect hell.%"> <LET T31="Wisdom is knowing when to avoid perfection.%"> <LET T32="You can't win. You can't break even. You can't even quit the game.%"> <LET Total=32>    <LET Cnt=Total>  <LET K=Cnt/4*3>  <LET L=Cnt/4>  <LET Valid=0>  <WHILE Valid EQ 0>  <IF Cnt GE K>  <LET I=((dyn_tm_min*dyn_tm_sec) MOD Total)+1>  </IF> <IF Cnt LT L>  <LET I=((I+1) MOD Total)+1>  </IF> <LET J=1>  <WHILE J LE 9>  <LET J=J+1> <IF arg&[J] EQ I> <LET Found=1>  </IF> </WHILE> <IF Found EQ 0> <LET Valid=1>  </IF> <LET Cnt=Cnt-1>  <IF Cnt LE 0>  <LET I=Total/2> <IF "&[arg2]" NE ""> <LET I=((&[arg2]+1) MOD Total)+1>  </IF>  <LET Valid=1> </IF> </WHILE> <LET J=("%" IN T&[I])-2>  <LET Letter=(T&[I] SUBSTR "1,1")>  <LET Text =(T&[I] SUBSTR "2,&[J]")>  <LET J=((dyn_tm_min*dyn_tm_sec) MOD 9)+1> <BODY BACKGROUND="../../PAPER&[J]00.JPG" BGCOLOR=White TEXT=Black LINK=Blue ALINK=Fuchsia VLINK=Purple> <CENTER>   <BLINK>Next</BLINK> <A HREF="RANDOM.HTS?&[I]+&[arg2]+&[arg3]+&[arg4]+&[arg5]+&[arg6]+&[arg7]+&[arg8]"> Random tagline sample </A> <TABLE BORDER=5 BACKGROUND="../../PAPER0&[J]0.JPG"> <TR><TD><CENTER> &[Letter] &[Text] </CENTER> </TD> </TR> </TABLE> Go to: <A HREF="../../index.htm">Davar site entry</A> | <A HREF="../../DIRECT.HTM">Site contents</A> | <A HREF="../../INDEX.HTM">Site index</A> | <A HREF="../MISCL.HTM">Miscellaneous</A> | <A HREF="TAGLINES.HTM">Tagline selection</A> </CENTER> </BODY> </HTML>

View Random Tagline Sample (Use [Back] button or [Alt]+[CL] to return here)

View [and save] RANDOM.TXT text (Use [Back] button or [Alt]+[CL] to return here)
To make text executable rename it to *.HTS and make a global change of "<" to "<" signs.