SCR()が書き込みも可能だったら、4~6行目は、
SCR(V,2)=!U*SCR(V,2):SCR(Q,1)=!V*SCR(V,2):SCR(M,N)=!N*SCR(M,N)
とひとまとめにできてすっきりしたのだがｗ
キャラクタの消去や表示もLCX,Y:?CHR$(#F0)でなくSCR(X,Y)=#F0とすっきりする。まあ、泥臭いのですが。PEEK/POKEでやれということかもしれんが