samples.basicStuff.scrollMsg samples.basicStuff.scrollMsg
«scrolls a message thru Frontier's main window
«a little pre-dinner diversion
«have fun!
«looks best if main window is in a monospace font
«Tue, Apr 30, 1996 at 6:59:45 PM by DW
local (message = "Oh the buzzing of the bees and the sycamore trees, a soda water fountain!")
local (len = 50, s)
s = string.filledstring (' ', len)
local (i, j)
on delay ()
local (tc = clock.ticks () + 2)
while clock.ticks () < tc {}
loop
for i = 1 to sizeof (message)
for j = 2 to len
s [j - 1] = s [j]
s [len] = message [i]
msg (s)
delay ()
for i = 1 to len
for j = 2 to len
s [j - 1] = s [j]
s [len] = ' '
msg (s)
delay ()
|
This page was last built on Sat, Aug 16, 1997 at 6:40:44 PM. You can download the current set of sample scripts from our FTP site. Dave |