try this (take an asprin 1st)
Rem Project: dates
Rem Created: 09/07/03 13:40:42
Rem ***** Main Source File *****
sync on:sync rate 0:hide mouse
randomize timer()
set text opaque
set text size 40
set text font "v"
ink rgb((rnd(155)+100),(rnd(155)+100),(rnd(155)+100)),0
fs=10
zoom=1
do
a$=get date$()
b$=get time$()
a$=" Current date is:"+a$+" ":b$=" Current time is:"+b$+" "
if fs=40 then zoom=-1
if fs=10 then zoom=1
fs=fs+zoom
set text size fs
text ((screen width()/2)-(text width(a$)/2)),(screen height()/2),a$
text ((screen width()/2)-(text width(b$)/2)),(screen height()/2)+40,b$
sync
loop
hope that makes it clearer
(LOL)
Mentor.