rem very boring screen saver
rem by latch
set display mode 640,480,16
sync on:sync rate 0:cls 0
randomize timer() : a=timer()
hide mouse
 
ink rgb(0,255,0),0
cls 0
box 0,0,100,100
get image 1,0,0,101,101
cls 0
sprite 1,0,0,1
set sprite 1,1,0
repeat
   inc s,1
   scale sprite 1,s
   if s >= 640 then s=0
   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