12行目と13行目の間に、次の処理を追加してください。 X=MAX(X,0):X=MIN(X,399) Y=MAX(Y,0):Y=MIN(Y,239) 要するに、XとYの変域を、それぞれ0～399、0～239に制限します。