
Button  3 Text Open Log file
Button  4 Text Open Sequence file
Button  6 Text TestVideo

Variable String LogFileName
Variable String SequenceFileName

LogFileName = "TestLogDoorLockBT.txt"
SequenceFileName = "SEQUENCES\TestTurnKnob.seq"
'SequenceFileName = "TestTurnKnob.seq"

Stop

Label Open Log file
	Load "Files\" + LogFileName
Return

Label Open Sequence file
	Load SequenceFileName
Return

Label TestVideo
	Load video1.avi
	Print MediaLength
	Wait Not MediaPlaying
	Load Hide
	
	Load video2.mp4
	Print MediaLength
	Wait Not MediaPlaying
	Load Hide
	
	Load video3.avi
	Print MediaLength
	Wait Not MediaPlaying
	Load Hide
	
	Load video4.wmv
	Print MediaLength
	Wait Not MediaPlaying
	Load Hide
	
	Load video5.mov
	Print MediaLength
	Wait Not MediaPlaying
	Load Hide
	
	'Load Sound/00-FadeOut.wav
	
	'Load Sound/Ringer.mp3
	
	'Load Science Picnic 2014.mp3
	'Wait Seconds 1
	
	'For v1 = 1 To 3
	'	Load video3.avi
	'	Wait Not MediaPlaying
	'Next
	'Load Hide
Return


'WATCH SequenceCmd
'WATCH s1
'WATCH UCase(SequenceCmd)
