ええと・・・いろいろと気になる点がありますけど、とにかくご希望のプログラムならこういったプログラムでいいと思います。 XSCREEN 2 @A TOUCH　OUT STTM,TX,TY IF STTM!=0 THEN GOSUB @B VSYNC 10 GOTO @A @B BEEP 0 RETURN