loop: set p1
clear p1
goto loop