X=get_display_mode gosub "dispaus" sleep 2000 gosub "dispein" end :dispaus do click "display" U=get_display_mode sleep 200 until (U=2 or U=3) return :dispein do click "display" U=get_display_mode sleep 200 until U=X return