rem dot screen saver
rem by latch
set display mode 640,480,16
sync on:sync rate 0:cls 0
randomize timer() : a=timer()
hide mouse
 
repeat
   if timer()-a >= 10000
      cls 0
      a=timer()
   endif
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   dot rnd(screen width()),rnd(screen height())
   sync
until break_silence()=1
 
end
   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