１０行目をY=Y+SY*SCLにしてください。 また、９行目と１１行目にVSYNCがありますが、1つで良いです。WHILEの後かWENDの前にすると、一連の処理が同一フレーム内で実行されるようになります。