rem words screen saver
rem by latch
set display mode 640,480,16
sync on:sync rate 0:cls 0
randomize timer() : a=timer()
hide mouse
 
dim talk(6,8)
dim talk$(6)
for n=1 to 6
   read talk$(n)
next n
 
for n=1 to 6
   for s=1 to 8
      read talk(n,s)
   next s
next n
 
repeat
   cls
   for n=1 to 6
      orbit(n)
      sync
   next n
   `sync
   wait 20
until break_silence()=1
 
 
end
 
function orbit(index)
   rad1=talk(index,1)
   rad2=talk(index,2)
   cx=talk(index,3)
   cy=talk(index,4)
   x=talk(index,5)
   y=talk(index,6)
   speed=talk(index,7)
   angle=talk(index,8)
 
   text x,y,talk$(index)
 
   newangle=wrapvalue(angle+speed)
   newx=rad1*cos(newangle)+cx
   newy=rad2*sin(newangle)+cy
 
   talk(index,5)=newx
   talk(index,6)=newy
   talk(index,8)=newangle
endfunction
 
   function break_silence()
      result=0
      if mousemovex() <> 0 or mousemovey() <> 0 or mousemovez() <>0 then result=1
      if mouseclick() <> 0 then result=1
      if scancode()<>0 then result=1
   endfunction result
 
 
 
 
data "Hello","What's new?","Screen savers don't have to be complicated"
data "Do you like DarkBASIC?","Drinks on the house for everyone","Blah blah blah..."
 
data 10,10,220,200,320,190,5,90
data 50,10,220,200,320,150,1,90
data 90,240,200,200,320,110,-3,90
data 130,90,220,200,320,290,2,270
data 50,180,220,200,320,20,4,90
data 300,200,220,200,320,0,1,90