

Load Sound/00-FadeOut.wav

'Load Sound/Ringer.mp3

'Load Science Picnic 2014.mp3
'Load video1.avi
'Load video2.mp4
'Load video3.avi
'Load video4.wmv
'Load video5.mov

For v1 = 0 To 1e99
	Print MediaLength + "  " + MediaPosition + CRLF
	
	'If mediaposition >= MediaLength
	'	Exit
	'EndIf
	
	If Not MediaPlaying
		Exit
	EndIf
	
	Wait Seconds 0.01
Next
Load Hide

Stop


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