BEEPコマンドの音の高さと時間を←↑↓→のカーソルキーの操作で0.5秒ごとに変化させ連続実行します。
チッ、チッ、ピッ、ピッ、プッ、プッ、ポッ、ポッ、ブー、ブー、ガリ、ガリ、カチ、カチ、……。
実行中の数値が表示されるので、望むBEEP音の設定を見つけることができます。
10 'BEEP TESTER 20 CLS:X=130:Y=1 30 IF BTN(UP)=1 X=X+10 40 IF BTN(DOWN)=1 X=X-10 50 IF BTN(RIGHT)=1 Y=Y+2 60 IF BTN(LEFT)=1 Y=Y-2 70 X=X-X%10 80 IF X<1 X=1 90 IF X>255 X=255 100 IF Y<1 Y=1 110 IF Y>30 Y=30 120 BEEPX,Y:WAIT30:?"BEEP ";DEC$(1000+X,3);",";DEC$(100+Y,2) 130 GOTO30