FLG=0 FOR I=0 TO 5 IF FLG==0 THEN BEEP:FLG=1 NEXT これで最初の1回分しかBEEPが鳴らなくなります。