IF R-HT==0 THEN BEEP……… にしてみては?