
Load "Sound\PleaseInsertMushroom.m4a"
Wait Not MediaPlaying

Load "Sound\PleaseInsertMushroom.wav"
Wait Not MediaPlaying

Load "Sound\Ringer.mp3"
Wait Not MediaPlaying

Load "Sound\Laser.wav"
Wait Not MediaPlaying

Load "Sound\Blues.mid"
Wait Not MediaPlaying

Stop


'このテストでは、RichTextBox
が日本語文字で問題なく
11111111111
00000000000
動作するかどうかを確認します
11111111111111
00000000000000

Option Speed 9

If Slot(1) > 900
	Slot 7 = 1000
	Wait Seconds 0.1
	Slot 7 = 0
EndIf


'EXEC v1 = Rnd : V2 = V1 + 99 : V3 = V2 + 1000
