ループさせる命令(GOTOとか)の前にVSYNC を入れて動きを抑制してみては?だいぶ変わりますよ