rem Change the value of fr to change the screen refresh
rem rate

open window 640,512
setup():go()
sub setup()
fr=0.02
end sub
sub go()
wait(fr)
setrgb 0,0,0,0
clear window
wait(fr)
setrgb 0,255,255,255
clear window
go()
end sub