/* NewQoute */
options results

path='sysdata:quote.txt';tr='transmit';cr='center'

if ~exists(path) then do
tr " c1Can't find quotes!! Please tell SysOp!! c3"
end

g = 0
call open(1,path)

max=readln(1)
num = random(1,max-1,time(s))
rep:
line = readln(1)
if line = '*' then g = g + 1
if g = num then signal plunt
signal rep


plunt:
l = 1
print:
quot.l = readln(1)
if quot.l = '*' then signal slemhog
l = l + 1
signal print

slemhog:
tr 'c1'
h = l - 1
do i=1 to h
tr center(quot.i,79)
end
tr 'c3'
exit