ACLSを@Aの上に移動して、最後の行に VSYNC 1 GOTO @A を追加すればOKです。