cls 1				;背景白が眩しいので灰色
	title "BEEP音を鳴らす v1.00"	;タイトル名

	#uselib "KERNEL32.DLL"
	#func Beep "Beep" int,int 	;beep で音が出るように指定

	syu=600		;周波数を指定
	long=200	;音の長さを指定
	kai=1		;鳴らす回数を指定

	repeat kai,0	;repeat→kaiで指定した回数分loopまで繰り返す
	beep syu,long	;beep→上で指定した数値syuとlongで音を鳴らします
	wait 5		;wait→数値の分だけ一時待機

	getkey key1,16	;getkey→特定のキーが押されているか
	getkey key2,17	;押されていたら key(数値)に1が代入される
			;後ろの数値はどのキーか。16→[SHIFT]、17→[CTRL]

	if (key1=1) & (key2=1) : break
	;上のgetkeyで取得したSHIFTとCTRLが押されているかの判断
	;key1とkey2の数値が両方1なら(SHIFTとCTRLが押されてる)後の条件を実行
	;break→繰り返す回数が残っていてもrepeatのループより抜け出す

	loop	;loop→上にあるrepeatまで戻ります

	end	;終了