18、19行目をそれぞれ IF B AND 4 THEN VX=-1 IF B AND 8 THEN VX=1 と修正してみましょう。 あと1行目の、1,1,0,0,0もその前にあったVISIBLEの続きの文なので消してしまいましょう。