#tickertest.bas



draw -1



a$="MSFT "

b$="BA "

c$="CISC "

d$="X "

e$="APL "

f$="MM "

g$="QUR "

h$="LAK "

i$="STK "

j$="PNO "

k$="FO "

l$="LOS "

m$="MAT "

n$="NOS "

o$="OXT "

p$="DOR "

q$="MNX "



m=160

n=40

bit=1



top:



z=rnd(100)

z$=z



draw a$+z$+b$+z$+c$+z$+d$+z$+e$+z$+f$+z$,m,80,1



m=m-1



if m=-250 then m=140

if bit=1 then n=n+.25

if bit=0 then n=n-.25

if n=140 then bit=0

if n=15 then bit=1



goto top



end

    Source: geocities.com/greenchile505