/*      David Letterman's Top 10 lists!   Version 1.1 - Dave Cole         *\
\*   Converted to CNet Amiga, 2.63 & beyond by Dotoran of Frontiers!      */
options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
tr=transmit ; se=sendstring ; bbsidentify name ; bbsname=result

city   = 'St Louis'            /* Edit the City  your bbs is located in.   */
state  = 'Missouri'           /* Edit the State your bbs is located in.   */
config = 'c d f b c 6 b a 1'  /* Edit the Colors & Wait Time. See README! */

parse var config c1' 'c2' 'c3' 'c4' 'c5' 'c6' 'c7' 'c8' 'wt
times=Random(1,10,Time("s"))
do i=1 to times
	a=random(1,4,time('S'))
end
times=Random(1,10,Time("s"))
do i=1 to times
	b=random(1,40,time('S'))
end
call open(f1,'doors:Top10Lists/List'||a,'r')
do i=1 to b ; L=readln(f1) ; end i ; call close(f1)
parse var L s'|'e.10'|'e.9'|'e.8'|'e.7'|'e.6'|'e.5'|'e.4'|'e.3'|'e.2'|'e.1
tr '\f1\c'c1||center("David Letterman's Top Ten Lister",78)
tr '\c'c2||center("Converted to Amiga CNet by Dotoran.",78)'\n1'
tr '\c'c2||center("Converted to Excelsior! by Ken Brill.",78)'\n1'
tr '\c'c3||center('And From Our Home Office In 'city', 'state':',78)'\n1'
tr '\c'c4||center(s,78)'\n1\c'c5||copies('=',78)'\w'wt
do i=10 to 1 by -1 
 tr '\c'c6||right(i,4)'\c'c7'> \c'c8||e.i'\n1\w'wt 
end i

/* July 25, 1993      Dotoran of Frontiers BBS (716)/823-9892!            */